spandsp-0.0.6/0000775000175000017500000000000011516506112012575 5ustar steveusteveuspandsp-0.0.6/configure0000775000175000017500000412034111516506042014513 0ustar steveusteveu#! /bin/sh # Guess values for system-dependent variables and create Makefiles. # Generated by GNU Autoconf 2.59. # # Copyright (C) 2003 Free Software Foundation, Inc. # This configure script is free software; the Free Software Foundation # gives unlimited permission to copy, distribute and modify it. ## --------------------- ## ## M4sh Initialization. ## ## --------------------- ## # Be Bourne compatible if test -n "${ZSH_VERSION+set}" && (emulate sh) >/dev/null 2>&1; then emulate sh NULLCMD=: # Zsh 3.x and 4.x performs word splitting on ${1+"$@"}, which # is contrary to our usage. Disable this feature. alias -g '${1+"$@"}'='"$@"' elif test -n "${BASH_VERSION+set}" && (set -o posix) >/dev/null 2>&1; then set -o posix fi DUALCASE=1; export DUALCASE # for MKS sh # Support unset when possible. if ( (MAIL=60; unset MAIL) || exit) >/dev/null 2>&1; then as_unset=unset else as_unset=false fi # Work around bugs in pre-3.0 UWIN ksh. $as_unset ENV MAIL MAILPATH PS1='$ ' PS2='> ' PS4='+ ' # NLS nuisances. for as_var in \ LANG LANGUAGE LC_ADDRESS LC_ALL LC_COLLATE LC_CTYPE LC_IDENTIFICATION \ LC_MEASUREMENT LC_MESSAGES LC_MONETARY LC_NAME LC_NUMERIC LC_PAPER \ LC_TELEPHONE LC_TIME do if (set +x; test -z "`(eval $as_var=C; export $as_var) 2>&1`"); then eval $as_var=C; export $as_var else $as_unset $as_var fi done # Required to use basename. if expr a : '\(a\)' >/dev/null 2>&1; then as_expr=expr else as_expr=false fi if (basename /) >/dev/null 2>&1 && test "X`basename / 2>&1`" = "X/"; then as_basename=basename else as_basename=false fi # Name of the executable. as_me=`$as_basename "$0" || $as_expr X/"$0" : '.*/\([^/][^/]*\)/*$' \| \ X"$0" : 'X\(//\)$' \| \ X"$0" : 'X\(/\)$' \| \ . : '\(.\)' 2>/dev/null || echo X/"$0" | sed '/^.*\/\([^/][^/]*\)\/*$/{ s//\1/; q; } /^X\/\(\/\/\)$/{ s//\1/; q; } /^X\/\(\/\).*/{ s//\1/; q; } s/.*/./; q'` # PATH needs CR, and LINENO needs CR and PATH. # Avoid depending upon Character Ranges. as_cr_letters='abcdefghijklmnopqrstuvwxyz' as_cr_LETTERS='ABCDEFGHIJKLMNOPQRSTUVWXYZ' as_cr_Letters=$as_cr_letters$as_cr_LETTERS as_cr_digits='0123456789' as_cr_alnum=$as_cr_Letters$as_cr_digits # The user is always right. if test "${PATH_SEPARATOR+set}" != set; then echo "#! /bin/sh" >conf$$.sh echo "exit 0" >>conf$$.sh chmod +x conf$$.sh if (PATH="/nonexistent;."; conf$$.sh) >/dev/null 2>&1; then PATH_SEPARATOR=';' else PATH_SEPARATOR=: fi rm -f conf$$.sh fi as_lineno_1=$LINENO as_lineno_2=$LINENO as_lineno_3=`(expr $as_lineno_1 + 1) 2>/dev/null` test "x$as_lineno_1" != "x$as_lineno_2" && test "x$as_lineno_3" = "x$as_lineno_2" || { # Find who we are. Look in the path if we contain no path at all # relative or not. case $0 in *[\\/]* ) as_myself=$0 ;; *) as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. test -r "$as_dir/$0" && as_myself=$as_dir/$0 && break done ;; esac # We did not find ourselves, most probably we were run as `sh COMMAND' # in which case we are not to be found in the path. if test "x$as_myself" = x; then as_myself=$0 fi if test ! -f "$as_myself"; then { echo "$as_me: error: cannot find myself; rerun with an absolute path" >&2 { (exit 1); exit 1; }; } fi case $CONFIG_SHELL in '') as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in /bin$PATH_SEPARATOR/usr/bin$PATH_SEPARATOR$PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for as_base in sh bash ksh sh5; do case $as_dir in /*) if ("$as_dir/$as_base" -c ' as_lineno_1=$LINENO as_lineno_2=$LINENO as_lineno_3=`(expr $as_lineno_1 + 1) 2>/dev/null` test "x$as_lineno_1" != "x$as_lineno_2" && test "x$as_lineno_3" = "x$as_lineno_2" ') 2>/dev/null; then $as_unset BASH_ENV || test "${BASH_ENV+set}" != set || { BASH_ENV=; export BASH_ENV; } $as_unset ENV || test "${ENV+set}" != set || { ENV=; export ENV; } CONFIG_SHELL=$as_dir/$as_base export CONFIG_SHELL exec "$CONFIG_SHELL" "$0" ${1+"$@"} fi;; esac done done ;; esac # Create $as_me.lineno as a copy of $as_myself, but with $LINENO # uniformly replaced by the line number. The first 'sed' inserts a # line-number line before each line; the second 'sed' does the real # work. The second script uses 'N' to pair each line-number line # with the numbered line, and appends trailing '-' during # substitution so that $LINENO is not a special case at line end. # (Raja R Harinath suggested sed '=', and Paul Eggert wrote the # second 'sed' script. Blame Lee E. McMahon for sed's syntax. :-) sed '=' <$as_myself | sed ' N s,$,-, : loop s,^\(['$as_cr_digits']*\)\(.*\)[$]LINENO\([^'$as_cr_alnum'_]\),\1\2\1\3, t loop s,-$,, s,^['$as_cr_digits']*\n,, ' >$as_me.lineno && chmod +x $as_me.lineno || { echo "$as_me: error: cannot create $as_me.lineno; rerun with a POSIX shell" >&2 { (exit 1); exit 1; }; } # Don't try to exec as it changes $[0], causing all sort of problems # (the dirname of $[0] is not the place where we might find the # original and so on. Autoconf is especially sensible to this). . ./$as_me.lineno # Exit status is that of the last command. exit } case `echo "testing\c"; echo 1,2,3`,`echo -n testing; echo 1,2,3` in *c*,-n*) ECHO_N= ECHO_C=' ' ECHO_T=' ' ;; *c*,* ) ECHO_N=-n ECHO_C= ECHO_T= ;; *) ECHO_N= ECHO_C='\c' ECHO_T= ;; esac if expr a : '\(a\)' >/dev/null 2>&1; then as_expr=expr else as_expr=false fi rm -f conf$$ conf$$.exe conf$$.file echo >conf$$.file if ln -s conf$$.file conf$$ 2>/dev/null; then # We could just check for DJGPP; but this test a) works b) is more generic # and c) will remain valid once DJGPP supports symlinks (DJGPP 2.04). if test -f conf$$.exe; then # Don't use ln at all; we don't have any links as_ln_s='cp -p' else as_ln_s='ln -s' fi elif ln conf$$.file conf$$ 2>/dev/null; then as_ln_s=ln else as_ln_s='cp -p' fi rm -f conf$$ conf$$.exe conf$$.file if mkdir -p . 2>/dev/null; then as_mkdir_p=: else test -d ./-p && rmdir ./-p as_mkdir_p=false fi as_executable_p="test -f" # Sed expression to map a string onto a valid CPP name. as_tr_cpp="eval sed 'y%*$as_cr_letters%P$as_cr_LETTERS%;s%[^_$as_cr_alnum]%_%g'" # Sed expression to map a string onto a valid variable name. as_tr_sh="eval sed 'y%*+%pp%;s%[^_$as_cr_alnum]%_%g'" # IFS # We need space, tab and new line, in precisely that order. as_nl=' ' IFS=" $as_nl" # CDPATH. $as_unset CDPATH # Check that we are running under the correct shell. SHELL=${CONFIG_SHELL-/bin/sh} case X$ECHO in X*--fallback-echo) # Remove one level of quotation (which was required for Make). ECHO=`echo "$ECHO" | sed 's,\\\\\$\\$0,'$0','` ;; esac echo=${ECHO-echo} if test "X$1" = X--no-reexec; then # Discard the --no-reexec flag, and continue. shift elif test "X$1" = X--fallback-echo; then # Avoid inline document here, it may be left over : elif test "X`($echo '\t') 2>/dev/null`" = 'X\t' ; then # Yippee, $echo works! : else # Restart under the correct shell. exec $SHELL "$0" --no-reexec ${1+"$@"} fi if test "X$1" = X--fallback-echo; then # used as fallback echo shift cat </dev/null 2>&1 && unset CDPATH if test -z "$ECHO"; then if test "X${echo_test_string+set}" != Xset; then # find a string as large as possible, as long as the shell can cope with it for cmd in 'sed 50q "$0"' 'sed 20q "$0"' 'sed 10q "$0"' 'sed 2q "$0"' 'echo test'; do # expected sizes: less than 2Kb, 1Kb, 512 bytes, 16 bytes, ... if (echo_test_string=`eval $cmd`) 2>/dev/null && echo_test_string=`eval $cmd` && (test "X$echo_test_string" = "X$echo_test_string") 2>/dev/null then break fi done fi if test "X`($echo '\t') 2>/dev/null`" = 'X\t' && echo_testing_string=`($echo "$echo_test_string") 2>/dev/null` && test "X$echo_testing_string" = "X$echo_test_string"; then : else # The Solaris, AIX, and Digital Unix default echo programs unquote # backslashes. This makes it impossible to quote backslashes using # echo "$something" | sed 's/\\/\\\\/g' # # So, first we look for a working echo in the user's PATH. lt_save_ifs="$IFS"; IFS=$PATH_SEPARATOR for dir in $PATH /usr/ucb; do IFS="$lt_save_ifs" if (test -f $dir/echo || test -f $dir/echo$ac_exeext) && test "X`($dir/echo '\t') 2>/dev/null`" = 'X\t' && echo_testing_string=`($dir/echo "$echo_test_string") 2>/dev/null` && test "X$echo_testing_string" = "X$echo_test_string"; then echo="$dir/echo" break fi done IFS="$lt_save_ifs" if test "X$echo" = Xecho; then # We didn't find a better echo, so look for alternatives. if test "X`(print -r '\t') 2>/dev/null`" = 'X\t' && echo_testing_string=`(print -r "$echo_test_string") 2>/dev/null` && test "X$echo_testing_string" = "X$echo_test_string"; then # This shell has a builtin print -r that does the trick. echo='print -r' elif (test -f /bin/ksh || test -f /bin/ksh$ac_exeext) && test "X$CONFIG_SHELL" != X/bin/ksh; then # If we have ksh, try running configure again with it. ORIGINAL_CONFIG_SHELL=${CONFIG_SHELL-/bin/sh} export ORIGINAL_CONFIG_SHELL CONFIG_SHELL=/bin/ksh export CONFIG_SHELL exec $CONFIG_SHELL "$0" --no-reexec ${1+"$@"} else # Try using printf. echo='printf %s\n' if test "X`($echo '\t') 2>/dev/null`" = 'X\t' && echo_testing_string=`($echo "$echo_test_string") 2>/dev/null` && test "X$echo_testing_string" = "X$echo_test_string"; then # Cool, printf works : elif echo_testing_string=`($ORIGINAL_CONFIG_SHELL "$0" --fallback-echo '\t') 2>/dev/null` && test "X$echo_testing_string" = 'X\t' && echo_testing_string=`($ORIGINAL_CONFIG_SHELL "$0" --fallback-echo "$echo_test_string") 2>/dev/null` && test "X$echo_testing_string" = "X$echo_test_string"; then CONFIG_SHELL=$ORIGINAL_CONFIG_SHELL export CONFIG_SHELL SHELL="$CONFIG_SHELL" export SHELL echo="$CONFIG_SHELL $0 --fallback-echo" elif echo_testing_string=`($CONFIG_SHELL "$0" --fallback-echo '\t') 2>/dev/null` && test "X$echo_testing_string" = 'X\t' && echo_testing_string=`($CONFIG_SHELL "$0" --fallback-echo "$echo_test_string") 2>/dev/null` && test "X$echo_testing_string" = "X$echo_test_string"; then echo="$CONFIG_SHELL $0 --fallback-echo" else # maybe with a smaller string... prev=: for cmd in 'echo test' 'sed 2q "$0"' 'sed 10q "$0"' 'sed 20q "$0"' 'sed 50q "$0"'; do if (test "X$echo_test_string" = "X`eval $cmd`") 2>/dev/null then break fi prev="$cmd" done if test "$prev" != 'sed 50q "$0"'; then echo_test_string=`eval $prev` export echo_test_string exec ${ORIGINAL_CONFIG_SHELL-${CONFIG_SHELL-/bin/sh}} "$0" ${1+"$@"} else # Oops. We lost completely, so just stick with echo. echo=echo fi fi fi fi fi fi # Copy echo and quote the copy suitably for passing to libtool from # the Makefile, instead of quoting the original, which is used later. ECHO=$echo if test "X$ECHO" = "X$CONFIG_SHELL $0 --fallback-echo"; then ECHO="$CONFIG_SHELL \\\$\$0 --fallback-echo" fi tagnames=${tagnames+${tagnames},}CXX tagnames=${tagnames+${tagnames},}F77 # Name of the host. # hostname on some systems (SVR3.2, Linux) returns a bogus exit status, # so uname gets run too. ac_hostname=`(hostname || uname -n) 2>/dev/null | sed 1q` exec 6>&1 # # Initializations. # ac_default_prefix=/usr/local ac_config_libobj_dir=. cross_compiling=no subdirs= MFLAGS= MAKEFLAGS= SHELL=${CONFIG_SHELL-/bin/sh} # Maximum number of lines to put in a shell here document. # This variable seems obsolete. It should probably be removed, and # only ac_max_sed_lines should be used. : ${ac_max_here_lines=38} # Identity of this package. PACKAGE_NAME= PACKAGE_TARNAME= PACKAGE_VERSION= PACKAGE_STRING= PACKAGE_BUGREPORT= ac_unique_file="src/tone_generate.c" # Factoring default headers for most tests. ac_includes_default="\ #include #if HAVE_SYS_TYPES_H # include #endif #if HAVE_SYS_STAT_H # include #endif #if STDC_HEADERS # include # include #else # if HAVE_STDLIB_H # include # endif #endif #if HAVE_STRING_H # if !STDC_HEADERS && HAVE_MEMORY_H # include # endif # include #endif #if HAVE_STRINGS_H # include #endif #if HAVE_INTTYPES_H # include #else # if HAVE_STDINT_H # include # endif #endif #if HAVE_UNISTD_H # include #endif" ac_subst_vars='SHELL PATH_SEPARATOR PACKAGE_NAME PACKAGE_TARNAME PACKAGE_VERSION PACKAGE_STRING PACKAGE_BUGREPORT exec_prefix prefix program_transform_name bindir sbindir libexecdir datadir sysconfdir sharedstatedir localstatedir libdir includedir oldincludedir infodir mandir build_alias host_alias target_alias DEFS ECHO_C ECHO_N ECHO_T LIBS SPANDSP_LT_CURRENT SPANDSP_LT_REVISION SPANDSP_LT_AGE INSTALL_PROGRAM INSTALL_SCRIPT INSTALL_DATA CYGPATH_W PACKAGE VERSION ACLOCAL AUTOCONF AUTOMAKE AUTOHEADER MAKEINFO install_sh STRIP ac_ct_STRIP INSTALL_STRIP_PROGRAM mkdir_p AWK SET_MAKE am__leading_dot AMTAR am__tar am__untar build build_cpu build_vendor build_os host host_cpu host_vendor host_os CC CFLAGS LDFLAGS CPPFLAGS ac_ct_CC EXEEXT OBJEXT DEPDIR am__include am__quote AMDEP_TRUE AMDEP_FALSE AMDEPBACKSLASH CCDEPMODE am__fastdepCC_TRUE am__fastdepCC_FALSE CXX CXXFLAGS ac_ct_CXX CXXDEPMODE am__fastdepCXX_TRUE am__fastdepCXX_FALSE CPP EGREP SED LN_S ECHO AR ac_ct_AR RANLIB ac_ct_RANLIB DSYMUTIL ac_ct_DSYMUTIL NMEDIT ac_ct_NMEDIT CXXCPP F77 FFLAGS ac_ct_F77 LIBTOOL LIBOBJS COND_DOC_TRUE COND_DOC_FALSE COND_TESTS_TRUE COND_TESTS_FALSE COND_TESTDATA_TRUE COND_TESTDATA_FALSE COND_MMX_TRUE COND_MMX_FALSE COND_SSE_TRUE COND_SSE_FALSE COND_SSE2_TRUE COND_SSE2_FALSE COND_SSE3_TRUE COND_SSE3_FALSE COND_SSSE3_TRUE COND_SSSE3_FALSE COND_SSE4_1_TRUE COND_SSE4_1_FALSE COND_SSE4_2_TRUE COND_SSE4_2_FALSE COND_SSE4A_TRUE COND_SSE4A_FALSE COND_SSE5_TRUE COND_SSE5_FALSE CC_FOR_BUILD CPPFLAGS_FOR_BUILD COMP_VENDOR_CFLAGS COMP_VENDOR_LDFLAGS SIMLIBS TESTLIBS SPANDSP_USE_FIXED_POINT SPANDSP_MISALIGNED_ACCESS_FAILS SPANDSP_USE_EXPORT_CAPABILITY SPANDSP_SUPPORT_T85 SPANDSP_SUPPORT_V34 INSERT_INTTYPES_HEADER INSERT_STDINT_HEADER INSERT_TGMATH_HEADER INSERT_MATH_HEADER LTLIBOBJS' ac_subst_files='' # Initialize some variables set by options. ac_init_help= ac_init_version=false # The variables have the same names as the options, with # dashes changed to underlines. cache_file=/dev/null exec_prefix=NONE no_create= no_recursion= prefix=NONE program_prefix=NONE program_suffix=NONE program_transform_name=s,x,x, silent= site= srcdir= verbose= x_includes=NONE x_libraries=NONE # Installation directory options. # These are left unexpanded so users can "make install exec_prefix=/foo" # and all the variables that are supposed to be based on exec_prefix # by default will actually change. # Use braces instead of parens because sh, perl, etc. also accept them. bindir='${exec_prefix}/bin' sbindir='${exec_prefix}/sbin' libexecdir='${exec_prefix}/libexec' datadir='${prefix}/share' sysconfdir='${prefix}/etc' sharedstatedir='${prefix}/com' localstatedir='${prefix}/var' libdir='${exec_prefix}/lib' includedir='${prefix}/include' oldincludedir='/usr/include' infodir='${prefix}/info' mandir='${prefix}/man' ac_prev= for ac_option do # If the previous option needs an argument, assign it. if test -n "$ac_prev"; then eval "$ac_prev=\$ac_option" ac_prev= continue fi ac_optarg=`expr "x$ac_option" : 'x[^=]*=\(.*\)'` # Accept the important Cygnus configure options, so we can diagnose typos. case $ac_option in -bindir | --bindir | --bindi | --bind | --bin | --bi) ac_prev=bindir ;; -bindir=* | --bindir=* | --bindi=* | --bind=* | --bin=* | --bi=*) bindir=$ac_optarg ;; -build | --build | --buil | --bui | --bu) ac_prev=build_alias ;; -build=* | --build=* | --buil=* | --bui=* | --bu=*) build_alias=$ac_optarg ;; -cache-file | --cache-file | --cache-fil | --cache-fi \ | --cache-f | --cache- | --cache | --cach | --cac | --ca | --c) ac_prev=cache_file ;; -cache-file=* | --cache-file=* | --cache-fil=* | --cache-fi=* \ | --cache-f=* | --cache-=* | --cache=* | --cach=* | --cac=* | --ca=* | --c=*) cache_file=$ac_optarg ;; --config-cache | -C) cache_file=config.cache ;; -datadir | --datadir | --datadi | --datad | --data | --dat | --da) ac_prev=datadir ;; -datadir=* | --datadir=* | --datadi=* | --datad=* | --data=* | --dat=* \ | --da=*) datadir=$ac_optarg ;; -disable-* | --disable-*) ac_feature=`expr "x$ac_option" : 'x-*disable-\(.*\)'` # Reject names that are not valid shell variable names. expr "x$ac_feature" : ".*[^-_$as_cr_alnum]" >/dev/null && { echo "$as_me: error: invalid feature name: $ac_feature" >&2 { (exit 1); exit 1; }; } ac_feature=`echo $ac_feature | sed 's/-/_/g'` eval "enable_$ac_feature=no" ;; -enable-* | --enable-*) ac_feature=`expr "x$ac_option" : 'x-*enable-\([^=]*\)'` # Reject names that are not valid shell variable names. expr "x$ac_feature" : ".*[^-_$as_cr_alnum]" >/dev/null && { echo "$as_me: error: invalid feature name: $ac_feature" >&2 { (exit 1); exit 1; }; } ac_feature=`echo $ac_feature | sed 's/-/_/g'` case $ac_option in *=*) ac_optarg=`echo "$ac_optarg" | sed "s/'/'\\\\\\\\''/g"`;; *) ac_optarg=yes ;; esac eval "enable_$ac_feature='$ac_optarg'" ;; -exec-prefix | --exec_prefix | --exec-prefix | --exec-prefi \ | --exec-pref | --exec-pre | --exec-pr | --exec-p | --exec- \ | --exec | --exe | --ex) ac_prev=exec_prefix ;; -exec-prefix=* | --exec_prefix=* | --exec-prefix=* | --exec-prefi=* \ | --exec-pref=* | --exec-pre=* | --exec-pr=* | --exec-p=* | --exec-=* \ | --exec=* | --exe=* | --ex=*) exec_prefix=$ac_optarg ;; -gas | --gas | --ga | --g) # Obsolete; use --with-gas. with_gas=yes ;; -help | --help | --hel | --he | -h) ac_init_help=long ;; -help=r* | --help=r* | --hel=r* | --he=r* | -hr*) ac_init_help=recursive ;; -help=s* | --help=s* | --hel=s* | --he=s* | -hs*) ac_init_help=short ;; -host | --host | --hos | --ho) ac_prev=host_alias ;; -host=* | --host=* | --hos=* | --ho=*) host_alias=$ac_optarg ;; -includedir | --includedir | --includedi | --included | --include \ | --includ | --inclu | --incl | --inc) ac_prev=includedir ;; -includedir=* | --includedir=* | --includedi=* | --included=* | --include=* \ | --includ=* | --inclu=* | --incl=* | --inc=*) includedir=$ac_optarg ;; -infodir | --infodir | --infodi | --infod | --info | --inf) ac_prev=infodir ;; -infodir=* | --infodir=* | --infodi=* | --infod=* | --info=* | --inf=*) infodir=$ac_optarg ;; -libdir | --libdir | --libdi | --libd) ac_prev=libdir ;; -libdir=* | --libdir=* | --libdi=* | --libd=*) libdir=$ac_optarg ;; -libexecdir | --libexecdir | --libexecdi | --libexecd | --libexec \ | --libexe | --libex | --libe) ac_prev=libexecdir ;; -libexecdir=* | --libexecdir=* | --libexecdi=* | --libexecd=* | --libexec=* \ | --libexe=* | --libex=* | --libe=*) libexecdir=$ac_optarg ;; -localstatedir | --localstatedir | --localstatedi | --localstated \ | --localstate | --localstat | --localsta | --localst \ | --locals | --local | --loca | --loc | --lo) ac_prev=localstatedir ;; -localstatedir=* | --localstatedir=* | --localstatedi=* | --localstated=* \ | --localstate=* | --localstat=* | --localsta=* | --localst=* \ | --locals=* | --local=* | --loca=* | --loc=* | --lo=*) localstatedir=$ac_optarg ;; -mandir | --mandir | --mandi | --mand | --man | --ma | --m) ac_prev=mandir ;; -mandir=* | --mandir=* | --mandi=* | --mand=* | --man=* | --ma=* | --m=*) mandir=$ac_optarg ;; -nfp | --nfp | --nf) # Obsolete; use --without-fp. with_fp=no ;; -no-create | --no-create | --no-creat | --no-crea | --no-cre \ | --no-cr | --no-c | -n) no_create=yes ;; -no-recursion | --no-recursion | --no-recursio | --no-recursi \ | --no-recurs | --no-recur | --no-recu | --no-rec | --no-re | --no-r) no_recursion=yes ;; -oldincludedir | --oldincludedir | --oldincludedi | --oldincluded \ | --oldinclude | --oldinclud | --oldinclu | --oldincl | --oldinc \ | --oldin | --oldi | --old | --ol | --o) ac_prev=oldincludedir ;; -oldincludedir=* | --oldincludedir=* | --oldincludedi=* | --oldincluded=* \ | --oldinclude=* | --oldinclud=* | --oldinclu=* | --oldincl=* | --oldinc=* \ | --oldin=* | --oldi=* | --old=* | --ol=* | --o=*) oldincludedir=$ac_optarg ;; -prefix | --prefix | --prefi | --pref | --pre | --pr | --p) ac_prev=prefix ;; -prefix=* | --prefix=* | --prefi=* | --pref=* | --pre=* | --pr=* | --p=*) prefix=$ac_optarg ;; -program-prefix | --program-prefix | --program-prefi | --program-pref \ | --program-pre | --program-pr | --program-p) ac_prev=program_prefix ;; -program-prefix=* | --program-prefix=* | --program-prefi=* \ | --program-pref=* | --program-pre=* | --program-pr=* | --program-p=*) program_prefix=$ac_optarg ;; -program-suffix | --program-suffix | --program-suffi | --program-suff \ | --program-suf | --program-su | --program-s) ac_prev=program_suffix ;; -program-suffix=* | --program-suffix=* | --program-suffi=* \ | --program-suff=* | --program-suf=* | --program-su=* | --program-s=*) program_suffix=$ac_optarg ;; -program-transform-name | --program-transform-name \ | --program-transform-nam | --program-transform-na \ | --program-transform-n | --program-transform- \ | --program-transform | --program-transfor \ | --program-transfo | --program-transf \ | --program-trans | --program-tran \ | --progr-tra | --program-tr | --program-t) ac_prev=program_transform_name ;; -program-transform-name=* | --program-transform-name=* \ | --program-transform-nam=* | --program-transform-na=* \ | --program-transform-n=* | --program-transform-=* \ | --program-transform=* | --program-transfor=* \ | --program-transfo=* | --program-transf=* \ | --program-trans=* | --program-tran=* \ | --progr-tra=* | --program-tr=* | --program-t=*) program_transform_name=$ac_optarg ;; -q | -quiet | --quiet | --quie | --qui | --qu | --q \ | -silent | --silent | --silen | --sile | --sil) silent=yes ;; -sbindir | --sbindir | --sbindi | --sbind | --sbin | --sbi | --sb) ac_prev=sbindir ;; -sbindir=* | --sbindir=* | --sbindi=* | --sbind=* | --sbin=* \ | --sbi=* | --sb=*) sbindir=$ac_optarg ;; -sharedstatedir | --sharedstatedir | --sharedstatedi \ | --sharedstated | --sharedstate | --sharedstat | --sharedsta \ | --sharedst | --shareds | --shared | --share | --shar \ | --sha | --sh) ac_prev=sharedstatedir ;; -sharedstatedir=* | --sharedstatedir=* | --sharedstatedi=* \ | --sharedstated=* | --sharedstate=* | --sharedstat=* | --sharedsta=* \ | --sharedst=* | --shareds=* | --shared=* | --share=* | --shar=* \ | --sha=* | --sh=*) sharedstatedir=$ac_optarg ;; -site | --site | --sit) ac_prev=site ;; -site=* | --site=* | --sit=*) site=$ac_optarg ;; -srcdir | --srcdir | --srcdi | --srcd | --src | --sr) ac_prev=srcdir ;; -srcdir=* | --srcdir=* | --srcdi=* | --srcd=* | --src=* | --sr=*) srcdir=$ac_optarg ;; -sysconfdir | --sysconfdir | --sysconfdi | --sysconfd | --sysconf \ | --syscon | --sysco | --sysc | --sys | --sy) ac_prev=sysconfdir ;; -sysconfdir=* | --sysconfdir=* | --sysconfdi=* | --sysconfd=* | --sysconf=* \ | --syscon=* | --sysco=* | --sysc=* | --sys=* | --sy=*) sysconfdir=$ac_optarg ;; -target | --target | --targe | --targ | --tar | --ta | --t) ac_prev=target_alias ;; -target=* | --target=* | --targe=* | --targ=* | --tar=* | --ta=* | --t=*) target_alias=$ac_optarg ;; -v | -verbose | --verbose | --verbos | --verbo | --verb) verbose=yes ;; -version | --version | --versio | --versi | --vers | -V) ac_init_version=: ;; -with-* | --with-*) ac_package=`expr "x$ac_option" : 'x-*with-\([^=]*\)'` # Reject names that are not valid shell variable names. expr "x$ac_package" : ".*[^-_$as_cr_alnum]" >/dev/null && { echo "$as_me: error: invalid package name: $ac_package" >&2 { (exit 1); exit 1; }; } ac_package=`echo $ac_package| sed 's/-/_/g'` case $ac_option in *=*) ac_optarg=`echo "$ac_optarg" | sed "s/'/'\\\\\\\\''/g"`;; *) ac_optarg=yes ;; esac eval "with_$ac_package='$ac_optarg'" ;; -without-* | --without-*) ac_package=`expr "x$ac_option" : 'x-*without-\(.*\)'` # Reject names that are not valid shell variable names. expr "x$ac_package" : ".*[^-_$as_cr_alnum]" >/dev/null && { echo "$as_me: error: invalid package name: $ac_package" >&2 { (exit 1); exit 1; }; } ac_package=`echo $ac_package | sed 's/-/_/g'` eval "with_$ac_package=no" ;; --x) # Obsolete; use --with-x. with_x=yes ;; -x-includes | --x-includes | --x-include | --x-includ | --x-inclu \ | --x-incl | --x-inc | --x-in | --x-i) ac_prev=x_includes ;; -x-includes=* | --x-includes=* | --x-include=* | --x-includ=* | --x-inclu=* \ | --x-incl=* | --x-inc=* | --x-in=* | --x-i=*) x_includes=$ac_optarg ;; -x-libraries | --x-libraries | --x-librarie | --x-librari \ | --x-librar | --x-libra | --x-libr | --x-lib | --x-li | --x-l) ac_prev=x_libraries ;; -x-libraries=* | --x-libraries=* | --x-librarie=* | --x-librari=* \ | --x-librar=* | --x-libra=* | --x-libr=* | --x-lib=* | --x-li=* | --x-l=*) x_libraries=$ac_optarg ;; -*) { echo "$as_me: error: unrecognized option: $ac_option Try \`$0 --help' for more information." >&2 { (exit 1); exit 1; }; } ;; *=*) ac_envvar=`expr "x$ac_option" : 'x\([^=]*\)='` # Reject names that are not valid shell variable names. expr "x$ac_envvar" : ".*[^_$as_cr_alnum]" >/dev/null && { echo "$as_me: error: invalid variable name: $ac_envvar" >&2 { (exit 1); exit 1; }; } ac_optarg=`echo "$ac_optarg" | sed "s/'/'\\\\\\\\''/g"` eval "$ac_envvar='$ac_optarg'" export $ac_envvar ;; *) # FIXME: should be removed in autoconf 3.0. echo "$as_me: WARNING: you should use --build, --host, --target" >&2 expr "x$ac_option" : ".*[^-._$as_cr_alnum]" >/dev/null && echo "$as_me: WARNING: invalid host type: $ac_option" >&2 : ${build_alias=$ac_option} ${host_alias=$ac_option} ${target_alias=$ac_option} ;; esac done if test -n "$ac_prev"; then ac_option=--`echo $ac_prev | sed 's/_/-/g'` { echo "$as_me: error: missing argument to $ac_option" >&2 { (exit 1); exit 1; }; } fi # Be sure to have absolute paths. for ac_var in exec_prefix prefix do eval ac_val=$`echo $ac_var` case $ac_val in [\\/$]* | ?:[\\/]* | NONE | '' ) ;; *) { echo "$as_me: error: expected an absolute directory name for --$ac_var: $ac_val" >&2 { (exit 1); exit 1; }; };; esac done # Be sure to have absolute paths. for ac_var in bindir sbindir libexecdir datadir sysconfdir sharedstatedir \ localstatedir libdir includedir oldincludedir infodir mandir do eval ac_val=$`echo $ac_var` case $ac_val in [\\/$]* | ?:[\\/]* ) ;; *) { echo "$as_me: error: expected an absolute directory name for --$ac_var: $ac_val" >&2 { (exit 1); exit 1; }; };; esac done # There might be people who depend on the old broken behavior: `$host' # used to hold the argument of --host etc. # FIXME: To remove some day. build=$build_alias host=$host_alias target=$target_alias # FIXME: To remove some day. if test "x$host_alias" != x; then if test "x$build_alias" = x; then cross_compiling=maybe echo "$as_me: WARNING: If you wanted to set the --build type, don't use --host. If a cross compiler is detected then cross compile mode will be used." >&2 elif test "x$build_alias" != "x$host_alias"; then cross_compiling=yes fi fi ac_tool_prefix= test -n "$host_alias" && ac_tool_prefix=$host_alias- test "$silent" = yes && exec 6>/dev/null # Find the source files, if location was not specified. if test -z "$srcdir"; then ac_srcdir_defaulted=yes # Try the directory containing this script, then its parent. ac_confdir=`(dirname "$0") 2>/dev/null || $as_expr X"$0" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ X"$0" : 'X\(//\)[^/]' \| \ X"$0" : 'X\(//\)$' \| \ X"$0" : 'X\(/\)' \| \ . : '\(.\)' 2>/dev/null || echo X"$0" | sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ s//\1/; q; } /^X\(\/\/\)[^/].*/{ s//\1/; q; } /^X\(\/\/\)$/{ s//\1/; q; } /^X\(\/\).*/{ s//\1/; q; } s/.*/./; q'` srcdir=$ac_confdir if test ! -r $srcdir/$ac_unique_file; then srcdir=.. fi else ac_srcdir_defaulted=no fi if test ! -r $srcdir/$ac_unique_file; then if test "$ac_srcdir_defaulted" = yes; then { echo "$as_me: error: cannot find sources ($ac_unique_file) in $ac_confdir or .." >&2 { (exit 1); exit 1; }; } else { echo "$as_me: error: cannot find sources ($ac_unique_file) in $srcdir" >&2 { (exit 1); exit 1; }; } fi fi (cd $srcdir && test -r ./$ac_unique_file) 2>/dev/null || { echo "$as_me: error: sources are in $srcdir, but \`cd $srcdir' does not work" >&2 { (exit 1); exit 1; }; } srcdir=`echo "$srcdir" | sed 's%\([^\\/]\)[\\/]*$%\1%'` ac_env_build_alias_set=${build_alias+set} ac_env_build_alias_value=$build_alias ac_cv_env_build_alias_set=${build_alias+set} ac_cv_env_build_alias_value=$build_alias ac_env_host_alias_set=${host_alias+set} ac_env_host_alias_value=$host_alias ac_cv_env_host_alias_set=${host_alias+set} ac_cv_env_host_alias_value=$host_alias ac_env_target_alias_set=${target_alias+set} ac_env_target_alias_value=$target_alias ac_cv_env_target_alias_set=${target_alias+set} ac_cv_env_target_alias_value=$target_alias ac_env_CC_set=${CC+set} ac_env_CC_value=$CC ac_cv_env_CC_set=${CC+set} ac_cv_env_CC_value=$CC ac_env_CFLAGS_set=${CFLAGS+set} ac_env_CFLAGS_value=$CFLAGS ac_cv_env_CFLAGS_set=${CFLAGS+set} ac_cv_env_CFLAGS_value=$CFLAGS ac_env_LDFLAGS_set=${LDFLAGS+set} ac_env_LDFLAGS_value=$LDFLAGS ac_cv_env_LDFLAGS_set=${LDFLAGS+set} ac_cv_env_LDFLAGS_value=$LDFLAGS ac_env_CPPFLAGS_set=${CPPFLAGS+set} ac_env_CPPFLAGS_value=$CPPFLAGS ac_cv_env_CPPFLAGS_set=${CPPFLAGS+set} ac_cv_env_CPPFLAGS_value=$CPPFLAGS ac_env_CXX_set=${CXX+set} ac_env_CXX_value=$CXX ac_cv_env_CXX_set=${CXX+set} ac_cv_env_CXX_value=$CXX ac_env_CXXFLAGS_set=${CXXFLAGS+set} ac_env_CXXFLAGS_value=$CXXFLAGS ac_cv_env_CXXFLAGS_set=${CXXFLAGS+set} ac_cv_env_CXXFLAGS_value=$CXXFLAGS ac_env_CPP_set=${CPP+set} ac_env_CPP_value=$CPP ac_cv_env_CPP_set=${CPP+set} ac_cv_env_CPP_value=$CPP ac_env_CXXCPP_set=${CXXCPP+set} ac_env_CXXCPP_value=$CXXCPP ac_cv_env_CXXCPP_set=${CXXCPP+set} ac_cv_env_CXXCPP_value=$CXXCPP ac_env_F77_set=${F77+set} ac_env_F77_value=$F77 ac_cv_env_F77_set=${F77+set} ac_cv_env_F77_value=$F77 ac_env_FFLAGS_set=${FFLAGS+set} ac_env_FFLAGS_value=$FFLAGS ac_cv_env_FFLAGS_set=${FFLAGS+set} ac_cv_env_FFLAGS_value=$FFLAGS # # Report the --help message. # if test "$ac_init_help" = "long"; then # Omit some internal or obsolete options to make the list less imposing. # This message is too long to be a string in the A/UX 3.1 sh. cat <<_ACEOF \`configure' configures this package to adapt to many kinds of systems. Usage: $0 [OPTION]... [VAR=VALUE]... To assign environment variables (e.g., CC, CFLAGS...), specify them as VAR=VALUE. See below for descriptions of some of the useful variables. Defaults for the options are specified in brackets. Configuration: -h, --help display this help and exit --help=short display options specific to this package --help=recursive display the short help of all the included packages -V, --version display version information and exit -q, --quiet, --silent do not print \`checking...' messages --cache-file=FILE cache test results in FILE [disabled] -C, --config-cache alias for \`--cache-file=config.cache' -n, --no-create do not create output files --srcdir=DIR find the sources in DIR [configure dir or \`..'] _ACEOF cat <<_ACEOF Installation directories: --prefix=PREFIX install architecture-independent files in PREFIX [$ac_default_prefix] --exec-prefix=EPREFIX install architecture-dependent files in EPREFIX [PREFIX] By default, \`make install' will install all the files in \`$ac_default_prefix/bin', \`$ac_default_prefix/lib' etc. You can specify an installation prefix other than \`$ac_default_prefix' using \`--prefix', for instance \`--prefix=\$HOME'. For better control, use the options below. Fine tuning of the installation directories: --bindir=DIR user executables [EPREFIX/bin] --sbindir=DIR system admin executables [EPREFIX/sbin] --libexecdir=DIR program executables [EPREFIX/libexec] --datadir=DIR read-only architecture-independent data [PREFIX/share] --sysconfdir=DIR read-only single-machine data [PREFIX/etc] --sharedstatedir=DIR modifiable architecture-independent data [PREFIX/com] --localstatedir=DIR modifiable single-machine data [PREFIX/var] --libdir=DIR object code libraries [EPREFIX/lib] --includedir=DIR C header files [PREFIX/include] --oldincludedir=DIR C header files for non-gcc [/usr/include] --infodir=DIR info documentation [PREFIX/info] --mandir=DIR man documentation [PREFIX/man] _ACEOF cat <<\_ACEOF Program names: --program-prefix=PREFIX prepend PREFIX to installed program names --program-suffix=SUFFIX append SUFFIX to installed program names --program-transform-name=PROGRAM run sed PROGRAM on installed program names System types: --build=BUILD configure for building on BUILD [guessed] --host=HOST cross-compile to build programs to run on HOST [BUILD] _ACEOF fi if test -n "$ac_init_help"; then cat <<\_ACEOF Optional Features: --disable-FEATURE do not include FEATURE (same as --enable-FEATURE=no) --enable-FEATURE[=ARG] include FEATURE [ARG=yes] --disable-dependency-tracking speeds up one-time build --enable-dependency-tracking do not reject slow dependency extractors --enable-shared[=PKGS] build shared libraries [default=yes] --enable-static[=PKGS] build static libraries [default=yes] --enable-fast-install[=PKGS] optimize for fast installation [default=yes] --disable-libtool-lock avoid locking (might break parallel builds) --enable-doc Build the documentation --enable-tests Build the test programs --enable-test-data Build TIFF test files for some ITU test images --enable-mmx Enable MMX support --enable-sse Enable SSE support --enable-sse2 Enable SSE2 support --enable-sse3 Enable SSE3 support --enable-ssse3 Enable SSSE3 support --enable-sse4-1 Enable SSE4.1 support --enable-sse4-2 Enable SSE4.2 support --enable-sse4a Enable SSE4A support --enable-sse5 Enable SSE5 support --enable-fixed-point Enable fixed point support --enable-builtin-tiff build with builtin libtiff Optional Packages: --with-PACKAGE[=ARG] use PACKAGE [ARG=yes] --without-PACKAGE do not use PACKAGE (same as --with-PACKAGE=no) --with-gnu-ld assume the C compiler uses GNU ld [default=no] --with-pic try to use only PIC/non-PIC objects [default=use both] --with-tags[=TAGS] include additional configurations [automatic] Some influential environment variables: CC C compiler command CFLAGS C compiler flags LDFLAGS linker flags, e.g. -L if you have libraries in a nonstandard directory CPPFLAGS C/C++ preprocessor flags, e.g. -I if you have headers in a nonstandard directory CXX C++ compiler command CXXFLAGS C++ compiler flags CPP C preprocessor CXXCPP C++ preprocessor F77 Fortran 77 compiler command FFLAGS Fortran 77 compiler flags Use these variables to override the choices made by `configure' or to help it to find libraries and programs with nonstandard names/locations. _ACEOF fi if test "$ac_init_help" = "recursive"; then # If there are subdirs, report their specific --help. ac_popdir=`pwd` for ac_dir in : $ac_subdirs_all; do test "x$ac_dir" = x: && continue test -d $ac_dir || continue ac_builddir=. if test "$ac_dir" != .; then ac_dir_suffix=/`echo "$ac_dir" | sed 's,^\.[\\/],,'` # A "../" for each directory in $ac_dir_suffix. ac_top_builddir=`echo "$ac_dir_suffix" | sed 's,/[^\\/]*,../,g'` else ac_dir_suffix= ac_top_builddir= fi case $srcdir in .) # No --srcdir option. We are building in place. ac_srcdir=. if test -z "$ac_top_builddir"; then ac_top_srcdir=. else ac_top_srcdir=`echo $ac_top_builddir | sed 's,/$,,'` fi ;; [\\/]* | ?:[\\/]* ) # Absolute path. ac_srcdir=$srcdir$ac_dir_suffix; ac_top_srcdir=$srcdir ;; *) # Relative path. ac_srcdir=$ac_top_builddir$srcdir$ac_dir_suffix ac_top_srcdir=$ac_top_builddir$srcdir ;; esac # Do not use `cd foo && pwd` to compute absolute paths, because # the directories may not exist. case `pwd` in .) ac_abs_builddir="$ac_dir";; *) case "$ac_dir" in .) ac_abs_builddir=`pwd`;; [\\/]* | ?:[\\/]* ) ac_abs_builddir="$ac_dir";; *) ac_abs_builddir=`pwd`/"$ac_dir";; esac;; esac case $ac_abs_builddir in .) ac_abs_top_builddir=${ac_top_builddir}.;; *) case ${ac_top_builddir}. in .) ac_abs_top_builddir=$ac_abs_builddir;; [\\/]* | ?:[\\/]* ) ac_abs_top_builddir=${ac_top_builddir}.;; *) ac_abs_top_builddir=$ac_abs_builddir/${ac_top_builddir}.;; esac;; esac case $ac_abs_builddir in .) ac_abs_srcdir=$ac_srcdir;; *) case $ac_srcdir in .) ac_abs_srcdir=$ac_abs_builddir;; [\\/]* | ?:[\\/]* ) ac_abs_srcdir=$ac_srcdir;; *) ac_abs_srcdir=$ac_abs_builddir/$ac_srcdir;; esac;; esac case $ac_abs_builddir in .) ac_abs_top_srcdir=$ac_top_srcdir;; *) case $ac_top_srcdir in .) ac_abs_top_srcdir=$ac_abs_builddir;; [\\/]* | ?:[\\/]* ) ac_abs_top_srcdir=$ac_top_srcdir;; *) ac_abs_top_srcdir=$ac_abs_builddir/$ac_top_srcdir;; esac;; esac cd $ac_dir # Check for guested configure; otherwise get Cygnus style configure. if test -f $ac_srcdir/configure.gnu; then echo $SHELL $ac_srcdir/configure.gnu --help=recursive elif test -f $ac_srcdir/configure; then echo $SHELL $ac_srcdir/configure --help=recursive elif test -f $ac_srcdir/configure.ac || test -f $ac_srcdir/configure.in; then echo $ac_configure --help else echo "$as_me: WARNING: no configuration information is in $ac_dir" >&2 fi cd $ac_popdir done fi test -n "$ac_init_help" && exit 0 if $ac_init_version; then cat <<\_ACEOF Copyright (C) 2003 Free Software Foundation, Inc. This configure script is free software; the Free Software Foundation gives unlimited permission to copy, distribute and modify it. _ACEOF exit 0 fi exec 5>config.log cat >&5 <<_ACEOF This file contains any messages produced by compilers while running configure, to aid debugging if configure makes a mistake. It was created by $as_me, which was generated by GNU Autoconf 2.59. Invocation command line was $ $0 $@ _ACEOF { cat <<_ASUNAME ## --------- ## ## Platform. ## ## --------- ## hostname = `(hostname || uname -n) 2>/dev/null | sed 1q` uname -m = `(uname -m) 2>/dev/null || echo unknown` uname -r = `(uname -r) 2>/dev/null || echo unknown` uname -s = `(uname -s) 2>/dev/null || echo unknown` uname -v = `(uname -v) 2>/dev/null || echo unknown` /usr/bin/uname -p = `(/usr/bin/uname -p) 2>/dev/null || echo unknown` /bin/uname -X = `(/bin/uname -X) 2>/dev/null || echo unknown` /bin/arch = `(/bin/arch) 2>/dev/null || echo unknown` /usr/bin/arch -k = `(/usr/bin/arch -k) 2>/dev/null || echo unknown` /usr/convex/getsysinfo = `(/usr/convex/getsysinfo) 2>/dev/null || echo unknown` hostinfo = `(hostinfo) 2>/dev/null || echo unknown` /bin/machine = `(/bin/machine) 2>/dev/null || echo unknown` /usr/bin/oslevel = `(/usr/bin/oslevel) 2>/dev/null || echo unknown` /bin/universe = `(/bin/universe) 2>/dev/null || echo unknown` _ASUNAME as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. echo "PATH: $as_dir" done } >&5 cat >&5 <<_ACEOF ## ----------- ## ## Core tests. ## ## ----------- ## _ACEOF # Keep a trace of the command line. # Strip out --no-create and --no-recursion so they do not pile up. # Strip out --silent because we don't want to record it for future runs. # Also quote any args containing shell meta-characters. # Make two passes to allow for proper duplicate-argument suppression. ac_configure_args= ac_configure_args0= ac_configure_args1= ac_sep= ac_must_keep_next=false for ac_pass in 1 2 do for ac_arg do case $ac_arg in -no-create | --no-c* | -n | -no-recursion | --no-r*) continue ;; -q | -quiet | --quiet | --quie | --qui | --qu | --q \ | -silent | --silent | --silen | --sile | --sil) continue ;; *" "*|*" "*|*[\[\]\~\#\$\^\&\*\(\)\{\}\\\|\;\<\>\?\"\']*) ac_arg=`echo "$ac_arg" | sed "s/'/'\\\\\\\\''/g"` ;; esac case $ac_pass in 1) ac_configure_args0="$ac_configure_args0 '$ac_arg'" ;; 2) ac_configure_args1="$ac_configure_args1 '$ac_arg'" if test $ac_must_keep_next = true; then ac_must_keep_next=false # Got value, back to normal. else case $ac_arg in *=* | --config-cache | -C | -disable-* | --disable-* \ | -enable-* | --enable-* | -gas | --g* | -nfp | --nf* \ | -q | -quiet | --q* | -silent | --sil* | -v | -verb* \ | -with-* | --with-* | -without-* | --without-* | --x) case "$ac_configure_args0 " in "$ac_configure_args1"*" '$ac_arg' "* ) continue ;; esac ;; -* ) ac_must_keep_next=true ;; esac fi ac_configure_args="$ac_configure_args$ac_sep'$ac_arg'" # Get rid of the leading space. ac_sep=" " ;; esac done done $as_unset ac_configure_args0 || test "${ac_configure_args0+set}" != set || { ac_configure_args0=; export ac_configure_args0; } $as_unset ac_configure_args1 || test "${ac_configure_args1+set}" != set || { ac_configure_args1=; export ac_configure_args1; } # When interrupted or exit'd, cleanup temporary files, and complete # config.log. We remove comments because anyway the quotes in there # would cause problems or look ugly. # WARNING: Be sure not to use single quotes in there, as some shells, # such as our DU 5.0 friend, will then `close' the trap. trap 'exit_status=$? # Save into config.log some information that might help in debugging. { echo cat <<\_ASBOX ## ---------------- ## ## Cache variables. ## ## ---------------- ## _ASBOX echo # The following way of writing the cache mishandles newlines in values, { (set) 2>&1 | case `(ac_space='"'"' '"'"'; set | grep ac_space) 2>&1` in *ac_space=\ *) sed -n \ "s/'"'"'/'"'"'\\\\'"'"''"'"'/g; s/^\\([_$as_cr_alnum]*_cv_[_$as_cr_alnum]*\\)=\\(.*\\)/\\1='"'"'\\2'"'"'/p" ;; *) sed -n \ "s/^\\([_$as_cr_alnum]*_cv_[_$as_cr_alnum]*\\)=\\(.*\\)/\\1=\\2/p" ;; esac; } echo cat <<\_ASBOX ## ----------------- ## ## Output variables. ## ## ----------------- ## _ASBOX echo for ac_var in $ac_subst_vars do eval ac_val=$`echo $ac_var` echo "$ac_var='"'"'$ac_val'"'"'" done | sort echo if test -n "$ac_subst_files"; then cat <<\_ASBOX ## ------------- ## ## Output files. ## ## ------------- ## _ASBOX echo for ac_var in $ac_subst_files do eval ac_val=$`echo $ac_var` echo "$ac_var='"'"'$ac_val'"'"'" done | sort echo fi if test -s confdefs.h; then cat <<\_ASBOX ## ----------- ## ## confdefs.h. ## ## ----------- ## _ASBOX echo sed "/^$/d" confdefs.h | sort echo fi test "$ac_signal" != 0 && echo "$as_me: caught signal $ac_signal" echo "$as_me: exit $exit_status" } >&5 rm -f core *.core && rm -rf conftest* confdefs* conf$$* $ac_clean_files && exit $exit_status ' 0 for ac_signal in 1 2 13 15; do trap 'ac_signal='$ac_signal'; { (exit 1); exit 1; }' $ac_signal done ac_signal=0 # confdefs.h avoids OS command line length limits that DEFS can exceed. rm -rf conftest* confdefs.h # AIX cpp loses on an empty file, so make sure it contains at least a newline. echo >confdefs.h # Predefined preprocessor variables. cat >>confdefs.h <<_ACEOF #define PACKAGE_NAME "$PACKAGE_NAME" _ACEOF cat >>confdefs.h <<_ACEOF #define PACKAGE_TARNAME "$PACKAGE_TARNAME" _ACEOF cat >>confdefs.h <<_ACEOF #define PACKAGE_VERSION "$PACKAGE_VERSION" _ACEOF cat >>confdefs.h <<_ACEOF #define PACKAGE_STRING "$PACKAGE_STRING" _ACEOF cat >>confdefs.h <<_ACEOF #define PACKAGE_BUGREPORT "$PACKAGE_BUGREPORT" _ACEOF # Let the site file select an alternate cache file if it wants to. # Prefer explicitly selected file to automatically selected ones. if test -z "$CONFIG_SITE"; then if test "x$prefix" != xNONE; then CONFIG_SITE="$prefix/share/config.site $prefix/etc/config.site" else CONFIG_SITE="$ac_default_prefix/share/config.site $ac_default_prefix/etc/config.site" fi fi for ac_site_file in $CONFIG_SITE; do if test -r "$ac_site_file"; then { echo "$as_me:$LINENO: loading site script $ac_site_file" >&5 echo "$as_me: loading site script $ac_site_file" >&6;} sed 's/^/| /' "$ac_site_file" >&5 . "$ac_site_file" fi done if test -r "$cache_file"; then # Some versions of bash will fail to source /dev/null (special # files actually), so we avoid doing that. if test -f "$cache_file"; then { echo "$as_me:$LINENO: loading cache $cache_file" >&5 echo "$as_me: loading cache $cache_file" >&6;} case $cache_file in [\\/]* | ?:[\\/]* ) . $cache_file;; *) . ./$cache_file;; esac fi else { echo "$as_me:$LINENO: creating cache $cache_file" >&5 echo "$as_me: creating cache $cache_file" >&6;} >$cache_file fi # Check that the precious variables saved in the cache have kept the same # value. ac_cache_corrupted=false for ac_var in `(set) 2>&1 | sed -n 's/^ac_env_\([a-zA-Z_0-9]*\)_set=.*/\1/p'`; do eval ac_old_set=\$ac_cv_env_${ac_var}_set eval ac_new_set=\$ac_env_${ac_var}_set eval ac_old_val="\$ac_cv_env_${ac_var}_value" eval ac_new_val="\$ac_env_${ac_var}_value" case $ac_old_set,$ac_new_set in set,) { echo "$as_me:$LINENO: error: \`$ac_var' was set to \`$ac_old_val' in the previous run" >&5 echo "$as_me: error: \`$ac_var' was set to \`$ac_old_val' in the previous run" >&2;} ac_cache_corrupted=: ;; ,set) { echo "$as_me:$LINENO: error: \`$ac_var' was not set in the previous run" >&5 echo "$as_me: error: \`$ac_var' was not set in the previous run" >&2;} ac_cache_corrupted=: ;; ,);; *) if test "x$ac_old_val" != "x$ac_new_val"; then { echo "$as_me:$LINENO: error: \`$ac_var' has changed since the previous run:" >&5 echo "$as_me: error: \`$ac_var' has changed since the previous run:" >&2;} { echo "$as_me:$LINENO: former value: $ac_old_val" >&5 echo "$as_me: former value: $ac_old_val" >&2;} { echo "$as_me:$LINENO: current value: $ac_new_val" >&5 echo "$as_me: current value: $ac_new_val" >&2;} ac_cache_corrupted=: fi;; esac # Pass precious variables to config.status. if test "$ac_new_set" = set; then case $ac_new_val in *" "*|*" "*|*[\[\]\~\#\$\^\&\*\(\)\{\}\\\|\;\<\>\?\"\']*) ac_arg=$ac_var=`echo "$ac_new_val" | sed "s/'/'\\\\\\\\''/g"` ;; *) ac_arg=$ac_var=$ac_new_val ;; esac case " $ac_configure_args " in *" '$ac_arg' "*) ;; # Avoid dups. Use of quotes ensures accuracy. *) ac_configure_args="$ac_configure_args '$ac_arg'" ;; esac fi done if $ac_cache_corrupted; then { echo "$as_me:$LINENO: error: changes in the environment can compromise the build" >&5 echo "$as_me: error: changes in the environment can compromise the build" >&2;} { { echo "$as_me:$LINENO: error: run \`make distclean' and/or \`rm $cache_file' and start over" >&5 echo "$as_me: error: run \`make distclean' and/or \`rm $cache_file' and start over" >&2;} { (exit 1); exit 1; }; } fi ac_ext=c ac_cpp='$CPP $CPPFLAGS' ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' ac_compiler_gnu=$ac_cv_c_compiler_gnu # =========================================================================== # http://autoconf-archive.cryp.to/ax_compiler_vendor.html # =========================================================================== # # SYNOPSIS # # AX_COMPILER_VENDOR # # DESCRIPTION # # Determine the vendor of the C/C++ compiler, e.g., gnu, intel, ibm, sun, # hp, borland, comeau, dec, cray, kai, lcc, metrowerks, sgi, microsoft, # watcom, etc. The vendor is returned in the cache variable # $ax_cv_c_compiler_vendor for C and $ax_cv_cxx_compiler_vendor for C++. # # LAST MODIFICATION # # 2008-04-12 # # COPYLEFT # # Copyright (c) 2008 Steven G. Johnson # Copyright (c) 2008 Matteo Frigo # # This program is free software: you can redistribute it and/or modify it # under the terms of the GNU General Public License as published by the # Free Software Foundation, either version 3 of the License, or (at your # option) any later version. # # This program is distributed in the hope that it will be useful, but # WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General # Public License for more details. # # You should have received a copy of the GNU General Public License along # with this program. If not, see . # # As a special exception, the respective Autoconf Macro's copyright owner # gives unlimited permission to copy, distribute and modify the configure # scripts that are the output of Autoconf when processing the Macro. You # need not follow the terms of the GNU General Public License when using # or distributing such scripts, even though portions of the text of the # Macro appear in them. The GNU General Public License (GPL) does govern # all other use of the material that constitutes the Autoconf Macro. # # This special exception to the GPL applies to versions of the Autoconf # Macro released by the Autoconf Macro Archive. When you make and # distribute a modified version of the Autoconf Macro, you may extend this # special exception to the GPL to apply to your modified version as well. # AX_CHECK_REAL_FILE(FILE, [ACTION-IF-FOUND], [ACTION-IF-NOT-FOUND]) # ------------------------------------------------------------------ # # Check for the existence of FILE, and make sure it is a real file or # directory, and not a symbolic link. # # AX_CHECK_REAL_FILE # AX_FIXED_POINT_MACHINE(MACHINE, [ACTION-IF-FIXED-POINT], [ACTION-IF-NOT-FIXED-POINT]) # ------------------------------------------------------------------------------------- # # Check if a specified machine type is a fixed point only machine. That is, if it lacks # fast floating point support. # # This is a simple lookup amongst machines known to the current autotools. So far we deal # with the embedded ARM, Blackfin, MIPS, TI DSP and XScale processors as things which lack # fast hardware floating point. # # Other candidates would be the small embedded Power PCs. # # AX_FIXED_POINT_MACHINE # AX_MISALIGNED_ACCESS_FAILS(MACHINE, [ACTION-IF-MISALIGNED-FAILS], [ACTION-IF-MISALIGNED-OK]) # ------------------------------------------------------------------------------------- # # Check if a specified machine type cannot handle misaligned data. That is, multi-byte data # types which are not properly aligned in memory fail. Many machines are happy to work with # misaligned data, but slowing down a bit. Other machines just won't tolerate such data. # # This is a simple lookup amongst machines known to the current autotools. So far we only deal # with the ARM and sparc. # A lookup is used, as many of the devices which cannot handled misaligned access are embedded # processors, for which the code normally be cross-compiled. # # MISALIGNED_ACCESS_FAILS # @synopsis AX_C99_FLEXIBLE_ARRAY # # Does the compiler support the 1999 ISO C Standard "struct hack". # @version 1.1 Mar 15 2004 # @author Erik de Castro Lopo # # Permission to use, copy, modify, distribute, and sell this file for any # purpose is hereby granted without fee, provided that the above copyright # and this permission notice appear in all copies. No representations are # made about the suitability of this software for any purpose. It is # provided "as is" without express or implied warranty. # AX_C99_FLEXIBLE_ARRAY # @synopsis AX_C99_FUNC_LRINT # # Check whether C99's lrint function is available. # @version 1.3 Feb 12 2002 # @author Erik de Castro Lopo # # Permission to use, copy, modify, distribute, and sell this file for any # purpose is hereby granted without fee, provided that the above copyright # and this permission notice appear in all copies. No representations are # made about the suitability of this software for any purpose. It is # provided "as is" without express or implied warranty. # # AX_C99_FUNC_LRINT # @synopsis AX_C99_FUNC_LRINTF # # Check whether C99's lrintf function is available. # @version 1.3 Feb 12 2002 # @author Erik de Castro Lopo # # Permission to use, copy, modify, distribute, and sell this file for any # purpose is hereby granted without fee, provided that the above copyright # and this permission notice appear in all copies. No representations are # made about the suitability of this software for any purpose. It is # provided "as is" without express or implied warranty. # # AX_C99_FUNC_LRINTF # @synopsis AX_C99_FUNC_LLRINT # # Check whether C99's llrint function is available. # @version 1.1 Sep 30 2002 # @author Erik de Castro Lopo # # Permission to use, copy, modify, distribute, and sell this file for any # purpose is hereby granted without fee, provided that the above copyright # and this permission notice appear in all copies. No representations are # made about the suitability of this software for any purpose. It is # provided "as is" without express or implied warranty. # # AX_C99_FUNC_LLRINT # @synopsis AX_C99_FUNC_LLRINTF # # Check whether C99's llrintf function is available. # @version 1.1 Sep 30 2002 # @author Erik de Castro Lopo # # Permission to use, copy, modify, distribute, and sell this file for any # purpose is hereby granted without fee, provided that the above copyright # and this permission notice appear in all copies. No representations are # made about the suitability of this software for any purpose. It is # provided "as is" without express or implied warranty. # # AX_C99_FUNC_LLRINTF # @synopsis AX_CHECK_EXPORT_CAPABILITY # # Does the compiler support the exporting of library symbols? # @version 1.0 Jan 31 2009 # @author Steve Underwood # # Permission to use, copy, modify, distribute, and sell this file for any # purpose is hereby granted without fee, provided that the above copyright # and this permission notice appear in all copies. No representations are # made about the suitability of this software for any purpose. It is # provided "as is" without express or implied warranty. # AX_CHECK_EXPORT_CAPABILITY SPANDSP_MAJOR_VERSION=0 SPANDSP_MINOR_VERSION=0 SPANDSP_MICRO_VERSION=6 SPANDSP_LT_CURRENT=2 SPANDSP_LT_REVISION=0 SPANDSP_LT_AGE=0 VERSION=$SPANDSP_MAJOR_VERSION.$SPANDSP_MINOR_VERSION.$SPANDSP_MICRO_VERSION PACKAGE=spandsp ac_aux_dir= for ac_dir in config $srcdir/config; do if test -f $ac_dir/install-sh; then ac_aux_dir=$ac_dir ac_install_sh="$ac_aux_dir/install-sh -c" break elif test -f $ac_dir/install.sh; then ac_aux_dir=$ac_dir ac_install_sh="$ac_aux_dir/install.sh -c" break elif test -f $ac_dir/shtool; then ac_aux_dir=$ac_dir ac_install_sh="$ac_aux_dir/shtool install -c" break fi done if test -z "$ac_aux_dir"; then { { echo "$as_me:$LINENO: error: cannot find install-sh or install.sh in config $srcdir/config" >&5 echo "$as_me: error: cannot find install-sh or install.sh in config $srcdir/config" >&2;} { (exit 1); exit 1; }; } fi ac_config_guess="$SHELL $ac_aux_dir/config.guess" ac_config_sub="$SHELL $ac_aux_dir/config.sub" ac_configure="$SHELL $ac_aux_dir/configure" # This should be Cygnus configure. ac_config_headers="$ac_config_headers src/config.h:config-h.in" am__api_version="1.9" # Find a good install program. We prefer a C program (faster), # so one script is as good as another. But avoid the broken or # incompatible versions: # SysV /etc/install, /usr/sbin/install # SunOS /usr/etc/install # IRIX /sbin/install # AIX /bin/install # AmigaOS /C/install, which installs bootblocks on floppy discs # AIX 4 /usr/bin/installbsd, which doesn't work without a -g flag # AFS /usr/afsws/bin/install, which mishandles nonexistent args # SVR4 /usr/ucb/install, which tries to use the nonexistent group "staff" # OS/2's system install, which has a completely different semantic # ./install, which can be erroneously created by make from ./install.sh. echo "$as_me:$LINENO: checking for a BSD-compatible install" >&5 echo $ECHO_N "checking for a BSD-compatible install... $ECHO_C" >&6 if test -z "$INSTALL"; then if test "${ac_cv_path_install+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. # Account for people who put trailing slashes in PATH elements. case $as_dir/ in ./ | .// | /cC/* | \ /etc/* | /usr/sbin/* | /usr/etc/* | /sbin/* | /usr/afsws/bin/* | \ ?:\\/os2\\/install\\/* | ?:\\/OS2\\/INSTALL\\/* | \ /usr/ucb/* ) ;; *) # OSF1 and SCO ODT 3.0 have their own names for install. # Don't use installbsd from OSF since it installs stuff as root # by default. for ac_prog in ginstall scoinst install; do for ac_exec_ext in '' $ac_executable_extensions; do if $as_executable_p "$as_dir/$ac_prog$ac_exec_ext"; then if test $ac_prog = install && grep dspmsg "$as_dir/$ac_prog$ac_exec_ext" >/dev/null 2>&1; then # AIX install. It has an incompatible calling convention. : elif test $ac_prog = install && grep pwplus "$as_dir/$ac_prog$ac_exec_ext" >/dev/null 2>&1; then # program-specific install script used by HP pwplus--don't use. : else ac_cv_path_install="$as_dir/$ac_prog$ac_exec_ext -c" break 3 fi fi done done ;; esac done fi if test "${ac_cv_path_install+set}" = set; then INSTALL=$ac_cv_path_install else # As a last resort, use the slow shell script. We don't cache a # path for INSTALL within a source directory, because that will # break other packages using the cache if that directory is # removed, or if the path is relative. INSTALL=$ac_install_sh fi fi echo "$as_me:$LINENO: result: $INSTALL" >&5 echo "${ECHO_T}$INSTALL" >&6 # Use test -z because SunOS4 sh mishandles braces in ${var-val}. # It thinks the first close brace ends the variable substitution. test -z "$INSTALL_PROGRAM" && INSTALL_PROGRAM='${INSTALL}' test -z "$INSTALL_SCRIPT" && INSTALL_SCRIPT='${INSTALL}' test -z "$INSTALL_DATA" && INSTALL_DATA='${INSTALL} -m 644' echo "$as_me:$LINENO: checking whether build environment is sane" >&5 echo $ECHO_N "checking whether build environment is sane... $ECHO_C" >&6 # Just in case sleep 1 echo timestamp > conftest.file # Do `set' in a subshell so we don't clobber the current shell's # arguments. Must try -L first in case configure is actually a # symlink; some systems play weird games with the mod time of symlinks # (eg FreeBSD returns the mod time of the symlink's containing # directory). if ( set X `ls -Lt $srcdir/configure conftest.file 2> /dev/null` if test "$*" = "X"; then # -L didn't work. set X `ls -t $srcdir/configure conftest.file` fi rm -f conftest.file if test "$*" != "X $srcdir/configure conftest.file" \ && test "$*" != "X conftest.file $srcdir/configure"; then # If neither matched, then we have a broken ls. This can happen # if, for instance, CONFIG_SHELL is bash and it inherits a # broken ls alias from the environment. This has actually # happened. Such a system could not be considered "sane". { { echo "$as_me:$LINENO: error: ls -t appears to fail. Make sure there is not a broken alias in your environment" >&5 echo "$as_me: error: ls -t appears to fail. Make sure there is not a broken alias in your environment" >&2;} { (exit 1); exit 1; }; } fi test "$2" = conftest.file ) then # Ok. : else { { echo "$as_me:$LINENO: error: newly created file is older than distributed files! Check your system clock" >&5 echo "$as_me: error: newly created file is older than distributed files! Check your system clock" >&2;} { (exit 1); exit 1; }; } fi echo "$as_me:$LINENO: result: yes" >&5 echo "${ECHO_T}yes" >&6 test "$program_prefix" != NONE && program_transform_name="s,^,$program_prefix,;$program_transform_name" # Use a double $ so make ignores it. test "$program_suffix" != NONE && program_transform_name="s,\$,$program_suffix,;$program_transform_name" # Double any \ or $. echo might interpret backslashes. # By default was `s,x,x', remove it if useless. cat <<\_ACEOF >conftest.sed s/[\\$]/&&/g;s/;s,x,x,$// _ACEOF program_transform_name=`echo $program_transform_name | sed -f conftest.sed` rm conftest.sed # expand $ac_aux_dir to an absolute path am_aux_dir=`cd $ac_aux_dir && pwd` test x"${MISSING+set}" = xset || MISSING="\${SHELL} $am_aux_dir/missing" # Use eval to expand $SHELL if eval "$MISSING --run true"; then am_missing_run="$MISSING --run " else am_missing_run= { echo "$as_me:$LINENO: WARNING: \`missing' script is too old or missing" >&5 echo "$as_me: WARNING: \`missing' script is too old or missing" >&2;} fi if mkdir -p --version . >/dev/null 2>&1 && test ! -d ./--version; then # We used to keeping the `.' as first argument, in order to # allow $(mkdir_p) to be used without argument. As in # $(mkdir_p) $(somedir) # where $(somedir) is conditionally defined. However this is wrong # for two reasons: # 1. if the package is installed by a user who cannot write `.' # make install will fail, # 2. the above comment should most certainly read # $(mkdir_p) $(DESTDIR)$(somedir) # so it does not work when $(somedir) is undefined and # $(DESTDIR) is not. # To support the latter case, we have to write # test -z "$(somedir)" || $(mkdir_p) $(DESTDIR)$(somedir), # so the `.' trick is pointless. mkdir_p='mkdir -p --' else # On NextStep and OpenStep, the `mkdir' command does not # recognize any option. It will interpret all options as # directories to create, and then abort because `.' already # exists. for d in ./-p ./--version; do test -d $d && rmdir $d done # $(mkinstalldirs) is defined by Automake if mkinstalldirs exists. if test -f "$ac_aux_dir/mkinstalldirs"; then mkdir_p='$(mkinstalldirs)' else mkdir_p='$(install_sh) -d' fi fi for ac_prog in gawk mawk nawk awk do # Extract the first word of "$ac_prog", so it can be a program name with args. set dummy $ac_prog; ac_word=$2 echo "$as_me:$LINENO: checking for $ac_word" >&5 echo $ECHO_N "checking for $ac_word... $ECHO_C" >&6 if test "${ac_cv_prog_AWK+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else if test -n "$AWK"; then ac_cv_prog_AWK="$AWK" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if $as_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_AWK="$ac_prog" echo "$as_me:$LINENO: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done fi fi AWK=$ac_cv_prog_AWK if test -n "$AWK"; then echo "$as_me:$LINENO: result: $AWK" >&5 echo "${ECHO_T}$AWK" >&6 else echo "$as_me:$LINENO: result: no" >&5 echo "${ECHO_T}no" >&6 fi test -n "$AWK" && break done echo "$as_me:$LINENO: checking whether ${MAKE-make} sets \$(MAKE)" >&5 echo $ECHO_N "checking whether ${MAKE-make} sets \$(MAKE)... $ECHO_C" >&6 set dummy ${MAKE-make}; ac_make=`echo "$2" | sed 'y,:./+-,___p_,'` if eval "test \"\${ac_cv_prog_make_${ac_make}_set+set}\" = set"; then echo $ECHO_N "(cached) $ECHO_C" >&6 else cat >conftest.make <<\_ACEOF all: @echo 'ac_maketemp="$(MAKE)"' _ACEOF # GNU make sometimes prints "make[1]: Entering...", which would confuse us. eval `${MAKE-make} -f conftest.make 2>/dev/null | grep temp=` if test -n "$ac_maketemp"; then eval ac_cv_prog_make_${ac_make}_set=yes else eval ac_cv_prog_make_${ac_make}_set=no fi rm -f conftest.make fi if eval "test \"`echo '$ac_cv_prog_make_'${ac_make}_set`\" = yes"; then echo "$as_me:$LINENO: result: yes" >&5 echo "${ECHO_T}yes" >&6 SET_MAKE= else echo "$as_me:$LINENO: result: no" >&5 echo "${ECHO_T}no" >&6 SET_MAKE="MAKE=${MAKE-make}" fi rm -rf .tst 2>/dev/null mkdir .tst 2>/dev/null if test -d .tst; then am__leading_dot=. else am__leading_dot=_ fi rmdir .tst 2>/dev/null # test to see if srcdir already configured if test "`cd $srcdir && pwd`" != "`pwd`" && test -f $srcdir/config.status; then { { echo "$as_me:$LINENO: error: source directory already configured; run \"make distclean\" there first" >&5 echo "$as_me: error: source directory already configured; run \"make distclean\" there first" >&2;} { (exit 1); exit 1; }; } fi # test whether we have cygpath if test -z "$CYGPATH_W"; then if (cygpath --version) >/dev/null 2>/dev/null; then CYGPATH_W='cygpath -w' else CYGPATH_W=echo fi fi # Define the identity of the package. PACKAGE=$PACKAGE VERSION=$VERSION cat >>confdefs.h <<_ACEOF #define PACKAGE "$PACKAGE" _ACEOF cat >>confdefs.h <<_ACEOF #define VERSION "$VERSION" _ACEOF # Some tools Automake needs. ACLOCAL=${ACLOCAL-"${am_missing_run}aclocal-${am__api_version}"} AUTOCONF=${AUTOCONF-"${am_missing_run}autoconf"} AUTOMAKE=${AUTOMAKE-"${am_missing_run}automake-${am__api_version}"} AUTOHEADER=${AUTOHEADER-"${am_missing_run}autoheader"} MAKEINFO=${MAKEINFO-"${am_missing_run}makeinfo"} install_sh=${install_sh-"$am_aux_dir/install-sh"} # Installed binaries are usually stripped using `strip' when the user # run `make install-strip'. However `strip' might not be the right # tool to use in cross-compilation environments, therefore Automake # will honor the `STRIP' environment variable to overrule this program. if test "$cross_compiling" != no; then if test -n "$ac_tool_prefix"; then # Extract the first word of "${ac_tool_prefix}strip", so it can be a program name with args. set dummy ${ac_tool_prefix}strip; ac_word=$2 echo "$as_me:$LINENO: checking for $ac_word" >&5 echo $ECHO_N "checking for $ac_word... $ECHO_C" >&6 if test "${ac_cv_prog_STRIP+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else if test -n "$STRIP"; then ac_cv_prog_STRIP="$STRIP" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if $as_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_STRIP="${ac_tool_prefix}strip" echo "$as_me:$LINENO: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done fi fi STRIP=$ac_cv_prog_STRIP if test -n "$STRIP"; then echo "$as_me:$LINENO: result: $STRIP" >&5 echo "${ECHO_T}$STRIP" >&6 else echo "$as_me:$LINENO: result: no" >&5 echo "${ECHO_T}no" >&6 fi fi if test -z "$ac_cv_prog_STRIP"; then ac_ct_STRIP=$STRIP # Extract the first word of "strip", so it can be a program name with args. set dummy strip; ac_word=$2 echo "$as_me:$LINENO: checking for $ac_word" >&5 echo $ECHO_N "checking for $ac_word... $ECHO_C" >&6 if test "${ac_cv_prog_ac_ct_STRIP+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else if test -n "$ac_ct_STRIP"; then ac_cv_prog_ac_ct_STRIP="$ac_ct_STRIP" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if $as_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_ac_ct_STRIP="strip" echo "$as_me:$LINENO: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done test -z "$ac_cv_prog_ac_ct_STRIP" && ac_cv_prog_ac_ct_STRIP=":" fi fi ac_ct_STRIP=$ac_cv_prog_ac_ct_STRIP if test -n "$ac_ct_STRIP"; then echo "$as_me:$LINENO: result: $ac_ct_STRIP" >&5 echo "${ECHO_T}$ac_ct_STRIP" >&6 else echo "$as_me:$LINENO: result: no" >&5 echo "${ECHO_T}no" >&6 fi STRIP=$ac_ct_STRIP else STRIP="$ac_cv_prog_STRIP" fi fi INSTALL_STRIP_PROGRAM="\${SHELL} \$(install_sh) -c -s" # We need awk for the "check" target. The system "awk" is bad on # some platforms. # Always define AMTAR for backward compatibility. AMTAR=${AMTAR-"${am_missing_run}tar"} am__tar='${AMTAR} chof - "$$tardir"'; am__untar='${AMTAR} xf -' # Make sure we can run config.sub. $ac_config_sub sun4 >/dev/null 2>&1 || { { echo "$as_me:$LINENO: error: cannot run $ac_config_sub" >&5 echo "$as_me: error: cannot run $ac_config_sub" >&2;} { (exit 1); exit 1; }; } echo "$as_me:$LINENO: checking build system type" >&5 echo $ECHO_N "checking build system type... $ECHO_C" >&6 if test "${ac_cv_build+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else ac_cv_build_alias=$build_alias test -z "$ac_cv_build_alias" && ac_cv_build_alias=`$ac_config_guess` test -z "$ac_cv_build_alias" && { { echo "$as_me:$LINENO: error: cannot guess build type; you must specify one" >&5 echo "$as_me: error: cannot guess build type; you must specify one" >&2;} { (exit 1); exit 1; }; } ac_cv_build=`$ac_config_sub $ac_cv_build_alias` || { { echo "$as_me:$LINENO: error: $ac_config_sub $ac_cv_build_alias failed" >&5 echo "$as_me: error: $ac_config_sub $ac_cv_build_alias failed" >&2;} { (exit 1); exit 1; }; } fi echo "$as_me:$LINENO: result: $ac_cv_build" >&5 echo "${ECHO_T}$ac_cv_build" >&6 build=$ac_cv_build build_cpu=`echo $ac_cv_build | sed 's/^\([^-]*\)-\([^-]*\)-\(.*\)$/\1/'` build_vendor=`echo $ac_cv_build | sed 's/^\([^-]*\)-\([^-]*\)-\(.*\)$/\2/'` build_os=`echo $ac_cv_build | sed 's/^\([^-]*\)-\([^-]*\)-\(.*\)$/\3/'` echo "$as_me:$LINENO: checking host system type" >&5 echo $ECHO_N "checking host system type... $ECHO_C" >&6 if test "${ac_cv_host+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else ac_cv_host_alias=$host_alias test -z "$ac_cv_host_alias" && ac_cv_host_alias=$ac_cv_build_alias ac_cv_host=`$ac_config_sub $ac_cv_host_alias` || { { echo "$as_me:$LINENO: error: $ac_config_sub $ac_cv_host_alias failed" >&5 echo "$as_me: error: $ac_config_sub $ac_cv_host_alias failed" >&2;} { (exit 1); exit 1; }; } fi echo "$as_me:$LINENO: result: $ac_cv_host" >&5 echo "${ECHO_T}$ac_cv_host" >&6 host=$ac_cv_host host_cpu=`echo $ac_cv_host | sed 's/^\([^-]*\)-\([^-]*\)-\(.*\)$/\1/'` host_vendor=`echo $ac_cv_host | sed 's/^\([^-]*\)-\([^-]*\)-\(.*\)$/\2/'` host_os=`echo $ac_cv_host | sed 's/^\([^-]*\)-\([^-]*\)-\(.*\)$/\3/'` #AC_CANONICAL_BUILD ac_ext=c ac_cpp='$CPP $CPPFLAGS' ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' ac_compiler_gnu=$ac_cv_c_compiler_gnu if test -n "$ac_tool_prefix"; then # Extract the first word of "${ac_tool_prefix}gcc", so it can be a program name with args. set dummy ${ac_tool_prefix}gcc; ac_word=$2 echo "$as_me:$LINENO: checking for $ac_word" >&5 echo $ECHO_N "checking for $ac_word... $ECHO_C" >&6 if test "${ac_cv_prog_CC+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else if test -n "$CC"; then ac_cv_prog_CC="$CC" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if $as_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_CC="${ac_tool_prefix}gcc" echo "$as_me:$LINENO: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done fi fi CC=$ac_cv_prog_CC if test -n "$CC"; then echo "$as_me:$LINENO: result: $CC" >&5 echo "${ECHO_T}$CC" >&6 else echo "$as_me:$LINENO: result: no" >&5 echo "${ECHO_T}no" >&6 fi fi if test -z "$ac_cv_prog_CC"; then ac_ct_CC=$CC # Extract the first word of "gcc", so it can be a program name with args. set dummy gcc; ac_word=$2 echo "$as_me:$LINENO: checking for $ac_word" >&5 echo $ECHO_N "checking for $ac_word... $ECHO_C" >&6 if test "${ac_cv_prog_ac_ct_CC+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else if test -n "$ac_ct_CC"; then ac_cv_prog_ac_ct_CC="$ac_ct_CC" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if $as_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_ac_ct_CC="gcc" echo "$as_me:$LINENO: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done fi fi ac_ct_CC=$ac_cv_prog_ac_ct_CC if test -n "$ac_ct_CC"; then echo "$as_me:$LINENO: result: $ac_ct_CC" >&5 echo "${ECHO_T}$ac_ct_CC" >&6 else echo "$as_me:$LINENO: result: no" >&5 echo "${ECHO_T}no" >&6 fi CC=$ac_ct_CC else CC="$ac_cv_prog_CC" fi if test -z "$CC"; then if test -n "$ac_tool_prefix"; then # Extract the first word of "${ac_tool_prefix}cc", so it can be a program name with args. set dummy ${ac_tool_prefix}cc; ac_word=$2 echo "$as_me:$LINENO: checking for $ac_word" >&5 echo $ECHO_N "checking for $ac_word... $ECHO_C" >&6 if test "${ac_cv_prog_CC+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else if test -n "$CC"; then ac_cv_prog_CC="$CC" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if $as_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_CC="${ac_tool_prefix}cc" echo "$as_me:$LINENO: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done fi fi CC=$ac_cv_prog_CC if test -n "$CC"; then echo "$as_me:$LINENO: result: $CC" >&5 echo "${ECHO_T}$CC" >&6 else echo "$as_me:$LINENO: result: no" >&5 echo "${ECHO_T}no" >&6 fi fi if test -z "$ac_cv_prog_CC"; then ac_ct_CC=$CC # Extract the first word of "cc", so it can be a program name with args. set dummy cc; ac_word=$2 echo "$as_me:$LINENO: checking for $ac_word" >&5 echo $ECHO_N "checking for $ac_word... $ECHO_C" >&6 if test "${ac_cv_prog_ac_ct_CC+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else if test -n "$ac_ct_CC"; then ac_cv_prog_ac_ct_CC="$ac_ct_CC" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if $as_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_ac_ct_CC="cc" echo "$as_me:$LINENO: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done fi fi ac_ct_CC=$ac_cv_prog_ac_ct_CC if test -n "$ac_ct_CC"; then echo "$as_me:$LINENO: result: $ac_ct_CC" >&5 echo "${ECHO_T}$ac_ct_CC" >&6 else echo "$as_me:$LINENO: result: no" >&5 echo "${ECHO_T}no" >&6 fi CC=$ac_ct_CC else CC="$ac_cv_prog_CC" fi fi if test -z "$CC"; then # Extract the first word of "cc", so it can be a program name with args. set dummy cc; ac_word=$2 echo "$as_me:$LINENO: checking for $ac_word" >&5 echo $ECHO_N "checking for $ac_word... $ECHO_C" >&6 if test "${ac_cv_prog_CC+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else if test -n "$CC"; then ac_cv_prog_CC="$CC" # Let the user override the test. else ac_prog_rejected=no as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if $as_executable_p "$as_dir/$ac_word$ac_exec_ext"; then if test "$as_dir/$ac_word$ac_exec_ext" = "/usr/ucb/cc"; then ac_prog_rejected=yes continue fi ac_cv_prog_CC="cc" echo "$as_me:$LINENO: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done if test $ac_prog_rejected = yes; then # We found a bogon in the path, so make sure we never use it. set dummy $ac_cv_prog_CC shift if test $# != 0; then # We chose a different compiler from the bogus one. # However, it has the same basename, so the bogon will be chosen # first if we set CC to just the basename; use the full file name. shift ac_cv_prog_CC="$as_dir/$ac_word${1+' '}$@" fi fi fi fi CC=$ac_cv_prog_CC if test -n "$CC"; then echo "$as_me:$LINENO: result: $CC" >&5 echo "${ECHO_T}$CC" >&6 else echo "$as_me:$LINENO: result: no" >&5 echo "${ECHO_T}no" >&6 fi fi if test -z "$CC"; then if test -n "$ac_tool_prefix"; then for ac_prog in cl do # Extract the first word of "$ac_tool_prefix$ac_prog", so it can be a program name with args. set dummy $ac_tool_prefix$ac_prog; ac_word=$2 echo "$as_me:$LINENO: checking for $ac_word" >&5 echo $ECHO_N "checking for $ac_word... $ECHO_C" >&6 if test "${ac_cv_prog_CC+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else if test -n "$CC"; then ac_cv_prog_CC="$CC" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if $as_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_CC="$ac_tool_prefix$ac_prog" echo "$as_me:$LINENO: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done fi fi CC=$ac_cv_prog_CC if test -n "$CC"; then echo "$as_me:$LINENO: result: $CC" >&5 echo "${ECHO_T}$CC" >&6 else echo "$as_me:$LINENO: result: no" >&5 echo "${ECHO_T}no" >&6 fi test -n "$CC" && break done fi if test -z "$CC"; then ac_ct_CC=$CC for ac_prog in cl do # Extract the first word of "$ac_prog", so it can be a program name with args. set dummy $ac_prog; ac_word=$2 echo "$as_me:$LINENO: checking for $ac_word" >&5 echo $ECHO_N "checking for $ac_word... $ECHO_C" >&6 if test "${ac_cv_prog_ac_ct_CC+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else if test -n "$ac_ct_CC"; then ac_cv_prog_ac_ct_CC="$ac_ct_CC" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if $as_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_ac_ct_CC="$ac_prog" echo "$as_me:$LINENO: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done fi fi ac_ct_CC=$ac_cv_prog_ac_ct_CC if test -n "$ac_ct_CC"; then echo "$as_me:$LINENO: result: $ac_ct_CC" >&5 echo "${ECHO_T}$ac_ct_CC" >&6 else echo "$as_me:$LINENO: result: no" >&5 echo "${ECHO_T}no" >&6 fi test -n "$ac_ct_CC" && break done CC=$ac_ct_CC fi fi test -z "$CC" && { { echo "$as_me:$LINENO: error: no acceptable C compiler found in \$PATH See \`config.log' for more details." >&5 echo "$as_me: error: no acceptable C compiler found in \$PATH See \`config.log' for more details." >&2;} { (exit 1); exit 1; }; } # Provide some information about the compiler. echo "$as_me:$LINENO:" \ "checking for C compiler version" >&5 ac_compiler=`set X $ac_compile; echo $2` { (eval echo "$as_me:$LINENO: \"$ac_compiler --version &5\"") >&5 (eval $ac_compiler --version &5) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } { (eval echo "$as_me:$LINENO: \"$ac_compiler -v &5\"") >&5 (eval $ac_compiler -v &5) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } { (eval echo "$as_me:$LINENO: \"$ac_compiler -V &5\"") >&5 (eval $ac_compiler -V &5) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ int main () { ; return 0; } _ACEOF ac_clean_files_save=$ac_clean_files ac_clean_files="$ac_clean_files a.out a.exe b.out" # Try to create an executable without -o first, disregard a.out. # It will help us diagnose broken compilers, and finding out an intuition # of exeext. echo "$as_me:$LINENO: checking for C compiler default output file name" >&5 echo $ECHO_N "checking for C compiler default output file name... $ECHO_C" >&6 ac_link_default=`echo "$ac_link" | sed 's/ -o *conftest[^ ]*//'` if { (eval echo "$as_me:$LINENO: \"$ac_link_default\"") >&5 (eval $ac_link_default) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; then # Find the output, starting from the most likely. This scheme is # not robust to junk in `.', hence go to wildcards (a.*) only as a last # resort. # Be careful to initialize this variable, since it used to be cached. # Otherwise an old cache value of `no' led to `EXEEXT = no' in a Makefile. ac_cv_exeext= # b.out is created by i960 compilers. for ac_file in a_out.exe a.exe conftest.exe a.out conftest a.* conftest.* b.out do test -f "$ac_file" || continue case $ac_file in *.$ac_ext | *.xcoff | *.tds | *.d | *.pdb | *.xSYM | *.bb | *.bbg | *.o | *.obj ) ;; conftest.$ac_ext ) # This is the source file. ;; [ab].out ) # We found the default executable, but exeext='' is most # certainly right. break;; *.* ) ac_cv_exeext=`expr "$ac_file" : '[^.]*\(\..*\)'` # FIXME: I believe we export ac_cv_exeext for Libtool, # but it would be cool to find out if it's true. Does anybody # maintain Libtool? --akim. export ac_cv_exeext break;; * ) break;; esac done else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 { { echo "$as_me:$LINENO: error: C compiler cannot create executables See \`config.log' for more details." >&5 echo "$as_me: error: C compiler cannot create executables See \`config.log' for more details." >&2;} { (exit 77); exit 77; }; } fi ac_exeext=$ac_cv_exeext echo "$as_me:$LINENO: result: $ac_file" >&5 echo "${ECHO_T}$ac_file" >&6 # Check the compiler produces executables we can run. If not, either # the compiler is broken, or we cross compile. echo "$as_me:$LINENO: checking whether the C compiler works" >&5 echo $ECHO_N "checking whether the C compiler works... $ECHO_C" >&6 # FIXME: These cross compiler hacks should be removed for Autoconf 3.0 # If not cross compiling, check that we can run a simple program. if test "$cross_compiling" != yes; then if { ac_try='./$ac_file' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then cross_compiling=no else if test "$cross_compiling" = maybe; then cross_compiling=yes else { { echo "$as_me:$LINENO: error: cannot run C compiled programs. If you meant to cross compile, use \`--host'. See \`config.log' for more details." >&5 echo "$as_me: error: cannot run C compiled programs. If you meant to cross compile, use \`--host'. See \`config.log' for more details." >&2;} { (exit 1); exit 1; }; } fi fi fi echo "$as_me:$LINENO: result: yes" >&5 echo "${ECHO_T}yes" >&6 rm -f a.out a.exe conftest$ac_cv_exeext b.out ac_clean_files=$ac_clean_files_save # Check the compiler produces executables we can run. If not, either # the compiler is broken, or we cross compile. echo "$as_me:$LINENO: checking whether we are cross compiling" >&5 echo $ECHO_N "checking whether we are cross compiling... $ECHO_C" >&6 echo "$as_me:$LINENO: result: $cross_compiling" >&5 echo "${ECHO_T}$cross_compiling" >&6 echo "$as_me:$LINENO: checking for suffix of executables" >&5 echo $ECHO_N "checking for suffix of executables... $ECHO_C" >&6 if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5 (eval $ac_link) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; then # If both `conftest.exe' and `conftest' are `present' (well, observable) # catch `conftest.exe'. For instance with Cygwin, `ls conftest' will # work properly (i.e., refer to `conftest.exe'), while it won't with # `rm'. for ac_file in conftest.exe conftest conftest.*; do test -f "$ac_file" || continue case $ac_file in *.$ac_ext | *.xcoff | *.tds | *.d | *.pdb | *.xSYM | *.bb | *.bbg | *.o | *.obj ) ;; *.* ) ac_cv_exeext=`expr "$ac_file" : '[^.]*\(\..*\)'` export ac_cv_exeext break;; * ) break;; esac done else { { echo "$as_me:$LINENO: error: cannot compute suffix of executables: cannot compile and link See \`config.log' for more details." >&5 echo "$as_me: error: cannot compute suffix of executables: cannot compile and link See \`config.log' for more details." >&2;} { (exit 1); exit 1; }; } fi rm -f conftest$ac_cv_exeext echo "$as_me:$LINENO: result: $ac_cv_exeext" >&5 echo "${ECHO_T}$ac_cv_exeext" >&6 rm -f conftest.$ac_ext EXEEXT=$ac_cv_exeext ac_exeext=$EXEEXT echo "$as_me:$LINENO: checking for suffix of object files" >&5 echo $ECHO_N "checking for suffix of object files... $ECHO_C" >&6 if test "${ac_cv_objext+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ int main () { ; return 0; } _ACEOF rm -f conftest.o conftest.obj if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 (eval $ac_compile) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; then for ac_file in `(ls conftest.o conftest.obj; ls conftest.*) 2>/dev/null`; do case $ac_file in *.$ac_ext | *.xcoff | *.tds | *.d | *.pdb | *.xSYM | *.bb | *.bbg ) ;; *) ac_cv_objext=`expr "$ac_file" : '.*\.\(.*\)'` break;; esac done else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 { { echo "$as_me:$LINENO: error: cannot compute suffix of object files: cannot compile See \`config.log' for more details." >&5 echo "$as_me: error: cannot compute suffix of object files: cannot compile See \`config.log' for more details." >&2;} { (exit 1); exit 1; }; } fi rm -f conftest.$ac_cv_objext conftest.$ac_ext fi echo "$as_me:$LINENO: result: $ac_cv_objext" >&5 echo "${ECHO_T}$ac_cv_objext" >&6 OBJEXT=$ac_cv_objext ac_objext=$OBJEXT echo "$as_me:$LINENO: checking whether we are using the GNU C compiler" >&5 echo $ECHO_N "checking whether we are using the GNU C compiler... $ECHO_C" >&6 if test "${ac_cv_c_compiler_gnu+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ int main () { #ifndef __GNUC__ choke me #endif ; return 0; } _ACEOF rm -f conftest.$ac_objext if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 (eval $ac_compile) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { ac_try='test -z "$ac_c_werror_flag" || test ! -s conftest.err' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; } && { ac_try='test -s conftest.$ac_objext' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then ac_compiler_gnu=yes else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_compiler_gnu=no fi rm -f conftest.err conftest.$ac_objext conftest.$ac_ext ac_cv_c_compiler_gnu=$ac_compiler_gnu fi echo "$as_me:$LINENO: result: $ac_cv_c_compiler_gnu" >&5 echo "${ECHO_T}$ac_cv_c_compiler_gnu" >&6 GCC=`test $ac_compiler_gnu = yes && echo yes` ac_test_CFLAGS=${CFLAGS+set} ac_save_CFLAGS=$CFLAGS CFLAGS="-g" echo "$as_me:$LINENO: checking whether $CC accepts -g" >&5 echo $ECHO_N "checking whether $CC accepts -g... $ECHO_C" >&6 if test "${ac_cv_prog_cc_g+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ int main () { ; return 0; } _ACEOF rm -f conftest.$ac_objext if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 (eval $ac_compile) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { ac_try='test -z "$ac_c_werror_flag" || test ! -s conftest.err' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; } && { ac_try='test -s conftest.$ac_objext' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then ac_cv_prog_cc_g=yes else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_cv_prog_cc_g=no fi rm -f conftest.err conftest.$ac_objext conftest.$ac_ext fi echo "$as_me:$LINENO: result: $ac_cv_prog_cc_g" >&5 echo "${ECHO_T}$ac_cv_prog_cc_g" >&6 if test "$ac_test_CFLAGS" = set; then CFLAGS=$ac_save_CFLAGS elif test $ac_cv_prog_cc_g = yes; then if test "$GCC" = yes; then CFLAGS="-g -O2" else CFLAGS="-g" fi else if test "$GCC" = yes; then CFLAGS="-O2" else CFLAGS= fi fi echo "$as_me:$LINENO: checking for $CC option to accept ANSI C" >&5 echo $ECHO_N "checking for $CC option to accept ANSI C... $ECHO_C" >&6 if test "${ac_cv_prog_cc_stdc+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else ac_cv_prog_cc_stdc=no ac_save_CC=$CC cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ #include #include #include #include /* Most of the following tests are stolen from RCS 5.7's src/conf.sh. */ struct buf { int x; }; FILE * (*rcsopen) (struct buf *, struct stat *, int); static char *e (p, i) char **p; int i; { return p[i]; } static char *f (char * (*g) (char **, int), char **p, ...) { char *s; va_list v; va_start (v,p); s = g (p, va_arg (v,int)); va_end (v); return s; } /* OSF 4.0 Compaq cc is some sort of almost-ANSI by default. It has function prototypes and stuff, but not '\xHH' hex character constants. These don't provoke an error unfortunately, instead are silently treated as 'x'. The following induces an error, until -std1 is added to get proper ANSI mode. Curiously '\x00'!='x' always comes out true, for an array size at least. It's necessary to write '\x00'==0 to get something that's true only with -std1. */ int osf4_cc_array ['\x00' == 0 ? 1 : -1]; int test (int i, double x); struct s1 {int (*f) (int a);}; struct s2 {int (*f) (double a);}; int pairnames (int, char **, FILE *(*)(struct buf *, struct stat *, int), int, int); int argc; char **argv; int main () { return f (e, argv, 0) != argv[0] || f (e, argv, 1) != argv[1]; ; return 0; } _ACEOF # Don't try gcc -ansi; that turns off useful extensions and # breaks some systems' header files. # AIX -qlanglvl=ansi # Ultrix and OSF/1 -std1 # HP-UX 10.20 and later -Ae # HP-UX older versions -Aa -D_HPUX_SOURCE # SVR4 -Xc -D__EXTENSIONS__ for ac_arg in "" -qlanglvl=ansi -std1 -Ae "-Aa -D_HPUX_SOURCE" "-Xc -D__EXTENSIONS__" do CC="$ac_save_CC $ac_arg" rm -f conftest.$ac_objext if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 (eval $ac_compile) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { ac_try='test -z "$ac_c_werror_flag" || test ! -s conftest.err' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; } && { ac_try='test -s conftest.$ac_objext' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then ac_cv_prog_cc_stdc=$ac_arg break else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 fi rm -f conftest.err conftest.$ac_objext done rm -f conftest.$ac_ext conftest.$ac_objext CC=$ac_save_CC fi case "x$ac_cv_prog_cc_stdc" in x|xno) echo "$as_me:$LINENO: result: none needed" >&5 echo "${ECHO_T}none needed" >&6 ;; *) echo "$as_me:$LINENO: result: $ac_cv_prog_cc_stdc" >&5 echo "${ECHO_T}$ac_cv_prog_cc_stdc" >&6 CC="$CC $ac_cv_prog_cc_stdc" ;; esac # Some people use a C++ compiler to compile C. Since we use `exit', # in C++ we need to declare it. In case someone uses the same compiler # for both compiling C and C++ we need to have the C++ compiler decide # the declaration of exit, since it's the most demanding environment. cat >conftest.$ac_ext <<_ACEOF #ifndef __cplusplus choke me #endif _ACEOF rm -f conftest.$ac_objext if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 (eval $ac_compile) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { ac_try='test -z "$ac_c_werror_flag" || test ! -s conftest.err' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; } && { ac_try='test -s conftest.$ac_objext' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then for ac_declaration in \ '' \ 'extern "C" void std::exit (int) throw (); using std::exit;' \ 'extern "C" void std::exit (int); using std::exit;' \ 'extern "C" void exit (int) throw ();' \ 'extern "C" void exit (int);' \ 'void exit (int);' do cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ $ac_declaration #include int main () { exit (42); ; return 0; } _ACEOF rm -f conftest.$ac_objext if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 (eval $ac_compile) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { ac_try='test -z "$ac_c_werror_flag" || test ! -s conftest.err' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; } && { ac_try='test -s conftest.$ac_objext' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then : else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 continue fi rm -f conftest.err conftest.$ac_objext conftest.$ac_ext cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ $ac_declaration int main () { exit (42); ; return 0; } _ACEOF rm -f conftest.$ac_objext if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 (eval $ac_compile) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { ac_try='test -z "$ac_c_werror_flag" || test ! -s conftest.err' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; } && { ac_try='test -s conftest.$ac_objext' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then break else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 fi rm -f conftest.err conftest.$ac_objext conftest.$ac_ext done rm -f conftest* if test -n "$ac_declaration"; then echo '#ifdef __cplusplus' >>confdefs.h echo $ac_declaration >>confdefs.h echo '#endif' >>confdefs.h fi else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 fi rm -f conftest.err conftest.$ac_objext conftest.$ac_ext ac_ext=c ac_cpp='$CPP $CPPFLAGS' ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' ac_compiler_gnu=$ac_cv_c_compiler_gnu DEPDIR="${am__leading_dot}deps" ac_config_commands="$ac_config_commands depfiles" am_make=${MAKE-make} cat > confinc << 'END' am__doit: @echo done .PHONY: am__doit END # If we don't find an include directive, just comment out the code. echo "$as_me:$LINENO: checking for style of include used by $am_make" >&5 echo $ECHO_N "checking for style of include used by $am_make... $ECHO_C" >&6 am__include="#" am__quote= _am_result=none # First try GNU make style include. echo "include confinc" > confmf # We grep out `Entering directory' and `Leaving directory' # messages which can occur if `w' ends up in MAKEFLAGS. # In particular we don't look at `^make:' because GNU make might # be invoked under some other name (usually "gmake"), in which # case it prints its new name instead of `make'. if test "`$am_make -s -f confmf 2> /dev/null | grep -v 'ing directory'`" = "done"; then am__include=include am__quote= _am_result=GNU fi # Now try BSD make style include. if test "$am__include" = "#"; then echo '.include "confinc"' > confmf if test "`$am_make -s -f confmf 2> /dev/null`" = "done"; then am__include=.include am__quote="\"" _am_result=BSD fi fi echo "$as_me:$LINENO: result: $_am_result" >&5 echo "${ECHO_T}$_am_result" >&6 rm -f confinc confmf # Check whether --enable-dependency-tracking or --disable-dependency-tracking was given. if test "${enable_dependency_tracking+set}" = set; then enableval="$enable_dependency_tracking" fi; if test "x$enable_dependency_tracking" != xno; then am_depcomp="$ac_aux_dir/depcomp" AMDEPBACKSLASH='\' fi if test "x$enable_dependency_tracking" != xno; then AMDEP_TRUE= AMDEP_FALSE='#' else AMDEP_TRUE='#' AMDEP_FALSE= fi depcc="$CC" am_compiler_list= echo "$as_me:$LINENO: checking dependency style of $depcc" >&5 echo $ECHO_N "checking dependency style of $depcc... $ECHO_C" >&6 if test "${am_cv_CC_dependencies_compiler_type+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else if test -z "$AMDEP_TRUE" && test -f "$am_depcomp"; then # We make a subdir and do the tests there. Otherwise we can end up # making bogus files that we don't know about and never remove. For # instance it was reported that on HP-UX the gcc test will end up # making a dummy file named `D' -- because `-MD' means `put the output # in D'. mkdir conftest.dir # Copy depcomp to subdir because otherwise we won't find it if we're # using a relative directory. cp "$am_depcomp" conftest.dir cd conftest.dir # We will build objects and dependencies in a subdirectory because # it helps to detect inapplicable dependency modes. For instance # both Tru64's cc and ICC support -MD to output dependencies as a # side effect of compilation, but ICC will put the dependencies in # the current directory while Tru64 will put them in the object # directory. mkdir sub am_cv_CC_dependencies_compiler_type=none if test "$am_compiler_list" = ""; then am_compiler_list=`sed -n 's/^#*\([a-zA-Z0-9]*\))$/\1/p' < ./depcomp` fi for depmode in $am_compiler_list; do # Setup a source with many dependencies, because some compilers # like to wrap large dependency lists on column 80 (with \), and # we should not choose a depcomp mode which is confused by this. # # We need to recreate these files for each test, as the compiler may # overwrite some of them when testing with obscure command lines. # This happens at least with the AIX C compiler. : > sub/conftest.c for i in 1 2 3 4 5 6; do echo '#include "conftst'$i'.h"' >> sub/conftest.c # Using `: > sub/conftst$i.h' creates only sub/conftst1.h with # Solaris 8's {/usr,}/bin/sh. touch sub/conftst$i.h done echo "${am__include} ${am__quote}sub/conftest.Po${am__quote}" > confmf case $depmode in nosideeffect) # after this tag, mechanisms are not by side-effect, so they'll # only be used when explicitly requested if test "x$enable_dependency_tracking" = xyes; then continue else break fi ;; none) break ;; esac # We check with `-c' and `-o' for the sake of the "dashmstdout" # mode. It turns out that the SunPro C++ compiler does not properly # handle `-M -o', and we need to detect this. if depmode=$depmode \ source=sub/conftest.c object=sub/conftest.${OBJEXT-o} \ depfile=sub/conftest.Po tmpdepfile=sub/conftest.TPo \ $SHELL ./depcomp $depcc -c -o sub/conftest.${OBJEXT-o} sub/conftest.c \ >/dev/null 2>conftest.err && grep sub/conftst6.h sub/conftest.Po > /dev/null 2>&1 && grep sub/conftest.${OBJEXT-o} sub/conftest.Po > /dev/null 2>&1 && ${MAKE-make} -s -f confmf > /dev/null 2>&1; then # icc doesn't choke on unknown options, it will just issue warnings # or remarks (even with -Werror). So we grep stderr for any message # that says an option was ignored or not supported. # When given -MP, icc 7.0 and 7.1 complain thusly: # icc: Command line warning: ignoring option '-M'; no argument required # The diagnosis changed in icc 8.0: # icc: Command line remark: option '-MP' not supported if (grep 'ignoring option' conftest.err || grep 'not supported' conftest.err) >/dev/null 2>&1; then :; else am_cv_CC_dependencies_compiler_type=$depmode break fi fi done cd .. rm -rf conftest.dir else am_cv_CC_dependencies_compiler_type=none fi fi echo "$as_me:$LINENO: result: $am_cv_CC_dependencies_compiler_type" >&5 echo "${ECHO_T}$am_cv_CC_dependencies_compiler_type" >&6 CCDEPMODE=depmode=$am_cv_CC_dependencies_compiler_type if test "x$enable_dependency_tracking" != xno \ && test "$am_cv_CC_dependencies_compiler_type" = gcc3; then am__fastdepCC_TRUE= am__fastdepCC_FALSE='#' else am__fastdepCC_TRUE='#' am__fastdepCC_FALSE= fi ac_ext=cc ac_cpp='$CXXCPP $CPPFLAGS' ac_compile='$CXX -c $CXXFLAGS $CPPFLAGS conftest.$ac_ext >&5' ac_link='$CXX -o conftest$ac_exeext $CXXFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' ac_compiler_gnu=$ac_cv_cxx_compiler_gnu if test -n "$ac_tool_prefix"; then for ac_prog in $CCC g++ c++ gpp aCC CC cxx cc++ cl FCC KCC RCC xlC_r xlC do # Extract the first word of "$ac_tool_prefix$ac_prog", so it can be a program name with args. set dummy $ac_tool_prefix$ac_prog; ac_word=$2 echo "$as_me:$LINENO: checking for $ac_word" >&5 echo $ECHO_N "checking for $ac_word... $ECHO_C" >&6 if test "${ac_cv_prog_CXX+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else if test -n "$CXX"; then ac_cv_prog_CXX="$CXX" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if $as_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_CXX="$ac_tool_prefix$ac_prog" echo "$as_me:$LINENO: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done fi fi CXX=$ac_cv_prog_CXX if test -n "$CXX"; then echo "$as_me:$LINENO: result: $CXX" >&5 echo "${ECHO_T}$CXX" >&6 else echo "$as_me:$LINENO: result: no" >&5 echo "${ECHO_T}no" >&6 fi test -n "$CXX" && break done fi if test -z "$CXX"; then ac_ct_CXX=$CXX for ac_prog in $CCC g++ c++ gpp aCC CC cxx cc++ cl FCC KCC RCC xlC_r xlC do # Extract the first word of "$ac_prog", so it can be a program name with args. set dummy $ac_prog; ac_word=$2 echo "$as_me:$LINENO: checking for $ac_word" >&5 echo $ECHO_N "checking for $ac_word... $ECHO_C" >&6 if test "${ac_cv_prog_ac_ct_CXX+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else if test -n "$ac_ct_CXX"; then ac_cv_prog_ac_ct_CXX="$ac_ct_CXX" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if $as_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_ac_ct_CXX="$ac_prog" echo "$as_me:$LINENO: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done fi fi ac_ct_CXX=$ac_cv_prog_ac_ct_CXX if test -n "$ac_ct_CXX"; then echo "$as_me:$LINENO: result: $ac_ct_CXX" >&5 echo "${ECHO_T}$ac_ct_CXX" >&6 else echo "$as_me:$LINENO: result: no" >&5 echo "${ECHO_T}no" >&6 fi test -n "$ac_ct_CXX" && break done test -n "$ac_ct_CXX" || ac_ct_CXX="g++" CXX=$ac_ct_CXX fi # Provide some information about the compiler. echo "$as_me:$LINENO:" \ "checking for C++ compiler version" >&5 ac_compiler=`set X $ac_compile; echo $2` { (eval echo "$as_me:$LINENO: \"$ac_compiler --version &5\"") >&5 (eval $ac_compiler --version &5) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } { (eval echo "$as_me:$LINENO: \"$ac_compiler -v &5\"") >&5 (eval $ac_compiler -v &5) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } { (eval echo "$as_me:$LINENO: \"$ac_compiler -V &5\"") >&5 (eval $ac_compiler -V &5) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } echo "$as_me:$LINENO: checking whether we are using the GNU C++ compiler" >&5 echo $ECHO_N "checking whether we are using the GNU C++ compiler... $ECHO_C" >&6 if test "${ac_cv_cxx_compiler_gnu+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ int main () { #ifndef __GNUC__ choke me #endif ; return 0; } _ACEOF rm -f conftest.$ac_objext if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 (eval $ac_compile) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { ac_try='test -z "$ac_cxx_werror_flag" || test ! -s conftest.err' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; } && { ac_try='test -s conftest.$ac_objext' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then ac_compiler_gnu=yes else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_compiler_gnu=no fi rm -f conftest.err conftest.$ac_objext conftest.$ac_ext ac_cv_cxx_compiler_gnu=$ac_compiler_gnu fi echo "$as_me:$LINENO: result: $ac_cv_cxx_compiler_gnu" >&5 echo "${ECHO_T}$ac_cv_cxx_compiler_gnu" >&6 GXX=`test $ac_compiler_gnu = yes && echo yes` ac_test_CXXFLAGS=${CXXFLAGS+set} ac_save_CXXFLAGS=$CXXFLAGS CXXFLAGS="-g" echo "$as_me:$LINENO: checking whether $CXX accepts -g" >&5 echo $ECHO_N "checking whether $CXX accepts -g... $ECHO_C" >&6 if test "${ac_cv_prog_cxx_g+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ int main () { ; return 0; } _ACEOF rm -f conftest.$ac_objext if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 (eval $ac_compile) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { ac_try='test -z "$ac_cxx_werror_flag" || test ! -s conftest.err' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; } && { ac_try='test -s conftest.$ac_objext' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then ac_cv_prog_cxx_g=yes else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_cv_prog_cxx_g=no fi rm -f conftest.err conftest.$ac_objext conftest.$ac_ext fi echo "$as_me:$LINENO: result: $ac_cv_prog_cxx_g" >&5 echo "${ECHO_T}$ac_cv_prog_cxx_g" >&6 if test "$ac_test_CXXFLAGS" = set; then CXXFLAGS=$ac_save_CXXFLAGS elif test $ac_cv_prog_cxx_g = yes; then if test "$GXX" = yes; then CXXFLAGS="-g -O2" else CXXFLAGS="-g" fi else if test "$GXX" = yes; then CXXFLAGS="-O2" else CXXFLAGS= fi fi for ac_declaration in \ '' \ 'extern "C" void std::exit (int) throw (); using std::exit;' \ 'extern "C" void std::exit (int); using std::exit;' \ 'extern "C" void exit (int) throw ();' \ 'extern "C" void exit (int);' \ 'void exit (int);' do cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ $ac_declaration #include int main () { exit (42); ; return 0; } _ACEOF rm -f conftest.$ac_objext if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 (eval $ac_compile) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { ac_try='test -z "$ac_cxx_werror_flag" || test ! -s conftest.err' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; } && { ac_try='test -s conftest.$ac_objext' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then : else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 continue fi rm -f conftest.err conftest.$ac_objext conftest.$ac_ext cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ $ac_declaration int main () { exit (42); ; return 0; } _ACEOF rm -f conftest.$ac_objext if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 (eval $ac_compile) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { ac_try='test -z "$ac_cxx_werror_flag" || test ! -s conftest.err' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; } && { ac_try='test -s conftest.$ac_objext' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then break else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 fi rm -f conftest.err conftest.$ac_objext conftest.$ac_ext done rm -f conftest* if test -n "$ac_declaration"; then echo '#ifdef __cplusplus' >>confdefs.h echo $ac_declaration >>confdefs.h echo '#endif' >>confdefs.h fi ac_ext=c ac_cpp='$CPP $CPPFLAGS' ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' ac_compiler_gnu=$ac_cv_c_compiler_gnu depcc="$CXX" am_compiler_list= echo "$as_me:$LINENO: checking dependency style of $depcc" >&5 echo $ECHO_N "checking dependency style of $depcc... $ECHO_C" >&6 if test "${am_cv_CXX_dependencies_compiler_type+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else if test -z "$AMDEP_TRUE" && test -f "$am_depcomp"; then # We make a subdir and do the tests there. Otherwise we can end up # making bogus files that we don't know about and never remove. For # instance it was reported that on HP-UX the gcc test will end up # making a dummy file named `D' -- because `-MD' means `put the output # in D'. mkdir conftest.dir # Copy depcomp to subdir because otherwise we won't find it if we're # using a relative directory. cp "$am_depcomp" conftest.dir cd conftest.dir # We will build objects and dependencies in a subdirectory because # it helps to detect inapplicable dependency modes. For instance # both Tru64's cc and ICC support -MD to output dependencies as a # side effect of compilation, but ICC will put the dependencies in # the current directory while Tru64 will put them in the object # directory. mkdir sub am_cv_CXX_dependencies_compiler_type=none if test "$am_compiler_list" = ""; then am_compiler_list=`sed -n 's/^#*\([a-zA-Z0-9]*\))$/\1/p' < ./depcomp` fi for depmode in $am_compiler_list; do # Setup a source with many dependencies, because some compilers # like to wrap large dependency lists on column 80 (with \), and # we should not choose a depcomp mode which is confused by this. # # We need to recreate these files for each test, as the compiler may # overwrite some of them when testing with obscure command lines. # This happens at least with the AIX C compiler. : > sub/conftest.c for i in 1 2 3 4 5 6; do echo '#include "conftst'$i'.h"' >> sub/conftest.c # Using `: > sub/conftst$i.h' creates only sub/conftst1.h with # Solaris 8's {/usr,}/bin/sh. touch sub/conftst$i.h done echo "${am__include} ${am__quote}sub/conftest.Po${am__quote}" > confmf case $depmode in nosideeffect) # after this tag, mechanisms are not by side-effect, so they'll # only be used when explicitly requested if test "x$enable_dependency_tracking" = xyes; then continue else break fi ;; none) break ;; esac # We check with `-c' and `-o' for the sake of the "dashmstdout" # mode. It turns out that the SunPro C++ compiler does not properly # handle `-M -o', and we need to detect this. if depmode=$depmode \ source=sub/conftest.c object=sub/conftest.${OBJEXT-o} \ depfile=sub/conftest.Po tmpdepfile=sub/conftest.TPo \ $SHELL ./depcomp $depcc -c -o sub/conftest.${OBJEXT-o} sub/conftest.c \ >/dev/null 2>conftest.err && grep sub/conftst6.h sub/conftest.Po > /dev/null 2>&1 && grep sub/conftest.${OBJEXT-o} sub/conftest.Po > /dev/null 2>&1 && ${MAKE-make} -s -f confmf > /dev/null 2>&1; then # icc doesn't choke on unknown options, it will just issue warnings # or remarks (even with -Werror). So we grep stderr for any message # that says an option was ignored or not supported. # When given -MP, icc 7.0 and 7.1 complain thusly: # icc: Command line warning: ignoring option '-M'; no argument required # The diagnosis changed in icc 8.0: # icc: Command line remark: option '-MP' not supported if (grep 'ignoring option' conftest.err || grep 'not supported' conftest.err) >/dev/null 2>&1; then :; else am_cv_CXX_dependencies_compiler_type=$depmode break fi fi done cd .. rm -rf conftest.dir else am_cv_CXX_dependencies_compiler_type=none fi fi echo "$as_me:$LINENO: result: $am_cv_CXX_dependencies_compiler_type" >&5 echo "${ECHO_T}$am_cv_CXX_dependencies_compiler_type" >&6 CXXDEPMODE=depmode=$am_cv_CXX_dependencies_compiler_type if test "x$enable_dependency_tracking" != xno \ && test "$am_cv_CXX_dependencies_compiler_type" = gcc3; then am__fastdepCXX_TRUE= am__fastdepCXX_FALSE='#' else am__fastdepCXX_TRUE='#' am__fastdepCXX_FALSE= fi ac_ext=c ac_cpp='$CPP $CPPFLAGS' ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' ac_compiler_gnu=$ac_cv_c_compiler_gnu echo "$as_me:$LINENO: checking how to run the C preprocessor" >&5 echo $ECHO_N "checking how to run the C preprocessor... $ECHO_C" >&6 # On Suns, sometimes $CPP names a directory. if test -n "$CPP" && test -d "$CPP"; then CPP= fi if test -z "$CPP"; then if test "${ac_cv_prog_CPP+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else # Double quotes because CPP needs to be expanded for CPP in "$CC -E" "$CC -E -traditional-cpp" "/lib/cpp" do ac_preproc_ok=false for ac_c_preproc_warn_flag in '' yes do # Use a header file that comes with gcc, so configuring glibc # with a fresh cross-compiler works. # Prefer to if __STDC__ is defined, since # exists even on freestanding compilers. # On the NeXT, cc -E runs the code through the compiler's parser, # not just through cpp. "Syntax error" is here to catch this case. cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ #ifdef __STDC__ # include #else # include #endif Syntax error _ACEOF if { (eval echo "$as_me:$LINENO: \"$ac_cpp conftest.$ac_ext\"") >&5 (eval $ac_cpp conftest.$ac_ext) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } >/dev/null; then if test -s conftest.err; then ac_cpp_err=$ac_c_preproc_warn_flag ac_cpp_err=$ac_cpp_err$ac_c_werror_flag else ac_cpp_err= fi else ac_cpp_err=yes fi if test -z "$ac_cpp_err"; then : else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 # Broken: fails on valid input. continue fi rm -f conftest.err conftest.$ac_ext # OK, works on sane cases. Now check whether non-existent headers # can be detected and how. cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ #include _ACEOF if { (eval echo "$as_me:$LINENO: \"$ac_cpp conftest.$ac_ext\"") >&5 (eval $ac_cpp conftest.$ac_ext) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } >/dev/null; then if test -s conftest.err; then ac_cpp_err=$ac_c_preproc_warn_flag ac_cpp_err=$ac_cpp_err$ac_c_werror_flag else ac_cpp_err= fi else ac_cpp_err=yes fi if test -z "$ac_cpp_err"; then # Broken: success on invalid input. continue else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 # Passes both tests. ac_preproc_ok=: break fi rm -f conftest.err conftest.$ac_ext done # Because of `break', _AC_PREPROC_IFELSE's cleaning code was skipped. rm -f conftest.err conftest.$ac_ext if $ac_preproc_ok; then break fi done ac_cv_prog_CPP=$CPP fi CPP=$ac_cv_prog_CPP else ac_cv_prog_CPP=$CPP fi echo "$as_me:$LINENO: result: $CPP" >&5 echo "${ECHO_T}$CPP" >&6 ac_preproc_ok=false for ac_c_preproc_warn_flag in '' yes do # Use a header file that comes with gcc, so configuring glibc # with a fresh cross-compiler works. # Prefer to if __STDC__ is defined, since # exists even on freestanding compilers. # On the NeXT, cc -E runs the code through the compiler's parser, # not just through cpp. "Syntax error" is here to catch this case. cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ #ifdef __STDC__ # include #else # include #endif Syntax error _ACEOF if { (eval echo "$as_me:$LINENO: \"$ac_cpp conftest.$ac_ext\"") >&5 (eval $ac_cpp conftest.$ac_ext) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } >/dev/null; then if test -s conftest.err; then ac_cpp_err=$ac_c_preproc_warn_flag ac_cpp_err=$ac_cpp_err$ac_c_werror_flag else ac_cpp_err= fi else ac_cpp_err=yes fi if test -z "$ac_cpp_err"; then : else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 # Broken: fails on valid input. continue fi rm -f conftest.err conftest.$ac_ext # OK, works on sane cases. Now check whether non-existent headers # can be detected and how. cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ #include _ACEOF if { (eval echo "$as_me:$LINENO: \"$ac_cpp conftest.$ac_ext\"") >&5 (eval $ac_cpp conftest.$ac_ext) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } >/dev/null; then if test -s conftest.err; then ac_cpp_err=$ac_c_preproc_warn_flag ac_cpp_err=$ac_cpp_err$ac_c_werror_flag else ac_cpp_err= fi else ac_cpp_err=yes fi if test -z "$ac_cpp_err"; then # Broken: success on invalid input. continue else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 # Passes both tests. ac_preproc_ok=: break fi rm -f conftest.err conftest.$ac_ext done # Because of `break', _AC_PREPROC_IFELSE's cleaning code was skipped. rm -f conftest.err conftest.$ac_ext if $ac_preproc_ok; then : else { { echo "$as_me:$LINENO: error: C preprocessor \"$CPP\" fails sanity check See \`config.log' for more details." >&5 echo "$as_me: error: C preprocessor \"$CPP\" fails sanity check See \`config.log' for more details." >&2;} { (exit 1); exit 1; }; } fi ac_ext=c ac_cpp='$CPP $CPPFLAGS' ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' ac_compiler_gnu=$ac_cv_c_compiler_gnu echo "$as_me:$LINENO: checking for egrep" >&5 echo $ECHO_N "checking for egrep... $ECHO_C" >&6 if test "${ac_cv_prog_egrep+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else if echo a | (grep -E '(a|b)') >/dev/null 2>&1 then ac_cv_prog_egrep='grep -E' else ac_cv_prog_egrep='egrep' fi fi echo "$as_me:$LINENO: result: $ac_cv_prog_egrep" >&5 echo "${ECHO_T}$ac_cv_prog_egrep" >&6 EGREP=$ac_cv_prog_egrep if test $ac_cv_c_compiler_gnu = yes; then echo "$as_me:$LINENO: checking whether $CC needs -traditional" >&5 echo $ECHO_N "checking whether $CC needs -traditional... $ECHO_C" >&6 if test "${ac_cv_prog_gcc_traditional+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else ac_pattern="Autoconf.*'x'" cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ #include Autoconf TIOCGETP _ACEOF if (eval "$ac_cpp conftest.$ac_ext") 2>&5 | $EGREP "$ac_pattern" >/dev/null 2>&1; then ac_cv_prog_gcc_traditional=yes else ac_cv_prog_gcc_traditional=no fi rm -f conftest* if test $ac_cv_prog_gcc_traditional = no; then cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ #include Autoconf TCGETA _ACEOF if (eval "$ac_cpp conftest.$ac_ext") 2>&5 | $EGREP "$ac_pattern" >/dev/null 2>&1; then ac_cv_prog_gcc_traditional=yes fi rm -f conftest* fi fi echo "$as_me:$LINENO: result: $ac_cv_prog_gcc_traditional" >&5 echo "${ECHO_T}$ac_cv_prog_gcc_traditional" >&6 if test $ac_cv_prog_gcc_traditional = yes; then CC="$CC -traditional" fi fi # Check whether --enable-shared or --disable-shared was given. if test "${enable_shared+set}" = set; then enableval="$enable_shared" p=${PACKAGE-default} case $enableval in yes) enable_shared=yes ;; no) enable_shared=no ;; *) enable_shared=no # Look at the argument we got. We use all the common list separators. lt_save_ifs="$IFS"; IFS="${IFS}$PATH_SEPARATOR," for pkg in $enableval; do IFS="$lt_save_ifs" if test "X$pkg" = "X$p"; then enable_shared=yes fi done IFS="$lt_save_ifs" ;; esac else enable_shared=yes fi; # Check whether --enable-static or --disable-static was given. if test "${enable_static+set}" = set; then enableval="$enable_static" p=${PACKAGE-default} case $enableval in yes) enable_static=yes ;; no) enable_static=no ;; *) enable_static=no # Look at the argument we got. We use all the common list separators. lt_save_ifs="$IFS"; IFS="${IFS}$PATH_SEPARATOR," for pkg in $enableval; do IFS="$lt_save_ifs" if test "X$pkg" = "X$p"; then enable_static=yes fi done IFS="$lt_save_ifs" ;; esac else enable_static=yes fi; # Check whether --enable-fast-install or --disable-fast-install was given. if test "${enable_fast_install+set}" = set; then enableval="$enable_fast_install" p=${PACKAGE-default} case $enableval in yes) enable_fast_install=yes ;; no) enable_fast_install=no ;; *) enable_fast_install=no # Look at the argument we got. We use all the common list separators. lt_save_ifs="$IFS"; IFS="${IFS}$PATH_SEPARATOR," for pkg in $enableval; do IFS="$lt_save_ifs" if test "X$pkg" = "X$p"; then enable_fast_install=yes fi done IFS="$lt_save_ifs" ;; esac else enable_fast_install=yes fi; echo "$as_me:$LINENO: checking for a sed that does not truncate output" >&5 echo $ECHO_N "checking for a sed that does not truncate output... $ECHO_C" >&6 if test "${lt_cv_path_SED+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else # Loop through the user's path and test for sed and gsed. # Then use that list of sed's as ones to test for truncation. as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for lt_ac_prog in sed gsed; do for ac_exec_ext in '' $ac_executable_extensions; do if $as_executable_p "$as_dir/$lt_ac_prog$ac_exec_ext"; then lt_ac_sed_list="$lt_ac_sed_list $as_dir/$lt_ac_prog$ac_exec_ext" fi done done done IFS=$as_save_IFS lt_ac_max=0 lt_ac_count=0 # Add /usr/xpg4/bin/sed as it is typically found on Solaris # along with /bin/sed that truncates output. for lt_ac_sed in $lt_ac_sed_list /usr/xpg4/bin/sed; do test ! -f $lt_ac_sed && continue cat /dev/null > conftest.in lt_ac_count=0 echo $ECHO_N "0123456789$ECHO_C" >conftest.in # Check for GNU sed and select it if it is found. if "$lt_ac_sed" --version 2>&1 < /dev/null | grep 'GNU' > /dev/null; then lt_cv_path_SED=$lt_ac_sed break fi while true; do cat conftest.in conftest.in >conftest.tmp mv conftest.tmp conftest.in cp conftest.in conftest.nl echo >>conftest.nl $lt_ac_sed -e 's/a$//' < conftest.nl >conftest.out || break cmp -s conftest.out conftest.nl || break # 10000 chars as input seems more than enough test $lt_ac_count -gt 10 && break lt_ac_count=`expr $lt_ac_count + 1` if test $lt_ac_count -gt $lt_ac_max; then lt_ac_max=$lt_ac_count lt_cv_path_SED=$lt_ac_sed fi done done fi SED=$lt_cv_path_SED echo "$as_me:$LINENO: result: $SED" >&5 echo "${ECHO_T}$SED" >&6 # Check whether --with-gnu-ld or --without-gnu-ld was given. if test "${with_gnu_ld+set}" = set; then withval="$with_gnu_ld" test "$withval" = no || with_gnu_ld=yes else with_gnu_ld=no fi; ac_prog=ld if test "$GCC" = yes; then # Check if gcc -print-prog-name=ld gives a path. echo "$as_me:$LINENO: checking for ld used by $CC" >&5 echo $ECHO_N "checking for ld used by $CC... $ECHO_C" >&6 case $host in *-*-mingw*) # gcc leaves a trailing carriage return which upsets mingw ac_prog=`($CC -print-prog-name=ld) 2>&5 | tr -d '\015'` ;; *) ac_prog=`($CC -print-prog-name=ld) 2>&5` ;; esac case $ac_prog in # Accept absolute paths. [\\/]* | ?:[\\/]*) re_direlt='/[^/][^/]*/\.\./' # Canonicalize the pathname of ld ac_prog=`echo $ac_prog| $SED 's%\\\\%/%g'` while echo $ac_prog | grep "$re_direlt" > /dev/null 2>&1; do ac_prog=`echo $ac_prog| $SED "s%$re_direlt%/%"` done test -z "$LD" && LD="$ac_prog" ;; "") # If it fails, then pretend we aren't using GCC. ac_prog=ld ;; *) # If it is relative, then search for the first ld in PATH. with_gnu_ld=unknown ;; esac elif test "$with_gnu_ld" = yes; then echo "$as_me:$LINENO: checking for GNU ld" >&5 echo $ECHO_N "checking for GNU ld... $ECHO_C" >&6 else echo "$as_me:$LINENO: checking for non-GNU ld" >&5 echo $ECHO_N "checking for non-GNU ld... $ECHO_C" >&6 fi if test "${lt_cv_path_LD+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else if test -z "$LD"; then lt_save_ifs="$IFS"; IFS=$PATH_SEPARATOR for ac_dir in $PATH; do IFS="$lt_save_ifs" test -z "$ac_dir" && ac_dir=. if test -f "$ac_dir/$ac_prog" || test -f "$ac_dir/$ac_prog$ac_exeext"; then lt_cv_path_LD="$ac_dir/$ac_prog" # Check to see if the program is GNU ld. I'd rather use --version, # but apparently some variants of GNU ld only accept -v. # Break only if it was the GNU/non-GNU ld that we prefer. case `"$lt_cv_path_LD" -v 2>&1 &5 echo "${ECHO_T}$LD" >&6 else echo "$as_me:$LINENO: result: no" >&5 echo "${ECHO_T}no" >&6 fi test -z "$LD" && { { echo "$as_me:$LINENO: error: no acceptable ld found in \$PATH" >&5 echo "$as_me: error: no acceptable ld found in \$PATH" >&2;} { (exit 1); exit 1; }; } echo "$as_me:$LINENO: checking if the linker ($LD) is GNU ld" >&5 echo $ECHO_N "checking if the linker ($LD) is GNU ld... $ECHO_C" >&6 if test "${lt_cv_prog_gnu_ld+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else # I'd rather use --version here, but apparently some GNU lds only accept -v. case `$LD -v 2>&1 &5 echo "${ECHO_T}$lt_cv_prog_gnu_ld" >&6 with_gnu_ld=$lt_cv_prog_gnu_ld echo "$as_me:$LINENO: checking for $LD option to reload object files" >&5 echo $ECHO_N "checking for $LD option to reload object files... $ECHO_C" >&6 if test "${lt_cv_ld_reload_flag+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else lt_cv_ld_reload_flag='-r' fi echo "$as_me:$LINENO: result: $lt_cv_ld_reload_flag" >&5 echo "${ECHO_T}$lt_cv_ld_reload_flag" >&6 reload_flag=$lt_cv_ld_reload_flag case $reload_flag in "" | " "*) ;; *) reload_flag=" $reload_flag" ;; esac reload_cmds='$LD$reload_flag -o $output$reload_objs' case $host_os in darwin*) if test "$GCC" = yes; then reload_cmds='$LTCC $LTCFLAGS -nostdlib ${wl}-r -o $output$reload_objs' else reload_cmds='$LD$reload_flag -o $output$reload_objs' fi ;; esac echo "$as_me:$LINENO: checking for BSD-compatible nm" >&5 echo $ECHO_N "checking for BSD-compatible nm... $ECHO_C" >&6 if test "${lt_cv_path_NM+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else if test -n "$NM"; then # Let the user override the test. lt_cv_path_NM="$NM" else lt_nm_to_check="${ac_tool_prefix}nm" if test -n "$ac_tool_prefix" && test "$build" = "$host"; then lt_nm_to_check="$lt_nm_to_check nm" fi for lt_tmp_nm in $lt_nm_to_check; do lt_save_ifs="$IFS"; IFS=$PATH_SEPARATOR for ac_dir in $PATH /usr/ccs/bin/elf /usr/ccs/bin /usr/ucb /bin; do IFS="$lt_save_ifs" test -z "$ac_dir" && ac_dir=. tmp_nm="$ac_dir/$lt_tmp_nm" if test -f "$tmp_nm" || test -f "$tmp_nm$ac_exeext" ; then # Check to see if the nm accepts a BSD-compat flag. # Adding the `sed 1q' prevents false positives on HP-UX, which says: # nm: unknown option "B" ignored # Tru64's nm complains that /dev/null is an invalid object file case `"$tmp_nm" -B /dev/null 2>&1 | sed '1q'` in */dev/null* | *'Invalid file or object type'*) lt_cv_path_NM="$tmp_nm -B" break ;; *) case `"$tmp_nm" -p /dev/null 2>&1 | sed '1q'` in */dev/null*) lt_cv_path_NM="$tmp_nm -p" break ;; *) lt_cv_path_NM=${lt_cv_path_NM="$tmp_nm"} # keep the first match, but continue # so that we can try to find one that supports BSD flags ;; esac ;; esac fi done IFS="$lt_save_ifs" done test -z "$lt_cv_path_NM" && lt_cv_path_NM=nm fi fi echo "$as_me:$LINENO: result: $lt_cv_path_NM" >&5 echo "${ECHO_T}$lt_cv_path_NM" >&6 NM="$lt_cv_path_NM" echo "$as_me:$LINENO: checking whether ln -s works" >&5 echo $ECHO_N "checking whether ln -s works... $ECHO_C" >&6 LN_S=$as_ln_s if test "$LN_S" = "ln -s"; then echo "$as_me:$LINENO: result: yes" >&5 echo "${ECHO_T}yes" >&6 else echo "$as_me:$LINENO: result: no, using $LN_S" >&5 echo "${ECHO_T}no, using $LN_S" >&6 fi echo "$as_me:$LINENO: checking how to recognize dependent libraries" >&5 echo $ECHO_N "checking how to recognize dependent libraries... $ECHO_C" >&6 if test "${lt_cv_deplibs_check_method+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else lt_cv_file_magic_cmd='$MAGIC_CMD' lt_cv_file_magic_test_file= lt_cv_deplibs_check_method='unknown' # Need to set the preceding variable on all platforms that support # interlibrary dependencies. # 'none' -- dependencies not supported. # `unknown' -- same as none, but documents that we really don't know. # 'pass_all' -- all dependencies passed with no checks. # 'test_compile' -- check by making test program. # 'file_magic [[regex]]' -- check by looking for files in library path # which responds to the $file_magic_cmd with a given extended regex. # If you have `file' or equivalent on your system and you're not sure # whether `pass_all' will *always* work, you probably want this one. case $host_os in aix[4-9]*) lt_cv_deplibs_check_method=pass_all ;; beos*) lt_cv_deplibs_check_method=pass_all ;; bsdi[45]*) lt_cv_deplibs_check_method='file_magic ELF [0-9][0-9]*-bit [ML]SB (shared object|dynamic lib)' lt_cv_file_magic_cmd='/usr/bin/file -L' lt_cv_file_magic_test_file=/shlib/libc.so ;; cygwin*) # func_win32_libid is a shell function defined in ltmain.sh lt_cv_deplibs_check_method='file_magic ^x86 archive import|^x86 DLL' lt_cv_file_magic_cmd='func_win32_libid' ;; mingw* | pw32*) # Base MSYS/MinGW do not provide the 'file' command needed by # func_win32_libid shell function, so use a weaker test based on 'objdump', # unless we find 'file', for example because we are cross-compiling. if ( file / ) >/dev/null 2>&1; then lt_cv_deplibs_check_method='file_magic ^x86 archive import|^x86 DLL' lt_cv_file_magic_cmd='func_win32_libid' else lt_cv_deplibs_check_method='file_magic file format pei*-i386(.*architecture: i386)?' lt_cv_file_magic_cmd='$OBJDUMP -f' fi ;; darwin* | rhapsody*) lt_cv_deplibs_check_method=pass_all ;; freebsd* | dragonfly*) if echo __ELF__ | $CC -E - | grep __ELF__ > /dev/null; then case $host_cpu in i*86 ) # Not sure whether the presence of OpenBSD here was a mistake. # Let's accept both of them until this is cleared up. lt_cv_deplibs_check_method='file_magic (FreeBSD|OpenBSD|DragonFly)/i[3-9]86 (compact )?demand paged shared library' lt_cv_file_magic_cmd=/usr/bin/file lt_cv_file_magic_test_file=`echo /usr/lib/libc.so.*` ;; esac else lt_cv_deplibs_check_method=pass_all fi ;; gnu*) lt_cv_deplibs_check_method=pass_all ;; hpux10.20* | hpux11*) lt_cv_file_magic_cmd=/usr/bin/file case $host_cpu in ia64*) lt_cv_deplibs_check_method='file_magic (s[0-9][0-9][0-9]|ELF-[0-9][0-9]) shared object file - IA64' lt_cv_file_magic_test_file=/usr/lib/hpux32/libc.so ;; hppa*64*) lt_cv_deplibs_check_method='file_magic (s[0-9][0-9][0-9]|ELF-[0-9][0-9]) shared object file - PA-RISC [0-9].[0-9]' lt_cv_file_magic_test_file=/usr/lib/pa20_64/libc.sl ;; *) lt_cv_deplibs_check_method='file_magic (s[0-9][0-9][0-9]|PA-RISC[0-9].[0-9]) shared library' lt_cv_file_magic_test_file=/usr/lib/libc.sl ;; esac ;; interix[3-9]*) # PIC code is broken on Interix 3.x, that's why |\.a not |_pic\.a here lt_cv_deplibs_check_method='match_pattern /lib[^/]+(\.so|\.a)$' ;; irix5* | irix6* | nonstopux*) case $LD in *-32|*"-32 ") libmagic=32-bit;; *-n32|*"-n32 ") libmagic=N32;; *-64|*"-64 ") libmagic=64-bit;; *) libmagic=never-match;; esac lt_cv_deplibs_check_method=pass_all ;; # This must be Linux ELF. linux* | k*bsd*-gnu) lt_cv_deplibs_check_method=pass_all ;; netbsd*) if echo __ELF__ | $CC -E - | grep __ELF__ > /dev/null; then lt_cv_deplibs_check_method='match_pattern /lib[^/]+(\.so\.[0-9]+\.[0-9]+|_pic\.a)$' else lt_cv_deplibs_check_method='match_pattern /lib[^/]+(\.so|_pic\.a)$' fi ;; newos6*) lt_cv_deplibs_check_method='file_magic ELF [0-9][0-9]*-bit [ML]SB (executable|dynamic lib)' lt_cv_file_magic_cmd=/usr/bin/file lt_cv_file_magic_test_file=/usr/lib/libnls.so ;; nto-qnx*) lt_cv_deplibs_check_method=unknown ;; openbsd*) if test -z "`echo __ELF__ | $CC -E - | grep __ELF__`" || test "$host_os-$host_cpu" = "openbsd2.8-powerpc"; then lt_cv_deplibs_check_method='match_pattern /lib[^/]+(\.so\.[0-9]+\.[0-9]+|\.so|_pic\.a)$' else lt_cv_deplibs_check_method='match_pattern /lib[^/]+(\.so\.[0-9]+\.[0-9]+|_pic\.a)$' fi ;; osf3* | osf4* | osf5*) lt_cv_deplibs_check_method=pass_all ;; rdos*) lt_cv_deplibs_check_method=pass_all ;; solaris*) lt_cv_deplibs_check_method=pass_all ;; sysv4 | sysv4.3*) case $host_vendor in motorola) lt_cv_deplibs_check_method='file_magic ELF [0-9][0-9]*-bit [ML]SB (shared object|dynamic lib) M[0-9][0-9]* Version [0-9]' lt_cv_file_magic_test_file=`echo /usr/lib/libc.so*` ;; ncr) lt_cv_deplibs_check_method=pass_all ;; sequent) lt_cv_file_magic_cmd='/bin/file' lt_cv_deplibs_check_method='file_magic ELF [0-9][0-9]*-bit [LM]SB (shared object|dynamic lib )' ;; sni) lt_cv_file_magic_cmd='/bin/file' lt_cv_deplibs_check_method="file_magic ELF [0-9][0-9]*-bit [LM]SB dynamic lib" lt_cv_file_magic_test_file=/lib/libc.so ;; siemens) lt_cv_deplibs_check_method=pass_all ;; pc) lt_cv_deplibs_check_method=pass_all ;; esac ;; sysv5* | sco3.2v5* | sco5v6* | unixware* | OpenUNIX* | sysv4*uw2*) lt_cv_deplibs_check_method=pass_all ;; esac fi echo "$as_me:$LINENO: result: $lt_cv_deplibs_check_method" >&5 echo "${ECHO_T}$lt_cv_deplibs_check_method" >&6 file_magic_cmd=$lt_cv_file_magic_cmd deplibs_check_method=$lt_cv_deplibs_check_method test -z "$deplibs_check_method" && deplibs_check_method=unknown # If no C compiler was specified, use CC. LTCC=${LTCC-"$CC"} # If no C compiler flags were specified, use CFLAGS. LTCFLAGS=${LTCFLAGS-"$CFLAGS"} # Allow CC to be a program name with arguments. compiler=$CC # Check whether --enable-libtool-lock or --disable-libtool-lock was given. if test "${enable_libtool_lock+set}" = set; then enableval="$enable_libtool_lock" fi; test "x$enable_libtool_lock" != xno && enable_libtool_lock=yes # Some flags need to be propagated to the compiler or linker for good # libtool support. case $host in ia64-*-hpux*) # Find out which ABI we are using. echo 'int i;' > conftest.$ac_ext if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 (eval $ac_compile) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; then case `/usr/bin/file conftest.$ac_objext` in *ELF-32*) HPUX_IA64_MODE="32" ;; *ELF-64*) HPUX_IA64_MODE="64" ;; esac fi rm -rf conftest* ;; *-*-irix6*) # Find out which ABI we are using. echo '#line 4628 "configure"' > conftest.$ac_ext if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 (eval $ac_compile) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; then if test "$lt_cv_prog_gnu_ld" = yes; then case `/usr/bin/file conftest.$ac_objext` in *32-bit*) LD="${LD-ld} -melf32bsmip" ;; *N32*) LD="${LD-ld} -melf32bmipn32" ;; *64-bit*) LD="${LD-ld} -melf64bmip" ;; esac else case `/usr/bin/file conftest.$ac_objext` in *32-bit*) LD="${LD-ld} -32" ;; *N32*) LD="${LD-ld} -n32" ;; *64-bit*) LD="${LD-ld} -64" ;; esac fi fi rm -rf conftest* ;; x86_64-*kfreebsd*-gnu|x86_64-*linux*|ppc*-*linux*|powerpc*-*linux*| \ s390*-*linux*|sparc*-*linux*) # Find out which ABI we are using. echo 'int i;' > conftest.$ac_ext if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 (eval $ac_compile) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; then case `/usr/bin/file conftest.o` in *32-bit*) case $host in x86_64-*kfreebsd*-gnu) LD="${LD-ld} -m elf_i386_fbsd" ;; x86_64-*linux*) LD="${LD-ld} -m elf_i386" ;; ppc64-*linux*|powerpc64-*linux*) LD="${LD-ld} -m elf32ppclinux" ;; s390x-*linux*) LD="${LD-ld} -m elf_s390" ;; sparc64-*linux*) LD="${LD-ld} -m elf32_sparc" ;; esac ;; *64-bit*) libsuff=64 case $host in x86_64-*kfreebsd*-gnu) LD="${LD-ld} -m elf_x86_64_fbsd" ;; x86_64-*linux*) LD="${LD-ld} -m elf_x86_64" ;; ppc*-*linux*|powerpc*-*linux*) LD="${LD-ld} -m elf64ppc" ;; s390*-*linux*) LD="${LD-ld} -m elf64_s390" ;; sparc*-*linux*) LD="${LD-ld} -m elf64_sparc" ;; esac ;; esac fi rm -rf conftest* ;; *-*-sco3.2v5*) # On SCO OpenServer 5, we need -belf to get full-featured binaries. SAVE_CFLAGS="$CFLAGS" CFLAGS="$CFLAGS -belf" echo "$as_me:$LINENO: checking whether the C compiler needs -belf" >&5 echo $ECHO_N "checking whether the C compiler needs -belf... $ECHO_C" >&6 if test "${lt_cv_cc_needs_belf+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else ac_ext=c ac_cpp='$CPP $CPPFLAGS' ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' ac_compiler_gnu=$ac_cv_c_compiler_gnu cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ int main () { ; return 0; } _ACEOF rm -f conftest.$ac_objext conftest$ac_exeext if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5 (eval $ac_link) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { ac_try='test -z "$ac_c_werror_flag" || test ! -s conftest.err' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; } && { ac_try='test -s conftest$ac_exeext' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then lt_cv_cc_needs_belf=yes else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 lt_cv_cc_needs_belf=no fi rm -f conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext ac_ext=c ac_cpp='$CPP $CPPFLAGS' ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' ac_compiler_gnu=$ac_cv_c_compiler_gnu fi echo "$as_me:$LINENO: result: $lt_cv_cc_needs_belf" >&5 echo "${ECHO_T}$lt_cv_cc_needs_belf" >&6 if test x"$lt_cv_cc_needs_belf" != x"yes"; then # this is probably gcc 2.8.0, egcs 1.0 or newer; no need for -belf CFLAGS="$SAVE_CFLAGS" fi ;; sparc*-*solaris*) # Find out which ABI we are using. echo 'int i;' > conftest.$ac_ext if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 (eval $ac_compile) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; then case `/usr/bin/file conftest.o` in *64-bit*) case $lt_cv_prog_gnu_ld in yes*) LD="${LD-ld} -m elf64_sparc" ;; *) if ${LD-ld} -64 -r -o conftest2.o conftest.o >/dev/null 2>&1; then LD="${LD-ld} -64" fi ;; esac ;; esac fi rm -rf conftest* ;; esac need_locks="$enable_libtool_lock" echo "$as_me:$LINENO: checking for ANSI C header files" >&5 echo $ECHO_N "checking for ANSI C header files... $ECHO_C" >&6 if test "${ac_cv_header_stdc+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ #include #include #include #include int main () { ; return 0; } _ACEOF rm -f conftest.$ac_objext if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 (eval $ac_compile) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { ac_try='test -z "$ac_c_werror_flag" || test ! -s conftest.err' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; } && { ac_try='test -s conftest.$ac_objext' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then ac_cv_header_stdc=yes else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_cv_header_stdc=no fi rm -f conftest.err conftest.$ac_objext conftest.$ac_ext if test $ac_cv_header_stdc = yes; then # SunOS 4.x string.h does not declare mem*, contrary to ANSI. cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ #include _ACEOF if (eval "$ac_cpp conftest.$ac_ext") 2>&5 | $EGREP "memchr" >/dev/null 2>&1; then : else ac_cv_header_stdc=no fi rm -f conftest* fi if test $ac_cv_header_stdc = yes; then # ISC 2.0.2 stdlib.h does not declare free, contrary to ANSI. cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ #include _ACEOF if (eval "$ac_cpp conftest.$ac_ext") 2>&5 | $EGREP "free" >/dev/null 2>&1; then : else ac_cv_header_stdc=no fi rm -f conftest* fi if test $ac_cv_header_stdc = yes; then # /bin/cc in Irix-4.0.5 gets non-ANSI ctype macros unless using -ansi. if test "$cross_compiling" = yes; then : else cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ #include #if ((' ' & 0x0FF) == 0x020) # define ISLOWER(c) ('a' <= (c) && (c) <= 'z') # define TOUPPER(c) (ISLOWER(c) ? 'A' + ((c) - 'a') : (c)) #else # define ISLOWER(c) \ (('a' <= (c) && (c) <= 'i') \ || ('j' <= (c) && (c) <= 'r') \ || ('s' <= (c) && (c) <= 'z')) # define TOUPPER(c) (ISLOWER(c) ? ((c) | 0x40) : (c)) #endif #define XOR(e, f) (((e) && !(f)) || (!(e) && (f))) int main () { int i; for (i = 0; i < 256; i++) if (XOR (islower (i), ISLOWER (i)) || toupper (i) != TOUPPER (i)) exit(2); exit (0); } _ACEOF rm -f conftest$ac_exeext if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5 (eval $ac_link) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { ac_try='./conftest$ac_exeext' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then : else echo "$as_me: program exited with status $ac_status" >&5 echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ( exit $ac_status ) ac_cv_header_stdc=no fi rm -f core *.core gmon.out bb.out conftest$ac_exeext conftest.$ac_objext conftest.$ac_ext fi fi fi echo "$as_me:$LINENO: result: $ac_cv_header_stdc" >&5 echo "${ECHO_T}$ac_cv_header_stdc" >&6 if test $ac_cv_header_stdc = yes; then cat >>confdefs.h <<\_ACEOF #define STDC_HEADERS 1 _ACEOF fi # On IRIX 5.3, sys/types and inttypes.h are conflicting. for ac_header in sys/types.h sys/stat.h stdlib.h string.h memory.h strings.h \ inttypes.h stdint.h unistd.h do as_ac_Header=`echo "ac_cv_header_$ac_header" | $as_tr_sh` echo "$as_me:$LINENO: checking for $ac_header" >&5 echo $ECHO_N "checking for $ac_header... $ECHO_C" >&6 if eval "test \"\${$as_ac_Header+set}\" = set"; then echo $ECHO_N "(cached) $ECHO_C" >&6 else cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ $ac_includes_default #include <$ac_header> _ACEOF rm -f conftest.$ac_objext if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 (eval $ac_compile) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { ac_try='test -z "$ac_c_werror_flag" || test ! -s conftest.err' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; } && { ac_try='test -s conftest.$ac_objext' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then eval "$as_ac_Header=yes" else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 eval "$as_ac_Header=no" fi rm -f conftest.err conftest.$ac_objext conftest.$ac_ext fi echo "$as_me:$LINENO: result: `eval echo '${'$as_ac_Header'}'`" >&5 echo "${ECHO_T}`eval echo '${'$as_ac_Header'}'`" >&6 if test `eval echo '${'$as_ac_Header'}'` = yes; then cat >>confdefs.h <<_ACEOF #define `echo "HAVE_$ac_header" | $as_tr_cpp` 1 _ACEOF fi done for ac_header in dlfcn.h do as_ac_Header=`echo "ac_cv_header_$ac_header" | $as_tr_sh` if eval "test \"\${$as_ac_Header+set}\" = set"; then echo "$as_me:$LINENO: checking for $ac_header" >&5 echo $ECHO_N "checking for $ac_header... $ECHO_C" >&6 if eval "test \"\${$as_ac_Header+set}\" = set"; then echo $ECHO_N "(cached) $ECHO_C" >&6 fi echo "$as_me:$LINENO: result: `eval echo '${'$as_ac_Header'}'`" >&5 echo "${ECHO_T}`eval echo '${'$as_ac_Header'}'`" >&6 else # Is the header compilable? echo "$as_me:$LINENO: checking $ac_header usability" >&5 echo $ECHO_N "checking $ac_header usability... $ECHO_C" >&6 cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ $ac_includes_default #include <$ac_header> _ACEOF rm -f conftest.$ac_objext if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 (eval $ac_compile) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { ac_try='test -z "$ac_c_werror_flag" || test ! -s conftest.err' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; } && { ac_try='test -s conftest.$ac_objext' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then ac_header_compiler=yes else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_header_compiler=no fi rm -f conftest.err conftest.$ac_objext conftest.$ac_ext echo "$as_me:$LINENO: result: $ac_header_compiler" >&5 echo "${ECHO_T}$ac_header_compiler" >&6 # Is the header present? echo "$as_me:$LINENO: checking $ac_header presence" >&5 echo $ECHO_N "checking $ac_header presence... $ECHO_C" >&6 cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ #include <$ac_header> _ACEOF if { (eval echo "$as_me:$LINENO: \"$ac_cpp conftest.$ac_ext\"") >&5 (eval $ac_cpp conftest.$ac_ext) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } >/dev/null; then if test -s conftest.err; then ac_cpp_err=$ac_c_preproc_warn_flag ac_cpp_err=$ac_cpp_err$ac_c_werror_flag else ac_cpp_err= fi else ac_cpp_err=yes fi if test -z "$ac_cpp_err"; then ac_header_preproc=yes else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_header_preproc=no fi rm -f conftest.err conftest.$ac_ext echo "$as_me:$LINENO: result: $ac_header_preproc" >&5 echo "${ECHO_T}$ac_header_preproc" >&6 # So? What about this header? case $ac_header_compiler:$ac_header_preproc:$ac_c_preproc_warn_flag in yes:no: ) { echo "$as_me:$LINENO: WARNING: $ac_header: accepted by the compiler, rejected by the preprocessor!" >&5 echo "$as_me: WARNING: $ac_header: accepted by the compiler, rejected by the preprocessor!" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: proceeding with the compiler's result" >&5 echo "$as_me: WARNING: $ac_header: proceeding with the compiler's result" >&2;} ac_header_preproc=yes ;; no:yes:* ) { echo "$as_me:$LINENO: WARNING: $ac_header: present but cannot be compiled" >&5 echo "$as_me: WARNING: $ac_header: present but cannot be compiled" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: check for missing prerequisite headers?" >&5 echo "$as_me: WARNING: $ac_header: check for missing prerequisite headers?" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: see the Autoconf documentation" >&5 echo "$as_me: WARNING: $ac_header: see the Autoconf documentation" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: section \"Present But Cannot Be Compiled\"" >&5 echo "$as_me: WARNING: $ac_header: section \"Present But Cannot Be Compiled\"" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: proceeding with the preprocessor's result" >&5 echo "$as_me: WARNING: $ac_header: proceeding with the preprocessor's result" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: in the future, the compiler will take precedence" >&5 echo "$as_me: WARNING: $ac_header: in the future, the compiler will take precedence" >&2;} ( cat <<\_ASBOX ## ------------------------------------------ ## ## Report this to the AC_PACKAGE_NAME lists. ## ## ------------------------------------------ ## _ASBOX ) | sed "s/^/$as_me: WARNING: /" >&2 ;; esac echo "$as_me:$LINENO: checking for $ac_header" >&5 echo $ECHO_N "checking for $ac_header... $ECHO_C" >&6 if eval "test \"\${$as_ac_Header+set}\" = set"; then echo $ECHO_N "(cached) $ECHO_C" >&6 else eval "$as_ac_Header=\$ac_header_preproc" fi echo "$as_me:$LINENO: result: `eval echo '${'$as_ac_Header'}'`" >&5 echo "${ECHO_T}`eval echo '${'$as_ac_Header'}'`" >&6 fi if test `eval echo '${'$as_ac_Header'}'` = yes; then cat >>confdefs.h <<_ACEOF #define `echo "HAVE_$ac_header" | $as_tr_cpp` 1 _ACEOF fi done if test -n "$CXX" && ( test "X$CXX" != "Xno" && ( (test "X$CXX" = "Xg++" && `g++ -v >/dev/null 2>&1` ) || (test "X$CXX" != "Xg++"))) ; then ac_ext=cc ac_cpp='$CXXCPP $CPPFLAGS' ac_compile='$CXX -c $CXXFLAGS $CPPFLAGS conftest.$ac_ext >&5' ac_link='$CXX -o conftest$ac_exeext $CXXFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' ac_compiler_gnu=$ac_cv_cxx_compiler_gnu echo "$as_me:$LINENO: checking how to run the C++ preprocessor" >&5 echo $ECHO_N "checking how to run the C++ preprocessor... $ECHO_C" >&6 if test -z "$CXXCPP"; then if test "${ac_cv_prog_CXXCPP+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else # Double quotes because CXXCPP needs to be expanded for CXXCPP in "$CXX -E" "/lib/cpp" do ac_preproc_ok=false for ac_cxx_preproc_warn_flag in '' yes do # Use a header file that comes with gcc, so configuring glibc # with a fresh cross-compiler works. # Prefer to if __STDC__ is defined, since # exists even on freestanding compilers. # On the NeXT, cc -E runs the code through the compiler's parser, # not just through cpp. "Syntax error" is here to catch this case. cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ #ifdef __STDC__ # include #else # include #endif Syntax error _ACEOF if { (eval echo "$as_me:$LINENO: \"$ac_cpp conftest.$ac_ext\"") >&5 (eval $ac_cpp conftest.$ac_ext) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } >/dev/null; then if test -s conftest.err; then ac_cpp_err=$ac_cxx_preproc_warn_flag ac_cpp_err=$ac_cpp_err$ac_cxx_werror_flag else ac_cpp_err= fi else ac_cpp_err=yes fi if test -z "$ac_cpp_err"; then : else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 # Broken: fails on valid input. continue fi rm -f conftest.err conftest.$ac_ext # OK, works on sane cases. Now check whether non-existent headers # can be detected and how. cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ #include _ACEOF if { (eval echo "$as_me:$LINENO: \"$ac_cpp conftest.$ac_ext\"") >&5 (eval $ac_cpp conftest.$ac_ext) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } >/dev/null; then if test -s conftest.err; then ac_cpp_err=$ac_cxx_preproc_warn_flag ac_cpp_err=$ac_cpp_err$ac_cxx_werror_flag else ac_cpp_err= fi else ac_cpp_err=yes fi if test -z "$ac_cpp_err"; then # Broken: success on invalid input. continue else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 # Passes both tests. ac_preproc_ok=: break fi rm -f conftest.err conftest.$ac_ext done # Because of `break', _AC_PREPROC_IFELSE's cleaning code was skipped. rm -f conftest.err conftest.$ac_ext if $ac_preproc_ok; then break fi done ac_cv_prog_CXXCPP=$CXXCPP fi CXXCPP=$ac_cv_prog_CXXCPP else ac_cv_prog_CXXCPP=$CXXCPP fi echo "$as_me:$LINENO: result: $CXXCPP" >&5 echo "${ECHO_T}$CXXCPP" >&6 ac_preproc_ok=false for ac_cxx_preproc_warn_flag in '' yes do # Use a header file that comes with gcc, so configuring glibc # with a fresh cross-compiler works. # Prefer to if __STDC__ is defined, since # exists even on freestanding compilers. # On the NeXT, cc -E runs the code through the compiler's parser, # not just through cpp. "Syntax error" is here to catch this case. cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ #ifdef __STDC__ # include #else # include #endif Syntax error _ACEOF if { (eval echo "$as_me:$LINENO: \"$ac_cpp conftest.$ac_ext\"") >&5 (eval $ac_cpp conftest.$ac_ext) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } >/dev/null; then if test -s conftest.err; then ac_cpp_err=$ac_cxx_preproc_warn_flag ac_cpp_err=$ac_cpp_err$ac_cxx_werror_flag else ac_cpp_err= fi else ac_cpp_err=yes fi if test -z "$ac_cpp_err"; then : else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 # Broken: fails on valid input. continue fi rm -f conftest.err conftest.$ac_ext # OK, works on sane cases. Now check whether non-existent headers # can be detected and how. cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ #include _ACEOF if { (eval echo "$as_me:$LINENO: \"$ac_cpp conftest.$ac_ext\"") >&5 (eval $ac_cpp conftest.$ac_ext) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } >/dev/null; then if test -s conftest.err; then ac_cpp_err=$ac_cxx_preproc_warn_flag ac_cpp_err=$ac_cpp_err$ac_cxx_werror_flag else ac_cpp_err= fi else ac_cpp_err=yes fi if test -z "$ac_cpp_err"; then # Broken: success on invalid input. continue else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 # Passes both tests. ac_preproc_ok=: break fi rm -f conftest.err conftest.$ac_ext done # Because of `break', _AC_PREPROC_IFELSE's cleaning code was skipped. rm -f conftest.err conftest.$ac_ext if $ac_preproc_ok; then : else { { echo "$as_me:$LINENO: error: C++ preprocessor \"$CXXCPP\" fails sanity check See \`config.log' for more details." >&5 echo "$as_me: error: C++ preprocessor \"$CXXCPP\" fails sanity check See \`config.log' for more details." >&2;} { (exit 1); exit 1; }; } fi ac_ext=cc ac_cpp='$CXXCPP $CPPFLAGS' ac_compile='$CXX -c $CXXFLAGS $CPPFLAGS conftest.$ac_ext >&5' ac_link='$CXX -o conftest$ac_exeext $CXXFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' ac_compiler_gnu=$ac_cv_cxx_compiler_gnu fi ac_ext=f ac_compile='$F77 -c $FFLAGS conftest.$ac_ext >&5' ac_link='$F77 -o conftest$ac_exeext $FFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' ac_compiler_gnu=$ac_cv_f77_compiler_gnu if test -n "$ac_tool_prefix"; then for ac_prog in g77 f77 xlf frt pgf77 fort77 fl32 af77 f90 xlf90 pgf90 epcf90 f95 fort xlf95 ifc efc pgf95 lf95 gfortran do # Extract the first word of "$ac_tool_prefix$ac_prog", so it can be a program name with args. set dummy $ac_tool_prefix$ac_prog; ac_word=$2 echo "$as_me:$LINENO: checking for $ac_word" >&5 echo $ECHO_N "checking for $ac_word... $ECHO_C" >&6 if test "${ac_cv_prog_F77+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else if test -n "$F77"; then ac_cv_prog_F77="$F77" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if $as_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_F77="$ac_tool_prefix$ac_prog" echo "$as_me:$LINENO: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done fi fi F77=$ac_cv_prog_F77 if test -n "$F77"; then echo "$as_me:$LINENO: result: $F77" >&5 echo "${ECHO_T}$F77" >&6 else echo "$as_me:$LINENO: result: no" >&5 echo "${ECHO_T}no" >&6 fi test -n "$F77" && break done fi if test -z "$F77"; then ac_ct_F77=$F77 for ac_prog in g77 f77 xlf frt pgf77 fort77 fl32 af77 f90 xlf90 pgf90 epcf90 f95 fort xlf95 ifc efc pgf95 lf95 gfortran do # Extract the first word of "$ac_prog", so it can be a program name with args. set dummy $ac_prog; ac_word=$2 echo "$as_me:$LINENO: checking for $ac_word" >&5 echo $ECHO_N "checking for $ac_word... $ECHO_C" >&6 if test "${ac_cv_prog_ac_ct_F77+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else if test -n "$ac_ct_F77"; then ac_cv_prog_ac_ct_F77="$ac_ct_F77" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if $as_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_ac_ct_F77="$ac_prog" echo "$as_me:$LINENO: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done fi fi ac_ct_F77=$ac_cv_prog_ac_ct_F77 if test -n "$ac_ct_F77"; then echo "$as_me:$LINENO: result: $ac_ct_F77" >&5 echo "${ECHO_T}$ac_ct_F77" >&6 else echo "$as_me:$LINENO: result: no" >&5 echo "${ECHO_T}no" >&6 fi test -n "$ac_ct_F77" && break done F77=$ac_ct_F77 fi # Provide some information about the compiler. echo "$as_me:5540:" \ "checking for Fortran 77 compiler version" >&5 ac_compiler=`set X $ac_compile; echo $2` { (eval echo "$as_me:$LINENO: \"$ac_compiler --version &5\"") >&5 (eval $ac_compiler --version &5) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } { (eval echo "$as_me:$LINENO: \"$ac_compiler -v &5\"") >&5 (eval $ac_compiler -v &5) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } { (eval echo "$as_me:$LINENO: \"$ac_compiler -V &5\"") >&5 (eval $ac_compiler -V &5) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } rm -f a.out # If we don't use `.F' as extension, the preprocessor is not run on the # input file. (Note that this only needs to work for GNU compilers.) ac_save_ext=$ac_ext ac_ext=F echo "$as_me:$LINENO: checking whether we are using the GNU Fortran 77 compiler" >&5 echo $ECHO_N "checking whether we are using the GNU Fortran 77 compiler... $ECHO_C" >&6 if test "${ac_cv_f77_compiler_gnu+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else cat >conftest.$ac_ext <<_ACEOF program main #ifndef __GNUC__ choke me #endif end _ACEOF rm -f conftest.$ac_objext if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 (eval $ac_compile) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { ac_try='test -z "$ac_f77_werror_flag" || test ! -s conftest.err' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; } && { ac_try='test -s conftest.$ac_objext' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then ac_compiler_gnu=yes else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_compiler_gnu=no fi rm -f conftest.err conftest.$ac_objext conftest.$ac_ext ac_cv_f77_compiler_gnu=$ac_compiler_gnu fi echo "$as_me:$LINENO: result: $ac_cv_f77_compiler_gnu" >&5 echo "${ECHO_T}$ac_cv_f77_compiler_gnu" >&6 ac_ext=$ac_save_ext ac_test_FFLAGS=${FFLAGS+set} ac_save_FFLAGS=$FFLAGS FFLAGS= echo "$as_me:$LINENO: checking whether $F77 accepts -g" >&5 echo $ECHO_N "checking whether $F77 accepts -g... $ECHO_C" >&6 if test "${ac_cv_prog_f77_g+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else FFLAGS=-g cat >conftest.$ac_ext <<_ACEOF program main end _ACEOF rm -f conftest.$ac_objext if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 (eval $ac_compile) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { ac_try='test -z "$ac_f77_werror_flag" || test ! -s conftest.err' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; } && { ac_try='test -s conftest.$ac_objext' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then ac_cv_prog_f77_g=yes else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_cv_prog_f77_g=no fi rm -f conftest.err conftest.$ac_objext conftest.$ac_ext fi echo "$as_me:$LINENO: result: $ac_cv_prog_f77_g" >&5 echo "${ECHO_T}$ac_cv_prog_f77_g" >&6 if test "$ac_test_FFLAGS" = set; then FFLAGS=$ac_save_FFLAGS elif test $ac_cv_prog_f77_g = yes; then if test "x$ac_cv_f77_compiler_gnu" = xyes; then FFLAGS="-g -O2" else FFLAGS="-g" fi else if test "x$ac_cv_f77_compiler_gnu" = xyes; then FFLAGS="-O2" else FFLAGS= fi fi G77=`test $ac_compiler_gnu = yes && echo yes` ac_ext=c ac_cpp='$CPP $CPPFLAGS' ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' ac_compiler_gnu=$ac_cv_c_compiler_gnu # Autoconf 2.13's AC_OBJEXT and AC_EXEEXT macros only works for C compilers! # find the maximum length of command line arguments echo "$as_me:$LINENO: checking the maximum length of command line arguments" >&5 echo $ECHO_N "checking the maximum length of command line arguments... $ECHO_C" >&6 if test "${lt_cv_sys_max_cmd_len+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else i=0 teststring="ABCD" case $build_os in msdosdjgpp*) # On DJGPP, this test can blow up pretty badly due to problems in libc # (any single argument exceeding 2000 bytes causes a buffer overrun # during glob expansion). Even if it were fixed, the result of this # check would be larger than it should be. lt_cv_sys_max_cmd_len=12288; # 12K is about right ;; gnu*) # Under GNU Hurd, this test is not required because there is # no limit to the length of command line arguments. # Libtool will interpret -1 as no limit whatsoever lt_cv_sys_max_cmd_len=-1; ;; cygwin* | mingw*) # On Win9x/ME, this test blows up -- it succeeds, but takes # about 5 minutes as the teststring grows exponentially. # Worse, since 9x/ME are not pre-emptively multitasking, # you end up with a "frozen" computer, even though with patience # the test eventually succeeds (with a max line length of 256k). # Instead, let's just punt: use the minimum linelength reported by # all of the supported platforms: 8192 (on NT/2K/XP). lt_cv_sys_max_cmd_len=8192; ;; amigaos*) # On AmigaOS with pdksh, this test takes hours, literally. # So we just punt and use a minimum line length of 8192. lt_cv_sys_max_cmd_len=8192; ;; netbsd* | freebsd* | openbsd* | darwin* | dragonfly*) # This has been around since 386BSD, at least. Likely further. if test -x /sbin/sysctl; then lt_cv_sys_max_cmd_len=`/sbin/sysctl -n kern.argmax` elif test -x /usr/sbin/sysctl; then lt_cv_sys_max_cmd_len=`/usr/sbin/sysctl -n kern.argmax` else lt_cv_sys_max_cmd_len=65536 # usable default for all BSDs fi # And add a safety zone lt_cv_sys_max_cmd_len=`expr $lt_cv_sys_max_cmd_len \/ 4` lt_cv_sys_max_cmd_len=`expr $lt_cv_sys_max_cmd_len \* 3` ;; interix*) # We know the value 262144 and hardcode it with a safety zone (like BSD) lt_cv_sys_max_cmd_len=196608 ;; osf*) # Dr. Hans Ekkehard Plesser reports seeing a kernel panic running configure # due to this test when exec_disable_arg_limit is 1 on Tru64. It is not # nice to cause kernel panics so lets avoid the loop below. # First set a reasonable default. lt_cv_sys_max_cmd_len=16384 # if test -x /sbin/sysconfig; then case `/sbin/sysconfig -q proc exec_disable_arg_limit` in *1*) lt_cv_sys_max_cmd_len=-1 ;; esac fi ;; sco3.2v5*) lt_cv_sys_max_cmd_len=102400 ;; sysv5* | sco5v6* | sysv4.2uw2*) kargmax=`grep ARG_MAX /etc/conf/cf.d/stune 2>/dev/null` if test -n "$kargmax"; then lt_cv_sys_max_cmd_len=`echo $kargmax | sed 's/.*[ ]//'` else lt_cv_sys_max_cmd_len=32768 fi ;; *) lt_cv_sys_max_cmd_len=`(getconf ARG_MAX) 2> /dev/null` if test -n "$lt_cv_sys_max_cmd_len"; then lt_cv_sys_max_cmd_len=`expr $lt_cv_sys_max_cmd_len \/ 4` lt_cv_sys_max_cmd_len=`expr $lt_cv_sys_max_cmd_len \* 3` else SHELL=${SHELL-${CONFIG_SHELL-/bin/sh}} while (test "X"`$SHELL $0 --fallback-echo "X$teststring" 2>/dev/null` \ = "XX$teststring") >/dev/null 2>&1 && new_result=`expr "X$teststring" : ".*" 2>&1` && lt_cv_sys_max_cmd_len=$new_result && test $i != 17 # 1/2 MB should be enough do i=`expr $i + 1` teststring=$teststring$teststring done teststring= # Add a significant safety factor because C++ compilers can tack on massive # amounts of additional arguments before passing them to the linker. # It appears as though 1/2 is a usable value. lt_cv_sys_max_cmd_len=`expr $lt_cv_sys_max_cmd_len \/ 2` fi ;; esac fi if test -n $lt_cv_sys_max_cmd_len ; then echo "$as_me:$LINENO: result: $lt_cv_sys_max_cmd_len" >&5 echo "${ECHO_T}$lt_cv_sys_max_cmd_len" >&6 else echo "$as_me:$LINENO: result: none" >&5 echo "${ECHO_T}none" >&6 fi # Check for command to grab the raw symbol name followed by C symbol from nm. echo "$as_me:$LINENO: checking command to parse $NM output from $compiler object" >&5 echo $ECHO_N "checking command to parse $NM output from $compiler object... $ECHO_C" >&6 if test "${lt_cv_sys_global_symbol_pipe+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else # These are sane defaults that work on at least a few old systems. # [They come from Ultrix. What could be older than Ultrix?!! ;)] # Character class describing NM global symbol codes. symcode='[BCDEGRST]' # Regexp to match symbols that can be accessed directly from C. sympat='\([_A-Za-z][_A-Za-z0-9]*\)' # Transform an extracted symbol line into a proper C declaration lt_cv_sys_global_symbol_to_cdecl="sed -n -e 's/^. .* \(.*\)$/extern int \1;/p'" # Transform an extracted symbol line into symbol name and symbol address lt_cv_sys_global_symbol_to_c_name_address="sed -n -e 's/^: \([^ ]*\) $/ {\\\"\1\\\", (lt_ptr) 0},/p' -e 's/^$symcode \([^ ]*\) \([^ ]*\)$/ {\"\2\", (lt_ptr) \&\2},/p'" # Define system-specific variables. case $host_os in aix*) symcode='[BCDT]' ;; cygwin* | mingw* | pw32*) symcode='[ABCDGISTW]' ;; hpux*) # Its linker distinguishes data from code symbols if test "$host_cpu" = ia64; then symcode='[ABCDEGRST]' fi lt_cv_sys_global_symbol_to_cdecl="sed -n -e 's/^T .* \(.*\)$/extern int \1();/p' -e 's/^$symcode* .* \(.*\)$/extern char \1;/p'" lt_cv_sys_global_symbol_to_c_name_address="sed -n -e 's/^: \([^ ]*\) $/ {\\\"\1\\\", (lt_ptr) 0},/p' -e 's/^$symcode* \([^ ]*\) \([^ ]*\)$/ {\"\2\", (lt_ptr) \&\2},/p'" ;; linux* | k*bsd*-gnu) if test "$host_cpu" = ia64; then symcode='[ABCDGIRSTW]' lt_cv_sys_global_symbol_to_cdecl="sed -n -e 's/^T .* \(.*\)$/extern int \1();/p' -e 's/^$symcode* .* \(.*\)$/extern char \1;/p'" lt_cv_sys_global_symbol_to_c_name_address="sed -n -e 's/^: \([^ ]*\) $/ {\\\"\1\\\", (lt_ptr) 0},/p' -e 's/^$symcode* \([^ ]*\) \([^ ]*\)$/ {\"\2\", (lt_ptr) \&\2},/p'" fi ;; irix* | nonstopux*) symcode='[BCDEGRST]' ;; osf*) symcode='[BCDEGQRST]' ;; solaris*) symcode='[BDRT]' ;; sco3.2v5*) symcode='[DT]' ;; sysv4.2uw2*) symcode='[DT]' ;; sysv5* | sco5v6* | unixware* | OpenUNIX*) symcode='[ABDT]' ;; sysv4) symcode='[DFNSTU]' ;; esac # Handle CRLF in mingw tool chain opt_cr= case $build_os in mingw*) opt_cr=`echo 'x\{0,1\}' | tr x '\015'` # option cr in regexp ;; esac # If we're using GNU nm, then use its standard symbol codes. case `$NM -V 2>&1` in *GNU* | *'with BFD'*) symcode='[ABCDGIRSTW]' ;; esac # Try without a prefix undercore, then with it. for ac_symprfx in "" "_"; do # Transform symcode, sympat, and symprfx into a raw symbol and a C symbol. symxfrm="\\1 $ac_symprfx\\2 \\2" # Write the raw and C identifiers. lt_cv_sys_global_symbol_pipe="sed -n -e 's/^.*[ ]\($symcode$symcode*\)[ ][ ]*$ac_symprfx$sympat$opt_cr$/$symxfrm/p'" # Check to see that the pipe works correctly. pipe_works=no rm -f conftest* cat > conftest.$ac_ext <&5 (eval $ac_compile) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; then # Now try to grab the symbols. nlist=conftest.nm if { (eval echo "$as_me:$LINENO: \"$NM conftest.$ac_objext \| $lt_cv_sys_global_symbol_pipe \> $nlist\"") >&5 (eval $NM conftest.$ac_objext \| $lt_cv_sys_global_symbol_pipe \> $nlist) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && test -s "$nlist"; then # Try sorting and uniquifying the output. if sort "$nlist" | uniq > "$nlist"T; then mv -f "$nlist"T "$nlist" else rm -f "$nlist"T fi # Make sure that we snagged all the symbols we need. if grep ' nm_test_var$' "$nlist" >/dev/null; then if grep ' nm_test_func$' "$nlist" >/dev/null; then cat < conftest.$ac_ext #ifdef __cplusplus extern "C" { #endif EOF # Now generate the symbol file. eval "$lt_cv_sys_global_symbol_to_cdecl"' < "$nlist" | grep -v main >> conftest.$ac_ext' cat <> conftest.$ac_ext #if defined (__STDC__) && __STDC__ # define lt_ptr_t void * #else # define lt_ptr_t char * # define const #endif /* The mapping between symbol names and symbols. */ const struct { const char *name; lt_ptr_t address; } lt_preloaded_symbols[] = { EOF $SED "s/^$symcode$symcode* \(.*\) \(.*\)$/ {\"\2\", (lt_ptr_t) \&\2},/" < "$nlist" | grep -v main >> conftest.$ac_ext cat <<\EOF >> conftest.$ac_ext {0, (lt_ptr_t) 0} }; #ifdef __cplusplus } #endif EOF # Now try linking the two files. mv conftest.$ac_objext conftstm.$ac_objext lt_save_LIBS="$LIBS" lt_save_CFLAGS="$CFLAGS" LIBS="conftstm.$ac_objext" CFLAGS="$CFLAGS$lt_prog_compiler_no_builtin_flag" if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5 (eval $ac_link) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && test -s conftest${ac_exeext}; then pipe_works=yes fi LIBS="$lt_save_LIBS" CFLAGS="$lt_save_CFLAGS" else echo "cannot find nm_test_func in $nlist" >&5 fi else echo "cannot find nm_test_var in $nlist" >&5 fi else echo "cannot run $lt_cv_sys_global_symbol_pipe" >&5 fi else echo "$progname: failed program was:" >&5 cat conftest.$ac_ext >&5 fi rm -rf conftest* conftst* # Do not use the global_symbol_pipe unless it works. if test "$pipe_works" = yes; then break else lt_cv_sys_global_symbol_pipe= fi done fi if test -z "$lt_cv_sys_global_symbol_pipe"; then lt_cv_sys_global_symbol_to_cdecl= fi if test -z "$lt_cv_sys_global_symbol_pipe$lt_cv_sys_global_symbol_to_cdecl"; then echo "$as_me:$LINENO: result: failed" >&5 echo "${ECHO_T}failed" >&6 else echo "$as_me:$LINENO: result: ok" >&5 echo "${ECHO_T}ok" >&6 fi echo "$as_me:$LINENO: checking for objdir" >&5 echo $ECHO_N "checking for objdir... $ECHO_C" >&6 if test "${lt_cv_objdir+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else rm -f .libs 2>/dev/null mkdir .libs 2>/dev/null if test -d .libs; then lt_cv_objdir=.libs else # MS-DOS does not allow filenames that begin with a dot. lt_cv_objdir=_libs fi rmdir .libs 2>/dev/null fi echo "$as_me:$LINENO: result: $lt_cv_objdir" >&5 echo "${ECHO_T}$lt_cv_objdir" >&6 objdir=$lt_cv_objdir case $host_os in aix3*) # AIX sometimes has problems with the GCC collect2 program. For some # reason, if we set the COLLECT_NAMES environment variable, the problems # vanish in a puff of smoke. if test "X${COLLECT_NAMES+set}" != Xset; then COLLECT_NAMES= export COLLECT_NAMES fi ;; esac # Sed substitution that helps us do robust quoting. It backslashifies # metacharacters that are still active within double-quoted strings. Xsed='sed -e 1s/^X//' sed_quote_subst='s/\([\\"\\`$\\\\]\)/\\\1/g' # Same as above, but do not quote variable references. double_quote_subst='s/\([\\"\\`\\\\]\)/\\\1/g' # Sed substitution to delay expansion of an escaped shell variable in a # double_quote_subst'ed string. delay_variable_subst='s/\\\\\\\\\\\$/\\\\\\$/g' # Sed substitution to avoid accidental globbing in evaled expressions no_glob_subst='s/\*/\\\*/g' # Constants: rm="rm -f" # Global variables: default_ofile=libtool can_build_shared=yes # All known linkers require a `.a' archive for static linking (except MSVC, # which needs '.lib'). libext=a ltmain="$ac_aux_dir/ltmain.sh" ofile="$default_ofile" with_gnu_ld="$lt_cv_prog_gnu_ld" if test -n "$ac_tool_prefix"; then # Extract the first word of "${ac_tool_prefix}ar", so it can be a program name with args. set dummy ${ac_tool_prefix}ar; ac_word=$2 echo "$as_me:$LINENO: checking for $ac_word" >&5 echo $ECHO_N "checking for $ac_word... $ECHO_C" >&6 if test "${ac_cv_prog_AR+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else if test -n "$AR"; then ac_cv_prog_AR="$AR" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if $as_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_AR="${ac_tool_prefix}ar" echo "$as_me:$LINENO: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done fi fi AR=$ac_cv_prog_AR if test -n "$AR"; then echo "$as_me:$LINENO: result: $AR" >&5 echo "${ECHO_T}$AR" >&6 else echo "$as_me:$LINENO: result: no" >&5 echo "${ECHO_T}no" >&6 fi fi if test -z "$ac_cv_prog_AR"; then ac_ct_AR=$AR # Extract the first word of "ar", so it can be a program name with args. set dummy ar; ac_word=$2 echo "$as_me:$LINENO: checking for $ac_word" >&5 echo $ECHO_N "checking for $ac_word... $ECHO_C" >&6 if test "${ac_cv_prog_ac_ct_AR+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else if test -n "$ac_ct_AR"; then ac_cv_prog_ac_ct_AR="$ac_ct_AR" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if $as_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_ac_ct_AR="ar" echo "$as_me:$LINENO: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done test -z "$ac_cv_prog_ac_ct_AR" && ac_cv_prog_ac_ct_AR="false" fi fi ac_ct_AR=$ac_cv_prog_ac_ct_AR if test -n "$ac_ct_AR"; then echo "$as_me:$LINENO: result: $ac_ct_AR" >&5 echo "${ECHO_T}$ac_ct_AR" >&6 else echo "$as_me:$LINENO: result: no" >&5 echo "${ECHO_T}no" >&6 fi AR=$ac_ct_AR else AR="$ac_cv_prog_AR" fi if test -n "$ac_tool_prefix"; then # Extract the first word of "${ac_tool_prefix}ranlib", so it can be a program name with args. set dummy ${ac_tool_prefix}ranlib; ac_word=$2 echo "$as_me:$LINENO: checking for $ac_word" >&5 echo $ECHO_N "checking for $ac_word... $ECHO_C" >&6 if test "${ac_cv_prog_RANLIB+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else if test -n "$RANLIB"; then ac_cv_prog_RANLIB="$RANLIB" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if $as_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_RANLIB="${ac_tool_prefix}ranlib" echo "$as_me:$LINENO: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done fi fi RANLIB=$ac_cv_prog_RANLIB if test -n "$RANLIB"; then echo "$as_me:$LINENO: result: $RANLIB" >&5 echo "${ECHO_T}$RANLIB" >&6 else echo "$as_me:$LINENO: result: no" >&5 echo "${ECHO_T}no" >&6 fi fi if test -z "$ac_cv_prog_RANLIB"; then ac_ct_RANLIB=$RANLIB # Extract the first word of "ranlib", so it can be a program name with args. set dummy ranlib; ac_word=$2 echo "$as_me:$LINENO: checking for $ac_word" >&5 echo $ECHO_N "checking for $ac_word... $ECHO_C" >&6 if test "${ac_cv_prog_ac_ct_RANLIB+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else if test -n "$ac_ct_RANLIB"; then ac_cv_prog_ac_ct_RANLIB="$ac_ct_RANLIB" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if $as_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_ac_ct_RANLIB="ranlib" echo "$as_me:$LINENO: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done test -z "$ac_cv_prog_ac_ct_RANLIB" && ac_cv_prog_ac_ct_RANLIB=":" fi fi ac_ct_RANLIB=$ac_cv_prog_ac_ct_RANLIB if test -n "$ac_ct_RANLIB"; then echo "$as_me:$LINENO: result: $ac_ct_RANLIB" >&5 echo "${ECHO_T}$ac_ct_RANLIB" >&6 else echo "$as_me:$LINENO: result: no" >&5 echo "${ECHO_T}no" >&6 fi RANLIB=$ac_ct_RANLIB else RANLIB="$ac_cv_prog_RANLIB" fi if test -n "$ac_tool_prefix"; then # Extract the first word of "${ac_tool_prefix}strip", so it can be a program name with args. set dummy ${ac_tool_prefix}strip; ac_word=$2 echo "$as_me:$LINENO: checking for $ac_word" >&5 echo $ECHO_N "checking for $ac_word... $ECHO_C" >&6 if test "${ac_cv_prog_STRIP+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else if test -n "$STRIP"; then ac_cv_prog_STRIP="$STRIP" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if $as_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_STRIP="${ac_tool_prefix}strip" echo "$as_me:$LINENO: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done fi fi STRIP=$ac_cv_prog_STRIP if test -n "$STRIP"; then echo "$as_me:$LINENO: result: $STRIP" >&5 echo "${ECHO_T}$STRIP" >&6 else echo "$as_me:$LINENO: result: no" >&5 echo "${ECHO_T}no" >&6 fi fi if test -z "$ac_cv_prog_STRIP"; then ac_ct_STRIP=$STRIP # Extract the first word of "strip", so it can be a program name with args. set dummy strip; ac_word=$2 echo "$as_me:$LINENO: checking for $ac_word" >&5 echo $ECHO_N "checking for $ac_word... $ECHO_C" >&6 if test "${ac_cv_prog_ac_ct_STRIP+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else if test -n "$ac_ct_STRIP"; then ac_cv_prog_ac_ct_STRIP="$ac_ct_STRIP" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if $as_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_ac_ct_STRIP="strip" echo "$as_me:$LINENO: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done test -z "$ac_cv_prog_ac_ct_STRIP" && ac_cv_prog_ac_ct_STRIP=":" fi fi ac_ct_STRIP=$ac_cv_prog_ac_ct_STRIP if test -n "$ac_ct_STRIP"; then echo "$as_me:$LINENO: result: $ac_ct_STRIP" >&5 echo "${ECHO_T}$ac_ct_STRIP" >&6 else echo "$as_me:$LINENO: result: no" >&5 echo "${ECHO_T}no" >&6 fi STRIP=$ac_ct_STRIP else STRIP="$ac_cv_prog_STRIP" fi old_CC="$CC" old_CFLAGS="$CFLAGS" # Set sane defaults for various variables test -z "$AR" && AR=ar test -z "$AR_FLAGS" && AR_FLAGS=cru test -z "$AS" && AS=as test -z "$CC" && CC=cc test -z "$LTCC" && LTCC=$CC test -z "$LTCFLAGS" && LTCFLAGS=$CFLAGS test -z "$DLLTOOL" && DLLTOOL=dlltool test -z "$LD" && LD=ld test -z "$LN_S" && LN_S="ln -s" test -z "$MAGIC_CMD" && MAGIC_CMD=file test -z "$NM" && NM=nm test -z "$SED" && SED=sed test -z "$OBJDUMP" && OBJDUMP=objdump test -z "$RANLIB" && RANLIB=: test -z "$STRIP" && STRIP=: test -z "$ac_objext" && ac_objext=o # Determine commands to create old-style static archives. old_archive_cmds='$AR $AR_FLAGS $oldlib$oldobjs' old_postinstall_cmds='chmod 644 $oldlib' old_postuninstall_cmds= if test -n "$RANLIB"; then case $host_os in openbsd*) old_postinstall_cmds="$old_postinstall_cmds~\$RANLIB -t \$oldlib" ;; *) old_postinstall_cmds="$old_postinstall_cmds~\$RANLIB \$oldlib" ;; esac old_archive_cmds="$old_archive_cmds~\$RANLIB \$oldlib" fi for cc_temp in $compiler""; do case $cc_temp in compile | *[\\/]compile | ccache | *[\\/]ccache ) ;; distcc | *[\\/]distcc | purify | *[\\/]purify ) ;; \-*) ;; *) break;; esac done cc_basename=`$echo "X$cc_temp" | $Xsed -e 's%.*/%%' -e "s%^$host_alias-%%"` # Only perform the check for file, if the check method requires it case $deplibs_check_method in file_magic*) if test "$file_magic_cmd" = '$MAGIC_CMD'; then echo "$as_me:$LINENO: checking for ${ac_tool_prefix}file" >&5 echo $ECHO_N "checking for ${ac_tool_prefix}file... $ECHO_C" >&6 if test "${lt_cv_path_MAGIC_CMD+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else case $MAGIC_CMD in [\\/*] | ?:[\\/]*) lt_cv_path_MAGIC_CMD="$MAGIC_CMD" # Let the user override the test with a path. ;; *) lt_save_MAGIC_CMD="$MAGIC_CMD" lt_save_ifs="$IFS"; IFS=$PATH_SEPARATOR ac_dummy="/usr/bin$PATH_SEPARATOR$PATH" for ac_dir in $ac_dummy; do IFS="$lt_save_ifs" test -z "$ac_dir" && ac_dir=. if test -f $ac_dir/${ac_tool_prefix}file; then lt_cv_path_MAGIC_CMD="$ac_dir/${ac_tool_prefix}file" if test -n "$file_magic_test_file"; then case $deplibs_check_method in "file_magic "*) file_magic_regex=`expr "$deplibs_check_method" : "file_magic \(.*\)"` MAGIC_CMD="$lt_cv_path_MAGIC_CMD" if eval $file_magic_cmd \$file_magic_test_file 2> /dev/null | $EGREP "$file_magic_regex" > /dev/null; then : else cat <&2 *** Warning: the command libtool uses to detect shared libraries, *** $file_magic_cmd, produces output that libtool cannot recognize. *** The result is that libtool may fail to recognize shared libraries *** as such. This will affect the creation of libtool libraries that *** depend on shared libraries, but programs linked with such libtool *** libraries will work regardless of this problem. Nevertheless, you *** may want to report the problem to your system manager and/or to *** bug-libtool@gnu.org EOF fi ;; esac fi break fi done IFS="$lt_save_ifs" MAGIC_CMD="$lt_save_MAGIC_CMD" ;; esac fi MAGIC_CMD="$lt_cv_path_MAGIC_CMD" if test -n "$MAGIC_CMD"; then echo "$as_me:$LINENO: result: $MAGIC_CMD" >&5 echo "${ECHO_T}$MAGIC_CMD" >&6 else echo "$as_me:$LINENO: result: no" >&5 echo "${ECHO_T}no" >&6 fi if test -z "$lt_cv_path_MAGIC_CMD"; then if test -n "$ac_tool_prefix"; then echo "$as_me:$LINENO: checking for file" >&5 echo $ECHO_N "checking for file... $ECHO_C" >&6 if test "${lt_cv_path_MAGIC_CMD+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else case $MAGIC_CMD in [\\/*] | ?:[\\/]*) lt_cv_path_MAGIC_CMD="$MAGIC_CMD" # Let the user override the test with a path. ;; *) lt_save_MAGIC_CMD="$MAGIC_CMD" lt_save_ifs="$IFS"; IFS=$PATH_SEPARATOR ac_dummy="/usr/bin$PATH_SEPARATOR$PATH" for ac_dir in $ac_dummy; do IFS="$lt_save_ifs" test -z "$ac_dir" && ac_dir=. if test -f $ac_dir/file; then lt_cv_path_MAGIC_CMD="$ac_dir/file" if test -n "$file_magic_test_file"; then case $deplibs_check_method in "file_magic "*) file_magic_regex=`expr "$deplibs_check_method" : "file_magic \(.*\)"` MAGIC_CMD="$lt_cv_path_MAGIC_CMD" if eval $file_magic_cmd \$file_magic_test_file 2> /dev/null | $EGREP "$file_magic_regex" > /dev/null; then : else cat <&2 *** Warning: the command libtool uses to detect shared libraries, *** $file_magic_cmd, produces output that libtool cannot recognize. *** The result is that libtool may fail to recognize shared libraries *** as such. This will affect the creation of libtool libraries that *** depend on shared libraries, but programs linked with such libtool *** libraries will work regardless of this problem. Nevertheless, you *** may want to report the problem to your system manager and/or to *** bug-libtool@gnu.org EOF fi ;; esac fi break fi done IFS="$lt_save_ifs" MAGIC_CMD="$lt_save_MAGIC_CMD" ;; esac fi MAGIC_CMD="$lt_cv_path_MAGIC_CMD" if test -n "$MAGIC_CMD"; then echo "$as_me:$LINENO: result: $MAGIC_CMD" >&5 echo "${ECHO_T}$MAGIC_CMD" >&6 else echo "$as_me:$LINENO: result: no" >&5 echo "${ECHO_T}no" >&6 fi else MAGIC_CMD=: fi fi fi ;; esac case $host_os in rhapsody* | darwin*) if test -n "$ac_tool_prefix"; then # Extract the first word of "${ac_tool_prefix}dsymutil", so it can be a program name with args. set dummy ${ac_tool_prefix}dsymutil; ac_word=$2 echo "$as_me:$LINENO: checking for $ac_word" >&5 echo $ECHO_N "checking for $ac_word... $ECHO_C" >&6 if test "${ac_cv_prog_DSYMUTIL+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else if test -n "$DSYMUTIL"; then ac_cv_prog_DSYMUTIL="$DSYMUTIL" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if $as_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_DSYMUTIL="${ac_tool_prefix}dsymutil" echo "$as_me:$LINENO: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done fi fi DSYMUTIL=$ac_cv_prog_DSYMUTIL if test -n "$DSYMUTIL"; then echo "$as_me:$LINENO: result: $DSYMUTIL" >&5 echo "${ECHO_T}$DSYMUTIL" >&6 else echo "$as_me:$LINENO: result: no" >&5 echo "${ECHO_T}no" >&6 fi fi if test -z "$ac_cv_prog_DSYMUTIL"; then ac_ct_DSYMUTIL=$DSYMUTIL # Extract the first word of "dsymutil", so it can be a program name with args. set dummy dsymutil; ac_word=$2 echo "$as_me:$LINENO: checking for $ac_word" >&5 echo $ECHO_N "checking for $ac_word... $ECHO_C" >&6 if test "${ac_cv_prog_ac_ct_DSYMUTIL+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else if test -n "$ac_ct_DSYMUTIL"; then ac_cv_prog_ac_ct_DSYMUTIL="$ac_ct_DSYMUTIL" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if $as_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_ac_ct_DSYMUTIL="dsymutil" echo "$as_me:$LINENO: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done test -z "$ac_cv_prog_ac_ct_DSYMUTIL" && ac_cv_prog_ac_ct_DSYMUTIL=":" fi fi ac_ct_DSYMUTIL=$ac_cv_prog_ac_ct_DSYMUTIL if test -n "$ac_ct_DSYMUTIL"; then echo "$as_me:$LINENO: result: $ac_ct_DSYMUTIL" >&5 echo "${ECHO_T}$ac_ct_DSYMUTIL" >&6 else echo "$as_me:$LINENO: result: no" >&5 echo "${ECHO_T}no" >&6 fi DSYMUTIL=$ac_ct_DSYMUTIL else DSYMUTIL="$ac_cv_prog_DSYMUTIL" fi if test -n "$ac_tool_prefix"; then # Extract the first word of "${ac_tool_prefix}nmedit", so it can be a program name with args. set dummy ${ac_tool_prefix}nmedit; ac_word=$2 echo "$as_me:$LINENO: checking for $ac_word" >&5 echo $ECHO_N "checking for $ac_word... $ECHO_C" >&6 if test "${ac_cv_prog_NMEDIT+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else if test -n "$NMEDIT"; then ac_cv_prog_NMEDIT="$NMEDIT" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if $as_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_NMEDIT="${ac_tool_prefix}nmedit" echo "$as_me:$LINENO: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done fi fi NMEDIT=$ac_cv_prog_NMEDIT if test -n "$NMEDIT"; then echo "$as_me:$LINENO: result: $NMEDIT" >&5 echo "${ECHO_T}$NMEDIT" >&6 else echo "$as_me:$LINENO: result: no" >&5 echo "${ECHO_T}no" >&6 fi fi if test -z "$ac_cv_prog_NMEDIT"; then ac_ct_NMEDIT=$NMEDIT # Extract the first word of "nmedit", so it can be a program name with args. set dummy nmedit; ac_word=$2 echo "$as_me:$LINENO: checking for $ac_word" >&5 echo $ECHO_N "checking for $ac_word... $ECHO_C" >&6 if test "${ac_cv_prog_ac_ct_NMEDIT+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else if test -n "$ac_ct_NMEDIT"; then ac_cv_prog_ac_ct_NMEDIT="$ac_ct_NMEDIT" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if $as_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_ac_ct_NMEDIT="nmedit" echo "$as_me:$LINENO: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done test -z "$ac_cv_prog_ac_ct_NMEDIT" && ac_cv_prog_ac_ct_NMEDIT=":" fi fi ac_ct_NMEDIT=$ac_cv_prog_ac_ct_NMEDIT if test -n "$ac_ct_NMEDIT"; then echo "$as_me:$LINENO: result: $ac_ct_NMEDIT" >&5 echo "${ECHO_T}$ac_ct_NMEDIT" >&6 else echo "$as_me:$LINENO: result: no" >&5 echo "${ECHO_T}no" >&6 fi NMEDIT=$ac_ct_NMEDIT else NMEDIT="$ac_cv_prog_NMEDIT" fi echo "$as_me:$LINENO: checking for -single_module linker flag" >&5 echo $ECHO_N "checking for -single_module linker flag... $ECHO_C" >&6 if test "${lt_cv_apple_cc_single_mod+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else lt_cv_apple_cc_single_mod=no if test -z "${LT_MULTI_MODULE}"; then # By default we will add the -single_module flag. You can override # by either setting the environment variable LT_MULTI_MODULE # non-empty at configure time, or by adding -multi_module to the # link flags. echo "int foo(void){return 1;}" > conftest.c $LTCC $LTCFLAGS $LDFLAGS -o libconftest.dylib \ -dynamiclib ${wl}-single_module conftest.c if test -f libconftest.dylib; then lt_cv_apple_cc_single_mod=yes rm -rf libconftest.dylib* fi rm conftest.c fi fi echo "$as_me:$LINENO: result: $lt_cv_apple_cc_single_mod" >&5 echo "${ECHO_T}$lt_cv_apple_cc_single_mod" >&6 echo "$as_me:$LINENO: checking for -exported_symbols_list linker flag" >&5 echo $ECHO_N "checking for -exported_symbols_list linker flag... $ECHO_C" >&6 if test "${lt_cv_ld_exported_symbols_list+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else lt_cv_ld_exported_symbols_list=no save_LDFLAGS=$LDFLAGS echo "_main" > conftest.sym LDFLAGS="$LDFLAGS -Wl,-exported_symbols_list,conftest.sym" cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ int main () { ; return 0; } _ACEOF rm -f conftest.$ac_objext conftest$ac_exeext if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5 (eval $ac_link) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { ac_try='test -z "$ac_c_werror_flag" || test ! -s conftest.err' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; } && { ac_try='test -s conftest$ac_exeext' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then lt_cv_ld_exported_symbols_list=yes else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 lt_cv_ld_exported_symbols_list=no fi rm -f conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext LDFLAGS="$save_LDFLAGS" fi echo "$as_me:$LINENO: result: $lt_cv_ld_exported_symbols_list" >&5 echo "${ECHO_T}$lt_cv_ld_exported_symbols_list" >&6 case $host_os in rhapsody* | darwin1.[0123]) _lt_dar_allow_undefined='${wl}-undefined ${wl}suppress' ;; darwin1.*) _lt_dar_allow_undefined='${wl}-flat_namespace ${wl}-undefined ${wl}suppress' ;; darwin*) # if running on 10.5 or later, the deployment target defaults # to the OS version, if on x86, and 10.4, the deployment # target defaults to 10.4. Don't you love it? case ${MACOSX_DEPLOYMENT_TARGET-10.0},$host in 10.0,*86*-darwin8*|10.0,*-darwin[91]*) _lt_dar_allow_undefined='${wl}-undefined ${wl}dynamic_lookup' ;; 10.[012]*) _lt_dar_allow_undefined='${wl}-flat_namespace ${wl}-undefined ${wl}suppress' ;; 10.*) _lt_dar_allow_undefined='${wl}-undefined ${wl}dynamic_lookup' ;; esac ;; esac if test "$lt_cv_apple_cc_single_mod" = "yes"; then _lt_dar_single_mod='$single_module' fi if test "$lt_cv_ld_exported_symbols_list" = "yes"; then _lt_dar_export_syms=' ${wl}-exported_symbols_list,$output_objdir/${libname}-symbols.expsym' else _lt_dar_export_syms="~$NMEDIT -s \$output_objdir/\${libname}-symbols.expsym \${lib}" fi if test "$DSYMUTIL" != ":"; then _lt_dsymutil="~$DSYMUTIL \$lib || :" else _lt_dsymutil= fi ;; esac enable_dlopen=no enable_win32_dll=no # Check whether --enable-libtool-lock or --disable-libtool-lock was given. if test "${enable_libtool_lock+set}" = set; then enableval="$enable_libtool_lock" fi; test "x$enable_libtool_lock" != xno && enable_libtool_lock=yes # Check whether --with-pic or --without-pic was given. if test "${with_pic+set}" = set; then withval="$with_pic" pic_mode="$withval" else pic_mode=default fi; test -z "$pic_mode" && pic_mode=default # Use C for the default configuration in the libtool script tagname= lt_save_CC="$CC" ac_ext=c ac_cpp='$CPP $CPPFLAGS' ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' ac_compiler_gnu=$ac_cv_c_compiler_gnu # Source file extension for C test sources. ac_ext=c # Object file extension for compiled C test sources. objext=o objext=$objext # Code to be used in simple compile tests lt_simple_compile_test_code="int some_variable = 0;" # Code to be used in simple link tests lt_simple_link_test_code='int main(){return(0);}' # If no C compiler was specified, use CC. LTCC=${LTCC-"$CC"} # If no C compiler flags were specified, use CFLAGS. LTCFLAGS=${LTCFLAGS-"$CFLAGS"} # Allow CC to be a program name with arguments. compiler=$CC # save warnings/boilerplate of simple test code ac_outfile=conftest.$ac_objext echo "$lt_simple_compile_test_code" >conftest.$ac_ext eval "$ac_compile" 2>&1 >/dev/null | $SED '/^$/d; /^ *+/d' >conftest.err _lt_compiler_boilerplate=`cat conftest.err` $rm conftest* ac_outfile=conftest.$ac_objext echo "$lt_simple_link_test_code" >conftest.$ac_ext eval "$ac_link" 2>&1 >/dev/null | $SED '/^$/d; /^ *+/d' >conftest.err _lt_linker_boilerplate=`cat conftest.err` $rm -r conftest* lt_prog_compiler_no_builtin_flag= if test "$GCC" = yes; then lt_prog_compiler_no_builtin_flag=' -fno-builtin' echo "$as_me:$LINENO: checking if $compiler supports -fno-rtti -fno-exceptions" >&5 echo $ECHO_N "checking if $compiler supports -fno-rtti -fno-exceptions... $ECHO_C" >&6 if test "${lt_cv_prog_compiler_rtti_exceptions+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else lt_cv_prog_compiler_rtti_exceptions=no ac_outfile=conftest.$ac_objext echo "$lt_simple_compile_test_code" > conftest.$ac_ext lt_compiler_flag="-fno-rtti -fno-exceptions" # Insert the option either (1) after the last *FLAGS variable, or # (2) before a word containing "conftest.", or (3) at the end. # Note that $ac_compile itself does not contain backslashes and begins # with a dollar sign (not a hyphen), so the echo should work correctly. # The option is referenced via a variable to avoid confusing sed. lt_compile=`echo "$ac_compile" | $SED \ -e 's:.*FLAGS}\{0,1\} :&$lt_compiler_flag :; t' \ -e 's: [^ ]*conftest\.: $lt_compiler_flag&:; t' \ -e 's:$: $lt_compiler_flag:'` (eval echo "\"\$as_me:6889: $lt_compile\"" >&5) (eval "$lt_compile" 2>conftest.err) ac_status=$? cat conftest.err >&5 echo "$as_me:6893: \$? = $ac_status" >&5 if (exit $ac_status) && test -s "$ac_outfile"; then # The compiler can only warn and ignore the option if not recognized # So say no if there are warnings other than the usual output. $echo "X$_lt_compiler_boilerplate" | $Xsed -e '/^$/d' >conftest.exp $SED '/^$/d; /^ *+/d' conftest.err >conftest.er2 if test ! -s conftest.er2 || diff conftest.exp conftest.er2 >/dev/null; then lt_cv_prog_compiler_rtti_exceptions=yes fi fi $rm conftest* fi echo "$as_me:$LINENO: result: $lt_cv_prog_compiler_rtti_exceptions" >&5 echo "${ECHO_T}$lt_cv_prog_compiler_rtti_exceptions" >&6 if test x"$lt_cv_prog_compiler_rtti_exceptions" = xyes; then lt_prog_compiler_no_builtin_flag="$lt_prog_compiler_no_builtin_flag -fno-rtti -fno-exceptions" else : fi fi lt_prog_compiler_wl= lt_prog_compiler_pic= lt_prog_compiler_static= echo "$as_me:$LINENO: checking for $compiler option to produce PIC" >&5 echo $ECHO_N "checking for $compiler option to produce PIC... $ECHO_C" >&6 if test "$GCC" = yes; then lt_prog_compiler_wl='-Wl,' lt_prog_compiler_static='-static' case $host_os in aix*) # All AIX code is PIC. if test "$host_cpu" = ia64; then # AIX 5 now supports IA64 processor lt_prog_compiler_static='-Bstatic' fi ;; amigaos*) # FIXME: we need at least 68020 code to build shared libraries, but # adding the `-m68020' flag to GCC prevents building anything better, # like `-m68040'. lt_prog_compiler_pic='-m68020 -resident32 -malways-restore-a4' ;; beos* | irix5* | irix6* | nonstopux* | osf3* | osf4* | osf5*) # PIC is the default for these OSes. ;; mingw* | cygwin* | pw32* | os2*) # This hack is so that the source file can tell whether it is being # built for inclusion in a dll (and should export symbols for example). # Although the cygwin gcc ignores -fPIC, still need this for old-style # (--disable-auto-import) libraries lt_prog_compiler_pic='-DDLL_EXPORT' ;; darwin* | rhapsody*) # PIC is the default on this platform # Common symbols not allowed in MH_DYLIB files lt_prog_compiler_pic='-fno-common' ;; interix[3-9]*) # Interix 3.x gcc -fpic/-fPIC options generate broken code. # Instead, we relocate shared libraries at runtime. ;; msdosdjgpp*) # Just because we use GCC doesn't mean we suddenly get shared libraries # on systems that don't support them. lt_prog_compiler_can_build_shared=no enable_shared=no ;; sysv4*MP*) if test -d /usr/nec; then lt_prog_compiler_pic=-Kconform_pic fi ;; hpux*) # PIC is the default for IA64 HP-UX and 64-bit HP-UX, but # not for PA HP-UX. case $host_cpu in hppa*64*|ia64*) # +Z the default ;; *) lt_prog_compiler_pic='-fPIC' ;; esac ;; *) lt_prog_compiler_pic='-fPIC' ;; esac else # PORTME Check for flag to pass linker flags through the system compiler. case $host_os in aix*) lt_prog_compiler_wl='-Wl,' if test "$host_cpu" = ia64; then # AIX 5 now supports IA64 processor lt_prog_compiler_static='-Bstatic' else lt_prog_compiler_static='-bnso -bI:/lib/syscalls.exp' fi ;; darwin*) # PIC is the default on this platform # Common symbols not allowed in MH_DYLIB files case $cc_basename in xlc*) lt_prog_compiler_pic='-qnocommon' lt_prog_compiler_wl='-Wl,' ;; esac ;; mingw* | cygwin* | pw32* | os2*) # This hack is so that the source file can tell whether it is being # built for inclusion in a dll (and should export symbols for example). lt_prog_compiler_pic='-DDLL_EXPORT' ;; hpux9* | hpux10* | hpux11*) lt_prog_compiler_wl='-Wl,' # PIC is the default for IA64 HP-UX and 64-bit HP-UX, but # not for PA HP-UX. case $host_cpu in hppa*64*|ia64*) # +Z the default ;; *) lt_prog_compiler_pic='+Z' ;; esac # Is there a better lt_prog_compiler_static that works with the bundled CC? lt_prog_compiler_static='${wl}-a ${wl}archive' ;; irix5* | irix6* | nonstopux*) lt_prog_compiler_wl='-Wl,' # PIC (with -KPIC) is the default. lt_prog_compiler_static='-non_shared' ;; newsos6) lt_prog_compiler_pic='-KPIC' lt_prog_compiler_static='-Bstatic' ;; linux* | k*bsd*-gnu) case $cc_basename in icc* | ecc*) lt_prog_compiler_wl='-Wl,' lt_prog_compiler_pic='-KPIC' lt_prog_compiler_static='-static' ;; pgcc* | pgf77* | pgf90* | pgf95*) # Portland Group compilers (*not* the Pentium gcc compiler, # which looks to be a dead project) lt_prog_compiler_wl='-Wl,' lt_prog_compiler_pic='-fpic' lt_prog_compiler_static='-Bstatic' ;; ccc*) lt_prog_compiler_wl='-Wl,' # All Alpha code is PIC. lt_prog_compiler_static='-non_shared' ;; *) case `$CC -V 2>&1 | sed 5q` in *Sun\ C*) # Sun C 5.9 lt_prog_compiler_pic='-KPIC' lt_prog_compiler_static='-Bstatic' lt_prog_compiler_wl='-Wl,' ;; *Sun\ F*) # Sun Fortran 8.3 passes all unrecognized flags to the linker lt_prog_compiler_pic='-KPIC' lt_prog_compiler_static='-Bstatic' lt_prog_compiler_wl='' ;; esac ;; esac ;; osf3* | osf4* | osf5*) lt_prog_compiler_wl='-Wl,' # All OSF/1 code is PIC. lt_prog_compiler_static='-non_shared' ;; rdos*) lt_prog_compiler_static='-non_shared' ;; solaris*) lt_prog_compiler_pic='-KPIC' lt_prog_compiler_static='-Bstatic' case $cc_basename in f77* | f90* | f95*) lt_prog_compiler_wl='-Qoption ld ';; *) lt_prog_compiler_wl='-Wl,';; esac ;; sunos4*) lt_prog_compiler_wl='-Qoption ld ' lt_prog_compiler_pic='-PIC' lt_prog_compiler_static='-Bstatic' ;; sysv4 | sysv4.2uw2* | sysv4.3*) lt_prog_compiler_wl='-Wl,' lt_prog_compiler_pic='-KPIC' lt_prog_compiler_static='-Bstatic' ;; sysv4*MP*) if test -d /usr/nec ;then lt_prog_compiler_pic='-Kconform_pic' lt_prog_compiler_static='-Bstatic' fi ;; sysv5* | unixware* | sco3.2v5* | sco5v6* | OpenUNIX*) lt_prog_compiler_wl='-Wl,' lt_prog_compiler_pic='-KPIC' lt_prog_compiler_static='-Bstatic' ;; unicos*) lt_prog_compiler_wl='-Wl,' lt_prog_compiler_can_build_shared=no ;; uts4*) lt_prog_compiler_pic='-pic' lt_prog_compiler_static='-Bstatic' ;; *) lt_prog_compiler_can_build_shared=no ;; esac fi echo "$as_me:$LINENO: result: $lt_prog_compiler_pic" >&5 echo "${ECHO_T}$lt_prog_compiler_pic" >&6 # # Check to make sure the PIC flag actually works. # if test -n "$lt_prog_compiler_pic"; then echo "$as_me:$LINENO: checking if $compiler PIC flag $lt_prog_compiler_pic works" >&5 echo $ECHO_N "checking if $compiler PIC flag $lt_prog_compiler_pic works... $ECHO_C" >&6 if test "${lt_cv_prog_compiler_pic_works+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else lt_cv_prog_compiler_pic_works=no ac_outfile=conftest.$ac_objext echo "$lt_simple_compile_test_code" > conftest.$ac_ext lt_compiler_flag="$lt_prog_compiler_pic -DPIC" # Insert the option either (1) after the last *FLAGS variable, or # (2) before a word containing "conftest.", or (3) at the end. # Note that $ac_compile itself does not contain backslashes and begins # with a dollar sign (not a hyphen), so the echo should work correctly. # The option is referenced via a variable to avoid confusing sed. lt_compile=`echo "$ac_compile" | $SED \ -e 's:.*FLAGS}\{0,1\} :&$lt_compiler_flag :; t' \ -e 's: [^ ]*conftest\.: $lt_compiler_flag&:; t' \ -e 's:$: $lt_compiler_flag:'` (eval echo "\"\$as_me:7179: $lt_compile\"" >&5) (eval "$lt_compile" 2>conftest.err) ac_status=$? cat conftest.err >&5 echo "$as_me:7183: \$? = $ac_status" >&5 if (exit $ac_status) && test -s "$ac_outfile"; then # The compiler can only warn and ignore the option if not recognized # So say no if there are warnings other than the usual output. $echo "X$_lt_compiler_boilerplate" | $Xsed -e '/^$/d' >conftest.exp $SED '/^$/d; /^ *+/d' conftest.err >conftest.er2 if test ! -s conftest.er2 || diff conftest.exp conftest.er2 >/dev/null; then lt_cv_prog_compiler_pic_works=yes fi fi $rm conftest* fi echo "$as_me:$LINENO: result: $lt_cv_prog_compiler_pic_works" >&5 echo "${ECHO_T}$lt_cv_prog_compiler_pic_works" >&6 if test x"$lt_cv_prog_compiler_pic_works" = xyes; then case $lt_prog_compiler_pic in "" | " "*) ;; *) lt_prog_compiler_pic=" $lt_prog_compiler_pic" ;; esac else lt_prog_compiler_pic= lt_prog_compiler_can_build_shared=no fi fi case $host_os in # For platforms which do not support PIC, -DPIC is meaningless: *djgpp*) lt_prog_compiler_pic= ;; *) lt_prog_compiler_pic="$lt_prog_compiler_pic -DPIC" ;; esac # # Check to make sure the static flag actually works. # wl=$lt_prog_compiler_wl eval lt_tmp_static_flag=\"$lt_prog_compiler_static\" echo "$as_me:$LINENO: checking if $compiler static flag $lt_tmp_static_flag works" >&5 echo $ECHO_N "checking if $compiler static flag $lt_tmp_static_flag works... $ECHO_C" >&6 if test "${lt_cv_prog_compiler_static_works+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else lt_cv_prog_compiler_static_works=no save_LDFLAGS="$LDFLAGS" LDFLAGS="$LDFLAGS $lt_tmp_static_flag" echo "$lt_simple_link_test_code" > conftest.$ac_ext if (eval $ac_link 2>conftest.err) && test -s conftest$ac_exeext; then # The linker can only warn and ignore the option if not recognized # So say no if there are warnings if test -s conftest.err; then # Append any errors to the config.log. cat conftest.err 1>&5 $echo "X$_lt_linker_boilerplate" | $Xsed -e '/^$/d' > conftest.exp $SED '/^$/d; /^ *+/d' conftest.err >conftest.er2 if diff conftest.exp conftest.er2 >/dev/null; then lt_cv_prog_compiler_static_works=yes fi else lt_cv_prog_compiler_static_works=yes fi fi $rm -r conftest* LDFLAGS="$save_LDFLAGS" fi echo "$as_me:$LINENO: result: $lt_cv_prog_compiler_static_works" >&5 echo "${ECHO_T}$lt_cv_prog_compiler_static_works" >&6 if test x"$lt_cv_prog_compiler_static_works" = xyes; then : else lt_prog_compiler_static= fi echo "$as_me:$LINENO: checking if $compiler supports -c -o file.$ac_objext" >&5 echo $ECHO_N "checking if $compiler supports -c -o file.$ac_objext... $ECHO_C" >&6 if test "${lt_cv_prog_compiler_c_o+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else lt_cv_prog_compiler_c_o=no $rm -r conftest 2>/dev/null mkdir conftest cd conftest mkdir out echo "$lt_simple_compile_test_code" > conftest.$ac_ext lt_compiler_flag="-o out/conftest2.$ac_objext" # Insert the option either (1) after the last *FLAGS variable, or # (2) before a word containing "conftest.", or (3) at the end. # Note that $ac_compile itself does not contain backslashes and begins # with a dollar sign (not a hyphen), so the echo should work correctly. lt_compile=`echo "$ac_compile" | $SED \ -e 's:.*FLAGS}\{0,1\} :&$lt_compiler_flag :; t' \ -e 's: [^ ]*conftest\.: $lt_compiler_flag&:; t' \ -e 's:$: $lt_compiler_flag:'` (eval echo "\"\$as_me:7283: $lt_compile\"" >&5) (eval "$lt_compile" 2>out/conftest.err) ac_status=$? cat out/conftest.err >&5 echo "$as_me:7287: \$? = $ac_status" >&5 if (exit $ac_status) && test -s out/conftest2.$ac_objext then # The compiler can only warn and ignore the option if not recognized # So say no if there are warnings $echo "X$_lt_compiler_boilerplate" | $Xsed -e '/^$/d' > out/conftest.exp $SED '/^$/d; /^ *+/d' out/conftest.err >out/conftest.er2 if test ! -s out/conftest.er2 || diff out/conftest.exp out/conftest.er2 >/dev/null; then lt_cv_prog_compiler_c_o=yes fi fi chmod u+w . 2>&5 $rm conftest* # SGI C++ compiler will create directory out/ii_files/ for # template instantiation test -d out/ii_files && $rm out/ii_files/* && rmdir out/ii_files $rm out/* && rmdir out cd .. rmdir conftest $rm conftest* fi echo "$as_me:$LINENO: result: $lt_cv_prog_compiler_c_o" >&5 echo "${ECHO_T}$lt_cv_prog_compiler_c_o" >&6 hard_links="nottested" if test "$lt_cv_prog_compiler_c_o" = no && test "$need_locks" != no; then # do not overwrite the value of need_locks provided by the user echo "$as_me:$LINENO: checking if we can lock with hard links" >&5 echo $ECHO_N "checking if we can lock with hard links... $ECHO_C" >&6 hard_links=yes $rm conftest* ln conftest.a conftest.b 2>/dev/null && hard_links=no touch conftest.a ln conftest.a conftest.b 2>&5 || hard_links=no ln conftest.a conftest.b 2>/dev/null && hard_links=no echo "$as_me:$LINENO: result: $hard_links" >&5 echo "${ECHO_T}$hard_links" >&6 if test "$hard_links" = no; then { echo "$as_me:$LINENO: WARNING: \`$CC' does not support \`-c -o', so \`make -j' may be unsafe" >&5 echo "$as_me: WARNING: \`$CC' does not support \`-c -o', so \`make -j' may be unsafe" >&2;} need_locks=warn fi else need_locks=no fi echo "$as_me:$LINENO: checking whether the $compiler linker ($LD) supports shared libraries" >&5 echo $ECHO_N "checking whether the $compiler linker ($LD) supports shared libraries... $ECHO_C" >&6 runpath_var= allow_undefined_flag= enable_shared_with_static_runtimes=no archive_cmds= archive_expsym_cmds= old_archive_From_new_cmds= old_archive_from_expsyms_cmds= export_dynamic_flag_spec= whole_archive_flag_spec= thread_safe_flag_spec= hardcode_libdir_flag_spec= hardcode_libdir_flag_spec_ld= hardcode_libdir_separator= hardcode_direct=no hardcode_minus_L=no hardcode_shlibpath_var=unsupported link_all_deplibs=unknown hardcode_automatic=no module_cmds= module_expsym_cmds= always_export_symbols=no export_symbols_cmds='$NM $libobjs $convenience | $global_symbol_pipe | $SED '\''s/.* //'\'' | sort | uniq > $export_symbols' # include_expsyms should be a list of space-separated symbols to be *always* # included in the symbol list include_expsyms= # exclude_expsyms can be an extended regexp of symbols to exclude # it will be wrapped by ` (' and `)$', so one must not match beginning or # end of line. Example: `a|bc|.*d.*' will exclude the symbols `a' and `bc', # as well as any symbol that contains `d'. exclude_expsyms='_GLOBAL_OFFSET_TABLE_|_GLOBAL__F[ID]_.*' # Although _GLOBAL_OFFSET_TABLE_ is a valid symbol C name, most a.out # platforms (ab)use it in PIC code, but their linkers get confused if # the symbol is explicitly referenced. Since portable code cannot # rely on this symbol name, it's probably fine to never include it in # preloaded symbol tables. # Exclude shared library initialization/finalization symbols. extract_expsyms_cmds= # Just being paranoid about ensuring that cc_basename is set. for cc_temp in $compiler""; do case $cc_temp in compile | *[\\/]compile | ccache | *[\\/]ccache ) ;; distcc | *[\\/]distcc | purify | *[\\/]purify ) ;; \-*) ;; *) break;; esac done cc_basename=`$echo "X$cc_temp" | $Xsed -e 's%.*/%%' -e "s%^$host_alias-%%"` case $host_os in cygwin* | mingw* | pw32*) # FIXME: the MSVC++ port hasn't been tested in a loooong time # When not using gcc, we currently assume that we are using # Microsoft Visual C++. if test "$GCC" != yes; then with_gnu_ld=no fi ;; interix*) # we just hope/assume this is gcc and not c89 (= MSVC++) with_gnu_ld=yes ;; openbsd*) with_gnu_ld=no ;; esac ld_shlibs=yes if test "$with_gnu_ld" = yes; then # If archive_cmds runs LD, not CC, wlarc should be empty wlarc='${wl}' # Set some defaults for GNU ld with shared library support. These # are reset later if shared libraries are not supported. Putting them # here allows them to be overridden if necessary. runpath_var=LD_RUN_PATH hardcode_libdir_flag_spec='${wl}--rpath ${wl}$libdir' export_dynamic_flag_spec='${wl}--export-dynamic' # ancient GNU ld didn't support --whole-archive et. al. if $LD --help 2>&1 | grep 'no-whole-archive' > /dev/null; then whole_archive_flag_spec="$wlarc"'--whole-archive$convenience '"$wlarc"'--no-whole-archive' else whole_archive_flag_spec= fi supports_anon_versioning=no case `$LD -v 2>/dev/null` in *\ [01].* | *\ 2.[0-9].* | *\ 2.10.*) ;; # catch versions < 2.11 *\ 2.11.93.0.2\ *) supports_anon_versioning=yes ;; # RH7.3 ... *\ 2.11.92.0.12\ *) supports_anon_versioning=yes ;; # Mandrake 8.2 ... *\ 2.11.*) ;; # other 2.11 versions *) supports_anon_versioning=yes ;; esac # See if GNU ld supports shared libraries. case $host_os in aix[3-9]*) # On AIX/PPC, the GNU linker is very broken if test "$host_cpu" != ia64; then ld_shlibs=no cat <&2 *** Warning: the GNU linker, at least up to release 2.9.1, is reported *** to be unable to reliably create shared libraries on AIX. *** Therefore, libtool is disabling shared libraries support. If you *** really care for shared libraries, you may want to modify your PATH *** so that a non-GNU linker is found, and then restart. EOF fi ;; amigaos*) archive_cmds='$rm $output_objdir/a2ixlibrary.data~$echo "#define NAME $libname" > $output_objdir/a2ixlibrary.data~$echo "#define LIBRARY_ID 1" >> $output_objdir/a2ixlibrary.data~$echo "#define VERSION $major" >> $output_objdir/a2ixlibrary.data~$echo "#define REVISION $revision" >> $output_objdir/a2ixlibrary.data~$AR $AR_FLAGS $lib $libobjs~$RANLIB $lib~(cd $output_objdir && a2ixlibrary -32)' hardcode_libdir_flag_spec='-L$libdir' hardcode_minus_L=yes # Samuel A. Falvo II reports # that the semantics of dynamic libraries on AmigaOS, at least up # to version 4, is to share data among multiple programs linked # with the same dynamic library. Since this doesn't match the # behavior of shared libraries on other platforms, we can't use # them. ld_shlibs=no ;; beos*) if $LD --help 2>&1 | grep ': supported targets:.* elf' > /dev/null; then allow_undefined_flag=unsupported # Joseph Beckenbach says some releases of gcc # support --undefined. This deserves some investigation. FIXME archive_cmds='$CC -nostart $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib' else ld_shlibs=no fi ;; cygwin* | mingw* | pw32*) # _LT_AC_TAGVAR(hardcode_libdir_flag_spec, ) is actually meaningless, # as there is no search path for DLLs. hardcode_libdir_flag_spec='-L$libdir' allow_undefined_flag=unsupported always_export_symbols=no enable_shared_with_static_runtimes=yes export_symbols_cmds='$NM $libobjs $convenience | $global_symbol_pipe | $SED -e '\''/^[BCDGRS][ ]/s/.*[ ]\([^ ]*\)/\1 DATA/'\'' -e '\''/^[AITW][ ]/s/.*[ ]//'\'' | sort | uniq > $export_symbols' if $LD --help 2>&1 | grep 'auto-import' > /dev/null; then archive_cmds='$CC -shared $libobjs $deplibs $compiler_flags -o $output_objdir/$soname ${wl}--enable-auto-image-base -Xlinker --out-implib -Xlinker $lib' # If the export-symbols file already is a .def file (1st line # is EXPORTS), use it as is; otherwise, prepend... archive_expsym_cmds='if test "x`$SED 1q $export_symbols`" = xEXPORTS; then cp $export_symbols $output_objdir/$soname.def; else echo EXPORTS > $output_objdir/$soname.def; cat $export_symbols >> $output_objdir/$soname.def; fi~ $CC -shared $output_objdir/$soname.def $libobjs $deplibs $compiler_flags -o $output_objdir/$soname ${wl}--enable-auto-image-base -Xlinker --out-implib -Xlinker $lib' else ld_shlibs=no fi ;; interix[3-9]*) hardcode_direct=no hardcode_shlibpath_var=no hardcode_libdir_flag_spec='${wl}-rpath,$libdir' export_dynamic_flag_spec='${wl}-E' # Hack: On Interix 3.x, we cannot compile PIC because of a broken gcc. # Instead, shared libraries are loaded at an image base (0x10000000 by # default) and relocated if they conflict, which is a slow very memory # consuming and fragmenting process. To avoid this, we pick a random, # 256 KiB-aligned image base between 0x50000000 and 0x6FFC0000 at link # time. Moving up from 0x10000000 also allows more sbrk(2) space. archive_cmds='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags ${wl}-h,$soname ${wl}--image-base,`expr ${RANDOM-$$} % 4096 / 2 \* 262144 + 1342177280` -o $lib' archive_expsym_cmds='sed "s,^,_," $export_symbols >$output_objdir/$soname.expsym~$CC -shared $pic_flag $libobjs $deplibs $compiler_flags ${wl}-h,$soname ${wl}--retain-symbols-file,$output_objdir/$soname.expsym ${wl}--image-base,`expr ${RANDOM-$$} % 4096 / 2 \* 262144 + 1342177280` -o $lib' ;; gnu* | linux* | k*bsd*-gnu) if $LD --help 2>&1 | grep ': supported targets:.* elf' > /dev/null; then tmp_addflag= case $cc_basename,$host_cpu in pgcc*) # Portland Group C compiler whole_archive_flag_spec='${wl}--whole-archive`for conv in $convenience\"\"; do test -n \"$conv\" && new_convenience=\"$new_convenience,$conv\"; done; $echo \"$new_convenience\"` ${wl}--no-whole-archive' tmp_addflag=' $pic_flag' ;; pgf77* | pgf90* | pgf95*) # Portland Group f77 and f90 compilers whole_archive_flag_spec='${wl}--whole-archive`for conv in $convenience\"\"; do test -n \"$conv\" && new_convenience=\"$new_convenience,$conv\"; done; $echo \"$new_convenience\"` ${wl}--no-whole-archive' tmp_addflag=' $pic_flag -Mnomain' ;; ecc*,ia64* | icc*,ia64*) # Intel C compiler on ia64 tmp_addflag=' -i_dynamic' ;; efc*,ia64* | ifort*,ia64*) # Intel Fortran compiler on ia64 tmp_addflag=' -i_dynamic -nofor_main' ;; ifc* | ifort*) # Intel Fortran compiler tmp_addflag=' -nofor_main' ;; esac case `$CC -V 2>&1 | sed 5q` in *Sun\ C*) # Sun C 5.9 whole_archive_flag_spec='${wl}--whole-archive`new_convenience=; for conv in $convenience\"\"; do test -z \"$conv\" || new_convenience=\"$new_convenience,$conv\"; done; $echo \"$new_convenience\"` ${wl}--no-whole-archive' tmp_sharedflag='-G' ;; *Sun\ F*) # Sun Fortran 8.3 tmp_sharedflag='-G' ;; *) tmp_sharedflag='-shared' ;; esac archive_cmds='$CC '"$tmp_sharedflag""$tmp_addflag"' $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib' if test $supports_anon_versioning = yes; then archive_expsym_cmds='$echo "{ global:" > $output_objdir/$libname.ver~ cat $export_symbols | sed -e "s/\(.*\)/\1;/" >> $output_objdir/$libname.ver~ $echo "local: *; };" >> $output_objdir/$libname.ver~ $CC '"$tmp_sharedflag""$tmp_addflag"' $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname ${wl}-version-script ${wl}$output_objdir/$libname.ver -o $lib' fi else ld_shlibs=no fi ;; netbsd*) if echo __ELF__ | $CC -E - | grep __ELF__ >/dev/null; then archive_cmds='$LD -Bshareable $libobjs $deplibs $linker_flags -o $lib' wlarc= else archive_cmds='$CC -shared $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib' archive_expsym_cmds='$CC -shared $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname ${wl}-retain-symbols-file $wl$export_symbols -o $lib' fi ;; solaris*) if $LD -v 2>&1 | grep 'BFD 2\.8' > /dev/null; then ld_shlibs=no cat <&2 *** Warning: The releases 2.8.* of the GNU linker cannot reliably *** create shared libraries on Solaris systems. Therefore, libtool *** is disabling shared libraries support. We urge you to upgrade GNU *** binutils to release 2.9.1 or newer. Another option is to modify *** your PATH or compiler configuration so that the native linker is *** used, and then restart. EOF elif $LD --help 2>&1 | grep ': supported targets:.* elf' > /dev/null; then archive_cmds='$CC -shared $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib' archive_expsym_cmds='$CC -shared $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname ${wl}-retain-symbols-file $wl$export_symbols -o $lib' else ld_shlibs=no fi ;; sysv5* | sco3.2v5* | sco5v6* | unixware* | OpenUNIX*) case `$LD -v 2>&1` in *\ [01].* | *\ 2.[0-9].* | *\ 2.1[0-5].*) ld_shlibs=no cat <<_LT_EOF 1>&2 *** Warning: Releases of the GNU linker prior to 2.16.91.0.3 can not *** reliably create shared libraries on SCO systems. Therefore, libtool *** is disabling shared libraries support. We urge you to upgrade GNU *** binutils to release 2.16.91.0.3 or newer. Another option is to modify *** your PATH or compiler configuration so that the native linker is *** used, and then restart. _LT_EOF ;; *) if $LD --help 2>&1 | grep ': supported targets:.* elf' > /dev/null; then hardcode_libdir_flag_spec='`test -z "$SCOABSPATH" && echo ${wl}-rpath,$libdir`' archive_cmds='$CC -shared $libobjs $deplibs $compiler_flags ${wl}-soname,\${SCOABSPATH:+${install_libdir}/}$soname -o $lib' archive_expsym_cmds='$CC -shared $libobjs $deplibs $compiler_flags ${wl}-soname,\${SCOABSPATH:+${install_libdir}/}$soname,-retain-symbols-file,$export_symbols -o $lib' else ld_shlibs=no fi ;; esac ;; sunos4*) archive_cmds='$LD -assert pure-text -Bshareable -o $lib $libobjs $deplibs $linker_flags' wlarc= hardcode_direct=yes hardcode_shlibpath_var=no ;; *) if $LD --help 2>&1 | grep ': supported targets:.* elf' > /dev/null; then archive_cmds='$CC -shared $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib' archive_expsym_cmds='$CC -shared $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname ${wl}-retain-symbols-file $wl$export_symbols -o $lib' else ld_shlibs=no fi ;; esac if test "$ld_shlibs" = no; then runpath_var= hardcode_libdir_flag_spec= export_dynamic_flag_spec= whole_archive_flag_spec= fi else # PORTME fill in a description of your system's linker (not GNU ld) case $host_os in aix3*) allow_undefined_flag=unsupported always_export_symbols=yes archive_expsym_cmds='$LD -o $output_objdir/$soname $libobjs $deplibs $linker_flags -bE:$export_symbols -T512 -H512 -bM:SRE~$AR $AR_FLAGS $lib $output_objdir/$soname' # Note: this linker hardcodes the directories in LIBPATH if there # are no directories specified by -L. hardcode_minus_L=yes if test "$GCC" = yes && test -z "$lt_prog_compiler_static"; then # Neither direct hardcoding nor static linking is supported with a # broken collect2. hardcode_direct=unsupported fi ;; aix[4-9]*) if test "$host_cpu" = ia64; then # On IA64, the linker does run time linking by default, so we don't # have to do anything special. aix_use_runtimelinking=no exp_sym_flag='-Bexport' no_entry_flag="" else # If we're using GNU nm, then we don't want the "-C" option. # -C means demangle to AIX nm, but means don't demangle with GNU nm if $NM -V 2>&1 | grep 'GNU' > /dev/null; then export_symbols_cmds='$NM -Bpg $libobjs $convenience | awk '\''{ if (((\$2 == "T") || (\$2 == "D") || (\$2 == "B")) && (substr(\$3,1,1) != ".")) { print \$3 } }'\'' | sort -u > $export_symbols' else export_symbols_cmds='$NM -BCpg $libobjs $convenience | awk '\''{ if (((\$2 == "T") || (\$2 == "D") || (\$2 == "B")) && (substr(\$3,1,1) != ".")) { print \$3 } }'\'' | sort -u > $export_symbols' fi aix_use_runtimelinking=no # Test if we are trying to use run time linking or normal # AIX style linking. If -brtl is somewhere in LDFLAGS, we # need to do runtime linking. case $host_os in aix4.[23]|aix4.[23].*|aix[5-9]*) for ld_flag in $LDFLAGS; do if (test $ld_flag = "-brtl" || test $ld_flag = "-Wl,-brtl"); then aix_use_runtimelinking=yes break fi done ;; esac exp_sym_flag='-bexport' no_entry_flag='-bnoentry' fi # When large executables or shared objects are built, AIX ld can # have problems creating the table of contents. If linking a library # or program results in "error TOC overflow" add -mminimal-toc to # CXXFLAGS/CFLAGS for g++/gcc. In the cases where that is not # enough to fix the problem, add -Wl,-bbigtoc to LDFLAGS. archive_cmds='' hardcode_direct=yes hardcode_libdir_separator=':' link_all_deplibs=yes if test "$GCC" = yes; then case $host_os in aix4.[012]|aix4.[012].*) # We only want to do this on AIX 4.2 and lower, the check # below for broken collect2 doesn't work under 4.3+ collect2name=`${CC} -print-prog-name=collect2` if test -f "$collect2name" && \ strings "$collect2name" | grep resolve_lib_name >/dev/null then # We have reworked collect2 : else # We have old collect2 hardcode_direct=unsupported # It fails to find uninstalled libraries when the uninstalled # path is not listed in the libpath. Setting hardcode_minus_L # to unsupported forces relinking hardcode_minus_L=yes hardcode_libdir_flag_spec='-L$libdir' hardcode_libdir_separator= fi ;; esac shared_flag='-shared' if test "$aix_use_runtimelinking" = yes; then shared_flag="$shared_flag "'${wl}-G' fi else # not using gcc if test "$host_cpu" = ia64; then # VisualAge C++, Version 5.5 for AIX 5L for IA-64, Beta 3 Release # chokes on -Wl,-G. The following line is correct: shared_flag='-G' else if test "$aix_use_runtimelinking" = yes; then shared_flag='${wl}-G' else shared_flag='${wl}-bM:SRE' fi fi fi # It seems that -bexpall does not export symbols beginning with # underscore (_), so it is better to generate a list of symbols to export. always_export_symbols=yes if test "$aix_use_runtimelinking" = yes; then # Warning - without using the other runtime loading flags (-brtl), # -berok will link without error, but may produce a broken library. allow_undefined_flag='-berok' # Determine the default libpath from the value encoded in an empty executable. cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ int main () { ; return 0; } _ACEOF rm -f conftest.$ac_objext conftest$ac_exeext if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5 (eval $ac_link) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { ac_try='test -z "$ac_c_werror_flag" || test ! -s conftest.err' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; } && { ac_try='test -s conftest$ac_exeext' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then lt_aix_libpath_sed=' /Import File Strings/,/^$/ { /^0/ { s/^0 *\(.*\)$/\1/ p } }' aix_libpath=`dump -H conftest$ac_exeext 2>/dev/null | $SED -n -e "$lt_aix_libpath_sed"` # Check for a 64-bit object if we didn't find anything. if test -z "$aix_libpath"; then aix_libpath=`dump -HX64 conftest$ac_exeext 2>/dev/null | $SED -n -e "$lt_aix_libpath_sed"` fi else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 fi rm -f conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext if test -z "$aix_libpath"; then aix_libpath="/usr/lib:/lib"; fi hardcode_libdir_flag_spec='${wl}-blibpath:$libdir:'"$aix_libpath" archive_expsym_cmds="\$CC"' -o $output_objdir/$soname $libobjs $deplibs '"\${wl}$no_entry_flag"' $compiler_flags `if test "x${allow_undefined_flag}" != "x"; then echo "${wl}${allow_undefined_flag}"; else :; fi` '"\${wl}$exp_sym_flag:\$export_symbols $shared_flag" else if test "$host_cpu" = ia64; then hardcode_libdir_flag_spec='${wl}-R $libdir:/usr/lib:/lib' allow_undefined_flag="-z nodefs" archive_expsym_cmds="\$CC $shared_flag"' -o $output_objdir/$soname $libobjs $deplibs '"\${wl}$no_entry_flag"' $compiler_flags ${wl}${allow_undefined_flag} '"\${wl}$exp_sym_flag:\$export_symbols" else # Determine the default libpath from the value encoded in an empty executable. cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ int main () { ; return 0; } _ACEOF rm -f conftest.$ac_objext conftest$ac_exeext if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5 (eval $ac_link) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { ac_try='test -z "$ac_c_werror_flag" || test ! -s conftest.err' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; } && { ac_try='test -s conftest$ac_exeext' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then lt_aix_libpath_sed=' /Import File Strings/,/^$/ { /^0/ { s/^0 *\(.*\)$/\1/ p } }' aix_libpath=`dump -H conftest$ac_exeext 2>/dev/null | $SED -n -e "$lt_aix_libpath_sed"` # Check for a 64-bit object if we didn't find anything. if test -z "$aix_libpath"; then aix_libpath=`dump -HX64 conftest$ac_exeext 2>/dev/null | $SED -n -e "$lt_aix_libpath_sed"` fi else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 fi rm -f conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext if test -z "$aix_libpath"; then aix_libpath="/usr/lib:/lib"; fi hardcode_libdir_flag_spec='${wl}-blibpath:$libdir:'"$aix_libpath" # Warning - without using the other run time loading flags, # -berok will link without error, but may produce a broken library. no_undefined_flag=' ${wl}-bernotok' allow_undefined_flag=' ${wl}-berok' # Exported symbols can be pulled into shared objects from archives whole_archive_flag_spec='$convenience' archive_cmds_need_lc=yes # This is similar to how AIX traditionally builds its shared libraries. archive_expsym_cmds="\$CC $shared_flag"' -o $output_objdir/$soname $libobjs $deplibs ${wl}-bnoentry $compiler_flags ${wl}-bE:$export_symbols${allow_undefined_flag}~$AR $AR_FLAGS $output_objdir/$libname$release.a $output_objdir/$soname' fi fi ;; amigaos*) archive_cmds='$rm $output_objdir/a2ixlibrary.data~$echo "#define NAME $libname" > $output_objdir/a2ixlibrary.data~$echo "#define LIBRARY_ID 1" >> $output_objdir/a2ixlibrary.data~$echo "#define VERSION $major" >> $output_objdir/a2ixlibrary.data~$echo "#define REVISION $revision" >> $output_objdir/a2ixlibrary.data~$AR $AR_FLAGS $lib $libobjs~$RANLIB $lib~(cd $output_objdir && a2ixlibrary -32)' hardcode_libdir_flag_spec='-L$libdir' hardcode_minus_L=yes # see comment about different semantics on the GNU ld section ld_shlibs=no ;; bsdi[45]*) export_dynamic_flag_spec=-rdynamic ;; cygwin* | mingw* | pw32*) # When not using gcc, we currently assume that we are using # Microsoft Visual C++. # hardcode_libdir_flag_spec is actually meaningless, as there is # no search path for DLLs. hardcode_libdir_flag_spec=' ' allow_undefined_flag=unsupported # Tell ltmain to make .lib files, not .a files. libext=lib # Tell ltmain to make .dll files, not .so files. shrext_cmds=".dll" # FIXME: Setting linknames here is a bad hack. archive_cmds='$CC -o $lib $libobjs $compiler_flags `echo "$deplibs" | $SED -e '\''s/ -lc$//'\''` -link -dll~linknames=' # The linker will automatically build a .lib file if we build a DLL. old_archive_From_new_cmds='true' # FIXME: Should let the user specify the lib program. old_archive_cmds='lib -OUT:$oldlib$oldobjs$old_deplibs' fix_srcfile_path='`cygpath -w "$srcfile"`' enable_shared_with_static_runtimes=yes ;; darwin* | rhapsody*) case $host_os in rhapsody* | darwin1.[012]) allow_undefined_flag='${wl}-undefined ${wl}suppress' ;; *) # Darwin 1.3 on if test -z ${MACOSX_DEPLOYMENT_TARGET} ; then allow_undefined_flag='${wl}-flat_namespace ${wl}-undefined ${wl}suppress' else case ${MACOSX_DEPLOYMENT_TARGET} in 10.[012]) allow_undefined_flag='${wl}-flat_namespace ${wl}-undefined ${wl}suppress' ;; 10.*) allow_undefined_flag='${wl}-undefined ${wl}dynamic_lookup' ;; esac fi ;; esac archive_cmds_need_lc=no hardcode_direct=no hardcode_automatic=yes hardcode_shlibpath_var=unsupported whole_archive_flag_spec='' link_all_deplibs=yes if test "$GCC" = yes ; then output_verbose_link_cmd='echo' archive_cmds="\$CC -dynamiclib \$allow_undefined_flag -o \$lib \$libobjs \$deplibs \$compiler_flags -install_name \$rpath/\$soname \$verstring $_lt_dar_single_mod${_lt_dsymutil}" module_cmds="\$CC \$allow_undefined_flag -o \$lib -bundle \$libobjs \$deplibs \$compiler_flags${_lt_dsymutil}" archive_expsym_cmds="sed 's,^,_,' < \$export_symbols > \$output_objdir/\${libname}-symbols.expsym~\$CC -dynamiclib \$allow_undefined_flag -o \$lib \$libobjs \$deplibs \$compiler_flags -install_name \$rpath/\$soname \$verstring ${_lt_dar_single_mod}${_lt_dar_export_syms}${_lt_dsymutil}" module_expsym_cmds="sed -e 's,^,_,' < \$export_symbols > \$output_objdir/\${libname}-symbols.expsym~\$CC \$allow_undefined_flag -o \$lib -bundle \$libobjs \$deplibs \$compiler_flags${_lt_dar_export_syms}${_lt_dsymutil}" else case $cc_basename in xlc*) output_verbose_link_cmd='echo' archive_cmds='$CC -qmkshrobj $allow_undefined_flag -o $lib $libobjs $deplibs $compiler_flags ${wl}-install_name ${wl}`echo $rpath/$soname` $xlcverstring' module_cmds='$CC $allow_undefined_flag -o $lib -bundle $libobjs $deplibs$compiler_flags' # Don't fix this by using the ld -exported_symbols_list flag, it doesn't exist in older darwin lds archive_expsym_cmds='sed -e "s,#.*,," -e "s,^[ ]*,," -e "s,^\(..*\),_&," < $export_symbols > $output_objdir/${libname}-symbols.expsym~$CC -qmkshrobj $allow_undefined_flag -o $lib $libobjs $deplibs $compiler_flags ${wl}-install_name ${wl}$rpath/$soname $xlcverstring~nmedit -s $output_objdir/${libname}-symbols.expsym ${lib}' module_expsym_cmds='sed -e "s,#.*,," -e "s,^[ ]*,," -e "s,^\(..*\),_&," < $export_symbols > $output_objdir/${libname}-symbols.expsym~$CC $allow_undefined_flag -o $lib -bundle $libobjs $deplibs$compiler_flags~nmedit -s $output_objdir/${libname}-symbols.expsym ${lib}' ;; *) ld_shlibs=no ;; esac fi ;; dgux*) archive_cmds='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags' hardcode_libdir_flag_spec='-L$libdir' hardcode_shlibpath_var=no ;; freebsd1*) ld_shlibs=no ;; # FreeBSD 2.2.[012] allows us to include c++rt0.o to get C++ constructor # support. Future versions do this automatically, but an explicit c++rt0.o # does not break anything, and helps significantly (at the cost of a little # extra space). freebsd2.2*) archive_cmds='$LD -Bshareable -o $lib $libobjs $deplibs $linker_flags /usr/lib/c++rt0.o' hardcode_libdir_flag_spec='-R$libdir' hardcode_direct=yes hardcode_shlibpath_var=no ;; # Unfortunately, older versions of FreeBSD 2 do not have this feature. freebsd2*) archive_cmds='$LD -Bshareable -o $lib $libobjs $deplibs $linker_flags' hardcode_direct=yes hardcode_minus_L=yes hardcode_shlibpath_var=no ;; # FreeBSD 3 and greater uses gcc -shared to do shared libraries. freebsd* | dragonfly*) archive_cmds='$CC -shared -o $lib $libobjs $deplibs $compiler_flags' hardcode_libdir_flag_spec='-R$libdir' hardcode_direct=yes hardcode_shlibpath_var=no ;; hpux9*) if test "$GCC" = yes; then archive_cmds='$rm $output_objdir/$soname~$CC -shared -fPIC ${wl}+b ${wl}$install_libdir -o $output_objdir/$soname $libobjs $deplibs $compiler_flags~test $output_objdir/$soname = $lib || mv $output_objdir/$soname $lib' else archive_cmds='$rm $output_objdir/$soname~$LD -b +b $install_libdir -o $output_objdir/$soname $libobjs $deplibs $linker_flags~test $output_objdir/$soname = $lib || mv $output_objdir/$soname $lib' fi hardcode_libdir_flag_spec='${wl}+b ${wl}$libdir' hardcode_libdir_separator=: hardcode_direct=yes # hardcode_minus_L: Not really in the search PATH, # but as the default location of the library. hardcode_minus_L=yes export_dynamic_flag_spec='${wl}-E' ;; hpux10*) if test "$GCC" = yes -a "$with_gnu_ld" = no; then archive_cmds='$CC -shared -fPIC ${wl}+h ${wl}$soname ${wl}+b ${wl}$install_libdir -o $lib $libobjs $deplibs $compiler_flags' else archive_cmds='$LD -b +h $soname +b $install_libdir -o $lib $libobjs $deplibs $linker_flags' fi if test "$with_gnu_ld" = no; then hardcode_libdir_flag_spec='${wl}+b ${wl}$libdir' hardcode_libdir_separator=: hardcode_direct=yes export_dynamic_flag_spec='${wl}-E' # hardcode_minus_L: Not really in the search PATH, # but as the default location of the library. hardcode_minus_L=yes fi ;; hpux11*) if test "$GCC" = yes -a "$with_gnu_ld" = no; then case $host_cpu in hppa*64*) archive_cmds='$CC -shared ${wl}+h ${wl}$soname -o $lib $libobjs $deplibs $compiler_flags' ;; ia64*) archive_cmds='$CC -shared ${wl}+h ${wl}$soname ${wl}+nodefaultrpath -o $lib $libobjs $deplibs $compiler_flags' ;; *) archive_cmds='$CC -shared -fPIC ${wl}+h ${wl}$soname ${wl}+b ${wl}$install_libdir -o $lib $libobjs $deplibs $compiler_flags' ;; esac else case $host_cpu in hppa*64*) archive_cmds='$CC -b ${wl}+h ${wl}$soname -o $lib $libobjs $deplibs $compiler_flags' ;; ia64*) archive_cmds='$CC -b ${wl}+h ${wl}$soname ${wl}+nodefaultrpath -o $lib $libobjs $deplibs $compiler_flags' ;; *) archive_cmds='$CC -b ${wl}+h ${wl}$soname ${wl}+b ${wl}$install_libdir -o $lib $libobjs $deplibs $compiler_flags' ;; esac fi if test "$with_gnu_ld" = no; then hardcode_libdir_flag_spec='${wl}+b ${wl}$libdir' hardcode_libdir_separator=: case $host_cpu in hppa*64*|ia64*) hardcode_libdir_flag_spec_ld='+b $libdir' hardcode_direct=no hardcode_shlibpath_var=no ;; *) hardcode_direct=yes export_dynamic_flag_spec='${wl}-E' # hardcode_minus_L: Not really in the search PATH, # but as the default location of the library. hardcode_minus_L=yes ;; esac fi ;; irix5* | irix6* | nonstopux*) if test "$GCC" = yes; then archive_cmds='$CC -shared $libobjs $deplibs $compiler_flags ${wl}-soname ${wl}$soname `test -n "$verstring" && echo ${wl}-set_version ${wl}$verstring` ${wl}-update_registry ${wl}${output_objdir}/so_locations -o $lib' else archive_cmds='$LD -shared $libobjs $deplibs $linker_flags -soname $soname `test -n "$verstring" && echo -set_version $verstring` -update_registry ${output_objdir}/so_locations -o $lib' hardcode_libdir_flag_spec_ld='-rpath $libdir' fi hardcode_libdir_flag_spec='${wl}-rpath ${wl}$libdir' hardcode_libdir_separator=: link_all_deplibs=yes ;; netbsd*) if echo __ELF__ | $CC -E - | grep __ELF__ >/dev/null; then archive_cmds='$LD -Bshareable -o $lib $libobjs $deplibs $linker_flags' # a.out else archive_cmds='$LD -shared -o $lib $libobjs $deplibs $linker_flags' # ELF fi hardcode_libdir_flag_spec='-R$libdir' hardcode_direct=yes hardcode_shlibpath_var=no ;; newsos6) archive_cmds='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags' hardcode_direct=yes hardcode_libdir_flag_spec='${wl}-rpath ${wl}$libdir' hardcode_libdir_separator=: hardcode_shlibpath_var=no ;; openbsd*) if test -f /usr/libexec/ld.so; then hardcode_direct=yes hardcode_shlibpath_var=no if test -z "`echo __ELF__ | $CC -E - | grep __ELF__`" || test "$host_os-$host_cpu" = "openbsd2.8-powerpc"; then archive_cmds='$CC -shared $pic_flag -o $lib $libobjs $deplibs $compiler_flags' archive_expsym_cmds='$CC -shared $pic_flag -o $lib $libobjs $deplibs $compiler_flags ${wl}-retain-symbols-file,$export_symbols' hardcode_libdir_flag_spec='${wl}-rpath,$libdir' export_dynamic_flag_spec='${wl}-E' else case $host_os in openbsd[01].* | openbsd2.[0-7] | openbsd2.[0-7].*) archive_cmds='$LD -Bshareable -o $lib $libobjs $deplibs $linker_flags' hardcode_libdir_flag_spec='-R$libdir' ;; *) archive_cmds='$CC -shared $pic_flag -o $lib $libobjs $deplibs $compiler_flags' hardcode_libdir_flag_spec='${wl}-rpath,$libdir' ;; esac fi else ld_shlibs=no fi ;; os2*) hardcode_libdir_flag_spec='-L$libdir' hardcode_minus_L=yes allow_undefined_flag=unsupported archive_cmds='$echo "LIBRARY $libname INITINSTANCE" > $output_objdir/$libname.def~$echo "DESCRIPTION \"$libname\"" >> $output_objdir/$libname.def~$echo DATA >> $output_objdir/$libname.def~$echo " SINGLE NONSHARED" >> $output_objdir/$libname.def~$echo EXPORTS >> $output_objdir/$libname.def~emxexp $libobjs >> $output_objdir/$libname.def~$CC -Zdll -Zcrtdll -o $lib $libobjs $deplibs $compiler_flags $output_objdir/$libname.def' old_archive_From_new_cmds='emximp -o $output_objdir/$libname.a $output_objdir/$libname.def' ;; osf3*) if test "$GCC" = yes; then allow_undefined_flag=' ${wl}-expect_unresolved ${wl}\*' archive_cmds='$CC -shared${allow_undefined_flag} $libobjs $deplibs $compiler_flags ${wl}-soname ${wl}$soname `test -n "$verstring" && echo ${wl}-set_version ${wl}$verstring` ${wl}-update_registry ${wl}${output_objdir}/so_locations -o $lib' else allow_undefined_flag=' -expect_unresolved \*' archive_cmds='$LD -shared${allow_undefined_flag} $libobjs $deplibs $linker_flags -soname $soname `test -n "$verstring" && echo -set_version $verstring` -update_registry ${output_objdir}/so_locations -o $lib' fi hardcode_libdir_flag_spec='${wl}-rpath ${wl}$libdir' hardcode_libdir_separator=: ;; osf4* | osf5*) # as osf3* with the addition of -msym flag if test "$GCC" = yes; then allow_undefined_flag=' ${wl}-expect_unresolved ${wl}\*' archive_cmds='$CC -shared${allow_undefined_flag} $libobjs $deplibs $compiler_flags ${wl}-msym ${wl}-soname ${wl}$soname `test -n "$verstring" && echo ${wl}-set_version ${wl}$verstring` ${wl}-update_registry ${wl}${output_objdir}/so_locations -o $lib' hardcode_libdir_flag_spec='${wl}-rpath ${wl}$libdir' else allow_undefined_flag=' -expect_unresolved \*' archive_cmds='$LD -shared${allow_undefined_flag} $libobjs $deplibs $linker_flags -msym -soname $soname `test -n "$verstring" && echo -set_version $verstring` -update_registry ${output_objdir}/so_locations -o $lib' archive_expsym_cmds='for i in `cat $export_symbols`; do printf "%s %s\\n" -exported_symbol "\$i" >> $lib.exp; done; echo "-hidden">> $lib.exp~ $LD -shared${allow_undefined_flag} -input $lib.exp $linker_flags $libobjs $deplibs -soname $soname `test -n "$verstring" && echo -set_version $verstring` -update_registry ${output_objdir}/so_locations -o $lib~$rm $lib.exp' # Both c and cxx compiler support -rpath directly hardcode_libdir_flag_spec='-rpath $libdir' fi hardcode_libdir_separator=: ;; solaris*) no_undefined_flag=' -z text' if test "$GCC" = yes; then wlarc='${wl}' archive_cmds='$CC -shared ${wl}-h ${wl}$soname -o $lib $libobjs $deplibs $compiler_flags' archive_expsym_cmds='$echo "{ global:" > $lib.exp~cat $export_symbols | $SED -e "s/\(.*\)/\1;/" >> $lib.exp~$echo "local: *; };" >> $lib.exp~ $CC -shared ${wl}-M ${wl}$lib.exp ${wl}-h ${wl}$soname -o $lib $libobjs $deplibs $compiler_flags~$rm $lib.exp' else wlarc='' archive_cmds='$LD -G${allow_undefined_flag} -h $soname -o $lib $libobjs $deplibs $linker_flags' archive_expsym_cmds='$echo "{ global:" > $lib.exp~cat $export_symbols | $SED -e "s/\(.*\)/\1;/" >> $lib.exp~$echo "local: *; };" >> $lib.exp~ $LD -G${allow_undefined_flag} -M $lib.exp -h $soname -o $lib $libobjs $deplibs $linker_flags~$rm $lib.exp' fi hardcode_libdir_flag_spec='-R$libdir' hardcode_shlibpath_var=no case $host_os in solaris2.[0-5] | solaris2.[0-5].*) ;; *) # The compiler driver will combine and reorder linker options, # but understands `-z linker_flag'. GCC discards it without `$wl', # but is careful enough not to reorder. # Supported since Solaris 2.6 (maybe 2.5.1?) if test "$GCC" = yes; then whole_archive_flag_spec='${wl}-z ${wl}allextract$convenience ${wl}-z ${wl}defaultextract' else whole_archive_flag_spec='-z allextract$convenience -z defaultextract' fi ;; esac link_all_deplibs=yes ;; sunos4*) if test "x$host_vendor" = xsequent; then # Use $CC to link under sequent, because it throws in some extra .o # files that make .init and .fini sections work. archive_cmds='$CC -G ${wl}-h $soname -o $lib $libobjs $deplibs $compiler_flags' else archive_cmds='$LD -assert pure-text -Bstatic -o $lib $libobjs $deplibs $linker_flags' fi hardcode_libdir_flag_spec='-L$libdir' hardcode_direct=yes hardcode_minus_L=yes hardcode_shlibpath_var=no ;; sysv4) case $host_vendor in sni) archive_cmds='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags' hardcode_direct=yes # is this really true??? ;; siemens) ## LD is ld it makes a PLAMLIB ## CC just makes a GrossModule. archive_cmds='$LD -G -o $lib $libobjs $deplibs $linker_flags' reload_cmds='$CC -r -o $output$reload_objs' hardcode_direct=no ;; motorola) archive_cmds='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags' hardcode_direct=no #Motorola manual says yes, but my tests say they lie ;; esac runpath_var='LD_RUN_PATH' hardcode_shlibpath_var=no ;; sysv4.3*) archive_cmds='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags' hardcode_shlibpath_var=no export_dynamic_flag_spec='-Bexport' ;; sysv4*MP*) if test -d /usr/nec; then archive_cmds='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags' hardcode_shlibpath_var=no runpath_var=LD_RUN_PATH hardcode_runpath_var=yes ld_shlibs=yes fi ;; sysv4*uw2* | sysv5OpenUNIX* | sysv5UnixWare7.[01].[10]* | unixware7* | sco3.2v5.0.[024]*) no_undefined_flag='${wl}-z,text' archive_cmds_need_lc=no hardcode_shlibpath_var=no runpath_var='LD_RUN_PATH' if test "$GCC" = yes; then archive_cmds='$CC -shared ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags' archive_expsym_cmds='$CC -shared ${wl}-Bexport:$export_symbols ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags' else archive_cmds='$CC -G ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags' archive_expsym_cmds='$CC -G ${wl}-Bexport:$export_symbols ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags' fi ;; sysv5* | sco3.2v5* | sco5v6*) # Note: We can NOT use -z defs as we might desire, because we do not # link with -lc, and that would cause any symbols used from libc to # always be unresolved, which means just about no library would # ever link correctly. If we're not using GNU ld we use -z text # though, which does catch some bad symbols but isn't as heavy-handed # as -z defs. no_undefined_flag='${wl}-z,text' allow_undefined_flag='${wl}-z,nodefs' archive_cmds_need_lc=no hardcode_shlibpath_var=no hardcode_libdir_flag_spec='`test -z "$SCOABSPATH" && echo ${wl}-R,$libdir`' hardcode_libdir_separator=':' link_all_deplibs=yes export_dynamic_flag_spec='${wl}-Bexport' runpath_var='LD_RUN_PATH' if test "$GCC" = yes; then archive_cmds='$CC -shared ${wl}-h,\${SCOABSPATH:+${install_libdir}/}$soname -o $lib $libobjs $deplibs $compiler_flags' archive_expsym_cmds='$CC -shared ${wl}-Bexport:$export_symbols ${wl}-h,\${SCOABSPATH:+${install_libdir}/}$soname -o $lib $libobjs $deplibs $compiler_flags' else archive_cmds='$CC -G ${wl}-h,\${SCOABSPATH:+${install_libdir}/}$soname -o $lib $libobjs $deplibs $compiler_flags' archive_expsym_cmds='$CC -G ${wl}-Bexport:$export_symbols ${wl}-h,\${SCOABSPATH:+${install_libdir}/}$soname -o $lib $libobjs $deplibs $compiler_flags' fi ;; uts4*) archive_cmds='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags' hardcode_libdir_flag_spec='-L$libdir' hardcode_shlibpath_var=no ;; *) ld_shlibs=no ;; esac fi echo "$as_me:$LINENO: result: $ld_shlibs" >&5 echo "${ECHO_T}$ld_shlibs" >&6 test "$ld_shlibs" = no && can_build_shared=no # # Do we need to explicitly link libc? # case "x$archive_cmds_need_lc" in x|xyes) # Assume -lc should be added archive_cmds_need_lc=yes if test "$enable_shared" = yes && test "$GCC" = yes; then case $archive_cmds in *'~'*) # FIXME: we may have to deal with multi-command sequences. ;; '$CC '*) # Test whether the compiler implicitly links with -lc since on some # systems, -lgcc has to come before -lc. If gcc already passes -lc # to ld, don't add -lc before -lgcc. echo "$as_me:$LINENO: checking whether -lc should be explicitly linked in" >&5 echo $ECHO_N "checking whether -lc should be explicitly linked in... $ECHO_C" >&6 $rm conftest* echo "$lt_simple_compile_test_code" > conftest.$ac_ext if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 (eval $ac_compile) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } 2>conftest.err; then soname=conftest lib=conftest libobjs=conftest.$ac_objext deplibs= wl=$lt_prog_compiler_wl pic_flag=$lt_prog_compiler_pic compiler_flags=-v linker_flags=-v verstring= output_objdir=. libname=conftest lt_save_allow_undefined_flag=$allow_undefined_flag allow_undefined_flag= if { (eval echo "$as_me:$LINENO: \"$archive_cmds 2\>\&1 \| grep \" -lc \" \>/dev/null 2\>\&1\"") >&5 (eval $archive_cmds 2\>\&1 \| grep \" -lc \" \>/dev/null 2\>\&1) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } then archive_cmds_need_lc=no else archive_cmds_need_lc=yes fi allow_undefined_flag=$lt_save_allow_undefined_flag else cat conftest.err 1>&5 fi $rm conftest* echo "$as_me:$LINENO: result: $archive_cmds_need_lc" >&5 echo "${ECHO_T}$archive_cmds_need_lc" >&6 ;; esac fi ;; esac echo "$as_me:$LINENO: checking dynamic linker characteristics" >&5 echo $ECHO_N "checking dynamic linker characteristics... $ECHO_C" >&6 library_names_spec= libname_spec='lib$name' soname_spec= shrext_cmds=".so" postinstall_cmds= postuninstall_cmds= finish_cmds= finish_eval= shlibpath_var= shlibpath_overrides_runpath=unknown version_type=none dynamic_linker="$host_os ld.so" sys_lib_dlsearch_path_spec="/lib /usr/lib" if test "$GCC" = yes; then case $host_os in darwin*) lt_awk_arg="/^libraries:/,/LR/" ;; *) lt_awk_arg="/^libraries:/" ;; esac lt_search_path_spec=`$CC -print-search-dirs | awk $lt_awk_arg | $SED -e "s/^libraries://" -e "s,=/,/,g"` if echo "$lt_search_path_spec" | grep ';' >/dev/null ; then # if the path contains ";" then we assume it to be the separator # otherwise default to the standard path separator (i.e. ":") - it is # assumed that no part of a normal pathname contains ";" but that should # okay in the real world where ";" in dirpaths is itself problematic. lt_search_path_spec=`echo "$lt_search_path_spec" | $SED -e 's/;/ /g'` else lt_search_path_spec=`echo "$lt_search_path_spec" | $SED -e "s/$PATH_SEPARATOR/ /g"` fi # Ok, now we have the path, separated by spaces, we can step through it # and add multilib dir if necessary. lt_tmp_lt_search_path_spec= lt_multi_os_dir=`$CC $CPPFLAGS $CFLAGS $LDFLAGS -print-multi-os-directory 2>/dev/null` for lt_sys_path in $lt_search_path_spec; do if test -d "$lt_sys_path/$lt_multi_os_dir"; then lt_tmp_lt_search_path_spec="$lt_tmp_lt_search_path_spec $lt_sys_path/$lt_multi_os_dir" else test -d "$lt_sys_path" && \ lt_tmp_lt_search_path_spec="$lt_tmp_lt_search_path_spec $lt_sys_path" fi done lt_search_path_spec=`echo $lt_tmp_lt_search_path_spec | awk ' BEGIN {RS=" "; FS="/|\n";} { lt_foo=""; lt_count=0; for (lt_i = NF; lt_i > 0; lt_i--) { if ($lt_i != "" && $lt_i != ".") { if ($lt_i == "..") { lt_count++; } else { if (lt_count == 0) { lt_foo="/" $lt_i lt_foo; } else { lt_count--; } } } } if (lt_foo != "") { lt_freq[lt_foo]++; } if (lt_freq[lt_foo] == 1) { print lt_foo; } }'` sys_lib_search_path_spec=`echo $lt_search_path_spec` else sys_lib_search_path_spec="/lib /usr/lib /usr/local/lib" fi need_lib_prefix=unknown hardcode_into_libs=no # when you set need_version to no, make sure it does not cause -set_version # flags to be left without arguments need_version=unknown case $host_os in aix3*) version_type=linux library_names_spec='${libname}${release}${shared_ext}$versuffix $libname.a' shlibpath_var=LIBPATH # AIX 3 has no versioning support, so we append a major version to the name. soname_spec='${libname}${release}${shared_ext}$major' ;; aix[4-9]*) version_type=linux need_lib_prefix=no need_version=no hardcode_into_libs=yes if test "$host_cpu" = ia64; then # AIX 5 supports IA64 library_names_spec='${libname}${release}${shared_ext}$major ${libname}${release}${shared_ext}$versuffix $libname${shared_ext}' shlibpath_var=LD_LIBRARY_PATH else # With GCC up to 2.95.x, collect2 would create an import file # for dependence libraries. The import file would start with # the line `#! .'. This would cause the generated library to # depend on `.', always an invalid library. This was fixed in # development snapshots of GCC prior to 3.0. case $host_os in aix4 | aix4.[01] | aix4.[01].*) if { echo '#if __GNUC__ > 2 || (__GNUC__ == 2 && __GNUC_MINOR__ >= 97)' echo ' yes ' echo '#endif'; } | ${CC} -E - | grep yes > /dev/null; then : else can_build_shared=no fi ;; esac # AIX (on Power*) has no versioning support, so currently we can not hardcode correct # soname into executable. Probably we can add versioning support to # collect2, so additional links can be useful in future. if test "$aix_use_runtimelinking" = yes; then # If using run time linking (on AIX 4.2 or later) use lib.so # instead of lib.a to let people know that these are not # typical AIX shared libraries. library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' else # We preserve .a as extension for shared libraries through AIX4.2 # and later when we are not doing run time linking. library_names_spec='${libname}${release}.a $libname.a' soname_spec='${libname}${release}${shared_ext}$major' fi shlibpath_var=LIBPATH fi ;; amigaos*) library_names_spec='$libname.ixlibrary $libname.a' # Create ${libname}_ixlibrary.a entries in /sys/libs. finish_eval='for lib in `ls $libdir/*.ixlibrary 2>/dev/null`; do libname=`$echo "X$lib" | $Xsed -e '\''s%^.*/\([^/]*\)\.ixlibrary$%\1%'\''`; test $rm /sys/libs/${libname}_ixlibrary.a; $show "cd /sys/libs && $LN_S $lib ${libname}_ixlibrary.a"; cd /sys/libs && $LN_S $lib ${libname}_ixlibrary.a || exit 1; done' ;; beos*) library_names_spec='${libname}${shared_ext}' dynamic_linker="$host_os ld.so" shlibpath_var=LIBRARY_PATH ;; bsdi[45]*) version_type=linux need_version=no library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' finish_cmds='PATH="\$PATH:/sbin" ldconfig $libdir' shlibpath_var=LD_LIBRARY_PATH sys_lib_search_path_spec="/shlib /usr/lib /usr/X11/lib /usr/contrib/lib /lib /usr/local/lib" sys_lib_dlsearch_path_spec="/shlib /usr/lib /usr/local/lib" # the default ld.so.conf also contains /usr/contrib/lib and # /usr/X11R6/lib (/usr/X11 is a link to /usr/X11R6), but let us allow # libtool to hard-code these into programs ;; cygwin* | mingw* | pw32*) version_type=windows shrext_cmds=".dll" need_version=no need_lib_prefix=no case $GCC,$host_os in yes,cygwin* | yes,mingw* | yes,pw32*) library_names_spec='$libname.dll.a' # DLL is installed to $(libdir)/../bin by postinstall_cmds postinstall_cmds='base_file=`basename \${file}`~ dlpath=`$SHELL 2>&1 -c '\''. $dir/'\''\${base_file}'\''i;echo \$dlname'\''`~ dldir=$destdir/`dirname \$dlpath`~ test -d \$dldir || mkdir -p \$dldir~ $install_prog $dir/$dlname \$dldir/$dlname~ chmod a+x \$dldir/$dlname' postuninstall_cmds='dldll=`$SHELL 2>&1 -c '\''. $file; echo \$dlname'\''`~ dlpath=$dir/\$dldll~ $rm \$dlpath' shlibpath_overrides_runpath=yes case $host_os in cygwin*) # Cygwin DLLs use 'cyg' prefix rather than 'lib' soname_spec='`echo ${libname} | sed -e 's/^lib/cyg/'``echo ${release} | $SED -e 's/[.]/-/g'`${versuffix}${shared_ext}' sys_lib_search_path_spec="/usr/lib /lib/w32api /lib /usr/local/lib" ;; mingw*) # MinGW DLLs use traditional 'lib' prefix soname_spec='${libname}`echo ${release} | $SED -e 's/[.]/-/g'`${versuffix}${shared_ext}' sys_lib_search_path_spec=`$CC -print-search-dirs | grep "^libraries:" | $SED -e "s/^libraries://" -e "s,=/,/,g"` if echo "$sys_lib_search_path_spec" | grep ';[c-zC-Z]:/' >/dev/null; then # It is most probably a Windows format PATH printed by # mingw gcc, but we are running on Cygwin. Gcc prints its search # path with ; separators, and with drive letters. We can handle the # drive letters (cygwin fileutils understands them), so leave them, # especially as we might pass files found there to a mingw objdump, # which wouldn't understand a cygwinified path. Ahh. sys_lib_search_path_spec=`echo "$sys_lib_search_path_spec" | $SED -e 's/;/ /g'` else sys_lib_search_path_spec=`echo "$sys_lib_search_path_spec" | $SED -e "s/$PATH_SEPARATOR/ /g"` fi ;; pw32*) # pw32 DLLs use 'pw' prefix rather than 'lib' library_names_spec='`echo ${libname} | sed -e 's/^lib/pw/'``echo ${release} | $SED -e 's/[.]/-/g'`${versuffix}${shared_ext}' ;; esac ;; *) library_names_spec='${libname}`echo ${release} | $SED -e 's/[.]/-/g'`${versuffix}${shared_ext} $libname.lib' ;; esac dynamic_linker='Win32 ld.exe' # FIXME: first we should search . and the directory the executable is in shlibpath_var=PATH ;; darwin* | rhapsody*) dynamic_linker="$host_os dyld" version_type=darwin need_lib_prefix=no need_version=no library_names_spec='${libname}${release}${versuffix}$shared_ext ${libname}${release}${major}$shared_ext ${libname}$shared_ext' soname_spec='${libname}${release}${major}$shared_ext' shlibpath_overrides_runpath=yes shlibpath_var=DYLD_LIBRARY_PATH shrext_cmds='`test .$module = .yes && echo .so || echo .dylib`' sys_lib_search_path_spec="$sys_lib_search_path_spec /usr/local/lib" sys_lib_dlsearch_path_spec='/usr/local/lib /lib /usr/lib' ;; dgux*) version_type=linux need_lib_prefix=no need_version=no library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname$shared_ext' soname_spec='${libname}${release}${shared_ext}$major' shlibpath_var=LD_LIBRARY_PATH ;; freebsd1*) dynamic_linker=no ;; freebsd* | dragonfly*) # DragonFly does not have aout. When/if they implement a new # versioning mechanism, adjust this. if test -x /usr/bin/objformat; then objformat=`/usr/bin/objformat` else case $host_os in freebsd[123]*) objformat=aout ;; *) objformat=elf ;; esac fi version_type=freebsd-$objformat case $version_type in freebsd-elf*) library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext} $libname${shared_ext}' need_version=no need_lib_prefix=no ;; freebsd-*) library_names_spec='${libname}${release}${shared_ext}$versuffix $libname${shared_ext}$versuffix' need_version=yes ;; esac shlibpath_var=LD_LIBRARY_PATH case $host_os in freebsd2*) shlibpath_overrides_runpath=yes ;; freebsd3.[01]* | freebsdelf3.[01]*) shlibpath_overrides_runpath=yes hardcode_into_libs=yes ;; freebsd3.[2-9]* | freebsdelf3.[2-9]* | \ freebsd4.[0-5] | freebsdelf4.[0-5] | freebsd4.1.1 | freebsdelf4.1.1) shlibpath_overrides_runpath=no hardcode_into_libs=yes ;; *) # from 4.6 on, and DragonFly shlibpath_overrides_runpath=yes hardcode_into_libs=yes ;; esac ;; gnu*) version_type=linux need_lib_prefix=no need_version=no library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}${major} ${libname}${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' shlibpath_var=LD_LIBRARY_PATH hardcode_into_libs=yes ;; hpux9* | hpux10* | hpux11*) # Give a soname corresponding to the major version so that dld.sl refuses to # link against other versions. version_type=sunos need_lib_prefix=no need_version=no case $host_cpu in ia64*) shrext_cmds='.so' hardcode_into_libs=yes dynamic_linker="$host_os dld.so" shlibpath_var=LD_LIBRARY_PATH shlibpath_overrides_runpath=yes # Unless +noenvvar is specified. library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' if test "X$HPUX_IA64_MODE" = X32; then sys_lib_search_path_spec="/usr/lib/hpux32 /usr/local/lib/hpux32 /usr/local/lib" else sys_lib_search_path_spec="/usr/lib/hpux64 /usr/local/lib/hpux64" fi sys_lib_dlsearch_path_spec=$sys_lib_search_path_spec ;; hppa*64*) shrext_cmds='.sl' hardcode_into_libs=yes dynamic_linker="$host_os dld.sl" shlibpath_var=LD_LIBRARY_PATH # How should we handle SHLIB_PATH shlibpath_overrides_runpath=yes # Unless +noenvvar is specified. library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' sys_lib_search_path_spec="/usr/lib/pa20_64 /usr/ccs/lib/pa20_64" sys_lib_dlsearch_path_spec=$sys_lib_search_path_spec ;; *) shrext_cmds='.sl' dynamic_linker="$host_os dld.sl" shlibpath_var=SHLIB_PATH shlibpath_overrides_runpath=no # +s is required to enable SHLIB_PATH library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' ;; esac # HP-UX runs *really* slowly unless shared libraries are mode 555. postinstall_cmds='chmod 555 $lib' ;; interix[3-9]*) version_type=linux need_lib_prefix=no need_version=no library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major ${libname}${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' dynamic_linker='Interix 3.x ld.so.1 (PE, like ELF)' shlibpath_var=LD_LIBRARY_PATH shlibpath_overrides_runpath=no hardcode_into_libs=yes ;; irix5* | irix6* | nonstopux*) case $host_os in nonstopux*) version_type=nonstopux ;; *) if test "$lt_cv_prog_gnu_ld" = yes; then version_type=linux else version_type=irix fi ;; esac need_lib_prefix=no need_version=no soname_spec='${libname}${release}${shared_ext}$major' library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major ${libname}${release}${shared_ext} $libname${shared_ext}' case $host_os in irix5* | nonstopux*) libsuff= shlibsuff= ;; *) case $LD in # libtool.m4 will add one of these switches to LD *-32|*"-32 "|*-melf32bsmip|*"-melf32bsmip ") libsuff= shlibsuff= libmagic=32-bit;; *-n32|*"-n32 "|*-melf32bmipn32|*"-melf32bmipn32 ") libsuff=32 shlibsuff=N32 libmagic=N32;; *-64|*"-64 "|*-melf64bmip|*"-melf64bmip ") libsuff=64 shlibsuff=64 libmagic=64-bit;; *) libsuff= shlibsuff= libmagic=never-match;; esac ;; esac shlibpath_var=LD_LIBRARY${shlibsuff}_PATH shlibpath_overrides_runpath=no sys_lib_search_path_spec="/usr/lib${libsuff} /lib${libsuff} /usr/local/lib${libsuff}" sys_lib_dlsearch_path_spec="/usr/lib${libsuff} /lib${libsuff}" hardcode_into_libs=yes ;; # No shared lib support for Linux oldld, aout, or coff. linux*oldld* | linux*aout* | linux*coff*) dynamic_linker=no ;; # This must be Linux ELF. linux* | k*bsd*-gnu) version_type=linux need_lib_prefix=no need_version=no library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' finish_cmds='PATH="\$PATH:/sbin" ldconfig -n $libdir' shlibpath_var=LD_LIBRARY_PATH shlibpath_overrides_runpath=no # This implies no fast_install, which is unacceptable. # Some rework will be needed to allow for fast_install # before this can be enabled. hardcode_into_libs=yes sys_lib_search_path_spec="/usr/lib${libsuff} /lib${libsuff} /usr/local/lib${libsuff}" sys_lib_dlsearch_path_spec="/usr/lib${libsuff} /lib${libsuff}" # Append ld.so.conf contents to the search path if test -f /etc/ld.so.conf; then lt_ld_extra=`awk '/^include / { system(sprintf("cd /etc; cat %s 2>/dev/null", \$2)); skip = 1; } { if (!skip) print \$0; skip = 0; }' < /etc/ld.so.conf | $SED -e 's/#.*//;/^[ ]*hwcap[ ]/d;s/[:, ]/ /g;s/=[^=]*$//;s/=[^= ]* / /g;/^$/d' | tr '\n' ' '` sys_lib_dlsearch_path_spec="$sys_lib_dlsearch_path_spec $lt_ld_extra" fi # We used to test for /lib/ld.so.1 and disable shared libraries on # powerpc, because MkLinux only supported shared libraries with the # GNU dynamic linker. Since this was broken with cross compilers, # most powerpc-linux boxes support dynamic linking these days and # people can always --disable-shared, the test was removed, and we # assume the GNU/Linux dynamic linker is in use. dynamic_linker='GNU/Linux ld.so' ;; netbsd*) version_type=sunos need_lib_prefix=no need_version=no if echo __ELF__ | $CC -E - | grep __ELF__ >/dev/null; then library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${shared_ext}$versuffix' finish_cmds='PATH="\$PATH:/sbin" ldconfig -m $libdir' dynamic_linker='NetBSD (a.out) ld.so' else library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major ${libname}${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' dynamic_linker='NetBSD ld.elf_so' fi shlibpath_var=LD_LIBRARY_PATH shlibpath_overrides_runpath=yes hardcode_into_libs=yes ;; newsos6) version_type=linux library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' shlibpath_var=LD_LIBRARY_PATH shlibpath_overrides_runpath=yes ;; nto-qnx*) version_type=linux need_lib_prefix=no need_version=no library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' shlibpath_var=LD_LIBRARY_PATH shlibpath_overrides_runpath=yes ;; openbsd*) version_type=sunos sys_lib_dlsearch_path_spec="/usr/lib" need_lib_prefix=no # Some older versions of OpenBSD (3.3 at least) *do* need versioned libs. case $host_os in openbsd3.3 | openbsd3.3.*) need_version=yes ;; *) need_version=no ;; esac library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${shared_ext}$versuffix' finish_cmds='PATH="\$PATH:/sbin" ldconfig -m $libdir' shlibpath_var=LD_LIBRARY_PATH if test -z "`echo __ELF__ | $CC -E - | grep __ELF__`" || test "$host_os-$host_cpu" = "openbsd2.8-powerpc"; then case $host_os in openbsd2.[89] | openbsd2.[89].*) shlibpath_overrides_runpath=no ;; *) shlibpath_overrides_runpath=yes ;; esac else shlibpath_overrides_runpath=yes fi ;; os2*) libname_spec='$name' shrext_cmds=".dll" need_lib_prefix=no library_names_spec='$libname${shared_ext} $libname.a' dynamic_linker='OS/2 ld.exe' shlibpath_var=LIBPATH ;; osf3* | osf4* | osf5*) version_type=osf need_lib_prefix=no need_version=no soname_spec='${libname}${release}${shared_ext}$major' library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' shlibpath_var=LD_LIBRARY_PATH sys_lib_search_path_spec="/usr/shlib /usr/ccs/lib /usr/lib/cmplrs/cc /usr/lib /usr/local/lib /var/shlib" sys_lib_dlsearch_path_spec="$sys_lib_search_path_spec" ;; rdos*) dynamic_linker=no ;; solaris*) version_type=linux need_lib_prefix=no need_version=no library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' shlibpath_var=LD_LIBRARY_PATH shlibpath_overrides_runpath=yes hardcode_into_libs=yes # ldd complains unless libraries are executable postinstall_cmds='chmod +x $lib' ;; sunos4*) version_type=sunos library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${shared_ext}$versuffix' finish_cmds='PATH="\$PATH:/usr/etc" ldconfig $libdir' shlibpath_var=LD_LIBRARY_PATH shlibpath_overrides_runpath=yes if test "$with_gnu_ld" = yes; then need_lib_prefix=no fi need_version=yes ;; sysv4 | sysv4.3*) version_type=linux library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' shlibpath_var=LD_LIBRARY_PATH case $host_vendor in sni) shlibpath_overrides_runpath=no need_lib_prefix=no export_dynamic_flag_spec='${wl}-Blargedynsym' runpath_var=LD_RUN_PATH ;; siemens) need_lib_prefix=no ;; motorola) need_lib_prefix=no need_version=no shlibpath_overrides_runpath=no sys_lib_search_path_spec='/lib /usr/lib /usr/ccs/lib' ;; esac ;; sysv4*MP*) if test -d /usr/nec ;then version_type=linux library_names_spec='$libname${shared_ext}.$versuffix $libname${shared_ext}.$major $libname${shared_ext}' soname_spec='$libname${shared_ext}.$major' shlibpath_var=LD_LIBRARY_PATH fi ;; sysv5* | sco3.2v5* | sco5v6* | unixware* | OpenUNIX* | sysv4*uw2*) version_type=freebsd-elf need_lib_prefix=no need_version=no library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext} $libname${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' shlibpath_var=LD_LIBRARY_PATH hardcode_into_libs=yes if test "$with_gnu_ld" = yes; then sys_lib_search_path_spec='/usr/local/lib /usr/gnu/lib /usr/ccs/lib /usr/lib /lib' shlibpath_overrides_runpath=no else sys_lib_search_path_spec='/usr/ccs/lib /usr/lib' shlibpath_overrides_runpath=yes case $host_os in sco3.2v5*) sys_lib_search_path_spec="$sys_lib_search_path_spec /lib" ;; esac fi sys_lib_dlsearch_path_spec='/usr/lib' ;; uts4*) version_type=linux library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' shlibpath_var=LD_LIBRARY_PATH ;; *) dynamic_linker=no ;; esac echo "$as_me:$LINENO: result: $dynamic_linker" >&5 echo "${ECHO_T}$dynamic_linker" >&6 test "$dynamic_linker" = no && can_build_shared=no if test "${lt_cv_sys_lib_search_path_spec+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else lt_cv_sys_lib_search_path_spec="$sys_lib_search_path_spec" fi sys_lib_search_path_spec="$lt_cv_sys_lib_search_path_spec" if test "${lt_cv_sys_lib_dlsearch_path_spec+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else lt_cv_sys_lib_dlsearch_path_spec="$sys_lib_dlsearch_path_spec" fi sys_lib_dlsearch_path_spec="$lt_cv_sys_lib_dlsearch_path_spec" variables_saved_for_relink="PATH $shlibpath_var $runpath_var" if test "$GCC" = yes; then variables_saved_for_relink="$variables_saved_for_relink GCC_EXEC_PREFIX COMPILER_PATH LIBRARY_PATH" fi echo "$as_me:$LINENO: checking how to hardcode library paths into programs" >&5 echo $ECHO_N "checking how to hardcode library paths into programs... $ECHO_C" >&6 hardcode_action= if test -n "$hardcode_libdir_flag_spec" || \ test -n "$runpath_var" || \ test "X$hardcode_automatic" = "Xyes" ; then # We can hardcode non-existant directories. if test "$hardcode_direct" != no && # If the only mechanism to avoid hardcoding is shlibpath_var, we # have to relink, otherwise we might link with an installed library # when we should be linking with a yet-to-be-installed one ## test "$_LT_AC_TAGVAR(hardcode_shlibpath_var, )" != no && test "$hardcode_minus_L" != no; then # Linking always hardcodes the temporary library directory. hardcode_action=relink else # We can link without hardcoding, and we can hardcode nonexisting dirs. hardcode_action=immediate fi else # We cannot hardcode anything, or else we can only hardcode existing # directories. hardcode_action=unsupported fi echo "$as_me:$LINENO: result: $hardcode_action" >&5 echo "${ECHO_T}$hardcode_action" >&6 if test "$hardcode_action" = relink; then # Fast installation is not supported enable_fast_install=no elif test "$shlibpath_overrides_runpath" = yes || test "$enable_shared" = no; then # Fast installation is not necessary enable_fast_install=needless fi striplib= old_striplib= echo "$as_me:$LINENO: checking whether stripping libraries is possible" >&5 echo $ECHO_N "checking whether stripping libraries is possible... $ECHO_C" >&6 if test -n "$STRIP" && $STRIP -V 2>&1 | grep "GNU strip" >/dev/null; then test -z "$old_striplib" && old_striplib="$STRIP --strip-debug" test -z "$striplib" && striplib="$STRIP --strip-unneeded" echo "$as_me:$LINENO: result: yes" >&5 echo "${ECHO_T}yes" >&6 else # FIXME - insert some real tests, host_os isn't really good enough case $host_os in darwin*) if test -n "$STRIP" ; then striplib="$STRIP -x" old_striplib="$STRIP -S" echo "$as_me:$LINENO: result: yes" >&5 echo "${ECHO_T}yes" >&6 else echo "$as_me:$LINENO: result: no" >&5 echo "${ECHO_T}no" >&6 fi ;; *) echo "$as_me:$LINENO: result: no" >&5 echo "${ECHO_T}no" >&6 ;; esac fi if test "x$enable_dlopen" != xyes; then enable_dlopen=unknown enable_dlopen_self=unknown enable_dlopen_self_static=unknown else lt_cv_dlopen=no lt_cv_dlopen_libs= case $host_os in beos*) lt_cv_dlopen="load_add_on" lt_cv_dlopen_libs= lt_cv_dlopen_self=yes ;; mingw* | pw32*) lt_cv_dlopen="LoadLibrary" lt_cv_dlopen_libs= ;; cygwin*) lt_cv_dlopen="dlopen" lt_cv_dlopen_libs= ;; darwin*) # if libdl is installed we need to link against it echo "$as_me:$LINENO: checking for dlopen in -ldl" >&5 echo $ECHO_N "checking for dlopen in -ldl... $ECHO_C" >&6 if test "${ac_cv_lib_dl_dlopen+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else ac_check_lib_save_LIBS=$LIBS LIBS="-ldl $LIBS" cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ /* Override any gcc2 internal prototype to avoid an error. */ #ifdef __cplusplus extern "C" #endif /* We use char because int might match the return type of a gcc2 builtin and then its argument prototype would still apply. */ char dlopen (); int main () { dlopen (); ; return 0; } _ACEOF rm -f conftest.$ac_objext conftest$ac_exeext if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5 (eval $ac_link) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { ac_try='test -z "$ac_c_werror_flag" || test ! -s conftest.err' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; } && { ac_try='test -s conftest$ac_exeext' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then ac_cv_lib_dl_dlopen=yes else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_cv_lib_dl_dlopen=no fi rm -f conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext LIBS=$ac_check_lib_save_LIBS fi echo "$as_me:$LINENO: result: $ac_cv_lib_dl_dlopen" >&5 echo "${ECHO_T}$ac_cv_lib_dl_dlopen" >&6 if test $ac_cv_lib_dl_dlopen = yes; then lt_cv_dlopen="dlopen" lt_cv_dlopen_libs="-ldl" else lt_cv_dlopen="dyld" lt_cv_dlopen_libs= lt_cv_dlopen_self=yes fi ;; *) echo "$as_me:$LINENO: checking for shl_load" >&5 echo $ECHO_N "checking for shl_load... $ECHO_C" >&6 if test "${ac_cv_func_shl_load+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ /* Define shl_load to an innocuous variant, in case declares shl_load. For example, HP-UX 11i declares gettimeofday. */ #define shl_load innocuous_shl_load /* System header to define __stub macros and hopefully few prototypes, which can conflict with char shl_load (); below. Prefer to if __STDC__ is defined, since exists even on freestanding compilers. */ #ifdef __STDC__ # include #else # include #endif #undef shl_load /* Override any gcc2 internal prototype to avoid an error. */ #ifdef __cplusplus extern "C" { #endif /* We use char because int might match the return type of a gcc2 builtin and then its argument prototype would still apply. */ char shl_load (); /* The GNU C library defines this for functions which it implements to always fail with ENOSYS. Some functions are actually named something starting with __ and the normal name is an alias. */ #if defined (__stub_shl_load) || defined (__stub___shl_load) choke me #else char (*f) () = shl_load; #endif #ifdef __cplusplus } #endif int main () { return f != shl_load; ; return 0; } _ACEOF rm -f conftest.$ac_objext conftest$ac_exeext if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5 (eval $ac_link) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { ac_try='test -z "$ac_c_werror_flag" || test ! -s conftest.err' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; } && { ac_try='test -s conftest$ac_exeext' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then ac_cv_func_shl_load=yes else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_cv_func_shl_load=no fi rm -f conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext fi echo "$as_me:$LINENO: result: $ac_cv_func_shl_load" >&5 echo "${ECHO_T}$ac_cv_func_shl_load" >&6 if test $ac_cv_func_shl_load = yes; then lt_cv_dlopen="shl_load" else echo "$as_me:$LINENO: checking for shl_load in -ldld" >&5 echo $ECHO_N "checking for shl_load in -ldld... $ECHO_C" >&6 if test "${ac_cv_lib_dld_shl_load+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else ac_check_lib_save_LIBS=$LIBS LIBS="-ldld $LIBS" cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ /* Override any gcc2 internal prototype to avoid an error. */ #ifdef __cplusplus extern "C" #endif /* We use char because int might match the return type of a gcc2 builtin and then its argument prototype would still apply. */ char shl_load (); int main () { shl_load (); ; return 0; } _ACEOF rm -f conftest.$ac_objext conftest$ac_exeext if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5 (eval $ac_link) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { ac_try='test -z "$ac_c_werror_flag" || test ! -s conftest.err' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; } && { ac_try='test -s conftest$ac_exeext' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then ac_cv_lib_dld_shl_load=yes else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_cv_lib_dld_shl_load=no fi rm -f conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext LIBS=$ac_check_lib_save_LIBS fi echo "$as_me:$LINENO: result: $ac_cv_lib_dld_shl_load" >&5 echo "${ECHO_T}$ac_cv_lib_dld_shl_load" >&6 if test $ac_cv_lib_dld_shl_load = yes; then lt_cv_dlopen="shl_load" lt_cv_dlopen_libs="-ldld" else echo "$as_me:$LINENO: checking for dlopen" >&5 echo $ECHO_N "checking for dlopen... $ECHO_C" >&6 if test "${ac_cv_func_dlopen+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ /* Define dlopen to an innocuous variant, in case declares dlopen. For example, HP-UX 11i declares gettimeofday. */ #define dlopen innocuous_dlopen /* System header to define __stub macros and hopefully few prototypes, which can conflict with char dlopen (); below. Prefer to if __STDC__ is defined, since exists even on freestanding compilers. */ #ifdef __STDC__ # include #else # include #endif #undef dlopen /* Override any gcc2 internal prototype to avoid an error. */ #ifdef __cplusplus extern "C" { #endif /* We use char because int might match the return type of a gcc2 builtin and then its argument prototype would still apply. */ char dlopen (); /* The GNU C library defines this for functions which it implements to always fail with ENOSYS. Some functions are actually named something starting with __ and the normal name is an alias. */ #if defined (__stub_dlopen) || defined (__stub___dlopen) choke me #else char (*f) () = dlopen; #endif #ifdef __cplusplus } #endif int main () { return f != dlopen; ; return 0; } _ACEOF rm -f conftest.$ac_objext conftest$ac_exeext if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5 (eval $ac_link) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { ac_try='test -z "$ac_c_werror_flag" || test ! -s conftest.err' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; } && { ac_try='test -s conftest$ac_exeext' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then ac_cv_func_dlopen=yes else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_cv_func_dlopen=no fi rm -f conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext fi echo "$as_me:$LINENO: result: $ac_cv_func_dlopen" >&5 echo "${ECHO_T}$ac_cv_func_dlopen" >&6 if test $ac_cv_func_dlopen = yes; then lt_cv_dlopen="dlopen" else echo "$as_me:$LINENO: checking for dlopen in -ldl" >&5 echo $ECHO_N "checking for dlopen in -ldl... $ECHO_C" >&6 if test "${ac_cv_lib_dl_dlopen+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else ac_check_lib_save_LIBS=$LIBS LIBS="-ldl $LIBS" cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ /* Override any gcc2 internal prototype to avoid an error. */ #ifdef __cplusplus extern "C" #endif /* We use char because int might match the return type of a gcc2 builtin and then its argument prototype would still apply. */ char dlopen (); int main () { dlopen (); ; return 0; } _ACEOF rm -f conftest.$ac_objext conftest$ac_exeext if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5 (eval $ac_link) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { ac_try='test -z "$ac_c_werror_flag" || test ! -s conftest.err' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; } && { ac_try='test -s conftest$ac_exeext' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then ac_cv_lib_dl_dlopen=yes else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_cv_lib_dl_dlopen=no fi rm -f conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext LIBS=$ac_check_lib_save_LIBS fi echo "$as_me:$LINENO: result: $ac_cv_lib_dl_dlopen" >&5 echo "${ECHO_T}$ac_cv_lib_dl_dlopen" >&6 if test $ac_cv_lib_dl_dlopen = yes; then lt_cv_dlopen="dlopen" lt_cv_dlopen_libs="-ldl" else echo "$as_me:$LINENO: checking for dlopen in -lsvld" >&5 echo $ECHO_N "checking for dlopen in -lsvld... $ECHO_C" >&6 if test "${ac_cv_lib_svld_dlopen+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else ac_check_lib_save_LIBS=$LIBS LIBS="-lsvld $LIBS" cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ /* Override any gcc2 internal prototype to avoid an error. */ #ifdef __cplusplus extern "C" #endif /* We use char because int might match the return type of a gcc2 builtin and then its argument prototype would still apply. */ char dlopen (); int main () { dlopen (); ; return 0; } _ACEOF rm -f conftest.$ac_objext conftest$ac_exeext if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5 (eval $ac_link) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { ac_try='test -z "$ac_c_werror_flag" || test ! -s conftest.err' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; } && { ac_try='test -s conftest$ac_exeext' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then ac_cv_lib_svld_dlopen=yes else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_cv_lib_svld_dlopen=no fi rm -f conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext LIBS=$ac_check_lib_save_LIBS fi echo "$as_me:$LINENO: result: $ac_cv_lib_svld_dlopen" >&5 echo "${ECHO_T}$ac_cv_lib_svld_dlopen" >&6 if test $ac_cv_lib_svld_dlopen = yes; then lt_cv_dlopen="dlopen" lt_cv_dlopen_libs="-lsvld" else echo "$as_me:$LINENO: checking for dld_link in -ldld" >&5 echo $ECHO_N "checking for dld_link in -ldld... $ECHO_C" >&6 if test "${ac_cv_lib_dld_dld_link+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else ac_check_lib_save_LIBS=$LIBS LIBS="-ldld $LIBS" cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ /* Override any gcc2 internal prototype to avoid an error. */ #ifdef __cplusplus extern "C" #endif /* We use char because int might match the return type of a gcc2 builtin and then its argument prototype would still apply. */ char dld_link (); int main () { dld_link (); ; return 0; } _ACEOF rm -f conftest.$ac_objext conftest$ac_exeext if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5 (eval $ac_link) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { ac_try='test -z "$ac_c_werror_flag" || test ! -s conftest.err' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; } && { ac_try='test -s conftest$ac_exeext' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then ac_cv_lib_dld_dld_link=yes else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_cv_lib_dld_dld_link=no fi rm -f conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext LIBS=$ac_check_lib_save_LIBS fi echo "$as_me:$LINENO: result: $ac_cv_lib_dld_dld_link" >&5 echo "${ECHO_T}$ac_cv_lib_dld_dld_link" >&6 if test $ac_cv_lib_dld_dld_link = yes; then lt_cv_dlopen="dld_link" lt_cv_dlopen_libs="-ldld" fi fi fi fi fi fi ;; esac if test "x$lt_cv_dlopen" != xno; then enable_dlopen=yes else enable_dlopen=no fi case $lt_cv_dlopen in dlopen) save_CPPFLAGS="$CPPFLAGS" test "x$ac_cv_header_dlfcn_h" = xyes && CPPFLAGS="$CPPFLAGS -DHAVE_DLFCN_H" save_LDFLAGS="$LDFLAGS" wl=$lt_prog_compiler_wl eval LDFLAGS=\"\$LDFLAGS $export_dynamic_flag_spec\" save_LIBS="$LIBS" LIBS="$lt_cv_dlopen_libs $LIBS" echo "$as_me:$LINENO: checking whether a program can dlopen itself" >&5 echo $ECHO_N "checking whether a program can dlopen itself... $ECHO_C" >&6 if test "${lt_cv_dlopen_self+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else if test "$cross_compiling" = yes; then : lt_cv_dlopen_self=cross else lt_dlunknown=0; lt_dlno_uscore=1; lt_dlneed_uscore=2 lt_status=$lt_dlunknown cat > conftest.$ac_ext < #endif #include #ifdef RTLD_GLOBAL # define LT_DLGLOBAL RTLD_GLOBAL #else # ifdef DL_GLOBAL # define LT_DLGLOBAL DL_GLOBAL # else # define LT_DLGLOBAL 0 # endif #endif /* We may have to define LT_DLLAZY_OR_NOW in the command line if we find out it does not work in some platform. */ #ifndef LT_DLLAZY_OR_NOW # ifdef RTLD_LAZY # define LT_DLLAZY_OR_NOW RTLD_LAZY # else # ifdef DL_LAZY # define LT_DLLAZY_OR_NOW DL_LAZY # else # ifdef RTLD_NOW # define LT_DLLAZY_OR_NOW RTLD_NOW # else # ifdef DL_NOW # define LT_DLLAZY_OR_NOW DL_NOW # else # define LT_DLLAZY_OR_NOW 0 # endif # endif # endif # endif #endif #ifdef __cplusplus extern "C" void exit (int); #endif void fnord() { int i=42;} int main () { void *self = dlopen (0, LT_DLGLOBAL|LT_DLLAZY_OR_NOW); int status = $lt_dlunknown; if (self) { if (dlsym (self,"fnord")) status = $lt_dlno_uscore; else if (dlsym( self,"_fnord")) status = $lt_dlneed_uscore; /* dlclose (self); */ } else puts (dlerror ()); exit (status); } EOF if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5 (eval $ac_link) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && test -s conftest${ac_exeext} 2>/dev/null; then (./conftest; exit; ) >&5 2>/dev/null lt_status=$? case x$lt_status in x$lt_dlno_uscore) lt_cv_dlopen_self=yes ;; x$lt_dlneed_uscore) lt_cv_dlopen_self=yes ;; x$lt_dlunknown|x*) lt_cv_dlopen_self=no ;; esac else : # compilation failed lt_cv_dlopen_self=no fi fi rm -fr conftest* fi echo "$as_me:$LINENO: result: $lt_cv_dlopen_self" >&5 echo "${ECHO_T}$lt_cv_dlopen_self" >&6 if test "x$lt_cv_dlopen_self" = xyes; then wl=$lt_prog_compiler_wl eval LDFLAGS=\"\$LDFLAGS $lt_prog_compiler_static\" echo "$as_me:$LINENO: checking whether a statically linked program can dlopen itself" >&5 echo $ECHO_N "checking whether a statically linked program can dlopen itself... $ECHO_C" >&6 if test "${lt_cv_dlopen_self_static+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else if test "$cross_compiling" = yes; then : lt_cv_dlopen_self_static=cross else lt_dlunknown=0; lt_dlno_uscore=1; lt_dlneed_uscore=2 lt_status=$lt_dlunknown cat > conftest.$ac_ext < #endif #include #ifdef RTLD_GLOBAL # define LT_DLGLOBAL RTLD_GLOBAL #else # ifdef DL_GLOBAL # define LT_DLGLOBAL DL_GLOBAL # else # define LT_DLGLOBAL 0 # endif #endif /* We may have to define LT_DLLAZY_OR_NOW in the command line if we find out it does not work in some platform. */ #ifndef LT_DLLAZY_OR_NOW # ifdef RTLD_LAZY # define LT_DLLAZY_OR_NOW RTLD_LAZY # else # ifdef DL_LAZY # define LT_DLLAZY_OR_NOW DL_LAZY # else # ifdef RTLD_NOW # define LT_DLLAZY_OR_NOW RTLD_NOW # else # ifdef DL_NOW # define LT_DLLAZY_OR_NOW DL_NOW # else # define LT_DLLAZY_OR_NOW 0 # endif # endif # endif # endif #endif #ifdef __cplusplus extern "C" void exit (int); #endif void fnord() { int i=42;} int main () { void *self = dlopen (0, LT_DLGLOBAL|LT_DLLAZY_OR_NOW); int status = $lt_dlunknown; if (self) { if (dlsym (self,"fnord")) status = $lt_dlno_uscore; else if (dlsym( self,"_fnord")) status = $lt_dlneed_uscore; /* dlclose (self); */ } else puts (dlerror ()); exit (status); } EOF if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5 (eval $ac_link) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && test -s conftest${ac_exeext} 2>/dev/null; then (./conftest; exit; ) >&5 2>/dev/null lt_status=$? case x$lt_status in x$lt_dlno_uscore) lt_cv_dlopen_self_static=yes ;; x$lt_dlneed_uscore) lt_cv_dlopen_self_static=yes ;; x$lt_dlunknown|x*) lt_cv_dlopen_self_static=no ;; esac else : # compilation failed lt_cv_dlopen_self_static=no fi fi rm -fr conftest* fi echo "$as_me:$LINENO: result: $lt_cv_dlopen_self_static" >&5 echo "${ECHO_T}$lt_cv_dlopen_self_static" >&6 fi CPPFLAGS="$save_CPPFLAGS" LDFLAGS="$save_LDFLAGS" LIBS="$save_LIBS" ;; esac case $lt_cv_dlopen_self in yes|no) enable_dlopen_self=$lt_cv_dlopen_self ;; *) enable_dlopen_self=unknown ;; esac case $lt_cv_dlopen_self_static in yes|no) enable_dlopen_self_static=$lt_cv_dlopen_self_static ;; *) enable_dlopen_self_static=unknown ;; esac fi # Report which library types will actually be built echo "$as_me:$LINENO: checking if libtool supports shared libraries" >&5 echo $ECHO_N "checking if libtool supports shared libraries... $ECHO_C" >&6 echo "$as_me:$LINENO: result: $can_build_shared" >&5 echo "${ECHO_T}$can_build_shared" >&6 echo "$as_me:$LINENO: checking whether to build shared libraries" >&5 echo $ECHO_N "checking whether to build shared libraries... $ECHO_C" >&6 test "$can_build_shared" = "no" && enable_shared=no # On AIX, shared libraries and static libraries use the same namespace, and # are all built from PIC. case $host_os in aix3*) test "$enable_shared" = yes && enable_static=no if test -n "$RANLIB"; then archive_cmds="$archive_cmds~\$RANLIB \$lib" postinstall_cmds='$RANLIB $lib' fi ;; aix[4-9]*) if test "$host_cpu" != ia64 && test "$aix_use_runtimelinking" = no ; then test "$enable_shared" = yes && enable_static=no fi ;; esac echo "$as_me:$LINENO: result: $enable_shared" >&5 echo "${ECHO_T}$enable_shared" >&6 echo "$as_me:$LINENO: checking whether to build static libraries" >&5 echo $ECHO_N "checking whether to build static libraries... $ECHO_C" >&6 # Make sure either enable_shared or enable_static is yes. test "$enable_shared" = yes || enable_static=yes echo "$as_me:$LINENO: result: $enable_static" >&5 echo "${ECHO_T}$enable_static" >&6 # The else clause should only fire when bootstrapping the # libtool distribution, otherwise you forgot to ship ltmain.sh # with your package, and you will get complaints that there are # no rules to generate ltmain.sh. if test -f "$ltmain"; then # See if we are running on zsh, and set the options which allow our commands through # without removal of \ escapes. if test -n "${ZSH_VERSION+set}" ; then setopt NO_GLOB_SUBST fi # Now quote all the things that may contain metacharacters while being # careful not to overquote the AC_SUBSTed values. We take copies of the # variables and quote the copies for generation of the libtool script. for var in echo old_CC old_CFLAGS AR AR_FLAGS EGREP RANLIB LN_S LTCC LTCFLAGS NM \ SED SHELL STRIP \ libname_spec library_names_spec soname_spec extract_expsyms_cmds \ old_striplib striplib file_magic_cmd finish_cmds finish_eval \ deplibs_check_method reload_flag reload_cmds need_locks \ lt_cv_sys_global_symbol_pipe lt_cv_sys_global_symbol_to_cdecl \ lt_cv_sys_global_symbol_to_c_name_address \ sys_lib_search_path_spec sys_lib_dlsearch_path_spec \ old_postinstall_cmds old_postuninstall_cmds \ compiler \ CC \ LD \ lt_prog_compiler_wl \ lt_prog_compiler_pic \ lt_prog_compiler_static \ lt_prog_compiler_no_builtin_flag \ export_dynamic_flag_spec \ thread_safe_flag_spec \ whole_archive_flag_spec \ enable_shared_with_static_runtimes \ old_archive_cmds \ old_archive_from_new_cmds \ predep_objects \ postdep_objects \ predeps \ postdeps \ compiler_lib_search_path \ compiler_lib_search_dirs \ archive_cmds \ archive_expsym_cmds \ postinstall_cmds \ postuninstall_cmds \ old_archive_from_expsyms_cmds \ allow_undefined_flag \ no_undefined_flag \ export_symbols_cmds \ hardcode_libdir_flag_spec \ hardcode_libdir_flag_spec_ld \ hardcode_libdir_separator \ hardcode_automatic \ module_cmds \ module_expsym_cmds \ lt_cv_prog_compiler_c_o \ fix_srcfile_path \ exclude_expsyms \ include_expsyms; do case $var in old_archive_cmds | \ old_archive_from_new_cmds | \ archive_cmds | \ archive_expsym_cmds | \ module_cmds | \ module_expsym_cmds | \ old_archive_from_expsyms_cmds | \ export_symbols_cmds | \ extract_expsyms_cmds | reload_cmds | finish_cmds | \ postinstall_cmds | postuninstall_cmds | \ old_postinstall_cmds | old_postuninstall_cmds | \ sys_lib_search_path_spec | sys_lib_dlsearch_path_spec) # Double-quote double-evaled strings. eval "lt_$var=\\\"\`\$echo \"X\$$var\" | \$Xsed -e \"\$double_quote_subst\" -e \"\$sed_quote_subst\" -e \"\$delay_variable_subst\"\`\\\"" ;; *) eval "lt_$var=\\\"\`\$echo \"X\$$var\" | \$Xsed -e \"\$sed_quote_subst\"\`\\\"" ;; esac done case $lt_echo in *'\$0 --fallback-echo"') lt_echo=`$echo "X$lt_echo" | $Xsed -e 's/\\\\\\\$0 --fallback-echo"$/$0 --fallback-echo"/'` ;; esac cfgfile="${ofile}T" trap "$rm \"$cfgfile\"; exit 1" 1 2 15 $rm -f "$cfgfile" { echo "$as_me:$LINENO: creating $ofile" >&5 echo "$as_me: creating $ofile" >&6;} cat <<__EOF__ >> "$cfgfile" #! $SHELL # `$echo "$cfgfile" | sed 's%^.*/%%'` - Provide generalized library-building support services. # Generated automatically by $PROGRAM (GNU $PACKAGE $VERSION$TIMESTAMP) # NOTE: Changes made to this file will be lost: look at ltmain.sh. # # Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008 # Free Software Foundation, Inc. # # This file is part of GNU Libtool: # Originally by Gordon Matzigkeit , 1996 # # This program 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 # (at your option) any later version. # # This program is distributed in the hope that it will be useful, but # WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU # General Public License for more details. # # You should have received a copy of the GNU General Public License # along with this program; if not, write to the Free Software # Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. # # 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. # A sed program that does not truncate output. SED=$lt_SED # Sed that helps us avoid accidentally triggering echo(1) options like -n. Xsed="$SED -e 1s/^X//" # The HP-UX ksh and POSIX shell print the target directory to stdout # if CDPATH is set. (unset CDPATH) >/dev/null 2>&1 && unset CDPATH # The names of the tagged configurations supported by this script. available_tags= # ### BEGIN LIBTOOL CONFIG # Libtool was configured on host `(hostname || uname -n) 2>/dev/null | sed 1q`: # Shell to use when invoking shell scripts. SHELL=$lt_SHELL # Whether or not to build shared libraries. build_libtool_libs=$enable_shared # Whether or not to build static libraries. build_old_libs=$enable_static # Whether or not to add -lc for building shared libraries. build_libtool_need_lc=$archive_cmds_need_lc # Whether or not to disallow shared libs when runtime libs are static allow_libtool_libs_with_static_runtimes=$enable_shared_with_static_runtimes # Whether or not to optimize for fast installation. fast_install=$enable_fast_install # The host system. host_alias=$host_alias host=$host host_os=$host_os # The build system. build_alias=$build_alias build=$build build_os=$build_os # An echo program that does not interpret backslashes. echo=$lt_echo # The archiver. AR=$lt_AR AR_FLAGS=$lt_AR_FLAGS # A C compiler. LTCC=$lt_LTCC # LTCC compiler flags. LTCFLAGS=$lt_LTCFLAGS # A language-specific compiler. CC=$lt_compiler # Is the compiler the GNU C compiler? with_gcc=$GCC # An ERE matcher. EGREP=$lt_EGREP # The linker used to build libraries. LD=$lt_LD # Whether we need hard or soft links. LN_S=$lt_LN_S # A BSD-compatible nm program. NM=$lt_NM # A symbol stripping program STRIP=$lt_STRIP # Used to examine libraries when file_magic_cmd begins "file" MAGIC_CMD=$MAGIC_CMD # Used on cygwin: DLL creation program. DLLTOOL="$DLLTOOL" # Used on cygwin: object dumper. OBJDUMP="$OBJDUMP" # Used on cygwin: assembler. AS="$AS" # The name of the directory that contains temporary libtool files. objdir=$objdir # How to create reloadable object files. reload_flag=$lt_reload_flag reload_cmds=$lt_reload_cmds # How to pass a linker flag through the compiler. wl=$lt_lt_prog_compiler_wl # Object file suffix (normally "o"). objext="$ac_objext" # Old archive suffix (normally "a"). libext="$libext" # Shared library suffix (normally ".so"). shrext_cmds='$shrext_cmds' # Executable file suffix (normally ""). exeext="$exeext" # Additional compiler flags for building library objects. pic_flag=$lt_lt_prog_compiler_pic pic_mode=$pic_mode # What is the maximum length of a command? max_cmd_len=$lt_cv_sys_max_cmd_len # Does compiler simultaneously support -c and -o options? compiler_c_o=$lt_lt_cv_prog_compiler_c_o # Must we lock files when doing compilation? need_locks=$lt_need_locks # Do we need the lib prefix for modules? need_lib_prefix=$need_lib_prefix # Do we need a version for libraries? need_version=$need_version # Whether dlopen is supported. dlopen_support=$enable_dlopen # Whether dlopen of programs is supported. dlopen_self=$enable_dlopen_self # Whether dlopen of statically linked programs is supported. dlopen_self_static=$enable_dlopen_self_static # Compiler flag to prevent dynamic linking. link_static_flag=$lt_lt_prog_compiler_static # Compiler flag to turn off builtin functions. no_builtin_flag=$lt_lt_prog_compiler_no_builtin_flag # Compiler flag to allow reflexive dlopens. export_dynamic_flag_spec=$lt_export_dynamic_flag_spec # Compiler flag to generate shared objects directly from archives. whole_archive_flag_spec=$lt_whole_archive_flag_spec # Compiler flag to generate thread-safe objects. thread_safe_flag_spec=$lt_thread_safe_flag_spec # Library versioning type. version_type=$version_type # Format of library name prefix. libname_spec=$lt_libname_spec # List of archive names. First name is the real one, the rest are links. # The last name is the one that the linker finds with -lNAME. library_names_spec=$lt_library_names_spec # The coded name of the library, if different from the real name. soname_spec=$lt_soname_spec # Commands used to build and install an old-style archive. RANLIB=$lt_RANLIB old_archive_cmds=$lt_old_archive_cmds old_postinstall_cmds=$lt_old_postinstall_cmds old_postuninstall_cmds=$lt_old_postuninstall_cmds # Create an old-style archive from a shared archive. old_archive_from_new_cmds=$lt_old_archive_from_new_cmds # Create a temporary old-style archive to link instead of a shared archive. old_archive_from_expsyms_cmds=$lt_old_archive_from_expsyms_cmds # Commands used to build and install a shared archive. archive_cmds=$lt_archive_cmds archive_expsym_cmds=$lt_archive_expsym_cmds postinstall_cmds=$lt_postinstall_cmds postuninstall_cmds=$lt_postuninstall_cmds # Commands used to build a loadable module (assumed same as above if empty) module_cmds=$lt_module_cmds module_expsym_cmds=$lt_module_expsym_cmds # Commands to strip libraries. old_striplib=$lt_old_striplib striplib=$lt_striplib # Dependencies to place before the objects being linked to create a # shared library. predep_objects=$lt_predep_objects # Dependencies to place after the objects being linked to create a # shared library. postdep_objects=$lt_postdep_objects # Dependencies to place before the objects being linked to create a # shared library. predeps=$lt_predeps # Dependencies to place after the objects being linked to create a # shared library. postdeps=$lt_postdeps # The directories searched by this compiler when creating a shared # library compiler_lib_search_dirs=$lt_compiler_lib_search_dirs # The library search path used internally by the compiler when linking # a shared library. compiler_lib_search_path=$lt_compiler_lib_search_path # Method to check whether dependent libraries are shared objects. deplibs_check_method=$lt_deplibs_check_method # Command to use when deplibs_check_method == file_magic. file_magic_cmd=$lt_file_magic_cmd # Flag that allows shared libraries with undefined symbols to be built. allow_undefined_flag=$lt_allow_undefined_flag # Flag that forces no undefined symbols. no_undefined_flag=$lt_no_undefined_flag # Commands used to finish a libtool library installation in a directory. finish_cmds=$lt_finish_cmds # Same as above, but a single script fragment to be evaled but not shown. finish_eval=$lt_finish_eval # Take the output of nm and produce a listing of raw symbols and C names. global_symbol_pipe=$lt_lt_cv_sys_global_symbol_pipe # Transform the output of nm in a proper C declaration global_symbol_to_cdecl=$lt_lt_cv_sys_global_symbol_to_cdecl # Transform the output of nm in a C name address pair global_symbol_to_c_name_address=$lt_lt_cv_sys_global_symbol_to_c_name_address # This is the shared library runtime path variable. runpath_var=$runpath_var # This is the shared library path variable. shlibpath_var=$shlibpath_var # Is shlibpath searched before the hard-coded library search path? shlibpath_overrides_runpath=$shlibpath_overrides_runpath # How to hardcode a shared library path into an executable. hardcode_action=$hardcode_action # Whether we should hardcode library paths into libraries. hardcode_into_libs=$hardcode_into_libs # Flag to hardcode \$libdir into a binary during linking. # This must work even if \$libdir does not exist. hardcode_libdir_flag_spec=$lt_hardcode_libdir_flag_spec # If ld is used when linking, flag to hardcode \$libdir into # a binary during linking. This must work even if \$libdir does # not exist. hardcode_libdir_flag_spec_ld=$lt_hardcode_libdir_flag_spec_ld # Whether we need a single -rpath flag with a separated argument. hardcode_libdir_separator=$lt_hardcode_libdir_separator # Set to yes if using DIR/libNAME${shared_ext} during linking hardcodes DIR into the # resulting binary. hardcode_direct=$hardcode_direct # Set to yes if using the -LDIR flag during linking hardcodes DIR into the # resulting binary. hardcode_minus_L=$hardcode_minus_L # Set to yes if using SHLIBPATH_VAR=DIR during linking hardcodes DIR into # the resulting binary. hardcode_shlibpath_var=$hardcode_shlibpath_var # Set to yes if building a shared library automatically hardcodes DIR into the library # and all subsequent libraries and executables linked against it. hardcode_automatic=$hardcode_automatic # Variables whose values should be saved in libtool wrapper scripts and # restored at relink time. variables_saved_for_relink="$variables_saved_for_relink" # Whether libtool must link a program against all its dependency libraries. link_all_deplibs=$link_all_deplibs # Compile-time system search path for libraries sys_lib_search_path_spec=$lt_sys_lib_search_path_spec # Run-time system search path for libraries sys_lib_dlsearch_path_spec=$lt_sys_lib_dlsearch_path_spec # Fix the shell variable \$srcfile for the compiler. fix_srcfile_path=$lt_fix_srcfile_path # Set to yes if exported symbols are required. always_export_symbols=$always_export_symbols # The commands to list exported symbols. export_symbols_cmds=$lt_export_symbols_cmds # The commands to extract the exported symbol list from a shared archive. extract_expsyms_cmds=$lt_extract_expsyms_cmds # Symbols that should not be listed in the preloaded symbols. exclude_expsyms=$lt_exclude_expsyms # Symbols that must always be exported. include_expsyms=$lt_include_expsyms # ### END LIBTOOL CONFIG __EOF__ case $host_os in aix3*) cat <<\EOF >> "$cfgfile" # AIX sometimes has problems with the GCC collect2 program. For some # reason, if we set the COLLECT_NAMES environment variable, the problems # vanish in a puff of smoke. if test "X${COLLECT_NAMES+set}" != Xset; then COLLECT_NAMES= export COLLECT_NAMES fi EOF ;; esac # We use sed instead of cat because bash on DJGPP gets confused if # if finds mixed CR/LF and LF-only lines. Since sed operates in # text mode, it properly converts lines to CR/LF. This bash problem # is reportedly fixed, but why not run on old versions too? sed '$q' "$ltmain" >> "$cfgfile" || (rm -f "$cfgfile"; exit 1) mv -f "$cfgfile" "$ofile" || \ (rm -f "$ofile" && cp "$cfgfile" "$ofile" && rm -f "$cfgfile") chmod +x "$ofile" else # If there is no Makefile yet, we rely on a make rule to execute # `config.status --recheck' to rerun these tests and create the # libtool script then. ltmain_in=`echo $ltmain | sed -e 's/\.sh$/.in/'` if test -f "$ltmain_in"; then test -f Makefile && make "$ltmain" fi fi ac_ext=c ac_cpp='$CPP $CPPFLAGS' ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' ac_compiler_gnu=$ac_cv_c_compiler_gnu CC="$lt_save_CC" # Check whether --with-tags or --without-tags was given. if test "${with_tags+set}" = set; then withval="$with_tags" tagnames="$withval" fi; if test -f "$ltmain" && test -n "$tagnames"; then if test ! -f "${ofile}"; then { echo "$as_me:$LINENO: WARNING: output file \`$ofile' does not exist" >&5 echo "$as_me: WARNING: output file \`$ofile' does not exist" >&2;} fi if test -z "$LTCC"; then eval "`$SHELL ${ofile} --config | grep '^LTCC='`" if test -z "$LTCC"; then { echo "$as_me:$LINENO: WARNING: output file \`$ofile' does not look like a libtool script" >&5 echo "$as_me: WARNING: output file \`$ofile' does not look like a libtool script" >&2;} else { echo "$as_me:$LINENO: WARNING: using \`LTCC=$LTCC', extracted from \`$ofile'" >&5 echo "$as_me: WARNING: using \`LTCC=$LTCC', extracted from \`$ofile'" >&2;} fi fi if test -z "$LTCFLAGS"; then eval "`$SHELL ${ofile} --config | grep '^LTCFLAGS='`" fi # Extract list of available tagged configurations in $ofile. # Note that this assumes the entire list is on one line. available_tags=`grep "^available_tags=" "${ofile}" | $SED -e 's/available_tags=\(.*$\)/\1/' -e 's/\"//g'` lt_save_ifs="$IFS"; IFS="${IFS}$PATH_SEPARATOR," for tagname in $tagnames; do IFS="$lt_save_ifs" # Check whether tagname contains only valid characters case `$echo "X$tagname" | $Xsed -e 's:[-_ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz1234567890,/]::g'` in "") ;; *) { { echo "$as_me:$LINENO: error: invalid tag name: $tagname" >&5 echo "$as_me: error: invalid tag name: $tagname" >&2;} { (exit 1); exit 1; }; } ;; esac if grep "^# ### BEGIN LIBTOOL TAG CONFIG: $tagname$" < "${ofile}" > /dev/null then { { echo "$as_me:$LINENO: error: tag name \"$tagname\" already exists" >&5 echo "$as_me: error: tag name \"$tagname\" already exists" >&2;} { (exit 1); exit 1; }; } fi # Update the list of available tags. if test -n "$tagname"; then echo appending configuration tag \"$tagname\" to $ofile case $tagname in CXX) if test -n "$CXX" && ( test "X$CXX" != "Xno" && ( (test "X$CXX" = "Xg++" && `g++ -v >/dev/null 2>&1` ) || (test "X$CXX" != "Xg++"))) ; then ac_ext=cc ac_cpp='$CXXCPP $CPPFLAGS' ac_compile='$CXX -c $CXXFLAGS $CPPFLAGS conftest.$ac_ext >&5' ac_link='$CXX -o conftest$ac_exeext $CXXFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' ac_compiler_gnu=$ac_cv_cxx_compiler_gnu archive_cmds_need_lc_CXX=no allow_undefined_flag_CXX= always_export_symbols_CXX=no archive_expsym_cmds_CXX= export_dynamic_flag_spec_CXX= hardcode_direct_CXX=no hardcode_libdir_flag_spec_CXX= hardcode_libdir_flag_spec_ld_CXX= hardcode_libdir_separator_CXX= hardcode_minus_L_CXX=no hardcode_shlibpath_var_CXX=unsupported hardcode_automatic_CXX=no module_cmds_CXX= module_expsym_cmds_CXX= link_all_deplibs_CXX=unknown old_archive_cmds_CXX=$old_archive_cmds no_undefined_flag_CXX= whole_archive_flag_spec_CXX= enable_shared_with_static_runtimes_CXX=no # Dependencies to place before and after the object being linked: predep_objects_CXX= postdep_objects_CXX= predeps_CXX= postdeps_CXX= compiler_lib_search_path_CXX= compiler_lib_search_dirs_CXX= # Source file extension for C++ test sources. ac_ext=cpp # Object file extension for compiled C++ test sources. objext=o objext_CXX=$objext # Code to be used in simple compile tests lt_simple_compile_test_code="int some_variable = 0;" # Code to be used in simple link tests lt_simple_link_test_code='int main(int, char *[]) { return(0); }' # ltmain only uses $CC for tagged configurations so make sure $CC is set. # If no C compiler was specified, use CC. LTCC=${LTCC-"$CC"} # If no C compiler flags were specified, use CFLAGS. LTCFLAGS=${LTCFLAGS-"$CFLAGS"} # Allow CC to be a program name with arguments. compiler=$CC # save warnings/boilerplate of simple test code ac_outfile=conftest.$ac_objext echo "$lt_simple_compile_test_code" >conftest.$ac_ext eval "$ac_compile" 2>&1 >/dev/null | $SED '/^$/d; /^ *+/d' >conftest.err _lt_compiler_boilerplate=`cat conftest.err` $rm conftest* ac_outfile=conftest.$ac_objext echo "$lt_simple_link_test_code" >conftest.$ac_ext eval "$ac_link" 2>&1 >/dev/null | $SED '/^$/d; /^ *+/d' >conftest.err _lt_linker_boilerplate=`cat conftest.err` $rm -r conftest* # Allow CC to be a program name with arguments. lt_save_CC=$CC lt_save_LD=$LD lt_save_GCC=$GCC GCC=$GXX lt_save_with_gnu_ld=$with_gnu_ld lt_save_path_LD=$lt_cv_path_LD if test -n "${lt_cv_prog_gnu_ldcxx+set}"; then lt_cv_prog_gnu_ld=$lt_cv_prog_gnu_ldcxx else $as_unset lt_cv_prog_gnu_ld fi if test -n "${lt_cv_path_LDCXX+set}"; then lt_cv_path_LD=$lt_cv_path_LDCXX else $as_unset lt_cv_path_LD fi test -z "${LDCXX+set}" || LD=$LDCXX CC=${CXX-"c++"} compiler=$CC compiler_CXX=$CC for cc_temp in $compiler""; do case $cc_temp in compile | *[\\/]compile | ccache | *[\\/]ccache ) ;; distcc | *[\\/]distcc | purify | *[\\/]purify ) ;; \-*) ;; *) break;; esac done cc_basename=`$echo "X$cc_temp" | $Xsed -e 's%.*/%%' -e "s%^$host_alias-%%"` # We don't want -fno-exception wen compiling C++ code, so set the # no_builtin_flag separately if test "$GXX" = yes; then lt_prog_compiler_no_builtin_flag_CXX=' -fno-builtin' else lt_prog_compiler_no_builtin_flag_CXX= fi if test "$GXX" = yes; then # Set up default GNU C++ configuration # Check whether --with-gnu-ld or --without-gnu-ld was given. if test "${with_gnu_ld+set}" = set; then withval="$with_gnu_ld" test "$withval" = no || with_gnu_ld=yes else with_gnu_ld=no fi; ac_prog=ld if test "$GCC" = yes; then # Check if gcc -print-prog-name=ld gives a path. echo "$as_me:$LINENO: checking for ld used by $CC" >&5 echo $ECHO_N "checking for ld used by $CC... $ECHO_C" >&6 case $host in *-*-mingw*) # gcc leaves a trailing carriage return which upsets mingw ac_prog=`($CC -print-prog-name=ld) 2>&5 | tr -d '\015'` ;; *) ac_prog=`($CC -print-prog-name=ld) 2>&5` ;; esac case $ac_prog in # Accept absolute paths. [\\/]* | ?:[\\/]*) re_direlt='/[^/][^/]*/\.\./' # Canonicalize the pathname of ld ac_prog=`echo $ac_prog| $SED 's%\\\\%/%g'` while echo $ac_prog | grep "$re_direlt" > /dev/null 2>&1; do ac_prog=`echo $ac_prog| $SED "s%$re_direlt%/%"` done test -z "$LD" && LD="$ac_prog" ;; "") # If it fails, then pretend we aren't using GCC. ac_prog=ld ;; *) # If it is relative, then search for the first ld in PATH. with_gnu_ld=unknown ;; esac elif test "$with_gnu_ld" = yes; then echo "$as_me:$LINENO: checking for GNU ld" >&5 echo $ECHO_N "checking for GNU ld... $ECHO_C" >&6 else echo "$as_me:$LINENO: checking for non-GNU ld" >&5 echo $ECHO_N "checking for non-GNU ld... $ECHO_C" >&6 fi if test "${lt_cv_path_LD+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else if test -z "$LD"; then lt_save_ifs="$IFS"; IFS=$PATH_SEPARATOR for ac_dir in $PATH; do IFS="$lt_save_ifs" test -z "$ac_dir" && ac_dir=. if test -f "$ac_dir/$ac_prog" || test -f "$ac_dir/$ac_prog$ac_exeext"; then lt_cv_path_LD="$ac_dir/$ac_prog" # Check to see if the program is GNU ld. I'd rather use --version, # but apparently some variants of GNU ld only accept -v. # Break only if it was the GNU/non-GNU ld that we prefer. case `"$lt_cv_path_LD" -v 2>&1 &5 echo "${ECHO_T}$LD" >&6 else echo "$as_me:$LINENO: result: no" >&5 echo "${ECHO_T}no" >&6 fi test -z "$LD" && { { echo "$as_me:$LINENO: error: no acceptable ld found in \$PATH" >&5 echo "$as_me: error: no acceptable ld found in \$PATH" >&2;} { (exit 1); exit 1; }; } echo "$as_me:$LINENO: checking if the linker ($LD) is GNU ld" >&5 echo $ECHO_N "checking if the linker ($LD) is GNU ld... $ECHO_C" >&6 if test "${lt_cv_prog_gnu_ld+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else # I'd rather use --version here, but apparently some GNU lds only accept -v. case `$LD -v 2>&1 &5 echo "${ECHO_T}$lt_cv_prog_gnu_ld" >&6 with_gnu_ld=$lt_cv_prog_gnu_ld # Check if GNU C++ uses GNU ld as the underlying linker, since the # archiving commands below assume that GNU ld is being used. if test "$with_gnu_ld" = yes; then archive_cmds_CXX='$CC -shared -nostdlib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-soname $wl$soname -o $lib' archive_expsym_cmds_CXX='$CC -shared -nostdlib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-soname $wl$soname ${wl}-retain-symbols-file $wl$export_symbols -o $lib' hardcode_libdir_flag_spec_CXX='${wl}--rpath ${wl}$libdir' export_dynamic_flag_spec_CXX='${wl}--export-dynamic' # If archive_cmds runs LD, not CC, wlarc should be empty # XXX I think wlarc can be eliminated in ltcf-cxx, but I need to # investigate it a little bit more. (MM) wlarc='${wl}' # ancient GNU ld didn't support --whole-archive et. al. if eval "`$CC -print-prog-name=ld` --help 2>&1" | \ grep 'no-whole-archive' > /dev/null; then whole_archive_flag_spec_CXX="$wlarc"'--whole-archive$convenience '"$wlarc"'--no-whole-archive' else whole_archive_flag_spec_CXX= fi else with_gnu_ld=no wlarc= # A generic and very simple default shared library creation # command for GNU C++ for the case where it uses the native # linker, instead of GNU ld. If possible, this setting should # overridden to take advantage of the native linker features on # the platform it is being used on. archive_cmds_CXX='$CC -shared -nostdlib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags -o $lib' fi # Commands to make compiler produce verbose output that lists # what "hidden" libraries, object files and flags are used when # linking a shared library. output_verbose_link_cmd='$CC -shared $CFLAGS -v conftest.$objext 2>&1 | grep "\-L"' else GXX=no with_gnu_ld=no wlarc= fi # PORTME: fill in a description of your system's C++ link characteristics echo "$as_me:$LINENO: checking whether the $compiler linker ($LD) supports shared libraries" >&5 echo $ECHO_N "checking whether the $compiler linker ($LD) supports shared libraries... $ECHO_C" >&6 ld_shlibs_CXX=yes case $host_os in aix3*) # FIXME: insert proper C++ library support ld_shlibs_CXX=no ;; aix[4-9]*) if test "$host_cpu" = ia64; then # On IA64, the linker does run time linking by default, so we don't # have to do anything special. aix_use_runtimelinking=no exp_sym_flag='-Bexport' no_entry_flag="" else aix_use_runtimelinking=no # Test if we are trying to use run time linking or normal # AIX style linking. If -brtl is somewhere in LDFLAGS, we # need to do runtime linking. case $host_os in aix4.[23]|aix4.[23].*|aix[5-9]*) for ld_flag in $LDFLAGS; do case $ld_flag in *-brtl*) aix_use_runtimelinking=yes break ;; esac done ;; esac exp_sym_flag='-bexport' no_entry_flag='-bnoentry' fi # When large executables or shared objects are built, AIX ld can # have problems creating the table of contents. If linking a library # or program results in "error TOC overflow" add -mminimal-toc to # CXXFLAGS/CFLAGS for g++/gcc. In the cases where that is not # enough to fix the problem, add -Wl,-bbigtoc to LDFLAGS. archive_cmds_CXX='' hardcode_direct_CXX=yes hardcode_libdir_separator_CXX=':' link_all_deplibs_CXX=yes if test "$GXX" = yes; then case $host_os in aix4.[012]|aix4.[012].*) # We only want to do this on AIX 4.2 and lower, the check # below for broken collect2 doesn't work under 4.3+ collect2name=`${CC} -print-prog-name=collect2` if test -f "$collect2name" && \ strings "$collect2name" | grep resolve_lib_name >/dev/null then # We have reworked collect2 : else # We have old collect2 hardcode_direct_CXX=unsupported # It fails to find uninstalled libraries when the uninstalled # path is not listed in the libpath. Setting hardcode_minus_L # to unsupported forces relinking hardcode_minus_L_CXX=yes hardcode_libdir_flag_spec_CXX='-L$libdir' hardcode_libdir_separator_CXX= fi ;; esac shared_flag='-shared' if test "$aix_use_runtimelinking" = yes; then shared_flag="$shared_flag "'${wl}-G' fi else # not using gcc if test "$host_cpu" = ia64; then # VisualAge C++, Version 5.5 for AIX 5L for IA-64, Beta 3 Release # chokes on -Wl,-G. The following line is correct: shared_flag='-G' else if test "$aix_use_runtimelinking" = yes; then shared_flag='${wl}-G' else shared_flag='${wl}-bM:SRE' fi fi fi # It seems that -bexpall does not export symbols beginning with # underscore (_), so it is better to generate a list of symbols to export. always_export_symbols_CXX=yes if test "$aix_use_runtimelinking" = yes; then # Warning - without using the other runtime loading flags (-brtl), # -berok will link without error, but may produce a broken library. allow_undefined_flag_CXX='-berok' # Determine the default libpath from the value encoded in an empty executable. cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ int main () { ; return 0; } _ACEOF rm -f conftest.$ac_objext conftest$ac_exeext if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5 (eval $ac_link) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { ac_try='test -z "$ac_cxx_werror_flag" || test ! -s conftest.err' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; } && { ac_try='test -s conftest$ac_exeext' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then lt_aix_libpath_sed=' /Import File Strings/,/^$/ { /^0/ { s/^0 *\(.*\)$/\1/ p } }' aix_libpath=`dump -H conftest$ac_exeext 2>/dev/null | $SED -n -e "$lt_aix_libpath_sed"` # Check for a 64-bit object if we didn't find anything. if test -z "$aix_libpath"; then aix_libpath=`dump -HX64 conftest$ac_exeext 2>/dev/null | $SED -n -e "$lt_aix_libpath_sed"` fi else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 fi rm -f conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext if test -z "$aix_libpath"; then aix_libpath="/usr/lib:/lib"; fi hardcode_libdir_flag_spec_CXX='${wl}-blibpath:$libdir:'"$aix_libpath" archive_expsym_cmds_CXX="\$CC"' -o $output_objdir/$soname $libobjs $deplibs '"\${wl}$no_entry_flag"' $compiler_flags `if test "x${allow_undefined_flag}" != "x"; then echo "${wl}${allow_undefined_flag}"; else :; fi` '"\${wl}$exp_sym_flag:\$export_symbols $shared_flag" else if test "$host_cpu" = ia64; then hardcode_libdir_flag_spec_CXX='${wl}-R $libdir:/usr/lib:/lib' allow_undefined_flag_CXX="-z nodefs" archive_expsym_cmds_CXX="\$CC $shared_flag"' -o $output_objdir/$soname $libobjs $deplibs '"\${wl}$no_entry_flag"' $compiler_flags ${wl}${allow_undefined_flag} '"\${wl}$exp_sym_flag:\$export_symbols" else # Determine the default libpath from the value encoded in an empty executable. cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ int main () { ; return 0; } _ACEOF rm -f conftest.$ac_objext conftest$ac_exeext if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5 (eval $ac_link) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { ac_try='test -z "$ac_cxx_werror_flag" || test ! -s conftest.err' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; } && { ac_try='test -s conftest$ac_exeext' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then lt_aix_libpath_sed=' /Import File Strings/,/^$/ { /^0/ { s/^0 *\(.*\)$/\1/ p } }' aix_libpath=`dump -H conftest$ac_exeext 2>/dev/null | $SED -n -e "$lt_aix_libpath_sed"` # Check for a 64-bit object if we didn't find anything. if test -z "$aix_libpath"; then aix_libpath=`dump -HX64 conftest$ac_exeext 2>/dev/null | $SED -n -e "$lt_aix_libpath_sed"` fi else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 fi rm -f conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext if test -z "$aix_libpath"; then aix_libpath="/usr/lib:/lib"; fi hardcode_libdir_flag_spec_CXX='${wl}-blibpath:$libdir:'"$aix_libpath" # Warning - without using the other run time loading flags, # -berok will link without error, but may produce a broken library. no_undefined_flag_CXX=' ${wl}-bernotok' allow_undefined_flag_CXX=' ${wl}-berok' # Exported symbols can be pulled into shared objects from archives whole_archive_flag_spec_CXX='$convenience' archive_cmds_need_lc_CXX=yes # This is similar to how AIX traditionally builds its shared libraries. archive_expsym_cmds_CXX="\$CC $shared_flag"' -o $output_objdir/$soname $libobjs $deplibs ${wl}-bnoentry $compiler_flags ${wl}-bE:$export_symbols${allow_undefined_flag}~$AR $AR_FLAGS $output_objdir/$libname$release.a $output_objdir/$soname' fi fi ;; beos*) if $LD --help 2>&1 | grep ': supported targets:.* elf' > /dev/null; then allow_undefined_flag_CXX=unsupported # Joseph Beckenbach says some releases of gcc # support --undefined. This deserves some investigation. FIXME archive_cmds_CXX='$CC -nostart $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib' else ld_shlibs_CXX=no fi ;; chorus*) case $cc_basename in *) # FIXME: insert proper C++ library support ld_shlibs_CXX=no ;; esac ;; cygwin* | mingw* | pw32*) # _LT_AC_TAGVAR(hardcode_libdir_flag_spec, CXX) is actually meaningless, # as there is no search path for DLLs. hardcode_libdir_flag_spec_CXX='-L$libdir' allow_undefined_flag_CXX=unsupported always_export_symbols_CXX=no enable_shared_with_static_runtimes_CXX=yes if $LD --help 2>&1 | grep 'auto-import' > /dev/null; then archive_cmds_CXX='$CC -shared -nostdlib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags -o $output_objdir/$soname ${wl}--enable-auto-image-base -Xlinker --out-implib -Xlinker $lib' # If the export-symbols file already is a .def file (1st line # is EXPORTS), use it as is; otherwise, prepend... archive_expsym_cmds_CXX='if test "x`$SED 1q $export_symbols`" = xEXPORTS; then cp $export_symbols $output_objdir/$soname.def; else echo EXPORTS > $output_objdir/$soname.def; cat $export_symbols >> $output_objdir/$soname.def; fi~ $CC -shared -nostdlib $output_objdir/$soname.def $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags -o $output_objdir/$soname ${wl}--enable-auto-image-base -Xlinker --out-implib -Xlinker $lib' else ld_shlibs_CXX=no fi ;; darwin* | rhapsody*) archive_cmds_need_lc_CXX=no hardcode_direct_CXX=no hardcode_automatic_CXX=yes hardcode_shlibpath_var_CXX=unsupported whole_archive_flag_spec_CXX='' link_all_deplibs_CXX=yes allow_undefined_flag_CXX="$_lt_dar_allow_undefined" if test "$GXX" = yes ; then output_verbose_link_cmd='echo' archive_cmds_CXX="\$CC -dynamiclib \$allow_undefined_flag -o \$lib \$libobjs \$deplibs \$compiler_flags -install_name \$rpath/\$soname \$verstring $_lt_dar_single_mod${_lt_dsymutil}" module_cmds_CXX="\$CC \$allow_undefined_flag -o \$lib -bundle \$libobjs \$deplibs \$compiler_flags${_lt_dsymutil}" archive_expsym_cmds_CXX="sed 's,^,_,' < \$export_symbols > \$output_objdir/\${libname}-symbols.expsym~\$CC -dynamiclib \$allow_undefined_flag -o \$lib \$libobjs \$deplibs \$compiler_flags -install_name \$rpath/\$soname \$verstring ${_lt_dar_single_mod}${_lt_dar_export_syms}${_lt_dsymutil}" module_expsym_cmds_CXX="sed -e 's,^,_,' < \$export_symbols > \$output_objdir/\${libname}-symbols.expsym~\$CC \$allow_undefined_flag -o \$lib -bundle \$libobjs \$deplibs \$compiler_flags${_lt_dar_export_syms}${_lt_dsymutil}" if test "$lt_cv_apple_cc_single_mod" != "yes"; then archive_cmds_CXX="\$CC -r -keep_private_externs -nostdlib -o \${lib}-master.o \$libobjs~\$CC -dynamiclib \$allow_undefined_flag -o \$lib \${lib}-master.o \$deplibs \$compiler_flags -install_name \$rpath/\$soname \$verstring${_lt_dsymutil}" archive_expsym_cmds_CXX="sed 's,^,_,' < \$export_symbols > \$output_objdir/\${libname}-symbols.expsym~\$CC -r -keep_private_externs -nostdlib -o \${lib}-master.o \$libobjs~\$CC -dynamiclib \$allow_undefined_flag -o \$lib \${lib}-master.o \$deplibs \$compiler_flags -install_name \$rpath/\$soname \$verstring${_lt_dar_export_syms}${_lt_dsymutil}" fi else case $cc_basename in xlc*) output_verbose_link_cmd='echo' archive_cmds_CXX='$CC -qmkshrobj ${wl}-single_module $allow_undefined_flag -o $lib $libobjs $deplibs $compiler_flags ${wl}-install_name ${wl}`echo $rpath/$soname` $xlcverstring' module_cmds_CXX='$CC $allow_undefined_flag -o $lib -bundle $libobjs $deplibs$compiler_flags' # Don't fix this by using the ld -exported_symbols_list flag, it doesn't exist in older darwin lds archive_expsym_cmds_CXX='sed -e "s,#.*,," -e "s,^[ ]*,," -e "s,^\(..*\),_&," < $export_symbols > $output_objdir/${libname}-symbols.expsym~$CC -qmkshrobj ${wl}-single_module $allow_undefined_flag -o $lib $libobjs $deplibs $compiler_flags ${wl}-install_name ${wl}$rpath/$soname $xlcverstring~nmedit -s $output_objdir/${libname}-symbols.expsym ${lib}' module_expsym_cmds_CXX='sed -e "s,#.*,," -e "s,^[ ]*,," -e "s,^\(..*\),_&," < $export_symbols > $output_objdir/${libname}-symbols.expsym~$CC $allow_undefined_flag -o $lib -bundle $libobjs $deplibs$compiler_flags~nmedit -s $output_objdir/${libname}-symbols.expsym ${lib}' ;; *) ld_shlibs_CXX=no ;; esac fi ;; dgux*) case $cc_basename in ec++*) # FIXME: insert proper C++ library support ld_shlibs_CXX=no ;; ghcx*) # Green Hills C++ Compiler # FIXME: insert proper C++ library support ld_shlibs_CXX=no ;; *) # FIXME: insert proper C++ library support ld_shlibs_CXX=no ;; esac ;; freebsd[12]*) # C++ shared libraries reported to be fairly broken before switch to ELF ld_shlibs_CXX=no ;; freebsd-elf*) archive_cmds_need_lc_CXX=no ;; freebsd* | dragonfly*) # FreeBSD 3 and later use GNU C++ and GNU ld with standard ELF # conventions ld_shlibs_CXX=yes ;; gnu*) ;; hpux9*) hardcode_libdir_flag_spec_CXX='${wl}+b ${wl}$libdir' hardcode_libdir_separator_CXX=: export_dynamic_flag_spec_CXX='${wl}-E' hardcode_direct_CXX=yes hardcode_minus_L_CXX=yes # Not in the search PATH, # but as the default # location of the library. case $cc_basename in CC*) # FIXME: insert proper C++ library support ld_shlibs_CXX=no ;; aCC*) archive_cmds_CXX='$rm $output_objdir/$soname~$CC -b ${wl}+b ${wl}$install_libdir -o $output_objdir/$soname $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags~test $output_objdir/$soname = $lib || mv $output_objdir/$soname $lib' # Commands to make compiler produce verbose output that lists # what "hidden" libraries, object files and flags are used when # linking a shared library. # # There doesn't appear to be a way to prevent this compiler from # explicitly linking system object files so we need to strip them # from the output so that they don't get included in the library # dependencies. output_verbose_link_cmd='templist=`($CC -b $CFLAGS -v conftest.$objext 2>&1) | grep "[-]L"`; list=""; for z in $templist; do case $z in conftest.$objext) list="$list $z";; *.$objext);; *) list="$list $z";;esac; done; echo $list' ;; *) if test "$GXX" = yes; then archive_cmds_CXX='$rm $output_objdir/$soname~$CC -shared -nostdlib -fPIC ${wl}+b ${wl}$install_libdir -o $output_objdir/$soname $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags~test $output_objdir/$soname = $lib || mv $output_objdir/$soname $lib' else # FIXME: insert proper C++ library support ld_shlibs_CXX=no fi ;; esac ;; hpux10*|hpux11*) if test $with_gnu_ld = no; then hardcode_libdir_flag_spec_CXX='${wl}+b ${wl}$libdir' hardcode_libdir_separator_CXX=: case $host_cpu in hppa*64*|ia64*) ;; *) export_dynamic_flag_spec_CXX='${wl}-E' ;; esac fi case $host_cpu in hppa*64*|ia64*) hardcode_direct_CXX=no hardcode_shlibpath_var_CXX=no ;; *) hardcode_direct_CXX=yes hardcode_minus_L_CXX=yes # Not in the search PATH, # but as the default # location of the library. ;; esac case $cc_basename in CC*) # FIXME: insert proper C++ library support ld_shlibs_CXX=no ;; aCC*) case $host_cpu in hppa*64*) archive_cmds_CXX='$CC -b ${wl}+h ${wl}$soname -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags' ;; ia64*) archive_cmds_CXX='$CC -b ${wl}+h ${wl}$soname ${wl}+nodefaultrpath -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags' ;; *) archive_cmds_CXX='$CC -b ${wl}+h ${wl}$soname ${wl}+b ${wl}$install_libdir -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags' ;; esac # Commands to make compiler produce verbose output that lists # what "hidden" libraries, object files and flags are used when # linking a shared library. # # There doesn't appear to be a way to prevent this compiler from # explicitly linking system object files so we need to strip them # from the output so that they don't get included in the library # dependencies. output_verbose_link_cmd='templist=`($CC -b $CFLAGS -v conftest.$objext 2>&1) | grep "\-L"`; list=""; for z in $templist; do case $z in conftest.$objext) list="$list $z";; *.$objext);; *) list="$list $z";;esac; done; echo $list' ;; *) if test "$GXX" = yes; then if test $with_gnu_ld = no; then case $host_cpu in hppa*64*) archive_cmds_CXX='$CC -shared -nostdlib -fPIC ${wl}+h ${wl}$soname -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags' ;; ia64*) archive_cmds_CXX='$CC -shared -nostdlib -fPIC ${wl}+h ${wl}$soname ${wl}+nodefaultrpath -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags' ;; *) archive_cmds_CXX='$CC -shared -nostdlib -fPIC ${wl}+h ${wl}$soname ${wl}+b ${wl}$install_libdir -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags' ;; esac fi else # FIXME: insert proper C++ library support ld_shlibs_CXX=no fi ;; esac ;; interix[3-9]*) hardcode_direct_CXX=no hardcode_shlibpath_var_CXX=no hardcode_libdir_flag_spec_CXX='${wl}-rpath,$libdir' export_dynamic_flag_spec_CXX='${wl}-E' # Hack: On Interix 3.x, we cannot compile PIC because of a broken gcc. # Instead, shared libraries are loaded at an image base (0x10000000 by # default) and relocated if they conflict, which is a slow very memory # consuming and fragmenting process. To avoid this, we pick a random, # 256 KiB-aligned image base between 0x50000000 and 0x6FFC0000 at link # time. Moving up from 0x10000000 also allows more sbrk(2) space. archive_cmds_CXX='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags ${wl}-h,$soname ${wl}--image-base,`expr ${RANDOM-$$} % 4096 / 2 \* 262144 + 1342177280` -o $lib' archive_expsym_cmds_CXX='sed "s,^,_," $export_symbols >$output_objdir/$soname.expsym~$CC -shared $pic_flag $libobjs $deplibs $compiler_flags ${wl}-h,$soname ${wl}--retain-symbols-file,$output_objdir/$soname.expsym ${wl}--image-base,`expr ${RANDOM-$$} % 4096 / 2 \* 262144 + 1342177280` -o $lib' ;; irix5* | irix6*) case $cc_basename in CC*) # SGI C++ archive_cmds_CXX='$CC -shared -all -multigot $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags -soname $soname `test -n "$verstring" && echo -set_version $verstring` -update_registry ${output_objdir}/so_locations -o $lib' # Archives containing C++ object files must be created using # "CC -ar", where "CC" is the IRIX C++ compiler. This is # necessary to make sure instantiated templates are included # in the archive. old_archive_cmds_CXX='$CC -ar -WR,-u -o $oldlib $oldobjs' ;; *) if test "$GXX" = yes; then if test "$with_gnu_ld" = no; then archive_cmds_CXX='$CC -shared -nostdlib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-soname ${wl}$soname `test -n "$verstring" && echo ${wl}-set_version ${wl}$verstring` ${wl}-update_registry ${wl}${output_objdir}/so_locations -o $lib' else archive_cmds_CXX='$CC -shared -nostdlib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-soname ${wl}$soname `test -n "$verstring" && echo ${wl}-set_version ${wl}$verstring` -o $lib' fi fi link_all_deplibs_CXX=yes ;; esac hardcode_libdir_flag_spec_CXX='${wl}-rpath ${wl}$libdir' hardcode_libdir_separator_CXX=: ;; linux* | k*bsd*-gnu) case $cc_basename in KCC*) # Kuck and Associates, Inc. (KAI) C++ Compiler # KCC will only create a shared library if the output file # ends with ".so" (or ".sl" for HP-UX), so rename the library # to its proper name (with version) after linking. archive_cmds_CXX='tempext=`echo $shared_ext | $SED -e '\''s/\([^()0-9A-Za-z{}]\)/\\\\\1/g'\''`; templib=`echo $lib | $SED -e "s/\${tempext}\..*/.so/"`; $CC $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags --soname $soname -o \$templib; mv \$templib $lib' archive_expsym_cmds_CXX='tempext=`echo $shared_ext | $SED -e '\''s/\([^()0-9A-Za-z{}]\)/\\\\\1/g'\''`; templib=`echo $lib | $SED -e "s/\${tempext}\..*/.so/"`; $CC $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags --soname $soname -o \$templib ${wl}-retain-symbols-file,$export_symbols; mv \$templib $lib' # Commands to make compiler produce verbose output that lists # what "hidden" libraries, object files and flags are used when # linking a shared library. # # There doesn't appear to be a way to prevent this compiler from # explicitly linking system object files so we need to strip them # from the output so that they don't get included in the library # dependencies. output_verbose_link_cmd='templist=`$CC $CFLAGS -v conftest.$objext -o libconftest$shared_ext 2>&1 | grep "ld"`; rm -f libconftest$shared_ext; list=""; for z in $templist; do case $z in conftest.$objext) list="$list $z";; *.$objext);; *) list="$list $z";;esac; done; echo $list' hardcode_libdir_flag_spec_CXX='${wl}--rpath,$libdir' export_dynamic_flag_spec_CXX='${wl}--export-dynamic' # Archives containing C++ object files must be created using # "CC -Bstatic", where "CC" is the KAI C++ compiler. old_archive_cmds_CXX='$CC -Bstatic -o $oldlib $oldobjs' ;; icpc*) # Intel C++ with_gnu_ld=yes # version 8.0 and above of icpc choke on multiply defined symbols # if we add $predep_objects and $postdep_objects, however 7.1 and # earlier do not add the objects themselves. case `$CC -V 2>&1` in *"Version 7."*) archive_cmds_CXX='$CC -shared $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-soname $wl$soname -o $lib' archive_expsym_cmds_CXX='$CC -shared $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-soname $wl$soname ${wl}-retain-symbols-file $wl$export_symbols -o $lib' ;; *) # Version 8.0 or newer tmp_idyn= case $host_cpu in ia64*) tmp_idyn=' -i_dynamic';; esac archive_cmds_CXX='$CC -shared'"$tmp_idyn"' $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib' archive_expsym_cmds_CXX='$CC -shared'"$tmp_idyn"' $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname ${wl}-retain-symbols-file $wl$export_symbols -o $lib' ;; esac archive_cmds_need_lc_CXX=no hardcode_libdir_flag_spec_CXX='${wl}-rpath,$libdir' export_dynamic_flag_spec_CXX='${wl}--export-dynamic' whole_archive_flag_spec_CXX='${wl}--whole-archive$convenience ${wl}--no-whole-archive' ;; pgCC* | pgcpp*) # Portland Group C++ compiler archive_cmds_CXX='$CC -shared $pic_flag $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-soname ${wl}$soname -o $lib' archive_expsym_cmds_CXX='$CC -shared $pic_flag $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-soname ${wl}$soname ${wl}-retain-symbols-file ${wl}$export_symbols -o $lib' hardcode_libdir_flag_spec_CXX='${wl}--rpath ${wl}$libdir' export_dynamic_flag_spec_CXX='${wl}--export-dynamic' whole_archive_flag_spec_CXX='${wl}--whole-archive`for conv in $convenience\"\"; do test -n \"$conv\" && new_convenience=\"$new_convenience,$conv\"; done; $echo \"$new_convenience\"` ${wl}--no-whole-archive' ;; cxx*) # Compaq C++ archive_cmds_CXX='$CC -shared $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-soname $wl$soname -o $lib' archive_expsym_cmds_CXX='$CC -shared $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-soname $wl$soname -o $lib ${wl}-retain-symbols-file $wl$export_symbols' runpath_var=LD_RUN_PATH hardcode_libdir_flag_spec_CXX='-rpath $libdir' hardcode_libdir_separator_CXX=: # Commands to make compiler produce verbose output that lists # what "hidden" libraries, object files and flags are used when # linking a shared library. # # There doesn't appear to be a way to prevent this compiler from # explicitly linking system object files so we need to strip them # from the output so that they don't get included in the library # dependencies. output_verbose_link_cmd='templist=`$CC -shared $CFLAGS -v conftest.$objext 2>&1 | grep "ld"`; templist=`echo $templist | $SED "s/\(^.*ld.*\)\( .*ld .*$\)/\1/"`; list=""; for z in $templist; do case $z in conftest.$objext) list="$list $z";; *.$objext);; *) list="$list $z";;esac; done; echo $list' ;; *) case `$CC -V 2>&1 | sed 5q` in *Sun\ C*) # Sun C++ 5.9 no_undefined_flag_CXX=' -zdefs' archive_cmds_CXX='$CC -G${allow_undefined_flag} -h$soname -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags' archive_expsym_cmds_CXX='$CC -G${allow_undefined_flag} -h$soname -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-retain-symbols-file ${wl}$export_symbols' hardcode_libdir_flag_spec_CXX='-R$libdir' whole_archive_flag_spec_CXX='${wl}--whole-archive`new_convenience=; for conv in $convenience\"\"; do test -z \"$conv\" || new_convenience=\"$new_convenience,$conv\"; done; $echo \"$new_convenience\"` ${wl}--no-whole-archive' # Not sure whether something based on # $CC $CFLAGS -v conftest.$objext -o libconftest$shared_ext 2>&1 # would be better. output_verbose_link_cmd='echo' # Archives containing C++ object files must be created using # "CC -xar", where "CC" is the Sun C++ compiler. This is # necessary to make sure instantiated templates are included # in the archive. old_archive_cmds_CXX='$CC -xar -o $oldlib $oldobjs' ;; esac ;; esac ;; lynxos*) # FIXME: insert proper C++ library support ld_shlibs_CXX=no ;; m88k*) # FIXME: insert proper C++ library support ld_shlibs_CXX=no ;; mvs*) case $cc_basename in cxx*) # FIXME: insert proper C++ library support ld_shlibs_CXX=no ;; *) # FIXME: insert proper C++ library support ld_shlibs_CXX=no ;; esac ;; netbsd*) if echo __ELF__ | $CC -E - | grep __ELF__ >/dev/null; then archive_cmds_CXX='$LD -Bshareable -o $lib $predep_objects $libobjs $deplibs $postdep_objects $linker_flags' wlarc= hardcode_libdir_flag_spec_CXX='-R$libdir' hardcode_direct_CXX=yes hardcode_shlibpath_var_CXX=no fi # Workaround some broken pre-1.5 toolchains output_verbose_link_cmd='$CC -shared $CFLAGS -v conftest.$objext 2>&1 | grep conftest.$objext | $SED -e "s:-lgcc -lc -lgcc::"' ;; openbsd2*) # C++ shared libraries are fairly broken ld_shlibs_CXX=no ;; openbsd*) if test -f /usr/libexec/ld.so; then hardcode_direct_CXX=yes hardcode_shlibpath_var_CXX=no archive_cmds_CXX='$CC -shared $pic_flag $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags -o $lib' hardcode_libdir_flag_spec_CXX='${wl}-rpath,$libdir' if test -z "`echo __ELF__ | $CC -E - | grep __ELF__`" || test "$host_os-$host_cpu" = "openbsd2.8-powerpc"; then archive_expsym_cmds_CXX='$CC -shared $pic_flag $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-retain-symbols-file,$export_symbols -o $lib' export_dynamic_flag_spec_CXX='${wl}-E' whole_archive_flag_spec_CXX="$wlarc"'--whole-archive$convenience '"$wlarc"'--no-whole-archive' fi output_verbose_link_cmd='echo' else ld_shlibs_CXX=no fi ;; osf3*) case $cc_basename in KCC*) # Kuck and Associates, Inc. (KAI) C++ Compiler # KCC will only create a shared library if the output file # ends with ".so" (or ".sl" for HP-UX), so rename the library # to its proper name (with version) after linking. archive_cmds_CXX='tempext=`echo $shared_ext | $SED -e '\''s/\([^()0-9A-Za-z{}]\)/\\\\\1/g'\''`; templib=`echo $lib | $SED -e "s/\${tempext}\..*/.so/"`; $CC $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags --soname $soname -o \$templib; mv \$templib $lib' hardcode_libdir_flag_spec_CXX='${wl}-rpath,$libdir' hardcode_libdir_separator_CXX=: # Archives containing C++ object files must be created using # "CC -Bstatic", where "CC" is the KAI C++ compiler. old_archive_cmds_CXX='$CC -Bstatic -o $oldlib $oldobjs' ;; RCC*) # Rational C++ 2.4.1 # FIXME: insert proper C++ library support ld_shlibs_CXX=no ;; cxx*) allow_undefined_flag_CXX=' ${wl}-expect_unresolved ${wl}\*' archive_cmds_CXX='$CC -shared${allow_undefined_flag} $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-soname $soname `test -n "$verstring" && echo ${wl}-set_version $verstring` -update_registry ${output_objdir}/so_locations -o $lib' hardcode_libdir_flag_spec_CXX='${wl}-rpath ${wl}$libdir' hardcode_libdir_separator_CXX=: # Commands to make compiler produce verbose output that lists # what "hidden" libraries, object files and flags are used when # linking a shared library. # # There doesn't appear to be a way to prevent this compiler from # explicitly linking system object files so we need to strip them # from the output so that they don't get included in the library # dependencies. output_verbose_link_cmd='templist=`$CC -shared $CFLAGS -v conftest.$objext 2>&1 | grep "ld" | grep -v "ld:"`; templist=`echo $templist | $SED "s/\(^.*ld.*\)\( .*ld.*$\)/\1/"`; list=""; for z in $templist; do case $z in conftest.$objext) list="$list $z";; *.$objext);; *) list="$list $z";;esac; done; echo $list' ;; *) if test "$GXX" = yes && test "$with_gnu_ld" = no; then allow_undefined_flag_CXX=' ${wl}-expect_unresolved ${wl}\*' archive_cmds_CXX='$CC -shared -nostdlib ${allow_undefined_flag} $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-soname ${wl}$soname `test -n "$verstring" && echo ${wl}-set_version ${wl}$verstring` ${wl}-update_registry ${wl}${output_objdir}/so_locations -o $lib' hardcode_libdir_flag_spec_CXX='${wl}-rpath ${wl}$libdir' hardcode_libdir_separator_CXX=: # Commands to make compiler produce verbose output that lists # what "hidden" libraries, object files and flags are used when # linking a shared library. output_verbose_link_cmd='$CC -shared $CFLAGS -v conftest.$objext 2>&1 | grep "\-L"' else # FIXME: insert proper C++ library support ld_shlibs_CXX=no fi ;; esac ;; osf4* | osf5*) case $cc_basename in KCC*) # Kuck and Associates, Inc. (KAI) C++ Compiler # KCC will only create a shared library if the output file # ends with ".so" (or ".sl" for HP-UX), so rename the library # to its proper name (with version) after linking. archive_cmds_CXX='tempext=`echo $shared_ext | $SED -e '\''s/\([^()0-9A-Za-z{}]\)/\\\\\1/g'\''`; templib=`echo $lib | $SED -e "s/\${tempext}\..*/.so/"`; $CC $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags --soname $soname -o \$templib; mv \$templib $lib' hardcode_libdir_flag_spec_CXX='${wl}-rpath,$libdir' hardcode_libdir_separator_CXX=: # Archives containing C++ object files must be created using # the KAI C++ compiler. old_archive_cmds_CXX='$CC -o $oldlib $oldobjs' ;; RCC*) # Rational C++ 2.4.1 # FIXME: insert proper C++ library support ld_shlibs_CXX=no ;; cxx*) allow_undefined_flag_CXX=' -expect_unresolved \*' archive_cmds_CXX='$CC -shared${allow_undefined_flag} $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags -msym -soname $soname `test -n "$verstring" && echo -set_version $verstring` -update_registry ${output_objdir}/so_locations -o $lib' archive_expsym_cmds_CXX='for i in `cat $export_symbols`; do printf "%s %s\\n" -exported_symbol "\$i" >> $lib.exp; done~ echo "-hidden">> $lib.exp~ $CC -shared$allow_undefined_flag $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags -msym -soname $soname -Wl,-input -Wl,$lib.exp `test -n "$verstring" && echo -set_version $verstring` -update_registry ${output_objdir}/so_locations -o $lib~ $rm $lib.exp' hardcode_libdir_flag_spec_CXX='-rpath $libdir' hardcode_libdir_separator_CXX=: # Commands to make compiler produce verbose output that lists # what "hidden" libraries, object files and flags are used when # linking a shared library. # # There doesn't appear to be a way to prevent this compiler from # explicitly linking system object files so we need to strip them # from the output so that they don't get included in the library # dependencies. output_verbose_link_cmd='templist=`$CC -shared $CFLAGS -v conftest.$objext 2>&1 | grep "ld" | grep -v "ld:"`; templist=`echo $templist | $SED "s/\(^.*ld.*\)\( .*ld.*$\)/\1/"`; list=""; for z in $templist; do case $z in conftest.$objext) list="$list $z";; *.$objext);; *) list="$list $z";;esac; done; echo $list' ;; *) if test "$GXX" = yes && test "$with_gnu_ld" = no; then allow_undefined_flag_CXX=' ${wl}-expect_unresolved ${wl}\*' archive_cmds_CXX='$CC -shared -nostdlib ${allow_undefined_flag} $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-msym ${wl}-soname ${wl}$soname `test -n "$verstring" && echo ${wl}-set_version ${wl}$verstring` ${wl}-update_registry ${wl}${output_objdir}/so_locations -o $lib' hardcode_libdir_flag_spec_CXX='${wl}-rpath ${wl}$libdir' hardcode_libdir_separator_CXX=: # Commands to make compiler produce verbose output that lists # what "hidden" libraries, object files and flags are used when # linking a shared library. output_verbose_link_cmd='$CC -shared $CFLAGS -v conftest.$objext 2>&1 | grep "\-L"' else # FIXME: insert proper C++ library support ld_shlibs_CXX=no fi ;; esac ;; psos*) # FIXME: insert proper C++ library support ld_shlibs_CXX=no ;; sunos4*) case $cc_basename in CC*) # Sun C++ 4.x # FIXME: insert proper C++ library support ld_shlibs_CXX=no ;; lcc*) # Lucid # FIXME: insert proper C++ library support ld_shlibs_CXX=no ;; *) # FIXME: insert proper C++ library support ld_shlibs_CXX=no ;; esac ;; solaris*) case $cc_basename in CC*) # Sun C++ 4.2, 5.x and Centerline C++ archive_cmds_need_lc_CXX=yes no_undefined_flag_CXX=' -zdefs' archive_cmds_CXX='$CC -G${allow_undefined_flag} -h$soname -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags' archive_expsym_cmds_CXX='$echo "{ global:" > $lib.exp~cat $export_symbols | $SED -e "s/\(.*\)/\1;/" >> $lib.exp~$echo "local: *; };" >> $lib.exp~ $CC -G${allow_undefined_flag} ${wl}-M ${wl}$lib.exp -h$soname -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags~$rm $lib.exp' hardcode_libdir_flag_spec_CXX='-R$libdir' hardcode_shlibpath_var_CXX=no case $host_os in solaris2.[0-5] | solaris2.[0-5].*) ;; *) # The compiler driver will combine and reorder linker options, # but understands `-z linker_flag'. # Supported since Solaris 2.6 (maybe 2.5.1?) whole_archive_flag_spec_CXX='-z allextract$convenience -z defaultextract' ;; esac link_all_deplibs_CXX=yes output_verbose_link_cmd='echo' # Archives containing C++ object files must be created using # "CC -xar", where "CC" is the Sun C++ compiler. This is # necessary to make sure instantiated templates are included # in the archive. old_archive_cmds_CXX='$CC -xar -o $oldlib $oldobjs' ;; gcx*) # Green Hills C++ Compiler archive_cmds_CXX='$CC -shared $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-h $wl$soname -o $lib' # The C++ compiler must be used to create the archive. old_archive_cmds_CXX='$CC $LDFLAGS -archive -o $oldlib $oldobjs' ;; *) # GNU C++ compiler with Solaris linker if test "$GXX" = yes && test "$with_gnu_ld" = no; then no_undefined_flag_CXX=' ${wl}-z ${wl}defs' if $CC --version | grep -v '^2\.7' > /dev/null; then archive_cmds_CXX='$CC -shared -nostdlib $LDFLAGS $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-h $wl$soname -o $lib' archive_expsym_cmds_CXX='$echo "{ global:" > $lib.exp~cat $export_symbols | $SED -e "s/\(.*\)/\1;/" >> $lib.exp~$echo "local: *; };" >> $lib.exp~ $CC -shared -nostdlib ${wl}-M $wl$lib.exp -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags~$rm $lib.exp' # Commands to make compiler produce verbose output that lists # what "hidden" libraries, object files and flags are used when # linking a shared library. output_verbose_link_cmd="$CC -shared $CFLAGS -v conftest.$objext 2>&1 | grep \"\-L\"" else # g++ 2.7 appears to require `-G' NOT `-shared' on this # platform. archive_cmds_CXX='$CC -G -nostdlib $LDFLAGS $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-h $wl$soname -o $lib' archive_expsym_cmds_CXX='$echo "{ global:" > $lib.exp~cat $export_symbols | $SED -e "s/\(.*\)/\1;/" >> $lib.exp~$echo "local: *; };" >> $lib.exp~ $CC -G -nostdlib ${wl}-M $wl$lib.exp -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags~$rm $lib.exp' # Commands to make compiler produce verbose output that lists # what "hidden" libraries, object files and flags are used when # linking a shared library. output_verbose_link_cmd="$CC -G $CFLAGS -v conftest.$objext 2>&1 | grep \"\-L\"" fi hardcode_libdir_flag_spec_CXX='${wl}-R $wl$libdir' case $host_os in solaris2.[0-5] | solaris2.[0-5].*) ;; *) whole_archive_flag_spec_CXX='${wl}-z ${wl}allextract$convenience ${wl}-z ${wl}defaultextract' ;; esac fi ;; esac ;; sysv4*uw2* | sysv5OpenUNIX* | sysv5UnixWare7.[01].[10]* | unixware7* | sco3.2v5.0.[024]*) no_undefined_flag_CXX='${wl}-z,text' archive_cmds_need_lc_CXX=no hardcode_shlibpath_var_CXX=no runpath_var='LD_RUN_PATH' case $cc_basename in CC*) archive_cmds_CXX='$CC -G ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags' archive_expsym_cmds_CXX='$CC -G ${wl}-Bexport:$export_symbols ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags' ;; *) archive_cmds_CXX='$CC -shared ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags' archive_expsym_cmds_CXX='$CC -shared ${wl}-Bexport:$export_symbols ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags' ;; esac ;; sysv5* | sco3.2v5* | sco5v6*) # Note: We can NOT use -z defs as we might desire, because we do not # link with -lc, and that would cause any symbols used from libc to # always be unresolved, which means just about no library would # ever link correctly. If we're not using GNU ld we use -z text # though, which does catch some bad symbols but isn't as heavy-handed # as -z defs. # For security reasons, it is highly recommended that you always # use absolute paths for naming shared libraries, and exclude the # DT_RUNPATH tag from executables and libraries. But doing so # requires that you compile everything twice, which is a pain. # So that behaviour is only enabled if SCOABSPATH is set to a # non-empty value in the environment. Most likely only useful for # creating official distributions of packages. # This is a hack until libtool officially supports absolute path # names for shared libraries. no_undefined_flag_CXX='${wl}-z,text' allow_undefined_flag_CXX='${wl}-z,nodefs' archive_cmds_need_lc_CXX=no hardcode_shlibpath_var_CXX=no hardcode_libdir_flag_spec_CXX='`test -z "$SCOABSPATH" && echo ${wl}-R,$libdir`' hardcode_libdir_separator_CXX=':' link_all_deplibs_CXX=yes export_dynamic_flag_spec_CXX='${wl}-Bexport' runpath_var='LD_RUN_PATH' case $cc_basename in CC*) archive_cmds_CXX='$CC -G ${wl}-h,\${SCOABSPATH:+${install_libdir}/}$soname -o $lib $libobjs $deplibs $compiler_flags' archive_expsym_cmds_CXX='$CC -G ${wl}-Bexport:$export_symbols ${wl}-h,\${SCOABSPATH:+${install_libdir}/}$soname -o $lib $libobjs $deplibs $compiler_flags' ;; *) archive_cmds_CXX='$CC -shared ${wl}-h,\${SCOABSPATH:+${install_libdir}/}$soname -o $lib $libobjs $deplibs $compiler_flags' archive_expsym_cmds_CXX='$CC -shared ${wl}-Bexport:$export_symbols ${wl}-h,\${SCOABSPATH:+${install_libdir}/}$soname -o $lib $libobjs $deplibs $compiler_flags' ;; esac ;; tandem*) case $cc_basename in NCC*) # NonStop-UX NCC 3.20 # FIXME: insert proper C++ library support ld_shlibs_CXX=no ;; *) # FIXME: insert proper C++ library support ld_shlibs_CXX=no ;; esac ;; vxworks*) # FIXME: insert proper C++ library support ld_shlibs_CXX=no ;; *) # FIXME: insert proper C++ library support ld_shlibs_CXX=no ;; esac echo "$as_me:$LINENO: result: $ld_shlibs_CXX" >&5 echo "${ECHO_T}$ld_shlibs_CXX" >&6 test "$ld_shlibs_CXX" = no && can_build_shared=no GCC_CXX="$GXX" LD_CXX="$LD" cat > conftest.$ac_ext <&5 (eval $ac_compile) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; then # Parse the compiler output and extract the necessary # objects, libraries and library flags. # Sentinel used to keep track of whether or not we are before # the conftest object file. pre_test_object_deps_done=no # The `*' in the case matches for architectures that use `case' in # $output_verbose_cmd can trigger glob expansion during the loop # eval without this substitution. output_verbose_link_cmd=`$echo "X$output_verbose_link_cmd" | $Xsed -e "$no_glob_subst"` for p in `eval $output_verbose_link_cmd`; do case $p in -L* | -R* | -l*) # Some compilers place space between "-{L,R}" and the path. # Remove the space. if test $p = "-L" \ || test $p = "-R"; then prev=$p continue else prev= fi if test "$pre_test_object_deps_done" = no; then case $p in -L* | -R*) # Internal compiler library paths should come after those # provided the user. The postdeps already come after the # user supplied libs so there is no need to process them. if test -z "$compiler_lib_search_path_CXX"; then compiler_lib_search_path_CXX="${prev}${p}" else compiler_lib_search_path_CXX="${compiler_lib_search_path_CXX} ${prev}${p}" fi ;; # The "-l" case would never come before the object being # linked, so don't bother handling this case. esac else if test -z "$postdeps_CXX"; then postdeps_CXX="${prev}${p}" else postdeps_CXX="${postdeps_CXX} ${prev}${p}" fi fi ;; *.$objext) # This assumes that the test object file only shows up # once in the compiler output. if test "$p" = "conftest.$objext"; then pre_test_object_deps_done=yes continue fi if test "$pre_test_object_deps_done" = no; then if test -z "$predep_objects_CXX"; then predep_objects_CXX="$p" else predep_objects_CXX="$predep_objects_CXX $p" fi else if test -z "$postdep_objects_CXX"; then postdep_objects_CXX="$p" else postdep_objects_CXX="$postdep_objects_CXX $p" fi fi ;; *) ;; # Ignore the rest. esac done # Clean up. rm -f a.out a.exe else echo "libtool.m4: error: problem compiling CXX test program" fi $rm -f confest.$objext compiler_lib_search_dirs_CXX= if test -n "$compiler_lib_search_path_CXX"; then compiler_lib_search_dirs_CXX=`echo " ${compiler_lib_search_path_CXX}" | ${SED} -e 's! -L! !g' -e 's!^ !!'` fi # PORTME: override above test on systems where it is broken case $host_os in interix[3-9]*) # Interix 3.5 installs completely hosed .la files for C++, so rather than # hack all around it, let's just trust "g++" to DTRT. predep_objects_CXX= postdep_objects_CXX= postdeps_CXX= ;; linux*) case `$CC -V 2>&1 | sed 5q` in *Sun\ C*) # Sun C++ 5.9 # # The more standards-conforming stlport4 library is # incompatible with the Cstd library. Avoid specifying # it if it's in CXXFLAGS. Ignore libCrun as # -library=stlport4 depends on it. case " $CXX $CXXFLAGS " in *" -library=stlport4 "*) solaris_use_stlport4=yes ;; esac if test "$solaris_use_stlport4" != yes; then postdeps_CXX='-library=Cstd -library=Crun' fi ;; esac ;; solaris*) case $cc_basename in CC*) # The more standards-conforming stlport4 library is # incompatible with the Cstd library. Avoid specifying # it if it's in CXXFLAGS. Ignore libCrun as # -library=stlport4 depends on it. case " $CXX $CXXFLAGS " in *" -library=stlport4 "*) solaris_use_stlport4=yes ;; esac # Adding this requires a known-good setup of shared libraries for # Sun compiler versions before 5.6, else PIC objects from an old # archive will be linked into the output, leading to subtle bugs. if test "$solaris_use_stlport4" != yes; then postdeps_CXX='-library=Cstd -library=Crun' fi ;; esac ;; esac case " $postdeps_CXX " in *" -lc "*) archive_cmds_need_lc_CXX=no ;; esac lt_prog_compiler_wl_CXX= lt_prog_compiler_pic_CXX= lt_prog_compiler_static_CXX= echo "$as_me:$LINENO: checking for $compiler option to produce PIC" >&5 echo $ECHO_N "checking for $compiler option to produce PIC... $ECHO_C" >&6 # C++ specific cases for pic, static, wl, etc. if test "$GXX" = yes; then lt_prog_compiler_wl_CXX='-Wl,' lt_prog_compiler_static_CXX='-static' case $host_os in aix*) # All AIX code is PIC. if test "$host_cpu" = ia64; then # AIX 5 now supports IA64 processor lt_prog_compiler_static_CXX='-Bstatic' fi ;; amigaos*) # FIXME: we need at least 68020 code to build shared libraries, but # adding the `-m68020' flag to GCC prevents building anything better, # like `-m68040'. lt_prog_compiler_pic_CXX='-m68020 -resident32 -malways-restore-a4' ;; beos* | irix5* | irix6* | nonstopux* | osf3* | osf4* | osf5*) # PIC is the default for these OSes. ;; mingw* | cygwin* | os2* | pw32*) # This hack is so that the source file can tell whether it is being # built for inclusion in a dll (and should export symbols for example). # Although the cygwin gcc ignores -fPIC, still need this for old-style # (--disable-auto-import) libraries lt_prog_compiler_pic_CXX='-DDLL_EXPORT' ;; darwin* | rhapsody*) # PIC is the default on this platform # Common symbols not allowed in MH_DYLIB files lt_prog_compiler_pic_CXX='-fno-common' ;; *djgpp*) # DJGPP does not support shared libraries at all lt_prog_compiler_pic_CXX= ;; interix[3-9]*) # Interix 3.x gcc -fpic/-fPIC options generate broken code. # Instead, we relocate shared libraries at runtime. ;; sysv4*MP*) if test -d /usr/nec; then lt_prog_compiler_pic_CXX=-Kconform_pic fi ;; hpux*) # PIC is the default for IA64 HP-UX and 64-bit HP-UX, but # not for PA HP-UX. case $host_cpu in hppa*64*|ia64*) ;; *) lt_prog_compiler_pic_CXX='-fPIC' ;; esac ;; *) lt_prog_compiler_pic_CXX='-fPIC' ;; esac else case $host_os in aix[4-9]*) # All AIX code is PIC. if test "$host_cpu" = ia64; then # AIX 5 now supports IA64 processor lt_prog_compiler_static_CXX='-Bstatic' else lt_prog_compiler_static_CXX='-bnso -bI:/lib/syscalls.exp' fi ;; chorus*) case $cc_basename in cxch68*) # Green Hills C++ Compiler # _LT_AC_TAGVAR(lt_prog_compiler_static, CXX)="--no_auto_instantiation -u __main -u __premain -u _abort -r $COOL_DIR/lib/libOrb.a $MVME_DIR/lib/CC/libC.a $MVME_DIR/lib/classix/libcx.s.a" ;; esac ;; darwin*) # PIC is the default on this platform # Common symbols not allowed in MH_DYLIB files case $cc_basename in xlc*) lt_prog_compiler_pic_CXX='-qnocommon' lt_prog_compiler_wl_CXX='-Wl,' ;; esac ;; dgux*) case $cc_basename in ec++*) lt_prog_compiler_pic_CXX='-KPIC' ;; ghcx*) # Green Hills C++ Compiler lt_prog_compiler_pic_CXX='-pic' ;; *) ;; esac ;; freebsd* | dragonfly*) # FreeBSD uses GNU C++ ;; hpux9* | hpux10* | hpux11*) case $cc_basename in CC*) lt_prog_compiler_wl_CXX='-Wl,' lt_prog_compiler_static_CXX='${wl}-a ${wl}archive' if test "$host_cpu" != ia64; then lt_prog_compiler_pic_CXX='+Z' fi ;; aCC*) lt_prog_compiler_wl_CXX='-Wl,' lt_prog_compiler_static_CXX='${wl}-a ${wl}archive' case $host_cpu in hppa*64*|ia64*) # +Z the default ;; *) lt_prog_compiler_pic_CXX='+Z' ;; esac ;; *) ;; esac ;; interix*) # This is c89, which is MS Visual C++ (no shared libs) # Anyone wants to do a port? ;; irix5* | irix6* | nonstopux*) case $cc_basename in CC*) lt_prog_compiler_wl_CXX='-Wl,' lt_prog_compiler_static_CXX='-non_shared' # CC pic flag -KPIC is the default. ;; *) ;; esac ;; linux* | k*bsd*-gnu) case $cc_basename in KCC*) # KAI C++ Compiler lt_prog_compiler_wl_CXX='--backend -Wl,' lt_prog_compiler_pic_CXX='-fPIC' ;; icpc* | ecpc*) # Intel C++ lt_prog_compiler_wl_CXX='-Wl,' lt_prog_compiler_pic_CXX='-KPIC' lt_prog_compiler_static_CXX='-static' ;; pgCC* | pgcpp*) # Portland Group C++ compiler. lt_prog_compiler_wl_CXX='-Wl,' lt_prog_compiler_pic_CXX='-fpic' lt_prog_compiler_static_CXX='-Bstatic' ;; cxx*) # Compaq C++ # Make sure the PIC flag is empty. It appears that all Alpha # Linux and Compaq Tru64 Unix objects are PIC. lt_prog_compiler_pic_CXX= lt_prog_compiler_static_CXX='-non_shared' ;; *) case `$CC -V 2>&1 | sed 5q` in *Sun\ C*) # Sun C++ 5.9 lt_prog_compiler_pic_CXX='-KPIC' lt_prog_compiler_static_CXX='-Bstatic' lt_prog_compiler_wl_CXX='-Qoption ld ' ;; esac ;; esac ;; lynxos*) ;; m88k*) ;; mvs*) case $cc_basename in cxx*) lt_prog_compiler_pic_CXX='-W c,exportall' ;; *) ;; esac ;; netbsd*) ;; osf3* | osf4* | osf5*) case $cc_basename in KCC*) lt_prog_compiler_wl_CXX='--backend -Wl,' ;; RCC*) # Rational C++ 2.4.1 lt_prog_compiler_pic_CXX='-pic' ;; cxx*) # Digital/Compaq C++ lt_prog_compiler_wl_CXX='-Wl,' # Make sure the PIC flag is empty. It appears that all Alpha # Linux and Compaq Tru64 Unix objects are PIC. lt_prog_compiler_pic_CXX= lt_prog_compiler_static_CXX='-non_shared' ;; *) ;; esac ;; psos*) ;; solaris*) case $cc_basename in CC*) # Sun C++ 4.2, 5.x and Centerline C++ lt_prog_compiler_pic_CXX='-KPIC' lt_prog_compiler_static_CXX='-Bstatic' lt_prog_compiler_wl_CXX='-Qoption ld ' ;; gcx*) # Green Hills C++ Compiler lt_prog_compiler_pic_CXX='-PIC' ;; *) ;; esac ;; sunos4*) case $cc_basename in CC*) # Sun C++ 4.x lt_prog_compiler_pic_CXX='-pic' lt_prog_compiler_static_CXX='-Bstatic' ;; lcc*) # Lucid lt_prog_compiler_pic_CXX='-pic' ;; *) ;; esac ;; tandem*) case $cc_basename in NCC*) # NonStop-UX NCC 3.20 lt_prog_compiler_pic_CXX='-KPIC' ;; *) ;; esac ;; sysv5* | unixware* | sco3.2v5* | sco5v6* | OpenUNIX*) case $cc_basename in CC*) lt_prog_compiler_wl_CXX='-Wl,' lt_prog_compiler_pic_CXX='-KPIC' lt_prog_compiler_static_CXX='-Bstatic' ;; esac ;; vxworks*) ;; *) lt_prog_compiler_can_build_shared_CXX=no ;; esac fi echo "$as_me:$LINENO: result: $lt_prog_compiler_pic_CXX" >&5 echo "${ECHO_T}$lt_prog_compiler_pic_CXX" >&6 # # Check to make sure the PIC flag actually works. # if test -n "$lt_prog_compiler_pic_CXX"; then echo "$as_me:$LINENO: checking if $compiler PIC flag $lt_prog_compiler_pic_CXX works" >&5 echo $ECHO_N "checking if $compiler PIC flag $lt_prog_compiler_pic_CXX works... $ECHO_C" >&6 if test "${lt_cv_prog_compiler_pic_works_CXX+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else lt_cv_prog_compiler_pic_works_CXX=no ac_outfile=conftest.$ac_objext echo "$lt_simple_compile_test_code" > conftest.$ac_ext lt_compiler_flag="$lt_prog_compiler_pic_CXX -DPIC" # Insert the option either (1) after the last *FLAGS variable, or # (2) before a word containing "conftest.", or (3) at the end. # Note that $ac_compile itself does not contain backslashes and begins # with a dollar sign (not a hyphen), so the echo should work correctly. # The option is referenced via a variable to avoid confusing sed. lt_compile=`echo "$ac_compile" | $SED \ -e 's:.*FLAGS}\{0,1\} :&$lt_compiler_flag :; t' \ -e 's: [^ ]*conftest\.: $lt_compiler_flag&:; t' \ -e 's:$: $lt_compiler_flag:'` (eval echo "\"\$as_me:12191: $lt_compile\"" >&5) (eval "$lt_compile" 2>conftest.err) ac_status=$? cat conftest.err >&5 echo "$as_me:12195: \$? = $ac_status" >&5 if (exit $ac_status) && test -s "$ac_outfile"; then # The compiler can only warn and ignore the option if not recognized # So say no if there are warnings other than the usual output. $echo "X$_lt_compiler_boilerplate" | $Xsed -e '/^$/d' >conftest.exp $SED '/^$/d; /^ *+/d' conftest.err >conftest.er2 if test ! -s conftest.er2 || diff conftest.exp conftest.er2 >/dev/null; then lt_cv_prog_compiler_pic_works_CXX=yes fi fi $rm conftest* fi echo "$as_me:$LINENO: result: $lt_cv_prog_compiler_pic_works_CXX" >&5 echo "${ECHO_T}$lt_cv_prog_compiler_pic_works_CXX" >&6 if test x"$lt_cv_prog_compiler_pic_works_CXX" = xyes; then case $lt_prog_compiler_pic_CXX in "" | " "*) ;; *) lt_prog_compiler_pic_CXX=" $lt_prog_compiler_pic_CXX" ;; esac else lt_prog_compiler_pic_CXX= lt_prog_compiler_can_build_shared_CXX=no fi fi case $host_os in # For platforms which do not support PIC, -DPIC is meaningless: *djgpp*) lt_prog_compiler_pic_CXX= ;; *) lt_prog_compiler_pic_CXX="$lt_prog_compiler_pic_CXX -DPIC" ;; esac # # Check to make sure the static flag actually works. # wl=$lt_prog_compiler_wl_CXX eval lt_tmp_static_flag=\"$lt_prog_compiler_static_CXX\" echo "$as_me:$LINENO: checking if $compiler static flag $lt_tmp_static_flag works" >&5 echo $ECHO_N "checking if $compiler static flag $lt_tmp_static_flag works... $ECHO_C" >&6 if test "${lt_cv_prog_compiler_static_works_CXX+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else lt_cv_prog_compiler_static_works_CXX=no save_LDFLAGS="$LDFLAGS" LDFLAGS="$LDFLAGS $lt_tmp_static_flag" echo "$lt_simple_link_test_code" > conftest.$ac_ext if (eval $ac_link 2>conftest.err) && test -s conftest$ac_exeext; then # The linker can only warn and ignore the option if not recognized # So say no if there are warnings if test -s conftest.err; then # Append any errors to the config.log. cat conftest.err 1>&5 $echo "X$_lt_linker_boilerplate" | $Xsed -e '/^$/d' > conftest.exp $SED '/^$/d; /^ *+/d' conftest.err >conftest.er2 if diff conftest.exp conftest.er2 >/dev/null; then lt_cv_prog_compiler_static_works_CXX=yes fi else lt_cv_prog_compiler_static_works_CXX=yes fi fi $rm -r conftest* LDFLAGS="$save_LDFLAGS" fi echo "$as_me:$LINENO: result: $lt_cv_prog_compiler_static_works_CXX" >&5 echo "${ECHO_T}$lt_cv_prog_compiler_static_works_CXX" >&6 if test x"$lt_cv_prog_compiler_static_works_CXX" = xyes; then : else lt_prog_compiler_static_CXX= fi echo "$as_me:$LINENO: checking if $compiler supports -c -o file.$ac_objext" >&5 echo $ECHO_N "checking if $compiler supports -c -o file.$ac_objext... $ECHO_C" >&6 if test "${lt_cv_prog_compiler_c_o_CXX+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else lt_cv_prog_compiler_c_o_CXX=no $rm -r conftest 2>/dev/null mkdir conftest cd conftest mkdir out echo "$lt_simple_compile_test_code" > conftest.$ac_ext lt_compiler_flag="-o out/conftest2.$ac_objext" # Insert the option either (1) after the last *FLAGS variable, or # (2) before a word containing "conftest.", or (3) at the end. # Note that $ac_compile itself does not contain backslashes and begins # with a dollar sign (not a hyphen), so the echo should work correctly. lt_compile=`echo "$ac_compile" | $SED \ -e 's:.*FLAGS}\{0,1\} :&$lt_compiler_flag :; t' \ -e 's: [^ ]*conftest\.: $lt_compiler_flag&:; t' \ -e 's:$: $lt_compiler_flag:'` (eval echo "\"\$as_me:12295: $lt_compile\"" >&5) (eval "$lt_compile" 2>out/conftest.err) ac_status=$? cat out/conftest.err >&5 echo "$as_me:12299: \$? = $ac_status" >&5 if (exit $ac_status) && test -s out/conftest2.$ac_objext then # The compiler can only warn and ignore the option if not recognized # So say no if there are warnings $echo "X$_lt_compiler_boilerplate" | $Xsed -e '/^$/d' > out/conftest.exp $SED '/^$/d; /^ *+/d' out/conftest.err >out/conftest.er2 if test ! -s out/conftest.er2 || diff out/conftest.exp out/conftest.er2 >/dev/null; then lt_cv_prog_compiler_c_o_CXX=yes fi fi chmod u+w . 2>&5 $rm conftest* # SGI C++ compiler will create directory out/ii_files/ for # template instantiation test -d out/ii_files && $rm out/ii_files/* && rmdir out/ii_files $rm out/* && rmdir out cd .. rmdir conftest $rm conftest* fi echo "$as_me:$LINENO: result: $lt_cv_prog_compiler_c_o_CXX" >&5 echo "${ECHO_T}$lt_cv_prog_compiler_c_o_CXX" >&6 hard_links="nottested" if test "$lt_cv_prog_compiler_c_o_CXX" = no && test "$need_locks" != no; then # do not overwrite the value of need_locks provided by the user echo "$as_me:$LINENO: checking if we can lock with hard links" >&5 echo $ECHO_N "checking if we can lock with hard links... $ECHO_C" >&6 hard_links=yes $rm conftest* ln conftest.a conftest.b 2>/dev/null && hard_links=no touch conftest.a ln conftest.a conftest.b 2>&5 || hard_links=no ln conftest.a conftest.b 2>/dev/null && hard_links=no echo "$as_me:$LINENO: result: $hard_links" >&5 echo "${ECHO_T}$hard_links" >&6 if test "$hard_links" = no; then { echo "$as_me:$LINENO: WARNING: \`$CC' does not support \`-c -o', so \`make -j' may be unsafe" >&5 echo "$as_me: WARNING: \`$CC' does not support \`-c -o', so \`make -j' may be unsafe" >&2;} need_locks=warn fi else need_locks=no fi echo "$as_me:$LINENO: checking whether the $compiler linker ($LD) supports shared libraries" >&5 echo $ECHO_N "checking whether the $compiler linker ($LD) supports shared libraries... $ECHO_C" >&6 export_symbols_cmds_CXX='$NM $libobjs $convenience | $global_symbol_pipe | $SED '\''s/.* //'\'' | sort | uniq > $export_symbols' case $host_os in aix[4-9]*) # If we're using GNU nm, then we don't want the "-C" option. # -C means demangle to AIX nm, but means don't demangle with GNU nm if $NM -V 2>&1 | grep 'GNU' > /dev/null; then export_symbols_cmds_CXX='$NM -Bpg $libobjs $convenience | awk '\''{ if (((\$2 == "T") || (\$2 == "D") || (\$2 == "B")) && (substr(\$3,1,1) != ".")) { print \$3 } }'\'' | sort -u > $export_symbols' else export_symbols_cmds_CXX='$NM -BCpg $libobjs $convenience | awk '\''{ if (((\$2 == "T") || (\$2 == "D") || (\$2 == "B")) && (substr(\$3,1,1) != ".")) { print \$3 } }'\'' | sort -u > $export_symbols' fi ;; pw32*) export_symbols_cmds_CXX="$ltdll_cmds" ;; cygwin* | mingw*) export_symbols_cmds_CXX='$NM $libobjs $convenience | $global_symbol_pipe | $SED -e '\''/^[BCDGRS][ ]/s/.*[ ]\([^ ]*\)/\1 DATA/;/^.*[ ]__nm__/s/^.*[ ]__nm__\([^ ]*\)[ ][^ ]*/\1 DATA/;/^I[ ]/d;/^[AITW][ ]/s/.*[ ]//'\'' | sort | uniq > $export_symbols' ;; *) export_symbols_cmds_CXX='$NM $libobjs $convenience | $global_symbol_pipe | $SED '\''s/.* //'\'' | sort | uniq > $export_symbols' ;; esac exclude_expsyms_CXX='_GLOBAL_OFFSET_TABLE_|_GLOBAL__F[ID]_.*' echo "$as_me:$LINENO: result: $ld_shlibs_CXX" >&5 echo "${ECHO_T}$ld_shlibs_CXX" >&6 test "$ld_shlibs_CXX" = no && can_build_shared=no # # Do we need to explicitly link libc? # case "x$archive_cmds_need_lc_CXX" in x|xyes) # Assume -lc should be added archive_cmds_need_lc_CXX=yes if test "$enable_shared" = yes && test "$GCC" = yes; then case $archive_cmds_CXX in *'~'*) # FIXME: we may have to deal with multi-command sequences. ;; '$CC '*) # Test whether the compiler implicitly links with -lc since on some # systems, -lgcc has to come before -lc. If gcc already passes -lc # to ld, don't add -lc before -lgcc. echo "$as_me:$LINENO: checking whether -lc should be explicitly linked in" >&5 echo $ECHO_N "checking whether -lc should be explicitly linked in... $ECHO_C" >&6 $rm conftest* echo "$lt_simple_compile_test_code" > conftest.$ac_ext if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 (eval $ac_compile) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } 2>conftest.err; then soname=conftest lib=conftest libobjs=conftest.$ac_objext deplibs= wl=$lt_prog_compiler_wl_CXX pic_flag=$lt_prog_compiler_pic_CXX compiler_flags=-v linker_flags=-v verstring= output_objdir=. libname=conftest lt_save_allow_undefined_flag=$allow_undefined_flag_CXX allow_undefined_flag_CXX= if { (eval echo "$as_me:$LINENO: \"$archive_cmds_CXX 2\>\&1 \| grep \" -lc \" \>/dev/null 2\>\&1\"") >&5 (eval $archive_cmds_CXX 2\>\&1 \| grep \" -lc \" \>/dev/null 2\>\&1) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } then archive_cmds_need_lc_CXX=no else archive_cmds_need_lc_CXX=yes fi allow_undefined_flag_CXX=$lt_save_allow_undefined_flag else cat conftest.err 1>&5 fi $rm conftest* echo "$as_me:$LINENO: result: $archive_cmds_need_lc_CXX" >&5 echo "${ECHO_T}$archive_cmds_need_lc_CXX" >&6 ;; esac fi ;; esac echo "$as_me:$LINENO: checking dynamic linker characteristics" >&5 echo $ECHO_N "checking dynamic linker characteristics... $ECHO_C" >&6 library_names_spec= libname_spec='lib$name' soname_spec= shrext_cmds=".so" postinstall_cmds= postuninstall_cmds= finish_cmds= finish_eval= shlibpath_var= shlibpath_overrides_runpath=unknown version_type=none dynamic_linker="$host_os ld.so" sys_lib_dlsearch_path_spec="/lib /usr/lib" need_lib_prefix=unknown hardcode_into_libs=no # when you set need_version to no, make sure it does not cause -set_version # flags to be left without arguments need_version=unknown case $host_os in aix3*) version_type=linux library_names_spec='${libname}${release}${shared_ext}$versuffix $libname.a' shlibpath_var=LIBPATH # AIX 3 has no versioning support, so we append a major version to the name. soname_spec='${libname}${release}${shared_ext}$major' ;; aix[4-9]*) version_type=linux need_lib_prefix=no need_version=no hardcode_into_libs=yes if test "$host_cpu" = ia64; then # AIX 5 supports IA64 library_names_spec='${libname}${release}${shared_ext}$major ${libname}${release}${shared_ext}$versuffix $libname${shared_ext}' shlibpath_var=LD_LIBRARY_PATH else # With GCC up to 2.95.x, collect2 would create an import file # for dependence libraries. The import file would start with # the line `#! .'. This would cause the generated library to # depend on `.', always an invalid library. This was fixed in # development snapshots of GCC prior to 3.0. case $host_os in aix4 | aix4.[01] | aix4.[01].*) if { echo '#if __GNUC__ > 2 || (__GNUC__ == 2 && __GNUC_MINOR__ >= 97)' echo ' yes ' echo '#endif'; } | ${CC} -E - | grep yes > /dev/null; then : else can_build_shared=no fi ;; esac # AIX (on Power*) has no versioning support, so currently we can not hardcode correct # soname into executable. Probably we can add versioning support to # collect2, so additional links can be useful in future. if test "$aix_use_runtimelinking" = yes; then # If using run time linking (on AIX 4.2 or later) use lib.so # instead of lib.a to let people know that these are not # typical AIX shared libraries. library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' else # We preserve .a as extension for shared libraries through AIX4.2 # and later when we are not doing run time linking. library_names_spec='${libname}${release}.a $libname.a' soname_spec='${libname}${release}${shared_ext}$major' fi shlibpath_var=LIBPATH fi ;; amigaos*) library_names_spec='$libname.ixlibrary $libname.a' # Create ${libname}_ixlibrary.a entries in /sys/libs. finish_eval='for lib in `ls $libdir/*.ixlibrary 2>/dev/null`; do libname=`$echo "X$lib" | $Xsed -e '\''s%^.*/\([^/]*\)\.ixlibrary$%\1%'\''`; test $rm /sys/libs/${libname}_ixlibrary.a; $show "cd /sys/libs && $LN_S $lib ${libname}_ixlibrary.a"; cd /sys/libs && $LN_S $lib ${libname}_ixlibrary.a || exit 1; done' ;; beos*) library_names_spec='${libname}${shared_ext}' dynamic_linker="$host_os ld.so" shlibpath_var=LIBRARY_PATH ;; bsdi[45]*) version_type=linux need_version=no library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' finish_cmds='PATH="\$PATH:/sbin" ldconfig $libdir' shlibpath_var=LD_LIBRARY_PATH sys_lib_search_path_spec="/shlib /usr/lib /usr/X11/lib /usr/contrib/lib /lib /usr/local/lib" sys_lib_dlsearch_path_spec="/shlib /usr/lib /usr/local/lib" # the default ld.so.conf also contains /usr/contrib/lib and # /usr/X11R6/lib (/usr/X11 is a link to /usr/X11R6), but let us allow # libtool to hard-code these into programs ;; cygwin* | mingw* | pw32*) version_type=windows shrext_cmds=".dll" need_version=no need_lib_prefix=no case $GCC,$host_os in yes,cygwin* | yes,mingw* | yes,pw32*) library_names_spec='$libname.dll.a' # DLL is installed to $(libdir)/../bin by postinstall_cmds postinstall_cmds='base_file=`basename \${file}`~ dlpath=`$SHELL 2>&1 -c '\''. $dir/'\''\${base_file}'\''i;echo \$dlname'\''`~ dldir=$destdir/`dirname \$dlpath`~ test -d \$dldir || mkdir -p \$dldir~ $install_prog $dir/$dlname \$dldir/$dlname~ chmod a+x \$dldir/$dlname' postuninstall_cmds='dldll=`$SHELL 2>&1 -c '\''. $file; echo \$dlname'\''`~ dlpath=$dir/\$dldll~ $rm \$dlpath' shlibpath_overrides_runpath=yes case $host_os in cygwin*) # Cygwin DLLs use 'cyg' prefix rather than 'lib' soname_spec='`echo ${libname} | sed -e 's/^lib/cyg/'``echo ${release} | $SED -e 's/[.]/-/g'`${versuffix}${shared_ext}' sys_lib_search_path_spec="/usr/lib /lib/w32api /lib /usr/local/lib" ;; mingw*) # MinGW DLLs use traditional 'lib' prefix soname_spec='${libname}`echo ${release} | $SED -e 's/[.]/-/g'`${versuffix}${shared_ext}' sys_lib_search_path_spec=`$CC -print-search-dirs | grep "^libraries:" | $SED -e "s/^libraries://" -e "s,=/,/,g"` if echo "$sys_lib_search_path_spec" | grep ';[c-zC-Z]:/' >/dev/null; then # It is most probably a Windows format PATH printed by # mingw gcc, but we are running on Cygwin. Gcc prints its search # path with ; separators, and with drive letters. We can handle the # drive letters (cygwin fileutils understands them), so leave them, # especially as we might pass files found there to a mingw objdump, # which wouldn't understand a cygwinified path. Ahh. sys_lib_search_path_spec=`echo "$sys_lib_search_path_spec" | $SED -e 's/;/ /g'` else sys_lib_search_path_spec=`echo "$sys_lib_search_path_spec" | $SED -e "s/$PATH_SEPARATOR/ /g"` fi ;; pw32*) # pw32 DLLs use 'pw' prefix rather than 'lib' library_names_spec='`echo ${libname} | sed -e 's/^lib/pw/'``echo ${release} | $SED -e 's/[.]/-/g'`${versuffix}${shared_ext}' ;; esac ;; *) library_names_spec='${libname}`echo ${release} | $SED -e 's/[.]/-/g'`${versuffix}${shared_ext} $libname.lib' ;; esac dynamic_linker='Win32 ld.exe' # FIXME: first we should search . and the directory the executable is in shlibpath_var=PATH ;; darwin* | rhapsody*) dynamic_linker="$host_os dyld" version_type=darwin need_lib_prefix=no need_version=no library_names_spec='${libname}${release}${versuffix}$shared_ext ${libname}${release}${major}$shared_ext ${libname}$shared_ext' soname_spec='${libname}${release}${major}$shared_ext' shlibpath_overrides_runpath=yes shlibpath_var=DYLD_LIBRARY_PATH shrext_cmds='`test .$module = .yes && echo .so || echo .dylib`' sys_lib_dlsearch_path_spec='/usr/local/lib /lib /usr/lib' ;; dgux*) version_type=linux need_lib_prefix=no need_version=no library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname$shared_ext' soname_spec='${libname}${release}${shared_ext}$major' shlibpath_var=LD_LIBRARY_PATH ;; freebsd1*) dynamic_linker=no ;; freebsd* | dragonfly*) # DragonFly does not have aout. When/if they implement a new # versioning mechanism, adjust this. if test -x /usr/bin/objformat; then objformat=`/usr/bin/objformat` else case $host_os in freebsd[123]*) objformat=aout ;; *) objformat=elf ;; esac fi version_type=freebsd-$objformat case $version_type in freebsd-elf*) library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext} $libname${shared_ext}' need_version=no need_lib_prefix=no ;; freebsd-*) library_names_spec='${libname}${release}${shared_ext}$versuffix $libname${shared_ext}$versuffix' need_version=yes ;; esac shlibpath_var=LD_LIBRARY_PATH case $host_os in freebsd2*) shlibpath_overrides_runpath=yes ;; freebsd3.[01]* | freebsdelf3.[01]*) shlibpath_overrides_runpath=yes hardcode_into_libs=yes ;; freebsd3.[2-9]* | freebsdelf3.[2-9]* | \ freebsd4.[0-5] | freebsdelf4.[0-5] | freebsd4.1.1 | freebsdelf4.1.1) shlibpath_overrides_runpath=no hardcode_into_libs=yes ;; *) # from 4.6 on, and DragonFly shlibpath_overrides_runpath=yes hardcode_into_libs=yes ;; esac ;; gnu*) version_type=linux need_lib_prefix=no need_version=no library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}${major} ${libname}${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' shlibpath_var=LD_LIBRARY_PATH hardcode_into_libs=yes ;; hpux9* | hpux10* | hpux11*) # Give a soname corresponding to the major version so that dld.sl refuses to # link against other versions. version_type=sunos need_lib_prefix=no need_version=no case $host_cpu in ia64*) shrext_cmds='.so' hardcode_into_libs=yes dynamic_linker="$host_os dld.so" shlibpath_var=LD_LIBRARY_PATH shlibpath_overrides_runpath=yes # Unless +noenvvar is specified. library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' if test "X$HPUX_IA64_MODE" = X32; then sys_lib_search_path_spec="/usr/lib/hpux32 /usr/local/lib/hpux32 /usr/local/lib" else sys_lib_search_path_spec="/usr/lib/hpux64 /usr/local/lib/hpux64" fi sys_lib_dlsearch_path_spec=$sys_lib_search_path_spec ;; hppa*64*) shrext_cmds='.sl' hardcode_into_libs=yes dynamic_linker="$host_os dld.sl" shlibpath_var=LD_LIBRARY_PATH # How should we handle SHLIB_PATH shlibpath_overrides_runpath=yes # Unless +noenvvar is specified. library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' sys_lib_search_path_spec="/usr/lib/pa20_64 /usr/ccs/lib/pa20_64" sys_lib_dlsearch_path_spec=$sys_lib_search_path_spec ;; *) shrext_cmds='.sl' dynamic_linker="$host_os dld.sl" shlibpath_var=SHLIB_PATH shlibpath_overrides_runpath=no # +s is required to enable SHLIB_PATH library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' ;; esac # HP-UX runs *really* slowly unless shared libraries are mode 555. postinstall_cmds='chmod 555 $lib' ;; interix[3-9]*) version_type=linux need_lib_prefix=no need_version=no library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major ${libname}${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' dynamic_linker='Interix 3.x ld.so.1 (PE, like ELF)' shlibpath_var=LD_LIBRARY_PATH shlibpath_overrides_runpath=no hardcode_into_libs=yes ;; irix5* | irix6* | nonstopux*) case $host_os in nonstopux*) version_type=nonstopux ;; *) if test "$lt_cv_prog_gnu_ld" = yes; then version_type=linux else version_type=irix fi ;; esac need_lib_prefix=no need_version=no soname_spec='${libname}${release}${shared_ext}$major' library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major ${libname}${release}${shared_ext} $libname${shared_ext}' case $host_os in irix5* | nonstopux*) libsuff= shlibsuff= ;; *) case $LD in # libtool.m4 will add one of these switches to LD *-32|*"-32 "|*-melf32bsmip|*"-melf32bsmip ") libsuff= shlibsuff= libmagic=32-bit;; *-n32|*"-n32 "|*-melf32bmipn32|*"-melf32bmipn32 ") libsuff=32 shlibsuff=N32 libmagic=N32;; *-64|*"-64 "|*-melf64bmip|*"-melf64bmip ") libsuff=64 shlibsuff=64 libmagic=64-bit;; *) libsuff= shlibsuff= libmagic=never-match;; esac ;; esac shlibpath_var=LD_LIBRARY${shlibsuff}_PATH shlibpath_overrides_runpath=no sys_lib_search_path_spec="/usr/lib${libsuff} /lib${libsuff} /usr/local/lib${libsuff}" sys_lib_dlsearch_path_spec="/usr/lib${libsuff} /lib${libsuff}" hardcode_into_libs=yes ;; # No shared lib support for Linux oldld, aout, or coff. linux*oldld* | linux*aout* | linux*coff*) dynamic_linker=no ;; # This must be Linux ELF. linux* | k*bsd*-gnu) version_type=linux need_lib_prefix=no need_version=no library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' finish_cmds='PATH="\$PATH:/sbin" ldconfig -n $libdir' shlibpath_var=LD_LIBRARY_PATH shlibpath_overrides_runpath=no # This implies no fast_install, which is unacceptable. # Some rework will be needed to allow for fast_install # before this can be enabled. hardcode_into_libs=yes sys_lib_search_path_spec="/usr/lib${libsuff} /lib${libsuff} /usr/local/lib${libsuff}" sys_lib_dlsearch_path_spec="/usr/lib${libsuff} /lib${libsuff}" # Append ld.so.conf contents to the search path if test -f /etc/ld.so.conf; then lt_ld_extra=`awk '/^include / { system(sprintf("cd /etc; cat %s 2>/dev/null", \$2)); skip = 1; } { if (!skip) print \$0; skip = 0; }' < /etc/ld.so.conf | $SED -e 's/#.*//;/^[ ]*hwcap[ ]/d;s/[:, ]/ /g;s/=[^=]*$//;s/=[^= ]* / /g;/^$/d' | tr '\n' ' '` sys_lib_dlsearch_path_spec="$sys_lib_dlsearch_path_spec $lt_ld_extra" fi # We used to test for /lib/ld.so.1 and disable shared libraries on # powerpc, because MkLinux only supported shared libraries with the # GNU dynamic linker. Since this was broken with cross compilers, # most powerpc-linux boxes support dynamic linking these days and # people can always --disable-shared, the test was removed, and we # assume the GNU/Linux dynamic linker is in use. dynamic_linker='GNU/Linux ld.so' ;; netbsd*) version_type=sunos need_lib_prefix=no need_version=no if echo __ELF__ | $CC -E - | grep __ELF__ >/dev/null; then library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${shared_ext}$versuffix' finish_cmds='PATH="\$PATH:/sbin" ldconfig -m $libdir' dynamic_linker='NetBSD (a.out) ld.so' else library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major ${libname}${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' dynamic_linker='NetBSD ld.elf_so' fi shlibpath_var=LD_LIBRARY_PATH shlibpath_overrides_runpath=yes hardcode_into_libs=yes ;; newsos6) version_type=linux library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' shlibpath_var=LD_LIBRARY_PATH shlibpath_overrides_runpath=yes ;; nto-qnx*) version_type=linux need_lib_prefix=no need_version=no library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' shlibpath_var=LD_LIBRARY_PATH shlibpath_overrides_runpath=yes ;; openbsd*) version_type=sunos sys_lib_dlsearch_path_spec="/usr/lib" need_lib_prefix=no # Some older versions of OpenBSD (3.3 at least) *do* need versioned libs. case $host_os in openbsd3.3 | openbsd3.3.*) need_version=yes ;; *) need_version=no ;; esac library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${shared_ext}$versuffix' finish_cmds='PATH="\$PATH:/sbin" ldconfig -m $libdir' shlibpath_var=LD_LIBRARY_PATH if test -z "`echo __ELF__ | $CC -E - | grep __ELF__`" || test "$host_os-$host_cpu" = "openbsd2.8-powerpc"; then case $host_os in openbsd2.[89] | openbsd2.[89].*) shlibpath_overrides_runpath=no ;; *) shlibpath_overrides_runpath=yes ;; esac else shlibpath_overrides_runpath=yes fi ;; os2*) libname_spec='$name' shrext_cmds=".dll" need_lib_prefix=no library_names_spec='$libname${shared_ext} $libname.a' dynamic_linker='OS/2 ld.exe' shlibpath_var=LIBPATH ;; osf3* | osf4* | osf5*) version_type=osf need_lib_prefix=no need_version=no soname_spec='${libname}${release}${shared_ext}$major' library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' shlibpath_var=LD_LIBRARY_PATH sys_lib_search_path_spec="/usr/shlib /usr/ccs/lib /usr/lib/cmplrs/cc /usr/lib /usr/local/lib /var/shlib" sys_lib_dlsearch_path_spec="$sys_lib_search_path_spec" ;; rdos*) dynamic_linker=no ;; solaris*) version_type=linux need_lib_prefix=no need_version=no library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' shlibpath_var=LD_LIBRARY_PATH shlibpath_overrides_runpath=yes hardcode_into_libs=yes # ldd complains unless libraries are executable postinstall_cmds='chmod +x $lib' ;; sunos4*) version_type=sunos library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${shared_ext}$versuffix' finish_cmds='PATH="\$PATH:/usr/etc" ldconfig $libdir' shlibpath_var=LD_LIBRARY_PATH shlibpath_overrides_runpath=yes if test "$with_gnu_ld" = yes; then need_lib_prefix=no fi need_version=yes ;; sysv4 | sysv4.3*) version_type=linux library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' shlibpath_var=LD_LIBRARY_PATH case $host_vendor in sni) shlibpath_overrides_runpath=no need_lib_prefix=no export_dynamic_flag_spec='${wl}-Blargedynsym' runpath_var=LD_RUN_PATH ;; siemens) need_lib_prefix=no ;; motorola) need_lib_prefix=no need_version=no shlibpath_overrides_runpath=no sys_lib_search_path_spec='/lib /usr/lib /usr/ccs/lib' ;; esac ;; sysv4*MP*) if test -d /usr/nec ;then version_type=linux library_names_spec='$libname${shared_ext}.$versuffix $libname${shared_ext}.$major $libname${shared_ext}' soname_spec='$libname${shared_ext}.$major' shlibpath_var=LD_LIBRARY_PATH fi ;; sysv5* | sco3.2v5* | sco5v6* | unixware* | OpenUNIX* | sysv4*uw2*) version_type=freebsd-elf need_lib_prefix=no need_version=no library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext} $libname${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' shlibpath_var=LD_LIBRARY_PATH hardcode_into_libs=yes if test "$with_gnu_ld" = yes; then sys_lib_search_path_spec='/usr/local/lib /usr/gnu/lib /usr/ccs/lib /usr/lib /lib' shlibpath_overrides_runpath=no else sys_lib_search_path_spec='/usr/ccs/lib /usr/lib' shlibpath_overrides_runpath=yes case $host_os in sco3.2v5*) sys_lib_search_path_spec="$sys_lib_search_path_spec /lib" ;; esac fi sys_lib_dlsearch_path_spec='/usr/lib' ;; uts4*) version_type=linux library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' shlibpath_var=LD_LIBRARY_PATH ;; *) dynamic_linker=no ;; esac echo "$as_me:$LINENO: result: $dynamic_linker" >&5 echo "${ECHO_T}$dynamic_linker" >&6 test "$dynamic_linker" = no && can_build_shared=no if test "${lt_cv_sys_lib_search_path_spec+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else lt_cv_sys_lib_search_path_spec="$sys_lib_search_path_spec" fi sys_lib_search_path_spec="$lt_cv_sys_lib_search_path_spec" if test "${lt_cv_sys_lib_dlsearch_path_spec+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else lt_cv_sys_lib_dlsearch_path_spec="$sys_lib_dlsearch_path_spec" fi sys_lib_dlsearch_path_spec="$lt_cv_sys_lib_dlsearch_path_spec" variables_saved_for_relink="PATH $shlibpath_var $runpath_var" if test "$GCC" = yes; then variables_saved_for_relink="$variables_saved_for_relink GCC_EXEC_PREFIX COMPILER_PATH LIBRARY_PATH" fi echo "$as_me:$LINENO: checking how to hardcode library paths into programs" >&5 echo $ECHO_N "checking how to hardcode library paths into programs... $ECHO_C" >&6 hardcode_action_CXX= if test -n "$hardcode_libdir_flag_spec_CXX" || \ test -n "$runpath_var_CXX" || \ test "X$hardcode_automatic_CXX" = "Xyes" ; then # We can hardcode non-existant directories. if test "$hardcode_direct_CXX" != no && # If the only mechanism to avoid hardcoding is shlibpath_var, we # have to relink, otherwise we might link with an installed library # when we should be linking with a yet-to-be-installed one ## test "$_LT_AC_TAGVAR(hardcode_shlibpath_var, CXX)" != no && test "$hardcode_minus_L_CXX" != no; then # Linking always hardcodes the temporary library directory. hardcode_action_CXX=relink else # We can link without hardcoding, and we can hardcode nonexisting dirs. hardcode_action_CXX=immediate fi else # We cannot hardcode anything, or else we can only hardcode existing # directories. hardcode_action_CXX=unsupported fi echo "$as_me:$LINENO: result: $hardcode_action_CXX" >&5 echo "${ECHO_T}$hardcode_action_CXX" >&6 if test "$hardcode_action_CXX" = relink; then # Fast installation is not supported enable_fast_install=no elif test "$shlibpath_overrides_runpath" = yes || test "$enable_shared" = no; then # Fast installation is not necessary enable_fast_install=needless fi # The else clause should only fire when bootstrapping the # libtool distribution, otherwise you forgot to ship ltmain.sh # with your package, and you will get complaints that there are # no rules to generate ltmain.sh. if test -f "$ltmain"; then # See if we are running on zsh, and set the options which allow our commands through # without removal of \ escapes. if test -n "${ZSH_VERSION+set}" ; then setopt NO_GLOB_SUBST fi # Now quote all the things that may contain metacharacters while being # careful not to overquote the AC_SUBSTed values. We take copies of the # variables and quote the copies for generation of the libtool script. for var in echo old_CC old_CFLAGS AR AR_FLAGS EGREP RANLIB LN_S LTCC LTCFLAGS NM \ SED SHELL STRIP \ libname_spec library_names_spec soname_spec extract_expsyms_cmds \ old_striplib striplib file_magic_cmd finish_cmds finish_eval \ deplibs_check_method reload_flag reload_cmds need_locks \ lt_cv_sys_global_symbol_pipe lt_cv_sys_global_symbol_to_cdecl \ lt_cv_sys_global_symbol_to_c_name_address \ sys_lib_search_path_spec sys_lib_dlsearch_path_spec \ old_postinstall_cmds old_postuninstall_cmds \ compiler_CXX \ CC_CXX \ LD_CXX \ lt_prog_compiler_wl_CXX \ lt_prog_compiler_pic_CXX \ lt_prog_compiler_static_CXX \ lt_prog_compiler_no_builtin_flag_CXX \ export_dynamic_flag_spec_CXX \ thread_safe_flag_spec_CXX \ whole_archive_flag_spec_CXX \ enable_shared_with_static_runtimes_CXX \ old_archive_cmds_CXX \ old_archive_from_new_cmds_CXX \ predep_objects_CXX \ postdep_objects_CXX \ predeps_CXX \ postdeps_CXX \ compiler_lib_search_path_CXX \ compiler_lib_search_dirs_CXX \ archive_cmds_CXX \ archive_expsym_cmds_CXX \ postinstall_cmds_CXX \ postuninstall_cmds_CXX \ old_archive_from_expsyms_cmds_CXX \ allow_undefined_flag_CXX \ no_undefined_flag_CXX \ export_symbols_cmds_CXX \ hardcode_libdir_flag_spec_CXX \ hardcode_libdir_flag_spec_ld_CXX \ hardcode_libdir_separator_CXX \ hardcode_automatic_CXX \ module_cmds_CXX \ module_expsym_cmds_CXX \ lt_cv_prog_compiler_c_o_CXX \ fix_srcfile_path_CXX \ exclude_expsyms_CXX \ include_expsyms_CXX; do case $var in old_archive_cmds_CXX | \ old_archive_from_new_cmds_CXX | \ archive_cmds_CXX | \ archive_expsym_cmds_CXX | \ module_cmds_CXX | \ module_expsym_cmds_CXX | \ old_archive_from_expsyms_cmds_CXX | \ export_symbols_cmds_CXX | \ extract_expsyms_cmds | reload_cmds | finish_cmds | \ postinstall_cmds | postuninstall_cmds | \ old_postinstall_cmds | old_postuninstall_cmds | \ sys_lib_search_path_spec | sys_lib_dlsearch_path_spec) # Double-quote double-evaled strings. eval "lt_$var=\\\"\`\$echo \"X\$$var\" | \$Xsed -e \"\$double_quote_subst\" -e \"\$sed_quote_subst\" -e \"\$delay_variable_subst\"\`\\\"" ;; *) eval "lt_$var=\\\"\`\$echo \"X\$$var\" | \$Xsed -e \"\$sed_quote_subst\"\`\\\"" ;; esac done case $lt_echo in *'\$0 --fallback-echo"') lt_echo=`$echo "X$lt_echo" | $Xsed -e 's/\\\\\\\$0 --fallback-echo"$/$0 --fallback-echo"/'` ;; esac cfgfile="$ofile" cat <<__EOF__ >> "$cfgfile" # ### BEGIN LIBTOOL TAG CONFIG: $tagname # Libtool was configured on host `(hostname || uname -n) 2>/dev/null | sed 1q`: # Shell to use when invoking shell scripts. SHELL=$lt_SHELL # Whether or not to build shared libraries. build_libtool_libs=$enable_shared # Whether or not to build static libraries. build_old_libs=$enable_static # Whether or not to add -lc for building shared libraries. build_libtool_need_lc=$archive_cmds_need_lc_CXX # Whether or not to disallow shared libs when runtime libs are static allow_libtool_libs_with_static_runtimes=$enable_shared_with_static_runtimes_CXX # Whether or not to optimize for fast installation. fast_install=$enable_fast_install # The host system. host_alias=$host_alias host=$host host_os=$host_os # The build system. build_alias=$build_alias build=$build build_os=$build_os # An echo program that does not interpret backslashes. echo=$lt_echo # The archiver. AR=$lt_AR AR_FLAGS=$lt_AR_FLAGS # A C compiler. LTCC=$lt_LTCC # LTCC compiler flags. LTCFLAGS=$lt_LTCFLAGS # A language-specific compiler. CC=$lt_compiler_CXX # Is the compiler the GNU C compiler? with_gcc=$GCC_CXX # An ERE matcher. EGREP=$lt_EGREP # The linker used to build libraries. LD=$lt_LD_CXX # Whether we need hard or soft links. LN_S=$lt_LN_S # A BSD-compatible nm program. NM=$lt_NM # A symbol stripping program STRIP=$lt_STRIP # Used to examine libraries when file_magic_cmd begins "file" MAGIC_CMD=$MAGIC_CMD # Used on cygwin: DLL creation program. DLLTOOL="$DLLTOOL" # Used on cygwin: object dumper. OBJDUMP="$OBJDUMP" # Used on cygwin: assembler. AS="$AS" # The name of the directory that contains temporary libtool files. objdir=$objdir # How to create reloadable object files. reload_flag=$lt_reload_flag reload_cmds=$lt_reload_cmds # How to pass a linker flag through the compiler. wl=$lt_lt_prog_compiler_wl_CXX # Object file suffix (normally "o"). objext="$ac_objext" # Old archive suffix (normally "a"). libext="$libext" # Shared library suffix (normally ".so"). shrext_cmds='$shrext_cmds' # Executable file suffix (normally ""). exeext="$exeext" # Additional compiler flags for building library objects. pic_flag=$lt_lt_prog_compiler_pic_CXX pic_mode=$pic_mode # What is the maximum length of a command? max_cmd_len=$lt_cv_sys_max_cmd_len # Does compiler simultaneously support -c and -o options? compiler_c_o=$lt_lt_cv_prog_compiler_c_o_CXX # Must we lock files when doing compilation? need_locks=$lt_need_locks # Do we need the lib prefix for modules? need_lib_prefix=$need_lib_prefix # Do we need a version for libraries? need_version=$need_version # Whether dlopen is supported. dlopen_support=$enable_dlopen # Whether dlopen of programs is supported. dlopen_self=$enable_dlopen_self # Whether dlopen of statically linked programs is supported. dlopen_self_static=$enable_dlopen_self_static # Compiler flag to prevent dynamic linking. link_static_flag=$lt_lt_prog_compiler_static_CXX # Compiler flag to turn off builtin functions. no_builtin_flag=$lt_lt_prog_compiler_no_builtin_flag_CXX # Compiler flag to allow reflexive dlopens. export_dynamic_flag_spec=$lt_export_dynamic_flag_spec_CXX # Compiler flag to generate shared objects directly from archives. whole_archive_flag_spec=$lt_whole_archive_flag_spec_CXX # Compiler flag to generate thread-safe objects. thread_safe_flag_spec=$lt_thread_safe_flag_spec_CXX # Library versioning type. version_type=$version_type # Format of library name prefix. libname_spec=$lt_libname_spec # List of archive names. First name is the real one, the rest are links. # The last name is the one that the linker finds with -lNAME. library_names_spec=$lt_library_names_spec # The coded name of the library, if different from the real name. soname_spec=$lt_soname_spec # Commands used to build and install an old-style archive. RANLIB=$lt_RANLIB old_archive_cmds=$lt_old_archive_cmds_CXX old_postinstall_cmds=$lt_old_postinstall_cmds old_postuninstall_cmds=$lt_old_postuninstall_cmds # Create an old-style archive from a shared archive. old_archive_from_new_cmds=$lt_old_archive_from_new_cmds_CXX # Create a temporary old-style archive to link instead of a shared archive. old_archive_from_expsyms_cmds=$lt_old_archive_from_expsyms_cmds_CXX # Commands used to build and install a shared archive. archive_cmds=$lt_archive_cmds_CXX archive_expsym_cmds=$lt_archive_expsym_cmds_CXX postinstall_cmds=$lt_postinstall_cmds postuninstall_cmds=$lt_postuninstall_cmds # Commands used to build a loadable module (assumed same as above if empty) module_cmds=$lt_module_cmds_CXX module_expsym_cmds=$lt_module_expsym_cmds_CXX # Commands to strip libraries. old_striplib=$lt_old_striplib striplib=$lt_striplib # Dependencies to place before the objects being linked to create a # shared library. predep_objects=$lt_predep_objects_CXX # Dependencies to place after the objects being linked to create a # shared library. postdep_objects=$lt_postdep_objects_CXX # Dependencies to place before the objects being linked to create a # shared library. predeps=$lt_predeps_CXX # Dependencies to place after the objects being linked to create a # shared library. postdeps=$lt_postdeps_CXX # The directories searched by this compiler when creating a shared # library compiler_lib_search_dirs=$lt_compiler_lib_search_dirs_CXX # The library search path used internally by the compiler when linking # a shared library. compiler_lib_search_path=$lt_compiler_lib_search_path_CXX # Method to check whether dependent libraries are shared objects. deplibs_check_method=$lt_deplibs_check_method # Command to use when deplibs_check_method == file_magic. file_magic_cmd=$lt_file_magic_cmd # Flag that allows shared libraries with undefined symbols to be built. allow_undefined_flag=$lt_allow_undefined_flag_CXX # Flag that forces no undefined symbols. no_undefined_flag=$lt_no_undefined_flag_CXX # Commands used to finish a libtool library installation in a directory. finish_cmds=$lt_finish_cmds # Same as above, but a single script fragment to be evaled but not shown. finish_eval=$lt_finish_eval # Take the output of nm and produce a listing of raw symbols and C names. global_symbol_pipe=$lt_lt_cv_sys_global_symbol_pipe # Transform the output of nm in a proper C declaration global_symbol_to_cdecl=$lt_lt_cv_sys_global_symbol_to_cdecl # Transform the output of nm in a C name address pair global_symbol_to_c_name_address=$lt_lt_cv_sys_global_symbol_to_c_name_address # This is the shared library runtime path variable. runpath_var=$runpath_var # This is the shared library path variable. shlibpath_var=$shlibpath_var # Is shlibpath searched before the hard-coded library search path? shlibpath_overrides_runpath=$shlibpath_overrides_runpath # How to hardcode a shared library path into an executable. hardcode_action=$hardcode_action_CXX # Whether we should hardcode library paths into libraries. hardcode_into_libs=$hardcode_into_libs # Flag to hardcode \$libdir into a binary during linking. # This must work even if \$libdir does not exist. hardcode_libdir_flag_spec=$lt_hardcode_libdir_flag_spec_CXX # If ld is used when linking, flag to hardcode \$libdir into # a binary during linking. This must work even if \$libdir does # not exist. hardcode_libdir_flag_spec_ld=$lt_hardcode_libdir_flag_spec_ld_CXX # Whether we need a single -rpath flag with a separated argument. hardcode_libdir_separator=$lt_hardcode_libdir_separator_CXX # Set to yes if using DIR/libNAME${shared_ext} during linking hardcodes DIR into the # resulting binary. hardcode_direct=$hardcode_direct_CXX # Set to yes if using the -LDIR flag during linking hardcodes DIR into the # resulting binary. hardcode_minus_L=$hardcode_minus_L_CXX # Set to yes if using SHLIBPATH_VAR=DIR during linking hardcodes DIR into # the resulting binary. hardcode_shlibpath_var=$hardcode_shlibpath_var_CXX # Set to yes if building a shared library automatically hardcodes DIR into the library # and all subsequent libraries and executables linked against it. hardcode_automatic=$hardcode_automatic_CXX # Variables whose values should be saved in libtool wrapper scripts and # restored at relink time. variables_saved_for_relink="$variables_saved_for_relink" # Whether libtool must link a program against all its dependency libraries. link_all_deplibs=$link_all_deplibs_CXX # Compile-time system search path for libraries sys_lib_search_path_spec=$lt_sys_lib_search_path_spec # Run-time system search path for libraries sys_lib_dlsearch_path_spec=$lt_sys_lib_dlsearch_path_spec # Fix the shell variable \$srcfile for the compiler. fix_srcfile_path=$lt_fix_srcfile_path # Set to yes if exported symbols are required. always_export_symbols=$always_export_symbols_CXX # The commands to list exported symbols. export_symbols_cmds=$lt_export_symbols_cmds_CXX # The commands to extract the exported symbol list from a shared archive. extract_expsyms_cmds=$lt_extract_expsyms_cmds # Symbols that should not be listed in the preloaded symbols. exclude_expsyms=$lt_exclude_expsyms_CXX # Symbols that must always be exported. include_expsyms=$lt_include_expsyms_CXX # ### END LIBTOOL TAG CONFIG: $tagname __EOF__ else # If there is no Makefile yet, we rely on a make rule to execute # `config.status --recheck' to rerun these tests and create the # libtool script then. ltmain_in=`echo $ltmain | sed -e 's/\.sh$/.in/'` if test -f "$ltmain_in"; then test -f Makefile && make "$ltmain" fi fi ac_ext=c ac_cpp='$CPP $CPPFLAGS' ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' ac_compiler_gnu=$ac_cv_c_compiler_gnu CC=$lt_save_CC LDCXX=$LD LD=$lt_save_LD GCC=$lt_save_GCC with_gnu_ldcxx=$with_gnu_ld with_gnu_ld=$lt_save_with_gnu_ld lt_cv_path_LDCXX=$lt_cv_path_LD lt_cv_path_LD=$lt_save_path_LD lt_cv_prog_gnu_ldcxx=$lt_cv_prog_gnu_ld lt_cv_prog_gnu_ld=$lt_save_with_gnu_ld else tagname="" fi ;; F77) if test -n "$F77" && test "X$F77" != "Xno"; then ac_ext=f ac_compile='$F77 -c $FFLAGS conftest.$ac_ext >&5' ac_link='$F77 -o conftest$ac_exeext $FFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' ac_compiler_gnu=$ac_cv_f77_compiler_gnu archive_cmds_need_lc_F77=no allow_undefined_flag_F77= always_export_symbols_F77=no archive_expsym_cmds_F77= export_dynamic_flag_spec_F77= hardcode_direct_F77=no hardcode_libdir_flag_spec_F77= hardcode_libdir_flag_spec_ld_F77= hardcode_libdir_separator_F77= hardcode_minus_L_F77=no hardcode_automatic_F77=no module_cmds_F77= module_expsym_cmds_F77= link_all_deplibs_F77=unknown old_archive_cmds_F77=$old_archive_cmds no_undefined_flag_F77= whole_archive_flag_spec_F77= enable_shared_with_static_runtimes_F77=no # Source file extension for f77 test sources. ac_ext=f # Object file extension for compiled f77 test sources. objext=o objext_F77=$objext # Code to be used in simple compile tests lt_simple_compile_test_code="\ subroutine t return end " # Code to be used in simple link tests lt_simple_link_test_code="\ program t end " # ltmain only uses $CC for tagged configurations so make sure $CC is set. # If no C compiler was specified, use CC. LTCC=${LTCC-"$CC"} # If no C compiler flags were specified, use CFLAGS. LTCFLAGS=${LTCFLAGS-"$CFLAGS"} # Allow CC to be a program name with arguments. compiler=$CC # save warnings/boilerplate of simple test code ac_outfile=conftest.$ac_objext echo "$lt_simple_compile_test_code" >conftest.$ac_ext eval "$ac_compile" 2>&1 >/dev/null | $SED '/^$/d; /^ *+/d' >conftest.err _lt_compiler_boilerplate=`cat conftest.err` $rm conftest* ac_outfile=conftest.$ac_objext echo "$lt_simple_link_test_code" >conftest.$ac_ext eval "$ac_link" 2>&1 >/dev/null | $SED '/^$/d; /^ *+/d' >conftest.err _lt_linker_boilerplate=`cat conftest.err` $rm -r conftest* # Allow CC to be a program name with arguments. lt_save_CC="$CC" CC=${F77-"f77"} compiler=$CC compiler_F77=$CC for cc_temp in $compiler""; do case $cc_temp in compile | *[\\/]compile | ccache | *[\\/]ccache ) ;; distcc | *[\\/]distcc | purify | *[\\/]purify ) ;; \-*) ;; *) break;; esac done cc_basename=`$echo "X$cc_temp" | $Xsed -e 's%.*/%%' -e "s%^$host_alias-%%"` echo "$as_me:$LINENO: checking if libtool supports shared libraries" >&5 echo $ECHO_N "checking if libtool supports shared libraries... $ECHO_C" >&6 echo "$as_me:$LINENO: result: $can_build_shared" >&5 echo "${ECHO_T}$can_build_shared" >&6 echo "$as_me:$LINENO: checking whether to build shared libraries" >&5 echo $ECHO_N "checking whether to build shared libraries... $ECHO_C" >&6 test "$can_build_shared" = "no" && enable_shared=no # On AIX, shared libraries and static libraries use the same namespace, and # are all built from PIC. case $host_os in aix3*) test "$enable_shared" = yes && enable_static=no if test -n "$RANLIB"; then archive_cmds="$archive_cmds~\$RANLIB \$lib" postinstall_cmds='$RANLIB $lib' fi ;; aix[4-9]*) if test "$host_cpu" != ia64 && test "$aix_use_runtimelinking" = no ; then test "$enable_shared" = yes && enable_static=no fi ;; esac echo "$as_me:$LINENO: result: $enable_shared" >&5 echo "${ECHO_T}$enable_shared" >&6 echo "$as_me:$LINENO: checking whether to build static libraries" >&5 echo $ECHO_N "checking whether to build static libraries... $ECHO_C" >&6 # Make sure either enable_shared or enable_static is yes. test "$enable_shared" = yes || enable_static=yes echo "$as_me:$LINENO: result: $enable_static" >&5 echo "${ECHO_T}$enable_static" >&6 GCC_F77="$G77" LD_F77="$LD" lt_prog_compiler_wl_F77= lt_prog_compiler_pic_F77= lt_prog_compiler_static_F77= echo "$as_me:$LINENO: checking for $compiler option to produce PIC" >&5 echo $ECHO_N "checking for $compiler option to produce PIC... $ECHO_C" >&6 if test "$GCC" = yes; then lt_prog_compiler_wl_F77='-Wl,' lt_prog_compiler_static_F77='-static' case $host_os in aix*) # All AIX code is PIC. if test "$host_cpu" = ia64; then # AIX 5 now supports IA64 processor lt_prog_compiler_static_F77='-Bstatic' fi ;; amigaos*) # FIXME: we need at least 68020 code to build shared libraries, but # adding the `-m68020' flag to GCC prevents building anything better, # like `-m68040'. lt_prog_compiler_pic_F77='-m68020 -resident32 -malways-restore-a4' ;; beos* | irix5* | irix6* | nonstopux* | osf3* | osf4* | osf5*) # PIC is the default for these OSes. ;; mingw* | cygwin* | pw32* | os2*) # This hack is so that the source file can tell whether it is being # built for inclusion in a dll (and should export symbols for example). # Although the cygwin gcc ignores -fPIC, still need this for old-style # (--disable-auto-import) libraries lt_prog_compiler_pic_F77='-DDLL_EXPORT' ;; darwin* | rhapsody*) # PIC is the default on this platform # Common symbols not allowed in MH_DYLIB files lt_prog_compiler_pic_F77='-fno-common' ;; interix[3-9]*) # Interix 3.x gcc -fpic/-fPIC options generate broken code. # Instead, we relocate shared libraries at runtime. ;; msdosdjgpp*) # Just because we use GCC doesn't mean we suddenly get shared libraries # on systems that don't support them. lt_prog_compiler_can_build_shared_F77=no enable_shared=no ;; sysv4*MP*) if test -d /usr/nec; then lt_prog_compiler_pic_F77=-Kconform_pic fi ;; hpux*) # PIC is the default for IA64 HP-UX and 64-bit HP-UX, but # not for PA HP-UX. case $host_cpu in hppa*64*|ia64*) # +Z the default ;; *) lt_prog_compiler_pic_F77='-fPIC' ;; esac ;; *) lt_prog_compiler_pic_F77='-fPIC' ;; esac else # PORTME Check for flag to pass linker flags through the system compiler. case $host_os in aix*) lt_prog_compiler_wl_F77='-Wl,' if test "$host_cpu" = ia64; then # AIX 5 now supports IA64 processor lt_prog_compiler_static_F77='-Bstatic' else lt_prog_compiler_static_F77='-bnso -bI:/lib/syscalls.exp' fi ;; darwin*) # PIC is the default on this platform # Common symbols not allowed in MH_DYLIB files case $cc_basename in xlc*) lt_prog_compiler_pic_F77='-qnocommon' lt_prog_compiler_wl_F77='-Wl,' ;; esac ;; mingw* | cygwin* | pw32* | os2*) # This hack is so that the source file can tell whether it is being # built for inclusion in a dll (and should export symbols for example). lt_prog_compiler_pic_F77='-DDLL_EXPORT' ;; hpux9* | hpux10* | hpux11*) lt_prog_compiler_wl_F77='-Wl,' # PIC is the default for IA64 HP-UX and 64-bit HP-UX, but # not for PA HP-UX. case $host_cpu in hppa*64*|ia64*) # +Z the default ;; *) lt_prog_compiler_pic_F77='+Z' ;; esac # Is there a better lt_prog_compiler_static that works with the bundled CC? lt_prog_compiler_static_F77='${wl}-a ${wl}archive' ;; irix5* | irix6* | nonstopux*) lt_prog_compiler_wl_F77='-Wl,' # PIC (with -KPIC) is the default. lt_prog_compiler_static_F77='-non_shared' ;; newsos6) lt_prog_compiler_pic_F77='-KPIC' lt_prog_compiler_static_F77='-Bstatic' ;; linux* | k*bsd*-gnu) case $cc_basename in icc* | ecc*) lt_prog_compiler_wl_F77='-Wl,' lt_prog_compiler_pic_F77='-KPIC' lt_prog_compiler_static_F77='-static' ;; pgcc* | pgf77* | pgf90* | pgf95*) # Portland Group compilers (*not* the Pentium gcc compiler, # which looks to be a dead project) lt_prog_compiler_wl_F77='-Wl,' lt_prog_compiler_pic_F77='-fpic' lt_prog_compiler_static_F77='-Bstatic' ;; ccc*) lt_prog_compiler_wl_F77='-Wl,' # All Alpha code is PIC. lt_prog_compiler_static_F77='-non_shared' ;; *) case `$CC -V 2>&1 | sed 5q` in *Sun\ C*) # Sun C 5.9 lt_prog_compiler_pic_F77='-KPIC' lt_prog_compiler_static_F77='-Bstatic' lt_prog_compiler_wl_F77='-Wl,' ;; *Sun\ F*) # Sun Fortran 8.3 passes all unrecognized flags to the linker lt_prog_compiler_pic_F77='-KPIC' lt_prog_compiler_static_F77='-Bstatic' lt_prog_compiler_wl_F77='' ;; esac ;; esac ;; osf3* | osf4* | osf5*) lt_prog_compiler_wl_F77='-Wl,' # All OSF/1 code is PIC. lt_prog_compiler_static_F77='-non_shared' ;; rdos*) lt_prog_compiler_static_F77='-non_shared' ;; solaris*) lt_prog_compiler_pic_F77='-KPIC' lt_prog_compiler_static_F77='-Bstatic' case $cc_basename in f77* | f90* | f95*) lt_prog_compiler_wl_F77='-Qoption ld ';; *) lt_prog_compiler_wl_F77='-Wl,';; esac ;; sunos4*) lt_prog_compiler_wl_F77='-Qoption ld ' lt_prog_compiler_pic_F77='-PIC' lt_prog_compiler_static_F77='-Bstatic' ;; sysv4 | sysv4.2uw2* | sysv4.3*) lt_prog_compiler_wl_F77='-Wl,' lt_prog_compiler_pic_F77='-KPIC' lt_prog_compiler_static_F77='-Bstatic' ;; sysv4*MP*) if test -d /usr/nec ;then lt_prog_compiler_pic_F77='-Kconform_pic' lt_prog_compiler_static_F77='-Bstatic' fi ;; sysv5* | unixware* | sco3.2v5* | sco5v6* | OpenUNIX*) lt_prog_compiler_wl_F77='-Wl,' lt_prog_compiler_pic_F77='-KPIC' lt_prog_compiler_static_F77='-Bstatic' ;; unicos*) lt_prog_compiler_wl_F77='-Wl,' lt_prog_compiler_can_build_shared_F77=no ;; uts4*) lt_prog_compiler_pic_F77='-pic' lt_prog_compiler_static_F77='-Bstatic' ;; *) lt_prog_compiler_can_build_shared_F77=no ;; esac fi echo "$as_me:$LINENO: result: $lt_prog_compiler_pic_F77" >&5 echo "${ECHO_T}$lt_prog_compiler_pic_F77" >&6 # # Check to make sure the PIC flag actually works. # if test -n "$lt_prog_compiler_pic_F77"; then echo "$as_me:$LINENO: checking if $compiler PIC flag $lt_prog_compiler_pic_F77 works" >&5 echo $ECHO_N "checking if $compiler PIC flag $lt_prog_compiler_pic_F77 works... $ECHO_C" >&6 if test "${lt_cv_prog_compiler_pic_works_F77+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else lt_cv_prog_compiler_pic_works_F77=no ac_outfile=conftest.$ac_objext echo "$lt_simple_compile_test_code" > conftest.$ac_ext lt_compiler_flag="$lt_prog_compiler_pic_F77" # Insert the option either (1) after the last *FLAGS variable, or # (2) before a word containing "conftest.", or (3) at the end. # Note that $ac_compile itself does not contain backslashes and begins # with a dollar sign (not a hyphen), so the echo should work correctly. # The option is referenced via a variable to avoid confusing sed. lt_compile=`echo "$ac_compile" | $SED \ -e 's:.*FLAGS}\{0,1\} :&$lt_compiler_flag :; t' \ -e 's: [^ ]*conftest\.: $lt_compiler_flag&:; t' \ -e 's:$: $lt_compiler_flag:'` (eval echo "\"\$as_me:13880: $lt_compile\"" >&5) (eval "$lt_compile" 2>conftest.err) ac_status=$? cat conftest.err >&5 echo "$as_me:13884: \$? = $ac_status" >&5 if (exit $ac_status) && test -s "$ac_outfile"; then # The compiler can only warn and ignore the option if not recognized # So say no if there are warnings other than the usual output. $echo "X$_lt_compiler_boilerplate" | $Xsed -e '/^$/d' >conftest.exp $SED '/^$/d; /^ *+/d' conftest.err >conftest.er2 if test ! -s conftest.er2 || diff conftest.exp conftest.er2 >/dev/null; then lt_cv_prog_compiler_pic_works_F77=yes fi fi $rm conftest* fi echo "$as_me:$LINENO: result: $lt_cv_prog_compiler_pic_works_F77" >&5 echo "${ECHO_T}$lt_cv_prog_compiler_pic_works_F77" >&6 if test x"$lt_cv_prog_compiler_pic_works_F77" = xyes; then case $lt_prog_compiler_pic_F77 in "" | " "*) ;; *) lt_prog_compiler_pic_F77=" $lt_prog_compiler_pic_F77" ;; esac else lt_prog_compiler_pic_F77= lt_prog_compiler_can_build_shared_F77=no fi fi case $host_os in # For platforms which do not support PIC, -DPIC is meaningless: *djgpp*) lt_prog_compiler_pic_F77= ;; *) lt_prog_compiler_pic_F77="$lt_prog_compiler_pic_F77" ;; esac # # Check to make sure the static flag actually works. # wl=$lt_prog_compiler_wl_F77 eval lt_tmp_static_flag=\"$lt_prog_compiler_static_F77\" echo "$as_me:$LINENO: checking if $compiler static flag $lt_tmp_static_flag works" >&5 echo $ECHO_N "checking if $compiler static flag $lt_tmp_static_flag works... $ECHO_C" >&6 if test "${lt_cv_prog_compiler_static_works_F77+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else lt_cv_prog_compiler_static_works_F77=no save_LDFLAGS="$LDFLAGS" LDFLAGS="$LDFLAGS $lt_tmp_static_flag" echo "$lt_simple_link_test_code" > conftest.$ac_ext if (eval $ac_link 2>conftest.err) && test -s conftest$ac_exeext; then # The linker can only warn and ignore the option if not recognized # So say no if there are warnings if test -s conftest.err; then # Append any errors to the config.log. cat conftest.err 1>&5 $echo "X$_lt_linker_boilerplate" | $Xsed -e '/^$/d' > conftest.exp $SED '/^$/d; /^ *+/d' conftest.err >conftest.er2 if diff conftest.exp conftest.er2 >/dev/null; then lt_cv_prog_compiler_static_works_F77=yes fi else lt_cv_prog_compiler_static_works_F77=yes fi fi $rm -r conftest* LDFLAGS="$save_LDFLAGS" fi echo "$as_me:$LINENO: result: $lt_cv_prog_compiler_static_works_F77" >&5 echo "${ECHO_T}$lt_cv_prog_compiler_static_works_F77" >&6 if test x"$lt_cv_prog_compiler_static_works_F77" = xyes; then : else lt_prog_compiler_static_F77= fi echo "$as_me:$LINENO: checking if $compiler supports -c -o file.$ac_objext" >&5 echo $ECHO_N "checking if $compiler supports -c -o file.$ac_objext... $ECHO_C" >&6 if test "${lt_cv_prog_compiler_c_o_F77+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else lt_cv_prog_compiler_c_o_F77=no $rm -r conftest 2>/dev/null mkdir conftest cd conftest mkdir out echo "$lt_simple_compile_test_code" > conftest.$ac_ext lt_compiler_flag="-o out/conftest2.$ac_objext" # Insert the option either (1) after the last *FLAGS variable, or # (2) before a word containing "conftest.", or (3) at the end. # Note that $ac_compile itself does not contain backslashes and begins # with a dollar sign (not a hyphen), so the echo should work correctly. lt_compile=`echo "$ac_compile" | $SED \ -e 's:.*FLAGS}\{0,1\} :&$lt_compiler_flag :; t' \ -e 's: [^ ]*conftest\.: $lt_compiler_flag&:; t' \ -e 's:$: $lt_compiler_flag:'` (eval echo "\"\$as_me:13984: $lt_compile\"" >&5) (eval "$lt_compile" 2>out/conftest.err) ac_status=$? cat out/conftest.err >&5 echo "$as_me:13988: \$? = $ac_status" >&5 if (exit $ac_status) && test -s out/conftest2.$ac_objext then # The compiler can only warn and ignore the option if not recognized # So say no if there are warnings $echo "X$_lt_compiler_boilerplate" | $Xsed -e '/^$/d' > out/conftest.exp $SED '/^$/d; /^ *+/d' out/conftest.err >out/conftest.er2 if test ! -s out/conftest.er2 || diff out/conftest.exp out/conftest.er2 >/dev/null; then lt_cv_prog_compiler_c_o_F77=yes fi fi chmod u+w . 2>&5 $rm conftest* # SGI C++ compiler will create directory out/ii_files/ for # template instantiation test -d out/ii_files && $rm out/ii_files/* && rmdir out/ii_files $rm out/* && rmdir out cd .. rmdir conftest $rm conftest* fi echo "$as_me:$LINENO: result: $lt_cv_prog_compiler_c_o_F77" >&5 echo "${ECHO_T}$lt_cv_prog_compiler_c_o_F77" >&6 hard_links="nottested" if test "$lt_cv_prog_compiler_c_o_F77" = no && test "$need_locks" != no; then # do not overwrite the value of need_locks provided by the user echo "$as_me:$LINENO: checking if we can lock with hard links" >&5 echo $ECHO_N "checking if we can lock with hard links... $ECHO_C" >&6 hard_links=yes $rm conftest* ln conftest.a conftest.b 2>/dev/null && hard_links=no touch conftest.a ln conftest.a conftest.b 2>&5 || hard_links=no ln conftest.a conftest.b 2>/dev/null && hard_links=no echo "$as_me:$LINENO: result: $hard_links" >&5 echo "${ECHO_T}$hard_links" >&6 if test "$hard_links" = no; then { echo "$as_me:$LINENO: WARNING: \`$CC' does not support \`-c -o', so \`make -j' may be unsafe" >&5 echo "$as_me: WARNING: \`$CC' does not support \`-c -o', so \`make -j' may be unsafe" >&2;} need_locks=warn fi else need_locks=no fi echo "$as_me:$LINENO: checking whether the $compiler linker ($LD) supports shared libraries" >&5 echo $ECHO_N "checking whether the $compiler linker ($LD) supports shared libraries... $ECHO_C" >&6 runpath_var= allow_undefined_flag_F77= enable_shared_with_static_runtimes_F77=no archive_cmds_F77= archive_expsym_cmds_F77= old_archive_From_new_cmds_F77= old_archive_from_expsyms_cmds_F77= export_dynamic_flag_spec_F77= whole_archive_flag_spec_F77= thread_safe_flag_spec_F77= hardcode_libdir_flag_spec_F77= hardcode_libdir_flag_spec_ld_F77= hardcode_libdir_separator_F77= hardcode_direct_F77=no hardcode_minus_L_F77=no hardcode_shlibpath_var_F77=unsupported link_all_deplibs_F77=unknown hardcode_automatic_F77=no module_cmds_F77= module_expsym_cmds_F77= always_export_symbols_F77=no export_symbols_cmds_F77='$NM $libobjs $convenience | $global_symbol_pipe | $SED '\''s/.* //'\'' | sort | uniq > $export_symbols' # include_expsyms should be a list of space-separated symbols to be *always* # included in the symbol list include_expsyms_F77= # exclude_expsyms can be an extended regexp of symbols to exclude # it will be wrapped by ` (' and `)$', so one must not match beginning or # end of line. Example: `a|bc|.*d.*' will exclude the symbols `a' and `bc', # as well as any symbol that contains `d'. exclude_expsyms_F77='_GLOBAL_OFFSET_TABLE_|_GLOBAL__F[ID]_.*' # Although _GLOBAL_OFFSET_TABLE_ is a valid symbol C name, most a.out # platforms (ab)use it in PIC code, but their linkers get confused if # the symbol is explicitly referenced. Since portable code cannot # rely on this symbol name, it's probably fine to never include it in # preloaded symbol tables. # Exclude shared library initialization/finalization symbols. extract_expsyms_cmds= # Just being paranoid about ensuring that cc_basename is set. for cc_temp in $compiler""; do case $cc_temp in compile | *[\\/]compile | ccache | *[\\/]ccache ) ;; distcc | *[\\/]distcc | purify | *[\\/]purify ) ;; \-*) ;; *) break;; esac done cc_basename=`$echo "X$cc_temp" | $Xsed -e 's%.*/%%' -e "s%^$host_alias-%%"` case $host_os in cygwin* | mingw* | pw32*) # FIXME: the MSVC++ port hasn't been tested in a loooong time # When not using gcc, we currently assume that we are using # Microsoft Visual C++. if test "$GCC" != yes; then with_gnu_ld=no fi ;; interix*) # we just hope/assume this is gcc and not c89 (= MSVC++) with_gnu_ld=yes ;; openbsd*) with_gnu_ld=no ;; esac ld_shlibs_F77=yes if test "$with_gnu_ld" = yes; then # If archive_cmds runs LD, not CC, wlarc should be empty wlarc='${wl}' # Set some defaults for GNU ld with shared library support. These # are reset later if shared libraries are not supported. Putting them # here allows them to be overridden if necessary. runpath_var=LD_RUN_PATH hardcode_libdir_flag_spec_F77='${wl}--rpath ${wl}$libdir' export_dynamic_flag_spec_F77='${wl}--export-dynamic' # ancient GNU ld didn't support --whole-archive et. al. if $LD --help 2>&1 | grep 'no-whole-archive' > /dev/null; then whole_archive_flag_spec_F77="$wlarc"'--whole-archive$convenience '"$wlarc"'--no-whole-archive' else whole_archive_flag_spec_F77= fi supports_anon_versioning=no case `$LD -v 2>/dev/null` in *\ [01].* | *\ 2.[0-9].* | *\ 2.10.*) ;; # catch versions < 2.11 *\ 2.11.93.0.2\ *) supports_anon_versioning=yes ;; # RH7.3 ... *\ 2.11.92.0.12\ *) supports_anon_versioning=yes ;; # Mandrake 8.2 ... *\ 2.11.*) ;; # other 2.11 versions *) supports_anon_versioning=yes ;; esac # See if GNU ld supports shared libraries. case $host_os in aix[3-9]*) # On AIX/PPC, the GNU linker is very broken if test "$host_cpu" != ia64; then ld_shlibs_F77=no cat <&2 *** Warning: the GNU linker, at least up to release 2.9.1, is reported *** to be unable to reliably create shared libraries on AIX. *** Therefore, libtool is disabling shared libraries support. If you *** really care for shared libraries, you may want to modify your PATH *** so that a non-GNU linker is found, and then restart. EOF fi ;; amigaos*) archive_cmds_F77='$rm $output_objdir/a2ixlibrary.data~$echo "#define NAME $libname" > $output_objdir/a2ixlibrary.data~$echo "#define LIBRARY_ID 1" >> $output_objdir/a2ixlibrary.data~$echo "#define VERSION $major" >> $output_objdir/a2ixlibrary.data~$echo "#define REVISION $revision" >> $output_objdir/a2ixlibrary.data~$AR $AR_FLAGS $lib $libobjs~$RANLIB $lib~(cd $output_objdir && a2ixlibrary -32)' hardcode_libdir_flag_spec_F77='-L$libdir' hardcode_minus_L_F77=yes # Samuel A. Falvo II reports # that the semantics of dynamic libraries on AmigaOS, at least up # to version 4, is to share data among multiple programs linked # with the same dynamic library. Since this doesn't match the # behavior of shared libraries on other platforms, we can't use # them. ld_shlibs_F77=no ;; beos*) if $LD --help 2>&1 | grep ': supported targets:.* elf' > /dev/null; then allow_undefined_flag_F77=unsupported # Joseph Beckenbach says some releases of gcc # support --undefined. This deserves some investigation. FIXME archive_cmds_F77='$CC -nostart $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib' else ld_shlibs_F77=no fi ;; cygwin* | mingw* | pw32*) # _LT_AC_TAGVAR(hardcode_libdir_flag_spec, F77) is actually meaningless, # as there is no search path for DLLs. hardcode_libdir_flag_spec_F77='-L$libdir' allow_undefined_flag_F77=unsupported always_export_symbols_F77=no enable_shared_with_static_runtimes_F77=yes export_symbols_cmds_F77='$NM $libobjs $convenience | $global_symbol_pipe | $SED -e '\''/^[BCDGRS][ ]/s/.*[ ]\([^ ]*\)/\1 DATA/'\'' -e '\''/^[AITW][ ]/s/.*[ ]//'\'' | sort | uniq > $export_symbols' if $LD --help 2>&1 | grep 'auto-import' > /dev/null; then archive_cmds_F77='$CC -shared $libobjs $deplibs $compiler_flags -o $output_objdir/$soname ${wl}--enable-auto-image-base -Xlinker --out-implib -Xlinker $lib' # If the export-symbols file already is a .def file (1st line # is EXPORTS), use it as is; otherwise, prepend... archive_expsym_cmds_F77='if test "x`$SED 1q $export_symbols`" = xEXPORTS; then cp $export_symbols $output_objdir/$soname.def; else echo EXPORTS > $output_objdir/$soname.def; cat $export_symbols >> $output_objdir/$soname.def; fi~ $CC -shared $output_objdir/$soname.def $libobjs $deplibs $compiler_flags -o $output_objdir/$soname ${wl}--enable-auto-image-base -Xlinker --out-implib -Xlinker $lib' else ld_shlibs_F77=no fi ;; interix[3-9]*) hardcode_direct_F77=no hardcode_shlibpath_var_F77=no hardcode_libdir_flag_spec_F77='${wl}-rpath,$libdir' export_dynamic_flag_spec_F77='${wl}-E' # Hack: On Interix 3.x, we cannot compile PIC because of a broken gcc. # Instead, shared libraries are loaded at an image base (0x10000000 by # default) and relocated if they conflict, which is a slow very memory # consuming and fragmenting process. To avoid this, we pick a random, # 256 KiB-aligned image base between 0x50000000 and 0x6FFC0000 at link # time. Moving up from 0x10000000 also allows more sbrk(2) space. archive_cmds_F77='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags ${wl}-h,$soname ${wl}--image-base,`expr ${RANDOM-$$} % 4096 / 2 \* 262144 + 1342177280` -o $lib' archive_expsym_cmds_F77='sed "s,^,_," $export_symbols >$output_objdir/$soname.expsym~$CC -shared $pic_flag $libobjs $deplibs $compiler_flags ${wl}-h,$soname ${wl}--retain-symbols-file,$output_objdir/$soname.expsym ${wl}--image-base,`expr ${RANDOM-$$} % 4096 / 2 \* 262144 + 1342177280` -o $lib' ;; gnu* | linux* | k*bsd*-gnu) if $LD --help 2>&1 | grep ': supported targets:.* elf' > /dev/null; then tmp_addflag= case $cc_basename,$host_cpu in pgcc*) # Portland Group C compiler whole_archive_flag_spec_F77='${wl}--whole-archive`for conv in $convenience\"\"; do test -n \"$conv\" && new_convenience=\"$new_convenience,$conv\"; done; $echo \"$new_convenience\"` ${wl}--no-whole-archive' tmp_addflag=' $pic_flag' ;; pgf77* | pgf90* | pgf95*) # Portland Group f77 and f90 compilers whole_archive_flag_spec_F77='${wl}--whole-archive`for conv in $convenience\"\"; do test -n \"$conv\" && new_convenience=\"$new_convenience,$conv\"; done; $echo \"$new_convenience\"` ${wl}--no-whole-archive' tmp_addflag=' $pic_flag -Mnomain' ;; ecc*,ia64* | icc*,ia64*) # Intel C compiler on ia64 tmp_addflag=' -i_dynamic' ;; efc*,ia64* | ifort*,ia64*) # Intel Fortran compiler on ia64 tmp_addflag=' -i_dynamic -nofor_main' ;; ifc* | ifort*) # Intel Fortran compiler tmp_addflag=' -nofor_main' ;; esac case `$CC -V 2>&1 | sed 5q` in *Sun\ C*) # Sun C 5.9 whole_archive_flag_spec_F77='${wl}--whole-archive`new_convenience=; for conv in $convenience\"\"; do test -z \"$conv\" || new_convenience=\"$new_convenience,$conv\"; done; $echo \"$new_convenience\"` ${wl}--no-whole-archive' tmp_sharedflag='-G' ;; *Sun\ F*) # Sun Fortran 8.3 tmp_sharedflag='-G' ;; *) tmp_sharedflag='-shared' ;; esac archive_cmds_F77='$CC '"$tmp_sharedflag""$tmp_addflag"' $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib' if test $supports_anon_versioning = yes; then archive_expsym_cmds_F77='$echo "{ global:" > $output_objdir/$libname.ver~ cat $export_symbols | sed -e "s/\(.*\)/\1;/" >> $output_objdir/$libname.ver~ $echo "local: *; };" >> $output_objdir/$libname.ver~ $CC '"$tmp_sharedflag""$tmp_addflag"' $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname ${wl}-version-script ${wl}$output_objdir/$libname.ver -o $lib' fi else ld_shlibs_F77=no fi ;; netbsd*) if echo __ELF__ | $CC -E - | grep __ELF__ >/dev/null; then archive_cmds_F77='$LD -Bshareable $libobjs $deplibs $linker_flags -o $lib' wlarc= else archive_cmds_F77='$CC -shared $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib' archive_expsym_cmds_F77='$CC -shared $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname ${wl}-retain-symbols-file $wl$export_symbols -o $lib' fi ;; solaris*) if $LD -v 2>&1 | grep 'BFD 2\.8' > /dev/null; then ld_shlibs_F77=no cat <&2 *** Warning: The releases 2.8.* of the GNU linker cannot reliably *** create shared libraries on Solaris systems. Therefore, libtool *** is disabling shared libraries support. We urge you to upgrade GNU *** binutils to release 2.9.1 or newer. Another option is to modify *** your PATH or compiler configuration so that the native linker is *** used, and then restart. EOF elif $LD --help 2>&1 | grep ': supported targets:.* elf' > /dev/null; then archive_cmds_F77='$CC -shared $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib' archive_expsym_cmds_F77='$CC -shared $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname ${wl}-retain-symbols-file $wl$export_symbols -o $lib' else ld_shlibs_F77=no fi ;; sysv5* | sco3.2v5* | sco5v6* | unixware* | OpenUNIX*) case `$LD -v 2>&1` in *\ [01].* | *\ 2.[0-9].* | *\ 2.1[0-5].*) ld_shlibs_F77=no cat <<_LT_EOF 1>&2 *** Warning: Releases of the GNU linker prior to 2.16.91.0.3 can not *** reliably create shared libraries on SCO systems. Therefore, libtool *** is disabling shared libraries support. We urge you to upgrade GNU *** binutils to release 2.16.91.0.3 or newer. Another option is to modify *** your PATH or compiler configuration so that the native linker is *** used, and then restart. _LT_EOF ;; *) if $LD --help 2>&1 | grep ': supported targets:.* elf' > /dev/null; then hardcode_libdir_flag_spec_F77='`test -z "$SCOABSPATH" && echo ${wl}-rpath,$libdir`' archive_cmds_F77='$CC -shared $libobjs $deplibs $compiler_flags ${wl}-soname,\${SCOABSPATH:+${install_libdir}/}$soname -o $lib' archive_expsym_cmds_F77='$CC -shared $libobjs $deplibs $compiler_flags ${wl}-soname,\${SCOABSPATH:+${install_libdir}/}$soname,-retain-symbols-file,$export_symbols -o $lib' else ld_shlibs_F77=no fi ;; esac ;; sunos4*) archive_cmds_F77='$LD -assert pure-text -Bshareable -o $lib $libobjs $deplibs $linker_flags' wlarc= hardcode_direct_F77=yes hardcode_shlibpath_var_F77=no ;; *) if $LD --help 2>&1 | grep ': supported targets:.* elf' > /dev/null; then archive_cmds_F77='$CC -shared $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib' archive_expsym_cmds_F77='$CC -shared $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname ${wl}-retain-symbols-file $wl$export_symbols -o $lib' else ld_shlibs_F77=no fi ;; esac if test "$ld_shlibs_F77" = no; then runpath_var= hardcode_libdir_flag_spec_F77= export_dynamic_flag_spec_F77= whole_archive_flag_spec_F77= fi else # PORTME fill in a description of your system's linker (not GNU ld) case $host_os in aix3*) allow_undefined_flag_F77=unsupported always_export_symbols_F77=yes archive_expsym_cmds_F77='$LD -o $output_objdir/$soname $libobjs $deplibs $linker_flags -bE:$export_symbols -T512 -H512 -bM:SRE~$AR $AR_FLAGS $lib $output_objdir/$soname' # Note: this linker hardcodes the directories in LIBPATH if there # are no directories specified by -L. hardcode_minus_L_F77=yes if test "$GCC" = yes && test -z "$lt_prog_compiler_static"; then # Neither direct hardcoding nor static linking is supported with a # broken collect2. hardcode_direct_F77=unsupported fi ;; aix[4-9]*) if test "$host_cpu" = ia64; then # On IA64, the linker does run time linking by default, so we don't # have to do anything special. aix_use_runtimelinking=no exp_sym_flag='-Bexport' no_entry_flag="" else # If we're using GNU nm, then we don't want the "-C" option. # -C means demangle to AIX nm, but means don't demangle with GNU nm if $NM -V 2>&1 | grep 'GNU' > /dev/null; then export_symbols_cmds_F77='$NM -Bpg $libobjs $convenience | awk '\''{ if (((\$2 == "T") || (\$2 == "D") || (\$2 == "B")) && (substr(\$3,1,1) != ".")) { print \$3 } }'\'' | sort -u > $export_symbols' else export_symbols_cmds_F77='$NM -BCpg $libobjs $convenience | awk '\''{ if (((\$2 == "T") || (\$2 == "D") || (\$2 == "B")) && (substr(\$3,1,1) != ".")) { print \$3 } }'\'' | sort -u > $export_symbols' fi aix_use_runtimelinking=no # Test if we are trying to use run time linking or normal # AIX style linking. If -brtl is somewhere in LDFLAGS, we # need to do runtime linking. case $host_os in aix4.[23]|aix4.[23].*|aix[5-9]*) for ld_flag in $LDFLAGS; do if (test $ld_flag = "-brtl" || test $ld_flag = "-Wl,-brtl"); then aix_use_runtimelinking=yes break fi done ;; esac exp_sym_flag='-bexport' no_entry_flag='-bnoentry' fi # When large executables or shared objects are built, AIX ld can # have problems creating the table of contents. If linking a library # or program results in "error TOC overflow" add -mminimal-toc to # CXXFLAGS/CFLAGS for g++/gcc. In the cases where that is not # enough to fix the problem, add -Wl,-bbigtoc to LDFLAGS. archive_cmds_F77='' hardcode_direct_F77=yes hardcode_libdir_separator_F77=':' link_all_deplibs_F77=yes if test "$GCC" = yes; then case $host_os in aix4.[012]|aix4.[012].*) # We only want to do this on AIX 4.2 and lower, the check # below for broken collect2 doesn't work under 4.3+ collect2name=`${CC} -print-prog-name=collect2` if test -f "$collect2name" && \ strings "$collect2name" | grep resolve_lib_name >/dev/null then # We have reworked collect2 : else # We have old collect2 hardcode_direct_F77=unsupported # It fails to find uninstalled libraries when the uninstalled # path is not listed in the libpath. Setting hardcode_minus_L # to unsupported forces relinking hardcode_minus_L_F77=yes hardcode_libdir_flag_spec_F77='-L$libdir' hardcode_libdir_separator_F77= fi ;; esac shared_flag='-shared' if test "$aix_use_runtimelinking" = yes; then shared_flag="$shared_flag "'${wl}-G' fi else # not using gcc if test "$host_cpu" = ia64; then # VisualAge C++, Version 5.5 for AIX 5L for IA-64, Beta 3 Release # chokes on -Wl,-G. The following line is correct: shared_flag='-G' else if test "$aix_use_runtimelinking" = yes; then shared_flag='${wl}-G' else shared_flag='${wl}-bM:SRE' fi fi fi # It seems that -bexpall does not export symbols beginning with # underscore (_), so it is better to generate a list of symbols to export. always_export_symbols_F77=yes if test "$aix_use_runtimelinking" = yes; then # Warning - without using the other runtime loading flags (-brtl), # -berok will link without error, but may produce a broken library. allow_undefined_flag_F77='-berok' # Determine the default libpath from the value encoded in an empty executable. cat >conftest.$ac_ext <<_ACEOF program main end _ACEOF rm -f conftest.$ac_objext conftest$ac_exeext if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5 (eval $ac_link) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { ac_try='test -z "$ac_f77_werror_flag" || test ! -s conftest.err' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; } && { ac_try='test -s conftest$ac_exeext' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then lt_aix_libpath_sed=' /Import File Strings/,/^$/ { /^0/ { s/^0 *\(.*\)$/\1/ p } }' aix_libpath=`dump -H conftest$ac_exeext 2>/dev/null | $SED -n -e "$lt_aix_libpath_sed"` # Check for a 64-bit object if we didn't find anything. if test -z "$aix_libpath"; then aix_libpath=`dump -HX64 conftest$ac_exeext 2>/dev/null | $SED -n -e "$lt_aix_libpath_sed"` fi else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 fi rm -f conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext if test -z "$aix_libpath"; then aix_libpath="/usr/lib:/lib"; fi hardcode_libdir_flag_spec_F77='${wl}-blibpath:$libdir:'"$aix_libpath" archive_expsym_cmds_F77="\$CC"' -o $output_objdir/$soname $libobjs $deplibs '"\${wl}$no_entry_flag"' $compiler_flags `if test "x${allow_undefined_flag}" != "x"; then echo "${wl}${allow_undefined_flag}"; else :; fi` '"\${wl}$exp_sym_flag:\$export_symbols $shared_flag" else if test "$host_cpu" = ia64; then hardcode_libdir_flag_spec_F77='${wl}-R $libdir:/usr/lib:/lib' allow_undefined_flag_F77="-z nodefs" archive_expsym_cmds_F77="\$CC $shared_flag"' -o $output_objdir/$soname $libobjs $deplibs '"\${wl}$no_entry_flag"' $compiler_flags ${wl}${allow_undefined_flag} '"\${wl}$exp_sym_flag:\$export_symbols" else # Determine the default libpath from the value encoded in an empty executable. cat >conftest.$ac_ext <<_ACEOF program main end _ACEOF rm -f conftest.$ac_objext conftest$ac_exeext if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5 (eval $ac_link) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { ac_try='test -z "$ac_f77_werror_flag" || test ! -s conftest.err' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; } && { ac_try='test -s conftest$ac_exeext' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then lt_aix_libpath_sed=' /Import File Strings/,/^$/ { /^0/ { s/^0 *\(.*\)$/\1/ p } }' aix_libpath=`dump -H conftest$ac_exeext 2>/dev/null | $SED -n -e "$lt_aix_libpath_sed"` # Check for a 64-bit object if we didn't find anything. if test -z "$aix_libpath"; then aix_libpath=`dump -HX64 conftest$ac_exeext 2>/dev/null | $SED -n -e "$lt_aix_libpath_sed"` fi else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 fi rm -f conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext if test -z "$aix_libpath"; then aix_libpath="/usr/lib:/lib"; fi hardcode_libdir_flag_spec_F77='${wl}-blibpath:$libdir:'"$aix_libpath" # Warning - without using the other run time loading flags, # -berok will link without error, but may produce a broken library. no_undefined_flag_F77=' ${wl}-bernotok' allow_undefined_flag_F77=' ${wl}-berok' # Exported symbols can be pulled into shared objects from archives whole_archive_flag_spec_F77='$convenience' archive_cmds_need_lc_F77=yes # This is similar to how AIX traditionally builds its shared libraries. archive_expsym_cmds_F77="\$CC $shared_flag"' -o $output_objdir/$soname $libobjs $deplibs ${wl}-bnoentry $compiler_flags ${wl}-bE:$export_symbols${allow_undefined_flag}~$AR $AR_FLAGS $output_objdir/$libname$release.a $output_objdir/$soname' fi fi ;; amigaos*) archive_cmds_F77='$rm $output_objdir/a2ixlibrary.data~$echo "#define NAME $libname" > $output_objdir/a2ixlibrary.data~$echo "#define LIBRARY_ID 1" >> $output_objdir/a2ixlibrary.data~$echo "#define VERSION $major" >> $output_objdir/a2ixlibrary.data~$echo "#define REVISION $revision" >> $output_objdir/a2ixlibrary.data~$AR $AR_FLAGS $lib $libobjs~$RANLIB $lib~(cd $output_objdir && a2ixlibrary -32)' hardcode_libdir_flag_spec_F77='-L$libdir' hardcode_minus_L_F77=yes # see comment about different semantics on the GNU ld section ld_shlibs_F77=no ;; bsdi[45]*) export_dynamic_flag_spec_F77=-rdynamic ;; cygwin* | mingw* | pw32*) # When not using gcc, we currently assume that we are using # Microsoft Visual C++. # hardcode_libdir_flag_spec is actually meaningless, as there is # no search path for DLLs. hardcode_libdir_flag_spec_F77=' ' allow_undefined_flag_F77=unsupported # Tell ltmain to make .lib files, not .a files. libext=lib # Tell ltmain to make .dll files, not .so files. shrext_cmds=".dll" # FIXME: Setting linknames here is a bad hack. archive_cmds_F77='$CC -o $lib $libobjs $compiler_flags `echo "$deplibs" | $SED -e '\''s/ -lc$//'\''` -link -dll~linknames=' # The linker will automatically build a .lib file if we build a DLL. old_archive_From_new_cmds_F77='true' # FIXME: Should let the user specify the lib program. old_archive_cmds_F77='lib -OUT:$oldlib$oldobjs$old_deplibs' fix_srcfile_path_F77='`cygpath -w "$srcfile"`' enable_shared_with_static_runtimes_F77=yes ;; darwin* | rhapsody*) case $host_os in rhapsody* | darwin1.[012]) allow_undefined_flag_F77='${wl}-undefined ${wl}suppress' ;; *) # Darwin 1.3 on if test -z ${MACOSX_DEPLOYMENT_TARGET} ; then allow_undefined_flag_F77='${wl}-flat_namespace ${wl}-undefined ${wl}suppress' else case ${MACOSX_DEPLOYMENT_TARGET} in 10.[012]) allow_undefined_flag_F77='${wl}-flat_namespace ${wl}-undefined ${wl}suppress' ;; 10.*) allow_undefined_flag_F77='${wl}-undefined ${wl}dynamic_lookup' ;; esac fi ;; esac archive_cmds_need_lc_F77=no hardcode_direct_F77=no hardcode_automatic_F77=yes hardcode_shlibpath_var_F77=unsupported whole_archive_flag_spec_F77='' link_all_deplibs_F77=yes if test "$GCC" = yes ; then output_verbose_link_cmd='echo' archive_cmds_F77="\$CC -dynamiclib \$allow_undefined_flag -o \$lib \$libobjs \$deplibs \$compiler_flags -install_name \$rpath/\$soname \$verstring $_lt_dar_single_mod${_lt_dsymutil}" module_cmds_F77="\$CC \$allow_undefined_flag -o \$lib -bundle \$libobjs \$deplibs \$compiler_flags${_lt_dsymutil}" archive_expsym_cmds_F77="sed 's,^,_,' < \$export_symbols > \$output_objdir/\${libname}-symbols.expsym~\$CC -dynamiclib \$allow_undefined_flag -o \$lib \$libobjs \$deplibs \$compiler_flags -install_name \$rpath/\$soname \$verstring ${_lt_dar_single_mod}${_lt_dar_export_syms}${_lt_dsymutil}" module_expsym_cmds_F77="sed -e 's,^,_,' < \$export_symbols > \$output_objdir/\${libname}-symbols.expsym~\$CC \$allow_undefined_flag -o \$lib -bundle \$libobjs \$deplibs \$compiler_flags${_lt_dar_export_syms}${_lt_dsymutil}" else case $cc_basename in xlc*) output_verbose_link_cmd='echo' archive_cmds_F77='$CC -qmkshrobj $allow_undefined_flag -o $lib $libobjs $deplibs $compiler_flags ${wl}-install_name ${wl}`echo $rpath/$soname` $xlcverstring' module_cmds_F77='$CC $allow_undefined_flag -o $lib -bundle $libobjs $deplibs$compiler_flags' # Don't fix this by using the ld -exported_symbols_list flag, it doesn't exist in older darwin lds archive_expsym_cmds_F77='sed -e "s,#.*,," -e "s,^[ ]*,," -e "s,^\(..*\),_&," < $export_symbols > $output_objdir/${libname}-symbols.expsym~$CC -qmkshrobj $allow_undefined_flag -o $lib $libobjs $deplibs $compiler_flags ${wl}-install_name ${wl}$rpath/$soname $xlcverstring~nmedit -s $output_objdir/${libname}-symbols.expsym ${lib}' module_expsym_cmds_F77='sed -e "s,#.*,," -e "s,^[ ]*,," -e "s,^\(..*\),_&," < $export_symbols > $output_objdir/${libname}-symbols.expsym~$CC $allow_undefined_flag -o $lib -bundle $libobjs $deplibs$compiler_flags~nmedit -s $output_objdir/${libname}-symbols.expsym ${lib}' ;; *) ld_shlibs_F77=no ;; esac fi ;; dgux*) archive_cmds_F77='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags' hardcode_libdir_flag_spec_F77='-L$libdir' hardcode_shlibpath_var_F77=no ;; freebsd1*) ld_shlibs_F77=no ;; # FreeBSD 2.2.[012] allows us to include c++rt0.o to get C++ constructor # support. Future versions do this automatically, but an explicit c++rt0.o # does not break anything, and helps significantly (at the cost of a little # extra space). freebsd2.2*) archive_cmds_F77='$LD -Bshareable -o $lib $libobjs $deplibs $linker_flags /usr/lib/c++rt0.o' hardcode_libdir_flag_spec_F77='-R$libdir' hardcode_direct_F77=yes hardcode_shlibpath_var_F77=no ;; # Unfortunately, older versions of FreeBSD 2 do not have this feature. freebsd2*) archive_cmds_F77='$LD -Bshareable -o $lib $libobjs $deplibs $linker_flags' hardcode_direct_F77=yes hardcode_minus_L_F77=yes hardcode_shlibpath_var_F77=no ;; # FreeBSD 3 and greater uses gcc -shared to do shared libraries. freebsd* | dragonfly*) archive_cmds_F77='$CC -shared -o $lib $libobjs $deplibs $compiler_flags' hardcode_libdir_flag_spec_F77='-R$libdir' hardcode_direct_F77=yes hardcode_shlibpath_var_F77=no ;; hpux9*) if test "$GCC" = yes; then archive_cmds_F77='$rm $output_objdir/$soname~$CC -shared -fPIC ${wl}+b ${wl}$install_libdir -o $output_objdir/$soname $libobjs $deplibs $compiler_flags~test $output_objdir/$soname = $lib || mv $output_objdir/$soname $lib' else archive_cmds_F77='$rm $output_objdir/$soname~$LD -b +b $install_libdir -o $output_objdir/$soname $libobjs $deplibs $linker_flags~test $output_objdir/$soname = $lib || mv $output_objdir/$soname $lib' fi hardcode_libdir_flag_spec_F77='${wl}+b ${wl}$libdir' hardcode_libdir_separator_F77=: hardcode_direct_F77=yes # hardcode_minus_L: Not really in the search PATH, # but as the default location of the library. hardcode_minus_L_F77=yes export_dynamic_flag_spec_F77='${wl}-E' ;; hpux10*) if test "$GCC" = yes -a "$with_gnu_ld" = no; then archive_cmds_F77='$CC -shared -fPIC ${wl}+h ${wl}$soname ${wl}+b ${wl}$install_libdir -o $lib $libobjs $deplibs $compiler_flags' else archive_cmds_F77='$LD -b +h $soname +b $install_libdir -o $lib $libobjs $deplibs $linker_flags' fi if test "$with_gnu_ld" = no; then hardcode_libdir_flag_spec_F77='${wl}+b ${wl}$libdir' hardcode_libdir_separator_F77=: hardcode_direct_F77=yes export_dynamic_flag_spec_F77='${wl}-E' # hardcode_minus_L: Not really in the search PATH, # but as the default location of the library. hardcode_minus_L_F77=yes fi ;; hpux11*) if test "$GCC" = yes -a "$with_gnu_ld" = no; then case $host_cpu in hppa*64*) archive_cmds_F77='$CC -shared ${wl}+h ${wl}$soname -o $lib $libobjs $deplibs $compiler_flags' ;; ia64*) archive_cmds_F77='$CC -shared ${wl}+h ${wl}$soname ${wl}+nodefaultrpath -o $lib $libobjs $deplibs $compiler_flags' ;; *) archive_cmds_F77='$CC -shared -fPIC ${wl}+h ${wl}$soname ${wl}+b ${wl}$install_libdir -o $lib $libobjs $deplibs $compiler_flags' ;; esac else case $host_cpu in hppa*64*) archive_cmds_F77='$CC -b ${wl}+h ${wl}$soname -o $lib $libobjs $deplibs $compiler_flags' ;; ia64*) archive_cmds_F77='$CC -b ${wl}+h ${wl}$soname ${wl}+nodefaultrpath -o $lib $libobjs $deplibs $compiler_flags' ;; *) archive_cmds_F77='$CC -b ${wl}+h ${wl}$soname ${wl}+b ${wl}$install_libdir -o $lib $libobjs $deplibs $compiler_flags' ;; esac fi if test "$with_gnu_ld" = no; then hardcode_libdir_flag_spec_F77='${wl}+b ${wl}$libdir' hardcode_libdir_separator_F77=: case $host_cpu in hppa*64*|ia64*) hardcode_libdir_flag_spec_ld_F77='+b $libdir' hardcode_direct_F77=no hardcode_shlibpath_var_F77=no ;; *) hardcode_direct_F77=yes export_dynamic_flag_spec_F77='${wl}-E' # hardcode_minus_L: Not really in the search PATH, # but as the default location of the library. hardcode_minus_L_F77=yes ;; esac fi ;; irix5* | irix6* | nonstopux*) if test "$GCC" = yes; then archive_cmds_F77='$CC -shared $libobjs $deplibs $compiler_flags ${wl}-soname ${wl}$soname `test -n "$verstring" && echo ${wl}-set_version ${wl}$verstring` ${wl}-update_registry ${wl}${output_objdir}/so_locations -o $lib' else archive_cmds_F77='$LD -shared $libobjs $deplibs $linker_flags -soname $soname `test -n "$verstring" && echo -set_version $verstring` -update_registry ${output_objdir}/so_locations -o $lib' hardcode_libdir_flag_spec_ld_F77='-rpath $libdir' fi hardcode_libdir_flag_spec_F77='${wl}-rpath ${wl}$libdir' hardcode_libdir_separator_F77=: link_all_deplibs_F77=yes ;; netbsd*) if echo __ELF__ | $CC -E - | grep __ELF__ >/dev/null; then archive_cmds_F77='$LD -Bshareable -o $lib $libobjs $deplibs $linker_flags' # a.out else archive_cmds_F77='$LD -shared -o $lib $libobjs $deplibs $linker_flags' # ELF fi hardcode_libdir_flag_spec_F77='-R$libdir' hardcode_direct_F77=yes hardcode_shlibpath_var_F77=no ;; newsos6) archive_cmds_F77='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags' hardcode_direct_F77=yes hardcode_libdir_flag_spec_F77='${wl}-rpath ${wl}$libdir' hardcode_libdir_separator_F77=: hardcode_shlibpath_var_F77=no ;; openbsd*) if test -f /usr/libexec/ld.so; then hardcode_direct_F77=yes hardcode_shlibpath_var_F77=no if test -z "`echo __ELF__ | $CC -E - | grep __ELF__`" || test "$host_os-$host_cpu" = "openbsd2.8-powerpc"; then archive_cmds_F77='$CC -shared $pic_flag -o $lib $libobjs $deplibs $compiler_flags' archive_expsym_cmds_F77='$CC -shared $pic_flag -o $lib $libobjs $deplibs $compiler_flags ${wl}-retain-symbols-file,$export_symbols' hardcode_libdir_flag_spec_F77='${wl}-rpath,$libdir' export_dynamic_flag_spec_F77='${wl}-E' else case $host_os in openbsd[01].* | openbsd2.[0-7] | openbsd2.[0-7].*) archive_cmds_F77='$LD -Bshareable -o $lib $libobjs $deplibs $linker_flags' hardcode_libdir_flag_spec_F77='-R$libdir' ;; *) archive_cmds_F77='$CC -shared $pic_flag -o $lib $libobjs $deplibs $compiler_flags' hardcode_libdir_flag_spec_F77='${wl}-rpath,$libdir' ;; esac fi else ld_shlibs_F77=no fi ;; os2*) hardcode_libdir_flag_spec_F77='-L$libdir' hardcode_minus_L_F77=yes allow_undefined_flag_F77=unsupported archive_cmds_F77='$echo "LIBRARY $libname INITINSTANCE" > $output_objdir/$libname.def~$echo "DESCRIPTION \"$libname\"" >> $output_objdir/$libname.def~$echo DATA >> $output_objdir/$libname.def~$echo " SINGLE NONSHARED" >> $output_objdir/$libname.def~$echo EXPORTS >> $output_objdir/$libname.def~emxexp $libobjs >> $output_objdir/$libname.def~$CC -Zdll -Zcrtdll -o $lib $libobjs $deplibs $compiler_flags $output_objdir/$libname.def' old_archive_From_new_cmds_F77='emximp -o $output_objdir/$libname.a $output_objdir/$libname.def' ;; osf3*) if test "$GCC" = yes; then allow_undefined_flag_F77=' ${wl}-expect_unresolved ${wl}\*' archive_cmds_F77='$CC -shared${allow_undefined_flag} $libobjs $deplibs $compiler_flags ${wl}-soname ${wl}$soname `test -n "$verstring" && echo ${wl}-set_version ${wl}$verstring` ${wl}-update_registry ${wl}${output_objdir}/so_locations -o $lib' else allow_undefined_flag_F77=' -expect_unresolved \*' archive_cmds_F77='$LD -shared${allow_undefined_flag} $libobjs $deplibs $linker_flags -soname $soname `test -n "$verstring" && echo -set_version $verstring` -update_registry ${output_objdir}/so_locations -o $lib' fi hardcode_libdir_flag_spec_F77='${wl}-rpath ${wl}$libdir' hardcode_libdir_separator_F77=: ;; osf4* | osf5*) # as osf3* with the addition of -msym flag if test "$GCC" = yes; then allow_undefined_flag_F77=' ${wl}-expect_unresolved ${wl}\*' archive_cmds_F77='$CC -shared${allow_undefined_flag} $libobjs $deplibs $compiler_flags ${wl}-msym ${wl}-soname ${wl}$soname `test -n "$verstring" && echo ${wl}-set_version ${wl}$verstring` ${wl}-update_registry ${wl}${output_objdir}/so_locations -o $lib' hardcode_libdir_flag_spec_F77='${wl}-rpath ${wl}$libdir' else allow_undefined_flag_F77=' -expect_unresolved \*' archive_cmds_F77='$LD -shared${allow_undefined_flag} $libobjs $deplibs $linker_flags -msym -soname $soname `test -n "$verstring" && echo -set_version $verstring` -update_registry ${output_objdir}/so_locations -o $lib' archive_expsym_cmds_F77='for i in `cat $export_symbols`; do printf "%s %s\\n" -exported_symbol "\$i" >> $lib.exp; done; echo "-hidden">> $lib.exp~ $LD -shared${allow_undefined_flag} -input $lib.exp $linker_flags $libobjs $deplibs -soname $soname `test -n "$verstring" && echo -set_version $verstring` -update_registry ${output_objdir}/so_locations -o $lib~$rm $lib.exp' # Both c and cxx compiler support -rpath directly hardcode_libdir_flag_spec_F77='-rpath $libdir' fi hardcode_libdir_separator_F77=: ;; solaris*) no_undefined_flag_F77=' -z text' if test "$GCC" = yes; then wlarc='${wl}' archive_cmds_F77='$CC -shared ${wl}-h ${wl}$soname -o $lib $libobjs $deplibs $compiler_flags' archive_expsym_cmds_F77='$echo "{ global:" > $lib.exp~cat $export_symbols | $SED -e "s/\(.*\)/\1;/" >> $lib.exp~$echo "local: *; };" >> $lib.exp~ $CC -shared ${wl}-M ${wl}$lib.exp ${wl}-h ${wl}$soname -o $lib $libobjs $deplibs $compiler_flags~$rm $lib.exp' else wlarc='' archive_cmds_F77='$LD -G${allow_undefined_flag} -h $soname -o $lib $libobjs $deplibs $linker_flags' archive_expsym_cmds_F77='$echo "{ global:" > $lib.exp~cat $export_symbols | $SED -e "s/\(.*\)/\1;/" >> $lib.exp~$echo "local: *; };" >> $lib.exp~ $LD -G${allow_undefined_flag} -M $lib.exp -h $soname -o $lib $libobjs $deplibs $linker_flags~$rm $lib.exp' fi hardcode_libdir_flag_spec_F77='-R$libdir' hardcode_shlibpath_var_F77=no case $host_os in solaris2.[0-5] | solaris2.[0-5].*) ;; *) # The compiler driver will combine and reorder linker options, # but understands `-z linker_flag'. GCC discards it without `$wl', # but is careful enough not to reorder. # Supported since Solaris 2.6 (maybe 2.5.1?) if test "$GCC" = yes; then whole_archive_flag_spec_F77='${wl}-z ${wl}allextract$convenience ${wl}-z ${wl}defaultextract' else whole_archive_flag_spec_F77='-z allextract$convenience -z defaultextract' fi ;; esac link_all_deplibs_F77=yes ;; sunos4*) if test "x$host_vendor" = xsequent; then # Use $CC to link under sequent, because it throws in some extra .o # files that make .init and .fini sections work. archive_cmds_F77='$CC -G ${wl}-h $soname -o $lib $libobjs $deplibs $compiler_flags' else archive_cmds_F77='$LD -assert pure-text -Bstatic -o $lib $libobjs $deplibs $linker_flags' fi hardcode_libdir_flag_spec_F77='-L$libdir' hardcode_direct_F77=yes hardcode_minus_L_F77=yes hardcode_shlibpath_var_F77=no ;; sysv4) case $host_vendor in sni) archive_cmds_F77='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags' hardcode_direct_F77=yes # is this really true??? ;; siemens) ## LD is ld it makes a PLAMLIB ## CC just makes a GrossModule. archive_cmds_F77='$LD -G -o $lib $libobjs $deplibs $linker_flags' reload_cmds_F77='$CC -r -o $output$reload_objs' hardcode_direct_F77=no ;; motorola) archive_cmds_F77='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags' hardcode_direct_F77=no #Motorola manual says yes, but my tests say they lie ;; esac runpath_var='LD_RUN_PATH' hardcode_shlibpath_var_F77=no ;; sysv4.3*) archive_cmds_F77='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags' hardcode_shlibpath_var_F77=no export_dynamic_flag_spec_F77='-Bexport' ;; sysv4*MP*) if test -d /usr/nec; then archive_cmds_F77='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags' hardcode_shlibpath_var_F77=no runpath_var=LD_RUN_PATH hardcode_runpath_var=yes ld_shlibs_F77=yes fi ;; sysv4*uw2* | sysv5OpenUNIX* | sysv5UnixWare7.[01].[10]* | unixware7* | sco3.2v5.0.[024]*) no_undefined_flag_F77='${wl}-z,text' archive_cmds_need_lc_F77=no hardcode_shlibpath_var_F77=no runpath_var='LD_RUN_PATH' if test "$GCC" = yes; then archive_cmds_F77='$CC -shared ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags' archive_expsym_cmds_F77='$CC -shared ${wl}-Bexport:$export_symbols ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags' else archive_cmds_F77='$CC -G ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags' archive_expsym_cmds_F77='$CC -G ${wl}-Bexport:$export_symbols ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags' fi ;; sysv5* | sco3.2v5* | sco5v6*) # Note: We can NOT use -z defs as we might desire, because we do not # link with -lc, and that would cause any symbols used from libc to # always be unresolved, which means just about no library would # ever link correctly. If we're not using GNU ld we use -z text # though, which does catch some bad symbols but isn't as heavy-handed # as -z defs. no_undefined_flag_F77='${wl}-z,text' allow_undefined_flag_F77='${wl}-z,nodefs' archive_cmds_need_lc_F77=no hardcode_shlibpath_var_F77=no hardcode_libdir_flag_spec_F77='`test -z "$SCOABSPATH" && echo ${wl}-R,$libdir`' hardcode_libdir_separator_F77=':' link_all_deplibs_F77=yes export_dynamic_flag_spec_F77='${wl}-Bexport' runpath_var='LD_RUN_PATH' if test "$GCC" = yes; then archive_cmds_F77='$CC -shared ${wl}-h,\${SCOABSPATH:+${install_libdir}/}$soname -o $lib $libobjs $deplibs $compiler_flags' archive_expsym_cmds_F77='$CC -shared ${wl}-Bexport:$export_symbols ${wl}-h,\${SCOABSPATH:+${install_libdir}/}$soname -o $lib $libobjs $deplibs $compiler_flags' else archive_cmds_F77='$CC -G ${wl}-h,\${SCOABSPATH:+${install_libdir}/}$soname -o $lib $libobjs $deplibs $compiler_flags' archive_expsym_cmds_F77='$CC -G ${wl}-Bexport:$export_symbols ${wl}-h,\${SCOABSPATH:+${install_libdir}/}$soname -o $lib $libobjs $deplibs $compiler_flags' fi ;; uts4*) archive_cmds_F77='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags' hardcode_libdir_flag_spec_F77='-L$libdir' hardcode_shlibpath_var_F77=no ;; *) ld_shlibs_F77=no ;; esac fi echo "$as_me:$LINENO: result: $ld_shlibs_F77" >&5 echo "${ECHO_T}$ld_shlibs_F77" >&6 test "$ld_shlibs_F77" = no && can_build_shared=no # # Do we need to explicitly link libc? # case "x$archive_cmds_need_lc_F77" in x|xyes) # Assume -lc should be added archive_cmds_need_lc_F77=yes if test "$enable_shared" = yes && test "$GCC" = yes; then case $archive_cmds_F77 in *'~'*) # FIXME: we may have to deal with multi-command sequences. ;; '$CC '*) # Test whether the compiler implicitly links with -lc since on some # systems, -lgcc has to come before -lc. If gcc already passes -lc # to ld, don't add -lc before -lgcc. echo "$as_me:$LINENO: checking whether -lc should be explicitly linked in" >&5 echo $ECHO_N "checking whether -lc should be explicitly linked in... $ECHO_C" >&6 $rm conftest* echo "$lt_simple_compile_test_code" > conftest.$ac_ext if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 (eval $ac_compile) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } 2>conftest.err; then soname=conftest lib=conftest libobjs=conftest.$ac_objext deplibs= wl=$lt_prog_compiler_wl_F77 pic_flag=$lt_prog_compiler_pic_F77 compiler_flags=-v linker_flags=-v verstring= output_objdir=. libname=conftest lt_save_allow_undefined_flag=$allow_undefined_flag_F77 allow_undefined_flag_F77= if { (eval echo "$as_me:$LINENO: \"$archive_cmds_F77 2\>\&1 \| grep \" -lc \" \>/dev/null 2\>\&1\"") >&5 (eval $archive_cmds_F77 2\>\&1 \| grep \" -lc \" \>/dev/null 2\>\&1) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } then archive_cmds_need_lc_F77=no else archive_cmds_need_lc_F77=yes fi allow_undefined_flag_F77=$lt_save_allow_undefined_flag else cat conftest.err 1>&5 fi $rm conftest* echo "$as_me:$LINENO: result: $archive_cmds_need_lc_F77" >&5 echo "${ECHO_T}$archive_cmds_need_lc_F77" >&6 ;; esac fi ;; esac echo "$as_me:$LINENO: checking dynamic linker characteristics" >&5 echo $ECHO_N "checking dynamic linker characteristics... $ECHO_C" >&6 library_names_spec= libname_spec='lib$name' soname_spec= shrext_cmds=".so" postinstall_cmds= postuninstall_cmds= finish_cmds= finish_eval= shlibpath_var= shlibpath_overrides_runpath=unknown version_type=none dynamic_linker="$host_os ld.so" sys_lib_dlsearch_path_spec="/lib /usr/lib" need_lib_prefix=unknown hardcode_into_libs=no # when you set need_version to no, make sure it does not cause -set_version # flags to be left without arguments need_version=unknown case $host_os in aix3*) version_type=linux library_names_spec='${libname}${release}${shared_ext}$versuffix $libname.a' shlibpath_var=LIBPATH # AIX 3 has no versioning support, so we append a major version to the name. soname_spec='${libname}${release}${shared_ext}$major' ;; aix[4-9]*) version_type=linux need_lib_prefix=no need_version=no hardcode_into_libs=yes if test "$host_cpu" = ia64; then # AIX 5 supports IA64 library_names_spec='${libname}${release}${shared_ext}$major ${libname}${release}${shared_ext}$versuffix $libname${shared_ext}' shlibpath_var=LD_LIBRARY_PATH else # With GCC up to 2.95.x, collect2 would create an import file # for dependence libraries. The import file would start with # the line `#! .'. This would cause the generated library to # depend on `.', always an invalid library. This was fixed in # development snapshots of GCC prior to 3.0. case $host_os in aix4 | aix4.[01] | aix4.[01].*) if { echo '#if __GNUC__ > 2 || (__GNUC__ == 2 && __GNUC_MINOR__ >= 97)' echo ' yes ' echo '#endif'; } | ${CC} -E - | grep yes > /dev/null; then : else can_build_shared=no fi ;; esac # AIX (on Power*) has no versioning support, so currently we can not hardcode correct # soname into executable. Probably we can add versioning support to # collect2, so additional links can be useful in future. if test "$aix_use_runtimelinking" = yes; then # If using run time linking (on AIX 4.2 or later) use lib.so # instead of lib.a to let people know that these are not # typical AIX shared libraries. library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' else # We preserve .a as extension for shared libraries through AIX4.2 # and later when we are not doing run time linking. library_names_spec='${libname}${release}.a $libname.a' soname_spec='${libname}${release}${shared_ext}$major' fi shlibpath_var=LIBPATH fi ;; amigaos*) library_names_spec='$libname.ixlibrary $libname.a' # Create ${libname}_ixlibrary.a entries in /sys/libs. finish_eval='for lib in `ls $libdir/*.ixlibrary 2>/dev/null`; do libname=`$echo "X$lib" | $Xsed -e '\''s%^.*/\([^/]*\)\.ixlibrary$%\1%'\''`; test $rm /sys/libs/${libname}_ixlibrary.a; $show "cd /sys/libs && $LN_S $lib ${libname}_ixlibrary.a"; cd /sys/libs && $LN_S $lib ${libname}_ixlibrary.a || exit 1; done' ;; beos*) library_names_spec='${libname}${shared_ext}' dynamic_linker="$host_os ld.so" shlibpath_var=LIBRARY_PATH ;; bsdi[45]*) version_type=linux need_version=no library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' finish_cmds='PATH="\$PATH:/sbin" ldconfig $libdir' shlibpath_var=LD_LIBRARY_PATH sys_lib_search_path_spec="/shlib /usr/lib /usr/X11/lib /usr/contrib/lib /lib /usr/local/lib" sys_lib_dlsearch_path_spec="/shlib /usr/lib /usr/local/lib" # the default ld.so.conf also contains /usr/contrib/lib and # /usr/X11R6/lib (/usr/X11 is a link to /usr/X11R6), but let us allow # libtool to hard-code these into programs ;; cygwin* | mingw* | pw32*) version_type=windows shrext_cmds=".dll" need_version=no need_lib_prefix=no case $GCC,$host_os in yes,cygwin* | yes,mingw* | yes,pw32*) library_names_spec='$libname.dll.a' # DLL is installed to $(libdir)/../bin by postinstall_cmds postinstall_cmds='base_file=`basename \${file}`~ dlpath=`$SHELL 2>&1 -c '\''. $dir/'\''\${base_file}'\''i;echo \$dlname'\''`~ dldir=$destdir/`dirname \$dlpath`~ test -d \$dldir || mkdir -p \$dldir~ $install_prog $dir/$dlname \$dldir/$dlname~ chmod a+x \$dldir/$dlname' postuninstall_cmds='dldll=`$SHELL 2>&1 -c '\''. $file; echo \$dlname'\''`~ dlpath=$dir/\$dldll~ $rm \$dlpath' shlibpath_overrides_runpath=yes case $host_os in cygwin*) # Cygwin DLLs use 'cyg' prefix rather than 'lib' soname_spec='`echo ${libname} | sed -e 's/^lib/cyg/'``echo ${release} | $SED -e 's/[.]/-/g'`${versuffix}${shared_ext}' sys_lib_search_path_spec="/usr/lib /lib/w32api /lib /usr/local/lib" ;; mingw*) # MinGW DLLs use traditional 'lib' prefix soname_spec='${libname}`echo ${release} | $SED -e 's/[.]/-/g'`${versuffix}${shared_ext}' sys_lib_search_path_spec=`$CC -print-search-dirs | grep "^libraries:" | $SED -e "s/^libraries://" -e "s,=/,/,g"` if echo "$sys_lib_search_path_spec" | grep ';[c-zC-Z]:/' >/dev/null; then # It is most probably a Windows format PATH printed by # mingw gcc, but we are running on Cygwin. Gcc prints its search # path with ; separators, and with drive letters. We can handle the # drive letters (cygwin fileutils understands them), so leave them, # especially as we might pass files found there to a mingw objdump, # which wouldn't understand a cygwinified path. Ahh. sys_lib_search_path_spec=`echo "$sys_lib_search_path_spec" | $SED -e 's/;/ /g'` else sys_lib_search_path_spec=`echo "$sys_lib_search_path_spec" | $SED -e "s/$PATH_SEPARATOR/ /g"` fi ;; pw32*) # pw32 DLLs use 'pw' prefix rather than 'lib' library_names_spec='`echo ${libname} | sed -e 's/^lib/pw/'``echo ${release} | $SED -e 's/[.]/-/g'`${versuffix}${shared_ext}' ;; esac ;; *) library_names_spec='${libname}`echo ${release} | $SED -e 's/[.]/-/g'`${versuffix}${shared_ext} $libname.lib' ;; esac dynamic_linker='Win32 ld.exe' # FIXME: first we should search . and the directory the executable is in shlibpath_var=PATH ;; darwin* | rhapsody*) dynamic_linker="$host_os dyld" version_type=darwin need_lib_prefix=no need_version=no library_names_spec='${libname}${release}${versuffix}$shared_ext ${libname}${release}${major}$shared_ext ${libname}$shared_ext' soname_spec='${libname}${release}${major}$shared_ext' shlibpath_overrides_runpath=yes shlibpath_var=DYLD_LIBRARY_PATH shrext_cmds='`test .$module = .yes && echo .so || echo .dylib`' sys_lib_dlsearch_path_spec='/usr/local/lib /lib /usr/lib' ;; dgux*) version_type=linux need_lib_prefix=no need_version=no library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname$shared_ext' soname_spec='${libname}${release}${shared_ext}$major' shlibpath_var=LD_LIBRARY_PATH ;; freebsd1*) dynamic_linker=no ;; freebsd* | dragonfly*) # DragonFly does not have aout. When/if they implement a new # versioning mechanism, adjust this. if test -x /usr/bin/objformat; then objformat=`/usr/bin/objformat` else case $host_os in freebsd[123]*) objformat=aout ;; *) objformat=elf ;; esac fi version_type=freebsd-$objformat case $version_type in freebsd-elf*) library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext} $libname${shared_ext}' need_version=no need_lib_prefix=no ;; freebsd-*) library_names_spec='${libname}${release}${shared_ext}$versuffix $libname${shared_ext}$versuffix' need_version=yes ;; esac shlibpath_var=LD_LIBRARY_PATH case $host_os in freebsd2*) shlibpath_overrides_runpath=yes ;; freebsd3.[01]* | freebsdelf3.[01]*) shlibpath_overrides_runpath=yes hardcode_into_libs=yes ;; freebsd3.[2-9]* | freebsdelf3.[2-9]* | \ freebsd4.[0-5] | freebsdelf4.[0-5] | freebsd4.1.1 | freebsdelf4.1.1) shlibpath_overrides_runpath=no hardcode_into_libs=yes ;; *) # from 4.6 on, and DragonFly shlibpath_overrides_runpath=yes hardcode_into_libs=yes ;; esac ;; gnu*) version_type=linux need_lib_prefix=no need_version=no library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}${major} ${libname}${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' shlibpath_var=LD_LIBRARY_PATH hardcode_into_libs=yes ;; hpux9* | hpux10* | hpux11*) # Give a soname corresponding to the major version so that dld.sl refuses to # link against other versions. version_type=sunos need_lib_prefix=no need_version=no case $host_cpu in ia64*) shrext_cmds='.so' hardcode_into_libs=yes dynamic_linker="$host_os dld.so" shlibpath_var=LD_LIBRARY_PATH shlibpath_overrides_runpath=yes # Unless +noenvvar is specified. library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' if test "X$HPUX_IA64_MODE" = X32; then sys_lib_search_path_spec="/usr/lib/hpux32 /usr/local/lib/hpux32 /usr/local/lib" else sys_lib_search_path_spec="/usr/lib/hpux64 /usr/local/lib/hpux64" fi sys_lib_dlsearch_path_spec=$sys_lib_search_path_spec ;; hppa*64*) shrext_cmds='.sl' hardcode_into_libs=yes dynamic_linker="$host_os dld.sl" shlibpath_var=LD_LIBRARY_PATH # How should we handle SHLIB_PATH shlibpath_overrides_runpath=yes # Unless +noenvvar is specified. library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' sys_lib_search_path_spec="/usr/lib/pa20_64 /usr/ccs/lib/pa20_64" sys_lib_dlsearch_path_spec=$sys_lib_search_path_spec ;; *) shrext_cmds='.sl' dynamic_linker="$host_os dld.sl" shlibpath_var=SHLIB_PATH shlibpath_overrides_runpath=no # +s is required to enable SHLIB_PATH library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' ;; esac # HP-UX runs *really* slowly unless shared libraries are mode 555. postinstall_cmds='chmod 555 $lib' ;; interix[3-9]*) version_type=linux need_lib_prefix=no need_version=no library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major ${libname}${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' dynamic_linker='Interix 3.x ld.so.1 (PE, like ELF)' shlibpath_var=LD_LIBRARY_PATH shlibpath_overrides_runpath=no hardcode_into_libs=yes ;; irix5* | irix6* | nonstopux*) case $host_os in nonstopux*) version_type=nonstopux ;; *) if test "$lt_cv_prog_gnu_ld" = yes; then version_type=linux else version_type=irix fi ;; esac need_lib_prefix=no need_version=no soname_spec='${libname}${release}${shared_ext}$major' library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major ${libname}${release}${shared_ext} $libname${shared_ext}' case $host_os in irix5* | nonstopux*) libsuff= shlibsuff= ;; *) case $LD in # libtool.m4 will add one of these switches to LD *-32|*"-32 "|*-melf32bsmip|*"-melf32bsmip ") libsuff= shlibsuff= libmagic=32-bit;; *-n32|*"-n32 "|*-melf32bmipn32|*"-melf32bmipn32 ") libsuff=32 shlibsuff=N32 libmagic=N32;; *-64|*"-64 "|*-melf64bmip|*"-melf64bmip ") libsuff=64 shlibsuff=64 libmagic=64-bit;; *) libsuff= shlibsuff= libmagic=never-match;; esac ;; esac shlibpath_var=LD_LIBRARY${shlibsuff}_PATH shlibpath_overrides_runpath=no sys_lib_search_path_spec="/usr/lib${libsuff} /lib${libsuff} /usr/local/lib${libsuff}" sys_lib_dlsearch_path_spec="/usr/lib${libsuff} /lib${libsuff}" hardcode_into_libs=yes ;; # No shared lib support for Linux oldld, aout, or coff. linux*oldld* | linux*aout* | linux*coff*) dynamic_linker=no ;; # This must be Linux ELF. linux* | k*bsd*-gnu) version_type=linux need_lib_prefix=no need_version=no library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' finish_cmds='PATH="\$PATH:/sbin" ldconfig -n $libdir' shlibpath_var=LD_LIBRARY_PATH shlibpath_overrides_runpath=no # This implies no fast_install, which is unacceptable. # Some rework will be needed to allow for fast_install # before this can be enabled. hardcode_into_libs=yes sys_lib_search_path_spec="/usr/lib${libsuff} /lib${libsuff} /usr/local/lib${libsuff}" sys_lib_dlsearch_path_spec="/usr/lib${libsuff} /lib${libsuff}" # Append ld.so.conf contents to the search path if test -f /etc/ld.so.conf; then lt_ld_extra=`awk '/^include / { system(sprintf("cd /etc; cat %s 2>/dev/null", \$2)); skip = 1; } { if (!skip) print \$0; skip = 0; }' < /etc/ld.so.conf | $SED -e 's/#.*//;/^[ ]*hwcap[ ]/d;s/[:, ]/ /g;s/=[^=]*$//;s/=[^= ]* / /g;/^$/d' | tr '\n' ' '` sys_lib_dlsearch_path_spec="$sys_lib_dlsearch_path_spec $lt_ld_extra" fi # We used to test for /lib/ld.so.1 and disable shared libraries on # powerpc, because MkLinux only supported shared libraries with the # GNU dynamic linker. Since this was broken with cross compilers, # most powerpc-linux boxes support dynamic linking these days and # people can always --disable-shared, the test was removed, and we # assume the GNU/Linux dynamic linker is in use. dynamic_linker='GNU/Linux ld.so' ;; netbsd*) version_type=sunos need_lib_prefix=no need_version=no if echo __ELF__ | $CC -E - | grep __ELF__ >/dev/null; then library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${shared_ext}$versuffix' finish_cmds='PATH="\$PATH:/sbin" ldconfig -m $libdir' dynamic_linker='NetBSD (a.out) ld.so' else library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major ${libname}${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' dynamic_linker='NetBSD ld.elf_so' fi shlibpath_var=LD_LIBRARY_PATH shlibpath_overrides_runpath=yes hardcode_into_libs=yes ;; newsos6) version_type=linux library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' shlibpath_var=LD_LIBRARY_PATH shlibpath_overrides_runpath=yes ;; nto-qnx*) version_type=linux need_lib_prefix=no need_version=no library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' shlibpath_var=LD_LIBRARY_PATH shlibpath_overrides_runpath=yes ;; openbsd*) version_type=sunos sys_lib_dlsearch_path_spec="/usr/lib" need_lib_prefix=no # Some older versions of OpenBSD (3.3 at least) *do* need versioned libs. case $host_os in openbsd3.3 | openbsd3.3.*) need_version=yes ;; *) need_version=no ;; esac library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${shared_ext}$versuffix' finish_cmds='PATH="\$PATH:/sbin" ldconfig -m $libdir' shlibpath_var=LD_LIBRARY_PATH if test -z "`echo __ELF__ | $CC -E - | grep __ELF__`" || test "$host_os-$host_cpu" = "openbsd2.8-powerpc"; then case $host_os in openbsd2.[89] | openbsd2.[89].*) shlibpath_overrides_runpath=no ;; *) shlibpath_overrides_runpath=yes ;; esac else shlibpath_overrides_runpath=yes fi ;; os2*) libname_spec='$name' shrext_cmds=".dll" need_lib_prefix=no library_names_spec='$libname${shared_ext} $libname.a' dynamic_linker='OS/2 ld.exe' shlibpath_var=LIBPATH ;; osf3* | osf4* | osf5*) version_type=osf need_lib_prefix=no need_version=no soname_spec='${libname}${release}${shared_ext}$major' library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' shlibpath_var=LD_LIBRARY_PATH sys_lib_search_path_spec="/usr/shlib /usr/ccs/lib /usr/lib/cmplrs/cc /usr/lib /usr/local/lib /var/shlib" sys_lib_dlsearch_path_spec="$sys_lib_search_path_spec" ;; rdos*) dynamic_linker=no ;; solaris*) version_type=linux need_lib_prefix=no need_version=no library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' shlibpath_var=LD_LIBRARY_PATH shlibpath_overrides_runpath=yes hardcode_into_libs=yes # ldd complains unless libraries are executable postinstall_cmds='chmod +x $lib' ;; sunos4*) version_type=sunos library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${shared_ext}$versuffix' finish_cmds='PATH="\$PATH:/usr/etc" ldconfig $libdir' shlibpath_var=LD_LIBRARY_PATH shlibpath_overrides_runpath=yes if test "$with_gnu_ld" = yes; then need_lib_prefix=no fi need_version=yes ;; sysv4 | sysv4.3*) version_type=linux library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' shlibpath_var=LD_LIBRARY_PATH case $host_vendor in sni) shlibpath_overrides_runpath=no need_lib_prefix=no export_dynamic_flag_spec='${wl}-Blargedynsym' runpath_var=LD_RUN_PATH ;; siemens) need_lib_prefix=no ;; motorola) need_lib_prefix=no need_version=no shlibpath_overrides_runpath=no sys_lib_search_path_spec='/lib /usr/lib /usr/ccs/lib' ;; esac ;; sysv4*MP*) if test -d /usr/nec ;then version_type=linux library_names_spec='$libname${shared_ext}.$versuffix $libname${shared_ext}.$major $libname${shared_ext}' soname_spec='$libname${shared_ext}.$major' shlibpath_var=LD_LIBRARY_PATH fi ;; sysv5* | sco3.2v5* | sco5v6* | unixware* | OpenUNIX* | sysv4*uw2*) version_type=freebsd-elf need_lib_prefix=no need_version=no library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext} $libname${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' shlibpath_var=LD_LIBRARY_PATH hardcode_into_libs=yes if test "$with_gnu_ld" = yes; then sys_lib_search_path_spec='/usr/local/lib /usr/gnu/lib /usr/ccs/lib /usr/lib /lib' shlibpath_overrides_runpath=no else sys_lib_search_path_spec='/usr/ccs/lib /usr/lib' shlibpath_overrides_runpath=yes case $host_os in sco3.2v5*) sys_lib_search_path_spec="$sys_lib_search_path_spec /lib" ;; esac fi sys_lib_dlsearch_path_spec='/usr/lib' ;; uts4*) version_type=linux library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' shlibpath_var=LD_LIBRARY_PATH ;; *) dynamic_linker=no ;; esac echo "$as_me:$LINENO: result: $dynamic_linker" >&5 echo "${ECHO_T}$dynamic_linker" >&6 test "$dynamic_linker" = no && can_build_shared=no if test "${lt_cv_sys_lib_search_path_spec+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else lt_cv_sys_lib_search_path_spec="$sys_lib_search_path_spec" fi sys_lib_search_path_spec="$lt_cv_sys_lib_search_path_spec" if test "${lt_cv_sys_lib_dlsearch_path_spec+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else lt_cv_sys_lib_dlsearch_path_spec="$sys_lib_dlsearch_path_spec" fi sys_lib_dlsearch_path_spec="$lt_cv_sys_lib_dlsearch_path_spec" variables_saved_for_relink="PATH $shlibpath_var $runpath_var" if test "$GCC" = yes; then variables_saved_for_relink="$variables_saved_for_relink GCC_EXEC_PREFIX COMPILER_PATH LIBRARY_PATH" fi echo "$as_me:$LINENO: checking how to hardcode library paths into programs" >&5 echo $ECHO_N "checking how to hardcode library paths into programs... $ECHO_C" >&6 hardcode_action_F77= if test -n "$hardcode_libdir_flag_spec_F77" || \ test -n "$runpath_var_F77" || \ test "X$hardcode_automatic_F77" = "Xyes" ; then # We can hardcode non-existant directories. if test "$hardcode_direct_F77" != no && # If the only mechanism to avoid hardcoding is shlibpath_var, we # have to relink, otherwise we might link with an installed library # when we should be linking with a yet-to-be-installed one ## test "$_LT_AC_TAGVAR(hardcode_shlibpath_var, F77)" != no && test "$hardcode_minus_L_F77" != no; then # Linking always hardcodes the temporary library directory. hardcode_action_F77=relink else # We can link without hardcoding, and we can hardcode nonexisting dirs. hardcode_action_F77=immediate fi else # We cannot hardcode anything, or else we can only hardcode existing # directories. hardcode_action_F77=unsupported fi echo "$as_me:$LINENO: result: $hardcode_action_F77" >&5 echo "${ECHO_T}$hardcode_action_F77" >&6 if test "$hardcode_action_F77" = relink; then # Fast installation is not supported enable_fast_install=no elif test "$shlibpath_overrides_runpath" = yes || test "$enable_shared" = no; then # Fast installation is not necessary enable_fast_install=needless fi # The else clause should only fire when bootstrapping the # libtool distribution, otherwise you forgot to ship ltmain.sh # with your package, and you will get complaints that there are # no rules to generate ltmain.sh. if test -f "$ltmain"; then # See if we are running on zsh, and set the options which allow our commands through # without removal of \ escapes. if test -n "${ZSH_VERSION+set}" ; then setopt NO_GLOB_SUBST fi # Now quote all the things that may contain metacharacters while being # careful not to overquote the AC_SUBSTed values. We take copies of the # variables and quote the copies for generation of the libtool script. for var in echo old_CC old_CFLAGS AR AR_FLAGS EGREP RANLIB LN_S LTCC LTCFLAGS NM \ SED SHELL STRIP \ libname_spec library_names_spec soname_spec extract_expsyms_cmds \ old_striplib striplib file_magic_cmd finish_cmds finish_eval \ deplibs_check_method reload_flag reload_cmds need_locks \ lt_cv_sys_global_symbol_pipe lt_cv_sys_global_symbol_to_cdecl \ lt_cv_sys_global_symbol_to_c_name_address \ sys_lib_search_path_spec sys_lib_dlsearch_path_spec \ old_postinstall_cmds old_postuninstall_cmds \ compiler_F77 \ CC_F77 \ LD_F77 \ lt_prog_compiler_wl_F77 \ lt_prog_compiler_pic_F77 \ lt_prog_compiler_static_F77 \ lt_prog_compiler_no_builtin_flag_F77 \ export_dynamic_flag_spec_F77 \ thread_safe_flag_spec_F77 \ whole_archive_flag_spec_F77 \ enable_shared_with_static_runtimes_F77 \ old_archive_cmds_F77 \ old_archive_from_new_cmds_F77 \ predep_objects_F77 \ postdep_objects_F77 \ predeps_F77 \ postdeps_F77 \ compiler_lib_search_path_F77 \ compiler_lib_search_dirs_F77 \ archive_cmds_F77 \ archive_expsym_cmds_F77 \ postinstall_cmds_F77 \ postuninstall_cmds_F77 \ old_archive_from_expsyms_cmds_F77 \ allow_undefined_flag_F77 \ no_undefined_flag_F77 \ export_symbols_cmds_F77 \ hardcode_libdir_flag_spec_F77 \ hardcode_libdir_flag_spec_ld_F77 \ hardcode_libdir_separator_F77 \ hardcode_automatic_F77 \ module_cmds_F77 \ module_expsym_cmds_F77 \ lt_cv_prog_compiler_c_o_F77 \ fix_srcfile_path_F77 \ exclude_expsyms_F77 \ include_expsyms_F77; do case $var in old_archive_cmds_F77 | \ old_archive_from_new_cmds_F77 | \ archive_cmds_F77 | \ archive_expsym_cmds_F77 | \ module_cmds_F77 | \ module_expsym_cmds_F77 | \ old_archive_from_expsyms_cmds_F77 | \ export_symbols_cmds_F77 | \ extract_expsyms_cmds | reload_cmds | finish_cmds | \ postinstall_cmds | postuninstall_cmds | \ old_postinstall_cmds | old_postuninstall_cmds | \ sys_lib_search_path_spec | sys_lib_dlsearch_path_spec) # Double-quote double-evaled strings. eval "lt_$var=\\\"\`\$echo \"X\$$var\" | \$Xsed -e \"\$double_quote_subst\" -e \"\$sed_quote_subst\" -e \"\$delay_variable_subst\"\`\\\"" ;; *) eval "lt_$var=\\\"\`\$echo \"X\$$var\" | \$Xsed -e \"\$sed_quote_subst\"\`\\\"" ;; esac done case $lt_echo in *'\$0 --fallback-echo"') lt_echo=`$echo "X$lt_echo" | $Xsed -e 's/\\\\\\\$0 --fallback-echo"$/$0 --fallback-echo"/'` ;; esac cfgfile="$ofile" cat <<__EOF__ >> "$cfgfile" # ### BEGIN LIBTOOL TAG CONFIG: $tagname # Libtool was configured on host `(hostname || uname -n) 2>/dev/null | sed 1q`: # Shell to use when invoking shell scripts. SHELL=$lt_SHELL # Whether or not to build shared libraries. build_libtool_libs=$enable_shared # Whether or not to build static libraries. build_old_libs=$enable_static # Whether or not to add -lc for building shared libraries. build_libtool_need_lc=$archive_cmds_need_lc_F77 # Whether or not to disallow shared libs when runtime libs are static allow_libtool_libs_with_static_runtimes=$enable_shared_with_static_runtimes_F77 # Whether or not to optimize for fast installation. fast_install=$enable_fast_install # The host system. host_alias=$host_alias host=$host host_os=$host_os # The build system. build_alias=$build_alias build=$build build_os=$build_os # An echo program that does not interpret backslashes. echo=$lt_echo # The archiver. AR=$lt_AR AR_FLAGS=$lt_AR_FLAGS # A C compiler. LTCC=$lt_LTCC # LTCC compiler flags. LTCFLAGS=$lt_LTCFLAGS # A language-specific compiler. CC=$lt_compiler_F77 # Is the compiler the GNU C compiler? with_gcc=$GCC_F77 # An ERE matcher. EGREP=$lt_EGREP # The linker used to build libraries. LD=$lt_LD_F77 # Whether we need hard or soft links. LN_S=$lt_LN_S # A BSD-compatible nm program. NM=$lt_NM # A symbol stripping program STRIP=$lt_STRIP # Used to examine libraries when file_magic_cmd begins "file" MAGIC_CMD=$MAGIC_CMD # Used on cygwin: DLL creation program. DLLTOOL="$DLLTOOL" # Used on cygwin: object dumper. OBJDUMP="$OBJDUMP" # Used on cygwin: assembler. AS="$AS" # The name of the directory that contains temporary libtool files. objdir=$objdir # How to create reloadable object files. reload_flag=$lt_reload_flag reload_cmds=$lt_reload_cmds # How to pass a linker flag through the compiler. wl=$lt_lt_prog_compiler_wl_F77 # Object file suffix (normally "o"). objext="$ac_objext" # Old archive suffix (normally "a"). libext="$libext" # Shared library suffix (normally ".so"). shrext_cmds='$shrext_cmds' # Executable file suffix (normally ""). exeext="$exeext" # Additional compiler flags for building library objects. pic_flag=$lt_lt_prog_compiler_pic_F77 pic_mode=$pic_mode # What is the maximum length of a command? max_cmd_len=$lt_cv_sys_max_cmd_len # Does compiler simultaneously support -c and -o options? compiler_c_o=$lt_lt_cv_prog_compiler_c_o_F77 # Must we lock files when doing compilation? need_locks=$lt_need_locks # Do we need the lib prefix for modules? need_lib_prefix=$need_lib_prefix # Do we need a version for libraries? need_version=$need_version # Whether dlopen is supported. dlopen_support=$enable_dlopen # Whether dlopen of programs is supported. dlopen_self=$enable_dlopen_self # Whether dlopen of statically linked programs is supported. dlopen_self_static=$enable_dlopen_self_static # Compiler flag to prevent dynamic linking. link_static_flag=$lt_lt_prog_compiler_static_F77 # Compiler flag to turn off builtin functions. no_builtin_flag=$lt_lt_prog_compiler_no_builtin_flag_F77 # Compiler flag to allow reflexive dlopens. export_dynamic_flag_spec=$lt_export_dynamic_flag_spec_F77 # Compiler flag to generate shared objects directly from archives. whole_archive_flag_spec=$lt_whole_archive_flag_spec_F77 # Compiler flag to generate thread-safe objects. thread_safe_flag_spec=$lt_thread_safe_flag_spec_F77 # Library versioning type. version_type=$version_type # Format of library name prefix. libname_spec=$lt_libname_spec # List of archive names. First name is the real one, the rest are links. # The last name is the one that the linker finds with -lNAME. library_names_spec=$lt_library_names_spec # The coded name of the library, if different from the real name. soname_spec=$lt_soname_spec # Commands used to build and install an old-style archive. RANLIB=$lt_RANLIB old_archive_cmds=$lt_old_archive_cmds_F77 old_postinstall_cmds=$lt_old_postinstall_cmds old_postuninstall_cmds=$lt_old_postuninstall_cmds # Create an old-style archive from a shared archive. old_archive_from_new_cmds=$lt_old_archive_from_new_cmds_F77 # Create a temporary old-style archive to link instead of a shared archive. old_archive_from_expsyms_cmds=$lt_old_archive_from_expsyms_cmds_F77 # Commands used to build and install a shared archive. archive_cmds=$lt_archive_cmds_F77 archive_expsym_cmds=$lt_archive_expsym_cmds_F77 postinstall_cmds=$lt_postinstall_cmds postuninstall_cmds=$lt_postuninstall_cmds # Commands used to build a loadable module (assumed same as above if empty) module_cmds=$lt_module_cmds_F77 module_expsym_cmds=$lt_module_expsym_cmds_F77 # Commands to strip libraries. old_striplib=$lt_old_striplib striplib=$lt_striplib # Dependencies to place before the objects being linked to create a # shared library. predep_objects=$lt_predep_objects_F77 # Dependencies to place after the objects being linked to create a # shared library. postdep_objects=$lt_postdep_objects_F77 # Dependencies to place before the objects being linked to create a # shared library. predeps=$lt_predeps_F77 # Dependencies to place after the objects being linked to create a # shared library. postdeps=$lt_postdeps_F77 # The directories searched by this compiler when creating a shared # library compiler_lib_search_dirs=$lt_compiler_lib_search_dirs_F77 # The library search path used internally by the compiler when linking # a shared library. compiler_lib_search_path=$lt_compiler_lib_search_path_F77 # Method to check whether dependent libraries are shared objects. deplibs_check_method=$lt_deplibs_check_method # Command to use when deplibs_check_method == file_magic. file_magic_cmd=$lt_file_magic_cmd # Flag that allows shared libraries with undefined symbols to be built. allow_undefined_flag=$lt_allow_undefined_flag_F77 # Flag that forces no undefined symbols. no_undefined_flag=$lt_no_undefined_flag_F77 # Commands used to finish a libtool library installation in a directory. finish_cmds=$lt_finish_cmds # Same as above, but a single script fragment to be evaled but not shown. finish_eval=$lt_finish_eval # Take the output of nm and produce a listing of raw symbols and C names. global_symbol_pipe=$lt_lt_cv_sys_global_symbol_pipe # Transform the output of nm in a proper C declaration global_symbol_to_cdecl=$lt_lt_cv_sys_global_symbol_to_cdecl # Transform the output of nm in a C name address pair global_symbol_to_c_name_address=$lt_lt_cv_sys_global_symbol_to_c_name_address # This is the shared library runtime path variable. runpath_var=$runpath_var # This is the shared library path variable. shlibpath_var=$shlibpath_var # Is shlibpath searched before the hard-coded library search path? shlibpath_overrides_runpath=$shlibpath_overrides_runpath # How to hardcode a shared library path into an executable. hardcode_action=$hardcode_action_F77 # Whether we should hardcode library paths into libraries. hardcode_into_libs=$hardcode_into_libs # Flag to hardcode \$libdir into a binary during linking. # This must work even if \$libdir does not exist. hardcode_libdir_flag_spec=$lt_hardcode_libdir_flag_spec_F77 # If ld is used when linking, flag to hardcode \$libdir into # a binary during linking. This must work even if \$libdir does # not exist. hardcode_libdir_flag_spec_ld=$lt_hardcode_libdir_flag_spec_ld_F77 # Whether we need a single -rpath flag with a separated argument. hardcode_libdir_separator=$lt_hardcode_libdir_separator_F77 # Set to yes if using DIR/libNAME${shared_ext} during linking hardcodes DIR into the # resulting binary. hardcode_direct=$hardcode_direct_F77 # Set to yes if using the -LDIR flag during linking hardcodes DIR into the # resulting binary. hardcode_minus_L=$hardcode_minus_L_F77 # Set to yes if using SHLIBPATH_VAR=DIR during linking hardcodes DIR into # the resulting binary. hardcode_shlibpath_var=$hardcode_shlibpath_var_F77 # Set to yes if building a shared library automatically hardcodes DIR into the library # and all subsequent libraries and executables linked against it. hardcode_automatic=$hardcode_automatic_F77 # Variables whose values should be saved in libtool wrapper scripts and # restored at relink time. variables_saved_for_relink="$variables_saved_for_relink" # Whether libtool must link a program against all its dependency libraries. link_all_deplibs=$link_all_deplibs_F77 # Compile-time system search path for libraries sys_lib_search_path_spec=$lt_sys_lib_search_path_spec # Run-time system search path for libraries sys_lib_dlsearch_path_spec=$lt_sys_lib_dlsearch_path_spec # Fix the shell variable \$srcfile for the compiler. fix_srcfile_path=$lt_fix_srcfile_path # Set to yes if exported symbols are required. always_export_symbols=$always_export_symbols_F77 # The commands to list exported symbols. export_symbols_cmds=$lt_export_symbols_cmds_F77 # The commands to extract the exported symbol list from a shared archive. extract_expsyms_cmds=$lt_extract_expsyms_cmds # Symbols that should not be listed in the preloaded symbols. exclude_expsyms=$lt_exclude_expsyms_F77 # Symbols that must always be exported. include_expsyms=$lt_include_expsyms_F77 # ### END LIBTOOL TAG CONFIG: $tagname __EOF__ else # If there is no Makefile yet, we rely on a make rule to execute # `config.status --recheck' to rerun these tests and create the # libtool script then. ltmain_in=`echo $ltmain | sed -e 's/\.sh$/.in/'` if test -f "$ltmain_in"; then test -f Makefile && make "$ltmain" fi fi ac_ext=c ac_cpp='$CPP $CPPFLAGS' ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' ac_compiler_gnu=$ac_cv_c_compiler_gnu CC="$lt_save_CC" else tagname="" fi ;; GCJ) if test -n "$GCJ" && test "X$GCJ" != "Xno"; then # Source file extension for Java test sources. ac_ext=java # Object file extension for compiled Java test sources. objext=o objext_GCJ=$objext # Code to be used in simple compile tests lt_simple_compile_test_code="class foo {}" # Code to be used in simple link tests lt_simple_link_test_code='public class conftest { public static void main(String[] argv) {}; }' # ltmain only uses $CC for tagged configurations so make sure $CC is set. # If no C compiler was specified, use CC. LTCC=${LTCC-"$CC"} # If no C compiler flags were specified, use CFLAGS. LTCFLAGS=${LTCFLAGS-"$CFLAGS"} # Allow CC to be a program name with arguments. compiler=$CC # save warnings/boilerplate of simple test code ac_outfile=conftest.$ac_objext echo "$lt_simple_compile_test_code" >conftest.$ac_ext eval "$ac_compile" 2>&1 >/dev/null | $SED '/^$/d; /^ *+/d' >conftest.err _lt_compiler_boilerplate=`cat conftest.err` $rm conftest* ac_outfile=conftest.$ac_objext echo "$lt_simple_link_test_code" >conftest.$ac_ext eval "$ac_link" 2>&1 >/dev/null | $SED '/^$/d; /^ *+/d' >conftest.err _lt_linker_boilerplate=`cat conftest.err` $rm -r conftest* # Allow CC to be a program name with arguments. lt_save_CC="$CC" CC=${GCJ-"gcj"} compiler=$CC compiler_GCJ=$CC for cc_temp in $compiler""; do case $cc_temp in compile | *[\\/]compile | ccache | *[\\/]ccache ) ;; distcc | *[\\/]distcc | purify | *[\\/]purify ) ;; \-*) ;; *) break;; esac done cc_basename=`$echo "X$cc_temp" | $Xsed -e 's%.*/%%' -e "s%^$host_alias-%%"` # GCJ did not exist at the time GCC didn't implicitly link libc in. archive_cmds_need_lc_GCJ=no old_archive_cmds_GCJ=$old_archive_cmds lt_prog_compiler_no_builtin_flag_GCJ= if test "$GCC" = yes; then lt_prog_compiler_no_builtin_flag_GCJ=' -fno-builtin' echo "$as_me:$LINENO: checking if $compiler supports -fno-rtti -fno-exceptions" >&5 echo $ECHO_N "checking if $compiler supports -fno-rtti -fno-exceptions... $ECHO_C" >&6 if test "${lt_cv_prog_compiler_rtti_exceptions+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else lt_cv_prog_compiler_rtti_exceptions=no ac_outfile=conftest.$ac_objext echo "$lt_simple_compile_test_code" > conftest.$ac_ext lt_compiler_flag="-fno-rtti -fno-exceptions" # Insert the option either (1) after the last *FLAGS variable, or # (2) before a word containing "conftest.", or (3) at the end. # Note that $ac_compile itself does not contain backslashes and begins # with a dollar sign (not a hyphen), so the echo should work correctly. # The option is referenced via a variable to avoid confusing sed. lt_compile=`echo "$ac_compile" | $SED \ -e 's:.*FLAGS}\{0,1\} :&$lt_compiler_flag :; t' \ -e 's: [^ ]*conftest\.: $lt_compiler_flag&:; t' \ -e 's:$: $lt_compiler_flag:'` (eval echo "\"\$as_me:16198: $lt_compile\"" >&5) (eval "$lt_compile" 2>conftest.err) ac_status=$? cat conftest.err >&5 echo "$as_me:16202: \$? = $ac_status" >&5 if (exit $ac_status) && test -s "$ac_outfile"; then # The compiler can only warn and ignore the option if not recognized # So say no if there are warnings other than the usual output. $echo "X$_lt_compiler_boilerplate" | $Xsed -e '/^$/d' >conftest.exp $SED '/^$/d; /^ *+/d' conftest.err >conftest.er2 if test ! -s conftest.er2 || diff conftest.exp conftest.er2 >/dev/null; then lt_cv_prog_compiler_rtti_exceptions=yes fi fi $rm conftest* fi echo "$as_me:$LINENO: result: $lt_cv_prog_compiler_rtti_exceptions" >&5 echo "${ECHO_T}$lt_cv_prog_compiler_rtti_exceptions" >&6 if test x"$lt_cv_prog_compiler_rtti_exceptions" = xyes; then lt_prog_compiler_no_builtin_flag_GCJ="$lt_prog_compiler_no_builtin_flag_GCJ -fno-rtti -fno-exceptions" else : fi fi lt_prog_compiler_wl_GCJ= lt_prog_compiler_pic_GCJ= lt_prog_compiler_static_GCJ= echo "$as_me:$LINENO: checking for $compiler option to produce PIC" >&5 echo $ECHO_N "checking for $compiler option to produce PIC... $ECHO_C" >&6 if test "$GCC" = yes; then lt_prog_compiler_wl_GCJ='-Wl,' lt_prog_compiler_static_GCJ='-static' case $host_os in aix*) # All AIX code is PIC. if test "$host_cpu" = ia64; then # AIX 5 now supports IA64 processor lt_prog_compiler_static_GCJ='-Bstatic' fi ;; amigaos*) # FIXME: we need at least 68020 code to build shared libraries, but # adding the `-m68020' flag to GCC prevents building anything better, # like `-m68040'. lt_prog_compiler_pic_GCJ='-m68020 -resident32 -malways-restore-a4' ;; beos* | irix5* | irix6* | nonstopux* | osf3* | osf4* | osf5*) # PIC is the default for these OSes. ;; mingw* | cygwin* | pw32* | os2*) # This hack is so that the source file can tell whether it is being # built for inclusion in a dll (and should export symbols for example). # Although the cygwin gcc ignores -fPIC, still need this for old-style # (--disable-auto-import) libraries ;; darwin* | rhapsody*) # PIC is the default on this platform # Common symbols not allowed in MH_DYLIB files lt_prog_compiler_pic_GCJ='-fno-common' ;; interix[3-9]*) # Interix 3.x gcc -fpic/-fPIC options generate broken code. # Instead, we relocate shared libraries at runtime. ;; msdosdjgpp*) # Just because we use GCC doesn't mean we suddenly get shared libraries # on systems that don't support them. lt_prog_compiler_can_build_shared_GCJ=no enable_shared=no ;; sysv4*MP*) if test -d /usr/nec; then lt_prog_compiler_pic_GCJ=-Kconform_pic fi ;; hpux*) # PIC is the default for IA64 HP-UX and 64-bit HP-UX, but # not for PA HP-UX. case $host_cpu in hppa*64*|ia64*) # +Z the default ;; *) lt_prog_compiler_pic_GCJ='-fPIC' ;; esac ;; *) lt_prog_compiler_pic_GCJ='-fPIC' ;; esac else # PORTME Check for flag to pass linker flags through the system compiler. case $host_os in aix*) lt_prog_compiler_wl_GCJ='-Wl,' if test "$host_cpu" = ia64; then # AIX 5 now supports IA64 processor lt_prog_compiler_static_GCJ='-Bstatic' else lt_prog_compiler_static_GCJ='-bnso -bI:/lib/syscalls.exp' fi ;; darwin*) # PIC is the default on this platform # Common symbols not allowed in MH_DYLIB files case $cc_basename in xlc*) lt_prog_compiler_pic_GCJ='-qnocommon' lt_prog_compiler_wl_GCJ='-Wl,' ;; esac ;; mingw* | cygwin* | pw32* | os2*) # This hack is so that the source file can tell whether it is being # built for inclusion in a dll (and should export symbols for example). ;; hpux9* | hpux10* | hpux11*) lt_prog_compiler_wl_GCJ='-Wl,' # PIC is the default for IA64 HP-UX and 64-bit HP-UX, but # not for PA HP-UX. case $host_cpu in hppa*64*|ia64*) # +Z the default ;; *) lt_prog_compiler_pic_GCJ='+Z' ;; esac # Is there a better lt_prog_compiler_static that works with the bundled CC? lt_prog_compiler_static_GCJ='${wl}-a ${wl}archive' ;; irix5* | irix6* | nonstopux*) lt_prog_compiler_wl_GCJ='-Wl,' # PIC (with -KPIC) is the default. lt_prog_compiler_static_GCJ='-non_shared' ;; newsos6) lt_prog_compiler_pic_GCJ='-KPIC' lt_prog_compiler_static_GCJ='-Bstatic' ;; linux* | k*bsd*-gnu) case $cc_basename in icc* | ecc*) lt_prog_compiler_wl_GCJ='-Wl,' lt_prog_compiler_pic_GCJ='-KPIC' lt_prog_compiler_static_GCJ='-static' ;; pgcc* | pgf77* | pgf90* | pgf95*) # Portland Group compilers (*not* the Pentium gcc compiler, # which looks to be a dead project) lt_prog_compiler_wl_GCJ='-Wl,' lt_prog_compiler_pic_GCJ='-fpic' lt_prog_compiler_static_GCJ='-Bstatic' ;; ccc*) lt_prog_compiler_wl_GCJ='-Wl,' # All Alpha code is PIC. lt_prog_compiler_static_GCJ='-non_shared' ;; *) case `$CC -V 2>&1 | sed 5q` in *Sun\ C*) # Sun C 5.9 lt_prog_compiler_pic_GCJ='-KPIC' lt_prog_compiler_static_GCJ='-Bstatic' lt_prog_compiler_wl_GCJ='-Wl,' ;; *Sun\ F*) # Sun Fortran 8.3 passes all unrecognized flags to the linker lt_prog_compiler_pic_GCJ='-KPIC' lt_prog_compiler_static_GCJ='-Bstatic' lt_prog_compiler_wl_GCJ='' ;; esac ;; esac ;; osf3* | osf4* | osf5*) lt_prog_compiler_wl_GCJ='-Wl,' # All OSF/1 code is PIC. lt_prog_compiler_static_GCJ='-non_shared' ;; rdos*) lt_prog_compiler_static_GCJ='-non_shared' ;; solaris*) lt_prog_compiler_pic_GCJ='-KPIC' lt_prog_compiler_static_GCJ='-Bstatic' case $cc_basename in f77* | f90* | f95*) lt_prog_compiler_wl_GCJ='-Qoption ld ';; *) lt_prog_compiler_wl_GCJ='-Wl,';; esac ;; sunos4*) lt_prog_compiler_wl_GCJ='-Qoption ld ' lt_prog_compiler_pic_GCJ='-PIC' lt_prog_compiler_static_GCJ='-Bstatic' ;; sysv4 | sysv4.2uw2* | sysv4.3*) lt_prog_compiler_wl_GCJ='-Wl,' lt_prog_compiler_pic_GCJ='-KPIC' lt_prog_compiler_static_GCJ='-Bstatic' ;; sysv4*MP*) if test -d /usr/nec ;then lt_prog_compiler_pic_GCJ='-Kconform_pic' lt_prog_compiler_static_GCJ='-Bstatic' fi ;; sysv5* | unixware* | sco3.2v5* | sco5v6* | OpenUNIX*) lt_prog_compiler_wl_GCJ='-Wl,' lt_prog_compiler_pic_GCJ='-KPIC' lt_prog_compiler_static_GCJ='-Bstatic' ;; unicos*) lt_prog_compiler_wl_GCJ='-Wl,' lt_prog_compiler_can_build_shared_GCJ=no ;; uts4*) lt_prog_compiler_pic_GCJ='-pic' lt_prog_compiler_static_GCJ='-Bstatic' ;; *) lt_prog_compiler_can_build_shared_GCJ=no ;; esac fi echo "$as_me:$LINENO: result: $lt_prog_compiler_pic_GCJ" >&5 echo "${ECHO_T}$lt_prog_compiler_pic_GCJ" >&6 # # Check to make sure the PIC flag actually works. # if test -n "$lt_prog_compiler_pic_GCJ"; then echo "$as_me:$LINENO: checking if $compiler PIC flag $lt_prog_compiler_pic_GCJ works" >&5 echo $ECHO_N "checking if $compiler PIC flag $lt_prog_compiler_pic_GCJ works... $ECHO_C" >&6 if test "${lt_cv_prog_compiler_pic_works_GCJ+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else lt_cv_prog_compiler_pic_works_GCJ=no ac_outfile=conftest.$ac_objext echo "$lt_simple_compile_test_code" > conftest.$ac_ext lt_compiler_flag="$lt_prog_compiler_pic_GCJ" # Insert the option either (1) after the last *FLAGS variable, or # (2) before a word containing "conftest.", or (3) at the end. # Note that $ac_compile itself does not contain backslashes and begins # with a dollar sign (not a hyphen), so the echo should work correctly. # The option is referenced via a variable to avoid confusing sed. lt_compile=`echo "$ac_compile" | $SED \ -e 's:.*FLAGS}\{0,1\} :&$lt_compiler_flag :; t' \ -e 's: [^ ]*conftest\.: $lt_compiler_flag&:; t' \ -e 's:$: $lt_compiler_flag:'` (eval echo "\"\$as_me:16488: $lt_compile\"" >&5) (eval "$lt_compile" 2>conftest.err) ac_status=$? cat conftest.err >&5 echo "$as_me:16492: \$? = $ac_status" >&5 if (exit $ac_status) && test -s "$ac_outfile"; then # The compiler can only warn and ignore the option if not recognized # So say no if there are warnings other than the usual output. $echo "X$_lt_compiler_boilerplate" | $Xsed -e '/^$/d' >conftest.exp $SED '/^$/d; /^ *+/d' conftest.err >conftest.er2 if test ! -s conftest.er2 || diff conftest.exp conftest.er2 >/dev/null; then lt_cv_prog_compiler_pic_works_GCJ=yes fi fi $rm conftest* fi echo "$as_me:$LINENO: result: $lt_cv_prog_compiler_pic_works_GCJ" >&5 echo "${ECHO_T}$lt_cv_prog_compiler_pic_works_GCJ" >&6 if test x"$lt_cv_prog_compiler_pic_works_GCJ" = xyes; then case $lt_prog_compiler_pic_GCJ in "" | " "*) ;; *) lt_prog_compiler_pic_GCJ=" $lt_prog_compiler_pic_GCJ" ;; esac else lt_prog_compiler_pic_GCJ= lt_prog_compiler_can_build_shared_GCJ=no fi fi case $host_os in # For platforms which do not support PIC, -DPIC is meaningless: *djgpp*) lt_prog_compiler_pic_GCJ= ;; *) lt_prog_compiler_pic_GCJ="$lt_prog_compiler_pic_GCJ" ;; esac # # Check to make sure the static flag actually works. # wl=$lt_prog_compiler_wl_GCJ eval lt_tmp_static_flag=\"$lt_prog_compiler_static_GCJ\" echo "$as_me:$LINENO: checking if $compiler static flag $lt_tmp_static_flag works" >&5 echo $ECHO_N "checking if $compiler static flag $lt_tmp_static_flag works... $ECHO_C" >&6 if test "${lt_cv_prog_compiler_static_works_GCJ+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else lt_cv_prog_compiler_static_works_GCJ=no save_LDFLAGS="$LDFLAGS" LDFLAGS="$LDFLAGS $lt_tmp_static_flag" echo "$lt_simple_link_test_code" > conftest.$ac_ext if (eval $ac_link 2>conftest.err) && test -s conftest$ac_exeext; then # The linker can only warn and ignore the option if not recognized # So say no if there are warnings if test -s conftest.err; then # Append any errors to the config.log. cat conftest.err 1>&5 $echo "X$_lt_linker_boilerplate" | $Xsed -e '/^$/d' > conftest.exp $SED '/^$/d; /^ *+/d' conftest.err >conftest.er2 if diff conftest.exp conftest.er2 >/dev/null; then lt_cv_prog_compiler_static_works_GCJ=yes fi else lt_cv_prog_compiler_static_works_GCJ=yes fi fi $rm -r conftest* LDFLAGS="$save_LDFLAGS" fi echo "$as_me:$LINENO: result: $lt_cv_prog_compiler_static_works_GCJ" >&5 echo "${ECHO_T}$lt_cv_prog_compiler_static_works_GCJ" >&6 if test x"$lt_cv_prog_compiler_static_works_GCJ" = xyes; then : else lt_prog_compiler_static_GCJ= fi echo "$as_me:$LINENO: checking if $compiler supports -c -o file.$ac_objext" >&5 echo $ECHO_N "checking if $compiler supports -c -o file.$ac_objext... $ECHO_C" >&6 if test "${lt_cv_prog_compiler_c_o_GCJ+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else lt_cv_prog_compiler_c_o_GCJ=no $rm -r conftest 2>/dev/null mkdir conftest cd conftest mkdir out echo "$lt_simple_compile_test_code" > conftest.$ac_ext lt_compiler_flag="-o out/conftest2.$ac_objext" # Insert the option either (1) after the last *FLAGS variable, or # (2) before a word containing "conftest.", or (3) at the end. # Note that $ac_compile itself does not contain backslashes and begins # with a dollar sign (not a hyphen), so the echo should work correctly. lt_compile=`echo "$ac_compile" | $SED \ -e 's:.*FLAGS}\{0,1\} :&$lt_compiler_flag :; t' \ -e 's: [^ ]*conftest\.: $lt_compiler_flag&:; t' \ -e 's:$: $lt_compiler_flag:'` (eval echo "\"\$as_me:16592: $lt_compile\"" >&5) (eval "$lt_compile" 2>out/conftest.err) ac_status=$? cat out/conftest.err >&5 echo "$as_me:16596: \$? = $ac_status" >&5 if (exit $ac_status) && test -s out/conftest2.$ac_objext then # The compiler can only warn and ignore the option if not recognized # So say no if there are warnings $echo "X$_lt_compiler_boilerplate" | $Xsed -e '/^$/d' > out/conftest.exp $SED '/^$/d; /^ *+/d' out/conftest.err >out/conftest.er2 if test ! -s out/conftest.er2 || diff out/conftest.exp out/conftest.er2 >/dev/null; then lt_cv_prog_compiler_c_o_GCJ=yes fi fi chmod u+w . 2>&5 $rm conftest* # SGI C++ compiler will create directory out/ii_files/ for # template instantiation test -d out/ii_files && $rm out/ii_files/* && rmdir out/ii_files $rm out/* && rmdir out cd .. rmdir conftest $rm conftest* fi echo "$as_me:$LINENO: result: $lt_cv_prog_compiler_c_o_GCJ" >&5 echo "${ECHO_T}$lt_cv_prog_compiler_c_o_GCJ" >&6 hard_links="nottested" if test "$lt_cv_prog_compiler_c_o_GCJ" = no && test "$need_locks" != no; then # do not overwrite the value of need_locks provided by the user echo "$as_me:$LINENO: checking if we can lock with hard links" >&5 echo $ECHO_N "checking if we can lock with hard links... $ECHO_C" >&6 hard_links=yes $rm conftest* ln conftest.a conftest.b 2>/dev/null && hard_links=no touch conftest.a ln conftest.a conftest.b 2>&5 || hard_links=no ln conftest.a conftest.b 2>/dev/null && hard_links=no echo "$as_me:$LINENO: result: $hard_links" >&5 echo "${ECHO_T}$hard_links" >&6 if test "$hard_links" = no; then { echo "$as_me:$LINENO: WARNING: \`$CC' does not support \`-c -o', so \`make -j' may be unsafe" >&5 echo "$as_me: WARNING: \`$CC' does not support \`-c -o', so \`make -j' may be unsafe" >&2;} need_locks=warn fi else need_locks=no fi echo "$as_me:$LINENO: checking whether the $compiler linker ($LD) supports shared libraries" >&5 echo $ECHO_N "checking whether the $compiler linker ($LD) supports shared libraries... $ECHO_C" >&6 runpath_var= allow_undefined_flag_GCJ= enable_shared_with_static_runtimes_GCJ=no archive_cmds_GCJ= archive_expsym_cmds_GCJ= old_archive_From_new_cmds_GCJ= old_archive_from_expsyms_cmds_GCJ= export_dynamic_flag_spec_GCJ= whole_archive_flag_spec_GCJ= thread_safe_flag_spec_GCJ= hardcode_libdir_flag_spec_GCJ= hardcode_libdir_flag_spec_ld_GCJ= hardcode_libdir_separator_GCJ= hardcode_direct_GCJ=no hardcode_minus_L_GCJ=no hardcode_shlibpath_var_GCJ=unsupported link_all_deplibs_GCJ=unknown hardcode_automatic_GCJ=no module_cmds_GCJ= module_expsym_cmds_GCJ= always_export_symbols_GCJ=no export_symbols_cmds_GCJ='$NM $libobjs $convenience | $global_symbol_pipe | $SED '\''s/.* //'\'' | sort | uniq > $export_symbols' # include_expsyms should be a list of space-separated symbols to be *always* # included in the symbol list include_expsyms_GCJ= # exclude_expsyms can be an extended regexp of symbols to exclude # it will be wrapped by ` (' and `)$', so one must not match beginning or # end of line. Example: `a|bc|.*d.*' will exclude the symbols `a' and `bc', # as well as any symbol that contains `d'. exclude_expsyms_GCJ='_GLOBAL_OFFSET_TABLE_|_GLOBAL__F[ID]_.*' # Although _GLOBAL_OFFSET_TABLE_ is a valid symbol C name, most a.out # platforms (ab)use it in PIC code, but their linkers get confused if # the symbol is explicitly referenced. Since portable code cannot # rely on this symbol name, it's probably fine to never include it in # preloaded symbol tables. # Exclude shared library initialization/finalization symbols. extract_expsyms_cmds= # Just being paranoid about ensuring that cc_basename is set. for cc_temp in $compiler""; do case $cc_temp in compile | *[\\/]compile | ccache | *[\\/]ccache ) ;; distcc | *[\\/]distcc | purify | *[\\/]purify ) ;; \-*) ;; *) break;; esac done cc_basename=`$echo "X$cc_temp" | $Xsed -e 's%.*/%%' -e "s%^$host_alias-%%"` case $host_os in cygwin* | mingw* | pw32*) # FIXME: the MSVC++ port hasn't been tested in a loooong time # When not using gcc, we currently assume that we are using # Microsoft Visual C++. if test "$GCC" != yes; then with_gnu_ld=no fi ;; interix*) # we just hope/assume this is gcc and not c89 (= MSVC++) with_gnu_ld=yes ;; openbsd*) with_gnu_ld=no ;; esac ld_shlibs_GCJ=yes if test "$with_gnu_ld" = yes; then # If archive_cmds runs LD, not CC, wlarc should be empty wlarc='${wl}' # Set some defaults for GNU ld with shared library support. These # are reset later if shared libraries are not supported. Putting them # here allows them to be overridden if necessary. runpath_var=LD_RUN_PATH hardcode_libdir_flag_spec_GCJ='${wl}--rpath ${wl}$libdir' export_dynamic_flag_spec_GCJ='${wl}--export-dynamic' # ancient GNU ld didn't support --whole-archive et. al. if $LD --help 2>&1 | grep 'no-whole-archive' > /dev/null; then whole_archive_flag_spec_GCJ="$wlarc"'--whole-archive$convenience '"$wlarc"'--no-whole-archive' else whole_archive_flag_spec_GCJ= fi supports_anon_versioning=no case `$LD -v 2>/dev/null` in *\ [01].* | *\ 2.[0-9].* | *\ 2.10.*) ;; # catch versions < 2.11 *\ 2.11.93.0.2\ *) supports_anon_versioning=yes ;; # RH7.3 ... *\ 2.11.92.0.12\ *) supports_anon_versioning=yes ;; # Mandrake 8.2 ... *\ 2.11.*) ;; # other 2.11 versions *) supports_anon_versioning=yes ;; esac # See if GNU ld supports shared libraries. case $host_os in aix[3-9]*) # On AIX/PPC, the GNU linker is very broken if test "$host_cpu" != ia64; then ld_shlibs_GCJ=no cat <&2 *** Warning: the GNU linker, at least up to release 2.9.1, is reported *** to be unable to reliably create shared libraries on AIX. *** Therefore, libtool is disabling shared libraries support. If you *** really care for shared libraries, you may want to modify your PATH *** so that a non-GNU linker is found, and then restart. EOF fi ;; amigaos*) archive_cmds_GCJ='$rm $output_objdir/a2ixlibrary.data~$echo "#define NAME $libname" > $output_objdir/a2ixlibrary.data~$echo "#define LIBRARY_ID 1" >> $output_objdir/a2ixlibrary.data~$echo "#define VERSION $major" >> $output_objdir/a2ixlibrary.data~$echo "#define REVISION $revision" >> $output_objdir/a2ixlibrary.data~$AR $AR_FLAGS $lib $libobjs~$RANLIB $lib~(cd $output_objdir && a2ixlibrary -32)' hardcode_libdir_flag_spec_GCJ='-L$libdir' hardcode_minus_L_GCJ=yes # Samuel A. Falvo II reports # that the semantics of dynamic libraries on AmigaOS, at least up # to version 4, is to share data among multiple programs linked # with the same dynamic library. Since this doesn't match the # behavior of shared libraries on other platforms, we can't use # them. ld_shlibs_GCJ=no ;; beos*) if $LD --help 2>&1 | grep ': supported targets:.* elf' > /dev/null; then allow_undefined_flag_GCJ=unsupported # Joseph Beckenbach says some releases of gcc # support --undefined. This deserves some investigation. FIXME archive_cmds_GCJ='$CC -nostart $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib' else ld_shlibs_GCJ=no fi ;; cygwin* | mingw* | pw32*) # _LT_AC_TAGVAR(hardcode_libdir_flag_spec, GCJ) is actually meaningless, # as there is no search path for DLLs. hardcode_libdir_flag_spec_GCJ='-L$libdir' allow_undefined_flag_GCJ=unsupported always_export_symbols_GCJ=no enable_shared_with_static_runtimes_GCJ=yes export_symbols_cmds_GCJ='$NM $libobjs $convenience | $global_symbol_pipe | $SED -e '\''/^[BCDGRS][ ]/s/.*[ ]\([^ ]*\)/\1 DATA/'\'' -e '\''/^[AITW][ ]/s/.*[ ]//'\'' | sort | uniq > $export_symbols' if $LD --help 2>&1 | grep 'auto-import' > /dev/null; then archive_cmds_GCJ='$CC -shared $libobjs $deplibs $compiler_flags -o $output_objdir/$soname ${wl}--enable-auto-image-base -Xlinker --out-implib -Xlinker $lib' # If the export-symbols file already is a .def file (1st line # is EXPORTS), use it as is; otherwise, prepend... archive_expsym_cmds_GCJ='if test "x`$SED 1q $export_symbols`" = xEXPORTS; then cp $export_symbols $output_objdir/$soname.def; else echo EXPORTS > $output_objdir/$soname.def; cat $export_symbols >> $output_objdir/$soname.def; fi~ $CC -shared $output_objdir/$soname.def $libobjs $deplibs $compiler_flags -o $output_objdir/$soname ${wl}--enable-auto-image-base -Xlinker --out-implib -Xlinker $lib' else ld_shlibs_GCJ=no fi ;; interix[3-9]*) hardcode_direct_GCJ=no hardcode_shlibpath_var_GCJ=no hardcode_libdir_flag_spec_GCJ='${wl}-rpath,$libdir' export_dynamic_flag_spec_GCJ='${wl}-E' # Hack: On Interix 3.x, we cannot compile PIC because of a broken gcc. # Instead, shared libraries are loaded at an image base (0x10000000 by # default) and relocated if they conflict, which is a slow very memory # consuming and fragmenting process. To avoid this, we pick a random, # 256 KiB-aligned image base between 0x50000000 and 0x6FFC0000 at link # time. Moving up from 0x10000000 also allows more sbrk(2) space. archive_cmds_GCJ='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags ${wl}-h,$soname ${wl}--image-base,`expr ${RANDOM-$$} % 4096 / 2 \* 262144 + 1342177280` -o $lib' archive_expsym_cmds_GCJ='sed "s,^,_," $export_symbols >$output_objdir/$soname.expsym~$CC -shared $pic_flag $libobjs $deplibs $compiler_flags ${wl}-h,$soname ${wl}--retain-symbols-file,$output_objdir/$soname.expsym ${wl}--image-base,`expr ${RANDOM-$$} % 4096 / 2 \* 262144 + 1342177280` -o $lib' ;; gnu* | linux* | k*bsd*-gnu) if $LD --help 2>&1 | grep ': supported targets:.* elf' > /dev/null; then tmp_addflag= case $cc_basename,$host_cpu in pgcc*) # Portland Group C compiler whole_archive_flag_spec_GCJ='${wl}--whole-archive`for conv in $convenience\"\"; do test -n \"$conv\" && new_convenience=\"$new_convenience,$conv\"; done; $echo \"$new_convenience\"` ${wl}--no-whole-archive' tmp_addflag=' $pic_flag' ;; pgf77* | pgf90* | pgf95*) # Portland Group f77 and f90 compilers whole_archive_flag_spec_GCJ='${wl}--whole-archive`for conv in $convenience\"\"; do test -n \"$conv\" && new_convenience=\"$new_convenience,$conv\"; done; $echo \"$new_convenience\"` ${wl}--no-whole-archive' tmp_addflag=' $pic_flag -Mnomain' ;; ecc*,ia64* | icc*,ia64*) # Intel C compiler on ia64 tmp_addflag=' -i_dynamic' ;; efc*,ia64* | ifort*,ia64*) # Intel Fortran compiler on ia64 tmp_addflag=' -i_dynamic -nofor_main' ;; ifc* | ifort*) # Intel Fortran compiler tmp_addflag=' -nofor_main' ;; esac case `$CC -V 2>&1 | sed 5q` in *Sun\ C*) # Sun C 5.9 whole_archive_flag_spec_GCJ='${wl}--whole-archive`new_convenience=; for conv in $convenience\"\"; do test -z \"$conv\" || new_convenience=\"$new_convenience,$conv\"; done; $echo \"$new_convenience\"` ${wl}--no-whole-archive' tmp_sharedflag='-G' ;; *Sun\ F*) # Sun Fortran 8.3 tmp_sharedflag='-G' ;; *) tmp_sharedflag='-shared' ;; esac archive_cmds_GCJ='$CC '"$tmp_sharedflag""$tmp_addflag"' $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib' if test $supports_anon_versioning = yes; then archive_expsym_cmds_GCJ='$echo "{ global:" > $output_objdir/$libname.ver~ cat $export_symbols | sed -e "s/\(.*\)/\1;/" >> $output_objdir/$libname.ver~ $echo "local: *; };" >> $output_objdir/$libname.ver~ $CC '"$tmp_sharedflag""$tmp_addflag"' $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname ${wl}-version-script ${wl}$output_objdir/$libname.ver -o $lib' fi else ld_shlibs_GCJ=no fi ;; netbsd*) if echo __ELF__ | $CC -E - | grep __ELF__ >/dev/null; then archive_cmds_GCJ='$LD -Bshareable $libobjs $deplibs $linker_flags -o $lib' wlarc= else archive_cmds_GCJ='$CC -shared $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib' archive_expsym_cmds_GCJ='$CC -shared $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname ${wl}-retain-symbols-file $wl$export_symbols -o $lib' fi ;; solaris*) if $LD -v 2>&1 | grep 'BFD 2\.8' > /dev/null; then ld_shlibs_GCJ=no cat <&2 *** Warning: The releases 2.8.* of the GNU linker cannot reliably *** create shared libraries on Solaris systems. Therefore, libtool *** is disabling shared libraries support. We urge you to upgrade GNU *** binutils to release 2.9.1 or newer. Another option is to modify *** your PATH or compiler configuration so that the native linker is *** used, and then restart. EOF elif $LD --help 2>&1 | grep ': supported targets:.* elf' > /dev/null; then archive_cmds_GCJ='$CC -shared $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib' archive_expsym_cmds_GCJ='$CC -shared $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname ${wl}-retain-symbols-file $wl$export_symbols -o $lib' else ld_shlibs_GCJ=no fi ;; sysv5* | sco3.2v5* | sco5v6* | unixware* | OpenUNIX*) case `$LD -v 2>&1` in *\ [01].* | *\ 2.[0-9].* | *\ 2.1[0-5].*) ld_shlibs_GCJ=no cat <<_LT_EOF 1>&2 *** Warning: Releases of the GNU linker prior to 2.16.91.0.3 can not *** reliably create shared libraries on SCO systems. Therefore, libtool *** is disabling shared libraries support. We urge you to upgrade GNU *** binutils to release 2.16.91.0.3 or newer. Another option is to modify *** your PATH or compiler configuration so that the native linker is *** used, and then restart. _LT_EOF ;; *) if $LD --help 2>&1 | grep ': supported targets:.* elf' > /dev/null; then hardcode_libdir_flag_spec_GCJ='`test -z "$SCOABSPATH" && echo ${wl}-rpath,$libdir`' archive_cmds_GCJ='$CC -shared $libobjs $deplibs $compiler_flags ${wl}-soname,\${SCOABSPATH:+${install_libdir}/}$soname -o $lib' archive_expsym_cmds_GCJ='$CC -shared $libobjs $deplibs $compiler_flags ${wl}-soname,\${SCOABSPATH:+${install_libdir}/}$soname,-retain-symbols-file,$export_symbols -o $lib' else ld_shlibs_GCJ=no fi ;; esac ;; sunos4*) archive_cmds_GCJ='$LD -assert pure-text -Bshareable -o $lib $libobjs $deplibs $linker_flags' wlarc= hardcode_direct_GCJ=yes hardcode_shlibpath_var_GCJ=no ;; *) if $LD --help 2>&1 | grep ': supported targets:.* elf' > /dev/null; then archive_cmds_GCJ='$CC -shared $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib' archive_expsym_cmds_GCJ='$CC -shared $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname ${wl}-retain-symbols-file $wl$export_symbols -o $lib' else ld_shlibs_GCJ=no fi ;; esac if test "$ld_shlibs_GCJ" = no; then runpath_var= hardcode_libdir_flag_spec_GCJ= export_dynamic_flag_spec_GCJ= whole_archive_flag_spec_GCJ= fi else # PORTME fill in a description of your system's linker (not GNU ld) case $host_os in aix3*) allow_undefined_flag_GCJ=unsupported always_export_symbols_GCJ=yes archive_expsym_cmds_GCJ='$LD -o $output_objdir/$soname $libobjs $deplibs $linker_flags -bE:$export_symbols -T512 -H512 -bM:SRE~$AR $AR_FLAGS $lib $output_objdir/$soname' # Note: this linker hardcodes the directories in LIBPATH if there # are no directories specified by -L. hardcode_minus_L_GCJ=yes if test "$GCC" = yes && test -z "$lt_prog_compiler_static"; then # Neither direct hardcoding nor static linking is supported with a # broken collect2. hardcode_direct_GCJ=unsupported fi ;; aix[4-9]*) if test "$host_cpu" = ia64; then # On IA64, the linker does run time linking by default, so we don't # have to do anything special. aix_use_runtimelinking=no exp_sym_flag='-Bexport' no_entry_flag="" else # If we're using GNU nm, then we don't want the "-C" option. # -C means demangle to AIX nm, but means don't demangle with GNU nm if $NM -V 2>&1 | grep 'GNU' > /dev/null; then export_symbols_cmds_GCJ='$NM -Bpg $libobjs $convenience | awk '\''{ if (((\$2 == "T") || (\$2 == "D") || (\$2 == "B")) && (substr(\$3,1,1) != ".")) { print \$3 } }'\'' | sort -u > $export_symbols' else export_symbols_cmds_GCJ='$NM -BCpg $libobjs $convenience | awk '\''{ if (((\$2 == "T") || (\$2 == "D") || (\$2 == "B")) && (substr(\$3,1,1) != ".")) { print \$3 } }'\'' | sort -u > $export_symbols' fi aix_use_runtimelinking=no # Test if we are trying to use run time linking or normal # AIX style linking. If -brtl is somewhere in LDFLAGS, we # need to do runtime linking. case $host_os in aix4.[23]|aix4.[23].*|aix[5-9]*) for ld_flag in $LDFLAGS; do if (test $ld_flag = "-brtl" || test $ld_flag = "-Wl,-brtl"); then aix_use_runtimelinking=yes break fi done ;; esac exp_sym_flag='-bexport' no_entry_flag='-bnoentry' fi # When large executables or shared objects are built, AIX ld can # have problems creating the table of contents. If linking a library # or program results in "error TOC overflow" add -mminimal-toc to # CXXFLAGS/CFLAGS for g++/gcc. In the cases where that is not # enough to fix the problem, add -Wl,-bbigtoc to LDFLAGS. archive_cmds_GCJ='' hardcode_direct_GCJ=yes hardcode_libdir_separator_GCJ=':' link_all_deplibs_GCJ=yes if test "$GCC" = yes; then case $host_os in aix4.[012]|aix4.[012].*) # We only want to do this on AIX 4.2 and lower, the check # below for broken collect2 doesn't work under 4.3+ collect2name=`${CC} -print-prog-name=collect2` if test -f "$collect2name" && \ strings "$collect2name" | grep resolve_lib_name >/dev/null then # We have reworked collect2 : else # We have old collect2 hardcode_direct_GCJ=unsupported # It fails to find uninstalled libraries when the uninstalled # path is not listed in the libpath. Setting hardcode_minus_L # to unsupported forces relinking hardcode_minus_L_GCJ=yes hardcode_libdir_flag_spec_GCJ='-L$libdir' hardcode_libdir_separator_GCJ= fi ;; esac shared_flag='-shared' if test "$aix_use_runtimelinking" = yes; then shared_flag="$shared_flag "'${wl}-G' fi else # not using gcc if test "$host_cpu" = ia64; then # VisualAge C++, Version 5.5 for AIX 5L for IA-64, Beta 3 Release # chokes on -Wl,-G. The following line is correct: shared_flag='-G' else if test "$aix_use_runtimelinking" = yes; then shared_flag='${wl}-G' else shared_flag='${wl}-bM:SRE' fi fi fi # It seems that -bexpall does not export symbols beginning with # underscore (_), so it is better to generate a list of symbols to export. always_export_symbols_GCJ=yes if test "$aix_use_runtimelinking" = yes; then # Warning - without using the other runtime loading flags (-brtl), # -berok will link without error, but may produce a broken library. allow_undefined_flag_GCJ='-berok' # Determine the default libpath from the value encoded in an empty executable. cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ int main () { ; return 0; } _ACEOF rm -f conftest.$ac_objext conftest$ac_exeext if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5 (eval $ac_link) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { ac_try='test -z "$ac_c_werror_flag" || test ! -s conftest.err' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; } && { ac_try='test -s conftest$ac_exeext' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then lt_aix_libpath_sed=' /Import File Strings/,/^$/ { /^0/ { s/^0 *\(.*\)$/\1/ p } }' aix_libpath=`dump -H conftest$ac_exeext 2>/dev/null | $SED -n -e "$lt_aix_libpath_sed"` # Check for a 64-bit object if we didn't find anything. if test -z "$aix_libpath"; then aix_libpath=`dump -HX64 conftest$ac_exeext 2>/dev/null | $SED -n -e "$lt_aix_libpath_sed"` fi else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 fi rm -f conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext if test -z "$aix_libpath"; then aix_libpath="/usr/lib:/lib"; fi hardcode_libdir_flag_spec_GCJ='${wl}-blibpath:$libdir:'"$aix_libpath" archive_expsym_cmds_GCJ="\$CC"' -o $output_objdir/$soname $libobjs $deplibs '"\${wl}$no_entry_flag"' $compiler_flags `if test "x${allow_undefined_flag}" != "x"; then echo "${wl}${allow_undefined_flag}"; else :; fi` '"\${wl}$exp_sym_flag:\$export_symbols $shared_flag" else if test "$host_cpu" = ia64; then hardcode_libdir_flag_spec_GCJ='${wl}-R $libdir:/usr/lib:/lib' allow_undefined_flag_GCJ="-z nodefs" archive_expsym_cmds_GCJ="\$CC $shared_flag"' -o $output_objdir/$soname $libobjs $deplibs '"\${wl}$no_entry_flag"' $compiler_flags ${wl}${allow_undefined_flag} '"\${wl}$exp_sym_flag:\$export_symbols" else # Determine the default libpath from the value encoded in an empty executable. cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ int main () { ; return 0; } _ACEOF rm -f conftest.$ac_objext conftest$ac_exeext if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5 (eval $ac_link) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { ac_try='test -z "$ac_c_werror_flag" || test ! -s conftest.err' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; } && { ac_try='test -s conftest$ac_exeext' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then lt_aix_libpath_sed=' /Import File Strings/,/^$/ { /^0/ { s/^0 *\(.*\)$/\1/ p } }' aix_libpath=`dump -H conftest$ac_exeext 2>/dev/null | $SED -n -e "$lt_aix_libpath_sed"` # Check for a 64-bit object if we didn't find anything. if test -z "$aix_libpath"; then aix_libpath=`dump -HX64 conftest$ac_exeext 2>/dev/null | $SED -n -e "$lt_aix_libpath_sed"` fi else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 fi rm -f conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext if test -z "$aix_libpath"; then aix_libpath="/usr/lib:/lib"; fi hardcode_libdir_flag_spec_GCJ='${wl}-blibpath:$libdir:'"$aix_libpath" # Warning - without using the other run time loading flags, # -berok will link without error, but may produce a broken library. no_undefined_flag_GCJ=' ${wl}-bernotok' allow_undefined_flag_GCJ=' ${wl}-berok' # Exported symbols can be pulled into shared objects from archives whole_archive_flag_spec_GCJ='$convenience' archive_cmds_need_lc_GCJ=yes # This is similar to how AIX traditionally builds its shared libraries. archive_expsym_cmds_GCJ="\$CC $shared_flag"' -o $output_objdir/$soname $libobjs $deplibs ${wl}-bnoentry $compiler_flags ${wl}-bE:$export_symbols${allow_undefined_flag}~$AR $AR_FLAGS $output_objdir/$libname$release.a $output_objdir/$soname' fi fi ;; amigaos*) archive_cmds_GCJ='$rm $output_objdir/a2ixlibrary.data~$echo "#define NAME $libname" > $output_objdir/a2ixlibrary.data~$echo "#define LIBRARY_ID 1" >> $output_objdir/a2ixlibrary.data~$echo "#define VERSION $major" >> $output_objdir/a2ixlibrary.data~$echo "#define REVISION $revision" >> $output_objdir/a2ixlibrary.data~$AR $AR_FLAGS $lib $libobjs~$RANLIB $lib~(cd $output_objdir && a2ixlibrary -32)' hardcode_libdir_flag_spec_GCJ='-L$libdir' hardcode_minus_L_GCJ=yes # see comment about different semantics on the GNU ld section ld_shlibs_GCJ=no ;; bsdi[45]*) export_dynamic_flag_spec_GCJ=-rdynamic ;; cygwin* | mingw* | pw32*) # When not using gcc, we currently assume that we are using # Microsoft Visual C++. # hardcode_libdir_flag_spec is actually meaningless, as there is # no search path for DLLs. hardcode_libdir_flag_spec_GCJ=' ' allow_undefined_flag_GCJ=unsupported # Tell ltmain to make .lib files, not .a files. libext=lib # Tell ltmain to make .dll files, not .so files. shrext_cmds=".dll" # FIXME: Setting linknames here is a bad hack. archive_cmds_GCJ='$CC -o $lib $libobjs $compiler_flags `echo "$deplibs" | $SED -e '\''s/ -lc$//'\''` -link -dll~linknames=' # The linker will automatically build a .lib file if we build a DLL. old_archive_From_new_cmds_GCJ='true' # FIXME: Should let the user specify the lib program. old_archive_cmds_GCJ='lib -OUT:$oldlib$oldobjs$old_deplibs' fix_srcfile_path_GCJ='`cygpath -w "$srcfile"`' enable_shared_with_static_runtimes_GCJ=yes ;; darwin* | rhapsody*) case $host_os in rhapsody* | darwin1.[012]) allow_undefined_flag_GCJ='${wl}-undefined ${wl}suppress' ;; *) # Darwin 1.3 on if test -z ${MACOSX_DEPLOYMENT_TARGET} ; then allow_undefined_flag_GCJ='${wl}-flat_namespace ${wl}-undefined ${wl}suppress' else case ${MACOSX_DEPLOYMENT_TARGET} in 10.[012]) allow_undefined_flag_GCJ='${wl}-flat_namespace ${wl}-undefined ${wl}suppress' ;; 10.*) allow_undefined_flag_GCJ='${wl}-undefined ${wl}dynamic_lookup' ;; esac fi ;; esac archive_cmds_need_lc_GCJ=no hardcode_direct_GCJ=no hardcode_automatic_GCJ=yes hardcode_shlibpath_var_GCJ=unsupported whole_archive_flag_spec_GCJ='' link_all_deplibs_GCJ=yes if test "$GCC" = yes ; then output_verbose_link_cmd='echo' archive_cmds_GCJ="\$CC -dynamiclib \$allow_undefined_flag -o \$lib \$libobjs \$deplibs \$compiler_flags -install_name \$rpath/\$soname \$verstring $_lt_dar_single_mod${_lt_dsymutil}" module_cmds_GCJ="\$CC \$allow_undefined_flag -o \$lib -bundle \$libobjs \$deplibs \$compiler_flags${_lt_dsymutil}" archive_expsym_cmds_GCJ="sed 's,^,_,' < \$export_symbols > \$output_objdir/\${libname}-symbols.expsym~\$CC -dynamiclib \$allow_undefined_flag -o \$lib \$libobjs \$deplibs \$compiler_flags -install_name \$rpath/\$soname \$verstring ${_lt_dar_single_mod}${_lt_dar_export_syms}${_lt_dsymutil}" module_expsym_cmds_GCJ="sed -e 's,^,_,' < \$export_symbols > \$output_objdir/\${libname}-symbols.expsym~\$CC \$allow_undefined_flag -o \$lib -bundle \$libobjs \$deplibs \$compiler_flags${_lt_dar_export_syms}${_lt_dsymutil}" else case $cc_basename in xlc*) output_verbose_link_cmd='echo' archive_cmds_GCJ='$CC -qmkshrobj $allow_undefined_flag -o $lib $libobjs $deplibs $compiler_flags ${wl}-install_name ${wl}`echo $rpath/$soname` $xlcverstring' module_cmds_GCJ='$CC $allow_undefined_flag -o $lib -bundle $libobjs $deplibs$compiler_flags' # Don't fix this by using the ld -exported_symbols_list flag, it doesn't exist in older darwin lds archive_expsym_cmds_GCJ='sed -e "s,#.*,," -e "s,^[ ]*,," -e "s,^\(..*\),_&," < $export_symbols > $output_objdir/${libname}-symbols.expsym~$CC -qmkshrobj $allow_undefined_flag -o $lib $libobjs $deplibs $compiler_flags ${wl}-install_name ${wl}$rpath/$soname $xlcverstring~nmedit -s $output_objdir/${libname}-symbols.expsym ${lib}' module_expsym_cmds_GCJ='sed -e "s,#.*,," -e "s,^[ ]*,," -e "s,^\(..*\),_&," < $export_symbols > $output_objdir/${libname}-symbols.expsym~$CC $allow_undefined_flag -o $lib -bundle $libobjs $deplibs$compiler_flags~nmedit -s $output_objdir/${libname}-symbols.expsym ${lib}' ;; *) ld_shlibs_GCJ=no ;; esac fi ;; dgux*) archive_cmds_GCJ='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags' hardcode_libdir_flag_spec_GCJ='-L$libdir' hardcode_shlibpath_var_GCJ=no ;; freebsd1*) ld_shlibs_GCJ=no ;; # FreeBSD 2.2.[012] allows us to include c++rt0.o to get C++ constructor # support. Future versions do this automatically, but an explicit c++rt0.o # does not break anything, and helps significantly (at the cost of a little # extra space). freebsd2.2*) archive_cmds_GCJ='$LD -Bshareable -o $lib $libobjs $deplibs $linker_flags /usr/lib/c++rt0.o' hardcode_libdir_flag_spec_GCJ='-R$libdir' hardcode_direct_GCJ=yes hardcode_shlibpath_var_GCJ=no ;; # Unfortunately, older versions of FreeBSD 2 do not have this feature. freebsd2*) archive_cmds_GCJ='$LD -Bshareable -o $lib $libobjs $deplibs $linker_flags' hardcode_direct_GCJ=yes hardcode_minus_L_GCJ=yes hardcode_shlibpath_var_GCJ=no ;; # FreeBSD 3 and greater uses gcc -shared to do shared libraries. freebsd* | dragonfly*) archive_cmds_GCJ='$CC -shared -o $lib $libobjs $deplibs $compiler_flags' hardcode_libdir_flag_spec_GCJ='-R$libdir' hardcode_direct_GCJ=yes hardcode_shlibpath_var_GCJ=no ;; hpux9*) if test "$GCC" = yes; then archive_cmds_GCJ='$rm $output_objdir/$soname~$CC -shared -fPIC ${wl}+b ${wl}$install_libdir -o $output_objdir/$soname $libobjs $deplibs $compiler_flags~test $output_objdir/$soname = $lib || mv $output_objdir/$soname $lib' else archive_cmds_GCJ='$rm $output_objdir/$soname~$LD -b +b $install_libdir -o $output_objdir/$soname $libobjs $deplibs $linker_flags~test $output_objdir/$soname = $lib || mv $output_objdir/$soname $lib' fi hardcode_libdir_flag_spec_GCJ='${wl}+b ${wl}$libdir' hardcode_libdir_separator_GCJ=: hardcode_direct_GCJ=yes # hardcode_minus_L: Not really in the search PATH, # but as the default location of the library. hardcode_minus_L_GCJ=yes export_dynamic_flag_spec_GCJ='${wl}-E' ;; hpux10*) if test "$GCC" = yes -a "$with_gnu_ld" = no; then archive_cmds_GCJ='$CC -shared -fPIC ${wl}+h ${wl}$soname ${wl}+b ${wl}$install_libdir -o $lib $libobjs $deplibs $compiler_flags' else archive_cmds_GCJ='$LD -b +h $soname +b $install_libdir -o $lib $libobjs $deplibs $linker_flags' fi if test "$with_gnu_ld" = no; then hardcode_libdir_flag_spec_GCJ='${wl}+b ${wl}$libdir' hardcode_libdir_separator_GCJ=: hardcode_direct_GCJ=yes export_dynamic_flag_spec_GCJ='${wl}-E' # hardcode_minus_L: Not really in the search PATH, # but as the default location of the library. hardcode_minus_L_GCJ=yes fi ;; hpux11*) if test "$GCC" = yes -a "$with_gnu_ld" = no; then case $host_cpu in hppa*64*) archive_cmds_GCJ='$CC -shared ${wl}+h ${wl}$soname -o $lib $libobjs $deplibs $compiler_flags' ;; ia64*) archive_cmds_GCJ='$CC -shared ${wl}+h ${wl}$soname ${wl}+nodefaultrpath -o $lib $libobjs $deplibs $compiler_flags' ;; *) archive_cmds_GCJ='$CC -shared -fPIC ${wl}+h ${wl}$soname ${wl}+b ${wl}$install_libdir -o $lib $libobjs $deplibs $compiler_flags' ;; esac else case $host_cpu in hppa*64*) archive_cmds_GCJ='$CC -b ${wl}+h ${wl}$soname -o $lib $libobjs $deplibs $compiler_flags' ;; ia64*) archive_cmds_GCJ='$CC -b ${wl}+h ${wl}$soname ${wl}+nodefaultrpath -o $lib $libobjs $deplibs $compiler_flags' ;; *) archive_cmds_GCJ='$CC -b ${wl}+h ${wl}$soname ${wl}+b ${wl}$install_libdir -o $lib $libobjs $deplibs $compiler_flags' ;; esac fi if test "$with_gnu_ld" = no; then hardcode_libdir_flag_spec_GCJ='${wl}+b ${wl}$libdir' hardcode_libdir_separator_GCJ=: case $host_cpu in hppa*64*|ia64*) hardcode_libdir_flag_spec_ld_GCJ='+b $libdir' hardcode_direct_GCJ=no hardcode_shlibpath_var_GCJ=no ;; *) hardcode_direct_GCJ=yes export_dynamic_flag_spec_GCJ='${wl}-E' # hardcode_minus_L: Not really in the search PATH, # but as the default location of the library. hardcode_minus_L_GCJ=yes ;; esac fi ;; irix5* | irix6* | nonstopux*) if test "$GCC" = yes; then archive_cmds_GCJ='$CC -shared $libobjs $deplibs $compiler_flags ${wl}-soname ${wl}$soname `test -n "$verstring" && echo ${wl}-set_version ${wl}$verstring` ${wl}-update_registry ${wl}${output_objdir}/so_locations -o $lib' else archive_cmds_GCJ='$LD -shared $libobjs $deplibs $linker_flags -soname $soname `test -n "$verstring" && echo -set_version $verstring` -update_registry ${output_objdir}/so_locations -o $lib' hardcode_libdir_flag_spec_ld_GCJ='-rpath $libdir' fi hardcode_libdir_flag_spec_GCJ='${wl}-rpath ${wl}$libdir' hardcode_libdir_separator_GCJ=: link_all_deplibs_GCJ=yes ;; netbsd*) if echo __ELF__ | $CC -E - | grep __ELF__ >/dev/null; then archive_cmds_GCJ='$LD -Bshareable -o $lib $libobjs $deplibs $linker_flags' # a.out else archive_cmds_GCJ='$LD -shared -o $lib $libobjs $deplibs $linker_flags' # ELF fi hardcode_libdir_flag_spec_GCJ='-R$libdir' hardcode_direct_GCJ=yes hardcode_shlibpath_var_GCJ=no ;; newsos6) archive_cmds_GCJ='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags' hardcode_direct_GCJ=yes hardcode_libdir_flag_spec_GCJ='${wl}-rpath ${wl}$libdir' hardcode_libdir_separator_GCJ=: hardcode_shlibpath_var_GCJ=no ;; openbsd*) if test -f /usr/libexec/ld.so; then hardcode_direct_GCJ=yes hardcode_shlibpath_var_GCJ=no if test -z "`echo __ELF__ | $CC -E - | grep __ELF__`" || test "$host_os-$host_cpu" = "openbsd2.8-powerpc"; then archive_cmds_GCJ='$CC -shared $pic_flag -o $lib $libobjs $deplibs $compiler_flags' archive_expsym_cmds_GCJ='$CC -shared $pic_flag -o $lib $libobjs $deplibs $compiler_flags ${wl}-retain-symbols-file,$export_symbols' hardcode_libdir_flag_spec_GCJ='${wl}-rpath,$libdir' export_dynamic_flag_spec_GCJ='${wl}-E' else case $host_os in openbsd[01].* | openbsd2.[0-7] | openbsd2.[0-7].*) archive_cmds_GCJ='$LD -Bshareable -o $lib $libobjs $deplibs $linker_flags' hardcode_libdir_flag_spec_GCJ='-R$libdir' ;; *) archive_cmds_GCJ='$CC -shared $pic_flag -o $lib $libobjs $deplibs $compiler_flags' hardcode_libdir_flag_spec_GCJ='${wl}-rpath,$libdir' ;; esac fi else ld_shlibs_GCJ=no fi ;; os2*) hardcode_libdir_flag_spec_GCJ='-L$libdir' hardcode_minus_L_GCJ=yes allow_undefined_flag_GCJ=unsupported archive_cmds_GCJ='$echo "LIBRARY $libname INITINSTANCE" > $output_objdir/$libname.def~$echo "DESCRIPTION \"$libname\"" >> $output_objdir/$libname.def~$echo DATA >> $output_objdir/$libname.def~$echo " SINGLE NONSHARED" >> $output_objdir/$libname.def~$echo EXPORTS >> $output_objdir/$libname.def~emxexp $libobjs >> $output_objdir/$libname.def~$CC -Zdll -Zcrtdll -o $lib $libobjs $deplibs $compiler_flags $output_objdir/$libname.def' old_archive_From_new_cmds_GCJ='emximp -o $output_objdir/$libname.a $output_objdir/$libname.def' ;; osf3*) if test "$GCC" = yes; then allow_undefined_flag_GCJ=' ${wl}-expect_unresolved ${wl}\*' archive_cmds_GCJ='$CC -shared${allow_undefined_flag} $libobjs $deplibs $compiler_flags ${wl}-soname ${wl}$soname `test -n "$verstring" && echo ${wl}-set_version ${wl}$verstring` ${wl}-update_registry ${wl}${output_objdir}/so_locations -o $lib' else allow_undefined_flag_GCJ=' -expect_unresolved \*' archive_cmds_GCJ='$LD -shared${allow_undefined_flag} $libobjs $deplibs $linker_flags -soname $soname `test -n "$verstring" && echo -set_version $verstring` -update_registry ${output_objdir}/so_locations -o $lib' fi hardcode_libdir_flag_spec_GCJ='${wl}-rpath ${wl}$libdir' hardcode_libdir_separator_GCJ=: ;; osf4* | osf5*) # as osf3* with the addition of -msym flag if test "$GCC" = yes; then allow_undefined_flag_GCJ=' ${wl}-expect_unresolved ${wl}\*' archive_cmds_GCJ='$CC -shared${allow_undefined_flag} $libobjs $deplibs $compiler_flags ${wl}-msym ${wl}-soname ${wl}$soname `test -n "$verstring" && echo ${wl}-set_version ${wl}$verstring` ${wl}-update_registry ${wl}${output_objdir}/so_locations -o $lib' hardcode_libdir_flag_spec_GCJ='${wl}-rpath ${wl}$libdir' else allow_undefined_flag_GCJ=' -expect_unresolved \*' archive_cmds_GCJ='$LD -shared${allow_undefined_flag} $libobjs $deplibs $linker_flags -msym -soname $soname `test -n "$verstring" && echo -set_version $verstring` -update_registry ${output_objdir}/so_locations -o $lib' archive_expsym_cmds_GCJ='for i in `cat $export_symbols`; do printf "%s %s\\n" -exported_symbol "\$i" >> $lib.exp; done; echo "-hidden">> $lib.exp~ $LD -shared${allow_undefined_flag} -input $lib.exp $linker_flags $libobjs $deplibs -soname $soname `test -n "$verstring" && echo -set_version $verstring` -update_registry ${output_objdir}/so_locations -o $lib~$rm $lib.exp' # Both c and cxx compiler support -rpath directly hardcode_libdir_flag_spec_GCJ='-rpath $libdir' fi hardcode_libdir_separator_GCJ=: ;; solaris*) no_undefined_flag_GCJ=' -z text' if test "$GCC" = yes; then wlarc='${wl}' archive_cmds_GCJ='$CC -shared ${wl}-h ${wl}$soname -o $lib $libobjs $deplibs $compiler_flags' archive_expsym_cmds_GCJ='$echo "{ global:" > $lib.exp~cat $export_symbols | $SED -e "s/\(.*\)/\1;/" >> $lib.exp~$echo "local: *; };" >> $lib.exp~ $CC -shared ${wl}-M ${wl}$lib.exp ${wl}-h ${wl}$soname -o $lib $libobjs $deplibs $compiler_flags~$rm $lib.exp' else wlarc='' archive_cmds_GCJ='$LD -G${allow_undefined_flag} -h $soname -o $lib $libobjs $deplibs $linker_flags' archive_expsym_cmds_GCJ='$echo "{ global:" > $lib.exp~cat $export_symbols | $SED -e "s/\(.*\)/\1;/" >> $lib.exp~$echo "local: *; };" >> $lib.exp~ $LD -G${allow_undefined_flag} -M $lib.exp -h $soname -o $lib $libobjs $deplibs $linker_flags~$rm $lib.exp' fi hardcode_libdir_flag_spec_GCJ='-R$libdir' hardcode_shlibpath_var_GCJ=no case $host_os in solaris2.[0-5] | solaris2.[0-5].*) ;; *) # The compiler driver will combine and reorder linker options, # but understands `-z linker_flag'. GCC discards it without `$wl', # but is careful enough not to reorder. # Supported since Solaris 2.6 (maybe 2.5.1?) if test "$GCC" = yes; then whole_archive_flag_spec_GCJ='${wl}-z ${wl}allextract$convenience ${wl}-z ${wl}defaultextract' else whole_archive_flag_spec_GCJ='-z allextract$convenience -z defaultextract' fi ;; esac link_all_deplibs_GCJ=yes ;; sunos4*) if test "x$host_vendor" = xsequent; then # Use $CC to link under sequent, because it throws in some extra .o # files that make .init and .fini sections work. archive_cmds_GCJ='$CC -G ${wl}-h $soname -o $lib $libobjs $deplibs $compiler_flags' else archive_cmds_GCJ='$LD -assert pure-text -Bstatic -o $lib $libobjs $deplibs $linker_flags' fi hardcode_libdir_flag_spec_GCJ='-L$libdir' hardcode_direct_GCJ=yes hardcode_minus_L_GCJ=yes hardcode_shlibpath_var_GCJ=no ;; sysv4) case $host_vendor in sni) archive_cmds_GCJ='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags' hardcode_direct_GCJ=yes # is this really true??? ;; siemens) ## LD is ld it makes a PLAMLIB ## CC just makes a GrossModule. archive_cmds_GCJ='$LD -G -o $lib $libobjs $deplibs $linker_flags' reload_cmds_GCJ='$CC -r -o $output$reload_objs' hardcode_direct_GCJ=no ;; motorola) archive_cmds_GCJ='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags' hardcode_direct_GCJ=no #Motorola manual says yes, but my tests say they lie ;; esac runpath_var='LD_RUN_PATH' hardcode_shlibpath_var_GCJ=no ;; sysv4.3*) archive_cmds_GCJ='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags' hardcode_shlibpath_var_GCJ=no export_dynamic_flag_spec_GCJ='-Bexport' ;; sysv4*MP*) if test -d /usr/nec; then archive_cmds_GCJ='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags' hardcode_shlibpath_var_GCJ=no runpath_var=LD_RUN_PATH hardcode_runpath_var=yes ld_shlibs_GCJ=yes fi ;; sysv4*uw2* | sysv5OpenUNIX* | sysv5UnixWare7.[01].[10]* | unixware7* | sco3.2v5.0.[024]*) no_undefined_flag_GCJ='${wl}-z,text' archive_cmds_need_lc_GCJ=no hardcode_shlibpath_var_GCJ=no runpath_var='LD_RUN_PATH' if test "$GCC" = yes; then archive_cmds_GCJ='$CC -shared ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags' archive_expsym_cmds_GCJ='$CC -shared ${wl}-Bexport:$export_symbols ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags' else archive_cmds_GCJ='$CC -G ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags' archive_expsym_cmds_GCJ='$CC -G ${wl}-Bexport:$export_symbols ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags' fi ;; sysv5* | sco3.2v5* | sco5v6*) # Note: We can NOT use -z defs as we might desire, because we do not # link with -lc, and that would cause any symbols used from libc to # always be unresolved, which means just about no library would # ever link correctly. If we're not using GNU ld we use -z text # though, which does catch some bad symbols but isn't as heavy-handed # as -z defs. no_undefined_flag_GCJ='${wl}-z,text' allow_undefined_flag_GCJ='${wl}-z,nodefs' archive_cmds_need_lc_GCJ=no hardcode_shlibpath_var_GCJ=no hardcode_libdir_flag_spec_GCJ='`test -z "$SCOABSPATH" && echo ${wl}-R,$libdir`' hardcode_libdir_separator_GCJ=':' link_all_deplibs_GCJ=yes export_dynamic_flag_spec_GCJ='${wl}-Bexport' runpath_var='LD_RUN_PATH' if test "$GCC" = yes; then archive_cmds_GCJ='$CC -shared ${wl}-h,\${SCOABSPATH:+${install_libdir}/}$soname -o $lib $libobjs $deplibs $compiler_flags' archive_expsym_cmds_GCJ='$CC -shared ${wl}-Bexport:$export_symbols ${wl}-h,\${SCOABSPATH:+${install_libdir}/}$soname -o $lib $libobjs $deplibs $compiler_flags' else archive_cmds_GCJ='$CC -G ${wl}-h,\${SCOABSPATH:+${install_libdir}/}$soname -o $lib $libobjs $deplibs $compiler_flags' archive_expsym_cmds_GCJ='$CC -G ${wl}-Bexport:$export_symbols ${wl}-h,\${SCOABSPATH:+${install_libdir}/}$soname -o $lib $libobjs $deplibs $compiler_flags' fi ;; uts4*) archive_cmds_GCJ='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags' hardcode_libdir_flag_spec_GCJ='-L$libdir' hardcode_shlibpath_var_GCJ=no ;; *) ld_shlibs_GCJ=no ;; esac fi echo "$as_me:$LINENO: result: $ld_shlibs_GCJ" >&5 echo "${ECHO_T}$ld_shlibs_GCJ" >&6 test "$ld_shlibs_GCJ" = no && can_build_shared=no # # Do we need to explicitly link libc? # case "x$archive_cmds_need_lc_GCJ" in x|xyes) # Assume -lc should be added archive_cmds_need_lc_GCJ=yes if test "$enable_shared" = yes && test "$GCC" = yes; then case $archive_cmds_GCJ in *'~'*) # FIXME: we may have to deal with multi-command sequences. ;; '$CC '*) # Test whether the compiler implicitly links with -lc since on some # systems, -lgcc has to come before -lc. If gcc already passes -lc # to ld, don't add -lc before -lgcc. echo "$as_me:$LINENO: checking whether -lc should be explicitly linked in" >&5 echo $ECHO_N "checking whether -lc should be explicitly linked in... $ECHO_C" >&6 $rm conftest* echo "$lt_simple_compile_test_code" > conftest.$ac_ext if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 (eval $ac_compile) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } 2>conftest.err; then soname=conftest lib=conftest libobjs=conftest.$ac_objext deplibs= wl=$lt_prog_compiler_wl_GCJ pic_flag=$lt_prog_compiler_pic_GCJ compiler_flags=-v linker_flags=-v verstring= output_objdir=. libname=conftest lt_save_allow_undefined_flag=$allow_undefined_flag_GCJ allow_undefined_flag_GCJ= if { (eval echo "$as_me:$LINENO: \"$archive_cmds_GCJ 2\>\&1 \| grep \" -lc \" \>/dev/null 2\>\&1\"") >&5 (eval $archive_cmds_GCJ 2\>\&1 \| grep \" -lc \" \>/dev/null 2\>\&1) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } then archive_cmds_need_lc_GCJ=no else archive_cmds_need_lc_GCJ=yes fi allow_undefined_flag_GCJ=$lt_save_allow_undefined_flag else cat conftest.err 1>&5 fi $rm conftest* echo "$as_me:$LINENO: result: $archive_cmds_need_lc_GCJ" >&5 echo "${ECHO_T}$archive_cmds_need_lc_GCJ" >&6 ;; esac fi ;; esac echo "$as_me:$LINENO: checking dynamic linker characteristics" >&5 echo $ECHO_N "checking dynamic linker characteristics... $ECHO_C" >&6 library_names_spec= libname_spec='lib$name' soname_spec= shrext_cmds=".so" postinstall_cmds= postuninstall_cmds= finish_cmds= finish_eval= shlibpath_var= shlibpath_overrides_runpath=unknown version_type=none dynamic_linker="$host_os ld.so" sys_lib_dlsearch_path_spec="/lib /usr/lib" need_lib_prefix=unknown hardcode_into_libs=no # when you set need_version to no, make sure it does not cause -set_version # flags to be left without arguments need_version=unknown case $host_os in aix3*) version_type=linux library_names_spec='${libname}${release}${shared_ext}$versuffix $libname.a' shlibpath_var=LIBPATH # AIX 3 has no versioning support, so we append a major version to the name. soname_spec='${libname}${release}${shared_ext}$major' ;; aix[4-9]*) version_type=linux need_lib_prefix=no need_version=no hardcode_into_libs=yes if test "$host_cpu" = ia64; then # AIX 5 supports IA64 library_names_spec='${libname}${release}${shared_ext}$major ${libname}${release}${shared_ext}$versuffix $libname${shared_ext}' shlibpath_var=LD_LIBRARY_PATH else # With GCC up to 2.95.x, collect2 would create an import file # for dependence libraries. The import file would start with # the line `#! .'. This would cause the generated library to # depend on `.', always an invalid library. This was fixed in # development snapshots of GCC prior to 3.0. case $host_os in aix4 | aix4.[01] | aix4.[01].*) if { echo '#if __GNUC__ > 2 || (__GNUC__ == 2 && __GNUC_MINOR__ >= 97)' echo ' yes ' echo '#endif'; } | ${CC} -E - | grep yes > /dev/null; then : else can_build_shared=no fi ;; esac # AIX (on Power*) has no versioning support, so currently we can not hardcode correct # soname into executable. Probably we can add versioning support to # collect2, so additional links can be useful in future. if test "$aix_use_runtimelinking" = yes; then # If using run time linking (on AIX 4.2 or later) use lib.so # instead of lib.a to let people know that these are not # typical AIX shared libraries. library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' else # We preserve .a as extension for shared libraries through AIX4.2 # and later when we are not doing run time linking. library_names_spec='${libname}${release}.a $libname.a' soname_spec='${libname}${release}${shared_ext}$major' fi shlibpath_var=LIBPATH fi ;; amigaos*) library_names_spec='$libname.ixlibrary $libname.a' # Create ${libname}_ixlibrary.a entries in /sys/libs. finish_eval='for lib in `ls $libdir/*.ixlibrary 2>/dev/null`; do libname=`$echo "X$lib" | $Xsed -e '\''s%^.*/\([^/]*\)\.ixlibrary$%\1%'\''`; test $rm /sys/libs/${libname}_ixlibrary.a; $show "cd /sys/libs && $LN_S $lib ${libname}_ixlibrary.a"; cd /sys/libs && $LN_S $lib ${libname}_ixlibrary.a || exit 1; done' ;; beos*) library_names_spec='${libname}${shared_ext}' dynamic_linker="$host_os ld.so" shlibpath_var=LIBRARY_PATH ;; bsdi[45]*) version_type=linux need_version=no library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' finish_cmds='PATH="\$PATH:/sbin" ldconfig $libdir' shlibpath_var=LD_LIBRARY_PATH sys_lib_search_path_spec="/shlib /usr/lib /usr/X11/lib /usr/contrib/lib /lib /usr/local/lib" sys_lib_dlsearch_path_spec="/shlib /usr/lib /usr/local/lib" # the default ld.so.conf also contains /usr/contrib/lib and # /usr/X11R6/lib (/usr/X11 is a link to /usr/X11R6), but let us allow # libtool to hard-code these into programs ;; cygwin* | mingw* | pw32*) version_type=windows shrext_cmds=".dll" need_version=no need_lib_prefix=no case $GCC,$host_os in yes,cygwin* | yes,mingw* | yes,pw32*) library_names_spec='$libname.dll.a' # DLL is installed to $(libdir)/../bin by postinstall_cmds postinstall_cmds='base_file=`basename \${file}`~ dlpath=`$SHELL 2>&1 -c '\''. $dir/'\''\${base_file}'\''i;echo \$dlname'\''`~ dldir=$destdir/`dirname \$dlpath`~ test -d \$dldir || mkdir -p \$dldir~ $install_prog $dir/$dlname \$dldir/$dlname~ chmod a+x \$dldir/$dlname' postuninstall_cmds='dldll=`$SHELL 2>&1 -c '\''. $file; echo \$dlname'\''`~ dlpath=$dir/\$dldll~ $rm \$dlpath' shlibpath_overrides_runpath=yes case $host_os in cygwin*) # Cygwin DLLs use 'cyg' prefix rather than 'lib' soname_spec='`echo ${libname} | sed -e 's/^lib/cyg/'``echo ${release} | $SED -e 's/[.]/-/g'`${versuffix}${shared_ext}' sys_lib_search_path_spec="/usr/lib /lib/w32api /lib /usr/local/lib" ;; mingw*) # MinGW DLLs use traditional 'lib' prefix soname_spec='${libname}`echo ${release} | $SED -e 's/[.]/-/g'`${versuffix}${shared_ext}' sys_lib_search_path_spec=`$CC -print-search-dirs | grep "^libraries:" | $SED -e "s/^libraries://" -e "s,=/,/,g"` if echo "$sys_lib_search_path_spec" | grep ';[c-zC-Z]:/' >/dev/null; then # It is most probably a Windows format PATH printed by # mingw gcc, but we are running on Cygwin. Gcc prints its search # path with ; separators, and with drive letters. We can handle the # drive letters (cygwin fileutils understands them), so leave them, # especially as we might pass files found there to a mingw objdump, # which wouldn't understand a cygwinified path. Ahh. sys_lib_search_path_spec=`echo "$sys_lib_search_path_spec" | $SED -e 's/;/ /g'` else sys_lib_search_path_spec=`echo "$sys_lib_search_path_spec" | $SED -e "s/$PATH_SEPARATOR/ /g"` fi ;; pw32*) # pw32 DLLs use 'pw' prefix rather than 'lib' library_names_spec='`echo ${libname} | sed -e 's/^lib/pw/'``echo ${release} | $SED -e 's/[.]/-/g'`${versuffix}${shared_ext}' ;; esac ;; *) library_names_spec='${libname}`echo ${release} | $SED -e 's/[.]/-/g'`${versuffix}${shared_ext} $libname.lib' ;; esac dynamic_linker='Win32 ld.exe' # FIXME: first we should search . and the directory the executable is in shlibpath_var=PATH ;; darwin* | rhapsody*) dynamic_linker="$host_os dyld" version_type=darwin need_lib_prefix=no need_version=no library_names_spec='${libname}${release}${versuffix}$shared_ext ${libname}${release}${major}$shared_ext ${libname}$shared_ext' soname_spec='${libname}${release}${major}$shared_ext' shlibpath_overrides_runpath=yes shlibpath_var=DYLD_LIBRARY_PATH shrext_cmds='`test .$module = .yes && echo .so || echo .dylib`' sys_lib_dlsearch_path_spec='/usr/local/lib /lib /usr/lib' ;; dgux*) version_type=linux need_lib_prefix=no need_version=no library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname$shared_ext' soname_spec='${libname}${release}${shared_ext}$major' shlibpath_var=LD_LIBRARY_PATH ;; freebsd1*) dynamic_linker=no ;; freebsd* | dragonfly*) # DragonFly does not have aout. When/if they implement a new # versioning mechanism, adjust this. if test -x /usr/bin/objformat; then objformat=`/usr/bin/objformat` else case $host_os in freebsd[123]*) objformat=aout ;; *) objformat=elf ;; esac fi version_type=freebsd-$objformat case $version_type in freebsd-elf*) library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext} $libname${shared_ext}' need_version=no need_lib_prefix=no ;; freebsd-*) library_names_spec='${libname}${release}${shared_ext}$versuffix $libname${shared_ext}$versuffix' need_version=yes ;; esac shlibpath_var=LD_LIBRARY_PATH case $host_os in freebsd2*) shlibpath_overrides_runpath=yes ;; freebsd3.[01]* | freebsdelf3.[01]*) shlibpath_overrides_runpath=yes hardcode_into_libs=yes ;; freebsd3.[2-9]* | freebsdelf3.[2-9]* | \ freebsd4.[0-5] | freebsdelf4.[0-5] | freebsd4.1.1 | freebsdelf4.1.1) shlibpath_overrides_runpath=no hardcode_into_libs=yes ;; *) # from 4.6 on, and DragonFly shlibpath_overrides_runpath=yes hardcode_into_libs=yes ;; esac ;; gnu*) version_type=linux need_lib_prefix=no need_version=no library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}${major} ${libname}${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' shlibpath_var=LD_LIBRARY_PATH hardcode_into_libs=yes ;; hpux9* | hpux10* | hpux11*) # Give a soname corresponding to the major version so that dld.sl refuses to # link against other versions. version_type=sunos need_lib_prefix=no need_version=no case $host_cpu in ia64*) shrext_cmds='.so' hardcode_into_libs=yes dynamic_linker="$host_os dld.so" shlibpath_var=LD_LIBRARY_PATH shlibpath_overrides_runpath=yes # Unless +noenvvar is specified. library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' if test "X$HPUX_IA64_MODE" = X32; then sys_lib_search_path_spec="/usr/lib/hpux32 /usr/local/lib/hpux32 /usr/local/lib" else sys_lib_search_path_spec="/usr/lib/hpux64 /usr/local/lib/hpux64" fi sys_lib_dlsearch_path_spec=$sys_lib_search_path_spec ;; hppa*64*) shrext_cmds='.sl' hardcode_into_libs=yes dynamic_linker="$host_os dld.sl" shlibpath_var=LD_LIBRARY_PATH # How should we handle SHLIB_PATH shlibpath_overrides_runpath=yes # Unless +noenvvar is specified. library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' sys_lib_search_path_spec="/usr/lib/pa20_64 /usr/ccs/lib/pa20_64" sys_lib_dlsearch_path_spec=$sys_lib_search_path_spec ;; *) shrext_cmds='.sl' dynamic_linker="$host_os dld.sl" shlibpath_var=SHLIB_PATH shlibpath_overrides_runpath=no # +s is required to enable SHLIB_PATH library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' ;; esac # HP-UX runs *really* slowly unless shared libraries are mode 555. postinstall_cmds='chmod 555 $lib' ;; interix[3-9]*) version_type=linux need_lib_prefix=no need_version=no library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major ${libname}${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' dynamic_linker='Interix 3.x ld.so.1 (PE, like ELF)' shlibpath_var=LD_LIBRARY_PATH shlibpath_overrides_runpath=no hardcode_into_libs=yes ;; irix5* | irix6* | nonstopux*) case $host_os in nonstopux*) version_type=nonstopux ;; *) if test "$lt_cv_prog_gnu_ld" = yes; then version_type=linux else version_type=irix fi ;; esac need_lib_prefix=no need_version=no soname_spec='${libname}${release}${shared_ext}$major' library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major ${libname}${release}${shared_ext} $libname${shared_ext}' case $host_os in irix5* | nonstopux*) libsuff= shlibsuff= ;; *) case $LD in # libtool.m4 will add one of these switches to LD *-32|*"-32 "|*-melf32bsmip|*"-melf32bsmip ") libsuff= shlibsuff= libmagic=32-bit;; *-n32|*"-n32 "|*-melf32bmipn32|*"-melf32bmipn32 ") libsuff=32 shlibsuff=N32 libmagic=N32;; *-64|*"-64 "|*-melf64bmip|*"-melf64bmip ") libsuff=64 shlibsuff=64 libmagic=64-bit;; *) libsuff= shlibsuff= libmagic=never-match;; esac ;; esac shlibpath_var=LD_LIBRARY${shlibsuff}_PATH shlibpath_overrides_runpath=no sys_lib_search_path_spec="/usr/lib${libsuff} /lib${libsuff} /usr/local/lib${libsuff}" sys_lib_dlsearch_path_spec="/usr/lib${libsuff} /lib${libsuff}" hardcode_into_libs=yes ;; # No shared lib support for Linux oldld, aout, or coff. linux*oldld* | linux*aout* | linux*coff*) dynamic_linker=no ;; # This must be Linux ELF. linux* | k*bsd*-gnu) version_type=linux need_lib_prefix=no need_version=no library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' finish_cmds='PATH="\$PATH:/sbin" ldconfig -n $libdir' shlibpath_var=LD_LIBRARY_PATH shlibpath_overrides_runpath=no # This implies no fast_install, which is unacceptable. # Some rework will be needed to allow for fast_install # before this can be enabled. hardcode_into_libs=yes sys_lib_search_path_spec="/usr/lib${libsuff} /lib${libsuff} /usr/local/lib${libsuff}" sys_lib_dlsearch_path_spec="/usr/lib${libsuff} /lib${libsuff}" # Append ld.so.conf contents to the search path if test -f /etc/ld.so.conf; then lt_ld_extra=`awk '/^include / { system(sprintf("cd /etc; cat %s 2>/dev/null", \$2)); skip = 1; } { if (!skip) print \$0; skip = 0; }' < /etc/ld.so.conf | $SED -e 's/#.*//;/^[ ]*hwcap[ ]/d;s/[:, ]/ /g;s/=[^=]*$//;s/=[^= ]* / /g;/^$/d' | tr '\n' ' '` sys_lib_dlsearch_path_spec="$sys_lib_dlsearch_path_spec $lt_ld_extra" fi # We used to test for /lib/ld.so.1 and disable shared libraries on # powerpc, because MkLinux only supported shared libraries with the # GNU dynamic linker. Since this was broken with cross compilers, # most powerpc-linux boxes support dynamic linking these days and # people can always --disable-shared, the test was removed, and we # assume the GNU/Linux dynamic linker is in use. dynamic_linker='GNU/Linux ld.so' ;; netbsd*) version_type=sunos need_lib_prefix=no need_version=no if echo __ELF__ | $CC -E - | grep __ELF__ >/dev/null; then library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${shared_ext}$versuffix' finish_cmds='PATH="\$PATH:/sbin" ldconfig -m $libdir' dynamic_linker='NetBSD (a.out) ld.so' else library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major ${libname}${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' dynamic_linker='NetBSD ld.elf_so' fi shlibpath_var=LD_LIBRARY_PATH shlibpath_overrides_runpath=yes hardcode_into_libs=yes ;; newsos6) version_type=linux library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' shlibpath_var=LD_LIBRARY_PATH shlibpath_overrides_runpath=yes ;; nto-qnx*) version_type=linux need_lib_prefix=no need_version=no library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' shlibpath_var=LD_LIBRARY_PATH shlibpath_overrides_runpath=yes ;; openbsd*) version_type=sunos sys_lib_dlsearch_path_spec="/usr/lib" need_lib_prefix=no # Some older versions of OpenBSD (3.3 at least) *do* need versioned libs. case $host_os in openbsd3.3 | openbsd3.3.*) need_version=yes ;; *) need_version=no ;; esac library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${shared_ext}$versuffix' finish_cmds='PATH="\$PATH:/sbin" ldconfig -m $libdir' shlibpath_var=LD_LIBRARY_PATH if test -z "`echo __ELF__ | $CC -E - | grep __ELF__`" || test "$host_os-$host_cpu" = "openbsd2.8-powerpc"; then case $host_os in openbsd2.[89] | openbsd2.[89].*) shlibpath_overrides_runpath=no ;; *) shlibpath_overrides_runpath=yes ;; esac else shlibpath_overrides_runpath=yes fi ;; os2*) libname_spec='$name' shrext_cmds=".dll" need_lib_prefix=no library_names_spec='$libname${shared_ext} $libname.a' dynamic_linker='OS/2 ld.exe' shlibpath_var=LIBPATH ;; osf3* | osf4* | osf5*) version_type=osf need_lib_prefix=no need_version=no soname_spec='${libname}${release}${shared_ext}$major' library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' shlibpath_var=LD_LIBRARY_PATH sys_lib_search_path_spec="/usr/shlib /usr/ccs/lib /usr/lib/cmplrs/cc /usr/lib /usr/local/lib /var/shlib" sys_lib_dlsearch_path_spec="$sys_lib_search_path_spec" ;; rdos*) dynamic_linker=no ;; solaris*) version_type=linux need_lib_prefix=no need_version=no library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' shlibpath_var=LD_LIBRARY_PATH shlibpath_overrides_runpath=yes hardcode_into_libs=yes # ldd complains unless libraries are executable postinstall_cmds='chmod +x $lib' ;; sunos4*) version_type=sunos library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${shared_ext}$versuffix' finish_cmds='PATH="\$PATH:/usr/etc" ldconfig $libdir' shlibpath_var=LD_LIBRARY_PATH shlibpath_overrides_runpath=yes if test "$with_gnu_ld" = yes; then need_lib_prefix=no fi need_version=yes ;; sysv4 | sysv4.3*) version_type=linux library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' shlibpath_var=LD_LIBRARY_PATH case $host_vendor in sni) shlibpath_overrides_runpath=no need_lib_prefix=no export_dynamic_flag_spec='${wl}-Blargedynsym' runpath_var=LD_RUN_PATH ;; siemens) need_lib_prefix=no ;; motorola) need_lib_prefix=no need_version=no shlibpath_overrides_runpath=no sys_lib_search_path_spec='/lib /usr/lib /usr/ccs/lib' ;; esac ;; sysv4*MP*) if test -d /usr/nec ;then version_type=linux library_names_spec='$libname${shared_ext}.$versuffix $libname${shared_ext}.$major $libname${shared_ext}' soname_spec='$libname${shared_ext}.$major' shlibpath_var=LD_LIBRARY_PATH fi ;; sysv5* | sco3.2v5* | sco5v6* | unixware* | OpenUNIX* | sysv4*uw2*) version_type=freebsd-elf need_lib_prefix=no need_version=no library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext} $libname${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' shlibpath_var=LD_LIBRARY_PATH hardcode_into_libs=yes if test "$with_gnu_ld" = yes; then sys_lib_search_path_spec='/usr/local/lib /usr/gnu/lib /usr/ccs/lib /usr/lib /lib' shlibpath_overrides_runpath=no else sys_lib_search_path_spec='/usr/ccs/lib /usr/lib' shlibpath_overrides_runpath=yes case $host_os in sco3.2v5*) sys_lib_search_path_spec="$sys_lib_search_path_spec /lib" ;; esac fi sys_lib_dlsearch_path_spec='/usr/lib' ;; uts4*) version_type=linux library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' shlibpath_var=LD_LIBRARY_PATH ;; *) dynamic_linker=no ;; esac echo "$as_me:$LINENO: result: $dynamic_linker" >&5 echo "${ECHO_T}$dynamic_linker" >&6 test "$dynamic_linker" = no && can_build_shared=no if test "${lt_cv_sys_lib_search_path_spec+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else lt_cv_sys_lib_search_path_spec="$sys_lib_search_path_spec" fi sys_lib_search_path_spec="$lt_cv_sys_lib_search_path_spec" if test "${lt_cv_sys_lib_dlsearch_path_spec+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else lt_cv_sys_lib_dlsearch_path_spec="$sys_lib_dlsearch_path_spec" fi sys_lib_dlsearch_path_spec="$lt_cv_sys_lib_dlsearch_path_spec" variables_saved_for_relink="PATH $shlibpath_var $runpath_var" if test "$GCC" = yes; then variables_saved_for_relink="$variables_saved_for_relink GCC_EXEC_PREFIX COMPILER_PATH LIBRARY_PATH" fi echo "$as_me:$LINENO: checking how to hardcode library paths into programs" >&5 echo $ECHO_N "checking how to hardcode library paths into programs... $ECHO_C" >&6 hardcode_action_GCJ= if test -n "$hardcode_libdir_flag_spec_GCJ" || \ test -n "$runpath_var_GCJ" || \ test "X$hardcode_automatic_GCJ" = "Xyes" ; then # We can hardcode non-existant directories. if test "$hardcode_direct_GCJ" != no && # If the only mechanism to avoid hardcoding is shlibpath_var, we # have to relink, otherwise we might link with an installed library # when we should be linking with a yet-to-be-installed one ## test "$_LT_AC_TAGVAR(hardcode_shlibpath_var, GCJ)" != no && test "$hardcode_minus_L_GCJ" != no; then # Linking always hardcodes the temporary library directory. hardcode_action_GCJ=relink else # We can link without hardcoding, and we can hardcode nonexisting dirs. hardcode_action_GCJ=immediate fi else # We cannot hardcode anything, or else we can only hardcode existing # directories. hardcode_action_GCJ=unsupported fi echo "$as_me:$LINENO: result: $hardcode_action_GCJ" >&5 echo "${ECHO_T}$hardcode_action_GCJ" >&6 if test "$hardcode_action_GCJ" = relink; then # Fast installation is not supported enable_fast_install=no elif test "$shlibpath_overrides_runpath" = yes || test "$enable_shared" = no; then # Fast installation is not necessary enable_fast_install=needless fi # The else clause should only fire when bootstrapping the # libtool distribution, otherwise you forgot to ship ltmain.sh # with your package, and you will get complaints that there are # no rules to generate ltmain.sh. if test -f "$ltmain"; then # See if we are running on zsh, and set the options which allow our commands through # without removal of \ escapes. if test -n "${ZSH_VERSION+set}" ; then setopt NO_GLOB_SUBST fi # Now quote all the things that may contain metacharacters while being # careful not to overquote the AC_SUBSTed values. We take copies of the # variables and quote the copies for generation of the libtool script. for var in echo old_CC old_CFLAGS AR AR_FLAGS EGREP RANLIB LN_S LTCC LTCFLAGS NM \ SED SHELL STRIP \ libname_spec library_names_spec soname_spec extract_expsyms_cmds \ old_striplib striplib file_magic_cmd finish_cmds finish_eval \ deplibs_check_method reload_flag reload_cmds need_locks \ lt_cv_sys_global_symbol_pipe lt_cv_sys_global_symbol_to_cdecl \ lt_cv_sys_global_symbol_to_c_name_address \ sys_lib_search_path_spec sys_lib_dlsearch_path_spec \ old_postinstall_cmds old_postuninstall_cmds \ compiler_GCJ \ CC_GCJ \ LD_GCJ \ lt_prog_compiler_wl_GCJ \ lt_prog_compiler_pic_GCJ \ lt_prog_compiler_static_GCJ \ lt_prog_compiler_no_builtin_flag_GCJ \ export_dynamic_flag_spec_GCJ \ thread_safe_flag_spec_GCJ \ whole_archive_flag_spec_GCJ \ enable_shared_with_static_runtimes_GCJ \ old_archive_cmds_GCJ \ old_archive_from_new_cmds_GCJ \ predep_objects_GCJ \ postdep_objects_GCJ \ predeps_GCJ \ postdeps_GCJ \ compiler_lib_search_path_GCJ \ compiler_lib_search_dirs_GCJ \ archive_cmds_GCJ \ archive_expsym_cmds_GCJ \ postinstall_cmds_GCJ \ postuninstall_cmds_GCJ \ old_archive_from_expsyms_cmds_GCJ \ allow_undefined_flag_GCJ \ no_undefined_flag_GCJ \ export_symbols_cmds_GCJ \ hardcode_libdir_flag_spec_GCJ \ hardcode_libdir_flag_spec_ld_GCJ \ hardcode_libdir_separator_GCJ \ hardcode_automatic_GCJ \ module_cmds_GCJ \ module_expsym_cmds_GCJ \ lt_cv_prog_compiler_c_o_GCJ \ fix_srcfile_path_GCJ \ exclude_expsyms_GCJ \ include_expsyms_GCJ; do case $var in old_archive_cmds_GCJ | \ old_archive_from_new_cmds_GCJ | \ archive_cmds_GCJ | \ archive_expsym_cmds_GCJ | \ module_cmds_GCJ | \ module_expsym_cmds_GCJ | \ old_archive_from_expsyms_cmds_GCJ | \ export_symbols_cmds_GCJ | \ extract_expsyms_cmds | reload_cmds | finish_cmds | \ postinstall_cmds | postuninstall_cmds | \ old_postinstall_cmds | old_postuninstall_cmds | \ sys_lib_search_path_spec | sys_lib_dlsearch_path_spec) # Double-quote double-evaled strings. eval "lt_$var=\\\"\`\$echo \"X\$$var\" | \$Xsed -e \"\$double_quote_subst\" -e \"\$sed_quote_subst\" -e \"\$delay_variable_subst\"\`\\\"" ;; *) eval "lt_$var=\\\"\`\$echo \"X\$$var\" | \$Xsed -e \"\$sed_quote_subst\"\`\\\"" ;; esac done case $lt_echo in *'\$0 --fallback-echo"') lt_echo=`$echo "X$lt_echo" | $Xsed -e 's/\\\\\\\$0 --fallback-echo"$/$0 --fallback-echo"/'` ;; esac cfgfile="$ofile" cat <<__EOF__ >> "$cfgfile" # ### BEGIN LIBTOOL TAG CONFIG: $tagname # Libtool was configured on host `(hostname || uname -n) 2>/dev/null | sed 1q`: # Shell to use when invoking shell scripts. SHELL=$lt_SHELL # Whether or not to build shared libraries. build_libtool_libs=$enable_shared # Whether or not to build static libraries. build_old_libs=$enable_static # Whether or not to add -lc for building shared libraries. build_libtool_need_lc=$archive_cmds_need_lc_GCJ # Whether or not to disallow shared libs when runtime libs are static allow_libtool_libs_with_static_runtimes=$enable_shared_with_static_runtimes_GCJ # Whether or not to optimize for fast installation. fast_install=$enable_fast_install # The host system. host_alias=$host_alias host=$host host_os=$host_os # The build system. build_alias=$build_alias build=$build build_os=$build_os # An echo program that does not interpret backslashes. echo=$lt_echo # The archiver. AR=$lt_AR AR_FLAGS=$lt_AR_FLAGS # A C compiler. LTCC=$lt_LTCC # LTCC compiler flags. LTCFLAGS=$lt_LTCFLAGS # A language-specific compiler. CC=$lt_compiler_GCJ # Is the compiler the GNU C compiler? with_gcc=$GCC_GCJ # An ERE matcher. EGREP=$lt_EGREP # The linker used to build libraries. LD=$lt_LD_GCJ # Whether we need hard or soft links. LN_S=$lt_LN_S # A BSD-compatible nm program. NM=$lt_NM # A symbol stripping program STRIP=$lt_STRIP # Used to examine libraries when file_magic_cmd begins "file" MAGIC_CMD=$MAGIC_CMD # Used on cygwin: DLL creation program. DLLTOOL="$DLLTOOL" # Used on cygwin: object dumper. OBJDUMP="$OBJDUMP" # Used on cygwin: assembler. AS="$AS" # The name of the directory that contains temporary libtool files. objdir=$objdir # How to create reloadable object files. reload_flag=$lt_reload_flag reload_cmds=$lt_reload_cmds # How to pass a linker flag through the compiler. wl=$lt_lt_prog_compiler_wl_GCJ # Object file suffix (normally "o"). objext="$ac_objext" # Old archive suffix (normally "a"). libext="$libext" # Shared library suffix (normally ".so"). shrext_cmds='$shrext_cmds' # Executable file suffix (normally ""). exeext="$exeext" # Additional compiler flags for building library objects. pic_flag=$lt_lt_prog_compiler_pic_GCJ pic_mode=$pic_mode # What is the maximum length of a command? max_cmd_len=$lt_cv_sys_max_cmd_len # Does compiler simultaneously support -c and -o options? compiler_c_o=$lt_lt_cv_prog_compiler_c_o_GCJ # Must we lock files when doing compilation? need_locks=$lt_need_locks # Do we need the lib prefix for modules? need_lib_prefix=$need_lib_prefix # Do we need a version for libraries? need_version=$need_version # Whether dlopen is supported. dlopen_support=$enable_dlopen # Whether dlopen of programs is supported. dlopen_self=$enable_dlopen_self # Whether dlopen of statically linked programs is supported. dlopen_self_static=$enable_dlopen_self_static # Compiler flag to prevent dynamic linking. link_static_flag=$lt_lt_prog_compiler_static_GCJ # Compiler flag to turn off builtin functions. no_builtin_flag=$lt_lt_prog_compiler_no_builtin_flag_GCJ # Compiler flag to allow reflexive dlopens. export_dynamic_flag_spec=$lt_export_dynamic_flag_spec_GCJ # Compiler flag to generate shared objects directly from archives. whole_archive_flag_spec=$lt_whole_archive_flag_spec_GCJ # Compiler flag to generate thread-safe objects. thread_safe_flag_spec=$lt_thread_safe_flag_spec_GCJ # Library versioning type. version_type=$version_type # Format of library name prefix. libname_spec=$lt_libname_spec # List of archive names. First name is the real one, the rest are links. # The last name is the one that the linker finds with -lNAME. library_names_spec=$lt_library_names_spec # The coded name of the library, if different from the real name. soname_spec=$lt_soname_spec # Commands used to build and install an old-style archive. RANLIB=$lt_RANLIB old_archive_cmds=$lt_old_archive_cmds_GCJ old_postinstall_cmds=$lt_old_postinstall_cmds old_postuninstall_cmds=$lt_old_postuninstall_cmds # Create an old-style archive from a shared archive. old_archive_from_new_cmds=$lt_old_archive_from_new_cmds_GCJ # Create a temporary old-style archive to link instead of a shared archive. old_archive_from_expsyms_cmds=$lt_old_archive_from_expsyms_cmds_GCJ # Commands used to build and install a shared archive. archive_cmds=$lt_archive_cmds_GCJ archive_expsym_cmds=$lt_archive_expsym_cmds_GCJ postinstall_cmds=$lt_postinstall_cmds postuninstall_cmds=$lt_postuninstall_cmds # Commands used to build a loadable module (assumed same as above if empty) module_cmds=$lt_module_cmds_GCJ module_expsym_cmds=$lt_module_expsym_cmds_GCJ # Commands to strip libraries. old_striplib=$lt_old_striplib striplib=$lt_striplib # Dependencies to place before the objects being linked to create a # shared library. predep_objects=$lt_predep_objects_GCJ # Dependencies to place after the objects being linked to create a # shared library. postdep_objects=$lt_postdep_objects_GCJ # Dependencies to place before the objects being linked to create a # shared library. predeps=$lt_predeps_GCJ # Dependencies to place after the objects being linked to create a # shared library. postdeps=$lt_postdeps_GCJ # The directories searched by this compiler when creating a shared # library compiler_lib_search_dirs=$lt_compiler_lib_search_dirs_GCJ # The library search path used internally by the compiler when linking # a shared library. compiler_lib_search_path=$lt_compiler_lib_search_path_GCJ # Method to check whether dependent libraries are shared objects. deplibs_check_method=$lt_deplibs_check_method # Command to use when deplibs_check_method == file_magic. file_magic_cmd=$lt_file_magic_cmd # Flag that allows shared libraries with undefined symbols to be built. allow_undefined_flag=$lt_allow_undefined_flag_GCJ # Flag that forces no undefined symbols. no_undefined_flag=$lt_no_undefined_flag_GCJ # Commands used to finish a libtool library installation in a directory. finish_cmds=$lt_finish_cmds # Same as above, but a single script fragment to be evaled but not shown. finish_eval=$lt_finish_eval # Take the output of nm and produce a listing of raw symbols and C names. global_symbol_pipe=$lt_lt_cv_sys_global_symbol_pipe # Transform the output of nm in a proper C declaration global_symbol_to_cdecl=$lt_lt_cv_sys_global_symbol_to_cdecl # Transform the output of nm in a C name address pair global_symbol_to_c_name_address=$lt_lt_cv_sys_global_symbol_to_c_name_address # This is the shared library runtime path variable. runpath_var=$runpath_var # This is the shared library path variable. shlibpath_var=$shlibpath_var # Is shlibpath searched before the hard-coded library search path? shlibpath_overrides_runpath=$shlibpath_overrides_runpath # How to hardcode a shared library path into an executable. hardcode_action=$hardcode_action_GCJ # Whether we should hardcode library paths into libraries. hardcode_into_libs=$hardcode_into_libs # Flag to hardcode \$libdir into a binary during linking. # This must work even if \$libdir does not exist. hardcode_libdir_flag_spec=$lt_hardcode_libdir_flag_spec_GCJ # If ld is used when linking, flag to hardcode \$libdir into # a binary during linking. This must work even if \$libdir does # not exist. hardcode_libdir_flag_spec_ld=$lt_hardcode_libdir_flag_spec_ld_GCJ # Whether we need a single -rpath flag with a separated argument. hardcode_libdir_separator=$lt_hardcode_libdir_separator_GCJ # Set to yes if using DIR/libNAME${shared_ext} during linking hardcodes DIR into the # resulting binary. hardcode_direct=$hardcode_direct_GCJ # Set to yes if using the -LDIR flag during linking hardcodes DIR into the # resulting binary. hardcode_minus_L=$hardcode_minus_L_GCJ # Set to yes if using SHLIBPATH_VAR=DIR during linking hardcodes DIR into # the resulting binary. hardcode_shlibpath_var=$hardcode_shlibpath_var_GCJ # Set to yes if building a shared library automatically hardcodes DIR into the library # and all subsequent libraries and executables linked against it. hardcode_automatic=$hardcode_automatic_GCJ # Variables whose values should be saved in libtool wrapper scripts and # restored at relink time. variables_saved_for_relink="$variables_saved_for_relink" # Whether libtool must link a program against all its dependency libraries. link_all_deplibs=$link_all_deplibs_GCJ # Compile-time system search path for libraries sys_lib_search_path_spec=$lt_sys_lib_search_path_spec # Run-time system search path for libraries sys_lib_dlsearch_path_spec=$lt_sys_lib_dlsearch_path_spec # Fix the shell variable \$srcfile for the compiler. fix_srcfile_path=$lt_fix_srcfile_path # Set to yes if exported symbols are required. always_export_symbols=$always_export_symbols_GCJ # The commands to list exported symbols. export_symbols_cmds=$lt_export_symbols_cmds_GCJ # The commands to extract the exported symbol list from a shared archive. extract_expsyms_cmds=$lt_extract_expsyms_cmds # Symbols that should not be listed in the preloaded symbols. exclude_expsyms=$lt_exclude_expsyms_GCJ # Symbols that must always be exported. include_expsyms=$lt_include_expsyms_GCJ # ### END LIBTOOL TAG CONFIG: $tagname __EOF__ else # If there is no Makefile yet, we rely on a make rule to execute # `config.status --recheck' to rerun these tests and create the # libtool script then. ltmain_in=`echo $ltmain | sed -e 's/\.sh$/.in/'` if test -f "$ltmain_in"; then test -f Makefile && make "$ltmain" fi fi ac_ext=c ac_cpp='$CPP $CPPFLAGS' ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' ac_compiler_gnu=$ac_cv_c_compiler_gnu CC="$lt_save_CC" else tagname="" fi ;; RC) # Source file extension for RC test sources. ac_ext=rc # Object file extension for compiled RC test sources. objext=o objext_RC=$objext # Code to be used in simple compile tests lt_simple_compile_test_code='sample MENU { MENUITEM "&Soup", 100, CHECKED }' # Code to be used in simple link tests lt_simple_link_test_code="$lt_simple_compile_test_code" # ltmain only uses $CC for tagged configurations so make sure $CC is set. # If no C compiler was specified, use CC. LTCC=${LTCC-"$CC"} # If no C compiler flags were specified, use CFLAGS. LTCFLAGS=${LTCFLAGS-"$CFLAGS"} # Allow CC to be a program name with arguments. compiler=$CC # save warnings/boilerplate of simple test code ac_outfile=conftest.$ac_objext echo "$lt_simple_compile_test_code" >conftest.$ac_ext eval "$ac_compile" 2>&1 >/dev/null | $SED '/^$/d; /^ *+/d' >conftest.err _lt_compiler_boilerplate=`cat conftest.err` $rm conftest* ac_outfile=conftest.$ac_objext echo "$lt_simple_link_test_code" >conftest.$ac_ext eval "$ac_link" 2>&1 >/dev/null | $SED '/^$/d; /^ *+/d' >conftest.err _lt_linker_boilerplate=`cat conftest.err` $rm -r conftest* # Allow CC to be a program name with arguments. lt_save_CC="$CC" CC=${RC-"windres"} compiler=$CC compiler_RC=$CC for cc_temp in $compiler""; do case $cc_temp in compile | *[\\/]compile | ccache | *[\\/]ccache ) ;; distcc | *[\\/]distcc | purify | *[\\/]purify ) ;; \-*) ;; *) break;; esac done cc_basename=`$echo "X$cc_temp" | $Xsed -e 's%.*/%%' -e "s%^$host_alias-%%"` lt_cv_prog_compiler_c_o_RC=yes # The else clause should only fire when bootstrapping the # libtool distribution, otherwise you forgot to ship ltmain.sh # with your package, and you will get complaints that there are # no rules to generate ltmain.sh. if test -f "$ltmain"; then # See if we are running on zsh, and set the options which allow our commands through # without removal of \ escapes. if test -n "${ZSH_VERSION+set}" ; then setopt NO_GLOB_SUBST fi # Now quote all the things that may contain metacharacters while being # careful not to overquote the AC_SUBSTed values. We take copies of the # variables and quote the copies for generation of the libtool script. for var in echo old_CC old_CFLAGS AR AR_FLAGS EGREP RANLIB LN_S LTCC LTCFLAGS NM \ SED SHELL STRIP \ libname_spec library_names_spec soname_spec extract_expsyms_cmds \ old_striplib striplib file_magic_cmd finish_cmds finish_eval \ deplibs_check_method reload_flag reload_cmds need_locks \ lt_cv_sys_global_symbol_pipe lt_cv_sys_global_symbol_to_cdecl \ lt_cv_sys_global_symbol_to_c_name_address \ sys_lib_search_path_spec sys_lib_dlsearch_path_spec \ old_postinstall_cmds old_postuninstall_cmds \ compiler_RC \ CC_RC \ LD_RC \ lt_prog_compiler_wl_RC \ lt_prog_compiler_pic_RC \ lt_prog_compiler_static_RC \ lt_prog_compiler_no_builtin_flag_RC \ export_dynamic_flag_spec_RC \ thread_safe_flag_spec_RC \ whole_archive_flag_spec_RC \ enable_shared_with_static_runtimes_RC \ old_archive_cmds_RC \ old_archive_from_new_cmds_RC \ predep_objects_RC \ postdep_objects_RC \ predeps_RC \ postdeps_RC \ compiler_lib_search_path_RC \ compiler_lib_search_dirs_RC \ archive_cmds_RC \ archive_expsym_cmds_RC \ postinstall_cmds_RC \ postuninstall_cmds_RC \ old_archive_from_expsyms_cmds_RC \ allow_undefined_flag_RC \ no_undefined_flag_RC \ export_symbols_cmds_RC \ hardcode_libdir_flag_spec_RC \ hardcode_libdir_flag_spec_ld_RC \ hardcode_libdir_separator_RC \ hardcode_automatic_RC \ module_cmds_RC \ module_expsym_cmds_RC \ lt_cv_prog_compiler_c_o_RC \ fix_srcfile_path_RC \ exclude_expsyms_RC \ include_expsyms_RC; do case $var in old_archive_cmds_RC | \ old_archive_from_new_cmds_RC | \ archive_cmds_RC | \ archive_expsym_cmds_RC | \ module_cmds_RC | \ module_expsym_cmds_RC | \ old_archive_from_expsyms_cmds_RC | \ export_symbols_cmds_RC | \ extract_expsyms_cmds | reload_cmds | finish_cmds | \ postinstall_cmds | postuninstall_cmds | \ old_postinstall_cmds | old_postuninstall_cmds | \ sys_lib_search_path_spec | sys_lib_dlsearch_path_spec) # Double-quote double-evaled strings. eval "lt_$var=\\\"\`\$echo \"X\$$var\" | \$Xsed -e \"\$double_quote_subst\" -e \"\$sed_quote_subst\" -e \"\$delay_variable_subst\"\`\\\"" ;; *) eval "lt_$var=\\\"\`\$echo \"X\$$var\" | \$Xsed -e \"\$sed_quote_subst\"\`\\\"" ;; esac done case $lt_echo in *'\$0 --fallback-echo"') lt_echo=`$echo "X$lt_echo" | $Xsed -e 's/\\\\\\\$0 --fallback-echo"$/$0 --fallback-echo"/'` ;; esac cfgfile="$ofile" cat <<__EOF__ >> "$cfgfile" # ### BEGIN LIBTOOL TAG CONFIG: $tagname # Libtool was configured on host `(hostname || uname -n) 2>/dev/null | sed 1q`: # Shell to use when invoking shell scripts. SHELL=$lt_SHELL # Whether or not to build shared libraries. build_libtool_libs=$enable_shared # Whether or not to build static libraries. build_old_libs=$enable_static # Whether or not to add -lc for building shared libraries. build_libtool_need_lc=$archive_cmds_need_lc_RC # Whether or not to disallow shared libs when runtime libs are static allow_libtool_libs_with_static_runtimes=$enable_shared_with_static_runtimes_RC # Whether or not to optimize for fast installation. fast_install=$enable_fast_install # The host system. host_alias=$host_alias host=$host host_os=$host_os # The build system. build_alias=$build_alias build=$build build_os=$build_os # An echo program that does not interpret backslashes. echo=$lt_echo # The archiver. AR=$lt_AR AR_FLAGS=$lt_AR_FLAGS # A C compiler. LTCC=$lt_LTCC # LTCC compiler flags. LTCFLAGS=$lt_LTCFLAGS # A language-specific compiler. CC=$lt_compiler_RC # Is the compiler the GNU C compiler? with_gcc=$GCC_RC # An ERE matcher. EGREP=$lt_EGREP # The linker used to build libraries. LD=$lt_LD_RC # Whether we need hard or soft links. LN_S=$lt_LN_S # A BSD-compatible nm program. NM=$lt_NM # A symbol stripping program STRIP=$lt_STRIP # Used to examine libraries when file_magic_cmd begins "file" MAGIC_CMD=$MAGIC_CMD # Used on cygwin: DLL creation program. DLLTOOL="$DLLTOOL" # Used on cygwin: object dumper. OBJDUMP="$OBJDUMP" # Used on cygwin: assembler. AS="$AS" # The name of the directory that contains temporary libtool files. objdir=$objdir # How to create reloadable object files. reload_flag=$lt_reload_flag reload_cmds=$lt_reload_cmds # How to pass a linker flag through the compiler. wl=$lt_lt_prog_compiler_wl_RC # Object file suffix (normally "o"). objext="$ac_objext" # Old archive suffix (normally "a"). libext="$libext" # Shared library suffix (normally ".so"). shrext_cmds='$shrext_cmds' # Executable file suffix (normally ""). exeext="$exeext" # Additional compiler flags for building library objects. pic_flag=$lt_lt_prog_compiler_pic_RC pic_mode=$pic_mode # What is the maximum length of a command? max_cmd_len=$lt_cv_sys_max_cmd_len # Does compiler simultaneously support -c and -o options? compiler_c_o=$lt_lt_cv_prog_compiler_c_o_RC # Must we lock files when doing compilation? need_locks=$lt_need_locks # Do we need the lib prefix for modules? need_lib_prefix=$need_lib_prefix # Do we need a version for libraries? need_version=$need_version # Whether dlopen is supported. dlopen_support=$enable_dlopen # Whether dlopen of programs is supported. dlopen_self=$enable_dlopen_self # Whether dlopen of statically linked programs is supported. dlopen_self_static=$enable_dlopen_self_static # Compiler flag to prevent dynamic linking. link_static_flag=$lt_lt_prog_compiler_static_RC # Compiler flag to turn off builtin functions. no_builtin_flag=$lt_lt_prog_compiler_no_builtin_flag_RC # Compiler flag to allow reflexive dlopens. export_dynamic_flag_spec=$lt_export_dynamic_flag_spec_RC # Compiler flag to generate shared objects directly from archives. whole_archive_flag_spec=$lt_whole_archive_flag_spec_RC # Compiler flag to generate thread-safe objects. thread_safe_flag_spec=$lt_thread_safe_flag_spec_RC # Library versioning type. version_type=$version_type # Format of library name prefix. libname_spec=$lt_libname_spec # List of archive names. First name is the real one, the rest are links. # The last name is the one that the linker finds with -lNAME. library_names_spec=$lt_library_names_spec # The coded name of the library, if different from the real name. soname_spec=$lt_soname_spec # Commands used to build and install an old-style archive. RANLIB=$lt_RANLIB old_archive_cmds=$lt_old_archive_cmds_RC old_postinstall_cmds=$lt_old_postinstall_cmds old_postuninstall_cmds=$lt_old_postuninstall_cmds # Create an old-style archive from a shared archive. old_archive_from_new_cmds=$lt_old_archive_from_new_cmds_RC # Create a temporary old-style archive to link instead of a shared archive. old_archive_from_expsyms_cmds=$lt_old_archive_from_expsyms_cmds_RC # Commands used to build and install a shared archive. archive_cmds=$lt_archive_cmds_RC archive_expsym_cmds=$lt_archive_expsym_cmds_RC postinstall_cmds=$lt_postinstall_cmds postuninstall_cmds=$lt_postuninstall_cmds # Commands used to build a loadable module (assumed same as above if empty) module_cmds=$lt_module_cmds_RC module_expsym_cmds=$lt_module_expsym_cmds_RC # Commands to strip libraries. old_striplib=$lt_old_striplib striplib=$lt_striplib # Dependencies to place before the objects being linked to create a # shared library. predep_objects=$lt_predep_objects_RC # Dependencies to place after the objects being linked to create a # shared library. postdep_objects=$lt_postdep_objects_RC # Dependencies to place before the objects being linked to create a # shared library. predeps=$lt_predeps_RC # Dependencies to place after the objects being linked to create a # shared library. postdeps=$lt_postdeps_RC # The directories searched by this compiler when creating a shared # library compiler_lib_search_dirs=$lt_compiler_lib_search_dirs_RC # The library search path used internally by the compiler when linking # a shared library. compiler_lib_search_path=$lt_compiler_lib_search_path_RC # Method to check whether dependent libraries are shared objects. deplibs_check_method=$lt_deplibs_check_method # Command to use when deplibs_check_method == file_magic. file_magic_cmd=$lt_file_magic_cmd # Flag that allows shared libraries with undefined symbols to be built. allow_undefined_flag=$lt_allow_undefined_flag_RC # Flag that forces no undefined symbols. no_undefined_flag=$lt_no_undefined_flag_RC # Commands used to finish a libtool library installation in a directory. finish_cmds=$lt_finish_cmds # Same as above, but a single script fragment to be evaled but not shown. finish_eval=$lt_finish_eval # Take the output of nm and produce a listing of raw symbols and C names. global_symbol_pipe=$lt_lt_cv_sys_global_symbol_pipe # Transform the output of nm in a proper C declaration global_symbol_to_cdecl=$lt_lt_cv_sys_global_symbol_to_cdecl # Transform the output of nm in a C name address pair global_symbol_to_c_name_address=$lt_lt_cv_sys_global_symbol_to_c_name_address # This is the shared library runtime path variable. runpath_var=$runpath_var # This is the shared library path variable. shlibpath_var=$shlibpath_var # Is shlibpath searched before the hard-coded library search path? shlibpath_overrides_runpath=$shlibpath_overrides_runpath # How to hardcode a shared library path into an executable. hardcode_action=$hardcode_action_RC # Whether we should hardcode library paths into libraries. hardcode_into_libs=$hardcode_into_libs # Flag to hardcode \$libdir into a binary during linking. # This must work even if \$libdir does not exist. hardcode_libdir_flag_spec=$lt_hardcode_libdir_flag_spec_RC # If ld is used when linking, flag to hardcode \$libdir into # a binary during linking. This must work even if \$libdir does # not exist. hardcode_libdir_flag_spec_ld=$lt_hardcode_libdir_flag_spec_ld_RC # Whether we need a single -rpath flag with a separated argument. hardcode_libdir_separator=$lt_hardcode_libdir_separator_RC # Set to yes if using DIR/libNAME${shared_ext} during linking hardcodes DIR into the # resulting binary. hardcode_direct=$hardcode_direct_RC # Set to yes if using the -LDIR flag during linking hardcodes DIR into the # resulting binary. hardcode_minus_L=$hardcode_minus_L_RC # Set to yes if using SHLIBPATH_VAR=DIR during linking hardcodes DIR into # the resulting binary. hardcode_shlibpath_var=$hardcode_shlibpath_var_RC # Set to yes if building a shared library automatically hardcodes DIR into the library # and all subsequent libraries and executables linked against it. hardcode_automatic=$hardcode_automatic_RC # Variables whose values should be saved in libtool wrapper scripts and # restored at relink time. variables_saved_for_relink="$variables_saved_for_relink" # Whether libtool must link a program against all its dependency libraries. link_all_deplibs=$link_all_deplibs_RC # Compile-time system search path for libraries sys_lib_search_path_spec=$lt_sys_lib_search_path_spec # Run-time system search path for libraries sys_lib_dlsearch_path_spec=$lt_sys_lib_dlsearch_path_spec # Fix the shell variable \$srcfile for the compiler. fix_srcfile_path=$lt_fix_srcfile_path # Set to yes if exported symbols are required. always_export_symbols=$always_export_symbols_RC # The commands to list exported symbols. export_symbols_cmds=$lt_export_symbols_cmds_RC # The commands to extract the exported symbol list from a shared archive. extract_expsyms_cmds=$lt_extract_expsyms_cmds # Symbols that should not be listed in the preloaded symbols. exclude_expsyms=$lt_exclude_expsyms_RC # Symbols that must always be exported. include_expsyms=$lt_include_expsyms_RC # ### END LIBTOOL TAG CONFIG: $tagname __EOF__ else # If there is no Makefile yet, we rely on a make rule to execute # `config.status --recheck' to rerun these tests and create the # libtool script then. ltmain_in=`echo $ltmain | sed -e 's/\.sh$/.in/'` if test -f "$ltmain_in"; then test -f Makefile && make "$ltmain" fi fi ac_ext=c ac_cpp='$CPP $CPPFLAGS' ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' ac_compiler_gnu=$ac_cv_c_compiler_gnu CC="$lt_save_CC" ;; *) { { echo "$as_me:$LINENO: error: Unsupported tag name: $tagname" >&5 echo "$as_me: error: Unsupported tag name: $tagname" >&2;} { (exit 1); exit 1; }; } ;; esac # Append the new tag name to the list of available tags. if test -n "$tagname" ; then available_tags="$available_tags $tagname" fi fi done IFS="$lt_save_ifs" # Now substitute the updated list of available tags. if eval "sed -e 's/^available_tags=.*\$/available_tags=\"$available_tags\"/' \"$ofile\" > \"${ofile}T\""; then mv "${ofile}T" "$ofile" chmod +x "$ofile" else rm -f "${ofile}T" { { echo "$as_me:$LINENO: error: unable to update list of available tagged configurations." >&5 echo "$as_me: error: unable to update list of available tagged configurations." >&2;} { (exit 1); exit 1; }; } fi fi # This can be used to rebuild libtool when needed LIBTOOL_DEPS="$ac_aux_dir/ltmain.sh" # Always use our own libtool. LIBTOOL='$(SHELL) $(top_builddir)/libtool' # Prevent multiple expansion ac_ext=c ac_cpp='$CPP $CPPFLAGS' ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' ac_compiler_gnu=$ac_cv_c_compiler_gnu echo "$as_me:$LINENO: checking for C compiler vendor" >&5 echo $ECHO_N "checking for C compiler vendor... $ECHO_C" >&6 if test "${ax_cv_c_compiler_vendor+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else ax_cv_c_compiler_vendor=unknown # note: don't check for gcc first since some other compilers define __GNUC__ for ventest in intel:__ICC,__ECC,__INTEL_COMPILER ibm:__xlc__,__xlC__,__IBMC__,__IBMCPP__ pathscale:__PATHCC__,__PATHSCALE__ gnu:__GNUC__ sun:__SUNPRO_C,__SUNPRO_CC hp:__HP_cc,__HP_aCC dec:__DECC,__DECCXX,__DECC_VER,__DECCXX_VER borland:__BORLANDC__,__TURBOC__ comeau:__COMO__ cray:_CRAYC kai:__KCC lcc:__LCC__ metrowerks:__MWERKS__ sgi:__sgi,sgi microsoft:_MSC_VER watcom:__WATCOMC__ portland:__PGI; do vencpp="defined("`echo $ventest | cut -d: -f2 | sed 's/,/) || defined(/g'`")" cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ int main () { #if !($vencpp) thisisanerror; #endif ; return 0; } _ACEOF rm -f conftest.$ac_objext if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 (eval $ac_compile) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { ac_try='test -z "$ac_c_werror_flag" || test ! -s conftest.err' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; } && { ac_try='test -s conftest.$ac_objext' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then ax_cv_c_compiler_vendor=`echo $ventest | cut -d: -f1`; break else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 fi rm -f conftest.err conftest.$ac_objext conftest.$ac_ext done fi echo "$as_me:$LINENO: result: $ax_cv_c_compiler_vendor" >&5 echo "${ECHO_T}$ax_cv_c_compiler_vendor" >&6 if test "${build}" != "${host}" then # If we are doing a Canadian Cross, in which the host and build systems # are not the same, we set reasonable default values for the tools. CC_FOR_BUILD=${CC_FOR_BUILD-gcc} CPPFLAGS_FOR_BUILD="\$(CPPFLAGS)" CC=${CC-${host_alias}-gcc} CFLAGS=${CFLAGS-"-g -O2"} CXX=${CXX-${host_alias}-c++} CXXFLAGS=${CXXFLAGS-"-g -O2"} else # Set reasonable default values for some tools even if not Canadian. # Of course, these are different reasonable default values, originally # specified directly in the Makefile. # We don't export, so that autoconf can do its job. # Note that all these settings are above the fragment inclusion point # in Makefile.in, so can still be overridden by fragments. # This is all going to change when we autoconfiscate... CC_FOR_BUILD="\$(CC)" CPPFLAGS_FOR_BUILD="\$(CPPFLAGS)" ac_ext=c ac_cpp='$CPP $CPPFLAGS' ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' ac_compiler_gnu=$ac_cv_c_compiler_gnu if test -n "$ac_tool_prefix"; then # Extract the first word of "${ac_tool_prefix}gcc", so it can be a program name with args. set dummy ${ac_tool_prefix}gcc; ac_word=$2 echo "$as_me:$LINENO: checking for $ac_word" >&5 echo $ECHO_N "checking for $ac_word... $ECHO_C" >&6 if test "${ac_cv_prog_CC+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else if test -n "$CC"; then ac_cv_prog_CC="$CC" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if $as_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_CC="${ac_tool_prefix}gcc" echo "$as_me:$LINENO: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done fi fi CC=$ac_cv_prog_CC if test -n "$CC"; then echo "$as_me:$LINENO: result: $CC" >&5 echo "${ECHO_T}$CC" >&6 else echo "$as_me:$LINENO: result: no" >&5 echo "${ECHO_T}no" >&6 fi fi if test -z "$ac_cv_prog_CC"; then ac_ct_CC=$CC # Extract the first word of "gcc", so it can be a program name with args. set dummy gcc; ac_word=$2 echo "$as_me:$LINENO: checking for $ac_word" >&5 echo $ECHO_N "checking for $ac_word... $ECHO_C" >&6 if test "${ac_cv_prog_ac_ct_CC+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else if test -n "$ac_ct_CC"; then ac_cv_prog_ac_ct_CC="$ac_ct_CC" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if $as_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_ac_ct_CC="gcc" echo "$as_me:$LINENO: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done fi fi ac_ct_CC=$ac_cv_prog_ac_ct_CC if test -n "$ac_ct_CC"; then echo "$as_me:$LINENO: result: $ac_ct_CC" >&5 echo "${ECHO_T}$ac_ct_CC" >&6 else echo "$as_me:$LINENO: result: no" >&5 echo "${ECHO_T}no" >&6 fi CC=$ac_ct_CC else CC="$ac_cv_prog_CC" fi if test -z "$CC"; then if test -n "$ac_tool_prefix"; then # Extract the first word of "${ac_tool_prefix}cc", so it can be a program name with args. set dummy ${ac_tool_prefix}cc; ac_word=$2 echo "$as_me:$LINENO: checking for $ac_word" >&5 echo $ECHO_N "checking for $ac_word... $ECHO_C" >&6 if test "${ac_cv_prog_CC+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else if test -n "$CC"; then ac_cv_prog_CC="$CC" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if $as_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_CC="${ac_tool_prefix}cc" echo "$as_me:$LINENO: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done fi fi CC=$ac_cv_prog_CC if test -n "$CC"; then echo "$as_me:$LINENO: result: $CC" >&5 echo "${ECHO_T}$CC" >&6 else echo "$as_me:$LINENO: result: no" >&5 echo "${ECHO_T}no" >&6 fi fi if test -z "$ac_cv_prog_CC"; then ac_ct_CC=$CC # Extract the first word of "cc", so it can be a program name with args. set dummy cc; ac_word=$2 echo "$as_me:$LINENO: checking for $ac_word" >&5 echo $ECHO_N "checking for $ac_word... $ECHO_C" >&6 if test "${ac_cv_prog_ac_ct_CC+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else if test -n "$ac_ct_CC"; then ac_cv_prog_ac_ct_CC="$ac_ct_CC" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if $as_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_ac_ct_CC="cc" echo "$as_me:$LINENO: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done fi fi ac_ct_CC=$ac_cv_prog_ac_ct_CC if test -n "$ac_ct_CC"; then echo "$as_me:$LINENO: result: $ac_ct_CC" >&5 echo "${ECHO_T}$ac_ct_CC" >&6 else echo "$as_me:$LINENO: result: no" >&5 echo "${ECHO_T}no" >&6 fi CC=$ac_ct_CC else CC="$ac_cv_prog_CC" fi fi if test -z "$CC"; then # Extract the first word of "cc", so it can be a program name with args. set dummy cc; ac_word=$2 echo "$as_me:$LINENO: checking for $ac_word" >&5 echo $ECHO_N "checking for $ac_word... $ECHO_C" >&6 if test "${ac_cv_prog_CC+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else if test -n "$CC"; then ac_cv_prog_CC="$CC" # Let the user override the test. else ac_prog_rejected=no as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if $as_executable_p "$as_dir/$ac_word$ac_exec_ext"; then if test "$as_dir/$ac_word$ac_exec_ext" = "/usr/ucb/cc"; then ac_prog_rejected=yes continue fi ac_cv_prog_CC="cc" echo "$as_me:$LINENO: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done if test $ac_prog_rejected = yes; then # We found a bogon in the path, so make sure we never use it. set dummy $ac_cv_prog_CC shift if test $# != 0; then # We chose a different compiler from the bogus one. # However, it has the same basename, so the bogon will be chosen # first if we set CC to just the basename; use the full file name. shift ac_cv_prog_CC="$as_dir/$ac_word${1+' '}$@" fi fi fi fi CC=$ac_cv_prog_CC if test -n "$CC"; then echo "$as_me:$LINENO: result: $CC" >&5 echo "${ECHO_T}$CC" >&6 else echo "$as_me:$LINENO: result: no" >&5 echo "${ECHO_T}no" >&6 fi fi if test -z "$CC"; then if test -n "$ac_tool_prefix"; then for ac_prog in cl do # Extract the first word of "$ac_tool_prefix$ac_prog", so it can be a program name with args. set dummy $ac_tool_prefix$ac_prog; ac_word=$2 echo "$as_me:$LINENO: checking for $ac_word" >&5 echo $ECHO_N "checking for $ac_word... $ECHO_C" >&6 if test "${ac_cv_prog_CC+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else if test -n "$CC"; then ac_cv_prog_CC="$CC" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if $as_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_CC="$ac_tool_prefix$ac_prog" echo "$as_me:$LINENO: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done fi fi CC=$ac_cv_prog_CC if test -n "$CC"; then echo "$as_me:$LINENO: result: $CC" >&5 echo "${ECHO_T}$CC" >&6 else echo "$as_me:$LINENO: result: no" >&5 echo "${ECHO_T}no" >&6 fi test -n "$CC" && break done fi if test -z "$CC"; then ac_ct_CC=$CC for ac_prog in cl do # Extract the first word of "$ac_prog", so it can be a program name with args. set dummy $ac_prog; ac_word=$2 echo "$as_me:$LINENO: checking for $ac_word" >&5 echo $ECHO_N "checking for $ac_word... $ECHO_C" >&6 if test "${ac_cv_prog_ac_ct_CC+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else if test -n "$ac_ct_CC"; then ac_cv_prog_ac_ct_CC="$ac_ct_CC" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if $as_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_ac_ct_CC="$ac_prog" echo "$as_me:$LINENO: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done fi fi ac_ct_CC=$ac_cv_prog_ac_ct_CC if test -n "$ac_ct_CC"; then echo "$as_me:$LINENO: result: $ac_ct_CC" >&5 echo "${ECHO_T}$ac_ct_CC" >&6 else echo "$as_me:$LINENO: result: no" >&5 echo "${ECHO_T}no" >&6 fi test -n "$ac_ct_CC" && break done CC=$ac_ct_CC fi fi test -z "$CC" && { { echo "$as_me:$LINENO: error: no acceptable C compiler found in \$PATH See \`config.log' for more details." >&5 echo "$as_me: error: no acceptable C compiler found in \$PATH See \`config.log' for more details." >&2;} { (exit 1); exit 1; }; } # Provide some information about the compiler. echo "$as_me:$LINENO:" \ "checking for C compiler version" >&5 ac_compiler=`set X $ac_compile; echo $2` { (eval echo "$as_me:$LINENO: \"$ac_compiler --version &5\"") >&5 (eval $ac_compiler --version &5) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } { (eval echo "$as_me:$LINENO: \"$ac_compiler -v &5\"") >&5 (eval $ac_compiler -v &5) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } { (eval echo "$as_me:$LINENO: \"$ac_compiler -V &5\"") >&5 (eval $ac_compiler -V &5) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } echo "$as_me:$LINENO: checking whether we are using the GNU C compiler" >&5 echo $ECHO_N "checking whether we are using the GNU C compiler... $ECHO_C" >&6 if test "${ac_cv_c_compiler_gnu+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ int main () { #ifndef __GNUC__ choke me #endif ; return 0; } _ACEOF rm -f conftest.$ac_objext if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 (eval $ac_compile) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { ac_try='test -z "$ac_c_werror_flag" || test ! -s conftest.err' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; } && { ac_try='test -s conftest.$ac_objext' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then ac_compiler_gnu=yes else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_compiler_gnu=no fi rm -f conftest.err conftest.$ac_objext conftest.$ac_ext ac_cv_c_compiler_gnu=$ac_compiler_gnu fi echo "$as_me:$LINENO: result: $ac_cv_c_compiler_gnu" >&5 echo "${ECHO_T}$ac_cv_c_compiler_gnu" >&6 GCC=`test $ac_compiler_gnu = yes && echo yes` ac_test_CFLAGS=${CFLAGS+set} ac_save_CFLAGS=$CFLAGS CFLAGS="-g" echo "$as_me:$LINENO: checking whether $CC accepts -g" >&5 echo $ECHO_N "checking whether $CC accepts -g... $ECHO_C" >&6 if test "${ac_cv_prog_cc_g+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ int main () { ; return 0; } _ACEOF rm -f conftest.$ac_objext if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 (eval $ac_compile) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { ac_try='test -z "$ac_c_werror_flag" || test ! -s conftest.err' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; } && { ac_try='test -s conftest.$ac_objext' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then ac_cv_prog_cc_g=yes else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_cv_prog_cc_g=no fi rm -f conftest.err conftest.$ac_objext conftest.$ac_ext fi echo "$as_me:$LINENO: result: $ac_cv_prog_cc_g" >&5 echo "${ECHO_T}$ac_cv_prog_cc_g" >&6 if test "$ac_test_CFLAGS" = set; then CFLAGS=$ac_save_CFLAGS elif test $ac_cv_prog_cc_g = yes; then if test "$GCC" = yes; then CFLAGS="-g -O2" else CFLAGS="-g" fi else if test "$GCC" = yes; then CFLAGS="-O2" else CFLAGS= fi fi echo "$as_me:$LINENO: checking for $CC option to accept ANSI C" >&5 echo $ECHO_N "checking for $CC option to accept ANSI C... $ECHO_C" >&6 if test "${ac_cv_prog_cc_stdc+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else ac_cv_prog_cc_stdc=no ac_save_CC=$CC cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ #include #include #include #include /* Most of the following tests are stolen from RCS 5.7's src/conf.sh. */ struct buf { int x; }; FILE * (*rcsopen) (struct buf *, struct stat *, int); static char *e (p, i) char **p; int i; { return p[i]; } static char *f (char * (*g) (char **, int), char **p, ...) { char *s; va_list v; va_start (v,p); s = g (p, va_arg (v,int)); va_end (v); return s; } /* OSF 4.0 Compaq cc is some sort of almost-ANSI by default. It has function prototypes and stuff, but not '\xHH' hex character constants. These don't provoke an error unfortunately, instead are silently treated as 'x'. The following induces an error, until -std1 is added to get proper ANSI mode. Curiously '\x00'!='x' always comes out true, for an array size at least. It's necessary to write '\x00'==0 to get something that's true only with -std1. */ int osf4_cc_array ['\x00' == 0 ? 1 : -1]; int test (int i, double x); struct s1 {int (*f) (int a);}; struct s2 {int (*f) (double a);}; int pairnames (int, char **, FILE *(*)(struct buf *, struct stat *, int), int, int); int argc; char **argv; int main () { return f (e, argv, 0) != argv[0] || f (e, argv, 1) != argv[1]; ; return 0; } _ACEOF # Don't try gcc -ansi; that turns off useful extensions and # breaks some systems' header files. # AIX -qlanglvl=ansi # Ultrix and OSF/1 -std1 # HP-UX 10.20 and later -Ae # HP-UX older versions -Aa -D_HPUX_SOURCE # SVR4 -Xc -D__EXTENSIONS__ for ac_arg in "" -qlanglvl=ansi -std1 -Ae "-Aa -D_HPUX_SOURCE" "-Xc -D__EXTENSIONS__" do CC="$ac_save_CC $ac_arg" rm -f conftest.$ac_objext if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 (eval $ac_compile) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { ac_try='test -z "$ac_c_werror_flag" || test ! -s conftest.err' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; } && { ac_try='test -s conftest.$ac_objext' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then ac_cv_prog_cc_stdc=$ac_arg break else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 fi rm -f conftest.err conftest.$ac_objext done rm -f conftest.$ac_ext conftest.$ac_objext CC=$ac_save_CC fi case "x$ac_cv_prog_cc_stdc" in x|xno) echo "$as_me:$LINENO: result: none needed" >&5 echo "${ECHO_T}none needed" >&6 ;; *) echo "$as_me:$LINENO: result: $ac_cv_prog_cc_stdc" >&5 echo "${ECHO_T}$ac_cv_prog_cc_stdc" >&6 CC="$CC $ac_cv_prog_cc_stdc" ;; esac # Some people use a C++ compiler to compile C. Since we use `exit', # in C++ we need to declare it. In case someone uses the same compiler # for both compiling C and C++ we need to have the C++ compiler decide # the declaration of exit, since it's the most demanding environment. cat >conftest.$ac_ext <<_ACEOF #ifndef __cplusplus choke me #endif _ACEOF rm -f conftest.$ac_objext if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 (eval $ac_compile) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { ac_try='test -z "$ac_c_werror_flag" || test ! -s conftest.err' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; } && { ac_try='test -s conftest.$ac_objext' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then for ac_declaration in \ '' \ 'extern "C" void std::exit (int) throw (); using std::exit;' \ 'extern "C" void std::exit (int); using std::exit;' \ 'extern "C" void exit (int) throw ();' \ 'extern "C" void exit (int);' \ 'void exit (int);' do cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ $ac_declaration #include int main () { exit (42); ; return 0; } _ACEOF rm -f conftest.$ac_objext if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 (eval $ac_compile) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { ac_try='test -z "$ac_c_werror_flag" || test ! -s conftest.err' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; } && { ac_try='test -s conftest.$ac_objext' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then : else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 continue fi rm -f conftest.err conftest.$ac_objext conftest.$ac_ext cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ $ac_declaration int main () { exit (42); ; return 0; } _ACEOF rm -f conftest.$ac_objext if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 (eval $ac_compile) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { ac_try='test -z "$ac_c_werror_flag" || test ! -s conftest.err' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; } && { ac_try='test -s conftest.$ac_objext' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then break else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 fi rm -f conftest.err conftest.$ac_objext conftest.$ac_ext done rm -f conftest* if test -n "$ac_declaration"; then echo '#ifdef __cplusplus' >>confdefs.h echo $ac_declaration >>confdefs.h echo '#endif' >>confdefs.h fi else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 fi rm -f conftest.err conftest.$ac_objext conftest.$ac_ext ac_ext=c ac_cpp='$CPP $CPPFLAGS' ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' ac_compiler_gnu=$ac_cv_c_compiler_gnu depcc="$CC" am_compiler_list= echo "$as_me:$LINENO: checking dependency style of $depcc" >&5 echo $ECHO_N "checking dependency style of $depcc... $ECHO_C" >&6 if test "${am_cv_CC_dependencies_compiler_type+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else if test -z "$AMDEP_TRUE" && test -f "$am_depcomp"; then # We make a subdir and do the tests there. Otherwise we can end up # making bogus files that we don't know about and never remove. For # instance it was reported that on HP-UX the gcc test will end up # making a dummy file named `D' -- because `-MD' means `put the output # in D'. mkdir conftest.dir # Copy depcomp to subdir because otherwise we won't find it if we're # using a relative directory. cp "$am_depcomp" conftest.dir cd conftest.dir # We will build objects and dependencies in a subdirectory because # it helps to detect inapplicable dependency modes. For instance # both Tru64's cc and ICC support -MD to output dependencies as a # side effect of compilation, but ICC will put the dependencies in # the current directory while Tru64 will put them in the object # directory. mkdir sub am_cv_CC_dependencies_compiler_type=none if test "$am_compiler_list" = ""; then am_compiler_list=`sed -n 's/^#*\([a-zA-Z0-9]*\))$/\1/p' < ./depcomp` fi for depmode in $am_compiler_list; do # Setup a source with many dependencies, because some compilers # like to wrap large dependency lists on column 80 (with \), and # we should not choose a depcomp mode which is confused by this. # # We need to recreate these files for each test, as the compiler may # overwrite some of them when testing with obscure command lines. # This happens at least with the AIX C compiler. : > sub/conftest.c for i in 1 2 3 4 5 6; do echo '#include "conftst'$i'.h"' >> sub/conftest.c # Using `: > sub/conftst$i.h' creates only sub/conftst1.h with # Solaris 8's {/usr,}/bin/sh. touch sub/conftst$i.h done echo "${am__include} ${am__quote}sub/conftest.Po${am__quote}" > confmf case $depmode in nosideeffect) # after this tag, mechanisms are not by side-effect, so they'll # only be used when explicitly requested if test "x$enable_dependency_tracking" = xyes; then continue else break fi ;; none) break ;; esac # We check with `-c' and `-o' for the sake of the "dashmstdout" # mode. It turns out that the SunPro C++ compiler does not properly # handle `-M -o', and we need to detect this. if depmode=$depmode \ source=sub/conftest.c object=sub/conftest.${OBJEXT-o} \ depfile=sub/conftest.Po tmpdepfile=sub/conftest.TPo \ $SHELL ./depcomp $depcc -c -o sub/conftest.${OBJEXT-o} sub/conftest.c \ >/dev/null 2>conftest.err && grep sub/conftst6.h sub/conftest.Po > /dev/null 2>&1 && grep sub/conftest.${OBJEXT-o} sub/conftest.Po > /dev/null 2>&1 && ${MAKE-make} -s -f confmf > /dev/null 2>&1; then # icc doesn't choke on unknown options, it will just issue warnings # or remarks (even with -Werror). So we grep stderr for any message # that says an option was ignored or not supported. # When given -MP, icc 7.0 and 7.1 complain thusly: # icc: Command line warning: ignoring option '-M'; no argument required # The diagnosis changed in icc 8.0: # icc: Command line remark: option '-MP' not supported if (grep 'ignoring option' conftest.err || grep 'not supported' conftest.err) >/dev/null 2>&1; then :; else am_cv_CC_dependencies_compiler_type=$depmode break fi fi done cd .. rm -rf conftest.dir else am_cv_CC_dependencies_compiler_type=none fi fi echo "$as_me:$LINENO: result: $am_cv_CC_dependencies_compiler_type" >&5 echo "${ECHO_T}$am_cv_CC_dependencies_compiler_type" >&6 CCDEPMODE=depmode=$am_cv_CC_dependencies_compiler_type if test "x$enable_dependency_tracking" != xno \ && test "$am_cv_CC_dependencies_compiler_type" = gcc3; then am__fastdepCC_TRUE= am__fastdepCC_FALSE='#' else am__fastdepCC_TRUE='#' am__fastdepCC_FALSE= fi # We must set the default linker to the linker used by gcc for the correct # operation of libtool. If LD is not defined and we are using gcc, try to # set the LD default to the ld used by gcc. if test -z "$LD" then if test "$GCC" = yes then case $build in *-*-mingw*) gcc_prog_ld=`$CC -print-prog-name=ld 2>&1 | tr -d '\015'` ;; *) gcc_prog_ld=`$CC -print-prog-name=ld 2>&1` ;; esac case $gcc_prog_ld in # Accept absolute paths. [\\/]* | [A-Za-z]:[\\/]*) LD="$gcc_prog_ld" ;; esac fi fi CXX=${CXX-"c++"} CFLAGS=${CFLAGS-"-g -O2"} CXXFLAGS=${CXXFLAGS-"-g -O2"} fi echo "$as_me:$LINENO: checking for an ANSI C-conforming const" >&5 echo $ECHO_N "checking for an ANSI C-conforming const... $ECHO_C" >&6 if test "${ac_cv_c_const+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ int main () { /* FIXME: Include the comments suggested by Paul. */ #ifndef __cplusplus /* Ultrix mips cc rejects this. */ typedef int charset[2]; const charset x; /* SunOS 4.1.1 cc rejects this. */ char const *const *ccp; char **p; /* NEC SVR4.0.2 mips cc rejects this. */ struct point {int x, y;}; static struct point const zero = {0,0}; /* AIX XL C 1.02.0.0 rejects this. It does not let you subtract one const X* pointer from another in an arm of an if-expression whose if-part is not a constant expression */ const char *g = "string"; ccp = &g + (g ? g-g : 0); /* HPUX 7.0 cc rejects these. */ ++ccp; p = (char**) ccp; ccp = (char const *const *) p; { /* SCO 3.2v4 cc rejects this. */ char *t; char const *s = 0 ? (char *) 0 : (char const *) 0; *t++ = 0; } { /* Someone thinks the Sun supposedly-ANSI compiler will reject this. */ int x[] = {25, 17}; const int *foo = &x[0]; ++foo; } { /* Sun SC1.0 ANSI compiler rejects this -- but not the above. */ typedef const int *iptr; iptr p = 0; ++p; } { /* AIX XL C 1.02.0.0 rejects this saying "k.c", line 2.27: 1506-025 (S) Operand must be a modifiable lvalue. */ struct s { int j; const int *ap[3]; }; struct s *b; b->j = 5; } { /* ULTRIX-32 V3.1 (Rev 9) vcc rejects this */ const int foo = 10; } #endif ; return 0; } _ACEOF rm -f conftest.$ac_objext if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 (eval $ac_compile) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { ac_try='test -z "$ac_c_werror_flag" || test ! -s conftest.err' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; } && { ac_try='test -s conftest.$ac_objext' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then ac_cv_c_const=yes else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_cv_c_const=no fi rm -f conftest.err conftest.$ac_objext conftest.$ac_ext fi echo "$as_me:$LINENO: result: $ac_cv_c_const" >&5 echo "${ECHO_T}$ac_cv_c_const" >&6 if test $ac_cv_c_const = no; then cat >>confdefs.h <<\_ACEOF #define const _ACEOF fi echo "$as_me:$LINENO: checking for inline" >&5 echo $ECHO_N "checking for inline... $ECHO_C" >&6 if test "${ac_cv_c_inline+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else ac_cv_c_inline=no for ac_kw in inline __inline__ __inline; do cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ #ifndef __cplusplus typedef int foo_t; static $ac_kw foo_t static_foo () {return 0; } $ac_kw foo_t foo () {return 0; } #endif _ACEOF rm -f conftest.$ac_objext if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 (eval $ac_compile) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { ac_try='test -z "$ac_c_werror_flag" || test ! -s conftest.err' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; } && { ac_try='test -s conftest.$ac_objext' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then ac_cv_c_inline=$ac_kw; break else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 fi rm -f conftest.err conftest.$ac_objext conftest.$ac_ext done fi echo "$as_me:$LINENO: result: $ac_cv_c_inline" >&5 echo "${ECHO_T}$ac_cv_c_inline" >&6 case $ac_cv_c_inline in inline | yes) ;; *) case $ac_cv_c_inline in no) ac_val=;; *) ac_val=$ac_cv_c_inline;; esac cat >>confdefs.h <<_ACEOF #ifndef __cplusplus #define inline $ac_val #endif _ACEOF ;; esac echo "$as_me:$LINENO: checking for working volatile" >&5 echo $ECHO_N "checking for working volatile... $ECHO_C" >&6 if test "${ac_cv_c_volatile+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ int main () { volatile int x; int * volatile y; ; return 0; } _ACEOF rm -f conftest.$ac_objext if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 (eval $ac_compile) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { ac_try='test -z "$ac_c_werror_flag" || test ! -s conftest.err' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; } && { ac_try='test -s conftest.$ac_objext' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then ac_cv_c_volatile=yes else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_cv_c_volatile=no fi rm -f conftest.err conftest.$ac_objext conftest.$ac_ext fi echo "$as_me:$LINENO: result: $ac_cv_c_volatile" >&5 echo "${ECHO_T}$ac_cv_c_volatile" >&6 if test $ac_cv_c_volatile = no; then cat >>confdefs.h <<\_ACEOF #define volatile _ACEOF fi echo "$as_me:$LINENO: checking for long long" >&5 echo $ECHO_N "checking for long long... $ECHO_C" >&6 if test "${ac_cv_type_long_long+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ $ac_includes_default int main () { if ((long long *) 0) return 0; if (sizeof (long long)) return 0; ; return 0; } _ACEOF rm -f conftest.$ac_objext if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 (eval $ac_compile) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { ac_try='test -z "$ac_c_werror_flag" || test ! -s conftest.err' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; } && { ac_try='test -s conftest.$ac_objext' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then ac_cv_type_long_long=yes else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_cv_type_long_long=no fi rm -f conftest.err conftest.$ac_objext conftest.$ac_ext fi echo "$as_me:$LINENO: result: $ac_cv_type_long_long" >&5 echo "${ECHO_T}$ac_cv_type_long_long" >&6 if test $ac_cv_type_long_long = yes; then cat >>confdefs.h <<_ACEOF #define HAVE_LONG_LONG 1 _ACEOF fi echo "$as_me:$LINENO: checking for long double" >&5 echo $ECHO_N "checking for long double... $ECHO_C" >&6 if test "${ac_cv_type_long_double+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ $ac_includes_default int main () { if ((long double *) 0) return 0; if (sizeof (long double)) return 0; ; return 0; } _ACEOF rm -f conftest.$ac_objext if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 (eval $ac_compile) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { ac_try='test -z "$ac_c_werror_flag" || test ! -s conftest.err' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; } && { ac_try='test -s conftest.$ac_objext' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then ac_cv_type_long_double=yes else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_cv_type_long_double=no fi rm -f conftest.err conftest.$ac_objext conftest.$ac_ext fi echo "$as_me:$LINENO: result: $ac_cv_type_long_double" >&5 echo "${ECHO_T}$ac_cv_type_long_double" >&6 if test $ac_cv_type_long_double = yes; then cat >>confdefs.h <<_ACEOF #define HAVE_LONG_DOUBLE 1 _ACEOF fi echo "$as_me:$LINENO: checking return type of signal handlers" >&5 echo $ECHO_N "checking return type of signal handlers... $ECHO_C" >&6 if test "${ac_cv_type_signal+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ #include #include #ifdef signal # undef signal #endif #ifdef __cplusplus extern "C" void (*signal (int, void (*)(int)))(int); #else void (*signal ()) (); #endif int main () { int i; ; return 0; } _ACEOF rm -f conftest.$ac_objext if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 (eval $ac_compile) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { ac_try='test -z "$ac_c_werror_flag" || test ! -s conftest.err' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; } && { ac_try='test -s conftest.$ac_objext' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then ac_cv_type_signal=void else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_cv_type_signal=int fi rm -f conftest.err conftest.$ac_objext conftest.$ac_ext fi echo "$as_me:$LINENO: result: $ac_cv_type_signal" >&5 echo "${ECHO_T}$ac_cv_type_signal" >&6 cat >>confdefs.h <<_ACEOF #define RETSIGTYPE $ac_cv_type_signal _ACEOF # Check whether --enable-doc or --disable-doc was given. if test "${enable_doc+set}" = set; then enableval="$enable_doc" fi; # Check whether --enable-tests or --disable-tests was given. if test "${enable_tests+set}" = set; then enableval="$enable_tests" fi; # Check whether --enable-test_data or --disable-test_data was given. if test "${enable_test_data+set}" = set; then enableval="$enable_test_data" fi; # Check whether --enable-mmx or --disable-mmx was given. if test "${enable_mmx+set}" = set; then enableval="$enable_mmx" fi; # Check whether --enable-sse or --disable-sse was given. if test "${enable_sse+set}" = set; then enableval="$enable_sse" fi; # Check whether --enable-sse2 or --disable-sse2 was given. if test "${enable_sse2+set}" = set; then enableval="$enable_sse2" fi; # Check whether --enable-sse3 or --disable-sse3 was given. if test "${enable_sse3+set}" = set; then enableval="$enable_sse3" fi; # Check whether --enable-ssse3 or --disable-ssse3 was given. if test "${enable_ssse3+set}" = set; then enableval="$enable_ssse3" fi; # Check whether --enable-sse4_1 or --disable-sse4_1 was given. if test "${enable_sse4_1+set}" = set; then enableval="$enable_sse4_1" fi; # Check whether --enable-sse4_2 or --disable-sse4_2 was given. if test "${enable_sse4_2+set}" = set; then enableval="$enable_sse4_2" fi; # Check whether --enable-sse4a or --disable-sse4a was given. if test "${enable_sse4a+set}" = set; then enableval="$enable_sse4a" fi; # Check whether --enable-sse5 or --disable-sse5 was given. if test "${enable_sse5+set}" = set; then enableval="$enable_sse5" fi; # Check whether --enable-fixed_point or --disable-fixed_point was given. if test "${enable_fixed_point+set}" = set; then enableval="$enable_fixed_point" fi; # The following is for MSVC, where we may be using a local copy of libtiff, built alongside spandsp # Check whether --enable-builtin_tiff or --disable-builtin_tiff was given. if test "${enable_builtin_tiff+set}" = set; then enableval="$enable_builtin_tiff" enable_builtin_tiff="$enableval" else enable_builtin_tiff="no" fi; echo "$as_me:$LINENO: checking for error_at_line" >&5 echo $ECHO_N "checking for error_at_line... $ECHO_C" >&6 if test "${ac_cv_lib_error_at_line+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ $ac_includes_default int main () { error_at_line (0, 0, "", 0, ""); ; return 0; } _ACEOF rm -f conftest.$ac_objext conftest$ac_exeext if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5 (eval $ac_link) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { ac_try='test -z "$ac_c_werror_flag" || test ! -s conftest.err' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; } && { ac_try='test -s conftest$ac_exeext' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then ac_cv_lib_error_at_line=yes else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_cv_lib_error_at_line=no fi rm -f conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext fi echo "$as_me:$LINENO: result: $ac_cv_lib_error_at_line" >&5 echo "${ECHO_T}$ac_cv_lib_error_at_line" >&6 if test $ac_cv_lib_error_at_line = no; then case $LIBOBJS in "error.$ac_objext" | \ *" error.$ac_objext" | \ "error.$ac_objext "* | \ *" error.$ac_objext "* ) ;; *) LIBOBJS="$LIBOBJS error.$ac_objext" ;; esac fi for ac_func in vprintf do as_ac_var=`echo "ac_cv_func_$ac_func" | $as_tr_sh` echo "$as_me:$LINENO: checking for $ac_func" >&5 echo $ECHO_N "checking for $ac_func... $ECHO_C" >&6 if eval "test \"\${$as_ac_var+set}\" = set"; then echo $ECHO_N "(cached) $ECHO_C" >&6 else cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ /* Define $ac_func to an innocuous variant, in case declares $ac_func. For example, HP-UX 11i declares gettimeofday. */ #define $ac_func innocuous_$ac_func /* System header to define __stub macros and hopefully few prototypes, which can conflict with char $ac_func (); below. Prefer to if __STDC__ is defined, since exists even on freestanding compilers. */ #ifdef __STDC__ # include #else # include #endif #undef $ac_func /* Override any gcc2 internal prototype to avoid an error. */ #ifdef __cplusplus extern "C" { #endif /* We use char because int might match the return type of a gcc2 builtin and then its argument prototype would still apply. */ char $ac_func (); /* The GNU C library defines this for functions which it implements to always fail with ENOSYS. Some functions are actually named something starting with __ and the normal name is an alias. */ #if defined (__stub_$ac_func) || defined (__stub___$ac_func) choke me #else char (*f) () = $ac_func; #endif #ifdef __cplusplus } #endif int main () { return f != $ac_func; ; return 0; } _ACEOF rm -f conftest.$ac_objext conftest$ac_exeext if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5 (eval $ac_link) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { ac_try='test -z "$ac_c_werror_flag" || test ! -s conftest.err' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; } && { ac_try='test -s conftest$ac_exeext' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then eval "$as_ac_var=yes" else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 eval "$as_ac_var=no" fi rm -f conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext fi echo "$as_me:$LINENO: result: `eval echo '${'$as_ac_var'}'`" >&5 echo "${ECHO_T}`eval echo '${'$as_ac_var'}'`" >&6 if test `eval echo '${'$as_ac_var'}'` = yes; then cat >>confdefs.h <<_ACEOF #define `echo "HAVE_$ac_func" | $as_tr_cpp` 1 _ACEOF echo "$as_me:$LINENO: checking for _doprnt" >&5 echo $ECHO_N "checking for _doprnt... $ECHO_C" >&6 if test "${ac_cv_func__doprnt+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ /* Define _doprnt to an innocuous variant, in case declares _doprnt. For example, HP-UX 11i declares gettimeofday. */ #define _doprnt innocuous__doprnt /* System header to define __stub macros and hopefully few prototypes, which can conflict with char _doprnt (); below. Prefer to if __STDC__ is defined, since exists even on freestanding compilers. */ #ifdef __STDC__ # include #else # include #endif #undef _doprnt /* Override any gcc2 internal prototype to avoid an error. */ #ifdef __cplusplus extern "C" { #endif /* We use char because int might match the return type of a gcc2 builtin and then its argument prototype would still apply. */ char _doprnt (); /* The GNU C library defines this for functions which it implements to always fail with ENOSYS. Some functions are actually named something starting with __ and the normal name is an alias. */ #if defined (__stub__doprnt) || defined (__stub____doprnt) choke me #else char (*f) () = _doprnt; #endif #ifdef __cplusplus } #endif int main () { return f != _doprnt; ; return 0; } _ACEOF rm -f conftest.$ac_objext conftest$ac_exeext if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5 (eval $ac_link) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { ac_try='test -z "$ac_c_werror_flag" || test ! -s conftest.err' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; } && { ac_try='test -s conftest$ac_exeext' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then ac_cv_func__doprnt=yes else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_cv_func__doprnt=no fi rm -f conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext fi echo "$as_me:$LINENO: result: $ac_cv_func__doprnt" >&5 echo "${ECHO_T}$ac_cv_func__doprnt" >&6 if test $ac_cv_func__doprnt = yes; then cat >>confdefs.h <<\_ACEOF #define HAVE_DOPRNT 1 _ACEOF fi fi done for ac_header in stdlib.h do as_ac_Header=`echo "ac_cv_header_$ac_header" | $as_tr_sh` if eval "test \"\${$as_ac_Header+set}\" = set"; then echo "$as_me:$LINENO: checking for $ac_header" >&5 echo $ECHO_N "checking for $ac_header... $ECHO_C" >&6 if eval "test \"\${$as_ac_Header+set}\" = set"; then echo $ECHO_N "(cached) $ECHO_C" >&6 fi echo "$as_me:$LINENO: result: `eval echo '${'$as_ac_Header'}'`" >&5 echo "${ECHO_T}`eval echo '${'$as_ac_Header'}'`" >&6 else # Is the header compilable? echo "$as_me:$LINENO: checking $ac_header usability" >&5 echo $ECHO_N "checking $ac_header usability... $ECHO_C" >&6 cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ $ac_includes_default #include <$ac_header> _ACEOF rm -f conftest.$ac_objext if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 (eval $ac_compile) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { ac_try='test -z "$ac_c_werror_flag" || test ! -s conftest.err' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; } && { ac_try='test -s conftest.$ac_objext' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then ac_header_compiler=yes else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_header_compiler=no fi rm -f conftest.err conftest.$ac_objext conftest.$ac_ext echo "$as_me:$LINENO: result: $ac_header_compiler" >&5 echo "${ECHO_T}$ac_header_compiler" >&6 # Is the header present? echo "$as_me:$LINENO: checking $ac_header presence" >&5 echo $ECHO_N "checking $ac_header presence... $ECHO_C" >&6 cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ #include <$ac_header> _ACEOF if { (eval echo "$as_me:$LINENO: \"$ac_cpp conftest.$ac_ext\"") >&5 (eval $ac_cpp conftest.$ac_ext) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } >/dev/null; then if test -s conftest.err; then ac_cpp_err=$ac_c_preproc_warn_flag ac_cpp_err=$ac_cpp_err$ac_c_werror_flag else ac_cpp_err= fi else ac_cpp_err=yes fi if test -z "$ac_cpp_err"; then ac_header_preproc=yes else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_header_preproc=no fi rm -f conftest.err conftest.$ac_ext echo "$as_me:$LINENO: result: $ac_header_preproc" >&5 echo "${ECHO_T}$ac_header_preproc" >&6 # So? What about this header? case $ac_header_compiler:$ac_header_preproc:$ac_c_preproc_warn_flag in yes:no: ) { echo "$as_me:$LINENO: WARNING: $ac_header: accepted by the compiler, rejected by the preprocessor!" >&5 echo "$as_me: WARNING: $ac_header: accepted by the compiler, rejected by the preprocessor!" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: proceeding with the compiler's result" >&5 echo "$as_me: WARNING: $ac_header: proceeding with the compiler's result" >&2;} ac_header_preproc=yes ;; no:yes:* ) { echo "$as_me:$LINENO: WARNING: $ac_header: present but cannot be compiled" >&5 echo "$as_me: WARNING: $ac_header: present but cannot be compiled" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: check for missing prerequisite headers?" >&5 echo "$as_me: WARNING: $ac_header: check for missing prerequisite headers?" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: see the Autoconf documentation" >&5 echo "$as_me: WARNING: $ac_header: see the Autoconf documentation" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: section \"Present But Cannot Be Compiled\"" >&5 echo "$as_me: WARNING: $ac_header: section \"Present But Cannot Be Compiled\"" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: proceeding with the preprocessor's result" >&5 echo "$as_me: WARNING: $ac_header: proceeding with the preprocessor's result" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: in the future, the compiler will take precedence" >&5 echo "$as_me: WARNING: $ac_header: in the future, the compiler will take precedence" >&2;} ( cat <<\_ASBOX ## ------------------------------------------ ## ## Report this to the AC_PACKAGE_NAME lists. ## ## ------------------------------------------ ## _ASBOX ) | sed "s/^/$as_me: WARNING: /" >&2 ;; esac echo "$as_me:$LINENO: checking for $ac_header" >&5 echo $ECHO_N "checking for $ac_header... $ECHO_C" >&6 if eval "test \"\${$as_ac_Header+set}\" = set"; then echo $ECHO_N "(cached) $ECHO_C" >&6 else eval "$as_ac_Header=\$ac_header_preproc" fi echo "$as_me:$LINENO: result: `eval echo '${'$as_ac_Header'}'`" >&5 echo "${ECHO_T}`eval echo '${'$as_ac_Header'}'`" >&6 fi if test `eval echo '${'$as_ac_Header'}'` = yes; then cat >>confdefs.h <<_ACEOF #define `echo "HAVE_$ac_header" | $as_tr_cpp` 1 _ACEOF fi done echo "$as_me:$LINENO: checking for GNU libc compatible malloc" >&5 echo $ECHO_N "checking for GNU libc compatible malloc... $ECHO_C" >&6 if test "${ac_cv_func_malloc_0_nonnull+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else if test "$cross_compiling" = yes; then ac_cv_func_malloc_0_nonnull=no else cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ #if STDC_HEADERS || HAVE_STDLIB_H # include #else char *malloc (); #endif int main () { exit (malloc (0) ? 0 : 1); ; return 0; } _ACEOF rm -f conftest$ac_exeext if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5 (eval $ac_link) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { ac_try='./conftest$ac_exeext' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then ac_cv_func_malloc_0_nonnull=yes else echo "$as_me: program exited with status $ac_status" >&5 echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ( exit $ac_status ) ac_cv_func_malloc_0_nonnull=no fi rm -f core *.core gmon.out bb.out conftest$ac_exeext conftest.$ac_objext conftest.$ac_ext fi fi echo "$as_me:$LINENO: result: $ac_cv_func_malloc_0_nonnull" >&5 echo "${ECHO_T}$ac_cv_func_malloc_0_nonnull" >&6 if test $ac_cv_func_malloc_0_nonnull = yes; then cat >>confdefs.h <<\_ACEOF #define HAVE_MALLOC 1 _ACEOF else cat >>confdefs.h <<\_ACEOF #define HAVE_MALLOC 0 _ACEOF case $LIBOBJS in "malloc.$ac_objext" | \ *" malloc.$ac_objext" | \ "malloc.$ac_objext "* | \ *" malloc.$ac_objext "* ) ;; *) LIBOBJS="$LIBOBJS malloc.$ac_objext" ;; esac cat >>confdefs.h <<\_ACEOF #define malloc rpl_malloc _ACEOF fi echo "$as_me:$LINENO: checking for working memcmp" >&5 echo $ECHO_N "checking for working memcmp... $ECHO_C" >&6 if test "${ac_cv_func_memcmp_working+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else if test "$cross_compiling" = yes; then ac_cv_func_memcmp_working=no else cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ $ac_includes_default int main () { /* Some versions of memcmp are not 8-bit clean. */ char c0 = 0x40, c1 = 0x80, c2 = 0x81; if (memcmp(&c0, &c2, 1) >= 0 || memcmp(&c1, &c2, 1) >= 0) exit (1); /* The Next x86 OpenStep bug shows up only when comparing 16 bytes or more and with at least one buffer not starting on a 4-byte boundary. William Lewis provided this test program. */ { char foo[21]; char bar[21]; int i; for (i = 0; i < 4; i++) { char *a = foo + i; char *b = bar + i; strcpy (a, "--------01111111"); strcpy (b, "--------10000000"); if (memcmp (a, b, 16) >= 0) exit (1); } exit (0); } ; return 0; } _ACEOF rm -f conftest$ac_exeext if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5 (eval $ac_link) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { ac_try='./conftest$ac_exeext' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then ac_cv_func_memcmp_working=yes else echo "$as_me: program exited with status $ac_status" >&5 echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ( exit $ac_status ) ac_cv_func_memcmp_working=no fi rm -f core *.core gmon.out bb.out conftest$ac_exeext conftest.$ac_objext conftest.$ac_ext fi fi echo "$as_me:$LINENO: result: $ac_cv_func_memcmp_working" >&5 echo "${ECHO_T}$ac_cv_func_memcmp_working" >&6 test $ac_cv_func_memcmp_working = no && case $LIBOBJS in "memcmp.$ac_objext" | \ *" memcmp.$ac_objext" | \ "memcmp.$ac_objext "* | \ *" memcmp.$ac_objext "* ) ;; *) LIBOBJS="$LIBOBJS memcmp.$ac_objext" ;; esac for ac_header in stdlib.h do as_ac_Header=`echo "ac_cv_header_$ac_header" | $as_tr_sh` if eval "test \"\${$as_ac_Header+set}\" = set"; then echo "$as_me:$LINENO: checking for $ac_header" >&5 echo $ECHO_N "checking for $ac_header... $ECHO_C" >&6 if eval "test \"\${$as_ac_Header+set}\" = set"; then echo $ECHO_N "(cached) $ECHO_C" >&6 fi echo "$as_me:$LINENO: result: `eval echo '${'$as_ac_Header'}'`" >&5 echo "${ECHO_T}`eval echo '${'$as_ac_Header'}'`" >&6 else # Is the header compilable? echo "$as_me:$LINENO: checking $ac_header usability" >&5 echo $ECHO_N "checking $ac_header usability... $ECHO_C" >&6 cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ $ac_includes_default #include <$ac_header> _ACEOF rm -f conftest.$ac_objext if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 (eval $ac_compile) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { ac_try='test -z "$ac_c_werror_flag" || test ! -s conftest.err' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; } && { ac_try='test -s conftest.$ac_objext' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then ac_header_compiler=yes else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_header_compiler=no fi rm -f conftest.err conftest.$ac_objext conftest.$ac_ext echo "$as_me:$LINENO: result: $ac_header_compiler" >&5 echo "${ECHO_T}$ac_header_compiler" >&6 # Is the header present? echo "$as_me:$LINENO: checking $ac_header presence" >&5 echo $ECHO_N "checking $ac_header presence... $ECHO_C" >&6 cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ #include <$ac_header> _ACEOF if { (eval echo "$as_me:$LINENO: \"$ac_cpp conftest.$ac_ext\"") >&5 (eval $ac_cpp conftest.$ac_ext) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } >/dev/null; then if test -s conftest.err; then ac_cpp_err=$ac_c_preproc_warn_flag ac_cpp_err=$ac_cpp_err$ac_c_werror_flag else ac_cpp_err= fi else ac_cpp_err=yes fi if test -z "$ac_cpp_err"; then ac_header_preproc=yes else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_header_preproc=no fi rm -f conftest.err conftest.$ac_ext echo "$as_me:$LINENO: result: $ac_header_preproc" >&5 echo "${ECHO_T}$ac_header_preproc" >&6 # So? What about this header? case $ac_header_compiler:$ac_header_preproc:$ac_c_preproc_warn_flag in yes:no: ) { echo "$as_me:$LINENO: WARNING: $ac_header: accepted by the compiler, rejected by the preprocessor!" >&5 echo "$as_me: WARNING: $ac_header: accepted by the compiler, rejected by the preprocessor!" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: proceeding with the compiler's result" >&5 echo "$as_me: WARNING: $ac_header: proceeding with the compiler's result" >&2;} ac_header_preproc=yes ;; no:yes:* ) { echo "$as_me:$LINENO: WARNING: $ac_header: present but cannot be compiled" >&5 echo "$as_me: WARNING: $ac_header: present but cannot be compiled" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: check for missing prerequisite headers?" >&5 echo "$as_me: WARNING: $ac_header: check for missing prerequisite headers?" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: see the Autoconf documentation" >&5 echo "$as_me: WARNING: $ac_header: see the Autoconf documentation" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: section \"Present But Cannot Be Compiled\"" >&5 echo "$as_me: WARNING: $ac_header: section \"Present But Cannot Be Compiled\"" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: proceeding with the preprocessor's result" >&5 echo "$as_me: WARNING: $ac_header: proceeding with the preprocessor's result" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: in the future, the compiler will take precedence" >&5 echo "$as_me: WARNING: $ac_header: in the future, the compiler will take precedence" >&2;} ( cat <<\_ASBOX ## ------------------------------------------ ## ## Report this to the AC_PACKAGE_NAME lists. ## ## ------------------------------------------ ## _ASBOX ) | sed "s/^/$as_me: WARNING: /" >&2 ;; esac echo "$as_me:$LINENO: checking for $ac_header" >&5 echo $ECHO_N "checking for $ac_header... $ECHO_C" >&6 if eval "test \"\${$as_ac_Header+set}\" = set"; then echo $ECHO_N "(cached) $ECHO_C" >&6 else eval "$as_ac_Header=\$ac_header_preproc" fi echo "$as_me:$LINENO: result: `eval echo '${'$as_ac_Header'}'`" >&5 echo "${ECHO_T}`eval echo '${'$as_ac_Header'}'`" >&6 fi if test `eval echo '${'$as_ac_Header'}'` = yes; then cat >>confdefs.h <<_ACEOF #define `echo "HAVE_$ac_header" | $as_tr_cpp` 1 _ACEOF fi done echo "$as_me:$LINENO: checking for GNU libc compatible realloc" >&5 echo $ECHO_N "checking for GNU libc compatible realloc... $ECHO_C" >&6 if test "${ac_cv_func_realloc_0_nonnull+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else if test "$cross_compiling" = yes; then ac_cv_func_realloc_0_nonnull=no else cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ #if STDC_HEADERS || HAVE_STDLIB_H # include #else char *realloc (); #endif int main () { exit (realloc (0, 0) ? 0 : 1); ; return 0; } _ACEOF rm -f conftest$ac_exeext if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5 (eval $ac_link) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { ac_try='./conftest$ac_exeext' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then ac_cv_func_realloc_0_nonnull=yes else echo "$as_me: program exited with status $ac_status" >&5 echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ( exit $ac_status ) ac_cv_func_realloc_0_nonnull=no fi rm -f core *.core gmon.out bb.out conftest$ac_exeext conftest.$ac_objext conftest.$ac_ext fi fi echo "$as_me:$LINENO: result: $ac_cv_func_realloc_0_nonnull" >&5 echo "${ECHO_T}$ac_cv_func_realloc_0_nonnull" >&6 if test $ac_cv_func_realloc_0_nonnull = yes; then cat >>confdefs.h <<\_ACEOF #define HAVE_REALLOC 1 _ACEOF else cat >>confdefs.h <<\_ACEOF #define HAVE_REALLOC 0 _ACEOF case $LIBOBJS in "realloc.$ac_objext" | \ *" realloc.$ac_objext" | \ "realloc.$ac_objext "* | \ *" realloc.$ac_objext "* ) ;; *) LIBOBJS="$LIBOBJS realloc.$ac_objext" ;; esac cat >>confdefs.h <<\_ACEOF #define realloc rpl_realloc _ACEOF fi for ac_header in sys/select.h sys/socket.h do as_ac_Header=`echo "ac_cv_header_$ac_header" | $as_tr_sh` if eval "test \"\${$as_ac_Header+set}\" = set"; then echo "$as_me:$LINENO: checking for $ac_header" >&5 echo $ECHO_N "checking for $ac_header... $ECHO_C" >&6 if eval "test \"\${$as_ac_Header+set}\" = set"; then echo $ECHO_N "(cached) $ECHO_C" >&6 fi echo "$as_me:$LINENO: result: `eval echo '${'$as_ac_Header'}'`" >&5 echo "${ECHO_T}`eval echo '${'$as_ac_Header'}'`" >&6 else # Is the header compilable? echo "$as_me:$LINENO: checking $ac_header usability" >&5 echo $ECHO_N "checking $ac_header usability... $ECHO_C" >&6 cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ $ac_includes_default #include <$ac_header> _ACEOF rm -f conftest.$ac_objext if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 (eval $ac_compile) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { ac_try='test -z "$ac_c_werror_flag" || test ! -s conftest.err' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; } && { ac_try='test -s conftest.$ac_objext' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then ac_header_compiler=yes else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_header_compiler=no fi rm -f conftest.err conftest.$ac_objext conftest.$ac_ext echo "$as_me:$LINENO: result: $ac_header_compiler" >&5 echo "${ECHO_T}$ac_header_compiler" >&6 # Is the header present? echo "$as_me:$LINENO: checking $ac_header presence" >&5 echo $ECHO_N "checking $ac_header presence... $ECHO_C" >&6 cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ #include <$ac_header> _ACEOF if { (eval echo "$as_me:$LINENO: \"$ac_cpp conftest.$ac_ext\"") >&5 (eval $ac_cpp conftest.$ac_ext) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } >/dev/null; then if test -s conftest.err; then ac_cpp_err=$ac_c_preproc_warn_flag ac_cpp_err=$ac_cpp_err$ac_c_werror_flag else ac_cpp_err= fi else ac_cpp_err=yes fi if test -z "$ac_cpp_err"; then ac_header_preproc=yes else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_header_preproc=no fi rm -f conftest.err conftest.$ac_ext echo "$as_me:$LINENO: result: $ac_header_preproc" >&5 echo "${ECHO_T}$ac_header_preproc" >&6 # So? What about this header? case $ac_header_compiler:$ac_header_preproc:$ac_c_preproc_warn_flag in yes:no: ) { echo "$as_me:$LINENO: WARNING: $ac_header: accepted by the compiler, rejected by the preprocessor!" >&5 echo "$as_me: WARNING: $ac_header: accepted by the compiler, rejected by the preprocessor!" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: proceeding with the compiler's result" >&5 echo "$as_me: WARNING: $ac_header: proceeding with the compiler's result" >&2;} ac_header_preproc=yes ;; no:yes:* ) { echo "$as_me:$LINENO: WARNING: $ac_header: present but cannot be compiled" >&5 echo "$as_me: WARNING: $ac_header: present but cannot be compiled" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: check for missing prerequisite headers?" >&5 echo "$as_me: WARNING: $ac_header: check for missing prerequisite headers?" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: see the Autoconf documentation" >&5 echo "$as_me: WARNING: $ac_header: see the Autoconf documentation" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: section \"Present But Cannot Be Compiled\"" >&5 echo "$as_me: WARNING: $ac_header: section \"Present But Cannot Be Compiled\"" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: proceeding with the preprocessor's result" >&5 echo "$as_me: WARNING: $ac_header: proceeding with the preprocessor's result" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: in the future, the compiler will take precedence" >&5 echo "$as_me: WARNING: $ac_header: in the future, the compiler will take precedence" >&2;} ( cat <<\_ASBOX ## ------------------------------------------ ## ## Report this to the AC_PACKAGE_NAME lists. ## ## ------------------------------------------ ## _ASBOX ) | sed "s/^/$as_me: WARNING: /" >&2 ;; esac echo "$as_me:$LINENO: checking for $ac_header" >&5 echo $ECHO_N "checking for $ac_header... $ECHO_C" >&6 if eval "test \"\${$as_ac_Header+set}\" = set"; then echo $ECHO_N "(cached) $ECHO_C" >&6 else eval "$as_ac_Header=\$ac_header_preproc" fi echo "$as_me:$LINENO: result: `eval echo '${'$as_ac_Header'}'`" >&5 echo "${ECHO_T}`eval echo '${'$as_ac_Header'}'`" >&6 fi if test `eval echo '${'$as_ac_Header'}'` = yes; then cat >>confdefs.h <<_ACEOF #define `echo "HAVE_$ac_header" | $as_tr_cpp` 1 _ACEOF fi done echo "$as_me:$LINENO: checking types of arguments for select" >&5 echo $ECHO_N "checking types of arguments for select... $ECHO_C" >&6 if test "${ac_cv_func_select_args+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else for ac_arg234 in 'fd_set *' 'int *' 'void *'; do for ac_arg1 in 'int' 'size_t' 'unsigned long' 'unsigned'; do for ac_arg5 in 'struct timeval *' 'const struct timeval *'; do cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ $ac_includes_default #if HAVE_SYS_SELECT_H # include #endif #if HAVE_SYS_SOCKET_H # include #endif int main () { extern int select ($ac_arg1, $ac_arg234, $ac_arg234, $ac_arg234, $ac_arg5); ; return 0; } _ACEOF rm -f conftest.$ac_objext if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 (eval $ac_compile) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { ac_try='test -z "$ac_c_werror_flag" || test ! -s conftest.err' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; } && { ac_try='test -s conftest.$ac_objext' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then ac_cv_func_select_args="$ac_arg1,$ac_arg234,$ac_arg5"; break 3 else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 fi rm -f conftest.err conftest.$ac_objext conftest.$ac_ext done done done # Provide a safe default value. : ${ac_cv_func_select_args='int,int *,struct timeval *'} fi echo "$as_me:$LINENO: result: $ac_cv_func_select_args" >&5 echo "${ECHO_T}$ac_cv_func_select_args" >&6 ac_save_IFS=$IFS; IFS=',' set dummy `echo "$ac_cv_func_select_args" | sed 's/\*/\*/g'` IFS=$ac_save_IFS shift cat >>confdefs.h <<_ACEOF #define SELECT_TYPE_ARG1 $1 _ACEOF cat >>confdefs.h <<_ACEOF #define SELECT_TYPE_ARG234 ($2) _ACEOF cat >>confdefs.h <<_ACEOF #define SELECT_TYPE_ARG5 ($3) _ACEOF rm -f conftest* echo "$as_me:$LINENO: checking for lrint" >&5 echo $ECHO_N "checking for lrint... $ECHO_C" >&6 if test "${ac_cv_c99_lrint+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else lrint_save_CFLAGS=$CFLAGS CFLAGS="-lm" cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ #define _ISOC9X_SOURCE 1 #define _ISOC99_SOURCE 1 #define __USE_ISOC99 1 #define __USE_ISOC9X 1 #include int main () { if (!lrint(3.14159)) lrint(2.7183); ; return 0; } _ACEOF rm -f conftest.$ac_objext conftest$ac_exeext if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5 (eval $ac_link) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { ac_try='test -z "$ac_c_werror_flag" || test ! -s conftest.err' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; } && { ac_try='test -s conftest$ac_exeext' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then ac_cv_c99_lrint=yes else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_cv_c99_lrint=no fi rm -f conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext CFLAGS=$lrint_save_CFLAGS fi echo "$as_me:$LINENO: result: $ac_cv_c99_lrint" >&5 echo "${ECHO_T}$ac_cv_c99_lrint" >&6 if test "$ac_cv_c99_lrint" = yes; then cat >>confdefs.h <<\_ACEOF #define HAVE_LRINT 1 _ACEOF fi echo "$as_me:$LINENO: checking for lrintf" >&5 echo $ECHO_N "checking for lrintf... $ECHO_C" >&6 if test "${ac_cv_c99_lrintf+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else lrintf_save_CFLAGS=$CFLAGS CFLAGS="-lm" cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ #define _ISOC9X_SOURCE 1 #define _ISOC99_SOURCE 1 #define __USE_ISOC99 1 #define __USE_ISOC9X 1 #include int main () { if (!lrintf(3.14159)) lrintf(2.7183); ; return 0; } _ACEOF rm -f conftest.$ac_objext conftest$ac_exeext if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5 (eval $ac_link) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { ac_try='test -z "$ac_c_werror_flag" || test ! -s conftest.err' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; } && { ac_try='test -s conftest$ac_exeext' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then ac_cv_c99_lrintf=yes else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_cv_c99_lrintf=no fi rm -f conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext CFLAGS=$lrintf_save_CFLAGS fi echo "$as_me:$LINENO: result: $ac_cv_c99_lrintf" >&5 echo "${ECHO_T}$ac_cv_c99_lrintf" >&6 if test "$ac_cv_c99_lrintf" = yes; then cat >>confdefs.h <<\_ACEOF #define HAVE_LRINTF 1 _ACEOF fi echo "$as_me:$LINENO: checking for llrint" >&5 echo $ECHO_N "checking for llrint... $ECHO_C" >&6 if test "${ac_cv_c99_llrint+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else llrint_save_CFLAGS=$CFLAGS CFLAGS="-lm" cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ #define ISOC9X_SOURCE 1 #define _ISOC99_SOURCE 1 #define __USE_ISOC99 1 #define __USE_ISOC9X 1 #include int main () { long long int x ; x = llrint(3.14159) ; ; return 0; } _ACEOF rm -f conftest.$ac_objext conftest$ac_exeext if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5 (eval $ac_link) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { ac_try='test -z "$ac_c_werror_flag" || test ! -s conftest.err' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; } && { ac_try='test -s conftest$ac_exeext' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then ac_cv_c99_llrint=yes else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_cv_c99_llrint=no fi rm -f conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext CFLAGS=$llrint_save_CFLAGS fi echo "$as_me:$LINENO: result: $ac_cv_c99_llrint" >&5 echo "${ECHO_T}$ac_cv_c99_llrint" >&6 if test "$ac_cv_c99_llrint" = yes; then cat >>confdefs.h <<\_ACEOF #define HAVE_LLRINT 1 _ACEOF fi echo "$as_me:$LINENO: checking for llrintf" >&5 echo $ECHO_N "checking for llrintf... $ECHO_C" >&6 if test "${ac_cv_c99_llrintf+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else llrintf_save_CFLAGS=$CFLAGS CFLAGS="-lm" cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ #define _ISOC9X_SOURCE 1 #define _ISOC99_SOURCE 1 #define __USE_ISOC99 1 #define __USE_ISOC9X 1 #include int main () { long long int x ; x = llrintf(3.14159) ; ; return 0; } _ACEOF rm -f conftest.$ac_objext conftest$ac_exeext if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5 (eval $ac_link) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { ac_try='test -z "$ac_c_werror_flag" || test ! -s conftest.err' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; } && { ac_try='test -s conftest$ac_exeext' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then ac_cv_c99_llrintf=yes else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_cv_c99_llrintf=no fi rm -f conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext CFLAGS=$llrintf_save_CFLAGS fi echo "$as_me:$LINENO: result: $ac_cv_c99_llrintf" >&5 echo "${ECHO_T}$ac_cv_c99_llrintf" >&6 if test "$ac_cv_c99_llrintf" = yes; then cat >>confdefs.h <<\_ACEOF #define HAVE_LLRINTF 1 _ACEOF fi if test "x$ac_cv_c99_lrint" = "xno" ; then if test "x$ac_cv_c99_lrintf" = "xno" ; then { echo "$as_me:$LINENO: WARNING: *** Missing C99 standard functions lrint() and lrintf()." >&5 echo "$as_me: WARNING: *** Missing C99 standard functions lrint() and lrintf()." >&2;} { echo "$as_me:$LINENO: WARNING: *** This may cause benign compiler warnings on some systems (ie Solaris)." >&5 echo "$as_me: WARNING: *** This may cause benign compiler warnings on some systems (ie Solaris)." >&2;} fi fi echo "$as_me:$LINENO: checking if have C99 struct flexible array support" >&5 echo $ECHO_N "checking if have C99 struct flexible array support... $ECHO_C" >&6 if test "${ac_cv_c99_flexible_array+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else # Initialize to unknown ac_cv_c99_flexible_array=no cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ #include typedef struct { int k; char buffer [] ; } MY_STRUCT ; int main () { MY_STRUCT *p = calloc (1, sizeof (MY_STRUCT) + 42); ; return 0; } _ACEOF rm -f conftest.$ac_objext conftest$ac_exeext if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5 (eval $ac_link) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { ac_try='test -z "$ac_c_werror_flag" || test ! -s conftest.err' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; } && { ac_try='test -s conftest$ac_exeext' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then ac_cv_c99_flexible_array=yes else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_cv_c99_flexible_array=no fi rm -f conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext fi echo "$as_me:$LINENO: result: $ac_cv_c99_flexible_array" >&5 echo "${ECHO_T}$ac_cv_c99_flexible_array" >&6 for ac_func in memmove do as_ac_var=`echo "ac_cv_func_$ac_func" | $as_tr_sh` echo "$as_me:$LINENO: checking for $ac_func" >&5 echo $ECHO_N "checking for $ac_func... $ECHO_C" >&6 if eval "test \"\${$as_ac_var+set}\" = set"; then echo $ECHO_N "(cached) $ECHO_C" >&6 else cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ /* Define $ac_func to an innocuous variant, in case declares $ac_func. For example, HP-UX 11i declares gettimeofday. */ #define $ac_func innocuous_$ac_func /* System header to define __stub macros and hopefully few prototypes, which can conflict with char $ac_func (); below. Prefer to if __STDC__ is defined, since exists even on freestanding compilers. */ #ifdef __STDC__ # include #else # include #endif #undef $ac_func /* Override any gcc2 internal prototype to avoid an error. */ #ifdef __cplusplus extern "C" { #endif /* We use char because int might match the return type of a gcc2 builtin and then its argument prototype would still apply. */ char $ac_func (); /* The GNU C library defines this for functions which it implements to always fail with ENOSYS. Some functions are actually named something starting with __ and the normal name is an alias. */ #if defined (__stub_$ac_func) || defined (__stub___$ac_func) choke me #else char (*f) () = $ac_func; #endif #ifdef __cplusplus } #endif int main () { return f != $ac_func; ; return 0; } _ACEOF rm -f conftest.$ac_objext conftest$ac_exeext if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5 (eval $ac_link) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { ac_try='test -z "$ac_c_werror_flag" || test ! -s conftest.err' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; } && { ac_try='test -s conftest$ac_exeext' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then eval "$as_ac_var=yes" else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 eval "$as_ac_var=no" fi rm -f conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext fi echo "$as_me:$LINENO: result: `eval echo '${'$as_ac_var'}'`" >&5 echo "${ECHO_T}`eval echo '${'$as_ac_var'}'`" >&6 if test `eval echo '${'$as_ac_var'}'` = yes; then cat >>confdefs.h <<_ACEOF #define `echo "HAVE_$ac_func" | $as_tr_cpp` 1 _ACEOF fi done for ac_func in memset do as_ac_var=`echo "ac_cv_func_$ac_func" | $as_tr_sh` echo "$as_me:$LINENO: checking for $ac_func" >&5 echo $ECHO_N "checking for $ac_func... $ECHO_C" >&6 if eval "test \"\${$as_ac_var+set}\" = set"; then echo $ECHO_N "(cached) $ECHO_C" >&6 else cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ /* Define $ac_func to an innocuous variant, in case declares $ac_func. For example, HP-UX 11i declares gettimeofday. */ #define $ac_func innocuous_$ac_func /* System header to define __stub macros and hopefully few prototypes, which can conflict with char $ac_func (); below. Prefer to if __STDC__ is defined, since exists even on freestanding compilers. */ #ifdef __STDC__ # include #else # include #endif #undef $ac_func /* Override any gcc2 internal prototype to avoid an error. */ #ifdef __cplusplus extern "C" { #endif /* We use char because int might match the return type of a gcc2 builtin and then its argument prototype would still apply. */ char $ac_func (); /* The GNU C library defines this for functions which it implements to always fail with ENOSYS. Some functions are actually named something starting with __ and the normal name is an alias. */ #if defined (__stub_$ac_func) || defined (__stub___$ac_func) choke me #else char (*f) () = $ac_func; #endif #ifdef __cplusplus } #endif int main () { return f != $ac_func; ; return 0; } _ACEOF rm -f conftest.$ac_objext conftest$ac_exeext if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5 (eval $ac_link) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { ac_try='test -z "$ac_c_werror_flag" || test ! -s conftest.err' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; } && { ac_try='test -s conftest$ac_exeext' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then eval "$as_ac_var=yes" else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 eval "$as_ac_var=no" fi rm -f conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext fi echo "$as_me:$LINENO: result: `eval echo '${'$as_ac_var'}'`" >&5 echo "${ECHO_T}`eval echo '${'$as_ac_var'}'`" >&6 if test `eval echo '${'$as_ac_var'}'` = yes; then cat >>confdefs.h <<_ACEOF #define `echo "HAVE_$ac_func" | $as_tr_cpp` 1 _ACEOF fi done for ac_func in select do as_ac_var=`echo "ac_cv_func_$ac_func" | $as_tr_sh` echo "$as_me:$LINENO: checking for $ac_func" >&5 echo $ECHO_N "checking for $ac_func... $ECHO_C" >&6 if eval "test \"\${$as_ac_var+set}\" = set"; then echo $ECHO_N "(cached) $ECHO_C" >&6 else cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ /* Define $ac_func to an innocuous variant, in case declares $ac_func. For example, HP-UX 11i declares gettimeofday. */ #define $ac_func innocuous_$ac_func /* System header to define __stub macros and hopefully few prototypes, which can conflict with char $ac_func (); below. Prefer to if __STDC__ is defined, since exists even on freestanding compilers. */ #ifdef __STDC__ # include #else # include #endif #undef $ac_func /* Override any gcc2 internal prototype to avoid an error. */ #ifdef __cplusplus extern "C" { #endif /* We use char because int might match the return type of a gcc2 builtin and then its argument prototype would still apply. */ char $ac_func (); /* The GNU C library defines this for functions which it implements to always fail with ENOSYS. Some functions are actually named something starting with __ and the normal name is an alias. */ #if defined (__stub_$ac_func) || defined (__stub___$ac_func) choke me #else char (*f) () = $ac_func; #endif #ifdef __cplusplus } #endif int main () { return f != $ac_func; ; return 0; } _ACEOF rm -f conftest.$ac_objext conftest$ac_exeext if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5 (eval $ac_link) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { ac_try='test -z "$ac_c_werror_flag" || test ! -s conftest.err' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; } && { ac_try='test -s conftest$ac_exeext' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then eval "$as_ac_var=yes" else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 eval "$as_ac_var=no" fi rm -f conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext fi echo "$as_me:$LINENO: result: `eval echo '${'$as_ac_var'}'`" >&5 echo "${ECHO_T}`eval echo '${'$as_ac_var'}'`" >&6 if test `eval echo '${'$as_ac_var'}'` = yes; then cat >>confdefs.h <<_ACEOF #define `echo "HAVE_$ac_func" | $as_tr_cpp` 1 _ACEOF fi done for ac_func in strcasecmp do as_ac_var=`echo "ac_cv_func_$ac_func" | $as_tr_sh` echo "$as_me:$LINENO: checking for $ac_func" >&5 echo $ECHO_N "checking for $ac_func... $ECHO_C" >&6 if eval "test \"\${$as_ac_var+set}\" = set"; then echo $ECHO_N "(cached) $ECHO_C" >&6 else cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ /* Define $ac_func to an innocuous variant, in case declares $ac_func. For example, HP-UX 11i declares gettimeofday. */ #define $ac_func innocuous_$ac_func /* System header to define __stub macros and hopefully few prototypes, which can conflict with char $ac_func (); below. Prefer to if __STDC__ is defined, since exists even on freestanding compilers. */ #ifdef __STDC__ # include #else # include #endif #undef $ac_func /* Override any gcc2 internal prototype to avoid an error. */ #ifdef __cplusplus extern "C" { #endif /* We use char because int might match the return type of a gcc2 builtin and then its argument prototype would still apply. */ char $ac_func (); /* The GNU C library defines this for functions which it implements to always fail with ENOSYS. Some functions are actually named something starting with __ and the normal name is an alias. */ #if defined (__stub_$ac_func) || defined (__stub___$ac_func) choke me #else char (*f) () = $ac_func; #endif #ifdef __cplusplus } #endif int main () { return f != $ac_func; ; return 0; } _ACEOF rm -f conftest.$ac_objext conftest$ac_exeext if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5 (eval $ac_link) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { ac_try='test -z "$ac_c_werror_flag" || test ! -s conftest.err' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; } && { ac_try='test -s conftest$ac_exeext' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then eval "$as_ac_var=yes" else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 eval "$as_ac_var=no" fi rm -f conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext fi echo "$as_me:$LINENO: result: `eval echo '${'$as_ac_var'}'`" >&5 echo "${ECHO_T}`eval echo '${'$as_ac_var'}'`" >&6 if test `eval echo '${'$as_ac_var'}'` = yes; then cat >>confdefs.h <<_ACEOF #define `echo "HAVE_$ac_func" | $as_tr_cpp` 1 _ACEOF fi done for ac_func in strchr do as_ac_var=`echo "ac_cv_func_$ac_func" | $as_tr_sh` echo "$as_me:$LINENO: checking for $ac_func" >&5 echo $ECHO_N "checking for $ac_func... $ECHO_C" >&6 if eval "test \"\${$as_ac_var+set}\" = set"; then echo $ECHO_N "(cached) $ECHO_C" >&6 else cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ /* Define $ac_func to an innocuous variant, in case declares $ac_func. For example, HP-UX 11i declares gettimeofday. */ #define $ac_func innocuous_$ac_func /* System header to define __stub macros and hopefully few prototypes, which can conflict with char $ac_func (); below. Prefer to if __STDC__ is defined, since exists even on freestanding compilers. */ #ifdef __STDC__ # include #else # include #endif #undef $ac_func /* Override any gcc2 internal prototype to avoid an error. */ #ifdef __cplusplus extern "C" { #endif /* We use char because int might match the return type of a gcc2 builtin and then its argument prototype would still apply. */ char $ac_func (); /* The GNU C library defines this for functions which it implements to always fail with ENOSYS. Some functions are actually named something starting with __ and the normal name is an alias. */ #if defined (__stub_$ac_func) || defined (__stub___$ac_func) choke me #else char (*f) () = $ac_func; #endif #ifdef __cplusplus } #endif int main () { return f != $ac_func; ; return 0; } _ACEOF rm -f conftest.$ac_objext conftest$ac_exeext if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5 (eval $ac_link) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { ac_try='test -z "$ac_c_werror_flag" || test ! -s conftest.err' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; } && { ac_try='test -s conftest$ac_exeext' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then eval "$as_ac_var=yes" else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 eval "$as_ac_var=no" fi rm -f conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext fi echo "$as_me:$LINENO: result: `eval echo '${'$as_ac_var'}'`" >&5 echo "${ECHO_T}`eval echo '${'$as_ac_var'}'`" >&6 if test `eval echo '${'$as_ac_var'}'` = yes; then cat >>confdefs.h <<_ACEOF #define `echo "HAVE_$ac_func" | $as_tr_cpp` 1 _ACEOF fi done for ac_func in strdup do as_ac_var=`echo "ac_cv_func_$ac_func" | $as_tr_sh` echo "$as_me:$LINENO: checking for $ac_func" >&5 echo $ECHO_N "checking for $ac_func... $ECHO_C" >&6 if eval "test \"\${$as_ac_var+set}\" = set"; then echo $ECHO_N "(cached) $ECHO_C" >&6 else cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ /* Define $ac_func to an innocuous variant, in case declares $ac_func. For example, HP-UX 11i declares gettimeofday. */ #define $ac_func innocuous_$ac_func /* System header to define __stub macros and hopefully few prototypes, which can conflict with char $ac_func (); below. Prefer to if __STDC__ is defined, since exists even on freestanding compilers. */ #ifdef __STDC__ # include #else # include #endif #undef $ac_func /* Override any gcc2 internal prototype to avoid an error. */ #ifdef __cplusplus extern "C" { #endif /* We use char because int might match the return type of a gcc2 builtin and then its argument prototype would still apply. */ char $ac_func (); /* The GNU C library defines this for functions which it implements to always fail with ENOSYS. Some functions are actually named something starting with __ and the normal name is an alias. */ #if defined (__stub_$ac_func) || defined (__stub___$ac_func) choke me #else char (*f) () = $ac_func; #endif #ifdef __cplusplus } #endif int main () { return f != $ac_func; ; return 0; } _ACEOF rm -f conftest.$ac_objext conftest$ac_exeext if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5 (eval $ac_link) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { ac_try='test -z "$ac_c_werror_flag" || test ! -s conftest.err' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; } && { ac_try='test -s conftest$ac_exeext' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then eval "$as_ac_var=yes" else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 eval "$as_ac_var=no" fi rm -f conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext fi echo "$as_me:$LINENO: result: `eval echo '${'$as_ac_var'}'`" >&5 echo "${ECHO_T}`eval echo '${'$as_ac_var'}'`" >&6 if test `eval echo '${'$as_ac_var'}'` = yes; then cat >>confdefs.h <<_ACEOF #define `echo "HAVE_$ac_func" | $as_tr_cpp` 1 _ACEOF fi done for ac_func in strerror do as_ac_var=`echo "ac_cv_func_$ac_func" | $as_tr_sh` echo "$as_me:$LINENO: checking for $ac_func" >&5 echo $ECHO_N "checking for $ac_func... $ECHO_C" >&6 if eval "test \"\${$as_ac_var+set}\" = set"; then echo $ECHO_N "(cached) $ECHO_C" >&6 else cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ /* Define $ac_func to an innocuous variant, in case declares $ac_func. For example, HP-UX 11i declares gettimeofday. */ #define $ac_func innocuous_$ac_func /* System header to define __stub macros and hopefully few prototypes, which can conflict with char $ac_func (); below. Prefer to if __STDC__ is defined, since exists even on freestanding compilers. */ #ifdef __STDC__ # include #else # include #endif #undef $ac_func /* Override any gcc2 internal prototype to avoid an error. */ #ifdef __cplusplus extern "C" { #endif /* We use char because int might match the return type of a gcc2 builtin and then its argument prototype would still apply. */ char $ac_func (); /* The GNU C library defines this for functions which it implements to always fail with ENOSYS. Some functions are actually named something starting with __ and the normal name is an alias. */ #if defined (__stub_$ac_func) || defined (__stub___$ac_func) choke me #else char (*f) () = $ac_func; #endif #ifdef __cplusplus } #endif int main () { return f != $ac_func; ; return 0; } _ACEOF rm -f conftest.$ac_objext conftest$ac_exeext if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5 (eval $ac_link) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { ac_try='test -z "$ac_c_werror_flag" || test ! -s conftest.err' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; } && { ac_try='test -s conftest$ac_exeext' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then eval "$as_ac_var=yes" else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 eval "$as_ac_var=no" fi rm -f conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext fi echo "$as_me:$LINENO: result: `eval echo '${'$as_ac_var'}'`" >&5 echo "${ECHO_T}`eval echo '${'$as_ac_var'}'`" >&6 if test `eval echo '${'$as_ac_var'}'` = yes; then cat >>confdefs.h <<_ACEOF #define `echo "HAVE_$ac_func" | $as_tr_cpp` 1 _ACEOF fi done for ac_func in strstr do as_ac_var=`echo "ac_cv_func_$ac_func" | $as_tr_sh` echo "$as_me:$LINENO: checking for $ac_func" >&5 echo $ECHO_N "checking for $ac_func... $ECHO_C" >&6 if eval "test \"\${$as_ac_var+set}\" = set"; then echo $ECHO_N "(cached) $ECHO_C" >&6 else cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ /* Define $ac_func to an innocuous variant, in case declares $ac_func. For example, HP-UX 11i declares gettimeofday. */ #define $ac_func innocuous_$ac_func /* System header to define __stub macros and hopefully few prototypes, which can conflict with char $ac_func (); below. Prefer to if __STDC__ is defined, since exists even on freestanding compilers. */ #ifdef __STDC__ # include #else # include #endif #undef $ac_func /* Override any gcc2 internal prototype to avoid an error. */ #ifdef __cplusplus extern "C" { #endif /* We use char because int might match the return type of a gcc2 builtin and then its argument prototype would still apply. */ char $ac_func (); /* The GNU C library defines this for functions which it implements to always fail with ENOSYS. Some functions are actually named something starting with __ and the normal name is an alias. */ #if defined (__stub_$ac_func) || defined (__stub___$ac_func) choke me #else char (*f) () = $ac_func; #endif #ifdef __cplusplus } #endif int main () { return f != $ac_func; ; return 0; } _ACEOF rm -f conftest.$ac_objext conftest$ac_exeext if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5 (eval $ac_link) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { ac_try='test -z "$ac_c_werror_flag" || test ! -s conftest.err' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; } && { ac_try='test -s conftest$ac_exeext' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then eval "$as_ac_var=yes" else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 eval "$as_ac_var=no" fi rm -f conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext fi echo "$as_me:$LINENO: result: `eval echo '${'$as_ac_var'}'`" >&5 echo "${ECHO_T}`eval echo '${'$as_ac_var'}'`" >&6 if test `eval echo '${'$as_ac_var'}'` = yes; then cat >>confdefs.h <<_ACEOF #define `echo "HAVE_$ac_func" | $as_tr_cpp` 1 _ACEOF fi done for ac_func in strtol do as_ac_var=`echo "ac_cv_func_$ac_func" | $as_tr_sh` echo "$as_me:$LINENO: checking for $ac_func" >&5 echo $ECHO_N "checking for $ac_func... $ECHO_C" >&6 if eval "test \"\${$as_ac_var+set}\" = set"; then echo $ECHO_N "(cached) $ECHO_C" >&6 else cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ /* Define $ac_func to an innocuous variant, in case declares $ac_func. For example, HP-UX 11i declares gettimeofday. */ #define $ac_func innocuous_$ac_func /* System header to define __stub macros and hopefully few prototypes, which can conflict with char $ac_func (); below. Prefer to if __STDC__ is defined, since exists even on freestanding compilers. */ #ifdef __STDC__ # include #else # include #endif #undef $ac_func /* Override any gcc2 internal prototype to avoid an error. */ #ifdef __cplusplus extern "C" { #endif /* We use char because int might match the return type of a gcc2 builtin and then its argument prototype would still apply. */ char $ac_func (); /* The GNU C library defines this for functions which it implements to always fail with ENOSYS. Some functions are actually named something starting with __ and the normal name is an alias. */ #if defined (__stub_$ac_func) || defined (__stub___$ac_func) choke me #else char (*f) () = $ac_func; #endif #ifdef __cplusplus } #endif int main () { return f != $ac_func; ; return 0; } _ACEOF rm -f conftest.$ac_objext conftest$ac_exeext if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5 (eval $ac_link) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { ac_try='test -z "$ac_c_werror_flag" || test ! -s conftest.err' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; } && { ac_try='test -s conftest$ac_exeext' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then eval "$as_ac_var=yes" else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 eval "$as_ac_var=no" fi rm -f conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext fi echo "$as_me:$LINENO: result: `eval echo '${'$as_ac_var'}'`" >&5 echo "${ECHO_T}`eval echo '${'$as_ac_var'}'`" >&6 if test `eval echo '${'$as_ac_var'}'` = yes; then cat >>confdefs.h <<_ACEOF #define `echo "HAVE_$ac_func" | $as_tr_cpp` 1 _ACEOF fi done for ac_func in gettimeofday do as_ac_var=`echo "ac_cv_func_$ac_func" | $as_tr_sh` echo "$as_me:$LINENO: checking for $ac_func" >&5 echo $ECHO_N "checking for $ac_func... $ECHO_C" >&6 if eval "test \"\${$as_ac_var+set}\" = set"; then echo $ECHO_N "(cached) $ECHO_C" >&6 else cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ /* Define $ac_func to an innocuous variant, in case declares $ac_func. For example, HP-UX 11i declares gettimeofday. */ #define $ac_func innocuous_$ac_func /* System header to define __stub macros and hopefully few prototypes, which can conflict with char $ac_func (); below. Prefer to if __STDC__ is defined, since exists even on freestanding compilers. */ #ifdef __STDC__ # include #else # include #endif #undef $ac_func /* Override any gcc2 internal prototype to avoid an error. */ #ifdef __cplusplus extern "C" { #endif /* We use char because int might match the return type of a gcc2 builtin and then its argument prototype would still apply. */ char $ac_func (); /* The GNU C library defines this for functions which it implements to always fail with ENOSYS. Some functions are actually named something starting with __ and the normal name is an alias. */ #if defined (__stub_$ac_func) || defined (__stub___$ac_func) choke me #else char (*f) () = $ac_func; #endif #ifdef __cplusplus } #endif int main () { return f != $ac_func; ; return 0; } _ACEOF rm -f conftest.$ac_objext conftest$ac_exeext if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5 (eval $ac_link) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { ac_try='test -z "$ac_c_werror_flag" || test ! -s conftest.err' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; } && { ac_try='test -s conftest$ac_exeext' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then eval "$as_ac_var=yes" else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 eval "$as_ac_var=no" fi rm -f conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext fi echo "$as_me:$LINENO: result: `eval echo '${'$as_ac_var'}'`" >&5 echo "${ECHO_T}`eval echo '${'$as_ac_var'}'`" >&6 if test `eval echo '${'$as_ac_var'}'` = yes; then cat >>confdefs.h <<_ACEOF #define `echo "HAVE_$ac_func" | $as_tr_cpp` 1 _ACEOF fi done for ac_func in drand48 do as_ac_var=`echo "ac_cv_func_$ac_func" | $as_tr_sh` echo "$as_me:$LINENO: checking for $ac_func" >&5 echo $ECHO_N "checking for $ac_func... $ECHO_C" >&6 if eval "test \"\${$as_ac_var+set}\" = set"; then echo $ECHO_N "(cached) $ECHO_C" >&6 else cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ /* Define $ac_func to an innocuous variant, in case declares $ac_func. For example, HP-UX 11i declares gettimeofday. */ #define $ac_func innocuous_$ac_func /* System header to define __stub macros and hopefully few prototypes, which can conflict with char $ac_func (); below. Prefer to if __STDC__ is defined, since exists even on freestanding compilers. */ #ifdef __STDC__ # include #else # include #endif #undef $ac_func /* Override any gcc2 internal prototype to avoid an error. */ #ifdef __cplusplus extern "C" { #endif /* We use char because int might match the return type of a gcc2 builtin and then its argument prototype would still apply. */ char $ac_func (); /* The GNU C library defines this for functions which it implements to always fail with ENOSYS. Some functions are actually named something starting with __ and the normal name is an alias. */ #if defined (__stub_$ac_func) || defined (__stub___$ac_func) choke me #else char (*f) () = $ac_func; #endif #ifdef __cplusplus } #endif int main () { return f != $ac_func; ; return 0; } _ACEOF rm -f conftest.$ac_objext conftest$ac_exeext if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5 (eval $ac_link) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { ac_try='test -z "$ac_c_werror_flag" || test ! -s conftest.err' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; } && { ac_try='test -s conftest$ac_exeext' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then eval "$as_ac_var=yes" else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 eval "$as_ac_var=no" fi rm -f conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext fi echo "$as_me:$LINENO: result: `eval echo '${'$as_ac_var'}'`" >&5 echo "${ECHO_T}`eval echo '${'$as_ac_var'}'`" >&6 if test `eval echo '${'$as_ac_var'}'` = yes; then cat >>confdefs.h <<_ACEOF #define `echo "HAVE_$ac_func" | $as_tr_cpp` 1 _ACEOF fi done echo "$as_me:$LINENO: checking for ANSI C header files" >&5 echo $ECHO_N "checking for ANSI C header files... $ECHO_C" >&6 if test "${ac_cv_header_stdc+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ #include #include #include #include int main () { ; return 0; } _ACEOF rm -f conftest.$ac_objext if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 (eval $ac_compile) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { ac_try='test -z "$ac_c_werror_flag" || test ! -s conftest.err' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; } && { ac_try='test -s conftest.$ac_objext' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then ac_cv_header_stdc=yes else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_cv_header_stdc=no fi rm -f conftest.err conftest.$ac_objext conftest.$ac_ext if test $ac_cv_header_stdc = yes; then # SunOS 4.x string.h does not declare mem*, contrary to ANSI. cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ #include _ACEOF if (eval "$ac_cpp conftest.$ac_ext") 2>&5 | $EGREP "memchr" >/dev/null 2>&1; then : else ac_cv_header_stdc=no fi rm -f conftest* fi if test $ac_cv_header_stdc = yes; then # ISC 2.0.2 stdlib.h does not declare free, contrary to ANSI. cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ #include _ACEOF if (eval "$ac_cpp conftest.$ac_ext") 2>&5 | $EGREP "free" >/dev/null 2>&1; then : else ac_cv_header_stdc=no fi rm -f conftest* fi if test $ac_cv_header_stdc = yes; then # /bin/cc in Irix-4.0.5 gets non-ANSI ctype macros unless using -ansi. if test "$cross_compiling" = yes; then : else cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ #include #if ((' ' & 0x0FF) == 0x020) # define ISLOWER(c) ('a' <= (c) && (c) <= 'z') # define TOUPPER(c) (ISLOWER(c) ? 'A' + ((c) - 'a') : (c)) #else # define ISLOWER(c) \ (('a' <= (c) && (c) <= 'i') \ || ('j' <= (c) && (c) <= 'r') \ || ('s' <= (c) && (c) <= 'z')) # define TOUPPER(c) (ISLOWER(c) ? ((c) | 0x40) : (c)) #endif #define XOR(e, f) (((e) && !(f)) || (!(e) && (f))) int main () { int i; for (i = 0; i < 256; i++) if (XOR (islower (i), ISLOWER (i)) || toupper (i) != TOUPPER (i)) exit(2); exit (0); } _ACEOF rm -f conftest$ac_exeext if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5 (eval $ac_link) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { ac_try='./conftest$ac_exeext' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then : else echo "$as_me: program exited with status $ac_status" >&5 echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ( exit $ac_status ) ac_cv_header_stdc=no fi rm -f core *.core gmon.out bb.out conftest$ac_exeext conftest.$ac_objext conftest.$ac_ext fi fi fi echo "$as_me:$LINENO: result: $ac_cv_header_stdc" >&5 echo "${ECHO_T}$ac_cv_header_stdc" >&6 if test $ac_cv_header_stdc = yes; then cat >>confdefs.h <<\_ACEOF #define STDC_HEADERS 1 _ACEOF fi echo "$as_me:$LINENO: checking for sys/wait.h that is POSIX.1 compatible" >&5 echo $ECHO_N "checking for sys/wait.h that is POSIX.1 compatible... $ECHO_C" >&6 if test "${ac_cv_header_sys_wait_h+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ #include #include #ifndef WEXITSTATUS # define WEXITSTATUS(stat_val) ((unsigned)(stat_val) >> 8) #endif #ifndef WIFEXITED # define WIFEXITED(stat_val) (((stat_val) & 255) == 0) #endif int main () { int s; wait (&s); s = WIFEXITED (s) ? WEXITSTATUS (s) : 1; ; return 0; } _ACEOF rm -f conftest.$ac_objext if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 (eval $ac_compile) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { ac_try='test -z "$ac_c_werror_flag" || test ! -s conftest.err' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; } && { ac_try='test -s conftest.$ac_objext' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then ac_cv_header_sys_wait_h=yes else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_cv_header_sys_wait_h=no fi rm -f conftest.err conftest.$ac_objext conftest.$ac_ext fi echo "$as_me:$LINENO: result: $ac_cv_header_sys_wait_h" >&5 echo "${ECHO_T}$ac_cv_header_sys_wait_h" >&6 if test $ac_cv_header_sys_wait_h = yes; then cat >>confdefs.h <<\_ACEOF #define HAVE_SYS_WAIT_H 1 _ACEOF fi echo "$as_me:$LINENO: checking whether time.h and sys/time.h may both be included" >&5 echo $ECHO_N "checking whether time.h and sys/time.h may both be included... $ECHO_C" >&6 if test "${ac_cv_header_time+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ #include #include #include int main () { if ((struct tm *) 0) return 0; ; return 0; } _ACEOF rm -f conftest.$ac_objext if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 (eval $ac_compile) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { ac_try='test -z "$ac_c_werror_flag" || test ! -s conftest.err' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; } && { ac_try='test -s conftest.$ac_objext' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then ac_cv_header_time=yes else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_cv_header_time=no fi rm -f conftest.err conftest.$ac_objext conftest.$ac_ext fi echo "$as_me:$LINENO: result: $ac_cv_header_time" >&5 echo "${ECHO_T}$ac_cv_header_time" >&6 if test $ac_cv_header_time = yes; then cat >>confdefs.h <<\_ACEOF #define TIME_WITH_SYS_TIME 1 _ACEOF fi # Check for header files. for ac_header in socket.h do as_ac_Header=`echo "ac_cv_header_$ac_header" | $as_tr_sh` if eval "test \"\${$as_ac_Header+set}\" = set"; then echo "$as_me:$LINENO: checking for $ac_header" >&5 echo $ECHO_N "checking for $ac_header... $ECHO_C" >&6 if eval "test \"\${$as_ac_Header+set}\" = set"; then echo $ECHO_N "(cached) $ECHO_C" >&6 fi echo "$as_me:$LINENO: result: `eval echo '${'$as_ac_Header'}'`" >&5 echo "${ECHO_T}`eval echo '${'$as_ac_Header'}'`" >&6 else # Is the header compilable? echo "$as_me:$LINENO: checking $ac_header usability" >&5 echo $ECHO_N "checking $ac_header usability... $ECHO_C" >&6 cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ $ac_includes_default #include <$ac_header> _ACEOF rm -f conftest.$ac_objext if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 (eval $ac_compile) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { ac_try='test -z "$ac_c_werror_flag" || test ! -s conftest.err' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; } && { ac_try='test -s conftest.$ac_objext' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then ac_header_compiler=yes else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_header_compiler=no fi rm -f conftest.err conftest.$ac_objext conftest.$ac_ext echo "$as_me:$LINENO: result: $ac_header_compiler" >&5 echo "${ECHO_T}$ac_header_compiler" >&6 # Is the header present? echo "$as_me:$LINENO: checking $ac_header presence" >&5 echo $ECHO_N "checking $ac_header presence... $ECHO_C" >&6 cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ #include <$ac_header> _ACEOF if { (eval echo "$as_me:$LINENO: \"$ac_cpp conftest.$ac_ext\"") >&5 (eval $ac_cpp conftest.$ac_ext) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } >/dev/null; then if test -s conftest.err; then ac_cpp_err=$ac_c_preproc_warn_flag ac_cpp_err=$ac_cpp_err$ac_c_werror_flag else ac_cpp_err= fi else ac_cpp_err=yes fi if test -z "$ac_cpp_err"; then ac_header_preproc=yes else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_header_preproc=no fi rm -f conftest.err conftest.$ac_ext echo "$as_me:$LINENO: result: $ac_header_preproc" >&5 echo "${ECHO_T}$ac_header_preproc" >&6 # So? What about this header? case $ac_header_compiler:$ac_header_preproc:$ac_c_preproc_warn_flag in yes:no: ) { echo "$as_me:$LINENO: WARNING: $ac_header: accepted by the compiler, rejected by the preprocessor!" >&5 echo "$as_me: WARNING: $ac_header: accepted by the compiler, rejected by the preprocessor!" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: proceeding with the compiler's result" >&5 echo "$as_me: WARNING: $ac_header: proceeding with the compiler's result" >&2;} ac_header_preproc=yes ;; no:yes:* ) { echo "$as_me:$LINENO: WARNING: $ac_header: present but cannot be compiled" >&5 echo "$as_me: WARNING: $ac_header: present but cannot be compiled" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: check for missing prerequisite headers?" >&5 echo "$as_me: WARNING: $ac_header: check for missing prerequisite headers?" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: see the Autoconf documentation" >&5 echo "$as_me: WARNING: $ac_header: see the Autoconf documentation" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: section \"Present But Cannot Be Compiled\"" >&5 echo "$as_me: WARNING: $ac_header: section \"Present But Cannot Be Compiled\"" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: proceeding with the preprocessor's result" >&5 echo "$as_me: WARNING: $ac_header: proceeding with the preprocessor's result" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: in the future, the compiler will take precedence" >&5 echo "$as_me: WARNING: $ac_header: in the future, the compiler will take precedence" >&2;} ( cat <<\_ASBOX ## ------------------------------------------ ## ## Report this to the AC_PACKAGE_NAME lists. ## ## ------------------------------------------ ## _ASBOX ) | sed "s/^/$as_me: WARNING: /" >&2 ;; esac echo "$as_me:$LINENO: checking for $ac_header" >&5 echo $ECHO_N "checking for $ac_header... $ECHO_C" >&6 if eval "test \"\${$as_ac_Header+set}\" = set"; then echo $ECHO_N "(cached) $ECHO_C" >&6 else eval "$as_ac_Header=\$ac_header_preproc" fi echo "$as_me:$LINENO: result: `eval echo '${'$as_ac_Header'}'`" >&5 echo "${ECHO_T}`eval echo '${'$as_ac_Header'}'`" >&6 fi if test `eval echo '${'$as_ac_Header'}'` = yes; then cat >>confdefs.h <<_ACEOF #define `echo "HAVE_$ac_header" | $as_tr_cpp` 1 _ACEOF fi done for ac_header in inttypes.h do as_ac_Header=`echo "ac_cv_header_$ac_header" | $as_tr_sh` if eval "test \"\${$as_ac_Header+set}\" = set"; then echo "$as_me:$LINENO: checking for $ac_header" >&5 echo $ECHO_N "checking for $ac_header... $ECHO_C" >&6 if eval "test \"\${$as_ac_Header+set}\" = set"; then echo $ECHO_N "(cached) $ECHO_C" >&6 fi echo "$as_me:$LINENO: result: `eval echo '${'$as_ac_Header'}'`" >&5 echo "${ECHO_T}`eval echo '${'$as_ac_Header'}'`" >&6 else # Is the header compilable? echo "$as_me:$LINENO: checking $ac_header usability" >&5 echo $ECHO_N "checking $ac_header usability... $ECHO_C" >&6 cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ $ac_includes_default #include <$ac_header> _ACEOF rm -f conftest.$ac_objext if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 (eval $ac_compile) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { ac_try='test -z "$ac_c_werror_flag" || test ! -s conftest.err' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; } && { ac_try='test -s conftest.$ac_objext' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then ac_header_compiler=yes else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_header_compiler=no fi rm -f conftest.err conftest.$ac_objext conftest.$ac_ext echo "$as_me:$LINENO: result: $ac_header_compiler" >&5 echo "${ECHO_T}$ac_header_compiler" >&6 # Is the header present? echo "$as_me:$LINENO: checking $ac_header presence" >&5 echo $ECHO_N "checking $ac_header presence... $ECHO_C" >&6 cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ #include <$ac_header> _ACEOF if { (eval echo "$as_me:$LINENO: \"$ac_cpp conftest.$ac_ext\"") >&5 (eval $ac_cpp conftest.$ac_ext) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } >/dev/null; then if test -s conftest.err; then ac_cpp_err=$ac_c_preproc_warn_flag ac_cpp_err=$ac_cpp_err$ac_c_werror_flag else ac_cpp_err= fi else ac_cpp_err=yes fi if test -z "$ac_cpp_err"; then ac_header_preproc=yes else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_header_preproc=no fi rm -f conftest.err conftest.$ac_ext echo "$as_me:$LINENO: result: $ac_header_preproc" >&5 echo "${ECHO_T}$ac_header_preproc" >&6 # So? What about this header? case $ac_header_compiler:$ac_header_preproc:$ac_c_preproc_warn_flag in yes:no: ) { echo "$as_me:$LINENO: WARNING: $ac_header: accepted by the compiler, rejected by the preprocessor!" >&5 echo "$as_me: WARNING: $ac_header: accepted by the compiler, rejected by the preprocessor!" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: proceeding with the compiler's result" >&5 echo "$as_me: WARNING: $ac_header: proceeding with the compiler's result" >&2;} ac_header_preproc=yes ;; no:yes:* ) { echo "$as_me:$LINENO: WARNING: $ac_header: present but cannot be compiled" >&5 echo "$as_me: WARNING: $ac_header: present but cannot be compiled" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: check for missing prerequisite headers?" >&5 echo "$as_me: WARNING: $ac_header: check for missing prerequisite headers?" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: see the Autoconf documentation" >&5 echo "$as_me: WARNING: $ac_header: see the Autoconf documentation" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: section \"Present But Cannot Be Compiled\"" >&5 echo "$as_me: WARNING: $ac_header: section \"Present But Cannot Be Compiled\"" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: proceeding with the preprocessor's result" >&5 echo "$as_me: WARNING: $ac_header: proceeding with the preprocessor's result" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: in the future, the compiler will take precedence" >&5 echo "$as_me: WARNING: $ac_header: in the future, the compiler will take precedence" >&2;} ( cat <<\_ASBOX ## ------------------------------------------ ## ## Report this to the AC_PACKAGE_NAME lists. ## ## ------------------------------------------ ## _ASBOX ) | sed "s/^/$as_me: WARNING: /" >&2 ;; esac echo "$as_me:$LINENO: checking for $ac_header" >&5 echo $ECHO_N "checking for $ac_header... $ECHO_C" >&6 if eval "test \"\${$as_ac_Header+set}\" = set"; then echo $ECHO_N "(cached) $ECHO_C" >&6 else eval "$as_ac_Header=\$ac_header_preproc" fi echo "$as_me:$LINENO: result: `eval echo '${'$as_ac_Header'}'`" >&5 echo "${ECHO_T}`eval echo '${'$as_ac_Header'}'`" >&6 fi if test `eval echo '${'$as_ac_Header'}'` = yes; then cat >>confdefs.h <<_ACEOF #define `echo "HAVE_$ac_header" | $as_tr_cpp` 1 _ACEOF INSERT_INTTYPES_HEADER="#include " fi done for ac_header in stdint.h do as_ac_Header=`echo "ac_cv_header_$ac_header" | $as_tr_sh` if eval "test \"\${$as_ac_Header+set}\" = set"; then echo "$as_me:$LINENO: checking for $ac_header" >&5 echo $ECHO_N "checking for $ac_header... $ECHO_C" >&6 if eval "test \"\${$as_ac_Header+set}\" = set"; then echo $ECHO_N "(cached) $ECHO_C" >&6 fi echo "$as_me:$LINENO: result: `eval echo '${'$as_ac_Header'}'`" >&5 echo "${ECHO_T}`eval echo '${'$as_ac_Header'}'`" >&6 else # Is the header compilable? echo "$as_me:$LINENO: checking $ac_header usability" >&5 echo $ECHO_N "checking $ac_header usability... $ECHO_C" >&6 cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ $ac_includes_default #include <$ac_header> _ACEOF rm -f conftest.$ac_objext if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 (eval $ac_compile) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { ac_try='test -z "$ac_c_werror_flag" || test ! -s conftest.err' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; } && { ac_try='test -s conftest.$ac_objext' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then ac_header_compiler=yes else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_header_compiler=no fi rm -f conftest.err conftest.$ac_objext conftest.$ac_ext echo "$as_me:$LINENO: result: $ac_header_compiler" >&5 echo "${ECHO_T}$ac_header_compiler" >&6 # Is the header present? echo "$as_me:$LINENO: checking $ac_header presence" >&5 echo $ECHO_N "checking $ac_header presence... $ECHO_C" >&6 cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ #include <$ac_header> _ACEOF if { (eval echo "$as_me:$LINENO: \"$ac_cpp conftest.$ac_ext\"") >&5 (eval $ac_cpp conftest.$ac_ext) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } >/dev/null; then if test -s conftest.err; then ac_cpp_err=$ac_c_preproc_warn_flag ac_cpp_err=$ac_cpp_err$ac_c_werror_flag else ac_cpp_err= fi else ac_cpp_err=yes fi if test -z "$ac_cpp_err"; then ac_header_preproc=yes else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_header_preproc=no fi rm -f conftest.err conftest.$ac_ext echo "$as_me:$LINENO: result: $ac_header_preproc" >&5 echo "${ECHO_T}$ac_header_preproc" >&6 # So? What about this header? case $ac_header_compiler:$ac_header_preproc:$ac_c_preproc_warn_flag in yes:no: ) { echo "$as_me:$LINENO: WARNING: $ac_header: accepted by the compiler, rejected by the preprocessor!" >&5 echo "$as_me: WARNING: $ac_header: accepted by the compiler, rejected by the preprocessor!" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: proceeding with the compiler's result" >&5 echo "$as_me: WARNING: $ac_header: proceeding with the compiler's result" >&2;} ac_header_preproc=yes ;; no:yes:* ) { echo "$as_me:$LINENO: WARNING: $ac_header: present but cannot be compiled" >&5 echo "$as_me: WARNING: $ac_header: present but cannot be compiled" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: check for missing prerequisite headers?" >&5 echo "$as_me: WARNING: $ac_header: check for missing prerequisite headers?" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: see the Autoconf documentation" >&5 echo "$as_me: WARNING: $ac_header: see the Autoconf documentation" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: section \"Present But Cannot Be Compiled\"" >&5 echo "$as_me: WARNING: $ac_header: section \"Present But Cannot Be Compiled\"" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: proceeding with the preprocessor's result" >&5 echo "$as_me: WARNING: $ac_header: proceeding with the preprocessor's result" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: in the future, the compiler will take precedence" >&5 echo "$as_me: WARNING: $ac_header: in the future, the compiler will take precedence" >&2;} ( cat <<\_ASBOX ## ------------------------------------------ ## ## Report this to the AC_PACKAGE_NAME lists. ## ## ------------------------------------------ ## _ASBOX ) | sed "s/^/$as_me: WARNING: /" >&2 ;; esac echo "$as_me:$LINENO: checking for $ac_header" >&5 echo $ECHO_N "checking for $ac_header... $ECHO_C" >&6 if eval "test \"\${$as_ac_Header+set}\" = set"; then echo $ECHO_N "(cached) $ECHO_C" >&6 else eval "$as_ac_Header=\$ac_header_preproc" fi echo "$as_me:$LINENO: result: `eval echo '${'$as_ac_Header'}'`" >&5 echo "${ECHO_T}`eval echo '${'$as_ac_Header'}'`" >&6 fi if test `eval echo '${'$as_ac_Header'}'` = yes; then cat >>confdefs.h <<_ACEOF #define `echo "HAVE_$ac_header" | $as_tr_cpp` 1 _ACEOF INSERT_STDINT_HEADER="#include " fi done for ac_header in unistd.h do as_ac_Header=`echo "ac_cv_header_$ac_header" | $as_tr_sh` if eval "test \"\${$as_ac_Header+set}\" = set"; then echo "$as_me:$LINENO: checking for $ac_header" >&5 echo $ECHO_N "checking for $ac_header... $ECHO_C" >&6 if eval "test \"\${$as_ac_Header+set}\" = set"; then echo $ECHO_N "(cached) $ECHO_C" >&6 fi echo "$as_me:$LINENO: result: `eval echo '${'$as_ac_Header'}'`" >&5 echo "${ECHO_T}`eval echo '${'$as_ac_Header'}'`" >&6 else # Is the header compilable? echo "$as_me:$LINENO: checking $ac_header usability" >&5 echo $ECHO_N "checking $ac_header usability... $ECHO_C" >&6 cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ $ac_includes_default #include <$ac_header> _ACEOF rm -f conftest.$ac_objext if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 (eval $ac_compile) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { ac_try='test -z "$ac_c_werror_flag" || test ! -s conftest.err' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; } && { ac_try='test -s conftest.$ac_objext' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then ac_header_compiler=yes else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_header_compiler=no fi rm -f conftest.err conftest.$ac_objext conftest.$ac_ext echo "$as_me:$LINENO: result: $ac_header_compiler" >&5 echo "${ECHO_T}$ac_header_compiler" >&6 # Is the header present? echo "$as_me:$LINENO: checking $ac_header presence" >&5 echo $ECHO_N "checking $ac_header presence... $ECHO_C" >&6 cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ #include <$ac_header> _ACEOF if { (eval echo "$as_me:$LINENO: \"$ac_cpp conftest.$ac_ext\"") >&5 (eval $ac_cpp conftest.$ac_ext) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } >/dev/null; then if test -s conftest.err; then ac_cpp_err=$ac_c_preproc_warn_flag ac_cpp_err=$ac_cpp_err$ac_c_werror_flag else ac_cpp_err= fi else ac_cpp_err=yes fi if test -z "$ac_cpp_err"; then ac_header_preproc=yes else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_header_preproc=no fi rm -f conftest.err conftest.$ac_ext echo "$as_me:$LINENO: result: $ac_header_preproc" >&5 echo "${ECHO_T}$ac_header_preproc" >&6 # So? What about this header? case $ac_header_compiler:$ac_header_preproc:$ac_c_preproc_warn_flag in yes:no: ) { echo "$as_me:$LINENO: WARNING: $ac_header: accepted by the compiler, rejected by the preprocessor!" >&5 echo "$as_me: WARNING: $ac_header: accepted by the compiler, rejected by the preprocessor!" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: proceeding with the compiler's result" >&5 echo "$as_me: WARNING: $ac_header: proceeding with the compiler's result" >&2;} ac_header_preproc=yes ;; no:yes:* ) { echo "$as_me:$LINENO: WARNING: $ac_header: present but cannot be compiled" >&5 echo "$as_me: WARNING: $ac_header: present but cannot be compiled" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: check for missing prerequisite headers?" >&5 echo "$as_me: WARNING: $ac_header: check for missing prerequisite headers?" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: see the Autoconf documentation" >&5 echo "$as_me: WARNING: $ac_header: see the Autoconf documentation" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: section \"Present But Cannot Be Compiled\"" >&5 echo "$as_me: WARNING: $ac_header: section \"Present But Cannot Be Compiled\"" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: proceeding with the preprocessor's result" >&5 echo "$as_me: WARNING: $ac_header: proceeding with the preprocessor's result" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: in the future, the compiler will take precedence" >&5 echo "$as_me: WARNING: $ac_header: in the future, the compiler will take precedence" >&2;} ( cat <<\_ASBOX ## ------------------------------------------ ## ## Report this to the AC_PACKAGE_NAME lists. ## ## ------------------------------------------ ## _ASBOX ) | sed "s/^/$as_me: WARNING: /" >&2 ;; esac echo "$as_me:$LINENO: checking for $ac_header" >&5 echo $ECHO_N "checking for $ac_header... $ECHO_C" >&6 if eval "test \"\${$as_ac_Header+set}\" = set"; then echo $ECHO_N "(cached) $ECHO_C" >&6 else eval "$as_ac_Header=\$ac_header_preproc" fi echo "$as_me:$LINENO: result: `eval echo '${'$as_ac_Header'}'`" >&5 echo "${ECHO_T}`eval echo '${'$as_ac_Header'}'`" >&6 fi if test `eval echo '${'$as_ac_Header'}'` = yes; then cat >>confdefs.h <<_ACEOF #define `echo "HAVE_$ac_header" | $as_tr_cpp` 1 _ACEOF fi done for ac_header in stdlib.h do as_ac_Header=`echo "ac_cv_header_$ac_header" | $as_tr_sh` if eval "test \"\${$as_ac_Header+set}\" = set"; then echo "$as_me:$LINENO: checking for $ac_header" >&5 echo $ECHO_N "checking for $ac_header... $ECHO_C" >&6 if eval "test \"\${$as_ac_Header+set}\" = set"; then echo $ECHO_N "(cached) $ECHO_C" >&6 fi echo "$as_me:$LINENO: result: `eval echo '${'$as_ac_Header'}'`" >&5 echo "${ECHO_T}`eval echo '${'$as_ac_Header'}'`" >&6 else # Is the header compilable? echo "$as_me:$LINENO: checking $ac_header usability" >&5 echo $ECHO_N "checking $ac_header usability... $ECHO_C" >&6 cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ $ac_includes_default #include <$ac_header> _ACEOF rm -f conftest.$ac_objext if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 (eval $ac_compile) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { ac_try='test -z "$ac_c_werror_flag" || test ! -s conftest.err' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; } && { ac_try='test -s conftest.$ac_objext' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then ac_header_compiler=yes else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_header_compiler=no fi rm -f conftest.err conftest.$ac_objext conftest.$ac_ext echo "$as_me:$LINENO: result: $ac_header_compiler" >&5 echo "${ECHO_T}$ac_header_compiler" >&6 # Is the header present? echo "$as_me:$LINENO: checking $ac_header presence" >&5 echo $ECHO_N "checking $ac_header presence... $ECHO_C" >&6 cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ #include <$ac_header> _ACEOF if { (eval echo "$as_me:$LINENO: \"$ac_cpp conftest.$ac_ext\"") >&5 (eval $ac_cpp conftest.$ac_ext) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } >/dev/null; then if test -s conftest.err; then ac_cpp_err=$ac_c_preproc_warn_flag ac_cpp_err=$ac_cpp_err$ac_c_werror_flag else ac_cpp_err= fi else ac_cpp_err=yes fi if test -z "$ac_cpp_err"; then ac_header_preproc=yes else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_header_preproc=no fi rm -f conftest.err conftest.$ac_ext echo "$as_me:$LINENO: result: $ac_header_preproc" >&5 echo "${ECHO_T}$ac_header_preproc" >&6 # So? What about this header? case $ac_header_compiler:$ac_header_preproc:$ac_c_preproc_warn_flag in yes:no: ) { echo "$as_me:$LINENO: WARNING: $ac_header: accepted by the compiler, rejected by the preprocessor!" >&5 echo "$as_me: WARNING: $ac_header: accepted by the compiler, rejected by the preprocessor!" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: proceeding with the compiler's result" >&5 echo "$as_me: WARNING: $ac_header: proceeding with the compiler's result" >&2;} ac_header_preproc=yes ;; no:yes:* ) { echo "$as_me:$LINENO: WARNING: $ac_header: present but cannot be compiled" >&5 echo "$as_me: WARNING: $ac_header: present but cannot be compiled" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: check for missing prerequisite headers?" >&5 echo "$as_me: WARNING: $ac_header: check for missing prerequisite headers?" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: see the Autoconf documentation" >&5 echo "$as_me: WARNING: $ac_header: see the Autoconf documentation" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: section \"Present But Cannot Be Compiled\"" >&5 echo "$as_me: WARNING: $ac_header: section \"Present But Cannot Be Compiled\"" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: proceeding with the preprocessor's result" >&5 echo "$as_me: WARNING: $ac_header: proceeding with the preprocessor's result" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: in the future, the compiler will take precedence" >&5 echo "$as_me: WARNING: $ac_header: in the future, the compiler will take precedence" >&2;} ( cat <<\_ASBOX ## ------------------------------------------ ## ## Report this to the AC_PACKAGE_NAME lists. ## ## ------------------------------------------ ## _ASBOX ) | sed "s/^/$as_me: WARNING: /" >&2 ;; esac echo "$as_me:$LINENO: checking for $ac_header" >&5 echo $ECHO_N "checking for $ac_header... $ECHO_C" >&6 if eval "test \"\${$as_ac_Header+set}\" = set"; then echo $ECHO_N "(cached) $ECHO_C" >&6 else eval "$as_ac_Header=\$ac_header_preproc" fi echo "$as_me:$LINENO: result: `eval echo '${'$as_ac_Header'}'`" >&5 echo "${ECHO_T}`eval echo '${'$as_ac_Header'}'`" >&6 fi if test `eval echo '${'$as_ac_Header'}'` = yes; then cat >>confdefs.h <<_ACEOF #define `echo "HAVE_$ac_header" | $as_tr_cpp` 1 _ACEOF fi done for ac_header in string.h do as_ac_Header=`echo "ac_cv_header_$ac_header" | $as_tr_sh` if eval "test \"\${$as_ac_Header+set}\" = set"; then echo "$as_me:$LINENO: checking for $ac_header" >&5 echo $ECHO_N "checking for $ac_header... $ECHO_C" >&6 if eval "test \"\${$as_ac_Header+set}\" = set"; then echo $ECHO_N "(cached) $ECHO_C" >&6 fi echo "$as_me:$LINENO: result: `eval echo '${'$as_ac_Header'}'`" >&5 echo "${ECHO_T}`eval echo '${'$as_ac_Header'}'`" >&6 else # Is the header compilable? echo "$as_me:$LINENO: checking $ac_header usability" >&5 echo $ECHO_N "checking $ac_header usability... $ECHO_C" >&6 cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ $ac_includes_default #include <$ac_header> _ACEOF rm -f conftest.$ac_objext if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 (eval $ac_compile) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { ac_try='test -z "$ac_c_werror_flag" || test ! -s conftest.err' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; } && { ac_try='test -s conftest.$ac_objext' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then ac_header_compiler=yes else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_header_compiler=no fi rm -f conftest.err conftest.$ac_objext conftest.$ac_ext echo "$as_me:$LINENO: result: $ac_header_compiler" >&5 echo "${ECHO_T}$ac_header_compiler" >&6 # Is the header present? echo "$as_me:$LINENO: checking $ac_header presence" >&5 echo $ECHO_N "checking $ac_header presence... $ECHO_C" >&6 cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ #include <$ac_header> _ACEOF if { (eval echo "$as_me:$LINENO: \"$ac_cpp conftest.$ac_ext\"") >&5 (eval $ac_cpp conftest.$ac_ext) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } >/dev/null; then if test -s conftest.err; then ac_cpp_err=$ac_c_preproc_warn_flag ac_cpp_err=$ac_cpp_err$ac_c_werror_flag else ac_cpp_err= fi else ac_cpp_err=yes fi if test -z "$ac_cpp_err"; then ac_header_preproc=yes else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_header_preproc=no fi rm -f conftest.err conftest.$ac_ext echo "$as_me:$LINENO: result: $ac_header_preproc" >&5 echo "${ECHO_T}$ac_header_preproc" >&6 # So? What about this header? case $ac_header_compiler:$ac_header_preproc:$ac_c_preproc_warn_flag in yes:no: ) { echo "$as_me:$LINENO: WARNING: $ac_header: accepted by the compiler, rejected by the preprocessor!" >&5 echo "$as_me: WARNING: $ac_header: accepted by the compiler, rejected by the preprocessor!" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: proceeding with the compiler's result" >&5 echo "$as_me: WARNING: $ac_header: proceeding with the compiler's result" >&2;} ac_header_preproc=yes ;; no:yes:* ) { echo "$as_me:$LINENO: WARNING: $ac_header: present but cannot be compiled" >&5 echo "$as_me: WARNING: $ac_header: present but cannot be compiled" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: check for missing prerequisite headers?" >&5 echo "$as_me: WARNING: $ac_header: check for missing prerequisite headers?" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: see the Autoconf documentation" >&5 echo "$as_me: WARNING: $ac_header: see the Autoconf documentation" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: section \"Present But Cannot Be Compiled\"" >&5 echo "$as_me: WARNING: $ac_header: section \"Present But Cannot Be Compiled\"" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: proceeding with the preprocessor's result" >&5 echo "$as_me: WARNING: $ac_header: proceeding with the preprocessor's result" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: in the future, the compiler will take precedence" >&5 echo "$as_me: WARNING: $ac_header: in the future, the compiler will take precedence" >&2;} ( cat <<\_ASBOX ## ------------------------------------------ ## ## Report this to the AC_PACKAGE_NAME lists. ## ## ------------------------------------------ ## _ASBOX ) | sed "s/^/$as_me: WARNING: /" >&2 ;; esac echo "$as_me:$LINENO: checking for $ac_header" >&5 echo $ECHO_N "checking for $ac_header... $ECHO_C" >&6 if eval "test \"\${$as_ac_Header+set}\" = set"; then echo $ECHO_N "(cached) $ECHO_C" >&6 else eval "$as_ac_Header=\$ac_header_preproc" fi echo "$as_me:$LINENO: result: `eval echo '${'$as_ac_Header'}'`" >&5 echo "${ECHO_T}`eval echo '${'$as_ac_Header'}'`" >&6 fi if test `eval echo '${'$as_ac_Header'}'` = yes; then cat >>confdefs.h <<_ACEOF #define `echo "HAVE_$ac_header" | $as_tr_cpp` 1 _ACEOF fi done for ac_header in strings.h do as_ac_Header=`echo "ac_cv_header_$ac_header" | $as_tr_sh` if eval "test \"\${$as_ac_Header+set}\" = set"; then echo "$as_me:$LINENO: checking for $ac_header" >&5 echo $ECHO_N "checking for $ac_header... $ECHO_C" >&6 if eval "test \"\${$as_ac_Header+set}\" = set"; then echo $ECHO_N "(cached) $ECHO_C" >&6 fi echo "$as_me:$LINENO: result: `eval echo '${'$as_ac_Header'}'`" >&5 echo "${ECHO_T}`eval echo '${'$as_ac_Header'}'`" >&6 else # Is the header compilable? echo "$as_me:$LINENO: checking $ac_header usability" >&5 echo $ECHO_N "checking $ac_header usability... $ECHO_C" >&6 cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ $ac_includes_default #include <$ac_header> _ACEOF rm -f conftest.$ac_objext if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 (eval $ac_compile) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { ac_try='test -z "$ac_c_werror_flag" || test ! -s conftest.err' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; } && { ac_try='test -s conftest.$ac_objext' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then ac_header_compiler=yes else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_header_compiler=no fi rm -f conftest.err conftest.$ac_objext conftest.$ac_ext echo "$as_me:$LINENO: result: $ac_header_compiler" >&5 echo "${ECHO_T}$ac_header_compiler" >&6 # Is the header present? echo "$as_me:$LINENO: checking $ac_header presence" >&5 echo $ECHO_N "checking $ac_header presence... $ECHO_C" >&6 cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ #include <$ac_header> _ACEOF if { (eval echo "$as_me:$LINENO: \"$ac_cpp conftest.$ac_ext\"") >&5 (eval $ac_cpp conftest.$ac_ext) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } >/dev/null; then if test -s conftest.err; then ac_cpp_err=$ac_c_preproc_warn_flag ac_cpp_err=$ac_cpp_err$ac_c_werror_flag else ac_cpp_err= fi else ac_cpp_err=yes fi if test -z "$ac_cpp_err"; then ac_header_preproc=yes else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_header_preproc=no fi rm -f conftest.err conftest.$ac_ext echo "$as_me:$LINENO: result: $ac_header_preproc" >&5 echo "${ECHO_T}$ac_header_preproc" >&6 # So? What about this header? case $ac_header_compiler:$ac_header_preproc:$ac_c_preproc_warn_flag in yes:no: ) { echo "$as_me:$LINENO: WARNING: $ac_header: accepted by the compiler, rejected by the preprocessor!" >&5 echo "$as_me: WARNING: $ac_header: accepted by the compiler, rejected by the preprocessor!" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: proceeding with the compiler's result" >&5 echo "$as_me: WARNING: $ac_header: proceeding with the compiler's result" >&2;} ac_header_preproc=yes ;; no:yes:* ) { echo "$as_me:$LINENO: WARNING: $ac_header: present but cannot be compiled" >&5 echo "$as_me: WARNING: $ac_header: present but cannot be compiled" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: check for missing prerequisite headers?" >&5 echo "$as_me: WARNING: $ac_header: check for missing prerequisite headers?" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: see the Autoconf documentation" >&5 echo "$as_me: WARNING: $ac_header: see the Autoconf documentation" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: section \"Present But Cannot Be Compiled\"" >&5 echo "$as_me: WARNING: $ac_header: section \"Present But Cannot Be Compiled\"" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: proceeding with the preprocessor's result" >&5 echo "$as_me: WARNING: $ac_header: proceeding with the preprocessor's result" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: in the future, the compiler will take precedence" >&5 echo "$as_me: WARNING: $ac_header: in the future, the compiler will take precedence" >&2;} ( cat <<\_ASBOX ## ------------------------------------------ ## ## Report this to the AC_PACKAGE_NAME lists. ## ## ------------------------------------------ ## _ASBOX ) | sed "s/^/$as_me: WARNING: /" >&2 ;; esac echo "$as_me:$LINENO: checking for $ac_header" >&5 echo $ECHO_N "checking for $ac_header... $ECHO_C" >&6 if eval "test \"\${$as_ac_Header+set}\" = set"; then echo $ECHO_N "(cached) $ECHO_C" >&6 else eval "$as_ac_Header=\$ac_header_preproc" fi echo "$as_me:$LINENO: result: `eval echo '${'$as_ac_Header'}'`" >&5 echo "${ECHO_T}`eval echo '${'$as_ac_Header'}'`" >&6 fi if test `eval echo '${'$as_ac_Header'}'` = yes; then cat >>confdefs.h <<_ACEOF #define `echo "HAVE_$ac_header" | $as_tr_cpp` 1 _ACEOF fi done for ac_header in malloc.h do as_ac_Header=`echo "ac_cv_header_$ac_header" | $as_tr_sh` if eval "test \"\${$as_ac_Header+set}\" = set"; then echo "$as_me:$LINENO: checking for $ac_header" >&5 echo $ECHO_N "checking for $ac_header... $ECHO_C" >&6 if eval "test \"\${$as_ac_Header+set}\" = set"; then echo $ECHO_N "(cached) $ECHO_C" >&6 fi echo "$as_me:$LINENO: result: `eval echo '${'$as_ac_Header'}'`" >&5 echo "${ECHO_T}`eval echo '${'$as_ac_Header'}'`" >&6 else # Is the header compilable? echo "$as_me:$LINENO: checking $ac_header usability" >&5 echo $ECHO_N "checking $ac_header usability... $ECHO_C" >&6 cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ $ac_includes_default #include <$ac_header> _ACEOF rm -f conftest.$ac_objext if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 (eval $ac_compile) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { ac_try='test -z "$ac_c_werror_flag" || test ! -s conftest.err' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; } && { ac_try='test -s conftest.$ac_objext' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then ac_header_compiler=yes else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_header_compiler=no fi rm -f conftest.err conftest.$ac_objext conftest.$ac_ext echo "$as_me:$LINENO: result: $ac_header_compiler" >&5 echo "${ECHO_T}$ac_header_compiler" >&6 # Is the header present? echo "$as_me:$LINENO: checking $ac_header presence" >&5 echo $ECHO_N "checking $ac_header presence... $ECHO_C" >&6 cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ #include <$ac_header> _ACEOF if { (eval echo "$as_me:$LINENO: \"$ac_cpp conftest.$ac_ext\"") >&5 (eval $ac_cpp conftest.$ac_ext) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } >/dev/null; then if test -s conftest.err; then ac_cpp_err=$ac_c_preproc_warn_flag ac_cpp_err=$ac_cpp_err$ac_c_werror_flag else ac_cpp_err= fi else ac_cpp_err=yes fi if test -z "$ac_cpp_err"; then ac_header_preproc=yes else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_header_preproc=no fi rm -f conftest.err conftest.$ac_ext echo "$as_me:$LINENO: result: $ac_header_preproc" >&5 echo "${ECHO_T}$ac_header_preproc" >&6 # So? What about this header? case $ac_header_compiler:$ac_header_preproc:$ac_c_preproc_warn_flag in yes:no: ) { echo "$as_me:$LINENO: WARNING: $ac_header: accepted by the compiler, rejected by the preprocessor!" >&5 echo "$as_me: WARNING: $ac_header: accepted by the compiler, rejected by the preprocessor!" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: proceeding with the compiler's result" >&5 echo "$as_me: WARNING: $ac_header: proceeding with the compiler's result" >&2;} ac_header_preproc=yes ;; no:yes:* ) { echo "$as_me:$LINENO: WARNING: $ac_header: present but cannot be compiled" >&5 echo "$as_me: WARNING: $ac_header: present but cannot be compiled" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: check for missing prerequisite headers?" >&5 echo "$as_me: WARNING: $ac_header: check for missing prerequisite headers?" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: see the Autoconf documentation" >&5 echo "$as_me: WARNING: $ac_header: see the Autoconf documentation" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: section \"Present But Cannot Be Compiled\"" >&5 echo "$as_me: WARNING: $ac_header: section \"Present But Cannot Be Compiled\"" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: proceeding with the preprocessor's result" >&5 echo "$as_me: WARNING: $ac_header: proceeding with the preprocessor's result" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: in the future, the compiler will take precedence" >&5 echo "$as_me: WARNING: $ac_header: in the future, the compiler will take precedence" >&2;} ( cat <<\_ASBOX ## ------------------------------------------ ## ## Report this to the AC_PACKAGE_NAME lists. ## ## ------------------------------------------ ## _ASBOX ) | sed "s/^/$as_me: WARNING: /" >&2 ;; esac echo "$as_me:$LINENO: checking for $ac_header" >&5 echo $ECHO_N "checking for $ac_header... $ECHO_C" >&6 if eval "test \"\${$as_ac_Header+set}\" = set"; then echo $ECHO_N "(cached) $ECHO_C" >&6 else eval "$as_ac_Header=\$ac_header_preproc" fi echo "$as_me:$LINENO: result: `eval echo '${'$as_ac_Header'}'`" >&5 echo "${ECHO_T}`eval echo '${'$as_ac_Header'}'`" >&6 fi if test `eval echo '${'$as_ac_Header'}'` = yes; then cat >>confdefs.h <<_ACEOF #define `echo "HAVE_$ac_header" | $as_tr_cpp` 1 _ACEOF fi done for ac_header in tgmath.h do as_ac_Header=`echo "ac_cv_header_$ac_header" | $as_tr_sh` if eval "test \"\${$as_ac_Header+set}\" = set"; then echo "$as_me:$LINENO: checking for $ac_header" >&5 echo $ECHO_N "checking for $ac_header... $ECHO_C" >&6 if eval "test \"\${$as_ac_Header+set}\" = set"; then echo $ECHO_N "(cached) $ECHO_C" >&6 fi echo "$as_me:$LINENO: result: `eval echo '${'$as_ac_Header'}'`" >&5 echo "${ECHO_T}`eval echo '${'$as_ac_Header'}'`" >&6 else # Is the header compilable? echo "$as_me:$LINENO: checking $ac_header usability" >&5 echo $ECHO_N "checking $ac_header usability... $ECHO_C" >&6 cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ $ac_includes_default #include <$ac_header> _ACEOF rm -f conftest.$ac_objext if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 (eval $ac_compile) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { ac_try='test -z "$ac_c_werror_flag" || test ! -s conftest.err' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; } && { ac_try='test -s conftest.$ac_objext' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then ac_header_compiler=yes else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_header_compiler=no fi rm -f conftest.err conftest.$ac_objext conftest.$ac_ext echo "$as_me:$LINENO: result: $ac_header_compiler" >&5 echo "${ECHO_T}$ac_header_compiler" >&6 # Is the header present? echo "$as_me:$LINENO: checking $ac_header presence" >&5 echo $ECHO_N "checking $ac_header presence... $ECHO_C" >&6 cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ #include <$ac_header> _ACEOF if { (eval echo "$as_me:$LINENO: \"$ac_cpp conftest.$ac_ext\"") >&5 (eval $ac_cpp conftest.$ac_ext) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } >/dev/null; then if test -s conftest.err; then ac_cpp_err=$ac_c_preproc_warn_flag ac_cpp_err=$ac_cpp_err$ac_c_werror_flag else ac_cpp_err= fi else ac_cpp_err=yes fi if test -z "$ac_cpp_err"; then ac_header_preproc=yes else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_header_preproc=no fi rm -f conftest.err conftest.$ac_ext echo "$as_me:$LINENO: result: $ac_header_preproc" >&5 echo "${ECHO_T}$ac_header_preproc" >&6 # So? What about this header? case $ac_header_compiler:$ac_header_preproc:$ac_c_preproc_warn_flag in yes:no: ) { echo "$as_me:$LINENO: WARNING: $ac_header: accepted by the compiler, rejected by the preprocessor!" >&5 echo "$as_me: WARNING: $ac_header: accepted by the compiler, rejected by the preprocessor!" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: proceeding with the compiler's result" >&5 echo "$as_me: WARNING: $ac_header: proceeding with the compiler's result" >&2;} ac_header_preproc=yes ;; no:yes:* ) { echo "$as_me:$LINENO: WARNING: $ac_header: present but cannot be compiled" >&5 echo "$as_me: WARNING: $ac_header: present but cannot be compiled" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: check for missing prerequisite headers?" >&5 echo "$as_me: WARNING: $ac_header: check for missing prerequisite headers?" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: see the Autoconf documentation" >&5 echo "$as_me: WARNING: $ac_header: see the Autoconf documentation" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: section \"Present But Cannot Be Compiled\"" >&5 echo "$as_me: WARNING: $ac_header: section \"Present But Cannot Be Compiled\"" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: proceeding with the preprocessor's result" >&5 echo "$as_me: WARNING: $ac_header: proceeding with the preprocessor's result" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: in the future, the compiler will take precedence" >&5 echo "$as_me: WARNING: $ac_header: in the future, the compiler will take precedence" >&2;} ( cat <<\_ASBOX ## ------------------------------------------ ## ## Report this to the AC_PACKAGE_NAME lists. ## ## ------------------------------------------ ## _ASBOX ) | sed "s/^/$as_me: WARNING: /" >&2 ;; esac echo "$as_me:$LINENO: checking for $ac_header" >&5 echo $ECHO_N "checking for $ac_header... $ECHO_C" >&6 if eval "test \"\${$as_ac_Header+set}\" = set"; then echo $ECHO_N "(cached) $ECHO_C" >&6 else eval "$as_ac_Header=\$ac_header_preproc" fi echo "$as_me:$LINENO: result: `eval echo '${'$as_ac_Header'}'`" >&5 echo "${ECHO_T}`eval echo '${'$as_ac_Header'}'`" >&6 fi if test `eval echo '${'$as_ac_Header'}'` = yes; then cat >>confdefs.h <<_ACEOF #define `echo "HAVE_$ac_header" | $as_tr_cpp` 1 _ACEOF INSERT_TGMATH_HEADER="#include " fi done for ac_header in math.h do as_ac_Header=`echo "ac_cv_header_$ac_header" | $as_tr_sh` if eval "test \"\${$as_ac_Header+set}\" = set"; then echo "$as_me:$LINENO: checking for $ac_header" >&5 echo $ECHO_N "checking for $ac_header... $ECHO_C" >&6 if eval "test \"\${$as_ac_Header+set}\" = set"; then echo $ECHO_N "(cached) $ECHO_C" >&6 fi echo "$as_me:$LINENO: result: `eval echo '${'$as_ac_Header'}'`" >&5 echo "${ECHO_T}`eval echo '${'$as_ac_Header'}'`" >&6 else # Is the header compilable? echo "$as_me:$LINENO: checking $ac_header usability" >&5 echo $ECHO_N "checking $ac_header usability... $ECHO_C" >&6 cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ $ac_includes_default #include <$ac_header> _ACEOF rm -f conftest.$ac_objext if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 (eval $ac_compile) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { ac_try='test -z "$ac_c_werror_flag" || test ! -s conftest.err' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; } && { ac_try='test -s conftest.$ac_objext' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then ac_header_compiler=yes else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_header_compiler=no fi rm -f conftest.err conftest.$ac_objext conftest.$ac_ext echo "$as_me:$LINENO: result: $ac_header_compiler" >&5 echo "${ECHO_T}$ac_header_compiler" >&6 # Is the header present? echo "$as_me:$LINENO: checking $ac_header presence" >&5 echo $ECHO_N "checking $ac_header presence... $ECHO_C" >&6 cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ #include <$ac_header> _ACEOF if { (eval echo "$as_me:$LINENO: \"$ac_cpp conftest.$ac_ext\"") >&5 (eval $ac_cpp conftest.$ac_ext) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } >/dev/null; then if test -s conftest.err; then ac_cpp_err=$ac_c_preproc_warn_flag ac_cpp_err=$ac_cpp_err$ac_c_werror_flag else ac_cpp_err= fi else ac_cpp_err=yes fi if test -z "$ac_cpp_err"; then ac_header_preproc=yes else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_header_preproc=no fi rm -f conftest.err conftest.$ac_ext echo "$as_me:$LINENO: result: $ac_header_preproc" >&5 echo "${ECHO_T}$ac_header_preproc" >&6 # So? What about this header? case $ac_header_compiler:$ac_header_preproc:$ac_c_preproc_warn_flag in yes:no: ) { echo "$as_me:$LINENO: WARNING: $ac_header: accepted by the compiler, rejected by the preprocessor!" >&5 echo "$as_me: WARNING: $ac_header: accepted by the compiler, rejected by the preprocessor!" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: proceeding with the compiler's result" >&5 echo "$as_me: WARNING: $ac_header: proceeding with the compiler's result" >&2;} ac_header_preproc=yes ;; no:yes:* ) { echo "$as_me:$LINENO: WARNING: $ac_header: present but cannot be compiled" >&5 echo "$as_me: WARNING: $ac_header: present but cannot be compiled" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: check for missing prerequisite headers?" >&5 echo "$as_me: WARNING: $ac_header: check for missing prerequisite headers?" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: see the Autoconf documentation" >&5 echo "$as_me: WARNING: $ac_header: see the Autoconf documentation" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: section \"Present But Cannot Be Compiled\"" >&5 echo "$as_me: WARNING: $ac_header: section \"Present But Cannot Be Compiled\"" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: proceeding with the preprocessor's result" >&5 echo "$as_me: WARNING: $ac_header: proceeding with the preprocessor's result" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: in the future, the compiler will take precedence" >&5 echo "$as_me: WARNING: $ac_header: in the future, the compiler will take precedence" >&2;} ( cat <<\_ASBOX ## ------------------------------------------ ## ## Report this to the AC_PACKAGE_NAME lists. ## ## ------------------------------------------ ## _ASBOX ) | sed "s/^/$as_me: WARNING: /" >&2 ;; esac echo "$as_me:$LINENO: checking for $ac_header" >&5 echo $ECHO_N "checking for $ac_header... $ECHO_C" >&6 if eval "test \"\${$as_ac_Header+set}\" = set"; then echo $ECHO_N "(cached) $ECHO_C" >&6 else eval "$as_ac_Header=\$ac_header_preproc" fi echo "$as_me:$LINENO: result: `eval echo '${'$as_ac_Header'}'`" >&5 echo "${ECHO_T}`eval echo '${'$as_ac_Header'}'`" >&6 fi if test `eval echo '${'$as_ac_Header'}'` = yes; then cat >>confdefs.h <<_ACEOF #define `echo "HAVE_$ac_header" | $as_tr_cpp` 1 _ACEOF INSERT_MATH_HEADER="#include " fi done for ac_header in float.h do as_ac_Header=`echo "ac_cv_header_$ac_header" | $as_tr_sh` if eval "test \"\${$as_ac_Header+set}\" = set"; then echo "$as_me:$LINENO: checking for $ac_header" >&5 echo $ECHO_N "checking for $ac_header... $ECHO_C" >&6 if eval "test \"\${$as_ac_Header+set}\" = set"; then echo $ECHO_N "(cached) $ECHO_C" >&6 fi echo "$as_me:$LINENO: result: `eval echo '${'$as_ac_Header'}'`" >&5 echo "${ECHO_T}`eval echo '${'$as_ac_Header'}'`" >&6 else # Is the header compilable? echo "$as_me:$LINENO: checking $ac_header usability" >&5 echo $ECHO_N "checking $ac_header usability... $ECHO_C" >&6 cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ $ac_includes_default #include <$ac_header> _ACEOF rm -f conftest.$ac_objext if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 (eval $ac_compile) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { ac_try='test -z "$ac_c_werror_flag" || test ! -s conftest.err' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; } && { ac_try='test -s conftest.$ac_objext' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then ac_header_compiler=yes else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_header_compiler=no fi rm -f conftest.err conftest.$ac_objext conftest.$ac_ext echo "$as_me:$LINENO: result: $ac_header_compiler" >&5 echo "${ECHO_T}$ac_header_compiler" >&6 # Is the header present? echo "$as_me:$LINENO: checking $ac_header presence" >&5 echo $ECHO_N "checking $ac_header presence... $ECHO_C" >&6 cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ #include <$ac_header> _ACEOF if { (eval echo "$as_me:$LINENO: \"$ac_cpp conftest.$ac_ext\"") >&5 (eval $ac_cpp conftest.$ac_ext) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } >/dev/null; then if test -s conftest.err; then ac_cpp_err=$ac_c_preproc_warn_flag ac_cpp_err=$ac_cpp_err$ac_c_werror_flag else ac_cpp_err= fi else ac_cpp_err=yes fi if test -z "$ac_cpp_err"; then ac_header_preproc=yes else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_header_preproc=no fi rm -f conftest.err conftest.$ac_ext echo "$as_me:$LINENO: result: $ac_header_preproc" >&5 echo "${ECHO_T}$ac_header_preproc" >&6 # So? What about this header? case $ac_header_compiler:$ac_header_preproc:$ac_c_preproc_warn_flag in yes:no: ) { echo "$as_me:$LINENO: WARNING: $ac_header: accepted by the compiler, rejected by the preprocessor!" >&5 echo "$as_me: WARNING: $ac_header: accepted by the compiler, rejected by the preprocessor!" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: proceeding with the compiler's result" >&5 echo "$as_me: WARNING: $ac_header: proceeding with the compiler's result" >&2;} ac_header_preproc=yes ;; no:yes:* ) { echo "$as_me:$LINENO: WARNING: $ac_header: present but cannot be compiled" >&5 echo "$as_me: WARNING: $ac_header: present but cannot be compiled" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: check for missing prerequisite headers?" >&5 echo "$as_me: WARNING: $ac_header: check for missing prerequisite headers?" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: see the Autoconf documentation" >&5 echo "$as_me: WARNING: $ac_header: see the Autoconf documentation" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: section \"Present But Cannot Be Compiled\"" >&5 echo "$as_me: WARNING: $ac_header: section \"Present But Cannot Be Compiled\"" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: proceeding with the preprocessor's result" >&5 echo "$as_me: WARNING: $ac_header: proceeding with the preprocessor's result" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: in the future, the compiler will take precedence" >&5 echo "$as_me: WARNING: $ac_header: in the future, the compiler will take precedence" >&2;} ( cat <<\_ASBOX ## ------------------------------------------ ## ## Report this to the AC_PACKAGE_NAME lists. ## ## ------------------------------------------ ## _ASBOX ) | sed "s/^/$as_me: WARNING: /" >&2 ;; esac echo "$as_me:$LINENO: checking for $ac_header" >&5 echo $ECHO_N "checking for $ac_header... $ECHO_C" >&6 if eval "test \"\${$as_ac_Header+set}\" = set"; then echo $ECHO_N "(cached) $ECHO_C" >&6 else eval "$as_ac_Header=\$ac_header_preproc" fi echo "$as_me:$LINENO: result: `eval echo '${'$as_ac_Header'}'`" >&5 echo "${ECHO_T}`eval echo '${'$as_ac_Header'}'`" >&6 fi if test `eval echo '${'$as_ac_Header'}'` = yes; then cat >>confdefs.h <<_ACEOF #define `echo "HAVE_$ac_header" | $as_tr_cpp` 1 _ACEOF fi done for ac_header in fcntl.h do as_ac_Header=`echo "ac_cv_header_$ac_header" | $as_tr_sh` if eval "test \"\${$as_ac_Header+set}\" = set"; then echo "$as_me:$LINENO: checking for $ac_header" >&5 echo $ECHO_N "checking for $ac_header... $ECHO_C" >&6 if eval "test \"\${$as_ac_Header+set}\" = set"; then echo $ECHO_N "(cached) $ECHO_C" >&6 fi echo "$as_me:$LINENO: result: `eval echo '${'$as_ac_Header'}'`" >&5 echo "${ECHO_T}`eval echo '${'$as_ac_Header'}'`" >&6 else # Is the header compilable? echo "$as_me:$LINENO: checking $ac_header usability" >&5 echo $ECHO_N "checking $ac_header usability... $ECHO_C" >&6 cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ $ac_includes_default #include <$ac_header> _ACEOF rm -f conftest.$ac_objext if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 (eval $ac_compile) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { ac_try='test -z "$ac_c_werror_flag" || test ! -s conftest.err' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; } && { ac_try='test -s conftest.$ac_objext' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then ac_header_compiler=yes else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_header_compiler=no fi rm -f conftest.err conftest.$ac_objext conftest.$ac_ext echo "$as_me:$LINENO: result: $ac_header_compiler" >&5 echo "${ECHO_T}$ac_header_compiler" >&6 # Is the header present? echo "$as_me:$LINENO: checking $ac_header presence" >&5 echo $ECHO_N "checking $ac_header presence... $ECHO_C" >&6 cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ #include <$ac_header> _ACEOF if { (eval echo "$as_me:$LINENO: \"$ac_cpp conftest.$ac_ext\"") >&5 (eval $ac_cpp conftest.$ac_ext) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } >/dev/null; then if test -s conftest.err; then ac_cpp_err=$ac_c_preproc_warn_flag ac_cpp_err=$ac_cpp_err$ac_c_werror_flag else ac_cpp_err= fi else ac_cpp_err=yes fi if test -z "$ac_cpp_err"; then ac_header_preproc=yes else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_header_preproc=no fi rm -f conftest.err conftest.$ac_ext echo "$as_me:$LINENO: result: $ac_header_preproc" >&5 echo "${ECHO_T}$ac_header_preproc" >&6 # So? What about this header? case $ac_header_compiler:$ac_header_preproc:$ac_c_preproc_warn_flag in yes:no: ) { echo "$as_me:$LINENO: WARNING: $ac_header: accepted by the compiler, rejected by the preprocessor!" >&5 echo "$as_me: WARNING: $ac_header: accepted by the compiler, rejected by the preprocessor!" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: proceeding with the compiler's result" >&5 echo "$as_me: WARNING: $ac_header: proceeding with the compiler's result" >&2;} ac_header_preproc=yes ;; no:yes:* ) { echo "$as_me:$LINENO: WARNING: $ac_header: present but cannot be compiled" >&5 echo "$as_me: WARNING: $ac_header: present but cannot be compiled" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: check for missing prerequisite headers?" >&5 echo "$as_me: WARNING: $ac_header: check for missing prerequisite headers?" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: see the Autoconf documentation" >&5 echo "$as_me: WARNING: $ac_header: see the Autoconf documentation" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: section \"Present But Cannot Be Compiled\"" >&5 echo "$as_me: WARNING: $ac_header: section \"Present But Cannot Be Compiled\"" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: proceeding with the preprocessor's result" >&5 echo "$as_me: WARNING: $ac_header: proceeding with the preprocessor's result" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: in the future, the compiler will take precedence" >&5 echo "$as_me: WARNING: $ac_header: in the future, the compiler will take precedence" >&2;} ( cat <<\_ASBOX ## ------------------------------------------ ## ## Report this to the AC_PACKAGE_NAME lists. ## ## ------------------------------------------ ## _ASBOX ) | sed "s/^/$as_me: WARNING: /" >&2 ;; esac echo "$as_me:$LINENO: checking for $ac_header" >&5 echo $ECHO_N "checking for $ac_header... $ECHO_C" >&6 if eval "test \"\${$as_ac_Header+set}\" = set"; then echo $ECHO_N "(cached) $ECHO_C" >&6 else eval "$as_ac_Header=\$ac_header_preproc" fi echo "$as_me:$LINENO: result: `eval echo '${'$as_ac_Header'}'`" >&5 echo "${ECHO_T}`eval echo '${'$as_ac_Header'}'`" >&6 fi if test `eval echo '${'$as_ac_Header'}'` = yes; then cat >>confdefs.h <<_ACEOF #define `echo "HAVE_$ac_header" | $as_tr_cpp` 1 _ACEOF fi done for ac_header in sys/time.h do as_ac_Header=`echo "ac_cv_header_$ac_header" | $as_tr_sh` if eval "test \"\${$as_ac_Header+set}\" = set"; then echo "$as_me:$LINENO: checking for $ac_header" >&5 echo $ECHO_N "checking for $ac_header... $ECHO_C" >&6 if eval "test \"\${$as_ac_Header+set}\" = set"; then echo $ECHO_N "(cached) $ECHO_C" >&6 fi echo "$as_me:$LINENO: result: `eval echo '${'$as_ac_Header'}'`" >&5 echo "${ECHO_T}`eval echo '${'$as_ac_Header'}'`" >&6 else # Is the header compilable? echo "$as_me:$LINENO: checking $ac_header usability" >&5 echo $ECHO_N "checking $ac_header usability... $ECHO_C" >&6 cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ $ac_includes_default #include <$ac_header> _ACEOF rm -f conftest.$ac_objext if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 (eval $ac_compile) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { ac_try='test -z "$ac_c_werror_flag" || test ! -s conftest.err' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; } && { ac_try='test -s conftest.$ac_objext' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then ac_header_compiler=yes else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_header_compiler=no fi rm -f conftest.err conftest.$ac_objext conftest.$ac_ext echo "$as_me:$LINENO: result: $ac_header_compiler" >&5 echo "${ECHO_T}$ac_header_compiler" >&6 # Is the header present? echo "$as_me:$LINENO: checking $ac_header presence" >&5 echo $ECHO_N "checking $ac_header presence... $ECHO_C" >&6 cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ #include <$ac_header> _ACEOF if { (eval echo "$as_me:$LINENO: \"$ac_cpp conftest.$ac_ext\"") >&5 (eval $ac_cpp conftest.$ac_ext) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } >/dev/null; then if test -s conftest.err; then ac_cpp_err=$ac_c_preproc_warn_flag ac_cpp_err=$ac_cpp_err$ac_c_werror_flag else ac_cpp_err= fi else ac_cpp_err=yes fi if test -z "$ac_cpp_err"; then ac_header_preproc=yes else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_header_preproc=no fi rm -f conftest.err conftest.$ac_ext echo "$as_me:$LINENO: result: $ac_header_preproc" >&5 echo "${ECHO_T}$ac_header_preproc" >&6 # So? What about this header? case $ac_header_compiler:$ac_header_preproc:$ac_c_preproc_warn_flag in yes:no: ) { echo "$as_me:$LINENO: WARNING: $ac_header: accepted by the compiler, rejected by the preprocessor!" >&5 echo "$as_me: WARNING: $ac_header: accepted by the compiler, rejected by the preprocessor!" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: proceeding with the compiler's result" >&5 echo "$as_me: WARNING: $ac_header: proceeding with the compiler's result" >&2;} ac_header_preproc=yes ;; no:yes:* ) { echo "$as_me:$LINENO: WARNING: $ac_header: present but cannot be compiled" >&5 echo "$as_me: WARNING: $ac_header: present but cannot be compiled" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: check for missing prerequisite headers?" >&5 echo "$as_me: WARNING: $ac_header: check for missing prerequisite headers?" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: see the Autoconf documentation" >&5 echo "$as_me: WARNING: $ac_header: see the Autoconf documentation" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: section \"Present But Cannot Be Compiled\"" >&5 echo "$as_me: WARNING: $ac_header: section \"Present But Cannot Be Compiled\"" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: proceeding with the preprocessor's result" >&5 echo "$as_me: WARNING: $ac_header: proceeding with the preprocessor's result" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: in the future, the compiler will take precedence" >&5 echo "$as_me: WARNING: $ac_header: in the future, the compiler will take precedence" >&2;} ( cat <<\_ASBOX ## ------------------------------------------ ## ## Report this to the AC_PACKAGE_NAME lists. ## ## ------------------------------------------ ## _ASBOX ) | sed "s/^/$as_me: WARNING: /" >&2 ;; esac echo "$as_me:$LINENO: checking for $ac_header" >&5 echo $ECHO_N "checking for $ac_header... $ECHO_C" >&6 if eval "test \"\${$as_ac_Header+set}\" = set"; then echo $ECHO_N "(cached) $ECHO_C" >&6 else eval "$as_ac_Header=\$ac_header_preproc" fi echo "$as_me:$LINENO: result: `eval echo '${'$as_ac_Header'}'`" >&5 echo "${ECHO_T}`eval echo '${'$as_ac_Header'}'`" >&6 fi if test `eval echo '${'$as_ac_Header'}'` = yes; then cat >>confdefs.h <<_ACEOF #define `echo "HAVE_$ac_header" | $as_tr_cpp` 1 _ACEOF fi done for ac_header in sys/select.h do as_ac_Header=`echo "ac_cv_header_$ac_header" | $as_tr_sh` if eval "test \"\${$as_ac_Header+set}\" = set"; then echo "$as_me:$LINENO: checking for $ac_header" >&5 echo $ECHO_N "checking for $ac_header... $ECHO_C" >&6 if eval "test \"\${$as_ac_Header+set}\" = set"; then echo $ECHO_N "(cached) $ECHO_C" >&6 fi echo "$as_me:$LINENO: result: `eval echo '${'$as_ac_Header'}'`" >&5 echo "${ECHO_T}`eval echo '${'$as_ac_Header'}'`" >&6 else # Is the header compilable? echo "$as_me:$LINENO: checking $ac_header usability" >&5 echo $ECHO_N "checking $ac_header usability... $ECHO_C" >&6 cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ $ac_includes_default #include <$ac_header> _ACEOF rm -f conftest.$ac_objext if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 (eval $ac_compile) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { ac_try='test -z "$ac_c_werror_flag" || test ! -s conftest.err' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; } && { ac_try='test -s conftest.$ac_objext' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then ac_header_compiler=yes else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_header_compiler=no fi rm -f conftest.err conftest.$ac_objext conftest.$ac_ext echo "$as_me:$LINENO: result: $ac_header_compiler" >&5 echo "${ECHO_T}$ac_header_compiler" >&6 # Is the header present? echo "$as_me:$LINENO: checking $ac_header presence" >&5 echo $ECHO_N "checking $ac_header presence... $ECHO_C" >&6 cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ #include <$ac_header> _ACEOF if { (eval echo "$as_me:$LINENO: \"$ac_cpp conftest.$ac_ext\"") >&5 (eval $ac_cpp conftest.$ac_ext) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } >/dev/null; then if test -s conftest.err; then ac_cpp_err=$ac_c_preproc_warn_flag ac_cpp_err=$ac_cpp_err$ac_c_werror_flag else ac_cpp_err= fi else ac_cpp_err=yes fi if test -z "$ac_cpp_err"; then ac_header_preproc=yes else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_header_preproc=no fi rm -f conftest.err conftest.$ac_ext echo "$as_me:$LINENO: result: $ac_header_preproc" >&5 echo "${ECHO_T}$ac_header_preproc" >&6 # So? What about this header? case $ac_header_compiler:$ac_header_preproc:$ac_c_preproc_warn_flag in yes:no: ) { echo "$as_me:$LINENO: WARNING: $ac_header: accepted by the compiler, rejected by the preprocessor!" >&5 echo "$as_me: WARNING: $ac_header: accepted by the compiler, rejected by the preprocessor!" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: proceeding with the compiler's result" >&5 echo "$as_me: WARNING: $ac_header: proceeding with the compiler's result" >&2;} ac_header_preproc=yes ;; no:yes:* ) { echo "$as_me:$LINENO: WARNING: $ac_header: present but cannot be compiled" >&5 echo "$as_me: WARNING: $ac_header: present but cannot be compiled" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: check for missing prerequisite headers?" >&5 echo "$as_me: WARNING: $ac_header: check for missing prerequisite headers?" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: see the Autoconf documentation" >&5 echo "$as_me: WARNING: $ac_header: see the Autoconf documentation" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: section \"Present But Cannot Be Compiled\"" >&5 echo "$as_me: WARNING: $ac_header: section \"Present But Cannot Be Compiled\"" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: proceeding with the preprocessor's result" >&5 echo "$as_me: WARNING: $ac_header: proceeding with the preprocessor's result" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: in the future, the compiler will take precedence" >&5 echo "$as_me: WARNING: $ac_header: in the future, the compiler will take precedence" >&2;} ( cat <<\_ASBOX ## ------------------------------------------ ## ## Report this to the AC_PACKAGE_NAME lists. ## ## ------------------------------------------ ## _ASBOX ) | sed "s/^/$as_me: WARNING: /" >&2 ;; esac echo "$as_me:$LINENO: checking for $ac_header" >&5 echo $ECHO_N "checking for $ac_header... $ECHO_C" >&6 if eval "test \"\${$as_ac_Header+set}\" = set"; then echo $ECHO_N "(cached) $ECHO_C" >&6 else eval "$as_ac_Header=\$ac_header_preproc" fi echo "$as_me:$LINENO: result: `eval echo '${'$as_ac_Header'}'`" >&5 echo "${ECHO_T}`eval echo '${'$as_ac_Header'}'`" >&6 fi if test `eval echo '${'$as_ac_Header'}'` = yes; then cat >>confdefs.h <<_ACEOF #define `echo "HAVE_$ac_header" | $as_tr_cpp` 1 _ACEOF fi done for ac_header in sys/ioctl.h do as_ac_Header=`echo "ac_cv_header_$ac_header" | $as_tr_sh` if eval "test \"\${$as_ac_Header+set}\" = set"; then echo "$as_me:$LINENO: checking for $ac_header" >&5 echo $ECHO_N "checking for $ac_header... $ECHO_C" >&6 if eval "test \"\${$as_ac_Header+set}\" = set"; then echo $ECHO_N "(cached) $ECHO_C" >&6 fi echo "$as_me:$LINENO: result: `eval echo '${'$as_ac_Header'}'`" >&5 echo "${ECHO_T}`eval echo '${'$as_ac_Header'}'`" >&6 else # Is the header compilable? echo "$as_me:$LINENO: checking $ac_header usability" >&5 echo $ECHO_N "checking $ac_header usability... $ECHO_C" >&6 cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ $ac_includes_default #include <$ac_header> _ACEOF rm -f conftest.$ac_objext if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 (eval $ac_compile) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { ac_try='test -z "$ac_c_werror_flag" || test ! -s conftest.err' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; } && { ac_try='test -s conftest.$ac_objext' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then ac_header_compiler=yes else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_header_compiler=no fi rm -f conftest.err conftest.$ac_objext conftest.$ac_ext echo "$as_me:$LINENO: result: $ac_header_compiler" >&5 echo "${ECHO_T}$ac_header_compiler" >&6 # Is the header present? echo "$as_me:$LINENO: checking $ac_header presence" >&5 echo $ECHO_N "checking $ac_header presence... $ECHO_C" >&6 cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ #include <$ac_header> _ACEOF if { (eval echo "$as_me:$LINENO: \"$ac_cpp conftest.$ac_ext\"") >&5 (eval $ac_cpp conftest.$ac_ext) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } >/dev/null; then if test -s conftest.err; then ac_cpp_err=$ac_c_preproc_warn_flag ac_cpp_err=$ac_cpp_err$ac_c_werror_flag else ac_cpp_err= fi else ac_cpp_err=yes fi if test -z "$ac_cpp_err"; then ac_header_preproc=yes else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_header_preproc=no fi rm -f conftest.err conftest.$ac_ext echo "$as_me:$LINENO: result: $ac_header_preproc" >&5 echo "${ECHO_T}$ac_header_preproc" >&6 # So? What about this header? case $ac_header_compiler:$ac_header_preproc:$ac_c_preproc_warn_flag in yes:no: ) { echo "$as_me:$LINENO: WARNING: $ac_header: accepted by the compiler, rejected by the preprocessor!" >&5 echo "$as_me: WARNING: $ac_header: accepted by the compiler, rejected by the preprocessor!" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: proceeding with the compiler's result" >&5 echo "$as_me: WARNING: $ac_header: proceeding with the compiler's result" >&2;} ac_header_preproc=yes ;; no:yes:* ) { echo "$as_me:$LINENO: WARNING: $ac_header: present but cannot be compiled" >&5 echo "$as_me: WARNING: $ac_header: present but cannot be compiled" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: check for missing prerequisite headers?" >&5 echo "$as_me: WARNING: $ac_header: check for missing prerequisite headers?" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: see the Autoconf documentation" >&5 echo "$as_me: WARNING: $ac_header: see the Autoconf documentation" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: section \"Present But Cannot Be Compiled\"" >&5 echo "$as_me: WARNING: $ac_header: section \"Present But Cannot Be Compiled\"" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: proceeding with the preprocessor's result" >&5 echo "$as_me: WARNING: $ac_header: proceeding with the preprocessor's result" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: in the future, the compiler will take precedence" >&5 echo "$as_me: WARNING: $ac_header: in the future, the compiler will take precedence" >&2;} ( cat <<\_ASBOX ## ------------------------------------------ ## ## Report this to the AC_PACKAGE_NAME lists. ## ## ------------------------------------------ ## _ASBOX ) | sed "s/^/$as_me: WARNING: /" >&2 ;; esac echo "$as_me:$LINENO: checking for $ac_header" >&5 echo $ECHO_N "checking for $ac_header... $ECHO_C" >&6 if eval "test \"\${$as_ac_Header+set}\" = set"; then echo $ECHO_N "(cached) $ECHO_C" >&6 else eval "$as_ac_Header=\$ac_header_preproc" fi echo "$as_me:$LINENO: result: `eval echo '${'$as_ac_Header'}'`" >&5 echo "${ECHO_T}`eval echo '${'$as_ac_Header'}'`" >&6 fi if test `eval echo '${'$as_ac_Header'}'` = yes; then cat >>confdefs.h <<_ACEOF #define `echo "HAVE_$ac_header" | $as_tr_cpp` 1 _ACEOF fi done for ac_header in sys/fcntl.h do as_ac_Header=`echo "ac_cv_header_$ac_header" | $as_tr_sh` if eval "test \"\${$as_ac_Header+set}\" = set"; then echo "$as_me:$LINENO: checking for $ac_header" >&5 echo $ECHO_N "checking for $ac_header... $ECHO_C" >&6 if eval "test \"\${$as_ac_Header+set}\" = set"; then echo $ECHO_N "(cached) $ECHO_C" >&6 fi echo "$as_me:$LINENO: result: `eval echo '${'$as_ac_Header'}'`" >&5 echo "${ECHO_T}`eval echo '${'$as_ac_Header'}'`" >&6 else # Is the header compilable? echo "$as_me:$LINENO: checking $ac_header usability" >&5 echo $ECHO_N "checking $ac_header usability... $ECHO_C" >&6 cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ $ac_includes_default #include <$ac_header> _ACEOF rm -f conftest.$ac_objext if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 (eval $ac_compile) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { ac_try='test -z "$ac_c_werror_flag" || test ! -s conftest.err' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; } && { ac_try='test -s conftest.$ac_objext' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then ac_header_compiler=yes else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_header_compiler=no fi rm -f conftest.err conftest.$ac_objext conftest.$ac_ext echo "$as_me:$LINENO: result: $ac_header_compiler" >&5 echo "${ECHO_T}$ac_header_compiler" >&6 # Is the header present? echo "$as_me:$LINENO: checking $ac_header presence" >&5 echo $ECHO_N "checking $ac_header presence... $ECHO_C" >&6 cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ #include <$ac_header> _ACEOF if { (eval echo "$as_me:$LINENO: \"$ac_cpp conftest.$ac_ext\"") >&5 (eval $ac_cpp conftest.$ac_ext) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } >/dev/null; then if test -s conftest.err; then ac_cpp_err=$ac_c_preproc_warn_flag ac_cpp_err=$ac_cpp_err$ac_c_werror_flag else ac_cpp_err= fi else ac_cpp_err=yes fi if test -z "$ac_cpp_err"; then ac_header_preproc=yes else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_header_preproc=no fi rm -f conftest.err conftest.$ac_ext echo "$as_me:$LINENO: result: $ac_header_preproc" >&5 echo "${ECHO_T}$ac_header_preproc" >&6 # So? What about this header? case $ac_header_compiler:$ac_header_preproc:$ac_c_preproc_warn_flag in yes:no: ) { echo "$as_me:$LINENO: WARNING: $ac_header: accepted by the compiler, rejected by the preprocessor!" >&5 echo "$as_me: WARNING: $ac_header: accepted by the compiler, rejected by the preprocessor!" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: proceeding with the compiler's result" >&5 echo "$as_me: WARNING: $ac_header: proceeding with the compiler's result" >&2;} ac_header_preproc=yes ;; no:yes:* ) { echo "$as_me:$LINENO: WARNING: $ac_header: present but cannot be compiled" >&5 echo "$as_me: WARNING: $ac_header: present but cannot be compiled" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: check for missing prerequisite headers?" >&5 echo "$as_me: WARNING: $ac_header: check for missing prerequisite headers?" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: see the Autoconf documentation" >&5 echo "$as_me: WARNING: $ac_header: see the Autoconf documentation" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: section \"Present But Cannot Be Compiled\"" >&5 echo "$as_me: WARNING: $ac_header: section \"Present But Cannot Be Compiled\"" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: proceeding with the preprocessor's result" >&5 echo "$as_me: WARNING: $ac_header: proceeding with the preprocessor's result" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: in the future, the compiler will take precedence" >&5 echo "$as_me: WARNING: $ac_header: in the future, the compiler will take precedence" >&2;} ( cat <<\_ASBOX ## ------------------------------------------ ## ## Report this to the AC_PACKAGE_NAME lists. ## ## ------------------------------------------ ## _ASBOX ) | sed "s/^/$as_me: WARNING: /" >&2 ;; esac echo "$as_me:$LINENO: checking for $ac_header" >&5 echo $ECHO_N "checking for $ac_header... $ECHO_C" >&6 if eval "test \"\${$as_ac_Header+set}\" = set"; then echo $ECHO_N "(cached) $ECHO_C" >&6 else eval "$as_ac_Header=\$ac_header_preproc" fi echo "$as_me:$LINENO: result: `eval echo '${'$as_ac_Header'}'`" >&5 echo "${ECHO_T}`eval echo '${'$as_ac_Header'}'`" >&6 fi if test `eval echo '${'$as_ac_Header'}'` = yes; then cat >>confdefs.h <<_ACEOF #define `echo "HAVE_$ac_header" | $as_tr_cpp` 1 _ACEOF fi done for ac_header in sndfile.h do as_ac_Header=`echo "ac_cv_header_$ac_header" | $as_tr_sh` if eval "test \"\${$as_ac_Header+set}\" = set"; then echo "$as_me:$LINENO: checking for $ac_header" >&5 echo $ECHO_N "checking for $ac_header... $ECHO_C" >&6 if eval "test \"\${$as_ac_Header+set}\" = set"; then echo $ECHO_N "(cached) $ECHO_C" >&6 fi echo "$as_me:$LINENO: result: `eval echo '${'$as_ac_Header'}'`" >&5 echo "${ECHO_T}`eval echo '${'$as_ac_Header'}'`" >&6 else # Is the header compilable? echo "$as_me:$LINENO: checking $ac_header usability" >&5 echo $ECHO_N "checking $ac_header usability... $ECHO_C" >&6 cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ $ac_includes_default #include <$ac_header> _ACEOF rm -f conftest.$ac_objext if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 (eval $ac_compile) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { ac_try='test -z "$ac_c_werror_flag" || test ! -s conftest.err' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; } && { ac_try='test -s conftest.$ac_objext' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then ac_header_compiler=yes else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_header_compiler=no fi rm -f conftest.err conftest.$ac_objext conftest.$ac_ext echo "$as_me:$LINENO: result: $ac_header_compiler" >&5 echo "${ECHO_T}$ac_header_compiler" >&6 # Is the header present? echo "$as_me:$LINENO: checking $ac_header presence" >&5 echo $ECHO_N "checking $ac_header presence... $ECHO_C" >&6 cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ #include <$ac_header> _ACEOF if { (eval echo "$as_me:$LINENO: \"$ac_cpp conftest.$ac_ext\"") >&5 (eval $ac_cpp conftest.$ac_ext) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } >/dev/null; then if test -s conftest.err; then ac_cpp_err=$ac_c_preproc_warn_flag ac_cpp_err=$ac_cpp_err$ac_c_werror_flag else ac_cpp_err= fi else ac_cpp_err=yes fi if test -z "$ac_cpp_err"; then ac_header_preproc=yes else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_header_preproc=no fi rm -f conftest.err conftest.$ac_ext echo "$as_me:$LINENO: result: $ac_header_preproc" >&5 echo "${ECHO_T}$ac_header_preproc" >&6 # So? What about this header? case $ac_header_compiler:$ac_header_preproc:$ac_c_preproc_warn_flag in yes:no: ) { echo "$as_me:$LINENO: WARNING: $ac_header: accepted by the compiler, rejected by the preprocessor!" >&5 echo "$as_me: WARNING: $ac_header: accepted by the compiler, rejected by the preprocessor!" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: proceeding with the compiler's result" >&5 echo "$as_me: WARNING: $ac_header: proceeding with the compiler's result" >&2;} ac_header_preproc=yes ;; no:yes:* ) { echo "$as_me:$LINENO: WARNING: $ac_header: present but cannot be compiled" >&5 echo "$as_me: WARNING: $ac_header: present but cannot be compiled" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: check for missing prerequisite headers?" >&5 echo "$as_me: WARNING: $ac_header: check for missing prerequisite headers?" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: see the Autoconf documentation" >&5 echo "$as_me: WARNING: $ac_header: see the Autoconf documentation" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: section \"Present But Cannot Be Compiled\"" >&5 echo "$as_me: WARNING: $ac_header: section \"Present But Cannot Be Compiled\"" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: proceeding with the preprocessor's result" >&5 echo "$as_me: WARNING: $ac_header: proceeding with the preprocessor's result" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: in the future, the compiler will take precedence" >&5 echo "$as_me: WARNING: $ac_header: in the future, the compiler will take precedence" >&2;} ( cat <<\_ASBOX ## ------------------------------------------ ## ## Report this to the AC_PACKAGE_NAME lists. ## ## ------------------------------------------ ## _ASBOX ) | sed "s/^/$as_me: WARNING: /" >&2 ;; esac echo "$as_me:$LINENO: checking for $ac_header" >&5 echo $ECHO_N "checking for $ac_header... $ECHO_C" >&6 if eval "test \"\${$as_ac_Header+set}\" = set"; then echo $ECHO_N "(cached) $ECHO_C" >&6 else eval "$as_ac_Header=\$ac_header_preproc" fi echo "$as_me:$LINENO: result: `eval echo '${'$as_ac_Header'}'`" >&5 echo "${ECHO_T}`eval echo '${'$as_ac_Header'}'`" >&6 fi if test `eval echo '${'$as_ac_Header'}'` = yes; then cat >>confdefs.h <<_ACEOF #define `echo "HAVE_$ac_header" | $as_tr_cpp` 1 _ACEOF fi done for ac_header in fenv.h do as_ac_Header=`echo "ac_cv_header_$ac_header" | $as_tr_sh` if eval "test \"\${$as_ac_Header+set}\" = set"; then echo "$as_me:$LINENO: checking for $ac_header" >&5 echo $ECHO_N "checking for $ac_header... $ECHO_C" >&6 if eval "test \"\${$as_ac_Header+set}\" = set"; then echo $ECHO_N "(cached) $ECHO_C" >&6 fi echo "$as_me:$LINENO: result: `eval echo '${'$as_ac_Header'}'`" >&5 echo "${ECHO_T}`eval echo '${'$as_ac_Header'}'`" >&6 else # Is the header compilable? echo "$as_me:$LINENO: checking $ac_header usability" >&5 echo $ECHO_N "checking $ac_header usability... $ECHO_C" >&6 cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ $ac_includes_default #include <$ac_header> _ACEOF rm -f conftest.$ac_objext if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 (eval $ac_compile) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { ac_try='test -z "$ac_c_werror_flag" || test ! -s conftest.err' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; } && { ac_try='test -s conftest.$ac_objext' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then ac_header_compiler=yes else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_header_compiler=no fi rm -f conftest.err conftest.$ac_objext conftest.$ac_ext echo "$as_me:$LINENO: result: $ac_header_compiler" >&5 echo "${ECHO_T}$ac_header_compiler" >&6 # Is the header present? echo "$as_me:$LINENO: checking $ac_header presence" >&5 echo $ECHO_N "checking $ac_header presence... $ECHO_C" >&6 cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ #include <$ac_header> _ACEOF if { (eval echo "$as_me:$LINENO: \"$ac_cpp conftest.$ac_ext\"") >&5 (eval $ac_cpp conftest.$ac_ext) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } >/dev/null; then if test -s conftest.err; then ac_cpp_err=$ac_c_preproc_warn_flag ac_cpp_err=$ac_cpp_err$ac_c_werror_flag else ac_cpp_err= fi else ac_cpp_err=yes fi if test -z "$ac_cpp_err"; then ac_header_preproc=yes else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_header_preproc=no fi rm -f conftest.err conftest.$ac_ext echo "$as_me:$LINENO: result: $ac_header_preproc" >&5 echo "${ECHO_T}$ac_header_preproc" >&6 # So? What about this header? case $ac_header_compiler:$ac_header_preproc:$ac_c_preproc_warn_flag in yes:no: ) { echo "$as_me:$LINENO: WARNING: $ac_header: accepted by the compiler, rejected by the preprocessor!" >&5 echo "$as_me: WARNING: $ac_header: accepted by the compiler, rejected by the preprocessor!" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: proceeding with the compiler's result" >&5 echo "$as_me: WARNING: $ac_header: proceeding with the compiler's result" >&2;} ac_header_preproc=yes ;; no:yes:* ) { echo "$as_me:$LINENO: WARNING: $ac_header: present but cannot be compiled" >&5 echo "$as_me: WARNING: $ac_header: present but cannot be compiled" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: check for missing prerequisite headers?" >&5 echo "$as_me: WARNING: $ac_header: check for missing prerequisite headers?" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: see the Autoconf documentation" >&5 echo "$as_me: WARNING: $ac_header: see the Autoconf documentation" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: section \"Present But Cannot Be Compiled\"" >&5 echo "$as_me: WARNING: $ac_header: section \"Present But Cannot Be Compiled\"" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: proceeding with the preprocessor's result" >&5 echo "$as_me: WARNING: $ac_header: proceeding with the preprocessor's result" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: in the future, the compiler will take precedence" >&5 echo "$as_me: WARNING: $ac_header: in the future, the compiler will take precedence" >&2;} ( cat <<\_ASBOX ## ------------------------------------------ ## ## Report this to the AC_PACKAGE_NAME lists. ## ## ------------------------------------------ ## _ASBOX ) | sed "s/^/$as_me: WARNING: /" >&2 ;; esac echo "$as_me:$LINENO: checking for $ac_header" >&5 echo $ECHO_N "checking for $ac_header... $ECHO_C" >&6 if eval "test \"\${$as_ac_Header+set}\" = set"; then echo $ECHO_N "(cached) $ECHO_C" >&6 else eval "$as_ac_Header=\$ac_header_preproc" fi echo "$as_me:$LINENO: result: `eval echo '${'$as_ac_Header'}'`" >&5 echo "${ECHO_T}`eval echo '${'$as_ac_Header'}'`" >&6 fi if test `eval echo '${'$as_ac_Header'}'` = yes; then cat >>confdefs.h <<_ACEOF #define `echo "HAVE_$ac_header" | $as_tr_cpp` 1 _ACEOF fi done for ac_header in fftw3.h do as_ac_Header=`echo "ac_cv_header_$ac_header" | $as_tr_sh` if eval "test \"\${$as_ac_Header+set}\" = set"; then echo "$as_me:$LINENO: checking for $ac_header" >&5 echo $ECHO_N "checking for $ac_header... $ECHO_C" >&6 if eval "test \"\${$as_ac_Header+set}\" = set"; then echo $ECHO_N "(cached) $ECHO_C" >&6 fi echo "$as_me:$LINENO: result: `eval echo '${'$as_ac_Header'}'`" >&5 echo "${ECHO_T}`eval echo '${'$as_ac_Header'}'`" >&6 else # Is the header compilable? echo "$as_me:$LINENO: checking $ac_header usability" >&5 echo $ECHO_N "checking $ac_header usability... $ECHO_C" >&6 cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ $ac_includes_default #include <$ac_header> _ACEOF rm -f conftest.$ac_objext if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 (eval $ac_compile) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { ac_try='test -z "$ac_c_werror_flag" || test ! -s conftest.err' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; } && { ac_try='test -s conftest.$ac_objext' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then ac_header_compiler=yes else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_header_compiler=no fi rm -f conftest.err conftest.$ac_objext conftest.$ac_ext echo "$as_me:$LINENO: result: $ac_header_compiler" >&5 echo "${ECHO_T}$ac_header_compiler" >&6 # Is the header present? echo "$as_me:$LINENO: checking $ac_header presence" >&5 echo $ECHO_N "checking $ac_header presence... $ECHO_C" >&6 cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ #include <$ac_header> _ACEOF if { (eval echo "$as_me:$LINENO: \"$ac_cpp conftest.$ac_ext\"") >&5 (eval $ac_cpp conftest.$ac_ext) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } >/dev/null; then if test -s conftest.err; then ac_cpp_err=$ac_c_preproc_warn_flag ac_cpp_err=$ac_cpp_err$ac_c_werror_flag else ac_cpp_err= fi else ac_cpp_err=yes fi if test -z "$ac_cpp_err"; then ac_header_preproc=yes else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_header_preproc=no fi rm -f conftest.err conftest.$ac_ext echo "$as_me:$LINENO: result: $ac_header_preproc" >&5 echo "${ECHO_T}$ac_header_preproc" >&6 # So? What about this header? case $ac_header_compiler:$ac_header_preproc:$ac_c_preproc_warn_flag in yes:no: ) { echo "$as_me:$LINENO: WARNING: $ac_header: accepted by the compiler, rejected by the preprocessor!" >&5 echo "$as_me: WARNING: $ac_header: accepted by the compiler, rejected by the preprocessor!" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: proceeding with the compiler's result" >&5 echo "$as_me: WARNING: $ac_header: proceeding with the compiler's result" >&2;} ac_header_preproc=yes ;; no:yes:* ) { echo "$as_me:$LINENO: WARNING: $ac_header: present but cannot be compiled" >&5 echo "$as_me: WARNING: $ac_header: present but cannot be compiled" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: check for missing prerequisite headers?" >&5 echo "$as_me: WARNING: $ac_header: check for missing prerequisite headers?" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: see the Autoconf documentation" >&5 echo "$as_me: WARNING: $ac_header: see the Autoconf documentation" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: section \"Present But Cannot Be Compiled\"" >&5 echo "$as_me: WARNING: $ac_header: section \"Present But Cannot Be Compiled\"" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: proceeding with the preprocessor's result" >&5 echo "$as_me: WARNING: $ac_header: proceeding with the preprocessor's result" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: in the future, the compiler will take precedence" >&5 echo "$as_me: WARNING: $ac_header: in the future, the compiler will take precedence" >&2;} ( cat <<\_ASBOX ## ------------------------------------------ ## ## Report this to the AC_PACKAGE_NAME lists. ## ## ------------------------------------------ ## _ASBOX ) | sed "s/^/$as_me: WARNING: /" >&2 ;; esac echo "$as_me:$LINENO: checking for $ac_header" >&5 echo $ECHO_N "checking for $ac_header... $ECHO_C" >&6 if eval "test \"\${$as_ac_Header+set}\" = set"; then echo $ECHO_N "(cached) $ECHO_C" >&6 else eval "$as_ac_Header=\$ac_header_preproc" fi echo "$as_me:$LINENO: result: `eval echo '${'$as_ac_Header'}'`" >&5 echo "${ECHO_T}`eval echo '${'$as_ac_Header'}'`" >&6 fi if test `eval echo '${'$as_ac_Header'}'` = yes; then cat >>confdefs.h <<_ACEOF #define `echo "HAVE_$ac_header" | $as_tr_cpp` 1 _ACEOF else for ac_header in fftw.h do as_ac_Header=`echo "ac_cv_header_$ac_header" | $as_tr_sh` if eval "test \"\${$as_ac_Header+set}\" = set"; then echo "$as_me:$LINENO: checking for $ac_header" >&5 echo $ECHO_N "checking for $ac_header... $ECHO_C" >&6 if eval "test \"\${$as_ac_Header+set}\" = set"; then echo $ECHO_N "(cached) $ECHO_C" >&6 fi echo "$as_me:$LINENO: result: `eval echo '${'$as_ac_Header'}'`" >&5 echo "${ECHO_T}`eval echo '${'$as_ac_Header'}'`" >&6 else # Is the header compilable? echo "$as_me:$LINENO: checking $ac_header usability" >&5 echo $ECHO_N "checking $ac_header usability... $ECHO_C" >&6 cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ $ac_includes_default #include <$ac_header> _ACEOF rm -f conftest.$ac_objext if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 (eval $ac_compile) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { ac_try='test -z "$ac_c_werror_flag" || test ! -s conftest.err' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; } && { ac_try='test -s conftest.$ac_objext' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then ac_header_compiler=yes else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_header_compiler=no fi rm -f conftest.err conftest.$ac_objext conftest.$ac_ext echo "$as_me:$LINENO: result: $ac_header_compiler" >&5 echo "${ECHO_T}$ac_header_compiler" >&6 # Is the header present? echo "$as_me:$LINENO: checking $ac_header presence" >&5 echo $ECHO_N "checking $ac_header presence... $ECHO_C" >&6 cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ #include <$ac_header> _ACEOF if { (eval echo "$as_me:$LINENO: \"$ac_cpp conftest.$ac_ext\"") >&5 (eval $ac_cpp conftest.$ac_ext) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } >/dev/null; then if test -s conftest.err; then ac_cpp_err=$ac_c_preproc_warn_flag ac_cpp_err=$ac_cpp_err$ac_c_werror_flag else ac_cpp_err= fi else ac_cpp_err=yes fi if test -z "$ac_cpp_err"; then ac_header_preproc=yes else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_header_preproc=no fi rm -f conftest.err conftest.$ac_ext echo "$as_me:$LINENO: result: $ac_header_preproc" >&5 echo "${ECHO_T}$ac_header_preproc" >&6 # So? What about this header? case $ac_header_compiler:$ac_header_preproc:$ac_c_preproc_warn_flag in yes:no: ) { echo "$as_me:$LINENO: WARNING: $ac_header: accepted by the compiler, rejected by the preprocessor!" >&5 echo "$as_me: WARNING: $ac_header: accepted by the compiler, rejected by the preprocessor!" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: proceeding with the compiler's result" >&5 echo "$as_me: WARNING: $ac_header: proceeding with the compiler's result" >&2;} ac_header_preproc=yes ;; no:yes:* ) { echo "$as_me:$LINENO: WARNING: $ac_header: present but cannot be compiled" >&5 echo "$as_me: WARNING: $ac_header: present but cannot be compiled" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: check for missing prerequisite headers?" >&5 echo "$as_me: WARNING: $ac_header: check for missing prerequisite headers?" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: see the Autoconf documentation" >&5 echo "$as_me: WARNING: $ac_header: see the Autoconf documentation" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: section \"Present But Cannot Be Compiled\"" >&5 echo "$as_me: WARNING: $ac_header: section \"Present But Cannot Be Compiled\"" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: proceeding with the preprocessor's result" >&5 echo "$as_me: WARNING: $ac_header: proceeding with the preprocessor's result" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: in the future, the compiler will take precedence" >&5 echo "$as_me: WARNING: $ac_header: in the future, the compiler will take precedence" >&2;} ( cat <<\_ASBOX ## ------------------------------------------ ## ## Report this to the AC_PACKAGE_NAME lists. ## ## ------------------------------------------ ## _ASBOX ) | sed "s/^/$as_me: WARNING: /" >&2 ;; esac echo "$as_me:$LINENO: checking for $ac_header" >&5 echo $ECHO_N "checking for $ac_header... $ECHO_C" >&6 if eval "test \"\${$as_ac_Header+set}\" = set"; then echo $ECHO_N "(cached) $ECHO_C" >&6 else eval "$as_ac_Header=\$ac_header_preproc" fi echo "$as_me:$LINENO: result: `eval echo '${'$as_ac_Header'}'`" >&5 echo "${ECHO_T}`eval echo '${'$as_ac_Header'}'`" >&6 fi if test `eval echo '${'$as_ac_Header'}'` = yes; then cat >>confdefs.h <<_ACEOF #define `echo "HAVE_$ac_header" | $as_tr_cpp` 1 _ACEOF fi done fi done for ac_header in pcap.h do as_ac_Header=`echo "ac_cv_header_$ac_header" | $as_tr_sh` if eval "test \"\${$as_ac_Header+set}\" = set"; then echo "$as_me:$LINENO: checking for $ac_header" >&5 echo $ECHO_N "checking for $ac_header... $ECHO_C" >&6 if eval "test \"\${$as_ac_Header+set}\" = set"; then echo $ECHO_N "(cached) $ECHO_C" >&6 fi echo "$as_me:$LINENO: result: `eval echo '${'$as_ac_Header'}'`" >&5 echo "${ECHO_T}`eval echo '${'$as_ac_Header'}'`" >&6 else # Is the header compilable? echo "$as_me:$LINENO: checking $ac_header usability" >&5 echo $ECHO_N "checking $ac_header usability... $ECHO_C" >&6 cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ $ac_includes_default #include <$ac_header> _ACEOF rm -f conftest.$ac_objext if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 (eval $ac_compile) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { ac_try='test -z "$ac_c_werror_flag" || test ! -s conftest.err' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; } && { ac_try='test -s conftest.$ac_objext' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then ac_header_compiler=yes else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_header_compiler=no fi rm -f conftest.err conftest.$ac_objext conftest.$ac_ext echo "$as_me:$LINENO: result: $ac_header_compiler" >&5 echo "${ECHO_T}$ac_header_compiler" >&6 # Is the header present? echo "$as_me:$LINENO: checking $ac_header presence" >&5 echo $ECHO_N "checking $ac_header presence... $ECHO_C" >&6 cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ #include <$ac_header> _ACEOF if { (eval echo "$as_me:$LINENO: \"$ac_cpp conftest.$ac_ext\"") >&5 (eval $ac_cpp conftest.$ac_ext) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } >/dev/null; then if test -s conftest.err; then ac_cpp_err=$ac_c_preproc_warn_flag ac_cpp_err=$ac_cpp_err$ac_c_werror_flag else ac_cpp_err= fi else ac_cpp_err=yes fi if test -z "$ac_cpp_err"; then ac_header_preproc=yes else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_header_preproc=no fi rm -f conftest.err conftest.$ac_ext echo "$as_me:$LINENO: result: $ac_header_preproc" >&5 echo "${ECHO_T}$ac_header_preproc" >&6 # So? What about this header? case $ac_header_compiler:$ac_header_preproc:$ac_c_preproc_warn_flag in yes:no: ) { echo "$as_me:$LINENO: WARNING: $ac_header: accepted by the compiler, rejected by the preprocessor!" >&5 echo "$as_me: WARNING: $ac_header: accepted by the compiler, rejected by the preprocessor!" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: proceeding with the compiler's result" >&5 echo "$as_me: WARNING: $ac_header: proceeding with the compiler's result" >&2;} ac_header_preproc=yes ;; no:yes:* ) { echo "$as_me:$LINENO: WARNING: $ac_header: present but cannot be compiled" >&5 echo "$as_me: WARNING: $ac_header: present but cannot be compiled" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: check for missing prerequisite headers?" >&5 echo "$as_me: WARNING: $ac_header: check for missing prerequisite headers?" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: see the Autoconf documentation" >&5 echo "$as_me: WARNING: $ac_header: see the Autoconf documentation" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: section \"Present But Cannot Be Compiled\"" >&5 echo "$as_me: WARNING: $ac_header: section \"Present But Cannot Be Compiled\"" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: proceeding with the preprocessor's result" >&5 echo "$as_me: WARNING: $ac_header: proceeding with the preprocessor's result" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: in the future, the compiler will take precedence" >&5 echo "$as_me: WARNING: $ac_header: in the future, the compiler will take precedence" >&2;} ( cat <<\_ASBOX ## ------------------------------------------ ## ## Report this to the AC_PACKAGE_NAME lists. ## ## ------------------------------------------ ## _ASBOX ) | sed "s/^/$as_me: WARNING: /" >&2 ;; esac echo "$as_me:$LINENO: checking for $ac_header" >&5 echo $ECHO_N "checking for $ac_header... $ECHO_C" >&6 if eval "test \"\${$as_ac_Header+set}\" = set"; then echo $ECHO_N "(cached) $ECHO_C" >&6 else eval "$as_ac_Header=\$ac_header_preproc" fi echo "$as_me:$LINENO: result: `eval echo '${'$as_ac_Header'}'`" >&5 echo "${ECHO_T}`eval echo '${'$as_ac_Header'}'`" >&6 fi if test `eval echo '${'$as_ac_Header'}'` = yes; then cat >>confdefs.h <<_ACEOF #define `echo "HAVE_$ac_header" | $as_tr_cpp` 1 _ACEOF fi done for ac_header in pthread.h do as_ac_Header=`echo "ac_cv_header_$ac_header" | $as_tr_sh` if eval "test \"\${$as_ac_Header+set}\" = set"; then echo "$as_me:$LINENO: checking for $ac_header" >&5 echo $ECHO_N "checking for $ac_header... $ECHO_C" >&6 if eval "test \"\${$as_ac_Header+set}\" = set"; then echo $ECHO_N "(cached) $ECHO_C" >&6 fi echo "$as_me:$LINENO: result: `eval echo '${'$as_ac_Header'}'`" >&5 echo "${ECHO_T}`eval echo '${'$as_ac_Header'}'`" >&6 else # Is the header compilable? echo "$as_me:$LINENO: checking $ac_header usability" >&5 echo $ECHO_N "checking $ac_header usability... $ECHO_C" >&6 cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ $ac_includes_default #include <$ac_header> _ACEOF rm -f conftest.$ac_objext if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 (eval $ac_compile) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { ac_try='test -z "$ac_c_werror_flag" || test ! -s conftest.err' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; } && { ac_try='test -s conftest.$ac_objext' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then ac_header_compiler=yes else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_header_compiler=no fi rm -f conftest.err conftest.$ac_objext conftest.$ac_ext echo "$as_me:$LINENO: result: $ac_header_compiler" >&5 echo "${ECHO_T}$ac_header_compiler" >&6 # Is the header present? echo "$as_me:$LINENO: checking $ac_header presence" >&5 echo $ECHO_N "checking $ac_header presence... $ECHO_C" >&6 cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ #include <$ac_header> _ACEOF if { (eval echo "$as_me:$LINENO: \"$ac_cpp conftest.$ac_ext\"") >&5 (eval $ac_cpp conftest.$ac_ext) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } >/dev/null; then if test -s conftest.err; then ac_cpp_err=$ac_c_preproc_warn_flag ac_cpp_err=$ac_cpp_err$ac_c_werror_flag else ac_cpp_err= fi else ac_cpp_err=yes fi if test -z "$ac_cpp_err"; then ac_header_preproc=yes else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_header_preproc=no fi rm -f conftest.err conftest.$ac_ext echo "$as_me:$LINENO: result: $ac_header_preproc" >&5 echo "${ECHO_T}$ac_header_preproc" >&6 # So? What about this header? case $ac_header_compiler:$ac_header_preproc:$ac_c_preproc_warn_flag in yes:no: ) { echo "$as_me:$LINENO: WARNING: $ac_header: accepted by the compiler, rejected by the preprocessor!" >&5 echo "$as_me: WARNING: $ac_header: accepted by the compiler, rejected by the preprocessor!" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: proceeding with the compiler's result" >&5 echo "$as_me: WARNING: $ac_header: proceeding with the compiler's result" >&2;} ac_header_preproc=yes ;; no:yes:* ) { echo "$as_me:$LINENO: WARNING: $ac_header: present but cannot be compiled" >&5 echo "$as_me: WARNING: $ac_header: present but cannot be compiled" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: check for missing prerequisite headers?" >&5 echo "$as_me: WARNING: $ac_header: check for missing prerequisite headers?" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: see the Autoconf documentation" >&5 echo "$as_me: WARNING: $ac_header: see the Autoconf documentation" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: section \"Present But Cannot Be Compiled\"" >&5 echo "$as_me: WARNING: $ac_header: section \"Present But Cannot Be Compiled\"" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: proceeding with the preprocessor's result" >&5 echo "$as_me: WARNING: $ac_header: proceeding with the preprocessor's result" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: in the future, the compiler will take precedence" >&5 echo "$as_me: WARNING: $ac_header: in the future, the compiler will take precedence" >&2;} ( cat <<\_ASBOX ## ------------------------------------------ ## ## Report this to the AC_PACKAGE_NAME lists. ## ## ------------------------------------------ ## _ASBOX ) | sed "s/^/$as_me: WARNING: /" >&2 ;; esac echo "$as_me:$LINENO: checking for $ac_header" >&5 echo $ECHO_N "checking for $ac_header... $ECHO_C" >&6 if eval "test \"\${$as_ac_Header+set}\" = set"; then echo $ECHO_N "(cached) $ECHO_C" >&6 else eval "$as_ac_Header=\$ac_header_preproc" fi echo "$as_me:$LINENO: result: `eval echo '${'$as_ac_Header'}'`" >&5 echo "${ECHO_T}`eval echo '${'$as_ac_Header'}'`" >&6 fi if test `eval echo '${'$as_ac_Header'}'` = yes; then cat >>confdefs.h <<_ACEOF #define `echo "HAVE_$ac_header" | $as_tr_cpp` 1 _ACEOF fi done if test "${build}" == "${host}" then for ac_header in X11/X.h do as_ac_Header=`echo "ac_cv_header_$ac_header" | $as_tr_sh` if eval "test \"\${$as_ac_Header+set}\" = set"; then echo "$as_me:$LINENO: checking for $ac_header" >&5 echo $ECHO_N "checking for $ac_header... $ECHO_C" >&6 if eval "test \"\${$as_ac_Header+set}\" = set"; then echo $ECHO_N "(cached) $ECHO_C" >&6 fi echo "$as_me:$LINENO: result: `eval echo '${'$as_ac_Header'}'`" >&5 echo "${ECHO_T}`eval echo '${'$as_ac_Header'}'`" >&6 else # Is the header compilable? echo "$as_me:$LINENO: checking $ac_header usability" >&5 echo $ECHO_N "checking $ac_header usability... $ECHO_C" >&6 cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ $ac_includes_default #include <$ac_header> _ACEOF rm -f conftest.$ac_objext if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 (eval $ac_compile) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { ac_try='test -z "$ac_c_werror_flag" || test ! -s conftest.err' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; } && { ac_try='test -s conftest.$ac_objext' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then ac_header_compiler=yes else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_header_compiler=no fi rm -f conftest.err conftest.$ac_objext conftest.$ac_ext echo "$as_me:$LINENO: result: $ac_header_compiler" >&5 echo "${ECHO_T}$ac_header_compiler" >&6 # Is the header present? echo "$as_me:$LINENO: checking $ac_header presence" >&5 echo $ECHO_N "checking $ac_header presence... $ECHO_C" >&6 cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ #include <$ac_header> _ACEOF if { (eval echo "$as_me:$LINENO: \"$ac_cpp conftest.$ac_ext\"") >&5 (eval $ac_cpp conftest.$ac_ext) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } >/dev/null; then if test -s conftest.err; then ac_cpp_err=$ac_c_preproc_warn_flag ac_cpp_err=$ac_cpp_err$ac_c_werror_flag else ac_cpp_err= fi else ac_cpp_err=yes fi if test -z "$ac_cpp_err"; then ac_header_preproc=yes else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_header_preproc=no fi rm -f conftest.err conftest.$ac_ext echo "$as_me:$LINENO: result: $ac_header_preproc" >&5 echo "${ECHO_T}$ac_header_preproc" >&6 # So? What about this header? case $ac_header_compiler:$ac_header_preproc:$ac_c_preproc_warn_flag in yes:no: ) { echo "$as_me:$LINENO: WARNING: $ac_header: accepted by the compiler, rejected by the preprocessor!" >&5 echo "$as_me: WARNING: $ac_header: accepted by the compiler, rejected by the preprocessor!" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: proceeding with the compiler's result" >&5 echo "$as_me: WARNING: $ac_header: proceeding with the compiler's result" >&2;} ac_header_preproc=yes ;; no:yes:* ) { echo "$as_me:$LINENO: WARNING: $ac_header: present but cannot be compiled" >&5 echo "$as_me: WARNING: $ac_header: present but cannot be compiled" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: check for missing prerequisite headers?" >&5 echo "$as_me: WARNING: $ac_header: check for missing prerequisite headers?" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: see the Autoconf documentation" >&5 echo "$as_me: WARNING: $ac_header: see the Autoconf documentation" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: section \"Present But Cannot Be Compiled\"" >&5 echo "$as_me: WARNING: $ac_header: section \"Present But Cannot Be Compiled\"" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: proceeding with the preprocessor's result" >&5 echo "$as_me: WARNING: $ac_header: proceeding with the preprocessor's result" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: in the future, the compiler will take precedence" >&5 echo "$as_me: WARNING: $ac_header: in the future, the compiler will take precedence" >&2;} ( cat <<\_ASBOX ## ------------------------------------------ ## ## Report this to the AC_PACKAGE_NAME lists. ## ## ------------------------------------------ ## _ASBOX ) | sed "s/^/$as_me: WARNING: /" >&2 ;; esac echo "$as_me:$LINENO: checking for $ac_header" >&5 echo $ECHO_N "checking for $ac_header... $ECHO_C" >&6 if eval "test \"\${$as_ac_Header+set}\" = set"; then echo $ECHO_N "(cached) $ECHO_C" >&6 else eval "$as_ac_Header=\$ac_header_preproc" fi echo "$as_me:$LINENO: result: `eval echo '${'$as_ac_Header'}'`" >&5 echo "${ECHO_T}`eval echo '${'$as_ac_Header'}'`" >&6 fi if test `eval echo '${'$as_ac_Header'}'` = yes; then cat >>confdefs.h <<_ACEOF #define `echo "HAVE_$ac_header" | $as_tr_cpp` 1 _ACEOF fi done fi # Determine XML2 include path echo "$as_me:$LINENO: checking for libxml/xmlmemory.h" >&5 echo $ECHO_N "checking for libxml/xmlmemory.h... $ECHO_C" >&6 # Can we include headers using system include dirs? cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ #include int main () { int a = 1; ; return 0; } _ACEOF rm -f conftest.$ac_objext if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 (eval $ac_compile) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { ac_try='test -z "$ac_c_werror_flag" || test ! -s conftest.err' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; } && { ac_try='test -s conftest.$ac_objext' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then XML2_INCLUDE=" " else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 XML2_INCLUDE= fi rm -f conftest.err conftest.$ac_objext conftest.$ac_ext # Hunt through several possible directories to find the includes for libxml2 if test "x$XML2_INCLUDE" = "x"; then old_CPPFLAGS="$CPPFLAGS" for i in $xml2_include_dir /usr/include /usr/local/include /usr/include/libxml2 /usr/local/include/libxml2 ; do CPPFLAGS="$old_CPPFLAGS -I$i" cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ #include int main () { int a = 1; ; return 0; } _ACEOF rm -f conftest.$ac_objext if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 (eval $ac_compile) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { ac_try='test -z "$ac_c_werror_flag" || test ! -s conftest.err' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; } && { ac_try='test -s conftest.$ac_objext' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then XML2_INCLUDE="-I$i" else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 XML2_INCLUDE= fi rm -f conftest.err conftest.$ac_objext conftest.$ac_ext if test "x$XML2_INCLUDE" != "x"; then break; fi done CPPFLAGS="$old_CPPFLAGS $XML2_INCLUDE" fi for ac_header in libxml/xmlmemory.h do as_ac_Header=`echo "ac_cv_header_$ac_header" | $as_tr_sh` if eval "test \"\${$as_ac_Header+set}\" = set"; then echo "$as_me:$LINENO: checking for $ac_header" >&5 echo $ECHO_N "checking for $ac_header... $ECHO_C" >&6 if eval "test \"\${$as_ac_Header+set}\" = set"; then echo $ECHO_N "(cached) $ECHO_C" >&6 fi echo "$as_me:$LINENO: result: `eval echo '${'$as_ac_Header'}'`" >&5 echo "${ECHO_T}`eval echo '${'$as_ac_Header'}'`" >&6 else # Is the header compilable? echo "$as_me:$LINENO: checking $ac_header usability" >&5 echo $ECHO_N "checking $ac_header usability... $ECHO_C" >&6 cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ $ac_includes_default #include <$ac_header> _ACEOF rm -f conftest.$ac_objext if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 (eval $ac_compile) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { ac_try='test -z "$ac_c_werror_flag" || test ! -s conftest.err' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; } && { ac_try='test -s conftest.$ac_objext' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then ac_header_compiler=yes else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_header_compiler=no fi rm -f conftest.err conftest.$ac_objext conftest.$ac_ext echo "$as_me:$LINENO: result: $ac_header_compiler" >&5 echo "${ECHO_T}$ac_header_compiler" >&6 # Is the header present? echo "$as_me:$LINENO: checking $ac_header presence" >&5 echo $ECHO_N "checking $ac_header presence... $ECHO_C" >&6 cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ #include <$ac_header> _ACEOF if { (eval echo "$as_me:$LINENO: \"$ac_cpp conftest.$ac_ext\"") >&5 (eval $ac_cpp conftest.$ac_ext) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } >/dev/null; then if test -s conftest.err; then ac_cpp_err=$ac_c_preproc_warn_flag ac_cpp_err=$ac_cpp_err$ac_c_werror_flag else ac_cpp_err= fi else ac_cpp_err=yes fi if test -z "$ac_cpp_err"; then ac_header_preproc=yes else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_header_preproc=no fi rm -f conftest.err conftest.$ac_ext echo "$as_me:$LINENO: result: $ac_header_preproc" >&5 echo "${ECHO_T}$ac_header_preproc" >&6 # So? What about this header? case $ac_header_compiler:$ac_header_preproc:$ac_c_preproc_warn_flag in yes:no: ) { echo "$as_me:$LINENO: WARNING: $ac_header: accepted by the compiler, rejected by the preprocessor!" >&5 echo "$as_me: WARNING: $ac_header: accepted by the compiler, rejected by the preprocessor!" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: proceeding with the compiler's result" >&5 echo "$as_me: WARNING: $ac_header: proceeding with the compiler's result" >&2;} ac_header_preproc=yes ;; no:yes:* ) { echo "$as_me:$LINENO: WARNING: $ac_header: present but cannot be compiled" >&5 echo "$as_me: WARNING: $ac_header: present but cannot be compiled" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: check for missing prerequisite headers?" >&5 echo "$as_me: WARNING: $ac_header: check for missing prerequisite headers?" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: see the Autoconf documentation" >&5 echo "$as_me: WARNING: $ac_header: see the Autoconf documentation" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: section \"Present But Cannot Be Compiled\"" >&5 echo "$as_me: WARNING: $ac_header: section \"Present But Cannot Be Compiled\"" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: proceeding with the preprocessor's result" >&5 echo "$as_me: WARNING: $ac_header: proceeding with the preprocessor's result" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: in the future, the compiler will take precedence" >&5 echo "$as_me: WARNING: $ac_header: in the future, the compiler will take precedence" >&2;} ( cat <<\_ASBOX ## ------------------------------------------ ## ## Report this to the AC_PACKAGE_NAME lists. ## ## ------------------------------------------ ## _ASBOX ) | sed "s/^/$as_me: WARNING: /" >&2 ;; esac echo "$as_me:$LINENO: checking for $ac_header" >&5 echo $ECHO_N "checking for $ac_header... $ECHO_C" >&6 if eval "test \"\${$as_ac_Header+set}\" = set"; then echo $ECHO_N "(cached) $ECHO_C" >&6 else eval "$as_ac_Header=\$ac_header_preproc" fi echo "$as_me:$LINENO: result: `eval echo '${'$as_ac_Header'}'`" >&5 echo "${ECHO_T}`eval echo '${'$as_ac_Header'}'`" >&6 fi if test `eval echo '${'$as_ac_Header'}'` = yes; then cat >>confdefs.h <<_ACEOF #define `echo "HAVE_$ac_header" | $as_tr_cpp` 1 _ACEOF fi done for ac_header in libxml/parser.h do as_ac_Header=`echo "ac_cv_header_$ac_header" | $as_tr_sh` if eval "test \"\${$as_ac_Header+set}\" = set"; then echo "$as_me:$LINENO: checking for $ac_header" >&5 echo $ECHO_N "checking for $ac_header... $ECHO_C" >&6 if eval "test \"\${$as_ac_Header+set}\" = set"; then echo $ECHO_N "(cached) $ECHO_C" >&6 fi echo "$as_me:$LINENO: result: `eval echo '${'$as_ac_Header'}'`" >&5 echo "${ECHO_T}`eval echo '${'$as_ac_Header'}'`" >&6 else # Is the header compilable? echo "$as_me:$LINENO: checking $ac_header usability" >&5 echo $ECHO_N "checking $ac_header usability... $ECHO_C" >&6 cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ $ac_includes_default #include <$ac_header> _ACEOF rm -f conftest.$ac_objext if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 (eval $ac_compile) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { ac_try='test -z "$ac_c_werror_flag" || test ! -s conftest.err' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; } && { ac_try='test -s conftest.$ac_objext' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then ac_header_compiler=yes else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_header_compiler=no fi rm -f conftest.err conftest.$ac_objext conftest.$ac_ext echo "$as_me:$LINENO: result: $ac_header_compiler" >&5 echo "${ECHO_T}$ac_header_compiler" >&6 # Is the header present? echo "$as_me:$LINENO: checking $ac_header presence" >&5 echo $ECHO_N "checking $ac_header presence... $ECHO_C" >&6 cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ #include <$ac_header> _ACEOF if { (eval echo "$as_me:$LINENO: \"$ac_cpp conftest.$ac_ext\"") >&5 (eval $ac_cpp conftest.$ac_ext) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } >/dev/null; then if test -s conftest.err; then ac_cpp_err=$ac_c_preproc_warn_flag ac_cpp_err=$ac_cpp_err$ac_c_werror_flag else ac_cpp_err= fi else ac_cpp_err=yes fi if test -z "$ac_cpp_err"; then ac_header_preproc=yes else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_header_preproc=no fi rm -f conftest.err conftest.$ac_ext echo "$as_me:$LINENO: result: $ac_header_preproc" >&5 echo "${ECHO_T}$ac_header_preproc" >&6 # So? What about this header? case $ac_header_compiler:$ac_header_preproc:$ac_c_preproc_warn_flag in yes:no: ) { echo "$as_me:$LINENO: WARNING: $ac_header: accepted by the compiler, rejected by the preprocessor!" >&5 echo "$as_me: WARNING: $ac_header: accepted by the compiler, rejected by the preprocessor!" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: proceeding with the compiler's result" >&5 echo "$as_me: WARNING: $ac_header: proceeding with the compiler's result" >&2;} ac_header_preproc=yes ;; no:yes:* ) { echo "$as_me:$LINENO: WARNING: $ac_header: present but cannot be compiled" >&5 echo "$as_me: WARNING: $ac_header: present but cannot be compiled" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: check for missing prerequisite headers?" >&5 echo "$as_me: WARNING: $ac_header: check for missing prerequisite headers?" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: see the Autoconf documentation" >&5 echo "$as_me: WARNING: $ac_header: see the Autoconf documentation" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: section \"Present But Cannot Be Compiled\"" >&5 echo "$as_me: WARNING: $ac_header: section \"Present But Cannot Be Compiled\"" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: proceeding with the preprocessor's result" >&5 echo "$as_me: WARNING: $ac_header: proceeding with the preprocessor's result" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: in the future, the compiler will take precedence" >&5 echo "$as_me: WARNING: $ac_header: in the future, the compiler will take precedence" >&2;} ( cat <<\_ASBOX ## ------------------------------------------ ## ## Report this to the AC_PACKAGE_NAME lists. ## ## ------------------------------------------ ## _ASBOX ) | sed "s/^/$as_me: WARNING: /" >&2 ;; esac echo "$as_me:$LINENO: checking for $ac_header" >&5 echo $ECHO_N "checking for $ac_header... $ECHO_C" >&6 if eval "test \"\${$as_ac_Header+set}\" = set"; then echo $ECHO_N "(cached) $ECHO_C" >&6 else eval "$as_ac_Header=\$ac_header_preproc" fi echo "$as_me:$LINENO: result: `eval echo '${'$as_ac_Header'}'`" >&5 echo "${ECHO_T}`eval echo '${'$as_ac_Header'}'`" >&6 fi if test `eval echo '${'$as_ac_Header'}'` = yes; then cat >>confdefs.h <<_ACEOF #define `echo "HAVE_$ac_header" | $as_tr_cpp` 1 _ACEOF fi done for ac_header in libxml/xinclude.h do as_ac_Header=`echo "ac_cv_header_$ac_header" | $as_tr_sh` if eval "test \"\${$as_ac_Header+set}\" = set"; then echo "$as_me:$LINENO: checking for $ac_header" >&5 echo $ECHO_N "checking for $ac_header... $ECHO_C" >&6 if eval "test \"\${$as_ac_Header+set}\" = set"; then echo $ECHO_N "(cached) $ECHO_C" >&6 fi echo "$as_me:$LINENO: result: `eval echo '${'$as_ac_Header'}'`" >&5 echo "${ECHO_T}`eval echo '${'$as_ac_Header'}'`" >&6 else # Is the header compilable? echo "$as_me:$LINENO: checking $ac_header usability" >&5 echo $ECHO_N "checking $ac_header usability... $ECHO_C" >&6 cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ $ac_includes_default #include <$ac_header> _ACEOF rm -f conftest.$ac_objext if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 (eval $ac_compile) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { ac_try='test -z "$ac_c_werror_flag" || test ! -s conftest.err' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; } && { ac_try='test -s conftest.$ac_objext' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then ac_header_compiler=yes else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_header_compiler=no fi rm -f conftest.err conftest.$ac_objext conftest.$ac_ext echo "$as_me:$LINENO: result: $ac_header_compiler" >&5 echo "${ECHO_T}$ac_header_compiler" >&6 # Is the header present? echo "$as_me:$LINENO: checking $ac_header presence" >&5 echo $ECHO_N "checking $ac_header presence... $ECHO_C" >&6 cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ #include <$ac_header> _ACEOF if { (eval echo "$as_me:$LINENO: \"$ac_cpp conftest.$ac_ext\"") >&5 (eval $ac_cpp conftest.$ac_ext) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } >/dev/null; then if test -s conftest.err; then ac_cpp_err=$ac_c_preproc_warn_flag ac_cpp_err=$ac_cpp_err$ac_c_werror_flag else ac_cpp_err= fi else ac_cpp_err=yes fi if test -z "$ac_cpp_err"; then ac_header_preproc=yes else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_header_preproc=no fi rm -f conftest.err conftest.$ac_ext echo "$as_me:$LINENO: result: $ac_header_preproc" >&5 echo "${ECHO_T}$ac_header_preproc" >&6 # So? What about this header? case $ac_header_compiler:$ac_header_preproc:$ac_c_preproc_warn_flag in yes:no: ) { echo "$as_me:$LINENO: WARNING: $ac_header: accepted by the compiler, rejected by the preprocessor!" >&5 echo "$as_me: WARNING: $ac_header: accepted by the compiler, rejected by the preprocessor!" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: proceeding with the compiler's result" >&5 echo "$as_me: WARNING: $ac_header: proceeding with the compiler's result" >&2;} ac_header_preproc=yes ;; no:yes:* ) { echo "$as_me:$LINENO: WARNING: $ac_header: present but cannot be compiled" >&5 echo "$as_me: WARNING: $ac_header: present but cannot be compiled" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: check for missing prerequisite headers?" >&5 echo "$as_me: WARNING: $ac_header: check for missing prerequisite headers?" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: see the Autoconf documentation" >&5 echo "$as_me: WARNING: $ac_header: see the Autoconf documentation" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: section \"Present But Cannot Be Compiled\"" >&5 echo "$as_me: WARNING: $ac_header: section \"Present But Cannot Be Compiled\"" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: proceeding with the preprocessor's result" >&5 echo "$as_me: WARNING: $ac_header: proceeding with the preprocessor's result" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: in the future, the compiler will take precedence" >&5 echo "$as_me: WARNING: $ac_header: in the future, the compiler will take precedence" >&2;} ( cat <<\_ASBOX ## ------------------------------------------ ## ## Report this to the AC_PACKAGE_NAME lists. ## ## ------------------------------------------ ## _ASBOX ) | sed "s/^/$as_me: WARNING: /" >&2 ;; esac echo "$as_me:$LINENO: checking for $ac_header" >&5 echo $ECHO_N "checking for $ac_header... $ECHO_C" >&6 if eval "test \"\${$as_ac_Header+set}\" = set"; then echo $ECHO_N "(cached) $ECHO_C" >&6 else eval "$as_ac_Header=\$ac_header_preproc" fi echo "$as_me:$LINENO: result: `eval echo '${'$as_ac_Header'}'`" >&5 echo "${ECHO_T}`eval echo '${'$as_ac_Header'}'`" >&6 fi if test `eval echo '${'$as_ac_Header'}'` = yes; then cat >>confdefs.h <<_ACEOF #define `echo "HAVE_$ac_header" | $as_tr_cpp` 1 _ACEOF fi done ac_ext=cc ac_cpp='$CXXCPP $CPPFLAGS' ac_compile='$CXX -c $CXXFLAGS $CPPFLAGS conftest.$ac_ext >&5' ac_link='$CXX -o conftest$ac_exeext $CXXFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' ac_compiler_gnu=$ac_cv_cxx_compiler_gnu for ac_header in FL/Fl.H do as_ac_Header=`echo "ac_cv_header_$ac_header" | $as_tr_sh` if eval "test \"\${$as_ac_Header+set}\" = set"; then echo "$as_me:$LINENO: checking for $ac_header" >&5 echo $ECHO_N "checking for $ac_header... $ECHO_C" >&6 if eval "test \"\${$as_ac_Header+set}\" = set"; then echo $ECHO_N "(cached) $ECHO_C" >&6 fi echo "$as_me:$LINENO: result: `eval echo '${'$as_ac_Header'}'`" >&5 echo "${ECHO_T}`eval echo '${'$as_ac_Header'}'`" >&6 else # Is the header compilable? echo "$as_me:$LINENO: checking $ac_header usability" >&5 echo $ECHO_N "checking $ac_header usability... $ECHO_C" >&6 cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ $ac_includes_default #include <$ac_header> _ACEOF rm -f conftest.$ac_objext if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 (eval $ac_compile) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { ac_try='test -z "$ac_cxx_werror_flag" || test ! -s conftest.err' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; } && { ac_try='test -s conftest.$ac_objext' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then ac_header_compiler=yes else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_header_compiler=no fi rm -f conftest.err conftest.$ac_objext conftest.$ac_ext echo "$as_me:$LINENO: result: $ac_header_compiler" >&5 echo "${ECHO_T}$ac_header_compiler" >&6 # Is the header present? echo "$as_me:$LINENO: checking $ac_header presence" >&5 echo $ECHO_N "checking $ac_header presence... $ECHO_C" >&6 cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ #include <$ac_header> _ACEOF if { (eval echo "$as_me:$LINENO: \"$ac_cpp conftest.$ac_ext\"") >&5 (eval $ac_cpp conftest.$ac_ext) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } >/dev/null; then if test -s conftest.err; then ac_cpp_err=$ac_cxx_preproc_warn_flag ac_cpp_err=$ac_cpp_err$ac_cxx_werror_flag else ac_cpp_err= fi else ac_cpp_err=yes fi if test -z "$ac_cpp_err"; then ac_header_preproc=yes else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_header_preproc=no fi rm -f conftest.err conftest.$ac_ext echo "$as_me:$LINENO: result: $ac_header_preproc" >&5 echo "${ECHO_T}$ac_header_preproc" >&6 # So? What about this header? case $ac_header_compiler:$ac_header_preproc:$ac_cxx_preproc_warn_flag in yes:no: ) { echo "$as_me:$LINENO: WARNING: $ac_header: accepted by the compiler, rejected by the preprocessor!" >&5 echo "$as_me: WARNING: $ac_header: accepted by the compiler, rejected by the preprocessor!" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: proceeding with the compiler's result" >&5 echo "$as_me: WARNING: $ac_header: proceeding with the compiler's result" >&2;} ac_header_preproc=yes ;; no:yes:* ) { echo "$as_me:$LINENO: WARNING: $ac_header: present but cannot be compiled" >&5 echo "$as_me: WARNING: $ac_header: present but cannot be compiled" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: check for missing prerequisite headers?" >&5 echo "$as_me: WARNING: $ac_header: check for missing prerequisite headers?" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: see the Autoconf documentation" >&5 echo "$as_me: WARNING: $ac_header: see the Autoconf documentation" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: section \"Present But Cannot Be Compiled\"" >&5 echo "$as_me: WARNING: $ac_header: section \"Present But Cannot Be Compiled\"" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: proceeding with the preprocessor's result" >&5 echo "$as_me: WARNING: $ac_header: proceeding with the preprocessor's result" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: in the future, the compiler will take precedence" >&5 echo "$as_me: WARNING: $ac_header: in the future, the compiler will take precedence" >&2;} ( cat <<\_ASBOX ## ------------------------------------------ ## ## Report this to the AC_PACKAGE_NAME lists. ## ## ------------------------------------------ ## _ASBOX ) | sed "s/^/$as_me: WARNING: /" >&2 ;; esac echo "$as_me:$LINENO: checking for $ac_header" >&5 echo $ECHO_N "checking for $ac_header... $ECHO_C" >&6 if eval "test \"\${$as_ac_Header+set}\" = set"; then echo $ECHO_N "(cached) $ECHO_C" >&6 else eval "$as_ac_Header=\$ac_header_preproc" fi echo "$as_me:$LINENO: result: `eval echo '${'$as_ac_Header'}'`" >&5 echo "${ECHO_T}`eval echo '${'$as_ac_Header'}'`" >&6 fi if test `eval echo '${'$as_ac_Header'}'` = yes; then cat >>confdefs.h <<_ACEOF #define `echo "HAVE_$ac_header" | $as_tr_cpp` 1 _ACEOF fi done for ac_header in FL/Fl_Overlay_Window.H do as_ac_Header=`echo "ac_cv_header_$ac_header" | $as_tr_sh` if eval "test \"\${$as_ac_Header+set}\" = set"; then echo "$as_me:$LINENO: checking for $ac_header" >&5 echo $ECHO_N "checking for $ac_header... $ECHO_C" >&6 if eval "test \"\${$as_ac_Header+set}\" = set"; then echo $ECHO_N "(cached) $ECHO_C" >&6 fi echo "$as_me:$LINENO: result: `eval echo '${'$as_ac_Header'}'`" >&5 echo "${ECHO_T}`eval echo '${'$as_ac_Header'}'`" >&6 else # Is the header compilable? echo "$as_me:$LINENO: checking $ac_header usability" >&5 echo $ECHO_N "checking $ac_header usability... $ECHO_C" >&6 cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ $ac_includes_default #include <$ac_header> _ACEOF rm -f conftest.$ac_objext if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 (eval $ac_compile) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { ac_try='test -z "$ac_cxx_werror_flag" || test ! -s conftest.err' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; } && { ac_try='test -s conftest.$ac_objext' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then ac_header_compiler=yes else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_header_compiler=no fi rm -f conftest.err conftest.$ac_objext conftest.$ac_ext echo "$as_me:$LINENO: result: $ac_header_compiler" >&5 echo "${ECHO_T}$ac_header_compiler" >&6 # Is the header present? echo "$as_me:$LINENO: checking $ac_header presence" >&5 echo $ECHO_N "checking $ac_header presence... $ECHO_C" >&6 cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ #include <$ac_header> _ACEOF if { (eval echo "$as_me:$LINENO: \"$ac_cpp conftest.$ac_ext\"") >&5 (eval $ac_cpp conftest.$ac_ext) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } >/dev/null; then if test -s conftest.err; then ac_cpp_err=$ac_cxx_preproc_warn_flag ac_cpp_err=$ac_cpp_err$ac_cxx_werror_flag else ac_cpp_err= fi else ac_cpp_err=yes fi if test -z "$ac_cpp_err"; then ac_header_preproc=yes else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_header_preproc=no fi rm -f conftest.err conftest.$ac_ext echo "$as_me:$LINENO: result: $ac_header_preproc" >&5 echo "${ECHO_T}$ac_header_preproc" >&6 # So? What about this header? case $ac_header_compiler:$ac_header_preproc:$ac_cxx_preproc_warn_flag in yes:no: ) { echo "$as_me:$LINENO: WARNING: $ac_header: accepted by the compiler, rejected by the preprocessor!" >&5 echo "$as_me: WARNING: $ac_header: accepted by the compiler, rejected by the preprocessor!" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: proceeding with the compiler's result" >&5 echo "$as_me: WARNING: $ac_header: proceeding with the compiler's result" >&2;} ac_header_preproc=yes ;; no:yes:* ) { echo "$as_me:$LINENO: WARNING: $ac_header: present but cannot be compiled" >&5 echo "$as_me: WARNING: $ac_header: present but cannot be compiled" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: check for missing prerequisite headers?" >&5 echo "$as_me: WARNING: $ac_header: check for missing prerequisite headers?" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: see the Autoconf documentation" >&5 echo "$as_me: WARNING: $ac_header: see the Autoconf documentation" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: section \"Present But Cannot Be Compiled\"" >&5 echo "$as_me: WARNING: $ac_header: section \"Present But Cannot Be Compiled\"" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: proceeding with the preprocessor's result" >&5 echo "$as_me: WARNING: $ac_header: proceeding with the preprocessor's result" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: in the future, the compiler will take precedence" >&5 echo "$as_me: WARNING: $ac_header: in the future, the compiler will take precedence" >&2;} ( cat <<\_ASBOX ## ------------------------------------------ ## ## Report this to the AC_PACKAGE_NAME lists. ## ## ------------------------------------------ ## _ASBOX ) | sed "s/^/$as_me: WARNING: /" >&2 ;; esac echo "$as_me:$LINENO: checking for $ac_header" >&5 echo $ECHO_N "checking for $ac_header... $ECHO_C" >&6 if eval "test \"\${$as_ac_Header+set}\" = set"; then echo $ECHO_N "(cached) $ECHO_C" >&6 else eval "$as_ac_Header=\$ac_header_preproc" fi echo "$as_me:$LINENO: result: `eval echo '${'$as_ac_Header'}'`" >&5 echo "${ECHO_T}`eval echo '${'$as_ac_Header'}'`" >&6 fi if test `eval echo '${'$as_ac_Header'}'` = yes; then cat >>confdefs.h <<_ACEOF #define `echo "HAVE_$ac_header" | $as_tr_cpp` 1 _ACEOF fi done for ac_header in FL/Fl_Light_Button.H do as_ac_Header=`echo "ac_cv_header_$ac_header" | $as_tr_sh` if eval "test \"\${$as_ac_Header+set}\" = set"; then echo "$as_me:$LINENO: checking for $ac_header" >&5 echo $ECHO_N "checking for $ac_header... $ECHO_C" >&6 if eval "test \"\${$as_ac_Header+set}\" = set"; then echo $ECHO_N "(cached) $ECHO_C" >&6 fi echo "$as_me:$LINENO: result: `eval echo '${'$as_ac_Header'}'`" >&5 echo "${ECHO_T}`eval echo '${'$as_ac_Header'}'`" >&6 else # Is the header compilable? echo "$as_me:$LINENO: checking $ac_header usability" >&5 echo $ECHO_N "checking $ac_header usability... $ECHO_C" >&6 cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ $ac_includes_default #include <$ac_header> _ACEOF rm -f conftest.$ac_objext if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 (eval $ac_compile) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { ac_try='test -z "$ac_cxx_werror_flag" || test ! -s conftest.err' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; } && { ac_try='test -s conftest.$ac_objext' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then ac_header_compiler=yes else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_header_compiler=no fi rm -f conftest.err conftest.$ac_objext conftest.$ac_ext echo "$as_me:$LINENO: result: $ac_header_compiler" >&5 echo "${ECHO_T}$ac_header_compiler" >&6 # Is the header present? echo "$as_me:$LINENO: checking $ac_header presence" >&5 echo $ECHO_N "checking $ac_header presence... $ECHO_C" >&6 cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ #include <$ac_header> _ACEOF if { (eval echo "$as_me:$LINENO: \"$ac_cpp conftest.$ac_ext\"") >&5 (eval $ac_cpp conftest.$ac_ext) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } >/dev/null; then if test -s conftest.err; then ac_cpp_err=$ac_cxx_preproc_warn_flag ac_cpp_err=$ac_cpp_err$ac_cxx_werror_flag else ac_cpp_err= fi else ac_cpp_err=yes fi if test -z "$ac_cpp_err"; then ac_header_preproc=yes else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_header_preproc=no fi rm -f conftest.err conftest.$ac_ext echo "$as_me:$LINENO: result: $ac_header_preproc" >&5 echo "${ECHO_T}$ac_header_preproc" >&6 # So? What about this header? case $ac_header_compiler:$ac_header_preproc:$ac_cxx_preproc_warn_flag in yes:no: ) { echo "$as_me:$LINENO: WARNING: $ac_header: accepted by the compiler, rejected by the preprocessor!" >&5 echo "$as_me: WARNING: $ac_header: accepted by the compiler, rejected by the preprocessor!" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: proceeding with the compiler's result" >&5 echo "$as_me: WARNING: $ac_header: proceeding with the compiler's result" >&2;} ac_header_preproc=yes ;; no:yes:* ) { echo "$as_me:$LINENO: WARNING: $ac_header: present but cannot be compiled" >&5 echo "$as_me: WARNING: $ac_header: present but cannot be compiled" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: check for missing prerequisite headers?" >&5 echo "$as_me: WARNING: $ac_header: check for missing prerequisite headers?" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: see the Autoconf documentation" >&5 echo "$as_me: WARNING: $ac_header: see the Autoconf documentation" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: section \"Present But Cannot Be Compiled\"" >&5 echo "$as_me: WARNING: $ac_header: section \"Present But Cannot Be Compiled\"" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: proceeding with the preprocessor's result" >&5 echo "$as_me: WARNING: $ac_header: proceeding with the preprocessor's result" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: in the future, the compiler will take precedence" >&5 echo "$as_me: WARNING: $ac_header: in the future, the compiler will take precedence" >&2;} ( cat <<\_ASBOX ## ------------------------------------------ ## ## Report this to the AC_PACKAGE_NAME lists. ## ## ------------------------------------------ ## _ASBOX ) | sed "s/^/$as_me: WARNING: /" >&2 ;; esac echo "$as_me:$LINENO: checking for $ac_header" >&5 echo $ECHO_N "checking for $ac_header... $ECHO_C" >&6 if eval "test \"\${$as_ac_Header+set}\" = set"; then echo $ECHO_N "(cached) $ECHO_C" >&6 else eval "$as_ac_Header=\$ac_header_preproc" fi echo "$as_me:$LINENO: result: `eval echo '${'$as_ac_Header'}'`" >&5 echo "${ECHO_T}`eval echo '${'$as_ac_Header'}'`" >&6 fi if test `eval echo '${'$as_ac_Header'}'` = yes; then cat >>confdefs.h <<_ACEOF #define `echo "HAVE_$ac_header" | $as_tr_cpp` 1 _ACEOF fi done for ac_header in FL/fl_draw.H do as_ac_Header=`echo "ac_cv_header_$ac_header" | $as_tr_sh` if eval "test \"\${$as_ac_Header+set}\" = set"; then echo "$as_me:$LINENO: checking for $ac_header" >&5 echo $ECHO_N "checking for $ac_header... $ECHO_C" >&6 if eval "test \"\${$as_ac_Header+set}\" = set"; then echo $ECHO_N "(cached) $ECHO_C" >&6 fi echo "$as_me:$LINENO: result: `eval echo '${'$as_ac_Header'}'`" >&5 echo "${ECHO_T}`eval echo '${'$as_ac_Header'}'`" >&6 else # Is the header compilable? echo "$as_me:$LINENO: checking $ac_header usability" >&5 echo $ECHO_N "checking $ac_header usability... $ECHO_C" >&6 cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ $ac_includes_default #include <$ac_header> _ACEOF rm -f conftest.$ac_objext if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 (eval $ac_compile) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { ac_try='test -z "$ac_cxx_werror_flag" || test ! -s conftest.err' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; } && { ac_try='test -s conftest.$ac_objext' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then ac_header_compiler=yes else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_header_compiler=no fi rm -f conftest.err conftest.$ac_objext conftest.$ac_ext echo "$as_me:$LINENO: result: $ac_header_compiler" >&5 echo "${ECHO_T}$ac_header_compiler" >&6 # Is the header present? echo "$as_me:$LINENO: checking $ac_header presence" >&5 echo $ECHO_N "checking $ac_header presence... $ECHO_C" >&6 cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ #include <$ac_header> _ACEOF if { (eval echo "$as_me:$LINENO: \"$ac_cpp conftest.$ac_ext\"") >&5 (eval $ac_cpp conftest.$ac_ext) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } >/dev/null; then if test -s conftest.err; then ac_cpp_err=$ac_cxx_preproc_warn_flag ac_cpp_err=$ac_cpp_err$ac_cxx_werror_flag else ac_cpp_err= fi else ac_cpp_err=yes fi if test -z "$ac_cpp_err"; then ac_header_preproc=yes else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_header_preproc=no fi rm -f conftest.err conftest.$ac_ext echo "$as_me:$LINENO: result: $ac_header_preproc" >&5 echo "${ECHO_T}$ac_header_preproc" >&6 # So? What about this header? case $ac_header_compiler:$ac_header_preproc:$ac_cxx_preproc_warn_flag in yes:no: ) { echo "$as_me:$LINENO: WARNING: $ac_header: accepted by the compiler, rejected by the preprocessor!" >&5 echo "$as_me: WARNING: $ac_header: accepted by the compiler, rejected by the preprocessor!" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: proceeding with the compiler's result" >&5 echo "$as_me: WARNING: $ac_header: proceeding with the compiler's result" >&2;} ac_header_preproc=yes ;; no:yes:* ) { echo "$as_me:$LINENO: WARNING: $ac_header: present but cannot be compiled" >&5 echo "$as_me: WARNING: $ac_header: present but cannot be compiled" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: check for missing prerequisite headers?" >&5 echo "$as_me: WARNING: $ac_header: check for missing prerequisite headers?" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: see the Autoconf documentation" >&5 echo "$as_me: WARNING: $ac_header: see the Autoconf documentation" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: section \"Present But Cannot Be Compiled\"" >&5 echo "$as_me: WARNING: $ac_header: section \"Present But Cannot Be Compiled\"" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: proceeding with the preprocessor's result" >&5 echo "$as_me: WARNING: $ac_header: proceeding with the preprocessor's result" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: in the future, the compiler will take precedence" >&5 echo "$as_me: WARNING: $ac_header: in the future, the compiler will take precedence" >&2;} ( cat <<\_ASBOX ## ------------------------------------------ ## ## Report this to the AC_PACKAGE_NAME lists. ## ## ------------------------------------------ ## _ASBOX ) | sed "s/^/$as_me: WARNING: /" >&2 ;; esac echo "$as_me:$LINENO: checking for $ac_header" >&5 echo $ECHO_N "checking for $ac_header... $ECHO_C" >&6 if eval "test \"\${$as_ac_Header+set}\" = set"; then echo $ECHO_N "(cached) $ECHO_C" >&6 else eval "$as_ac_Header=\$ac_header_preproc" fi echo "$as_me:$LINENO: result: `eval echo '${'$as_ac_Header'}'`" >&5 echo "${ECHO_T}`eval echo '${'$as_ac_Header'}'`" >&6 fi if test `eval echo '${'$as_ac_Header'}'` = yes; then cat >>confdefs.h <<_ACEOF #define `echo "HAVE_$ac_header" | $as_tr_cpp` 1 _ACEOF fi done for ac_header in FL/Fl_Cartesian.H do as_ac_Header=`echo "ac_cv_header_$ac_header" | $as_tr_sh` if eval "test \"\${$as_ac_Header+set}\" = set"; then echo "$as_me:$LINENO: checking for $ac_header" >&5 echo $ECHO_N "checking for $ac_header... $ECHO_C" >&6 if eval "test \"\${$as_ac_Header+set}\" = set"; then echo $ECHO_N "(cached) $ECHO_C" >&6 fi echo "$as_me:$LINENO: result: `eval echo '${'$as_ac_Header'}'`" >&5 echo "${ECHO_T}`eval echo '${'$as_ac_Header'}'`" >&6 else # Is the header compilable? echo "$as_me:$LINENO: checking $ac_header usability" >&5 echo $ECHO_N "checking $ac_header usability... $ECHO_C" >&6 cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ $ac_includes_default #include <$ac_header> _ACEOF rm -f conftest.$ac_objext if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 (eval $ac_compile) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { ac_try='test -z "$ac_cxx_werror_flag" || test ! -s conftest.err' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; } && { ac_try='test -s conftest.$ac_objext' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then ac_header_compiler=yes else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_header_compiler=no fi rm -f conftest.err conftest.$ac_objext conftest.$ac_ext echo "$as_me:$LINENO: result: $ac_header_compiler" >&5 echo "${ECHO_T}$ac_header_compiler" >&6 # Is the header present? echo "$as_me:$LINENO: checking $ac_header presence" >&5 echo $ECHO_N "checking $ac_header presence... $ECHO_C" >&6 cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ #include <$ac_header> _ACEOF if { (eval echo "$as_me:$LINENO: \"$ac_cpp conftest.$ac_ext\"") >&5 (eval $ac_cpp conftest.$ac_ext) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } >/dev/null; then if test -s conftest.err; then ac_cpp_err=$ac_cxx_preproc_warn_flag ac_cpp_err=$ac_cpp_err$ac_cxx_werror_flag else ac_cpp_err= fi else ac_cpp_err=yes fi if test -z "$ac_cpp_err"; then ac_header_preproc=yes else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_header_preproc=no fi rm -f conftest.err conftest.$ac_ext echo "$as_me:$LINENO: result: $ac_header_preproc" >&5 echo "${ECHO_T}$ac_header_preproc" >&6 # So? What about this header? case $ac_header_compiler:$ac_header_preproc:$ac_cxx_preproc_warn_flag in yes:no: ) { echo "$as_me:$LINENO: WARNING: $ac_header: accepted by the compiler, rejected by the preprocessor!" >&5 echo "$as_me: WARNING: $ac_header: accepted by the compiler, rejected by the preprocessor!" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: proceeding with the compiler's result" >&5 echo "$as_me: WARNING: $ac_header: proceeding with the compiler's result" >&2;} ac_header_preproc=yes ;; no:yes:* ) { echo "$as_me:$LINENO: WARNING: $ac_header: present but cannot be compiled" >&5 echo "$as_me: WARNING: $ac_header: present but cannot be compiled" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: check for missing prerequisite headers?" >&5 echo "$as_me: WARNING: $ac_header: check for missing prerequisite headers?" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: see the Autoconf documentation" >&5 echo "$as_me: WARNING: $ac_header: see the Autoconf documentation" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: section \"Present But Cannot Be Compiled\"" >&5 echo "$as_me: WARNING: $ac_header: section \"Present But Cannot Be Compiled\"" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: proceeding with the preprocessor's result" >&5 echo "$as_me: WARNING: $ac_header: proceeding with the preprocessor's result" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: in the future, the compiler will take precedence" >&5 echo "$as_me: WARNING: $ac_header: in the future, the compiler will take precedence" >&2;} ( cat <<\_ASBOX ## ------------------------------------------ ## ## Report this to the AC_PACKAGE_NAME lists. ## ## ------------------------------------------ ## _ASBOX ) | sed "s/^/$as_me: WARNING: /" >&2 ;; esac echo "$as_me:$LINENO: checking for $ac_header" >&5 echo $ECHO_N "checking for $ac_header... $ECHO_C" >&6 if eval "test \"\${$as_ac_Header+set}\" = set"; then echo $ECHO_N "(cached) $ECHO_C" >&6 else eval "$as_ac_Header=\$ac_header_preproc" fi echo "$as_me:$LINENO: result: `eval echo '${'$as_ac_Header'}'`" >&5 echo "${ECHO_T}`eval echo '${'$as_ac_Header'}'`" >&6 fi if test `eval echo '${'$as_ac_Header'}'` = yes; then cat >>confdefs.h <<_ACEOF #define `echo "HAVE_$ac_header" | $as_tr_cpp` 1 _ACEOF fi done for ac_header in FL/Fl_Audio_Meter.H do as_ac_Header=`echo "ac_cv_header_$ac_header" | $as_tr_sh` if eval "test \"\${$as_ac_Header+set}\" = set"; then echo "$as_me:$LINENO: checking for $ac_header" >&5 echo $ECHO_N "checking for $ac_header... $ECHO_C" >&6 if eval "test \"\${$as_ac_Header+set}\" = set"; then echo $ECHO_N "(cached) $ECHO_C" >&6 fi echo "$as_me:$LINENO: result: `eval echo '${'$as_ac_Header'}'`" >&5 echo "${ECHO_T}`eval echo '${'$as_ac_Header'}'`" >&6 else # Is the header compilable? echo "$as_me:$LINENO: checking $ac_header usability" >&5 echo $ECHO_N "checking $ac_header usability... $ECHO_C" >&6 cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ $ac_includes_default #include <$ac_header> _ACEOF rm -f conftest.$ac_objext if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 (eval $ac_compile) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { ac_try='test -z "$ac_cxx_werror_flag" || test ! -s conftest.err' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; } && { ac_try='test -s conftest.$ac_objext' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then ac_header_compiler=yes else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_header_compiler=no fi rm -f conftest.err conftest.$ac_objext conftest.$ac_ext echo "$as_me:$LINENO: result: $ac_header_compiler" >&5 echo "${ECHO_T}$ac_header_compiler" >&6 # Is the header present? echo "$as_me:$LINENO: checking $ac_header presence" >&5 echo $ECHO_N "checking $ac_header presence... $ECHO_C" >&6 cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ #include <$ac_header> _ACEOF if { (eval echo "$as_me:$LINENO: \"$ac_cpp conftest.$ac_ext\"") >&5 (eval $ac_cpp conftest.$ac_ext) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } >/dev/null; then if test -s conftest.err; then ac_cpp_err=$ac_cxx_preproc_warn_flag ac_cpp_err=$ac_cpp_err$ac_cxx_werror_flag else ac_cpp_err= fi else ac_cpp_err=yes fi if test -z "$ac_cpp_err"; then ac_header_preproc=yes else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_header_preproc=no fi rm -f conftest.err conftest.$ac_ext echo "$as_me:$LINENO: result: $ac_header_preproc" >&5 echo "${ECHO_T}$ac_header_preproc" >&6 # So? What about this header? case $ac_header_compiler:$ac_header_preproc:$ac_cxx_preproc_warn_flag in yes:no: ) { echo "$as_me:$LINENO: WARNING: $ac_header: accepted by the compiler, rejected by the preprocessor!" >&5 echo "$as_me: WARNING: $ac_header: accepted by the compiler, rejected by the preprocessor!" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: proceeding with the compiler's result" >&5 echo "$as_me: WARNING: $ac_header: proceeding with the compiler's result" >&2;} ac_header_preproc=yes ;; no:yes:* ) { echo "$as_me:$LINENO: WARNING: $ac_header: present but cannot be compiled" >&5 echo "$as_me: WARNING: $ac_header: present but cannot be compiled" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: check for missing prerequisite headers?" >&5 echo "$as_me: WARNING: $ac_header: check for missing prerequisite headers?" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: see the Autoconf documentation" >&5 echo "$as_me: WARNING: $ac_header: see the Autoconf documentation" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: section \"Present But Cannot Be Compiled\"" >&5 echo "$as_me: WARNING: $ac_header: section \"Present But Cannot Be Compiled\"" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: proceeding with the preprocessor's result" >&5 echo "$as_me: WARNING: $ac_header: proceeding with the preprocessor's result" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: in the future, the compiler will take precedence" >&5 echo "$as_me: WARNING: $ac_header: in the future, the compiler will take precedence" >&2;} ( cat <<\_ASBOX ## ------------------------------------------ ## ## Report this to the AC_PACKAGE_NAME lists. ## ## ------------------------------------------ ## _ASBOX ) | sed "s/^/$as_me: WARNING: /" >&2 ;; esac echo "$as_me:$LINENO: checking for $ac_header" >&5 echo $ECHO_N "checking for $ac_header... $ECHO_C" >&6 if eval "test \"\${$as_ac_Header+set}\" = set"; then echo $ECHO_N "(cached) $ECHO_C" >&6 else eval "$as_ac_Header=\$ac_header_preproc" fi echo "$as_me:$LINENO: result: `eval echo '${'$as_ac_Header'}'`" >&5 echo "${ECHO_T}`eval echo '${'$as_ac_Header'}'`" >&6 fi if test `eval echo '${'$as_ac_Header'}'` = yes; then cat >>confdefs.h <<_ACEOF #define `echo "HAVE_$ac_header" | $as_tr_cpp` 1 _ACEOF fi done ac_ext=c ac_cpp='$CPP $CPPFLAGS' ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' ac_compiler_gnu=$ac_cv_c_compiler_gnu if test "${build}" == "${host}" then case "${host}" in x86_64-*) # X86_64 Linux machines may have both 64 bit and 32 bit libraries. We need to choose the right set as_ac_RealFile=`echo "ac_cv_real_file_${prefix}/lib64" | $as_tr_sh` echo "$as_me:$LINENO: checking for ${prefix}/lib64" >&5 echo $ECHO_N "checking for ${prefix}/lib64... $ECHO_C" >&6 if eval "test \"\${$as_ac_RealFile+set}\" = set"; then echo $ECHO_N "(cached) $ECHO_C" >&6 else test "$cross_compiling" = yes && { { echo "$as_me:$LINENO: error: cannot check for file existence when cross compiling" >&5 echo "$as_me: error: cannot check for file existence when cross compiling" >&2;} { (exit 1); exit 1; }; } if test -r "${prefix}/lib64" then if test -h "${prefix}/lib64" then eval "$as_ac_RealFile=no" else eval "$as_ac_RealFile=yes" fi else eval "$as_ac_RealFile=no" fi fi echo "$as_me:$LINENO: result: `eval echo '${'$as_ac_RealFile'}'`" >&5 echo "${ECHO_T}`eval echo '${'$as_ac_RealFile'}'`" >&6 if test `eval echo '${'$as_ac_RealFile'}'` = yes; then libdir='$(exec_prefix)/lib64' fi echo "$as_me:$LINENO: checking for /usr/X11R6/lib64" >&5 echo $ECHO_N "checking for /usr/X11R6/lib64... $ECHO_C" >&6 if test "${ac_cv_real_file__usr_X11R6_lib64+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else test "$cross_compiling" = yes && { { echo "$as_me:$LINENO: error: cannot check for file existence when cross compiling" >&5 echo "$as_me: error: cannot check for file existence when cross compiling" >&2;} { (exit 1); exit 1; }; } if test -r "/usr/X11R6/lib64" then if test -h "/usr/X11R6/lib64" then ac_cv_real_file__usr_X11R6_lib64=no else ac_cv_real_file__usr_X11R6_lib64=yes fi else ac_cv_real_file__usr_X11R6_lib64=no fi fi echo "$as_me:$LINENO: result: $ac_cv_real_file__usr_X11R6_lib64" >&5 echo "${ECHO_T}$ac_cv_real_file__usr_X11R6_lib64" >&6 if test $ac_cv_real_file__usr_X11R6_lib64 = yes; then TESTLIBS="$TESTLIBS -L/usr/X11R6/lib64" else echo "$as_me:$LINENO: checking for /usr/X11R6/lib" >&5 echo $ECHO_N "checking for /usr/X11R6/lib... $ECHO_C" >&6 if test "${ac_cv_file__usr_X11R6_lib+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else test "$cross_compiling" = yes && { { echo "$as_me:$LINENO: error: cannot check for file existence when cross compiling" >&5 echo "$as_me: error: cannot check for file existence when cross compiling" >&2;} { (exit 1); exit 1; }; } if test -r "/usr/X11R6/lib"; then ac_cv_file__usr_X11R6_lib=yes else ac_cv_file__usr_X11R6_lib=no fi fi echo "$as_me:$LINENO: result: $ac_cv_file__usr_X11R6_lib" >&5 echo "${ECHO_T}$ac_cv_file__usr_X11R6_lib" >&6 if test $ac_cv_file__usr_X11R6_lib = yes; then TESTLIBS="$TESTLIBS -L/usr/X11R6/lib" fi fi # The very oldest AMD 64 bit chips support SSE2, SSE and MMX enable_sse2="yes" ;; esac fi #AC_DEFINE([SPANDSP_SUPPORT_T85], [0], [Support T.85 JBIG compression]) SPANDSP_SUPPORT_T85="#undef SPANDSP_SUPPORT_T85" #AC_DEFINE([SPANDSP_SUPPORT_V34], [0], [Support the V.34 FAX modem]) SPANDSP_SUPPORT_V34="#undef SPANDSP_SUPPORT_V34" echo "$as_me:$LINENO: checking for cos in -lm" >&5 echo $ECHO_N "checking for cos in -lm... $ECHO_C" >&6 if test "${ac_cv_lib_m_cos+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else ac_check_lib_save_LIBS=$LIBS LIBS="-lm $LIBS" cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ /* Override any gcc2 internal prototype to avoid an error. */ #ifdef __cplusplus extern "C" #endif /* We use char because int might match the return type of a gcc2 builtin and then its argument prototype would still apply. */ char cos (); int main () { cos (); ; return 0; } _ACEOF rm -f conftest.$ac_objext conftest$ac_exeext if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5 (eval $ac_link) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { ac_try='test -z "$ac_c_werror_flag" || test ! -s conftest.err' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; } && { ac_try='test -s conftest$ac_exeext' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then ac_cv_lib_m_cos=yes else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_cv_lib_m_cos=no fi rm -f conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext LIBS=$ac_check_lib_save_LIBS fi echo "$as_me:$LINENO: result: $ac_cv_lib_m_cos" >&5 echo "${ECHO_T}$ac_cv_lib_m_cos" >&6 if test $ac_cv_lib_m_cos = yes; then cat >>confdefs.h <<_ACEOF #define HAVE_LIBM 1 _ACEOF LIBS="-lm $LIBS" fi # Some platforms still seem to lack the basic single precision trig and power related function. echo "$as_me:$LINENO: checking for library containing sinf" >&5 echo $ECHO_N "checking for library containing sinf... $ECHO_C" >&6 if test "${ac_cv_search_sinf+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else ac_func_search_save_LIBS=$LIBS ac_cv_search_sinf=no cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ /* Override any gcc2 internal prototype to avoid an error. */ #ifdef __cplusplus extern "C" #endif /* We use char because int might match the return type of a gcc2 builtin and then its argument prototype would still apply. */ char sinf (); int main () { sinf (); ; return 0; } _ACEOF rm -f conftest.$ac_objext conftest$ac_exeext if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5 (eval $ac_link) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { ac_try='test -z "$ac_c_werror_flag" || test ! -s conftest.err' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; } && { ac_try='test -s conftest$ac_exeext' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then ac_cv_search_sinf="none required" else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 fi rm -f conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext if test "$ac_cv_search_sinf" = no; then for ac_lib in m; do LIBS="-l$ac_lib $ac_func_search_save_LIBS" cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ /* Override any gcc2 internal prototype to avoid an error. */ #ifdef __cplusplus extern "C" #endif /* We use char because int might match the return type of a gcc2 builtin and then its argument prototype would still apply. */ char sinf (); int main () { sinf (); ; return 0; } _ACEOF rm -f conftest.$ac_objext conftest$ac_exeext if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5 (eval $ac_link) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { ac_try='test -z "$ac_c_werror_flag" || test ! -s conftest.err' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; } && { ac_try='test -s conftest$ac_exeext' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then ac_cv_search_sinf="-l$ac_lib" break else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 fi rm -f conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext done fi LIBS=$ac_func_search_save_LIBS fi echo "$as_me:$LINENO: result: $ac_cv_search_sinf" >&5 echo "${ECHO_T}$ac_cv_search_sinf" >&6 if test "$ac_cv_search_sinf" != no; then test "$ac_cv_search_sinf" = "none required" || LIBS="$ac_cv_search_sinf $LIBS" cat >>confdefs.h <<\_ACEOF #define HAVE_SINF 1 _ACEOF fi echo "$as_me:$LINENO: checking for library containing cosf" >&5 echo $ECHO_N "checking for library containing cosf... $ECHO_C" >&6 if test "${ac_cv_search_cosf+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else ac_func_search_save_LIBS=$LIBS ac_cv_search_cosf=no cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ /* Override any gcc2 internal prototype to avoid an error. */ #ifdef __cplusplus extern "C" #endif /* We use char because int might match the return type of a gcc2 builtin and then its argument prototype would still apply. */ char cosf (); int main () { cosf (); ; return 0; } _ACEOF rm -f conftest.$ac_objext conftest$ac_exeext if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5 (eval $ac_link) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { ac_try='test -z "$ac_c_werror_flag" || test ! -s conftest.err' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; } && { ac_try='test -s conftest$ac_exeext' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then ac_cv_search_cosf="none required" else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 fi rm -f conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext if test "$ac_cv_search_cosf" = no; then for ac_lib in m; do LIBS="-l$ac_lib $ac_func_search_save_LIBS" cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ /* Override any gcc2 internal prototype to avoid an error. */ #ifdef __cplusplus extern "C" #endif /* We use char because int might match the return type of a gcc2 builtin and then its argument prototype would still apply. */ char cosf (); int main () { cosf (); ; return 0; } _ACEOF rm -f conftest.$ac_objext conftest$ac_exeext if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5 (eval $ac_link) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { ac_try='test -z "$ac_c_werror_flag" || test ! -s conftest.err' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; } && { ac_try='test -s conftest$ac_exeext' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then ac_cv_search_cosf="-l$ac_lib" break else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 fi rm -f conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext done fi LIBS=$ac_func_search_save_LIBS fi echo "$as_me:$LINENO: result: $ac_cv_search_cosf" >&5 echo "${ECHO_T}$ac_cv_search_cosf" >&6 if test "$ac_cv_search_cosf" != no; then test "$ac_cv_search_cosf" = "none required" || LIBS="$ac_cv_search_cosf $LIBS" cat >>confdefs.h <<\_ACEOF #define HAVE_COSF 1 _ACEOF fi echo "$as_me:$LINENO: checking for library containing tanf" >&5 echo $ECHO_N "checking for library containing tanf... $ECHO_C" >&6 if test "${ac_cv_search_tanf+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else ac_func_search_save_LIBS=$LIBS ac_cv_search_tanf=no cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ /* Override any gcc2 internal prototype to avoid an error. */ #ifdef __cplusplus extern "C" #endif /* We use char because int might match the return type of a gcc2 builtin and then its argument prototype would still apply. */ char tanf (); int main () { tanf (); ; return 0; } _ACEOF rm -f conftest.$ac_objext conftest$ac_exeext if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5 (eval $ac_link) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { ac_try='test -z "$ac_c_werror_flag" || test ! -s conftest.err' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; } && { ac_try='test -s conftest$ac_exeext' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then ac_cv_search_tanf="none required" else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 fi rm -f conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext if test "$ac_cv_search_tanf" = no; then for ac_lib in m; do LIBS="-l$ac_lib $ac_func_search_save_LIBS" cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ /* Override any gcc2 internal prototype to avoid an error. */ #ifdef __cplusplus extern "C" #endif /* We use char because int might match the return type of a gcc2 builtin and then its argument prototype would still apply. */ char tanf (); int main () { tanf (); ; return 0; } _ACEOF rm -f conftest.$ac_objext conftest$ac_exeext if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5 (eval $ac_link) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { ac_try='test -z "$ac_c_werror_flag" || test ! -s conftest.err' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; } && { ac_try='test -s conftest$ac_exeext' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then ac_cv_search_tanf="-l$ac_lib" break else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 fi rm -f conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext done fi LIBS=$ac_func_search_save_LIBS fi echo "$as_me:$LINENO: result: $ac_cv_search_tanf" >&5 echo "${ECHO_T}$ac_cv_search_tanf" >&6 if test "$ac_cv_search_tanf" != no; then test "$ac_cv_search_tanf" = "none required" || LIBS="$ac_cv_search_tanf $LIBS" cat >>confdefs.h <<\_ACEOF #define HAVE_TANF 1 _ACEOF fi echo "$as_me:$LINENO: checking for library containing asinf" >&5 echo $ECHO_N "checking for library containing asinf... $ECHO_C" >&6 if test "${ac_cv_search_asinf+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else ac_func_search_save_LIBS=$LIBS ac_cv_search_asinf=no cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ /* Override any gcc2 internal prototype to avoid an error. */ #ifdef __cplusplus extern "C" #endif /* We use char because int might match the return type of a gcc2 builtin and then its argument prototype would still apply. */ char asinf (); int main () { asinf (); ; return 0; } _ACEOF rm -f conftest.$ac_objext conftest$ac_exeext if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5 (eval $ac_link) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { ac_try='test -z "$ac_c_werror_flag" || test ! -s conftest.err' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; } && { ac_try='test -s conftest$ac_exeext' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then ac_cv_search_asinf="none required" else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 fi rm -f conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext if test "$ac_cv_search_asinf" = no; then for ac_lib in m; do LIBS="-l$ac_lib $ac_func_search_save_LIBS" cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ /* Override any gcc2 internal prototype to avoid an error. */ #ifdef __cplusplus extern "C" #endif /* We use char because int might match the return type of a gcc2 builtin and then its argument prototype would still apply. */ char asinf (); int main () { asinf (); ; return 0; } _ACEOF rm -f conftest.$ac_objext conftest$ac_exeext if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5 (eval $ac_link) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { ac_try='test -z "$ac_c_werror_flag" || test ! -s conftest.err' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; } && { ac_try='test -s conftest$ac_exeext' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then ac_cv_search_asinf="-l$ac_lib" break else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 fi rm -f conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext done fi LIBS=$ac_func_search_save_LIBS fi echo "$as_me:$LINENO: result: $ac_cv_search_asinf" >&5 echo "${ECHO_T}$ac_cv_search_asinf" >&6 if test "$ac_cv_search_asinf" != no; then test "$ac_cv_search_asinf" = "none required" || LIBS="$ac_cv_search_asinf $LIBS" cat >>confdefs.h <<\_ACEOF #define HAVE_ASINF 1 _ACEOF fi echo "$as_me:$LINENO: checking for library containing acosf" >&5 echo $ECHO_N "checking for library containing acosf... $ECHO_C" >&6 if test "${ac_cv_search_acosf+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else ac_func_search_save_LIBS=$LIBS ac_cv_search_acosf=no cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ /* Override any gcc2 internal prototype to avoid an error. */ #ifdef __cplusplus extern "C" #endif /* We use char because int might match the return type of a gcc2 builtin and then its argument prototype would still apply. */ char acosf (); int main () { acosf (); ; return 0; } _ACEOF rm -f conftest.$ac_objext conftest$ac_exeext if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5 (eval $ac_link) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { ac_try='test -z "$ac_c_werror_flag" || test ! -s conftest.err' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; } && { ac_try='test -s conftest$ac_exeext' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then ac_cv_search_acosf="none required" else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 fi rm -f conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext if test "$ac_cv_search_acosf" = no; then for ac_lib in m; do LIBS="-l$ac_lib $ac_func_search_save_LIBS" cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ /* Override any gcc2 internal prototype to avoid an error. */ #ifdef __cplusplus extern "C" #endif /* We use char because int might match the return type of a gcc2 builtin and then its argument prototype would still apply. */ char acosf (); int main () { acosf (); ; return 0; } _ACEOF rm -f conftest.$ac_objext conftest$ac_exeext if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5 (eval $ac_link) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { ac_try='test -z "$ac_c_werror_flag" || test ! -s conftest.err' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; } && { ac_try='test -s conftest$ac_exeext' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then ac_cv_search_acosf="-l$ac_lib" break else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 fi rm -f conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext done fi LIBS=$ac_func_search_save_LIBS fi echo "$as_me:$LINENO: result: $ac_cv_search_acosf" >&5 echo "${ECHO_T}$ac_cv_search_acosf" >&6 if test "$ac_cv_search_acosf" != no; then test "$ac_cv_search_acosf" = "none required" || LIBS="$ac_cv_search_acosf $LIBS" cat >>confdefs.h <<\_ACEOF #define HAVE_ACOSF 1 _ACEOF fi echo "$as_me:$LINENO: checking for library containing atanf" >&5 echo $ECHO_N "checking for library containing atanf... $ECHO_C" >&6 if test "${ac_cv_search_atanf+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else ac_func_search_save_LIBS=$LIBS ac_cv_search_atanf=no cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ /* Override any gcc2 internal prototype to avoid an error. */ #ifdef __cplusplus extern "C" #endif /* We use char because int might match the return type of a gcc2 builtin and then its argument prototype would still apply. */ char atanf (); int main () { atanf (); ; return 0; } _ACEOF rm -f conftest.$ac_objext conftest$ac_exeext if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5 (eval $ac_link) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { ac_try='test -z "$ac_c_werror_flag" || test ! -s conftest.err' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; } && { ac_try='test -s conftest$ac_exeext' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then ac_cv_search_atanf="none required" else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 fi rm -f conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext if test "$ac_cv_search_atanf" = no; then for ac_lib in m; do LIBS="-l$ac_lib $ac_func_search_save_LIBS" cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ /* Override any gcc2 internal prototype to avoid an error. */ #ifdef __cplusplus extern "C" #endif /* We use char because int might match the return type of a gcc2 builtin and then its argument prototype would still apply. */ char atanf (); int main () { atanf (); ; return 0; } _ACEOF rm -f conftest.$ac_objext conftest$ac_exeext if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5 (eval $ac_link) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { ac_try='test -z "$ac_c_werror_flag" || test ! -s conftest.err' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; } && { ac_try='test -s conftest$ac_exeext' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then ac_cv_search_atanf="-l$ac_lib" break else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 fi rm -f conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext done fi LIBS=$ac_func_search_save_LIBS fi echo "$as_me:$LINENO: result: $ac_cv_search_atanf" >&5 echo "${ECHO_T}$ac_cv_search_atanf" >&6 if test "$ac_cv_search_atanf" != no; then test "$ac_cv_search_atanf" = "none required" || LIBS="$ac_cv_search_atanf $LIBS" cat >>confdefs.h <<\_ACEOF #define HAVE_ATANF 1 _ACEOF fi echo "$as_me:$LINENO: checking for library containing atan2f" >&5 echo $ECHO_N "checking for library containing atan2f... $ECHO_C" >&6 if test "${ac_cv_search_atan2f+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else ac_func_search_save_LIBS=$LIBS ac_cv_search_atan2f=no cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ /* Override any gcc2 internal prototype to avoid an error. */ #ifdef __cplusplus extern "C" #endif /* We use char because int might match the return type of a gcc2 builtin and then its argument prototype would still apply. */ char atan2f (); int main () { atan2f (); ; return 0; } _ACEOF rm -f conftest.$ac_objext conftest$ac_exeext if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5 (eval $ac_link) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { ac_try='test -z "$ac_c_werror_flag" || test ! -s conftest.err' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; } && { ac_try='test -s conftest$ac_exeext' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then ac_cv_search_atan2f="none required" else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 fi rm -f conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext if test "$ac_cv_search_atan2f" = no; then for ac_lib in m; do LIBS="-l$ac_lib $ac_func_search_save_LIBS" cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ /* Override any gcc2 internal prototype to avoid an error. */ #ifdef __cplusplus extern "C" #endif /* We use char because int might match the return type of a gcc2 builtin and then its argument prototype would still apply. */ char atan2f (); int main () { atan2f (); ; return 0; } _ACEOF rm -f conftest.$ac_objext conftest$ac_exeext if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5 (eval $ac_link) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { ac_try='test -z "$ac_c_werror_flag" || test ! -s conftest.err' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; } && { ac_try='test -s conftest$ac_exeext' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then ac_cv_search_atan2f="-l$ac_lib" break else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 fi rm -f conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext done fi LIBS=$ac_func_search_save_LIBS fi echo "$as_me:$LINENO: result: $ac_cv_search_atan2f" >&5 echo "${ECHO_T}$ac_cv_search_atan2f" >&6 if test "$ac_cv_search_atan2f" != no; then test "$ac_cv_search_atan2f" = "none required" || LIBS="$ac_cv_search_atan2f $LIBS" cat >>confdefs.h <<\_ACEOF #define HAVE_ATAN2F 1 _ACEOF fi echo "$as_me:$LINENO: checking for library containing ceilf" >&5 echo $ECHO_N "checking for library containing ceilf... $ECHO_C" >&6 if test "${ac_cv_search_ceilf+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else ac_func_search_save_LIBS=$LIBS ac_cv_search_ceilf=no cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ /* Override any gcc2 internal prototype to avoid an error. */ #ifdef __cplusplus extern "C" #endif /* We use char because int might match the return type of a gcc2 builtin and then its argument prototype would still apply. */ char ceilf (); int main () { ceilf (); ; return 0; } _ACEOF rm -f conftest.$ac_objext conftest$ac_exeext if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5 (eval $ac_link) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { ac_try='test -z "$ac_c_werror_flag" || test ! -s conftest.err' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; } && { ac_try='test -s conftest$ac_exeext' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then ac_cv_search_ceilf="none required" else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 fi rm -f conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext if test "$ac_cv_search_ceilf" = no; then for ac_lib in m; do LIBS="-l$ac_lib $ac_func_search_save_LIBS" cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ /* Override any gcc2 internal prototype to avoid an error. */ #ifdef __cplusplus extern "C" #endif /* We use char because int might match the return type of a gcc2 builtin and then its argument prototype would still apply. */ char ceilf (); int main () { ceilf (); ; return 0; } _ACEOF rm -f conftest.$ac_objext conftest$ac_exeext if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5 (eval $ac_link) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { ac_try='test -z "$ac_c_werror_flag" || test ! -s conftest.err' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; } && { ac_try='test -s conftest$ac_exeext' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then ac_cv_search_ceilf="-l$ac_lib" break else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 fi rm -f conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext done fi LIBS=$ac_func_search_save_LIBS fi echo "$as_me:$LINENO: result: $ac_cv_search_ceilf" >&5 echo "${ECHO_T}$ac_cv_search_ceilf" >&6 if test "$ac_cv_search_ceilf" != no; then test "$ac_cv_search_ceilf" = "none required" || LIBS="$ac_cv_search_ceilf $LIBS" cat >>confdefs.h <<\_ACEOF #define HAVE_CEILF 1 _ACEOF fi echo "$as_me:$LINENO: checking for library containing floorf" >&5 echo $ECHO_N "checking for library containing floorf... $ECHO_C" >&6 if test "${ac_cv_search_floorf+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else ac_func_search_save_LIBS=$LIBS ac_cv_search_floorf=no cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ /* Override any gcc2 internal prototype to avoid an error. */ #ifdef __cplusplus extern "C" #endif /* We use char because int might match the return type of a gcc2 builtin and then its argument prototype would still apply. */ char floorf (); int main () { floorf (); ; return 0; } _ACEOF rm -f conftest.$ac_objext conftest$ac_exeext if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5 (eval $ac_link) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { ac_try='test -z "$ac_c_werror_flag" || test ! -s conftest.err' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; } && { ac_try='test -s conftest$ac_exeext' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then ac_cv_search_floorf="none required" else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 fi rm -f conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext if test "$ac_cv_search_floorf" = no; then for ac_lib in m; do LIBS="-l$ac_lib $ac_func_search_save_LIBS" cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ /* Override any gcc2 internal prototype to avoid an error. */ #ifdef __cplusplus extern "C" #endif /* We use char because int might match the return type of a gcc2 builtin and then its argument prototype would still apply. */ char floorf (); int main () { floorf (); ; return 0; } _ACEOF rm -f conftest.$ac_objext conftest$ac_exeext if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5 (eval $ac_link) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { ac_try='test -z "$ac_c_werror_flag" || test ! -s conftest.err' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; } && { ac_try='test -s conftest$ac_exeext' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then ac_cv_search_floorf="-l$ac_lib" break else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 fi rm -f conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext done fi LIBS=$ac_func_search_save_LIBS fi echo "$as_me:$LINENO: result: $ac_cv_search_floorf" >&5 echo "${ECHO_T}$ac_cv_search_floorf" >&6 if test "$ac_cv_search_floorf" != no; then test "$ac_cv_search_floorf" = "none required" || LIBS="$ac_cv_search_floorf $LIBS" cat >>confdefs.h <<\_ACEOF #define HAVE_FLOORF 1 _ACEOF fi echo "$as_me:$LINENO: checking for library containing powf" >&5 echo $ECHO_N "checking for library containing powf... $ECHO_C" >&6 if test "${ac_cv_search_powf+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else ac_func_search_save_LIBS=$LIBS ac_cv_search_powf=no cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ /* Override any gcc2 internal prototype to avoid an error. */ #ifdef __cplusplus extern "C" #endif /* We use char because int might match the return type of a gcc2 builtin and then its argument prototype would still apply. */ char powf (); int main () { powf (); ; return 0; } _ACEOF rm -f conftest.$ac_objext conftest$ac_exeext if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5 (eval $ac_link) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { ac_try='test -z "$ac_c_werror_flag" || test ! -s conftest.err' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; } && { ac_try='test -s conftest$ac_exeext' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then ac_cv_search_powf="none required" else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 fi rm -f conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext if test "$ac_cv_search_powf" = no; then for ac_lib in m; do LIBS="-l$ac_lib $ac_func_search_save_LIBS" cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ /* Override any gcc2 internal prototype to avoid an error. */ #ifdef __cplusplus extern "C" #endif /* We use char because int might match the return type of a gcc2 builtin and then its argument prototype would still apply. */ char powf (); int main () { powf (); ; return 0; } _ACEOF rm -f conftest.$ac_objext conftest$ac_exeext if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5 (eval $ac_link) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { ac_try='test -z "$ac_c_werror_flag" || test ! -s conftest.err' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; } && { ac_try='test -s conftest$ac_exeext' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then ac_cv_search_powf="-l$ac_lib" break else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 fi rm -f conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext done fi LIBS=$ac_func_search_save_LIBS fi echo "$as_me:$LINENO: result: $ac_cv_search_powf" >&5 echo "${ECHO_T}$ac_cv_search_powf" >&6 if test "$ac_cv_search_powf" != no; then test "$ac_cv_search_powf" = "none required" || LIBS="$ac_cv_search_powf $LIBS" cat >>confdefs.h <<\_ACEOF #define HAVE_POWF 1 _ACEOF fi echo "$as_me:$LINENO: checking for library containing expf" >&5 echo $ECHO_N "checking for library containing expf... $ECHO_C" >&6 if test "${ac_cv_search_expf+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else ac_func_search_save_LIBS=$LIBS ac_cv_search_expf=no cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ /* Override any gcc2 internal prototype to avoid an error. */ #ifdef __cplusplus extern "C" #endif /* We use char because int might match the return type of a gcc2 builtin and then its argument prototype would still apply. */ char expf (); int main () { expf (); ; return 0; } _ACEOF rm -f conftest.$ac_objext conftest$ac_exeext if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5 (eval $ac_link) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { ac_try='test -z "$ac_c_werror_flag" || test ! -s conftest.err' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; } && { ac_try='test -s conftest$ac_exeext' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then ac_cv_search_expf="none required" else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 fi rm -f conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext if test "$ac_cv_search_expf" = no; then for ac_lib in m; do LIBS="-l$ac_lib $ac_func_search_save_LIBS" cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ /* Override any gcc2 internal prototype to avoid an error. */ #ifdef __cplusplus extern "C" #endif /* We use char because int might match the return type of a gcc2 builtin and then its argument prototype would still apply. */ char expf (); int main () { expf (); ; return 0; } _ACEOF rm -f conftest.$ac_objext conftest$ac_exeext if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5 (eval $ac_link) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { ac_try='test -z "$ac_c_werror_flag" || test ! -s conftest.err' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; } && { ac_try='test -s conftest$ac_exeext' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then ac_cv_search_expf="-l$ac_lib" break else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 fi rm -f conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext done fi LIBS=$ac_func_search_save_LIBS fi echo "$as_me:$LINENO: result: $ac_cv_search_expf" >&5 echo "${ECHO_T}$ac_cv_search_expf" >&6 if test "$ac_cv_search_expf" != no; then test "$ac_cv_search_expf" = "none required" || LIBS="$ac_cv_search_expf $LIBS" cat >>confdefs.h <<\_ACEOF #define HAVE_EXPF 1 _ACEOF fi echo "$as_me:$LINENO: checking for library containing logf" >&5 echo $ECHO_N "checking for library containing logf... $ECHO_C" >&6 if test "${ac_cv_search_logf+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else ac_func_search_save_LIBS=$LIBS ac_cv_search_logf=no cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ /* Override any gcc2 internal prototype to avoid an error. */ #ifdef __cplusplus extern "C" #endif /* We use char because int might match the return type of a gcc2 builtin and then its argument prototype would still apply. */ char logf (); int main () { logf (); ; return 0; } _ACEOF rm -f conftest.$ac_objext conftest$ac_exeext if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5 (eval $ac_link) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { ac_try='test -z "$ac_c_werror_flag" || test ! -s conftest.err' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; } && { ac_try='test -s conftest$ac_exeext' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then ac_cv_search_logf="none required" else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 fi rm -f conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext if test "$ac_cv_search_logf" = no; then for ac_lib in m; do LIBS="-l$ac_lib $ac_func_search_save_LIBS" cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ /* Override any gcc2 internal prototype to avoid an error. */ #ifdef __cplusplus extern "C" #endif /* We use char because int might match the return type of a gcc2 builtin and then its argument prototype would still apply. */ char logf (); int main () { logf (); ; return 0; } _ACEOF rm -f conftest.$ac_objext conftest$ac_exeext if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5 (eval $ac_link) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { ac_try='test -z "$ac_c_werror_flag" || test ! -s conftest.err' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; } && { ac_try='test -s conftest$ac_exeext' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then ac_cv_search_logf="-l$ac_lib" break else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 fi rm -f conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext done fi LIBS=$ac_func_search_save_LIBS fi echo "$as_me:$LINENO: result: $ac_cv_search_logf" >&5 echo "${ECHO_T}$ac_cv_search_logf" >&6 if test "$ac_cv_search_logf" != no; then test "$ac_cv_search_logf" = "none required" || LIBS="$ac_cv_search_logf $LIBS" cat >>confdefs.h <<\_ACEOF #define HAVE_LOGF 1 _ACEOF fi echo "$as_me:$LINENO: checking for library containing log10f" >&5 echo $ECHO_N "checking for library containing log10f... $ECHO_C" >&6 if test "${ac_cv_search_log10f+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else ac_func_search_save_LIBS=$LIBS ac_cv_search_log10f=no cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ /* Override any gcc2 internal prototype to avoid an error. */ #ifdef __cplusplus extern "C" #endif /* We use char because int might match the return type of a gcc2 builtin and then its argument prototype would still apply. */ char log10f (); int main () { log10f (); ; return 0; } _ACEOF rm -f conftest.$ac_objext conftest$ac_exeext if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5 (eval $ac_link) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { ac_try='test -z "$ac_c_werror_flag" || test ! -s conftest.err' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; } && { ac_try='test -s conftest$ac_exeext' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then ac_cv_search_log10f="none required" else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 fi rm -f conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext if test "$ac_cv_search_log10f" = no; then for ac_lib in m; do LIBS="-l$ac_lib $ac_func_search_save_LIBS" cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ /* Override any gcc2 internal prototype to avoid an error. */ #ifdef __cplusplus extern "C" #endif /* We use char because int might match the return type of a gcc2 builtin and then its argument prototype would still apply. */ char log10f (); int main () { log10f (); ; return 0; } _ACEOF rm -f conftest.$ac_objext conftest$ac_exeext if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5 (eval $ac_link) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { ac_try='test -z "$ac_c_werror_flag" || test ! -s conftest.err' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; } && { ac_try='test -s conftest$ac_exeext' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then ac_cv_search_log10f="-l$ac_lib" break else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 fi rm -f conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext done fi LIBS=$ac_func_search_save_LIBS fi echo "$as_me:$LINENO: result: $ac_cv_search_log10f" >&5 echo "${ECHO_T}$ac_cv_search_log10f" >&6 if test "$ac_cv_search_log10f" != no; then test "$ac_cv_search_log10f" = "none required" || LIBS="$ac_cv_search_log10f $LIBS" cat >>confdefs.h <<\_ACEOF #define HAVE_LOG10F 1 _ACEOF fi # Checks for libraries. echo "$as_me:$LINENO: checking for xmlParseFile in -lxml2" >&5 echo $ECHO_N "checking for xmlParseFile in -lxml2... $ECHO_C" >&6 if test "${ac_cv_lib_xml2_xmlParseFile+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else ac_check_lib_save_LIBS=$LIBS LIBS="-lxml2 $LIBS" cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ /* Override any gcc2 internal prototype to avoid an error. */ #ifdef __cplusplus extern "C" #endif /* We use char because int might match the return type of a gcc2 builtin and then its argument prototype would still apply. */ char xmlParseFile (); int main () { xmlParseFile (); ; return 0; } _ACEOF rm -f conftest.$ac_objext conftest$ac_exeext if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5 (eval $ac_link) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { ac_try='test -z "$ac_c_werror_flag" || test ! -s conftest.err' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; } && { ac_try='test -s conftest$ac_exeext' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then ac_cv_lib_xml2_xmlParseFile=yes else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_cv_lib_xml2_xmlParseFile=no fi rm -f conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext LIBS=$ac_check_lib_save_LIBS fi echo "$as_me:$LINENO: result: $ac_cv_lib_xml2_xmlParseFile" >&5 echo "${ECHO_T}$ac_cv_lib_xml2_xmlParseFile" >&6 if test $ac_cv_lib_xml2_xmlParseFile = yes; then cat >>confdefs.h <<\_ACEOF #define HAVE_LIBXML2 1 _ACEOF SIMLIBS="$SIMLIBS -lxml2" fi if test -n "$enable_tests" ; then ac_ext=c ac_cpp='$CPP $CPPFLAGS' ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' ac_compiler_gnu=$ac_cv_c_compiler_gnu echo "$as_me:$LINENO: checking for sf_open in -lsndfile" >&5 echo $ECHO_N "checking for sf_open in -lsndfile... $ECHO_C" >&6 if test "${ac_cv_lib_sndfile_sf_open+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else ac_check_lib_save_LIBS=$LIBS LIBS="-lsndfile $LIBS" cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ /* Override any gcc2 internal prototype to avoid an error. */ #ifdef __cplusplus extern "C" #endif /* We use char because int might match the return type of a gcc2 builtin and then its argument prototype would still apply. */ char sf_open (); int main () { sf_open (); ; return 0; } _ACEOF rm -f conftest.$ac_objext conftest$ac_exeext if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5 (eval $ac_link) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { ac_try='test -z "$ac_c_werror_flag" || test ! -s conftest.err' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; } && { ac_try='test -s conftest$ac_exeext' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then ac_cv_lib_sndfile_sf_open=yes else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_cv_lib_sndfile_sf_open=no fi rm -f conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext LIBS=$ac_check_lib_save_LIBS fi echo "$as_me:$LINENO: result: $ac_cv_lib_sndfile_sf_open" >&5 echo "${ECHO_T}$ac_cv_lib_sndfile_sf_open" >&6 if test $ac_cv_lib_sndfile_sf_open = yes; then SIMLIBS="$SIMLIBS -lsndfile" else { { echo "$as_me:$LINENO: error: \"Can't make tests without libsndfile (does your system require a libsndfile-devel package?)\"" >&5 echo "$as_me: error: \"Can't make tests without libsndfile (does your system require a libsndfile-devel package?)\"" >&2;} { (exit 1); exit 1; }; } fi echo "$as_me:$LINENO: checking for fftw_plan_dft_1d in -lfftw3" >&5 echo $ECHO_N "checking for fftw_plan_dft_1d in -lfftw3... $ECHO_C" >&6 if test "${ac_cv_lib_fftw3_fftw_plan_dft_1d+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else ac_check_lib_save_LIBS=$LIBS LIBS="-lfftw3 $LIBS" cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ /* Override any gcc2 internal prototype to avoid an error. */ #ifdef __cplusplus extern "C" #endif /* We use char because int might match the return type of a gcc2 builtin and then its argument prototype would still apply. */ char fftw_plan_dft_1d (); int main () { fftw_plan_dft_1d (); ; return 0; } _ACEOF rm -f conftest.$ac_objext conftest$ac_exeext if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5 (eval $ac_link) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { ac_try='test -z "$ac_c_werror_flag" || test ! -s conftest.err' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; } && { ac_try='test -s conftest$ac_exeext' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then ac_cv_lib_fftw3_fftw_plan_dft_1d=yes else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_cv_lib_fftw3_fftw_plan_dft_1d=no fi rm -f conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext LIBS=$ac_check_lib_save_LIBS fi echo "$as_me:$LINENO: result: $ac_cv_lib_fftw3_fftw_plan_dft_1d" >&5 echo "${ECHO_T}$ac_cv_lib_fftw3_fftw_plan_dft_1d" >&6 if test $ac_cv_lib_fftw3_fftw_plan_dft_1d = yes; then SIMLIBS="$SIMLIBS -lfftw3" else echo "$as_me:$LINENO: checking for fftw_create_plan in -lfftw" >&5 echo $ECHO_N "checking for fftw_create_plan in -lfftw... $ECHO_C" >&6 if test "${ac_cv_lib_fftw_fftw_create_plan+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else ac_check_lib_save_LIBS=$LIBS LIBS="-lfftw $LIBS" cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ /* Override any gcc2 internal prototype to avoid an error. */ #ifdef __cplusplus extern "C" #endif /* We use char because int might match the return type of a gcc2 builtin and then its argument prototype would still apply. */ char fftw_create_plan (); int main () { fftw_create_plan (); ; return 0; } _ACEOF rm -f conftest.$ac_objext conftest$ac_exeext if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5 (eval $ac_link) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { ac_try='test -z "$ac_c_werror_flag" || test ! -s conftest.err' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; } && { ac_try='test -s conftest$ac_exeext' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then ac_cv_lib_fftw_fftw_create_plan=yes else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_cv_lib_fftw_fftw_create_plan=no fi rm -f conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext LIBS=$ac_check_lib_save_LIBS fi echo "$as_me:$LINENO: result: $ac_cv_lib_fftw_fftw_create_plan" >&5 echo "${ECHO_T}$ac_cv_lib_fftw_fftw_create_plan" >&6 if test $ac_cv_lib_fftw_fftw_create_plan = yes; then SIMLIBS="$SIMLIBS -lfftw" else { { echo "$as_me:$LINENO: error: \"Can't make tests without FFTW 2 or 3 (does your system require an fftw?-devel package?)\"" >&5 echo "$as_me: error: \"Can't make tests without FFTW 2 or 3 (does your system require an fftw?-devel package?)\"" >&2;} { (exit 1); exit 1; }; } fi fi echo "$as_me:$LINENO: checking for pcap_open_offline in -lpcap" >&5 echo $ECHO_N "checking for pcap_open_offline in -lpcap... $ECHO_C" >&6 if test "${ac_cv_lib_pcap_pcap_open_offline+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else ac_check_lib_save_LIBS=$LIBS LIBS="-lpcap $LIBS" cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ /* Override any gcc2 internal prototype to avoid an error. */ #ifdef __cplusplus extern "C" #endif /* We use char because int might match the return type of a gcc2 builtin and then its argument prototype would still apply. */ char pcap_open_offline (); int main () { pcap_open_offline (); ; return 0; } _ACEOF rm -f conftest.$ac_objext conftest$ac_exeext if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5 (eval $ac_link) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { ac_try='test -z "$ac_c_werror_flag" || test ! -s conftest.err' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; } && { ac_try='test -s conftest$ac_exeext' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then ac_cv_lib_pcap_pcap_open_offline=yes else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_cv_lib_pcap_pcap_open_offline=no fi rm -f conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext LIBS=$ac_check_lib_save_LIBS fi echo "$as_me:$LINENO: result: $ac_cv_lib_pcap_pcap_open_offline" >&5 echo "${ECHO_T}$ac_cv_lib_pcap_pcap_open_offline" >&6 if test $ac_cv_lib_pcap_pcap_open_offline = yes; then TESTLIBS="$TESTLIBS -lpcap" else { { echo "$as_me:$LINENO: error: \"Can't make tests without libpcap (does your system require a libpcap-devel package?)\"" >&5 echo "$as_me: error: \"Can't make tests without libpcap (does your system require a libpcap-devel package?)\"" >&2;} { (exit 1); exit 1; }; } fi echo "$as_me:$LINENO: checking for pthread_attr_init in -lpthread" >&5 echo $ECHO_N "checking for pthread_attr_init in -lpthread... $ECHO_C" >&6 if test "${ac_cv_lib_pthread_pthread_attr_init+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else ac_check_lib_save_LIBS=$LIBS LIBS="-lpthread $LIBS" cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ /* Override any gcc2 internal prototype to avoid an error. */ #ifdef __cplusplus extern "C" #endif /* We use char because int might match the return type of a gcc2 builtin and then its argument prototype would still apply. */ char pthread_attr_init (); int main () { pthread_attr_init (); ; return 0; } _ACEOF rm -f conftest.$ac_objext conftest$ac_exeext if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5 (eval $ac_link) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { ac_try='test -z "$ac_c_werror_flag" || test ! -s conftest.err' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; } && { ac_try='test -s conftest$ac_exeext' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then ac_cv_lib_pthread_pthread_attr_init=yes else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_cv_lib_pthread_pthread_attr_init=no fi rm -f conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext LIBS=$ac_check_lib_save_LIBS fi echo "$as_me:$LINENO: result: $ac_cv_lib_pthread_pthread_attr_init" >&5 echo "${ECHO_T}$ac_cv_lib_pthread_pthread_attr_init" >&6 if test $ac_cv_lib_pthread_pthread_attr_init = yes; then TESTLIBS="$TESTLIBS -lpthread" fi echo "$as_me:$LINENO: checking for dlopen in -ldl" >&5 echo $ECHO_N "checking for dlopen in -ldl... $ECHO_C" >&6 if test "${ac_cv_lib_dl_dlopen+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else ac_check_lib_save_LIBS=$LIBS LIBS="-ldl $LIBS" cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ /* Override any gcc2 internal prototype to avoid an error. */ #ifdef __cplusplus extern "C" #endif /* We use char because int might match the return type of a gcc2 builtin and then its argument prototype would still apply. */ char dlopen (); int main () { dlopen (); ; return 0; } _ACEOF rm -f conftest.$ac_objext conftest$ac_exeext if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5 (eval $ac_link) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { ac_try='test -z "$ac_c_werror_flag" || test ! -s conftest.err' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; } && { ac_try='test -s conftest$ac_exeext' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then ac_cv_lib_dl_dlopen=yes else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_cv_lib_dl_dlopen=no fi rm -f conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext LIBS=$ac_check_lib_save_LIBS fi echo "$as_me:$LINENO: result: $ac_cv_lib_dl_dlopen" >&5 echo "${ECHO_T}$ac_cv_lib_dl_dlopen" >&6 if test $ac_cv_lib_dl_dlopen = yes; then TESTLIBS="$TESTLIBS -ldl" fi echo "$as_me:$LINENO: checking for XftFontOpen in -lXft" >&5 echo $ECHO_N "checking for XftFontOpen in -lXft... $ECHO_C" >&6 if test "${ac_cv_lib_Xft_XftFontOpen+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else ac_check_lib_save_LIBS=$LIBS LIBS="-lXft $TESTLIBS $LIBS" cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ /* Override any gcc2 internal prototype to avoid an error. */ #ifdef __cplusplus extern "C" #endif /* We use char because int might match the return type of a gcc2 builtin and then its argument prototype would still apply. */ char XftFontOpen (); int main () { XftFontOpen (); ; return 0; } _ACEOF rm -f conftest.$ac_objext conftest$ac_exeext if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5 (eval $ac_link) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { ac_try='test -z "$ac_c_werror_flag" || test ! -s conftest.err' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; } && { ac_try='test -s conftest$ac_exeext' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then ac_cv_lib_Xft_XftFontOpen=yes else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_cv_lib_Xft_XftFontOpen=no fi rm -f conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext LIBS=$ac_check_lib_save_LIBS fi echo "$as_me:$LINENO: result: $ac_cv_lib_Xft_XftFontOpen" >&5 echo "${ECHO_T}$ac_cv_lib_Xft_XftFontOpen" >&6 if test $ac_cv_lib_Xft_XftFontOpen = yes; then TESTLIBS="$TESTLIBS -lXft" fi echo "$as_me:$LINENO: checking for XextCreateExtension in -lXext" >&5 echo $ECHO_N "checking for XextCreateExtension in -lXext... $ECHO_C" >&6 if test "${ac_cv_lib_Xext_XextCreateExtension+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else ac_check_lib_save_LIBS=$LIBS LIBS="-lXext $TESTLIBS $LIBS" cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ /* Override any gcc2 internal prototype to avoid an error. */ #ifdef __cplusplus extern "C" #endif /* We use char because int might match the return type of a gcc2 builtin and then its argument prototype would still apply. */ char XextCreateExtension (); int main () { XextCreateExtension (); ; return 0; } _ACEOF rm -f conftest.$ac_objext conftest$ac_exeext if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5 (eval $ac_link) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { ac_try='test -z "$ac_c_werror_flag" || test ! -s conftest.err' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; } && { ac_try='test -s conftest$ac_exeext' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then ac_cv_lib_Xext_XextCreateExtension=yes else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_cv_lib_Xext_XextCreateExtension=no fi rm -f conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext LIBS=$ac_check_lib_save_LIBS fi echo "$as_me:$LINENO: result: $ac_cv_lib_Xext_XextCreateExtension" >&5 echo "${ECHO_T}$ac_cv_lib_Xext_XextCreateExtension" >&6 if test $ac_cv_lib_Xext_XextCreateExtension = yes; then TESTLIBS="$TESTLIBS -lXext" fi echo "$as_me:$LINENO: checking for XOpenDisplay in -lX11" >&5 echo $ECHO_N "checking for XOpenDisplay in -lX11... $ECHO_C" >&6 if test "${ac_cv_lib_X11_XOpenDisplay+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else ac_check_lib_save_LIBS=$LIBS LIBS="-lX11 $TESTLIBS $LIBS" cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ /* Override any gcc2 internal prototype to avoid an error. */ #ifdef __cplusplus extern "C" #endif /* We use char because int might match the return type of a gcc2 builtin and then its argument prototype would still apply. */ char XOpenDisplay (); int main () { XOpenDisplay (); ; return 0; } _ACEOF rm -f conftest.$ac_objext conftest$ac_exeext if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5 (eval $ac_link) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { ac_try='test -z "$ac_c_werror_flag" || test ! -s conftest.err' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; } && { ac_try='test -s conftest$ac_exeext' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then ac_cv_lib_X11_XOpenDisplay=yes else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_cv_lib_X11_XOpenDisplay=no fi rm -f conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext LIBS=$ac_check_lib_save_LIBS fi echo "$as_me:$LINENO: result: $ac_cv_lib_X11_XOpenDisplay" >&5 echo "${ECHO_T}$ac_cv_lib_X11_XOpenDisplay" >&6 if test $ac_cv_lib_X11_XOpenDisplay = yes; then TESTLIBS="$TESTLIBS -lX11" fi ac_ext=cc ac_cpp='$CXXCPP $CPPFLAGS' ac_compile='$CXX -c $CXXFLAGS $CPPFLAGS conftest.$ac_ext >&5' ac_link='$CXX -o conftest$ac_exeext $CXXFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' ac_compiler_gnu=$ac_cv_cxx_compiler_gnu echo "$as_me:$LINENO: checking for main in -lfltk" >&5 echo $ECHO_N "checking for main in -lfltk... $ECHO_C" >&6 if test "${ac_cv_lib_fltk_main+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else ac_check_lib_save_LIBS=$LIBS LIBS="-lfltk $TESTLIBS $LIBS" cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ int main () { main (); ; return 0; } _ACEOF rm -f conftest.$ac_objext conftest$ac_exeext if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5 (eval $ac_link) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { ac_try='test -z "$ac_cxx_werror_flag" || test ! -s conftest.err' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; } && { ac_try='test -s conftest$ac_exeext' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then ac_cv_lib_fltk_main=yes else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_cv_lib_fltk_main=no fi rm -f conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext LIBS=$ac_check_lib_save_LIBS fi echo "$as_me:$LINENO: result: $ac_cv_lib_fltk_main" >&5 echo "${ECHO_T}$ac_cv_lib_fltk_main" >&6 if test $ac_cv_lib_fltk_main = yes; then TESTLIBS="$TESTLIBS -lfltk -lsupc++" fi echo "$as_me:$LINENO: checking for main in -lfltk_cartesian" >&5 echo $ECHO_N "checking for main in -lfltk_cartesian... $ECHO_C" >&6 if test "${ac_cv_lib_fltk_cartesian_main+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else ac_check_lib_save_LIBS=$LIBS LIBS="-lfltk_cartesian $TESTLIBS $LIBS" cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ int main () { main (); ; return 0; } _ACEOF rm -f conftest.$ac_objext conftest$ac_exeext if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5 (eval $ac_link) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { ac_try='test -z "$ac_cxx_werror_flag" || test ! -s conftest.err' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; } && { ac_try='test -s conftest$ac_exeext' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then ac_cv_lib_fltk_cartesian_main=yes else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_cv_lib_fltk_cartesian_main=no fi rm -f conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext LIBS=$ac_check_lib_save_LIBS fi echo "$as_me:$LINENO: result: $ac_cv_lib_fltk_cartesian_main" >&5 echo "${ECHO_T}$ac_cv_lib_fltk_cartesian_main" >&6 if test $ac_cv_lib_fltk_cartesian_main = yes; then TESTLIBS="-lfltk_cartesian $TESTLIBS" fi echo "$as_me:$LINENO: checking for main in -lfltk_audio_meter" >&5 echo $ECHO_N "checking for main in -lfltk_audio_meter... $ECHO_C" >&6 if test "${ac_cv_lib_fltk_audio_meter_main+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else ac_check_lib_save_LIBS=$LIBS LIBS="-lfltk_audio_meter $TESTLIBS $LIBS" cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ int main () { main (); ; return 0; } _ACEOF rm -f conftest.$ac_objext conftest$ac_exeext if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5 (eval $ac_link) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { ac_try='test -z "$ac_cxx_werror_flag" || test ! -s conftest.err' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; } && { ac_try='test -s conftest$ac_exeext' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then ac_cv_lib_fltk_audio_meter_main=yes else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_cv_lib_fltk_audio_meter_main=no fi rm -f conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext LIBS=$ac_check_lib_save_LIBS fi echo "$as_me:$LINENO: result: $ac_cv_lib_fltk_audio_meter_main" >&5 echo "${ECHO_T}$ac_cv_lib_fltk_audio_meter_main" >&6 if test $ac_cv_lib_fltk_audio_meter_main = yes; then TESTLIBS="-lfltk_audio_meter $TESTLIBS" fi ac_ext=c ac_cpp='$CPP $CPPFLAGS' ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' ac_compiler_gnu=$ac_cv_c_compiler_gnu fi echo "$as_me:$LINENO: checking if $host supports library symbol export" >&5 echo $ECHO_N "checking if $host supports library symbol export... $ECHO_C" >&6 if test "${ac_cv_symbol_export_capability+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else # Initialize to unknown ac_cv_symbol_export_capability="no" case "${ax_cv_c_compiler_vendor}" in gnu) save_CFLAGS="${CFLAGS}" CFLAGS="${CFLAGS} -Werror -fvisibility=hidden" cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ int foo __attribute__ ((visibility("default"))); int main () { ; ; return 0; } _ACEOF rm -f conftest.$ac_objext if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 (eval $ac_compile) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { ac_try='test -z "$ac_c_werror_flag" || test ! -s conftest.err' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; } && { ac_try='test -s conftest.$ac_objext' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then echo "$as_me:$LINENO: result: yes" >&5 echo "${ECHO_T}yes" >&6 COMP_VENDOR_CFLAGS="-fvisibility=hidden -DSWITCH_API_VISIBILITY=1 -DHAVE_VISIBILITY=1 $COMP_VENDOR_CFLAGS" COMP_VENDOR_CXXFLAGS="-fvisibility=hidden -DSWITCH_API_VISIBILITY=1 -DHAVE_VISIBILITY=1 $COMP_VENDOR_CXXFLAGS" ac_cv_symbol_export_capability="yes" else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 echo "$as_me:$LINENO: result: no" >&5 echo "${ECHO_T}no" >&6 fi rm -f conftest.err conftest.$ac_objext conftest.$ac_ext CFLAGS="${save_CFLAGS}" ;; sun) save_CFLAGS="${CFLAGS}" CFLAGS="${CFLAGS} -xldscope=hidden" cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ int foo __attribute__ ((visibility("default"))); int main () { ; ; return 0; } _ACEOF rm -f conftest.$ac_objext if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 (eval $ac_compile) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { ac_try='test -z "$ac_c_werror_flag" || test ! -s conftest.err' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; } && { ac_try='test -s conftest.$ac_objext' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then echo "$as_me:$LINENO: result: yes" >&5 echo "${ECHO_T}yes" >&6 COMP_VENDOR_CFLAGS="-xldscope=hidden -DSWITCH_API_VISIBILITY=1 -DHAVE_VISIBILITY=1 $COMP_VENDOR_CFLAGS" COMP_VENDOR_CXXFLAGS="-xldscope=hidden -DSWITCH_API_VISIBILITY=1 -DHAVE_VISIBILITY=1 $COMP_VENDOR_CXXFLAGS" ac_cv_symbol_export_capability="yes" else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 echo "$as_me:$LINENO: result: no" >&5 echo "${ECHO_T}no" >&6 fi rm -f conftest.err conftest.$ac_objext conftest.$ac_ext CFLAGS="${save_CFLAGS}" ;; esac fi echo "$as_me:$LINENO: result: $ac_cv_symbol_export_capability" >&5 echo "${ECHO_T}$ac_cv_symbol_export_capability" >&6 if test $ac_cv_symbol_export_capability = yes; then cat >>confdefs.h <<\_ACEOF #define SPANDSP_USE_EXPORT_CAPABILITY 1 _ACEOF SPANDSP_USE_EXPORT_CAPABILITY="#define SPANDSP_USE_EXPORT_CAPABILITY 1" else SPANDSP_USE_EXPORT_CAPABILITY="#undef SPANDSP_USE_EXPORT_CAPABILITY" fi case "${ax_cv_c_compiler_vendor}" in gnu) COMP_VENDOR_CFLAGS="-std=gnu99 -ffast-math -Wall -Wunused-variable -Wwrite-strings -Wstrict-prototypes -Wmissing-prototypes $COMP_VENDOR_CFLAGS" if test "$enable_sse5" = "yes" ; then COMP_VENDOR_CFLAGS="-msse5 $COMP_VENDOR_CFLAGS" fi if test "$enable_sse4a" = "yes" ; then COMP_VENDOR_CFLAGS="-msse4a $COMP_VENDOR_CFLAGS" fi if test "$enable_sse4_2" = "yes" ; then COMP_VENDOR_CFLAGS="-msse42 $COMP_VENDOR_CFLAGS" fi if test "$enable_sse4_1" = "yes" ; then COMP_VENDOR_CFLAGS="-msse41 $COMP_VENDOR_CFLAGS" fi if test "$enable_ssse3" = "yes" ; then COMP_VENDOR_CFLAGS="-mssse3 $COMP_VENDOR_CFLAGS" fi if test "$enable_sse3" = "yes" ; then COMP_VENDOR_CFLAGS="-msse3 $COMP_VENDOR_CFLAGS" fi if test "$enable_sse2" = "yes" ; then COMP_VENDOR_CFLAGS="-msse2 $COMP_VENDOR_CFLAGS" fi if test "$enable_sse" = "yes" ; then COMP_VENDOR_CFLAGS="-msse $COMP_VENDOR_CFLAGS" fi if test "$enable_mmx" = "yes" ; then COMP_VENDOR_CFLAGS="-mmmx $COMP_VENDOR_CFLAGS" fi case $host_os in mingw* | cygwin*) COMP_VENDOR_LDFLAGS="-no-undefined" ;; *) COMP_VENDOR_LDFLAGS= ;; esac ;; sun) COMP_VENDOR_CFLAGS="-xc99=all -mt -xCC -errwarn=%all -xvpara $COMP_VENDOR_CFLAGS" if test "$enable_sse3" = "yes" ; then COMP_VENDOR_CFLAGS="-native -fast $COMP_VENDOR_CFLAGS" fi if test "$enable_sse2" = "yes" ; then COMP_VENDOR_CFLAGS="-native -fast $COMP_VENDOR_CFLAGS" fi if test "$enable_sse" = "yes" ; then COMP_VENDOR_CFLAGS="-native -fast $COMP_VENDOR_CFLAGS" fi if test "$enable_mmx" = "yes" ; then COMP_VENDOR_CFLAGS="-native -fast $COMP_VENDOR_CFLAGS" fi COMP_VENDOR_LDFLAGS= new_val="" removed=0 for i in $CFLAGS; do if test "x$i" != "x-Xc"; then new_val="$new_val $i" else removed=1 fi done if test $removed = "1"; then echo " removed \"-Xc\" from CFLAGS" CFLAGS=$new_val fi ;; intel) COMP_VENDOR_CFLAGS="-std=c99 -D_POSIX_C_SOURCE=2 -D_GNU_SOURCE=1 -Wall -Wunused-variable -Wwrite-strings -Wstrict-prototypes -Wmissing-prototypes $COMP_VENDOR_CFLAGS" if test "$enable_sse5" = "yes" ; then COMP_VENDOR_CFLAGS="-msse5 $COMP_VENDOR_CFLAGS" fi if test "$enable_sse4a" = "yes" ; then COMP_VENDOR_CFLAGS="-msse4a $COMP_VENDOR_CFLAGS" fi if test "$enable_sse4_2" = "yes" ; then COMP_VENDOR_CFLAGS="-msse42 $COMP_VENDOR_CFLAGS" fi if test "$enable_sse4_1" = "yes" ; then COMP_VENDOR_CFLAGS="-msse41 $COMP_VENDOR_CFLAGS" fi if test "$enable_ssse3" = "yes" ; then COMP_VENDOR_CFLAGS="-mssse3 $COMP_VENDOR_CFLAGS" fi if test "$enable_sse3" = "yes" ; then COMP_VENDOR_CFLAGS="-msse3 $COMP_VENDOR_CFLAGS" fi if test "$enable_sse2" = "yes" ; then COMP_VENDOR_CFLAGS="-msse2 $COMP_VENDOR_CFLAGS" fi if test "$enable_sse" = "yes" ; then COMP_VENDOR_CFLAGS="-msse $COMP_VENDOR_CFLAGS" fi if test "$enable_mmx" = "yes" ; then COMP_VENDOR_CFLAGS="-mmmx $COMP_VENDOR_CFLAGS" fi COMP_VENDOR_LDFLAGS= ;; *) COMP_VENDOR_CFLAGS="-std=c99 -Wall -Wunused-variable -Wwrite-strings -Wstrict-prototypes -Wmissing-prototypes $COMP_VENDOR_CFLAGS" COMP_VENDOR_LDFLAGS= ;; esac COMP_VENDOR_CFLAGS="-DNDEBUG $COMP_VENDOR_CFLAGS" if test "$enable_doc" = yes; then COND_DOC_TRUE= COND_DOC_FALSE='#' else COND_DOC_TRUE='#' COND_DOC_FALSE= fi if test "$enable_tests" = yes; then COND_TESTS_TRUE= COND_TESTS_FALSE='#' else COND_TESTS_TRUE='#' COND_TESTS_FALSE= fi if test "$enable_test_data" = yes; then COND_TESTDATA_TRUE= COND_TESTDATA_FALSE='#' else COND_TESTDATA_TRUE='#' COND_TESTDATA_FALSE= fi if test "$enable_mmx" = yes; then COND_MMX_TRUE= COND_MMX_FALSE='#' else COND_MMX_TRUE='#' COND_MMX_FALSE= fi if test "$enable_sse" = yes; then COND_SSE_TRUE= COND_SSE_FALSE='#' else COND_SSE_TRUE='#' COND_SSE_FALSE= fi if test "$enable_sse2" = yes; then COND_SSE2_TRUE= COND_SSE2_FALSE='#' else COND_SSE2_TRUE='#' COND_SSE2_FALSE= fi if test "$enable_sse3" = yes; then COND_SSE3_TRUE= COND_SSE3_FALSE='#' else COND_SSE3_TRUE='#' COND_SSE3_FALSE= fi if test "$enable_ssse3" = yes; then COND_SSSE3_TRUE= COND_SSSE3_FALSE='#' else COND_SSSE3_TRUE='#' COND_SSSE3_FALSE= fi if test "$enable_sse4_1" = yes; then COND_SSE4_1_TRUE= COND_SSE4_1_FALSE='#' else COND_SSE4_1_TRUE='#' COND_SSE4_1_FALSE= fi if test "$enable_sse4_2" = yes; then COND_SSE4_2_TRUE= COND_SSE4_2_FALSE='#' else COND_SSE4_2_TRUE='#' COND_SSE4_2_FALSE= fi if test "$enable_sse4a" = yes; then COND_SSE4A_TRUE= COND_SSE4A_FALSE='#' else COND_SSE4A_TRUE='#' COND_SSE4A_FALSE= fi if test "$enable_sse5" = yes; then COND_SSE5_TRUE= COND_SSE5_FALSE='#' else COND_SSE5_TRUE='#' COND_SSE5_FALSE= fi if test "$enable_fixed_point" = "yes" ; then cat >>confdefs.h <<\_ACEOF #define SPANDSP_USE_FIXED_POINT 1 _ACEOF SPANDSP_USE_FIXED_POINT="#define SPANDSP_USE_FIXED_POINT 1" else as_ac_FixedPoint=`echo "ac_cv_fixed_point_machine_$host" | $as_tr_sh` echo "$as_me:$LINENO: checking if $host is fixed point only" >&5 echo $ECHO_N "checking if $host is fixed point only... $ECHO_C" >&6 if eval "test \"\${$as_ac_FixedPoint+set}\" = set"; then echo $ECHO_N "(cached) $ECHO_C" >&6 else case $host in arc | arm | armble | armelb | armv2345 | armv345lb \ | bfin \ | mips | mipsbe | mipseb | mipsel | mipsle \ | tic54x | c54x* | tic55x | c55x* | tic6x | c6x* \ | xscale | xscaleebl \ | arm-* | armbe-* | armle-* | armeb-* | armv*-* \ | bfin-* \ | mips-* | mipsbe-* | mipseb-* | mipsel-* | mipsle-* \ | tic30-* | tic4x-* | tic54x-* | tic55x-* | tic6x-* | tic80-* \ | xscale-* | xscaleebl-* ) eval "$as_ac_FixedPoint=yes" ;; *) eval "$as_ac_FixedPoint=no" ;; esac fi echo "$as_me:$LINENO: result: `eval echo '${'$as_ac_FixedPoint'}'`" >&5 echo "${ECHO_T}`eval echo '${'$as_ac_FixedPoint'}'`" >&6 if test `eval echo '${'$as_ac_FixedPoint'}'` = yes; then cat >>confdefs.h <<\_ACEOF #define SPANDSP_USE_FIXED_POINT 1 _ACEOF SPANDSP_USE_FIXED_POINT="#define SPANDSP_USE_FIXED_POINT 1" else SPANDSP_USE_FIXED_POINT="#undef SPANDSP_USE_FIXED_POINT" fi fi as_ac_MisalignedAccessFails=`echo "ac_cv_misaligned_access_fails_$host" | $as_tr_sh` echo "$as_me:$LINENO: checking if $host fails on misaligned memory access" >&5 echo $ECHO_N "checking if $host fails on misaligned memory access... $ECHO_C" >&6 if eval "test \"\${$as_ac_MisalignedAccessFails+set}\" = set"; then echo $ECHO_N "(cached) $ECHO_C" >&6 else case $host in arc | arm | armble | armelb | armv2345 | armv345lb \ | bfin \ | sparc \ | xscale | xscaleebl \ | arm-* | armbe-* | armle-* | armeb-* | armv*-* \ | bfin-* \ | sparc-* \ | xscale-* | xscaleebl-* ) eval "$as_ac_MisalignedAccessFails=yes" ;; *) eval "$as_ac_MisalignedAccessFails=no" ;; esac fi echo "$as_me:$LINENO: result: `eval echo '${'$as_ac_MisalignedAccessFails'}'`" >&5 echo "${ECHO_T}`eval echo '${'$as_ac_MisalignedAccessFails'}'`" >&6 if test `eval echo '${'$as_ac_MisalignedAccessFails'}'` = yes; then cat >>confdefs.h <<\_ACEOF #define SPANDSP_MISALIGNED_ACCESS_FAILS 1 _ACEOF SPANDSP_MISALIGNED_ACCESS_FAILS="#define SPANDSP_MISALIGNED_ACCESS_FAILS 1" else SPANDSP_MISALIGNED_ACCESS_FAILS="#undef SPANDSP_MISALIGNED_ACCESS_FAILS" fi if test "$enable_sse5" = "yes" ; then cat >>confdefs.h <<\_ACEOF #define SPANDSP_USE_SSE5 1 _ACEOF enable_sse4a="yes" fi if test "$enable_sse4a" = "yes" ; then cat >>confdefs.h <<\_ACEOF #define SPANDSP_USE_SSE4A 1 _ACEOF enable_sse4_2="yes" fi if test "$enable_sse4_2" = "yes" ; then cat >>confdefs.h <<\_ACEOF #define SPANDSP_USE_SSE4_2 1 _ACEOF enable_sse4_1="yes" fi if test "$enable_sse4_1" = "yes" ; then cat >>confdefs.h <<\_ACEOF #define SPANDSP_USE_SSE4_1 1 _ACEOF enable_ssse3="yes" fi if test "$enable_ssse3" = "yes" ; then cat >>confdefs.h <<\_ACEOF #define SPANDSP_USE_SSSE3 1 _ACEOF enable_sse3="yes" fi if test "$enable_sse3" = "yes" ; then cat >>confdefs.h <<\_ACEOF #define SPANDSP_USE_SSE3 1 _ACEOF enable_sse2="yes" fi if test "$enable_sse2" = "yes" ; then cat >>confdefs.h <<\_ACEOF #define SPANDSP_USE_SSE2 1 _ACEOF enable_sse="yes" fi if test "$enable_sse" = "yes" ; then cat >>confdefs.h <<\_ACEOF #define SPANDSP_USE_SSE 1 _ACEOF enable_mmx="yes" fi if test "$enable_mmx" = "yes" ; then cat >>confdefs.h <<\_ACEOF #define SPANDSP_USE_MMX 1 _ACEOF fi if test "$enable_builtin_tiff" = "yes" ; then abs_tiffdir="`cd $srcdir/../tiff-3.8.2/ && pwd`" save_CFLAGS=$CFLAGS CFLAGS="$CFLAGS -I$abs_tiffdir/libtiff" for ac_header in tiffio.h do as_ac_Header=`echo "ac_cv_header_$ac_header" | $as_tr_sh` if eval "test \"\${$as_ac_Header+set}\" = set"; then echo "$as_me:$LINENO: checking for $ac_header" >&5 echo $ECHO_N "checking for $ac_header... $ECHO_C" >&6 if eval "test \"\${$as_ac_Header+set}\" = set"; then echo $ECHO_N "(cached) $ECHO_C" >&6 fi echo "$as_me:$LINENO: result: `eval echo '${'$as_ac_Header'}'`" >&5 echo "${ECHO_T}`eval echo '${'$as_ac_Header'}'`" >&6 else # Is the header compilable? echo "$as_me:$LINENO: checking $ac_header usability" >&5 echo $ECHO_N "checking $ac_header usability... $ECHO_C" >&6 cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ $ac_includes_default #include <$ac_header> _ACEOF rm -f conftest.$ac_objext if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 (eval $ac_compile) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { ac_try='test -z "$ac_c_werror_flag" || test ! -s conftest.err' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; } && { ac_try='test -s conftest.$ac_objext' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then ac_header_compiler=yes else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_header_compiler=no fi rm -f conftest.err conftest.$ac_objext conftest.$ac_ext echo "$as_me:$LINENO: result: $ac_header_compiler" >&5 echo "${ECHO_T}$ac_header_compiler" >&6 # Is the header present? echo "$as_me:$LINENO: checking $ac_header presence" >&5 echo $ECHO_N "checking $ac_header presence... $ECHO_C" >&6 cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ #include <$ac_header> _ACEOF if { (eval echo "$as_me:$LINENO: \"$ac_cpp conftest.$ac_ext\"") >&5 (eval $ac_cpp conftest.$ac_ext) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } >/dev/null; then if test -s conftest.err; then ac_cpp_err=$ac_c_preproc_warn_flag ac_cpp_err=$ac_cpp_err$ac_c_werror_flag else ac_cpp_err= fi else ac_cpp_err=yes fi if test -z "$ac_cpp_err"; then ac_header_preproc=yes else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_header_preproc=no fi rm -f conftest.err conftest.$ac_ext echo "$as_me:$LINENO: result: $ac_header_preproc" >&5 echo "${ECHO_T}$ac_header_preproc" >&6 # So? What about this header? case $ac_header_compiler:$ac_header_preproc:$ac_c_preproc_warn_flag in yes:no: ) { echo "$as_me:$LINENO: WARNING: $ac_header: accepted by the compiler, rejected by the preprocessor!" >&5 echo "$as_me: WARNING: $ac_header: accepted by the compiler, rejected by the preprocessor!" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: proceeding with the compiler's result" >&5 echo "$as_me: WARNING: $ac_header: proceeding with the compiler's result" >&2;} ac_header_preproc=yes ;; no:yes:* ) { echo "$as_me:$LINENO: WARNING: $ac_header: present but cannot be compiled" >&5 echo "$as_me: WARNING: $ac_header: present but cannot be compiled" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: check for missing prerequisite headers?" >&5 echo "$as_me: WARNING: $ac_header: check for missing prerequisite headers?" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: see the Autoconf documentation" >&5 echo "$as_me: WARNING: $ac_header: see the Autoconf documentation" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: section \"Present But Cannot Be Compiled\"" >&5 echo "$as_me: WARNING: $ac_header: section \"Present But Cannot Be Compiled\"" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: proceeding with the preprocessor's result" >&5 echo "$as_me: WARNING: $ac_header: proceeding with the preprocessor's result" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: in the future, the compiler will take precedence" >&5 echo "$as_me: WARNING: $ac_header: in the future, the compiler will take precedence" >&2;} ( cat <<\_ASBOX ## ------------------------------------------ ## ## Report this to the AC_PACKAGE_NAME lists. ## ## ------------------------------------------ ## _ASBOX ) | sed "s/^/$as_me: WARNING: /" >&2 ;; esac echo "$as_me:$LINENO: checking for $ac_header" >&5 echo $ECHO_N "checking for $ac_header... $ECHO_C" >&6 if eval "test \"\${$as_ac_Header+set}\" = set"; then echo $ECHO_N "(cached) $ECHO_C" >&6 else eval "$as_ac_Header=\$ac_header_preproc" fi echo "$as_me:$LINENO: result: `eval echo '${'$as_ac_Header'}'`" >&5 echo "${ECHO_T}`eval echo '${'$as_ac_Header'}'`" >&6 fi if test `eval echo '${'$as_ac_Header'}'` = yes; then cat >>confdefs.h <<_ACEOF #define `echo "HAVE_$ac_header" | $as_tr_cpp` 1 _ACEOF fi done CFLAGS="$save_CFLAGS" COMP_VENDOR_CFLAGS="-I$abs_tiffdir/libtiff $COMP_VENDOR_CFLAGS" COMP_VENDOR_LDFLAGS="-L$abs_tiffdir/libtiff $COMP_VENDOR_LDFLAGS" LIBS="$LIBS $abs_tiffdir/libtiff/libtiff.la" cat >>confdefs.h <<\_ACEOF #define HAVE_LIBTIFF 1 _ACEOF else for ac_header in tiffio.h do as_ac_Header=`echo "ac_cv_header_$ac_header" | $as_tr_sh` if eval "test \"\${$as_ac_Header+set}\" = set"; then echo "$as_me:$LINENO: checking for $ac_header" >&5 echo $ECHO_N "checking for $ac_header... $ECHO_C" >&6 if eval "test \"\${$as_ac_Header+set}\" = set"; then echo $ECHO_N "(cached) $ECHO_C" >&6 fi echo "$as_me:$LINENO: result: `eval echo '${'$as_ac_Header'}'`" >&5 echo "${ECHO_T}`eval echo '${'$as_ac_Header'}'`" >&6 else # Is the header compilable? echo "$as_me:$LINENO: checking $ac_header usability" >&5 echo $ECHO_N "checking $ac_header usability... $ECHO_C" >&6 cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ $ac_includes_default #include <$ac_header> _ACEOF rm -f conftest.$ac_objext if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 (eval $ac_compile) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { ac_try='test -z "$ac_c_werror_flag" || test ! -s conftest.err' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; } && { ac_try='test -s conftest.$ac_objext' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then ac_header_compiler=yes else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_header_compiler=no fi rm -f conftest.err conftest.$ac_objext conftest.$ac_ext echo "$as_me:$LINENO: result: $ac_header_compiler" >&5 echo "${ECHO_T}$ac_header_compiler" >&6 # Is the header present? echo "$as_me:$LINENO: checking $ac_header presence" >&5 echo $ECHO_N "checking $ac_header presence... $ECHO_C" >&6 cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ #include <$ac_header> _ACEOF if { (eval echo "$as_me:$LINENO: \"$ac_cpp conftest.$ac_ext\"") >&5 (eval $ac_cpp conftest.$ac_ext) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } >/dev/null; then if test -s conftest.err; then ac_cpp_err=$ac_c_preproc_warn_flag ac_cpp_err=$ac_cpp_err$ac_c_werror_flag else ac_cpp_err= fi else ac_cpp_err=yes fi if test -z "$ac_cpp_err"; then ac_header_preproc=yes else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_header_preproc=no fi rm -f conftest.err conftest.$ac_ext echo "$as_me:$LINENO: result: $ac_header_preproc" >&5 echo "${ECHO_T}$ac_header_preproc" >&6 # So? What about this header? case $ac_header_compiler:$ac_header_preproc:$ac_c_preproc_warn_flag in yes:no: ) { echo "$as_me:$LINENO: WARNING: $ac_header: accepted by the compiler, rejected by the preprocessor!" >&5 echo "$as_me: WARNING: $ac_header: accepted by the compiler, rejected by the preprocessor!" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: proceeding with the compiler's result" >&5 echo "$as_me: WARNING: $ac_header: proceeding with the compiler's result" >&2;} ac_header_preproc=yes ;; no:yes:* ) { echo "$as_me:$LINENO: WARNING: $ac_header: present but cannot be compiled" >&5 echo "$as_me: WARNING: $ac_header: present but cannot be compiled" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: check for missing prerequisite headers?" >&5 echo "$as_me: WARNING: $ac_header: check for missing prerequisite headers?" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: see the Autoconf documentation" >&5 echo "$as_me: WARNING: $ac_header: see the Autoconf documentation" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: section \"Present But Cannot Be Compiled\"" >&5 echo "$as_me: WARNING: $ac_header: section \"Present But Cannot Be Compiled\"" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: proceeding with the preprocessor's result" >&5 echo "$as_me: WARNING: $ac_header: proceeding with the preprocessor's result" >&2;} { echo "$as_me:$LINENO: WARNING: $ac_header: in the future, the compiler will take precedence" >&5 echo "$as_me: WARNING: $ac_header: in the future, the compiler will take precedence" >&2;} ( cat <<\_ASBOX ## ------------------------------------------ ## ## Report this to the AC_PACKAGE_NAME lists. ## ## ------------------------------------------ ## _ASBOX ) | sed "s/^/$as_me: WARNING: /" >&2 ;; esac echo "$as_me:$LINENO: checking for $ac_header" >&5 echo $ECHO_N "checking for $ac_header... $ECHO_C" >&6 if eval "test \"\${$as_ac_Header+set}\" = set"; then echo $ECHO_N "(cached) $ECHO_C" >&6 else eval "$as_ac_Header=\$ac_header_preproc" fi echo "$as_me:$LINENO: result: `eval echo '${'$as_ac_Header'}'`" >&5 echo "${ECHO_T}`eval echo '${'$as_ac_Header'}'`" >&6 fi if test `eval echo '${'$as_ac_Header'}'` = yes; then cat >>confdefs.h <<_ACEOF #define `echo "HAVE_$ac_header" | $as_tr_cpp` 1 _ACEOF fi done echo "$as_me:$LINENO: checking for TIFFOpen in -ltiff" >&5 echo $ECHO_N "checking for TIFFOpen in -ltiff... $ECHO_C" >&6 if test "${ac_cv_lib_tiff_TIFFOpen+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else ac_check_lib_save_LIBS=$LIBS LIBS="-ltiff -lm $LIBS" cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ /* Override any gcc2 internal prototype to avoid an error. */ #ifdef __cplusplus extern "C" #endif /* We use char because int might match the return type of a gcc2 builtin and then its argument prototype would still apply. */ char TIFFOpen (); int main () { TIFFOpen (); ; return 0; } _ACEOF rm -f conftest.$ac_objext conftest$ac_exeext if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5 (eval $ac_link) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { ac_try='test -z "$ac_c_werror_flag" || test ! -s conftest.err' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; } && { ac_try='test -s conftest$ac_exeext' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then ac_cv_lib_tiff_TIFFOpen=yes else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_cv_lib_tiff_TIFFOpen=no fi rm -f conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext LIBS=$ac_check_lib_save_LIBS fi echo "$as_me:$LINENO: result: $ac_cv_lib_tiff_TIFFOpen" >&5 echo "${ECHO_T}$ac_cv_lib_tiff_TIFFOpen" >&6 if test $ac_cv_lib_tiff_TIFFOpen = yes; then cat >>confdefs.h <<_ACEOF #define HAVE_LIBTIFF 1 _ACEOF LIBS="-ltiff $LIBS" else { { echo "$as_me:$LINENO: error: \"Can't build without libtiff (does your system require a libtiff-devel package?)\"" >&5 echo "$as_me: error: \"Can't build without libtiff (does your system require a libtiff-devel package?)\"" >&2;} { (exit 1); exit 1; }; } fi fi TESTLIBS="$SIMLIBS $TESTLIBS" ac_config_files="$ac_config_files Makefile doc/Makefile doc/doxygen src/Makefile src/spandsp.h spandsp-sim/Makefile test-data/Makefile test-data/etsi/Makefile test-data/etsi/fax/Makefile test-data/itu/Makefile test-data/itu/fax/Makefile test-data/local/Makefile tests/Makefile spandsp.pc spandsp.spec" cat >confcache <<\_ACEOF # This file is a shell script that caches the results of configure # tests run on this system so they can be shared between configure # scripts and configure runs, see configure's option --config-cache. # It is not useful on other systems. If it contains results you don't # want to keep, you may remove or edit it. # # config.status only pays attention to the cache file if you give it # the --recheck option to rerun configure. # # `ac_cv_env_foo' variables (set or unset) will be overridden when # loading this file, other *unset* `ac_cv_foo' will be assigned the # following values. _ACEOF # The following way of writing the cache mishandles newlines in values, # but we know of no workaround that is simple, portable, and efficient. # So, don't put newlines in cache variables' values. # Ultrix sh set writes to stderr and can't be redirected directly, # and sets the high bit in the cache file unless we assign to the vars. { (set) 2>&1 | case `(ac_space=' '; set | grep ac_space) 2>&1` in *ac_space=\ *) # `set' does not quote correctly, so add quotes (double-quote # substitution turns \\\\ into \\, and sed turns \\ into \). sed -n \ "s/'/'\\\\''/g; s/^\\([_$as_cr_alnum]*_cv_[_$as_cr_alnum]*\\)=\\(.*\\)/\\1='\\2'/p" ;; *) # `set' quotes correctly as required by POSIX, so do not add quotes. sed -n \ "s/^\\([_$as_cr_alnum]*_cv_[_$as_cr_alnum]*\\)=\\(.*\\)/\\1=\\2/p" ;; esac; } | sed ' t clear : clear s/^\([^=]*\)=\(.*[{}].*\)$/test "${\1+set}" = set || &/ t end /^ac_cv_env/!s/^\([^=]*\)=\(.*\)$/\1=${\1=\2}/ : end' >>confcache if diff $cache_file confcache >/dev/null 2>&1; then :; else if test -w $cache_file; then test "x$cache_file" != "x/dev/null" && echo "updating cache $cache_file" cat confcache >$cache_file else echo "not updating unwritable cache $cache_file" fi fi rm -f confcache test "x$prefix" = xNONE && prefix=$ac_default_prefix # Let make expand exec_prefix. test "x$exec_prefix" = xNONE && exec_prefix='${prefix}' # VPATH may cause trouble with some makes, so we remove $(srcdir), # ${srcdir} and @srcdir@ from VPATH if srcdir is ".", strip leading and # trailing colons and then remove the whole line if VPATH becomes empty # (actually we leave an empty line to preserve line numbers). if test "x$srcdir" = x.; then ac_vpsub='/^[ ]*VPATH[ ]*=/{ s/:*\$(srcdir):*/:/; s/:*\${srcdir}:*/:/; s/:*@srcdir@:*/:/; s/^\([^=]*=[ ]*\):*/\1/; s/:*$//; s/^[^=]*=[ ]*$//; }' fi DEFS=-DHAVE_CONFIG_H ac_libobjs= ac_ltlibobjs= for ac_i in : $LIBOBJS; do test "x$ac_i" = x: && continue # 1. Remove the extension, and $U if already installed. ac_i=`echo "$ac_i" | sed 's/\$U\././;s/\.o$//;s/\.obj$//'` # 2. Add them. ac_libobjs="$ac_libobjs $ac_i\$U.$ac_objext" ac_ltlibobjs="$ac_ltlibobjs $ac_i"'$U.lo' done LIBOBJS=$ac_libobjs LTLIBOBJS=$ac_ltlibobjs if test -z "${AMDEP_TRUE}" && test -z "${AMDEP_FALSE}"; then { { echo "$as_me:$LINENO: error: conditional \"AMDEP\" was never defined. Usually this means the macro was only invoked conditionally." >&5 echo "$as_me: error: conditional \"AMDEP\" was never defined. Usually this means the macro was only invoked conditionally." >&2;} { (exit 1); exit 1; }; } fi if test -z "${am__fastdepCC_TRUE}" && test -z "${am__fastdepCC_FALSE}"; then { { echo "$as_me:$LINENO: error: conditional \"am__fastdepCC\" was never defined. Usually this means the macro was only invoked conditionally." >&5 echo "$as_me: error: conditional \"am__fastdepCC\" was never defined. Usually this means the macro was only invoked conditionally." >&2;} { (exit 1); exit 1; }; } fi if test -z "${am__fastdepCXX_TRUE}" && test -z "${am__fastdepCXX_FALSE}"; then { { echo "$as_me:$LINENO: error: conditional \"am__fastdepCXX\" was never defined. Usually this means the macro was only invoked conditionally." >&5 echo "$as_me: error: conditional \"am__fastdepCXX\" was never defined. Usually this means the macro was only invoked conditionally." >&2;} { (exit 1); exit 1; }; } fi if test -z "${am__fastdepCC_TRUE}" && test -z "${am__fastdepCC_FALSE}"; then { { echo "$as_me:$LINENO: error: conditional \"am__fastdepCC\" was never defined. Usually this means the macro was only invoked conditionally." >&5 echo "$as_me: error: conditional \"am__fastdepCC\" was never defined. Usually this means the macro was only invoked conditionally." >&2;} { (exit 1); exit 1; }; } fi if test -z "${COND_DOC_TRUE}" && test -z "${COND_DOC_FALSE}"; then { { echo "$as_me:$LINENO: error: conditional \"COND_DOC\" was never defined. Usually this means the macro was only invoked conditionally." >&5 echo "$as_me: error: conditional \"COND_DOC\" was never defined. Usually this means the macro was only invoked conditionally." >&2;} { (exit 1); exit 1; }; } fi if test -z "${COND_TESTS_TRUE}" && test -z "${COND_TESTS_FALSE}"; then { { echo "$as_me:$LINENO: error: conditional \"COND_TESTS\" was never defined. Usually this means the macro was only invoked conditionally." >&5 echo "$as_me: error: conditional \"COND_TESTS\" was never defined. Usually this means the macro was only invoked conditionally." >&2;} { (exit 1); exit 1; }; } fi if test -z "${COND_TESTDATA_TRUE}" && test -z "${COND_TESTDATA_FALSE}"; then { { echo "$as_me:$LINENO: error: conditional \"COND_TESTDATA\" was never defined. Usually this means the macro was only invoked conditionally." >&5 echo "$as_me: error: conditional \"COND_TESTDATA\" was never defined. Usually this means the macro was only invoked conditionally." >&2;} { (exit 1); exit 1; }; } fi if test -z "${COND_MMX_TRUE}" && test -z "${COND_MMX_FALSE}"; then { { echo "$as_me:$LINENO: error: conditional \"COND_MMX\" was never defined. Usually this means the macro was only invoked conditionally." >&5 echo "$as_me: error: conditional \"COND_MMX\" was never defined. Usually this means the macro was only invoked conditionally." >&2;} { (exit 1); exit 1; }; } fi if test -z "${COND_SSE_TRUE}" && test -z "${COND_SSE_FALSE}"; then { { echo "$as_me:$LINENO: error: conditional \"COND_SSE\" was never defined. Usually this means the macro was only invoked conditionally." >&5 echo "$as_me: error: conditional \"COND_SSE\" was never defined. Usually this means the macro was only invoked conditionally." >&2;} { (exit 1); exit 1; }; } fi if test -z "${COND_SSE2_TRUE}" && test -z "${COND_SSE2_FALSE}"; then { { echo "$as_me:$LINENO: error: conditional \"COND_SSE2\" was never defined. Usually this means the macro was only invoked conditionally." >&5 echo "$as_me: error: conditional \"COND_SSE2\" was never defined. Usually this means the macro was only invoked conditionally." >&2;} { (exit 1); exit 1; }; } fi if test -z "${COND_SSE3_TRUE}" && test -z "${COND_SSE3_FALSE}"; then { { echo "$as_me:$LINENO: error: conditional \"COND_SSE3\" was never defined. Usually this means the macro was only invoked conditionally." >&5 echo "$as_me: error: conditional \"COND_SSE3\" was never defined. Usually this means the macro was only invoked conditionally." >&2;} { (exit 1); exit 1; }; } fi if test -z "${COND_SSSE3_TRUE}" && test -z "${COND_SSSE3_FALSE}"; then { { echo "$as_me:$LINENO: error: conditional \"COND_SSSE3\" was never defined. Usually this means the macro was only invoked conditionally." >&5 echo "$as_me: error: conditional \"COND_SSSE3\" was never defined. Usually this means the macro was only invoked conditionally." >&2;} { (exit 1); exit 1; }; } fi if test -z "${COND_SSE4_1_TRUE}" && test -z "${COND_SSE4_1_FALSE}"; then { { echo "$as_me:$LINENO: error: conditional \"COND_SSE4_1\" was never defined. Usually this means the macro was only invoked conditionally." >&5 echo "$as_me: error: conditional \"COND_SSE4_1\" was never defined. Usually this means the macro was only invoked conditionally." >&2;} { (exit 1); exit 1; }; } fi if test -z "${COND_SSE4_2_TRUE}" && test -z "${COND_SSE4_2_FALSE}"; then { { echo "$as_me:$LINENO: error: conditional \"COND_SSE4_2\" was never defined. Usually this means the macro was only invoked conditionally." >&5 echo "$as_me: error: conditional \"COND_SSE4_2\" was never defined. Usually this means the macro was only invoked conditionally." >&2;} { (exit 1); exit 1; }; } fi if test -z "${COND_SSE4A_TRUE}" && test -z "${COND_SSE4A_FALSE}"; then { { echo "$as_me:$LINENO: error: conditional \"COND_SSE4A\" was never defined. Usually this means the macro was only invoked conditionally." >&5 echo "$as_me: error: conditional \"COND_SSE4A\" was never defined. Usually this means the macro was only invoked conditionally." >&2;} { (exit 1); exit 1; }; } fi if test -z "${COND_SSE5_TRUE}" && test -z "${COND_SSE5_FALSE}"; then { { echo "$as_me:$LINENO: error: conditional \"COND_SSE5\" was never defined. Usually this means the macro was only invoked conditionally." >&5 echo "$as_me: error: conditional \"COND_SSE5\" was never defined. Usually this means the macro was only invoked conditionally." >&2;} { (exit 1); exit 1; }; } fi : ${CONFIG_STATUS=./config.status} ac_clean_files_save=$ac_clean_files ac_clean_files="$ac_clean_files $CONFIG_STATUS" { echo "$as_me:$LINENO: creating $CONFIG_STATUS" >&5 echo "$as_me: creating $CONFIG_STATUS" >&6;} cat >$CONFIG_STATUS <<_ACEOF #! $SHELL # Generated by $as_me. # Run this file to recreate the current configuration. # Compiler output produced by configure, useful for debugging # configure, is in config.log if it exists. debug=false ac_cs_recheck=false ac_cs_silent=false SHELL=\${CONFIG_SHELL-$SHELL} _ACEOF cat >>$CONFIG_STATUS <<\_ACEOF ## --------------------- ## ## M4sh Initialization. ## ## --------------------- ## # Be Bourne compatible if test -n "${ZSH_VERSION+set}" && (emulate sh) >/dev/null 2>&1; then emulate sh NULLCMD=: # Zsh 3.x and 4.x performs word splitting on ${1+"$@"}, which # is contrary to our usage. Disable this feature. alias -g '${1+"$@"}'='"$@"' elif test -n "${BASH_VERSION+set}" && (set -o posix) >/dev/null 2>&1; then set -o posix fi DUALCASE=1; export DUALCASE # for MKS sh # Support unset when possible. if ( (MAIL=60; unset MAIL) || exit) >/dev/null 2>&1; then as_unset=unset else as_unset=false fi # Work around bugs in pre-3.0 UWIN ksh. $as_unset ENV MAIL MAILPATH PS1='$ ' PS2='> ' PS4='+ ' # NLS nuisances. for as_var in \ LANG LANGUAGE LC_ADDRESS LC_ALL LC_COLLATE LC_CTYPE LC_IDENTIFICATION \ LC_MEASUREMENT LC_MESSAGES LC_MONETARY LC_NAME LC_NUMERIC LC_PAPER \ LC_TELEPHONE LC_TIME do if (set +x; test -z "`(eval $as_var=C; export $as_var) 2>&1`"); then eval $as_var=C; export $as_var else $as_unset $as_var fi done # Required to use basename. if expr a : '\(a\)' >/dev/null 2>&1; then as_expr=expr else as_expr=false fi if (basename /) >/dev/null 2>&1 && test "X`basename / 2>&1`" = "X/"; then as_basename=basename else as_basename=false fi # Name of the executable. as_me=`$as_basename "$0" || $as_expr X/"$0" : '.*/\([^/][^/]*\)/*$' \| \ X"$0" : 'X\(//\)$' \| \ X"$0" : 'X\(/\)$' \| \ . : '\(.\)' 2>/dev/null || echo X/"$0" | sed '/^.*\/\([^/][^/]*\)\/*$/{ s//\1/; q; } /^X\/\(\/\/\)$/{ s//\1/; q; } /^X\/\(\/\).*/{ s//\1/; q; } s/.*/./; q'` # PATH needs CR, and LINENO needs CR and PATH. # Avoid depending upon Character Ranges. as_cr_letters='abcdefghijklmnopqrstuvwxyz' as_cr_LETTERS='ABCDEFGHIJKLMNOPQRSTUVWXYZ' as_cr_Letters=$as_cr_letters$as_cr_LETTERS as_cr_digits='0123456789' as_cr_alnum=$as_cr_Letters$as_cr_digits # The user is always right. if test "${PATH_SEPARATOR+set}" != set; then echo "#! /bin/sh" >conf$$.sh echo "exit 0" >>conf$$.sh chmod +x conf$$.sh if (PATH="/nonexistent;."; conf$$.sh) >/dev/null 2>&1; then PATH_SEPARATOR=';' else PATH_SEPARATOR=: fi rm -f conf$$.sh fi as_lineno_1=$LINENO as_lineno_2=$LINENO as_lineno_3=`(expr $as_lineno_1 + 1) 2>/dev/null` test "x$as_lineno_1" != "x$as_lineno_2" && test "x$as_lineno_3" = "x$as_lineno_2" || { # Find who we are. Look in the path if we contain no path at all # relative or not. case $0 in *[\\/]* ) as_myself=$0 ;; *) as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. test -r "$as_dir/$0" && as_myself=$as_dir/$0 && break done ;; esac # We did not find ourselves, most probably we were run as `sh COMMAND' # in which case we are not to be found in the path. if test "x$as_myself" = x; then as_myself=$0 fi if test ! -f "$as_myself"; then { { echo "$as_me:$LINENO: error: cannot find myself; rerun with an absolute path" >&5 echo "$as_me: error: cannot find myself; rerun with an absolute path" >&2;} { (exit 1); exit 1; }; } fi case $CONFIG_SHELL in '') as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in /bin$PATH_SEPARATOR/usr/bin$PATH_SEPARATOR$PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for as_base in sh bash ksh sh5; do case $as_dir in /*) if ("$as_dir/$as_base" -c ' as_lineno_1=$LINENO as_lineno_2=$LINENO as_lineno_3=`(expr $as_lineno_1 + 1) 2>/dev/null` test "x$as_lineno_1" != "x$as_lineno_2" && test "x$as_lineno_3" = "x$as_lineno_2" ') 2>/dev/null; then $as_unset BASH_ENV || test "${BASH_ENV+set}" != set || { BASH_ENV=; export BASH_ENV; } $as_unset ENV || test "${ENV+set}" != set || { ENV=; export ENV; } CONFIG_SHELL=$as_dir/$as_base export CONFIG_SHELL exec "$CONFIG_SHELL" "$0" ${1+"$@"} fi;; esac done done ;; esac # Create $as_me.lineno as a copy of $as_myself, but with $LINENO # uniformly replaced by the line number. The first 'sed' inserts a # line-number line before each line; the second 'sed' does the real # work. The second script uses 'N' to pair each line-number line # with the numbered line, and appends trailing '-' during # substitution so that $LINENO is not a special case at line end. # (Raja R Harinath suggested sed '=', and Paul Eggert wrote the # second 'sed' script. Blame Lee E. McMahon for sed's syntax. :-) sed '=' <$as_myself | sed ' N s,$,-, : loop s,^\(['$as_cr_digits']*\)\(.*\)[$]LINENO\([^'$as_cr_alnum'_]\),\1\2\1\3, t loop s,-$,, s,^['$as_cr_digits']*\n,, ' >$as_me.lineno && chmod +x $as_me.lineno || { { echo "$as_me:$LINENO: error: cannot create $as_me.lineno; rerun with a POSIX shell" >&5 echo "$as_me: error: cannot create $as_me.lineno; rerun with a POSIX shell" >&2;} { (exit 1); exit 1; }; } # Don't try to exec as it changes $[0], causing all sort of problems # (the dirname of $[0] is not the place where we might find the # original and so on. Autoconf is especially sensible to this). . ./$as_me.lineno # Exit status is that of the last command. exit } case `echo "testing\c"; echo 1,2,3`,`echo -n testing; echo 1,2,3` in *c*,-n*) ECHO_N= ECHO_C=' ' ECHO_T=' ' ;; *c*,* ) ECHO_N=-n ECHO_C= ECHO_T= ;; *) ECHO_N= ECHO_C='\c' ECHO_T= ;; esac if expr a : '\(a\)' >/dev/null 2>&1; then as_expr=expr else as_expr=false fi rm -f conf$$ conf$$.exe conf$$.file echo >conf$$.file if ln -s conf$$.file conf$$ 2>/dev/null; then # We could just check for DJGPP; but this test a) works b) is more generic # and c) will remain valid once DJGPP supports symlinks (DJGPP 2.04). if test -f conf$$.exe; then # Don't use ln at all; we don't have any links as_ln_s='cp -p' else as_ln_s='ln -s' fi elif ln conf$$.file conf$$ 2>/dev/null; then as_ln_s=ln else as_ln_s='cp -p' fi rm -f conf$$ conf$$.exe conf$$.file if mkdir -p . 2>/dev/null; then as_mkdir_p=: else test -d ./-p && rmdir ./-p as_mkdir_p=false fi as_executable_p="test -f" # Sed expression to map a string onto a valid CPP name. as_tr_cpp="eval sed 'y%*$as_cr_letters%P$as_cr_LETTERS%;s%[^_$as_cr_alnum]%_%g'" # Sed expression to map a string onto a valid variable name. as_tr_sh="eval sed 'y%*+%pp%;s%[^_$as_cr_alnum]%_%g'" # IFS # We need space, tab and new line, in precisely that order. as_nl=' ' IFS=" $as_nl" # CDPATH. $as_unset CDPATH exec 6>&1 # Open the log real soon, to keep \$[0] and so on meaningful, and to # report actual input values of CONFIG_FILES etc. instead of their # values after options handling. Logging --version etc. is OK. exec 5>>config.log { echo sed 'h;s/./-/g;s/^.../## /;s/...$/ ##/;p;x;p;x' <<_ASBOX ## Running $as_me. ## _ASBOX } >&5 cat >&5 <<_CSEOF This file was extended by $as_me, which was generated by GNU Autoconf 2.59. Invocation command line was CONFIG_FILES = $CONFIG_FILES CONFIG_HEADERS = $CONFIG_HEADERS CONFIG_LINKS = $CONFIG_LINKS CONFIG_COMMANDS = $CONFIG_COMMANDS $ $0 $@ _CSEOF echo "on `(hostname || uname -n) 2>/dev/null | sed 1q`" >&5 echo >&5 _ACEOF # Files that config.status was made for. if test -n "$ac_config_files"; then echo "config_files=\"$ac_config_files\"" >>$CONFIG_STATUS fi if test -n "$ac_config_headers"; then echo "config_headers=\"$ac_config_headers\"" >>$CONFIG_STATUS fi if test -n "$ac_config_links"; then echo "config_links=\"$ac_config_links\"" >>$CONFIG_STATUS fi if test -n "$ac_config_commands"; then echo "config_commands=\"$ac_config_commands\"" >>$CONFIG_STATUS fi cat >>$CONFIG_STATUS <<\_ACEOF ac_cs_usage="\ \`$as_me' instantiates files from templates according to the current configuration. Usage: $0 [OPTIONS] [FILE]... -h, --help print this help, then exit -V, --version print version number, then exit -q, --quiet do not print progress messages -d, --debug don't remove temporary files --recheck update $as_me by reconfiguring in the same conditions --file=FILE[:TEMPLATE] instantiate the configuration file FILE --header=FILE[:TEMPLATE] instantiate the configuration header FILE Configuration files: $config_files Configuration headers: $config_headers Configuration commands: $config_commands Report bugs to ." _ACEOF cat >>$CONFIG_STATUS <<_ACEOF ac_cs_version="\\ config.status configured by $0, generated by GNU Autoconf 2.59, with options \\"`echo "$ac_configure_args" | sed 's/[\\""\`\$]/\\\\&/g'`\\" Copyright (C) 2003 Free Software Foundation, Inc. This config.status script is free software; the Free Software Foundation gives unlimited permission to copy, distribute and modify it." srcdir=$srcdir INSTALL="$INSTALL" _ACEOF cat >>$CONFIG_STATUS <<\_ACEOF # If no file are specified by the user, then we need to provide default # value. By we need to know if files were specified by the user. ac_need_defaults=: while test $# != 0 do case $1 in --*=*) ac_option=`expr "x$1" : 'x\([^=]*\)='` ac_optarg=`expr "x$1" : 'x[^=]*=\(.*\)'` ac_shift=: ;; -*) ac_option=$1 ac_optarg=$2 ac_shift=shift ;; *) # This is not an option, so the user has probably given explicit # arguments. ac_option=$1 ac_need_defaults=false;; esac case $ac_option in # Handling of the options. _ACEOF cat >>$CONFIG_STATUS <<\_ACEOF -recheck | --recheck | --rechec | --reche | --rech | --rec | --re | --r) ac_cs_recheck=: ;; --version | --vers* | -V ) echo "$ac_cs_version"; exit 0 ;; --he | --h) # Conflict between --help and --header { { echo "$as_me:$LINENO: error: ambiguous option: $1 Try \`$0 --help' for more information." >&5 echo "$as_me: error: ambiguous option: $1 Try \`$0 --help' for more information." >&2;} { (exit 1); exit 1; }; };; --help | --hel | -h ) echo "$ac_cs_usage"; exit 0 ;; --debug | --d* | -d ) debug=: ;; --file | --fil | --fi | --f ) $ac_shift CONFIG_FILES="$CONFIG_FILES $ac_optarg" ac_need_defaults=false;; --header | --heade | --head | --hea ) $ac_shift CONFIG_HEADERS="$CONFIG_HEADERS $ac_optarg" ac_need_defaults=false;; -q | -quiet | --quiet | --quie | --qui | --qu | --q \ | -silent | --silent | --silen | --sile | --sil | --si | --s) ac_cs_silent=: ;; # This is an error. -*) { { echo "$as_me:$LINENO: error: unrecognized option: $1 Try \`$0 --help' for more information." >&5 echo "$as_me: error: unrecognized option: $1 Try \`$0 --help' for more information." >&2;} { (exit 1); exit 1; }; } ;; *) ac_config_targets="$ac_config_targets $1" ;; esac shift done ac_configure_extra_args= if $ac_cs_silent; then exec 6>/dev/null ac_configure_extra_args="$ac_configure_extra_args --silent" fi _ACEOF cat >>$CONFIG_STATUS <<_ACEOF if \$ac_cs_recheck; then echo "running $SHELL $0 " $ac_configure_args \$ac_configure_extra_args " --no-create --no-recursion" >&6 exec $SHELL $0 $ac_configure_args \$ac_configure_extra_args --no-create --no-recursion fi _ACEOF cat >>$CONFIG_STATUS <<_ACEOF # # INIT-COMMANDS section. # AMDEP_TRUE="$AMDEP_TRUE" ac_aux_dir="$ac_aux_dir" _ACEOF cat >>$CONFIG_STATUS <<\_ACEOF for ac_config_target in $ac_config_targets do case "$ac_config_target" in # Handling of arguments. "Makefile" ) CONFIG_FILES="$CONFIG_FILES Makefile" ;; "doc/Makefile" ) CONFIG_FILES="$CONFIG_FILES doc/Makefile" ;; "doc/doxygen" ) CONFIG_FILES="$CONFIG_FILES doc/doxygen" ;; "src/Makefile" ) CONFIG_FILES="$CONFIG_FILES src/Makefile" ;; "src/spandsp.h" ) CONFIG_FILES="$CONFIG_FILES src/spandsp.h" ;; "spandsp-sim/Makefile" ) CONFIG_FILES="$CONFIG_FILES spandsp-sim/Makefile" ;; "test-data/Makefile" ) CONFIG_FILES="$CONFIG_FILES test-data/Makefile" ;; "test-data/etsi/Makefile" ) CONFIG_FILES="$CONFIG_FILES test-data/etsi/Makefile" ;; "test-data/etsi/fax/Makefile" ) CONFIG_FILES="$CONFIG_FILES test-data/etsi/fax/Makefile" ;; "test-data/itu/Makefile" ) CONFIG_FILES="$CONFIG_FILES test-data/itu/Makefile" ;; "test-data/itu/fax/Makefile" ) CONFIG_FILES="$CONFIG_FILES test-data/itu/fax/Makefile" ;; "test-data/local/Makefile" ) CONFIG_FILES="$CONFIG_FILES test-data/local/Makefile" ;; "tests/Makefile" ) CONFIG_FILES="$CONFIG_FILES tests/Makefile" ;; "spandsp.pc" ) CONFIG_FILES="$CONFIG_FILES spandsp.pc" ;; "spandsp.spec" ) CONFIG_FILES="$CONFIG_FILES spandsp.spec" ;; "depfiles" ) CONFIG_COMMANDS="$CONFIG_COMMANDS depfiles" ;; "src/config.h" ) CONFIG_HEADERS="$CONFIG_HEADERS src/config.h:config-h.in" ;; *) { { echo "$as_me:$LINENO: error: invalid argument: $ac_config_target" >&5 echo "$as_me: error: invalid argument: $ac_config_target" >&2;} { (exit 1); exit 1; }; };; esac done # If the user did not use the arguments to specify the items to instantiate, # then the envvar interface is used. Set only those that are not. # We use the long form for the default assignment because of an extremely # bizarre bug on SunOS 4.1.3. if $ac_need_defaults; then test "${CONFIG_FILES+set}" = set || CONFIG_FILES=$config_files test "${CONFIG_HEADERS+set}" = set || CONFIG_HEADERS=$config_headers test "${CONFIG_COMMANDS+set}" = set || CONFIG_COMMANDS=$config_commands fi # Have a temporary directory for convenience. Make it in the build tree # simply because there is no reason to put it here, and in addition, # creating and moving files from /tmp can sometimes cause problems. # Create a temporary directory, and hook for its removal unless debugging. $debug || { trap 'exit_status=$?; rm -rf $tmp && exit $exit_status' 0 trap '{ (exit 1); exit 1; }' 1 2 13 15 } # Create a (secure) tmp directory for tmp files. { tmp=`(umask 077 && mktemp -d -q "./confstatXXXXXX") 2>/dev/null` && test -n "$tmp" && test -d "$tmp" } || { tmp=./confstat$$-$RANDOM (umask 077 && mkdir $tmp) } || { echo "$me: cannot create a temporary directory in ." >&2 { (exit 1); exit 1; } } _ACEOF cat >>$CONFIG_STATUS <<_ACEOF # # CONFIG_FILES section. # # No need to generate the scripts if there are no CONFIG_FILES. # This happens for instance when ./config.status config.h if test -n "\$CONFIG_FILES"; then # Protect against being on the right side of a sed subst in config.status. sed 's/,@/@@/; s/@,/@@/; s/,;t t\$/@;t t/; /@;t t\$/s/[\\\\&,]/\\\\&/g; s/@@/,@/; s/@@/@,/; s/@;t t\$/,;t t/' >\$tmp/subs.sed <<\\CEOF s,@SHELL@,$SHELL,;t t s,@PATH_SEPARATOR@,$PATH_SEPARATOR,;t t s,@PACKAGE_NAME@,$PACKAGE_NAME,;t t s,@PACKAGE_TARNAME@,$PACKAGE_TARNAME,;t t s,@PACKAGE_VERSION@,$PACKAGE_VERSION,;t t s,@PACKAGE_STRING@,$PACKAGE_STRING,;t t s,@PACKAGE_BUGREPORT@,$PACKAGE_BUGREPORT,;t t s,@exec_prefix@,$exec_prefix,;t t s,@prefix@,$prefix,;t t s,@program_transform_name@,$program_transform_name,;t t s,@bindir@,$bindir,;t t s,@sbindir@,$sbindir,;t t s,@libexecdir@,$libexecdir,;t t s,@datadir@,$datadir,;t t s,@sysconfdir@,$sysconfdir,;t t s,@sharedstatedir@,$sharedstatedir,;t t s,@localstatedir@,$localstatedir,;t t s,@libdir@,$libdir,;t t s,@includedir@,$includedir,;t t s,@oldincludedir@,$oldincludedir,;t t s,@infodir@,$infodir,;t t s,@mandir@,$mandir,;t t s,@build_alias@,$build_alias,;t t s,@host_alias@,$host_alias,;t t s,@target_alias@,$target_alias,;t t s,@DEFS@,$DEFS,;t t s,@ECHO_C@,$ECHO_C,;t t s,@ECHO_N@,$ECHO_N,;t t s,@ECHO_T@,$ECHO_T,;t t s,@LIBS@,$LIBS,;t t s,@SPANDSP_LT_CURRENT@,$SPANDSP_LT_CURRENT,;t t s,@SPANDSP_LT_REVISION@,$SPANDSP_LT_REVISION,;t t s,@SPANDSP_LT_AGE@,$SPANDSP_LT_AGE,;t t s,@INSTALL_PROGRAM@,$INSTALL_PROGRAM,;t t s,@INSTALL_SCRIPT@,$INSTALL_SCRIPT,;t t s,@INSTALL_DATA@,$INSTALL_DATA,;t t s,@CYGPATH_W@,$CYGPATH_W,;t t s,@PACKAGE@,$PACKAGE,;t t s,@VERSION@,$VERSION,;t t s,@ACLOCAL@,$ACLOCAL,;t t s,@AUTOCONF@,$AUTOCONF,;t t s,@AUTOMAKE@,$AUTOMAKE,;t t s,@AUTOHEADER@,$AUTOHEADER,;t t s,@MAKEINFO@,$MAKEINFO,;t t s,@install_sh@,$install_sh,;t t s,@STRIP@,$STRIP,;t t s,@ac_ct_STRIP@,$ac_ct_STRIP,;t t s,@INSTALL_STRIP_PROGRAM@,$INSTALL_STRIP_PROGRAM,;t t s,@mkdir_p@,$mkdir_p,;t t s,@AWK@,$AWK,;t t s,@SET_MAKE@,$SET_MAKE,;t t s,@am__leading_dot@,$am__leading_dot,;t t s,@AMTAR@,$AMTAR,;t t s,@am__tar@,$am__tar,;t t s,@am__untar@,$am__untar,;t t s,@build@,$build,;t t s,@build_cpu@,$build_cpu,;t t s,@build_vendor@,$build_vendor,;t t s,@build_os@,$build_os,;t t s,@host@,$host,;t t s,@host_cpu@,$host_cpu,;t t s,@host_vendor@,$host_vendor,;t t s,@host_os@,$host_os,;t t s,@CC@,$CC,;t t s,@CFLAGS@,$CFLAGS,;t t s,@LDFLAGS@,$LDFLAGS,;t t s,@CPPFLAGS@,$CPPFLAGS,;t t s,@ac_ct_CC@,$ac_ct_CC,;t t s,@EXEEXT@,$EXEEXT,;t t s,@OBJEXT@,$OBJEXT,;t t s,@DEPDIR@,$DEPDIR,;t t s,@am__include@,$am__include,;t t s,@am__quote@,$am__quote,;t t s,@AMDEP_TRUE@,$AMDEP_TRUE,;t t s,@AMDEP_FALSE@,$AMDEP_FALSE,;t t s,@AMDEPBACKSLASH@,$AMDEPBACKSLASH,;t t s,@CCDEPMODE@,$CCDEPMODE,;t t s,@am__fastdepCC_TRUE@,$am__fastdepCC_TRUE,;t t s,@am__fastdepCC_FALSE@,$am__fastdepCC_FALSE,;t t s,@CXX@,$CXX,;t t s,@CXXFLAGS@,$CXXFLAGS,;t t s,@ac_ct_CXX@,$ac_ct_CXX,;t t s,@CXXDEPMODE@,$CXXDEPMODE,;t t s,@am__fastdepCXX_TRUE@,$am__fastdepCXX_TRUE,;t t s,@am__fastdepCXX_FALSE@,$am__fastdepCXX_FALSE,;t t s,@CPP@,$CPP,;t t s,@EGREP@,$EGREP,;t t s,@SED@,$SED,;t t s,@LN_S@,$LN_S,;t t s,@ECHO@,$ECHO,;t t s,@AR@,$AR,;t t s,@ac_ct_AR@,$ac_ct_AR,;t t s,@RANLIB@,$RANLIB,;t t s,@ac_ct_RANLIB@,$ac_ct_RANLIB,;t t s,@DSYMUTIL@,$DSYMUTIL,;t t s,@ac_ct_DSYMUTIL@,$ac_ct_DSYMUTIL,;t t s,@NMEDIT@,$NMEDIT,;t t s,@ac_ct_NMEDIT@,$ac_ct_NMEDIT,;t t s,@CXXCPP@,$CXXCPP,;t t s,@F77@,$F77,;t t s,@FFLAGS@,$FFLAGS,;t t s,@ac_ct_F77@,$ac_ct_F77,;t t s,@LIBTOOL@,$LIBTOOL,;t t s,@LIBOBJS@,$LIBOBJS,;t t s,@COND_DOC_TRUE@,$COND_DOC_TRUE,;t t s,@COND_DOC_FALSE@,$COND_DOC_FALSE,;t t s,@COND_TESTS_TRUE@,$COND_TESTS_TRUE,;t t s,@COND_TESTS_FALSE@,$COND_TESTS_FALSE,;t t s,@COND_TESTDATA_TRUE@,$COND_TESTDATA_TRUE,;t t s,@COND_TESTDATA_FALSE@,$COND_TESTDATA_FALSE,;t t s,@COND_MMX_TRUE@,$COND_MMX_TRUE,;t t s,@COND_MMX_FALSE@,$COND_MMX_FALSE,;t t s,@COND_SSE_TRUE@,$COND_SSE_TRUE,;t t s,@COND_SSE_FALSE@,$COND_SSE_FALSE,;t t s,@COND_SSE2_TRUE@,$COND_SSE2_TRUE,;t t s,@COND_SSE2_FALSE@,$COND_SSE2_FALSE,;t t s,@COND_SSE3_TRUE@,$COND_SSE3_TRUE,;t t s,@COND_SSE3_FALSE@,$COND_SSE3_FALSE,;t t s,@COND_SSSE3_TRUE@,$COND_SSSE3_TRUE,;t t s,@COND_SSSE3_FALSE@,$COND_SSSE3_FALSE,;t t s,@COND_SSE4_1_TRUE@,$COND_SSE4_1_TRUE,;t t s,@COND_SSE4_1_FALSE@,$COND_SSE4_1_FALSE,;t t s,@COND_SSE4_2_TRUE@,$COND_SSE4_2_TRUE,;t t s,@COND_SSE4_2_FALSE@,$COND_SSE4_2_FALSE,;t t s,@COND_SSE4A_TRUE@,$COND_SSE4A_TRUE,;t t s,@COND_SSE4A_FALSE@,$COND_SSE4A_FALSE,;t t s,@COND_SSE5_TRUE@,$COND_SSE5_TRUE,;t t s,@COND_SSE5_FALSE@,$COND_SSE5_FALSE,;t t s,@CC_FOR_BUILD@,$CC_FOR_BUILD,;t t s,@CPPFLAGS_FOR_BUILD@,$CPPFLAGS_FOR_BUILD,;t t s,@COMP_VENDOR_CFLAGS@,$COMP_VENDOR_CFLAGS,;t t s,@COMP_VENDOR_LDFLAGS@,$COMP_VENDOR_LDFLAGS,;t t s,@SIMLIBS@,$SIMLIBS,;t t s,@TESTLIBS@,$TESTLIBS,;t t s,@SPANDSP_USE_FIXED_POINT@,$SPANDSP_USE_FIXED_POINT,;t t s,@SPANDSP_MISALIGNED_ACCESS_FAILS@,$SPANDSP_MISALIGNED_ACCESS_FAILS,;t t s,@SPANDSP_USE_EXPORT_CAPABILITY@,$SPANDSP_USE_EXPORT_CAPABILITY,;t t s,@SPANDSP_SUPPORT_T85@,$SPANDSP_SUPPORT_T85,;t t s,@SPANDSP_SUPPORT_V34@,$SPANDSP_SUPPORT_V34,;t t s,@INSERT_INTTYPES_HEADER@,$INSERT_INTTYPES_HEADER,;t t s,@INSERT_STDINT_HEADER@,$INSERT_STDINT_HEADER,;t t s,@INSERT_TGMATH_HEADER@,$INSERT_TGMATH_HEADER,;t t s,@INSERT_MATH_HEADER@,$INSERT_MATH_HEADER,;t t s,@LTLIBOBJS@,$LTLIBOBJS,;t t CEOF _ACEOF cat >>$CONFIG_STATUS <<\_ACEOF # Split the substitutions into bite-sized pieces for seds with # small command number limits, like on Digital OSF/1 and HP-UX. ac_max_sed_lines=48 ac_sed_frag=1 # Number of current file. ac_beg=1 # First line for current file. ac_end=$ac_max_sed_lines # Line after last line for current file. ac_more_lines=: ac_sed_cmds= while $ac_more_lines; do if test $ac_beg -gt 1; then sed "1,${ac_beg}d; ${ac_end}q" $tmp/subs.sed >$tmp/subs.frag else sed "${ac_end}q" $tmp/subs.sed >$tmp/subs.frag fi if test ! -s $tmp/subs.frag; then ac_more_lines=false else # The purpose of the label and of the branching condition is to # speed up the sed processing (if there are no `@' at all, there # is no need to browse any of the substitutions). # These are the two extra sed commands mentioned above. (echo ':t /@[a-zA-Z_][a-zA-Z_0-9]*@/!b' && cat $tmp/subs.frag) >$tmp/subs-$ac_sed_frag.sed if test -z "$ac_sed_cmds"; then ac_sed_cmds="sed -f $tmp/subs-$ac_sed_frag.sed" else ac_sed_cmds="$ac_sed_cmds | sed -f $tmp/subs-$ac_sed_frag.sed" fi ac_sed_frag=`expr $ac_sed_frag + 1` ac_beg=$ac_end ac_end=`expr $ac_end + $ac_max_sed_lines` fi done if test -z "$ac_sed_cmds"; then ac_sed_cmds=cat fi fi # test -n "$CONFIG_FILES" _ACEOF cat >>$CONFIG_STATUS <<\_ACEOF for ac_file in : $CONFIG_FILES; do test "x$ac_file" = x: && continue # Support "outfile[:infile[:infile...]]", defaulting infile="outfile.in". case $ac_file in - | *:- | *:-:* ) # input from stdin cat >$tmp/stdin ac_file_in=`echo "$ac_file" | sed 's,[^:]*:,,'` ac_file=`echo "$ac_file" | sed 's,:.*,,'` ;; *:* ) ac_file_in=`echo "$ac_file" | sed 's,[^:]*:,,'` ac_file=`echo "$ac_file" | sed 's,:.*,,'` ;; * ) ac_file_in=$ac_file.in ;; esac # Compute @srcdir@, @top_srcdir@, and @INSTALL@ for subdirectories. ac_dir=`(dirname "$ac_file") 2>/dev/null || $as_expr X"$ac_file" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ X"$ac_file" : 'X\(//\)[^/]' \| \ X"$ac_file" : 'X\(//\)$' \| \ X"$ac_file" : 'X\(/\)' \| \ . : '\(.\)' 2>/dev/null || echo X"$ac_file" | sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ s//\1/; q; } /^X\(\/\/\)[^/].*/{ s//\1/; q; } /^X\(\/\/\)$/{ s//\1/; q; } /^X\(\/\).*/{ s//\1/; q; } s/.*/./; q'` { if $as_mkdir_p; then mkdir -p "$ac_dir" else as_dir="$ac_dir" as_dirs= while test ! -d "$as_dir"; do as_dirs="$as_dir $as_dirs" as_dir=`(dirname "$as_dir") 2>/dev/null || $as_expr X"$as_dir" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ X"$as_dir" : 'X\(//\)[^/]' \| \ X"$as_dir" : 'X\(//\)$' \| \ X"$as_dir" : 'X\(/\)' \| \ . : '\(.\)' 2>/dev/null || echo X"$as_dir" | sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ s//\1/; q; } /^X\(\/\/\)[^/].*/{ s//\1/; q; } /^X\(\/\/\)$/{ s//\1/; q; } /^X\(\/\).*/{ s//\1/; q; } s/.*/./; q'` done test ! -n "$as_dirs" || mkdir $as_dirs fi || { { echo "$as_me:$LINENO: error: cannot create directory \"$ac_dir\"" >&5 echo "$as_me: error: cannot create directory \"$ac_dir\"" >&2;} { (exit 1); exit 1; }; }; } ac_builddir=. if test "$ac_dir" != .; then ac_dir_suffix=/`echo "$ac_dir" | sed 's,^\.[\\/],,'` # A "../" for each directory in $ac_dir_suffix. ac_top_builddir=`echo "$ac_dir_suffix" | sed 's,/[^\\/]*,../,g'` else ac_dir_suffix= ac_top_builddir= fi case $srcdir in .) # No --srcdir option. We are building in place. ac_srcdir=. if test -z "$ac_top_builddir"; then ac_top_srcdir=. else ac_top_srcdir=`echo $ac_top_builddir | sed 's,/$,,'` fi ;; [\\/]* | ?:[\\/]* ) # Absolute path. ac_srcdir=$srcdir$ac_dir_suffix; ac_top_srcdir=$srcdir ;; *) # Relative path. ac_srcdir=$ac_top_builddir$srcdir$ac_dir_suffix ac_top_srcdir=$ac_top_builddir$srcdir ;; esac # Do not use `cd foo && pwd` to compute absolute paths, because # the directories may not exist. case `pwd` in .) ac_abs_builddir="$ac_dir";; *) case "$ac_dir" in .) ac_abs_builddir=`pwd`;; [\\/]* | ?:[\\/]* ) ac_abs_builddir="$ac_dir";; *) ac_abs_builddir=`pwd`/"$ac_dir";; esac;; esac case $ac_abs_builddir in .) ac_abs_top_builddir=${ac_top_builddir}.;; *) case ${ac_top_builddir}. in .) ac_abs_top_builddir=$ac_abs_builddir;; [\\/]* | ?:[\\/]* ) ac_abs_top_builddir=${ac_top_builddir}.;; *) ac_abs_top_builddir=$ac_abs_builddir/${ac_top_builddir}.;; esac;; esac case $ac_abs_builddir in .) ac_abs_srcdir=$ac_srcdir;; *) case $ac_srcdir in .) ac_abs_srcdir=$ac_abs_builddir;; [\\/]* | ?:[\\/]* ) ac_abs_srcdir=$ac_srcdir;; *) ac_abs_srcdir=$ac_abs_builddir/$ac_srcdir;; esac;; esac case $ac_abs_builddir in .) ac_abs_top_srcdir=$ac_top_srcdir;; *) case $ac_top_srcdir in .) ac_abs_top_srcdir=$ac_abs_builddir;; [\\/]* | ?:[\\/]* ) ac_abs_top_srcdir=$ac_top_srcdir;; *) ac_abs_top_srcdir=$ac_abs_builddir/$ac_top_srcdir;; esac;; esac case $INSTALL in [\\/$]* | ?:[\\/]* ) ac_INSTALL=$INSTALL ;; *) ac_INSTALL=$ac_top_builddir$INSTALL ;; esac if test x"$ac_file" != x-; then { echo "$as_me:$LINENO: creating $ac_file" >&5 echo "$as_me: creating $ac_file" >&6;} rm -f "$ac_file" fi # Let's still pretend it is `configure' which instantiates (i.e., don't # use $as_me), people would be surprised to read: # /* config.h. Generated by config.status. */ if test x"$ac_file" = x-; then configure_input= else configure_input="$ac_file. " fi configure_input=$configure_input"Generated from `echo $ac_file_in | sed 's,.*/,,'` by configure." # First look for the input files in the build tree, otherwise in the # src tree. ac_file_inputs=`IFS=: for f in $ac_file_in; do case $f in -) echo $tmp/stdin ;; [\\/$]*) # Absolute (can't be DOS-style, as IFS=:) test -f "$f" || { { echo "$as_me:$LINENO: error: cannot find input file: $f" >&5 echo "$as_me: error: cannot find input file: $f" >&2;} { (exit 1); exit 1; }; } echo "$f";; *) # Relative if test -f "$f"; then # Build tree echo "$f" elif test -f "$srcdir/$f"; then # Source tree echo "$srcdir/$f" else # /dev/null tree { { echo "$as_me:$LINENO: error: cannot find input file: $f" >&5 echo "$as_me: error: cannot find input file: $f" >&2;} { (exit 1); exit 1; }; } fi;; esac done` || { (exit 1); exit 1; } _ACEOF cat >>$CONFIG_STATUS <<_ACEOF sed "$ac_vpsub $extrasub _ACEOF cat >>$CONFIG_STATUS <<\_ACEOF :t /@[a-zA-Z_][a-zA-Z_0-9]*@/!b s,@configure_input@,$configure_input,;t t s,@srcdir@,$ac_srcdir,;t t s,@abs_srcdir@,$ac_abs_srcdir,;t t s,@top_srcdir@,$ac_top_srcdir,;t t s,@abs_top_srcdir@,$ac_abs_top_srcdir,;t t s,@builddir@,$ac_builddir,;t t s,@abs_builddir@,$ac_abs_builddir,;t t s,@top_builddir@,$ac_top_builddir,;t t s,@abs_top_builddir@,$ac_abs_top_builddir,;t t s,@INSTALL@,$ac_INSTALL,;t t " $ac_file_inputs | (eval "$ac_sed_cmds") >$tmp/out rm -f $tmp/stdin if test x"$ac_file" != x-; then mv $tmp/out $ac_file else cat $tmp/out rm -f $tmp/out fi done _ACEOF cat >>$CONFIG_STATUS <<\_ACEOF # # CONFIG_HEADER section. # # These sed commands are passed to sed as "A NAME B NAME C VALUE D", where # NAME is the cpp macro being defined and VALUE is the value it is being given. # # ac_d sets the value in "#define NAME VALUE" lines. ac_dA='s,^\([ ]*\)#\([ ]*define[ ][ ]*\)' ac_dB='[ ].*$,\1#\2' ac_dC=' ' ac_dD=',;t' # ac_u turns "#undef NAME" without trailing blanks into "#define NAME VALUE". ac_uA='s,^\([ ]*\)#\([ ]*\)undef\([ ][ ]*\)' ac_uB='$,\1#\2define\3' ac_uC=' ' ac_uD=',;t' for ac_file in : $CONFIG_HEADERS; do test "x$ac_file" = x: && continue # Support "outfile[:infile[:infile...]]", defaulting infile="outfile.in". case $ac_file in - | *:- | *:-:* ) # input from stdin cat >$tmp/stdin ac_file_in=`echo "$ac_file" | sed 's,[^:]*:,,'` ac_file=`echo "$ac_file" | sed 's,:.*,,'` ;; *:* ) ac_file_in=`echo "$ac_file" | sed 's,[^:]*:,,'` ac_file=`echo "$ac_file" | sed 's,:.*,,'` ;; * ) ac_file_in=$ac_file.in ;; esac test x"$ac_file" != x- && { echo "$as_me:$LINENO: creating $ac_file" >&5 echo "$as_me: creating $ac_file" >&6;} # First look for the input files in the build tree, otherwise in the # src tree. ac_file_inputs=`IFS=: for f in $ac_file_in; do case $f in -) echo $tmp/stdin ;; [\\/$]*) # Absolute (can't be DOS-style, as IFS=:) test -f "$f" || { { echo "$as_me:$LINENO: error: cannot find input file: $f" >&5 echo "$as_me: error: cannot find input file: $f" >&2;} { (exit 1); exit 1; }; } # Do quote $f, to prevent DOS paths from being IFS'd. echo "$f";; *) # Relative if test -f "$f"; then # Build tree echo "$f" elif test -f "$srcdir/$f"; then # Source tree echo "$srcdir/$f" else # /dev/null tree { { echo "$as_me:$LINENO: error: cannot find input file: $f" >&5 echo "$as_me: error: cannot find input file: $f" >&2;} { (exit 1); exit 1; }; } fi;; esac done` || { (exit 1); exit 1; } # Remove the trailing spaces. sed 's/[ ]*$//' $ac_file_inputs >$tmp/in _ACEOF # Transform confdefs.h into two sed scripts, `conftest.defines' and # `conftest.undefs', that substitutes the proper values into # config.h.in to produce config.h. The first handles `#define' # templates, and the second `#undef' templates. # And first: Protect against being on the right side of a sed subst in # config.status. Protect against being in an unquoted here document # in config.status. rm -f conftest.defines conftest.undefs # Using a here document instead of a string reduces the quoting nightmare. # Putting comments in sed scripts is not portable. # # `end' is used to avoid that the second main sed command (meant for # 0-ary CPP macros) applies to n-ary macro definitions. # See the Autoconf documentation for `clear'. cat >confdef2sed.sed <<\_ACEOF s/[\\&,]/\\&/g s,[\\$`],\\&,g t clear : clear s,^[ ]*#[ ]*define[ ][ ]*\([^ (][^ (]*\)\(([^)]*)\)[ ]*\(.*\)$,${ac_dA}\1${ac_dB}\1\2${ac_dC}\3${ac_dD},gp t end s,^[ ]*#[ ]*define[ ][ ]*\([^ ][^ ]*\)[ ]*\(.*\)$,${ac_dA}\1${ac_dB}\1${ac_dC}\2${ac_dD},gp : end _ACEOF # If some macros were called several times there might be several times # the same #defines, which is useless. Nevertheless, we may not want to # sort them, since we want the *last* AC-DEFINE to be honored. uniq confdefs.h | sed -n -f confdef2sed.sed >conftest.defines sed 's/ac_d/ac_u/g' conftest.defines >conftest.undefs rm -f confdef2sed.sed # This sed command replaces #undef with comments. This is necessary, for # example, in the case of _POSIX_SOURCE, which is predefined and required # on some systems where configure will not decide to define it. cat >>conftest.undefs <<\_ACEOF s,^[ ]*#[ ]*undef[ ][ ]*[a-zA-Z_][a-zA-Z_0-9]*,/* & */, _ACEOF # Break up conftest.defines because some shells have a limit on the size # of here documents, and old seds have small limits too (100 cmds). echo ' # Handle all the #define templates only if necessary.' >>$CONFIG_STATUS echo ' if grep "^[ ]*#[ ]*define" $tmp/in >/dev/null; then' >>$CONFIG_STATUS echo ' # If there are no defines, we may have an empty if/fi' >>$CONFIG_STATUS echo ' :' >>$CONFIG_STATUS rm -f conftest.tail while grep . conftest.defines >/dev/null do # Write a limited-size here document to $tmp/defines.sed. echo ' cat >$tmp/defines.sed <>$CONFIG_STATUS # Speed up: don't consider the non `#define' lines. echo '/^[ ]*#[ ]*define/!b' >>$CONFIG_STATUS # Work around the forget-to-reset-the-flag bug. echo 't clr' >>$CONFIG_STATUS echo ': clr' >>$CONFIG_STATUS sed ${ac_max_here_lines}q conftest.defines >>$CONFIG_STATUS echo 'CEOF sed -f $tmp/defines.sed $tmp/in >$tmp/out rm -f $tmp/in mv $tmp/out $tmp/in ' >>$CONFIG_STATUS sed 1,${ac_max_here_lines}d conftest.defines >conftest.tail rm -f conftest.defines mv conftest.tail conftest.defines done rm -f conftest.defines echo ' fi # grep' >>$CONFIG_STATUS echo >>$CONFIG_STATUS # Break up conftest.undefs because some shells have a limit on the size # of here documents, and old seds have small limits too (100 cmds). echo ' # Handle all the #undef templates' >>$CONFIG_STATUS rm -f conftest.tail while grep . conftest.undefs >/dev/null do # Write a limited-size here document to $tmp/undefs.sed. echo ' cat >$tmp/undefs.sed <>$CONFIG_STATUS # Speed up: don't consider the non `#undef' echo '/^[ ]*#[ ]*undef/!b' >>$CONFIG_STATUS # Work around the forget-to-reset-the-flag bug. echo 't clr' >>$CONFIG_STATUS echo ': clr' >>$CONFIG_STATUS sed ${ac_max_here_lines}q conftest.undefs >>$CONFIG_STATUS echo 'CEOF sed -f $tmp/undefs.sed $tmp/in >$tmp/out rm -f $tmp/in mv $tmp/out $tmp/in ' >>$CONFIG_STATUS sed 1,${ac_max_here_lines}d conftest.undefs >conftest.tail rm -f conftest.undefs mv conftest.tail conftest.undefs done rm -f conftest.undefs cat >>$CONFIG_STATUS <<\_ACEOF # Let's still pretend it is `configure' which instantiates (i.e., don't # use $as_me), people would be surprised to read: # /* config.h. Generated by config.status. */ if test x"$ac_file" = x-; then echo "/* Generated by configure. */" >$tmp/config.h else echo "/* $ac_file. Generated by configure. */" >$tmp/config.h fi cat $tmp/in >>$tmp/config.h rm -f $tmp/in if test x"$ac_file" != x-; then if diff $ac_file $tmp/config.h >/dev/null 2>&1; then { echo "$as_me:$LINENO: $ac_file is unchanged" >&5 echo "$as_me: $ac_file is unchanged" >&6;} else ac_dir=`(dirname "$ac_file") 2>/dev/null || $as_expr X"$ac_file" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ X"$ac_file" : 'X\(//\)[^/]' \| \ X"$ac_file" : 'X\(//\)$' \| \ X"$ac_file" : 'X\(/\)' \| \ . : '\(.\)' 2>/dev/null || echo X"$ac_file" | sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ s//\1/; q; } /^X\(\/\/\)[^/].*/{ s//\1/; q; } /^X\(\/\/\)$/{ s//\1/; q; } /^X\(\/\).*/{ s//\1/; q; } s/.*/./; q'` { if $as_mkdir_p; then mkdir -p "$ac_dir" else as_dir="$ac_dir" as_dirs= while test ! -d "$as_dir"; do as_dirs="$as_dir $as_dirs" as_dir=`(dirname "$as_dir") 2>/dev/null || $as_expr X"$as_dir" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ X"$as_dir" : 'X\(//\)[^/]' \| \ X"$as_dir" : 'X\(//\)$' \| \ X"$as_dir" : 'X\(/\)' \| \ . : '\(.\)' 2>/dev/null || echo X"$as_dir" | sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ s//\1/; q; } /^X\(\/\/\)[^/].*/{ s//\1/; q; } /^X\(\/\/\)$/{ s//\1/; q; } /^X\(\/\).*/{ s//\1/; q; } s/.*/./; q'` done test ! -n "$as_dirs" || mkdir $as_dirs fi || { { echo "$as_me:$LINENO: error: cannot create directory \"$ac_dir\"" >&5 echo "$as_me: error: cannot create directory \"$ac_dir\"" >&2;} { (exit 1); exit 1; }; }; } rm -f $ac_file mv $tmp/config.h $ac_file fi else cat $tmp/config.h rm -f $tmp/config.h fi # Compute $ac_file's index in $config_headers. _am_stamp_count=1 for _am_header in $config_headers :; do case $_am_header in $ac_file | $ac_file:* ) break ;; * ) _am_stamp_count=`expr $_am_stamp_count + 1` ;; esac done echo "timestamp for $ac_file" >`(dirname $ac_file) 2>/dev/null || $as_expr X$ac_file : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ X$ac_file : 'X\(//\)[^/]' \| \ X$ac_file : 'X\(//\)$' \| \ X$ac_file : 'X\(/\)' \| \ . : '\(.\)' 2>/dev/null || echo X$ac_file | sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ s//\1/; q; } /^X\(\/\/\)[^/].*/{ s//\1/; q; } /^X\(\/\/\)$/{ s//\1/; q; } /^X\(\/\).*/{ s//\1/; q; } s/.*/./; q'`/stamp-h$_am_stamp_count done _ACEOF cat >>$CONFIG_STATUS <<\_ACEOF # # CONFIG_COMMANDS section. # for ac_file in : $CONFIG_COMMANDS; do test "x$ac_file" = x: && continue ac_dest=`echo "$ac_file" | sed 's,:.*,,'` ac_source=`echo "$ac_file" | sed 's,[^:]*:,,'` ac_dir=`(dirname "$ac_dest") 2>/dev/null || $as_expr X"$ac_dest" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ X"$ac_dest" : 'X\(//\)[^/]' \| \ X"$ac_dest" : 'X\(//\)$' \| \ X"$ac_dest" : 'X\(/\)' \| \ . : '\(.\)' 2>/dev/null || echo X"$ac_dest" | sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ s//\1/; q; } /^X\(\/\/\)[^/].*/{ s//\1/; q; } /^X\(\/\/\)$/{ s//\1/; q; } /^X\(\/\).*/{ s//\1/; q; } s/.*/./; q'` { if $as_mkdir_p; then mkdir -p "$ac_dir" else as_dir="$ac_dir" as_dirs= while test ! -d "$as_dir"; do as_dirs="$as_dir $as_dirs" as_dir=`(dirname "$as_dir") 2>/dev/null || $as_expr X"$as_dir" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ X"$as_dir" : 'X\(//\)[^/]' \| \ X"$as_dir" : 'X\(//\)$' \| \ X"$as_dir" : 'X\(/\)' \| \ . : '\(.\)' 2>/dev/null || echo X"$as_dir" | sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ s//\1/; q; } /^X\(\/\/\)[^/].*/{ s//\1/; q; } /^X\(\/\/\)$/{ s//\1/; q; } /^X\(\/\).*/{ s//\1/; q; } s/.*/./; q'` done test ! -n "$as_dirs" || mkdir $as_dirs fi || { { echo "$as_me:$LINENO: error: cannot create directory \"$ac_dir\"" >&5 echo "$as_me: error: cannot create directory \"$ac_dir\"" >&2;} { (exit 1); exit 1; }; }; } ac_builddir=. if test "$ac_dir" != .; then ac_dir_suffix=/`echo "$ac_dir" | sed 's,^\.[\\/],,'` # A "../" for each directory in $ac_dir_suffix. ac_top_builddir=`echo "$ac_dir_suffix" | sed 's,/[^\\/]*,../,g'` else ac_dir_suffix= ac_top_builddir= fi case $srcdir in .) # No --srcdir option. We are building in place. ac_srcdir=. if test -z "$ac_top_builddir"; then ac_top_srcdir=. else ac_top_srcdir=`echo $ac_top_builddir | sed 's,/$,,'` fi ;; [\\/]* | ?:[\\/]* ) # Absolute path. ac_srcdir=$srcdir$ac_dir_suffix; ac_top_srcdir=$srcdir ;; *) # Relative path. ac_srcdir=$ac_top_builddir$srcdir$ac_dir_suffix ac_top_srcdir=$ac_top_builddir$srcdir ;; esac # Do not use `cd foo && pwd` to compute absolute paths, because # the directories may not exist. case `pwd` in .) ac_abs_builddir="$ac_dir";; *) case "$ac_dir" in .) ac_abs_builddir=`pwd`;; [\\/]* | ?:[\\/]* ) ac_abs_builddir="$ac_dir";; *) ac_abs_builddir=`pwd`/"$ac_dir";; esac;; esac case $ac_abs_builddir in .) ac_abs_top_builddir=${ac_top_builddir}.;; *) case ${ac_top_builddir}. in .) ac_abs_top_builddir=$ac_abs_builddir;; [\\/]* | ?:[\\/]* ) ac_abs_top_builddir=${ac_top_builddir}.;; *) ac_abs_top_builddir=$ac_abs_builddir/${ac_top_builddir}.;; esac;; esac case $ac_abs_builddir in .) ac_abs_srcdir=$ac_srcdir;; *) case $ac_srcdir in .) ac_abs_srcdir=$ac_abs_builddir;; [\\/]* | ?:[\\/]* ) ac_abs_srcdir=$ac_srcdir;; *) ac_abs_srcdir=$ac_abs_builddir/$ac_srcdir;; esac;; esac case $ac_abs_builddir in .) ac_abs_top_srcdir=$ac_top_srcdir;; *) case $ac_top_srcdir in .) ac_abs_top_srcdir=$ac_abs_builddir;; [\\/]* | ?:[\\/]* ) ac_abs_top_srcdir=$ac_top_srcdir;; *) ac_abs_top_srcdir=$ac_abs_builddir/$ac_top_srcdir;; esac;; esac { echo "$as_me:$LINENO: executing $ac_dest commands" >&5 echo "$as_me: executing $ac_dest commands" >&6;} case $ac_dest in depfiles ) test x"$AMDEP_TRUE" != x"" || for mf in $CONFIG_FILES; do # Strip MF so we end up with the name of the file. mf=`echo "$mf" | sed -e 's/:.*$//'` # Check whether this is an Automake generated Makefile or not. # We used to match only the files named `Makefile.in', but # some people rename them; so instead we look at the file content. # Grep'ing the first line is not enough: some people post-process # each Makefile.in and add a new line on top of each file to say so. # So let's grep whole file. if grep '^#.*generated by automake' $mf > /dev/null 2>&1; then dirpart=`(dirname "$mf") 2>/dev/null || $as_expr X"$mf" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ X"$mf" : 'X\(//\)[^/]' \| \ X"$mf" : 'X\(//\)$' \| \ X"$mf" : 'X\(/\)' \| \ . : '\(.\)' 2>/dev/null || echo X"$mf" | sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ s//\1/; q; } /^X\(\/\/\)[^/].*/{ s//\1/; q; } /^X\(\/\/\)$/{ s//\1/; q; } /^X\(\/\).*/{ s//\1/; q; } s/.*/./; q'` else continue fi # Extract the definition of DEPDIR, am__include, and am__quote # from the Makefile without running `make'. DEPDIR=`sed -n 's/^DEPDIR = //p' < "$mf"` test -z "$DEPDIR" && continue am__include=`sed -n 's/^am__include = //p' < "$mf"` test -z "am__include" && continue am__quote=`sed -n 's/^am__quote = //p' < "$mf"` # When using ansi2knr, U may be empty or an underscore; expand it U=`sed -n 's/^U = //p' < "$mf"` # Find all dependency output files, they are included files with # $(DEPDIR) in their names. We invoke sed twice because it is the # simplest approach to changing $(DEPDIR) to its actual value in the # expansion. for file in `sed -n " s/^$am__include $am__quote\(.*(DEPDIR).*\)$am__quote"'$/\1/p' <"$mf" | \ sed -e 's/\$(DEPDIR)/'"$DEPDIR"'/g' -e 's/\$U/'"$U"'/g'`; do # Make sure the directory exists. test -f "$dirpart/$file" && continue fdir=`(dirname "$file") 2>/dev/null || $as_expr X"$file" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ X"$file" : 'X\(//\)[^/]' \| \ X"$file" : 'X\(//\)$' \| \ X"$file" : 'X\(/\)' \| \ . : '\(.\)' 2>/dev/null || echo X"$file" | sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ s//\1/; q; } /^X\(\/\/\)[^/].*/{ s//\1/; q; } /^X\(\/\/\)$/{ s//\1/; q; } /^X\(\/\).*/{ s//\1/; q; } s/.*/./; q'` { if $as_mkdir_p; then mkdir -p $dirpart/$fdir else as_dir=$dirpart/$fdir as_dirs= while test ! -d "$as_dir"; do as_dirs="$as_dir $as_dirs" as_dir=`(dirname "$as_dir") 2>/dev/null || $as_expr X"$as_dir" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ X"$as_dir" : 'X\(//\)[^/]' \| \ X"$as_dir" : 'X\(//\)$' \| \ X"$as_dir" : 'X\(/\)' \| \ . : '\(.\)' 2>/dev/null || echo X"$as_dir" | sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ s//\1/; q; } /^X\(\/\/\)[^/].*/{ s//\1/; q; } /^X\(\/\/\)$/{ s//\1/; q; } /^X\(\/\).*/{ s//\1/; q; } s/.*/./; q'` done test ! -n "$as_dirs" || mkdir $as_dirs fi || { { echo "$as_me:$LINENO: error: cannot create directory $dirpart/$fdir" >&5 echo "$as_me: error: cannot create directory $dirpart/$fdir" >&2;} { (exit 1); exit 1; }; }; } # echo "creating $dirpart/$file" echo '# dummy' > "$dirpart/$file" done done ;; esac done _ACEOF cat >>$CONFIG_STATUS <<\_ACEOF { (exit 0); exit 0; } _ACEOF chmod +x $CONFIG_STATUS ac_clean_files=$ac_clean_files_save # configure is writing to config.log, and then calls config.status. # config.status does its own redirection, appending to config.log. # Unfortunately, on DOS this fails, as config.log is still kept open # by configure, so config.status won't be able to write to it; its # output is simply discarded. So we exec the FD to /dev/null, # effectively closing config.log, so it can be properly (re)opened and # appended to by config.status. When coming back to configure, we # need to make the FD available again. if test "$no_create" != yes; then ac_cs_success=: ac_config_status_args= test "$silent" = yes && ac_config_status_args="$ac_config_status_args --quiet" exec 5>/dev/null $SHELL $CONFIG_STATUS $ac_config_status_args || ac_cs_success=false exec 5>>config.log # Use ||, not &&, to avoid exiting from the if with $? = 1, which # would make configure fail if this is the last instruction. $ac_cs_success || { (exit 1); exit 1; } fi # @end 1 spandsp-0.0.6/spandsp-sim/0000775000175000017500000000000011516506112015033 5ustar steveusteveuspandsp-0.0.6/spandsp-sim/make_line_models.c0000664000175000017500000013576111422612261020502 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * make_line_models.c * * Written by Steve Underwood * * Copyright (C) 2004 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License version 2, as * published by the Free Software Foundation. * * 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., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \page make_line_models_page Telephony line model construction \section make_line_models_page_sec_1 What does it do? ???. \section make_line_models_page_sec_2 How does it work? ???. */ #if defined(HAVE_CONFIG_H) #include "config.h" #endif #include #include #include #include #include #include "floating_fudge.h" #if defined(HAVE_FFTW3_H) #include #else #include #endif #if defined(HAVE_TGMATH_H) #include #endif #if defined(HAVE_MATH_H) #include #endif #include "spandsp.h" #if !defined(M_PI) # define M_PI 3.14159265358979323846 /* pi */ #endif #define LINE_MODEL_FILE_NAME "line_models.c" #define SAMPLE_RATE 8000 #define LINE_FILTER_SIZE 129 #define FFT_SIZE 1024 /* Tabulated medium range telephone line response (from p 537, Digital Communication, John G. Proakis */ /* amp 1.0 -> 2.15, freq = 3000 Hz -> 3.2, by 0.2 increments delay = 4 ms -> 2.2 */ struct { int frequency; float amp; float delay; } proakis[] = { { 0, 0.00, 4.80}, { 200, 0.90, 3.50}, { 400, 1.40, 2.20}, { 600, 1.80, 0.90}, { 800, 2.00, 0.50}, {1000, 2.10, 0.25}, {1200, 2.30, 0.10}, {1400, 2.30, 0.05}, {1600, 2.20, 0.00}, {1800, 2.10, 0.00}, {2000, 2.00, 0.00}, {2200, 1.85, 0.05}, {2400, 1.75, 0.10}, {2600, 1.55, 0.20}, {2800, 1.30, 0.40}, {3000, 1.10, 0.50}, {3200, 0.80, 0.90}, {3400, 0.55, 1.20}, {3600, 0.25, 2.20}, {3800, 0.05, 3.20}, {4000, 0.05, 4.20}, {4200, 0.05, 5.20} }; #define CPE_TO_CO_ATTENUATION 0 /* In dB */ #define CPE_TO_CO_DELAY 1 /* In us */ #define CPE_TO_CO_IMPEDANCE 2 /* In ohms */ #define CPE_TO_CO_PHASE 3 /* In degrees */ #define CO_TO_CPE_IMPEDANCE 4 /* In ohms */ #define CO_TO_CPE_PHASE 5 /* In degrees */ #define CO_TO_CPE_ATTENUATION 6 /* In dB */ #define CO_TO_CPE_DELAY 7 /* In us */ /* Terms used, for V.56bis: AD = attenuation distortion EDD = envelope delay distortion */ /* V.56bis EIA LL-1, non-loaded loop */ struct { int freq; float ad[8]; } eia_ll1[] = { { 200, {0.0, 0.4, 767, -1.4, 767, -1.4, 0.0, 0.4}}, { 300, {0.0, 0.7, 766, -2.0, 766, -2.0, 0.0, 0.7}}, { 400, {0.0, 0.5, 763, -2.8, 763, -2.8, 0.0, 0.5}}, { 500, {0.0, 0.6, 765, -3.4, 765, -3.4, 0.0, 0.6}}, { 600, {0.0, 0.2, 764, -4.1, 764, -4.1, 0.0, 0.2}}, { 700, {0.0, 0.4, 764, -4.7, 764, -4.7, 0.0, 0.4}}, { 800, {0.0, 0.4, 762, -5.4, 762, -5.4, 0.0, 0.4}}, { 900, {0.0, 0.2, 762, -6.0, 762, -6.0, 0.0, 0.2}}, {1000, {1.2, 0.5, 761, -6.7, 761, -6.7, 1.2, 0.5}}, {1100, {0.0, 0.6, 759, -7.4, 759, -7.4, 0.0, 0.6}}, {1200, {0.0, 0.4, 757, -8.1, 757, -8.1, 0.0, 0.4}}, {1300, {0.0, 0.1, 757, -8.6, 757, -8.6, 0.0, 0.1}}, {1400, {0.0, 0.3, 755, -9.3, 755, -9.3, 0.0, 0.3}}, {1500, {0.0, 0.4, 753, -10.0, 753, -10.0, 0.0, 0.4}}, {1600, {0.0, 0.3, 751, -10.7, 751, -10.7, 0.0, 0.3}}, {1700, {0.0, 0.1, 748, -11.3, 748, -11.3, 0.0, 0.1}}, {1800, {0.0, 11.0, 748, -11.9, 748, -11.9, 0.0, 11.0}}, {1900, {0.1, 0.1, 745, -12.5, 745, -12.5, 0.1, 0.1}}, {2000, {0.1, 0.3, 743, -13.9, 743, -13.9, 0.1, 0.3}}, {2100, {0.1, 0.3, 740, -13.9, 740, -13.9, 0.1, 0.3}}, {2200, {0.1, 0.3, 737, -14.5, 737, -14.5, 0.1, 0.3}}, {2300, {0.1, 0.3, 734, -15.2, 734, -15.2, 0.1, 0.3}}, {2400, {0.1, 0.2, 731, -15.8, 731, -15.8, 0.1, 0.2}}, {2500, {0.1, 0.0, 728, -16.4, 728, -16.4, 0.1, 0.0}}, {2600, {0.1, 0.0, 729, -16.8, 729, -16.8, 0.1, 0.0}}, {2700, {0.2, 0.1, 726, -17.4, 726, -17.4, 0.2, 0.1}}, {2800, {0.2, 0.2, 722, -18.0, 722, -18.0, 0.2, 0.2}}, {2900, {0.2, 0.3, 719, -18.6, 719, -18.6, 0.2, 0.3}}, {3000, {0.2, 0.4, 715, -19.3, 715, -19.3, 0.2, 0.4}}, {3100, {0.2, 0.4, 712, -19.9, 712, -19.9, 0.2, 0.4}}, {3200, {0.2, 0.5, 708, -20.5, 708, -20.5, 0.2, 0.5}}, {3300, {0.2, 0.5, 704, -21.1, 704, -21.1, 0.2, 0.5}}, {3400, {0.2, 0.5, 700, -21.7, 700, -21.7, 0.2, 0.5}}, {3500, {0.2, 0.5, 696, -22.3, 696, -22.3, 0.2, 0.5}}, {3600, {0.2, 0.4, 692, -22.9, 692, -22.9, 0.2, 0.4}}, {3700, {0.2, 0.3, 688, -23.5, 688, -23.5, 0.2, 0.3}}, {3800, {0.2, 0.2, 684, -24.1, 684, -24.1, 0.2, 0.2}}, {3900, {0.2, 0.1, 680, -24.7, 680, -24.7, 0.2, 0.1}}, {4000, {0.2, -0.1, 676, -25.2, 676, -25.2, 0.2, -0.1}} }; /* V.56bis EIA LL-2, non-loaded loop */ struct { int freq; float ad[8]; } eia_ll2[] = { { 200, {-0.2, 6.6, 1086, -4.9, 1085, -5.6, -0.2, 6.6}}, { 300, {-0.2, 7.7, 1079, -7.3, 1077, -8.3, -0.2, 7.7}}, { 400, {-0.2, 6.7, 1062, -9.9, 1058, -11.2, -0.2, 6.7}}, { 500, {-0.2, 7.1, 1059, -12.0, 1053, -13.6, -0.2, 7.1}}, { 600, {-0.1, 5.2, 1041, -14.4, 1034, -16.3, -0.1, 5.2}}, { 700, {-0.1, 5.8, 1030, -16.5, 1020, -18.6, -0.1, 5.8}}, { 800, {-0.1, 5.4, 1010, -18.7, 998, -21.0, -0.1, 5.4}}, { 900, { 0.0, 4.5, 997, -20.5, 982, -23.1, 0.0, 4.5}}, {1000, { 3.2, 5.1, 976, -22.5, 959, -25.3, 3.2, 5.1}}, {1100, { 0.1, 5.0, 954, -24.5, 934, -27.4, 0.1, 5.0}}, {1200, { 0.1, 4.0, 931, -26.2, 909, -29.4, 0.1, 4.0}}, {1300, { 0.2, 2.7, 918, -27.6, 894, -30.9, 0.2, 2.7}}, {1400, { 0.2, 2.8, 897, -29.2, 871, -32.6, 0.2, 2.8}}, {1500, { 0.3, 2.6, 874, -30.7, 847, -34.3, 0.3, 2.6}}, {1600, { 0.3, 2.0, 852, -32.1, 823, -35.8, 0.3, 2.0}}, {1700, { 0.4, 0.9, 831, -33.4, 800, -37.2, 0.4, 0.9}}, {1800, { 0.5, 40.8, 816, -34.4, 783, -38.4, 0.5, 40.8}}, {1900, { 0.6, 0.0, 796, -35.6, 762, -39.6, 0.6, 0.0}}, {2000, { 0.6, -0.2, 776, -36.6, 741, -40.7, 0.6, -0.2}}, {2100, { 0.7, -0.6, 756, -37.6, 720, -41.8, 0.7, -0.6}}, {2200, { 0.8, -1.1, 737, -38.6, 700, -42.9, 0.8, -1.1}}, {2300, { 0.9, -1.8, 719, -39.4, 681, -43.8, 0.9, -1.8}}, {2400, { 1.0, -2.6, 701, -40.2, 663, -44.7, 1.0, -2.6}}, {2500, { 1.0, -3.7, 684, -41.0, 646, -45.5, 1.0, -3.7}}, {2600, { 1.1, -4.1, 678, -41.3, 639, -45.9, 1.1, -4.1}}, {2700, { 1.2, -4.3, 663, -42.0, 623, -46.6, 1.2, -4.3}}, {2800, { 1.3, -4.5, 647, -42.6, 607, -47.3, 1.3, -4.5}}, {2900, { 1.4, -4.8, 632, -43.1, 591, -47.9, 1.4, -4.8}}, {3000, { 1.5, -5.2, 617, -43.6, 576, -48.4, 1.5, -5.2}}, {3100, { 1.6, -5.6, 603, -44.1, 562, -49.0, 1.6, -5.6}}, {3200, { 1.7, -6.0, 589, -44.5, 548, -49.5, 1.7, -6.0}}, {3300, { 1.8, -6.5, 576, -44.9, 535, -49.9, 1.8, -6.5}}, {3400, { 1.9, -7.1, 563, -45.3, 522, -50.3, 1.9, -7.1}}, {3500, { 2.0, -7.7, 551, -45.6, 509, -50.7, 2.0, -7.7}}, {3600, { 2.1, -8.4, 539, -45.9, 498, -51.0, 2.1, -8.4}}, {3700, { 2.2, -9.1, 528, -46.2, 486, -51.3, 2.2, -9.1}}, {3800, { 2.3, -9.9, 518, -46.4, 476, -51.6, 2.3, -9.9}}, {3900, { 2.4, -10.6, 507, -46.6, 466, -51.9, 2.4, -10.6}}, {4000, { 2.5, -11.5, 498, -46.8, 456, -52.1, 2.5, -11.5}} }; /* V.56bis EIA LL-3, non-loaded loop */ struct { int freq; float ad[8]; } eia_ll3[] = { { 200, {-0.3, 10.5, 1176, -5.9, 1173, -7.4, -0.3, 10.5}}, { 300, {-0.3, 11.5, 1165, -8.8, 1159, -11.0, -0.3, 11.5}}, { 400, {-0.3, 10.6, 1140, -11.8, 1130, -14.7, -0.3, 10.6}}, { 500, {-0.3, 11.0, 1133, -14.3, 1117, -17.8, -0.3, 11.0}}, { 600, {-0.2, 8.5, 1108, -17.1, 1086, -21.2, -0.2, 8.5}}, { 700, {-0.2, 8.5, 1090, -19.4, 1062, -24.0, -0.2, 8.5}}, { 800, {-0.1, 8.4, 1062, -21.9, 1029, -27.0, -0.1, 8.4}}, { 900, { 0.0, 7.1, 1042, -23.9, 1003, -29.4, 0.0, 7.1}}, {1000, { 3.8, 7.7, 1013, -23.0, 969, -31.9, 3.8, 7.7}}, {1100, { 0.1, 7.4, 982, -28.1, 934, -34.3, 0.1, 7.4}}, {1200, { 0.1, 6.0, 953, -29.9, 900, -36.5, 0.1, 6.0}}, {1300, { 0.2, 4.2, 935, -31.3, 878, -38.1, 0.2, 4.2}}, {1400, { 0.3, 4.2, 907, -32.8, 847, -40.0, 0.3, 4.2}}, {1500, { 0.4, 3.7, 880, -34.3, 817, -41.7, 0.4, 3.7}}, {1600, { 0.5, 2.7, 853, -35.6, 787, -43.2, 0.5, 2.7}}, {1700, { 0.6, 1.2, 827, -36.8, 760, -44.6, 0.6, 1.2}}, {1800, { 0.7, 48.7, 809, -37.8, 739, -45.8, 0.7, 48.7}}, {1900, { 0.8, -0.2, 785, -38.8, 715, -47.0, 0.8, -0.2}}, {2000, { 0.9, -0.7, 763, -39.7, 691, -48.0, 0.9, -0.7}}, {2100, { 1.0, -1.3, 741, -40.5, 668, -49.1, 1.0, -1.3}}, {2200, { 1.1, -2.1, 719, -41.3, 647, -50.0, 1.1, -2.1}}, {2300, { 1.2, -2.1, 699, -42.0, 625, -50.8, 1.2, -2.1}}, {2400, { 1.2, -4.3, 680, -42.6, 606, -51.6, 1.2, -4.3}}, {2500, { 1.3, -5.6, 663, -43.2, 588, -52.3, 1.3, -5.6}}, {2600, { 1.6, -6.2, 656, -43.4, 581, -52.7, 1.6, -6.2}}, {2700, { 1.7, -6.6, 640, -43.9, 564, -53.3, 1.7, -6.6}}, {2800, { 1.8, -7.0, 624, -44.3, 548, -53.9, 1.8, -7.0}}, {2900, { 1.9, -7.5, 609, -44.7, 533, -54.4, 1.9, -7.5}}, {3000, { 2.0, -8.0, 594, -45.0, 518, -54.8, 2.0, -8.0}}, {3100, { 2.2, -8.6, 580, -45.3, 504, -55.3, 2.2, -8.6}}, {3200, { 2.3, -9.2, 566, -45.6, 490, -55.7, 2.3, -9.2}}, {3300, { 2.4, -9.9, 553, -45.8, 477, -56.0, 2.4, -9.9}}, {3400, { 2.6, -10.7, 540, -46.0, 465, -56.3, 2.6, -10.7}}, {3500, { 2.7, -11.4, 529, -46.2, 454, -56.6, 2.7, -11.4}}, {3600, { 2.8, -12.3, 517, -46.3, 443, -56.9, 2.8, -12.3}}, {3700, { 3.0, -13.1, 507, -46.4, 432, -57.1, 3.0, -13.1}}, {3800, { 3.1, -14.0, 497, -46.5, 422, -57.3, 3.1, -14.0}}, {3900, { 3.2, -14.9, 487, -46.6, 413, -57.5, 3.2, -14.9}}, {4000, { 3.3, -15.9, 478, -46.6, 404, -57.7, 3.3, -15.9}} }; /* V.56bis EIA LL-4, non-loaded loop */ struct { int freq; float ad[8]; } eia_ll4[] = { { 200, {-0.8, 31.0, 1564, -10.7, 1564, -10.7, -0.8, 31.0}}, { 300, {-0.8, 32.6, 1520, -15.6, 1520, -15.6, -0.8, 32.6}}, { 400, {-0.8, 29.8, 1447, -20.5, 1447, -20.5, -0.8, 29.8}}, { 500, {-0.6, 29.7, 1402, -24.3, 1402, -24.3, -0.6, 29.7}}, { 600, {-0.5, 24.9, 1328, -28.1, 1328, -28.1, -0.5, 24.9}}, { 700, {-0.4, 24.8, 1270, -31.2, 1270, -31.2, -0.4, 24.8}}, { 800, {-0.3, 22.7, 1200, -34.0, 1200, -34.0, -0.3, 22.7}}, { 900, {-0.1, 19.8, 1148, -36.2, 1148, -36.2, -0.1, 19.8}}, {1000, { 6.1, 19.3, 1086, -38.3, 1086, -38.3, 6.1, 19.3}}, {1100, { 0.1, 17.5, 1027, -40.1, 1027, -40.1, 0.1, 17.5}}, {1200, { 0.3, 14.3, 974, -41.6, 974, -41.6, 0.3, 14.3}}, {1300, { 0.5, 10.9, 941, -42.6, 941, -42.6, 0.5, 10.9}}, {1400, { 0.7, 9.6, 897, -43.7, 897, -43.7, 0.7, 9.6}}, {1500, { 0.9, 7.7, 856, -44.6, 856, -44.6, 0.9, 7.7}}, {1600, { 1.1, 5.3, 818, -45.3, 818, -45.3, 1.1, 5.3}}, {1700, { 1.3, 2.4, 784, -45.9, 784, -45.9, 1.3, 2.4}}, {1800, { 1.4, 69.1, 761, -46.3, 761, -46.3, 1.4, 69.1}}, {1900, { 1.7, -1.3, 732, -46.6, 732, -46.6, 1.7, -1.3}}, {2000, { 1.9, -2.7, 706, -46.9, 706, -46.9, 1.9, -2.7}}, {2100, { 2.1, -4.3, 682, -47.1, 682, -47.1, 2.1, -4.3}}, {2200, { 2.3, -6.0, 659, -47.3, 659, -47.3, 2.3, -6.0}}, {2300, { 2.5, -7.9, 638, -47.4, 638, -47.4, 2.5, -7.9}}, {2400, { 2.7, -9.9, 619, -47.4, 619, -47.4, 2.7, -9.9}}, {2500, { 2.9, -12.0, 602, -47.5, 602, -47.5, 2.9, -12.0}}, {2600, { 3.1, -13.0, 596, -47.4, 596, -47.4, 3.1, -13.0}}, {2700, { 3.3, -13.9, 580, -47.4, 580, -47.4, 3.3, -13.9}}, {2800, { 3.5, -14.8, 566, -47.3, 566, -47.3, 3.5, -14.8}}, {2900, { 3.7, -15.7, 552, -47.2, 552, -47.2, 3.7, -15.7}}, {3000, { 3.9, -16.7, 539, -47.1, 539, -47.1, 3.9, -16.7}}, {3100, { 4.1, -17.7, 526, -47.0, 526, -47.0, 4.1, -17.7}}, {3200, { 4.3, -18.7, 515, -46.8, 515, -46.8, 4.3, -18.7}}, {3300, { 4.5, -19.8, 504, -46.7, 504, -46.7, 4.5, -19.8}}, {3400, { 4.7, -20.8, 493, -46.5, 493, -46.5, 4.7, -20.8}}, {3500, { 4.9, -21.8, 484, -46.4, 484, -46.4, 4.9, -21.8}}, {3600, { 5.1, -22.9, 475, -46.2, 475, -46.2, 5.1, -22.9}}, {3700, { 5.3, -23.9, 466, -46.0, 466, -46.0, 5.3, -23.9}}, {3800, { 5.5, -25.0, 458, -45.9, 458, -45.9, 5.5, -25.0}}, {3900, { 5.6, -26.1, 451, -45.7, 451, -45.7, 5.6, -26.1}}, {4000, { 5.8, -27.2, 444, -45.5, 444, -45.5, 5.8, -27.2}} }; /* V.56bis EIA LL-5, non-loaded loop */ struct { int freq; float ad[8]; } eia_ll5[] = { { 200, {-1.4, 55.8, 1607, -12.7, 1574, -17.4, -1.4, 55.8}}, { 300, {-1.3, 57.2, 1541, -18.3, 1478, -24.8, -1.3, 57.2}}, { 400, {-1.2, 52.2, 1443, -23.6, 1350, -31.5, -1.2, 52.2}}, { 500, {-1.0, 51.0, 1379, -27.5, 1261, -36.4, -1.0, 51.0}}, { 600, {-0.9, 43.2, 1287, -31.2, 1150, -40.7, -0.9, 43.2}}, { 700, {-0.7, 41.8, 1216, -34.0, 1066, -44.0, -0.7, 41.8}}, { 800, {-0.5, 37.4, 1137, -36.5, 979, -46.9, -0.5, 37.4}}, { 900, {-0.2, 32.4, 1080, -38.3, 915, -48.9, -0.2, 32.4}}, {1000, { 7.0, 30.5, 1015, -39.8, 848, -50.7, 7.0, 30.5}}, {1100, { 0.3, 26.8, 956, -41.1, 788, -52.2, 0.3, 26.8}}, {1200, { 0.5, 21.5, 904, -42.1, 736, -53.3, 0.5, 21.5}}, {1300, { 0.8, 16.6, 873, -42.7, 703, -54.1, 0.8, 16.6}}, {1400, { 1.0, 14.1, 832, -43.2, 663, -54.8, 1.0, 14.1}}, {1500, { 1.3, 10.9, 795, -43.7, 627, -55.3, 1.3, 10.9}}, {1600, { 1.6, 7.3, 762, -44.0, 595, -55.7, 1.6, 7.3}}, {1700, { 1.9, 3.2, 733, -44.2, 567, -56.0, 1.9, 3.2}}, {1800, { 2.2, 81.5, 713, -44.3, 547, -56.2, 2.2, 81.5}}, {1900, { 2.4, -1.9, 689, -44.4, 524, -56.4, 2.4, -1.9}}, {2000, { 2.7, -3.9, 667, -44.4, 503, -56.5, 2.7, -3.9}}, {2100, { 3.0, -6.1, 646, -44.4, 485, -56.5, 3.0, -6.1}}, {2200, { 3.3, -8.3, 628, -44.4, 466, -56.5, 3.3, -8.3}}, {2300, { 3.6, -10.7, 610, -44.3, 450, -56.5, 3.6, -10.7}}, {2400, { 3.8, -13.1, 595, -44.2, 436, -56.4, 3.8, -13.1}}, {2500, { 4.1, -15.5, 581, -44.1, 422, -56.3, 4.1, -15.5}}, {2600, { 4.3, -16.7, 577, -44.0, 417, -56.2, 4.3, -16.7}}, {2700, { 4.6, -17.7, 565, -43.9, 406, -56.1, 4.6, -17.7}}, {2800, { 4.8, -18.8, 553, -43.8, 395, -56.0, 4.8, -18.8}}, {2900, { 5.1, -19.9, 542, -43.7, 395, -55.9, 5.1, -19.9}}, {3000, { 5.4, -21.0, 531, -43.6, 375, -55.7, 5.4, -21.0}}, {3100, { 5.6, -22.1, 521, -43.5, 366, -55.6, 5.6, -22.1}}, {3200, { 5.9, -23.2, 511, -43.4, 357, -55.4, 5.9, -23.2}}, {3300, { 6.1, -24.3, 502, -43.3, 349, -55.3, 6.1, -24.3}}, {3400, { 6.4, -25.4, 494, -43.2, 341, -55.1, 6.4, -25.4}}, {3500, { 6.6, -26.5, 486, -43.1, 334, -55.0, 6.6, -26.5}}, {3600, { 6.9, -27.6, 478, -43.0, 327, -54.8, 6.9, -27.6}}, {3700, { 7.1, -28.7, 471, -42.9, 321, -54.7, 7.1, -28.7}}, {3800, { 7.3, -29.9, 464, -42.8, 315, -54.6, 7.3, -29.9}}, {3900, { 7.5, -31.0, 458, -42.7, 310, -54.4, 7.5, -31.0}}, {4000, { 7.8, -32.1, 452, -42.7, 304, -54.3, 7.8, -32.1}} }; /* V.56bis EIA LL-6, non-loaded loop */ struct { int freq; float ad[8]; } eia_ll6[] = { { 200, {-0.2, -39.3, 1756, -12.0, 1748, -19.8, -0.2, -39.3}}, { 300, {-0.2, -31.7, 1642, -15.9, 1689, -26.9, -0.2, -31.7}}, { 400, {-0.2, -37.5, 1506, -18.4, 1427, -33.4, -0.2, -37.5}}, { 500, {-0.1, -34.7, 1442, -19.5, 1301, -37.7, -0.1, -34.7}}, { 600, {-0.1, -46.0, 1363, -20.1, 1153, -40.7, -0.1, -46.0}}, { 700, { 0.0, -40.8, 1320, -20.7, 1045, -42.2, 0.0, -40.8}}, { 800, { 0.0, -40.1, 1269, -21.5, 943, -42.3, 0.0, -40.1}}, { 900, { 0.0, -40.6, 1227, -22.5, 878, -41.3, 0.0, -40.6}}, {1000, { 6.6, -28.0, 1161, -23.4, 825, -39.3, 6.6, -28.0}}, {1100, { 0.0, -16.5, 1082, -23.5, 797, -36.8, 0.0, -16.5}}, {1200, {-0.1, 0.3, 1000, -22.2, 798, -34.4, -0.1, 0.3}}, {1300, { 0.0, -2.3, 943, -19.3, 826, -33.2, 0.0, -2.3}}, {1400, { 0.0, 13.5, 896, -14.0, 870, -33.8, 0.0, 13.5}}, {1500, { 0.1, 22.6, 890, -7.2, 916, -36.8, 0.1, 22.6}}, {1600, { 0.3, 30.3, 940, -0.3, 938, -42.0, 0.3, 30.3}}, {1700, { 0.5, 12.5, 1052, 4.6, 929, -48.0, 0.5, 12.5}}, {1800, { 0.8, 458.6, 1212, 6.9, 880, -52.8, 0.8, 458.6}}, {1900, { 1.1, -5.1, 1410, 3.5, 814, -56.5, 1.1, -5.1}}, {2000, { 1.4, -5.0, 1579, -3.6, 747, -58.5, 1.4, -5.0}}, {2100, { 1.5, 6.1, 1618, -13.2, 688, -58.8, 1.5, 6.1}}, {2200, { 1.5, 33.5, 1491, -21.5, 646, -57.7, 1.5, 33.5}}, {2300, { 1.4, 80.5, 1275, -24.9, 625, -55.6, 1.4, 80.5}}, {2400, { 1.3, 142.3, 1078, -20.8, 633, -53.8, 1.3, 142.3}}, {2500, { 1.4, 196.5, 985, -9.3, 664, -54.5, 1.4, 196.5}}, {2600, { 1.6, 214.5, 1045, 2.4, 692, -57.6, 1.6, 214.5}}, {2700, { 2.4, 196.8, 1326, 13.7, 684, -63.5, 2.4, 196.8}}, {2800, { 3.4, 150.4, 1887, 14.7, 637, -68.3, 3.4, 150.4}}, {2900, { 4.3, 125.3, 2608, 1.3, 501, -70.7, 4.3, 125.3}}, {3000, { 4.9, 174.6, 2730, -21.8, 533, -70.6, 4.9, 174.6}}, {3100, { 4.9, 380.0, 2094, -33.7, 506, -68.5, 4.9, 380.0}}, {3200, { 5.2, 759.3, 1642, -21.3, 522, -67.0, 5.2, 759.3}}, {3300, { 8.0, 680.1, 2348, 0.5, 531, -72.9, 8.0, 680.1}}, {3400, {13.1, 237.8, 4510, -20.9, 482, -77.3, 13.1, 237.8}}, {3500, {18.2, -18.8, 4116, -59.6, 439, -78.0, 18.2, -18.8}}, {3600, {22.7, -145.4, 3041, -74.4, 487, -77.7, 22.7, -145.4}}, {3700, {26.8, -214.5, 2427, -80.1, 383, -77.1, 26.8, -214.5}}, {3800, {30.4, -257.0, 2054, -82.7, 364, -76.4, 30.4, -257.0}}, {3900, {33.7, -285.6, 1803, -84.2, 348, -75.0, 33.7, -285.6}}, {4000, {36.8, -306.2, 1621, -85.1, 334, -75.7, 36.8, -306.2}} }; /* V.56bis EIA LL-7, non-loaded loop */ struct { int freq; float ad[8]; } eia_ll7[] = { { 200, { 0.4, -81.3, 1848, -10.5, 1737, -15.6, 0.4, -81.3}}, { 300, { 0.3, -68.9, 1785, -16.2, 1585, -21.6, 0.3, -68.9}}, { 400, { 0.2, -68.1, 1646, -22.0, 1388, -25.8, 0.2, -68.1}}, { 500, { 0.1, -57.0, 1528, -26.2, 1247, -27.7, 0.1, -57.0}}, { 600, { 0.0, -59.8, 1349, -28.9, 1087, -27.3, 0.0, -59.8}}, { 700, { 0.0, -45.0, 1205, -29.1, 975, -24.8, 0.0, -45.0}}, { 800, {-0.1, -36.9, 1064, -26.8, 885, -19.7, -0.1, -36.9}}, { 900, {-0.1, -37.1, 989, -22.6, 846, -13.5, -0.1, -37.1}}, {1000, { 5.9, -29.2, 944, -16.6, 847, -6.1, 5.9, -29.2}}, {1100, { 0.1, -30.8, 951, -10.5, 900, 0.3, 0.1, -30.8}}, {1200, { 0.2, -40.7, 1008, -5.9, 999, 4.9, 0.2, -40.7}}, {1300, { 0.4, -53.3, 1897, -4.0, 1122, 4.6, 0.4, -53.3}}, {1400, { 0.5, -52.7, 1197, -4.8, 1253, 1.9, 0.5, -52.7}}, {1500, { 0.6, -48.3, 1269, -8.4, 1339, -3.8, 0.6, -48.3}}, {1600, { 0.6, -38.0, 1274, -13.2, 1337, -10.4, 0.6, -38.0}}, {1700, { 0.5, -21.6, 1208, -16.9, 1250, -15.2, 0.5, -21.6}}, {1800, { 0.4, 539.7, 1119, -17.8, 1143, -16.6, 0.4, 539.7}}, {1900, { 0.3, 35.4, 1027, -14.7, 1036, -13.7, 0.3, 35.4}}, {2000, { 0.3, 64.1, 989, -7.9, 998, -6.9, 0.3, 64.1}}, {2100, { 0.4, 76.1, 1045, 0.1, 1040, 1.0, 0.4, 76.1}}, {2200, { 0.6, 69.8, 1210, 5.3, 1197, 6.9, 0.6, 69.8}}, {2300, { 1.0, 55.9, 1460, 4.6, 1430, 5.4, 1.0, 55.9}}, {2400, { 1.2, 51.3, 1692, -2.8, 1640, -1.7, 1.2, 51.3}}, {2500, { 1.3, 72.6, 1730, -13.4, 1666, -11.5, 1.3, 72.6}}, {2600, { 1.3, 117.1, 1613, -49.6, 1556, -16.9, 1.3, 117.1}}, {2700, { 1.1, 222.5, 1371, -19.5, 1334, -16.1, 1.1, 222.5}}, {2800, { 1.1, 332.3, 1258, -8.9, 1243, -5.1, 1.1, 332.3}}, {2900, { 1.7, 356.1, 1474, 4.8, 1480, 8.4, 1.7, 356.1}}, {3000, { 2.8, 299.9, 2128, 6.6, 2143, 9.8, 2.8, 299.9}}, {3100, { 3.9, 309.4, 2813, -10.5, 2882, -7.1, 3.9, 309.4}}, {3200, { 4.4, 576.4, 2490, -27.7, 2487, -22.2, 4.4, 576.4}}, {3300, { 5.6, 1030.6, 2237, -17.4, 2385, -9.0, 5.6, 1030.6}}, {3400, {10.7, 570.2, 3882, -19.2, 4855, -14.9, 10.7, 570.2}}, {3500, {17.3, 83.5, 4116, -57.4, 4649, -63.5, 17.3, 83.5}}, {3600, {23.2, -130.6, 3057, -74.0, 3175, -78.6, 23.2, -130.6}}, {3700, {28.3, -153.9, 2432, -80.0, 2471, -83.1, 28.3, -153.9}}, {3800, {32.8, -292.4, 2055, -82.8, 2072, -85.1, 32.8, -292.4}}, {3900, {36.9, -249.9, 1803, -84.2, 1811, -86.1, 36.9, -249.9}}, {4000, {40.7, -356.2, 1621, -85.1, 1625, -86.7, 40.7, -356.2}} }; /* V.56bis ETSI LL-1, non-loaded loop */ struct { int freq; float ad[8]; } etsi_ll1[] = { { 200, {-0.78, 14.0, 1248.5, -9.7, 1248.5, -9.7, -0.78, 14.0}}, { 300, {-0.74, 10.0, 1220.9, -14.3, 1220.9, -14.3, -0.74, 10.0}}, { 400, {-0.68, 8.0, 1185.2, -18.6, 1185.2, -18.6, -0.68, 8.0}}, { 500, {-0.60, 7.0, 1143.9, -22.6, 1143.9, -22.6, -0.60, 7.0}}, { 600, {-0.51, 6.0, 1099.0, -26.2, 1099.0, -26.2, -0.51, 6.0}}, { 700, {-0.40, 5.6, 1052.5, -29.5, 1052.5, -29.5, -0.40, 5.6}}, { 800, {-0.28, 5.3, 1005.9, -32.4, 1005.9, -32.4, -0.28, 5.3}}, { 900, {-0.14, 5.0, 960.3, -35.0, 960.3, -35.0, -0.14, 5.0}}, {1000, { 4.7, 4.6, 916.4, -37.3, 916.4, -37.3, 4.7, 4.6}}, {1100, { 0.16, 4.3, 874.6, -39.3, 874.6, -39.3, 0.16, 4.3}}, {1200, { 0.33, 3.6, 835.3, -41.1, 835.3, -41.1, 0.33, 3.6}}, {1300, { 0.49, 2.6, 798.5, -42.6, 798.5, -42.6, 0.49, 2.6}}, {1400, { 0.67, 2.0, 764.2, -43.9, 764.2, -43.9, 0.67, 2.0}}, {1500, { 0.85, 1.0, 732.3, -45.1, 732.3, -45.1, 0.85, 1.0}}, {1600, { 1.04, 0.6, 702.7, -46.1, 702.7, -46.1, 1.04, 0.6}}, {1700, { 1.23, 0.3, 675.3, -47.0, 675.3, -47.0, 1.23, 0.3}}, {1800, { 1.43, 40.0, 649.8, -47.7, 649.8, -47.7, 1.43, 40.0}}, {1900, { 1.63, -1.0, 626.2, -48.4, 626.2, -48.4, 1.63, -1.0}}, {2000, { 1.83, -2.0, 604.3, -48.9, 604.3, -48.9, 1.83, -2.0}}, {2100, { 2.03, -3.3, 584.0, -49.4, 584.0, -49.4, 2.03, -3.3}}, {2200, { 2.23, -3.6, 565.1, -49.8, 565.1, -49.8, 2.23, -3.6}}, {2300, { 2.44, -4.3, 547.5, -50.1, 547.5, -50.1, 2.44, -4.3}}, {2400, { 2.64, -5.0, 531.1, -50.4, 531.1, -50.4, 2.64, -5.0}}, {2500, { 2.84, -6.1, 515.9, -50.6, 515.9, -50.6, 2.84, -6.1}}, {2600, { 3.05, -6.6, 501.6, -50.8, 501.6, -50.8, 3.05, -6.6}}, {2700, { 3.25, -7.3, 488.2, -51.0, 488.2, -51.0, 3.25, -7.3}}, {2800, { 3.45, -7.6, 475.7, -51.1, 475.7, -51.1, 3.45, -7.6}}, {2900, { 3.65, -8.3, 464.0, -51.1, 464.0, -51.1, 3.65, -8.3}}, {3000, { 3.85, -8.6, 453.0, -51.2, 453.0, -51.2, 3.85, -8.6}}, {3100, { 4.04, -9.3, 442.6, -51.2, 442.6, -51.2, 4.04, -9.3}}, {3200, { 4.24, -10.3, 432.9, -51.2, 432.9, -51.2, 4.24, -10.3}}, {3300, { 4.43, -10.6, 423.7, -51.2, 423.7, -51.2, 4.43, -10.6}}, {3400, { 4.62, -11.3, 415.1, -51.2, 415.1, -51.2, 4.62, -11.3}}, {3500, { 4.81, -11.6, 406.9, -51.1, 406.9, -51.1, 4.81, -11.6}}, {3600, { 5.00, -12.3, 399.1, -51.1, 399.1, -51.1, 5.00, -12.3}}, {3700, { 5.19, -13.0, 391.8, -51.0, 391.8, -51.0, 5.19, -13.0}}, {3800, { 5.37, -13.4, 384.9, -51.0, 384.9, -51.0, 5.37, -13.4}}, {3900, { 5.56, -13.8, 378.3, -50.9, 378.3, -50.9, 5.56, -13.8}}, {4000, { 5.74, -14.4, 372.0, -50.8, 372.0, -50.8, 5.74, -14.4}} }; /* V.56bis ETSI LL-2, non-loaded loop */ struct { int freq; float ad[8]; } etsi_ll2[] = { { 200, {-0.10, 15.0, 850.3, -3.4, 850.3, -3.4, -0.10, 15.0}}, { 300, {-0.09, 8.0, 848.1, -5.1, 848.1, -5.1, -0.09, 8.0}}, { 400, {-0.09, 7.0, 845.1, -6.7, 845.1, -6.7, -0.09, 7.0}}, { 500, {-0.08, 5.0, 841.3, -8.4, 841.3, -8.4, -0.08, 5.0}}, { 600, {-0.07, 4.6, 836.7, -10.0, 836.7, -10.0, -0.07, 4.6}}, { 700, {-0.06, 4.3, 831.3, -11.6, 831.3, -11.6, -0.06, 4.3}}, { 800, {-0.04, 3.8, 825.3, -13.2, 825.3, -13.2, -0.04, 3.8}}, { 900, {-0.02, 3.4, 818.6, -14.8, 818.6, -14.8, -0.02, 3.4}}, {1000, { 1.80, 3.0, 811.4, -16.3, 811.4, -16.3, 1.8, 3.0}}, {1100, { 0.02, 2.6, 803.6, -17.8, 803.6, -17.8, 0.02, 2.6}}, {1200, { 0.04, 2.3, 795.3, -19.3, 795.3, -19.3, 0.04, 2.3}}, {1300, { 0.06, 1.3, 786.6, -20.7, 786.6, -20.7, 0.06, 1.3}}, {1400, { 0.09, 0.9, 777.5, -22.1, 777.5, -22.1, 0.09, 0.9}}, {1500, { 0.12, 0.6, 768.1, -23.5, 768.1, -23.5, 0.12, 0.6}}, {1600, { 0.15, 0.3, 758.4, -24.8, 758.4, -24.8, 0.15, 0.3}}, {1700, { 0.18, 0.0, 748.4, -26.1, 748.4, -26.1, 0.18, 0.0}}, {1800, { 0.21, 15, 738.4, -27.3, 738.4, -27.3, 0.21, 15.0}}, {1900, { 0.24, -1.0, 728.1, -28.5, 728.1, -28.5, 0.24, -1.0}}, {2000, { 0.28, -2.3, 717.8, -29.7, 717.8, -29.7, 0.28, -2.3}}, {2100, { 0.32, -2.6, 707.4, -30.8, 707.4, -30.8, 0.32, -2.6}}, {2200, { 0.36, -3.0, 697.0, -31.9, 697.0, -31.9, 0.36, -3.0}}, {2300, { 0.40, -3.3, 686.6, -33.0, 686.6, -33.0, 0.40, -3.3}}, {2400, { 0.44, -3.6, 676.2, -34.0, 676.2, -34.0, 0.44, -3.6}}, {2500, { 0.48, -4.5, 665.9, -35.0, 665.9, -35.0, 0.48, -4.5}}, {2600, { 0.53, -5.4, 655.6, -35.9, 655.6, -35.9, 0.53, -5.4}}, {2700, { 0.57, -6.3, 645.5, -36.8, 645.5, -36.8, 0.57, -6.3}}, {2800, { 0.62, -6.6, 635.5, -37.7, 635.5, -37.7, 0.62, -6.6}}, {2900, { 0.67, -6.9, 625.6, -38.6, 625.6, -38.6, 0.67, -6.9}}, {3000, { 0.72, -7.5, 615.8, -39.4, 615.8, -39.4, 0.72, -7.5}}, {3100, { 0.77, -8.3, 606.2, -40.2, 606.2, -40.2, 0.77, -8.3}}, {3200, { 0.82, -8.6, 596.7, -40.9, 596.7, -40.9, 0.82, -8.6}}, {3300, { 0.87, -9.3, 587.4, -41.6, 587.4, -41.6, 0.87, -9.3}}, {3400, { 0.92, -9.6, 578.3, -42.3, 578.3, -42.3, 0.92, -9.6}}, {3500, { 0.98, -10.3, 569.3, -43.0, 569.3, -43.0, 0.98, -10.3}}, {3600, { 1.03, -10.6, 560.6, -43.7, 560.6, -43.7, 1.03, -10.6}}, {3700, { 1.09, -11.3, 552.0, -44.3, 552.0, -44.3, 1.09, -11.3}}, {3800, { 1.14, -11.6, 543.5, -44.9, 543.5, -44.9, 1.14, -11.6}}, {3900, { 1.20, -12.3, 535.3, -45.4, 535.3, -45.4, 1.20, -12.3}}, {4000, { 1.26, -13.3, 527.2, -46.0, 527.2, -46.0, 1.26, -13.3}} }; /* V.56bis AD-1 AD-5 AD-6 AD-7 AD-8 AD-9 */ struct { int freq; float ad[6]; } ad[] = { { 0, {90.0, 90.0, 90.0, 90.0, 90.0, 90.0}}, { 200, { 6.0, 3.2, 3.0, 2.9, 11.6, 23.3}}, { 300, { 1.3, 1.4, 1.2, 1.1, 6.9, 13.9}}, { 400, { 0.0, 0.4, 0.3, 0.3, 4.0, 7.9}}, { 500, { 0.0, -0.1, 0.0, 0.1, 2.0, 4.1}}, { 600, { 0.0, -0.1, 0.0, 0.1, 1.2, 2.4}}, { 700, { 0.0, 0.1, 0.0, 0.0, 0.8, 1.7}}, { 800, { 0.0, 0.0, 0.0, -0.1, 0.5, 1.1}}, { 900, { 0.0, 0.0, 0.0, -0.1, 0.2, 0.4}}, {1000, { 0.0, 0.0, 0.0, 0.0, 0.0, 0.0}}, {1100, { 0.0, 0.0, 0.1, 0.0, -0.1, -0.2}}, {1200, { 0.0, 0.0, 0.1, 0.1, -0.1, -0.2}}, {1300, { 0.0, 0.1, 0.2, 0.3, -0.1, -0.2}}, {1400, { 0.0, 0.2, 0.3, 0.4, -0.1, -0.3}}, {1500, { 0.0, 0.2, 0.3, 0.4, -0.2, -0.4}}, {1600, { 0.0, 0.3, 0.5, 0.5, -0.1, -0.3}}, {1700, { 0.0, 0.3, 0.5, 0.6, -0.1, -0.1}}, {1800, { 0.0, 0.3, 0.5, 0.6, 0.0, 0.0}}, {1900, { 0.0, 0.4, 0.7, 0.7, 0.1, 0.2}}, {2000, { 0.0, 0.5, 0.8, 0.9, 0.2, 0.5}}, {2100, { 0.1, 0.6, 1.0, 1.0, 0.5, 0.9}}, {2200, { 0.2, 0.7, 1.1, 1.1, 0.6, 1.1}}, {2300, { 0.3, 0.9, 1.2, 1.4, 0.8, 1.5}}, {2400, { 0.4, 1.1, 1.5, 1.6, 0.9, 1.8}}, {2500, { 0.5, 1.3, 1.8, 2.0, 1.1, 2.3}}, {2600, { 0.6, 1.6, 2.4, 2.7, 1.4, 2.8}}, {2700, { 0.7, 2.0, 3.0, 3.5, 1.7, 3.4}}, {2800, { 0.7, 2.3, 3.5, 4.3, 2.0, 4.0}}, {2900, { 0.9, 2.8, 4.2, 5.0, 2.4, 4.9}}, {3000, { 1.1, 3.2, 4.9, 5.8, 3.0, 5.9}}, {3100, { 1.2, 3.5, 5.6, 6.7, 3.4, 6.8}}, {3200, { 1.3, 4.1, 6.7, 8.0, 3.9, 7.7}}, {3300, { 1.6, 4.8, 8.0, 9.6, 4.6, 9.2}}, {3400, { 1.8, 5.3, 9.1, 11.0, 5.4, 10.7}}, {3500, { 2.4, 5.7, 10.3, 12.2, 6.3, 12.6}}, {3600, { 3.0, 6.6, 12.1, 13.9, 7.8, 15.5}}, {3700, { 5.7, 8.9, 15.8, 17.3, 10.3, 20.5}}, {3800, {13.5, 15.7, 24.4, 25.7, 16.2, 32.4}}, {3900, {31.2, 31.1, 42.2, 43.3, 29.9, 59.9}}, {4000, {31.2, 31.1, 42.2, 43.3, 29.9, 59.9}} }; /* V.56bis EDD-1 EDD-2 EDD-3 */ struct { int freq; float edd[3]; } edd[] = { { 0, {3.98, 3.76, 8.00}}, { 200, {3.98, 3.76, 8.00}}, { 300, {2.70, 3.76, 8.00}}, { 400, {1.69, 2.20, 6.90}}, { 500, {1.15, 1.36, 5.50}}, { 600, {0.80, 0.91, 4.40}}, { 700, {0.60, 0.64, 3.40}}, { 800, {0.50, 0.46, 2.80}}, { 900, {0.40, 0.34, 2.00}}, {1000, {0.30, 0.24, 1.50}}, {1100, {0.20, 0.16, 1.00}}, {1200, {0.20, 0.11, 0.70}}, {1300, {0.10, 0.07, 0.40}}, {1400, {0.05, 0.05, 0.30}}, {1500, {0.00, 0.03, 0.20}}, {1600, {0.00, 0.01, 0.10}}, {1700, {0.00, 0.00, 0.10}}, {1800, {0.00, 0.00, 0.00}}, {1900, {0.00, 0.02, 0.10}}, {2000, {0.00, 0.04, 0.10}}, {2100, {0.02, 0.08, 0.10}}, {2200, {0.02, 0.12, 0.20}}, {2300, {0.02, 0.16, 0.20}}, {2400, {0.02, 0.20, 0.30}}, {2500, {0.10, 0.27, 0.40}}, {2600, {0.12, 0.36, 0.50}}, {2700, {0.15, 0.47, 0.80}}, {2800, {0.20, 0.60, 1.10}}, {2900, {0.27, 0.77, 1.50}}, {3000, {0.40, 1.01, 2.00}}, {3100, {0.56, 1.32, 2.60}}, {3200, {0.83, 1.78, 3.20}}, {3300, {1.07, 1.78, 4.00}}, {3400, {1.39, 1.78, 4.00}}, {3500, {1.39, 1.78, 4.00}}, {3600, {1.39, 1.78, 4.00}}, {3700, {1.39, 1.78, 4.00}}, {3800, {1.39, 1.78, 4.00}}, {3900, {1.39, 1.78, 4.00}}, {4000, {1.39, 1.78, 4.00}} }; /* V.56bis PCM AD-1, AD-2, AD-3 */ struct { int freq; float ad[3]; } pcm_ad[] = { { 50, {41.4, 77.8, 114.2}}, { 100, {15.5, 27.7, 39.9}}, { 150, { 3.7, 6.1, 8.6}}, { 200, { 0.5, 0.8, 1.0}}, { 250, {-0.2, -0.2, -0.3}}, { 300, {-0.2, -0.3, -0.4}}, { 400, { 0.0, -0.2, -0.3}}, { 500, {-0.2, -0.4, -0.5}}, { 600, {-0.2, -0.3, -0.5}}, { 700, {-0.2, -0.3, -0.5}}, { 800, {-0.2, -0.4, -0.5}}, { 900, {-0.2, -0.3, -0.4}}, {1000, {-0.1, -0.2, -0.3}}, {1100, {-0.2, -0.3, -0.3}}, {1200, {-0.2, -0.3, -0.4}}, {1300, {-0.2, -0.3, -0.5}}, {1400, {-0.1, -0.3, -0.4}}, {1500, {-0.1, -0.3, -0.4}}, {1600, {-0.1, -0.2, -0.3}}, {1700, {-0.1, -0.3, -0.4}}, {1800, {-0.2, -0.3, -0.4}}, {1900, {-0.2, -0.3, -0.3}}, {2000, {-0.1, -0.2, -0.3}}, {2100, {-0.1, -0.2, -0.3}}, {2200, {-0.1, -0.3, -0.4}}, {2300, {-0.1, -0.1, -0.2}}, {2400, {-0.1, -0.1, -0.2}}, {2500, { 0.0, -0.1, -0.1}}, {2600, { 0.0, -0.1, -0.1}}, {2700, { 0.0, 0.0, 0.1}}, {2800, { 0.0, 0.0, 0.1}}, {2900, { 0.1, 0.2, 0.2}}, {3000, { 0.0, 0.0, 0.1}}, {3100, { 0.0, 0.0, 0.0}}, {3200, { 0.0, 0.0, 0.1}}, {3300, { 0.3, 0.7, 1.0}}, {3400, { 1.2, 2.4, 3.6}}, {3500, { 3.2, 6.3, 9.5}}, {3550, { 5.0, 9.6, 14.3}}, {3600, { 7.0, 13.5, 19.9}}, {3650, {10.0, 18.7, 27.5}}, {3700, {13.4, 24.6, 35.8}}, {3750, {18.1, 32.1, 46.2}}, {3800, {24.3, 41.2, 58.2}}, {3850, {32.5, 52.6, 72.7}}, {3900, {43.4, 66.6, 89.8}}, {4000, {43.4, 66.6, 89.8}} }; /* V.56bis PCM EDD-1, EDD-2, EDD-3 */ struct { int freq; float edd[3]; } pcm_edd[] = { { 150, { 2.76, 5.5, 8.3}}, { 200, { 1.70, 3.4, 5.1}}, { 250, { 0.92, 1.8, 2.8}}, { 300, { 0.55, 1.1, 1.7}}, { 400, { 0.25, 0.5, 0.7}}, { 500, { 0.12, 0.2, 0.4}}, { 600, { 0.06, 0.1, 0.2}}, { 700, { 0.03, 0.1, 0.1}}, { 800, { 0.01, 0.0, 0.0}}, { 900, { 0.00, 0.0, 0.0}}, {1000, {-0.01, 0.0, 0.0}}, {1100, {-0.01, 0.0, 0.0}}, {1200, {-0.02, 0.0, -0.1}}, {1300, {-0.02, 0.0, -0.1}}, {1400, {-0.01, 0.0, 0.0}}, {1500, {-0.01, 0.0, 0.0}}, {1600, { 0.00, 0.0, 0.0}}, {1700, { 0.00, 0.0, 0.0}}, {1800, { 0.01, 0.0, 0.0}}, {1900, { 0.02, 0.0, 0.0}}, {2000, { 0.02, 0.0, 0.1}}, {2100, { 0.04, 0.1, 0.1}}, {2200, { 0.05, 0.1, 0.2}}, {2300, { 0.06, 0.1, 0.2}}, {2400, { 0.07, 0.1, 0.2}}, {2500, { 0.10, 0.2, 0.3}}, {2600, { 0.11, 0.2, 0.3}}, {2700, { 0.14, 0.3, 0.4}}, {2800, { 0.18, 0.4, 0.5}}, {2900, { 0.22, 0.4, 0.6}}, {3000, { 0.27, 0.5, 0.8}}, {3100, { 0.34, 0.7, 1.0}}, {3200, { 0.45, 0.9, 1.4}}, {3250, { 0.52, 1.0, 1.6}}, {3300, { 0.60, 1.2, 1.8}}, {3350, { 0.66, 1.3, 2.0}}, {3400, { 0.74, 1.5, 2.2}}, {3450, { 0.79, 1.6, 2.4}}, {3500, { 0.83, 1.7, 2.5}}, {3550, { 0.84, 1.7, 2.5}}, {3600, { 0.81, 1.6, 2.4}}, {3700, { 0.81, 1.6, 2.4}}, {3800, { 0.81, 1.6, 2.4}}, {3900, { 0.81, 1.6, 2.4}}, {4000, { 0.81, 1.6, 2.4}} }; FILE *outfile; float impulse_responses[100][LINE_FILTER_SIZE]; int filter_sets = 0; static void generate_ad_edd(void) { float f; float offset; float amp; float phase; float delay; float pw; #if defined(HAVE_FFTW3_H) double in[FFT_SIZE][2]; double out[FFT_SIZE][2]; #else fftw_complex in[FFT_SIZE]; fftw_complex out[FFT_SIZE]; #endif fftw_plan p; int i; int j; int k; int l; #if defined(HAVE_FFTW3_H) p = fftw_plan_dft_1d(FFT_SIZE, in, out, FFTW_BACKWARD, FFTW_ESTIMATE); #else p = fftw_create_plan(FFT_SIZE, FFTW_BACKWARD, FFTW_ESTIMATE); #endif for (j = 0; j < 6; j++) { for (k = 0; k < 3; k++) { for (i = 0; i < FFT_SIZE; i++) { #if defined(HAVE_FFTW3_H) in[i][0] = in[i][1] = 0.0f; #else in[i].re = in[i].im = 0.0f; #endif } for (i = 1; i < FFT_SIZE/2; i++) { f = (float) i*SAMPLE_RATE/FFT_SIZE; amp = 0.0f; for (l = 0; l < (int) (sizeof(ad)/sizeof(ad[0])); l++) { if (f < ad[l].freq) break; } if (l < (int) (sizeof(ad)/sizeof(ad[0]))) { offset = (f - ad[l - 1].freq)/(ad[l].freq - ad[l - 1].freq); amp = (1.0 - offset)*ad[l - 1].ad[j] + offset*ad[l].ad[j]; amp = pow(10.0, -amp/20.0); } delay = 0.0f; for (l = 0; l < (int) (sizeof(edd)/sizeof(edd[0])); l++) { if (f < edd[l].freq) break; } if (l < (int) (sizeof(edd)/sizeof(edd[0]))) { offset = (f - edd[l - 1].freq)/(edd[l].freq - edd[l - 1].freq); delay = (1.0f - offset)*edd[l - 1].edd[k] + offset*edd[l].edd[k]; } //phase = 2.0f*M_PI*f*delay*0.001f; phase = 0.0f; #if defined(HAVE_FFTW3_H) in[i][0] = amp*cosf(phase); in[i][1] = amp*sinf(phase); in[FFT_SIZE - i][0] = in[i][0]; in[FFT_SIZE - i][1] = -in[i][1]; #else in[i].re = amp*cosf(phase); in[i].im = amp*sinf(phase); in[FFT_SIZE - i].re = in[i].re; in[FFT_SIZE - i].im = -in[i].im; #endif } #if 0 for (i = 0; i < FFT_SIZE; i++) fprintf(outfile, "%5d %15.5f,%15.5f\n", i, in[i].re, in[i].im); #endif #if defined(HAVE_FFTW3_H) fftw_execute(p); #else fftw_one(p, in, out); #endif fprintf(outfile, "/* V.56bis AD-%d, EDD%d */\n", (j == 0) ? 1 : j + 4, k + 1); fprintf(outfile, "const float ad_%d_edd_%d_model[] =\n", (j == 0) ? 1 : j + 4, k + 1); fprintf(outfile, "{\n"); /* Normalise the filter's gain */ pw = 0.0f; l = FFT_SIZE - (LINE_FILTER_SIZE - 1)/2; for (i = 0; i < LINE_FILTER_SIZE; i++) { #if defined(HAVE_FFTW3_H) pw += out[l][0]*out[l][0]; #else pw += out[l].re*out[l].re; #endif if (++l == FFT_SIZE) l = 0; } pw = sqrt(pw); l = FFT_SIZE - (LINE_FILTER_SIZE - 1)/2; for (i = 0; i < LINE_FILTER_SIZE; i++) { #if defined(HAVE_FFTW3_H) impulse_responses[filter_sets][i] = out[l][0]/pw; #else impulse_responses[filter_sets][i] = out[l].re/pw; #endif fprintf(outfile, "%15.5f,\n", impulse_responses[filter_sets][i]); if (++l == FFT_SIZE) l = 0; } fprintf(outfile, "};\n\n"); filter_sets++; } } } static void generate_proakis(void) { float f; float f1; float offset; float amp; float phase; float delay; float pw; int index; int i; int l; #if defined(HAVE_FFTW3_H) double in[FFT_SIZE][2]; double out[FFT_SIZE][2]; #else fftw_complex in[FFT_SIZE]; fftw_complex out[FFT_SIZE]; #endif fftw_plan p; #if defined(HAVE_FFTW3_H) p = fftw_plan_dft_1d(FFT_SIZE, in, out, FFTW_BACKWARD, FFTW_ESTIMATE); #else p = fftw_create_plan(FFT_SIZE, FFTW_BACKWARD, FFTW_ESTIMATE); #endif for (i = 0; i < FFT_SIZE; i++) { #if defined(HAVE_FFTW3_H) in[i][0] = in[i][1] = 0.0f; #else in[i].re = in[i].im = 0.0f; #endif } for (i = 1; i < FFT_SIZE/2; i++) { f = (float) i*SAMPLE_RATE/FFT_SIZE; f1 = f/200.0f; offset = f1 - floor(f1); index = (int) floor(f1); /* Linear interpolation */ amp = ((1.0f - offset)*proakis[index].amp + offset*proakis[index + 1].amp)/2.3f; delay = (1.0f - offset)*proakis[index].delay + offset*proakis[index + 1].delay; //phase = 2.0f*M_PI*f*delay*0.001f; phase = 0.0f; #if defined(HAVE_FFTW3_H) in[i][0] = amp*cosf(phase); in[i][1] = amp*sinf(phase); in[FFT_SIZE - i][0] = in[i][0]; in[FFT_SIZE - i][1] = -in[i][1]; #else in[i].re = amp*cosf(phase); in[i].im = amp*sinf(phase); in[FFT_SIZE - i].re = in[i].re; in[FFT_SIZE - i].im = -in[i].im; #endif } #if defined(HAVE_FFTW3_H) fftw_execute(p); #else fftw_one(p, in, out); #endif fprintf(outfile, "/* Medium range telephone line response\n"); fprintf(outfile, " (from p 537, Digital Communication, John G. Proakis */\n"); fprintf(outfile, "const float proakis_line_model[] =\n"); fprintf(outfile, "{\n"); /* Normalise the filter's gain */ pw = 0.0f; l = FFT_SIZE - (LINE_FILTER_SIZE - 1)/2; for (i = 0; i < LINE_FILTER_SIZE; i++) { #if defined(HAVE_FFTW3_H) pw += out[l][0]*out[l][0]; #else pw += out[l].re*out[l].re; #endif if (++l == FFT_SIZE) l = 0; } pw = sqrt(pw); l = FFT_SIZE - (LINE_FILTER_SIZE - 1)/2; for (i = 0; i < LINE_FILTER_SIZE; i++) { #if defined(HAVE_FFTW3_H) impulse_responses[filter_sets][i] = out[l][0]/pw; #else impulse_responses[filter_sets][i] = out[l].re/pw; #endif fprintf(outfile, "%15.5f,\n", impulse_responses[filter_sets][i]); if (++l == FFT_SIZE) l = 0; } fprintf(outfile, "};\n\n"); filter_sets++; } int main(int argc, char *argv[]) { int i; int j; if ((outfile = fopen(LINE_MODEL_FILE_NAME, "w")) == NULL) { fprintf(stderr, "Failed to open %s\n", "line_model.txt"); exit(2); } generate_proakis(); generate_ad_edd(); fclose(outfile); if (argc > 1) { for (i = 0; i < LINE_FILTER_SIZE; i++) { printf("%d, ", i); for (j = 0; j < filter_sets; j++) { printf("%15.5f, ", impulse_responses[j][i]); } printf("\n"); } } return 0; } spandsp-0.0.6/spandsp-sim/spandsp/0000775000175000017500000000000011516506112016503 5ustar steveusteveuspandsp-0.0.6/spandsp-sim/spandsp/g1050.h0000664000175000017500000002333111422612261017411 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * g1050.h - IP network modeling, as per G.1050/TIA-921. * * Written by Steve Underwood * * Copyright (C) 2007 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \file */ /*! \page g1050_ip_network_model_page G.1050/TIA-921 IP network path model \section g1050_ip_network_model_page_sec_1 What does it do? The ITU G.1050 specification defines a model of an IP network, appropriate for the testing of how streaming media woud behave across the internet. The model is based on a path having 5 segments: - a local LAN (wired or wireless) - an access link to the internet - an internet of arbitrary complexity - an access link from the internet - a distant LAN (wired or wireless) The impairments typical of these segments at various service levels are modelled. 8 standard service level behaviours are defined, covering lightly loaded to heavily congested levels. 168 standard sets of link speeds are defined, covering typical wired and wireless LAN, broadband access link, and backbone characteristics. The G.1050 model is suitable for testing the behaviour of RTP, UDPTL and other streaming protocols for packet loss and jitter behaviour. */ #if !defined(_G1050_H_) #define _G1050_H_ /* This is the time slice at which delays, packet loss, etc. are calculated. */ #define G1050_TICKS_PER_SEC 1000 /* Search back 200 ms to preserve order of legitimately out of sequence packets. */ #define SEARCHBACK_PERIOD 200 #define G1050_LOW_LOSS 0 #define G1050_HIGH_LOSS 1 #define G1050_LAN_LINK 1 #define G1050_ACCESS_LINK 2 /*! Segment constants, as defined in G.1050. */ typedef struct { /*! Probability of changing from low to high and high to low loss states */ double prob_loss_rate_change[2]; /*! Probability of an impulse in the low and high loss states */ double prob_impulse[2][2]; /*! Impulse height, based on MTU and bit rate */ double impulse_height; /*! Impulse decay coefficient for the single pole IIR filter. */ double impulse_coeff; /*! Probability of packet loss due to occupancy. */ double prob_packet_loss; /*! Probability of packet loss due to a multiple access collision. */ double prob_packet_collision_loss; } g1050_segment_constants_t; /*! End-to-end constants, as defined in G.1050. */ typedef struct { g1050_segment_constants_t segment[4]; } g1050_constants_t; /*! The model definition for a LAN or access link segment */ typedef struct { /*! Percentage occupancy of the media */ double percentage_occupancy; /*! MTU of the media */ int mtu; /*! Maximum jitter in the segment. */ double max_jitter; } g1050_segment_model_t; /*! The model definition for the core network (backbone) segment */ typedef struct { /*! Basic delay of the backbone for regional paths */ double base_regional_delay; /*! Basic delay of the backbone for intercontinental paths */ double base_intercontinental_delay; /*! Percentage packet loss of the backbone */ /*! Percentage packet loss of the backbone. */ double percentage_packet_loss; /*! Maximum jitter in the backbone. */ double max_jitter; /*! Interval between the backbone route flapping between two paths, in seconds. */ double route_flap_interval; /*! The difference in backbone delay between the two routes we flap between, in seconds. */ double route_flap_delay; /*! The interval between link failures. */ double link_failure_interval; /*! The duration of link failures. */ double link_failure_duration; /*! Probability of packet loss in the backbone. */ double prob_packet_loss; /*! Probability of a packet going out of sequence in the backbone. */ double prob_oos; } g1050_core_model_t; /*! The model definition for a complete end-to-end path */ typedef struct { /*! The likelyhood of occurance probabilities for the A, B and C scenarios defined in G.1050 */ int loo[3]; g1050_segment_model_t sidea_lan; g1050_segment_model_t sidea_access_link; g1050_core_model_t core; g1050_segment_model_t sideb_access_link; g1050_segment_model_t sideb_lan; } g1050_model_t; /*! The speed model for a complete end-to-end path */ typedef struct { int sidea_lan_bit_rate; int sidea_lan_multiple_access; int sidea_access_link_bit_rate_ab; int sidea_access_link_bit_rate_ba; int sidea_access_link_qos_enabled; int sideb_lan_bit_rate; int sideb_lan_multiple_access; int sideb_access_link_bit_rate_ab; int sideb_access_link_bit_rate_ba; int sideb_access_link_qos_enabled; double loo; } g1050_channel_speeds_t; /*! The model state for a LAN or access link segment */ typedef struct { /*! The type of link, G1050_LAN_LINK or G_1050_ACCESS_LINK */ int link_type; /*! 1 if in the high loss state, or 0 if in the low loss state. */ int high_loss; /*! The probability of a loss rate change, for both loss rate states. */ double prob_loss_rate_change[2]; /*! The probability of a impulse occuring, for both loss rate states. */ double prob_impulse[2]; /*! The maximum permitted height of impulses. */ double impulse_height; /*! The impulse decay coefficient. */ double impulse_coeff; /*! The basic serial delay due to the link. */ double serial_delay; /*! Peak jitter in the segment. */ double max_jitter; /*! The probability of packet loss. */ double prob_packet_loss; /*! The probability of packet loss due to collision. */ double prob_packet_collision_loss; /*! The maximum addition delay due to congestion. */ double congestion_delay; /*! TRUE if QoS is enabled on the link. */ int qos_enabled; /*! TRUE if the link is a multiple access type (e.g. an ethernet hub). */ int multiple_access; /*! The latest packet arrival time seen on the link. */ double last_arrival_time; /*! 3 seconds of predicted delays for the link */ double delays[3*G1050_TICKS_PER_SEC]; /*! A count of packets lost on the link. */ uint32_t lost_packets; /*! An extra debug count of packets lost on the link. */ uint32_t lost_packets_2; } g1050_segment_state_t; /*! The model state for the core network (backbone) segment */ typedef struct { /* Router model. */ int32_t route_flap_counter; int32_t route_flap_interval; double route_flap_delta; /* Link failure model. */ int32_t link_failure_counter; int32_t link_recovery_counter; int32_t link_failure_interval_ticks; int32_t link_failure_duration_ticks; /*! Basic backbone delay */ double base_delay; /*! Peak jitter in the backbone delay */ double max_jitter; /*! Probability of packet loss in the backbone, in percent */ double prob_packet_loss; /*! Probability of a packet going out of sequence in the backbone. */ double prob_oos; /*! The latest packet arrival time seen on the link. */ double last_arrival_time; double delay_delta; /*! 3 seconds of predicted delays for the link */ double delays[3*G1050_TICKS_PER_SEC]; /*! A count of packets lost on the link. */ uint32_t lost_packets; /*! An extra debug count of packets lost on the link. */ uint32_t lost_packets_2; } g1050_core_state_t; /*! The definition of an element in the packet queue */ typedef struct g1050_queue_element_s { struct g1050_queue_element_s *next; struct g1050_queue_element_s *prev; int seq_no; double departure_time; double arrival_time; int len; uint8_t pkt[]; } g1050_queue_element_t; /*! The model definition for a complete end-to-end path */ typedef struct { int packet_rate; int packet_size; float base_time; g1050_segment_state_t segment[4]; g1050_core_state_t core; double arrival_times_1[3*G1050_TICKS_PER_SEC]; double arrival_times_2[3*G1050_TICKS_PER_SEC]; g1050_queue_element_t *first; g1050_queue_element_t *last; } g1050_state_t; extern g1050_constants_t g1050_constants[1]; extern g1050_channel_speeds_t g1050_speed_patterns[168]; extern g1050_model_t g1050_standard_models[9]; #ifdef __cplusplus extern "C" { #endif SPAN_DECLARE(g1050_state_t *) g1050_init(int model, int speed_pattern, int packet_size, int packet_rate); SPAN_DECLARE(void) g1050_dump_parms(int model, int speed_pattern); SPAN_DECLARE(int) g1050_put(g1050_state_t *s, const uint8_t buf[], int len, int seq_no, double departure_time); SPAN_DECLARE(int) g1050_get(g1050_state_t *s, uint8_t buf[], int max_len, double current_time, int *seq_no, double *departure_time, double *arrival_time); SPAN_DECLARE(void) g1050_queue_dump(g1050_state_t *s); #ifdef __cplusplus } #endif #endif /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/spandsp-sim/spandsp/line_model.h0000664000175000017500000001445011422612261020766 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * line_model.h - Model a telephone line. * * Written by Steve Underwood * * Copyright (C) 2004 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \file */ /*! \page line_model_page Telephone line model \section line_model_page_sec_1 What does it do? The telephone line modelling module provides simple modelling of one way and two way telephone lines. The path being modelled is: - terminal - | < hybrid echo (2-way models) - | - | < noise and filtering - | - | < hybrid echo (2-way models) - CO - | - | < A-law distortion + bulk delay - | - CO - | < hybrid echo (2-way models) - | - | < noise and filtering - | - | < hybrid echo (2-way models) - terminal */ #if !defined(_SPANDSP_LINE_MODEL_H_) #define _SPANDSP_LINE_MODEL_H_ #define SPANDSP_EXPOSE_INTERNAL_STRUCTURES #include #define LINE_FILTER_SIZE 129 /*! One way line model descriptor. This holds the complete state of a line model with transmission in only one direction. */ typedef struct { codec_munge_state_t *munge; /*! The coefficients for the near end analogue section simulation filter */ const float *near_filter; /*! The number of coefficients for the near end analogue section simulation filter */ int near_filter_len; /*! Last transmitted samples (ring buffer, used by the line filter) */ float near_buf[LINE_FILTER_SIZE]; /*! Pointer of the last transmitted sample in buf */ int near_buf_ptr; /*! The noise source for local analogue section of the line */ awgn_state_t near_noise; /*! The bulk delay of the path, in samples */ int bulk_delay; /*! A pointer to the current write position in the bulk delay store. */ int bulk_delay_ptr; /*! The data store for simulating the bulk delay */ int16_t bulk_delay_buf[8000]; /*! The coefficients for the far end analogue section simulation filter */ const float *far_filter; /*! The number of coefficients for the far end analogue section simulation filter */ int far_filter_len; /*! Last transmitted samples (ring buffer, used by the line filter) */ float far_buf[LINE_FILTER_SIZE]; /*! Pointer of the last transmitted sample in buf */ int far_buf_ptr; /*! The noise source for distant analogue section of the line */ awgn_state_t far_noise; /*! The scaling factor for the local CPE hybrid echo */ float near_cpe_hybrid_echo; /*! The scaling factor for the local CO hybrid echo */ float near_co_hybrid_echo; /*! The scaling factor for the far CPE hybrid echo */ float far_cpe_hybrid_echo; /*! The scaling factor for the far CO hybrid echo */ float far_co_hybrid_echo; /*! DC offset impairment */ float dc_offset; /*! Mains pickup impairment */ int mains_interference; tone_gen_state_t mains_tone; } one_way_line_model_state_t; /*! Two way line model descriptor. This holds the complete state of a line model with transmission in both directions. */ typedef struct { one_way_line_model_state_t line1; one_way_line_model_state_t line2; float fout1; float fout2; } both_ways_line_model_state_t; #ifdef __cplusplus extern "C" { #endif SPAN_DECLARE_DATA extern const float *line_models[]; SPAN_DECLARE(void) both_ways_line_model(both_ways_line_model_state_t *s, int16_t output1[], const int16_t input1[], int16_t output2[], const int16_t input2[], int samples); SPAN_DECLARE(void) both_ways_line_model_set_dc(both_ways_line_model_state_t *s, float dc1, float dc2); SPAN_DECLARE(void) both_ways_line_model_set_mains_pickup(both_ways_line_model_state_t *s, int f, float level1, float level2); SPAN_DECLARE(both_ways_line_model_state_t *) both_ways_line_model_init(int model1, float noise1, float echo_level_cpe1, float echo_level_co1, int model2, float noise2, float echo_level_cpe2, float echo_level_co2, int codec, int rbs_pattern); SPAN_DECLARE(int) both_ways_line_model_release(both_ways_line_model_state_t *s); SPAN_DECLARE(void) one_way_line_model(one_way_line_model_state_t *s, int16_t output[], const int16_t input[], int samples); SPAN_DECLARE(void) one_way_line_model_set_dc(one_way_line_model_state_t *s, float dc); SPAN_DECLARE(void) one_way_line_model_set_mains_pickup(one_way_line_model_state_t *s, int f, float level); SPAN_DECLARE(one_way_line_model_state_t *) one_way_line_model_init(int model, float noise, int codec, int rbs_pattern); SPAN_DECLARE(int) one_way_line_model_release(one_way_line_model_state_t *s); #ifdef __cplusplus } #endif #endif /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/spandsp-sim/spandsp/line_models.h0000664000175000017500000000333611422612261021152 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * line_model.h - Model a telephone line. * * Written by Steve Underwood * * Copyright (C) 2004 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \file */ #if !defined(_SPANDSP_LINE_MODELS_H_) #define _SPANDSP_LINE_MODELS_H_ extern float proakis_line_model[]; extern float ad_1_edd_1_model[]; extern float ad_1_edd_2_model[]; extern float ad_1_edd_3_model[]; extern float ad_5_edd_1_model[]; extern float ad_5_edd_2_model[]; extern float ad_5_edd_3_model[]; extern float ad_6_edd_1_model[]; extern float ad_6_edd_2_model[]; extern float ad_6_edd_3_model[]; extern float ad_7_edd_1_model[]; extern float ad_7_edd_2_model[]; extern float ad_7_edd_3_model[]; extern float ad_8_edd_1_model[]; extern float ad_8_edd_2_model[]; extern float ad_8_edd_3_model[]; extern float ad_9_edd_1_model[]; extern float ad_9_edd_2_model[]; extern float ad_9_edd_3_model[]; #ifdef __cplusplus extern "C" { #endif #ifdef __cplusplus } #endif #endif /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/spandsp-sim/spandsp/rfc2198_sim.h0000664000175000017500000000571211422612261020626 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * rfc2198_sim.h - Simulate the behaviour of RFC2198 (or UDPTL) redundancy. * * Written by Steve Underwood * * Copyright (C) 2007 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \file */ /*! \page rfc2198_model_page RFC2198 simulation \section rfc2198_model_page_sec_1 What does it do? */ #if !defined(_RFC2198_SIM_H_) #define _RFC2198_SIM_H_ /*! The definition of an element in the packet queue */ typedef struct rfc2198_sim_queue_element_s { struct rfc2198_sim_queue_element_s *next; struct rfc2198_sim_queue_element_s *prev; int seq_no; double departure_time; double arrival_time; int len; uint8_t pkt[]; } rfc2198_sim_queue_element_t; /*! The model definition for a complete end-to-end path */ typedef struct { int redundancy_depth; int next_seq_no; g1050_state_t *g1050; rfc2198_sim_queue_element_t *first; rfc2198_sim_queue_element_t *last; uint8_t tx_pkt[32][1024]; int tx_pkt_len[32]; int tx_pkt_seq_no[32]; int next_pkt; uint8_t rx_pkt[32][1024]; int rx_pkt_len[32]; int rx_pkt_seq_no[32]; int rx_queued_pkts; } rfc2198_sim_state_t; #ifdef __cplusplus extern "C" { #endif SPAN_DECLARE(rfc2198_sim_state_t *) rfc2198_sim_init(int model, int speed_pattern, int packet_size, int packet_rate, int redundancy_depth); SPAN_DECLARE(int) rfc2198_sim_put(rfc2198_sim_state_t *s, const uint8_t buf[], int len, int seq_no, double departure_time); SPAN_DECLARE(int) rfc2198_sim_get(rfc2198_sim_state_t *s, uint8_t buf[], int max_len, double current_time, int *seq_no, double *departure_time, double *arrival_time); #ifdef __cplusplus } #endif #endif /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/spandsp-sim/spandsp/test_utils.h0000664000175000017500000000411611422612261021054 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * test_utils.h - Utility routines for module tests. * * Written by Steve Underwood * * Copyright (C) 2006 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \file */ #if !defined(_TEST_UTILS_H_) #define _TEST_UTILS_H_ #include enum { MUNGE_CODEC_NONE = 0, MUNGE_CODEC_ALAW, MUNGE_CODEC_ULAW, MUNGE_CODEC_G726_40K, MUNGE_CODEC_G726_32K, MUNGE_CODEC_G726_24K, MUNGE_CODEC_G726_16K, }; typedef struct codec_munge_state_s codec_munge_state_t; typedef struct complexify_state_s complexify_state_t; #ifdef __cplusplus extern "C" { #endif SPAN_DECLARE(complexify_state_t *) complexify_init(void); SPAN_DECLARE(void) complexify_release(complexify_state_t *s); SPAN_DECLARE(complexf_t) complexify(complexify_state_t *s, int16_t amp); SPAN_DECLARE(void) fft(complex_t data[], int len); SPAN_DECLARE(void) ifft(complex_t data[], int len); SPAN_DECLARE(codec_munge_state_t *) codec_munge_init(int codec, int info); SPAN_DECLARE(void) codec_munge_release(codec_munge_state_t *s); SPAN_DECLARE(void) codec_munge(codec_munge_state_t *s, int16_t amp[], int len); SPAN_DECLARE(SNDFILE *) sf_open_telephony_read(const char *name, int channels); SPAN_DECLARE(SNDFILE *) sf_open_telephony_write(const char *name, int channels); #ifdef __cplusplus } #endif #endif /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/spandsp-sim/libspandsp_sim.2008.vcproj0000664000175000017500000001601111516506112021656 0ustar steveusteveu spandsp-0.0.6/spandsp-sim/msvc/0000775000175000017500000000000011516506112016003 5ustar steveusteveuspandsp-0.0.6/spandsp-sim/msvc/msvcproj.foot0000664000175000017500000000023011210514675020536 0ustar steveusteveu # Begin Group "Resource Files" # PROP Default_Filter "ico;cur;bmp;dlg;rc2;rct;bin;rgs;gif;jpg;jpeg;jpe" # End Group # End Target # End Project spandsp-0.0.6/spandsp-sim/msvc/vc8proj.head0000664000175000017500000000545211210514676020234 0ustar steveusteveu spandsp-0.0.6/spandsp-sim/msvc/msvcproj.head0000664000175000017500000000717211210514676020505 0ustar steveusteveu# Microsoft Developer Studio Project File - Name="spandsp" - Package Owner=<4> # Microsoft Developer Studio Generated Build File, Format Version 6.00 # ** DO NOT EDIT ** # TARGTYPE "Win32 (x86) Dynamic-Link Library" 0x0102 CFG=spandsp - Win32 Debug !MESSAGE This is not a valid makefile. To build this project using NMAKE, !MESSAGE use the Export Makefile command and run !MESSAGE !MESSAGE NMAKE /f "spandsp.mak". !MESSAGE !MESSAGE You can specify a configuration when running NMAKE !MESSAGE by defining the macro CFG on the command line. For example: !MESSAGE !MESSAGE NMAKE /f "spandsp.mak" CFG="spandsp - Win32 Debug" !MESSAGE !MESSAGE Possible choices for configuration are: !MESSAGE !MESSAGE "spandsp - Win32 Release" (based on "Win32 (x86) Dynamic-Link Library") !MESSAGE "spandsp - Win32 Debug" (based on "Win32 (x86) Dynamic-Link Library") !MESSAGE # Begin Project # PROP AllowPerConfigDependencies 0 # PROP Scc_ProjName "" # PROP Scc_LocalPath "" CPP=cl.exe MTL=midl.exe RSC=rc.exe !IF "$(CFG)" == "spandsp - Win32 Release" # PROP BASE Use_MFC 0 # PROP BASE Use_Debug_Libraries 0 # PROP BASE Output_Dir "Release" # PROP BASE Intermediate_Dir "Release" # PROP BASE Target_Dir "" # PROP Use_MFC 0 # PROP Use_Debug_Libraries 0 # PROP Output_Dir "Release" # PROP Intermediate_Dir "Release" # PROP Ignore_Export_Lib 0 # PROP Target_Dir "" # ADD BASE CPP /nologo /MT /W3 /GX /O2 /D "WIN32" /D "NDEBUG" /D "_WINDOWS" /D "_MBCS" /D "_USRDLL" /D HAVE_TGMATH_H /YX /FD /c # ADD CPP /nologo /MT /W3 /GX /Zi /O2 /I "." /I "..\include" /D "WIN32" /D "NDEBUG" /D "_WINDOWS" /D "_MBCS" /D "_USRDLL" /D HAVE_TGMATH_H /D "_WINDLL" /FR /FD /c # SUBTRACT CPP /YX # ADD BASE MTL /nologo /D "NDEBUG" /mktyplib203 /win32 # ADD MTL /nologo /D "NDEBUG" /mktyplib203 /win32 # ADD BASE RSC /l 0x409 /d "NDEBUG" # ADD RSC /l 0x409 /d "NDEBUG" BSC32=bscmake.exe # ADD BASE BSC32 /nologo # ADD BSC32 /nologo LINK32=link.exe # ADD BASE LINK32 kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib /nologo /dll /machine:I386 # ADD LINK32 kernel32.lib ws2_32.lib winmm.lib /nologo /dll /map /debug /machine:I386 /out:"Release/libspandsp.dll" !ELSEIF "$(CFG)" == "spandsp - Win32 Debug" # PROP BASE Use_MFC 0 # PROP BASE Use_Debug_Libraries 1 # PROP BASE Output_Dir "Debug" # PROP BASE Intermediate_Dir "Debug" # PROP BASE Target_Dir "" # PROP Use_MFC 0 # PROP Use_Debug_Libraries 1 # PROP Output_Dir "Debug" # PROP Intermediate_Dir "Debug" # PROP Ignore_Export_Lib 0 # PROP Target_Dir "" # ADD BASE CPP /nologo /MTd /W3 /Gm /GX /ZI /Od /D "WIN32" /D "_DEBUG" /D "_WINDOWS" /D "_MBCS" /D "_USRDLL" /D HAVE_TGMATH_H /YX /FD /GZ /c # ADD CPP /nologo /MTd /W3 /Gm /GX /Zi /Od /I "." /I "..\include" /D "WIN32" /D "_DEBUG" /D "_WINDOWS" /D "_MBCS" /D "_USRDLL" /D HAVE_TGMATH_H /FR /FD /GZ /c # SUBTRACT CPP /WX /YX # ADD BASE MTL /nologo /D "_DEBUG" /mktyplib203 /win32 # ADD MTL /nologo /D "_DEBUG" /mktyplib203 /win32 # ADD BASE RSC /l 0x409 /d "_DEBUG" # ADD RSC /l 0x409 /d "_DEBUG" BSC32=bscmake.exe # ADD BASE BSC32 /nologo # ADD BSC32 /nologo LINK32=link.exe # ADD BASE LINK32 kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib /nologo /dll /debug /machine:I386 /pdbtype:sept # ADD LINK32 kernel32.lib ws2_32.lib winmm.lib /nologo /dll /incremental:no /map /debug /machine:I386 /out:"Debug/libspandsp.dll" /pdbtype:sept # SUBTRACT LINK32 /nodefaultlib !ENDIF # Begin Target # Name "spandsp - Win32 Release" # Name "spandsp - Win32 Debug" spandsp-0.0.6/spandsp-sim/msvc/make_line_models.2008.vcproj0000664000175000017500000000514011211246554023112 0ustar steveusteveu spandsp-0.0.6/spandsp-sim/msvc/vc9proj.head0000664000175000017500000001470311211000540020211 0ustar steveusteveu spandsp-0.0.6/spandsp-sim/msvc/vc9proj.foot0000664000175000017500000000011111210516756020267 0ustar steveusteveu spandsp-0.0.6/spandsp-sim/msvc/vc8proj.foot0000664000175000017500000000011111210516756020266 0ustar steveusteveu spandsp-0.0.6/spandsp-sim/rfc2198_sim.c0000664000175000017500000001264411422612261017153 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * rfc2198_sim.c - Simulate the behaviour of RFC2198 (or UDPTL) redundancy. * * Written by Steve Underwood * * Copyright (C) 2007 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License version 2, as * published by the Free Software Foundation. * * 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., 675 Mass Ave, Cambridge, MA 02139, USA. */ #if defined(HAVE_CONFIG_H) #include "config.h" #endif #include #include #include #include #include #include #include #if defined(HAVE_TGMATH_H) #include #endif #if defined(HAVE_MATH_H) #define GEN_CONST #include #endif #include "floating_fudge.h" #include "spandsp.h" #include "spandsp/g1050.h" #include "spandsp/rfc2198_sim.h" #define PACKET_LOSS_TIME -1 #define FALSE 0 #define TRUE (!FALSE) SPAN_DECLARE(rfc2198_sim_state_t *) rfc2198_sim_init(int model, int speed_pattern, int packet_size, int packet_rate, int redundancy_depth) { rfc2198_sim_state_t *s; if ((s = (rfc2198_sim_state_t *) malloc(sizeof(*s))) == NULL) return NULL; memset(s, 0, sizeof(*s)); s->g1050 = g1050_init(model, speed_pattern, packet_size, packet_rate); s->redundancy_depth = redundancy_depth; return s; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) rfc2198_sim_put(rfc2198_sim_state_t *s, const uint8_t buf[], int len, int seq_no, double departure_time) { uint8_t buf2[8192]; uint8_t *p; uint16_t *q; int slot; int i; /* Save the packet in the history buffer */ memcpy(s->tx_pkt[s->next_pkt], buf, len); s->tx_pkt_len[s->next_pkt] = len; s->tx_pkt_seq_no[s->next_pkt] = seq_no; /* Construct the redundant packet */ p = buf2; slot = s->next_pkt; q = (uint16_t *) p; *q = s->redundancy_depth; p += sizeof(uint16_t); for (i = 0; i < s->redundancy_depth; i++) { q = (uint16_t *) p; *q = s->tx_pkt_len[slot]; p += sizeof(uint16_t); memcpy(p, s->tx_pkt[slot], s->tx_pkt_len[slot]); p += s->tx_pkt_len[slot]; slot = (slot - 1) & 0x1F; } s->next_pkt = (s->next_pkt + 1) & 0x1F; return g1050_put(s->g1050, buf2, p - buf2, seq_no, departure_time); } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) rfc2198_sim_get(rfc2198_sim_state_t *s, uint8_t buf[], int max_len, double current_time, int *seq_no, double *departure_time, double *arrival_time) { int len; int lenx; int seq_nox; int i; #if defined(_MSC_VER) uint8_t *bufx = (uint8_t *) _alloca(s->redundancy_depth*1024); #else uint8_t bufx[s->redundancy_depth*1024]; #endif uint8_t *p; uint16_t *q; int redundancy_depth; if (s->rx_queued_pkts) { /* We have some stuff from the last g1050_get() still to deliver */ s->rx_queued_pkts--; memcpy(buf, s->rx_pkt[s->rx_queued_pkts], s->rx_pkt_len[s->rx_queued_pkts]); *seq_no = s->rx_pkt_seq_no[s->rx_queued_pkts]; return s->rx_pkt_len[s->rx_queued_pkts]; } len = g1050_get(s->g1050, bufx, s->redundancy_depth*1024, current_time, &seq_nox, departure_time, arrival_time); if (len > 0) { p = bufx; q = (uint16_t *) p; redundancy_depth = *q; p += sizeof(uint16_t); i = 0; if (seq_nox > s->next_seq_no) { /* Some stuff is missing. Try to fill it in. */ s->rx_queued_pkts = seq_nox - s->next_seq_no; if (s->rx_queued_pkts >= redundancy_depth) s->rx_queued_pkts = redundancy_depth - 1; for (i = 0; i < s->rx_queued_pkts; i++) { q = (uint16_t *) p; s->rx_pkt_len[i] = *q; p += sizeof(uint16_t); memcpy(s->rx_pkt[i], p, s->rx_pkt_len[i]); s->rx_pkt_seq_no[i] = seq_nox - i; p += s->rx_pkt_len[i]; } } *seq_no = seq_nox - i; q = (uint16_t *) p; lenx = *q; p += sizeof(uint16_t); memcpy(buf, p, lenx); s->next_seq_no = seq_nox + 1; } else { lenx = len; } return lenx; } /*- End of function --------------------------------------------------------*/ /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/spandsp-sim/libspandsp_sim.2005.vcproj0000664000175000017500000000656011516506112021663 0ustar steveusteveu spandsp-0.0.6/spandsp-sim/g1050.c0000664000175000017500000017300511422612261015740 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * g1050.c - IP network modeling, as per G.1050/TIA-921. * * Written by Steve Underwood * * Copyright (C) 2007 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License version 2, as * published by the Free Software Foundation. * * 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., 675 Mass Ave, Cambridge, MA 02139, USA. */ #if defined(HAVE_CONFIG_H) #include "config.h" #endif #include #include #include #include #include #include #include #if defined(HAVE_TGMATH_H) #include #endif #if defined(HAVE_MATH_H) #define GEN_CONST #include #endif #include "floating_fudge.h" #include "spandsp.h" #include "spandsp/g1050.h" #define PACKET_LOSS_TIME -1 #define FALSE 0 #define TRUE (!FALSE) g1050_constants_t g1050_constants[1] = { { { { /* Side A LAN */ { 0.004, /*! Probability of loss rate change low->high */ 0.1 /*! Probability of loss rate change high->low */ }, { { 0.0, /*! Probability of an impulse */ 0.0, }, { 0.5, 0.0 } }, 1.0, /*! Impulse height, based on MTU and bit rate */ 0.0, /*! Impulse decay coefficient */ 0.001, /*! Probability of packet loss due to occupancy. */ 0.15 /*! Probability of packet loss due to a multiple access collision. */ }, { /* Side A access link */ { 0.0002, /*! Probability of loss rate change low->high */ 0.2 /*! Probability of loss rate change high->low */ }, { { 0.001, /*! Probability of an impulse */ 0.0, }, { 0.3, 0.4 } }, 40.0, /*! Impulse height, based on MTU and bit rate */ 0.75, /*! Impulse decay coefficient */ 0.0005, /*! Probability of packet loss due to occupancy. */ 0.0 /*! Probability of packet loss due to a multiple access collision. */ }, { /* Side B access link */ { 0.0002, /*! Probability of loss rate change low->high */ 0.2 /*! Probability of loss rate change high->low */ }, { { 0.001, /*! Probability of an impulse */ 0.0, }, { 0.3, 0.4 } }, 40.0, /*! Impulse height, based on MTU and bit rate */ 0.75, /*! Impulse decay coefficient */ 0.0005, /*! Probability of packet loss due to occupancy. */ 0.0 /*! Probability of packet loss due to a multiple access collision. */ }, { /* Side B LAN */ { 0.004, /*! Probability of loss rate change low->high */ 0.1 /*! Probability of loss rate change high->low */ }, { { 0.0, /*! Probability of an impulse */ 0.0, }, { 0.5, 0.0 } }, 1.0, /*! Impulse height, based on MTU and bit rate */ 0.0, /*! Impulse decay coefficient */ 0.001, /*! Probability of packet loss due to occupancy. */ 0.15 /*! Probability of packet loss due to a multiple access collision. */ } } } }; g1050_channel_speeds_t g1050_speed_patterns[168] = { { 4000000, 0, 128000, 768000, 0, 4000000, 0, 128000, 768000, 0, 0.360}, { 4000000, 0, 128000, 768000, 0, 20000000, 0, 128000, 768000, 0, 0.720}, { 4000000, 0, 128000, 768000, 0, 100000000, 0, 128000, 768000, 0, 0.360}, { 20000000, 0, 128000, 768000, 0, 20000000, 0, 128000, 768000, 0, 0.360}, { 20000000, 0, 128000, 768000, 0, 100000000, 0, 128000, 768000, 0, 0.360}, {100000000, 0, 128000, 768000, 0, 100000000, 0, 128000, 768000, 0, 0.090}, { 4000000, 0, 128000, 1536000, 0, 4000000, 0, 384000, 768000, 0, 0.720}, { 4000000, 0, 128000, 1536000, 0, 20000000, 0, 384000, 768000, 0, 1.470}, { 4000000, 0, 128000, 1536000, 0, 100000000, 0, 384000, 768000, 0, 0.840}, { 20000000, 0, 128000, 1536000, 0, 20000000, 0, 384000, 768000, 0, 0.750}, { 20000000, 0, 128000, 1536000, 0, 100000000, 0, 384000, 768000, 0, 0.855}, {100000000, 0, 128000, 1536000, 0, 100000000, 0, 384000, 768000, 0, 0.240}, { 4000000, 0, 128000, 3000000, 0, 4000000, 0, 384000, 768000, 0, 0.120}, { 4000000, 0, 128000, 3000000, 0, 20000000, 0, 384000, 768000, 0, 0.420}, { 4000000, 0, 128000, 3000000, 0, 100000000, 0, 384000, 768000, 0, 0.840}, { 20000000, 0, 128000, 3000000, 0, 20000000, 0, 384000, 768000, 0, 0.300}, { 20000000, 0, 128000, 3000000, 0, 100000000, 0, 384000, 768000, 0, 0.930}, {100000000, 0, 128000, 3000000, 0, 100000000, 0, 384000, 768000, 0, 0.390}, { 4000000, 0, 384000, 768000, 0, 4000000, 0, 128000, 1536000, 0, 0.720}, { 4000000, 0, 384000, 768000, 0, 20000000, 0, 128000, 1536000, 0, 1.470}, { 4000000, 0, 384000, 768000, 0, 100000000, 0, 128000, 1536000, 0, 0.840}, { 20000000, 0, 384000, 768000, 0, 20000000, 0, 128000, 1536000, 0, 0.750}, { 20000000, 0, 384000, 768000, 0, 100000000, 0, 128000, 1536000, 0, 0.855}, {100000000, 0, 384000, 768000, 0, 100000000, 0, 128000, 1536000, 0, 0.240}, { 4000000, 0, 384000, 1536000, 0, 4000000, 0, 384000, 1536000, 0, 1.440}, { 4000000, 0, 384000, 1536000, 0, 20000000, 0, 384000, 1536000, 0, 3.000}, { 4000000, 0, 384000, 1536000, 0, 100000000, 0, 384000, 1536000, 0, 1.920}, { 20000000, 0, 384000, 1536000, 0, 20000000, 0, 384000, 1536000, 0, 1.563}, { 20000000, 0, 384000, 1536000, 0, 100000000, 0, 384000, 1536000, 0, 2.000}, {100000000, 0, 384000, 1536000, 0, 100000000, 0, 384000, 1536000, 0, 0.640}, { 4000000, 0, 384000, 3000000, 0, 4000000, 0, 384000, 1536000, 0, 0.240}, { 4000000, 0, 384000, 3000000, 0, 20000000, 0, 384000, 1536000, 0, 0.850}, { 4000000, 0, 384000, 3000000, 0, 100000000, 0, 384000, 1536000, 0, 1.720}, { 20000000, 0, 384000, 3000000, 0, 20000000, 0, 384000, 1536000, 0, 0.625}, { 20000000, 0, 384000, 3000000, 0, 100000000, 0, 384000, 1536000, 0, 2.025}, {100000000, 0, 384000, 3000000, 0, 100000000, 0, 384000, 1536000, 0, 1.040}, { 4000000, 0, 384000, 768000, 0, 4000000, 0, 128000, 3000000, 0, 0.120}, { 4000000, 0, 384000, 768000, 0, 20000000, 0, 128000, 3000000, 0, 0.420}, { 4000000, 0, 384000, 768000, 0, 100000000, 0, 128000, 3000000, 0, 0.840}, { 20000000, 0, 384000, 768000, 0, 20000000, 0, 128000, 3000000, 0, 0.300}, { 20000000, 0, 384000, 768000, 0, 100000000, 0, 128000, 3000000, 0, 0.930}, {100000000, 0, 384000, 768000, 0, 100000000, 0, 128000, 3000000, 0, 0.390}, { 4000000, 0, 384000, 1536000, 0, 4000000, 0, 384000, 3000000, 0, 0.240}, { 4000000, 0, 384000, 1536000, 0, 20000000, 0, 384000, 3000000, 0, 0.850}, { 4000000, 0, 384000, 1536000, 0, 100000000, 0, 384000, 3000000, 0, 1.720}, { 20000000, 0, 384000, 1536000, 0, 20000000, 0, 384000, 3000000, 0, 0.625}, { 20000000, 0, 384000, 1536000, 0, 100000000, 0, 384000, 3000000, 0, 2.025}, {100000000, 0, 384000, 1536000, 0, 100000000, 0, 384000, 3000000, 0, 1.040}, { 4000000, 0, 384000, 3000000, 0, 4000000, 0, 384000, 3000000, 0, 0.040}, { 4000000, 0, 384000, 3000000, 0, 20000000, 0, 384000, 3000000, 0, 0.200}, { 4000000, 0, 384000, 3000000, 0, 100000000, 0, 384000, 3000000, 0, 0.520}, { 20000000, 0, 384000, 3000000, 0, 20000000, 0, 384000, 3000000, 0, 0.250}, { 20000000, 0, 384000, 3000000, 0, 100000000, 0, 384000, 3000000, 0, 1.300}, {100000000, 0, 384000, 3000000, 0, 100000000, 0, 384000, 3000000, 0, 1.690}, { 4000000, 0, 128000, 1536000, 0, 20000000, 0, 768000, 1536000, 0, 0.090}, { 4000000, 0, 128000, 1536000, 0, 100000000, 0, 768000, 1536000, 0, 0.360}, { 20000000, 0, 128000, 1536000, 0, 20000000, 0, 768000, 1536000, 0, 0.090}, { 20000000, 0, 128000, 1536000, 0, 100000000, 0, 768000, 1536000, 0, 0.405}, {100000000, 0, 128000, 1536000, 0, 100000000, 0, 768000, 1536000, 0, 0.180}, { 4000000, 0, 128000, 7000000, 0, 20000000, 0, 768000, 768000, 0, 0.270}, { 4000000, 0, 128000, 7000000, 0, 100000000, 0, 768000, 768000, 0, 1.080}, { 20000000, 0, 128000, 7000000, 0, 20000000, 0, 768000, 768000, 0, 0.270}, { 20000000, 0, 128000, 7000000, 0, 100000000, 0, 768000, 768000, 0, 1.215}, {100000000, 0, 128000, 7000000, 0, 100000000, 0, 768000, 768000, 0, 0.540}, { 4000000, 0, 128000, 13000000, 0, 20000000, 0, 768000, 13000000, 0, 0.030}, { 4000000, 0, 128000, 13000000, 0, 100000000, 0, 768000, 13000000, 0, 0.120}, { 20000000, 0, 128000, 13000000, 0, 20000000, 0, 768000, 13000000, 0, 0.030}, { 20000000, 0, 128000, 13000000, 0, 100000000, 0, 768000, 13000000, 0, 0.135}, {100000000, 0, 128000, 13000000, 0, 100000000, 0, 768000, 13000000, 0, 0.060}, { 4000000, 0, 384000, 1536000, 0, 20000000, 0, 1536000, 1536000, 0, 0.180}, { 4000000, 0, 384000, 1536000, 0, 100000000, 0, 1536000, 1536000, 0, 0.720}, { 20000000, 0, 384000, 1536000, 0, 20000000, 0, 1536000, 1536000, 0, 0.188}, { 20000000, 0, 384000, 1536000, 0, 100000000, 0, 1536000, 1536000, 0, 0.870}, {100000000, 0, 384000, 1536000, 0, 100000000, 0, 1536000, 1536000, 0, 0.480}, { 4000000, 0, 384000, 7000000, 0, 20000000, 0, 768000, 1536000, 0, 0.540}, { 4000000, 0, 384000, 7000000, 0, 100000000, 0, 768000, 1536000, 0, 2.160}, { 20000000, 0, 384000, 7000000, 0, 20000000, 0, 768000, 1536000, 0, 0.563}, { 20000000, 0, 384000, 7000000, 0, 100000000, 0, 768000, 1536000, 0, 2.610}, {100000000, 0, 384000, 7000000, 0, 100000000, 0, 768000, 1536000, 0, 1.440}, { 4000000, 0, 384000, 13000000, 0, 20000000, 0, 1536000, 13000000, 0, 0.060}, { 4000000, 0, 384000, 13000000, 0, 100000000, 0, 1536000, 13000000, 0, 0.240}, { 20000000, 0, 384000, 13000000, 0, 20000000, 0, 1536000, 13000000, 0, 0.063}, { 20000000, 0, 384000, 13000000, 0, 100000000, 0, 1536000, 13000000, 0, 0.290}, {100000000, 0, 384000, 13000000, 0, 100000000, 0, 1536000, 13000000, 0, 0.160}, { 4000000, 0, 384000, 1536000, 0, 20000000, 0, 1536000, 3000000, 0, 0.030}, { 4000000, 0, 384000, 1536000, 0, 100000000, 0, 1536000, 3000000, 0, 0.120}, { 20000000, 0, 384000, 1536000, 0, 20000000, 0, 1536000, 3000000, 0, 0.075}, { 20000000, 0, 384000, 1536000, 0, 100000000, 0, 1536000, 3000000, 0, 0.495}, {100000000, 0, 384000, 1536000, 0, 100000000, 0, 1536000, 3000000, 0, 0.780}, { 4000000, 0, 384000, 7000000, 0, 20000000, 0, 768000, 3000000, 0, 0.090}, { 4000000, 0, 384000, 7000000, 0, 100000000, 0, 768000, 3000000, 0, 0.360}, { 20000000, 0, 384000, 7000000, 0, 20000000, 0, 768000, 3000000, 0, 0.225}, { 20000000, 0, 384000, 7000000, 0, 100000000, 0, 768000, 3000000, 0, 1.485}, {100000000, 0, 384000, 7000000, 0, 100000000, 0, 768000, 3000000, 0, 2.340}, { 4000000, 0, 384000, 13000000, 0, 20000000, 0, 3000000, 13000000, 0, 0.010}, { 4000000, 0, 384000, 13000000, 0, 100000000, 0, 3000000, 13000000, 0, 0.040}, { 20000000, 0, 384000, 13000000, 0, 20000000, 0, 3000000, 13000000, 0, 0.025}, { 20000000, 0, 384000, 13000000, 0, 100000000, 0, 3000000, 13000000, 0, 0.165}, {100000000, 0, 384000, 13000000, 0, 100000000, 0, 3000000, 13000000, 0, 0.260}, { 4000000, 0, 768000, 1536000, 0, 20000000, 0, 128000, 1536000, 0, 0.090}, { 20000000, 0, 768000, 1536000, 0, 20000000, 0, 128000, 1536000, 0, 0.090}, { 20000000, 0, 768000, 1536000, 0, 100000000, 0, 128000, 1536000, 0, 0.405}, { 4000000, 0, 768000, 1536000, 0, 100000000, 0, 128000, 1536000, 0, 0.360}, {100000000, 0, 768000, 1536000, 0, 100000000, 0, 128000, 1536000, 0, 0.180}, { 4000000, 0, 1536000, 1536000, 0, 20000000, 0, 384000, 1536000, 0, 0.180}, { 20000000, 0, 1536000, 1536000, 0, 20000000, 0, 384000, 1536000, 0, 0.188}, { 20000000, 0, 1536000, 1536000, 0, 100000000, 0, 384000, 1536000, 0, 0.870}, { 4000000, 0, 1536000, 1536000, 0, 100000000, 0, 384000, 1536000, 0, 0.720}, {100000000, 0, 1536000, 1536000, 0, 100000000, 0, 384000, 1536000, 0, 0.480}, { 4000000, 0, 1536000, 3000000, 0, 20000000, 0, 384000, 1536000, 0, 0.030}, { 20000000, 0, 1536000, 3000000, 0, 20000000, 0, 384000, 1536000, 0, 0.075}, { 20000000, 0, 1536000, 3000000, 0, 100000000, 0, 384000, 1536000, 0, 0.495}, { 4000000, 0, 1536000, 3000000, 0, 100000000, 0, 384000, 1536000, 0, 0.120}, {100000000, 0, 1536000, 3000000, 0, 100000000, 0, 384000, 1536000, 0, 0.780}, { 4000000, 0, 768000, 768000, 0, 20000000, 0, 128000, 7000000, 0, 0.270}, { 20000000, 0, 768000, 768000, 0, 20000000, 0, 128000, 7000000, 0, 0.270}, { 20000000, 0, 768000, 768000, 0, 100000000, 0, 128000, 7000000, 0, 1.215}, { 4000000, 0, 768000, 768000, 0, 100000000, 0, 128000, 7000000, 0, 1.080}, {100000000, 0, 768000, 768000, 0, 100000000, 0, 128000, 7000000, 0, 0.540}, { 4000000, 0, 768000, 1536000, 0, 20000000, 0, 384000, 7000000, 0, 0.540}, { 20000000, 0, 768000, 1536000, 0, 20000000, 0, 384000, 7000000, 0, 0.563}, { 20000000, 0, 768000, 1536000, 0, 100000000, 0, 384000, 7000000, 0, 2.610}, { 4000000, 0, 768000, 1536000, 0, 100000000, 0, 384000, 7000000, 0, 2.160}, {100000000, 0, 768000, 1536000, 0, 100000000, 0, 384000, 7000000, 0, 1.440}, { 4000000, 0, 768000, 3000000, 0, 20000000, 0, 384000, 7000000, 0, 0.090}, { 20000000, 0, 768000, 3000000, 0, 20000000, 0, 384000, 7000000, 0, 0.225}, { 20000000, 0, 768000, 3000000, 0, 100000000, 0, 384000, 7000000, 0, 1.485}, { 4000000, 0, 768000, 3000000, 0, 100000000, 0, 384000, 7000000, 0, 0.360}, {100000000, 0, 768000, 3000000, 0, 100000000, 0, 384000, 7000000, 0, 2.340}, { 4000000, 0, 768000, 13000000, 0, 20000000, 0, 128000, 13000000, 0, 0.030}, { 20000000, 0, 768000, 13000000, 0, 20000000, 0, 128000, 13000000, 0, 0.030}, { 20000000, 0, 768000, 13000000, 0, 100000000, 0, 128000, 13000000, 0, 0.135}, { 4000000, 0, 768000, 13000000, 0, 100000000, 0, 128000, 13000000, 0, 0.120}, {100000000, 0, 768000, 13000000, 0, 100000000, 0, 128000, 13000000, 0, 0.060}, { 4000000, 0, 1536000, 13000000, 0, 20000000, 0, 384000, 13000000, 0, 0.060}, { 20000000, 0, 1536000, 13000000, 0, 20000000, 0, 384000, 13000000, 0, 0.063}, { 20000000, 0, 1536000, 13000000, 0, 100000000, 0, 384000, 13000000, 0, 0.290}, { 4000000, 0, 1536000, 13000000, 0, 100000000, 0, 384000, 13000000, 0, 0.240}, {100000000, 0, 1536000, 13000000, 0, 100000000, 0, 384000, 13000000, 0, 0.160}, { 4000000, 0, 3000000, 13000000, 0, 20000000, 0, 384000, 13000000, 0, 0.010}, { 20000000, 0, 3000000, 13000000, 0, 20000000, 0, 384000, 13000000, 0, 0.025}, { 20000000, 0, 3000000, 13000000, 0, 100000000, 0, 384000, 13000000, 0, 0.165}, { 4000000, 0, 3000000, 13000000, 0, 100000000, 0, 384000, 13000000, 0, 0.040}, {100000000, 0, 3000000, 13000000, 0, 100000000, 0, 384000, 13000000, 0, 0.260}, { 20000000, 0, 1536000, 1536000, 0, 20000000, 0, 1536000, 1536000, 0, 0.023}, { 20000000, 0, 1536000, 1536000, 0, 100000000, 0, 1536000, 1536000, 0, 0.180}, {100000000, 0, 1536000, 1536000, 0, 100000000, 0, 1536000, 1536000, 0, 0.360}, { 20000000, 0, 1536000, 7000000, 0, 20000000, 0, 768000, 1536000, 0, 0.068}, { 20000000, 0, 1536000, 7000000, 0, 100000000, 0, 768000, 1536000, 0, 0.540}, {100000000, 0, 1536000, 7000000, 0, 100000000, 0, 768000, 1536000, 0, 1.080}, { 20000000, 0, 1536000, 13000000, 0, 20000000, 0, 1536000, 13000000, 0, 0.015}, { 20000000, 0, 1536000, 13000000, 0, 100000000, 0, 1536000, 13000000, 0, 0.120}, {100000000, 0, 1536000, 13000000, 0, 100000000, 0, 1536000, 13000000, 0, 0.240}, { 20000000, 0, 768000, 1536000, 0, 20000000, 0, 1536000, 7000000, 0, 0.068}, { 20000000, 0, 768000, 1536000, 0, 100000000, 0, 1536000, 7000000, 0, 0.540}, {100000000, 0, 768000, 1536000, 0, 100000000, 0, 1536000, 7000000, 0, 1.080}, { 20000000, 0, 768000, 7000000, 0, 20000000, 0, 768000, 7000000, 0, 0.203}, { 20000000, 0, 768000, 7000000, 0, 100000000, 0, 768000, 7000000, 0, 1.620}, {100000000, 0, 768000, 7000000, 0, 100000000, 0, 768000, 7000000, 0, 3.240}, { 20000000, 0, 768000, 13000000, 0, 20000000, 0, 7000000, 13000000, 0, 0.023}, { 20000000, 0, 768000, 13000000, 0, 100000000, 0, 7000000, 13000000, 0, 0.180}, {100000000, 0, 768000, 13000000, 0, 100000000, 0, 7000000, 13000000, 0, 0.360}, { 20000000, 0, 7000000, 13000000, 0, 20000000, 0, 768000, 13000000, 0, 0.023}, { 20000000, 0, 7000000, 13000000, 0, 100000000, 0, 768000, 13000000, 0, 0.180}, {100000000, 0, 7000000, 13000000, 0, 100000000, 0, 768000, 13000000, 0, 0.360}, { 20000000, 0, 13000000, 13000000, 0, 20000000, 0, 13000000, 13000000, 0, 0.003}, { 20000000, 0, 13000000, 13000000, 0, 100000000, 0, 13000000, 13000000, 0, 0.020}, {100000000, 0, 13000000, 13000000, 0, 100000000, 0, 13000000, 13000000, 0, 0.040} }; g1050_model_t g1050_standard_models[9] = { { /* Severity 0 - no impairment */ { 0, /*! Percentage likelihood of occurance in scenario A */ 0, /*! Percentage likelihood of occurance in scenario B */ 0, /*! Percentage likelihood of occurance in scenario C */ }, { 0.0, /*! Percentage occupancy */ 1508, /*! MTU */ 0.0 /*! Peak jitter */ }, { 0.0, /*! Percentage occupancy */ 512, /*! MTU */ 0.0 /*! Peak jitter */ }, { 0.0, /*! Basic delay of the regional backbone, in seconds */ 0.0, /*! Basic delay of the intercontinental backbone, in seconds */ 0.0, /*! Percentage packet loss of the backbone */ 0.0, /*! Maximum jitter of the backbone, in seconds */ 0.0, /*! Interval between the backbone route flapping between two paths, in seconds */ 0.0, /*! The difference in backbone delay between the two routes we flap between, in seconds */ 0.0, /*! The interval between link failures, in seconds */ 0.0, /*! The duration of link failures, in seconds */ 0.0, /*! Probability of packet loss in the backbone, in percent */ 0.0 /*! Probability of a packet going out of sequence in the backbone. */ }, { 0.0, /*! Percentage occupancy */ 512, /*! MTU */ 0.0 /*! Peak jitter */ }, { 0.0, /*! Percentage occupancy */ 1508, /*! MTU */ 0.0 /*! Peak jitter */ } }, { /* Severity A */ { 50, /*! Percentage likelihood of occurance in scenario A */ 5, /*! Percentage likelihood of occurance in scenario B */ 5, /*! Percentage likelihood of occurance in scenario C */ }, { 1.0, /*! Percentage occupancy */ 1508, /*! MTU */ 0.0015 /*! Peak jitter */ }, { 0.0, /*! Percentage occupancy */ 512, /*! MTU */ 0.0 /*! Peak jitter */ }, { 0.004, /*! Basic delay of the regional backbone, in seconds */ 0.016, /*! Basic delay of the intercontinental backbone, in seconds */ 0.0, /*! Percentage packet loss of the backbone */ 0.005, /*! Maximum jitter of the backbone, in seconds */ 0.0, /*! Interval between the backbone route flapping between two paths, in seconds */ 0.0, /*! The difference in backbone delay between the two routes we flap between, in seconds */ 0.0, /*! The interval between link failures, in seconds */ 0.0, /*! The duration of link failures, in seconds */ 0.0, /*! Probability of packet loss in the backbone, in percent */ 0.0 /*! Probability of a packet going out of sequence in the backbone. */ }, { 0.0, /*! Percentage occupancy */ 512, /*! MTU */ 0.0 /*! Peak jitter */ }, { 1.0, /*! Percentage occupancy */ 1508, /*! MTU */ 0.0015 /*! Peak jitter */ } }, { /* Severity B */ { 30, /*! Percentage likelihood of occurance in scenario A */ 25, /*! Percentage likelihood of occurance in scenario B */ 5, /*! Percentage likelihood of occurance in scenario C */ }, { 2.0, /*! Percentage occupancy */ 1508, /*! MTU */ 0.0015 /*! Peak jitter */ }, { 1.0, /*! Percentage occupancy */ 512, /*! MTU */ 0.0 /*! Peak jitter */ }, { 0.008, /*! Basic delay of the regional backbone, in seconds */ 0.032, /*! Basic delay of the intercontinental backbone, in seconds */ 0.01, /*! Percentage packet loss of the backbone */ 0.01, /*! Maximum jitter of the backbone, in seconds */ 3600.0, /*! Interval between the backbone route flapping between two paths, in seconds */ 0.002, /*! The difference in backbone delay between the two routes we flap between, in seconds */ 3600.0, /*! The interval between link failures, in seconds */ 0.064, /*! The duration of link failures, in seconds */ 0.0, /*! Probability of packet loss in the backbone, in percent */ 0.0 /*! Probability of a packet going out of sequence in the backbone. */ }, { 1.0, /*! Percentage occupancy */ 512, /*! MTU */ 0.0 /*! Peak jitter */ }, { 2.0, /*! Percentage occupancy */ 1508, /*! MTU */ 0.0015 /*! Peak jitter */ } }, { /* Severity C */ { 15, /*! Percentage likelihood of occurance in scenario A */ 30, /*! Percentage likelihood of occurance in scenario B */ 10, /*! Percentage likelihood of occurance in scenario C */ }, { 3.0, /*! Percentage occupancy */ 1508, /*! MTU */ 0.0015 /*! Peak jitter */ }, { 2.0, /*! Percentage occupancy */ 1508, /*! MTU */ 0.0 /*! Peak jitter */ }, { 0.016, /*! Basic delay of the regional backbone, in seconds */ 0.064, /*! Basic delay of the intercontinental backbone, in seconds */ 0.02, /*! Percentage packet loss of the backbone */ 0.016, /*! Maximum jitter of the backbone, in seconds */ 1800.0, /*! Interval between the backbone route flapping between two paths, in seconds */ 0.004, /*! The difference in backbone delay between the two routes we flap between, in seconds */ 1800.0, /*! The interval between link failures, in seconds */ 0.128, /*! The duration of link failures, in seconds */ 0.0, /*! Probability of packet loss in the backbone, in percent */ 0.0 /*! Probability of a packet going out of sequence in the backbone. */ }, { 2.0, /*! Percentage occupancy */ 1508, /*! MTU */ 0.0 /*! Peak jitter */ }, { 3.0, /*! Percentage occupancy */ 1508, /*! MTU */ 0.0015 /*! Peak jitter */ } }, { /* Severity D */ { 5, /*! Percentage likelihood of occurance in scenario A */ 25, /*! Percentage likelihood of occurance in scenario B */ 15, /*! Percentage likelihood of occurance in scenario C */ }, { 5.0, /*! Percentage occupancy */ 1508, /*! MTU */ 0.0015 /*! Peak jitter */ }, { 4.0, /*! Percentage occupancy */ 1508, /*! MTU */ 0.0 /*! Peak jitter */ }, { 0.032, /*! Basic delay of the regional backbone, in seconds */ 0.128, /*! Basic delay of the intercontinental backbone, in seconds */ 0.04, /*! Percentage packet loss of the backbone */ 0.04, /*! Maximum jitter of the backbone, in seconds */ 900.0, /*! Interval between the backbone route flapping between two paths, in seconds */ 0.008, /*! The difference in backbone delay between the two routes we flap between, in seconds */ 900.0, /*! The interval between link failures, in seconds */ 0.256, /*! The duration of link failures, in seconds */ 0.0, /*! Probability of packet loss in the backbone, in percent */ 0.0 /*! Probability of a packet going out of sequence in the backbone. */ }, { 4.0, /*! Percentage occupancy */ 1508, /*! MTU */ 0.0 /*! Peak jitter */ }, { 5.0, /*! Percentage occupancy */ 1508, /*! MTU */ 0.0015 /*! Peak jitter */ } }, { /* Severity E */ { 0, /*! Percentage likelihood of occurance in scenario A */ 10, /*! Percentage likelihood of occurance in scenario B */ 20, /*! Percentage likelihood of occurance in scenario C */ }, { 8.0, /*! Percentage occupancy */ 1508, /*! MTU */ 0.0015 /*! Peak jitter */ }, { 8.0, /*! Percentage occupancy */ 1508, /*! MTU */ 0.0 /*! Peak jitter */ }, { 0.064, /*! Basic delay of the regional backbone, in seconds */ 0.196, /*! Basic delay of the intercontinental backbone, in seconds */ 0.1, /*! Percentage packet loss of the backbone */ 0.07, /*! Maximum jitter of the backbone, in seconds */ 480.0, /*! Interval between the backbone route flapping between two paths, in seconds */ 0.016, /*! The difference in backbone delay between the two routes we flap between, in seconds */ 480.0, /*! The interval between link failures, in seconds */ 0.4, /*! The duration of link failures, in seconds */ 0.0, /*! Probability of packet loss in the backbone, in percent */ 0.0 /*! Probability of a packet going out of sequence in the backbone. */ }, { 8.0, /*! Percentage occupancy */ 1508, /*! MTU */ 0.0 /*! Peak jitter */ }, { 8.0, /*! Percentage occupancy */ 1508, /*! MTU */ 0.0015 /*! Peak jitter */ } }, { /* Severity F */ { 0, /*! Percentage likelihood of occurance in scenario A */ 0, /*! Percentage likelihood of occurance in scenario B */ 25, /*! Percentage likelihood of occurance in scenario C */ }, { 12.0, /*! Percentage occupancy */ 1508, /*! MTU */ 0.0015 /*! Peak jitter */ }, { 15.0, /*! Percentage occupancy */ 1508, /*! MTU */ 0.0 /*! Peak jitter */ }, { 0.128, /*! Basic delay of the regional backbone, in seconds */ 0.256, /*! Basic delay of the intercontinental backbone, in seconds */ 0.2, /*! Percentage packet loss of the backbone */ 0.1, /*! Maximum jitter of the backbone, in seconds */ 240.0, /*! Interval between the backbone route flapping between two paths, in seconds */ 0.032, /*! The difference in backbone delay between the two routes we flap between, in seconds */ 240.0, /*! The interval between link failures, in seconds */ 0.8, /*! The duration of link failures, in seconds */ 0.0, /*! Probability of packet loss in the backbone, in percent */ 0.0 /*! Probability of a packet going out of sequence in the backbone. */ }, { 15.0, /*! Percentage occupancy */ 1508, /*! MTU */ 0.0 /*! Peak jitter */ }, { 12.0, /*! Percentage occupancy */ 1508, /*! MTU */ 0.0015 /*! Peak jitter */ } }, { /* Severity G */ { 0, /*! Percentage likelihood of occurance in scenario A */ 0, /*! Percentage likelihood of occurance in scenario B */ 15, /*! Percentage likelihood of occurance in scenario C */ }, { 16.0, /*! Percentage occupancy */ 1508, /*! MTU */ 0.0015 /*! Peak jitter */ }, { 30.0, /*! Percentage occupancy */ 1508, /*! MTU */ 0.0 /*! Peak jitter */ }, { 0.256, /*! Basic delay of the regional backbone, in seconds */ 0.512, /*! Basic delay of the intercontinental backbone, in seconds */ 0.5, /*! Percentage packet loss of the backbone */ 0.15, /*! Maximum jitter of the backbone, in seconds */ 120.0, /*! Interval between the backbone route flapping between two paths, in seconds */ 0.064, /*! The difference in backbone delay between the two routes we flap between, in seconds */ 120.0, /*! The interval between link failures, in seconds */ 1.6, /*! The duration of link failures, in seconds */ 0.0, /*! Probability of packet loss in the backbone, in percent */ 0.0 /*! Probability of a packet going out of sequence in the backbone. */ }, { 30.0, /*! Percentage occupancy */ 1508, /*! MTU */ 0.0 /*! Peak jitter */ }, { 16.0, /*! Percentage occupancy */ 1508, /*! MTU */ 0.0015 /*! Peak jitter */ } }, { /* Severity H */ { 0, /*! Percentage likelihood of occurance in scenario A */ 0, /*! Percentage likelihood of occurance in scenario B */ 5, /*! Percentage likelihood of occurance in scenario C */ }, { 20.0, /*! Percentage occupancy */ 1508, /*! MTU */ 0.0015 /*! Peak jitter */ }, { 50.0, /*! Percentage occupancy */ 1508, /*! MTU */ 0.0 /*! Peak jitter */ }, { 0.512, /*! Basic delay of the regional backbone, in seconds */ 0.768, /*! Basic delay of the intercontinental backbone, in seconds */ 1.0, /*! Percentage packet loss of the backbone */ 0.5, /*! Maximum jitter of the backbone, in seconds */ 60.0, /*! Interval between the backbone route flapping between two paths, in seconds */ 0.128, /*! The difference in backbone delay between the two routes we flap between, in seconds */ 60.0, /*! The interval between link failures, in seconds */ 3.0, /*! The duration of link failures, in seconds */ 1.0, /*! Probability of packet loss in the backbone, in percent */ 1.0 /*! Probability of a packet going out of sequence in the backbone. */ }, { 50.0, /*! Percentage occupancy */ 1508, /*! MTU */ 0.0 /*! Peak jitter */ }, { 20.0, /*! Percentage occupancy */ 1508, /*! MTU */ 0.0015 /*! Peak jitter */ } } }; #if defined(HAVE_DRAND48) static __inline__ void q1050_rand_init(void) { srand48(time(NULL)); } /*- End of function --------------------------------------------------------*/ static __inline__ double q1050_rand(void) { return drand48(); } /*- End of function --------------------------------------------------------*/ #else static __inline__ void q1050_rand_init(void) { srand(time(NULL)); } /*- End of function --------------------------------------------------------*/ static __inline__ double q1050_rand(void) { return (double) rand()/(double) RAND_MAX; } /*- End of function --------------------------------------------------------*/ #endif static __inline__ double scale_probability(double prob, double scale) { /* Re-calculate probability based on a different time interval */ return 1.0 - pow(1.0 - prob, scale); } /*- End of function --------------------------------------------------------*/ static void g1050_segment_init(g1050_segment_state_t *s, int link_type, g1050_segment_constants_t *constants, g1050_segment_model_t *parms, int bit_rate, int multiple_access, int qos_enabled, int packet_size, int packet_rate) { double x; double packet_interval; memset(s, 0, sizeof(*s)); packet_interval = 1000.0/packet_rate; /* Some calculatons are common to both LAN and access links, and those that are not. */ s->link_type = link_type; s->prob_loss_rate_change[0] = scale_probability(constants->prob_loss_rate_change[0]*parms->percentage_occupancy, 1.0/packet_interval); s->serial_delay = packet_size*8.0/bit_rate; if (link_type == G1050_LAN_LINK) { s->prob_loss_rate_change[1] = scale_probability(constants->prob_loss_rate_change[1], 1.0/packet_interval); s->prob_impulse[0] = constants->prob_impulse[0][0]; s->prob_impulse[1] = constants->prob_impulse[1][0]; s->impulse_coeff = constants->impulse_coeff; s->impulse_height = parms->mtu*(8.0/bit_rate)*(1.0 + parms->percentage_occupancy/constants->impulse_height); } else if (link_type == G1050_ACCESS_LINK) { s->prob_loss_rate_change[1] = scale_probability(constants->prob_loss_rate_change[1]/(1.0 + parms->percentage_occupancy), 1.0/packet_interval); s->prob_impulse[0] = scale_probability(constants->prob_impulse[0][0] + (parms->percentage_occupancy/2000.0), 1.0/packet_interval); s->prob_impulse[1] = scale_probability(constants->prob_impulse[1][0] + (constants->prob_impulse[1][1]*parms->percentage_occupancy/100.0), 1.0/packet_interval); s->impulse_coeff = 1.0 - scale_probability(1.0 - constants->impulse_coeff, 1.0/packet_interval); x = (1.0 - constants->impulse_coeff)/(1.0 - s->impulse_coeff); s->impulse_height = x*parms->mtu*(8.0/bit_rate)*(1.0 + parms->percentage_occupancy/constants->impulse_height); } /* The following are calculated the same way for LAN and access links */ s->prob_packet_loss = constants->prob_packet_loss*parms->percentage_occupancy; s->qos_enabled = qos_enabled; s->multiple_access = multiple_access; s->prob_packet_collision_loss = constants->prob_packet_collision_loss; s->max_jitter = parms->max_jitter; /* The following is common state information to all links. */ s->high_loss = FALSE; s->congestion_delay = 0.0; s->last_arrival_time = 0.0; /* Count of packets lost in this segment. */ s->lost_packets = 0; s->lost_packets_2 = 0; } /*- End of function --------------------------------------------------------*/ static void g1050_core_init(g1050_core_state_t *s, g1050_core_model_t *parms, int packet_rate) { memset(s, 0, sizeof(*s)); /* Set up route flapping. */ /* This is the length of the period of both the delayed duration and the non-delayed. */ s->route_flap_interval = parms->route_flap_interval*G1050_TICKS_PER_SEC; /* How much additional delay is added or subtracted during route flaps. */ s->route_flap_delta = parms->route_flap_delay; /* Current tick count. This is initialized so that we are part way into the first CLEAN interval before the first change occurs. This is a random portion of the period. When we reach the first flap, the flapping in both directions becomes periodic. */ s->route_flap_counter = s->route_flap_interval - 99 - floor(s->route_flap_interval*q1050_rand()); s->link_failure_interval_ticks = parms->link_failure_interval*G1050_TICKS_PER_SEC; /* Link failures occur when the count reaches this number of ticks. */ /* Duration of a failure. */ s->link_failure_duration_ticks = floor((G1050_TICKS_PER_SEC*parms->link_failure_duration)); /* How far into the first CLEAN interval we are. This is like the route flap initialzation. */ s->link_failure_counter = s->link_failure_interval_ticks - 99 - floor(s->link_failure_interval_ticks*q1050_rand()); s->link_recovery_counter = s->link_failure_duration_ticks; s->base_delay = parms->base_regional_delay; s->max_jitter = parms->max_jitter; s->prob_packet_loss = parms->prob_packet_loss/100.0; s->prob_oos = parms->prob_oos/100.0; s->last_arrival_time = 0.0; s->delay_delta = 0; /* Count of packets lost in this segment. */ s->lost_packets = 0; s->lost_packets_2 = 0; } /*- End of function --------------------------------------------------------*/ static void g1050_segment_model(g1050_segment_state_t *s, double delays[], int len) { int i; int lose; int was_high_loss; double impulse; double slice_delay; /* Compute delay and loss value for each time slice. */ for (i = 0; i < len; i++) { lose = FALSE; /* Initialize delay to the serial delay plus some jitter. */ slice_delay = s->serial_delay + s->max_jitter*q1050_rand(); /* If no QoS, do congestion delay and packet loss analysis. */ if (!s->qos_enabled) { /* To match the logic in G.1050 we need to record the current loss state, before checking if we should change. */ was_high_loss = s->high_loss; /* Toggle between the low-loss and high-loss states, based on the transition probability. */ if (q1050_rand() < s->prob_loss_rate_change[was_high_loss]) s->high_loss = !s->high_loss; impulse = 0.0; if (q1050_rand() < s->prob_impulse[was_high_loss]) { impulse = s->impulse_height; if (!was_high_loss || s->link_type == G1050_LAN_LINK) impulse *= q1050_rand(); } if (was_high_loss && q1050_rand() < s->prob_packet_loss) lose = TRUE; /* Single pole LPF for the congestion delay impulses. */ s->congestion_delay = s->congestion_delay*s->impulse_coeff + impulse*(1.0 - s->impulse_coeff); slice_delay += s->congestion_delay; } /* If duplex mismatch on LAN, packet loss based on loss probability. */ if (s->multiple_access && (q1050_rand() < s->prob_packet_collision_loss)) lose = TRUE; /* Put computed delay into time slice array. */ if (lose) { delays[i] = PACKET_LOSS_TIME; s->lost_packets++; } else { delays[i] = slice_delay; } } } /*- End of function --------------------------------------------------------*/ static void g1050_core_model(g1050_core_state_t *s, double delays[], int len) { int32_t i; int lose; double jitter_delay; for (i = 0; i < len; i++) { lose = FALSE; jitter_delay = s->base_delay + s->max_jitter*q1050_rand(); /* Route flapping */ if (--s->route_flap_counter <= 0) { /* Route changed */ s->delay_delta = s->route_flap_delta - s->delay_delta; s->route_flap_counter = s->route_flap_interval; } if (q1050_rand() < s->prob_packet_loss) lose = TRUE; /* Link failures */ if (--s->link_failure_counter <= 0) { /* We are in a link failure */ lose = TRUE; if (--s->link_recovery_counter <= 0) { /* Leave failure state. */ s->link_failure_counter = s->link_failure_interval_ticks; s->link_recovery_counter = s->link_failure_duration_ticks; lose = FALSE; } } if (lose) { delays[i] = PACKET_LOSS_TIME; s->lost_packets++; } else { delays[i] = jitter_delay + s->delay_delta; } } } /*- End of function --------------------------------------------------------*/ static int g1050_segment_delay(g1050_segment_state_t *s, double base_time, double arrival_times[], double delays[], int num_packets) { int i; int32_t departure_time; int lost_packets; /* Add appropriate delays to the packets for the segments before the core. */ lost_packets = 0; for (i = 0; i < num_packets; i++) { /* Apply half a millisecond of rounding, as we working in millisecond steps. */ departure_time = (arrival_times[i] + 0.0005 - base_time)*G1050_TICKS_PER_SEC; if (arrival_times[i] == PACKET_LOSS_TIME) { /* Lost already */ } else if (delays[departure_time] == PACKET_LOSS_TIME) { arrival_times[i] = PACKET_LOSS_TIME; lost_packets++; } else { arrival_times[i] += delays[departure_time]; if (arrival_times[i] < s->last_arrival_time) arrival_times[i] = s->last_arrival_time; else s->last_arrival_time = arrival_times[i]; } } return lost_packets; } /*- End of function --------------------------------------------------------*/ static int g1050_segment_delay_preserve_order(g1050_segment_state_t *s, double base_time, double arrival_times_a[], double arrival_times_b[], double delays[], int num_packets) { int i; int j; int departure_time; double last_arrival_time; double last_arrival_time_temp; int lost_packets; /* Add appropriate delays to the packets for the segments after the core. */ last_arrival_time = 0.0; last_arrival_time_temp = 0.0; lost_packets = 0; for (i = 0; i < num_packets; i++) { /* We need to preserve the order that came out of the core, so we use an alternate array for the results. */ /* Apply half a millisecond of rounding, as we working in millisecond steps. */ departure_time = (arrival_times_a[i] + 0.0005 - base_time)*G1050_TICKS_PER_SEC; if (arrival_times_a[i] == PACKET_LOSS_TIME) { /* Lost already */ arrival_times_b[i] = PACKET_LOSS_TIME; } else if (delays[departure_time] == PACKET_LOSS_TIME) { arrival_times_b[i] = PACKET_LOSS_TIME; lost_packets++; } else { arrival_times_b[i] = arrival_times_a[i] + delays[departure_time]; if (arrival_times_a[i] < last_arrival_time) { /* If a legitimate out of sequence packet is detected, search back a fixed amount of time to preserve order. */ for (j = i - 1; j >= 0; j--) { if ((arrival_times_a[j] != PACKET_LOSS_TIME) && (arrival_times_b[j] != PACKET_LOSS_TIME)) { if ((arrival_times_a[i] - arrival_times_a[j]) > SEARCHBACK_PERIOD) break; if ((arrival_times_a[j] > arrival_times_a[i]) && (arrival_times_b[j] < arrival_times_b[i])) { arrival_times_b[j] = arrival_times_b[i]; } } } } else { last_arrival_time = arrival_times_a[i]; if (arrival_times_b[i] < last_arrival_time_temp) arrival_times_b[i] = last_arrival_time_temp; else last_arrival_time_temp = arrival_times_b[i]; } } } return lost_packets; } /*- End of function --------------------------------------------------------*/ static int g1050_core_delay(g1050_core_state_t *s, double base_time, double arrival_times[], double delays[], int num_packets) { int i; int departure_time; int lost_packets; /* This element does NOT preserve packet order. */ lost_packets = 0; for (i = 0; i < num_packets; i++) { /* Apply half a millisecond of rounding, as we working in millisecond steps. */ departure_time = (arrival_times[i] + 0.0005 - base_time)*G1050_TICKS_PER_SEC; if (arrival_times[i] == PACKET_LOSS_TIME) { /* Lost already */ } else if (delays[departure_time] == PACKET_LOSS_TIME) { arrival_times[i] = PACKET_LOSS_TIME; lost_packets++; } else { /* Not lost. Compute arrival time. */ arrival_times[i] += delays[departure_time]; if (arrival_times[i] < s->last_arrival_time) { /* This packet is EARLIER than the last one. It is out of order! */ /* Do we allow it to stay out of order? */ if (q1050_rand() >= s->prob_oos) arrival_times[i] = s->last_arrival_time; } else { /* Packet is in the correct order, relative to the last one. */ s->last_arrival_time = arrival_times[i]; } } } return lost_packets; } /*- End of function --------------------------------------------------------*/ static void g1050_simulate_chunk(g1050_state_t *s) { int i; s->base_time += 1.0; memcpy(&s->segment[0].delays[0], &s->segment[0].delays[G1050_TICKS_PER_SEC], 2*G1050_TICKS_PER_SEC*sizeof(s->segment[0].delays[0])); g1050_segment_model(&s->segment[0], &s->segment[0].delays[2*G1050_TICKS_PER_SEC], G1050_TICKS_PER_SEC); memcpy(&s->segment[1].delays[0], &s->segment[1].delays[G1050_TICKS_PER_SEC], 2*G1050_TICKS_PER_SEC*sizeof(s->segment[1].delays[0])); g1050_segment_model(&s->segment[1], &s->segment[1].delays[2*G1050_TICKS_PER_SEC], G1050_TICKS_PER_SEC); memcpy(&s->core.delays[0], &s->core.delays[G1050_TICKS_PER_SEC], 2*G1050_TICKS_PER_SEC*sizeof(s->core.delays[0])); g1050_core_model(&s->core, &s->core.delays[2*G1050_TICKS_PER_SEC], G1050_TICKS_PER_SEC); memcpy(&s->segment[2].delays[0], &s->segment[2].delays[G1050_TICKS_PER_SEC], 2*G1050_TICKS_PER_SEC*sizeof(s->segment[2].delays[0])); g1050_segment_model(&s->segment[2], &s->segment[2].delays[2*G1050_TICKS_PER_SEC], G1050_TICKS_PER_SEC); memcpy(&s->segment[3].delays[0], &s->segment[3].delays[G1050_TICKS_PER_SEC], 2*G1050_TICKS_PER_SEC*sizeof(s->segment[3].delays[0])); g1050_segment_model(&s->segment[3], &s->segment[3].delays[2*G1050_TICKS_PER_SEC], G1050_TICKS_PER_SEC); memcpy(&s->arrival_times_1[0], &s->arrival_times_1[s->packet_rate], 2*s->packet_rate*sizeof(s->arrival_times_1[0])); memcpy(&s->arrival_times_2[0], &s->arrival_times_2[s->packet_rate], 2*s->packet_rate*sizeof(s->arrival_times_2[0])); for (i = 0; i < s->packet_rate; i++) { s->arrival_times_1[2*s->packet_rate + i] = s->base_time + 2.0 + (double) i/(double) s->packet_rate; s->arrival_times_2[2*s->packet_rate + i] = 0.0; } s->segment[0].lost_packets_2 += g1050_segment_delay(&s->segment[0], s->base_time, s->arrival_times_1, s->segment[0].delays, s->packet_rate); s->segment[1].lost_packets_2 += g1050_segment_delay(&s->segment[1], s->base_time, s->arrival_times_1, s->segment[1].delays, s->packet_rate); s->core.lost_packets_2 += g1050_core_delay(&s->core, s->base_time, s->arrival_times_1, s->core.delays, s->packet_rate); s->segment[2].lost_packets_2 += g1050_segment_delay_preserve_order(&s->segment[2], s->base_time, s->arrival_times_1, s->arrival_times_2, s->segment[2].delays, s->packet_rate); s->segment[3].lost_packets_2 += g1050_segment_delay_preserve_order(&s->segment[3], s->base_time, s->arrival_times_2, s->arrival_times_1, s->segment[3].delays, s->packet_rate); } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(g1050_state_t *) g1050_init(int model, int speed_pattern, int packet_size, int packet_rate) { g1050_state_t *s; g1050_constants_t *constants; g1050_channel_speeds_t *sp; g1050_model_t *mo; int i; /* If the random generator has not been seeded it might give endless zeroes - it depends on the platform. */ for (i = 0; i < 10; i++) { if (q1050_rand() != 0.0) break; } if (i >= 10) q1050_rand_init(); if ((s = (g1050_state_t *) malloc(sizeof(*s))) == NULL) return NULL; memset(s, 0, sizeof(*s)); constants = &g1050_constants[0]; sp = &g1050_speed_patterns[speed_pattern - 1]; mo = &g1050_standard_models[model]; memset(s, 0, sizeof(*s)); s->packet_rate = packet_rate; s->packet_size = packet_size; g1050_segment_init(&s->segment[0], G1050_LAN_LINK, &constants->segment[0], &mo->sidea_lan, sp->sidea_lan_bit_rate, sp->sidea_lan_multiple_access, FALSE, packet_size, packet_rate); g1050_segment_init(&s->segment[1], G1050_ACCESS_LINK, &constants->segment[1], &mo->sidea_access_link, sp->sidea_access_link_bit_rate_ab, FALSE, sp->sidea_access_link_qos_enabled, packet_size, packet_rate); g1050_core_init(&s->core, &mo->core, packet_rate); g1050_segment_init(&s->segment[2], G1050_ACCESS_LINK, &constants->segment[2], &mo->sideb_access_link, sp->sideb_access_link_bit_rate_ba, FALSE, sp->sideb_access_link_qos_enabled, packet_size, packet_rate); g1050_segment_init(&s->segment[3], G1050_LAN_LINK, &constants->segment[3], &mo->sideb_lan, sp->sideb_lan_bit_rate, sp->sideb_lan_multiple_access, FALSE, packet_size, packet_rate); s->base_time = 0.0; /* Start with enough of the future modelled to allow for the worst jitter. After this we will always keep at least 2 seconds of the future modelled. */ g1050_segment_model(&s->segment[0], s->segment[0].delays, 3*G1050_TICKS_PER_SEC); g1050_segment_model(&s->segment[1], s->segment[1].delays, 3*G1050_TICKS_PER_SEC); g1050_core_model(&s->core, s->core.delays, 3*G1050_TICKS_PER_SEC); g1050_segment_model(&s->segment[2], s->segment[2].delays, 3*G1050_TICKS_PER_SEC); g1050_segment_model(&s->segment[3], s->segment[3].delays, 3*G1050_TICKS_PER_SEC); /* Initialise the arrival times to the departure times */ for (i = 0; i < 3*s->packet_rate; i++) { s->arrival_times_1[i] = s->base_time + (double) i/(double)s->packet_rate; s->arrival_times_2[i] = 0.0; } s->segment[0].lost_packets_2 += g1050_segment_delay(&s->segment[0], s->base_time, s->arrival_times_1, s->segment[0].delays, s->packet_rate); s->segment[1].lost_packets_2 += g1050_segment_delay(&s->segment[1], s->base_time, s->arrival_times_1, s->segment[1].delays, s->packet_rate); s->core.lost_packets_2 += g1050_core_delay(&s->core, s->base_time, s->arrival_times_1, s->core.delays, s->packet_rate); s->segment[2].lost_packets_2 += g1050_segment_delay_preserve_order(&s->segment[2], s->base_time, s->arrival_times_1, s->arrival_times_2, s->segment[2].delays, s->packet_rate); s->segment[3].lost_packets_2 += g1050_segment_delay_preserve_order(&s->segment[3], s->base_time, s->arrival_times_2, s->arrival_times_1, s->segment[3].delays, s->packet_rate); s->first = NULL; s->last = NULL; return s; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) g1050_dump_parms(int model, int speed_pattern) { g1050_channel_speeds_t *sp; g1050_model_t *mo; sp = &g1050_speed_patterns[speed_pattern - 1]; mo = &g1050_standard_models[model]; printf("Model %d%c\n", speed_pattern, 'A' + model - 1); printf("LOO %.6f%% %.6f%% %.6f%%\n", mo->loo[0]*sp->loo/100.0, mo->loo[1]*sp->loo/100.0, mo->loo[2]*sp->loo/100.0); printf("Side A LAN %dbps, %.3f%% occupancy, MTU %d, %s MA\n", sp->sidea_lan_bit_rate, mo->sidea_lan.percentage_occupancy, mo->sidea_lan.mtu, (sp->sidea_lan_multiple_access) ? "" : "no"); printf("Side A access %dbps, %.3f%% occupancy, MTU %d, %s QoS\n", sp->sidea_access_link_bit_rate_ab, mo->sidea_access_link.percentage_occupancy, mo->sidea_access_link.mtu, (sp->sidea_access_link_qos_enabled) ? "" : "no"); printf("Core delay %.4fs (%.4fs), peak jitter %.4fs, prob loss %.4f%%, prob OOS %.4f%%\n", mo->core.base_regional_delay, mo->core.base_intercontinental_delay, mo->core.max_jitter, mo->core.prob_packet_loss, mo->core.prob_oos); printf(" Route flap interval %.4fs, delay change %.4fs\n", mo->core.route_flap_interval, mo->core.route_flap_delay); printf(" Link failure interval %.4fs, duration %.4fs\n", mo->core.link_failure_interval, mo->core.link_failure_duration); printf("Side B access %dbps, %.3f%% occupancy, MTU %d, %s QoS\n", sp->sideb_access_link_bit_rate_ba, mo->sideb_access_link.percentage_occupancy, mo->sideb_access_link.mtu, (sp->sideb_access_link_qos_enabled) ? "" : "no"); printf("Side B LAN %dbps, %.3f%% occupancy, MTU %d, %s MA\n", sp->sideb_lan_bit_rate, mo->sideb_lan.percentage_occupancy, mo->sideb_lan.mtu, (sp->sideb_lan_multiple_access) ? "" : "no"); } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) g1050_put(g1050_state_t *s, const uint8_t buf[], int len, int seq_no, double departure_time) { g1050_queue_element_t *element; g1050_queue_element_t *e; double arrival_time; while (departure_time >= s->base_time + 1.0) g1050_simulate_chunk(s); arrival_time = s->arrival_times_1[(int) ((departure_time - s->base_time)*(double) s->packet_rate + 0.5)]; if (arrival_time < 0) { /* This packet is lost */ return 0; } if ((element = (g1050_queue_element_t *) malloc(sizeof(*element) + len)) == NULL) return -1; element->next = NULL; element->prev = NULL; element->seq_no = seq_no; element->departure_time = departure_time; element->arrival_time = arrival_time; element->len = len; memcpy(element->pkt, buf, len); /* Add it to the queue, in order */ if (s->last == NULL) { /* The queue is empty */ s->first = s->last = element; } else { for (e = s->last; e; e = e->prev) { if (e->arrival_time <= arrival_time) break; } if (e) { element->next = e->next; element->prev = e; e->next = element; } else { element->next = s->first; s->first = element; } if (element->next) element->next->prev = element; else s->last = element; } //printf(">> Seq %d, departs %f, arrives %f\n", seq_no, departure_time, arrival_time); return len; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) g1050_get(g1050_state_t *s, uint8_t buf[], int max_len, double current_time, int *seq_no, double *departure_time, double *arrival_time) { int len; g1050_queue_element_t *element; element = s->first; if (element == NULL) { if (seq_no) *seq_no = -1; if (departure_time) *departure_time = -1; if (arrival_time) *arrival_time = -1; return -1; } if (element->arrival_time > current_time) { if (seq_no) *seq_no = element->seq_no; if (departure_time) *departure_time = element->departure_time; if (arrival_time) *arrival_time = element->arrival_time; return -1; } /* Return the first packet in the queue */ len = element->len; memcpy(buf, element->pkt, len); if (seq_no) *seq_no = element->seq_no; if (departure_time) *departure_time = element->departure_time; if (arrival_time) *arrival_time = element->arrival_time; //printf("<< Seq %d, arrives %f (%f)\n", element->seq_no, element->arrival_time, current_time); /* Remove it from the queue */ if (s->first == s->last) s->last = NULL; s->first = element->next; if (element->next) element->next->prev = NULL; free(element); return len; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) g1050_queue_dump(g1050_state_t *s) { g1050_queue_element_t *e; printf("Queue scanned forewards\n"); for (e = s->first; e; e = e->next) printf("Seq %5d, arrival %10.4f, len %3d\n", e->seq_no, e->arrival_time, e->len); printf("Queue scanned backwards\n"); for (e = s->last; e; e = e->prev) printf("Seq %5d, arrival %10.4f, len %3d\n", e->seq_no, e->arrival_time, e->len); } /*- End of function --------------------------------------------------------*/ /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/spandsp-sim/libspandsp_sim.dsp0000664000175000017500000001103311516506112020550 0ustar steveusteveu# Microsoft Developer Studio Project File - Name="spandsp" - Package Owner=<4> # Microsoft Developer Studio Generated Build File, Format Version 6.00 # ** DO NOT EDIT ** # TARGTYPE "Win32 (x86) Dynamic-Link Library" 0x0102 CFG=spandsp - Win32 Debug !MESSAGE This is not a valid makefile. To build this project using NMAKE, !MESSAGE use the Export Makefile command and run !MESSAGE !MESSAGE NMAKE /f "spandsp.mak". !MESSAGE !MESSAGE You can specify a configuration when running NMAKE !MESSAGE by defining the macro CFG on the command line. For example: !MESSAGE !MESSAGE NMAKE /f "spandsp.mak" CFG="spandsp - Win32 Debug" !MESSAGE !MESSAGE Possible choices for configuration are: !MESSAGE !MESSAGE "spandsp - Win32 Release" (based on "Win32 (x86) Dynamic-Link Library") !MESSAGE "spandsp - Win32 Debug" (based on "Win32 (x86) Dynamic-Link Library") !MESSAGE # Begin Project # PROP AllowPerConfigDependencies 0 # PROP Scc_ProjName "" # PROP Scc_LocalPath "" CPP=cl.exe MTL=midl.exe RSC=rc.exe !IF "$(CFG)" == "spandsp - Win32 Release" # PROP BASE Use_MFC 0 # PROP BASE Use_Debug_Libraries 0 # PROP BASE Output_Dir "Release" # PROP BASE Intermediate_Dir "Release" # PROP BASE Target_Dir "" # PROP Use_MFC 0 # PROP Use_Debug_Libraries 0 # PROP Output_Dir "Release" # PROP Intermediate_Dir "Release" # PROP Ignore_Export_Lib 0 # PROP Target_Dir "" # ADD BASE CPP /nologo /MT /W3 /GX /O2 /D "WIN32" /D "NDEBUG" /D "_WINDOWS" /D "_MBCS" /D "_USRDLL" /D HAVE_TGMATH_H /YX /FD /c # ADD CPP /nologo /MT /W3 /GX /Zi /O2 /I "." /I "..\include" /D "WIN32" /D "NDEBUG" /D "_WINDOWS" /D "_MBCS" /D "_USRDLL" /D HAVE_TGMATH_H /D "_WINDLL" /FR /FD /c # SUBTRACT CPP /YX # ADD BASE MTL /nologo /D "NDEBUG" /mktyplib203 /win32 # ADD MTL /nologo /D "NDEBUG" /mktyplib203 /win32 # ADD BASE RSC /l 0x409 /d "NDEBUG" # ADD RSC /l 0x409 /d "NDEBUG" BSC32=bscmake.exe # ADD BASE BSC32 /nologo # ADD BSC32 /nologo LINK32=link.exe # ADD BASE LINK32 kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib /nologo /dll /machine:I386 # ADD LINK32 kernel32.lib ws2_32.lib winmm.lib /nologo /dll /map /debug /machine:I386 /out:"Release/libspandsp.dll" !ELSEIF "$(CFG)" == "spandsp - Win32 Debug" # PROP BASE Use_MFC 0 # PROP BASE Use_Debug_Libraries 1 # PROP BASE Output_Dir "Debug" # PROP BASE Intermediate_Dir "Debug" # PROP BASE Target_Dir "" # PROP Use_MFC 0 # PROP Use_Debug_Libraries 1 # PROP Output_Dir "Debug" # PROP Intermediate_Dir "Debug" # PROP Ignore_Export_Lib 0 # PROP Target_Dir "" # ADD BASE CPP /nologo /MTd /W3 /Gm /GX /ZI /Od /D "WIN32" /D "_DEBUG" /D "_WINDOWS" /D "_MBCS" /D "_USRDLL" /D HAVE_TGMATH_H /YX /FD /GZ /c # ADD CPP /nologo /MTd /W3 /Gm /GX /Zi /Od /I "." /I "..\include" /D "WIN32" /D "_DEBUG" /D "_WINDOWS" /D "_MBCS" /D "_USRDLL" /D HAVE_TGMATH_H /FR /FD /GZ /c # SUBTRACT CPP /WX /YX # ADD BASE MTL /nologo /D "_DEBUG" /mktyplib203 /win32 # ADD MTL /nologo /D "_DEBUG" /mktyplib203 /win32 # ADD BASE RSC /l 0x409 /d "_DEBUG" # ADD RSC /l 0x409 /d "_DEBUG" BSC32=bscmake.exe # ADD BASE BSC32 /nologo # ADD BSC32 /nologo LINK32=link.exe # ADD BASE LINK32 kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib /nologo /dll /debug /machine:I386 /pdbtype:sept # ADD LINK32 kernel32.lib ws2_32.lib winmm.lib /nologo /dll /incremental:no /map /debug /machine:I386 /out:"Debug/libspandsp.dll" /pdbtype:sept # SUBTRACT LINK32 /nodefaultlib !ENDIF # Begin Target # Name "spandsp - Win32 Release" # Name "spandsp - Win32 Debug" # Begin Group "Source Files" # Begin Source File SOURCE=.\g1050.c # End Source File # Begin Source File SOURCE=.\line_model.c # End Source File # Begin Source File SOURCE=.\rfc2198_sim.c # End Source File # Begin Source File SOURCE=.\test_utils.c # End Source File # End Group # Begin Group "Header Files" # Begin Source File SOURCE=.\spandsp/g1050.h # End Source File # Begin Source File SOURCE=.\spandsp/line_model.h # End Source File # Begin Source File SOURCE=.\spandsp/line_models.h # End Source File # Begin Source File SOURCE=.\spandsp/rfc2198_sim.h # End Source File # Begin Source File SOURCE=.\spandsp/test_utils.h # End Source File # Begin Source File SOURCE=.\spandsp-sim.h # End Source File # End Group # Begin Group "Resource Files" # PROP Default_Filter "ico;cur;bmp;dlg;rc2;rct;bin;rgs;gif;jpg;jpeg;jpe" # End Group # End Target # End Project spandsp-0.0.6/spandsp-sim/test_utils.c0000664000175000017500000002524111422612261017401 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * test_utils.c - Utility routines for module tests. * * Written by Steve Underwood * * Copyright (C) 2006 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License version 2, as * published by the Free Software Foundation. * * 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., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \file */ #if defined(HAVE_CONFIG_H) #include "config.h" #endif #include #include #include #include #if defined(HAVE_TGMATH_H) #include #endif #if defined(HAVE_MATH_H) #include #endif #include "floating_fudge.h" #include #include #include #define SPANDSP_EXPOSE_INTERNAL_STRUCTURES #include "spandsp.h" #include "spandsp-sim.h" #define MAX_FFT_LEN 8192 struct codec_munge_state_s { int munging_codec; g726_state_t g726_enc_state; g726_state_t g726_dec_state; int rbs_pattern; int sequence; }; struct complexify_state_s { float history[128]; int ptr; }; static complex_t circle[MAX_FFT_LEN/2]; static int circle_init = FALSE; static complex_t icircle[MAX_FFT_LEN/2]; static int icircle_init = FALSE; SPAN_DECLARE(complexify_state_t *) complexify_init(void) { complexify_state_t *s; int i; if ((s = (complexify_state_t *) malloc(sizeof(*s)))) { s->ptr = 0; for (i = 0; i < 128; i++) s->history[i] = 0.0f; } return s; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) complexify_release(complexify_state_t *s) { free(s); } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(complexf_t) complexify(complexify_state_t *s, int16_t amp) { #define HILBERT_GAIN 1.569546344 static const float hilbert_coeffs[] = { +0.0012698413f, +0.0013489483f, +0.0015105196f, +0.0017620440f, +0.0021112899f, +0.0025663788f, +0.0031358856f, +0.0038289705f, +0.0046555545f, +0.0056265487f, +0.0067541562f, +0.0080522707f, +0.0095370033f, +0.0112273888f, +0.0131463382f, +0.0153219442f, +0.0177892941f, +0.0205930381f, +0.0237910974f, +0.0274601544f, +0.0317040029f, +0.0366666667f, +0.0425537942f, +0.0496691462f, +0.0584802574f, +0.0697446887f, +0.0847739823f, +0.1060495199f, +0.1388940865f, +0.1971551103f, +0.3316207267f, +0.9994281838f, }; float famp; int i; int j; int k; complexf_t res; s->history[s->ptr] = amp; i = s->ptr - 63; if (i < 0) i += 128; res.re = s->history[i]; famp = 0.0f; j = s->ptr - 126; if (j < 0) j += 128; for (i = 0, k = s->ptr; i < 32; i++) { famp += (s->history[k] - s->history[j])*hilbert_coeffs[i]; j += 2; if (j >= 128) j -= 128; k -= 2; if (k < 0) k += 128; } res.im = famp/HILBERT_GAIN; if (++s->ptr >= 128) s->ptr = 0; return res; } /*- End of function --------------------------------------------------------*/ static __inline__ complex_t expj(double theta) { return complex_set(cos(theta), sin(theta)); } /*- End of function --------------------------------------------------------*/ static void fftx(complex_t data[], complex_t temp[], int n) { int i; int h; int p; int t; int i2; complex_t wkt; if (n > 1) { h = n/2; for (i = 0; i < h; i++) { i2 = i*2; temp[i] = data[i2]; /* Even */ temp[h + i] = data[i2 + 1]; /* Odd */ } fftx(&temp[0], &data[0], h); fftx(&temp[h], &data[h], h); p = 0; t = MAX_FFT_LEN/n; for (i = 0; i < h; i++) { wkt = complex_mul(&circle[p], &temp[h + i]); data[i] = complex_add(&temp[i], &wkt); data[h + i] = complex_sub(&temp[i], &wkt); p += t; } } } /*- End of function --------------------------------------------------------*/ static void ifftx(complex_t data[], complex_t temp[], int n) { int i; int h; int p; int t; int i2; complex_t wkt; if (n > 1) { h = n/2; for (i = 0; i < h; i++) { i2 = i*2; temp[i] = data[i2]; /* Even */ temp[h + i] = data[i2 + 1]; /* Odd */ } fftx(&temp[0], &data[0], h); fftx(&temp[h], &data[h], h); p = 0; t = MAX_FFT_LEN/n; for (i = 0; i < h; i++) { wkt = complex_mul(île[p], &temp[h + i]); data[i] = complex_add(&temp[i], &wkt); data[h + i] = complex_sub(&temp[i], &wkt); p += t; } } } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) fft(complex_t data[], int len) { int i; double x; complex_t temp[MAX_FFT_LEN]; /* A very slow and clunky FFT, that's just fine for tests. */ if (!circle_init) { for (i = 0; i < MAX_FFT_LEN/2; i++) { x = -(2.0*3.1415926535*i)/(double) MAX_FFT_LEN; circle[i] = expj(x); } circle_init = TRUE; } fftx(data, temp, len); } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) ifft(complex_t data[], int len) { int i; double x; complex_t temp[MAX_FFT_LEN]; /* A very slow and clunky FFT, that's just fine for tests. */ if (!icircle_init) { for (i = 0; i < MAX_FFT_LEN/2; i++) { x = (2.0*3.1415926535*i)/(double) MAX_FFT_LEN; icircle[i] = expj(x); } icircle_init = TRUE; } ifftx(data, temp, len); } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(codec_munge_state_t *) codec_munge_init(int codec, int info) { codec_munge_state_t *s; if ((s = (codec_munge_state_t *) malloc(sizeof(*s)))) { switch (codec) { case MUNGE_CODEC_G726_40K: g726_init(&s->g726_enc_state, 40000, G726_ENCODING_LINEAR, G726_PACKING_NONE); g726_init(&s->g726_dec_state, 40000, G726_ENCODING_LINEAR, G726_PACKING_NONE); s->munging_codec = MUNGE_CODEC_G726_32K; break; case MUNGE_CODEC_G726_32K: g726_init(&s->g726_enc_state, 32000, G726_ENCODING_LINEAR, G726_PACKING_NONE); g726_init(&s->g726_dec_state, 32000, G726_ENCODING_LINEAR, G726_PACKING_NONE); s->munging_codec = MUNGE_CODEC_G726_32K; break; case MUNGE_CODEC_G726_24K: g726_init(&s->g726_enc_state, 24000, G726_ENCODING_LINEAR, G726_PACKING_NONE); g726_init(&s->g726_dec_state, 24000, G726_ENCODING_LINEAR, G726_PACKING_NONE); s->munging_codec = MUNGE_CODEC_G726_32K; break; case MUNGE_CODEC_G726_16K: g726_init(&s->g726_enc_state, 16000, G726_ENCODING_LINEAR, G726_PACKING_NONE); g726_init(&s->g726_dec_state, 16000, G726_ENCODING_LINEAR, G726_PACKING_NONE); s->munging_codec = MUNGE_CODEC_G726_32K; break; default: s->munging_codec = codec; break; } s->sequence = 0; s->rbs_pattern = info; } return s; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) codec_munge_release(codec_munge_state_t *s) { free(s); } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) codec_munge(codec_munge_state_t *s, int16_t amp[], int len) { uint8_t law; uint8_t adpcmdata[160]; int i; int adpcm; int x; switch (s->munging_codec) { case MUNGE_CODEC_NONE: /* Do nothing */ break; case MUNGE_CODEC_ALAW: for (i = 0; i < len; i++) { law = linear_to_alaw(amp[i]); amp[i] = alaw_to_linear(law); } break; case MUNGE_CODEC_ULAW: for (i = 0; i < len; i++) { law = linear_to_ulaw(amp[i]); if (s->rbs_pattern & (1 << s->sequence)) { /* Strip the bottom bit at the RBS rate */ law &= 0xFE; } amp[i] = ulaw_to_linear(law); } break; case MUNGE_CODEC_G726_32K: /* This could actually be any of the G.726 rates */ for (i = 0; i < len; i += x) { x = (len - i >= 160) ? 160 : (len - i); adpcm = g726_encode(&s->g726_enc_state, adpcmdata, amp + i, x); g726_decode(&s->g726_dec_state, amp + i, adpcmdata, adpcm); } break; } } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(SNDFILE *) sf_open_telephony_read(const char *name, int channels) { SNDFILE *handle; SF_INFO info; memset(&info, 0, sizeof(info)); if ((handle = sf_open(name, SFM_READ, &info)) == NULL) { fprintf(stderr, " Cannot open audio file '%s' for reading\n", name); exit(2); } if (info.samplerate != SAMPLE_RATE) { printf(" Unexpected sample rate in audio file '%s'\n", name); exit(2); } if (info.channels != channels) { printf(" Unexpected number of channels in audio file '%s'\n", name); exit(2); } return handle; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(SNDFILE *) sf_open_telephony_write(const char *name, int channels) { SNDFILE *handle; SF_INFO info; memset(&info, 0, sizeof(info)); info.frames = 0; info.samplerate = SAMPLE_RATE; info.channels = channels; info.format = SF_FORMAT_WAV | SF_FORMAT_PCM_16; info.sections = 1; info.seekable = 1; if ((handle = sf_open(name, SFM_WRITE, &info)) == NULL) { fprintf(stderr, " Cannot open audio file '%s' for writing\n", name); exit(2); } return handle; } /*- End of function --------------------------------------------------------*/ /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/spandsp-sim/Makefile.in0000664000175000017500000005346711516506031017117 0ustar steveusteveu# Makefile.in generated by automake 1.9.6 from Makefile.am. # @configure_input@ # Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, # 2003, 2004, 2005 Free Software Foundation, Inc. # This Makefile.in is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY, to the extent permitted by law; without # even the implied warranty of MERCHANTABILITY or FITNESS FOR A # PARTICULAR PURPOSE. @SET_MAKE@ srcdir = @srcdir@ top_srcdir = @top_srcdir@ VPATH = @srcdir@ pkgdatadir = $(datadir)/@PACKAGE@ pkglibdir = $(libdir)/@PACKAGE@ pkgincludedir = $(includedir)/@PACKAGE@ top_builddir = .. am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd INSTALL = @INSTALL@ install_sh_DATA = $(install_sh) -c -m 644 install_sh_PROGRAM = $(install_sh) -c install_sh_SCRIPT = $(install_sh) -c INSTALL_HEADER = $(INSTALL_DATA) transform = $(program_transform_name) NORMAL_INSTALL = : PRE_INSTALL = : POST_INSTALL = : NORMAL_UNINSTALL = : PRE_UNINSTALL = : POST_UNINSTALL = : build_triplet = @build@ host_triplet = @host@ noinst_PROGRAMS = make_line_models$(EXEEXT) subdir = spandsp-sim DIST_COMMON = $(nobase_include_HEADERS) $(srcdir)/Makefile.am \ $(srcdir)/Makefile.in ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 am__aclocal_m4_deps = $(top_srcdir)/config/ax_compiler_vendor.m4 \ $(top_srcdir)/config/ax_check_real_file.m4 \ $(top_srcdir)/config/ax_fixed_point_machine.m4 \ $(top_srcdir)/config/ax_misaligned_access_fails.m4 \ $(top_srcdir)/config/ax_c99_features.m4 \ $(top_srcdir)/config/ax_check_export_capability.m4 \ $(top_srcdir)/configure.ac am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \ $(ACLOCAL_M4) mkinstalldirs = $(install_sh) -d CONFIG_HEADER = $(top_builddir)/src/config.h CONFIG_CLEAN_FILES = am__vpath_adj_setup = srcdirstrip=`echo "$(srcdir)" | sed 's|.|.|g'`; am__vpath_adj = case $$p in \ $(srcdir)/*) f=`echo "$$p" | sed "s|^$$srcdirstrip/||"`;; \ *) f=$$p;; \ esac; am__strip_dir = `echo $$p | sed -e 's|^.*/||'`; am__installdirs = "$(DESTDIR)$(libdir)" "$(DESTDIR)$(includedir)" libLTLIBRARIES_INSTALL = $(INSTALL) LTLIBRARIES = $(lib_LTLIBRARIES) libspandsp_sim_la_LIBADD = am_libspandsp_sim_la_OBJECTS = g1050.lo line_model.lo rfc2198_sim.lo \ test_utils.lo nodist_libspandsp_sim_la_OBJECTS = line_models.lo libspandsp_sim_la_OBJECTS = $(am_libspandsp_sim_la_OBJECTS) \ $(nodist_libspandsp_sim_la_OBJECTS) PROGRAMS = $(noinst_PROGRAMS) am_make_line_models_OBJECTS = make_line_models.$(OBJEXT) make_line_models_OBJECTS = $(am_make_line_models_OBJECTS) make_line_models_DEPENDENCIES = DEFAULT_INCLUDES = -I. -I$(srcdir) -I$(top_builddir)/src depcomp = $(SHELL) $(top_srcdir)/config/depcomp am__depfiles_maybe = depfiles COMPILE = $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) \ $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) LTCOMPILE = $(LIBTOOL) --tag=CC --mode=compile $(CC) $(DEFS) \ $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) \ $(AM_CFLAGS) $(CFLAGS) CCLD = $(CC) LINK = $(LIBTOOL) --tag=CC --mode=link $(CCLD) $(AM_CFLAGS) $(CFLAGS) \ $(AM_LDFLAGS) $(LDFLAGS) -o $@ SOURCES = $(libspandsp_sim_la_SOURCES) \ $(nodist_libspandsp_sim_la_SOURCES) \ $(make_line_models_SOURCES) DIST_SOURCES = $(libspandsp_sim_la_SOURCES) \ $(make_line_models_SOURCES) nobase_includeHEADERS_INSTALL = $(install_sh_DATA) HEADERS = $(nobase_include_HEADERS) ETAGS = etags CTAGS = ctags DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST) ACLOCAL = @ACLOCAL@ AMDEP_FALSE = @AMDEP_FALSE@ AMDEP_TRUE = @AMDEP_TRUE@ AMTAR = @AMTAR@ AR = @AR@ AUTOCONF = @AUTOCONF@ AUTOHEADER = @AUTOHEADER@ AUTOMAKE = @AUTOMAKE@ AWK = @AWK@ CC = @CC@ CCDEPMODE = @CCDEPMODE@ CC_FOR_BUILD = @CC_FOR_BUILD@ CFLAGS = @CFLAGS@ COMP_VENDOR_CFLAGS = @COMP_VENDOR_CFLAGS@ COMP_VENDOR_LDFLAGS = @COMP_VENDOR_LDFLAGS@ COND_DOC_FALSE = @COND_DOC_FALSE@ COND_DOC_TRUE = @COND_DOC_TRUE@ COND_MMX_FALSE = @COND_MMX_FALSE@ COND_MMX_TRUE = @COND_MMX_TRUE@ COND_SSE2_FALSE = @COND_SSE2_FALSE@ COND_SSE2_TRUE = @COND_SSE2_TRUE@ COND_SSE3_FALSE = @COND_SSE3_FALSE@ COND_SSE3_TRUE = @COND_SSE3_TRUE@ COND_SSE4A_FALSE = @COND_SSE4A_FALSE@ COND_SSE4A_TRUE = @COND_SSE4A_TRUE@ COND_SSE4_1_FALSE = @COND_SSE4_1_FALSE@ COND_SSE4_1_TRUE = @COND_SSE4_1_TRUE@ COND_SSE4_2_FALSE = @COND_SSE4_2_FALSE@ COND_SSE4_2_TRUE = @COND_SSE4_2_TRUE@ COND_SSE5_FALSE = @COND_SSE5_FALSE@ COND_SSE5_TRUE = @COND_SSE5_TRUE@ COND_SSE_FALSE = @COND_SSE_FALSE@ COND_SSE_TRUE = @COND_SSE_TRUE@ COND_SSSE3_FALSE = @COND_SSSE3_FALSE@ COND_SSSE3_TRUE = @COND_SSSE3_TRUE@ COND_TESTDATA_FALSE = @COND_TESTDATA_FALSE@ COND_TESTDATA_TRUE = @COND_TESTDATA_TRUE@ COND_TESTS_FALSE = @COND_TESTS_FALSE@ COND_TESTS_TRUE = @COND_TESTS_TRUE@ CPP = @CPP@ CPPFLAGS = @CPPFLAGS@ CPPFLAGS_FOR_BUILD = @CPPFLAGS_FOR_BUILD@ CXX = @CXX@ CXXCPP = @CXXCPP@ CXXDEPMODE = @CXXDEPMODE@ CXXFLAGS = @CXXFLAGS@ CYGPATH_W = @CYGPATH_W@ DEFS = @DEFS@ DEPDIR = @DEPDIR@ DSYMUTIL = @DSYMUTIL@ ECHO = @ECHO@ ECHO_C = @ECHO_C@ ECHO_N = @ECHO_N@ ECHO_T = @ECHO_T@ EGREP = @EGREP@ EXEEXT = @EXEEXT@ F77 = @F77@ FFLAGS = @FFLAGS@ INSERT_INTTYPES_HEADER = @INSERT_INTTYPES_HEADER@ INSERT_MATH_HEADER = @INSERT_MATH_HEADER@ INSERT_STDINT_HEADER = @INSERT_STDINT_HEADER@ INSERT_TGMATH_HEADER = @INSERT_TGMATH_HEADER@ INSTALL_DATA = @INSTALL_DATA@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ INSTALL_SCRIPT = @INSTALL_SCRIPT@ INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@ LDFLAGS = @LDFLAGS@ LIBOBJS = @LIBOBJS@ LIBS = @LIBS@ -L$(top_builddir)/src -lspandsp $(SIMLIBS) LIBTOOL = @LIBTOOL@ LN_S = @LN_S@ LTLIBOBJS = @LTLIBOBJS@ MAKEINFO = @MAKEINFO@ NMEDIT = @NMEDIT@ OBJEXT = @OBJEXT@ PACKAGE = @PACKAGE@ PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@ PACKAGE_NAME = @PACKAGE_NAME@ PACKAGE_STRING = @PACKAGE_STRING@ PACKAGE_TARNAME = @PACKAGE_TARNAME@ PACKAGE_VERSION = @PACKAGE_VERSION@ PATH_SEPARATOR = @PATH_SEPARATOR@ RANLIB = @RANLIB@ SED = @SED@ SET_MAKE = @SET_MAKE@ SHELL = @SHELL@ SIMLIBS = @SIMLIBS@ SPANDSP_LT_AGE = @SPANDSP_LT_AGE@ SPANDSP_LT_CURRENT = @SPANDSP_LT_CURRENT@ SPANDSP_LT_REVISION = @SPANDSP_LT_REVISION@ SPANDSP_MISALIGNED_ACCESS_FAILS = @SPANDSP_MISALIGNED_ACCESS_FAILS@ SPANDSP_SUPPORT_T85 = @SPANDSP_SUPPORT_T85@ SPANDSP_SUPPORT_V34 = @SPANDSP_SUPPORT_V34@ SPANDSP_USE_EXPORT_CAPABILITY = @SPANDSP_USE_EXPORT_CAPABILITY@ SPANDSP_USE_FIXED_POINT = @SPANDSP_USE_FIXED_POINT@ STRIP = @STRIP@ TESTLIBS = @TESTLIBS@ VERSION = @VERSION@ ac_ct_AR = @ac_ct_AR@ ac_ct_CC = @ac_ct_CC@ ac_ct_CXX = @ac_ct_CXX@ ac_ct_DSYMUTIL = @ac_ct_DSYMUTIL@ ac_ct_F77 = @ac_ct_F77@ ac_ct_NMEDIT = @ac_ct_NMEDIT@ ac_ct_RANLIB = @ac_ct_RANLIB@ ac_ct_STRIP = @ac_ct_STRIP@ am__fastdepCC_FALSE = @am__fastdepCC_FALSE@ am__fastdepCC_TRUE = @am__fastdepCC_TRUE@ am__fastdepCXX_FALSE = @am__fastdepCXX_FALSE@ am__fastdepCXX_TRUE = @am__fastdepCXX_TRUE@ am__include = @am__include@ am__leading_dot = @am__leading_dot@ am__quote = @am__quote@ am__tar = @am__tar@ am__untar = @am__untar@ bindir = @bindir@ build = @build@ build_alias = @build_alias@ build_cpu = @build_cpu@ build_os = @build_os@ build_vendor = @build_vendor@ datadir = @datadir@ exec_prefix = @exec_prefix@ host = @host@ host_alias = @host_alias@ host_cpu = @host_cpu@ host_os = @host_os@ host_vendor = @host_vendor@ includedir = @includedir@ infodir = @infodir@ install_sh = @install_sh@ libdir = @libdir@ libexecdir = @libexecdir@ localstatedir = @localstatedir@ mandir = @mandir@ mkdir_p = @mkdir_p@ oldincludedir = @oldincludedir@ prefix = @prefix@ program_transform_name = @program_transform_name@ sbindir = @sbindir@ sharedstatedir = @sharedstatedir@ sysconfdir = @sysconfdir@ target_alias = @target_alias@ AM_CFLAGS = $(COMP_VENDOR_CFLAGS) AM_LDFLAGS = $(COMP_VENDOR_LDFLAGS) MAINTAINERCLEANFILES = Makefile.in EXTRA_DIST = libspandsp_sim.dsp \ libspandsp_sim.2005.vcproj \ libspandsp_sim.2008.vcproj \ msvc/make_line_models.2008.vcproj \ msvc/msvcproj.head \ msvc/msvcproj.foot \ msvc/vc8proj.head \ msvc/vc8proj.foot \ msvc/vc9proj.head \ msvc/vc9proj.foot INCLUDES = -I$(top_builddir) -I$(top_builddir)/src -DDATADIR="\"$(pkgdatadir)\"" lib_LTLIBRARIES = libspandsp-sim.la libspandsp_sim_la_SOURCES = g1050.c \ line_model.c \ rfc2198_sim.c \ test_utils.c nodist_libspandsp_sim_la_SOURCES = line_models.c libspandsp_sim_la_LDFLAGS = -version-info @SPANDSP_LT_CURRENT@:@SPANDSP_LT_REVISION@:@SPANDSP_LT_AGE@ $(COMP_VENDOR_LDFLAGS) nobase_include_HEADERS = spandsp/g1050.h \ spandsp/line_model.h \ spandsp/line_models.h \ spandsp/rfc2198_sim.h \ spandsp/test_utils.h \ spandsp-sim.h make_line_models_SOURCES = make_line_models.c make_line_models_LDADD = -L$(top_builddir)/src -lspandsp DSP = libspandsp_sim.dsp VCPROJ8 = libspandsp_sim.2005.vcproj VCPROJ9 = libspandsp_sim.2008.vcproj WIN32SOURCES = $(libspandsp_sim_la_SOURCES) WIN32HEADERS = $(nobase_include_HEADERS) DSPOUT = | awk '{printf("%s\r\n", $$0)}' >> $(DSP) VCPROJOUT8 = | awk '{printf("%s\r\n", $$0)}' >> $(VCPROJ8) VCPROJOUT9 = | awk '{printf("%s\r\n", $$0)}' >> $(VCPROJ9) all: all-am .SUFFIXES: .SUFFIXES: .c .lo .o .obj $(srcdir)/Makefile.in: $(srcdir)/Makefile.am $(am__configure_deps) @for dep in $?; do \ case '$(am__configure_deps)' in \ *$$dep*) \ cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh \ && exit 0; \ exit 1;; \ esac; \ done; \ echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu spandsp-sim/Makefile'; \ cd $(top_srcdir) && \ $(AUTOMAKE) --gnu spandsp-sim/Makefile .PRECIOUS: Makefile Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status @case '$?' in \ *config.status*) \ cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \ *) \ echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \ esac; $(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(top_srcdir)/configure: $(am__configure_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(ACLOCAL_M4): $(am__aclocal_m4_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh install-libLTLIBRARIES: $(lib_LTLIBRARIES) @$(NORMAL_INSTALL) test -z "$(libdir)" || $(mkdir_p) "$(DESTDIR)$(libdir)" @list='$(lib_LTLIBRARIES)'; for p in $$list; do \ if test -f $$p; then \ f=$(am__strip_dir) \ echo " $(LIBTOOL) --mode=install $(libLTLIBRARIES_INSTALL) $(INSTALL_STRIP_FLAG) '$$p' '$(DESTDIR)$(libdir)/$$f'"; \ $(LIBTOOL) --mode=install $(libLTLIBRARIES_INSTALL) $(INSTALL_STRIP_FLAG) "$$p" "$(DESTDIR)$(libdir)/$$f"; \ else :; fi; \ done uninstall-libLTLIBRARIES: @$(NORMAL_UNINSTALL) @set -x; list='$(lib_LTLIBRARIES)'; for p in $$list; do \ p=$(am__strip_dir) \ echo " $(LIBTOOL) --mode=uninstall rm -f '$(DESTDIR)$(libdir)/$$p'"; \ $(LIBTOOL) --mode=uninstall rm -f "$(DESTDIR)$(libdir)/$$p"; \ done clean-libLTLIBRARIES: -test -z "$(lib_LTLIBRARIES)" || rm -f $(lib_LTLIBRARIES) @list='$(lib_LTLIBRARIES)'; for p in $$list; do \ dir="`echo $$p | sed -e 's|/[^/]*$$||'`"; \ test "$$dir" != "$$p" || dir=.; \ echo "rm -f \"$${dir}/so_locations\""; \ rm -f "$${dir}/so_locations"; \ done libspandsp-sim.la: $(libspandsp_sim_la_OBJECTS) $(libspandsp_sim_la_DEPENDENCIES) $(LINK) -rpath $(libdir) $(libspandsp_sim_la_LDFLAGS) $(libspandsp_sim_la_OBJECTS) $(libspandsp_sim_la_LIBADD) $(LIBS) clean-noinstPROGRAMS: @list='$(noinst_PROGRAMS)'; for p in $$list; do \ f=`echo $$p|sed 's/$(EXEEXT)$$//'`; \ echo " rm -f $$p $$f"; \ rm -f $$p $$f ; \ done make_line_models$(EXEEXT): $(make_line_models_OBJECTS) $(make_line_models_DEPENDENCIES) @rm -f make_line_models$(EXEEXT) $(LINK) $(make_line_models_LDFLAGS) $(make_line_models_OBJECTS) $(make_line_models_LDADD) $(LIBS) mostlyclean-compile: -rm -f *.$(OBJEXT) distclean-compile: -rm -f *.tab.c @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/g1050.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/line_model.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/line_models.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/make_line_models.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/rfc2198_sim.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/test_utils.Plo@am__quote@ .c.o: @am__fastdepCC_TRUE@ if $(COMPILE) -MT $@ -MD -MP -MF "$(DEPDIR)/$*.Tpo" -c -o $@ $<; \ @am__fastdepCC_TRUE@ then mv -f "$(DEPDIR)/$*.Tpo" "$(DEPDIR)/$*.Po"; else rm -f "$(DEPDIR)/$*.Tpo"; exit 1; fi @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='$<' object='$@' libtool=no @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(COMPILE) -c $< .c.obj: @am__fastdepCC_TRUE@ if $(COMPILE) -MT $@ -MD -MP -MF "$(DEPDIR)/$*.Tpo" -c -o $@ `$(CYGPATH_W) '$<'`; \ @am__fastdepCC_TRUE@ then mv -f "$(DEPDIR)/$*.Tpo" "$(DEPDIR)/$*.Po"; else rm -f "$(DEPDIR)/$*.Tpo"; exit 1; fi @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='$<' object='$@' libtool=no @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(COMPILE) -c `$(CYGPATH_W) '$<'` .c.lo: @am__fastdepCC_TRUE@ if $(LTCOMPILE) -MT $@ -MD -MP -MF "$(DEPDIR)/$*.Tpo" -c -o $@ $<; \ @am__fastdepCC_TRUE@ then mv -f "$(DEPDIR)/$*.Tpo" "$(DEPDIR)/$*.Plo"; else rm -f "$(DEPDIR)/$*.Tpo"; exit 1; fi @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='$<' object='$@' libtool=yes @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(LTCOMPILE) -c -o $@ $< mostlyclean-libtool: -rm -f *.lo clean-libtool: -rm -rf .libs _libs distclean-libtool: -rm -f libtool uninstall-info-am: install-nobase_includeHEADERS: $(nobase_include_HEADERS) @$(NORMAL_INSTALL) test -z "$(includedir)" || $(mkdir_p) "$(DESTDIR)$(includedir)" @$(am__vpath_adj_setup) \ list='$(nobase_include_HEADERS)'; for p in $$list; do \ if test -f "$$p"; then d=; else d="$(srcdir)/"; fi; \ $(am__vpath_adj) \ echo " $(nobase_includeHEADERS_INSTALL) '$$d$$p' '$(DESTDIR)$(includedir)/$$f'"; \ $(nobase_includeHEADERS_INSTALL) "$$d$$p" "$(DESTDIR)$(includedir)/$$f"; \ done uninstall-nobase_includeHEADERS: @$(NORMAL_UNINSTALL) @$(am__vpath_adj_setup) \ list='$(nobase_include_HEADERS)'; for p in $$list; do \ $(am__vpath_adj) \ echo " rm -f '$(DESTDIR)$(includedir)/$$f'"; \ rm -f "$(DESTDIR)$(includedir)/$$f"; \ done ID: $(HEADERS) $(SOURCES) $(LISP) $(TAGS_FILES) list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) ' { files[$$0] = 1; } \ END { for (i in files) print i; }'`; \ mkid -fID $$unique tags: TAGS TAGS: $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \ $(TAGS_FILES) $(LISP) tags=; \ here=`pwd`; \ list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) ' { files[$$0] = 1; } \ END { for (i in files) print i; }'`; \ if test -z "$(ETAGS_ARGS)$$tags$$unique"; then :; else \ test -n "$$unique" || unique=$$empty_fix; \ $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ $$tags $$unique; \ fi ctags: CTAGS CTAGS: $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \ $(TAGS_FILES) $(LISP) tags=; \ here=`pwd`; \ list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) ' { files[$$0] = 1; } \ END { for (i in files) print i; }'`; \ test -z "$(CTAGS_ARGS)$$tags$$unique" \ || $(CTAGS) $(CTAGSFLAGS) $(AM_CTAGSFLAGS) $(CTAGS_ARGS) \ $$tags $$unique GTAGS: here=`$(am__cd) $(top_builddir) && pwd` \ && cd $(top_srcdir) \ && gtags -i $(GTAGS_ARGS) $$here distclean-tags: -rm -f TAGS ID GTAGS GRTAGS GSYMS GPATH tags distdir: $(DISTFILES) $(mkdir_p) $(distdir)/msvc $(distdir)/spandsp @srcdirstrip=`echo "$(srcdir)" | sed 's|.|.|g'`; \ topsrcdirstrip=`echo "$(top_srcdir)" | sed 's|.|.|g'`; \ list='$(DISTFILES)'; for file in $$list; do \ case $$file in \ $(srcdir)/*) file=`echo "$$file" | sed "s|^$$srcdirstrip/||"`;; \ $(top_srcdir)/*) file=`echo "$$file" | sed "s|^$$topsrcdirstrip/|$(top_builddir)/|"`;; \ esac; \ if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \ dir=`echo "$$file" | sed -e 's,/[^/]*$$,,'`; \ if test "$$dir" != "$$file" && test "$$dir" != "."; then \ dir="/$$dir"; \ $(mkdir_p) "$(distdir)$$dir"; \ else \ dir=''; \ fi; \ if test -d $$d/$$file; then \ if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \ cp -pR $(srcdir)/$$file $(distdir)$$dir || exit 1; \ fi; \ cp -pR $$d/$$file $(distdir)$$dir || exit 1; \ else \ test -f $(distdir)/$$file \ || cp -p $$d/$$file $(distdir)/$$file \ || exit 1; \ fi; \ done check-am: all-am check: check-am all-am: Makefile $(LTLIBRARIES) $(PROGRAMS) $(HEADERS) installdirs: for dir in "$(DESTDIR)$(libdir)" "$(DESTDIR)$(includedir)"; do \ test -z "$$dir" || $(mkdir_p) "$$dir"; \ done install: install-am install-exec: install-exec-am install-data: install-data-am uninstall: uninstall-am install-am: all-am @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am installcheck: installcheck-am install-strip: $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ `test -z '$(STRIP)' || \ echo "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'"` install mostlyclean-generic: clean-generic: distclean-generic: -test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES) maintainer-clean-generic: @echo "This command is intended for maintainers to use" @echo "it deletes files that may require special tools to rebuild." -test -z "$(MAINTAINERCLEANFILES)" || rm -f $(MAINTAINERCLEANFILES) clean: clean-am clean-am: clean-generic clean-libLTLIBRARIES clean-libtool \ clean-noinstPROGRAMS mostlyclean-am distclean: distclean-am -rm -rf ./$(DEPDIR) -rm -f Makefile distclean-am: clean-am distclean-compile distclean-generic \ distclean-libtool distclean-tags dvi: dvi-am dvi-am: html: html-am info: info-am info-am: install-data-am: install-nobase_includeHEADERS install-exec-am: install-libLTLIBRARIES install-info: install-info-am install-man: installcheck-am: maintainer-clean: maintainer-clean-am -rm -rf ./$(DEPDIR) -rm -f Makefile maintainer-clean-am: distclean-am maintainer-clean-generic mostlyclean: mostlyclean-am mostlyclean-am: mostlyclean-compile mostlyclean-generic \ mostlyclean-libtool pdf: pdf-am pdf-am: ps: ps-am ps-am: uninstall-am: uninstall-info-am uninstall-libLTLIBRARIES \ uninstall-nobase_includeHEADERS .PHONY: CTAGS GTAGS all all-am check check-am clean clean-generic \ clean-libLTLIBRARIES clean-libtool clean-noinstPROGRAMS ctags \ distclean distclean-compile distclean-generic \ distclean-libtool distclean-tags distdir dvi dvi-am html \ html-am info info-am install install-am install-data \ install-data-am install-exec install-exec-am install-info \ install-info-am install-libLTLIBRARIES install-man \ install-nobase_includeHEADERS install-strip installcheck \ installcheck-am installdirs maintainer-clean \ maintainer-clean-generic mostlyclean mostlyclean-compile \ mostlyclean-generic mostlyclean-libtool pdf pdf-am ps ps-am \ tags uninstall uninstall-am uninstall-info-am \ uninstall-libLTLIBRARIES uninstall-nobase_includeHEADERS # We need to run make_line_models, so it generates the line_models.h file # used by several of the test programs. line_models.lo: make_line_models$(EXEEXT) line_models.c line_models.$(OBJEXT): make_line_models$(EXEEXT) line_models.c line_models.c: make_line_models$(EXEEXT) ./make_line_models$(EXEEXT) $(DSP): msvc/msvcproj.head msvc/msvcproj.foot Makefile.am echo "creating $(DSP)" @(cp $(srcdir)/msvc/msvcproj.head $(DSP); \ echo "# Begin Group \"Source Files\"" $(DSPOUT); \ for file in $(WIN32SOURCES); do \ echo "# Begin Source File" $(DSPOUT); \ echo "" $(DSPOUT); \ echo "SOURCE=.\\"$$file $(DSPOUT); \ echo "# End Source File" $(DSPOUT); \ done; \ echo "# End Group" $(DSPOUT); \ echo "# Begin Group \"Header Files\"" $(DSPOUT); \ for file in $(WIN32HEADERS); do \ echo "# Begin Source File" $(DSPOUT); \ echo "" $(DSPOUT); \ echo "SOURCE=.\\"$$file $(DSPOUT); \ echo "# End Source File" $(DSPOUT); \ done; \ echo "# End Group" $(DSPOUT); \ cat $(srcdir)/msvc/msvcproj.foot $(DSPOUT) ) $(VCPROJ8): msvc/vc8proj.head msvc/vc8proj.foot Makefile.am echo "creating $(VCPROJ8)" @(cp $(srcdir)/msvc/vc8proj.head $(VCPROJ8); \ for file in $(WIN32SOURCES); do \ echo "" $(VCPROJOUT8); \ done; \ echo "" $(VCPROJOUT8); \ for file in $(WIN32HEADERS); do \ echo "" $(VCPROJOUT8); \ done; \ cat $(srcdir)/msvc/vc8proj.foot $(VCPROJOUT8) ) $(VCPROJ9): msvc/vc9proj.head msvc/vc9proj.foot Makefile.am echo "creating $(VCPROJ9)" @(cp $(srcdir)/msvc/vc9proj.head $(VCPROJ9); \ for file in $(WIN32SOURCES); do \ echo "" $(VCPROJOUT9); \ done; \ echo "" $(VCPROJOUT9); \ for file in $(WIN32HEADERS); do \ echo "" $(VCPROJOUT9); \ done; \ cat $(srcdir)/msvc/vc9proj.foot $(VCPROJOUT9) ) # Tell versions [3.59,3.63) of GNU make to not export all variables. # Otherwise a system limit (for SysV at least) may be exceeded. .NOEXPORT: spandsp-0.0.6/spandsp-sim/Makefile.am0000664000175000017500000001061711422612261017073 0ustar steveusteveu## ## SpanDSP - a series of DSP components for telephony ## ## Makefile.am - Process this file with automake to produce Makefile.in ## ## This program is free software; you can redistribute it and/or modify ## it under the terms of the GNU General Public License version 2, as ## published by the Free Software Foundation. ## ## 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., 675 Mass Ave, Cambridge, MA 02139, USA. AM_CFLAGS = $(COMP_VENDOR_CFLAGS) AM_LDFLAGS = $(COMP_VENDOR_LDFLAGS) LIBS += -L$(top_builddir)/src -lspandsp $(SIMLIBS) MAINTAINERCLEANFILES = Makefile.in EXTRA_DIST = libspandsp_sim.dsp \ libspandsp_sim.2005.vcproj \ libspandsp_sim.2008.vcproj \ msvc/make_line_models.2008.vcproj \ msvc/msvcproj.head \ msvc/msvcproj.foot \ msvc/vc8proj.head \ msvc/vc8proj.foot \ msvc/vc9proj.head \ msvc/vc9proj.foot INCLUDES = -I$(top_builddir) -I$(top_builddir)/src -DDATADIR="\"$(pkgdatadir)\"" noinst_PROGRAMS = make_line_models lib_LTLIBRARIES = libspandsp-sim.la libspandsp_sim_la_SOURCES = g1050.c \ line_model.c \ rfc2198_sim.c \ test_utils.c nodist_libspandsp_sim_la_SOURCES = line_models.c libspandsp_sim_la_LDFLAGS = -version-info @SPANDSP_LT_CURRENT@:@SPANDSP_LT_REVISION@:@SPANDSP_LT_AGE@ $(COMP_VENDOR_LDFLAGS) nobase_include_HEADERS = spandsp/g1050.h \ spandsp/line_model.h \ spandsp/line_models.h \ spandsp/rfc2198_sim.h \ spandsp/test_utils.h \ spandsp-sim.h make_line_models_SOURCES = make_line_models.c make_line_models_LDADD = -L$(top_builddir)/src -lspandsp # We need to run make_line_models, so it generates the line_models.h file # used by several of the test programs. line_models.lo: make_line_models$(EXEEXT) line_models.c line_models.$(OBJEXT): make_line_models$(EXEEXT) line_models.c line_models.c: make_line_models$(EXEEXT) ./make_line_models$(EXEEXT) DSP = libspandsp_sim.dsp VCPROJ8 = libspandsp_sim.2005.vcproj VCPROJ9 = libspandsp_sim.2008.vcproj WIN32SOURCES = $(libspandsp_sim_la_SOURCES) WIN32HEADERS = $(nobase_include_HEADERS) DSPOUT = | awk '{printf("%s\r\n", $$0)}' >> $(DSP) VCPROJOUT8 = | awk '{printf("%s\r\n", $$0)}' >> $(VCPROJ8) VCPROJOUT9 = | awk '{printf("%s\r\n", $$0)}' >> $(VCPROJ9) $(DSP): msvc/msvcproj.head msvc/msvcproj.foot Makefile.am echo "creating $(DSP)" @(cp $(srcdir)/msvc/msvcproj.head $(DSP); \ echo "# Begin Group \"Source Files\"" $(DSPOUT); \ for file in $(WIN32SOURCES); do \ echo "# Begin Source File" $(DSPOUT); \ echo "" $(DSPOUT); \ echo "SOURCE=.\\"$$file $(DSPOUT); \ echo "# End Source File" $(DSPOUT); \ done; \ echo "# End Group" $(DSPOUT); \ echo "# Begin Group \"Header Files\"" $(DSPOUT); \ for file in $(WIN32HEADERS); do \ echo "# Begin Source File" $(DSPOUT); \ echo "" $(DSPOUT); \ echo "SOURCE=.\\"$$file $(DSPOUT); \ echo "# End Source File" $(DSPOUT); \ done; \ echo "# End Group" $(DSPOUT); \ cat $(srcdir)/msvc/msvcproj.foot $(DSPOUT) ) $(VCPROJ8): msvc/vc8proj.head msvc/vc8proj.foot Makefile.am echo "creating $(VCPROJ8)" @(cp $(srcdir)/msvc/vc8proj.head $(VCPROJ8); \ for file in $(WIN32SOURCES); do \ echo "" $(VCPROJOUT8); \ done; \ echo "" $(VCPROJOUT8); \ for file in $(WIN32HEADERS); do \ echo "" $(VCPROJOUT8); \ done; \ cat $(srcdir)/msvc/vc8proj.foot $(VCPROJOUT8) ) $(VCPROJ9): msvc/vc9proj.head msvc/vc9proj.foot Makefile.am echo "creating $(VCPROJ9)" @(cp $(srcdir)/msvc/vc9proj.head $(VCPROJ9); \ for file in $(WIN32SOURCES); do \ echo "" $(VCPROJOUT9); \ done; \ echo "" $(VCPROJOUT9); \ for file in $(WIN32HEADERS); do \ echo "" $(VCPROJOUT9); \ done; \ cat $(srcdir)/msvc/vc9proj.foot $(VCPROJOUT9) ) spandsp-0.0.6/spandsp-sim/line_model.c0000664000175000017500000003501211422612261017306 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * line_model.c - Model a telephone line. * * Written by Steve Underwood * * Copyright (C) 2004 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License version 2, as * published by the Free Software Foundation. * * 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., 675 Mass Ave, Cambridge, MA 02139, USA. */ #if defined(HAVE_CONFIG_H) #include "config.h" #endif #include #include #include #include #include #include #include #if defined(HAVE_TGMATH_H) #include #endif #if defined(HAVE_MATH_H) #define GEN_CONST #include #endif #include "floating_fudge.h" #define SPANDSP_EXPOSE_INTERNAL_STRUCTURES #include "spandsp.h" #include "spandsp-sim.h" #include "spandsp/g168models.h" #if !defined(NULL) #define NULL (void *) 0 #endif static const float null_line_model[] = { 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 1.0 }; SPAN_DECLARE_DATA const float *line_models[] = { null_line_model, /* 0 */ proakis_line_model, ad_1_edd_1_model, ad_1_edd_2_model, ad_1_edd_3_model, ad_5_edd_1_model, /* 5 */ ad_5_edd_2_model, ad_5_edd_3_model, ad_6_edd_1_model, ad_6_edd_2_model, ad_6_edd_3_model, /* 10 */ ad_7_edd_1_model, ad_7_edd_2_model, ad_7_edd_3_model, ad_8_edd_1_model, ad_8_edd_2_model, /* 15 */ ad_8_edd_3_model, ad_9_edd_1_model, ad_9_edd_2_model, ad_9_edd_3_model }; static float calc_near_line_filter(one_way_line_model_state_t *s, float v) { float sum; int j; int p; /* Add the sample in the filter buffer */ p = s->near_buf_ptr; s->near_buf[p] = v; if (++p == s->near_filter_len) p = 0; s->near_buf_ptr = p; /* Apply the filter */ sum = 0.0f; for (j = 0; j < s->near_filter_len; j++) { sum += s->near_filter[j]*s->near_buf[p]; if (++p >= s->near_filter_len) p = 0; } /* Add noise */ sum += awgn(&s->near_noise); return sum; } /*- End of function --------------------------------------------------------*/ static float calc_far_line_filter(one_way_line_model_state_t *s, float v) { float sum; int j; int p; /* Add the sample in the filter buffer */ p = s->far_buf_ptr; s->far_buf[p] = v; if (++p == s->far_filter_len) p = 0; s->far_buf_ptr = p; /* Apply the filter */ sum = 0.0f; for (j = 0; j < s->far_filter_len; j++) { sum += s->far_filter[j]*s->far_buf[p]; if (++p >= s->far_filter_len) p = 0; } /* Add noise */ sum += awgn(&s->far_noise); return sum; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) one_way_line_model(one_way_line_model_state_t *s, int16_t output[], const int16_t input[], int samples) { int i; float in; float out; float out1; int16_t amp[1]; /* The path being modelled is: terminal | < hybrid | | < noise and filtering | | < hybrid CO | | < A-law distortion + bulk delay | CO | < hybrid | | < noise and filtering | | < hybrid terminal */ for (i = 0; i < samples; i++) { in = input[i]; /* Near end analogue section */ /* Line model filters & noise */ out = calc_near_line_filter(s, in); /* Long distance digital section */ amp[0] = out; codec_munge(s->munge, amp, 1); out = amp[0]; /* Introduce the bulk delay of the long distance link. */ out1 = s->bulk_delay_buf[s->bulk_delay_ptr]; s->bulk_delay_buf[s->bulk_delay_ptr] = out; out = out1; if (++s->bulk_delay_ptr >= s->bulk_delay) s->bulk_delay_ptr = 0; /* Far end analogue section */ /* Line model filters & noise */ out = calc_far_line_filter(s, out); if (s->mains_interference) { tone_gen(&s->mains_tone, amp, 1); out += amp[0]; } output[i] = out + s->dc_offset; } } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) one_way_line_model_set_dc(one_way_line_model_state_t *s, float dc) { s->dc_offset = dc; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) one_way_line_model_set_mains_pickup(one_way_line_model_state_t *s, int f, float level) { tone_gen_descriptor_t mains_tone_desc; if (f) { tone_gen_descriptor_init(&mains_tone_desc, f, (int) (level - 10.0f), f*3, (int) level, 1, 0, 0, 0, TRUE); tone_gen_init(&s->mains_tone, &mains_tone_desc); } s->mains_interference = f; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) both_ways_line_model(both_ways_line_model_state_t *s, int16_t output1[], const int16_t input1[], int16_t output2[], const int16_t input2[], int samples) { int i; float in1; float in2; float out1; float out2; float tmp1; float tmp2; int16_t amp[1]; /* The path being modelled is: terminal | < hybrid echo | | < noise and filtering | | < hybrid echo CO | | < A-law distortion + bulk delay | CO | < hybrid echo | | < noise and filtering | | < hybrid echo terminal */ for (i = 0; i < samples; i++) { in1 = input1[i]; in2 = input2[i]; /* Near end analogue sections */ /* Echo from each terminal's CO hybrid */ tmp1 = in1 + s->fout2*s->line1.near_co_hybrid_echo; tmp2 = in2 + s->fout1*s->line2.near_co_hybrid_echo; /* Line model filters & noise */ s->fout1 = calc_near_line_filter(&s->line1, tmp1); s->fout2 = calc_near_line_filter(&s->line2, tmp2); /* Long distance digital section */ /* Introduce distortion due to A-law or u-law munging. */ amp[0] = s->fout1; codec_munge(s->line1.munge, amp, 1); s->fout1 = amp[0]; amp[0] = s->fout2; codec_munge(s->line2.munge, amp, 1); s->fout2 = amp[0]; /* Introduce the bulk delay of the long distance digital link. */ out1 = s->line1.bulk_delay_buf[s->line1.bulk_delay_ptr]; s->line1.bulk_delay_buf[s->line1.bulk_delay_ptr] = s->fout1; s->fout1 = out1; if (++s->line1.bulk_delay_ptr >= s->line1.bulk_delay) s->line1.bulk_delay_ptr = 0; out2 = s->line2.bulk_delay_buf[s->line2.bulk_delay_ptr]; s->line2.bulk_delay_buf[s->line2.bulk_delay_ptr] = s->fout2; s->fout2 = out2; if (++s->line2.bulk_delay_ptr >= s->line2.bulk_delay) s->line2.bulk_delay_ptr = 0; /* Far end analogue sections */ /* Echo from each terminal's own hybrid */ out1 += in2*s->line1.far_cpe_hybrid_echo; out2 += in1*s->line2.far_cpe_hybrid_echo; /* Line model filters & noise */ out1 = calc_far_line_filter(&s->line1, out1); out2 = calc_far_line_filter(&s->line2, out2); output1[i] = fsaturate(out1 + s->line1.dc_offset); output2[i] = fsaturate(out2 + s->line2.dc_offset); } } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) both_ways_line_model_set_dc(both_ways_line_model_state_t *s, float dc1, float dc2) { s->line1.dc_offset = dc1; s->line2.dc_offset = dc2; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) both_ways_line_model_set_mains_pickup(both_ways_line_model_state_t *s, int f, float level1, float level2) { tone_gen_descriptor_t mains_tone_desc; if (f) { tone_gen_descriptor_init(&mains_tone_desc, f, (int) (level1 - 10.0f), f*3, (int) level1, 1, 0, 0, 0, TRUE); tone_gen_init(&s->line1.mains_tone, &mains_tone_desc); tone_gen_descriptor_init(&mains_tone_desc, f, (int) (level2 - 10.0f), f*3, (int) level2, 1, 0, 0, 0, TRUE); tone_gen_init(&s->line2.mains_tone, &mains_tone_desc); } s->line1.mains_interference = f; s->line2.mains_interference = f; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(one_way_line_model_state_t *) one_way_line_model_init(int model, float noise, int codec, int rbs_pattern) { one_way_line_model_state_t *s; if ((s = (one_way_line_model_state_t *) malloc(sizeof(*s))) == NULL) return NULL; memset(s, 0, sizeof(*s)); s->bulk_delay = 8; s->bulk_delay_ptr = 0; s->munge = codec_munge_init(codec, rbs_pattern); s->near_filter = line_models[model]; s->near_filter_len = 129; s->far_filter = line_models[model]; s->far_filter_len = 129; /* Put half the noise in each analogue section */ awgn_init_dbm0(&s->near_noise, 1234567, noise - 3.02f); awgn_init_dbm0(&s->far_noise, 1234567, noise - 3.02f); s->dc_offset = 0.0f; s->mains_interference = 0; return s; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) one_way_line_model_release(one_way_line_model_state_t *s) { free(s); return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(both_ways_line_model_state_t *) both_ways_line_model_init(int model1, float noise1, float echo_level_cpe1, float echo_level_co1, int model2, float noise2, float echo_level_cpe2, float echo_level_co2, int codec, int rbs_pattern) { both_ways_line_model_state_t *s; if ((s = (both_ways_line_model_state_t *) malloc(sizeof(*s))) == NULL) return NULL; memset(s, 0, sizeof(*s)); s->line1.munge = codec_munge_init(codec, rbs_pattern); s->line2.munge = codec_munge_init(codec, rbs_pattern); s->line1.bulk_delay = 8; s->line2.bulk_delay = 8; s->line1.bulk_delay_ptr = 0; s->line2.bulk_delay_ptr = 0; s->line1.near_filter = line_models[model1]; s->line1.near_filter_len = 129; s->line2.near_filter = line_models[model2]; s->line2.near_filter_len = 129; s->line1.far_filter = line_models[model1]; s->line1.far_filter_len = 129; s->line2.far_filter = line_models[model2]; s->line2.far_filter_len = 129; /* Put half the noise in each analogue section */ awgn_init_dbm0(&s->line1.near_noise, 1234567, noise1 - 3.02f); awgn_init_dbm0(&s->line2.near_noise, 7654321, noise2 - 3.02f); awgn_init_dbm0(&s->line1.far_noise, 1234567, noise1 - 3.02f); awgn_init_dbm0(&s->line2.far_noise, 7654321, noise2 - 3.02f); s->line1.dc_offset = 0.0f; s->line2.dc_offset = 0.0f; s->line1.mains_interference = 0; s->line2.mains_interference = 0; /* Echos */ s->line1.near_co_hybrid_echo = pow(10, echo_level_co1/20.0f); s->line2.near_co_hybrid_echo = pow(10, echo_level_co2/20.0f); s->line1.near_cpe_hybrid_echo = pow(10, echo_level_cpe1/20.0f); s->line2.near_cpe_hybrid_echo = pow(10, echo_level_cpe2/20.0f); return s; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) both_ways_line_model_release(both_ways_line_model_state_t *s) { free(s); return 0; } /*- End of function --------------------------------------------------------*/ /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/spandsp-sim/spandsp-sim.h0000664000175000017500000000240711422612261017444 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * spandsp-sim.h - The head guy amongst the simulator headers * * Written by Steve Underwood * * Copyright (C) 2007 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License version 2, as * published by the Free Software Foundation. * * 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., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \file */ #if !defined(_SPANDSP_SIM_H_) #define _SPANDSP_SIM_H_ #include #include #include #include #include #include #include #include #include #endif /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/DueDiligence0000664000175000017500000000561010511204350015034 0ustar steveusteveuIntellectual Property Due Diligence ----------------------------------- Modems and voice coding are heavily patented areas. Implementing these without serious consideration of IP issues would be foolish. This document describes the basis on which the software has been implemented. A check of the intellectual property information at the ITU web site shows a number of patent claims against the current standards implemented by spandsp. It is important to realise, however, that some of these patents have long since expired (group III fax dates back to the 1970s). Also, many are related to recent additions to the FAX standard, such as colour FAX handling, which few people ever use. The V.14 rate adaption standard seems free of patent encumberance. One patent is listed as relevant to the V.17 standard. It is a patent from IBM, but the ITU database does not specify its nature. I believe it is related to the trellis coding used, and I think it has expired. I do not know for sure. The techniques used in the implementation should be free of patent encumberance. Most of the implementation is similar to the V.29 modem. The key addition the trellis code processing. The trellis encoding is trivial. The decoding uses Viterbi techniques, which are quite old. The V.21 standard dates from the 1950s. The V.23 standard is also very old. There is no possibility that any patents related to it are still in force. However, the implementation also needs to be free of patented techniques. The implementation only uses very mature numerical oscillator and quadrature correlation techniques, so there should be no patent issues. Only one patent is listed as relevant to the V.29 standard. This dates from the 1970s, and must have expired. The modem has been implemented using only very mature techniques, none of which can be less than 20 years old. There seem no possibility, therefore, that any patents are still in force related to the techniques used. Some aspect of the V.8 standard seems to have patents associated with it, according to the ITU patent database. I am unclear what these are. V.8 is a very simple standard. There seems to be nothing innovative about it. Many patents are listed as relevant to the T.30 standard. However, they all appear to relate to newer features, such as colour FAX, added in recent years. The current implementation only covers the original features from the late 1970s, where there appear to be patent issues. The T.4 standard defines the image compression and decompression techniques used for group 3 FAXes. The spandsp implementation is based on code derived from freely available implementations of T.4. These have existed for a number of years without IP issues. The standard is old enough for any patents to have expired, anyway. V.42bis compression uses the LZW algorithm. This is the same algorithm used in GIF files. Unisys patented this algorithm. However, the Unisys patent has now expired. spandsp-0.0.6/spandsp.spec.in0000664000175000017500000000447111136061752015540 0ustar steveusteveuSummary: A DSP library for telephony. Name: @PACKAGE@ Version: @VERSION@ Release: 1 License: LGPL Group: System Environment/Libraries URL: http://www.soft-switch.org/spandsp BuildRoot: %{_tmppath}/%{name}-%{version}-root Source: http://www.soft-switch.org/downloads/spandsp/@PACKAGE@-@VERSION@.tar.gz BuildRoot: %{_tmppath}/%{name}-%{version}-%{release}-root-%(%{__id_u} -n) BuildRequires: libtiff-devel BuildRequires: audiofile-devel BuildRequires: doxygen # for xsltproc: BuildRequires: libxslt %description SpanDSP is a library of DSP functions for telephony, in the 8000 sample per second world of E1s, T1s, and higher order PCM channels. It contains low level functions, such as basic filters. It also contains higher level functions, such as cadenced supervisory tone detection, and a complete software FAX machine. The software has been designed to avoid intellectual property issues, using mature techniques where all relevant patents have expired. See the file DueDiligence for important information about these intellectual property issues. %package devel Summary: SpanDSP development files Group: Development/Libraries Requires: spandsp = %{version} Requires: libtiff-devel PreReq: /sbin/install-info %description devel SpanDSP development files. %prep %setup -q %build %configure --enable-doc --disable-static --disable-rpath make %install rm -rf %{buildroot} make install DESTDIR=%{buildroot} rm %{buildroot}%{_libdir}/libspandsp.la %clean rm -rf %{buildroot} %files %defattr(-,root,root,-) %doc DueDiligence ChangeLog AUTHORS COPYING NEWS README %{_libdir}/libspandsp.so.* %files devel %defattr(-,root,root,-) %doc doc/api %{_includedir}/spandsp.h %{_includedir}/spandsp %{_libdir}/libspandsp.so %{_libdir}/pkgconfig/spandsp.pc %post -p /sbin/ldconfig %postun -p /sbin/ldconfig %changelog * Wed Sep 24 2008 Tzafrir Cohen 0.0.5-1 - Preparing for 0.0.5pre4 release - License: LGPL * Mon Jun 23 2008 Steve Underwood 0.0.5-1 - Cleared out the dependency on libxml2 * Sun Dec 31 2006 Steve Underwood 0.0.3-1 - Preparing for 0.0.3 release * Sat Oct 16 2004 Steve Underwood 0.0.2-1 - Preparing for 0.0.2 release * Thu Apr 15 2004 Steve Underwood 0.0.1-1 - Initial version spandsp-0.0.6/src/0000775000175000017500000000000011516506111013363 5ustar steveusteveuspandsp-0.0.6/src/fax_modems.c0000664000175000017500000002706411422612261015662 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * fax_modems.c - the analogue modem set for fax processing * * Written by Steve Underwood * * Copyright (C) 2003, 2005, 2006, 2008 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \file */ #if defined(HAVE_CONFIG_H) #include "config.h" #endif #include #include #include #include #if defined(HAVE_TGMATH_H) #include #endif #if defined(HAVE_MATH_H) #include #endif #include "floating_fudge.h" #include #include #include #if defined(LOG_FAX_AUDIO) #include #endif #include "spandsp/telephony.h" #include "spandsp/logging.h" #include "spandsp/bit_operations.h" #include "spandsp/dc_restore.h" #include "spandsp/queue.h" #include "spandsp/power_meter.h" #include "spandsp/complex.h" #include "spandsp/tone_detect.h" #include "spandsp/tone_generate.h" #include "spandsp/async.h" #include "spandsp/crc.h" #include "spandsp/hdlc.h" #include "spandsp/silence_gen.h" #include "spandsp/fsk.h" #include "spandsp/v29tx.h" #include "spandsp/v29rx.h" #include "spandsp/v27ter_tx.h" #include "spandsp/v27ter_rx.h" #include "spandsp/v17tx.h" #include "spandsp/v17rx.h" #include "spandsp/super_tone_rx.h" #include "spandsp/modem_connect_tones.h" #include "spandsp/fax_modems.h" #include "spandsp/private/logging.h" #include "spandsp/private/silence_gen.h" #include "spandsp/private/fsk.h" #include "spandsp/private/v17tx.h" #include "spandsp/private/v17rx.h" #include "spandsp/private/v27ter_tx.h" #include "spandsp/private/v27ter_rx.h" #include "spandsp/private/v29tx.h" #include "spandsp/private/v29rx.h" #include "spandsp/private/modem_connect_tones.h" #include "spandsp/private/hdlc.h" #include "spandsp/private/fax_modems.h" #define HDLC_FRAMING_OK_THRESHOLD 5 SPAN_DECLARE_NONSTD(int) fax_modems_v17_v21_rx(void *user_data, const int16_t amp[], int len) { fax_modems_state_t *s; s = (fax_modems_state_t *) user_data; v17_rx(&s->v17_rx, amp, len); fsk_rx(&s->v21_rx, amp, len); if (s->rx_frame_received) { /* We have received something, and the fast modem has not trained. We must be receiving valid V.21 */ span_log(&s->logging, SPAN_LOG_FLOW, "Switching from V.17 + V.21 to V.21 (%.2fdBm0)\n", fsk_rx_signal_power(&s->v21_rx)); s->rx_handler = (span_rx_handler_t *) &fsk_rx; s->rx_fillin_handler = (span_rx_fillin_handler_t *) &fsk_rx_fillin; s->rx_user_data = &s->v21_rx; } return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE_NONSTD(int) fax_modems_v17_v21_rx_fillin(void *user_data, int len) { fax_modems_state_t *s; s = (fax_modems_state_t *) user_data; v17_rx_fillin(&s->v17_rx, len); fsk_rx_fillin(&s->v21_rx, len); return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE_NONSTD(int) fax_modems_v27ter_v21_rx(void *user_data, const int16_t amp[], int len) { fax_modems_state_t *s; s = (fax_modems_state_t *) user_data; v27ter_rx(&s->v27ter_rx, amp, len); fsk_rx(&s->v21_rx, amp, len); if (s->rx_frame_received) { /* We have received something, and the fast modem has not trained. We must be receiving valid V.21 */ span_log(&s->logging, SPAN_LOG_FLOW, "Switching from V.27ter + V.21 to V.21 (%.2fdBm0)\n", fsk_rx_signal_power(&s->v21_rx)); s->rx_handler = (span_rx_handler_t *) &fsk_rx; s->rx_fillin_handler = (span_rx_fillin_handler_t *) &fsk_rx_fillin; s->rx_user_data = &s->v21_rx; } return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE_NONSTD(int) fax_modems_v27ter_v21_rx_fillin(void *user_data, int len) { fax_modems_state_t *s; s = (fax_modems_state_t *) user_data; v27ter_rx_fillin(&s->v27ter_rx, len); fsk_rx_fillin(&s->v21_rx, len); return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE_NONSTD(int) fax_modems_v29_v21_rx(void *user_data, const int16_t amp[], int len) { fax_modems_state_t *s; s = (fax_modems_state_t *) user_data; v29_rx(&s->v29_rx, amp, len); fsk_rx(&s->v21_rx, amp, len); if (s->rx_frame_received) { /* We have received something, and the fast modem has not trained. We must be receiving valid V.21 */ span_log(&s->logging, SPAN_LOG_FLOW, "Switching from V.29 + V.21 to V.21 (%.2fdBm0)\n", fsk_rx_signal_power(&s->v21_rx)); s->rx_handler = (span_rx_handler_t *) &fsk_rx; s->rx_fillin_handler = (span_rx_fillin_handler_t *) &fsk_rx_fillin; s->rx_user_data = &s->v21_rx; } return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE_NONSTD(int) fax_modems_v29_v21_rx_fillin(void *user_data, int len) { fax_modems_state_t *s; s = (fax_modems_state_t *) user_data; v29_rx_fillin(&s->v29_rx, len); fsk_rx_fillin(&s->v21_rx, len); return 0; } /*- End of function --------------------------------------------------------*/ static void v21_rx_status_handler(void *user_data, int status) { fax_modems_state_t *s; s = (fax_modems_state_t *) user_data; } /*- End of function --------------------------------------------------------*/ static void v17_rx_status_handler(void *user_data, int status) { fax_modems_state_t *s; s = (fax_modems_state_t *) user_data; switch (status) { case SIG_STATUS_TRAINING_SUCCEEDED: span_log(&s->logging, SPAN_LOG_FLOW, "Switching to V.17 (%.2fdBm0)\n", v17_rx_signal_power(&s->v17_rx)); s->rx_handler = (span_rx_handler_t *) &v17_rx; s->rx_fillin_handler = (span_rx_fillin_handler_t *) &v17_rx_fillin; s->rx_user_data = &s->v17_rx; break; } } /*- End of function --------------------------------------------------------*/ static void v27ter_rx_status_handler(void *user_data, int status) { fax_modems_state_t *s; s = (fax_modems_state_t *) user_data; switch (status) { case SIG_STATUS_TRAINING_SUCCEEDED: span_log(&s->logging, SPAN_LOG_FLOW, "Switching to V.27ter (%.2fdBm0)\n", v27ter_rx_signal_power(&s->v27ter_rx)); s->rx_handler = (span_rx_handler_t *) &v27ter_rx; s->rx_fillin_handler = (span_rx_fillin_handler_t *) &v27ter_rx_fillin; s->rx_user_data = &s->v27ter_rx; break; } } /*- End of function --------------------------------------------------------*/ static void v29_rx_status_handler(void *user_data, int status) { fax_modems_state_t *s; s = (fax_modems_state_t *) user_data; switch (status) { case SIG_STATUS_TRAINING_SUCCEEDED: span_log(&s->logging, SPAN_LOG_FLOW, "Switching to V.29 (%.2fdBm0)\n", v29_rx_signal_power(&s->v29_rx)); s->rx_handler = (span_rx_handler_t *) &v29_rx; s->rx_fillin_handler = (span_rx_fillin_handler_t *) &v29_rx_fillin; s->rx_user_data = &s->v29_rx; break; } } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) fax_modems_start_rx_modem(fax_modems_state_t *s, int which) { switch (which) { case FAX_MODEM_V17_RX: v17_rx_set_modem_status_handler(&s->v17_rx, v17_rx_status_handler, s); break; case FAX_MODEM_V27TER_RX: v27ter_rx_set_modem_status_handler(&s->v27ter_rx, v27ter_rx_status_handler, s); break; case FAX_MODEM_V29_RX: v29_rx_set_modem_status_handler(&s->v29_rx, v29_rx_status_handler, s); break; } fsk_rx_set_modem_status_handler(&s->v21_rx, v21_rx_status_handler, s); } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) fax_modems_set_tep_mode(fax_modems_state_t *s, int use_tep) { s->use_tep = use_tep; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) fax_modems_restart(fax_modems_state_t *s) { return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(fax_modems_state_t *) fax_modems_init(fax_modems_state_t *s, int use_tep, hdlc_frame_handler_t hdlc_accept, hdlc_underflow_handler_t hdlc_tx_underflow, put_bit_func_t non_ecm_put_bit, get_bit_func_t non_ecm_get_bit, tone_report_func_t tone_callback, void *user_data) { if (s == NULL) { if ((s = (fax_modems_state_t *) malloc(sizeof(*s))) == NULL) return NULL; } memset(s, 0, sizeof(*s)); s->use_tep = use_tep; hdlc_rx_init(&s->hdlc_rx, FALSE, FALSE, HDLC_FRAMING_OK_THRESHOLD, hdlc_accept, user_data); hdlc_tx_init(&s->hdlc_tx, FALSE, 2, FALSE, hdlc_tx_underflow, user_data); fsk_rx_init(&s->v21_rx, &preset_fsk_specs[FSK_V21CH2], FSK_FRAME_MODE_SYNC, (put_bit_func_t) hdlc_rx_put_bit, &s->hdlc_rx); fsk_rx_signal_cutoff(&s->v21_rx, -39.09f); fsk_tx_init(&s->v21_tx, &preset_fsk_specs[FSK_V21CH2], (get_bit_func_t) hdlc_tx_get_bit, &s->hdlc_tx); v17_rx_init(&s->v17_rx, 14400, non_ecm_put_bit, user_data); v17_tx_init(&s->v17_tx, 14400, s->use_tep, non_ecm_get_bit, user_data); v29_rx_init(&s->v29_rx, 9600, non_ecm_put_bit, user_data); v29_rx_signal_cutoff(&s->v29_rx, -45.5f); v29_tx_init(&s->v29_tx, 9600, s->use_tep, non_ecm_get_bit, user_data); v27ter_rx_init(&s->v27ter_rx, 4800, non_ecm_put_bit, user_data); v27ter_tx_init(&s->v27ter_tx, 4800, s->use_tep, non_ecm_get_bit, user_data); silence_gen_init(&s->silence_gen, 0); modem_connect_tones_tx_init(&s->connect_tx, MODEM_CONNECT_TONES_FAX_CNG); if (tone_callback) { modem_connect_tones_rx_init(&s->connect_rx, MODEM_CONNECT_TONES_FAX_CNG, tone_callback, user_data); } dc_restore_init(&s->dc_restore); s->rx_signal_present = FALSE; s->rx_handler = (span_rx_handler_t *) &span_dummy_rx; s->rx_fillin_handler = (span_rx_fillin_handler_t *) &span_dummy_rx; s->rx_user_data = NULL; s->tx_handler = (span_tx_handler_t *) &silence_gen; s->tx_user_data = &s->silence_gen; return s; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) fax_modems_release(fax_modems_state_t *s) { return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) fax_modems_free(fax_modems_state_t *s) { if (s) free(s); return 0; } /*- End of function --------------------------------------------------------*/ /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/t30_api.c0000664000175000017500000005560411422612262015001 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * t30_api.c - ITU T.30 FAX transfer processing * * Written by Steve Underwood * * Copyright (C) 2003, 2004, 2005, 2006, 2007 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \file */ #if defined(HAVE_CONFIG_H) #include "config.h" #endif #include #include #include #include #include #include #if defined(HAVE_TGMATH_H) #include #endif #if defined(HAVE_MATH_H) #include #endif #include "floating_fudge.h" #include #include "spandsp/telephony.h" #include "spandsp/logging.h" #include "spandsp/bit_operations.h" #include "spandsp/queue.h" #include "spandsp/power_meter.h" #include "spandsp/complex.h" #include "spandsp/tone_generate.h" #include "spandsp/async.h" #include "spandsp/hdlc.h" #include "spandsp/fsk.h" #include "spandsp/v29rx.h" #include "spandsp/v29tx.h" #include "spandsp/v27ter_rx.h" #include "spandsp/v27ter_tx.h" #include "spandsp/t4_rx.h" #include "spandsp/t4_tx.h" #if defined(SPANDSP_SUPPORT_T85) #include "spandsp/t81_t82_arith_coding.h" #include "spandsp/t85.h" #endif #include "spandsp/t4_t6_decode.h" #include "spandsp/t4_t6_encode.h" #include "spandsp/t30_fcf.h" #include "spandsp/t35.h" #include "spandsp/t30.h" #include "spandsp/t30_api.h" #include "spandsp/t30_logging.h" #include "spandsp/private/logging.h" #if defined(SPANDSP_SUPPORT_T85) #include "spandsp/private/t81_t82_arith_coding.h" #include "spandsp/private/t85.h" #endif #include "spandsp/private/t4_t6_decode.h" #include "spandsp/private/t4_t6_encode.h" #include "spandsp/private/t4_rx.h" #include "spandsp/private/t4_tx.h" #include "spandsp/private/t30.h" #include "t30_local.h" SPAN_DECLARE(int) t30_set_tx_ident(t30_state_t *s, const char *id) { if (id == NULL) { s->tx_info.ident[0] = '\0'; return 0; } if (strlen(id) > T30_MAX_IDENT_LEN) return -1; strcpy(s->tx_info.ident, id); t4_tx_set_local_ident(&s->t4.tx, s->tx_info.ident); return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(const char *) t30_get_tx_ident(t30_state_t *s) { if (s->tx_info.ident[0] == '\0') return NULL; return s->tx_info.ident; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(const char *) t30_get_rx_ident(t30_state_t *s) { if (s->rx_info.ident[0] == '\0') return NULL; return s->rx_info.ident; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) t30_set_tx_sub_address(t30_state_t *s, const char *sub_address) { if (sub_address == NULL) { s->tx_info.sub_address[0] = '\0'; return 0; } if (strlen(sub_address) > T30_MAX_IDENT_LEN) return -1; strcpy(s->tx_info.sub_address, sub_address); return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(const char *) t30_get_tx_sub_address(t30_state_t *s) { if (s->tx_info.sub_address[0] == '\0') return NULL; return s->tx_info.sub_address; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(const char *) t30_get_rx_sub_address(t30_state_t *s) { if (s->rx_info.sub_address[0] == '\0') return NULL; return s->rx_info.sub_address; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) t30_set_tx_selective_polling_address(t30_state_t *s, const char *selective_polling_address) { if (selective_polling_address == NULL) { s->tx_info.selective_polling_address[0] = '\0'; return 0; } if (strlen(selective_polling_address) > T30_MAX_IDENT_LEN) return -1; strcpy(s->tx_info.selective_polling_address, selective_polling_address); return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(const char *) t30_get_tx_selective_polling_address(t30_state_t *s) { if (s->tx_info.selective_polling_address[0] == '\0') return NULL; return s->tx_info.selective_polling_address; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(const char *) t30_get_rx_selective_polling_address(t30_state_t *s) { if (s->rx_info.selective_polling_address[0] == '\0') return NULL; return s->rx_info.selective_polling_address; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) t30_set_tx_polled_sub_address(t30_state_t *s, const char *polled_sub_address) { if (polled_sub_address == NULL) { s->tx_info.polled_sub_address[0] = '\0'; return 0; } if (strlen(polled_sub_address) > T30_MAX_IDENT_LEN) return -1; strcpy(s->tx_info.polled_sub_address, polled_sub_address); return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(const char *) t30_get_tx_polled_sub_address(t30_state_t *s) { if (s->tx_info.polled_sub_address[0] == '\0') return NULL; return s->tx_info.polled_sub_address; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(const char *) t30_get_rx_polled_sub_address(t30_state_t *s) { if (s->rx_info.polled_sub_address[0] == '\0') return NULL; return s->rx_info.polled_sub_address; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) t30_set_tx_sender_ident(t30_state_t *s, const char *sender_ident) { if (sender_ident == NULL) { s->tx_info.sender_ident[0] = '\0'; return 0; } if (strlen(sender_ident) > T30_MAX_IDENT_LEN) return -1; strcpy(s->tx_info.sender_ident, sender_ident); return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(const char *) t30_get_tx_sender_ident(t30_state_t *s) { if (s->tx_info.sender_ident[0] == '\0') return NULL; return s->tx_info.sender_ident; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(const char *) t30_get_rx_sender_ident(t30_state_t *s) { if (s->rx_info.sender_ident[0] == '\0') return NULL; return s->rx_info.sender_ident; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) t30_set_tx_password(t30_state_t *s, const char *password) { if (password == NULL) { s->tx_info.password[0] = '\0'; return 0; } if (strlen(password) > T30_MAX_IDENT_LEN) return -1; strcpy(s->tx_info.password, password); return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(const char *) t30_get_tx_password(t30_state_t *s) { if (s->tx_info.password[0] == '\0') return NULL; return s->tx_info.password; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(const char *) t30_get_rx_password(t30_state_t *s) { if (s->rx_info.password[0] == '\0') return NULL; return s->rx_info.password; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) t30_set_tx_nsf(t30_state_t *s, const uint8_t *nsf, int len) { if (s->tx_info.nsf) free(s->tx_info.nsf); if (nsf && len > 0 && (s->tx_info.nsf = malloc(len + 3))) { memcpy(s->tx_info.nsf + 3, nsf, len); s->tx_info.nsf_len = len; } else { s->tx_info.nsf = NULL; s->tx_info.nsf_len = 0; } return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(size_t) t30_get_tx_nsf(t30_state_t *s, const uint8_t *nsf[]) { if (nsf) *nsf = s->tx_info.nsf; return s->tx_info.nsf_len; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(size_t) t30_get_rx_nsf(t30_state_t *s, const uint8_t *nsf[]) { if (nsf) *nsf = s->rx_info.nsf; return s->rx_info.nsf_len; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) t30_set_tx_nsc(t30_state_t *s, const uint8_t *nsc, int len) { if (s->tx_info.nsc) free(s->tx_info.nsc); if (nsc && len > 0 && (s->tx_info.nsc = malloc(len + 3))) { memcpy(s->tx_info.nsc + 3, nsc, len); s->tx_info.nsc_len = len; } else { s->tx_info.nsc = NULL; s->tx_info.nsc_len = 0; } return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(size_t) t30_get_tx_nsc(t30_state_t *s, const uint8_t *nsc[]) { if (nsc) *nsc = s->tx_info.nsc; return s->tx_info.nsc_len; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(size_t) t30_get_rx_nsc(t30_state_t *s, const uint8_t *nsc[]) { if (nsc) *nsc = s->rx_info.nsc; return s->rx_info.nsc_len; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) t30_set_tx_nss(t30_state_t *s, const uint8_t *nss, int len) { if (s->tx_info.nss) free(s->tx_info.nss); if (nss && len > 0 && (s->tx_info.nss = malloc(len + 3))) { memcpy(s->tx_info.nss + 3, nss, len); s->tx_info.nss_len = len; } else { s->tx_info.nss = NULL; s->tx_info.nss_len = 0; } return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(size_t) t30_get_tx_nss(t30_state_t *s, const uint8_t *nss[]) { if (nss) *nss = s->tx_info.nss; return s->tx_info.nss_len; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(size_t) t30_get_rx_nss(t30_state_t *s, const uint8_t *nss[]) { if (nss) *nss = s->rx_info.nss; return s->rx_info.nss_len; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) t30_set_tx_tsa(t30_state_t *s, int type, const char *address, int len) { if (s->tx_info.tsa) free(s->tx_info.tsa); if (address == NULL || len == 0) { s->tx_info.tsa = NULL; s->tx_info.tsa_len = 0; return 0; } s->tx_info.tsa_type = type; if (len < 0) len = strlen(address); if ((s->tx_info.tsa = malloc(len))) { memcpy(s->tx_info.tsa, address, len); s->tx_info.tsa_len = len; } return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(size_t) t30_get_tx_tsa(t30_state_t *s, int *type, const char *address[]) { if (type) *type = s->tx_info.tsa_type; if (address) *address = s->tx_info.tsa; return s->tx_info.tsa_len; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(size_t) t30_get_rx_tsa(t30_state_t *s, int *type, const char *address[]) { if (type) *type = s->rx_info.tsa_type; if (address) *address = s->rx_info.tsa; return s->rx_info.tsa_len; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) t30_set_tx_ira(t30_state_t *s, int type, const char *address, int len) { if (s->tx_info.ira) free(s->tx_info.ira); if (address == NULL) { s->tx_info.ira = NULL; return 0; } s->tx_info.ira = strdup(address); return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(size_t) t30_get_tx_ira(t30_state_t *s, int *type, const char *address[]) { if (type) *type = s->tx_info.ira_type; if (address) *address = s->tx_info.ira; return s->tx_info.ira_len; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(size_t) t30_get_rx_ira(t30_state_t *s, int *type, const char *address[]) { if (type) *type = s->rx_info.ira_type; if (address) *address = s->rx_info.ira; return s->rx_info.ira_len; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) t30_set_tx_cia(t30_state_t *s, int type, const char *address, int len) { if (s->tx_info.cia) free(s->tx_info.cia); if (address == NULL) { s->tx_info.cia = NULL; return 0; } s->tx_info.cia = strdup(address); return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(size_t) t30_get_tx_cia(t30_state_t *s, int *type, const char *address[]) { if (type) *type = s->tx_info.cia_type; if (address) *address = s->tx_info.cia; return s->tx_info.cia_len; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(size_t) t30_get_rx_cia(t30_state_t *s, int *type, const char *address[]) { if (type) *type = s->rx_info.cia_type; if (address) *address = s->rx_info.cia; return s->rx_info.cia_len; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) t30_set_tx_isp(t30_state_t *s, int type, const char *address, int len) { if (s->tx_info.isp) free(s->tx_info.isp); if (address == NULL) { s->tx_info.isp = NULL; return 0; } s->tx_info.isp = strdup(address); return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(size_t) t30_get_tx_isp(t30_state_t *s, int *type, const char *address[]) { if (type) *type = s->tx_info.isp_type; if (address) *address = s->tx_info.isp; return s->tx_info.isp_len; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(size_t) t30_get_rx_isp(t30_state_t *s, int *type, const char *address[]) { if (type) *type = s->rx_info.isp_type; if (address) *address = s->rx_info.isp; return s->rx_info.isp_len; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) t30_set_tx_csa(t30_state_t *s, int type, const char *address, int len) { if (s->tx_info.csa) free(s->tx_info.csa); if (address == NULL) { s->tx_info.csa = NULL; return 0; } s->tx_info.csa = strdup(address); return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(size_t) t30_get_tx_csa(t30_state_t *s, int *type, const char *address[]) { if (type) *type = s->tx_info.csa_type; if (address) *address = s->tx_info.csa; return s->tx_info.csa_len; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(size_t) t30_get_rx_csa(t30_state_t *s, int *type, const char *address[]) { if (type) *type = s->rx_info.csa_type; if (address) *address = s->rx_info.csa; return s->rx_info.csa_len; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) t30_set_tx_page_header_overlays_image(t30_state_t *s, int header_overlays_image) { #if 0 s->header_overlays_image = header_overlays_image; t4_tx_set_header_overlays_image(&s->t4.tx, s->header_overlays_image); #endif return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) t30_set_tx_page_header_info(t30_state_t *s, const char *info) { if (info == NULL) { s->header_info[0] = '\0'; return 0; } if (strlen(info) > T30_MAX_PAGE_HEADER_INFO) return -1; strcpy(s->header_info, info); t4_tx_set_header_info(&s->t4.tx, s->header_info); return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) t30_set_tx_page_header_tz(t30_state_t *s, const char *tzstring) { t4_tx_set_header_tz(&s->t4.tx, tzstring); return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(size_t) t30_get_tx_page_header_info(t30_state_t *s, char *info) { if (info) strcpy(info, s->header_info); return strlen(s->header_info); } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(const char *) t30_get_rx_country(t30_state_t *s) { return s->country; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(const char *) t30_get_rx_vendor(t30_state_t *s) { return s->vendor; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(const char *) t30_get_rx_model(t30_state_t *s) { return s->model; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) t30_set_rx_file(t30_state_t *s, const char *file, int stop_page) { strncpy(s->rx_file, file, sizeof(s->rx_file)); s->rx_file[sizeof(s->rx_file) - 1] = '\0'; s->rx_stop_page = stop_page; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) t30_set_tx_file(t30_state_t *s, const char *file, int start_page, int stop_page) { strncpy(s->tx_file, file, sizeof(s->tx_file)); s->tx_file[sizeof(s->tx_file) - 1] = '\0'; s->tx_start_page = start_page; s->tx_stop_page = stop_page; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) t30_set_iaf_mode(t30_state_t *s, int iaf) { s->iaf = iaf; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) t30_set_ecm_capability(t30_state_t *s, int enabled) { s->ecm_allowed = enabled; t30_build_dis_or_dtc(s); return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) t30_set_rx_encoding(t30_state_t *s, int encoding) { switch (encoding) { case T4_COMPRESSION_ITU_T4_1D: case T4_COMPRESSION_ITU_T4_2D: case T4_COMPRESSION_ITU_T6: s->output_encoding = encoding; return 0; } return -1; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) t30_set_minimum_scan_line_time(t30_state_t *s, int min_time) { /* There are only certain possible times supported, so we need to select the code which best matches the request. */ if (min_time == 0) s->local_min_scan_time_code = 7; else if (min_time <= 5) s->local_min_scan_time_code = 1; else if (min_time <= 10) s->local_min_scan_time_code = 2; else if (min_time <= 20) s->local_min_scan_time_code = 0; else if (min_time <= 40) s->local_min_scan_time_code = 4; else return -1; t30_build_dis_or_dtc(s); return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) t30_set_supported_modems(t30_state_t *s, int supported_modems) { s->supported_modems = supported_modems; t30_build_dis_or_dtc(s); return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) t30_set_supported_compressions(t30_state_t *s, int supported_compressions) { int mask; /* Mask out the ones we actually support today. */ mask = T30_SUPPORT_T4_1D_COMPRESSION | T30_SUPPORT_T4_2D_COMPRESSION | T30_SUPPORT_T6_COMPRESSION #if defined(SPANDSP_SUPPORT_T85) | T30_SUPPORT_T85_COMPRESSION | T30_SUPPORT_T85_L0_COMPRESSION; #else | 0; #endif s->supported_compressions = supported_compressions & mask; t30_build_dis_or_dtc(s); return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) t30_set_supported_resolutions(t30_state_t *s, int supported_resolutions) { s->supported_resolutions = supported_resolutions; t30_build_dis_or_dtc(s); return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) t30_set_supported_image_sizes(t30_state_t *s, int supported_image_sizes) { s->supported_image_sizes = supported_image_sizes; t30_build_dis_or_dtc(s); return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) t30_set_supported_t30_features(t30_state_t *s, int supported_t30_features) { s->supported_t30_features = supported_t30_features; t30_build_dis_or_dtc(s); return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) t30_set_status(t30_state_t *s, int status) { s->current_status = status; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) t30_set_receiver_not_ready(t30_state_t *s, int count) { s->receiver_not_ready_count = count; return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) t30_set_phase_b_handler(t30_state_t *s, t30_phase_b_handler_t *handler, void *user_data) { s->phase_b_handler = handler; s->phase_b_user_data = user_data; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) t30_set_phase_d_handler(t30_state_t *s, t30_phase_d_handler_t *handler, void *user_data) { s->phase_d_handler = handler; s->phase_d_user_data = user_data; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) t30_set_phase_e_handler(t30_state_t *s, t30_phase_e_handler_t *handler, void *user_data) { s->phase_e_handler = handler; s->phase_e_user_data = user_data; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) t30_set_document_handler(t30_state_t *s, t30_document_handler_t *handler, void *user_data) { s->document_handler = handler; s->document_user_data = user_data; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) t30_set_real_time_frame_handler(t30_state_t *s, t30_real_time_frame_handler_t *handler, void *user_data) { s->real_time_frame_handler = handler; s->real_time_frame_user_data = user_data; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(logging_state_t *) t30_get_logging_state(t30_state_t *s) { return &s->logging; } /*- End of function --------------------------------------------------------*/ /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/v29rx.c0000664000175000017500000013141511422612263014530 0ustar steveusteveu#define IAXMODEM_STUFF /* * SpanDSP - a series of DSP components for telephony * * v29rx.c - ITU V.29 modem receive part * * Written by Steve Underwood * * Copyright (C) 2003, 2004, 2005, 2006, 2007 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \file */ #if defined(HAVE_CONFIG_H) #include "config.h" #endif #include #include #include #include #if defined(HAVE_TGMATH_H) #include #endif #if defined(HAVE_MATH_H) #include #endif #include "floating_fudge.h" #include "spandsp/telephony.h" #include "spandsp/logging.h" #include "spandsp/complex.h" #include "spandsp/vector_float.h" #include "spandsp/complex_vector_float.h" #include "spandsp/vector_int.h" #include "spandsp/complex_vector_int.h" #include "spandsp/async.h" #include "spandsp/power_meter.h" #include "spandsp/arctan2.h" #include "spandsp/dds.h" #include "spandsp/complex_filters.h" #include "spandsp/v29rx.h" #include "spandsp/private/logging.h" #include "spandsp/private/v29rx.h" #include "v29tx_constellation_maps.h" #if defined(SPANDSP_USE_FIXED_POINT) #include "v29rx_fixed_rrc.h" #else #include "v29rx_floating_rrc.h" #endif /*! The nominal frequency of the carrier, in Hertz */ #define CARRIER_NOMINAL_FREQ 1700.0f /*! The nominal baud or symbol rate */ #define BAUD_RATE 2400 /*! The adaption rate coefficient for the equalizer */ #define EQUALIZER_DELTA 0.21f #if defined(SPANDSP_USE_FIXED_POINT) #define FP_FACTOR 4096 #define FP_SHIFT_FACTOR 12 #endif /* Segments of the training sequence */ /*! The length of training segment 2, in symbols */ #define V29_TRAINING_SEG_2_LEN 128 /*! The length of training segment 3, in symbols */ #define V29_TRAINING_SEG_3_LEN 384 /*! The length of training segment 4, in symbols */ #define V29_TRAINING_SEG_4_LEN 48 enum { TRAINING_STAGE_NORMAL_OPERATION = 0, TRAINING_STAGE_SYMBOL_ACQUISITION, TRAINING_STAGE_LOG_PHASE, TRAINING_STAGE_WAIT_FOR_CDCD, TRAINING_STAGE_TRAIN_ON_CDCD, TRAINING_STAGE_TRAIN_ON_CDCD_AND_TEST, TRAINING_STAGE_TEST_ONES, TRAINING_STAGE_PARKED }; static const uint8_t space_map_9600[20][20] = { {13, 13, 13, 13, 13, 13, 12, 12, 12, 12, 12, 12, 12, 12, 11, 11, 11, 11, 11, 11}, {13, 13, 13, 13, 13, 13, 13, 12, 12, 12, 12, 12, 12, 11, 11, 11, 11, 11, 11, 11}, {13, 13, 13, 13, 13, 13, 13, 4, 4, 4, 4, 4, 4, 11, 11, 11, 11, 11, 11, 11}, {13, 13, 13, 13, 13, 13, 13, 4, 4, 4, 4, 4, 4, 11, 11, 11, 11, 11, 11, 11}, {13, 13, 13, 13, 13, 13, 13, 4, 4, 4, 4, 4, 4, 11, 11, 11, 11, 11, 11, 11}, {13, 13, 13, 13, 13, 13, 13, 5, 4, 4, 4, 4, 3, 11, 11, 11, 11, 11, 11, 11}, {14, 13, 13, 13, 13, 13, 5, 5, 5, 5, 3, 3, 3, 3, 11, 11, 11, 11, 11, 10}, {14, 14, 6, 6, 6, 5, 5, 5, 5, 5, 3, 3, 3, 3, 3, 2, 2, 2, 10, 10}, {14, 14, 6, 6, 6, 6, 5, 5, 5, 5, 3, 3, 3, 3, 2, 2, 2, 2, 10, 10}, {14, 14, 6, 6, 6, 6, 5, 5, 5, 5, 3, 3, 3, 3, 2, 2, 2, 2, 10, 10}, {14, 14, 6, 6, 6, 6, 7, 7, 7, 7, 1, 1, 1, 1, 2, 2, 2, 2, 10, 10}, {14, 14, 6, 6, 6, 6, 7, 7, 7, 7, 1, 1, 1, 1, 2, 2, 2, 2, 10, 10}, {14, 14, 6, 6, 6, 7, 7, 7, 7, 7, 1, 1, 1, 1, 1, 2, 2, 2, 10, 10}, {14, 15, 15, 15, 15, 15, 7, 7, 7, 7, 1, 1, 1, 1, 9, 9, 9, 9, 9, 10}, {15, 15, 15, 15, 15, 15, 15, 7, 0, 0, 0, 0, 1, 9, 9, 9, 9, 9, 9, 9}, {15, 15, 15, 15, 15, 15, 15, 0, 0, 0, 0, 0, 0, 9, 9, 9, 9, 9, 9, 9}, {15, 15, 15, 15, 15, 15, 15, 0, 0, 0, 0, 0, 0, 9, 9, 9, 9, 9, 9, 9}, {15, 15, 15, 15, 15, 15, 15, 0, 0, 0, 0, 0, 0, 9, 9, 9, 9, 9, 9, 9}, {15, 15, 15, 15, 15, 15, 15, 8, 8, 8, 8, 8, 8, 9, 9, 9, 9, 9, 9, 9}, {15, 15, 15, 15, 15, 15, 8, 8, 8, 8, 8, 8, 8, 8, 9, 9, 9, 9, 9, 9} }; /* Coefficients for the band edge symbol timing synchroniser (alpha = 0.99) */ /* low_edge = 2.0f*M_PI*(CARRIER_NOMINAL_FREQ - BAUD_RATE/2.0f)/SAMPLE_RATE; */ /* high_edge = 2.0f*M_PI*(CARRIER_NOMINAL_FREQ + BAUD_RATE/2.0f)/SAMPLE_RATE; */ #define SIN_LOW_BAND_EDGE 0.382683432f #define COS_LOW_BAND_EDGE 0.923879533f #define SIN_HIGH_BAND_EDGE 0.760405966f #define COS_HIGH_BAND_EDGE -0.649448048f #define ALPHA 0.99f #if defined(SPANDSP_USE_FIXED_POINT) #define SYNC_LOW_BAND_EDGE_COEFF_0 ((int)(FP_FACTOR*(2.0f*ALPHA*COS_LOW_BAND_EDGE))) #define SYNC_LOW_BAND_EDGE_COEFF_1 ((int)(FP_FACTOR*(-ALPHA*ALPHA))) #define SYNC_LOW_BAND_EDGE_COEFF_2 ((int)(FP_FACTOR*(-ALPHA*SIN_LOW_BAND_EDGE))) #define SYNC_HIGH_BAND_EDGE_COEFF_0 ((int)(FP_FACTOR*(2.0f*ALPHA*COS_HIGH_BAND_EDGE))) #define SYNC_HIGH_BAND_EDGE_COEFF_1 ((int)(FP_FACTOR*(-ALPHA*ALPHA))) #define SYNC_HIGH_BAND_EDGE_COEFF_2 ((int)(FP_FACTOR*(-ALPHA*SIN_HIGH_BAND_EDGE))) #define SYNC_MIXED_EDGES_COEFF_3 ((int)(FP_FACTOR*(-ALPHA*ALPHA*(SIN_HIGH_BAND_EDGE*COS_LOW_BAND_EDGE - SIN_LOW_BAND_EDGE*COS_HIGH_BAND_EDGE)))) #else #define SYNC_LOW_BAND_EDGE_COEFF_0 (2.0f*ALPHA*COS_LOW_BAND_EDGE) #define SYNC_LOW_BAND_EDGE_COEFF_1 (-ALPHA*ALPHA) #define SYNC_LOW_BAND_EDGE_COEFF_2 (-ALPHA*SIN_LOW_BAND_EDGE) #define SYNC_HIGH_BAND_EDGE_COEFF_0 (2.0f*ALPHA*COS_HIGH_BAND_EDGE) #define SYNC_HIGH_BAND_EDGE_COEFF_1 (-ALPHA*ALPHA) #define SYNC_HIGH_BAND_EDGE_COEFF_2 (-ALPHA*SIN_HIGH_BAND_EDGE) #define SYNC_MIXED_EDGES_COEFF_3 (-ALPHA*ALPHA*(SIN_HIGH_BAND_EDGE*COS_LOW_BAND_EDGE - SIN_LOW_BAND_EDGE*COS_HIGH_BAND_EDGE)) #endif SPAN_DECLARE(float) v29_rx_carrier_frequency(v29_rx_state_t *s) { return dds_frequencyf(s->carrier_phase_rate); } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(float) v29_rx_symbol_timing_correction(v29_rx_state_t *s) { return (float) s->total_baud_timing_correction/((float) RX_PULSESHAPER_COEFF_SETS*10.0f/3.0f); } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(float) v29_rx_signal_power(v29_rx_state_t *s) { return power_meter_current_dbm0(&s->power) + 3.98f; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) v29_rx_signal_cutoff(v29_rx_state_t *s, float cutoff) { /* The 0.4 factor allows for the gain of the DC blocker */ s->carrier_on_power = (int32_t) (power_meter_level_dbm0(cutoff + 2.5f)*0.4f); s->carrier_off_power = (int32_t) (power_meter_level_dbm0(cutoff - 2.5f)*0.4f); } /*- End of function --------------------------------------------------------*/ static void report_status_change(v29_rx_state_t *s, int status) { if (s->status_handler) s->status_handler(s->status_user_data, status); else if (s->put_bit) s->put_bit(s->put_bit_user_data, status); } /*- End of function --------------------------------------------------------*/ #if defined(SPANDSP_USE_FIXED_POINT) SPAN_DECLARE(int) v29_rx_equalizer_state(v29_rx_state_t *s, complexi16_t **coeffs) #else SPAN_DECLARE(int) v29_rx_equalizer_state(v29_rx_state_t *s, complexf_t **coeffs) #endif { *coeffs = s->eq_coeff; return V29_EQUALIZER_LEN; } /*- End of function --------------------------------------------------------*/ static void equalizer_save(v29_rx_state_t *s) { #if defined(SPANDSP_USE_FIXED_POINT) cvec_copyi16(s->eq_coeff_save, s->eq_coeff, V29_EQUALIZER_LEN); #else cvec_copyf(s->eq_coeff_save, s->eq_coeff, V29_EQUALIZER_LEN); #endif } /*- End of function --------------------------------------------------------*/ static void equalizer_restore(v29_rx_state_t *s) { #if defined(SPANDSP_USE_FIXED_POINT) cvec_copyi16(s->eq_coeff, s->eq_coeff_save, V29_EQUALIZER_LEN); cvec_zeroi16(s->eq_buf, V29_EQUALIZER_LEN); s->eq_delta = 32768.0f*EQUALIZER_DELTA/V29_EQUALIZER_LEN; #else cvec_copyf(s->eq_coeff, s->eq_coeff_save, V29_EQUALIZER_LEN); cvec_zerof(s->eq_buf, V29_EQUALIZER_LEN); s->eq_delta = EQUALIZER_DELTA/V29_EQUALIZER_LEN; #endif s->eq_put_step = RX_PULSESHAPER_COEFF_SETS*10/(3*2) - 1; s->eq_step = 0; } /*- End of function --------------------------------------------------------*/ static void equalizer_reset(v29_rx_state_t *s) { /* Start with an equalizer based on everything being perfect */ #if defined(SPANDSP_USE_FIXED_POINT) cvec_zeroi16(s->eq_coeff, V29_EQUALIZER_LEN); s->eq_coeff[V29_EQUALIZER_PRE_LEN] = complex_seti16(3*FP_FACTOR, 0*FP_FACTOR); cvec_zeroi16(s->eq_buf, V29_EQUALIZER_LEN); s->eq_delta = 32768.0f*EQUALIZER_DELTA/V29_EQUALIZER_LEN; #else cvec_zerof(s->eq_coeff, V29_EQUALIZER_LEN); s->eq_coeff[V29_EQUALIZER_PRE_LEN] = complex_setf(3.0f, 0.0f); cvec_zerof(s->eq_buf, V29_EQUALIZER_LEN); s->eq_delta = EQUALIZER_DELTA/V29_EQUALIZER_LEN; #endif s->eq_put_step = RX_PULSESHAPER_COEFF_SETS*10/(3*2) - 1; s->eq_step = 0; } /*- End of function --------------------------------------------------------*/ #if defined(SPANDSP_USE_FIXED_POINT) static __inline__ complexi16_t complex_mul_q4_12(const complexi16_t *x, const complexi16_t *y) { complexi16_t z; z.re = ((int32_t) x->re*(int32_t) y->re - (int32_t) x->im*(int32_t) y->im) >> FP_SHIFT_FACTOR; z.im = ((int32_t) x->re*(int32_t) y->im + (int32_t) x->im*(int32_t) y->re) >> FP_SHIFT_FACTOR; return z; } /*- End of function --------------------------------------------------------*/ #endif #if defined(SPANDSP_USE_FIXED_POINT) static __inline__ complexi16_t equalizer_get(v29_rx_state_t *s) #else static __inline__ complexf_t equalizer_get(v29_rx_state_t *s) #endif { #if defined(SPANDSP_USE_FIXED_POINT) complexi32_t zz; complexi16_t z; /* Get the next equalized value. */ zz = cvec_circular_dot_prodi16(s->eq_buf, s->eq_coeff, V29_EQUALIZER_LEN, s->eq_step); z.re = zz.re >> FP_SHIFT_FACTOR; z.im = zz.im >> FP_SHIFT_FACTOR; return z; #else /* Get the next equalized value. */ return cvec_circular_dot_prodf(s->eq_buf, s->eq_coeff, V29_EQUALIZER_LEN, s->eq_step); #endif } /*- End of function --------------------------------------------------------*/ #if defined(SPANDSP_USE_FIXED_POINT) static void tune_equalizer(v29_rx_state_t *s, const complexi16_t *z, const complexi16_t *target) { complexi16_t err; /* Find the x and y mismatch from the exact constellation position. */ err.re = target->re*FP_FACTOR - z->re; err.im = target->im*FP_FACTOR - z->im; err.re = ((int32_t) err.re*(int32_t) s->eq_delta) >> 15; err.im = ((int32_t) err.im*(int32_t) s->eq_delta) >> 15; cvec_circular_lmsi16(s->eq_buf, s->eq_coeff, V29_EQUALIZER_LEN, s->eq_step, &err); } #else static void tune_equalizer(v29_rx_state_t *s, const complexf_t *z, const complexf_t *target) { complexf_t err; /* Find the x and y mismatch from the exact constellation position. */ err = complex_subf(target, z); err.re *= s->eq_delta; err.im *= s->eq_delta; cvec_circular_lmsf(s->eq_buf, s->eq_coeff, V29_EQUALIZER_LEN, s->eq_step, &err); } #endif /*- End of function --------------------------------------------------------*/ static int scrambled_training_bit(v29_rx_state_t *s) { int bit; /* Segment 3 of the training sequence - the scrambled CDCD part. */ /* Apply the 1 + x^-6 + x^-7 scrambler */ bit = s->training_scramble_reg & 1; s->training_scramble_reg >>= 1; if (bit ^ (s->training_scramble_reg & 1)) s->training_scramble_reg |= 0x40; return bit; } /*- End of function --------------------------------------------------------*/ #if defined(SPANDSP_USE_FIXED_POINT) static __inline__ int find_quadrant(const complexi16_t *z) #else static __inline__ int find_quadrant(const complexf_t *z) #endif { int b1; int b2; /* Split the space along the two diagonals. */ b1 = (z->im > z->re); b2 = (z->im < -z->re); return (b2 << 1) | (b1 ^ b2); } /*- End of function --------------------------------------------------------*/ #if defined(SPANDSP_USE_FIXED_POINT) static __inline__ void track_carrier(v29_rx_state_t *s, const complexi16_t *z, const complexi16_t *target) #else static __inline__ void track_carrier(v29_rx_state_t *s, const complexf_t *z, const complexf_t *target) #endif { #if defined(SPANDSP_USE_FIXED_POINT) int32_t error; #else float error; #endif /* The initial coarse carrier frequency and phase estimation should have got us in the right ballpark. Now we need to fine tune fairly quickly, to get the receovered carrier more precisely on target. Then we need to fine tune in a more damped way to keep us on target. The goal is to have things running really well by the time the training is complete. We assume the frequency of the oscillators at the two ends drift only very slowly. The PSTN has rather limited doppler problems. :-) Any remaining FDM in the network should also drift slowly. */ /* For small errors the imaginary part of the difference between the actual and the target positions is proportional to the phase error, for any particular target. However, the different amplitudes of the various target positions scale things. This isn't all bad, as the angular error for the larger amplitude constellation points is probably a more reliable indicator, and we are weighting it as such. */ error = z->im*target->re - z->re*target->im; /* Use a proportional-integral approach to tracking the carrier. The PI parameters are coarser at first, until we get precisely on target. Then, the filter will be damped more to keep us on target. */ #if defined(SPANDSP_USE_FIXED_POINT) s->carrier_phase_rate += ((s->carrier_track_i*error) >> FP_SHIFT_FACTOR); s->carrier_phase += ((s->carrier_track_p*error) >> FP_SHIFT_FACTOR); #else s->carrier_phase_rate += (int32_t) (s->carrier_track_i*error); s->carrier_phase += (int32_t) (s->carrier_track_p*error); //span_log(&s->logging, SPAN_LOG_FLOW, "Im = %15.5f f = %15.5f\n", error, dds_frequencyf(s->carrier_phase_rate)); #endif } /*- End of function --------------------------------------------------------*/ static __inline__ void put_bit(v29_rx_state_t *s, int bit) { int out_bit; bit &= 1; /* Descramble the bit */ out_bit = (bit ^ (s->scramble_reg >> (18 - 1)) ^ (s->scramble_reg >> (23 - 1))) & 1; s->scramble_reg = (s->scramble_reg << 1) | bit; /* We need to strip the last part of the training - the test period of all 1s - before we let data go to the application. */ if (s->training_stage == TRAINING_STAGE_NORMAL_OPERATION) { s->put_bit(s->put_bit_user_data, out_bit); } else { /* The bits during the final stage of training should be all ones. However, buggy modems mean you cannot rely on this. Therefore we don't bother testing for ones, but just rely on a constellation mismatch measurement. */ } } /*- End of function --------------------------------------------------------*/ #if defined(SPANDSP_USE_FIXED_POINT) static void decode_baud(v29_rx_state_t *s, complexi16_t *z) #else static void decode_baud(v29_rx_state_t *s, complexf_t *z) #endif { static const uint8_t phase_steps_9600[8] = { 4, 0, 2, 6, 7, 3, 1, 5 }; static const uint8_t phase_steps_4800[4] = { 0, 2, 3, 1 }; int nearest; int raw_bits; int i; int re; int im; if (s->bit_rate == 4800) { /* 4800 is a special case. */ nearest = find_quadrant(z) << 1; raw_bits = phase_steps_4800[((nearest - s->constellation_state) >> 1) & 3]; put_bit(s, raw_bits); put_bit(s, raw_bits >> 1); } else { /* 9600 and 7200 are quite similar. */ #if defined(SPANDSP_USE_FIXED_POINT) re = (z->re + 5*FP_FACTOR) >> (FP_SHIFT_FACTOR - 1); im = (z->im + 5*FP_FACTOR) >> (FP_SHIFT_FACTOR - 1); #else re = (int) ((z->re + 5.0f)*2.0f); im = (int) ((z->im + 5.0f)*2.0f); #endif if (re > 19) re = 19; else if (re < 0) re = 0; if (im > 19) im = 19; else if (im < 0) im = 0; nearest = space_map_9600[re][im]; if (s->bit_rate == 9600) { /* Send out the top (amplitude) bit. */ put_bit(s, nearest >> 3); } else { /* We can reuse the space map for 9600, but drop the top bit. */ nearest &= 7; } raw_bits = phase_steps_9600[(nearest - s->constellation_state) & 7]; for (i = 0; i < 3; i++) { put_bit(s, raw_bits); raw_bits >>= 1; } } track_carrier(s, z, &v29_9600_constellation[nearest]); if (--s->eq_skip <= 0) { /* Once we are in the data the equalization should not need updating. However, the line characteristics may slowly drift. We, therefore, tune up on the occassional sample, keeping the compute down. */ s->eq_skip = 10; tune_equalizer(s, z, &v29_9600_constellation[nearest]); } s->constellation_state = nearest; } /*- End of function --------------------------------------------------------*/ static __inline__ void symbol_sync(v29_rx_state_t *s) { int i; #if defined(SPANDSP_USE_FIXED_POINT) int32_t v; int32_t p; #else float v; float p; #endif /* This routine adapts the position of the half baud samples entering the equalizer. */ /* This symbol sync scheme is based on the technique first described by Dominique Godard in Passband Timing Recovery in an All-Digital Modem Receiver IEEE TRANSACTIONS ON COMMUNICATIONS, VOL. COM-26, NO. 5, MAY 1978 */ /* This is slightly rearranged from figure 3b of the Godard paper, as this saves a couple of maths operations */ #if defined(SPANDSP_USE_FIXED_POINT) /* TODO: The scalings used here need more thorough evaluation, to see if overflows are possible. */ /* Cross correlate */ v = (((s->symbol_sync_low[1] >> 5)*(s->symbol_sync_high[0] >> 4)) >> 15)*SYNC_LOW_BAND_EDGE_COEFF_2 - (((s->symbol_sync_low[0] >> 5)*(s->symbol_sync_high[1] >> 4)) >> 15)*SYNC_HIGH_BAND_EDGE_COEFF_2 + (((s->symbol_sync_low[1] >> 5)*(s->symbol_sync_high[1] >> 4)) >> 15)*SYNC_MIXED_EDGES_COEFF_3; /* Filter away any DC component */ p = v - s->symbol_sync_dc_filter[1]; s->symbol_sync_dc_filter[1] = s->symbol_sync_dc_filter[0]; s->symbol_sync_dc_filter[0] = v; /* A little integration will now filter away much of the HF noise */ s->baud_phase -= p; v = labs(s->baud_phase); if (v > 30*FP_FACTOR) { i = (v > 1000*FP_FACTOR) ? 5 : 1; if (s->baud_phase < 0) i = -i; //printf("v = %10.5f %5d - %f %f %d %d\n", v, i, p, s->baud_phase, s->total_baud_timing_correction); s->eq_put_step += i; s->total_baud_timing_correction += i; } #else /* Cross correlate */ v = s->symbol_sync_low[1]*s->symbol_sync_high[0]*SYNC_LOW_BAND_EDGE_COEFF_2 - s->symbol_sync_low[0]*s->symbol_sync_high[1]*SYNC_HIGH_BAND_EDGE_COEFF_2 + s->symbol_sync_low[1]*s->symbol_sync_high[1]*SYNC_MIXED_EDGES_COEFF_3; /* Filter away any DC component */ p = v - s->symbol_sync_dc_filter[1]; s->symbol_sync_dc_filter[1] = s->symbol_sync_dc_filter[0]; s->symbol_sync_dc_filter[0] = v; /* A little integration will now filter away much of the HF noise */ s->baud_phase -= p; v = fabsf(s->baud_phase); if (v > 30.0f) { i = (v > 1000.0f) ? 5 : 1; if (s->baud_phase < 0.0f) i = -i; //printf("v = %10.5f %5d - %f %f %d %d\n", v, i, p, s->baud_phase, s->total_baud_timing_correction); s->eq_put_step += i; s->total_baud_timing_correction += i; } #endif } /*- End of function --------------------------------------------------------*/ #if defined(SPANDSP_USE_FIXED_POINT) static void process_half_baud(v29_rx_state_t *s, complexi16_t *sample) #else static void process_half_baud(v29_rx_state_t *s, complexf_t *sample) #endif { static const int cdcd_pos[6] = { 0, 11, 0, 3, 0, 2 }; complexf_t zz; #if defined(SPANDSP_USE_FIXED_POINT) complexf_t z1; complexi16_t z; const complexi16_t *target; static const complexi16_t zero = {0, 0}; #else complexf_t z; const complexf_t *target; static const complexf_t zero = {0.0f, 0.0f}; #endif float p; int bit; int i; int j; int32_t angle; int32_t ang; /* This routine processes every half a baud, as we put things into the equalizer at the T/2 rate. */ /* Add a sample to the equalizer's circular buffer, but don't calculate anything at this time. */ s->eq_buf[s->eq_step] = *sample; if (++s->eq_step >= V29_EQUALIZER_LEN) s->eq_step = 0; /* On alternate insertions we have a whole baud, and must process it. */ if ((s->baud_half ^= 1)) return; /* Symbol timing synchronisation */ symbol_sync(s); z = equalizer_get(s); switch (s->training_stage) { case TRAINING_STAGE_NORMAL_OPERATION: /* Normal operation. */ decode_baud(s, &z); target = &v29_9600_constellation[s->constellation_state]; break; case TRAINING_STAGE_SYMBOL_ACQUISITION: /* Allow time for symbol synchronisation to settle the symbol timing. */ target = &zero; if (++s->training_count >= 60) { /* Record the current phase angle */ s->training_stage = TRAINING_STAGE_LOG_PHASE; s->angles[0] = s->start_angles[0] = arctan2(z.im, z.re); #if defined(SPANDSP_USE_FIXED_POINT) if (s->agc_scaling_save == 0) s->agc_scaling_save = s->agc_scaling; #else if (s->agc_scaling_save == 0.0f) s->agc_scaling_save = s->agc_scaling; #endif } break; case TRAINING_STAGE_LOG_PHASE: /* Record the current alternate phase angle */ target = &zero; s->angles[1] = s->start_angles[1] = arctan2(z.im, z.re); s->training_count = 1; s->training_stage = TRAINING_STAGE_WAIT_FOR_CDCD; break; case TRAINING_STAGE_WAIT_FOR_CDCD: target = &zero; angle = arctan2(z.im, z.re); /* Look for the initial ABAB sequence to display a phase reversal, which will signal the start of the scrambled CDCD segment */ ang = angle - s->angles[(s->training_count - 1) & 0xF]; s->angles[(s->training_count + 1) & 0xF] = angle; if ((ang > 0x20000000 || ang < -0x20000000) && s->training_count >= 13) { /* We seem to have a phase reversal */ /* Slam the carrier frequency into line, based on the total phase drift over the last section. Use the shift from the odd bits and the shift from the even bits to get better jitter suppression. We need to scale here, or at the maximum specified frequency deviation we could overflow, and get a silly answer. */ /* Step back a few symbols so we don't get ISI distorting things. */ i = (s->training_count - 8) & ~1; /* Avoid the possibility of a divide by zero */ if (i) { j = i & 0xF; ang = (s->angles[j] - s->start_angles[0])/i + (s->angles[j | 0x1] - s->start_angles[1])/i; s->carrier_phase_rate += 3*(ang/20); } span_log(&s->logging, SPAN_LOG_FLOW, "Coarse carrier frequency %7.2f\n", dds_frequencyf(s->carrier_phase_rate)); /* Check if the carrier frequency is plausible */ if (s->carrier_phase_rate < dds_phase_ratef(CARRIER_NOMINAL_FREQ - 20.0f) || s->carrier_phase_rate > dds_phase_ratef(CARRIER_NOMINAL_FREQ + 20.0f)) { span_log(&s->logging, SPAN_LOG_FLOW, "Training failed (sequence failed)\n"); /* Park this modem */ #if defined(SPANDSP_USE_FIXED_POINT) s->agc_scaling_save = 0; #else s->agc_scaling_save = 0.0f; #endif s->training_stage = TRAINING_STAGE_PARKED; report_status_change(s, SIG_STATUS_TRAINING_FAILED); break; } /* Make a step shift in the phase, to pull it into line. We need to rotate the equalizer buffer, as well as the carrier phase, for this to play out nicely. */ p = angle*2.0f*3.14159f/(65536.0f*65536.0f); #if defined(SPANDSP_USE_FIXED_POINT) zz = complex_setf(cosf(p), -sinf(p)); for (i = 0; i < V29_EQUALIZER_LEN; i++) { z1 = complex_setf(s->eq_buf[i].re, s->eq_buf[i].im); z1 = complex_mulf(&z1, &zz); s->eq_buf[i].re = z1.re; s->eq_buf[i].im = z1.im; } #else zz = complex_setf(cosf(p), -sinf(p)); for (i = 0; i < V29_EQUALIZER_LEN; i++) s->eq_buf[i] = complex_mulf(&s->eq_buf[i], &zz); #endif s->carrier_phase += angle; /* We have just seen the first bit of the scrambled sequence, so skip it. */ bit = scrambled_training_bit(s); s->constellation_state = cdcd_pos[s->training_cd + bit]; target = &v29_9600_constellation[s->constellation_state]; s->training_count = 1; s->training_stage = TRAINING_STAGE_TRAIN_ON_CDCD; report_status_change(s, SIG_STATUS_TRAINING_IN_PROGRESS); break; } if (++s->training_count > V29_TRAINING_SEG_2_LEN) { /* This is bogus. There are not this many bauds in this section of a real training sequence. */ span_log(&s->logging, SPAN_LOG_FLOW, "Training failed (sequence failed)\n"); /* Park this modem */ #if defined(SPANDSP_USE_FIXED_POINT) s->agc_scaling_save = 0; #else s->agc_scaling_save = 0.0f; #endif s->training_stage = TRAINING_STAGE_PARKED; report_status_change(s, SIG_STATUS_TRAINING_FAILED); } break; case TRAINING_STAGE_TRAIN_ON_CDCD: /* Train on the scrambled CDCD section. */ bit = scrambled_training_bit(s); //span_log(&s->logging, SPAN_LOG_FLOW, "%5d %15.5f, %15.5f %15.5f, %15.5f\n", s->training_count, z.re, z.im, v29_9600_constellation[cdcd_pos[s->training_cd + bit]].re, v29_9600_constellation[cdcd_pos[s->training_cd + bit]].im); s->constellation_state = cdcd_pos[s->training_cd + bit]; target = &v29_9600_constellation[s->constellation_state]; track_carrier(s, &z, target); tune_equalizer(s, &z, target); if (++s->training_count >= V29_TRAINING_SEG_3_LEN - 48) { s->training_stage = TRAINING_STAGE_TRAIN_ON_CDCD_AND_TEST; s->training_error = 0.0f; #if defined(SPANDSP_USE_FIXED_POINT) s->carrier_track_i = 200; s->carrier_track_p = 1000000; #else s->carrier_track_i = 200.0f; s->carrier_track_p = 1000000.0f; #endif } break; case TRAINING_STAGE_TRAIN_ON_CDCD_AND_TEST: /* Continue training on the scrambled CDCD section, but measure the quality of training too. */ bit = scrambled_training_bit(s); //span_log(&s->logging, SPAN_LOG_FLOW, "%5d %15.5f, %15.5f %15.5f, %15.5f\n", s->training_count, z.re, z.im, v29_9600_constellation[cdcd_pos[s->training_cd + bit]].re, v29_9600_constellation[cdcd_pos[s->training_cd + bit]].im); s->constellation_state = cdcd_pos[s->training_cd + bit]; target = &v29_9600_constellation[s->constellation_state]; track_carrier(s, &z, target); tune_equalizer(s, &z, target); /* Measure the training error */ #if defined(SPANDSP_USE_FIXED_POINT) z1.re = z.re/(float) FP_FACTOR; z1.im = z.im/(float) FP_FACTOR; zz.re = target->re; zz.im = target->im; zz = complex_subf(&z1, &zz); s->training_error += powerf(&zz); #else zz = complex_subf(&z, target); s->training_error += powerf(&zz); #endif if (++s->training_count >= V29_TRAINING_SEG_3_LEN) { span_log(&s->logging, SPAN_LOG_FLOW, "Constellation mismatch %f\n", s->training_error); if (s->training_error < 48.0f*2.0f) { s->training_count = 0; s->training_error = 0.0f; s->constellation_state = 0; s->training_stage = TRAINING_STAGE_TEST_ONES; } else { span_log(&s->logging, SPAN_LOG_FLOW, "Training failed (convergence failed)\n"); /* Park this modem */ #if defined(SPANDSP_USE_FIXED_POINT) s->agc_scaling_save = 0; #else s->agc_scaling_save = 0.0f; #endif s->training_stage = TRAINING_STAGE_PARKED; report_status_change(s, SIG_STATUS_TRAINING_FAILED); } } break; case TRAINING_STAGE_TEST_ONES: /* We are in the test phase, where we check that we can receive reliably. We should get a run of 1's, 48 symbols (192 bits at 9600bps) long. */ //span_log(&s->logging, SPAN_LOG_FLOW, "%5d %15.5f, %15.5f\n", s->training_count, z.re, z.im); decode_baud(s, &z); target = &v29_9600_constellation[s->constellation_state]; /* Measure the training error */ #if defined(SPANDSP_USE_FIXED_POINT) z1.re = z.re/(float) FP_FACTOR; z1.im = z.im/(float) FP_FACTOR; zz.re = target->re; zz.im = target->im; zz = complex_subf(&z1, &zz); s->training_error += powerf(&zz); #else zz = complex_subf(&z, target); s->training_error += powerf(&zz); #endif if (++s->training_count >= V29_TRAINING_SEG_4_LEN) { if (s->training_error < 48.0f) { /* We are up and running */ span_log(&s->logging, SPAN_LOG_FLOW, "Training succeeded at %dbps (constellation mismatch %f)\n", s->bit_rate, s->training_error); report_status_change(s, SIG_STATUS_TRAINING_SUCCEEDED); /* Apply some lag to the carrier off condition, to ensure the last few bits get pushed through the processing. */ s->signal_present = 60; s->training_stage = TRAINING_STAGE_NORMAL_OPERATION; equalizer_save(s); s->carrier_phase_rate_save = s->carrier_phase_rate; s->agc_scaling_save = s->agc_scaling; } else { /* Training has failed */ span_log(&s->logging, SPAN_LOG_FLOW, "Training failed (constellation mismatch %f)\n", s->training_error); /* Park this modem */ #if defined(SPANDSP_USE_FIXED_POINT) s->agc_scaling_save = 0; #else s->agc_scaling_save = 0.0f; #endif s->training_stage = TRAINING_STAGE_PARKED; report_status_change(s, SIG_STATUS_TRAINING_FAILED); } } break; case TRAINING_STAGE_PARKED: default: /* We failed to train! */ /* Park here until the carrier drops. */ target = &zero; break; } if (s->qam_report) { #if defined(SPANDSP_USE_FIXED_POINT) z1.re = z.re/(float) FP_FACTOR; z1.im = z.im/(float) FP_FACTOR; zz.re = target->re; zz.im = target->im; s->qam_report(s->qam_user_data, &z1, &zz, s->constellation_state); #else s->qam_report(s->qam_user_data, &z, target, s->constellation_state); #endif } } /*- End of function --------------------------------------------------------*/ static __inline__ int signal_detect(v29_rx_state_t *s, int16_t amp) { int16_t diff; int16_t x; int32_t power; /* There should be no DC in the signal, but sometimes there is. We need to measure the power with the DC blocked, but not using a slow to respond DC blocker. Use the most elementary HPF. */ x = amp >> 1; /* There could be overflow here, but it isn't a problem in practice */ diff = x - s->last_sample; s->last_sample = x; power = power_meter_update(&(s->power), diff); #if defined(IAXMODEM_STUFF) /* Quick power drop fudge */ diff = abs(diff); if (10*diff < s->high_sample) { if (++s->low_samples > 120) { power_meter_init(&(s->power), 4); s->high_sample = 0; s->low_samples = 0; } } else { s->low_samples = 0; if (diff > s->high_sample) s->high_sample = diff; } #endif if (s->signal_present > 0) { /* Look for power below turn-off threshold to turn the carrier off */ #if defined(IAXMODEM_STUFF) if (s->carrier_drop_pending || power < s->carrier_off_power) #else if (power < s->carrier_off_power) #endif { if (--s->signal_present <= 0) { /* Count down a short delay, to ensure we push the last few bits through the filters before stopping. */ v29_rx_restart(s, s->bit_rate, FALSE); report_status_change(s, SIG_STATUS_CARRIER_DOWN); return 0; } #if defined(IAXMODEM_STUFF) /* Carrier has dropped, but the put_bit is pending the signal_present delay. */ s->carrier_drop_pending = TRUE; #endif } } else { /* Look for power exceeding turn-on threshold to turn the carrier on */ if (power < s->carrier_on_power) return 0; s->signal_present = 1; #if defined(IAXMODEM_STUFF) s->carrier_drop_pending = FALSE; #endif report_status_change(s, SIG_STATUS_CARRIER_UP); } return power; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE_NONSTD(int) v29_rx(v29_rx_state_t *s, const int16_t amp[], int len) { int i; int step; #if defined(SPANDSP_USE_FIXED_POINT) complexi16_t z; complexi16_t zz; complexi16_t sample; int32_t v; #else complexf_t z; complexf_t zz; complexf_t sample; float v; #endif int32_t power; for (i = 0; i < len; i++) { s->rrc_filter[s->rrc_filter_step] = amp[i]; if (++s->rrc_filter_step >= V29_RX_FILTER_STEPS) s->rrc_filter_step = 0; if ((power = signal_detect(s, amp[i])) == 0) continue; if (s->training_stage == TRAINING_STAGE_PARKED) continue; /* Only spend effort processing this data if the modem is not parked, after training failure. */ s->eq_put_step -= RX_PULSESHAPER_COEFF_SETS; step = -s->eq_put_step; if (step > RX_PULSESHAPER_COEFF_SETS - 1) step = RX_PULSESHAPER_COEFF_SETS - 1; if (step < 0) step += RX_PULSESHAPER_COEFF_SETS; #if defined(SPANDSP_USE_FIXED_POINT) v = vec_circular_dot_prodi16(s->rrc_filter, rx_pulseshaper_re[step], V29_RX_FILTER_STEPS, s->rrc_filter_step); sample.re = (v*s->agc_scaling) >> 15; #else v = vec_circular_dot_prodf(s->rrc_filter, rx_pulseshaper_re[step], V29_RX_FILTER_STEPS, s->rrc_filter_step); sample.re = v*s->agc_scaling; #endif /* Symbol timing synchronisation band edge filters */ #if defined(SPANDSP_USE_FIXED_POINT) /* Low Nyquist band edge filter */ v = ((s->symbol_sync_low[0]*SYNC_LOW_BAND_EDGE_COEFF_0) >> FP_SHIFT_FACTOR) + ((s->symbol_sync_low[1]*SYNC_LOW_BAND_EDGE_COEFF_1) >> FP_SHIFT_FACTOR) + sample.re; s->symbol_sync_low[1] = s->symbol_sync_low[0]; s->symbol_sync_low[0] = v; /* High Nyquist band edge filter */ v = ((s->symbol_sync_high[0]*SYNC_HIGH_BAND_EDGE_COEFF_0) >> FP_SHIFT_FACTOR) + ((s->symbol_sync_high[1]*SYNC_HIGH_BAND_EDGE_COEFF_1) >> FP_SHIFT_FACTOR) + sample.re; s->symbol_sync_high[1] = s->symbol_sync_high[0]; s->symbol_sync_high[0] = v; #else /* Low Nyquist band edge filter */ v = s->symbol_sync_low[0]*SYNC_LOW_BAND_EDGE_COEFF_0 + s->symbol_sync_low[1]*SYNC_LOW_BAND_EDGE_COEFF_1 + sample.re; s->symbol_sync_low[1] = s->symbol_sync_low[0]; s->symbol_sync_low[0] = v; /* High Nyquist band edge filter */ v = s->symbol_sync_high[0]*SYNC_HIGH_BAND_EDGE_COEFF_0 + s->symbol_sync_high[1]*SYNC_HIGH_BAND_EDGE_COEFF_1 + sample.re; s->symbol_sync_high[1] = s->symbol_sync_high[0]; s->symbol_sync_high[0] = v; #endif /* Put things into the equalization buffer at T/2 rate. The symbol synchronisation will fiddle the step to align this with the symbols. */ if (s->eq_put_step <= 0) { /* Only AGC until we have locked down the setting. */ #if defined(SPANDSP_USE_FIXED_POINT) if (s->agc_scaling_save == 0) s->agc_scaling = (float) FP_FACTOR*32768.0f*(1.0f/RX_PULSESHAPER_GAIN)*5.0f*0.25f/sqrtf(power); #else if (s->agc_scaling_save == 0.0f) s->agc_scaling = (1.0f/RX_PULSESHAPER_GAIN)*5.0f*0.25f/sqrtf(power); #endif /* Pulse shape while still at the carrier frequency, using a quadrature pair of filters. This results in a properly bandpass filtered complex signal, which can be brought directly to baseband by complex mixing. No further filtering, to remove mixer harmonics, is needed. */ s->eq_put_step += RX_PULSESHAPER_COEFF_SETS*10/(3*2); #if defined(SPANDSP_USE_FIXED_POINT) v = vec_circular_dot_prodi16(s->rrc_filter, rx_pulseshaper_im[step], V29_RX_FILTER_STEPS, s->rrc_filter_step); sample.im = (v*s->agc_scaling) >> 15; z = dds_lookup_complexi16(s->carrier_phase); zz.re = ((int32_t) sample.re*(int32_t) z.re - (int32_t) sample.im*(int32_t) z.im) >> 15; zz.im = ((int32_t) -sample.re*(int32_t) z.im - (int32_t) sample.im*(int32_t) z.re) >> 15; #else v = vec_circular_dot_prodf(s->rrc_filter, rx_pulseshaper_im[step], V29_RX_FILTER_STEPS, s->rrc_filter_step); sample.im = v*s->agc_scaling; z = dds_lookup_complexf(s->carrier_phase); zz.re = sample.re*z.re - sample.im*z.im; zz.im = -sample.re*z.im - sample.im*z.re; #endif process_half_baud(s, &zz); } #if defined(SPANDSP_USE_FIXED_POINT) dds_advance(&s->carrier_phase, s->carrier_phase_rate); #else dds_advancef(&s->carrier_phase, s->carrier_phase_rate); #endif } return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE_NONSTD(int) v29_rx_fillin(v29_rx_state_t *s, int len) { int i; /* We want to sustain the current state (i.e carrier on<->carrier off), and try to sustain the carrier phase. We should probably push the filters, as well */ span_log(&s->logging, SPAN_LOG_FLOW, "Fill-in %d samples\n", len); if (s->signal_present <= 0) return 0; if (s->training_stage == TRAINING_STAGE_PARKED) return 0; for (i = 0; i < len; i++) { #if defined(SPANDSP_USE_FIXED_POINT) dds_advance(&s->carrier_phase, s->carrier_phase_rate); #else dds_advancef(&s->carrier_phase, s->carrier_phase_rate); #endif /* Advance the symbol phase the appropriate amount */ s->eq_put_step -= RX_PULSESHAPER_COEFF_SETS; if (s->eq_put_step <= 0) s->eq_put_step += RX_PULSESHAPER_COEFF_SETS*10/(3*2); /* TODO: Should we rotate any buffers */ } return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) v29_rx_set_put_bit(v29_rx_state_t *s, put_bit_func_t put_bit, void *user_data) { s->put_bit = put_bit; s->put_bit_user_data = user_data; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) v29_rx_set_modem_status_handler(v29_rx_state_t *s, modem_tx_status_func_t handler, void *user_data) { s->status_handler = handler; s->status_user_data = user_data; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(logging_state_t *) v29_rx_get_logging_state(v29_rx_state_t *s) { return &s->logging; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) v29_rx_restart(v29_rx_state_t *s, int bit_rate, int old_train) { int i; switch (bit_rate) { case 9600: s->training_cd = 0; break; case 7200: s->training_cd = 2; break; case 4800: s->training_cd = 4; break; default: return -1; } s->bit_rate = bit_rate; #if defined(SPANDSP_USE_FIXED_POINT) vec_zeroi16(s->rrc_filter, sizeof(s->rrc_filter)/sizeof(s->rrc_filter[0])); #else vec_zerof(s->rrc_filter, sizeof(s->rrc_filter)/sizeof(s->rrc_filter[0])); #endif s->rrc_filter_step = 0; s->scramble_reg = 0; s->training_scramble_reg = 0x2A; s->training_stage = TRAINING_STAGE_SYMBOL_ACQUISITION; s->training_count = 0; s->signal_present = 0; #if defined(IAXMODEM_STUFF) s->high_sample = 0; s->low_samples = 0; s->carrier_drop_pending = FALSE; #endif s->old_train = old_train; s->carrier_phase = 0; power_meter_init(&(s->power), 4); s->constellation_state = 0; if (s->old_train) { s->carrier_phase_rate = s->carrier_phase_rate_save; equalizer_restore(s); s->agc_scaling = s->agc_scaling_save; } else { s->carrier_phase_rate = dds_phase_ratef(CARRIER_NOMINAL_FREQ); equalizer_reset(s); #if defined(SPANDSP_USE_FIXED_POINT) s->agc_scaling_save = 0; s->agc_scaling = (float) FP_FACTOR*32768.0f*0.0017f/RX_PULSESHAPER_GAIN; #else s->agc_scaling_save = 0.0f; s->agc_scaling = 0.0017f/RX_PULSESHAPER_GAIN; #endif } #if defined(SPANDSP_USE_FIXED_POINT) s->carrier_track_i = 8000; s->carrier_track_p = 8000000; #else s->carrier_track_i = 8000.0f; s->carrier_track_p = 8000000.0f; #endif s->last_sample = 0; s->eq_skip = 0; /* Initialise the working data for symbol timing synchronisation */ #if defined(SPANDSP_USE_FIXED_POINT) for (i = 0; i < 2; i++) { s->symbol_sync_low[i] = 0; s->symbol_sync_high[i] = 0; s->symbol_sync_dc_filter[i] = 0; } s->baud_phase = 0; #else for (i = 0; i < 2; i++) { s->symbol_sync_low[i] = 0.0f; s->symbol_sync_high[i] = 0.0f; s->symbol_sync_dc_filter[i] = 0.0f; } s->baud_phase = 0.0f; #endif s->baud_half = 0; s->total_baud_timing_correction = 0; return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(v29_rx_state_t *) v29_rx_init(v29_rx_state_t *s, int bit_rate, put_bit_func_t put_bit, void *user_data) { switch (bit_rate) { case 9600: case 7200: case 4800: break; default: return NULL; } if (s == NULL) { if ((s = (v29_rx_state_t *) malloc(sizeof(*s))) == NULL) return NULL; } memset(s, 0, sizeof(*s)); span_log_init(&s->logging, SPAN_LOG_NONE, NULL); span_log_set_protocol(&s->logging, "V.29 RX"); s->put_bit = put_bit; s->put_bit_user_data = user_data; /* The V.29 spec says the thresholds should be -31dBm and -26dBm, but that makes little sense. V.17 uses -48dBm and -43dBm, and there seems no good reason to cut off at a higher level (though at 9600bps and 7200bps, TCM should put V.17 sensitivity several dB ahead of V.29). */ /* The thresholds should be on at -26dBm0 and off at -31dBm0 */ v29_rx_signal_cutoff(s, -28.5f); v29_rx_restart(s, bit_rate, FALSE); return s; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) v29_rx_release(v29_rx_state_t *s) { return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) v29_rx_free(v29_rx_state_t *s) { free(s); return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) v29_rx_set_qam_report_handler(v29_rx_state_t *s, qam_report_handler_t handler, void *user_data) { s->qam_report = handler; s->qam_user_data = user_data; } /*- End of function --------------------------------------------------------*/ /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/oki_adpcm.c0000664000175000017500000002330111422612262015455 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * oki_adpcm.c - Conversion routines between linear 16 bit PCM data and * OKI (Dialogic) ADPCM format. Supports with the 32kbps * and 24kbps variants used by Dialogic. * * Written by Steve Underwood * * Copyright (C) 2001, 2004 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. * * The actual OKI ADPCM encode and decode method is derived from freely * available code, whose exact origins seem uncertain. */ /*! \file */ #if defined(HAVE_CONFIG_H) #include "config.h" #endif #include #include #include #include "spandsp/telephony.h" #include "spandsp/oki_adpcm.h" #include "spandsp/private/oki_adpcm.h" /* Routines to convert 12 bit linear samples to the Oki ADPCM coding format, widely used in CTI, because Dialogic use it. */ /* OKI ADPCM step variation table */ static const int16_t step_size[49] = { 16, 17, 19, 21, 23, 25, 28, 31, 34, 37, 41, 45, 50, 55, 60, 66, 73, 80, 88, 97, 107, 118, 130, 143, 157, 173, 190, 209, 230, 253, 279, 307, 337, 371, 408, 449, 494, 544, 598, 658, 724, 796, 876, 963, 1060, 1166, 1282, 1411, 1552 }; static const int16_t step_adjustment[8] = { -1, -1, -1, -1, 2, 4, 6, 8 }; /* Band limiting filter, to allow sample rate conversion to and from 6k samples/second. */ static const float cutoff_coeffs[] = { -3.648392e-4f, 5.062391e-4f, 1.206247e-3f, 1.804452e-3f, 1.691750e-3f, 4.083405e-4f, -1.931085e-3f, -4.452107e-3f, -5.794821e-3f, -4.778489e-3f, -1.161266e-3f, 3.928504e-3f, 8.259786e-3f, 9.500425e-3f, 6.512800e-3f, 2.227856e-4f, -6.531275e-3f, -1.026843e-2f, -8.718062e-3f, -2.280487e-3f, 5.817733e-3f, 1.096777e-2f, 9.634404e-3f, 1.569301e-3f, -9.522632e-3f, -1.748273e-2f, -1.684408e-2f, -6.100054e-3f, 1.071206e-2f, 2.525209e-2f, 2.871779e-2f, 1.664411e-2f, -7.706268e-3f, -3.331083e-2f, -4.521249e-2f, -3.085962e-2f, 1.373653e-2f, 8.089593e-2f, 1.529060e-1f, 2.080487e-1f, 2.286834e-1f, 2.080487e-1f, 1.529060e-1f, 8.089593e-2f, 1.373653e-2f, -3.085962e-2f, -4.521249e-2f, -3.331083e-2f, -7.706268e-3f, 1.664411e-2f, 2.871779e-2f, 2.525209e-2f, 1.071206e-2f, -6.100054e-3f, -1.684408e-2f, -1.748273e-2f, -9.522632e-3f, 1.569301e-3f, 9.634404e-3f, 1.096777e-2f, 5.817733e-3f, -2.280487e-3f, -8.718062e-3f, -1.026843e-2f, -6.531275e-3f, 2.227856e-4f, 6.512800e-3f, 9.500425e-3f, 8.259786e-3f, 3.928504e-3f, -1.161266e-3f, -4.778489e-3f, -5.794821e-3f, -4.452107e-3f, -1.931085e-3f, 4.083405e-4f, 1.691750e-3f, 1.804452e-3f, 1.206247e-3f, 5.062391e-4f, -3.648392e-4f }; static int16_t decode(oki_adpcm_state_t *s, uint8_t adpcm) { int16_t d; int16_t ss; int16_t linear; /* Doing the next part as follows: * * x = adpcm & 0x07; * e = (step_size[s->step_index]*(x + x + 1)) >> 3; * * Seems an obvious improvement on a modern machine, but remember * the truncation errors do not come out the same. It would * not, therefore, be an exact match for what this code is doing. * * Just what a Dialogic card does, I do not know! */ ss = step_size[s->step_index]; d = ss >> 3; if (adpcm & 0x01) d += (ss >> 2); /*endif*/ if (adpcm & 0x02) d += (ss >> 1); /*endif*/ if (adpcm & 0x04) d += ss; /*endif*/ if (adpcm & 0x08) d = -d; /*endif*/ linear = s->last + d; /* Saturate the values to +/- 2^11 (supposed to be 12 bits) */ if (linear > 2047) linear = 2047; else if (linear < -2048) linear = -2048; /*endif*/ s->last = linear; s->step_index += step_adjustment[adpcm & 0x07]; if (s->step_index < 0) s->step_index = 0; else if (s->step_index > 48) s->step_index = 48; /*endif*/ /* Note: the result here is a 12 bit value */ return linear; } /*- End of function --------------------------------------------------------*/ static uint8_t encode(oki_adpcm_state_t *s, int16_t linear) { int16_t d; int16_t ss; uint8_t adpcm; ss = step_size[s->step_index]; d = (linear >> 4) - s->last; adpcm = (uint8_t) 0x00; if (d < 0) { adpcm = (uint8_t) 0x08; d = -d; } /*endif*/ if (d >= ss) { adpcm |= (uint8_t) 0x04; d -= ss; } /*endif*/ if (d >= (ss >> 1)) { adpcm |= (uint8_t) 0x02; d -= (ss >> 1); } /*endif*/ if (d >= (ss >> 2)) adpcm |= (uint8_t) 0x01; /*endif*/ /* Use the decoder to set the estimate of the last sample. */ /* It also will adjust the step_index for us. */ s->last = decode(s, adpcm); return adpcm; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(oki_adpcm_state_t *) oki_adpcm_init(oki_adpcm_state_t *s, int bit_rate) { if (bit_rate != 32000 && bit_rate != 24000) return NULL; if (s == NULL) { if ((s = (oki_adpcm_state_t *) malloc(sizeof(*s))) == NULL) return NULL; } memset(s, 0, sizeof(*s)); s->bit_rate = bit_rate; return s; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) oki_adpcm_release(oki_adpcm_state_t *s) { return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) oki_adpcm_free(oki_adpcm_state_t *s) { free(s); return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) oki_adpcm_decode(oki_adpcm_state_t *s, int16_t amp[], const uint8_t oki_data[], int oki_bytes) { int i; int x; int l; int n; int samples; float z; #if (_MSC_VER >= 1400) __analysis_assume(s->phase >= 0 && s->phase <= 4); #endif samples = 0; if (s->bit_rate == 32000) { for (i = 0; i < oki_bytes; i++) { amp[samples++] = decode(s, (oki_data[i] >> 4) & 0xF) << 4; amp[samples++] = decode(s, oki_data[i] & 0xF) << 4; } /*endwhile*/ } else { n = 0; for (i = 0; i < oki_bytes; ) { /* 6k to 8k sample/second conversion */ if (s->phase) { s->history[s->ptr++] = decode(s, (n++ & 1) ? (oki_data[i++] & 0xF) : ((oki_data[i] >> 4) & 0xF)) << 4; s->ptr &= (32 - 1); } /*endif*/ z = 0.0f; for (l = 80 - 3 + s->phase, x = s->ptr - 1; l >= 0; l -= 4, x--) z += cutoff_coeffs[l]*s->history[x & (32 - 1)]; amp[samples++] = (int16_t) (z*4.0f); if (++s->phase > 3) s->phase = 0; /*endif*/ } /*endfor*/ } /*endif*/ return samples; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) oki_adpcm_encode(oki_adpcm_state_t *s, uint8_t oki_data[], const int16_t amp[], int len) { int x; int l; int n; int bytes; float z; bytes = 0; if (s->bit_rate == 32000) { for (n = 0; n < len; n++) { s->oki_byte = (s->oki_byte << 4) | encode(s, amp[n]); if ((s->mark++ & 1)) oki_data[bytes++] = s->oki_byte; /*endif*/ } /*endfor*/ } else { n = 0; for (;;) { /* 8k to 6k sample/second conversion */ if (s->phase > 2) { s->history[s->ptr++] = amp[n]; s->ptr &= (32 - 1); s->phase = 0; if (++n >= len) break; /*endif*/ } /*endif*/ s->history[s->ptr++] = amp[n]; s->ptr &= (32 - 1); z = 0.0f; for (l = 80 - s->phase, x = s->ptr - 1; l >= 0; l -= 3, x--) z += cutoff_coeffs[l]*s->history[x & (32 - 1)]; /*endfor*/ s->oki_byte = (s->oki_byte << 4) | encode(s, (int16_t) (z*3.0f)); if ((s->mark++ & 1)) oki_data[bytes++] = s->oki_byte; /*endif*/ s->phase++; if (++n >= len) break; /*endif*/ } /*endfor*/ } /*endif*/ return bytes; } /*- End of function --------------------------------------------------------*/ /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/queue.c0000664000175000017500000002543711422612262014667 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * queue.c - simple in-process message queuing * * Written by Steve Underwood * * Copyright (C) 2004 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \file */ #if defined(HAVE_CONFIG_H) #include "config.h" #endif #include #include #include #include #include #include #include #define SPANDSP_FULLY_DEFINE_QUEUE_STATE_T #include "spandsp/telephony.h" #include "spandsp/queue.h" #include "spandsp/private/queue.h" SPAN_DECLARE(int) queue_empty(queue_state_t *s) { return (s->iptr == s->optr); } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) queue_free_space(queue_state_t *s) { int len; if ((len = s->optr - s->iptr - 1) < 0) len += s->len; /*endif*/ return len; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) queue_contents(queue_state_t *s) { int len; if ((len = s->iptr - s->optr) < 0) len += s->len; /*endif*/ return len; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) queue_flush(queue_state_t *s) { s->optr = s->iptr; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) queue_view(queue_state_t *s, uint8_t *buf, int len) { int real_len; int to_end; int iptr; int optr; /* Snapshot the values (although only iptr should be changeable during this processing) */ iptr = s->iptr; optr = s->optr; if ((real_len = iptr - optr) < 0) real_len += s->len; /*endif*/ if (real_len < len) { if (s->flags & QUEUE_READ_ATOMIC) return -1; /*endif*/ } else { real_len = len; } /*endif*/ if (real_len == 0) return 0; /*endif*/ to_end = s->len - optr; if (iptr < optr && to_end < real_len) { /* A two step process */ if (buf) { memcpy(buf, s->data + optr, to_end); memcpy(buf + to_end, s->data, real_len - to_end); } /*endif*/ } else { /* A one step process */ if (buf) memcpy(buf, s->data + optr, real_len); /*endif*/ } /*endif*/ return real_len; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) queue_read(queue_state_t *s, uint8_t *buf, int len) { int real_len; int to_end; int new_optr; int iptr; int optr; /* Snapshot the values (although only iptr should be changeable during this processing) */ iptr = s->iptr; optr = s->optr; if ((real_len = iptr - optr) < 0) real_len += s->len; /*endif*/ if (real_len < len) { if (s->flags & QUEUE_READ_ATOMIC) return -1; /*endif*/ } else { real_len = len; } /*endif*/ if (real_len == 0) return 0; /*endif*/ to_end = s->len - optr; if (iptr < optr && to_end < real_len) { /* A two step process */ if (buf) { memcpy(buf, s->data + optr, to_end); memcpy(buf + to_end, s->data, real_len - to_end); } /*endif*/ new_optr = real_len - to_end; } else { /* A one step process */ if (buf) memcpy(buf, s->data + optr, real_len); /*endif*/ new_optr = optr + real_len; if (new_optr >= s->len) new_optr = 0; /*endif*/ } /*endif*/ /* Only change the pointer now we have really finished */ s->optr = new_optr; return real_len; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) queue_read_byte(queue_state_t *s) { int real_len; int to_end; int iptr; int optr; int byte; /* Snapshot the values (although only iptr should be changeable during this processing) */ iptr = s->iptr; optr = s->optr; if ((real_len = iptr - optr) < 0) real_len += s->len; /*endif*/ if (real_len < 1) return -1; /*endif*/ to_end = s->len - optr; byte = s->data[optr]; if (++optr >= s->len) optr = 0; /*endif*/ /* Only change the pointer now we have really finished */ s->optr = optr; return byte; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) queue_write(queue_state_t *s, const uint8_t *buf, int len) { int real_len; int to_end; int new_iptr; int iptr; int optr; /* Snapshot the values (although only optr should be changeable during this processing) */ iptr = s->iptr; optr = s->optr; if ((real_len = optr - iptr - 1) < 0) real_len += s->len; /*endif*/ if (real_len < len) { if (s->flags & QUEUE_WRITE_ATOMIC) return -1; /*endif*/ } else { real_len = len; } /*endif*/ if (real_len == 0) return 0; /*endif*/ to_end = s->len - iptr; if (iptr < optr || to_end >= real_len) { /* A one step process */ memcpy(s->data + iptr, buf, real_len); new_iptr = iptr + real_len; if (new_iptr >= s->len) new_iptr = 0; /*endif*/ } else { /* A two step process */ memcpy(s->data + iptr, buf, to_end); memcpy(s->data, buf + to_end, real_len - to_end); new_iptr = real_len - to_end; } /*endif*/ /* Only change the pointer now we have really finished */ s->iptr = new_iptr; return real_len; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) queue_write_byte(queue_state_t *s, uint8_t byte) { int real_len; int iptr; int optr; /* Snapshot the values (although only optr should be changeable during this processing) */ iptr = s->iptr; optr = s->optr; if ((real_len = optr - iptr - 1) < 0) real_len += s->len; /*endif*/ if (real_len < 1) { if (s->flags & QUEUE_WRITE_ATOMIC) return -1; /*endif*/ return 0; } /*endif*/ s->data[iptr] = byte; if (++iptr >= s->len) iptr = 0; /*endif*/ /* Only change the pointer now we have really finished */ s->iptr = iptr; return 1; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) queue_state_test_msg(queue_state_t *s) { uint16_t lenx; if (queue_view(s, (uint8_t *) &lenx, sizeof(uint16_t)) != sizeof(uint16_t)) return -1; /*endif*/ return lenx; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) queue_read_msg(queue_state_t *s, uint8_t *buf, int len) { uint16_t lenx; /* If we assume the write message was atomic, this read message should be safe when conducted in multiple chunks */ if (queue_read(s, (uint8_t *) &lenx, sizeof(uint16_t)) != sizeof(uint16_t)) return -1; /*endif*/ /* If we got this far, the actual message chunk should be guaranteed to be available */ if (lenx == 0) return 0; /*endif*/ if ((int) lenx > len) { len = queue_read(s, buf, len); /* Discard the rest of the message */ queue_read(s, NULL, lenx - len); return len; } /*endif*/ return queue_read(s, buf, lenx); } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) queue_write_msg(queue_state_t *s, const uint8_t *buf, int len) { int real_len; int to_end; int new_iptr; int iptr; int optr; uint16_t lenx; /* Snapshot the values (although only optr should be changeable during this processing) */ iptr = s->iptr; optr = s->optr; if ((real_len = optr - iptr - 1) < 0) real_len += s->len; /*endif*/ if (real_len < len + (int) sizeof(uint16_t)) return -1; /*endif*/ real_len = len + (int) sizeof(uint16_t); to_end = s->len - iptr; lenx = (uint16_t) len; if (iptr < optr || to_end >= real_len) { /* A one step process */ memcpy(s->data + iptr, &lenx, sizeof(uint16_t)); memcpy(s->data + iptr + sizeof(uint16_t), buf, len); new_iptr = iptr + real_len; if (new_iptr >= s->len) new_iptr = 0; /*endif*/ } else { /* A two step process */ if (to_end >= sizeof(uint16_t)) { /* The actual message wraps around the end of the buffer */ memcpy(s->data + iptr, &lenx, sizeof(uint16_t)); memcpy(s->data + iptr + sizeof(uint16_t), buf, to_end - sizeof(uint16_t)); memcpy(s->data, buf + to_end - sizeof(uint16_t), real_len - to_end); } else { /* The message length wraps around the end of the buffer */ memcpy(s->data + iptr, (uint8_t *) &lenx, to_end); memcpy(s->data, ((uint8_t *) &lenx) + to_end, sizeof(uint16_t) - to_end); memcpy(s->data + sizeof(uint16_t) - to_end, buf, len); } new_iptr = real_len - to_end; } /*endif*/ /* Only change the pointer now we have really finished */ s->iptr = new_iptr; return len; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(queue_state_t *) queue_init(queue_state_t *s, int len, int flags) { if (s == NULL) { if ((s = (queue_state_t *) malloc(sizeof(*s) + len + 1)) == NULL) return NULL; } s->iptr = s->optr = 0; s->flags = flags; s->len = len + 1; return s; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) queue_release(queue_state_t *s) { return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) queue_free(queue_state_t *s) { free(s); return 0; } /*- End of function --------------------------------------------------------*/ /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/crc.c0000664000175000017500000002205611422612261014303 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * crc.c * * Written by Steve Underwood * * Copyright (C) 2003 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \file */ #if defined(HAVE_CONFIG_H) #include "config.h" #endif #include #include #include #include "spandsp/telephony.h" #include "spandsp/crc.h" #include "spandsp/bit_operations.h" static const uint32_t crc_itu32_table[] = { 0x00000000, 0x77073096, 0xEE0E612C, 0x990951BA, 0x076DC419, 0x706AF48F, 0xE963A535, 0x9E6495A3, 0x0EDB8832, 0x79DCB8A4, 0xE0D5E91E, 0x97D2D988, 0x09B64C2B, 0x7EB17CBD, 0xE7B82D07, 0x90BF1D91, 0x1DB71064, 0x6AB020F2, 0xF3B97148, 0x84BE41DE, 0x1ADAD47D, 0x6DDDE4EB, 0xF4D4B551, 0x83D385C7, 0x136C9856, 0x646BA8C0, 0xFD62F97A, 0x8A65C9EC, 0x14015C4F, 0x63066CD9, 0xFA0F3D63, 0x8D080DF5, 0x3B6E20C8, 0x4C69105E, 0xD56041E4, 0xA2677172, 0x3C03E4D1, 0x4B04D447, 0xD20D85FD, 0xA50AB56B, 0x35B5A8FA, 0x42B2986C, 0xDBBBC9D6, 0xACBCF940, 0x32D86CE3, 0x45DF5C75, 0xDCD60DCF, 0xABD13D59, 0x26D930AC, 0x51DE003A, 0xC8D75180, 0xBFD06116, 0x21B4F4B5, 0x56B3C423, 0xCFBA9599, 0xB8BDA50F, 0x2802B89E, 0x5F058808, 0xC60CD9B2, 0xB10BE924, 0x2F6F7C87, 0x58684C11, 0xC1611DAB, 0xB6662D3D, 0x76DC4190, 0x01DB7106, 0x98D220BC, 0xEFD5102A, 0x71B18589, 0x06B6B51F, 0x9FBFE4A5, 0xE8B8D433, 0x7807C9A2, 0x0F00F934, 0x9609A88E, 0xE10E9818, 0x7F6A0DBB, 0x086D3D2D, 0x91646C97, 0xE6635C01, 0x6B6B51F4, 0x1C6C6162, 0x856530D8, 0xF262004E, 0x6C0695ED, 0x1B01A57B, 0x8208F4C1, 0xF50FC457, 0x65B0D9C6, 0x12B7E950, 0x8BBEB8EA, 0xFCB9887C, 0x62DD1DDF, 0x15DA2D49, 0x8CD37CF3, 0xFBD44C65, 0x4DB26158, 0x3AB551CE, 0xA3BC0074, 0xD4BB30E2, 0x4ADFA541, 0x3DD895D7, 0xA4D1C46D, 0xD3D6F4FB, 0x4369E96A, 0x346ED9FC, 0xAD678846, 0xDA60B8D0, 0x44042D73, 0x33031DE5, 0xAA0A4C5F, 0xDD0D7CC9, 0x5005713C, 0x270241AA, 0xBE0B1010, 0xC90C2086, 0x5768B525, 0x206F85B3, 0xB966D409, 0xCE61E49F, 0x5EDEF90E, 0x29D9C998, 0xB0D09822, 0xC7D7A8B4, 0x59B33D17, 0x2EB40D81, 0xB7BD5C3B, 0xC0BA6CAD, 0xEDB88320, 0x9ABFB3B6, 0x03B6E20C, 0x74B1D29A, 0xEAD54739, 0x9DD277AF, 0x04DB2615, 0x73DC1683, 0xE3630B12, 0x94643B84, 0x0D6D6A3E, 0x7A6A5AA8, 0xE40ECF0B, 0x9309FF9D, 0x0A00AE27, 0x7D079EB1, 0xF00F9344, 0x8708A3D2, 0x1E01F268, 0x6906C2FE, 0xF762575D, 0x806567CB, 0x196C3671, 0x6E6B06E7, 0xFED41B76, 0x89D32BE0, 0x10DA7A5A, 0x67DD4ACC, 0xF9B9DF6F, 0x8EBEEFF9, 0x17B7BE43, 0x60B08ED5, 0xD6D6A3E8, 0xA1D1937E, 0x38D8C2C4, 0x4FDFF252, 0xD1BB67F1, 0xA6BC5767, 0x3FB506DD, 0x48B2364B, 0xD80D2BDA, 0xAF0A1B4C, 0x36034AF6, 0x41047A60, 0xDF60EFC3, 0xA867DF55, 0x316E8EEF, 0x4669BE79, 0xCB61B38C, 0xBC66831A, 0x256FD2A0, 0x5268E236, 0xCC0C7795, 0xBB0B4703, 0x220216B9, 0x5505262F, 0xC5BA3BBE, 0xB2BD0B28, 0x2BB45A92, 0x5CB36A04, 0xC2D7FFA7, 0xB5D0CF31, 0x2CD99E8B, 0x5BDEAE1D, 0x9B64C2B0, 0xEC63F226, 0x756AA39C, 0x026D930A, 0x9C0906A9, 0xEB0E363F, 0x72076785, 0x05005713, 0x95BF4A82, 0xE2B87A14, 0x7BB12BAE, 0x0CB61B38, 0x92D28E9B, 0xE5D5BE0D, 0x7CDCEFB7, 0x0BDBDF21, 0x86D3D2D4, 0xF1D4E242, 0x68DDB3F8, 0x1FDA836E, 0x81BE16CD, 0xF6B9265B, 0x6FB077E1, 0x18B74777, 0x88085AE6, 0xFF0F6A70, 0x66063BCA, 0x11010B5C, 0x8F659EFF, 0xF862AE69, 0x616BFFD3, 0x166CCF45, 0xA00AE278, 0xD70DD2EE, 0x4E048354, 0x3903B3C2, 0xA7672661, 0xD06016F7, 0x4969474D, 0x3E6E77DB, 0xAED16A4A, 0xD9D65ADC, 0x40DF0B66, 0x37D83BF0, 0xA9BCAE53, 0xDEBB9EC5, 0x47B2CF7F, 0x30B5FFE9, 0xBDBDF21C, 0xCABAC28A, 0x53B39330, 0x24B4A3A6, 0xBAD03605, 0xCDD70693, 0x54DE5729, 0x23D967BF, 0xB3667A2E, 0xC4614AB8, 0x5D681B02, 0x2A6F2B94, 0xB40BBE37, 0xC30C8EA1, 0x5A05DF1B, 0x2D02EF8D }; SPAN_DECLARE(uint32_t) crc_itu32_calc(const uint8_t *buf, int len, uint32_t crc) { int i; for (i = 0; i < len; i++) crc = ((crc >> 8) & 0x00FFFFFF) ^ crc_itu32_table[(crc ^ buf[i]) & 0xFF]; return crc; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) crc_itu32_append(uint8_t *buf, int len) { uint32_t crc; int new_len; int i; crc = 0xFFFFFFFF; new_len = len + 4; for (i = 0; i < len; i++) crc = ((crc >> 8) & 0x00FFFFFF) ^ crc_itu32_table[(crc ^ buf[i]) & 0xFF]; crc ^= 0xFFFFFFFF; buf[i++] = (uint8_t) crc; buf[i++] = (uint8_t) (crc >> 8); buf[i++] = (uint8_t) (crc >> 16); buf[i++] = (uint8_t) (crc >> 24); return new_len; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) crc_itu32_check(const uint8_t *buf, int len) { uint32_t crc; int i; crc = 0xFFFFFFFF; for (i = 0; i < len; i++) crc = ((crc >> 8) & 0x00FFFFFF) ^ crc_itu32_table[(crc ^ buf[i]) & 0xFF]; return (crc == 0xDEBB20E3); } /*- End of function --------------------------------------------------------*/ static const uint16_t crc_itu16_table[] = { 0x0000, 0x1189, 0x2312, 0x329B, 0x4624, 0x57AD, 0x6536, 0x74BF, 0x8C48, 0x9DC1, 0xAF5A, 0xBED3, 0xCA6C, 0xDBE5, 0xE97E, 0xF8F7, 0x1081, 0x0108, 0x3393, 0x221A, 0x56A5, 0x472C, 0x75B7, 0x643E, 0x9CC9, 0x8D40, 0xBFDB, 0xAE52, 0xDAED, 0xCB64, 0xF9FF, 0xE876, 0x2102, 0x308B, 0x0210, 0x1399, 0x6726, 0x76AF, 0x4434, 0x55BD, 0xAD4A, 0xBCC3, 0x8E58, 0x9FD1, 0xEB6E, 0xFAE7, 0xC87C, 0xD9F5, 0x3183, 0x200A, 0x1291, 0x0318, 0x77A7, 0x662E, 0x54B5, 0x453C, 0xBDCB, 0xAC42, 0x9ED9, 0x8F50, 0xFBEF, 0xEA66, 0xD8FD, 0xC974, 0x4204, 0x538D, 0x6116, 0x709F, 0x0420, 0x15A9, 0x2732, 0x36BB, 0xCE4C, 0xDFC5, 0xED5E, 0xFCD7, 0x8868, 0x99E1, 0xAB7A, 0xBAF3, 0x5285, 0x430C, 0x7197, 0x601E, 0x14A1, 0x0528, 0x37B3, 0x263A, 0xDECD, 0xCF44, 0xFDDF, 0xEC56, 0x98E9, 0x8960, 0xBBFB, 0xAA72, 0x6306, 0x728F, 0x4014, 0x519D, 0x2522, 0x34AB, 0x0630, 0x17B9, 0xEF4E, 0xFEC7, 0xCC5C, 0xDDD5, 0xA96A, 0xB8E3, 0x8A78, 0x9BF1, 0x7387, 0x620E, 0x5095, 0x411C, 0x35A3, 0x242A, 0x16B1, 0x0738, 0xFFCF, 0xEE46, 0xDCDD, 0xCD54, 0xB9EB, 0xA862, 0x9AF9, 0x8B70, 0x8408, 0x9581, 0xA71A, 0xB693, 0xC22C, 0xD3A5, 0xE13E, 0xF0B7, 0x0840, 0x19C9, 0x2B52, 0x3ADB, 0x4E64, 0x5FED, 0x6D76, 0x7CFF, 0x9489, 0x8500, 0xB79B, 0xA612, 0xD2AD, 0xC324, 0xF1BF, 0xE036, 0x18C1, 0x0948, 0x3BD3, 0x2A5A, 0x5EE5, 0x4F6C, 0x7DF7, 0x6C7E, 0xA50A, 0xB483, 0x8618, 0x9791, 0xE32E, 0xF2A7, 0xC03C, 0xD1B5, 0x2942, 0x38CB, 0x0A50, 0x1BD9, 0x6F66, 0x7EEF, 0x4C74, 0x5DFD, 0xB58B, 0xA402, 0x9699, 0x8710, 0xF3AF, 0xE226, 0xD0BD, 0xC134, 0x39C3, 0x284A, 0x1AD1, 0x0B58, 0x7FE7, 0x6E6E, 0x5CF5, 0x4D7C, 0xC60C, 0xD785, 0xE51E, 0xF497, 0x8028, 0x91A1, 0xA33A, 0xB2B3, 0x4A44, 0x5BCD, 0x6956, 0x78DF, 0x0C60, 0x1DE9, 0x2F72, 0x3EFB, 0xD68D, 0xC704, 0xF59F, 0xE416, 0x90A9, 0x8120, 0xB3BB, 0xA232, 0x5AC5, 0x4B4C, 0x79D7, 0x685E, 0x1CE1, 0x0D68, 0x3FF3, 0x2E7A, 0xE70E, 0xF687, 0xC41C, 0xD595, 0xA12A, 0xB0A3, 0x8238, 0x93B1, 0x6B46, 0x7ACF, 0x4854, 0x59DD, 0x2D62, 0x3CEB, 0x0E70, 0x1FF9, 0xF78F, 0xE606, 0xD49D, 0xC514, 0xB1AB, 0xA022, 0x92B9, 0x8330, 0x7BC7, 0x6A4E, 0x58D5, 0x495C, 0x3DE3, 0x2C6A, 0x1EF1, 0x0F78 }; SPAN_DECLARE(uint16_t) crc_itu16_calc(const uint8_t *buf, int len, uint16_t crc) { int i; for (i = 0; i < len; i++) crc = (crc >> 8) ^ crc_itu16_table[(crc ^ buf[i]) & 0xFF]; return crc; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(uint16_t) crc_itu16_bits(uint8_t buf, int len, uint16_t crc) { int i; for (i = 0; i < len; i++) { if (((buf ^ crc) & 1)) crc = (crc >> 1) ^ 0x8408; else crc = crc >> 1; buf >>= 1; } return crc; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) crc_itu16_append(uint8_t *buf, int len) { uint16_t crc; int new_len; int i; crc = 0xFFFF; new_len = len + 2; for (i = 0; i < len; i++) crc = (crc >> 8) ^ crc_itu16_table[(crc ^ buf[i]) & 0xFF]; crc ^= 0xFFFF; buf[i++] = (uint8_t) crc; buf[i++] = (uint8_t) (crc >> 8); return new_len; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) crc_itu16_check(const uint8_t *buf, int len) { uint16_t crc; int i; crc = 0xFFFF; for (i = 0; i < len; i++) crc = (crc >> 8) ^ crc_itu16_table[(crc ^ buf[i]) & 0xFF]; return (crc & 0xFFFF) == 0xF0B8; } /*- End of function --------------------------------------------------------*/ /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/libspandsp.2008.vcproj0000664000175000017500000004244011516506106017347 0ustar steveusteveu spandsp-0.0.6/src/modem_connect_tones.c0000664000175000017500000005507711422612262017570 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * modem_connect_tones.c - Generation and detection of tones * associated with modems calling and answering calls. * * Written by Steve Underwood * * Copyright (C) 2006 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \file */ /* CNG is 0.5s+-15% of 1100+-38Hz, 3s+-15% off, repeating. CED is 0.2s silence, 3.3+-0.7s of 2100+-15Hz, and 75+-20ms of silence. ANS is 3.3+-0.7s of 2100+-15Hz. ANS/ is 3.3+-0.7s of 2100+-15Hz, with phase reversals (180+-10 degrees, hopping in <1ms) every 450+-25ms. ANSam/ is 2100+-1Hz, with phase reversals (180+-10 degrees, hopping in <1ms) every 450+-25ms, and AM with a sinewave of 15+-0.1Hz. The modulated envelope ranges in amplitude between (0.8+-0.01) and (1.2+-0.01) times its average amplitude. It lasts up to 5s, but will be stopped early if the V.8 protocol proceeds. */ #if defined(HAVE_CONFIG_H) #include "config.h" #endif #include #include #include #if defined(HAVE_TGMATH_H) #include #endif #if defined(HAVE_MATH_H) #include #endif #include "floating_fudge.h" #include #include "spandsp/telephony.h" #include "spandsp/fast_convert.h" #include "spandsp/logging.h" #include "spandsp/complex.h" #include "spandsp/dds.h" #include "spandsp/tone_detect.h" #include "spandsp/tone_generate.h" #include "spandsp/super_tone_rx.h" #include "spandsp/power_meter.h" #include "spandsp/async.h" #include "spandsp/fsk.h" #include "spandsp/modem_connect_tones.h" #include "spandsp/private/fsk.h" #include "spandsp/private/modem_connect_tones.h" #define HDLC_FRAMING_OK_THRESHOLD 5 SPAN_DECLARE(const char *) modem_connect_tone_to_str(int tone) { switch (tone) { case MODEM_CONNECT_TONES_NONE: return "No tone"; case MODEM_CONNECT_TONES_FAX_CNG: return "FAX CNG"; case MODEM_CONNECT_TONES_ANS: return "ANS or FAX CED"; case MODEM_CONNECT_TONES_ANS_PR: return "ANS/"; case MODEM_CONNECT_TONES_ANSAM: return "ANSam"; case MODEM_CONNECT_TONES_ANSAM_PR: return "ANSam/"; case MODEM_CONNECT_TONES_FAX_PREAMBLE: return "FAX preamble"; case MODEM_CONNECT_TONES_FAX_CED_OR_PREAMBLE: return "FAX CED or preamble"; } return "???"; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE_NONSTD(int) modem_connect_tones_tx(modem_connect_tones_tx_state_t *s, int16_t amp[], int len) { int16_t mod; int i; int xlen; i = 0; switch (s->tone_type) { case MODEM_CONNECT_TONES_FAX_CNG: for ( ; i < len; i++) { if (s->duration_timer > ms_to_samples(3000)) { if ((xlen = i + s->duration_timer - ms_to_samples(3000)) > len) xlen = len; s->duration_timer -= (xlen - i); for ( ; i < xlen; i++) amp[i] = dds_mod(&s->tone_phase, s->tone_phase_rate, s->level, 0); } if (s->duration_timer > 0) { if ((xlen = i + s->duration_timer) > len) xlen = len; s->duration_timer -= (xlen - i); memset(amp + i, 0, sizeof(int16_t)*(xlen - i)); i = xlen; } if (s->duration_timer == 0) s->duration_timer = ms_to_samples(500 + 3000); } break; case MODEM_CONNECT_TONES_ANS: if (s->duration_timer < len) len = s->duration_timer; if (s->duration_timer > ms_to_samples(2600)) { /* There is some initial silence to be generated. */ if ((i = s->duration_timer - ms_to_samples(2600)) > len) i = len; memset(amp, 0, sizeof(int16_t)*i); } for ( ; i < len; i++) amp[i] = dds_mod(&s->tone_phase, s->tone_phase_rate, s->level, 0); s->duration_timer -= len; break; case MODEM_CONNECT_TONES_ANS_PR: if (s->duration_timer < len) len = s->duration_timer; if (s->duration_timer > ms_to_samples(3300)) { if ((i = s->duration_timer - ms_to_samples(3300)) > len) i = len; memset(amp, 0, sizeof(int16_t)*i); } for ( ; i < len; i++) { if (--s->hop_timer <= 0) { s->hop_timer = ms_to_samples(450); s->tone_phase += 0x80000000; } amp[i] = dds_mod(&s->tone_phase, s->tone_phase_rate, s->level, 0); } s->duration_timer -= len; break; case MODEM_CONNECT_TONES_ANSAM: if (s->duration_timer < len) len = s->duration_timer; if (s->duration_timer > ms_to_samples(5000)) { if ((i = s->duration_timer - ms_to_samples(5000)) > len) i = len; memset(amp, 0, sizeof(int16_t)*i); } for ( ; i < len; i++) { mod = (int16_t) (s->level + dds_mod(&s->mod_phase, s->mod_phase_rate, s->mod_level, 0)); amp[i] = dds_mod(&s->tone_phase, s->tone_phase_rate, mod, 0); } s->duration_timer -= len; break; case MODEM_CONNECT_TONES_ANSAM_PR: if (s->duration_timer < len) len = s->duration_timer; if (s->duration_timer > ms_to_samples(5000)) { if ((i = s->duration_timer - ms_to_samples(5000)) > len) i = len; memset(amp, 0, sizeof(int16_t)*i); } for ( ; i < len; i++) { if (--s->hop_timer <= 0) { s->hop_timer = ms_to_samples(450); s->tone_phase += 0x80000000; } mod = (int16_t) (s->level + dds_mod(&s->mod_phase, s->mod_phase_rate, s->mod_level, 0)); amp[i] = dds_mod(&s->tone_phase, s->tone_phase_rate, mod, 0); } s->duration_timer -= len; break; } return len; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(modem_connect_tones_tx_state_t *) modem_connect_tones_tx_init(modem_connect_tones_tx_state_t *s, int tone_type) { int alloced; alloced = FALSE; if (s == NULL) { if ((s = (modem_connect_tones_tx_state_t *) malloc(sizeof(*s))) == NULL) return NULL; alloced = TRUE; } s->tone_type = tone_type; switch (s->tone_type) { case MODEM_CONNECT_TONES_FAX_CNG: /* 0.5s of 1100Hz+-38Hz + 3.0s of silence repeating. Timing +-15% */ s->tone_phase_rate = dds_phase_rate(1100.0); s->level = dds_scaling_dbm0(-11); s->duration_timer = ms_to_samples(500 + 3000); s->mod_phase_rate = 0; s->tone_phase = 0; s->mod_phase = 0; s->mod_level = 0; s->hop_timer = 0; break; case MODEM_CONNECT_TONES_ANS: case MODEM_CONNECT_TONES_ANSAM: /* 0.2s of silence, then 2.6s to 4s of 2100Hz+-15Hz tone, then 75ms of silence. */ s->tone_phase_rate = dds_phase_rate(2100.0); s->level = dds_scaling_dbm0(-11); if (s->tone_type == MODEM_CONNECT_TONES_ANSAM) { s->mod_phase_rate = dds_phase_rate(15.0); s->mod_level = s->level/5; s->duration_timer = ms_to_samples(200 + 5000); } else { s->mod_phase_rate = 0; s->mod_level = 0; s->duration_timer = ms_to_samples(200 + 2600); } s->tone_phase = 0; s->mod_phase = 0; s->hop_timer = 0; break; case MODEM_CONNECT_TONES_ANS_PR: case MODEM_CONNECT_TONES_ANSAM_PR: s->tone_phase_rate = dds_phase_rate(2100.0); s->level = dds_scaling_dbm0(-12); if (s->tone_type == MODEM_CONNECT_TONES_ANSAM_PR) { s->mod_phase_rate = dds_phase_rate(15.0); s->mod_level = s->level/5; s->duration_timer = ms_to_samples(200 + 5000); } else { s->mod_phase_rate = 0; s->mod_level = 0; s->duration_timer = ms_to_samples(200 + 3300); } s->tone_phase = 0; s->mod_phase = 0; s->hop_timer = ms_to_samples(450); break; default: if (alloced) free(s); return NULL; } return s; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) modem_connect_tones_tx_release(modem_connect_tones_tx_state_t *s) { return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) modem_connect_tones_tx_free(modem_connect_tones_tx_state_t *s) { free(s); return 0; } /*- End of function --------------------------------------------------------*/ static void report_tone_state(modem_connect_tones_rx_state_t *s, int tone, int level) { if (tone != s->tone_present) { if (s->tone_callback) { s->tone_callback(s->callback_data, tone, level, 0); } else { if (tone != MODEM_CONNECT_TONES_NONE) s->hit = tone; } s->tone_present = tone; } } /*- End of function --------------------------------------------------------*/ static void v21_put_bit(void *user_data, int bit) { modem_connect_tones_rx_state_t *s; s = (modem_connect_tones_rx_state_t *) user_data; if (bit < 0) { /* Special conditions. */ switch (bit) { case SIG_STATUS_CARRIER_DOWN: /* Only declare tone off, if we were the one to declare tone on. */ if (s->tone_present == MODEM_CONNECT_TONES_FAX_PREAMBLE) report_tone_state(s, MODEM_CONNECT_TONES_NONE, -99); /* Fall through */ case SIG_STATUS_CARRIER_UP: s->raw_bit_stream = 0; s->num_bits = 0; s->flags_seen = 0; s->framing_ok_announced = FALSE; break; } return; } /* Look for enough FAX V.21 message preamble (back to back HDLC flag octets) to be sure we are really seeing preamble, and declare the signal to be present. Any change from preamble declares the signal to not be present, though it will probably be the body of the messages following the preamble. */ s->raw_bit_stream = (s->raw_bit_stream << 1) | ((bit << 8) & 0x100); s->num_bits++; if ((s->raw_bit_stream & 0x7F00) == 0x7E00) { if ((s->raw_bit_stream & 0x8000)) { /* Hit HDLC abort */ s->flags_seen = 0; } else { /* Hit HDLC flag */ if (s->flags_seen < HDLC_FRAMING_OK_THRESHOLD) { /* Check the flags are back-to-back when testing for valid preamble. This greatly reduces the chances of false preamble detection, and anything which doesn't send them back-to-back is badly broken. */ if (s->num_bits != 8) s->flags_seen = 0; if (++s->flags_seen >= HDLC_FRAMING_OK_THRESHOLD && !s->framing_ok_announced) { report_tone_state(s, MODEM_CONNECT_TONES_FAX_PREAMBLE, lfastrintf(fsk_rx_signal_power(&(s->v21rx)))); s->framing_ok_announced = TRUE; } } } s->num_bits = 0; } else { if (s->flags_seen >= HDLC_FRAMING_OK_THRESHOLD) { if (s->num_bits == 8) { s->framing_ok_announced = FALSE; s->flags_seen = 0; } } } } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE_NONSTD(int) modem_connect_tones_rx(modem_connect_tones_rx_state_t *s, const int16_t amp[], int len) { int i; int16_t notched; float v1; float famp; float filtered; switch (s->tone_type) { case MODEM_CONNECT_TONES_FAX_CNG: for (i = 0; i < len; i++) { famp = amp[i]; /* A Cauer notch at 1100Hz, spread just wide enough to meet our detection bandwidth criteria. */ v1 = 0.792928f*famp + 1.0018744927985f*s->znotch_1 - 0.54196833412465f*s->znotch_2; famp = v1 - 1.2994747954630f*s->znotch_1 + s->znotch_2; s->znotch_2 = s->znotch_1; s->znotch_1 = v1; notched = (int16_t) lfastrintf(famp); /* Estimate the overall energy in the channel, and the energy in the notch (i.e. overall channel energy - tone energy => noise). Use abs instead of multiply for speed (is it really faster?). */ s->channel_level += ((abs(amp[i]) - s->channel_level) >> 5); s->notch_level += ((abs(notched) - s->notch_level) >> 5); if (s->channel_level > 70 && s->notch_level*6 < s->channel_level) { /* There is adequate energy in the channel, and it is mostly at 1100Hz. */ if (s->tone_present != MODEM_CONNECT_TONES_FAX_CNG) { if (++s->tone_cycle_duration >= ms_to_samples(415)) report_tone_state(s, MODEM_CONNECT_TONES_FAX_CNG, lfastrintf(log10f(s->channel_level/32768.0f)*20.0f + DBM0_MAX_POWER + 0.8f)); } } else { /* If the signal looks wrong, even for a moment, we consider this the end of the tone. */ if (s->tone_present == MODEM_CONNECT_TONES_FAX_CNG) report_tone_state(s, MODEM_CONNECT_TONES_NONE, -99); s->tone_cycle_duration = 0; } } break; case MODEM_CONNECT_TONES_FAX_PREAMBLE: /* Ignore any CED tone, and just look for V.21 preamble. */ fsk_rx(&(s->v21rx), amp, len); break; case MODEM_CONNECT_TONES_FAX_CED_OR_PREAMBLE: /* Also look for V.21 preamble. A lot of machines don't send the 2100Hz burst. It might also not be seen all the way through the channel, due to switching delays. */ fsk_rx(&(s->v21rx), amp, len); /* Now fall through and look for a 2100Hz tone */ case MODEM_CONNECT_TONES_ANS: for (i = 0; i < len; i++) { famp = amp[i]; /* A Cauer bandpass at 15Hz, with which we demodulate the AM signal. */ v1 = fabs(famp) + 1.996667f*s->z15hz_1 - 0.9968004f*s->z15hz_2; filtered = 0.001599787f*(v1 - s->z15hz_2); s->z15hz_2 = s->z15hz_1; s->z15hz_1 = v1; s->am_level += abs(lfastrintf(filtered)) - (s->am_level >> 8); //printf("%9.1f %10.4f %9d %9d\n", famp, filtered, s->am_level, s->channel_level); /* A Cauer notch at 2100Hz, spread just wide enough to meet our detection bandwidth criteria. */ /* This is actually centred at 2095Hz, but gets the balance we want, due to the asymmetric walls of the notch */ v1 = 0.76000f*famp - 0.1183852f*s->znotch_1 - 0.5104039f*s->znotch_2; famp = v1 + 0.1567596f*s->znotch_1 + s->znotch_2; s->znotch_2 = s->znotch_1; s->znotch_1 = v1; notched = (int16_t) lfastrintf(famp); /* Estimate the overall energy in the channel, and the energy in the notch (i.e. overall channel energy - tone energy => noise). Use abs instead of multiply for speed (is it really faster?). Damp the overall energy a little more for a stable result. Damp the notch energy a little less, so we don't damp out the blip every time the phase reverses. */ s->channel_level += ((abs(amp[i]) - s->channel_level) >> 5); s->notch_level += ((abs(notched) - s->notch_level) >> 4); /* This should cut off at about -43dBm0 */ if (s->channel_level <= 70) { /* If the energy level is low, even for a moment, we consider this the end of the tone. */ if (s->tone_present != MODEM_CONNECT_TONES_NONE) report_tone_state(s, MODEM_CONNECT_TONES_NONE, -99); s->tone_cycle_duration = 0; s->good_cycles = 0; s->tone_on = FALSE; continue; } /* There is adequate energy in the channel. Is it mostly at 2100Hz? */ s->tone_cycle_duration++; if (s->notch_level*6 < s->channel_level) { /* The notch test says yes, so we have the tone. */ /* We should get a kick from the notch filter every 450+-25ms, as the phase reverses, for an EC disable tone. For a simple answer tone, the tone should persist unbroken for longer. */ if (!s->tone_on) { if (s->tone_cycle_duration >= ms_to_samples(450 - 25)) { if (++s->good_cycles == 3) { report_tone_state(s, (s->am_level*15/256 > s->channel_level) ? MODEM_CONNECT_TONES_ANSAM_PR : MODEM_CONNECT_TONES_ANS_PR, lfastrintf(log10f(s->channel_level/32768.0f)*20.0f + DBM0_MAX_POWER + 0.8f)); } } else { s->good_cycles = 0; } /* Cycles are timed from rising edge to rising edge */ s->tone_cycle_duration = 0; } else { if (s->tone_cycle_duration >= ms_to_samples(450 + 100)) { if (s->tone_present == MODEM_CONNECT_TONES_NONE) { report_tone_state(s, (s->am_level*15/256 > s->channel_level) ? MODEM_CONNECT_TONES_ANSAM : MODEM_CONNECT_TONES_ANS, lfastrintf(log10f(s->channel_level/32768.0f)*20.0f + DBM0_MAX_POWER + 0.8f)); } s->good_cycles = 0; s->tone_cycle_duration = ms_to_samples(450 + 100); } } s->tone_on = TRUE; } else if (s->notch_level*5 > s->channel_level) { if (s->tone_present == MODEM_CONNECT_TONES_ANS) { report_tone_state(s, MODEM_CONNECT_TONES_NONE, -99); s->good_cycles = 0; } else { if (s->tone_cycle_duration >= ms_to_samples(450 + 25)) { /* The change came too late for a cycle of ANS_PR tone */ if (s->tone_present == MODEM_CONNECT_TONES_ANS_PR || s->tone_present == MODEM_CONNECT_TONES_ANSAM_PR) report_tone_state(s, MODEM_CONNECT_TONES_NONE, -99); s->good_cycles = 0; } } s->tone_on = FALSE; } } break; } return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) modem_connect_tones_rx_get(modem_connect_tones_rx_state_t *s) { int x; x = s->hit; s->hit = MODEM_CONNECT_TONES_NONE; return x; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(modem_connect_tones_rx_state_t *) modem_connect_tones_rx_init(modem_connect_tones_rx_state_t *s, int tone_type, tone_report_func_t tone_callback, void *user_data) { if (s == NULL) { if ((s = (modem_connect_tones_rx_state_t *) malloc(sizeof(*s))) == NULL) return NULL; } s->tone_type = tone_type; switch (s->tone_type) { case MODEM_CONNECT_TONES_FAX_PREAMBLE: case MODEM_CONNECT_TONES_FAX_CED_OR_PREAMBLE: fsk_rx_init(&(s->v21rx), &preset_fsk_specs[FSK_V21CH2], FSK_FRAME_MODE_SYNC, v21_put_bit, s); fsk_rx_signal_cutoff(&(s->v21rx), -45.5f); break; case MODEM_CONNECT_TONES_ANS_PR: case MODEM_CONNECT_TONES_ANSAM: case MODEM_CONNECT_TONES_ANSAM_PR: /* Treat these all the same for receive purposes */ s->tone_type = MODEM_CONNECT_TONES_ANS; break; } s->channel_level = 0; s->notch_level = 0; s->am_level = 0; s->tone_present = MODEM_CONNECT_TONES_NONE; s->tone_cycle_duration = 0; s->good_cycles = 0; s->hit = MODEM_CONNECT_TONES_NONE; s->tone_on = FALSE; s->tone_callback = tone_callback; s->callback_data = user_data; s->znotch_1 = 0.0f; s->znotch_2 = 0.0f; s->z15hz_1 = 0.0f; s->z15hz_2 = 0.0f; s->num_bits = 0; s->flags_seen = 0; s->framing_ok_announced = FALSE; s->raw_bit_stream = 0; return s; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) modem_connect_tones_rx_release(modem_connect_tones_rx_state_t *s) { return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) modem_connect_tones_rx_free(modem_connect_tones_rx_state_t *s) { free(s); return 0; } /*- End of function --------------------------------------------------------*/ /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/lpc10_encode.c0000664000175000017500000002611311422612262015767 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * lpc10_encode.c - LPC10 low bit rate speech codec. * * Written by Steve Underwood * * Copyright (C) 2006 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. * * This code is based on the U.S. Department of Defense reference * implementation of the LPC-10 2400 bps Voice Coder. They do not * exert copyright claims on their code, and it may be freely used. */ #if defined(HAVE_CONFIG_H) #include "config.h" #endif #include #include #include #include #if defined(HAVE_TGMATH_H) #include #endif #if defined(HAVE_MATH_H) #include #endif #include "floating_fudge.h" #include "spandsp/telephony.h" #include "spandsp/dc_restore.h" #include "spandsp/lpc10.h" #include "spandsp/private/lpc10.h" #include "lpc10_encdecs.h" static void lpc10_pack(lpc10_encode_state_t *s, uint8_t ibits[], lpc10_frame_t *t) { static const int iblist[53] = { 13, 12, 11, 1, 2, 13, 12, 11, 1, 2, 13, 10, 11, 2, 1, 10, 13, 12, 11, 10, 2, 13, 12, 11, 10, 2, 1, 12, 7, 6, 1, 10, 9, 8, 7, 4, 6, 9, 8, 7, 5, 1, 9, 8, 4, 6, 1, 5, 9, 8, 7, 5, 6 }; int32_t itab[13]; int x; int i; /* ibits is 54 bits of LPC data ordered as follows: */ /* R1-0, R2-0, R3-0, P-0, A-0, */ /* R1-1, R2-1, R3-1, P-1, A-1, */ /* R1-2, R4-0, R3-2, A-2, P-2, R4-1, */ /* R1-3, R2-2, R3-3, R4-2, A-3, */ /* R1-4, R2-3, R3-4, R4-3, A-4, */ /* P-3, R2-4, R7-0, R8-0, P-4, R4-4, */ /* R5-0, R6-0, R7-1,R10-0, R8-1, */ /* R5-1, R6-1, R7-2, R9-0, P-5, */ /* R5-2, R6-2,R10-1, R8-2, P-6, R9-1, */ /* R5-3, R6-3, R7-3, R9-2, R8-3, SYNC */ itab[0] = t->ipitch; itab[1] = t->irms; itab[2] = 0; for (i = 0; i < LPC10_ORDER; i++) itab[i + 3] = t->irc[LPC10_ORDER - 1 - i] & 0x7FFF; /* Put 54 bits into the output buffer */ x = 0; for (i = 0; i < 53; i++) { x = (x << 1) | (itab[iblist[i] - 1] & 1); if ((i & 7) == 7) ibits[i >> 3] = (uint8_t) (x & 0xFF); itab[iblist[i] - 1] >>= 1; } x = (x << 1) | (s->isync & 1); s->isync ^= 1; x <<= 2; ibits[6] = (uint8_t) (x & 0xFF); } /*- End of function --------------------------------------------------------*/ /* Quantize LPC parameters for transmission */ static int encode(lpc10_encode_state_t *s, lpc10_frame_t *t, int32_t *voice, int32_t pitch, float rms, float *rc) { static const int32_t enctab[16] = { 0, 7, 11, 12, 13, 10, 6, 1, 14, 9, 5, 2, 3, 4, 8, 15 }; static const int32_t entau[60] = { 19, 11, 27, 25, 29, 21, 23, 22, 30, 14, 15, 7, 39, 38, 46, 42, 43, 41, 45, 37, 53, 49, 51, 50, 54, 52, 60, 56, 58, 26, 90, 88, 92, 84, 86, 82, 83, 81, 85, 69, 77, 73, 75, 74, 78, 70, 71, 67, 99, 97, 113, 112, 114, 98, 106, 104, 108, 100, 101, 76 }; static const int32_t enadd[8] = { 1920, -768, 2432, 1280, 3584, 1536, 2816, -1152 }; static const float enscl[8] = { 0.0204f, 0.0167f, 0.0145f, 0.0147f, 0.0143f, 0.0135f, 0.0125f, 0.0112f }; static const int32_t enbits[8] = { 6, 5, 4, 4, 4, 4, 3, 3 }; static const int32_t entab6[64] = { 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 3, 3, 3, 3, 3, 3, 3, 4, 4, 4, 4, 4, 4, 4, 5, 5, 5, 5, 5, 6, 6, 6, 6, 6, 7, 7, 7, 7, 7, 8, 8, 8, 8, 9, 9, 9, 10, 10, 11, 11, 12, 13, 14, 15 }; static const int32_t rmst[64] = { 1024, 936, 856, 784, 718, 656, 600, 550, 502, 460, 420, 384, 352, 328, 294, 270, 246, 226, 206, 188, 172, 158, 144, 132, 120, 110, 102, 92, 84, 78, 70, 64, 60, 54, 50, 46, 42, 38, 34, 32, 30, 26, 24, 22, 20, 18, 17, 16, 15, 14, 13, 12, 11, 10, 9, 8, 7, 6, 5, 4, 3, 2, 1, 0 }; int32_t idel; int32_t nbit; int32_t i; int32_t j; int32_t i2; int32_t i3; int32_t mrk; /* Scale RMS and RC's to int32_ts */ t->irms = (int32_t) rms; for (i = 0; i < LPC10_ORDER; i++) t->irc[i] = (int32_t) (rc[i]*32768.0f); if (voice[0] != 0 && voice[1] != 0) { t->ipitch = entau[pitch - 1]; } else { if (s->error_correction) { t->ipitch = 0; if (voice[0] != voice[1]) t->ipitch = 127; } else { t->ipitch = (voice[0] << 1) + voice[1]; } } /* Encode RMS by binary table search */ j = 32; idel = 16; t->irms = min(t->irms, 1023); while (idel > 0) { if (t->irms > rmst[j - 1]) j -= idel; if (t->irms < rmst[j - 1]) j += idel; idel /= 2; } if (t->irms > rmst[j - 1]) --j; t->irms = 31 - j/2; /* Encode RC(1) and (2) as log-area-ratios */ for (i = 0; i < 2; i++) { i2 = t->irc[i]; mrk = 0; if (i2 < 0) { i2 = -i2; mrk = 1; } i2 = min(i2/512, 63); i2 = entab6[i2]; if (mrk != 0) i2 = -i2; t->irc[i] = i2; } /* Encode RC(3) - (10) linearly, remove bias then scale */ for (i = 2; i < LPC10_ORDER; i++) { i2 = (int32_t) ((t->irc[i]/2 + enadd[LPC10_ORDER - 1 - i])*enscl[LPC10_ORDER - 1 - i]); i2 = max(i2, -127); i2 = min(i2, 127); nbit = enbits[LPC10_ORDER - 1 - i]; i3 = (i2 < 0); i2 /= pow_ii(2, nbit); if (i3) i2--; t->irc[i] = i2; } /* Protect the most significant bits of the most important parameters during non-voiced frames. RC(1) - RC(4) are protected using 20 parity bits replacing RC(5) - RC(10). */ if (s->error_correction) { if (t->ipitch == 0 || t->ipitch == 127) { t->irc[4] = enctab[(t->irc[0] & 0x1E) >> 1]; t->irc[5] = enctab[(t->irc[1] & 0x1E) >> 1]; t->irc[6] = enctab[(t->irc[2] & 0x1E) >> 1]; t->irc[7] = enctab[(t->irms & 0x1E) >> 1]; t->irc[8] = enctab[(t->irc[3] & 0x1E) >> 1] >> 1; t->irc[9] = enctab[(t->irc[3] & 0x1E) >> 1] & 1; } } return 0; } /*- End of function --------------------------------------------------------*/ static void high_pass_100hz(lpc10_encode_state_t *s, float speech[], int start, int len) { float si; float err; int i; /* 100 Hz high pass filter */ for (i = start; i < len; i++) { si = speech[i]; err = si + s->z11*1.859076f - s->z21*0.8648249f; si = err - s->z11*2.0f + s->z21; s->z21 = s->z11; s->z11 = err; err = si + s->z12*1.935715f - s->z22*0.9417004f; si = err - s->z12*2.0f + s->z22; s->z22 = s->z12; s->z12 = err; speech[i] = si*0.902428f; } } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(lpc10_encode_state_t *) lpc10_encode_init(lpc10_encode_state_t *s, int error_correction) { int i; int j; if (s == NULL) { if ((s = (lpc10_encode_state_t *) malloc(sizeof(*s))) == NULL) return NULL; } s->error_correction = error_correction; /* State used only by function high_pass_100hz */ s->z11 = 0.0f; s->z21 = 0.0f; s->z12 = 0.0f; s->z22 = 0.0f; /* State used by function lpc10_analyse */ for (i = 0; i < 540; i++) { s->inbuf[i] = 0.0f; s->pebuf[i] = 0.0f; } for (i = 0; i < 696; i++) s->lpbuf[i] = 0.0f; for (i = 0; i < 312; i++) s->ivbuf[i] = 0.0f; s->bias = 0.0f; s->osptr = 1; for (i = 0; i < 3; i++) s->obound[i] = 0; s->vwin[2][0] = 307; s->vwin[2][1] = 462; s->awin[2][0] = 307; s->awin[2][1] = 462; for (i = 0; i < 4; i++) { s->voibuf[i][0] = 0; s->voibuf[i][1] = 0; } for (i = 0; i < 3; i++) s->rmsbuf[i] = 0.0f; for (i = 0; i < 3; i++) { for (j = 0; j < 10; j++) s->rcbuf[i][j] = 0.0f; } s->zpre = 0.0f; /* State used by function onset */ s->n = 0.0f; s->d__ = 1.0f; for (i = 0; i < 16; i++) s->l2buf[i] = 0.0f; s->l2sum1 = 0.0f; s->l2ptr1 = 1; s->l2ptr2 = 9; s->hyst = FALSE; /* State used by function lpc10_voicing */ s->dither = 20.0f; s->maxmin = 0.0f; for (i = 0; i < 3; i++) { s->voice[i][0] = 0.0f; s->voice[i][1] = 0.0f; } s->lbve = 3000; s->fbve = 3000; s->fbue = 187; s->ofbue = 187; s->sfbue = 187; s->lbue = 93; s->olbue = 93; s->slbue = 93; s->snr = (float) (s->fbve / s->fbue << 6); /* State used by function dynamic_pitch_tracking */ for (i = 0; i < 60; i++) s->s[i] = 0.0f; for (i = 0; i < 2; i++) { for (j = 0; j < 60; j++) s->p[i][j] = 0; } s->ipoint = 0; s->alphax = 0.0f; /* State used by function lpc10_pack */ s->isync = 0; return s; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) lpc10_encode_release(lpc10_encode_state_t *s) { return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) lpc10_encode_free(lpc10_encode_state_t *s) { free(s); return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) lpc10_encode(lpc10_encode_state_t *s, uint8_t code[], const int16_t amp[], int len) { int32_t voice[2]; int32_t pitch; float speech[LPC10_SAMPLES_PER_FRAME]; float rc[LPC10_ORDER]; float rms; lpc10_frame_t frame; int i; int j; len /= LPC10_SAMPLES_PER_FRAME; for (i = 0; i < len; i++) { for (j = 0; j < LPC10_SAMPLES_PER_FRAME; j++) speech[j] = (float) amp[i*LPC10_SAMPLES_PER_FRAME + j]/32768.0f; high_pass_100hz(s, speech, 0, LPC10_SAMPLES_PER_FRAME); lpc10_analyse(s, speech, voice, &pitch, &rms, rc); encode(s, &frame, voice, pitch, rms, rc); lpc10_pack(s, &code[7*i], &frame); } return len*7; } /*- End of function --------------------------------------------------------*/ /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/faxfont.h0000664000175000017500000020060111422612261015200 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * faxfont.h - a simple fixed pitch font for FAX headers * * Written by Steve Underwood * * Copyright (C) 2004 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #if !defined(_FAXFONT_H_) #define _FAXFONT_H_ static const uint32_t header_font[256][16] = { { /* 0 */ 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, }, { /* 1 */ 0x0, 0x0, 0x3FFC, 0xC003, 0xCC33, 0xC003, 0xC003, 0xCFF3, 0xC3C3, 0xC003, 0xC003, 0x3FFC, 0x0, 0x0, 0x0, 0x0, }, { /* 2 */ 0x0, 0x0, 0x3FFC, 0xFFFF, 0xF3CF, 0xFFFF, 0xFFFF, 0xF00F, 0xFC3F, 0xFFFF, 0xFFFF, 0x3FFC, 0x0, 0x0, 0x0, 0x0, }, { /* 3 */ 0x0, 0x0, 0x0, 0x0, 0x1E78, 0x7FFE, 0x7FFE, 0x7FFE, 0x7FFE, 0x1FF8, 0x7E0, 0x180, 0x0, 0x0, 0x0, 0x0, }, { /* 4 */ 0x0, 0x0, 0x0, 0x0, 0x180, 0x7E0, 0x1FF8, 0x7FFE, 0x1FF8, 0x7E0, 0x180, 0x0, 0x0, 0x0, 0x0, 0x0, }, { /* 5 */ 0x0, 0x0, 0x0, 0x3C0, 0xFF0, 0xFF0, 0x7C3E, 0x7C3E, 0x7C3E, 0x63C6, 0x3C0, 0xFF0, 0x0, 0x0, 0x0, 0x0, }, { /* 6 */ 0x0, 0x0, 0x0, 0x180, 0x7E0, 0x1FF8, 0x7FFE, 0x7FFE, 0x1FF8, 0x180, 0x180, 0x7E0, 0x0, 0x0, 0x0, 0x0, }, { /* 7 */ 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x3C0, 0xFF0, 0xFF0, 0x3C0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, }, { /* 8 */ 0xFFFF, 0xFFFF, 0xFFFF, 0xFFFF, 0xFFFF, 0xFFFF, 0xFC3F, 0xF00F, 0xF00F, 0xFC3F, 0xFFFF, 0xFFFF, 0xFFFF, 0xFFFF, 0xFFFF, 0xFFFF, }, { /* 9 */ 0x0, 0x0, 0x0, 0x0, 0x0, 0xFF0, 0x3C3C, 0x300C, 0x300C, 0x3C3C, 0xFF0, 0x0, 0x0, 0x0, 0x0, 0x0, }, { /* 10 */ 0xFFFF, 0xFFFF, 0xFFFF, 0xFFFF, 0xFFFF, 0xF00F, 0xC3C3, 0xCFF3, 0xCFF3, 0xC3C3, 0xF00F, 0xFFFF, 0xFFFF, 0xFFFF, 0xFFFF, 0xFFFF, }, { /* 11 */ 0x0, 0x0, 0x1FE, 0x7E, 0x1F6, 0x786, 0x1FE0, 0x3870, 0x3870, 0x3870, 0x3870, 0x1FE0, 0x0, 0x0, 0x0, 0x0, }, { /* 12 */ 0x0, 0x0, 0xFF0, 0x3C3C, 0x3C3C, 0x3C3C, 0x3C3C, 0xFF0, 0x3C0, 0x3FFC, 0x3C0, 0x3C0, 0x0, 0x0, 0x0, 0x0, }, { /* 13 */ 0x0, 0x0, 0xFFE, 0xF0E, 0xFFE, 0xE00, 0xE00, 0xE00, 0xE00, 0x3E00, 0x7E00, 0x3C00, 0x0, 0x0, 0x0, 0x0, }, { /* 14 */ 0x0, 0x0, 0x1FFE, 0x1C0E, 0x1FFE, 0x1C0E, 0x1C0E, 0x1C0E, 0x1C0E, 0x1C1E, 0x3C3E, 0x7C1C, 0x3800, 0x0, 0x0, 0x0, }, { /* 15 */ 0x0, 0x0, 0x0, 0x4002, 0x23C4, 0x13C8, 0xE70, 0x781E, 0xE70, 0x13C8, 0x23C4, 0x4002, 0x0, 0x0, 0x0, 0x0, }, { /* 16 */ 0x0, 0x3000, 0x3C00, 0x3F00, 0x3FC0, 0x3FF0, 0x3FF8, 0x3FF0, 0x3FC0, 0x3F00, 0x3C00, 0x3000, 0x0, 0x0, 0x0, 0x0, }, { /* 17 */ 0x0, 0xC, 0x3C, 0xFC, 0x3FC, 0xFFC, 0x1FFC, 0xFFC, 0x3FC, 0xFC, 0x3C, 0xC, 0x0, 0x0, 0x0, 0x0, }, { /* 18 */ 0x0, 0x180, 0x3C0, 0xFF0, 0x3FFC, 0x3C0, 0x3C0, 0x3C0, 0x3C0, 0x3FFC, 0xFF0, 0x3C0, 0x180, 0x0, 0x0, 0x0, }, { /* 19 */ 0x0, 0x0, 0x3C3C, 0x3C3C, 0x3C3C, 0x3C3C, 0x3C3C, 0x3C3C, 0x3C3C, 0x0, 0x3C3C, 0x3C3C, 0x0, 0x0, 0x0, 0x0, }, { /* 20 */ 0x0, 0x0, 0x3FFE, 0x71CE, 0x71CE, 0x71CE, 0x3FCE, 0x1CE, 0x1CE, 0x1CE, 0x1CE, 0x1CE, 0x0, 0x0, 0x0, 0x0, }, { /* 21 */ 0x0, 0x3FF0, 0x7038, 0x3C18, 0xFC0, 0x3CF0, 0x7038, 0x7038, 0x7038, 0x3CF0, 0xFC0, 0x60F0, 0x7038, 0x3FF0, 0x0, 0x0, }, { /* 22 */ 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x3FFC, 0x3FFC, 0x3FFC, 0x3FFC, 0x0, 0x0, 0x0, 0x0, }, { /* 23 */ 0x0, 0x180, 0x3C0, 0xFF0, 0x3FFC, 0x3C0, 0x3C0, 0x3C0, 0x3C0, 0x3FFC, 0xFF0, 0x3C0, 0x180, 0x3FFC, 0x0, 0x0, }, { /* 24 */ 0x0, 0x0, 0x180, 0x3C0, 0xFF0, 0x3FFC, 0x3C0, 0x3C0, 0x3C0, 0x3C0, 0x3C0, 0x3C0, 0x3C0, 0x0, 0x0, 0x0, }, { /* 25 */ 0x0, 0x0, 0x3C0, 0x3C0, 0x3C0, 0x3C0, 0x3C0, 0x3C0, 0x3C0, 0x3FFC, 0xFF0, 0x3C0, 0x180, 0x0, 0x0, 0x0, }, { /* 26 */ 0x0, 0x0, 0x0, 0x40, 0x60, 0x70, 0x78, 0x3FFC, 0x78, 0x70, 0x60, 0x40, 0x0, 0x0, 0x0, 0x0, }, { /* 27 */ 0x0, 0x0, 0x0, 0x200, 0x600, 0xE00, 0x1E00, 0x3FFC, 0x1E00, 0xE00, 0x600, 0x200, 0x0, 0x0, 0x0, 0x0, }, { /* 28 */ 0x0, 0x0, 0x0, 0x0, 0x0, 0x3800, 0x3800, 0x3800, 0x3800, 0x3FFE, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, }, { /* 29 */ 0x0, 0x0, 0x0, 0x0, 0x420, 0xC30, 0x1C38, 0x3FFC, 0x1C38, 0xC30, 0x420, 0x0, 0x0, 0x0, 0x0, 0x0, }, { /* 30 */ 0x0, 0x0, 0x0, 0x0, 0x180, 0x7E0, 0x7E0, 0x1FF8, 0x1FF8, 0x7FFE, 0x7FFE, 0x0, 0x0, 0x0, 0x0, 0x0, }, { /* 31 */ 0x0, 0x0, 0x0, 0x0, 0xFFFC, 0xFFFC, 0x3FF0, 0x3FF0, 0xFC0, 0xFC0, 0x300, 0x0, 0x0, 0x0, 0x0, 0x0, }, { /* 32 */ 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, }, { /* 33 */ 0x0, 0x0, 0x3C0, 0x7E0, 0x7E0, 0x7E0, 0x3C0, 0x3C0, 0x3C0, 0x0, 0x3C0, 0x3C0, 0x0, 0x0, 0x0, 0x0, }, { /* 34 */ 0x0, 0x3C3C, 0x3C3C, 0x3C3C, 0xC30, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, }, { /* 35 */ 0x0, 0x0, 0x0, 0x1C38, 0x1C38, 0x7FFE, 0x1C38, 0x1C38, 0x1C38, 0x7FFE, 0x1C38, 0x1C38, 0x0, 0x0, 0x0, 0x0, }, { /* 36 */ 0x0, 0x1E0, 0x1E0, 0x1FF8, 0x781E, 0x7806, 0x7800, 0x1FF8, 0x1E, 0x601E, 0x781E, 0x1FF8, 0x1E0, 0x1E0, 0x0, 0x0, }, { /* 37 */ 0x0, 0x0, 0x0, 0x0, 0x7806, 0x781E, 0x78, 0x1E0, 0x780, 0x1E00, 0x781E, 0x601E, 0x0, 0x0, 0x0, 0x0, }, { /* 38 */ 0x0, 0x0, 0x7E0, 0x1E78, 0x1E78, 0x7E0, 0x1F9E, 0x79F8, 0x7878, 0x7878, 0x7878, 0x1F9E, 0x0, 0x0, 0x0, 0x0, }, { /* 39 */ 0x0, 0xF00, 0xF00, 0xF00, 0x3C00, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, }, { /* 40 */ 0x0, 0x0, 0xF0, 0x3C0, 0xF00, 0xF00, 0xF00, 0xF00, 0xF00, 0xF00, 0x3C0, 0xF0, 0x0, 0x0, 0x0, 0x0, }, { /* 41 */ 0x0, 0x0, 0xF00, 0x3C0, 0xF0, 0xF0, 0xF0, 0xF0, 0xF0, 0xF0, 0x3C0, 0xF00, 0x0, 0x0, 0x0, 0x0, }, { /* 42 */ 0x0, 0x0, 0x0, 0x0, 0x0, 0x3C3C, 0xFF0, 0x7FFE, 0xFF0, 0x3C3C, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, }, { /* 43 */ 0x0, 0x0, 0x0, 0x0, 0x0, 0x3C0, 0x3C0, 0x3FFC, 0x3C0, 0x3C0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, }, { /* 44 */ 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x3C0, 0x3C0, 0x3C0, 0xF00, 0x0, 0x0, 0x0, }, { /* 45 */ 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x3FFC, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, }, { /* 46 */ 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x3C0, 0x3C0, 0x0, 0x0, 0x0, 0x0, }, { /* 47 */ 0x0, 0x0, 0x0, 0x0, 0x6, 0x1E, 0x78, 0x1E0, 0x780, 0x1E00, 0x7800, 0x6000, 0x0, 0x0, 0x0, 0x0, }, { /* 48 */ 0x0, 0x0, 0x1FF8, 0x781E, 0x781E, 0x787E, 0x799E, 0x799E, 0x7E1E, 0x781E, 0x781E, 0x1FF8, 0x0, 0x0, 0x0, 0x0, }, { /* 49 */ 0x0, 0x0, 0x3C0, 0xFC0, 0x3FC0, 0x3C0, 0x3C0, 0x3C0, 0x3C0, 0x3C0, 0x3C0, 0x3FFC, 0x0, 0x0, 0x0, 0x0, }, { /* 50 */ 0x0, 0x0, 0x1FF8, 0x781E, 0x1E, 0x78, 0x1E0, 0x780, 0x1E00, 0x7800, 0x781E, 0x7FFE, 0x0, 0x0, 0x0, 0x0, }, { /* 51 */ 0x0, 0x0, 0x1FF8, 0x781E, 0x1E, 0x1E, 0x7F8, 0x1E, 0x1E, 0x1E, 0x781E, 0x1FF8, 0x0, 0x0, 0x0, 0x0, }, { /* 52 */ 0x0, 0x0, 0x78, 0x1F8, 0x7F8, 0x1E78, 0x7878, 0x7FFE, 0x78, 0x78, 0x78, 0x1FE, 0x0, 0x0, 0x0, 0x0, }, { /* 53 */ 0x0, 0x0, 0x7FFE, 0x7800, 0x7800, 0x7800, 0x7FF8, 0x7E, 0x1E, 0x1E, 0x781E, 0x1FF8, 0x0, 0x0, 0x0, 0x0, }, { /* 54 */ 0x0, 0x0, 0x7E0, 0x1E00, 0x7800, 0x7800, 0x7FF8, 0x781E, 0x781E, 0x781E, 0x781E, 0x1FF8, 0x0, 0x0, 0x0, 0x0, }, { /* 55 */ 0x0, 0x0, 0x7FFE, 0x781E, 0x1E, 0x1E, 0x78, 0x1E0, 0x780, 0x780, 0x780, 0x780, 0x0, 0x0, 0x0, 0x0, }, { /* 56 */ 0x0, 0x0, 0x1FF8, 0x781E, 0x781E, 0x781E, 0x1FF8, 0x781E, 0x781E, 0x781E, 0x781E, 0x1FF8, 0x0, 0x0, 0x0, 0x0, }, { /* 57 */ 0x0, 0x0, 0x1FF8, 0x781E, 0x781E, 0x781E, 0x1FFE, 0x1E, 0x1E, 0x1E, 0x78, 0x1FE0, 0x0, 0x0, 0x0, 0x0, }, { /* 58 */ 0x0, 0x0, 0x0, 0x0, 0x3C0, 0x3C0, 0x0, 0x0, 0x0, 0x3C0, 0x3C0, 0x0, 0x0, 0x0, 0x0, 0x0, }, { /* 59 */ 0x0, 0x0, 0x0, 0x0, 0x3C0, 0x3C0, 0x0, 0x0, 0x0, 0x3C0, 0x3C0, 0xF00, 0x0, 0x0, 0x0, 0x0, }, { /* 60 */ 0x0, 0x0, 0x0, 0x3C, 0xF0, 0x3C0, 0xF00, 0x3C00, 0xF00, 0x3C0, 0xF0, 0x3C, 0x0, 0x0, 0x0, 0x0, }, { /* 61 */ 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x3FFC, 0x0, 0x0, 0x3FFC, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, }, { /* 62 */ 0x0, 0x0, 0x0, 0x3C00, 0xF00, 0x3C0, 0xF0, 0x3C, 0xF0, 0x3C0, 0xF00, 0x3C00, 0x0, 0x0, 0x0, 0x0, }, { /* 63 */ 0x0, 0x0, 0x1FF8, 0x781E, 0x781E, 0x78, 0x1E0, 0x1E0, 0x1E0, 0x0, 0x1E0, 0x1E0, 0x0, 0x0, 0x0, 0x0, }, { /* 64 */ 0x0, 0x0, 0x0, 0x1FF8, 0x781E, 0x781E, 0x79FE, 0x79FE, 0x79FE, 0x79F8, 0x7800, 0x1FF8, 0x0, 0x0, 0x0, 0x0, }, { /* 65 */ 0x0, 0x0, 0x180, 0x7E0, 0x1E78, 0x781E, 0x781E, 0x7FFE, 0x781E, 0x781E, 0x781E, 0x781E, 0x0, 0x0, 0x0, 0x0, }, { /* 66 */ 0x0, 0x0, 0x7FF8, 0x1E1E, 0x1E1E, 0x1E1E, 0x1FF8, 0x1E1E, 0x1E1E, 0x1E1E, 0x1E1E, 0x7FF8, 0x0, 0x0, 0x0, 0x0, }, { /* 67 */ 0x0, 0x0, 0x7F8, 0x1E1E, 0x7806, 0x7800, 0x7800, 0x7800, 0x7800, 0x7806, 0x1E1E, 0x7F8, 0x0, 0x0, 0x0, 0x0, }, { /* 68 */ 0x0, 0x0, 0x7FE0, 0x1E78, 0x1E1E, 0x1E1E, 0x1E1E, 0x1E1E, 0x1E1E, 0x1E1E, 0x1E78, 0x7FE0, 0x0, 0x0, 0x0, 0x0, }, { /* 69 */ 0x0, 0x0, 0x7FFE, 0x1E1E, 0x1E06, 0x1E60, 0x1FE0, 0x1E60, 0x1E00, 0x1E06, 0x1E1E, 0x7FFE, 0x0, 0x0, 0x0, 0x0, }, { /* 70 */ 0x0, 0x0, 0x7FFE, 0x1E1E, 0x1E06, 0x1E60, 0x1FE0, 0x1E60, 0x1E00, 0x1E00, 0x1E00, 0x7F80, 0x0, 0x0, 0x0, 0x0, }, { /* 71 */ 0x0, 0x0, 0x7F8, 0x1E1E, 0x7806, 0x7800, 0x7800, 0x79FE, 0x781E, 0x781E, 0x1E1E, 0x7E6, 0x0, 0x0, 0x0, 0x0, }, { /* 72 */ 0x0, 0x0, 0x781E, 0x781E, 0x781E, 0x781E, 0x7FFE, 0x781E, 0x781E, 0x781E, 0x781E, 0x781E, 0x0, 0x0, 0x0, 0x0, }, { /* 73 */ 0x0, 0x0, 0x7F8, 0x1E0, 0x1E0, 0x1E0, 0x1E0, 0x1E0, 0x1E0, 0x1E0, 0x1E0, 0x7F8, 0x0, 0x0, 0x0, 0x0, }, { /* 74 */ 0x0, 0x0, 0x1FE, 0x78, 0x78, 0x78, 0x78, 0x78, 0x7878, 0x7878, 0x7878, 0x1FE0, 0x0, 0x0, 0x0, 0x0, }, { /* 75 */ 0x0, 0x0, 0x7E1E, 0x1E1E, 0x1E78, 0x1E78, 0x1FE0, 0x1FE0, 0x1E78, 0x1E1E, 0x1E1E, 0x7E1E, 0x0, 0x0, 0x0, 0x0, }, { /* 76 */ 0x0, 0x0, 0x7F80, 0x1E00, 0x1E00, 0x1E00, 0x1E00, 0x1E00, 0x1E00, 0x1E06, 0x1E1E, 0x7FFE, 0x0, 0x0, 0x0, 0x0, }, { /* 77 */ 0x0, 0x0, 0x781E, 0x7E7E, 0x7FFE, 0x7FFE, 0x799E, 0x781E, 0x781E, 0x781E, 0x781E, 0x781E, 0x0, 0x0, 0x0, 0x0, }, { /* 78 */ 0x0, 0x0, 0x781E, 0x7E1E, 0x7F9E, 0x7FFE, 0x79FE, 0x787E, 0x781E, 0x781E, 0x781E, 0x781E, 0x0, 0x0, 0x0, 0x0, }, { /* 79 */ 0x0, 0x0, 0x7E0, 0x1E78, 0x781E, 0x781E, 0x781E, 0x781E, 0x781E, 0x781E, 0x1E78, 0x7E0, 0x0, 0x0, 0x0, 0x0, }, { /* 80 */ 0x0, 0x0, 0x7FF8, 0x1E1E, 0x1E1E, 0x1E1E, 0x1FF8, 0x1E00, 0x1E00, 0x1E00, 0x1E00, 0x7F80, 0x0, 0x0, 0x0, 0x0, }, { /* 81 */ 0x0, 0x0, 0x1FF8, 0x781E, 0x781E, 0x781E, 0x781E, 0x781E, 0x781E, 0x799E, 0x79FE, 0x1FF8, 0x78, 0x7E, 0x0, 0x0, }, { /* 82 */ 0x0, 0x0, 0x7FF8, 0x1E1E, 0x1E1E, 0x1E1E, 0x1FF8, 0x1E78, 0x1E1E, 0x1E1E, 0x1E1E, 0x7E1E, 0x0, 0x0, 0x0, 0x0, }, { /* 83 */ 0x0, 0x0, 0x1FF8, 0x781E, 0x781E, 0x1E00, 0x7E0, 0x78, 0x1E, 0x781E, 0x781E, 0x1FF8, 0x0, 0x0, 0x0, 0x0, }, { /* 84 */ 0x0, 0x0, 0x1FFE, 0x1FFE, 0x19E6, 0x1E0, 0x1E0, 0x1E0, 0x1E0, 0x1E0, 0x1E0, 0x7F8, 0x0, 0x0, 0x0, 0x0, }, { /* 85 */ 0x0, 0x0, 0x781E, 0x781E, 0x781E, 0x781E, 0x781E, 0x781E, 0x781E, 0x781E, 0x781E, 0x1FF8, 0x0, 0x0, 0x0, 0x0, }, { /* 86 */ 0x0, 0x0, 0x781E, 0x781E, 0x781E, 0x781E, 0x781E, 0x781E, 0x781E, 0x1E78, 0x7E0, 0x180, 0x0, 0x0, 0x0, 0x0, }, { /* 87 */ 0x0, 0x0, 0x781E, 0x781E, 0x781E, 0x781E, 0x781E, 0x799E, 0x799E, 0x7FFE, 0x1E78, 0x1E78, 0x0, 0x0, 0x0, 0x0, }, { /* 88 */ 0x0, 0x0, 0x781E, 0x781E, 0x1E78, 0x1E78, 0x7E0, 0x7E0, 0x1E78, 0x1E78, 0x781E, 0x781E, 0x0, 0x0, 0x0, 0x0, }, { /* 89 */ 0x0, 0x0, 0x3C3C, 0x3C3C, 0x3C3C, 0x3C3C, 0xFF0, 0x3C0, 0x3C0, 0x3C0, 0x3C0, 0xFF0, 0x0, 0x0, 0x0, 0x0, }, { /* 90 */ 0x0, 0x0, 0x7FFE, 0x781E, 0x601E, 0x78, 0x1E0, 0x780, 0x1E00, 0x7806, 0x781E, 0x7FFE, 0x0, 0x0, 0x0, 0x0, }, { /* 91 */ 0x0, 0x0, 0xFF0, 0xF00, 0xF00, 0xF00, 0xF00, 0xF00, 0xF00, 0xF00, 0xF00, 0xFF0, 0x0, 0x0, 0x0, 0x0, }, { /* 92 */ 0x0, 0x0, 0x0, 0x6000, 0x7800, 0x7E00, 0x1F80, 0x7E0, 0x1F8, 0x7E, 0x1E, 0x6, 0x0, 0x0, 0x0, 0x0, }, { /* 93 */ 0x0, 0x0, 0xFF0, 0xF0, 0xF0, 0xF0, 0xF0, 0xF0, 0xF0, 0xF0, 0xF0, 0xFF0, 0x0, 0x0, 0x0, 0x0, }, { /* 94 */ 0x180, 0x7E0, 0x1E78, 0x781E, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, }, { /* 95 */ 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0xFFFF, 0x0, 0x0, }, { /* 96 */ 0xF00, 0xF00, 0x3C0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, }, { /* 97 */ 0x0, 0x0, 0x0, 0x0, 0x0, 0x1FE0, 0x78, 0x1FF8, 0x7878, 0x7878, 0x7878, 0x1F9E, 0x0, 0x0, 0x0, 0x0, }, { /* 98 */ 0x0, 0x0, 0x7E00, 0x1E00, 0x1E00, 0x1FE0, 0x1E78, 0x1E1E, 0x1E1E, 0x1E1E, 0x1E1E, 0x79F8, 0x0, 0x0, 0x0, 0x0, }, { /* 99 */ 0x0, 0x0, 0x0, 0x0, 0x0, 0x1FF8, 0x781E, 0x7800, 0x7800, 0x7800, 0x781E, 0x1FF8, 0x0, 0x0, 0x0, 0x0, }, { /* 100 */ 0x0, 0x0, 0x1F8, 0x78, 0x78, 0x7F8, 0x1E78, 0x7878, 0x7878, 0x7878, 0x7878, 0x1F9E, 0x0, 0x0, 0x0, 0x0, }, { /* 101 */ 0x0, 0x0, 0x0, 0x0, 0x0, 0x1FF8, 0x781E, 0x7FFE, 0x7800, 0x7800, 0x781E, 0x1FF8, 0x0, 0x0, 0x0, 0x0, }, { /* 102 */ 0x0, 0x0, 0x7E0, 0x1E78, 0x1E18, 0x1E00, 0x7F80, 0x1E00, 0x1E00, 0x1E00, 0x1E00, 0x7F80, 0x0, 0x0, 0x0, 0x0, }, { /* 103 */ 0x0, 0x0, 0x0, 0x0, 0x0, 0x1F9E, 0x7878, 0x7878, 0x7878, 0x7878, 0x7878, 0x1FF8, 0x78, 0x7878, 0x1FE0, 0x0, }, { /* 104 */ 0x0, 0x0, 0x7E00, 0x1E00, 0x1E00, 0x1E78, 0x1F9E, 0x1E1E, 0x1E1E, 0x1E1E, 0x1E1E, 0x7E1E, 0x0, 0x0, 0x0, 0x0, }, { /* 105 */ 0x0, 0x0, 0x1E0, 0x1E0, 0x0, 0x7E0, 0x1E0, 0x1E0, 0x1E0, 0x1E0, 0x1E0, 0x7F8, 0x0, 0x0, 0x0, 0x0, }, { /* 106 */ 0x0, 0x0, 0x1E, 0x1E, 0x0, 0x7E, 0x1E, 0x1E, 0x1E, 0x1E, 0x1E, 0x1E, 0x1E1E, 0x1E1E, 0x7F8, 0x0, }, { /* 107 */ 0x0, 0x0, 0x7E00, 0x1E00, 0x1E00, 0x1E1E, 0x1E78, 0x1FE0, 0x1FE0, 0x1E78, 0x1E1E, 0x7E1E, 0x0, 0x0, 0x0, 0x0, }, { /* 108 */ 0x0, 0x0, 0x7E0, 0x1E0, 0x1E0, 0x1E0, 0x1E0, 0x1E0, 0x1E0, 0x1E0, 0x1E0, 0x7F8, 0x0, 0x0, 0x0, 0x0, }, { /* 109 */ 0x0, 0x0, 0x0, 0x0, 0x0, 0x7E78, 0x7FFE, 0x799E, 0x799E, 0x799E, 0x799E, 0x799E, 0x0, 0x0, 0x0, 0x0, }, { /* 110 */ 0x0, 0x0, 0x0, 0x0, 0x0, 0x79F8, 0x1E1E, 0x1E1E, 0x1E1E, 0x1E1E, 0x1E1E, 0x1E1E, 0x0, 0x0, 0x0, 0x0, }, { /* 111 */ 0x0, 0x0, 0x0, 0x0, 0x0, 0x1FF8, 0x781E, 0x781E, 0x781E, 0x781E, 0x781E, 0x1FF8, 0x0, 0x0, 0x0, 0x0, }, { /* 112 */ 0x0, 0x0, 0x0, 0x0, 0x0, 0x79F8, 0x1E1E, 0x1E1E, 0x1E1E, 0x1E1E, 0x1E1E, 0x1FF8, 0x1E00, 0x1E00, 0x7F80, 0x0, }, { /* 113 */ 0x0, 0x0, 0x0, 0x0, 0x0, 0x1F9E, 0x7878, 0x7878, 0x7878, 0x7878, 0x7878, 0x1FF8, 0x78, 0x78, 0x1FE, 0x0, }, { /* 114 */ 0x0, 0x0, 0x0, 0x0, 0x0, 0x79F8, 0x1F9E, 0x1E06, 0x1E00, 0x1E00, 0x1E00, 0x7F80, 0x0, 0x0, 0x0, 0x0, }, { /* 115 */ 0x0, 0x0, 0x0, 0x0, 0x0, 0x1FF8, 0x781E, 0x1E00, 0x7E0, 0x78, 0x781E, 0x1FF8, 0x0, 0x0, 0x0, 0x0, }, { /* 116 */ 0x0, 0x0, 0x180, 0x780, 0x780, 0x7FF8, 0x780, 0x780, 0x780, 0x780, 0x79E, 0x1F8, 0x0, 0x0, 0x0, 0x0, }, { /* 117 */ 0x0, 0x0, 0x0, 0x0, 0x0, 0x7878, 0x7878, 0x7878, 0x7878, 0x7878, 0x7878, 0x1F9E, 0x0, 0x0, 0x0, 0x0, }, { /* 118 */ 0x0, 0x0, 0x0, 0x0, 0x0, 0x1E1E, 0x1E1E, 0x1E1E, 0x1E1E, 0x1E1E, 0x7F8, 0x1E0, 0x0, 0x0, 0x0, 0x0, }, { /* 119 */ 0x0, 0x0, 0x0, 0x0, 0x0, 0x781E, 0x781E, 0x781E, 0x799E, 0x799E, 0x7FFE, 0x1E78, 0x0, 0x0, 0x0, 0x0, }, { /* 120 */ 0x0, 0x0, 0x0, 0x0, 0x0, 0x781E, 0x1E78, 0x7E0, 0x7E0, 0x7E0, 0x1E78, 0x781E, 0x0, 0x0, 0x0, 0x0, }, { /* 121 */ 0x0, 0x0, 0x0, 0x0, 0x0, 0x781E, 0x781E, 0x781E, 0x781E, 0x781E, 0x781E, 0x1FFE, 0x1E, 0x78, 0x7FE0, 0x0, }, { /* 122 */ 0x0, 0x0, 0x0, 0x0, 0x0, 0x7FFE, 0x7878, 0x1E0, 0x780, 0x1E00, 0x781E, 0x7FFE, 0x0, 0x0, 0x0, 0x0, }, { /* 123 */ 0x0, 0x0, 0xFC, 0x3C0, 0x3C0, 0x3C0, 0xF00, 0x3C0, 0x3C0, 0x3C0, 0x3C0, 0xFC, 0x0, 0x0, 0x0, 0x0, }, { /* 124 */ 0x0, 0x3C0, 0x3C0, 0x3C0, 0x3C0, 0x3C0, 0x3C0, 0x0, 0x0, 0x3C0, 0x3C0, 0x3C0, 0x3C0, 0x3C0, 0x3C0, 0x0, }, { /* 125 */ 0x0, 0x0, 0x3F00, 0x3C0, 0x3C0, 0x3C0, 0xF0, 0x3C0, 0x3C0, 0x3C0, 0x3C0, 0x3F00, 0x0, 0x0, 0x0, 0x0, }, { /* 126 */ 0x0, 0x0, 0x1F9E, 0x79F8, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, }, { /* 127 */ 0x0, 0x0, 0x0, 0x0, 0x180, 0x7E0, 0x1E78, 0x781E, 0x781E, 0x781E, 0x7FFE, 0x0, 0x0, 0x0, 0x0, 0x0, }, { /* 128 */ 0x0, 0x0, 0x7F8, 0x1E1E, 0x7806, 0x7800, 0x7800, 0x7800, 0x7806, 0x1E1E, 0x7F8, 0x78, 0x1E, 0x1FF8, 0x0, 0x0, }, { /* 129 */ 0x0, 0x0, 0x7878, 0x7878, 0x0, 0x7878, 0x7878, 0x7878, 0x7878, 0x7878, 0x7878, 0x1F9E, 0x0, 0x0, 0x0, 0x0, }, { /* 130 */ 0x0, 0x78, 0x1E0, 0x780, 0x0, 0x1FF8, 0x781E, 0x7FFE, 0x7800, 0x7800, 0x781E, 0x1FF8, 0x0, 0x0, 0x0, 0x0, }, { /* 131 */ 0x0, 0x180, 0x7E0, 0x1E78, 0x0, 0x1FE0, 0x78, 0x1FF8, 0x7878, 0x7878, 0x7878, 0x1F9E, 0x0, 0x0, 0x0, 0x0, }, { /* 132 */ 0x0, 0x0, 0x7878, 0x7878, 0x0, 0x1FE0, 0x78, 0x1FF8, 0x7878, 0x7878, 0x7878, 0x1F9E, 0x0, 0x0, 0x0, 0x0, }, { /* 133 */ 0x0, 0x1E00, 0x780, 0x1E0, 0x0, 0x1FE0, 0x78, 0x1FF8, 0x7878, 0x7878, 0x7878, 0x1F9E, 0x0, 0x0, 0x0, 0x0, }, { /* 134 */ 0x0, 0x7E0, 0x1E78, 0x7E0, 0x0, 0x1FE0, 0x78, 0x1FF8, 0x7878, 0x7878, 0x7878, 0x1F9E, 0x0, 0x0, 0x0, 0x0, }, { /* 135 */ 0x0, 0x0, 0x0, 0x0, 0xFF0, 0x3C3C, 0x3C00, 0x3C00, 0x3C3C, 0xFF0, 0xF0, 0x3C, 0xFF0, 0x0, 0x0, 0x0, }, { /* 136 */ 0x0, 0x180, 0x7E0, 0x1E78, 0x0, 0x1FF8, 0x781E, 0x7FFE, 0x7800, 0x7800, 0x781E, 0x1FF8, 0x0, 0x0, 0x0, 0x0, }, { /* 137 */ 0x0, 0x0, 0x781E, 0x781E, 0x0, 0x1FF8, 0x781E, 0x7FFE, 0x7800, 0x7800, 0x781E, 0x1FF8, 0x0, 0x0, 0x0, 0x0, }, { /* 138 */ 0x0, 0x1E00, 0x780, 0x1E0, 0x0, 0x1FF8, 0x781E, 0x7FFE, 0x7800, 0x7800, 0x781E, 0x1FF8, 0x0, 0x0, 0x0, 0x0, }, { /* 139 */ 0x0, 0x0, 0x3C3C, 0x3C3C, 0x0, 0xFC0, 0x3C0, 0x3C0, 0x3C0, 0x3C0, 0x3C0, 0xFF0, 0x0, 0x0, 0x0, 0x0, }, { /* 140 */ 0x0, 0x3C0, 0xFF0, 0x3C3C, 0x0, 0xFC0, 0x3C0, 0x3C0, 0x3C0, 0x3C0, 0x3C0, 0xFF0, 0x0, 0x0, 0x0, 0x0, }, { /* 141 */ 0x0, 0x3C00, 0xF00, 0x3C0, 0x0, 0xFC0, 0x3C0, 0x3C0, 0x3C0, 0x3C0, 0x3C0, 0xFF0, 0x0, 0x0, 0x0, 0x0, }, { /* 142 */ 0x0, 0x781E, 0x781E, 0x180, 0x7E0, 0x1E78, 0x781E, 0x781E, 0x7FFE, 0x781E, 0x781E, 0x781E, 0x0, 0x0, 0x0, 0x0, }, { /* 143 */ 0x7E0, 0x1E78, 0x7E0, 0x0, 0x7E0, 0x1E78, 0x781E, 0x781E, 0x7FFE, 0x781E, 0x781E, 0x781E, 0x0, 0x0, 0x0, 0x0, }, { /* 144 */ 0x1E0, 0x780, 0x1E00, 0x0, 0x7FFE, 0x1E1E, 0x1E00, 0x1FF8, 0x1E00, 0x1E00, 0x1E1E, 0x7FFE, 0x0, 0x0, 0x0, 0x0, }, { /* 145 */ 0x0, 0x0, 0x0, 0x0, 0x0, 0x7878, 0x1F9E, 0x79E, 0x1FFE, 0x79E0, 0x79E0, 0x1E7E, 0x0, 0x0, 0x0, 0x0, }, { /* 146 */ 0x0, 0x0, 0x7FE, 0x1E78, 0x7878, 0x7878, 0x7FFE, 0x7878, 0x7878, 0x7878, 0x7878, 0x787E, 0x0, 0x0, 0x0, 0x0, }, { /* 147 */ 0x0, 0x180, 0x7E0, 0x1E78, 0x0, 0x1FF8, 0x781E, 0x781E, 0x781E, 0x781E, 0x781E, 0x1FF8, 0x0, 0x0, 0x0, 0x0, }, { /* 148 */ 0x0, 0x0, 0x781E, 0x781E, 0x0, 0x1FF8, 0x781E, 0x781E, 0x781E, 0x781E, 0x781E, 0x1FF8, 0x0, 0x0, 0x0, 0x0, }, { /* 149 */ 0x0, 0x1E00, 0x780, 0x1E0, 0x0, 0x1FF8, 0x781E, 0x781E, 0x781E, 0x781E, 0x781E, 0x1FF8, 0x0, 0x0, 0x0, 0x0, }, { /* 150 */ 0x0, 0x780, 0x1FE0, 0x7878, 0x0, 0x7878, 0x7878, 0x7878, 0x7878, 0x7878, 0x7878, 0x1F9E, 0x0, 0x0, 0x0, 0x0, }, { /* 151 */ 0x0, 0x1E00, 0x780, 0x1E0, 0x0, 0x7878, 0x7878, 0x7878, 0x7878, 0x7878, 0x7878, 0x1F9E, 0x0, 0x0, 0x0, 0x0, }, { /* 152 */ 0x0, 0x0, 0x781E, 0x781E, 0x0, 0x781E, 0x781E, 0x781E, 0x781E, 0x781E, 0x781E, 0x1FFE, 0x1E, 0x78, 0x1FE0, 0x0, }, { /* 153 */ 0x0, 0x781E, 0x781E, 0x0, 0x7E0, 0x1E78, 0x781E, 0x781E, 0x781E, 0x781E, 0x1E78, 0x7E0, 0x0, 0x0, 0x0, 0x0, }, { /* 154 */ 0x0, 0x781E, 0x781E, 0x0, 0x781E, 0x781E, 0x781E, 0x781E, 0x781E, 0x781E, 0x781E, 0x1FF8, 0x0, 0x0, 0x0, 0x0, }, { /* 155 */ 0x0, 0x3C0, 0x3C0, 0xFF0, 0x3C3C, 0x3C00, 0x3C00, 0x3C00, 0x3C3C, 0xFF0, 0x3C0, 0x3C0, 0x0, 0x0, 0x0, 0x0, }, { /* 156 */ 0x0, 0x7E0, 0x1E78, 0x1E18, 0x1E00, 0x7F80, 0x1E00, 0x1E00, 0x1E00, 0x1E00, 0x7E1E, 0x7FF8, 0x0, 0x0, 0x0, 0x0, }, { /* 157 */ 0x0, 0x0, 0x3C3C, 0x3C3C, 0xFF0, 0x3C0, 0x3FFC, 0x3C0, 0x3FFC, 0x3C0, 0x3C0, 0x3C0, 0x0, 0x0, 0x0, 0x0, }, { /* 158 */ 0x0, 0x7FE0, 0x7878, 0x7878, 0x7FE0, 0x7818, 0x7878, 0x79FE, 0x7878, 0x7878, 0x7878, 0x781E, 0x0, 0x0, 0x0, 0x0, }, { /* 159 */ 0x0, 0xFC, 0x3CF, 0x3C0, 0x3C0, 0x3C0, 0x3FFC, 0x3C0, 0x3C0, 0x3C0, 0x3C0, 0x3C0, 0xF3C0, 0x3F00, 0x0, 0x0, }, { /* 160 */ 0x0, 0x1E0, 0x780, 0x1E00, 0x0, 0x1FE0, 0x78, 0x1FF8, 0x7878, 0x7878, 0x7878, 0x1F9E, 0x0, 0x0, 0x0, 0x0, }, { /* 161 */ 0x0, 0xF0, 0x3C0, 0xF00, 0x0, 0xFC0, 0x3C0, 0x3C0, 0x3C0, 0x3C0, 0x3C0, 0xFF0, 0x0, 0x0, 0x0, 0x0, }, { /* 162 */ 0x0, 0x1E0, 0x780, 0x1E00, 0x0, 0x1FF8, 0x781E, 0x781E, 0x781E, 0x781E, 0x781E, 0x1FF8, 0x0, 0x0, 0x0, 0x0, }, { /* 163 */ 0x0, 0x1E0, 0x780, 0x1E00, 0x0, 0x7878, 0x7878, 0x7878, 0x7878, 0x7878, 0x7878, 0x1F9E, 0x0, 0x0, 0x0, 0x0, }, { /* 164 */ 0x0, 0x0, 0x1F9E, 0x79F8, 0x0, 0x79F8, 0x1E1E, 0x1E1E, 0x1E1E, 0x1E1E, 0x1E1E, 0x1E1E, 0x0, 0x0, 0x0, 0x0, }, { /* 165 */ 0x1F9E, 0x79F8, 0x0, 0x781E, 0x7E1E, 0x7F9E, 0x7FFE, 0x79FE, 0x787E, 0x781E, 0x781E, 0x781E, 0x0, 0x0, 0x0, 0x0, }, { /* 166 */ 0x0, 0xFF0, 0x3CF0, 0x3CF0, 0xFFC, 0x0, 0x3FFC, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, }, { /* 167 */ 0x0, 0x7E0, 0x1E78, 0x1E78, 0x7E0, 0x0, 0x1FF8, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, }, { /* 168 */ 0x0, 0x0, 0x780, 0x780, 0x0, 0x780, 0x780, 0x1E00, 0x7800, 0x781E, 0x781E, 0x1FF8, 0x0, 0x0, 0x0, 0x0, }, { /* 169 */ 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0xFFFC, 0xF000, 0xF000, 0xF000, 0xF000, 0x0, 0x0, 0x0, 0x0, 0x0, }, { /* 170 */ 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0xFFFC, 0x3C, 0x3C, 0x3C, 0x3C, 0x0, 0x0, 0x0, 0x0, 0x0, }, { /* 171 */ 0x0, 0x7000, 0x7000, 0x700C, 0x703C, 0x70F0, 0x3C0, 0xF00, 0x3C00, 0xF0FC, 0xC30E, 0x3C, 0xF0, 0x3FE, 0x0, 0x0, }, { /* 172 */ 0x0, 0x7000, 0x7000, 0x700C, 0x703C, 0x70F0, 0x3C0, 0xF00, 0x3C3C, 0xF0FC, 0xC38C, 0x7FE, 0x3C, 0xFE, 0x0, 0x0, }, { /* 173 */ 0x0, 0x0, 0x3C0, 0x3C0, 0x0, 0x3C0, 0x3C0, 0x3C0, 0x7E0, 0x7E0, 0x7E0, 0x3C0, 0x0, 0x0, 0x0, 0x0, }, { /* 174 */ 0x0, 0x0, 0x0, 0x0, 0x0, 0xE0E, 0x3C3C, 0x7070, 0x3C3C, 0xE0E, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, }, { /* 175 */ 0x0, 0x0, 0x0, 0x0, 0x0, 0x7070, 0x3C3C, 0xE0E, 0x3C3C, 0x7070, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, }, { /* 176 */ 0x303, 0x3030, 0x303, 0x3030, 0x303, 0x3030, 0x303, 0x3030, 0x303, 0x3030, 0x303, 0x3030, 0x303, 0x3030, 0x303, 0x3030, }, { /* 177 */ 0xAAAA, 0x5555, 0xAAAA, 0x5555, 0xAAAA, 0x5555, 0xAAAA, 0x5555, 0xAAAA, 0x5555, 0xAAAA, 0x5555, 0xAAAA, 0x5555, 0xAAAA, 0x5555, }, { /* 178 */ 0xF3F3, 0x3F3F, 0xF3F3, 0x3F3F, 0xF3F3, 0x3F3F, 0xF3F3, 0x3F3F, 0xF3F3, 0x3F3F, 0xF3F3, 0x3F3F, 0xF3F3, 0x3F3F, 0xF3F3, 0x3F3F, }, { /* 179 */ 0x3C0, 0x3C0, 0x3C0, 0x3C0, 0x3C0, 0x3C0, 0x3C0, 0x3C0, 0x3C0, 0x3C0, 0x3C0, 0x3C0, 0x3C0, 0x3C0, 0x3C0, 0x3C0, }, { /* 180 */ 0x3C0, 0x3C0, 0x3C0, 0x3C0, 0x3C0, 0x3C0, 0x3C0, 0xFFC0, 0x3C0, 0x3C0, 0x3C0, 0x3C0, 0x3C0, 0x3C0, 0x3C0, 0x3C0, }, { /* 181 */ 0x3C0, 0x3C0, 0x3C0, 0x3C0, 0x3C0, 0xFFC0, 0x3C0, 0xFFC0, 0x3C0, 0x3C0, 0x3C0, 0x3C0, 0x3C0, 0x3C0, 0x3C0, 0x3C0, }, { /* 182 */ 0xF3C, 0xF3C, 0xF3C, 0xF3C, 0xF3C, 0xF3C, 0xF3C, 0xFF3C, 0xF3C, 0xF3C, 0xF3C, 0xF3C, 0xF3C, 0xF3C, 0xF3C, 0xF3C, }, { /* 183 */ 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0xFFFC, 0xF3C, 0xF3C, 0xF3C, 0xF3C, 0xF3C, 0xF3C, 0xF3C, 0xF3C, }, { /* 184 */ 0x0, 0x0, 0x0, 0x0, 0x0, 0xFFC0, 0x3C0, 0xFFC0, 0x3C0, 0x3C0, 0x3C0, 0x3C0, 0x3C0, 0x3C0, 0x3C0, 0x3C0, }, { /* 185 */ 0xF3C, 0xF3C, 0xF3C, 0xF3C, 0xF3C, 0xFF3C, 0x3C, 0xFF3C, 0xF3C, 0xF3C, 0xF3C, 0xF3C, 0xF3C, 0xF3C, 0xF3C, 0xF3C, }, { /* 186 */ 0xF3C, 0xF3C, 0xF3C, 0xF3C, 0xF3C, 0xF3C, 0xF3C, 0xF3C, 0xF3C, 0xF3C, 0xF3C, 0xF3C, 0xF3C, 0xF3C, 0xF3C, 0xF3C, }, { /* 187 */ 0x0, 0x0, 0x0, 0x0, 0x0, 0xFFFC, 0x3C, 0xFF3C, 0xF3C, 0xF3C, 0xF3C, 0xF3C, 0xF3C, 0xF3C, 0xF3C, 0xF3C, }, { /* 188 */ 0xF3C, 0xF3C, 0xF3C, 0xF3C, 0xF3C, 0xFF3C, 0x3C, 0xFFFC, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, }, { /* 189 */ 0xF3C, 0xF3C, 0xF3C, 0xF3C, 0xF3C, 0xF3C, 0xF3C, 0xFFFC, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, }, { /* 190 */ 0x3C0, 0x3C0, 0x3C0, 0x3C0, 0x3C0, 0xFFC0, 0x3C0, 0xFFC0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, }, { /* 191 */ 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0xFFC0, 0x3C0, 0x3C0, 0x3C0, 0x3C0, 0x3C0, 0x3C0, 0x3C0, 0x3C0, }, { /* 192 */ 0x3C0, 0x3C0, 0x3C0, 0x3C0, 0x3C0, 0x3C0, 0x3C0, 0x3FF, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, }, { /* 193 */ 0x3C0, 0x3C0, 0x3C0, 0x3C0, 0x3C0, 0x3C0, 0x3C0, 0xFFFF, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, }, { /* 194 */ 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0xFFFF, 0x3C0, 0x3C0, 0x3C0, 0x3C0, 0x3C0, 0x3C0, 0x3C0, 0x3C0, }, { /* 195 */ 0x3C0, 0x3C0, 0x3C0, 0x3C0, 0x3C0, 0x3C0, 0x3C0, 0x3FF, 0x3C0, 0x3C0, 0x3C0, 0x3C0, 0x3C0, 0x3C0, 0x3C0, 0x3C0, }, { /* 196 */ 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0xFFFF, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, }, { /* 197 */ 0x3C0, 0x3C0, 0x3C0, 0x3C0, 0x3C0, 0x3C0, 0x3C0, 0xFFFF, 0x3C0, 0x3C0, 0x3C0, 0x3C0, 0x3C0, 0x3C0, 0x3C0, 0x3C0, }, { /* 198 */ 0x3C0, 0x3C0, 0x3C0, 0x3C0, 0x3C0, 0x3FF, 0x3C0, 0x3FF, 0x3C0, 0x3C0, 0x3C0, 0x3C0, 0x3C0, 0x3C0, 0x3C0, 0x3C0, }, { /* 199 */ 0xF3C, 0xF3C, 0xF3C, 0xF3C, 0xF3C, 0xF3C, 0xF3C, 0xF3F, 0xF3C, 0xF3C, 0xF3C, 0xF3C, 0xF3C, 0xF3C, 0xF3C, 0xF3C, }, { /* 200 */ 0xF3C, 0xF3C, 0xF3C, 0xF3C, 0xF3C, 0xF3F, 0xF00, 0xFFF, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, }, { /* 201 */ 0x0, 0x0, 0x0, 0x0, 0x0, 0xFFF, 0xF00, 0xF3F, 0xF3C, 0xF3C, 0xF3C, 0xF3C, 0xF3C, 0xF3C, 0xF3C, 0xF3C, }, { /* 202 */ 0xF3C, 0xF3C, 0xF3C, 0xF3C, 0xF3C, 0xFF3F, 0x0, 0xFFFF, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, }, { /* 203 */ 0x0, 0x0, 0x0, 0x0, 0x0, 0xFFFF, 0x0, 0xFF3F, 0xF3C, 0xF3C, 0xF3C, 0xF3C, 0xF3C, 0xF3C, 0xF3C, 0xF3C, }, { /* 204 */ 0xF3C, 0xF3C, 0xF3C, 0xF3C, 0xF3C, 0xF3F, 0xF00, 0xF3F, 0xF3C, 0xF3C, 0xF3C, 0xF3C, 0xF3C, 0xF3C, 0xF3C, 0xF3C, }, { /* 205 */ 0x0, 0x0, 0x0, 0x0, 0x0, 0xFFFF, 0x0, 0xFFFF, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, }, { /* 206 */ 0xF3C, 0xF3C, 0xF3C, 0xF3C, 0xF3C, 0xFF3F, 0x0, 0xFF3F, 0xF3C, 0xF3C, 0xF3C, 0xF3C, 0xF3C, 0xF3C, 0xF3C, 0xF3C, }, { /* 207 */ 0x3C0, 0x3C0, 0x3C0, 0x3C0, 0x3C0, 0xFFFF, 0x0, 0xFFFF, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, }, { /* 208 */ 0xF3C, 0xF3C, 0xF3C, 0xF3C, 0xF3C, 0xF3C, 0xF3C, 0xFFFF, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, }, { /* 209 */ 0x0, 0x0, 0x0, 0x0, 0x0, 0xFFFF, 0x0, 0xFFFF, 0x3C0, 0x3C0, 0x3C0, 0x3C0, 0x3C0, 0x3C0, 0x3C0, 0x3C0, }, { /* 210 */ 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0xFFFF, 0xF3C, 0xF3C, 0xF3C, 0xF3C, 0xF3C, 0xF3C, 0xF3C, 0xF3C, }, { /* 211 */ 0xF3C, 0xF3C, 0xF3C, 0xF3C, 0xF3C, 0xF3C, 0xF3C, 0xFFF, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, }, { /* 212 */ 0x3C0, 0x3C0, 0x3C0, 0x3C0, 0x3C0, 0x3FF, 0x3C0, 0x3FF, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, }, { /* 213 */ 0x0, 0x0, 0x0, 0x0, 0x0, 0x3FF, 0x3C0, 0x3FF, 0x3C0, 0x3C0, 0x3C0, 0x3C0, 0x3C0, 0x3C0, 0x3C0, 0x3C0, }, { /* 214 */ 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0xFFF, 0xF3C, 0xF3C, 0xF3C, 0xF3C, 0xF3C, 0xF3C, 0xF3C, 0xF3C, }, { /* 215 */ 0xF3C, 0xF3C, 0xF3C, 0xF3C, 0xF3C, 0xF3C, 0xF3C, 0xFFFF, 0xF3C, 0xF3C, 0xF3C, 0xF3C, 0xF3C, 0xF3C, 0xF3C, 0xF3C, }, { /* 216 */ 0x3C0, 0x3C0, 0x3C0, 0x3C0, 0x3C0, 0xFFFF, 0x3C0, 0xFFFF, 0x3C0, 0x3C0, 0x3C0, 0x3C0, 0x3C0, 0x3C0, 0x3C0, 0x3C0, }, { /* 217 */ 0x3C0, 0x3C0, 0x3C0, 0x3C0, 0x3C0, 0x3C0, 0x3C0, 0xFFC0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, }, { /* 218 */ 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x3FF, 0x3C0, 0x3C0, 0x3C0, 0x3C0, 0x3C0, 0x3C0, 0x3C0, 0x3C0, }, { /* 219 */ 0xFFFF, 0xFFFF, 0xFFFF, 0xFFFF, 0xFFFF, 0xFFFF, 0xFFFF, 0xFFFF, 0xFFFF, 0xFFFF, 0xFFFF, 0xFFFF, 0xFFFF, 0xFFFF, 0xFFFF, 0xFFFF, }, { /* 220 */ 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0xFFFF, 0xFFFF, 0xFFFF, 0xFFFF, 0xFFFF, 0xFFFF, 0xFFFF, 0xFFFF, 0xFFFF, }, { /* 221 */ 0xFF00, 0xFF00, 0xFF00, 0xFF00, 0xFF00, 0xFF00, 0xFF00, 0xFF00, 0xFF00, 0xFF00, 0xFF00, 0xFF00, 0xFF00, 0xFF00, 0xFF00, 0xFF00, }, { /* 222 */ 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, }, { /* 223 */ 0xFFFF, 0xFFFF, 0xFFFF, 0xFFFF, 0xFFFF, 0xFFFF, 0xFFFF, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, }, { /* 224 */ 0x0, 0x0, 0x0, 0x0, 0x0, 0x1F9E, 0x79F8, 0x79E0, 0x79E0, 0x79E0, 0x79F8, 0x1F9E, 0x0, 0x0, 0x0, 0x0, }, { /* 225 */ 0x0, 0x0, 0x0, 0x0, 0x0, 0x7FF8, 0x781E, 0x7FF8, 0x781E, 0x781E, 0x7FF8, 0x7800, 0x7800, 0x7800, 0x0, 0x0, }, { /* 226 */ 0x0, 0x0, 0x7FFE, 0x781E, 0x781E, 0x7800, 0x7800, 0x7800, 0x7800, 0x7800, 0x7800, 0x7800, 0x0, 0x0, 0x0, 0x0, }, { /* 227 */ 0x0, 0x0, 0x0, 0x0, 0x7FFE, 0x7FFE, 0x1E78, 0x1E78, 0x1E78, 0x1E78, 0x1E78, 0x1E78, 0x0, 0x0, 0x0, 0x0, }, { /* 228 */ 0x0, 0x0, 0x0, 0x7FFE, 0x781E, 0x1E00, 0x780, 0x1E0, 0x780, 0x1E00, 0x781E, 0x7FFE, 0x0, 0x0, 0x0, 0x0, }, { /* 229 */ 0x0, 0x0, 0x0, 0x0, 0x0, 0x1FFE, 0x79E0, 0x79E0, 0x79E0, 0x79E0, 0x79E0, 0x1F80, 0x0, 0x0, 0x0, 0x0, }, { /* 230 */ 0x0, 0x0, 0x0, 0x0, 0x1E1E, 0x1E1E, 0x1E1E, 0x1E1E, 0x1E1E, 0x1FF8, 0x1E00, 0x1E00, 0x7800, 0x0, 0x0, 0x0, }, { /* 231 */ 0x0, 0x0, 0x0, 0x0, 0x1F9E, 0x79F8, 0x1E0, 0x1E0, 0x1E0, 0x1E0, 0x1E0, 0x1E0, 0x0, 0x0, 0x0, 0x0, }, { /* 232 */ 0x0, 0x0, 0x0, 0x3FFC, 0x3C0, 0xFF0, 0x3C3C, 0x3C3C, 0x3C3C, 0xFF0, 0x3C0, 0x3FFC, 0x0, 0x0, 0x0, 0x0, }, { /* 233 */ 0x0, 0x0, 0x0, 0x7E0, 0x1E78, 0x781E, 0x781E, 0x7FFE, 0x781E, 0x781E, 0x1E78, 0x7E0, 0x0, 0x0, 0x0, 0x0, }, { /* 234 */ 0x0, 0x0, 0x7E0, 0x1E78, 0x781E, 0x781E, 0x781E, 0x1E78, 0x1E78, 0x1E78, 0x1E78, 0x7E7E, 0x0, 0x0, 0x0, 0x0, }, { /* 235 */ 0x0, 0x0, 0x3FC, 0xF00, 0x3C0, 0xF0, 0xFFC, 0x3C3C, 0x3C3C, 0x3C3C, 0x3C3C, 0xFF0, 0x0, 0x0, 0x0, 0x0, }, { /* 236 */ 0x0, 0x0, 0x0, 0x0, 0x0, 0x3E7C, 0x73CE, 0x73CE, 0x73CE, 0x3E7C, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, }, { /* 237 */ 0x0, 0x0, 0x0, 0xF, 0x3C, 0x3FFC, 0xF0FF, 0xF3CF, 0xFF0F, 0x3FFC, 0x3C00, 0xF000, 0x0, 0x0, 0x0, 0x0, }, { /* 238 */ 0x0, 0x0, 0x3F0, 0xF00, 0x1C00, 0x1C00, 0x1FF0, 0x1C00, 0x1C00, 0x1C00, 0xF00, 0x3F0, 0x0, 0x0, 0x0, 0x0, }, { /* 239 */ 0x0, 0x0, 0x0, 0x1FF8, 0x781E, 0x781E, 0x781E, 0x781E, 0x781E, 0x781E, 0x781E, 0x781E, 0x0, 0x0, 0x0, 0x0, }, { /* 240 */ 0x0, 0x0, 0x0, 0x0, 0x7FFE, 0x0, 0x0, 0x7FFE, 0x0, 0x0, 0x7FFE, 0x0, 0x0, 0x0, 0x0, 0x0, }, { /* 241 */ 0x0, 0x0, 0x0, 0x0, 0x3C0, 0x3C0, 0x3FFC, 0x3C0, 0x3C0, 0x0, 0x0, 0x3FFC, 0x0, 0x0, 0x0, 0x0, }, { /* 242 */ 0x0, 0x0, 0x0, 0xF00, 0x3C0, 0xF0, 0x38, 0xF0, 0x3C0, 0xF00, 0x0, 0xFF8, 0x0, 0x0, 0x0, 0x0, }, { /* 243 */ 0x0, 0x0, 0x0, 0xF0, 0x3C0, 0xF00, 0x1C00, 0xF00, 0x3C0, 0xF0, 0x0, 0x1FF0, 0x0, 0x0, 0x0, 0x0, }, { /* 244 */ 0x0, 0x0, 0xFC, 0x3CF, 0x3CF, 0x3C0, 0x3C0, 0x3C0, 0x3C0, 0x3C0, 0x3C0, 0x3C0, 0x3C0, 0x3C0, 0x3C0, 0x3C0, }, { /* 245 */ 0x3C0, 0x3C0, 0x3C0, 0x3C0, 0x3C0, 0x3C0, 0x3C0, 0x3C0, 0xF3C0, 0xF3C0, 0xF3C0, 0x3F00, 0x0, 0x0, 0x0, 0x0, }, { /* 246 */ 0x0, 0x0, 0x0, 0x0, 0x3C0, 0x3C0, 0x0, 0x3FFC, 0x0, 0x3C0, 0x3C0, 0x0, 0x0, 0x0, 0x0, 0x0, }, { /* 247 */ 0x0, 0x0, 0x0, 0x0, 0x0, 0x1F9E, 0x79F8, 0x0, 0x1F9E, 0x79F8, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, }, { /* 248 */ 0x0, 0x7E0, 0x1E78, 0x1E78, 0x7E0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, }, { /* 249 */ 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x3C0, 0x3C0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, }, { /* 250 */ 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x3C0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, }, { /* 251 */ 0x0, 0xFF, 0xF0, 0xF0, 0xF0, 0xF0, 0xF0, 0x70F0, 0x38F0, 0x1CF0, 0xFF0, 0x3F0, 0x0, 0x0, 0x0, 0x0, }, { /* 252 */ 0x0, 0x79E0, 0x1E78, 0x1E78, 0x1E78, 0x1E78, 0x1E78, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, }, { /* 253 */ 0x0, 0x1F80, 0x61E0, 0x780, 0x1E00, 0x7860, 0x7FE0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, }, { /* 254 */ 0x0, 0x0, 0x0, 0x0, 0x1FF8, 0x1FF8, 0x1FF8, 0x1FF8, 0x1FF8, 0x1FF8, 0x1FF8, 0x0, 0x0, 0x0, 0x0, 0x0, }, { /* 255 */ 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, }, }; #endif /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/v42bis.c0000664000175000017500000006520311422612263014650 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * v42bis.c * * Written by Steve Underwood * * Copyright (C) 2005 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* THIS IS A WORK IN PROGRESS. IT IS NOT FINISHED. Currently it performs the core compression and decompression functions OK. However, a number of the bells and whistles in V.42bis are incomplete. */ /*! \file */ #if defined(HAVE_CONFIG_H) #include "config.h" #endif #include #include #include #include #include #include #include #include #include "spandsp/telephony.h" #include "spandsp/logging.h" #include "spandsp/bit_operations.h" #include "spandsp/v42bis.h" #include "spandsp/private/logging.h" #include "spandsp/private/v42bis.h" /* Fixed parameters from the spec. */ #define V42BIS_N3 8 /* Character size (bits) */ #define V42BIS_N4 256 /* Number of characters in the alphabet */ #define V42BIS_N5 (V42BIS_N4 + V42BIS_N6) /* Index number of first dictionary entry used to store a string */ #define V42BIS_N6 3 /* Number of control codewords */ /* V.42bis/9.2 */ #define V42BIS_ESC_STEP 51 /* Control code words in compressed mode */ enum { V42BIS_ETM = 0, /* Enter transparent mode */ V42BIS_FLUSH = 1, /* Flush data */ V42BIS_STEPUP = 2 /* Step up codeword size */ }; /* Command codes in transparent mode */ enum { V42BIS_ECM = 0, /* Enter compression mode */ V42BIS_EID = 1, /* Escape character in data */ V42BIS_RESET = 2 /* Force reinitialisation */ }; static __inline__ void push_compressed_raw_octet(v42bis_compress_state_t *ss, int octet) { ss->output_buf[ss->output_octet_count++] = (uint8_t) octet; if (ss->output_octet_count >= ss->max_len) { ss->handler(ss->user_data, ss->output_buf, ss->output_octet_count); ss->output_octet_count = 0; } } /*- End of function --------------------------------------------------------*/ static __inline__ void push_compressed_code(v42bis_compress_state_t *ss, int code) { ss->output_bit_buffer |= code << (32 - ss->v42bis_parm_c2 - ss->output_bit_count); ss->output_bit_count += ss->v42bis_parm_c2; while (ss->output_bit_count >= 8) { push_compressed_raw_octet(ss, ss->output_bit_buffer >> 24); ss->output_bit_buffer <<= 8; ss->output_bit_count -= 8; } } /*- End of function --------------------------------------------------------*/ static __inline__ void push_compressed_octet(v42bis_compress_state_t *ss, int code) { ss->output_bit_buffer |= code << (32 - 8 - ss->output_bit_count); ss->output_bit_count += 8; while (ss->output_bit_count >= 8) { push_compressed_raw_octet(ss, ss->output_bit_buffer >> 24); ss->output_bit_buffer <<= 8; ss->output_bit_count -= 8; } } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) v42bis_compress(v42bis_state_t *s, const uint8_t *buf, int len) { int ptr; int i; uint32_t octet; uint32_t code; v42bis_compress_state_t *ss; ss = &s->compress; if ((s->v42bis_parm_p0 & 2) == 0) { /* Compression is off - just push the incoming data out */ for (i = 0; i < len - ss->max_len; i += ss->max_len) ss->handler(ss->user_data, buf + i, ss->max_len); if (i < len) ss->handler(ss->user_data, buf + i, len - i); return 0; } ptr = 0; if (ss->first && len > 0) { octet = buf[ptr++]; ss->string_code = octet + V42BIS_N6; if (octet == ss->escape_code) { push_compressed_octet(ss, ss->escape_code); ss->escape_code += V42BIS_ESC_STEP; push_compressed_octet(ss, V42BIS_EID); } else { push_compressed_octet(ss, octet); } ss->first = FALSE; } while (ptr < len) { octet = buf[ptr++]; if ((ss->dict[ss->string_code].children[octet >> 5] & (1 << (octet & 0x1F)))) { /* The leaf exists. Now find it in the table. */ /* TODO: This is a brute force scan for a match. We need something better. */ for (code = 0; code < ss->v42bis_parm_c3; code++) { if (ss->dict[code].parent_code == ss->string_code && ss->dict[code].node_octet == octet) break; } } else { /* The leaf does not exist. */ code = s->v42bis_parm_n2; } /* 6.3(b) If the string matches a dictionary entry, and the entry is not that entry created by the last invocation of the string matching procedure, then the next character shall be read and appended to the string and this step repeated. */ if (code < ss->v42bis_parm_c3 && code != ss->latest_code) { /* The string was found */ ss->string_code = code; ss->string_length++; } else { /* The string is not in the table. */ if (!ss->transparent) { /* 7.4 Encoding - we now have the longest matchable string, and will need to output the code for it. */ while (ss->v42bis_parm_c1 >= ss->v42bis_parm_c3 && ss->v42bis_parm_c3 <= s->v42bis_parm_n2) { /* We need to increase the codeword size */ /* 7.4(a) */ push_compressed_code(ss, V42BIS_STEPUP); /* 7.4(b) */ ss->v42bis_parm_c2++; /* 7.4(c) */ ss->v42bis_parm_c3 <<= 1; /* 7.4(d) this might need to be repeated, so we loop */ } /* 7.5 Transfer - output the last state of the string */ push_compressed_code(ss, ss->string_code); } /* 7.6 Dictionary updating */ /* 6.4 Add the string to the dictionary */ /* 6.4(b) The string is not in the table. */ if (code != ss->latest_code && ss->string_length < s->v42bis_parm_n7) { ss->latest_code = ss->v42bis_parm_c1; /* 6.4(a) The length of the string is in range for adding to the dictionary */ /* If the last code was a leaf, it no longer is */ ss->dict[ss->string_code].leaves++; ss->dict[ss->string_code].children[octet >> 5] |= (1 << (octet & 0x1F)); /* The new one is definitely a leaf */ ss->dict[ss->v42bis_parm_c1].parent_code = (uint16_t) ss->string_code; ss->dict[ss->v42bis_parm_c1].leaves = 0; ss->dict[ss->v42bis_parm_c1].node_octet = (uint8_t) octet; /* 7.7 Node recovery */ /* 6.5 Recovering a dictionary entry to use next */ for (;;) { /* 6.5(a) and (b) */ if ((int) (++ss->v42bis_parm_c1) >= s->v42bis_parm_n2) ss->v42bis_parm_c1 = V42BIS_N5; /* 6.5(c) We need to reuse a leaf node */ if (ss->dict[ss->v42bis_parm_c1].leaves) continue; if (ss->dict[ss->v42bis_parm_c1].parent_code == 0xFFFF) break; /* 6.5(d) Detach the leaf node from its parent, and re-use it */ /* Possibly make the parent a leaf node again */ ss->dict[ss->dict[ss->v42bis_parm_c1].parent_code].leaves--; ss->dict[ss->dict[ss->v42bis_parm_c1].parent_code].children[ss->dict[ss->v42bis_parm_c1].node_octet >> 5] &= ~(1 << (ss->dict[ss->v42bis_parm_c1].node_octet & 0x1F)); ss->dict[ss->v42bis_parm_c1].parent_code = 0xFFFF; break; } } else { ss->latest_code = 0xFFFFFFFF; } /* 7.8 Data compressibility test */ /* Filter on the balance of what went into the compressor, and what came out */ ss->compressibility_filter += ((((8*ss->string_length - ss->v42bis_parm_c2) << 20) - ss->compressibility_filter) >> 10); if (ss->compression_mode == V42BIS_COMPRESSION_MODE_DYNAMIC) { /* Work out if it is appropriate to change between transparent and compressed mode. */ if (ss->transparent) { if (ss->compressibility_filter > 0) { if (++ss->compressibility_persistence > 1000) { /* Schedule a switch to compressed mode */ ss->change_transparency = -1; ss->compressibility_persistence = 0; } } else { ss->compressibility_persistence = 0; } } else { if (ss->compressibility_filter < 0) { if (++ss->compressibility_persistence > 1000) { /* Schedule a switch to transparent mode */ ss->change_transparency = 1; ss->compressibility_persistence = 0; } } else { ss->compressibility_persistence = 0; } } } if (ss->change_transparency) { if (ss->change_transparency < 0) { if (ss->transparent) { printf("Going compressed\n"); /* 7.8.1 Transition to compressed mode */ /* Switch out of transparent now, between codes. We need to send the octet which did not match, just before switching. */ if (octet == ss->escape_code) { push_compressed_octet(ss, ss->escape_code); ss->escape_code += V42BIS_ESC_STEP; push_compressed_octet(ss, V42BIS_EID); } else { push_compressed_octet(ss, octet); } push_compressed_octet(ss, ss->escape_code); ss->escape_code += V42BIS_ESC_STEP; push_compressed_octet(ss, V42BIS_ECM); ss->transparent = FALSE; } } else { if (!ss->transparent) { printf("Going transparent\n"); /* 7.8.2 Transition to transparent mode */ /* Switch into transparent now, between codes, and the unmatched octet should go out in transparent mode, just below */ push_compressed_code(ss, V42BIS_ETM); ss->transparent = TRUE; } } ss->change_transparency = 0; } /* 7.8.3 Reset function - TODO */ ss->string_code = octet + V42BIS_N6; ss->string_length = 1; } if (ss->transparent) { if (octet == ss->escape_code) { push_compressed_octet(ss, ss->escape_code); ss->escape_code += V42BIS_ESC_STEP; push_compressed_octet(ss, V42BIS_EID); } else { push_compressed_octet(ss, octet); } } } return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) v42bis_compress_flush(v42bis_state_t *s) { v42bis_compress_state_t *ss; ss = &s->compress; if (!ss->transparent) { /* Output the last state of the string */ push_compressed_code(ss, ss->string_code); /* TODO: We use a positive FLUSH at all times. It is really needed, if the previous step resulted in no leftover bits. */ push_compressed_code(ss, V42BIS_FLUSH); } while (ss->output_bit_count > 0) { push_compressed_raw_octet(ss, ss->output_bit_buffer >> 24); ss->output_bit_buffer <<= 8; ss->output_bit_count -= 8; } /* Now push out anything remaining. */ if (ss->output_octet_count > 0) { ss->handler(ss->user_data, ss->output_buf, ss->output_octet_count); ss->output_octet_count = 0; } return 0; } /*- End of function --------------------------------------------------------*/ #if 0 SPAN_DECLARE(int) v42bis_compress_dump(v42bis_state_t *s) { int i; for (i = 0; i < V42BIS_MAX_CODEWORDS; i++) { if (s->compress.dict[i].parent_code != 0xFFFF) { printf("Entry %4x, prior %4x, leaves %d, octet %2x\n", i, s->compress.dict[i].parent_code, s->compress.dict[i].leaves, s->compress.dict[i].node_octet); } } return 0; } /*- End of function --------------------------------------------------------*/ #endif SPAN_DECLARE(int) v42bis_decompress(v42bis_state_t *s, const uint8_t *buf, int len) { int ptr; int i; int this_length; uint8_t *string; uint32_t code; uint32_t new_code; int code_len; v42bis_decompress_state_t *ss; uint8_t decode_buf[V42BIS_MAX_STRING_SIZE]; ss = &s->decompress; if ((s->v42bis_parm_p0 & 1) == 0) { /* Compression is off - just push the incoming data out */ for (i = 0; i < len - ss->max_len; i += ss->max_len) ss->handler(ss->user_data, buf + i, ss->max_len); if (i < len) ss->handler(ss->user_data, buf + i, len - i); return 0; } ptr = 0; code_len = (ss->transparent) ? 8 : ss->v42bis_parm_c2; for (;;) { /* Fill up the bit buffer. */ while (ss->input_bit_count < (32 - 8) && ptr < len) { ss->input_bit_count += 8; ss->input_bit_buffer |= (uint32_t) buf[ptr++] << (32 - ss->input_bit_count); } if (ss->input_bit_count < code_len) break; new_code = ss->input_bit_buffer >> (32 - code_len); ss->input_bit_count -= code_len; ss->input_bit_buffer <<= code_len; if (ss->transparent) { code = new_code; if (ss->escaped) { ss->escaped = FALSE; switch (code) { case V42BIS_ECM: printf("Hit V42BIS_ECM\n"); ss->transparent = FALSE; code_len = ss->v42bis_parm_c2; break; case V42BIS_EID: printf("Hit V42BIS_EID\n"); ss->output_buf[ss->output_octet_count++] = ss->escape_code; ss->escape_code += V42BIS_ESC_STEP; if (ss->output_octet_count >= ss->max_len - s->v42bis_parm_n7) { ss->handler(ss->user_data, ss->output_buf, ss->output_octet_count); ss->output_octet_count = 0; } break; case V42BIS_RESET: printf("Hit V42BIS_RESET\n"); break; default: printf("Hit V42BIS_???? - %" PRIu32 "\n", code); break; } } else if (code == ss->escape_code) { ss->escaped = TRUE; } else { ss->output_buf[ss->output_octet_count++] = (uint8_t) code; if (ss->output_octet_count >= ss->max_len - s->v42bis_parm_n7) { ss->handler(ss->user_data, ss->output_buf, ss->output_octet_count); ss->output_octet_count = 0; } } } else { if (new_code < V42BIS_N6) { /* We have a control code. */ switch (new_code) { case V42BIS_ETM: printf("Hit V42BIS_ETM\n"); ss->transparent = TRUE; code_len = 8; break; case V42BIS_FLUSH: printf("Hit V42BIS_FLUSH\n"); v42bis_decompress_flush(s); break; case V42BIS_STEPUP: /* We need to increase the codeword size */ printf("Hit V42BIS_STEPUP\n"); if (ss->v42bis_parm_c3 >= s->v42bis_parm_n2) { /* Invalid condition */ return -1; } code_len = ++ss->v42bis_parm_c2; ss->v42bis_parm_c3 <<= 1; break; } continue; } if (ss->first) { ss->first = FALSE; ss->octet = new_code - V42BIS_N6; ss->output_buf[0] = (uint8_t) ss->octet; ss->output_octet_count = 1; if (ss->output_octet_count >= ss->max_len - s->v42bis_parm_n7) { ss->handler(ss->user_data, ss->output_buf, ss->output_octet_count); ss->output_octet_count = 0; } ss->old_code = new_code; continue; } /* Start at the end of the buffer, and decode backwards */ string = &decode_buf[V42BIS_MAX_STRING_SIZE - 1]; /* Check the received code is valid. It can't be too big, as we pulled only the expected number of bits from the input stream. It could, however, be unknown. */ if (ss->dict[new_code].parent_code == 0xFFFF) return -1; /* Otherwise we do a straight decode of the new code. */ code = new_code; /* Trace back through the octets which form the string, and output them. */ while (code >= V42BIS_N5) { if (code > 4095) {printf("Code is 0x%" PRIu32 "\n", code); exit(2);} *string-- = ss->dict[code].node_octet; code = ss->dict[code].parent_code; } *string = (uint8_t) (code - V42BIS_N6); ss->octet = code - V42BIS_N6; /* Output the decoded string. */ this_length = V42BIS_MAX_STRING_SIZE - (int) (string - decode_buf); for (i = 0; i < this_length; i++) { if (string[i] == ss->escape_code) ss->escape_code += V42BIS_ESC_STEP; } memcpy(ss->output_buf + ss->output_octet_count, string, this_length); ss->output_octet_count += this_length; if (ss->output_octet_count >= ss->max_len - s->v42bis_parm_n7) { ss->handler(ss->user_data, ss->output_buf, ss->output_octet_count); ss->output_octet_count = 0; } /* 6.4 Add the string to the dictionary */ if (ss->last_length < s->v42bis_parm_n7) { /* 6.4(a) The string does not exceed N7 in length */ if (ss->last_old_code != ss->old_code || ss->last_extra_octet != *string) { /* 6.4(b) The string is not in the table. */ ss->dict[ss->old_code].leaves++; /* The new one is definitely a leaf */ ss->dict[ss->v42bis_parm_c1].parent_code = (uint16_t) ss->old_code; ss->dict[ss->v42bis_parm_c1].leaves = 0; ss->dict[ss->v42bis_parm_c1].node_octet = (uint8_t) ss->octet; /* 6.5 Recovering a dictionary entry to use next */ for (;;) { /* 6.5(a) and (b) */ if (++ss->v42bis_parm_c1 >= s->v42bis_parm_n2) ss->v42bis_parm_c1 = V42BIS_N5; /* 6.5(c) We need to reuse a leaf node */ if (ss->dict[ss->v42bis_parm_c1].leaves) continue; /* 6.5(d) This is a leaf node, so re-use it */ /* Possibly make the parent a leaf node again */ if (ss->dict[ss->v42bis_parm_c1].parent_code != 0xFFFF) ss->dict[ss->dict[ss->v42bis_parm_c1].parent_code].leaves--; ss->dict[ss->v42bis_parm_c1].parent_code = 0xFFFF; break; } } } /* Record the addition to the dictionary, so we can check for repeat attempts at the next code - see II.4.3 */ ss->last_old_code = ss->old_code; ss->last_extra_octet = *string; ss->old_code = new_code; ss->last_length = this_length; } } return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) v42bis_decompress_flush(v42bis_state_t *s) { v42bis_decompress_state_t *ss; ss = &s->decompress; /* Push out anything remaining. */ if (ss->output_octet_count > 0) { ss->handler(ss->user_data, ss->output_buf, ss->output_octet_count); ss->output_octet_count = 0; } return 0; } /*- End of function --------------------------------------------------------*/ #if 0 SPAN_DECLARE(int) v42bis_decompress_dump(v42bis_state_t *s) { int i; for (i = 0; i < V42BIS_MAX_CODEWORDS; i++) { if (s->decompress.dict[i].parent_code != 0xFFFF) { printf("Entry %4x, prior %4x, leaves %d, octet %2x\n", i, s->decompress.dict[i].parent_code, s->decompress.dict[i].leaves, s->decompress.dict[i].node_octet); } } return 0; } /*- End of function --------------------------------------------------------*/ #endif SPAN_DECLARE(void) v42bis_compression_control(v42bis_state_t *s, int mode) { s->compress.compression_mode = mode; switch (mode) { case V42BIS_COMPRESSION_MODE_ALWAYS: s->compress.change_transparency = -1; break; case V42BIS_COMPRESSION_MODE_NEVER: s->compress.change_transparency = 1; break; } } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(v42bis_state_t *) v42bis_init(v42bis_state_t *s, int negotiated_p0, int negotiated_p1, int negotiated_p2, v42bis_frame_handler_t frame_handler, void *frame_user_data, int max_frame_len, v42bis_data_handler_t data_handler, void *data_user_data, int max_data_len) { int i; if (negotiated_p1 < V42BIS_MIN_DICTIONARY_SIZE || negotiated_p1 > 65535) return NULL; if (negotiated_p2 < V42BIS_MIN_STRING_SIZE || negotiated_p2 > V42BIS_MAX_STRING_SIZE) return NULL; if (s == NULL) { if ((s = (v42bis_state_t *) malloc(sizeof(*s))) == NULL) return NULL; } memset(s, 0, sizeof(*s)); s->compress.handler = frame_handler; s->compress.user_data = frame_user_data; s->compress.max_len = (max_frame_len < 1024) ? max_frame_len : 1024; s->decompress.handler = data_handler; s->decompress.user_data = data_user_data; s->decompress.max_len = (max_data_len < 1024) ? max_data_len : 1024; s->v42bis_parm_p0 = negotiated_p0; /* default is both ways off */ s->v42bis_parm_n1 = top_bit(negotiated_p1 - 1) + 1; s->v42bis_parm_n2 = negotiated_p1; s->v42bis_parm_n7 = negotiated_p2; /* 6.5 */ s->compress.v42bis_parm_c1 = s->decompress.v42bis_parm_c1 = V42BIS_N5; s->compress.v42bis_parm_c2 = s->decompress.v42bis_parm_c2 = V42BIS_N3 + 1; s->compress.v42bis_parm_c3 = s->decompress.v42bis_parm_c3 = 2*V42BIS_N4; s->compress.first = s->decompress.first = TRUE; for (i = 0; i < V42BIS_MAX_CODEWORDS; i++) { s->compress.dict[i].parent_code = s->decompress.dict[i].parent_code = 0xFFFF; s->compress.dict[i].leaves = s->decompress.dict[i].leaves = 0; } /* Point the root nodes for decompression to themselves. It doesn't matter much what they are set to, as long as they are considered "known" codes. */ for (i = 0; i < V42BIS_N5; i++) s->decompress.dict[i].parent_code = (uint16_t) i; s->compress.string_code = 0xFFFFFFFF; s->compress.latest_code = 0xFFFFFFFF; s->compress.transparent = TRUE; s->compress.first = TRUE; s->decompress.last_old_code = 0xFFFFFFFF; s->decompress.last_extra_octet = -1; s->decompress.transparent = TRUE; s->compress.first = TRUE; s->compress.compression_mode = V42BIS_COMPRESSION_MODE_DYNAMIC; return s; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) v42bis_release(v42bis_state_t *s) { return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) v42bis_free(v42bis_state_t *s) { free(s); return 0; } /*- End of function --------------------------------------------------------*/ /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/t35.c0000664000175000017500000007435611422612262014162 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * t35.c - ITU T.35 FAX non-standard facility processing. * * Written by Steve Underwood * * Copyright (C) 2003 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* * The NSF data tables are adapted from the NSF handling in HylaFAX, which * carries the following copyright notice: * * Created by Dmitry Bely, April 2000 * Copyright (c) 1994-1996 Sam Leffler * Copyright (c) 1994-1996 Silicon Graphics, Inc. * HylaFAX is a trademark of Silicon Graphics * * Permission to use, copy, modify, distribute, and sell this software and * its documentation for any purpose is hereby granted without fee, provided * that (i) the above copyright notices and this permission notice appear in * all copies of the software and related documentation, and (ii) the names of * Sam Leffler and Silicon Graphics may not be used in any advertising or * publicity relating to the software without the specific, prior written * permission of Sam Leffler and Silicon Graphics. * * THE SOFTWARE IS PROVIDED "AS-IS" AND WITHOUT WARRANTY OF ANY KIND, * EXPRESS, IMPLIED OR OTHERWISE, INCLUDING WITHOUT LIMITATION, ANY * WARRANTY OF MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. * * IN NO EVENT SHALL SAM LEFFLER OR SILICON GRAPHICS BE LIABLE FOR * ANY SPECIAL, INCIDENTAL, INDIRECT OR CONSEQUENTIAL DAMAGES OF ANY KIND, * OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, * WHETHER OR NOT ADVISED OF THE POSSIBILITY OF DAMAGE, AND ON ANY THEORY OF * LIABILITY, ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE * OF THIS SOFTWARE. */ /*! \file */ #if defined(HAVE_CONFIG_H) #include "config.h" #endif #include #include #include #include "spandsp/telephony.h" #include "spandsp/bit_operations.h" #include "spandsp/t35.h" /*! NSF pattern for FAX machine identification */ typedef struct { /*! The number of bytes of the NSF byte string to match */ int model_id_size; /*! The NSF byte string to expect */ const char *model_id; /*! The model name of the FAX terminal */ const char *model_name; } model_data_t; /*! NSF pattern for identifying the manufacturer of a FAX machine */ typedef struct { /*! The vendor ID byte string */ const char *vendor_id; /*! The length of the vendor ID byte string */ int vendor_id_len; /*! The vendor's name */ const char *vendor_name; /*! TRUE if the station ID for this vendor is reversed */ int inverse_station_id_order; /*! A pointer to a list of known models from this vendor */ const model_data_t *known_models; } nsf_data_t; const char *t35_country_codes[256] = { "Japan", /* 0x00 */ "Albania", "Algeria", "American Samoa", "Germany", "Anguilla", "Antigua and Barbuda", "Argentina", "Ascension (see S. Helena)", "Australia", "Austria", "Bahamas", "Bahrain", "Bangladesh", "Barbados", "Belgium", "Belize", "Benin (Republic of)", "Bermudas", "Bhutan (Kingdom of)", "Bolivia", "Botswana", "Brazil", "British Antarctic Territory", "British Indian Ocean Territory", "British Virgin Islands", "Brunei Darussalam", "Bulgaria", "Myanmar (Union of)", "Burundi", "Byelorussia", "Cameroon", "Canada", /* 0x20 */ "Cape Verde", "Cayman Islands", "Central African Republic", "Chad", "Chile", "China", "Colombia", "Comoros", "Congo", "Cook Islands", "Costa Rica", "Cuba", "Cyprus", "Czech and Slovak Federal Republic", "Cambodia", "Democratic People's Republic of Korea", "Denmark", "Djibouti", "Dominican Republic", "Dominica", "Ecuador", "Egypt", "El Salvador", "Equatorial Guinea", "Ethiopia", "Falkland Islands", "Fiji", "Finland", "France", "French Polynesia", "French Southern and Antarctic Lands", "Gabon", /* 0x40 */ "Gambia", "Germany (Federal Republic of)", "Angola", "Ghana", "Gibraltar", "Greece", "Grenada", "Guam", "Guatemala", "Guernsey", "Guinea", "Guinea-Bissau", "Guayana", "Haiti", "Honduras", "Hong Kong", "Hungary (Republic of)", "Iceland", "India", "Indonesia", "Iran (Islamic Republic of)", "Iraq", "Ireland", "Israel", "Italy", "Cote d'Ivoire", "Jamaica", "Afghanistan", "Jersey", "Jordan", "Kenya", "Kiribati", /* 0x60 */ "Korea (Republic of)", "Kuwait", "Lao (People's Democratic Republic)", "Lebanon", "Lesotho", "Liberia", "Libya", "Liechtenstein", "Luxembourg", "Macau", "Madagascar", "Malaysia", "Malawi", "Maldives", "Mali", "Malta", "Mauritania", "Mauritius", "Mexico", "Monaco", "Mongolia", "Montserrat", "Morocco", "Mozambique", "Nauru", "Nepal", "Netherlands", "Netherlands Antilles", "New Caledonia", "New Zealand", "Nicaragua", "Niger", /* 0x80 */ "Nigeria", "Norway", "Oman", "Pakistan", "Panama", "Papua New Guinea", "Paraguay", "Peru", "Philippines", "Poland (Republic of)", "Portugal", "Puerto Rico", "Qatar", "Romania", "Rwanda", "Saint Kitts and Nevis", "Saint Croix", "Saint Helena and Ascension", "Saint Lucia", "San Marino", "Saint Thomas", "Sao Tome and Principe", "Saint Vincent and the Grenadines", "Saudi Arabia", "Senegal", "Seychelles", "Sierra Leone", "Singapore", "Solomon Islands", "Somalia", "South Africa", "Spain", /* 0xA0 */ "Sri Lanka", "Sudan", "Suriname", "Swaziland", "Sweden", "Switzerland", "Syria", "Tanzania", "Thailand", "Togo", "Tonga", "Trinidad and Tobago", "Tunisia", "Turkey", "Turks and Caicos Islands", "Tuvalu", "Uganda", "Ukraine", "United Arab Emirates", "United Kingdom", "United States", "Burkina Faso", "Uruguay", "U.S.S.R.", "Vanuatu", "Vatican City State", "Venezuela", "Viet Nam", "Wallis and Futuna", "Western Samoa", "Yemen (Republic of)", "Yemen (Republic of)", /* 0xC0 */ "Yugoslavia", "Zaire", "Zambia", "Zimbabwe" "Slovakia", "Slovenia", "(available)", "(available)", "(available)", "(available)", "(available)", "(available)", "(available)", "(available)", "(available)", "(available)", /* 0xD0 */ "(available)", "(available)", "(available)", "(available)", "(available)", "(available)", "(available)", "(available)", "(available)", "(available)", "(available)", "(available)", "(available)", "(available)", "(available)", "(available)", /* 0xE0 */ "(available)", "(available)", "(available)", "(available)", "(available)", "(available)", "(available)", "(available)", "(available)", "(available)", "(available)", "(available)", "(available)", "(available)", "(available)", "(available)", /* 0xF0 */ "(available)", "(available)", "(available)", "(available)", "(available)", "(available)", "Lithuania", "Latvia", "Estonia", "US Virgin Islands", "(available)", "(available)", "(Universal)", "Taiwan", "(extension)" }; static const model_data_t Canon[] = { {5, "\x80\x00\x80\x48\x00", "Faxphone B640"}, {5, "\x80\x00\x80\x49\x10", "Fax B100"}, {5, "\x80\x00\x8A\x49\x10", "Laser Class 9000 Series"}, {0, NULL, NULL} }; static const model_data_t Brother[] = { {9, "\x55\x55\x00\x88\x90\x80\x5F\x00\x15\x51", "Intellifax 770"}, {9, "\x55\x55\x00\x80\xB0\x80\x00\x00\x59\xD4", "Personal fax 190"}, {9, "\x55\x55\x00\x8C\x90\x80\xF0\x02\x20", "MFC-8600"}, {0, NULL, NULL} }; static const model_data_t Panasonic0E[] = { {10, "\x00\x00\x00\x96\x0F\x01\x02\x00\x10\x05\x02\x95\xC8\x08\x01\x49\x02\x41\x53\x54\x47", "KX-F90"}, {10, "\x00\x00\x00\x96\x0F\x01\x03\x00\x10\x05\x02\x95\xC8\x08\x01\x49\x02 \x03", "KX-F230 or KX-FT21 or ..."}, {10, "\x00\x00\x00\x16\x0F\x01\x03\x00\x10\x05\x02\x95\xC8\x08", "KX-F780"}, {10, "\x00\x00\x00\x16\x0F\x01\x03\x00\x10\x00\x02\x95\x80\x08\x75\xB5", "KX-M260"}, {10, "\x00\x00\x00\x16\x0F\x01\x02\x00\x10\x05\x02\x85\xC8\x08\xAD", "KX-F2050BS"}, {0, NULL, NULL} }; static const model_data_t Panasonic79[] = { {10, "\x00\x00\x00\x02\x0F\x09\x12\x00\x10\x05\x02\x95\xC8\x88\x80\x80\x01", "UF-S10"}, {10, "\x00\x00\x00\x16\x7F\x09\x13\x00\x10\x05\x16\x8D\xC0\xD0\xF8\x80\x01", "/Siemens Fax 940"}, {10, "\x00\x00\x00\x16\x0F\x09\x13\x00\x10\x05\x06\x8D\xC0\x50\xCB", "Panafax UF-321"}, {0, NULL, NULL} }; static const model_data_t Ricoh[] = { {10, "\x00\x00\x00\x12\x10\x0D\x02\x00\x50\x00\x2A\xB8\x2C", "/Nashuatec P394"}, {0, NULL, NULL} }; static const model_data_t Samsung16[] = { {4, "\x00\x00\xA4\x01", "M545 6800"}, {0, NULL, NULL} }; static const model_data_t Samsung5A[] = { {4, "\x00\x00\xC0\x00", "SF-5100"}, {0, NULL, NULL} }; static const model_data_t Samsung8C[] = { {4, "\x00\x00\x01\x00", "SF-2010"}, {0, NULL, NULL} }; static const model_data_t SamsungA2[] = { {4, "\x00\x00\x80\x00", "FX-4000"}, {0, NULL, NULL} }; static const model_data_t Sanyo[] = { {10, "\x00\x00\x10\xB1\x04\x04\x04\x04\x04\x04\x04\x04\x04\x04\x04\x04\x04\x04\x04\x04\x04\x04\x04\x04\x04\x04\x04\x04\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF\x41\x26\xFF\xFF\x00\x00\x85\xA1", "SFX-107"}, {10, "\x00\x00\x00\xB1\x12\xF2\x62\xB4\x82\x0A\xF2\x2A\x12\xD2\xA2\x04\x04\x04\x04\x04\x04\x04\x04\x04\x04\x04\x04\x04\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF\x41\x4E\xFF\xFF\x00\x00", "MFP-510"}, {0, NULL, NULL} }; static const model_data_t HP[] = { {5, "\x20\x00\x45\x00\x0C\x04\x70\xCD\x4F\x00\x7F\x49", "LaserJet 3150"}, {5, "\x40\x80\x84\x01\xF0\x6A", "OfficeJet"}, {5, "\xC0\x00\x00\x00\x00", "OfficeJet 500"}, {5, "\xC0\x00\x00\x00\x00\x8B", "Fax-920"}, {0, NULL, NULL} }; static const model_data_t Sharp[] = { {32, "\x00\xCE\xB8\x80\x80\x11\x85\x0D\xDD\x00\x00\xDD\xDD\x00\x00\xDD\xDD\x00\x00\x00\x00\x00\x00\x00\x00\xED\x22\xB0\x00\x00\x90\x00", "Sharp F0-10"}, {33, "\x00\xCE\xB8\x80\x80\x11\x85\x0D\xDD\x00\x00\xDD\xDD\x00\x00\xDD\xDD\x00\x00\x00\x00\x00\x00\x00\x00\xED\x22\xB0\x00\x00\x90\x00\x8C", "Sharp UX-460"}, {33, "\x00\x4E\xB8\x80\x80\x11\x84\x0D\xDD\x00\x00\xDD\xDD\x00\x00\xDD\xDD\x00\x00\x00\x00\x00\x00\x00\x00\xED\x22\xB0\x00\x00\x90\x00\xAD", "Sharp UX-177"}, {33, "\x00\xCE\xB8\x00\x84\x0D\xDD\x00\x00\xDD\xDD\x00\x00\xDD\xDD\xDD\xDD\xDD\x02\x05\x28\x02\x22\x43\x29\xED\x23\x90\x00\x00\x90\x01\x00", "Sharp FO-4810"}, {0, NULL, NULL} }; static const model_data_t Xerox[] = { {10, "\x00\x08\x2D\x43\x57\x50\x61\x75\xFF\xFF\xFF\xFF\xFF\xFF\xFF\x01\x1A\x02\x02\x10\x01\x82\x01\x30\x34", "635 Workcenter"}, {0, NULL, NULL} }; static const model_data_t XeroxDA[] = { {4, "\x00\x00\xC0\x00", "Workcentre Pro 580"}, {0, NULL, NULL} }; static const model_data_t Lexmark[] = { {4, "\x00\x80\xA0\x00", "X4270"}, {0, NULL, NULL} }; static const model_data_t JetFax[] = { {6, "\x01\x00\x45\x00\x0D\x7F", "M910e"}, {0, NULL, NULL} }; static const model_data_t PitneyBowes[] = { {6, "\x79\x91\xB1\xB8\x7A\xD8", "9550"}, {0, NULL, NULL} }; static const model_data_t Dialogic[] = { {8, "\x56\x8B\x06\x55\x00\x15\x00\x00", "VFX/40ESC"}, {0, NULL, NULL} }; static const model_data_t Muratec45[] = { {10, "\xF4\x91\xFF\xFF\xFF\x42\x2A\xBC\x01\x57", "M4700"}, {0, NULL, NULL} }; /* Muratec uses unregistered Japan code "00 00 48" */ static const model_data_t Muratec48[] = { {3, "\x53\x53\x61", "M620"}, {0, NULL, NULL} }; /* * Country code first byte, then manufacturer is last two bytes. See T.35. * Apparently Germany issued some manufacturer codes before the two-byte * standard was accepted, and so some few German manufacturers are * identified by a single manufacturer byte. * * T.30 5.3.6.2.7 (2003) states that the NSF FIF is transmitted * in MSB2LSB order. Revisions of T.30 prior to 2003 did not * contain explicit specification as to the transmit bit order. * (Although it did otherwise state that all HDLC frame data should * be in MSB order except as noted.) Because CSI, TSI, and other * prologue frames were in LSB order by way of an exception to the * general rule (T.30 5.3.6.2.4-11) many manufacturers assumed that * NSF should also be in LSB order. Consequently there will be * some country-code "masquerading" as a terminal may use the * proper country-code, but with an inverted bit order. * * Thus, country code x61 (Korea) turns into x86 (Papua New Guinea), * code xB5 (USA) turns into xAD (Tunisia), code x26 (China) turns * into x64 (Lebanon), code x04 (Germany) turns into x20 (Canada), * and code x3D (France) turns into xBC (Vietnam). * * For the most part it should be safe to identify a manufacturer * both with the MSB and LSB ordered bits, as the "masqueraded" country * is likely to not be actively assigning T.38 manufacturer codes. * However, some manufacturers (e.g. Microsoft) may use MSB for the * country code and LSB for the rest of the NSF, and so basically this * table must be verified and corrected against actual real-world * results. */ static const nsf_data_t known_nsf[] = { /* Japan */ {"\x00\x00\x00", 3, "Unknown - indeterminate", TRUE, NULL}, {"\x00\x00\x01", 3, "Anjitsu", FALSE, NULL}, {"\x00\x00\x02", 3, "Nippon Telephone", FALSE, NULL}, {"\x00\x00\x05", 3, "Mitsuba Electric", FALSE, NULL}, {"\x00\x00\x06", 3, "Master Net", FALSE, NULL}, {"\x00\x00\x09", 3, "Xerox/Toshiba", TRUE, Xerox}, {"\x00\x00\x0A", 3, "Kokusai", FALSE, NULL}, {"\x00\x00\x0D", 3, "Logic System International", FALSE, NULL}, {"\x00\x00\x0E", 3, "Panasonic", FALSE, Panasonic0E}, {"\x00\x00\x11", 3, "Canon", FALSE, Canon}, {"\x00\x00\x15", 3, "Toyotsushen Machinery", FALSE, NULL}, {"\x00\x00\x16", 3, "System House Mind", FALSE, NULL}, {"\x00\x00\x19", 3, "Xerox", TRUE, NULL}, {"\x00\x00\x1D", 3, "Hitachi Software", FALSE, NULL}, {"\x00\x00\x21", 3, "OKI Electric/Lanier", TRUE, NULL}, {"\x00\x00\x25", 3, "Ricoh", TRUE, Ricoh}, {"\x00\x00\x26", 3, "Konica", FALSE, NULL}, {"\x00\x00\x29", 3, "Japan Wireless", FALSE, NULL}, {"\x00\x00\x2D", 3, "Sony", FALSE, NULL}, {"\x00\x00\x31", 3, "Sharp/Olivetti", FALSE, Sharp}, {"\x00\x00\x35", 3, "Kogyu", FALSE, NULL}, {"\x00\x00\x36", 3, "Japan Telecom", FALSE, NULL}, {"\x00\x00\x3D", 3, "IBM Japan", FALSE, NULL}, {"\x00\x00\x39", 3, "Panasonic", FALSE, NULL}, {"\x00\x00\x41", 3, "Swasaki Communication", FALSE, NULL}, {"\x00\x00\x45", 3, "Muratec", FALSE, Muratec45}, {"\x00\x00\x46", 3, "Pheonix", FALSE, NULL}, {"\x00\x00\x48", 3, "Muratec", FALSE, Muratec48}, // not registered {"\x00\x00\x49", 3, "Japan Electric", FALSE, NULL}, {"\x00\x00\x4D", 3, "Okura Electric", FALSE, NULL}, {"\x00\x00\x51", 3, "Sanyo", FALSE, Sanyo}, {"\x00\x00\x55", 3, "unknown - Japan 55", FALSE, NULL}, {"\x00\x00\x56", 3, "Brother", FALSE, Brother}, {"\x00\x00\x59", 3, "Fujitsu", FALSE, NULL}, {"\x00\x00\x5D", 3, "Kuoni", FALSE, NULL}, {"\x00\x00\x61", 3, "Casio", FALSE, NULL}, {"\x00\x00\x65", 3, "Tateishi Electric", FALSE, NULL}, {"\x00\x00\x66", 3, "Utax/Mita", TRUE, NULL}, {"\x00\x00\x69", 3, "Hitachi Production", FALSE, NULL}, {"\x00\x00\x6D", 3, "Hitachi Telecom", FALSE, NULL}, {"\x00\x00\x71", 3, "Tamura Electric Works", FALSE, NULL}, {"\x00\x00\x75", 3, "Tokyo Electric Corp.", FALSE, NULL}, {"\x00\x00\x76", 3, "Advance", FALSE, NULL}, {"\x00\x00\x79", 3, "Panasonic", FALSE, Panasonic79}, {"\x00\x00\x7D", 3, "Seiko", FALSE, NULL}, {"\x00\x08\x00", 3, "Daiko", FALSE, NULL}, {"\x00\x10\x00", 3, "Funai Electric", FALSE, NULL}, {"\x00\x20\x00", 3, "Eagle System", FALSE, NULL}, {"\x00\x30\x00", 3, "Nippon Business Systems", FALSE, NULL}, {"\x00\x40\x00", 3, "Comtron", FALSE, NULL}, {"\x00\x48\x00", 3, "Cosmo Consulting", FALSE, NULL}, {"\x00\x50\x00", 3, "Orion Electric", FALSE, NULL}, {"\x00\x60\x00", 3, "Nagano Nippon", FALSE, NULL}, {"\x00\x70\x00", 3, "Kyocera", FALSE, NULL}, {"\x00\x80\x00", 3, "Kanda Networks", FALSE, NULL}, {"\x00\x88\x00", 3, "Soft Front", FALSE, NULL}, {"\x00\x90\x00", 3, "Arctic", FALSE, NULL}, {"\x00\xA0\x00", 3, "Nakushima", FALSE, NULL}, {"\x00\xB0\x00", 3, "Minolta", FALSE, NULL}, {"\x00\xC0\x00", 3, "Tohoku Pioneer", FALSE, NULL}, {"\x00\xD0\x00", 3, "USC", FALSE, NULL}, {"\x00\xE0\x00", 3, "Hiboshi", FALSE, NULL}, {"\x00\xF0\x00", 3, "Sumitomo Electric", FALSE, NULL}, /* Germany */ {"\x20\x09", 2, "ITK Institut für Telekommunikation GmbH & Co KG", FALSE, NULL}, {"\x20\x11", 2, "Dr. Neuhaus Mikroelektronik", FALSE, NULL}, {"\x20\x21", 2, "ITO Communication", FALSE, NULL}, {"\x20\x31", 2, "mbp Kommunikationssysteme GmbH", FALSE, NULL}, {"\x20\x41", 2, "Siemens", FALSE, NULL}, {"\x20\x42", 2, "Deutsche Telekom AG", FALSE, NULL}, {"\x20\x51", 2, "mps Software", FALSE, NULL}, {"\x20\x61", 2, "Hauni Elektronik", FALSE, NULL}, {"\x20\x71", 2, "Digitronic computersysteme gmbh", FALSE, NULL}, {"\x20\x81\x00", 3, "Innovaphone GmbH", FALSE, NULL}, {"\x20\x81\x40", 3, "TEDAS Gesellschaft für Telekommunikations-, Daten- und Audiosysteme mbH", FALSE, NULL}, {"\x20\x81\x80", 3, "AVM Audiovisuelles Marketing und Computersysteme GmbH", FALSE, NULL}, {"\x20\x81\xC0", 3, "EICON Technology Research GmbH", FALSE, NULL}, {"\x20\xB1", 2, "Schneider Rundfunkwerke AG", FALSE, NULL}, {"\x20\xC2", 2, "Deutsche Telekom AG", FALSE, NULL}, {"\x20\xD1", 2, "Ferrari electronik GmbH", FALSE, NULL}, {"\x20\xF1", 2, "DeTeWe - Deutsche Telephonwerke AG & Co", FALSE, NULL}, {"\x20\xFF", 2, "Germany Regional Code", FALSE, NULL}, /* China */ {"\x64\x00\x00", 3, "unknown - China 00 00", FALSE, NULL}, {"\x64\x01\x00", 3, "unknown - China 01 00", FALSE, NULL}, {"\x64\x01\x01", 3, "unknown - China 01 01", FALSE, NULL}, {"\x64\x01\x02", 3, "unknown - China 01 02", FALSE, NULL}, /* France */ {"\xBC\x53\x01", 3, "Minolta", FALSE, NULL}, /* Korea */ {"\x86\x00\x02", 3, "unknown - Korea 02", FALSE, NULL}, {"\x86\x00\x06", 3, "unknown - Korea 06", FALSE, NULL}, {"\x86\x00\x08", 3, "unknown - Korea 08", FALSE, NULL}, {"\x86\x00\x0A", 3, "unknown - Korea 0A", FALSE, NULL}, {"\x86\x00\x0E", 3, "unknown - Korea 0E", FALSE, NULL}, {"\x86\x00\x10", 3, "Samsung", FALSE, NULL}, {"\x86\x00\x11", 3, "unknown - Korea 11", FALSE, NULL}, {"\x86\x00\x16", 3, "Samsung", FALSE, Samsung16}, {"\x86\x00\x1A", 3, "unknown - Korea 1A", FALSE, NULL}, {"\x86\x00\x40", 3, "unknown - Korea 40", FALSE, NULL}, {"\x86\x00\x48", 3, "unknown - Korea 48", FALSE, NULL}, {"\x86\x00\x52", 3, "unknown - Korea 52", FALSE, NULL}, {"\x86\x00\x5A", 3, "Samsung", FALSE, Samsung5A}, {"\x86\x00\x5E", 3, "unknown - Korea 5E", FALSE, NULL}, {"\x86\x00\x66", 3, "unknown - Korea 66", FALSE, NULL}, {"\x86\x00\x6E", 3, "unknown - Korea 6E", FALSE, NULL}, {"\x86\x00\x82", 3, "unknown - Korea 82", FALSE, NULL}, {"\x86\x00\x88", 3, "unknown - Korea 88", FALSE, NULL}, {"\x86\x00\x8A", 3, "unknown - Korea 8A", FALSE, NULL}, {"\x86\x00\x8C", 3, "Samsung", FALSE, Samsung8C}, {"\x86\x00\x92", 3, "unknown - Korea 92", FALSE, NULL}, {"\x86\x00\x98", 3, "Samsung", FALSE, NULL}, {"\x86\x00\xA2", 3, "Samsung", FALSE, SamsungA2}, {"\x86\x00\xA4", 3, "unknown - Korea A4", FALSE, NULL}, {"\x86\x00\xC2", 3, "Samsung", FALSE, NULL}, {"\x86\x00\xC9", 3, "unknown - Korea C9", FALSE, NULL}, {"\x86\x00\xCC", 3, "unknown - Korea CC", FALSE, NULL}, {"\x86\x00\xD2", 3, "unknown - Korea D2", FALSE, NULL}, {"\x86\x00\xDA", 3, "Xerox", FALSE, XeroxDA}, {"\x86\x00\xE2", 3, "unknown - Korea E2", FALSE, NULL}, {"\x86\x00\xEC", 3, "unknown - Korea EC", FALSE, NULL}, {"\x86\x00\xEE", 3, "unknown - Korea EE", FALSE, NULL}, /* United Kingdom */ {"\xB4\x00\xB0", 3, "DCE", FALSE, NULL}, {"\xB4\x00\xB1", 3, "Hasler", FALSE, NULL}, {"\xB4\x00\xB2", 3, "Interquad", FALSE, NULL}, {"\xB4\x00\xB3", 3, "Comwave", FALSE, NULL}, {"\xB4\x00\xB4", 3, "Iconographic", FALSE, NULL}, {"\xB4\x00\xB5", 3, "Wordcraft", FALSE, NULL}, {"\xB4\x00\xB6", 3, "Acorn", FALSE, NULL}, /* United States */ {"\xAD\x00\x00", 3, "Pitney Bowes", FALSE, PitneyBowes}, {"\xAD\x00\x0C", 3, "Dialogic", FALSE, NULL}, {"\xAD\x00\x15", 3, "Lexmark", FALSE, Lexmark}, {"\xAD\x00\x16", 3, "JetFax", FALSE, JetFax}, {"\xAD\x00\x24", 3, "Octel", FALSE, NULL}, {"\xAD\x00\x36", 3, "HP", FALSE, HP}, {"\xAD\x00\x42", 3, "FaxTalk", FALSE, NULL}, {"\xAD\x00\x44", 3, NULL, TRUE, NULL}, {"\xAD\x00\x46", 3, "BrookTrout", FALSE, NULL}, {"\xAD\x00\x51", 3, "Telogy Networks", FALSE, NULL}, {"\xAD\x00\x55", 3, "HylaFAX", FALSE, NULL}, {"\xAD\x00\x5C", 3, "IBM", FALSE, NULL}, {"\xAD\x00\x98", 3, "unknown - USA 98", TRUE, NULL}, {"\xB5\x00\x01", 3, "Picturetel", FALSE, NULL}, {"\xB5\x00\x20", 3, "Conexant", FALSE, NULL}, {"\xB5\x00\x22", 3, "Comsat", FALSE, NULL}, {"\xB5\x00\x24", 3, "Octel", FALSE, NULL}, {"\xB5\x00\x26", 3, "ROLM", FALSE, NULL}, {"\xB5\x00\x28", 3, "SOFNET", FALSE, NULL}, {"\xB5\x00\x29", 3, "TIA TR-29 Committee", FALSE, NULL}, {"\xB5\x00\x2A", 3, "STF Tech", FALSE, NULL}, {"\xB5\x00\x2C", 3, "HKB", FALSE, NULL}, {"\xB5\x00\x2E", 3, "Delrina", FALSE, NULL}, {"\xB5\x00\x30", 3, "Dialogic", FALSE, NULL}, {"\xB5\x00\x32", 3, "Applied Synergy", FALSE, NULL}, {"\xB5\x00\x34", 3, "Syncro Development", FALSE, NULL}, {"\xB5\x00\x36", 3, "Genoa", FALSE, NULL}, {"\xB5\x00\x38", 3, "Texas Instruments", FALSE, NULL}, {"\xB5\x00\x3A", 3, "IBM", FALSE, NULL}, {"\xB5\x00\x3C", 3, "ViaSat", FALSE, NULL}, {"\xB5\x00\x3E", 3, "Ericsson", FALSE, NULL}, {"\xB5\x00\x42", 3, "Bogosian", FALSE, NULL}, {"\xB5\x00\x44", 3, "Adobe", FALSE, NULL}, {"\xB5\x00\x46", 3, "Fremont Communications", FALSE, NULL}, {"\xB5\x00\x48", 3, "Hayes", FALSE, NULL}, {"\xB5\x00\x4A", 3, "Lucent", FALSE, NULL}, {"\xB5\x00\x4C", 3, "Data Race", FALSE, NULL}, {"\xB5\x00\x4E", 3, "TRW", FALSE, NULL}, {"\xB5\x00\x52", 3, "Audiofax", FALSE, NULL}, {"\xB5\x00\x54", 3, "Computer Automation", FALSE, NULL}, {"\xB5\x00\x56", 3, "Serca", FALSE, NULL}, {"\xB5\x00\x58", 3, "Octocom", FALSE, NULL}, {"\xB5\x00\x5C", 3, "Power Solutions", FALSE, NULL}, {"\xB5\x00\x5A", 3, "Digital Sound", FALSE, NULL}, {"\xB5\x00\x5E", 3, "Pacific Data", FALSE, NULL}, {"\xB5\x00\x60", 3, "Commetrex", FALSE, NULL}, {"\xB5\x00\x62", 3, "BrookTrout", FALSE, NULL}, {"\xB5\x00\x64", 3, "Gammalink", FALSE, NULL}, {"\xB5\x00\x66", 3, "Castelle", FALSE, NULL}, {"\xB5\x00\x68", 3, "Hybrid Fax", FALSE, NULL}, {"\xB5\x00\x6A", 3, "Omnifax", FALSE, NULL}, {"\xB5\x00\x6C", 3, "HP", FALSE, NULL}, {"\xB5\x00\x6E", 3, "Microsoft", FALSE, NULL}, {"\xB5\x00\x72", 3, "Speaking Devices", FALSE, NULL}, {"\xB5\x00\x74", 3, "Compaq", FALSE, NULL}, /* {"\xB5\x00\x76", 3, "Trust - Cryptek", FALSE, NULL}, // collision with Microsoft */ {"\xB5\x00\x76", 3, "Microsoft", FALSE, NULL}, // uses LSB for country but MSB for manufacturer {"\xB5\x00\x78", 3, "Cylink", FALSE, NULL}, {"\xB5\x00\x7A", 3, "Pitney Bowes", FALSE, NULL}, {"\xB5\x00\x7C", 3, "Digiboard", FALSE, NULL}, {"\xB5\x00\x7E", 3, "Codex", FALSE, NULL}, {"\xB5\x00\x82", 3, "Wang Labs", FALSE, NULL}, {"\xB5\x00\x84", 3, "Netexpress Communications", FALSE, NULL}, {"\xB5\x00\x86", 3, "Cable-Sat", FALSE, NULL}, {"\xB5\x00\x88", 3, "MFPA", FALSE, NULL}, {"\xB5\x00\x8A", 3, "Telogy Networks", FALSE, NULL}, {"\xB5\x00\x8E", 3, "Telecom Multimedia Systems", FALSE, NULL}, {"\xB5\x00\x8C", 3, "AT&T", FALSE, NULL}, {"\xB5\x00\x92", 3, "Nuera", FALSE, NULL}, {"\xB5\x00\x94", 3, "K56flex", FALSE, NULL}, {"\xB5\x00\x96", 3, "MiBridge", FALSE, NULL}, {"\xB5\x00\x98", 3, "Xerox", FALSE, NULL}, {"\xB5\x00\x9A", 3, "Fujitsu", FALSE, NULL}, {"\xB5\x00\x9B", 3, "Fujitsu", FALSE, NULL}, {"\xB5\x00\x9C", 3, "Natural Microsystems", FALSE, NULL}, {"\xB5\x00\x9E", 3, "CopyTele", FALSE, NULL}, {"\xB5\x00\xA2", 3, "Murata", FALSE, NULL}, {"\xB5\x00\xA4", 3, "Lanier", FALSE, NULL}, {"\xB5\x00\xA6", 3, "Qualcomm", FALSE, NULL}, {"\xB5\x00\xAA", 3, "HylaFAX", FALSE, NULL}, // we did it backwards for a while {NULL, 0, NULL, FALSE, NULL} }; #if 0 SPAN_DECLARE(void) nsf_find_station_id(int reverse_order) { const char *id = NULL; int idSize = 0; const char *maxId = NULL; int maxIdSize = 0; const char *p; /* Trying to find the longest printable ASCII sequence */ for (p = (const char *) nsf + T35_VENDOR_ID_LEN, *end = p + nsf.length(); p < end; p++) { if (isprint(*p)) { if (!idSize++) id = p; if (idSize > maxIdSize) { max_id = id; max_id_size = idSize; } } else { id = NULL; id_size = 0; } } /* Minimum acceptable id length */ const int MinIdSize = 4; if (maxIdSize >= min_id_size) { stationId.resize(0); const char *p; int dir; if (reverseOrder) { p = maxId + maxIdSize - 1; dir = -1; } else { p = maxId; dir = 1; } for (int i = 0; i < maxIdSize; i++) { stationId.append(*p); p += dir; } station_id_decoded = TRUE; } } /*- End of function --------------------------------------------------------*/ #endif SPAN_DECLARE(int) t35_decode(const uint8_t *msg, int len, const char **country, const char **vendor, const char **model) { int vendor_decoded; const nsf_data_t *p; const model_data_t *pp; vendor_decoded = FALSE; if (country) *country = NULL; if (vendor) *vendor = NULL; if (model) *model = NULL; if (country) { /* We need to apply realism over accuracy, though it blocks out some countries. It is very rare to find a machine from any country but the following: Japan 0x00 (no confusion) Germany 0x04 (0x20) (Canada/Germany confusion) China 0x26 (0x64) (China/Lebanon confusion) Korea 0x61 (0x86) (Korea/Papua New Guinea confusion) UK 0xB4 (0x2D) (UK/Cyprus confusion) USA 0xB5 (0xAD) (USA/Tunisia confusion) France 0x3D (0xBC) (France/Vietnam confusion) If we force the most likely of the two possible countries (forward or bit reversed), the only mixup with any realistic probability is the Canada/Germany confusion. We will just live with this, and force the more likely countries. */ switch (msg[0]) { case 0x20: /* Force Germany */ *country = t35_country_codes[0x04]; break; case 0x64: /* Force China */ *country = t35_country_codes[0x26]; break; case 0x86: /* Force Korea */ *country = t35_country_codes[0x61]; break; case 0x2D: /* Force UK */ *country = t35_country_codes[0xB4]; break; case 0xAD: /* Force USA */ *country = t35_country_codes[0xB5]; break; case 0xBC: /* Force France */ *country = t35_country_codes[0x3D]; break; default: /* Try the country code at face value, then bit reversed */ if (t35_country_codes[msg[0]]) *country = t35_country_codes[msg[0]]; else if (t35_country_codes[bit_reverse8(msg[0])]) *country = t35_country_codes[bit_reverse8(msg[0])]; break; } } for (p = known_nsf; p->vendor_id; p++) { if (len >= p->vendor_id_len && memcmp(p->vendor_id, msg, p->vendor_id_len) == 0) { if (p->vendor_name && vendor) *vendor = p->vendor_name; if (p->known_models && model) { for (pp = p->known_models; pp->model_id; pp++) { if (len == p->vendor_id_len + pp->model_id_size && memcmp(pp->model_id, &msg[p->vendor_id_len], pp->model_id_size) == 0) { *model = pp->model_name; break; } } } #if 0 findStationId(p->inverse_station_id_order); #endif vendor_decoded = TRUE; break; } } #if 0 if (!vendor_found()) find_station_id(0); #endif return vendor_decoded; } /*- End of function --------------------------------------------------------*/ /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/t38_core.c0000664000175000017500000011142011422612262015155 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * t38_core.c - Encode and decode the ASN.1 of a T.38 IFP message * * Written by Steve Underwood * * Copyright (C) 2005, 2006 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \file */ #if defined(HAVE_CONFIG_H) #include "config.h" #endif #include #include #include #include #include #include #if defined(HAVE_TGMATH_H) #include #endif #if defined(HAVE_MATH_H) #include #endif #include "floating_fudge.h" #include #include #include #include "spandsp/telephony.h" #include "spandsp/logging.h" #include "spandsp/bit_operations.h" #include "spandsp/t38_core.h" #include "spandsp/private/logging.h" #include "spandsp/private/t38_core.h" #define ACCEPTABLE_SEQ_NO_OFFSET 2000 /* The times for training, the optional TEP, and the HDLC preamble, for all the modem options, in ms. Note that the preamble for V.21 is 1s+-15%, and for the other modems is 200ms+100ms. */ static const struct { int tep; int training; int flags; } modem_startup_time[] = { { 0, 75000, 0}, /* T38_IND_NO_SIGNAL */ { 0, 0, 0}, /* T38_IND_CNG */ { 0, 3000000, 0}, /* T38_IND_CED */ { 0, 0, 1000000}, /* T38_IND_V21_PREAMBLE */ /* TODO: 850ms should be OK for this, but it causes trouble with some ATAs. Why? */ { 215000, 943000, 200000}, /* T38_IND_V27TER_2400_TRAINING */ { 215000, 708000, 200000}, /* T38_IND_V27TER_4800_TRAINING */ { 215000, 234000, 200000}, /* T38_IND_V29_7200_TRAINING */ { 215000, 234000, 200000}, /* T38_IND_V29_9600_TRAINING */ { 215000, 142000, 200000}, /* T38_IND_V17_7200_SHORT_TRAINING */ { 215000, 1393000, 200000}, /* T38_IND_V17_7200_LONG_TRAINING */ { 215000, 142000, 200000}, /* T38_IND_V17_9600_SHORT_TRAINING */ { 215000, 1393000, 200000}, /* T38_IND_V17_9600_LONG_TRAINING */ { 215000, 142000, 200000}, /* T38_IND_V17_12000_SHORT_TRAINING */ { 215000, 1393000, 200000}, /* T38_IND_V17_12000_LONG_TRAINING */ { 215000, 142000, 200000}, /* T38_IND_V17_14400_SHORT_TRAINING */ { 215000, 1393000, 200000}, /* T38_IND_V17_14400_LONG_TRAINING */ { 215000, 0, 0}, /* T38_IND_V8_ANSAM */ { 215000, 0, 0}, /* T38_IND_V8_SIGNAL */ { 215000, 0, 0}, /* T38_IND_V34_CNTL_CHANNEL_1200 */ { 215000, 0, 0}, /* T38_IND_V34_PRI_CHANNEL */ { 215000, 0, 0}, /* T38_IND_V34_CC_RETRAIN */ { 215000, 0, 0}, /* T38_IND_V33_12000_TRAINING */ { 215000, 0, 0} /* T38_IND_V33_14400_TRAINING */ }; SPAN_DECLARE(const char *) t38_indicator_to_str(int indicator) { switch (indicator) { case T38_IND_NO_SIGNAL: return "no-signal"; case T38_IND_CNG: return "cng"; case T38_IND_CED: return "ced"; case T38_IND_V21_PREAMBLE: return "v21-preamble"; case T38_IND_V27TER_2400_TRAINING: return "v27-2400-training"; case T38_IND_V27TER_4800_TRAINING: return "v27-4800-training"; case T38_IND_V29_7200_TRAINING: return "v29-7200-training"; case T38_IND_V29_9600_TRAINING: return "v29-9600-training"; case T38_IND_V17_7200_SHORT_TRAINING: return "v17-7200-short-training"; case T38_IND_V17_7200_LONG_TRAINING: return "v17-7200-long-training"; case T38_IND_V17_9600_SHORT_TRAINING: return "v17-9600-short-training"; case T38_IND_V17_9600_LONG_TRAINING: return "v17-9600-long-training"; case T38_IND_V17_12000_SHORT_TRAINING: return "v17-12000-short-training"; case T38_IND_V17_12000_LONG_TRAINING: return "v17-12000-long-training"; case T38_IND_V17_14400_SHORT_TRAINING: return "v17-14400-short-training"; case T38_IND_V17_14400_LONG_TRAINING: return "v17-14400-long-training"; case T38_IND_V8_ANSAM: return "v8-ansam"; case T38_IND_V8_SIGNAL: return "v8-signal"; case T38_IND_V34_CNTL_CHANNEL_1200: return "v34-cntl-channel-1200"; case T38_IND_V34_PRI_CHANNEL: return "v34-pri-channel"; case T38_IND_V34_CC_RETRAIN: return "v34-CC-retrain"; case T38_IND_V33_12000_TRAINING: return "v33-12000-training"; case T38_IND_V33_14400_TRAINING: return "v33-14400-training"; } return "???"; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(const char *) t38_data_type_to_str(int data_type) { switch (data_type) { case T38_DATA_V21: return "v21"; case T38_DATA_V27TER_2400: return "v27-2400"; case T38_DATA_V27TER_4800: return "v27-4800"; case T38_DATA_V29_7200: return "v29-7200"; case T38_DATA_V29_9600: return "v29-9600"; case T38_DATA_V17_7200: return "v17-7200"; case T38_DATA_V17_9600: return "v17-9600"; case T38_DATA_V17_12000: return "v17-12000"; case T38_DATA_V17_14400: return "v17-14400"; case T38_DATA_V8: return "v8"; case T38_DATA_V34_PRI_RATE: return "v34-pri-rate"; case T38_DATA_V34_CC_1200: return "v34-CC-1200"; case T38_DATA_V34_PRI_CH: return "v34-pri-ch"; case T38_DATA_V33_12000: return "v33-12000"; case T38_DATA_V33_14400: return "v33-14400"; } return "???"; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(const char *) t38_field_type_to_str(int field_type) { switch (field_type) { case T38_FIELD_HDLC_DATA: return "hdlc-data"; case T38_FIELD_HDLC_SIG_END: return "hdlc-sig-end"; case T38_FIELD_HDLC_FCS_OK: return "hdlc-fcs-OK"; case T38_FIELD_HDLC_FCS_BAD: return "hdlc-fcs-BAD"; case T38_FIELD_HDLC_FCS_OK_SIG_END: return "hdlc-fcs-OK-sig-end"; case T38_FIELD_HDLC_FCS_BAD_SIG_END: return "hdlc-fcs-BAD-sig-end"; case T38_FIELD_T4_NON_ECM_DATA: return "t4-non-ecm-data"; case T38_FIELD_T4_NON_ECM_SIG_END: return "t4-non-ecm-sig-end"; case T38_FIELD_CM_MESSAGE: return "cm-message"; case T38_FIELD_JM_MESSAGE: return "jm-message"; case T38_FIELD_CI_MESSAGE: return "ci-message"; case T38_FIELD_V34RATE: return "v34rate"; } return "???"; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(const char *) t38_cm_profile_to_str(int profile) { switch (profile) { case '1': return "G3 FAX sending terminal"; case '2': return "G3 FAX receiving terminal"; case '3': return "V.34 HDX and G3 FAX sending terminal"; case '4': return "V.34 HDX and G3 FAX receiving terminal"; case '5': return "V.34 HDX-only FAX sending terminal"; case '6': return "V.34 HDX-only FAX receiving terminal"; } return "???"; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(const char *) t38_jm_to_str(const uint8_t *data, int len) { if (len < 2) return "???"; switch (data[0]) { case 'A': switch (data[1]) { case '0': return "ACK"; } break; case 'N': switch (data[1]) { case '0': return "NACK: No compatible mode available"; case '1': /* Response for profiles 1 and 2 */ return "NACK: No V.34 FAX, use G3 FAX"; case '2': /* Response for profiles 5 and 6 */ return "NACK: V.34 only FAX."; } break; } return "???"; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) t38_v34rate_to_bps(const uint8_t *data, int len) { int i; int rate; if (len < 3) return -1; for (i = 0, rate = 0; i < 3; i++) { if (data[i] < '0' || data[i] > '9') return -1; rate = rate*10 + data[i] - '0'; } return rate*100; } /*- End of function --------------------------------------------------------*/ static __inline__ int classify_seq_no_offset(int expected, int actual) { /* Classify the mismatch between expected and actual sequence numbers according to whether the actual is a little in the past (late), a little in the future (some packets have been lost), or a large jump that represents the sequence being lost (possibly when some RTP gets dumped to a UDPTL port). */ /* This assumes they are not equal */ if (expected > actual) { if (expected > actual + 0x10000 - ACCEPTABLE_SEQ_NO_OFFSET) { /* In the near future */ return 1; } if (expected < actual + ACCEPTABLE_SEQ_NO_OFFSET) { /* In the recent past */ return -1; } } else { if (expected + ACCEPTABLE_SEQ_NO_OFFSET > actual) { /* In the near future */ return 1; } if (expected + 0x10000 - ACCEPTABLE_SEQ_NO_OFFSET < actual) { /* In the recent past */ return -1; } } /* There has been a huge step in the sequence */ return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) t38_core_rx_ifp_packet(t38_core_state_t *s, const uint8_t *buf, int len, uint16_t seq_no) { int i; int t30_indicator; int t30_data; int ptr; int other_half; int numocts; int log_seq_no; const uint8_t *msg; unsigned int count; unsigned int t30_field_type; uint8_t type; uint8_t data_field_present; uint8_t field_data_present; char tag[20]; log_seq_no = (s->check_sequence_numbers) ? seq_no : s->rx_expected_seq_no; if (span_log_test(&s->logging, SPAN_LOG_FLOW)) { sprintf(tag, "Rx %5d: IFP", log_seq_no); span_log_buf(&s->logging, SPAN_LOG_FLOW, tag, buf, len); } if (len < 1) { span_log(&s->logging, SPAN_LOG_PROTOCOL_WARNING, "Rx %5d: Bad packet length - %d\n", log_seq_no, len); return -1; } if (s->check_sequence_numbers) { seq_no &= 0xFFFF; if (seq_no != s->rx_expected_seq_no) { /* An expected value of -1 indicates this is the first received packet, and will accept anything for that. We can't assume they will start from zero, even though they should. */ if (s->rx_expected_seq_no != -1) { /* We have a packet with a serial number that is not in sequence. The cause could be: - 1. a repeat copy of a recent packet. Many T.38 implementations can preduce quite a lot of these. - 2. a late packet, whose point in the sequence we have already passed. - 3. the result of a hop in the sequence numbers cause by something weird from the other end. Stream switching might cause this - 4. missing packets. In cases 1 and 2 we need to drop this packet. In case 2 it might make sense to try to do something with it in the terminal case. Currently we don't. For gateway operation it will be too late to do anything useful. */ if (((seq_no + 1) & 0xFFFF) == s->rx_expected_seq_no) { /* Assume this is truly a repeat packet, and don't bother checking its contents. */ span_log(&s->logging, SPAN_LOG_FLOW, "Rx %5d: Repeat packet number\n", log_seq_no); return 0; } /* Distinguish between a little bit out of sequence, and a huge hop. */ switch (classify_seq_no_offset(s->rx_expected_seq_no, seq_no)) { case -1: /* This packet is in the near past, so its late. */ span_log(&s->logging, SPAN_LOG_FLOW, "Rx %5d: Late packet - expected %d\n", log_seq_no, s->rx_expected_seq_no); return 0; case 1: /* This packet is in the near future, so some packets have been lost */ span_log(&s->logging, SPAN_LOG_FLOW, "Rx %5d: Missing from %d\n", log_seq_no, s->rx_expected_seq_no); s->rx_missing_handler(s, s->rx_user_data, s->rx_expected_seq_no, seq_no); s->missing_packets += (seq_no - s->rx_expected_seq_no); break; default: /* The sequence has jumped wildly */ span_log(&s->logging, SPAN_LOG_FLOW, "Rx %5d: Sequence restart\n", log_seq_no); s->rx_missing_handler(s, s->rx_user_data, -1, -1); s->missing_packets++; break; } } s->rx_expected_seq_no = seq_no; } } /* The sequence numbering is defined as rolling from 0xFFFF to 0x0000. Some implementations of T.38 roll from 0xFFFF to 0x0001. Isn't standardisation a wonderful thing? The T.38 document specifies only a small fraction of what it should, yet then they actually nail something properly, people ignore it. Developers in this industry truly deserves the **** **** **** **** **** **** documents they have to live with. Anyway, when the far end has a broken rollover behaviour we will get a hiccup at the rollover point. Don't worry too much. We will just treat the message in progress as one with some missing data. With any luck a retry will ride over the problem. Rollovers don't occur that often. It takes quite a few FAX pages to reach rollover. */ s->rx_expected_seq_no = (s->rx_expected_seq_no + 1) & 0xFFFF; data_field_present = (buf[0] >> 7) & 1; type = (buf[0] >> 6) & 1; ptr = 0; switch (type) { case T38_TYPE_OF_MSG_T30_INDICATOR: /* Indicators should never have a data field */ if (data_field_present) { span_log(&s->logging, SPAN_LOG_PROTOCOL_WARNING, "Rx %5d: Data field with indicator\n", log_seq_no); return -1; } /* Any received indicator should mean we no longer have a valid concept of "last received data/field type". */ s->current_rx_data_type = -1; s->current_rx_field_type = -1; if ((buf[0] & 0x20)) { /* Extension */ if (len != 2) { span_log(&s->logging, SPAN_LOG_PROTOCOL_WARNING, "Rx %5d: Invalid length for indicator (A)\n", log_seq_no); return -1; } t30_indicator = T38_IND_V8_ANSAM + (((buf[0] << 2) & 0x3C) | ((buf[1] >> 6) & 0x3)); if (t30_indicator > T38_IND_V33_14400_TRAINING) { span_log(&s->logging, SPAN_LOG_PROTOCOL_WARNING, "Rx %5d: Unknown indicator - %d\n", log_seq_no, t30_indicator); return -1; } } else { if (len != 1) { span_log(&s->logging, SPAN_LOG_PROTOCOL_WARNING, "Rx %5d: Invalid length for indicator (B)\n", log_seq_no); return -1; } t30_indicator = (buf[0] >> 1) & 0xF; } span_log(&s->logging, SPAN_LOG_FLOW, "Rx %5d: indicator %s\n", log_seq_no, t38_indicator_to_str(t30_indicator)); s->rx_indicator_handler(s, s->rx_user_data, t30_indicator); /* This must come after the indicator handler, so the handler routine sees the existing state of the indicator. */ s->current_rx_indicator = t30_indicator; break; case T38_TYPE_OF_MSG_T30_DATA: if ((buf[0] & 0x20)) { /* Extension */ if (len < 2) { span_log(&s->logging, SPAN_LOG_PROTOCOL_WARNING, "Rx %5d: Invalid length for data (A)\n", log_seq_no); return -1; } t30_data = T38_DATA_V8 + (((buf[0] << 2) & 0x3C) | ((buf[1] >> 6) & 0x3)); if (t30_data > T38_DATA_V33_14400) { span_log(&s->logging, SPAN_LOG_PROTOCOL_WARNING, "Rx %5d: Unknown data type - %d\n", log_seq_no, t30_data); return -1; } ptr = 2; } else { t30_data = (buf[0] >> 1) & 0xF; if (t30_data > T38_DATA_V17_14400) { span_log(&s->logging, SPAN_LOG_PROTOCOL_WARNING, "Rx %5d: Unknown data type - %d\n", log_seq_no, t30_data); return -1; } ptr = 1; } if (!data_field_present) { /* This is kinda weird, but I guess if the length checks out we accept it. */ span_log(&s->logging, SPAN_LOG_PROTOCOL_WARNING, "Rx %5d: Data type with no data field\n", log_seq_no); if (ptr != len) { span_log(&s->logging, SPAN_LOG_PROTOCOL_WARNING, "Rx %5d: Invalid length for data (B)\n", log_seq_no); return -1; } break; } if (ptr >= len) { span_log(&s->logging, SPAN_LOG_PROTOCOL_WARNING, "Rx %5d: Invalid length for data (C)\n", log_seq_no); return -1; } count = buf[ptr++]; //printf("Count is %d\n", count); other_half = FALSE; t30_field_type = 0; for (i = 0; i < (int) count; i++) { if (ptr >= len) { span_log(&s->logging, SPAN_LOG_PROTOCOL_WARNING, "Rx %5d: Invalid length for data (D)\n", log_seq_no); return -1; } if (s->t38_version == 0) { /* The original version of T.38 with a typo in the ASN.1 spec. */ if (other_half) { /* The lack of a data field in the previous message means we are currently in the middle of an octet. */ field_data_present = (buf[ptr] >> 3) & 1; /* Decode field_type */ t30_field_type = buf[ptr] & 0x7; ptr++; other_half = FALSE; } else { field_data_present = (buf[ptr] >> 7) & 1; /* Decode field_type */ t30_field_type = (buf[ptr] >> 4) & 0x7; if (field_data_present) ptr++; else other_half = TRUE; } if (t30_field_type > T38_FIELD_T4_NON_ECM_SIG_END) { span_log(&s->logging, SPAN_LOG_PROTOCOL_WARNING, "Rx %5d: Unknown field type - %d\n", log_seq_no, t30_field_type); return -1; } } else { field_data_present = (buf[ptr] >> 7) & 1; /* Decode field_type */ if ((buf[ptr] & 0x40)) { if (ptr > len - 2) { span_log(&s->logging, SPAN_LOG_PROTOCOL_WARNING, "Rx %5d: Invalid length for data (E)\n", log_seq_no); return -1; } t30_field_type = T38_FIELD_CM_MESSAGE + (((buf[ptr] << 2) & 0x3C) | ((buf[ptr + 1] >> 6) & 0x3)); if (t30_field_type > T38_FIELD_V34RATE) { span_log(&s->logging, SPAN_LOG_PROTOCOL_WARNING, "Rx %5d: Unknown field type - %d\n", log_seq_no, t30_field_type); return -1; } ptr += 2; } else { t30_field_type = (buf[ptr++] >> 3) & 0x7; } } /* Decode field_data */ if (field_data_present) { if (ptr > len - 2) { span_log(&s->logging, SPAN_LOG_PROTOCOL_WARNING, "Rx %5d: Invalid length for data (F)\n", log_seq_no); return -1; } numocts = ((buf[ptr] << 8) | buf[ptr + 1]) + 1; msg = buf + ptr + 2; ptr += numocts + 2; } else { numocts = 0; msg = NULL; } if (ptr > len) { span_log(&s->logging, SPAN_LOG_PROTOCOL_WARNING, "Rx %5d: Invalid length for data (G)\n", log_seq_no); return -1; } span_log(&s->logging, SPAN_LOG_FLOW, "Rx %5d: (%d) data %s/%s + %d byte(s)\n", log_seq_no, i, t38_data_type_to_str(t30_data), t38_field_type_to_str(t30_field_type), numocts); s->rx_data_handler(s, s->rx_user_data, t30_data, t30_field_type, msg, numocts); s->current_rx_data_type = t30_data; s->current_rx_field_type = t30_field_type; } if (ptr != len) { if (s->t38_version != 0 || ptr != (len - 1) || !other_half) { span_log(&s->logging, SPAN_LOG_PROTOCOL_WARNING, "Rx %5d: Invalid length for data (H) - %d %d\n", log_seq_no, ptr, len); return -1; } } break; } return 0; } /*- End of function --------------------------------------------------------*/ static int t38_encode_indicator(t38_core_state_t *s, uint8_t buf[], int indicator) { int len; /* Build the IFP packet */ /* Data field not present */ /* Indicator packet */ /* Type of indicator */ if (indicator <= T38_IND_V17_14400_LONG_TRAINING) { buf[0] = (uint8_t) (indicator << 1); len = 1; } else if (s->t38_version != 0 && indicator <= T38_IND_V33_14400_TRAINING) { buf[0] = (uint8_t) (0x20 | (((indicator - T38_IND_V8_ANSAM) & 0xF) >> 2)); buf[1] = (uint8_t) (((indicator - T38_IND_V8_ANSAM) << 6) & 0xFF); len = 2; } else { len = -1; } return len; } /*- End of function --------------------------------------------------------*/ static int t38_encode_data(t38_core_state_t *s, uint8_t buf[], int data_type, const t38_data_field_t field[], int fields) { int len; int i; int enclen; int multiplier; int data_field_no; const t38_data_field_t *q; unsigned int encoded_len; unsigned int fragment_len; unsigned int value; uint8_t data_field_present; uint8_t field_data_present; char tag[20]; /* Build the IFP packet */ /* There seems no valid reason why a packet would ever be generated without a data field present */ data_field_present = TRUE; for (data_field_no = 0; data_field_no < fields; data_field_no++) { span_log(&s->logging, SPAN_LOG_FLOW, "Tx %5d: (%d) data %s/%s + %d byte(s)\n", s->tx_seq_no, data_field_no, t38_data_type_to_str(data_type), t38_field_type_to_str(field[data_field_no].field_type), field[data_field_no].field_len); } data_field_no = 0; len = 0; /* Data field present */ /* Data packet */ /* Type of data */ if (data_type <= T38_DATA_V17_14400) { buf[len++] = (uint8_t) ((data_field_present << 7) | 0x40 | (data_type << 1)); } else if (s->t38_version != 0 && data_type <= T38_DATA_V33_14400) { buf[len++] = (uint8_t) ((data_field_present << 7) | 0x60 | (((data_type - T38_DATA_V8) & 0xF) >> 2)); buf[len++] = (uint8_t) (((data_type - T38_DATA_V8) << 6) & 0xFF); } else { return -1; } if (data_field_present) { encoded_len = 0; data_field_no = 0; do { value = fields - encoded_len; if (value < 0x80) { /* 1 octet case */ buf[len++] = (uint8_t) value; enclen = value; } else if (value < 0x4000) { /* 2 octet case */ buf[len++] = (uint8_t) (0x80 | ((value >> 8) & 0xFF)); buf[len++] = (uint8_t) (value & 0xFF); enclen = value; } else { /* Fragmentation case */ multiplier = (value/0x4000 < 4) ? value/0x4000 : 4; buf[len++] = (uint8_t) (0xC0 | multiplier); enclen = 0x4000*multiplier; } fragment_len = enclen; encoded_len += fragment_len; /* Encode the elements */ for (i = 0; i < (int) encoded_len; i++) { q = &field[data_field_no]; field_data_present = (uint8_t) (q->field_len > 0); /* Encode field_type */ if (s->t38_version == 0) { /* Original version of T.38 with a typo */ if (q->field_type > T38_FIELD_T4_NON_ECM_SIG_END) return -1; buf[len++] = (uint8_t) ((field_data_present << 7) | (q->field_type << 4)); } else { if (q->field_type <= T38_FIELD_T4_NON_ECM_SIG_END) { buf[len++] = (uint8_t) ((field_data_present << 7) | (q->field_type << 3)); } else if (q->field_type <= T38_FIELD_V34RATE) { buf[len++] = (uint8_t) ((field_data_present << 7) | 0x40 | ((q->field_type - T38_FIELD_CM_MESSAGE) >> 2)); buf[len++] = (uint8_t) (((q->field_type - T38_FIELD_CM_MESSAGE) << 6) & 0xC0); } else { return -1; } } /* Encode field_data */ if (field_data_present) { if (q->field_len < 1 || q->field_len > 65535) return -1; buf[len++] = (uint8_t) (((q->field_len - 1) >> 8) & 0xFF); buf[len++] = (uint8_t) ((q->field_len - 1) & 0xFF); memcpy(buf + len, q->field, q->field_len); len += q->field_len; } data_field_no++; } } while (fields != (int) encoded_len || fragment_len >= 16384); } if (span_log_test(&s->logging, SPAN_LOG_FLOW)) { sprintf(tag, "Tx %5d: IFP", s->tx_seq_no); span_log_buf(&s->logging, SPAN_LOG_FLOW, tag, buf, len); } return len; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) t38_core_send_indicator(t38_core_state_t *s, int indicator) { uint8_t buf[100]; int len; int delay; int transmissions; delay = 0; /* Only send an indicator if it represents a change of state. */ /* If the 0x100 bit is set in indicator it will bypass this test, and force transmission */ if (s->current_tx_indicator != indicator) { /* Zero is a valid count, to suppress the transmission of indicators when the transport means they are not needed - e.g. TPKT/TCP. */ transmissions = (indicator & 0x100) ? 1 : s->category_control[T38_PACKET_CATEGORY_INDICATOR]; indicator &= 0xFF; if (s->category_control[T38_PACKET_CATEGORY_INDICATOR]) { if ((len = t38_encode_indicator(s, buf, indicator)) < 0) { span_log(&s->logging, SPAN_LOG_FLOW, "T.38 indicator len is %d\n", len); return len; } span_log(&s->logging, SPAN_LOG_FLOW, "Tx %5d: indicator %s\n", s->tx_seq_no, t38_indicator_to_str(indicator)); s->tx_packet_handler(s, s->tx_packet_user_data, buf, len, transmissions); s->tx_seq_no = (s->tx_seq_no + 1) & 0xFFFF; delay = modem_startup_time[indicator].training; if (s->allow_for_tep) delay += modem_startup_time[indicator].tep; } s->current_tx_indicator = indicator; } return delay; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) t38_core_send_flags_delay(t38_core_state_t *s, int indicator) { return modem_startup_time[indicator].flags; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) t38_core_send_training_delay(t38_core_state_t *s, int indicator) { return modem_startup_time[indicator].training; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) t38_core_send_data(t38_core_state_t *s, int data_type, int field_type, const uint8_t field[], int field_len, int category) { t38_data_field_t field0; uint8_t buf[1000]; int len; field0.field_type = field_type; field0.field = field; field0.field_len = field_len; if ((len = t38_encode_data(s, buf, data_type, &field0, 1)) < 0) { span_log(&s->logging, SPAN_LOG_FLOW, "T.38 data len is %d\n", len); return len; } s->tx_packet_handler(s, s->tx_packet_user_data, buf, len, s->category_control[category]); s->tx_seq_no = (s->tx_seq_no + 1) & 0xFFFF; return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) t38_core_send_data_multi_field(t38_core_state_t *s, int data_type, const t38_data_field_t field[], int fields, int category) { uint8_t buf[1000]; int len; if ((len = t38_encode_data(s, buf, data_type, field, fields)) < 0) { span_log(&s->logging, SPAN_LOG_FLOW, "T.38 data len is %d\n", len); return len; } s->tx_packet_handler(s, s->tx_packet_user_data, buf, len, s->category_control[category]); s->tx_seq_no = (s->tx_seq_no + 1) & 0xFFFF; return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) t38_set_data_rate_management_method(t38_core_state_t *s, int method) { s->data_rate_management_method = method; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) t38_set_data_transport_protocol(t38_core_state_t *s, int data_transport_protocol) { s->data_transport_protocol = data_transport_protocol; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) t38_set_fill_bit_removal(t38_core_state_t *s, int fill_bit_removal) { s->fill_bit_removal = fill_bit_removal; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) t38_set_mmr_transcoding(t38_core_state_t *s, int mmr_transcoding) { s->mmr_transcoding = mmr_transcoding; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) t38_set_jbig_transcoding(t38_core_state_t *s, int jbig_transcoding) { s->jbig_transcoding = jbig_transcoding; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) t38_set_max_buffer_size(t38_core_state_t *s, int max_buffer_size) { s->max_buffer_size = max_buffer_size; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) t38_set_max_datagram_size(t38_core_state_t *s, int max_datagram_size) { s->max_datagram_size = max_datagram_size; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) t38_set_t38_version(t38_core_state_t *s, int t38_version) { s->t38_version = t38_version; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) t38_set_sequence_number_handling(t38_core_state_t *s, int check) { s->check_sequence_numbers = check; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) t38_set_tep_handling(t38_core_state_t *s, int allow_for_tep) { s->allow_for_tep = allow_for_tep; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) t38_set_redundancy_control(t38_core_state_t *s, int category, int setting) { s->category_control[category] = setting; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) t38_set_fastest_image_data_rate(t38_core_state_t *s, int max_rate) { s->fastest_image_data_rate = max_rate; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) t38_get_fastest_image_data_rate(t38_core_state_t *s) { return s->fastest_image_data_rate; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(logging_state_t *) t38_core_get_logging_state(t38_core_state_t *s) { return &s->logging; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) t38_core_restart(t38_core_state_t *s) { /* Set the initial current receive states to something invalid, so the first data received is seen as a change of state. */ s->current_rx_indicator = -1; s->current_rx_data_type = -1; s->current_rx_field_type = -1; /* Set the initial current indicator state to something invalid, so the first attempt to send an indicator will work. */ s->current_tx_indicator = -1; /* We have no initial expectation of the received packet sequence number. They most often start at 0 or 1 for a UDPTL transport, but random starting numbers are possible. */ s->rx_expected_seq_no = -1; return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(t38_core_state_t *) t38_core_init(t38_core_state_t *s, t38_rx_indicator_handler_t *rx_indicator_handler, t38_rx_data_handler_t *rx_data_handler, t38_rx_missing_handler_t *rx_missing_handler, void *rx_user_data, t38_tx_packet_handler_t *tx_packet_handler, void *tx_packet_user_data) { if (s == NULL) { if ((s = (t38_core_state_t *) malloc(sizeof(*s))) == NULL) return NULL; } memset(s, 0, sizeof(*s)); span_log_init(&s->logging, SPAN_LOG_NONE, NULL); span_log_set_protocol(&s->logging, "T.38"); /* Set some defaults for the parameters configurable from outside the T.38 domain - e.g. from SDP data. */ s->data_rate_management_method = T38_DATA_RATE_MANAGEMENT_TRANSFERRED_TCF; s->data_transport_protocol = T38_TRANSPORT_UDPTL; s->fill_bit_removal = FALSE; s->mmr_transcoding = FALSE; s->jbig_transcoding = FALSE; s->max_buffer_size = 400; s->max_datagram_size = 100; s->t38_version = 0; s->check_sequence_numbers = TRUE; /* Set some defaults */ s->category_control[T38_PACKET_CATEGORY_INDICATOR] = 1; s->category_control[T38_PACKET_CATEGORY_CONTROL_DATA] = 1; s->category_control[T38_PACKET_CATEGORY_CONTROL_DATA_END] = 1; s->category_control[T38_PACKET_CATEGORY_IMAGE_DATA] = 1; s->category_control[T38_PACKET_CATEGORY_IMAGE_DATA_END] = 1; s->rx_indicator_handler = rx_indicator_handler; s->rx_data_handler = rx_data_handler; s->rx_missing_handler = rx_missing_handler; s->rx_user_data = rx_user_data; s->tx_packet_handler = tx_packet_handler; s->tx_packet_user_data = tx_packet_user_data; t38_core_restart(s); return s; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) t38_core_release(t38_core_state_t *s) { return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) t38_core_free(t38_core_state_t *s) { if (s) free(s); return 0; } /*- End of function --------------------------------------------------------*/ /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/plc.c0000664000175000017500000002035111422612262014307 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * plc.c * * Written by Steve Underwood * * Copyright (C) 2004 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \file */ #if defined(HAVE_CONFIG_H) #include "config.h" #endif #include #include #include #include #if defined(HAVE_TGMATH_H) #include #endif #if defined(HAVE_MATH_H) #include #endif #include "floating_fudge.h" #include #include "spandsp/telephony.h" #include "spandsp/fast_convert.h" #include "spandsp/saturated.h" #include "spandsp/plc.h" /* We do a straight line fade to zero volume in 50ms when we are filling in for missing data. */ #define ATTENUATION_INCREMENT 0.0025f /* Attenuation per sample */ static void save_history(plc_state_t *s, int16_t *buf, int len) { if (len >= PLC_HISTORY_LEN) { /* Just keep the last part of the new data, starting at the beginning of the buffer */ memcpy(s->history, buf + len - PLC_HISTORY_LEN, sizeof(int16_t)*PLC_HISTORY_LEN); s->buf_ptr = 0; return; } if (s->buf_ptr + len > PLC_HISTORY_LEN) { /* Wraps around - must break into two sections */ memcpy(s->history + s->buf_ptr, buf, sizeof(int16_t)*(PLC_HISTORY_LEN - s->buf_ptr)); len -= (PLC_HISTORY_LEN - s->buf_ptr); memcpy(s->history, buf + (PLC_HISTORY_LEN - s->buf_ptr), sizeof(int16_t)*len); s->buf_ptr = len; return; } /* Can use just one section */ memcpy(s->history + s->buf_ptr, buf, sizeof(int16_t)*len); s->buf_ptr += len; } /*- End of function --------------------------------------------------------*/ static __inline__ void normalise_history(plc_state_t *s) { int16_t tmp[PLC_HISTORY_LEN]; if (s->buf_ptr == 0) return; memcpy(tmp, s->history, sizeof(int16_t)*s->buf_ptr); memcpy(s->history, s->history + s->buf_ptr, sizeof(int16_t)*(PLC_HISTORY_LEN - s->buf_ptr)); memcpy(s->history + PLC_HISTORY_LEN - s->buf_ptr, tmp, sizeof(int16_t)*s->buf_ptr); s->buf_ptr = 0; } /*- End of function --------------------------------------------------------*/ static __inline__ int amdf_pitch(int min_pitch, int max_pitch, int16_t amp[], int len) { int i; int j; int acc; int min_acc; int pitch; pitch = min_pitch; min_acc = INT_MAX; for (i = max_pitch; i <= min_pitch; i++) { acc = 0; for (j = 0; j < len; j++) acc += abs(amp[i + j] - amp[j]); if (acc < min_acc) { min_acc = acc; pitch = i; } } return pitch; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) plc_rx(plc_state_t *s, int16_t amp[], int len) { int i; int pitch_overlap; float old_step; float new_step; float old_weight; float new_weight; float gain; if (s->missing_samples) { /* Although we have a real signal, we need to smooth it to fit well with the synthetic signal we used for the previous block */ /* The start of the real data is overlapped with the next 1/4 cycle of the synthetic data. */ pitch_overlap = s->pitch >> 2; if (pitch_overlap > len) pitch_overlap = len; gain = 1.0f - s->missing_samples*ATTENUATION_INCREMENT; if (gain < 0.0f) gain = 0.0f; new_step = 1.0f/pitch_overlap; old_step = new_step*gain; new_weight = new_step; old_weight = (1.0f - new_step)*gain; for (i = 0; i < pitch_overlap; i++) { amp[i] = fsaturate(old_weight*s->pitchbuf[s->pitch_offset] + new_weight*amp[i]); if (++s->pitch_offset >= s->pitch) s->pitch_offset = 0; new_weight += new_step; old_weight -= old_step; if (old_weight < 0.0f) old_weight = 0.0f; } s->missing_samples = 0; } save_history(s, amp, len); return len; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) plc_fillin(plc_state_t *s, int16_t amp[], int len) { int i; int pitch_overlap; float old_step; float new_step; float old_weight; float new_weight; float gain; int16_t *orig_amp; int orig_len; orig_amp = amp; orig_len = len; if (s->missing_samples == 0) { /* As the gap in real speech starts we need to assess the last known pitch, and prepare the synthetic data we will use for fill-in */ normalise_history(s); s->pitch = amdf_pitch(PLC_PITCH_MIN, PLC_PITCH_MAX, s->history + PLC_HISTORY_LEN - CORRELATION_SPAN - PLC_PITCH_MIN, CORRELATION_SPAN); /* We overlap a 1/4 wavelength */ pitch_overlap = s->pitch >> 2; /* Cook up a single cycle of pitch, using a single of the real signal with 1/4 cycle OLA'ed to make the ends join up nicely */ /* The first 3/4 of the cycle is a simple copy */ for (i = 0; i < s->pitch - pitch_overlap; i++) s->pitchbuf[i] = s->history[PLC_HISTORY_LEN - s->pitch + i]; /* The last 1/4 of the cycle is overlapped with the end of the previous cycle */ new_step = 1.0f/pitch_overlap; new_weight = new_step; for ( ; i < s->pitch; i++) { s->pitchbuf[i] = s->history[PLC_HISTORY_LEN - s->pitch + i]*(1.0f - new_weight) + s->history[PLC_HISTORY_LEN - 2*s->pitch + i]*new_weight; new_weight += new_step; } /* We should now be ready to fill in the gap with repeated, decaying cycles of what is in pitchbuf */ gain = 1.0f; /* We need to OLA the first 1/4 wavelength of the synthetic data, to smooth it into the previous real data. To avoid the need to introduce a delay in the stream, reverse the last 1/4 wavelength, and OLA with that. */ new_step = 1.0f/pitch_overlap; old_step = new_step; new_weight = new_step; old_weight = 1.0f - new_step; for (i = 0; i < pitch_overlap; i++) { amp[i] = fsaturate(old_weight*s->history[PLC_HISTORY_LEN - 1 - i] + new_weight*s->pitchbuf[i]); new_weight += new_step; old_weight -= old_step; if (old_weight < 0.0f) old_weight = 0.0f; } s->pitch_offset = i; } else { gain = 1.0f - s->missing_samples*ATTENUATION_INCREMENT; i = 0; } for ( ; gain > 0.0f && i < len; i++) { amp[i] = (int16_t) (s->pitchbuf[s->pitch_offset]*gain); gain -= ATTENUATION_INCREMENT; if (++s->pitch_offset >= s->pitch) s->pitch_offset = 0; } for ( ; i < len; i++) amp[i] = 0; s->missing_samples += orig_len; save_history(s, amp, len); return len; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(plc_state_t *) plc_init(plc_state_t *s) { if (s == NULL) { if ((s = (plc_state_t *) malloc(sizeof(*s))) == NULL) return NULL; } memset(s, 0, sizeof(*s)); return s; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) plc_release(plc_state_t *s) { return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) plc_free(plc_state_t *s) { if (s) free(s); return 0; } /*- End of function --------------------------------------------------------*/ /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/noise.c0000664000175000017500000000772311422612262014656 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * noise.c - A low complexity audio noise generator, suitable for * real time generation (current AWGN, and Hoth) * * Written by Steve Underwood * * Copyright (C) 2005 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \file */ #if defined(HAVE_CONFIG_H) #include "config.h" #endif #include #include #include #include #if defined(HAVE_TGMATH_H) #include #endif #if defined(HAVE_MATH_H) #include #endif #include "floating_fudge.h" #include "spandsp/telephony.h" #include "spandsp/fast_convert.h" #include "spandsp/saturated.h" #include "spandsp/noise.h" #include "spandsp/private/noise.h" SPAN_DECLARE(int16_t) noise(noise_state_t *s) { int32_t val; int i; /* The central limit theorem says if you add a few random numbers together, the result starts to look Gaussian. Quantities above 7 give diminishing returns. Quantites above 20 are exceedingly Gaussian. */ val = 0; for (i = 0; i < s->quality; i++) { s->rndnum = 1664525U*s->rndnum + 1013904223U; val += ((int32_t) s->rndnum) >> 22; } if (s->class_of_noise == NOISE_CLASS_HOTH) { /* Hoth noise is room-like. It should be sculpted, at the high and low ends, and roll off at 5dB/octave across the main part of the band. However, merely rolling off at 6dB/octave across the band gets you close to the subjective effect. */ s->state = (3*val + 5*s->state) >> 3; /* Bring the overall power level back to the pre-filtered level. This simple approx. leaves the signal about 0.35dB low. */ val = s->state << 1; } return saturate((val*s->rms) >> 10); } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(noise_state_t *) noise_init_dbov(noise_state_t *s, int seed, float level, int class_of_noise, int quality) { float rms; if (s == NULL) { if ((s = (noise_state_t *) malloc(sizeof(*s))) == NULL) return NULL; } memset(s, 0, sizeof(*s)); s->rndnum = (uint32_t) seed; rms = 32768.0f*powf(10.0f, level/20.0f); if (quality < 4) s->quality = 4; else if (quality > 20) s->quality = 20; else s->quality = quality; if (class_of_noise == NOISE_CLASS_HOTH) { /* Allow for the gain of the filter */ rms *= 1.043f; } s->rms = (int32_t) (rms*sqrtf(12.0f/s->quality)); s->class_of_noise = class_of_noise; return s; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(noise_state_t *) noise_init_dbm0(noise_state_t *s, int seed, float level, int class_of_noise, int quality) { return noise_init_dbov(s, seed, (level - DBM0_MAX_POWER), class_of_noise, quality); } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) noise_release(noise_state_t *s) { return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) noise_free(noise_state_t *s) { free(s); return 0; } /*- End of function --------------------------------------------------------*/ /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/image_translate.c0000664000175000017500000003740511422612262016700 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * image_translate.c - Image translation routines for reworking colour * and gray scale images to be bi-level images of an * appropriate size to be FAX compatible. * * Written by Steve Underwood * * Copyright (C) 2009 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License version 2, as * published by the Free Software Foundation. * * 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., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \file */ #if defined(HAVE_CONFIG_H) #include "config.h" #endif #include #include #include #include #include #include #include #include #include #if defined(HAVE_TGMATH_H) #include #endif #if defined(HAVE_MATH_H) #include #endif #include "floating_fudge.h" #include #include #include "spandsp/telephony.h" #include "spandsp/fast_convert.h" #include "spandsp/logging.h" #include "spandsp/saturated.h" #include "spandsp/t4_rx.h" #include "spandsp/t4_tx.h" #if defined(SPANDSP_SUPPORT_T85) #include "spandsp/t81_t82_arith_coding.h" #include "spandsp/t85.h" #endif #include "spandsp/t4_t6_decode.h" #include "spandsp/t4_t6_encode.h" #include "spandsp/image_translate.h" #include "spandsp/private/logging.h" #if defined(SPANDSP_SUPPORT_T85) #include "spandsp/private/t81_t82_arith_coding.h" #include "spandsp/private/t85.h" #endif #include "spandsp/private/t4_t6_decode.h" #include "spandsp/private/t4_t6_encode.h" #include "spandsp/private/t4_rx.h" #include "spandsp/private/t4_tx.h" #include "spandsp/private/image_translate.h" static int image_colour16_to_gray8_row(uint8_t mono[], uint16_t colour[], int pixels) { int i; uint32_t gray; for (i = 0; i < pixels; i++) { gray = colour[3*i]*19595 + colour[3*i + 1]*38469 + colour[3*i + 2]*7472; mono[i] = saturateu8(gray >> 24); } return pixels; } /*- End of function --------------------------------------------------------*/ static int image_colour8_to_gray8_row(uint8_t mono[], uint8_t colour[], int pixels) { int i; uint32_t gray; for (i = 0; i < pixels; i++) { gray = colour[3*i]*19595 + colour[3*i + 1]*38469 + colour[3*i + 2]*7472; mono[i] = saturateu8(gray >> 16); } return pixels; } /*- End of function --------------------------------------------------------*/ static int image_gray16_to_gray8_row(uint8_t mono[], uint16_t gray[], int pixels) { int i; for (i = 0; i < pixels; i++) mono[i] = gray[i] >> 8; return pixels; } /*- End of function --------------------------------------------------------*/ static int get_and_scrunch_row(image_translate_state_t *s, uint8_t buf[], size_t len) { int row_len; row_len = (*s->row_read_handler)(s->row_read_user_data, buf, s->input_width*s->bytes_per_pixel); if (row_len != s->input_width*s->bytes_per_pixel) return 0; /* Scrunch colour down to gray, and scrunch 16 bit pixels down to 8 bit pixels */ switch (s->input_format) { case IMAGE_TRANSLATE_FROM_GRAY_16: image_gray16_to_gray8_row(buf, (uint16_t *) buf, s->input_width); break; case IMAGE_TRANSLATE_FROM_COLOUR_16: image_colour16_to_gray8_row(buf, (uint16_t *) buf, s->input_width); break; case IMAGE_TRANSLATE_FROM_COLOUR_8: image_colour8_to_gray8_row(buf, buf, s->input_width); break; } return row_len; } /*- End of function --------------------------------------------------------*/ static int image_resize_row(image_translate_state_t *s, uint8_t buf[], size_t len) { int i; int output_width; int output_length; int input_width; int input_length; double c1; double c2; double int_part; int x; #if defined(SPANDSP_USE_FIXED_POINT) int frac_row; int frac_col; #else double frac_row; double frac_col; #endif int row_len; int skip; uint8_t *p; if (s->raw_output_row < 0) return 0; output_width = s->output_width - 1; output_length = s->output_length - 1; input_width = s->input_width - 1; input_length = s->input_length - 1; skip = s->raw_output_row*input_length/output_length; if (skip >= s->raw_input_row) { skip++; while (skip >= s->raw_input_row) { if (s->raw_input_row >= s->input_length) { s->raw_output_row = -1; break; } row_len = get_and_scrunch_row(s, s->raw_pixel_row[0], s->input_width*s->bytes_per_pixel); if (row_len != s->input_width*s->bytes_per_pixel) { s->raw_output_row = -1; return 0; } s->raw_input_row++; p = s->raw_pixel_row[0]; s->raw_pixel_row[0] = s->raw_pixel_row[1]; s->raw_pixel_row[1] = p; } } #if defined(SPANDSP_USE_FIXED_POINT) frac_row = s->raw_output_row*input_length/output_length; frac_row = s->raw_output_row*input_length - frac_row*output_length; for (i = 0; i < output_width; i++) { x = i*input_width/output_width; frac_col = x - x*output_width; c1 = s->raw_pixel_row[0][x] + (s->raw_pixel_row[0][x + 1] - s->raw_pixel_row[0][x])*frac_col; c1 = s->raw_pixel_row[1][x] + (s->raw_pixel_row[1][x + 1] - s->raw_pixel_row[1][x])*frac_col; buf[i] = saturateu8(c1 + (c2 - c1)*frac_row); } #else frac_row = modf((double) s->raw_output_row*input_length/output_length, &int_part); for (i = 0; i < output_width; i++) { frac_col = modf((double) i*input_width/output_width, &int_part); x = int_part; c1 = s->raw_pixel_row[0][x] + (s->raw_pixel_row[0][x + 1] - s->raw_pixel_row[0][x])*frac_col; c2 = s->raw_pixel_row[1][x] + (s->raw_pixel_row[1][x + 1] - s->raw_pixel_row[1][x])*frac_col; buf[i] = saturateu8(c1 + (c2 - c1)*frac_row); } #endif if (++s->raw_output_row >= s->output_length) s->raw_output_row = -1; return len; } /*- End of function --------------------------------------------------------*/ static __inline__ uint8_t find_closest_palette_color(int in) { return (in >= 128) ? 255 : 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) image_translate_row(image_translate_state_t *s, uint8_t buf[], size_t len) { int x; int y; int i; int j; int limit; int old_pixel; int new_pixel; int quant_error; uint8_t *p; uint8_t xx; if (s->output_row < 0) return 0; y = s->output_row++; /* This algorithm works over two rows, and outputs the earlier of the two. To make this work: - At row 0 we grab and scrunch two rows. - From row 1 up to the last row we grab one new additional row each time. - At the last row we dither and output, without getting an extra row in. */ for (i = (y == 0) ? 0 : 1; i < 2; i++) { p = s->pixel_row[0]; s->pixel_row[0] = s->pixel_row[1]; s->pixel_row[1] = p; /* If this is the end of the image just ignore that there is now rubbish in pixel_row[1]. Mark that the end has occurred. This row will be properly output, and the next one will fail, with the end of image condition (i.e. returning zero length) */ if (s->resize) { if (image_resize_row(s, s->pixel_row[1], s->output_width*s->bytes_per_pixel) != s->output_width*s->bytes_per_pixel) s->output_row = -1; } else { if (get_and_scrunch_row(s, s->pixel_row[1], s->output_width*s->bytes_per_pixel) != s->output_width*s->bytes_per_pixel) s->output_row = -1; } } /* Apply Floyd-Steinberg dithering to the 8 bit pixels, using a bustrophodontic scan, to reduce the grayscale image to pure black and white */ /* The first and last pixels in each row need special treatment, so we do not step outside the row. */ if ((y & 1)) { x = s->output_width - 1; old_pixel = s->pixel_row[0][x]; new_pixel = find_closest_palette_color(old_pixel); quant_error = old_pixel - new_pixel; s->pixel_row[0][x + 0] = new_pixel; s->pixel_row[0][x - 1] = saturateu8(s->pixel_row[0][x - 1] + (7*quant_error)/16); s->pixel_row[1][x + 0] = saturateu8(s->pixel_row[1][x + 0] + (5*quant_error)/16); s->pixel_row[1][x - 1] = saturateu8(s->pixel_row[1][x - 1] + (1*quant_error)/16); for ( ; x > 0; x--) { old_pixel = s->pixel_row[0][x]; new_pixel = find_closest_palette_color(old_pixel); quant_error = old_pixel - new_pixel; s->pixel_row[0][x + 0] = new_pixel; s->pixel_row[0][x - 1] = saturateu8(s->pixel_row[0][x - 1] + (7*quant_error)/16); s->pixel_row[1][x + 1] = saturateu8(s->pixel_row[1][x + 1] + (3*quant_error)/16); s->pixel_row[1][x + 0] = saturateu8(s->pixel_row[1][x + 0] + (5*quant_error)/16); s->pixel_row[1][x - 1] = saturateu8(s->pixel_row[1][x - 1] + (1*quant_error)/16); } old_pixel = s->pixel_row[0][x]; new_pixel = find_closest_palette_color(old_pixel); quant_error = old_pixel - new_pixel; s->pixel_row[0][x + 0] = new_pixel; s->pixel_row[1][x + 1] = saturateu8(s->pixel_row[1][x + 1] + (3*quant_error)/16); s->pixel_row[1][x + 0] = saturateu8(s->pixel_row[1][x + 0] + (5*quant_error)/16); } else { x = 0; old_pixel = s->pixel_row[0][x]; new_pixel = find_closest_palette_color(old_pixel); quant_error = old_pixel - new_pixel; s->pixel_row[0][x + 0] = new_pixel; s->pixel_row[0][x + 1] = saturateu8(s->pixel_row[0][x + 1] + (7*quant_error)/16); s->pixel_row[1][x + 0] = saturateu8(s->pixel_row[1][x + 0] + (5*quant_error)/16); s->pixel_row[1][x + 1] = saturateu8(s->pixel_row[1][x + 1] + (1*quant_error)/16); for ( ; x < s->output_width - 1; x++) { old_pixel = s->pixel_row[0][x]; new_pixel = find_closest_palette_color(old_pixel); quant_error = old_pixel - new_pixel; s->pixel_row[0][x + 0] = new_pixel; s->pixel_row[0][x + 1] = saturateu8(s->pixel_row[0][x + 1] + (7*quant_error)/16); s->pixel_row[1][x - 1] = saturateu8(s->pixel_row[1][x - 1] + (3*quant_error)/16); s->pixel_row[1][x + 0] = saturateu8(s->pixel_row[1][x + 0] + (5*quant_error)/16); s->pixel_row[1][x + 1] = saturateu8(s->pixel_row[1][x + 1] + (1*quant_error)/16); } old_pixel = s->pixel_row[0][x]; new_pixel = find_closest_palette_color(old_pixel); quant_error = old_pixel - new_pixel; s->pixel_row[0][x + 0] = new_pixel; s->pixel_row[1][x - 1] = saturateu8(s->pixel_row[1][x - 1] + (3*quant_error)/16); s->pixel_row[1][x + 0] = saturateu8(s->pixel_row[1][x + 0] + (5*quant_error)/16); } /* Now bit pack the pixel per byte row into a pixel per bit row. */ for (i = 0, x = 0; x < s->output_width; i++, x += 8) { xx = 0; /* Allow for the possibility that the width is not a multiple of 8 */ limit = (8 <= s->output_width - x) ? 8 : (s->output_width - x); for (j = 0; j < limit; j++) { if (s->pixel_row[0][x + j] <= 128) xx |= (1 << (7 - j)); } buf[i] = xx; } return i; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) image_translate_get_output_width(image_translate_state_t *s) { return s->output_width; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) image_translate_get_output_length(image_translate_state_t *s) { return s->output_length; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(image_translate_state_t *) image_translate_init(image_translate_state_t *s, int input_format, int input_width, int input_length, int output_width, t4_row_read_handler_t row_read_handler, void *row_read_user_data) { int i; if (s == NULL) { if ((s = (image_translate_state_t *) malloc(sizeof(*s))) == NULL) return NULL; } memset(s, 0, sizeof(*s)); s->input_format = input_format; s->input_width = input_width; s->input_length = input_length; s->resize = (output_width > 0); s->output_width = (s->resize) ? output_width : s->input_width; s->output_length = (s->resize) ? s->input_length*s->output_width/s->input_width : s->input_length; switch (s->input_format) { case IMAGE_TRANSLATE_FROM_GRAY_8: s->bytes_per_pixel = 1; break; case IMAGE_TRANSLATE_FROM_GRAY_16: s->bytes_per_pixel = 2; break; case IMAGE_TRANSLATE_FROM_COLOUR_8: s->bytes_per_pixel = 3; break; case IMAGE_TRANSLATE_FROM_COLOUR_16: s->bytes_per_pixel = 6; break; default: s->bytes_per_pixel = 1; break; } /* Allocate the two row buffers we need, using the space requirements we now have */ if (s->resize) { for (i = 0; i < 2; i++) { if ((s->raw_pixel_row[i] = (uint8_t *) malloc(s->input_width*s->bytes_per_pixel)) == NULL) return NULL; memset(s->raw_pixel_row[i], 0, s->input_width*s->bytes_per_pixel); if ((s->pixel_row[i] = (uint8_t *) malloc(s->output_width*sizeof(uint8_t))) == NULL) return NULL; memset(s->pixel_row[i], 0, s->output_width*sizeof(uint8_t)); } } else { for (i = 0; i < 2; i++) { if ((s->pixel_row[i] = (uint8_t *) malloc(s->output_width*s->bytes_per_pixel)) == NULL) return NULL; memset(s->pixel_row[i], 0, s->output_width*s->bytes_per_pixel); } } s->row_read_handler = row_read_handler; s->row_read_user_data = row_read_user_data; s->raw_input_row = 0; s->raw_output_row = 0; s->output_row = 0; return s; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) image_translate_release(image_translate_state_t *s) { int i; for (i = 0; i < 2; i++) { if (s->raw_pixel_row[i]) { free(s->raw_pixel_row[i]); s->raw_pixel_row[i] = NULL; } if (s->pixel_row[i]) { free(s->pixel_row[i]); s->pixel_row[i] = NULL; } } return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) image_translate_free(image_translate_state_t *s) { int res; res = image_translate_release(s); free(s); return res; } /*- End of function --------------------------------------------------------*/ /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/bell_r2_mf.c0000664000175000017500000006375611422612261015553 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * bell_r2_mf.c - Bell MF and MFC/R2 tone generation and detection. * * Written by Steve Underwood * * Copyright (C) 2001 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \file */ #if defined(HAVE_CONFIG_H) #include "config.h" #endif #include #include #include #include #include #if defined(HAVE_TGMATH_H) #include #endif #if defined(HAVE_MATH_H) #include #endif #include "floating_fudge.h" #include "spandsp/telephony.h" #include "spandsp/fast_convert.h" #include "spandsp/queue.h" #include "spandsp/dc_restore.h" #include "spandsp/complex.h" #include "spandsp/dds.h" #include "spandsp/tone_detect.h" #include "spandsp/tone_generate.h" #include "spandsp/super_tone_rx.h" #include "spandsp/dtmf.h" #include "spandsp/bell_r2_mf.h" #include "spandsp/private/queue.h" #include "spandsp/private/tone_generate.h" #include "spandsp/private/bell_r2_mf.h" #if !defined(M_PI) /* C99 systems may not define M_PI */ #define M_PI 3.14159265358979323846264338327 #endif /*! MF tone descriptor. */ typedef struct { int f1; /* First freq */ int f2; /* Second freq */ int8_t level1; /* Level of the first freq (dB) */ int8_t level2; /* Level of the second freq (dB) */ uint8_t on_time; /* Tone on time (ms) */ uint8_t off_time; /* Minimum post tone silence (ms) */ } mf_digit_tones_t; int bell_mf_gen_inited = FALSE; tone_gen_descriptor_t bell_mf_digit_tones[15]; int r2_mf_gen_inited = FALSE; tone_gen_descriptor_t r2_mf_fwd_digit_tones[15]; tone_gen_descriptor_t r2_mf_back_digit_tones[15]; #if 0 tone_gen_descriptor_t socotel_mf_digit_tones[18]; #endif /* Bell R1 tone generation specs. * Power: -7dBm +- 1dB * Frequency: within +-1.5% * Mismatch between the start time of a pair of tones: <=6ms. * Mismatch between the end time of a pair of tones: <=6ms. * Tone duration: 68+-7ms, except KP which is 100+-7ms. * Inter-tone gap: 68+-7ms. */ static const mf_digit_tones_t bell_mf_tones[] = { { 700, 900, -7, -7, 68, 68}, { 700, 1100, -7, -7, 68, 68}, { 900, 1100, -7, -7, 68, 68}, { 700, 1300, -7, -7, 68, 68}, { 900, 1300, -7, -7, 68, 68}, {1100, 1300, -7, -7, 68, 68}, { 700, 1500, -7, -7, 68, 68}, { 900, 1500, -7, -7, 68, 68}, {1100, 1500, -7, -7, 68, 68}, {1300, 1500, -7, -7, 68, 68}, { 700, 1700, -7, -7, 68, 68}, /* ST''' - use 'C' */ { 900, 1700, -7, -7, 68, 68}, /* ST' - use 'A' */ {1100, 1700, -7, -7, 100, 68}, /* KP - use '*' */ {1300, 1700, -7, -7, 68, 68}, /* ST'' - use 'B' */ {1500, 1700, -7, -7, 68, 68}, /* ST - use '#' */ {0, 0, 0, 0, 0, 0} }; /* The order of the digits here must match the list above */ static const char bell_mf_tone_codes[] = "1234567890CA*B#"; /* R2 tone generation specs. * Power: -11.5dBm +- 1dB * Frequency: within +-4Hz * Mismatch between the start time of a pair of tones: <=1ms. * Mismatch between the end time of a pair of tones: <=1ms. */ static const mf_digit_tones_t r2_mf_fwd_tones[] = { {1380, 1500, -11, -11, 1, 0}, {1380, 1620, -11, -11, 1, 0}, {1500, 1620, -11, -11, 1, 0}, {1380, 1740, -11, -11, 1, 0}, {1500, 1740, -11, -11, 1, 0}, {1620, 1740, -11, -11, 1, 0}, {1380, 1860, -11, -11, 1, 0}, {1500, 1860, -11, -11, 1, 0}, {1620, 1860, -11, -11, 1, 0}, {1740, 1860, -11, -11, 1, 0}, {1380, 1980, -11, -11, 1, 0}, {1500, 1980, -11, -11, 1, 0}, {1620, 1980, -11, -11, 1, 0}, {1740, 1980, -11, -11, 1, 0}, {1860, 1980, -11, -11, 1, 0}, {0, 0, 0, 0, 0, 0} }; static const mf_digit_tones_t r2_mf_back_tones[] = { {1140, 1020, -11, -11, 1, 0}, {1140, 900, -11, -11, 1, 0}, {1020, 900, -11, -11, 1, 0}, {1140, 780, -11, -11, 1, 0}, {1020, 780, -11, -11, 1, 0}, { 900, 780, -11, -11, 1, 0}, {1140, 660, -11, -11, 1, 0}, {1020, 660, -11, -11, 1, 0}, { 900, 660, -11, -11, 1, 0}, { 780, 660, -11, -11, 1, 0}, {1140, 540, -11, -11, 1, 0}, {1020, 540, -11, -11, 1, 0}, { 900, 540, -11, -11, 1, 0}, { 780, 540, -11, -11, 1, 0}, { 660, 540, -11, -11, 1, 0}, {0, 0, 0, 0, 0, 0} }; /* The order of the digits here must match the lists above */ static const char r2_mf_tone_codes[] = "1234567890BCDEF"; #if 0 static const mf_digit_tones_t socotel_tones[] = { { 700, 900, -11, -11, 1, 0}, { 700, 1100, -11, -11, 1, 0}, { 900, 1100, -11, -11, 1, 0}, { 700, 1300, -11, -11, 1, 0}, { 900, 1300, -11, -11, 1, 0}, {1100, 1300, -11, -11, 1, 0}, { 700, 1500, -11, -11, 1, 0}, { 900, 1500, -11, -11, 1, 0}, {1100, 1500, -11, -11, 1, 0}, {1300, 1500, -11, -11, 1, 0}, {1500, 1700, -11, -11, 1, 0}, { 700, 1700, -11, -11, 1, 0}, { 900, 1700, -11, -11, 1, 0}, {1300, 1700, -11, -11, 1, 0}, {1100, 1700, -11, -11, 1, 0}, {1700, 0, -11, -11, 1, 0}, /* Use 'F' */ {1900, 0, -11, -11, 1, 0}, /* Use 'G' */ {0, 0, 0, 0, 0, 0} }; /* The order of the digits here must match the list above */ static char socotel_mf_tone_codes[] = "1234567890ABCDEFG"; #endif #if defined(SPANDSP_USE_FIXED_POINT) #define BELL_MF_THRESHOLD 204089 /* -30.5dBm0 */ #define BELL_MF_TWIST 3.981f /* 6dB */ #define BELL_MF_RELATIVE_PEAK 12.589f /* 11dB */ #define BELL_MF_SAMPLES_PER_BLOCK 120 #define R2_MF_THRESHOLD 62974 /* -36.5dBm0 */ #define R2_MF_TWIST 5.012f /* 7dB */ #define R2_MF_RELATIVE_PEAK 12.589f /* 11dB */ #define R2_MF_SAMPLES_PER_BLOCK 133 #else #define BELL_MF_THRESHOLD 3343803100.0f /* -30.5dBm0 [((120.0*32768.0/1.4142)*10^((-30.5 - DBM0_MAX_SINE_POWER)/20.0))^2 => 3343803100.0] */ #define BELL_MF_TWIST 3.981f /* 6dB [10^(6/10) => 3.981] */ #define BELL_MF_RELATIVE_PEAK 12.589f /* 11dB */ #define BELL_MF_SAMPLES_PER_BLOCK 120 #define R2_MF_THRESHOLD 1031766650.0f /* -36.5dBm0 [((133.0*32768.0/1.4142)*10^((-36.5 - DBM0_MAX_SINE_POWER)/20.0))^2 => 1031766650.0] */ #define R2_MF_TWIST 5.012f /* 7dB */ #define R2_MF_RELATIVE_PEAK 12.589f /* 11dB */ #define R2_MF_SAMPLES_PER_BLOCK 133 #endif static goertzel_descriptor_t bell_mf_detect_desc[6]; static goertzel_descriptor_t mf_fwd_detect_desc[6]; static goertzel_descriptor_t mf_back_detect_desc[6]; static const int bell_mf_frequencies[] = { 700, 900, 1100, 1300, 1500, 1700 }; /* Use the follow characters for the Bell MF special signals: KP - use '*' ST - use '#' ST' - use 'A' ST'' - use 'B' ST''' - use 'C' */ static const char bell_mf_positions[] = "1247C-358A--69*---0B----#"; static const int r2_mf_fwd_frequencies[] = { 1380, 1500, 1620, 1740, 1860, 1980 }; static const int r2_mf_back_frequencies[] = { 1140, 1020, 900, 780, 660, 540 }; /* Use codes '1' to 'F' for the R2 signals 1 to 15, except for signal 'A'. Use '0' for this, so the codes match the digits 0-9. */ static const char r2_mf_positions[] = "1247B-358C--69D---0E----F"; static void bell_mf_gen_init(void) { int i; const mf_digit_tones_t *tones; if (bell_mf_gen_inited) return; i = 0; tones = bell_mf_tones; while (tones->on_time) { /* Note: The duration of KP is longer than the other signals. */ tone_gen_descriptor_init(&bell_mf_digit_tones[i++], tones->f1, tones->level1, tones->f2, tones->level2, tones->on_time, tones->off_time, 0, 0, FALSE); tones++; } bell_mf_gen_inited = TRUE; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) bell_mf_tx(bell_mf_tx_state_t *s, int16_t amp[], int max_samples) { int len; const char *cp; int digit; len = 0; if (s->tones.current_section >= 0) { /* Deal with the fragment left over from last time */ len = tone_gen(&(s->tones), amp, max_samples); } while (len < max_samples && (digit = queue_read_byte(&s->queue.queue)) >= 0) { /* Step to the next digit */ if ((cp = strchr(bell_mf_tone_codes, digit)) == NULL) continue; tone_gen_init(&(s->tones), &bell_mf_digit_tones[cp - bell_mf_tone_codes]); len += tone_gen(&(s->tones), amp + len, max_samples - len); } return len; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) bell_mf_tx_put(bell_mf_tx_state_t *s, const char *digits, int len) { size_t space; /* This returns the number of characters that would not fit in the buffer. The buffer will only be loaded if the whole string of digits will fit, in which case zero is returned. */ if (len < 0) { if ((len = strlen(digits)) == 0) return 0; } if ((space = queue_free_space(&s->queue.queue)) < (size_t) len) return len - (int) space; if (queue_write(&s->queue.queue, (const uint8_t *) digits, len) >= 0) return 0; return -1; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(bell_mf_tx_state_t *) bell_mf_tx_init(bell_mf_tx_state_t *s) { if (s == NULL) { if ((s = (bell_mf_tx_state_t *) malloc(sizeof(*s))) == NULL) return NULL; } memset(s, 0, sizeof(*s)); if (!bell_mf_gen_inited) bell_mf_gen_init(); tone_gen_init(&(s->tones), &bell_mf_digit_tones[0]); s->current_sample = 0; queue_init(&s->queue.queue, MAX_BELL_MF_DIGITS, QUEUE_READ_ATOMIC | QUEUE_WRITE_ATOMIC); s->tones.current_section = -1; return s; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) bell_mf_tx_release(bell_mf_tx_state_t *s) { return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) bell_mf_tx_free(bell_mf_tx_state_t *s) { free(s); return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) r2_mf_tx(r2_mf_tx_state_t *s, int16_t amp[], int samples) { int len; if (s->digit == 0) { len = samples; memset(amp, 0, len*sizeof(int16_t)); } else { len = tone_gen(&s->tone, amp, samples); } return len; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) r2_mf_tx_put(r2_mf_tx_state_t *s, char digit) { char *cp; if (digit && (cp = strchr(r2_mf_tone_codes, digit))) { if (s->fwd) tone_gen_init(&s->tone, &r2_mf_fwd_digit_tones[cp - r2_mf_tone_codes]); else tone_gen_init(&s->tone, &r2_mf_back_digit_tones[cp - r2_mf_tone_codes]); s->digit = digit; } else { s->digit = 0; } return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(r2_mf_tx_state_t *) r2_mf_tx_init(r2_mf_tx_state_t *s, int fwd) { int i; const mf_digit_tones_t *tones; if (s == NULL) { if ((s = (r2_mf_tx_state_t *) malloc(sizeof(*s))) == NULL) return NULL; } memset(s, 0, sizeof(*s)); if (!r2_mf_gen_inited) { i = 0; tones = r2_mf_fwd_tones; while (tones->on_time) { tone_gen_descriptor_init(&r2_mf_fwd_digit_tones[i++], tones->f1, tones->level1, tones->f2, tones->level2, tones->on_time, tones->off_time, 0, 0, (tones->off_time == 0)); tones++; } i = 0; tones = r2_mf_back_tones; while (tones->on_time) { tone_gen_descriptor_init(&r2_mf_back_digit_tones[i++], tones->f1, tones->level1, tones->f2, tones->level2, tones->on_time, tones->off_time, 0, 0, (tones->off_time == 0)); tones++; } r2_mf_gen_inited = TRUE; } s->fwd = fwd; return s; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) r2_mf_tx_release(r2_mf_tx_state_t *s) { return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) r2_mf_tx_free(r2_mf_tx_state_t *s) { free(s); return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) bell_mf_rx(bell_mf_rx_state_t *s, const int16_t amp[], int samples) { #if defined(SPANDSP_USE_FIXED_POINT) int32_t energy[6]; int16_t xamp; #else float energy[6]; float xamp; #endif int i; int j; int sample; int best; int second_best; int limit; uint8_t hit; hit = 0; for (sample = 0; sample < samples; sample = limit) { if ((samples - sample) >= (BELL_MF_SAMPLES_PER_BLOCK - s->current_sample)) limit = sample + (BELL_MF_SAMPLES_PER_BLOCK - s->current_sample); else limit = samples; for (j = sample; j < limit; j++) { xamp = goertzel_preadjust_amp(amp[j]); goertzel_samplex(&s->out[0], xamp); goertzel_samplex(&s->out[1], xamp); goertzel_samplex(&s->out[2], xamp); goertzel_samplex(&s->out[3], xamp); goertzel_samplex(&s->out[4], xamp); goertzel_samplex(&s->out[5], xamp); } s->current_sample += (limit - sample); if (s->current_sample < BELL_MF_SAMPLES_PER_BLOCK) continue; /* We are at the end of an MF detection block */ /* Find the two highest energies. The spec says to look for two tones and two tones only. Taking this literally -ie only two tones pass the minimum threshold - doesn't work well. The sinc function mess, due to rectangular windowing ensure that! Find the two highest energies and ensure they are considerably stronger than any of the others. */ energy[0] = goertzel_result(&s->out[0]); energy[1] = goertzel_result(&s->out[1]); if (energy[0] > energy[1]) { best = 0; second_best = 1; } else { best = 1; second_best = 0; } for (i = 2; i < 6; i++) { energy[i] = goertzel_result(&s->out[i]); if (energy[i] >= energy[best]) { second_best = best; best = i; } else if (energy[i] >= energy[second_best]) { second_best = i; } } /* Basic signal level and twist tests */ hit = 0; if (energy[best] >= BELL_MF_THRESHOLD && energy[second_best] >= BELL_MF_THRESHOLD && energy[best] < energy[second_best]*BELL_MF_TWIST && energy[best]*BELL_MF_TWIST > energy[second_best]) { /* Relative peak test */ hit = 'X'; for (i = 0; i < 6; i++) { if (i != best && i != second_best) { if (energy[i]*BELL_MF_RELATIVE_PEAK >= energy[second_best]) { /* The best two are not clearly the best */ hit = 0; break; } } } } if (hit) { /* Get the values into ascending order */ if (second_best < best) { i = best; best = second_best; second_best = i; } best = best*5 + second_best - 1; hit = bell_mf_positions[best]; /* Look for two successive similar results */ /* The logic in the next test is: For KP we need 4 successive identical clean detects, with two blocks of something different preceeding it. For anything else we need two successive identical clean detects, with two blocks of something different preceeding it. */ if (hit == s->hits[4] && hit == s->hits[3] && ((hit != '*' && hit != s->hits[2] && hit != s->hits[1]) || (hit == '*' && hit == s->hits[2] && hit != s->hits[1] && hit != s->hits[0]))) { if (s->current_digits < MAX_BELL_MF_DIGITS) { s->digits[s->current_digits++] = (char) hit; s->digits[s->current_digits] = '\0'; if (s->digits_callback) { s->digits_callback(s->digits_callback_data, s->digits, s->current_digits); s->current_digits = 0; } } else { s->lost_digits++; } } } s->hits[0] = s->hits[1]; s->hits[1] = s->hits[2]; s->hits[2] = s->hits[3]; s->hits[3] = s->hits[4]; s->hits[4] = hit; s->current_sample = 0; } if (s->current_digits && s->digits_callback) { s->digits_callback(s->digits_callback_data, s->digits, s->current_digits); s->digits[0] = '\0'; s->current_digits = 0; } return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(size_t) bell_mf_rx_get(bell_mf_rx_state_t *s, char *buf, int max) { if (max > s->current_digits) max = s->current_digits; if (max > 0) { memcpy(buf, s->digits, max); memmove(s->digits, s->digits + max, s->current_digits - max); s->current_digits -= max; } buf[max] = '\0'; return max; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(bell_mf_rx_state_t *) bell_mf_rx_init(bell_mf_rx_state_t *s, digits_rx_callback_t callback, void *user_data) { int i; static int initialised = FALSE; if (s == NULL) { if ((s = (bell_mf_rx_state_t *) malloc(sizeof(*s))) == NULL) return NULL; } memset(s, 0, sizeof(*s)); if (!initialised) { for (i = 0; i < 6; i++) make_goertzel_descriptor(&bell_mf_detect_desc[i], (float) bell_mf_frequencies[i], BELL_MF_SAMPLES_PER_BLOCK); initialised = TRUE; } s->digits_callback = callback; s->digits_callback_data = user_data; s->hits[0] = s->hits[1] = s->hits[2] = s->hits[3] = s->hits[4] = 0; for (i = 0; i < 6; i++) goertzel_init(&s->out[i], &bell_mf_detect_desc[i]); s->current_sample = 0; s->lost_digits = 0; s->current_digits = 0; s->digits[0] = '\0'; return s; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) bell_mf_rx_release(bell_mf_rx_state_t *s) { return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) bell_mf_rx_free(bell_mf_rx_state_t *s) { free(s); return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) r2_mf_rx(r2_mf_rx_state_t *s, const int16_t amp[], int samples) { #if defined(SPANDSP_USE_FIXED_POINT) int32_t energy[6]; int16_t xamp; #else float energy[6]; float xamp; #endif int i; int j; int sample; int best; int second_best; int hit; int hit_digit; int limit; hit = 0; hit_digit = 0; for (sample = 0; sample < samples; sample = limit) { if ((samples - sample) >= (R2_MF_SAMPLES_PER_BLOCK - s->current_sample)) limit = sample + (R2_MF_SAMPLES_PER_BLOCK - s->current_sample); else limit = samples; for (j = sample; j < limit; j++) { xamp = goertzel_preadjust_amp(amp[j]); goertzel_samplex(&s->out[0], xamp); goertzel_samplex(&s->out[1], xamp); goertzel_samplex(&s->out[2], xamp); goertzel_samplex(&s->out[3], xamp); goertzel_samplex(&s->out[4], xamp); goertzel_samplex(&s->out[5], xamp); } s->current_sample += (limit - sample); if (s->current_sample < R2_MF_SAMPLES_PER_BLOCK) continue; /* We are at the end of an MF detection block */ /* Find the two highest energies */ energy[0] = goertzel_result(&s->out[0]); energy[1] = goertzel_result(&s->out[1]); if (energy[0] > energy[1]) { best = 0; second_best = 1; } else { best = 1; second_best = 0; } for (i = 2; i < 6; i++) { energy[i] = goertzel_result(&s->out[i]); if (energy[i] >= energy[best]) { second_best = best; best = i; } else if (energy[i] >= energy[second_best]) { second_best = i; } } /* Basic signal level and twist tests */ hit = FALSE; if (energy[best] >= R2_MF_THRESHOLD && energy[second_best] >= R2_MF_THRESHOLD && energy[best] < energy[second_best]*R2_MF_TWIST && energy[best]*R2_MF_TWIST > energy[second_best]) { /* Relative peak test */ hit = TRUE; for (i = 0; i < 6; i++) { if (i != best && i != second_best) { if (energy[i]*R2_MF_RELATIVE_PEAK >= energy[second_best]) { /* The best two are not clearly the best */ hit = FALSE; break; } } } } if (hit) { /* Get the values into ascending order */ if (second_best < best) { i = best; best = second_best; second_best = i; } best = best*5 + second_best - 1; hit_digit = r2_mf_positions[best]; } else { hit_digit = 0; } if (s->current_digit != hit_digit && s->callback) { i = (hit_digit) ? -99 : -10; s->callback(s->callback_data, hit_digit, i, 0); } s->current_digit = hit_digit; s->current_sample = 0; } return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) r2_mf_rx_get(r2_mf_rx_state_t *s) { return s->current_digit; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(r2_mf_rx_state_t *) r2_mf_rx_init(r2_mf_rx_state_t *s, int fwd, tone_report_func_t callback, void *user_data) { int i; static int initialised = FALSE; if (s == NULL) { if ((s = (r2_mf_rx_state_t *) malloc(sizeof(*s))) == NULL) return NULL; } memset(s, 0, sizeof(*s)); s->fwd = fwd; if (!initialised) { for (i = 0; i < 6; i++) { make_goertzel_descriptor(&mf_fwd_detect_desc[i], (float) r2_mf_fwd_frequencies[i], R2_MF_SAMPLES_PER_BLOCK); make_goertzel_descriptor(&mf_back_detect_desc[i], (float) r2_mf_back_frequencies[i], R2_MF_SAMPLES_PER_BLOCK); } initialised = TRUE; } if (fwd) { for (i = 0; i < 6; i++) goertzel_init(&s->out[i], &mf_fwd_detect_desc[i]); } else { for (i = 0; i < 6; i++) goertzel_init(&s->out[i], &mf_back_detect_desc[i]); } s->callback = callback; s->callback_data = user_data; s->current_digit = 0; s->current_sample = 0; return s; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) r2_mf_rx_release(r2_mf_rx_state_t *s) { return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) r2_mf_rx_free(r2_mf_rx_state_t *s) { free(s); return 0; } /*- End of function --------------------------------------------------------*/ /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/v29tx.c0000664000175000017500000003220311422612263014525 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * v29tx.c - ITU V.29 modem transmit part * * Written by Steve Underwood * * Copyright (C) 2003 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \file */ #if defined(HAVE_CONFIG_H) #include "config.h" #endif #include #include #include #include #if defined(HAVE_TGMATH_H) #include #endif #if defined(HAVE_MATH_H) #include #endif #include "floating_fudge.h" #include "spandsp/telephony.h" #include "spandsp/fast_convert.h" #include "spandsp/logging.h" #include "spandsp/complex.h" #include "spandsp/vector_float.h" #include "spandsp/complex_vector_float.h" #include "spandsp/vector_int.h" #include "spandsp/complex_vector_int.h" #include "spandsp/async.h" #include "spandsp/dds.h" #include "spandsp/power_meter.h" #include "spandsp/v29tx.h" #include "spandsp/private/logging.h" #include "spandsp/private/v29tx.h" #include "v29tx_constellation_maps.h" #if defined(SPANDSP_USE_FIXED_POINT) #include "v29tx_fixed_rrc.h" #else #include "v29tx_floating_rrc.h" #endif /*! The nominal frequency of the carrier, in Hertz */ #define CARRIER_NOMINAL_FREQ 1700.0f /* Segments of the training sequence */ /*! The start of the optional TEP, that may preceed the actual training, in symbols */ #define V29_TRAINING_SEG_TEP 0 /*! The start of training segment 1, in symbols */ #define V29_TRAINING_SEG_1 (V29_TRAINING_SEG_TEP + 480) /*! The start of training segment 2, in symbols */ #define V29_TRAINING_SEG_2 (V29_TRAINING_SEG_1 + 48) /*! The start of training segment 3, in symbols */ #define V29_TRAINING_SEG_3 (V29_TRAINING_SEG_2 + 128) /*! The start of training segment 4, in symbols */ #define V29_TRAINING_SEG_4 (V29_TRAINING_SEG_3 + 384) /*! The end of the training, in symbols */ #define V29_TRAINING_END (V29_TRAINING_SEG_4 + 48) /*! The end of the shutdown sequence, in symbols */ #define V29_TRAINING_SHUTDOWN_END (V29_TRAINING_END + 32) static int fake_get_bit(void *user_data) { return 1; } /*- End of function --------------------------------------------------------*/ static __inline__ int get_scrambled_bit(v29_tx_state_t *s) { int bit; int out_bit; if ((bit = s->current_get_bit(s->get_bit_user_data)) == SIG_STATUS_END_OF_DATA) { /* End of real data. Switch to the fake get_bit routine, until we have shut down completely. */ if (s->status_handler) s->status_handler(s->status_user_data, SIG_STATUS_END_OF_DATA); s->current_get_bit = fake_get_bit; s->in_training = TRUE; bit = 1; } out_bit = (bit ^ (s->scramble_reg >> (18 - 1)) ^ (s->scramble_reg >> (23 - 1))) & 1; s->scramble_reg = (s->scramble_reg << 1) | out_bit; return out_bit; } /*- End of function --------------------------------------------------------*/ #if defined(SPANDSP_USE_FIXED_POINT) static __inline__ complexi16_t getbaud(v29_tx_state_t *s) #else static __inline__ complexf_t getbaud(v29_tx_state_t *s) #endif { static const int phase_steps_9600[8] = { 1, 0, 2, 3, 6, 7, 5, 4 }; static const int phase_steps_4800[4] = { 0, 2, 6, 4 }; #if defined(SPANDSP_USE_FIXED_POINT) static const complexi16_t zero = {0, 0}; #else static const complexf_t zero = {0.0f, 0.0f}; #endif int bits; int amp; int bit; if (s->in_training) { /* Send the training sequence */ if (++s->training_step <= V29_TRAINING_SEG_4) { if (s->training_step <= V29_TRAINING_SEG_3) { if (s->training_step <= V29_TRAINING_SEG_1) { /* Optional segment: Unmodulated carrier (talker echo protection) */ return v29_9600_constellation[0]; } if (s->training_step <= V29_TRAINING_SEG_2) { /* Segment 1: silence */ return zero; } /* Segment 2: ABAB... */ return v29_abab_constellation[(s->training_step & 1) + s->training_offset]; } /* Segment 3: CDCD... */ /* Apply the 1 + x^-6 + x^-7 training scrambler */ bit = s->training_scramble_reg & 1; s->training_scramble_reg >>= 1; s->training_scramble_reg |= (((bit ^ s->training_scramble_reg) & 1) << 6); return v29_cdcd_constellation[bit + s->training_offset]; } /* We should be in the block of test ones, or shutdown ones, if we get here. */ /* There is no graceful shutdown procedure defined for V.29. Just send some ones, to ensure we get the real data bits through, even with bad ISI. */ if (s->training_step == V29_TRAINING_END + 1) { /* Switch from the fake get_bit routine, to the user supplied real one, and we are up and running. */ s->current_get_bit = s->get_bit; s->in_training = FALSE; } if (s->training_step == V29_TRAINING_SHUTDOWN_END) { if (s->status_handler) s->status_handler(s->status_user_data, SIG_STATUS_SHUTDOWN_COMPLETE); } } /* 9600bps uses the full constellation. 7200bps uses only the first half of the full constellation. 4800bps uses the smaller constellation. */ amp = 0; /* We only use an amplitude bit at 9600bps */ if (s->bit_rate == 9600 && get_scrambled_bit(s)) amp = 8; /*endif*/ bits = get_scrambled_bit(s); bits = (bits << 1) | get_scrambled_bit(s); if (s->bit_rate == 4800) { bits = phase_steps_4800[bits]; } else { bits = (bits << 1) | get_scrambled_bit(s); bits = phase_steps_9600[bits]; } s->constellation_state = (s->constellation_state + bits) & 7; return v29_9600_constellation[amp | s->constellation_state]; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE_NONSTD(int) v29_tx(v29_tx_state_t *s, int16_t amp[], int len) { #if defined(SPANDSP_USE_FIXED_POINT) complexi_t x; complexi_t z; #else complexf_t x; complexf_t z; #endif int i; int sample; if (s->training_step >= V29_TRAINING_SHUTDOWN_END) { /* Once we have sent the shutdown symbols, we stop sending completely. */ return 0; } for (sample = 0; sample < len; sample++) { if ((s->baud_phase += 3) >= 10) { s->baud_phase -= 10; s->rrc_filter[s->rrc_filter_step] = s->rrc_filter[s->rrc_filter_step + V29_TX_FILTER_STEPS] = getbaud(s); if (++s->rrc_filter_step >= V29_TX_FILTER_STEPS) s->rrc_filter_step = 0; } /* Root raised cosine pulse shaping at baseband */ #if defined(SPANDSP_USE_FIXED_POINT) x = complex_seti(0, 0); for (i = 0; i < V29_TX_FILTER_STEPS; i++) { x.re += (int32_t) tx_pulseshaper[TX_PULSESHAPER_COEFF_SETS - 1 - s->baud_phase][i]*(int32_t) s->rrc_filter[i + s->rrc_filter_step].re; x.im += (int32_t) tx_pulseshaper[TX_PULSESHAPER_COEFF_SETS - 1 - s->baud_phase][i]*(int32_t) s->rrc_filter[i + s->rrc_filter_step].im; } /* Now create and modulate the carrier */ x.re >>= 4; x.im >>= 4; z = dds_complexi(&(s->carrier_phase), s->carrier_phase_rate); /* Don't bother saturating. We should never clip. */ i = (x.re*z.re - x.im*z.im) >> 15; amp[sample] = (int16_t) ((i*s->gain) >> 15); #else x = complex_setf(0.0f, 0.0f); for (i = 0; i < V29_TX_FILTER_STEPS; i++) { x.re += tx_pulseshaper[TX_PULSESHAPER_COEFF_SETS - 1 - s->baud_phase][i]*s->rrc_filter[i + s->rrc_filter_step].re; x.im += tx_pulseshaper[TX_PULSESHAPER_COEFF_SETS - 1 - s->baud_phase][i]*s->rrc_filter[i + s->rrc_filter_step].im; } /* Now create and modulate the carrier */ z = dds_complexf(&(s->carrier_phase), s->carrier_phase_rate); /* Don't bother saturating. We should never clip. */ amp[sample] = (int16_t) lfastrintf((x.re*z.re - x.im*z.im)*s->gain); #endif } return sample; } /*- End of function --------------------------------------------------------*/ static void set_working_gain(v29_tx_state_t *s) { #if defined(SPANDSP_USE_FIXED_POINT) switch (s->bit_rate) { case 9600: s->gain = 0.387f*s->base_gain*16.0f*32767.0f/30672.52f; break; case 7200: s->gain = 0.605f*s->base_gain*16.0f*32767.0f/30672.52f; break; case 4800: s->gain = 0.470f*s->base_gain*16.0f*32767.0f/30672.52f; break; default: break; } #else switch (s->bit_rate) { case 9600: s->gain = 0.387f*s->base_gain; break; case 7200: s->gain = 0.605f*s->base_gain; break; case 4800: s->gain = 0.470f*s->base_gain; break; default: break; } #endif } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) v29_tx_power(v29_tx_state_t *s, float power) { /* The constellation does not maintain constant average power as we change bit rates. We need to scale the gain we get here by a bit rate specific scaling factor each time we restart the modem. */ s->base_gain = powf(10.0f, (power - DBM0_MAX_POWER)/20.0f)*32768.0f/TX_PULSESHAPER_GAIN; set_working_gain(s); } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) v29_tx_set_get_bit(v29_tx_state_t *s, get_bit_func_t get_bit, void *user_data) { if (s->get_bit == s->current_get_bit) s->current_get_bit = get_bit; s->get_bit = get_bit; s->get_bit_user_data = user_data; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) v29_tx_set_modem_status_handler(v29_tx_state_t *s, modem_tx_status_func_t handler, void *user_data) { s->status_handler = handler; s->status_user_data = user_data; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(logging_state_t *) v29_tx_get_logging_state(v29_tx_state_t *s) { return &s->logging; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) v29_tx_restart(v29_tx_state_t *s, int bit_rate, int tep) { span_log(&s->logging, SPAN_LOG_FLOW, "Restarting V.29\n"); s->bit_rate = bit_rate; set_working_gain(s); switch (s->bit_rate) { case 9600: s->training_offset = 0; break; case 7200: s->training_offset = 2; break; case 4800: s->training_offset = 4; break; default: return -1; } #if defined(SPANDSP_USE_FIXED_POINT) cvec_zeroi16(s->rrc_filter, sizeof(s->rrc_filter)/sizeof(s->rrc_filter[0])); #else cvec_zerof(s->rrc_filter, sizeof(s->rrc_filter)/sizeof(s->rrc_filter[0])); #endif s->rrc_filter_step = 0; s->scramble_reg = 0; s->training_scramble_reg = 0x2A; s->in_training = TRUE; s->training_step = (tep) ? V29_TRAINING_SEG_TEP : V29_TRAINING_SEG_1; s->carrier_phase = 0; s->baud_phase = 0; s->constellation_state = 0; s->current_get_bit = fake_get_bit; return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(v29_tx_state_t *) v29_tx_init(v29_tx_state_t *s, int bit_rate, int tep, get_bit_func_t get_bit, void *user_data) { switch (bit_rate) { case 9600: case 7200: case 4800: break; default: return NULL; } if (s == NULL) { if ((s = (v29_tx_state_t *) malloc(sizeof(*s))) == NULL) return NULL; } memset(s, 0, sizeof(*s)); span_log_init(&s->logging, SPAN_LOG_NONE, NULL); span_log_set_protocol(&s->logging, "V.29 TX"); s->get_bit = get_bit; s->get_bit_user_data = user_data; s->carrier_phase_rate = dds_phase_ratef(CARRIER_NOMINAL_FREQ); v29_tx_power(s, -14.0f); v29_tx_restart(s, bit_rate, tep); return s; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) v29_tx_release(v29_tx_state_t *s) { return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) v29_tx_free(v29_tx_state_t *s) { free(s); return 0; } /*- End of function --------------------------------------------------------*/ /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/gsm0610_lpc.c0000664000175000017500000004116111422612262015466 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * gsm0610_lpc.c - GSM 06.10 full rate speech codec. * * Written by Steve Underwood * * Copyright (C) 2006 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. * * This code is based on the widely used GSM 06.10 code available from * http://kbs.cs.tu-berlin.de/~jutta/toast.html */ /*! \file */ #if defined(HAVE_CONFIG_H) #include "config.h" #endif #include #include #if defined(HAVE_TGMATH_H) #include #endif #if defined(HAVE_MATH_H) #include #endif #include "floating_fudge.h" #include #include #include "spandsp/telephony.h" #include "spandsp/fast_convert.h" #include "spandsp/bitstream.h" #include "spandsp/bit_operations.h" #include "spandsp/saturated.h" #include "spandsp/vector_int.h" #include "spandsp/gsm0610.h" #include "gsm0610_local.h" /* 4.2.4 .. 4.2.7 LPC ANALYSIS SECTION */ /* The number of left shifts needed to normalize the 32 bit variable x for positive values on the interval with minimum of minimum of 1073741824 (01000000000000000000000000000000) and maximum of 2147483647 (01111111111111111111111111111111) and for negative values on the interval with minimum of -2147483648 (-10000000000000000000000000000000) and maximum of -1073741824 ( -1000000000000000000000000000000). In order to normalize the result, the following operation must be done: norm_var1 = x << gsm0610_norm(x); (That's 'ffs', only from the left, not the right..) */ int16_t gsm0610_norm(int32_t x) { assert(x != 0); if (x < 0) { if (x <= -1073741824) return 0; /*endif*/ x = ~x; } /*endif*/ return (int16_t) (30 - top_bit(x)); } /*- End of function --------------------------------------------------------*/ /* (From p. 46, end of section 4.2.5) NOTE: The following lines gives [sic] one correct implementation of the div(num, denum) arithmetic operation. Compute div which is the integer division of num by denom: with denom >= num > 0 */ static int16_t gsm_div(int16_t num, int16_t denom) { int32_t num32; int32_t denom32; int16_t div; int k; /* The parameter num sometimes becomes zero. Although this is explicitly guarded against in 4.2.5, we assume that the result should then be zero as well. */ assert(num >= 0 && denom >= num); if (num == 0) return 0; /*endif*/ num32 = num; denom32 = denom; div = 0; k = 15; while (k--) { div <<= 1; num32 <<= 1; if (num32 >= denom32) { num32 -= denom32; div++; } /*endif*/ } /*endwhile*/ return div; } /*- End of function --------------------------------------------------------*/ #if defined(__GNUC__) && defined(SPANDSP_USE_MMX) static void gsm0610_vec_vsraw(const int16_t *p, int n, int bits) { static const int64_t ones = 0x0001000100010001LL; if (n == 0) return; /*endif*/ #if defined(__x86_64__) __asm__ __volatile__( " leaq -16(%%rsi,%%rax,2),%%rdx;\n" /* edx = top - 16 */ " emms;\n" " movd %%ecx,%%mm3;\n" " movq %[ones],%%mm2;\n" " psllw %%mm3,%%mm2;\n" " psrlw $1,%%mm2;\n" " cmpq %%rdx,%%rsi;" " ja 4f;\n" " .p2align 2;\n" /* 8 words per iteration */ "6:\n" " movq (%%rsi),%%mm0;\n" " movq 8(%%rsi),%%mm1;\n" " paddsw %%mm2,%%mm0;\n" " psraw %%mm3,%%mm0;\n" " paddsw %%mm2,%%mm1;\n" " psraw %%mm3,%%mm1;\n" " movq %%mm0,(%%rsi);\n" " movq %%mm1,8(%%rsi);\n" " addq $16,%%rsi;\n" " cmpq %%rdx,%%rsi;\n" " jbe 6b;\n" " .p2align 2;\n" "4:\n" " addq $12,%%rdx;\n" /* now edx = top-4 */ " cmpq %%rdx,%%rsi;\n" " ja 3f;\n" " .p2align 2;\n" /* do up to 6 words, two per iteration */ "5:\n" " movd (%%rsi),%%mm0;\n" " paddsw %%mm2,%%mm0;\n" " psraw %%mm3,%%mm0;\n" " movd %%mm0,(%%rsi);\n" " addq $4,%%rsi;\n" " cmpq %%rdx,%%rsi;\n" " jbe 5b;\n" " .p2align 2;\n" "3:\n" " addq $2,%%rdx;\n" /* now edx = top-2 */ " cmpq %%rdx,%%rsi;\n" " ja 2f;\n" " movzwl (%%rsi),%%eax;\n" " movd %%eax,%%mm0;\n" " paddsw %%mm2,%%mm0;\n" " psraw %%mm3,%%mm0;\n" " movd %%mm0,%%eax;\n" " movw %%ax,(%%rsi);\n" " .p2align 2;\n" "2:\n" " emms;\n" : : "S" (p), "a" (n), "c" (bits), [ones] "m" (ones) : "edx" ); #else __asm__ __volatile__( " leal -16(%%esi,%%eax,2),%%edx;\n" /* edx = top - 16 */ " emms;\n" " movd %%ecx,%%mm3;\n" " movq %[ones],%%mm2;\n" " psllw %%mm3,%%mm2;\n" " psrlw $1,%%mm2;\n" " cmpl %%edx,%%esi;" " ja 4f;\n" " .p2align 2;\n" /* 8 words per iteration */ "6:\n" " movq (%%esi),%%mm0;\n" " movq 8(%%esi),%%mm1;\n" " paddsw %%mm2,%%mm0;\n" " psraw %%mm3,%%mm0;\n" " paddsw %%mm2,%%mm1;\n" " psraw %%mm3,%%mm1;\n" " movq %%mm0,(%%esi);\n" " movq %%mm1,8(%%esi);\n" " addl $16,%%esi;\n" " cmpl %%edx,%%esi;\n" " jbe 6b;\n" " .p2align 2;\n" "4:\n" " addl $12,%%edx;\n" /* now edx = top-4 */ " cmpl %%edx,%%esi;\n" " ja 3f;\n" " .p2align 2;\n" /* do up to 6 words, two per iteration */ "5:\n" " movd (%%esi),%%mm0;\n" " paddsw %%mm2,%%mm0;\n" " psraw %%mm3,%%mm0;\n" " movd %%mm0,(%%esi);\n" " addl $4,%%esi;\n" " cmpl %%edx,%%esi;\n" " jbe 5b;\n" " .p2align 2;\n" "3:\n" " addl $2,%%edx;\n" /* now edx = top-2 */ " cmpl %%edx,%%esi;\n" " ja 2f;\n" " movzwl (%%esi),%%eax;\n" " movd %%eax,%%mm0;\n" " paddsw %%mm2,%%mm0;\n" " psraw %%mm3,%%mm0;\n" " movd %%mm0,%%eax;\n" " movw %%ax,(%%esi);\n" " .p2align 2;\n" "2:\n" " emms;\n" : : "S" (p), "a" (n), "c" (bits), [ones] "m" (ones) : "edx" ); #endif } /*- End of function --------------------------------------------------------*/ #endif /* 4.2.4 */ static void autocorrelation(int16_t amp[GSM0610_FRAME_LEN], int32_t L_ACF[9]) { int k; int16_t smax; int16_t scalauto; #if !(defined(__GNUC__) && defined(SPANDSP_USE_MMX)) int i; int temp; int16_t *sp; int16_t sl; #endif /* The goal is to compute the array L_ACF[k]. The signal s[i] must be scaled in order to avoid an overflow situation. */ /* Dynamic scaling of the array s[0..159] */ /* Search for the maximum. */ #if defined(__GNUC__) && defined(SPANDSP_USE_MMX) smax = saturate(vec_min_maxi16(amp, GSM0610_FRAME_LEN, NULL)); #else for (smax = 0, k = 0; k < GSM0610_FRAME_LEN; k++) { temp = saturated_abs16(amp[k]); if (temp > smax) smax = (int16_t) temp; /*endif*/ } /*endfor*/ #endif /* Computation of the scaling factor. */ if (smax == 0) { scalauto = 0; } else { assert(smax > 0); scalauto = (int16_t) (4 - gsm0610_norm((int32_t) smax << 16)); } /*endif*/ /* Scaling of the array s[0...159] */ #if defined(__GNUC__) && defined(SPANDSP_USE_MMX) if (scalauto > 0) gsm0610_vec_vsraw(amp, GSM0610_FRAME_LEN, scalauto); /*endif*/ #else if (scalauto > 0) { for (k = 0; k < GSM0610_FRAME_LEN; k++) amp[k] = gsm_mult_r(amp[k], 16384 >> (scalauto - 1)); /*endfor*/ } /*endif*/ #endif /* Compute the L_ACF[..]. */ #if defined(__GNUC__) && defined(SPANDSP_USE_MMX) for (k = 0; k < 9; k++) L_ACF[k] = vec_dot_prodi16(amp, amp + k, GSM0610_FRAME_LEN - k) << 1; /*endfor*/ #else sp = amp; sl = *sp; L_ACF[0] = ((int32_t) sl*(int32_t) sp[0]); sl = *++sp; L_ACF[0] += ((int32_t) sl*(int32_t) sp[0]); L_ACF[1] = ((int32_t) sl*(int32_t) sp[-1]); sl = *++sp; L_ACF[0] += ((int32_t) sl*(int32_t) sp[0]); L_ACF[1] += ((int32_t) sl*(int32_t) sp[-1]); L_ACF[2] = ((int32_t) sl*(int32_t) sp[-2]); sl = *++sp; L_ACF[0] += ((int32_t) sl*(int32_t) sp[0]); L_ACF[1] += ((int32_t) sl*(int32_t) sp[-1]); L_ACF[2] += ((int32_t) sl*(int32_t) sp[-2]); L_ACF[3] = ((int32_t) sl*(int32_t) sp[-3]); sl = *++sp; L_ACF[0] += ((int32_t) sl*(int32_t) sp[0]); L_ACF[1] += ((int32_t) sl*(int32_t) sp[-1]); L_ACF[2] += ((int32_t) sl*(int32_t) sp[-2]); L_ACF[3] += ((int32_t) sl*(int32_t) sp[-3]); L_ACF[4] = ((int32_t) sl*(int32_t) sp[-4]); sl = *++sp; L_ACF[0] += ((int32_t) sl*(int32_t) sp[0]); L_ACF[1] += ((int32_t) sl*(int32_t) sp[-1]); L_ACF[2] += ((int32_t) sl*(int32_t) sp[-2]); L_ACF[3] += ((int32_t) sl*(int32_t) sp[-3]); L_ACF[4] += ((int32_t) sl*(int32_t) sp[-4]); L_ACF[5] = ((int32_t) sl*(int32_t) sp[-5]); sl = *++sp; L_ACF[0] += ((int32_t) sl*(int32_t) sp[0]); L_ACF[1] += ((int32_t) sl*(int32_t) sp[-1]); L_ACF[2] += ((int32_t) sl*(int32_t) sp[-2]); L_ACF[3] += ((int32_t) sl*(int32_t) sp[-3]); L_ACF[4] += ((int32_t) sl*(int32_t) sp[-4]); L_ACF[5] += ((int32_t) sl*(int32_t) sp[-5]); L_ACF[6] = ((int32_t) sl*(int32_t) sp[-6]); sl = *++sp; L_ACF[0] += ((int32_t) sl*(int32_t) sp[0]); L_ACF[1] += ((int32_t) sl*(int32_t) sp[-1]); L_ACF[2] += ((int32_t) sl*(int32_t) sp[-2]); L_ACF[3] += ((int32_t) sl*(int32_t) sp[-3]); L_ACF[4] += ((int32_t) sl*(int32_t) sp[-4]); L_ACF[5] += ((int32_t) sl*(int32_t) sp[-5]); L_ACF[6] += ((int32_t) sl*(int32_t) sp[-6]); L_ACF[7] = ((int32_t) sl*(int32_t) sp[-7]); sl = *++sp; L_ACF[0] += ((int32_t) sl*(int32_t) sp[0]); L_ACF[1] += ((int32_t) sl*(int32_t) sp[-1]); L_ACF[2] += ((int32_t) sl*(int32_t) sp[-2]); L_ACF[3] += ((int32_t) sl*(int32_t) sp[-3]); L_ACF[4] += ((int32_t) sl*(int32_t) sp[-4]); L_ACF[5] += ((int32_t) sl*(int32_t) sp[-5]); L_ACF[6] += ((int32_t) sl*(int32_t) sp[-6]); L_ACF[7] += ((int32_t) sl*(int32_t) sp[-7]); L_ACF[8] = ((int32_t) sl*(int32_t) sp[-8]); for (i = 9; i < GSM0610_FRAME_LEN; i++) { sl = *++sp; L_ACF[0] += ((int32_t) sl*(int32_t) sp[0]); L_ACF[1] += ((int32_t) sl*(int32_t) sp[-1]); L_ACF[2] += ((int32_t) sl*(int32_t) sp[-2]); L_ACF[3] += ((int32_t) sl*(int32_t) sp[-3]); L_ACF[4] += ((int32_t) sl*(int32_t) sp[-4]); L_ACF[5] += ((int32_t) sl*(int32_t) sp[-5]); L_ACF[6] += ((int32_t) sl*(int32_t) sp[-6]); L_ACF[7] += ((int32_t) sl*(int32_t) sp[-7]); L_ACF[8] += ((int32_t) sl*(int32_t) sp[-8]); } /*endfor*/ for (k = 0; k < 9; k++) L_ACF[k] <<= 1; /*endfor*/ #endif /* Rescaling of the array s[0..159] */ if (scalauto > 0) { assert(scalauto <= 4); for (k = 0; k < GSM0610_FRAME_LEN; k++) amp[k] <<= scalauto; /*endfor*/ } /*endif*/ } /*- End of function --------------------------------------------------------*/ /* 4.2.5 */ static void reflection_coefficients(int32_t L_ACF[9], int16_t r[8]) { int i; int m; int n; int16_t temp; int16_t ACF[9]; int16_t P[9]; int16_t K[9]; /* Schur recursion with 16 bits arithmetic. */ if (L_ACF[0] == 0) { for (i = 8; i--; *r++ = 0) ; /*endfor*/ return; } /*endif*/ assert(L_ACF[0] != 0); temp = gsm0610_norm(L_ACF[0]); assert(temp >= 0 && temp < 32); /* ? overflow ? */ for (i = 0; i <= 8; i++) ACF[i] = (int16_t) ((L_ACF[i] << temp) >> 16); /*endfor*/ /* Initialize array P[..] and K[..] for the recursion. */ for (i = 1; i <= 7; i++) K[i] = ACF[i]; /*endfor*/ for (i = 0; i <= 8; i++) P[i] = ACF[i]; /*endfor*/ /* Compute reflection coefficients */ for (n = 1; n <= 8; n++, r++) { temp = P[1]; temp = saturated_abs16(temp); if (P[0] < temp) { for (i = n; i <= 8; i++) *r++ = 0; /*endfor*/ return; } /*endif*/ *r = gsm_div(temp, P[0]); assert(*r >= 0); if (P[1] > 0) *r = -*r; /* r[n] = sub(0, r[n]) */ /*endif*/ assert(*r != INT16_MIN); if (n == 8) return; /*endif*/ /* Schur recursion */ temp = gsm_mult_r(P[1], *r); P[0] = saturated_add16(P[0], temp); for (m = 1; m <= 8 - n; m++) { temp = gsm_mult_r(K[m], *r); P[m] = saturated_add16(P[m + 1], temp); temp = gsm_mult_r(P[m + 1], *r); K[m] = saturated_add16(K[m], temp); } /*endfor*/ } /*endfor*/ } /*- End of function --------------------------------------------------------*/ /* 4.2.6 */ static void transform_to_log_area_ratios(int16_t r[8]) { int16_t temp; int i; /* The following scaling for r[..] and LAR[..] has been used: r[..] = integer (real_r[..]*32768.); -1 <= real_r < 1. LAR[..] = integer (real_LAR[..] * 16384); with -1.625 <= real_LAR <= 1.625 */ /* Computation of the LAR[0..7] from the r[0..7] */ for (i = 1; i <= 8; i++, r++) { temp = saturated_abs16(*r); assert(temp >= 0); if (temp < 22118) { temp >>= 1; } else if (temp < 31130) { assert(temp >= 11059); temp -= 11059; } else { assert(temp >= 26112); temp -= 26112; temp <<= 2; } /*endif*/ *r = (*r < 0) ? -temp : temp; assert(*r != INT16_MIN); } /*endfor*/ } /*- End of function --------------------------------------------------------*/ /* 4.2.7 */ static void quantization_and_coding(int16_t LAR[8]) { int16_t temp; /* This procedure needs four tables; the following equations give the optimum scaling for the constants: A[0..7] = integer(real_A[0..7] * 1024) B[0..7] = integer(real_B[0..7] * 512) MAC[0..7] = maximum of the LARc[0..7] MIC[0..7] = minimum of the LARc[0..7] */ #undef STEP #define STEP(A,B,MAC,MIC) \ temp = saturated_mul16(A, *LAR); \ temp = saturated_add16(temp, B); \ temp = saturated_add16(temp, 256); \ temp >>= 9; \ *LAR = (int16_t) ((temp > MAC) \ ? \ MAC - MIC \ : \ ((temp < MIC) ? 0 : temp - MIC)); \ LAR++; STEP(20480, 0, 31, -32); STEP(20480, 0, 31, -32); STEP(20480, 2048, 15, -16); STEP(20480, -2560, 15, -16); STEP(13964, 94, 7, -8); STEP(15360, -1792, 7, -8); STEP( 8534, -341, 3, -4); STEP( 9036, -1144, 3, -4); #undef STEP } /*- End of function --------------------------------------------------------*/ void gsm0610_lpc_analysis(gsm0610_state_t *s, int16_t amp[GSM0610_FRAME_LEN], int16_t LARc[8]) { int32_t L_ACF[9]; autocorrelation(amp, L_ACF); reflection_coefficients(L_ACF, LARc); transform_to_log_area_ratios(LARc); quantization_and_coding(LARc); } /*- End of function --------------------------------------------------------*/ /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/filter_tools.c0000664000175000017500000001421211422612261016234 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * filter_tools.c - A collection of routines used for filter design. * * Written by Steve Underwood * * Copyright (C) 2008 Steve Underwood * * This includes some elements based on the mkfilter package by * A.J. Fisher, University of York , November 1996 * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #if defined(HAVE_CONFIG_H) #include "config.h" #endif #include #include #if defined(HAVE_TGMATH_H) #include #endif #if defined(HAVE_MATH_H) #include #endif #include "floating_fudge.h" #include #include #include #include #include "spandsp/telephony.h" #include "spandsp/complex.h" #include "filter_tools.h" #if !defined(FALSE) #define FALSE 0 #endif #if !defined(TRUE) #define TRUE (!FALSE) #endif #define MAXPZ 8192 #define SEQ_LEN 8192 #define MAX_FFT_LEN SEQ_LEN static complex_t circle[MAX_FFT_LEN/2]; static __inline__ complex_t expj(double theta) { return complex_set(cos(theta), sin(theta)); } /*- End of function --------------------------------------------------------*/ static __inline__ double fix(double x) { /* Nearest integer */ return (x >= 0.0) ? floor(0.5 + x) : -floor(0.5 - x); } /*- End of function --------------------------------------------------------*/ static void fftx(complex_t data[], complex_t temp[], int n) { int i; int h; int p; int t; int i2; complex_t wkt; if (n > 1) { h = n/2; for (i = 0; i < h; i++) { i2 = i*2; temp[i] = data[i2]; /* Even */ temp[h + i] = data[i2 + 1]; /* Odd */ } fftx(&temp[0], &data[0], h); fftx(&temp[h], &data[h], h); p = 0; t = MAX_FFT_LEN/n; for (i = 0; i < h; i++) { wkt = complex_mul(&circle[p], &temp[h + i]); data[i] = complex_add(&temp[i], &wkt); data[h + i] = complex_sub(&temp[i], &wkt); p += t; } } } /*- End of function --------------------------------------------------------*/ void ifft(complex_t data[], int len) { int i; double x; complex_t temp[MAX_FFT_LEN]; /* A very slow and clunky FFT, that's just fine for filter design. */ for (i = 0; i < MAX_FFT_LEN/2; i++) { x = (2.0*3.1415926535*i)/(double) MAX_FFT_LEN; circle[i] = expj(x); } fftx(data, temp, len); } /*- End of function --------------------------------------------------------*/ void compute_raised_cosine_filter(double coeffs[], int len, int root, int sinc_compensate, double alpha, double beta) { double f; double x; double f1; double f2; double tau; complex_t vec[SEQ_LEN]; int i; int j; int h; f1 = (1.0 - beta)*alpha; f2 = (1.0 + beta)*alpha; tau = 0.5/alpha; /* (Root) raised cosine */ for (i = 0; i <= SEQ_LEN/2; i++) { f = (double) i/(double) SEQ_LEN; if (f <= f1) vec[i] = complex_set(1.0, 0.0); else if (f <= f2) vec[i] = complex_set(0.5*(1.0 + cos((3.1415926535*tau/beta)*(f - f1))), 0.0); else vec[i] = complex_set(0.0, 0.0); } if (root) { for (i = 0; i <= SEQ_LEN/2; i++) vec[i].re = sqrt(vec[i].re); } if (sinc_compensate) { for (i = 1; i <= SEQ_LEN/2; i++) { x = 3.1415926535*(double) i/(double) SEQ_LEN; vec[i].re *= (x/sin(x)); } } for (i = 0; i <= SEQ_LEN/2; i++) vec[i].re *= tau; for (i = 1; i < SEQ_LEN/2; i++) vec[SEQ_LEN - i] = vec[i]; ifft(vec, SEQ_LEN); h = (len - 1)/2; for (i = 0; i < len; i++) { j = (SEQ_LEN - h + i)%SEQ_LEN; coeffs[i] = vec[j].re/(double) SEQ_LEN; } } /*- End of function --------------------------------------------------------*/ void compute_hilbert_transform(double coeffs[], int len) { double x; int i; int h; h = (len - 1)/2; coeffs[h] = 0.0; for (i = 1; i <= h; i++) { if ((i & 1)) { x = 1.0/(double) i; coeffs[h + i] = -x; coeffs[h - i] = x; } } } /*- End of function --------------------------------------------------------*/ void apply_hamming_window(double coeffs[], int len) { double w; int i; int h; h = (len - 1)/2; for (i = 1; i <= h; i++) { w = 0.53836 - 0.46164*cos(2.0*3.1415926535*(double) (h + i)/(double) (len - 1.0)); coeffs[h + i] *= w; coeffs[h - i] *= w; } } /*- End of function --------------------------------------------------------*/ void truncate_coeffs(double coeffs[], int len, int bits, int hilbert) { double x; double fac; double max; double scale; int h; int i; fac = pow(2.0, (double) (bits - 1.0)); h = (len - 1)/2; max = (hilbert) ? coeffs[h - 1] : coeffs[h]; /* Max coeff */ scale = (fac - 1.0)/(fac*max); for (i = 0; i < len; i++) { x = coeffs[i]*scale; /* Scale coeffs so max is (fac - 1.0)/fac */ coeffs[i] = fix(x*fac)/fac; /* Truncate */ } } /*- End of function --------------------------------------------------------*/ /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/v18.c0000664000175000017500000005263211435757500014167 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * v18.c - V.18 text telephony for the deaf. * * Written by Steve Underwood * * Copyright (C) 2004-2009 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \file */ #if defined(HAVE_CONFIG_H) #include "config.h" #endif #include #include #include #include #include #if defined(HAVE_TGMATH_H) #include #endif #if defined(HAVE_MATH_H) #include #endif #include "floating_fudge.h" #include "spandsp/telephony.h" #include "spandsp/logging.h" #include "spandsp/queue.h" #include "spandsp/async.h" #include "spandsp/complex.h" #include "spandsp/dds.h" #include "spandsp/tone_detect.h" #include "spandsp/tone_generate.h" #include "spandsp/super_tone_rx.h" #include "spandsp/power_meter.h" #include "spandsp/fsk.h" #include "spandsp/dtmf.h" #include "spandsp/modem_connect_tones.h" #include "spandsp/v8.h" #include "spandsp/v18.h" #include "spandsp/private/logging.h" #include "spandsp/private/queue.h" #include "spandsp/private/tone_generate.h" #include "spandsp/private/async.h" #include "spandsp/private/fsk.h" #include "spandsp/private/dtmf.h" #include "spandsp/private/modem_connect_tones.h" #include "spandsp/private/v18.h" #include /*! The baudot code to shift from alpha to digits and symbols */ #define BAUDOT_FIGURE_SHIFT 0x1B /*! The baudot code to shift from digits and symbols to alpha */ #define BAUDOT_LETTER_SHIFT 0x1F struct dtmf_to_ascii_s { const char *dtmf; char ascii; }; static const struct dtmf_to_ascii_s dtmf_to_ascii[] = { {"###1", 'C'}, {"###2", 'F'}, {"###3", 'I'}, {"###4", 'L'}, {"###5", 'O'}, {"###6", 'R'}, {"###7", 'U'}, {"###8", 'X'}, {"###9", ';'}, {"###0", '!'}, {"##*1", 'A'}, {"##*2", 'D'}, {"##*3", 'G'}, {"##*4", 'J'}, {"##*5", 'M'}, {"##*6", 'P'}, {"##*7", 'S'}, {"##*8", 'V'}, {"##*9", 'Y'}, {"##1", 'B'}, {"##2", 'E'}, {"##3", 'H'}, {"##4", 'K'}, {"##5", 'N'}, {"##6", 'Q'}, {"##7", 'T'}, {"##8", 'W'}, {"##9", 'Z'}, {"##0", ' '}, #if defined(WIN32) || ( defined(__SVR4) && defined (__sun)) {"#*1", 'X'}, // (Note 1) 111 1011 {"#*2", 'X'}, // (Note 1) 111 1100 {"#*3", 'X'}, // (Note 1) 111 1101 {"#*4", 'X'}, // (Note 1) 101 1011 {"#*5", 'X'}, // (Note 1) 101 1100 {"#*6", 'X'}, // (Note 1) 101 1101 #else {"#*1", 0xE6}, // (Note 1) 111 1011 {"#*2", 0xF8}, // (Note 1) 111 1100 {"#*3", 0xE5}, // (Note 1) 111 1101 {"#*4", 0xC6}, // (Note 1) 101 1011 {"#*5", 0xD8}, // (Note 1) 101 1100 {"#*6", 0xC5}, // (Note 1) 101 1101 #endif {"#0", '?'}, {"#1", 'c'}, {"#2", 'f'}, {"#3", 'i'}, {"#4", 'l'}, {"#5", 'o'}, {"#6", 'r'}, {"#7", 'u'}, {"#8", 'x'}, {"#9", '.'}, {"*#0", '0'}, {"*#1", '1'}, {"*#2", '2'}, {"*#3", '3'}, {"*#4", '4'}, {"*#5", '5'}, {"*#6", '6'}, {"*#7", '7'}, {"*#8", '8'}, {"*#9", '9'}, {"**1", '+'}, {"**2", '-'}, {"**3", '='}, {"**4", ':'}, {"**5", '%'}, {"**6", '('}, {"**7", ')'}, {"**8", ','}, {"**9", '\n'}, {"*0", '\b'}, {"*1", 'a'}, {"*2", 'd'}, {"*3", 'g'}, {"*4", 'j'}, {"*5", 'm'}, {"*6", 'p'}, {"*7", 's'}, {"*8", 'v'}, {"*9", 'y'}, {"0", ' '}, {"1", 'b'}, {"2", 'e'}, {"3", 'h'}, {"4", 'k'}, {"5", 'n'}, {"6", 'q'}, {"7", 't'}, {"8", 'w'}, {"9", 'z'}, {"", '\0'} }; static const char *ascii_to_dtmf[128] = { "", /* NULL */ "", /* SOH */ "", /* STX */ "", /* ETX */ "", /* EOT */ "", /* ENQ */ "", /* ACK */ "", /* BEL */ "*0", /* BACK SPACE */ "0", /* HT >> SPACE */ "**9", /* LF */ "**9", /* VT >> LF */ "**9", /* FF >> LF */ "", /* CR */ "", /* SO */ "", /* SI */ "", /* DLE */ "", /* DC1 */ "", /* DC2 */ "", /* DC3 */ "", /* DC4 */ "", /* NAK */ "", /* SYN */ "", /* ETB */ "", /* CAN */ "", /* EM */ "#0", /* SUB >> ? */ "", /* ESC */ "**9", /* IS4 >> LF */ "**9", /* IS3 >> LF */ "**9", /* IS2 >> LF */ "0", /* IS1 >> SPACE */ "0", /* SPACE */ "###0", /* ! */ "", /* " */ "", /* # */ "", /* $ */ "**5", /* % */ "**1", /* & >> + */ "", /* 0x92 */ "**6", /* ( */ "**7", /* ) */ "#9", /* _ >> . */ "**1", /* + */ "**8", /* , */ "**2", /* - */ "#9", /* . */ "", /* / */ "*#0", /* 0 */ "*#1", /* 1 */ "*#2", /* 2 */ "*#3", /* 3 */ "*#4", /* 4 */ "*#5", /* 5 */ "*#6", /* 6 */ "*#7", /* 7 */ "*#8", /* 8 */ "*#9", /* 9 */ "**4", /* : */ "###9", /* ; */ "**6", /* < >> ( */ "**3", /* = */ "**7", /* > >> ) */ "#0", /* ? */ "###8", /* @ >> X */ "##*1", /* A */ "##1", /* B */ "###1", /* C */ "##*2", /* D */ "##2", /* E */ "###2", /* F */ "##*3", /* G */ "##3", /* H */ "###3", /* I */ "##*4", /* J */ "##4", /* K */ "###4", /* L */ "##*5", /* M */ "##5", /* N */ "###5", /* O */ "##*6", /* P */ "##6", /* Q */ "###6", /* R */ "##*7", /* S */ "##7", /* T */ "###7", /* U */ "##*8", /* V */ "##8", /* W */ "###8", /* X */ "##*9", /* Y */ "##9", /* Z */ "#*4", /* 0xC6 (National code) */ "#*5", /* 0xD8 (National code) */ "#*6", /* 0xC5 (National code) */ "", /* ^ */ "0", /* _ >> SPACE */ "", /* 0x92 */ "*1", /* a */ "1", /* b */ "#1", /* c */ "*2", /* d */ "2", /* e */ "#2", /* f */ "*3", /* g */ "3", /* h */ "#3", /* i */ "*4", /* j */ "4", /* k */ "#4", /* l */ "*5", /* m */ "5", /* n */ "#5", /* o */ "*6", /* p */ "6", /* q */ "#6", /* r */ "*7", /* s */ "7", /* t */ "#7", /* u */ "*8", /* v */ "8", /* w */ "#8", /* x */ "*9", /* y */ "9", /* z */ "#*1", /* 0xE6 (National code) */ "#*2", /* 0xF8 (National code) */ "#*3", /* 0xE5 (National code) */ "0", /* ~ >> SPACE */ "*0" /* DEL >> BACK SPACE */ }; static int cmp(const void *s, const void *t) { const char *ss; struct dtmf_to_ascii_s *tt; ss = (const char *) s; tt = (struct dtmf_to_ascii_s *) t; return strncmp(ss, tt->dtmf, strlen(tt->dtmf)); } SPAN_DECLARE(int) v18_encode_dtmf(v18_state_t *s, char dtmf[], const char msg[]) { const char *t; char *u; const char *v; t = msg; u = dtmf; while (*t) { v = ascii_to_dtmf[*t & 0x7F]; while (*v) *u++ = *v++; t++; } *u = '\0'; return u - dtmf; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) v18_decode_dtmf(v18_state_t *s, char msg[], const char dtmf[]) { int entries; const char *t; char *u; struct dtmf_to_ascii_s *ss; entries = sizeof(dtmf_to_ascii)/sizeof(dtmf_to_ascii[0]) - 1; t = dtmf; u = msg; while (*t) { ss = bsearch(t, dtmf_to_ascii, entries, sizeof(dtmf_to_ascii[0]), cmp); if (ss) { t += strlen(ss->dtmf); *u++ = ss->ascii; } else { /* Can't match the code. Let's assume this is a code we just don't know, and skip over it */ while (*t == '#' || *t == '*') t++; if (*t) t++; } } *u = '\0'; return u - msg; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(uint16_t) v18_encode_baudot(v18_state_t *s, uint8_t ch) { static const uint8_t conv[128] = { 0xFF, /* NUL */ 0xFF, /* SOH */ 0xFF, /* STX */ 0xFF, /* ETX */ 0xFF, /* EOT */ 0xFF, /* ENQ */ 0xFF, /* ACK */ 0xFF, /* BEL */ 0x00, /* BS */ 0x44, /* HT >> SPACE */ 0x42, /* LF */ 0x42, /* VT >> LF */ 0x42, /* FF >> LF */ 0x48, /* CR */ 0xFF, /* SO */ 0xFF, /* SI */ 0xFF, /* DLE */ 0xFF, /* DC1 */ 0xFF, /* DC2 */ 0xFF, /* DC3 */ 0xFF, /* DC4 */ 0xFF, /* NAK */ 0xFF, /* SYN */ 0xFF, /* ETB */ 0xFF, /* CAN */ 0xFF, /* EM */ 0x99, /* SUB >> ? */ 0xFF, /* ESC */ 0x42, /* IS4 >> LF */ 0x42, /* IS3 >> LF */ 0x42, /* IS2 >> LF */ 0x44, /* IS1 >> SPACE */ 0x44, /* */ 0x8D, /* ! */ 0x91, /* " */ 0x89, /* # >> $ */ 0x89, /* $ */ 0x9D, /* % >> / */ 0x9A, /* & >> + */ 0x8B, /* ' */ 0x8F, /* ( */ 0x92, /* ) */ 0x9C, /* * >> . */ 0x9A, /* + */ 0x8C, /* , */ 0x83, /* - */ 0x9C, /* . */ 0x9D, /* / */ 0x96, /* 0 */ 0x97, /* 1 */ 0x93, /* 2 */ 0x81, /* 3 */ 0x8A, /* 4 */ 0x90, /* 5 */ 0x95, /* 6 */ 0x87, /* 7 */ 0x86, /* 8 */ 0x98, /* 9 */ 0x8E, /* : */ 0x9E, /* ; */ 0x8F, /* < >> )*/ 0x94, /* = */ 0x92, /* > >> ( */ 0x99, /* ? */ 0x1D, /* @ >> X */ 0x03, /* A */ 0x19, /* B */ 0x0E, /* C */ 0x09, /* D */ 0x01, /* E */ 0x0D, /* F */ 0x1A, /* G */ 0x14, /* H */ 0x06, /* I */ 0x0B, /* J */ 0x0F, /* K */ 0x12, /* L */ 0x1C, /* M */ 0x0C, /* N */ 0x18, /* O */ 0x16, /* P */ 0x17, /* Q */ 0x0A, /* R */ 0x05, /* S */ 0x10, /* T */ 0x07, /* U */ 0x1E, /* V */ 0x13, /* W */ 0x1D, /* X */ 0x15, /* Y */ 0x11, /* Z */ 0x8F, /* [ >> (*/ 0x9D, /* \ >> / */ 0x92, /* ] >> ) */ 0x8B, /* ^ >> ' */ 0x44, /* _ >> Space */ 0x8B, /* ` >> ' */ 0x03, /* a */ 0x19, /* b */ 0x0E, /* c */ 0x09, /* d */ 0x01, /* e */ 0x0D, /* f */ 0x1A, /* g */ 0x14, /* h */ 0x06, /* i */ 0x0B, /* j */ 0x0F, /* k */ 0x12, /* l */ 0x1C, /* m */ 0x0C, /* n */ 0x18, /* o */ 0x16, /* p */ 0x17, /* q */ 0x0A, /* r */ 0x05, /* s */ 0x10, /* t */ 0x07, /* u */ 0x1E, /* v */ 0x13, /* w */ 0x1D, /* x */ 0x15, /* y */ 0x11, /* z */ 0x8F, /* { >> ( */ 0x8D, /* | >> ! */ 0x92, /* } >> ) */ 0x44, /* ~ >> Space */ 0xFF, /* DEL */ }; uint16_t shift; if (ch == 0x7F) { /* DLE is a special character meaning "force a change to the letter character set */ shift = BAUDOT_LETTER_SHIFT; return 0; } ch = conv[ch]; /* Is it a non-existant code? */ if (ch == 0xFF) return 0; /* Is it a code present in both character sets? */ if ((ch & 0x40)) return 0x8000 | (ch & 0x1F); /* Need to allow for a possible character set change. */ if ((ch & 0x80)) { if (s->baudot_tx_shift == 1) return ch & 0x1F; s->baudot_tx_shift = 1; shift = BAUDOT_FIGURE_SHIFT; } else { if (s->baudot_tx_shift == 0) return ch & 0x1F; s->baudot_tx_shift = 0; shift = BAUDOT_LETTER_SHIFT; } return 0x8000 | (shift << 5) | (ch & 0x1F); } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(uint8_t) v18_decode_baudot(v18_state_t *s, uint8_t ch) { static const uint8_t conv[2][32] = { {"\bE\nA SIU\rDRJNFCKTZLWHYPQOBG^MXV^"}, {"\b3\n- -87\r$4',!:(5\")2=6019?+^./;^"} }; switch (ch) { case BAUDOT_FIGURE_SHIFT: s->baudot_rx_shift = 1; break; case BAUDOT_LETTER_SHIFT: s->baudot_rx_shift = 0; break; default: return conv[s->baudot_rx_shift][ch]; } /* return 0 if we did not produce a character */ return 0; } /*- End of function --------------------------------------------------------*/ static void v18_rx_dtmf(void *user_data, const char digits[], int len) { v18_state_t *s; s = (v18_state_t *) user_data; } /*- End of function --------------------------------------------------------*/ static int v18_tdd_get_async_byte(void *user_data) { v18_state_t *s; int ch; s = (v18_state_t *) user_data; if ((ch = queue_read_byte(&s->queue.queue)) >= 0) return ch; if (s->tx_signal_on) { /* The FSK should now be switched off. */ s->tx_signal_on = FALSE; } return 0x1F; } /*- End of function --------------------------------------------------------*/ static void v18_tdd_put_async_byte(void *user_data, int byte) { v18_state_t *s; uint8_t octet; s = (v18_state_t *) user_data; //printf("Rx byte %x\n", byte); if (byte < 0) { /* Special conditions */ span_log(&s->logging, SPAN_LOG_FLOW, "V.18 signal status is %s (%d)\n", signal_status_to_str(byte), byte); switch (byte) { case SIG_STATUS_CARRIER_UP: s->consecutive_ones = 0; s->bit_pos = 0; s->in_progress = 0; s->rx_msg_len = 0; break; case SIG_STATUS_CARRIER_DOWN: if (s->rx_msg_len > 0) { /* Whatever we have to date constitutes the message */ s->rx_msg[s->rx_msg_len] = '\0'; s->put_msg(s->user_data, s->rx_msg, s->rx_msg_len); s->rx_msg_len = 0; } break; default: span_log(&s->logging, SPAN_LOG_WARNING, "Unexpected special put byte value - %d!\n", byte); break; } return; } if ((octet = v18_decode_baudot(s, (uint8_t) (byte & 0x1F)))) s->rx_msg[s->rx_msg_len++] = octet; if (s->rx_msg_len >= 256) { s->rx_msg[s->rx_msg_len] = '\0'; s->put_msg(s->user_data, s->rx_msg, s->rx_msg_len); s->rx_msg_len = 0; } } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE_NONSTD(int) v18_tx(v18_state_t *s, int16_t *amp, int max_len) { int len; int lenx; len = tone_gen(&(s->alert_tone_gen), amp, max_len); if (s->tx_signal_on) { switch (s->mode) { case V18_MODE_DTMF: if (len < max_len) len += dtmf_tx(&(s->dtmftx), amp, max_len - len); break; default: if (len < max_len) { if ((lenx = fsk_tx(&(s->fsktx), amp + len, max_len - len)) <= 0) s->tx_signal_on = FALSE; len += lenx; } break; } } return len; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE_NONSTD(int) v18_rx(v18_state_t *s, const int16_t amp[], int len) { switch (s->mode) { case V18_MODE_DTMF: /* Apply a message timeout. */ s->in_progress -= len; if (s->in_progress <= 0) s->rx_msg_len = 0; dtmf_rx(&(s->dtmfrx), amp, len); break; default: fsk_rx(&(s->fskrx), amp, len); break; } return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) v18_put(v18_state_t *s, const char msg[], int len) { char buf[256 + 1]; int x; int n; int i; /* This returns the number of characters that would not fit in the buffer. The buffer will only be loaded if the whole string of digits will fit, in which case zero is returned. */ if (len < 0) { if ((len = strlen(msg)) == 0) return 0; } switch (s->mode) { case V18_MODE_5BIT_45: case V18_MODE_5BIT_50: for (i = 0; i < len; i++) { n = 0; if ((x = v18_encode_baudot(s, msg[i]))) { if ((x & 0x3E0)) buf[n++] = (uint8_t) ((x >> 5) & 0x1F); buf[n++] = (uint8_t) (x & 0x1F); /* TODO: Deal with out of space condition */ if (queue_write(&s->queue.queue, (const uint8_t *) buf, n) < 0) return i; s->tx_signal_on = TRUE; } } return len; case V18_MODE_DTMF: break; } return -1; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(logging_state_t *) v18_get_logging_state(v18_state_t *s) { return &s->logging; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(v18_state_t *) v18_init(v18_state_t *s, int calling_party, int mode, put_msg_func_t put_msg, void *user_data) { if (s == NULL) { if ((s = (v18_state_t *) malloc(sizeof(*s))) == NULL) return NULL; } memset(s, 0, sizeof(*s)); s->calling_party = calling_party; s->mode = mode; s->put_msg = put_msg; s->user_data = user_data; switch (s->mode) { case V18_MODE_5BIT_45: fsk_tx_init(&(s->fsktx), &preset_fsk_specs[FSK_WEITBRECHT], async_tx_get_bit, &(s->asynctx)); async_tx_init(&(s->asynctx), 5, ASYNC_PARITY_NONE, 2, FALSE, v18_tdd_get_async_byte, s); /* Schedule an explicit shift at the start of baudot transmission */ s->baudot_tx_shift = 2; /* TDD uses 5 bit data, no parity and 1.5 stop bits. We scan for the first stop bit, and ride over the fraction. */ fsk_rx_init(&(s->fskrx), &preset_fsk_specs[FSK_WEITBRECHT], FSK_FRAME_MODE_5N1_FRAMES, v18_tdd_put_async_byte, s); s->baudot_rx_shift = 0; break; case V18_MODE_5BIT_50: fsk_tx_init(&(s->fsktx), &preset_fsk_specs[FSK_WEITBRECHT50], async_tx_get_bit, &(s->asynctx)); async_tx_init(&(s->asynctx), 5, ASYNC_PARITY_NONE, 2, FALSE, v18_tdd_get_async_byte, s); /* Schedule an explicit shift at the start of baudot transmission */ s->baudot_tx_shift = 2; /* TDD uses 5 bit data, no parity and 1.5 stop bits. We scan for the first stop bit, and ride over the fraction. */ fsk_rx_init(&(s->fskrx), &preset_fsk_specs[FSK_WEITBRECHT50], FSK_FRAME_MODE_5N1_FRAMES, v18_tdd_put_async_byte, s); s->baudot_rx_shift = 0; break; case V18_MODE_DTMF: dtmf_tx_init(&(s->dtmftx)); dtmf_rx_init(&(s->dtmfrx), v18_rx_dtmf, s); break; case V18_MODE_EDT: break; case V18_MODE_BELL103: break; case V18_MODE_V23VIDEOTEX: break; case V18_MODE_V21TEXTPHONE: break; case V18_MODE_V18TEXTPHONE: break; } queue_init(&s->queue.queue, 128, QUEUE_READ_ATOMIC | QUEUE_WRITE_ATOMIC); return s; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) v18_release(v18_state_t *s) { return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) v18_free(v18_state_t *s) { free(s); return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(const char *) v18_mode_to_str(int mode) { switch (mode) { case V18_MODE_NONE: return "None"; case V18_MODE_5BIT_45: return "Weitbrecht TDD (45.45bps)"; case V18_MODE_5BIT_50: return "Weitbrecht TDD (50bps)"; case V18_MODE_DTMF: return "DTMF"; case V18_MODE_EDT: return "EDT"; case V18_MODE_BELL103: return "Bell 103"; case V18_MODE_V23VIDEOTEX: return "Videotex"; case V18_MODE_V21TEXTPHONE: return "V.21"; case V18_MODE_V18TEXTPHONE: return "V.18 text telephone"; } return "???"; } /*- End of function --------------------------------------------------------*/ /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/libspandsp.2005.vcproj0000664000175000017500000003445311516506105017350 0ustar steveusteveu spandsp-0.0.6/src/gsm0610_long_term.c0000664000175000017500000003242711422612262016703 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * gsm0610_long_term.c - GSM 06.10 full rate speech codec. * * Written by Steve Underwood * * Copyright (C) 2006 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. * * This code is based on the widely used GSM 06.10 code available from * http://kbs.cs.tu-berlin.de/~jutta/toast.html */ /*! \file */ #if defined(HAVE_CONFIG_H) #include "config.h" #endif #include #include #if defined(HAVE_TGMATH_H) #include #endif #if defined(HAVE_MATH_H) #include #endif #include "floating_fudge.h" #include #include "spandsp/telephony.h" #include "spandsp/fast_convert.h" #include "spandsp/bitstream.h" #include "spandsp/saturated.h" #include "spandsp/gsm0610.h" #include "gsm0610_local.h" /* Table 4.3a Decision level of the LTP gain quantizer */ static const int16_t gsm_DLB[4] = { 6554, 16384, 26214, 32767 }; /* Table 4.3b Quantization levels of the LTP gain quantizer */ static const int16_t gsm_QLB[4] = { 3277, 11469, 21299, 32767 }; /* 4.2.11 .. 4.2.12 LONG TERM PREDICTOR (LTP) SECTION */ static int32_t gsm0610_max_cross_corr(const int16_t *wt, const int16_t *dp, int16_t *index_out) { int32_t max; int32_t index; int32_t res; int i; max = 0; index = 40; /* index for the maximum cross-correlation */ for (i = 40; i <= 120; i++) { #if defined(__GNUC__) && defined(SPANDSP_USE_MMX) && defined(__x86_64__) __asm__ __volatile__( " emms;\n" " .p2align 2;\n" " movq (%%rdi),%%mm0;\n" " movq (%%rsi),%%mm2;\n" " pmaddwd %%mm2,%%mm0;\n" " movq 8(%%rdi),%%mm1;\n" " movq 8(%%rsi),%%mm2;\n" " pmaddwd %%mm2,%%mm1;\n" " paddd %%mm1,%%mm0;\n" " movq 16(%%rdi),%%mm1;\n" " movq 16(%%rsi),%%mm2;\n" " pmaddwd %%mm2,%%mm1;\n" " paddd %%mm1,%%mm0;\n" " movq 24(%%rdi),%%mm1;\n" " movq 24(%%rsi),%%mm2;\n" " pmaddwd %%mm2,%%mm1;\n" " paddd %%mm1,%%mm0;\n" " movq 32(%%rdi),%%mm1;\n" " movq 32(%%rsi),%%mm2;\n" " pmaddwd %%mm2,%%mm1;\n" " paddd %%mm1,%%mm0;\n" " movq 40(%%rdi),%%mm1;\n" " movq 40(%%rsi),%%mm2;\n" " pmaddwd %%mm2,%%mm1;\n" " paddd %%mm1,%%mm0;\n" " movq 48(%%rdi),%%mm1;\n" " movq 48(%%rsi),%%mm2;\n" " pmaddwd %%mm2,%%mm1;\n" " paddd %%mm1,%%mm0;\n" " movq 56(%%rdi),%%mm1;\n" " movq 56(%%rsi),%%mm2;\n" " pmaddwd %%mm2,%%mm1;\n" " paddd %%mm1,%%mm0;\n" " movq 64(%%rdi),%%mm1;\n" " movq 64(%%rsi),%%mm2;\n" " pmaddwd %%mm2,%%mm1;\n" " paddd %%mm1,%%mm0;\n" " movq 72(%%rdi),%%mm1;\n" " movq 72(%%rsi),%%mm2;\n" " pmaddwd %%mm2,%%mm1;\n" " paddd %%mm1,%%mm0;\n" " movq %%mm0,%%mm1;\n" " punpckhdq %%mm0,%%mm1;\n" /* mm1 has high int32 of mm0 dup'd */ " paddd %%mm1,%%mm0;\n" " movd %%mm0,%[res];\n" " emms;\n" : [res] "=r" (res) : "D" (wt), "S" (&dp[-i]) ); #elif defined(__GNUC__) && defined(SPANDSP_USE_MMX) && defined(__i386__) __asm__ __volatile__( " emms;\n" " .p2align 2;\n" " movq (%%edi),%%mm0;\n" " movq (%%esi),%%mm2;\n" " pmaddwd %%mm2,%%mm0;\n" " movq 8(%%edi),%%mm1;\n" " movq 8(%%esi),%%mm2;\n" " pmaddwd %%mm2,%%mm1;\n" " paddd %%mm1,%%mm0;\n" " movq 16(%%edi),%%mm1;\n" " movq 16(%%esi),%%mm2;\n" " pmaddwd %%mm2,%%mm1;\n" " paddd %%mm1,%%mm0;\n" " movq 24(%%edi),%%mm1;\n" " movq 24(%%esi),%%mm2;\n" " pmaddwd %%mm2,%%mm1;\n" " paddd %%mm1,%%mm0;\n" " movq 32(%%edi),%%mm1;\n" " movq 32(%%esi),%%mm2;\n" " pmaddwd %%mm2,%%mm1;\n" " paddd %%mm1,%%mm0;\n" " movq 40(%%edi),%%mm1;\n" " movq 40(%%esi),%%mm2;\n" " pmaddwd %%mm2,%%mm1;\n" " paddd %%mm1,%%mm0;\n" " movq 48(%%edi),%%mm1;\n" " movq 48(%%esi),%%mm2;\n" " pmaddwd %%mm2,%%mm1;\n" " paddd %%mm1,%%mm0;\n" " movq 56(%%edi),%%mm1;\n" " movq 56(%%esi),%%mm2;\n" " pmaddwd %%mm2,%%mm1;\n" " paddd %%mm1,%%mm0;\n" " movq 64(%%edi),%%mm1;\n" " movq 64(%%esi),%%mm2;\n" " pmaddwd %%mm2,%%mm1;\n" " paddd %%mm1,%%mm0;\n" " movq 72(%%edi),%%mm1;\n" " movq 72(%%esi),%%mm2;\n" " pmaddwd %%mm2,%%mm1;\n" " paddd %%mm1,%%mm0;\n" " movq %%mm0,%%mm1;\n" " punpckhdq %%mm0,%%mm1;\n" /* mm1 has high int32 of mm0 dup'd */ " paddd %%mm1,%%mm0;\n" " movd %%mm0,%[res];\n" " emms;\n" : [res] "=r" (res) : "D" (wt), "S" (&dp[-i]) ); #else res = (wt[0]*dp[0 - i]) + (wt[1]*dp[1 - i]) + (wt[2]*dp[2 - i]) + (wt[3]*dp[3 - i]) + (wt[4]*dp[4 - i]) + (wt[5]*dp[5 - i]) + (wt[6]*dp[6 - i]) + (wt[7]*dp[7 - i]) + (wt[8]*dp[8 - i]) + (wt[9]*dp[9 - i]) + (wt[10]*dp[10 - i]) + (wt[11]*dp[11 - i]) + (wt[12]*dp[12 - i]) + (wt[13]*dp[13 - i]) + (wt[14]*dp[14 - i]) + (wt[15]*dp[15 - i]) + (wt[16]*dp[16 - i]) + (wt[17]*dp[17 - i]) + (wt[18]*dp[18 - i]) + (wt[19]*dp[19 - i]) + (wt[20]*dp[20 - i]) + (wt[21]*dp[21 - i]) + (wt[22]*dp[22 - i]) + (wt[23]*dp[23 - i]) + (wt[24]*dp[24 - i]) + (wt[25]*dp[25 - i]) + (wt[26]*dp[26 - i]) + (wt[27]*dp[27 - i]) + (wt[28]*dp[28 - i]) + (wt[29]*dp[29 - i]) + (wt[30]*dp[30 - i]) + (wt[31]*dp[31 - i]) + (wt[32]*dp[32 - i]) + (wt[33]*dp[33 - i]) + (wt[34]*dp[34 - i]) + (wt[35]*dp[35 - i]) + (wt[36]*dp[36 - i]) + (wt[37]*dp[37 - i]) + (wt[38]*dp[38 - i]) + (wt[39]*dp[39 - i]); #endif if (res > max) { max = res; index = i; } /*endif*/ } /*endfor*/ *index_out = index; return max; } /*- End of function --------------------------------------------------------*/ /* This procedure computes the LTP gain (bc) and the LTP lag (Nc) for the long term analysis filter. This is done by calculating a maximum of the cross-correlation function between the current sub-segment short term residual signal d[0..39] (output of the short term analysis filter; for simplification the index of this array begins at 0 and ends at 39 for each sub-segment of the RPE-LTP analysis) and the previous reconstructed short term residual signal dp[ -120 .. -1 ]. A dynamic scaling must be performed to avoid overflow. */ /* This procedure exists in three versions. First, the integer version; then, the two floating point versions (as another function), with or without scaling. */ static int16_t evaluate_ltp_parameters(int16_t d[40], int16_t *dp, // [-120..-1] IN int16_t *Nc_out) { int k; int16_t bc; int16_t wt[40]; int32_t L_max; int32_t L_power; int16_t R; int16_t S; int16_t dmax; int16_t scale; int16_t temp; int32_t L_temp; /* Search of the optimum scaling of d[0..39]. */ dmax = 0; for (k = 0; k < 40; k++) { temp = d[k]; temp = saturated_abs16(temp); if (temp > dmax) dmax = temp; /*endif*/ } /*endfor*/ if (dmax == 0) { temp = 0; } else { assert(dmax > 0); temp = gsm0610_norm((int32_t) dmax << 16); } /*endif*/ if (temp > 6) scale = 0; else scale = (int16_t) (6 - temp); /*endif*/ assert(scale >= 0); /* Initialization of a working array wt */ for (k = 0; k < 40; k++) wt[k] = d[k] >> scale; /*endfor*/ /* Search for the maximum cross-correlation and coding of the LTP lag */ L_max = gsm0610_max_cross_corr(wt, dp, Nc_out); L_max <<= 1; /* Rescaling of L_max */ assert(scale <= 100 && scale >= -100); L_max = L_max >> (6 - scale); assert(*Nc_out <= 120 && *Nc_out >= 40); /* Compute the power of the reconstructed short term residual signal dp[..] */ L_power = 0; for (k = 0; k < 40; k++) { L_temp = dp[k - *Nc_out] >> 3; L_power += L_temp*L_temp; } /*endfor*/ L_power <<= 1; /* from L_MULT */ /* Normalization of L_max and L_power */ if (L_max <= 0) return 0; /*endif*/ if (L_max >= L_power) return 3; /*endif*/ temp = gsm0610_norm(L_power); R = (int16_t) ((L_max << temp) >> 16); S = (int16_t) ((L_power << temp) >> 16); /* Coding of the LTP gain */ /* Table 4.3a must be used to obtain the level DLB[i] for the quantization of the LTP gain b to get the coded version bc. */ for (bc = 0; bc <= 2; bc++) { if (R <= saturated_mul16(S, gsm_DLB[bc])) break; /*endif*/ } /*endfor*/ return bc; } /*- End of function --------------------------------------------------------*/ /* 4.2.12 */ static void long_term_analysis_filtering(int16_t bc, int16_t Nc, int16_t *dp, // previous d [-120..-1] IN int16_t d[40], int16_t dpp[40], int16_t e[40]) { int k; /* In this part, we have to decode the bc parameter to compute the samples of the estimate dpp[0..39]. The decoding of bc needs the use of table 4.3b. The long term residual signal e[0..39] is then calculated to be fed to the RPE encoding section. */ for (k = 0; k < 40; k++) { dpp[k] = gsm_mult_r(gsm_QLB[bc], dp[k - Nc]); e[k] = saturated_sub16(d[k], dpp[k]); } /*endfor*/ } /*- End of function --------------------------------------------------------*/ /* 4x for 160 samples */ void gsm0610_long_term_predictor(gsm0610_state_t *s, int16_t d[40], int16_t *dp, // [-120..-1] d' IN int16_t e[40], int16_t dpp[40], int16_t *Nc, int16_t *bc) { #if 0 assert(d); assert(dp); assert(e); assert(dpp); assert(Nc); assert(bc); #endif *bc = evaluate_ltp_parameters(d, dp, Nc); long_term_analysis_filtering(*bc, *Nc, dp, d, dpp, e); } /*- End of function --------------------------------------------------------*/ /* 4.3.2 */ void gsm0610_long_term_synthesis_filtering(gsm0610_state_t *s, int16_t Ncr, int16_t bcr, int16_t erp[40], int16_t *drp) // [-120..-1] IN, [0..40] OUT { int k; int16_t brp; int16_t drpp; int16_t Nr; /* This procedure uses the bcr and Ncr parameters to realize the long term synthesis filter. The decoding of bcr needs table 4.3b. */ /* Check the limits of Nr. */ Nr = (Ncr < 40 || Ncr > 120) ? s->nrp : Ncr; s->nrp = Nr; assert (Nr >= 40 && Nr <= 120); /* Decode the LTP gain, bcr */ brp = gsm_QLB[bcr]; /* Compute the reconstructed short term residual signal, drp[0..39] */ assert(brp != INT16_MIN); for (k = 0; k < 40; k++) { drpp = gsm_mult_r(brp, drp[k - Nr]); drp[k] = saturated_add16(erp[k], drpp); } /*endfor*/ /* Update the reconstructed short term residual signal, drp[-1..-120] */ for (k = 0; k < 120; k++) drp[k - 120] = drp[k - 80]; /*endfor*/ } /*- End of function --------------------------------------------------------*/ /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/v17tx.c0000664000175000017500000003754411422612263014537 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * v17tx.c - ITU V.17 modem transmit part * * Written by Steve Underwood * * Copyright (C) 2004 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \file */ #if defined(HAVE_CONFIG_H) #include "config.h" #endif #include #include #include #include #if defined(HAVE_TGMATH_H) #include #endif #if defined(HAVE_MATH_H) #include #endif #include "floating_fudge.h" #include "spandsp/telephony.h" #include "spandsp/fast_convert.h" #include "spandsp/logging.h" #include "spandsp/complex.h" #include "spandsp/vector_float.h" #include "spandsp/complex_vector_float.h" #include "spandsp/vector_int.h" #include "spandsp/complex_vector_int.h" #include "spandsp/async.h" #include "spandsp/dds.h" #include "spandsp/power_meter.h" #include "spandsp/v17tx.h" #include "spandsp/private/logging.h" #include "spandsp/private/v17tx.h" #if defined(SPANDSP_USE_FIXED_POINT) #define SPANDSP_USE_FIXED_POINTx #endif #include "v17_v32bis_tx_constellation_maps.h" #if defined(SPANDSP_USE_FIXED_POINT) #include "v17_v32bis_tx_fixed_rrc.h" #else #include "v17_v32bis_tx_floating_rrc.h" #endif /*! The nominal frequency of the carrier, in Hertz */ #define CARRIER_NOMINAL_FREQ 1800.0f /* Segments of the training sequence */ /*! The start of the optional TEP, that may preceed the actual training, in symbols */ #define V17_TRAINING_SEG_TEP_A 0 /*! The mid point of the optional TEP, that may preceed the actual training, in symbols */ #define V17_TRAINING_SEG_TEP_B (V17_TRAINING_SEG_TEP_A + 480) /*! The start of training segment 1, in symbols */ #define V17_TRAINING_SEG_1 (V17_TRAINING_SEG_TEP_B + 48) /*! The start of training segment 2, in symbols */ #define V17_TRAINING_SEG_2 (V17_TRAINING_SEG_1 + 256) /*! The start of training segment 3, in symbols */ #define V17_TRAINING_SEG_3 (V17_TRAINING_SEG_2 + 2976) /*! The start of training segment 4, in symbols */ #define V17_TRAINING_SEG_4 (V17_TRAINING_SEG_3 + 64) /*! The start of training segment 4 in short training mode, in symbols */ #define V17_TRAINING_SHORT_SEG_4 (V17_TRAINING_SEG_2 + 38) /*! The end of the training, in symbols */ #define V17_TRAINING_END (V17_TRAINING_SEG_4 + 48) #define V17_TRAINING_SHUTDOWN_A (V17_TRAINING_END + 32) /*! The end of the shutdown sequence, in symbols */ #define V17_TRAINING_SHUTDOWN_END (V17_TRAINING_SHUTDOWN_A + 48) /*! The 16 bit pattern used in the bridge section of the training sequence */ #define V17_BRIDGE_WORD 0x8880 static __inline__ int scramble(v17_tx_state_t *s, int in_bit) { int out_bit; //out_bit = (in_bit ^ (s->scramble_reg >> s->scrambler_tap) ^ (s->scramble_reg >> (23 - 1))) & 1; out_bit = (in_bit ^ (s->scramble_reg >> (18 - 1)) ^ (s->scramble_reg >> (23 - 1))) & 1; s->scramble_reg = (s->scramble_reg << 1) | out_bit; return out_bit; } /*- End of function --------------------------------------------------------*/ #if defined(SPANDSP_USE_FIXED_POINT) static __inline__ complexi16_t training_get(v17_tx_state_t *s) #else static __inline__ complexf_t training_get(v17_tx_state_t *s) #endif { static const int cdba_to_abcd[4] = { 2, 3, 1, 0 }; static const int dibit_to_step[4] = { 1, 0, 2, 3 }; #if defined(SPANDSP_USE_FIXED_POINT) static const complexi16_t zero = {0, 0}; #else static const complexf_t zero = {0.0f, 0.0f}; #endif int bits; int shift; if (++s->training_step <= V17_TRAINING_SEG_3) { if (s->training_step <= V17_TRAINING_SEG_2) { if (s->training_step <= V17_TRAINING_SEG_TEP_B) { /* Optional segment: Unmodulated carrier (talker echo protection) */ return v17_v32bis_abcd_constellation[0]; } if (s->training_step <= V17_TRAINING_SEG_1) { /* Optional segment: silence (talker echo protection) */ return zero; } /* Segment 1: ABAB... */ return v17_v32bis_abcd_constellation[(s->training_step & 1) ^ 1]; } /* Segment 2: CDBA... */ /* Apply the scrambler */ bits = scramble(s, 1); bits = (bits << 1) | scramble(s, 1); s->constellation_state = cdba_to_abcd[bits]; if (s->short_train && s->training_step == V17_TRAINING_SHORT_SEG_4) { /* Go straight to the ones test. */ s->training_step = V17_TRAINING_SEG_4; } return v17_v32bis_abcd_constellation[s->constellation_state]; } /* Segment 3: Bridge... */ shift = ((s->training_step - V17_TRAINING_SEG_3 - 1) & 0x7) << 1; //span_log(&s->logging, SPAN_LOG_FLOW, "Seg 3 shift %d\n", shift); bits = scramble(s, V17_BRIDGE_WORD >> shift); bits = (bits << 1) | scramble(s, V17_BRIDGE_WORD >> (shift + 1)); s->constellation_state = (s->constellation_state + dibit_to_step[bits]) & 3; return v17_v32bis_abcd_constellation[s->constellation_state]; } /*- End of function --------------------------------------------------------*/ static __inline__ int diff_and_convolutional_encode(v17_tx_state_t *s, int q) { static const uint8_t v32bis_4800_differential_encoder[4][4] = { {2, 3, 0, 1}, {0, 2, 1, 3}, {3, 1, 2, 0}, {1, 0, 3, 2} }; static const uint8_t v17_differential_encoder[4][4] = { {0, 1, 2, 3}, {1, 2, 3, 0}, {2, 3, 0, 1}, {3, 0, 1, 2} }; static const uint8_t v17_convolutional_coder[8][4] = { {0, 2, 3, 1}, {4, 7, 5, 6}, {1, 3, 2, 0}, {7, 4, 6, 5}, {2, 0, 1, 3}, {6, 5, 7, 4}, {3, 1, 0, 2}, {5, 6, 4, 7} }; if (s->bits_per_symbol == 2) { /* 4800bps mode for V.32bis */ /* There is no trellis. We just differentially encode. */ s->diff = v32bis_4800_differential_encoder[s->diff][q & 0x03]; return s->diff; } /* Differentially encode */ s->diff = v17_differential_encoder[s->diff][q & 0x03]; /* Convolutionally encode the redundant bit */ s->convolution = v17_convolutional_coder[s->convolution][s->diff]; /* The final result is the combination of some uncoded bits, 2 differentially encoded bits, and the convolutionally encoded redundant bit. */ return ((q << 1) & 0x78) | (s->diff << 1) | ((s->convolution >> 2) & 1); } /*- End of function --------------------------------------------------------*/ static int fake_get_bit(void *user_data) { return 1; } /*- End of function --------------------------------------------------------*/ #if defined(SPANDSP_USE_FIXED_POINT) static __inline__ complexi16_t getbaud(v17_tx_state_t *s) #else static __inline__ complexf_t getbaud(v17_tx_state_t *s) #endif { int i; int bit; int bits; if (s->in_training) { if (s->training_step <= V17_TRAINING_END) { /* Send the training sequence */ if (s->training_step < V17_TRAINING_SEG_4) return training_get(s); /* The last step in training is to send some 1's */ if (++s->training_step > V17_TRAINING_END) { /* Training finished - commence normal operation. */ s->current_get_bit = s->get_bit; s->in_training = FALSE; } } else { if (++s->training_step > V17_TRAINING_SHUTDOWN_A) { /* The shutdown sequence is 32 bauds of all 1's, then 48 bauds of silence */ #if defined(SPANDSP_USE_FIXED_POINT) return complex_seti16(0, 0); #else return complex_setf(0.0f, 0.0f); #endif } if (s->training_step == V17_TRAINING_SHUTDOWN_END) { if (s->status_handler) s->status_handler(s->status_user_data, SIG_STATUS_SHUTDOWN_COMPLETE); } } } bits = 0; for (i = 0; i < s->bits_per_symbol; i++) { if ((bit = s->current_get_bit(s->get_bit_user_data)) == SIG_STATUS_END_OF_DATA) { /* End of real data. Switch to the fake get_bit routine, until we have shut down completely. */ if (s->status_handler) s->status_handler(s->status_user_data, SIG_STATUS_END_OF_DATA); s->current_get_bit = fake_get_bit; s->in_training = TRUE; bit = 1; } bits |= (scramble(s, bit) << i); } return s->constellation[diff_and_convolutional_encode(s, bits)]; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE_NONSTD(int) v17_tx(v17_tx_state_t *s, int16_t amp[], int len) { #if defined(SPANDSP_USE_FIXED_POINT) complexi_t x; complexi_t z; #else complexf_t x; complexf_t z; #endif int i; int sample; if (s->training_step >= V17_TRAINING_SHUTDOWN_END) { /* Once we have sent the shutdown sequence, we stop sending completely. */ return 0; } for (sample = 0; sample < len; sample++) { if ((s->baud_phase += 3) >= 10) { s->baud_phase -= 10; s->rrc_filter[s->rrc_filter_step] = s->rrc_filter[s->rrc_filter_step + V17_TX_FILTER_STEPS] = getbaud(s); if (++s->rrc_filter_step >= V17_TX_FILTER_STEPS) s->rrc_filter_step = 0; } /* Root raised cosine pulse shaping at baseband */ #if defined(SPANDSP_USE_FIXED_POINT) x = complex_seti(0, 0); for (i = 0; i < V17_TX_FILTER_STEPS; i++) { x.re += (int32_t) tx_pulseshaper[TX_PULSESHAPER_COEFF_SETS - 1 - s->baud_phase][i]*(int32_t) s->rrc_filter[i + s->rrc_filter_step].re; x.im += (int32_t) tx_pulseshaper[TX_PULSESHAPER_COEFF_SETS - 1 - s->baud_phase][i]*(int32_t) s->rrc_filter[i + s->rrc_filter_step].im; } /* Now create and modulate the carrier */ x.re >>= 4; x.im >>= 4; z = dds_complexi(&(s->carrier_phase), s->carrier_phase_rate); /* Don't bother saturating. We should never clip. */ i = (x.re*z.re - x.im*z.im) >> 15; amp[sample] = (int16_t) ((i*s->gain) >> 15); #else x = complex_setf(0.0f, 0.0f); for (i = 0; i < V17_TX_FILTER_STEPS; i++) { x.re += tx_pulseshaper[TX_PULSESHAPER_COEFF_SETS - 1 - s->baud_phase][i]*s->rrc_filter[i + s->rrc_filter_step].re; x.im += tx_pulseshaper[TX_PULSESHAPER_COEFF_SETS - 1 - s->baud_phase][i]*s->rrc_filter[i + s->rrc_filter_step].im; } /* Now create and modulate the carrier */ z = dds_complexf(&(s->carrier_phase), s->carrier_phase_rate); /* Don't bother saturating. We should never clip. */ amp[sample] = (int16_t) lfastrintf((x.re*z.re - x.im*z.im)*s->gain); #endif } return sample; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) v17_tx_power(v17_tx_state_t *s, float power) { /* The constellation design seems to keep the average power the same, regardless of which bit rate is in use. */ #if defined(SPANDSP_USE_FIXED_POINT) s->gain = 0.223f*powf(10.0f, (power - DBM0_MAX_POWER)/20.0f)*16.0f*(32767.0f/30672.52f)*32768.0f/TX_PULSESHAPER_GAIN; #else s->gain = 0.223f*powf(10.0f, (power - DBM0_MAX_POWER)/20.0f)*32768.0f/TX_PULSESHAPER_GAIN; #endif } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) v17_tx_set_get_bit(v17_tx_state_t *s, get_bit_func_t get_bit, void *user_data) { if (s->get_bit == s->current_get_bit) s->current_get_bit = get_bit; s->get_bit = get_bit; s->get_bit_user_data = user_data; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) v17_tx_set_modem_status_handler(v17_tx_state_t *s, modem_tx_status_func_t handler, void *user_data) { s->status_handler = handler; s->status_user_data = user_data; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(logging_state_t *) v17_tx_get_logging_state(v17_tx_state_t *s) { return &s->logging; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) v17_tx_restart(v17_tx_state_t *s, int bit_rate, int tep, int short_train) { switch (bit_rate) { case 14400: s->bits_per_symbol = 6; s->constellation = v17_v32bis_14400_constellation; break; case 12000: s->bits_per_symbol = 5; s->constellation = v17_v32bis_12000_constellation; break; case 9600: s->bits_per_symbol = 4; s->constellation = v17_v32bis_9600_constellation; break; case 7200: s->bits_per_symbol = 3; s->constellation = v17_v32bis_7200_constellation; break; case 4800: /* This does not exist in the V.17 spec as a valid mode of operation. However, it does exist in V.32bis, so it is here for completeness. */ s->bits_per_symbol = 2; s->constellation = v17_v32bis_4800_constellation; break; default: return -1; } s->bit_rate = bit_rate; /* NB: some modems seem to use 3 instead of 1 for long training */ s->diff = (short_train) ? 0 : 1; #if defined(SPANDSP_USE_FIXED_POINT) cvec_zeroi16(s->rrc_filter, sizeof(s->rrc_filter)/sizeof(s->rrc_filter[0])); #else cvec_zerof(s->rrc_filter, sizeof(s->rrc_filter)/sizeof(s->rrc_filter[0])); #endif s->rrc_filter_step = 0; s->convolution = 0; s->scramble_reg = 0x2ECDD5; s->in_training = TRUE; s->short_train = short_train; s->training_step = (tep) ? V17_TRAINING_SEG_TEP_A : V17_TRAINING_SEG_1; s->carrier_phase = 0; s->baud_phase = 0; s->constellation_state = 0; s->current_get_bit = fake_get_bit; return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(v17_tx_state_t *) v17_tx_init(v17_tx_state_t *s, int bit_rate, int tep, get_bit_func_t get_bit, void *user_data) { switch (bit_rate) { case 14400: case 12000: case 9600: case 7200: case 4800: /* 4800 is an extension of V.17, to provide full converage of the V.32bis modes */ break; default: return NULL; } if (s == NULL) { if ((s = (v17_tx_state_t *) malloc(sizeof(*s))) == NULL) return NULL; } memset(s, 0, sizeof(*s)); span_log_init(&s->logging, SPAN_LOG_NONE, NULL); span_log_set_protocol(&s->logging, "V.17 TX"); s->get_bit = get_bit; s->get_bit_user_data = user_data; //s->scrambler_tap = 18 - 1; s->carrier_phase_rate = dds_phase_ratef(CARRIER_NOMINAL_FREQ); v17_tx_power(s, -14.0f); v17_tx_restart(s, bit_rate, tep, FALSE); return s; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) v17_tx_release(v17_tx_state_t *s) { return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) v17_tx_free(v17_tx_state_t *s) { free(s); return 0; } /*- End of function --------------------------------------------------------*/ /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/v29tx_constellation_maps.h0000664000175000017500000000531611422612263020515 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * v29tx_constellation_maps.h - ITU V.29 modem transmit part. * Constellation mapping. * * Written by Steve Underwood * * Copyright (C) 2008 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #if defined(SPANDSP_USE_FIXED_POINT) static const complexi16_t v29_abab_constellation[6] = #else static const complexf_t v29_abab_constellation[6] = #endif { { 3, -3}, /* 315deg high 9600 */ {-3, 0}, /* 180deg low */ { 1, -1}, /* 315deg low 7200 */ {-3, 0}, /* 180deg low */ { 0, -3}, /* 270deg low 4800 */ {-3, 0} /* 180deg low */ }; #if defined(SPANDSP_USE_FIXED_POINT) static const complexi16_t v29_cdcd_constellation[6] = #else static const complexf_t v29_cdcd_constellation[6] = #endif { { 3, 0}, /* 0deg low 9600 */ {-3, 3}, /* 135deg high */ { 3, 0}, /* 0deg low 7200 */ {-1, 1}, /* 135deg low */ { 3, 0}, /* 0deg low 4800 */ { 0, 3} /* 90deg low */ }; #if defined(SPANDSP_USE_FIXED_POINT) static const complexi16_t v29_9600_constellation[16] = #else static const complexf_t v29_9600_constellation[16] = #endif { { 3, 0}, /* 0deg low */ { 1, 1}, /* 45deg low */ { 0, 3}, /* 90deg low */ {-1, 1}, /* 135deg low */ {-3, 0}, /* 180deg low */ {-1, -1}, /* 225deg low */ { 0, -3}, /* 270deg low */ { 1, -1}, /* 315deg low */ { 5, 0}, /* 0deg high */ { 3, 3}, /* 45deg high */ { 0, 5}, /* 90deg high */ {-3, 3}, /* 135deg high */ {-5, 0}, /* 180deg high */ {-3, -3}, /* 225deg high */ { 0, -5}, /* 270deg high */ { 3, -3} /* 315deg high */ }; /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/complex_vector_int.c0000664000175000017500000000675111422612261017443 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * complex_vector_int.c - Integer complex vector arithmetic routines. * * Written by Steve Underwood * * Copyright (C) 2006 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \file */ #if defined(HAVE_CONFIG_H) #include "config.h" #endif #include #include #include #include #if defined(HAVE_TGMATH_H) #include #endif #if defined(HAVE_MATH_H) #include #endif #include #include "floating_fudge.h" #include "mmx_sse_decs.h" #include "spandsp/telephony.h" #include "spandsp/logging.h" #include "spandsp/complex.h" #include "spandsp/vector_int.h" #include "spandsp/complex_vector_int.h" SPAN_DECLARE(complexi32_t) cvec_dot_prodi16(const complexi16_t x[], const complexi16_t y[], int n) { int i; complexi32_t z; z = complex_seti32(0, 0); for (i = 0; i < n; i++) { z.re += ((int32_t) x[i].re*(int32_t) y[i].re - (int32_t) x[i].im*(int32_t) y[i].im); z.im += ((int32_t) x[i].re*(int32_t) y[i].im + (int32_t) x[i].im*(int32_t) y[i].re); } return z; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(complexi32_t) cvec_dot_prodi32(const complexi32_t x[], const complexi32_t y[], int n) { int i; complexi32_t z; z = complex_seti32(0, 0); for (i = 0; i < n; i++) { z.re += (x[i].re*y[i].re - x[i].im*y[i].im); z.im += (x[i].re*y[i].im + x[i].im*y[i].re); } return z; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(complexi32_t) cvec_circular_dot_prodi16(const complexi16_t x[], const complexi16_t y[], int n, int pos) { complexi32_t z; complexi32_t z1; z = cvec_dot_prodi16(&x[pos], &y[0], n - pos); z1 = cvec_dot_prodi16(&x[0], &y[n - pos], pos); z = complex_addi32(&z, &z1); return z; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) cvec_lmsi16(const complexi16_t x[], complexi16_t y[], int n, const complexi16_t *error) { int i; for (i = 0; i < n; i++) { y[i].re += (int16_t) (((int32_t) x[i].im*(int32_t) error->im + (int32_t) x[i].re*(int32_t) error->re) >> 12); y[i].im += (int16_t) (((int32_t) x[i].re*(int32_t) error->im - (int32_t) x[i].im*(int32_t) error->re) >> 12); } } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) cvec_circular_lmsi16(const complexi16_t x[], complexi16_t y[], int n, int pos, const complexi16_t *error) { cvec_lmsi16(&x[pos], &y[0], n - pos, error); cvec_lmsi16(&x[0], &y[n - pos], pos, error); } /*- End of function --------------------------------------------------------*/ /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/echo.c0000664000175000017500000005553211422612261014457 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * echo.c - An echo cancellor, suitable for electrical and acoustic * cancellation. This code does not currently comply with * any relevant standards (e.g. G.164/5/7/8). One day.... * * Written by Steve Underwood * * Copyright (C) 2001, 2003 Steve Underwood * * Based on a bit from here, a bit from there, eye of toad, * ear of bat, etc - plus, of course, my own 2 cents. * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \file */ /* TODO: Finish the echo suppressor option, however nasty suppression may be. Add an option to reintroduce side tone at -24dB under appropriate conditions. Improve double talk detector (iterative!) */ /* We need to differentiate between transmitted energy which will train the echo canceller well (voice, white noise, and other broadband sources) and energy which will train it badly (supervisory tones, DTMF, whistles, and other narrowband sources). There are many ways this might be done. This canceller uses a method based on the autocorrelation qualities of the transmitted signal. A rather peaky autocorrelation function is a clear sign of a narrowband signal. We only need perform the autocorrelation at well spaced intervals, so the compute load is not too great. Multiple successive autocorrelation functions with a similar peaky shape are a clear indication of a stationary narrowband signal. Using TKEO, it should be possible to greatly reduce the compute requirement for narrowband detection. */ /* The FIR taps must be adapted as 32 bit values, to get the necessary finesse in the adaption process. However, they are applied as 16 bit values (bits 30-15 of the 32 bit values) in the FIR. For the working 16 bit values, we need 4 sets. 3 of the 16 bit sets are used on a rotating basis. Normally the canceller steps round these 3 sets at regular intervals. Any time we detect double talk, we can go back to the set from two steps ago with reasonable assurance it is a well adapted set. We cannot just go back one step, as we may have rotated the sets just before double talk or tone was detected, and that set may already be somewhat corrupted. When narrowband energy is detected we need to continue adapting to it, to echo cancel it. However, the adaption will almost certainly be going astray. Broadband (or even complex sequences of narrowband) energy will normally lead to a well trained cancellor, with taps matching the impulse response of the channel. For stationary narrowband energy, there is usually has an infinite number of alternative tap sets which will cancel it well. A previously well trained set of taps will tend to drift amongst the alternatives. When broadband energy resumes, the taps may be a total mismatch for the signal, and could even amplify rather than attenuate the echo. The solution is to use a fourth set of 16 bit taps. When we first detect the narrowband energy we save the oldest of the group of three sets, but do not change back to an older set. We let the canceller cancel, and it adaption drift while the narrowband energy is present. When we detect the narrowband energy has ceased, we switch to using the fourth set of taps which was saved. When we revert to an older set of taps, we must replace both the 16 bit and 32 bit working tap sets. The saved 16 bit values are good enough to also be used as a replacement for the 32 bit values. We loose the fractions, but they should soon settle down in a reasonable way. */ #if defined(HAVE_CONFIG_H) #include "config.h" #endif #include #include #if defined(HAVE_TGMATH_H) #include #endif #if defined(HAVE_MATH_H) #include #endif #include "floating_fudge.h" #include #include #include "spandsp/telephony.h" #include "spandsp/fast_convert.h" #include "spandsp/logging.h" #include "spandsp/saturated.h" #include "spandsp/dc_restore.h" #include "spandsp/bit_operations.h" #include "spandsp/echo.h" #include "spandsp/private/echo.h" #if !defined(NULL) #define NULL (void *) 0 #endif #if !defined(FALSE) #define FALSE 0 #endif #if !defined(TRUE) #define TRUE (!FALSE) #endif #define NONUPDATE_DWELL_TIME 600 /* 600 samples, or 75ms */ #define MIN_TX_POWER_FOR_ADAPTION 64*64 #define MIN_RX_POWER_FOR_ADAPTION 64*64 static int narrowband_detect(echo_can_state_t *ec) { int k; int i; float temp; float scale; float sf[128]; float f_acf[128]; int32_t acf[28]; int score; int len = 32; int alen = 9; k = ec->curr_pos; for (i = 0; i < len; i++) { sf[i] = ec->fir_state.history[k++]; if (k >= 256) k = 0; } for (k = 0; k < alen; k++) { temp = 0; for (i = k; i < len; i++) temp += sf[i]*sf[i - k]; f_acf[k] = temp; } scale = 0x1FFFFFFF/f_acf[0]; for (k = 0; k < alen; k++) acf[k] = (int32_t) (f_acf[k]*scale); score = 0; for (i = 0; i < 9; i++) { if (ec->last_acf[i] >= 0 && acf[i] >= 0) { if ((ec->last_acf[i] >> 1) < acf[i] && acf[i] < (ec->last_acf[i] << 1)) score++; } else if (ec->last_acf[i] < 0 && acf[i] < 0) { if ((ec->last_acf[i] >> 1) > acf[i] && acf[i] > (ec->last_acf[i] << 1)) score++; } } memcpy(ec->last_acf, acf, alen*sizeof(ec->last_acf[0])); return score; } static __inline__ void lms_adapt(echo_can_state_t *ec, int factor) { int i; #if 0 mmx_t *mmx_taps; mmx_t *mmx_coeffs; mmx_t *mmx_hist; mmx_t mmx; mmx.w[0] = mmx.w[1] = mmx.w[2] = mmx.w[3] = factor; mmx_hist = (mmx_t *) &fir->history[fir->curr_pos]; mmx_taps = (mmx_t *) &fir->taps; mmx_coeffs = (mmx_t *) fir->coeffs; i = fir->taps; movq_m2r(mmx, mm0); while (i > 0) { movq_m2r(mmx_hist[0], mm1); movq_m2r(mmx_taps[0], mm0); movq_m2r(mmx_taps[1], mm1); movq_r2r(mm1, mm2); pmulhw(mm0, mm1); pmullw(mm0, mm2); pmaddwd_r2r(mm1, mm0); pmaddwd_r2r(mm3, mm2); paddd_r2r(mm0, mm4); paddd_r2r(mm2, mm4); movq_r2m(mm0, mmx_taps[0]); movq_r2m(mm1, mmx_taps[0]); movq_r2m(mm2, mmx_coeffs[0]); mmx_taps += 2; mmx_coeffs += 1; mmx_hist += 1; i -= 4; ) emms(); #elif 0 /* Update the FIR taps */ for (i = ec->taps - 1; i >= 0; i--) { /* Leak to avoid the coefficients drifting beyond the ability of the adaption process to bring them back under control. */ ec->fir_taps32[i] -= (ec->fir_taps32[i] >> 23); ec->fir_taps32[i] += (ec->fir_state.history[i + ec->curr_pos]*factor); ec->latest_correction = (ec->fir_state.history[i + ec->curr_pos]*factor); ec->fir_taps16[ec->tap_set][i] = ec->fir_taps32[i] >> 15; } #else int offset1; int offset2; /* Update the FIR taps */ offset2 = ec->curr_pos; offset1 = ec->taps - offset2; for (i = ec->taps - 1; i >= offset1; i--) { ec->fir_taps32[i] += (ec->fir_state.history[i - offset1]*factor); ec->fir_taps16[ec->tap_set][i] = (int16_t) (ec->fir_taps32[i] >> 15); } for ( ; i >= 0; i--) { ec->fir_taps32[i] += (ec->fir_state.history[i + offset2]*factor); ec->fir_taps16[ec->tap_set][i] = (int16_t) (ec->fir_taps32[i] >> 15); } #endif } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(echo_can_state_t *) echo_can_init(int len, int adaption_mode) { echo_can_state_t *ec; int i; int j; if ((ec = (echo_can_state_t *) malloc(sizeof(*ec))) == NULL) return NULL; memset(ec, 0, sizeof(*ec)); ec->taps = len; ec->curr_pos = ec->taps - 1; ec->tap_mask = ec->taps - 1; if ((ec->fir_taps32 = (int32_t *) malloc(ec->taps*sizeof(int32_t))) == NULL) { free(ec); return NULL; } memset(ec->fir_taps32, 0, ec->taps*sizeof(int32_t)); for (i = 0; i < 4; i++) { if ((ec->fir_taps16[i] = (int16_t *) malloc(ec->taps*sizeof(int16_t))) == NULL) { for (j = 0; j < i; j++) free(ec->fir_taps16[j]); free(ec->fir_taps32); free(ec); return NULL; } memset(ec->fir_taps16[i], 0, ec->taps*sizeof(int16_t)); } fir16_create(&ec->fir_state, ec->fir_taps16[0], ec->taps); ec->rx_power_threshold = 10000000; ec->geigel_max = 0; ec->geigel_lag = 0; ec->dtd_onset = FALSE; ec->tap_set = 0; ec->tap_rotate_counter = 1600; ec->cng_level = 1000; echo_can_adaption_mode(ec, adaption_mode); return ec; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) echo_can_release(echo_can_state_t *ec) { return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) echo_can_free(echo_can_state_t *ec) { int i; fir16_free(&ec->fir_state); free(ec->fir_taps32); for (i = 0; i < 4; i++) free(ec->fir_taps16[i]); free(ec); return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) echo_can_adaption_mode(echo_can_state_t *ec, int adaption_mode) { ec->adaption_mode = adaption_mode; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) echo_can_flush(echo_can_state_t *ec) { int i; for (i = 0; i < 4; i++) ec->tx_power[i] = 0; for (i = 0; i < 3; i++) ec->rx_power[i] = 0; ec->clean_rx_power = 0; ec->nonupdate_dwell = 0; fir16_flush(&ec->fir_state); ec->fir_state.curr_pos = ec->taps - 1; memset(ec->fir_taps32, 0, ec->taps*sizeof(int32_t)); for (i = 0; i < 4; i++) memset(ec->fir_taps16[i], 0, ec->taps*sizeof(int16_t)); ec->curr_pos = ec->taps - 1; ec->supp_test1 = 0; ec->supp_test2 = 0; ec->supp1 = 0; ec->supp2 = 0; ec->vad = 0; ec->cng_level = 1000; ec->cng_filter = 0; ec->geigel_max = 0; ec->geigel_lag = 0; ec->dtd_onset = FALSE; ec->tap_set = 0; ec->tap_rotate_counter = 1600; ec->latest_correction = 0; memset(ec->last_acf, 0, sizeof(ec->last_acf)); ec->narrowband_count = 0; ec->narrowband_score = 0; } /*- End of function --------------------------------------------------------*/ int sample_no = 0; SPAN_DECLARE(void) echo_can_snapshot(echo_can_state_t *ec) { memcpy(ec->snapshot, ec->fir_taps16[0], ec->taps*sizeof(int16_t)); } /*- End of function --------------------------------------------------------*/ static __inline__ int16_t echo_can_hpf(int32_t coeff[2], int16_t amp) { int32_t z; /* Filter DC, 3dB point is 160Hz (I think), note 32 bit precision required otherwise values do not track down to 0. Zero at DC, Pole at (1-Beta) only real axis. Some chip sets (like Si labs) don't need this, but something like a $10 X100P card does. Any DC really slows down convergence. Note: removes some low frequency from the signal, this reduces the speech quality when listening to samples through headphones but may not be obvious through a telephone handset. Note that the 3dB frequency in radians is approx Beta, e.g. for Beta = 2^(-3) = 0.125, 3dB freq is 0.125 rads = 159Hz. This is one of the classic DC removal filters, adjusted to provide sufficient bass rolloff to meet the above requirement to protect hybrids from things that upset them. The difference between successive samples produces a lousy HPF, and then a suitably placed pole flattens things out. The final result is a nicely rolled off bass end. The filtering is implemented with extended fractional precision, which noise shapes things, giving very clean DC removal. Make sure the gain of the HPF is 1.0. The first can still saturate a little under impulse conditions, and it might roll to 32768 and need clipping on sustained peak level signals. However, the scale of such clipping is small, and the error due to any saturation should not markedly affect the downstream processing. */ z = amp << 15; z -= (z >> 4); coeff[0] += z - (coeff[0] >> 3) - coeff[1]; coeff[1] = z; z = coeff[0] >> 15; return saturate(z); } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int16_t) echo_can_update(echo_can_state_t *ec, int16_t tx, int16_t rx) { int32_t echo_value; int clean_rx; int nsuppr; int score; int i; sample_no++; if (ec->adaption_mode & ECHO_CAN_USE_RX_HPF) rx = echo_can_hpf(ec->rx_hpf, rx); ec->latest_correction = 0; /* Evaluate the echo - i.e. apply the FIR filter */ /* Assume the gain of the FIR does not exceed unity. Exceeding unity would seem like a rather poor thing for an echo cancellor to do :) This means we can compute the result with a total disregard for overflows. 16bits x 16bits -> 31bits, so no overflow can occur in any multiply. While accumulating we may overflow and underflow the 32 bit scale often. However, if the gain does not exceed unity, everything should work itself out, and the final result will be OK, without any saturation logic. */ /* Overflow is very much possible here, and we do nothing about it because of the compute costs */ /* 16 bit coeffs for the LMS give lousy results (maths good, actual sound bad!), but 32 bit coeffs require some shifting. On balance 32 bit seems best */ echo_value = fir16(&ec->fir_state, tx); /* And the answer is..... */ clean_rx = rx - echo_value; printf("echo is %" PRId32 "\n", echo_value); /* That was the easy part. Now we need to adapt! */ if (ec->nonupdate_dwell > 0) ec->nonupdate_dwell--; /* Calculate short term power levels using very simple single pole IIRs */ /* TODO: Is the nasty modulus approach the fastest, or would a real tx*tx power calculation actually be faster? Using the squares makes the numbers grow a lot! */ ec->tx_power[3] += ((abs(tx) - ec->tx_power[3]) >> 5); ec->tx_power[2] += ((tx*tx - ec->tx_power[2]) >> 8); ec->tx_power[1] += ((tx*tx - ec->tx_power[1]) >> 5); ec->tx_power[0] += ((tx*tx - ec->tx_power[0]) >> 3); ec->rx_power[1] += ((rx*rx - ec->rx_power[1]) >> 6); ec->rx_power[0] += ((rx*rx - ec->rx_power[0]) >> 3); ec->clean_rx_power += ((clean_rx*clean_rx - ec->clean_rx_power) >> 6); score = 0; /* If there is very little being transmitted, any attempt to train is futile. We would either be training on the far end's noise or signal, the channel's own noise, or our noise. Either way, this is hardly good training, so don't do it (avoid trouble). */ if (ec->tx_power[0] > MIN_TX_POWER_FOR_ADAPTION) { /* If the received power is very low, either we are sending very little or we are already well adapted. There is little point in trying to improve the adaption under these circumstances, so don't do it (reduce the compute load). */ if (ec->tx_power[1] > ec->rx_power[0]) { /* There is no (or little) far-end speech. */ if (ec->nonupdate_dwell == 0) { if (++ec->narrowband_count >= 160) { ec->narrowband_count = 0; score = narrowband_detect(ec); printf("Do the narrowband test %d at %d\n", score, ec->curr_pos); if (score > 6) { if (ec->narrowband_score == 0) memcpy(ec->fir_taps16[3], ec->fir_taps16[(ec->tap_set + 1)%3], ec->taps*sizeof(int16_t)); ec->narrowband_score += score; } else { if (ec->narrowband_score > 200) { printf("Revert to %d at %d\n", (ec->tap_set + 1)%3, sample_no); memcpy(ec->fir_taps16[ec->tap_set], ec->fir_taps16[3], ec->taps*sizeof(int16_t)); memcpy(ec->fir_taps16[(ec->tap_set - 1)%3], ec->fir_taps16[3], ec->taps*sizeof(int16_t)); for (i = 0; i < ec->taps; i++) ec->fir_taps32[i] = ec->fir_taps16[3][i] << 15; ec->tap_rotate_counter = 1600; } ec->narrowband_score = 0; } } ec->dtd_onset = FALSE; if (--ec->tap_rotate_counter <= 0) { printf("Rotate to %d at %d\n", ec->tap_set, sample_no); ec->tap_rotate_counter = 1600; ec->tap_set++; if (ec->tap_set > 2) ec->tap_set = 0; ec->fir_state.coeffs = ec->fir_taps16[ec->tap_set]; } /* ... and we are not in the dwell time from previous speech. */ if ((ec->adaption_mode & ECHO_CAN_USE_ADAPTION) && ec->narrowband_score == 0) { //nsuppr = saturate((clean_rx << 16)/ec->tx_power[1]); //nsuppr = clean_rx/ec->tx_power[1]; /* If a sudden surge in signal level (e.g. the onset of a tone burst) cause an abnormally high instantaneous to average signal power ratio, we could kick the adaption badly in the wrong direction. This is because the tx_power takes too long to react and rise. We need to stop too rapid adaption to the new signal. We normalise to a value derived from the instantaneous signal if it exceeds the peak by too much. */ nsuppr = clean_rx; /* Divide isn't very quick, but the "where is the top bit" and shift instructions are single cycle. */ if (tx > 4*ec->tx_power[3]) i = top_bit(tx) - 8; else i = top_bit(ec->tx_power[3]) - 8; if (i > 0) nsuppr >>= i; lms_adapt(ec, nsuppr); } } //printf("%10d %10d %10d %10d %10d\n", rx, clean_rx, nsuppr, ec->tx_power[1], ec->rx_power[1]); //printf("%.4f\n", (float) ec->rx_power[1]/(float) ec->clean_rx_power); } else { if (!ec->dtd_onset) { printf("Revert to %d at %d\n", (ec->tap_set + 1)%3, sample_no); memcpy(ec->fir_taps16[ec->tap_set], ec->fir_taps16[(ec->tap_set + 1)%3], ec->taps*sizeof(int16_t)); memcpy(ec->fir_taps16[(ec->tap_set - 1)%3], ec->fir_taps16[(ec->tap_set + 1)%3], ec->taps*sizeof(int16_t)); for (i = 0; i < ec->taps; i++) ec->fir_taps32[i] = ec->fir_taps16[(ec->tap_set + 1)%3][i] << 15; ec->tap_rotate_counter = 1600; ec->dtd_onset = TRUE; } ec->nonupdate_dwell = NONUPDATE_DWELL_TIME; } } if (ec->rx_power[1]) ec->vad = (8000*ec->clean_rx_power)/ec->rx_power[1]; else ec->vad = 0; if (ec->rx_power[1] > 2048*2048 && ec->clean_rx_power > 4*ec->rx_power[1]) { /* The EC seems to be making things worse, instead of better. Zap it! */ memset(ec->fir_taps32, 0, ec->taps*sizeof(int32_t)); for (i = 0; i < 4; i++) memset(ec->fir_taps16[i], 0, ec->taps*sizeof(int16_t)); } #if defined(XYZZY) if ((ec->adaption_mode & ECHO_CAN_USE_SUPPRESSOR)) { ec->supp_test1 += (ec->fir_state.history[ec->curr_pos] - ec->fir_state.history[(ec->curr_pos - 7) & ec->tap_mask]); ec->supp_test2 += (ec->fir_state.history[(ec->curr_pos - 24) & ec->tap_mask] - ec->fir_state.history[(ec->curr_pos - 31) & ec->tap_mask]); if (ec->supp_test1 > 42 && ec->supp_test2 > 42) supp_change = 25; else supp_change = 50; supp = supp_change + k1*ec->supp1 + k2*ec->supp2; ec->supp2 = ec->supp1; ec->supp1 = supp; clean_rx *= (1 - supp); } #endif if ((ec->adaption_mode & ECHO_CAN_USE_NLP)) { /* Non-linear processor - a fancy way to say "zap small signals, to avoid residual echo due to (uLaw/ALaw) non-linearity in the channel.". */ if (ec->rx_power[1] < 30000000) { if (!ec->cng) { ec->cng_level = ec->clean_rx_power; ec->cng = TRUE; } if ((ec->adaption_mode & ECHO_CAN_USE_CNG)) { /* Very elementary comfort noise generation */ /* Just random numbers rolled off very vaguely Hoth-like */ ec->cng_rndnum = 1664525U*ec->cng_rndnum + 1013904223U; ec->cng_filter = ((ec->cng_rndnum & 0xFFFF) - 32768 + 5*ec->cng_filter) >> 3; clean_rx = (ec->cng_filter*ec->cng_level) >> 17; /* TODO: A better CNG, with more accurate (tracking) spectral shaping! */ } else { clean_rx = 0; } //clean_rx = -16000; } else { ec->cng = FALSE; } } else { ec->cng = FALSE; } printf("Narrowband score %4d %5d at %d\n", ec->narrowband_score, score, sample_no); /* Roll around the rolling buffer */ if (ec->curr_pos <= 0) ec->curr_pos = ec->taps; ec->curr_pos--; return (int16_t) clean_rx; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int16_t) echo_can_hpf_tx(echo_can_state_t *ec, int16_t tx) { if (ec->adaption_mode & ECHO_CAN_USE_TX_HPF) tx = echo_can_hpf(ec->tx_hpf, tx); return tx; } /*- End of function --------------------------------------------------------*/ /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/dds_int.c0000664000175000017500000002066311422612261015162 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * dds.c * * Written by Steve Underwood * * Copyright (C) 2003 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \file */ #if defined(HAVE_CONFIG_H) #include "config.h" #endif #include #if defined(HAVE_TGMATH_H) #include #endif #if defined(HAVE_MATH_H) #include #endif #include "floating_fudge.h" #include "spandsp/telephony.h" #include "spandsp/complex.h" #include "spandsp/dds.h" #if !defined(M_PI) # define M_PI 3.14159265358979323846 /* pi */ #endif /* In a A-law or u-law channel, a 128 step sine table is adequate to keep the spectral mess due to the DDS at a similar level to the spectral mess due to the A-law or u-law compression. */ #define SLENK 7 #define DDS_STEPS (1 << SLENK) #define DDS_SHIFT (32 - 2 - SLENK) /* This is a simple set of direct digital synthesis (DDS) functions to generate sine waves. This version uses a 128 entry sin/cos table to cover one quadrant. */ static const int16_t sine_table[DDS_STEPS] = { 201, 603, 1005, 1407, 1809, 2210, 2611, 3012, 3412, 3812, 4211, 4609, 5007, 5404, 5800, 6195, 6590, 6983, 7376, 7767, 8157, 8546, 8933, 9319, 9704, 10088, 10469, 10850, 11228, 11605, 11980, 12354, 12725, 13095, 13463, 13828, 14192, 14553, 14912, 15269, 15624, 15976, 16326, 16673, 17018, 17361, 17700, 18037, 18372, 18703, 19032, 19358, 19681, 20001, 20318, 20632, 20943, 21251, 21555, 21856, 22154, 22449, 22740, 23028, 23312, 23593, 23870, 24144, 24414, 24680, 24943, 25202, 25457, 25708, 25956, 26199, 26439, 26674, 26906, 27133, 27357, 27576, 27791, 28002, 28209, 28411, 28610, 28803, 28993, 29178, 29359, 29535, 29707, 29875, 30038, 30196, 30350, 30499, 30644, 30784, 30920, 31050, 31177, 31298, 31415, 31527, 31634, 31737, 31834, 31927, 32015, 32099, 32177, 32251, 32319, 32383, 32442, 32496, 32546, 32590, 32629, 32664, 32693, 32718, 32738, 32753, 32762, 32767, }; SPAN_DECLARE(int32_t) dds_phase_rate(float frequency) { return (int32_t) (frequency*65536.0f*65536.0f/SAMPLE_RATE); } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(float) dds_frequency(int32_t phase_rate) { return (float) phase_rate*(float) SAMPLE_RATE/(65536.0f*65536.0f); } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int16_t) dds_scaling_dbm0(float level) { return (int16_t) (powf(10.0f, (level - DBM0_MAX_SINE_POWER)/20.0f)*32767.0f); } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int16_t) dds_scaling_dbov(float level) { return (int16_t) (powf(10.0f, (level - DBOV_MAX_SINE_POWER)/20.0f)*32767.0f); } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int16_t) dds_lookup(uint32_t phase) { uint32_t step; int16_t amp; phase >>= DDS_SHIFT; step = phase & (DDS_STEPS - 1); if ((phase & DDS_STEPS)) step = (DDS_STEPS - 1) - step; amp = sine_table[step]; if ((phase & (2*DDS_STEPS))) amp = -amp; return amp; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int16_t) dds_offset(uint32_t phase_acc, int32_t phase_offset) { return dds_lookup(phase_acc + phase_offset); } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) dds_advance(uint32_t *phase_acc, int32_t phase_rate) { *phase_acc += phase_rate; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int16_t) dds(uint32_t *phase_acc, int32_t phase_rate) { int16_t amp; amp = dds_lookup(*phase_acc); *phase_acc += phase_rate; return amp; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int16_t) dds_mod(uint32_t *phase_acc, int32_t phase_rate, int16_t scale, int32_t phase) { int16_t amp; amp = (int16_t) (((int32_t) dds_lookup(*phase_acc + phase)*(int32_t) scale) >> 15); *phase_acc += phase_rate; return amp; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(complexi_t) dds_lookup_complexi(uint32_t phase) { return complex_seti(dds_lookup(phase + (1 << 30)), dds_lookup(phase)); } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(complexi_t) dds_complexi(uint32_t *phase_acc, int32_t phase_rate) { complexi_t amp; amp = complex_seti(dds_lookup(*phase_acc + (1 << 30)), dds_lookup(*phase_acc)); *phase_acc += phase_rate; return amp; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(complexi_t) dds_complexi_mod(uint32_t *phase_acc, int32_t phase_rate, int16_t scale, int32_t phase) { complexi_t amp; amp = complex_seti(((int32_t) dds_lookup(*phase_acc + phase + (1 << 30))*(int32_t) scale) >> 15, ((int32_t) dds_lookup(*phase_acc + phase)*(int32_t) scale) >> 15); *phase_acc += phase_rate; return amp; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(complexi16_t) dds_lookup_complexi16(uint32_t phase) { return complex_seti16(dds_lookup(phase + (1 << 30)), dds_lookup(phase)); } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(complexi16_t) dds_complexi16(uint32_t *phase_acc, int32_t phase_rate) { complexi16_t amp; amp = complex_seti16(dds_lookup(*phase_acc + (1 << 30)), dds_lookup(*phase_acc)); *phase_acc += phase_rate; return amp; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(complexi16_t) dds_complexi16_mod(uint32_t *phase_acc, int32_t phase_rate, int16_t scale, int32_t phase) { complexi16_t amp; amp = complex_seti16((int16_t) (((int32_t) dds_lookup(*phase_acc + phase + (1 << 30))*(int32_t) scale) >> 15), (int16_t) (((int32_t) dds_lookup(*phase_acc + phase)*(int32_t) scale) >> 15)); *phase_acc += phase_rate; return amp; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(complexi32_t) dds_lookup_complexi32(uint32_t phase) { return complex_seti32(dds_lookup(phase + (1 << 30)), dds_lookup(phase)); } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(complexi32_t) dds_complexi32(uint32_t *phase_acc, int32_t phase_rate) { complexi32_t amp; amp = complex_seti32(dds_lookup(*phase_acc + (1 << 30)), dds_lookup(*phase_acc)); *phase_acc += phase_rate; return amp; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(complexi32_t) dds_complexi32_mod(uint32_t *phase_acc, int32_t phase_rate, int16_t scale, int32_t phase) { complexi32_t amp; amp = complex_seti32(((int32_t) dds_lookup(*phase_acc + phase + (1 << 30))*(int32_t) scale) >> 15, ((int32_t) dds_lookup(*phase_acc + phase)*(int32_t) scale) >> 15); *phase_acc += phase_rate; return amp; } /*- End of function --------------------------------------------------------*/ /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/filter_tools.h0000664000175000017500000000340511422612261016243 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * filter_tools.h - A collection of routines used for filter design. * * Written by Steve Underwood * * Copyright (C) 2008 Steve Underwood * * Based on: * mkshape -- design raised cosine FIR filter * A.J. Fisher, University of York , November 1996 * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #if !defined(_FILTER_TOOLS_H_) #define _FILTER_TOOLS_H_ #if defined(__cplusplus) extern "C" { #endif void ifft(complex_t data[], int len); void apply_hamming_window(double coeffs[], int len); void truncate_coeffs(double coeffs[], int len, int bits, int hilbert); void compute_raised_cosine_filter(double coeffs[], int len, int root, int sinc_compensate, double alpha, double beta); void compute_hilbert_transform(double coeffs[], int len); #if defined(__cplusplus) } #endif #endif /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/lpc10_analyse.c0000664000175000017500000005651411422612262016176 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * lpc10_analyse.c - LPC10 low bit rate speech codec. * * Written by Steve Underwood * * Copyright (C) 2006 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. * * This code is based on the U.S. Department of Defense reference * implementation of the LPC-10 2400 bps Voice Coder. They do not * exert copyright claims on their code, and it may be freely used. */ #if defined(HAVE_CONFIG_H) #include "config.h" #endif #include #include #include #include #if defined(HAVE_TGMATH_H) #include #endif #if defined(HAVE_MATH_H) #include #endif #include "floating_fudge.h" #include "spandsp/telephony.h" #include "spandsp/dc_restore.h" #include "spandsp/lpc10.h" #include "spandsp/private/lpc10.h" #include "lpc10_encdecs.h" static __inline__ float energyf(float amp[], int len) { int i; float rms; rms = 0.0f; for (i = 0; i < len; i++) rms += amp[i]*amp[i]; rms = sqrtf(rms/len); return rms; } /*- End of function --------------------------------------------------------*/ static void remove_dc_bias(float speech[], int len, float sigout[]) { float bias; int i; bias = 0.0f; for (i = 0; i < len; i++) bias += speech[i]; bias /= len; for (i = 0; i < len; i++) sigout[i] = speech[i] - bias; } /*- End of function --------------------------------------------------------*/ static void eval_amdf(float speech[], int32_t lpita, const int32_t tau[], int32_t ltau, int32_t maxlag, float amdf[], int32_t *minptr, int32_t *maxptr) { float sum; int i; int j; int n1; int n2; *minptr = 0; *maxptr = 0; for (i = 0; i < ltau; i++) { n1 = (maxlag - tau[i])/2 + 1; n2 = n1 + lpita - 1; sum = 0.0f; for (j = n1; j <= n2; j += 4) sum += fabsf(speech[j - 1] - speech[j + tau[i] - 1]); amdf[i] = sum; if (amdf[i] < amdf[*minptr]) *minptr = i; if (amdf[i] > amdf[*maxptr]) *maxptr = i; } } /*- End of function --------------------------------------------------------*/ static void eval_highres_amdf(float speech[], int32_t lpita, const int32_t tau[], int32_t ltau, float amdf[], int32_t *minptr, int32_t *maxptr, int32_t *mintau) { float amdf2[6]; int32_t tau2[6]; int32_t minp2; int32_t ltau2; int32_t maxp2; int32_t minamd; int i; int i2; int ptr; /* Compute full AMDF using log spaced lags, find coarse minimum */ eval_amdf(speech, lpita, tau, ltau, tau[ltau - 1], amdf, minptr, maxptr); *mintau = tau[*minptr]; minamd = (int32_t) amdf[*minptr]; /* Build table containing all lags within +/- 3 of the AMDF minimum, excluding all that have already been computed */ ltau2 = 0; ptr = *minptr - 2; i2 = min(*mintau + 4, tau[ltau - 1]); for (i = max(*mintau - 3, 41); i < i2; i++) { while (tau[ptr] < i) ptr++; if (tau[ptr] != i) tau2[ltau2++] = i; } /* Compute AMDF of the new lags, if there are any, and choose one if it is better than the coarse minimum */ if (ltau2 > 0) { eval_amdf(speech, lpita, tau2, ltau2, tau[ltau - 1], amdf2, &minp2, &maxp2); if (amdf2[minp2] < (float) minamd) { *mintau = tau2[minp2]; minamd = (int32_t) amdf2[minp2]; } } /* Check one octave up, if there are any lags not yet computed */ if (*mintau >= 80) { i = *mintau/2; if ((i & 1) == 0) { ltau2 = 2; tau2[0] = i - 1; tau2[1] = i + 1; } else { ltau2 = 1; tau2[0] = i; } eval_amdf(speech, lpita, tau2, ltau2, tau[ltau - 1], amdf2, &minp2, &maxp2); if (amdf2[minp2] < (float) minamd) { *mintau = tau2[minp2]; minamd = (int32_t) amdf2[minp2]; *minptr -= 20; } } /* Force minimum of the AMDF array to the high resolution minimum */ amdf[*minptr] = (float) minamd; /* Find maximum of AMDF within 1/2 octave of minimum */ *maxptr = max(*minptr - 5, 0); i2 = min(*minptr + 6, ltau); for (i = *maxptr; i < i2; i++) { if (amdf[i] > amdf[*maxptr]) *maxptr = i; } } /*- End of function --------------------------------------------------------*/ static void dynamic_pitch_tracking(lpc10_encode_state_t *s, float amdf[], int32_t ltau, int32_t *minptr, int32_t voice, int32_t *pitch, int32_t *midx) { int32_t pbar; float sbar; int32_t path[2]; int32_t i; int32_t j; float alpha; float minsc; float maxsc; /* Calculate the confidence factor ALPHA, used as a threshold slope in */ /* SEESAW. If unvoiced, set high slope so that every point in P array */ /*is marked as a potential pitch frequency. A scaled up version (ALPHAX )*/ /* is used to maintain arithmetic precision. */ if (voice == 1) s->alphax = s->alphax*0.75f + amdf[*minptr - 1]*0.5f; else s->alphax *= 0.984375f; alpha = s->alphax/16; if (voice == 0 && s->alphax < 128.0f) alpha = 8.0f; /* SEESAW: Construct a pitch pointer array and intermediate winner function */ /* Left to right pass: */ s->p[s->ipoint][0] = 1; pbar = 1; sbar = s->s[0]; for (i = 0; i < ltau; i++) { sbar += alpha; if (sbar < s->s[i]) { s->s[i] = sbar; } else { pbar = i + 1; sbar = s->s[i]; } s->p[s->ipoint][i] = pbar; } /* Right to left pass: */ sbar = s->s[pbar - 1]; for (i = pbar - 2; i >= 0; i--) { sbar += alpha; if (sbar < s->s[i]) { s->s[i] = sbar; s->p[s->ipoint][i] = pbar; } else { pbar = s->p[s->ipoint][i]; i = pbar - 1; sbar = s->s[i]; } } /* Update S using AMDF */ /* Find maximum, minimum, and location of minimum */ s->s[0] += amdf[0]/2; minsc = s->s[0]; maxsc = minsc; *midx = 1; for (i = 1; i < ltau; i++) { s->s[i] += amdf[i]/2; if (s->s[i] > maxsc) maxsc = s->s[i]; if (s->s[i] < minsc) { *midx = i + 1; minsc = s->s[i]; } } /* Subtract MINSC from S to prevent overflow */ for (i = 0; i < ltau; i++) s->s[i] -= minsc; maxsc -= minsc; /* Use higher octave pitch if significant null there */ j = 0; for (i = 20; i <= 40; i += 10) { if (*midx > i) { if (s->s[*midx - i - 1] < maxsc / 4) j = i; } } *midx -= j; /* TRACE: look back two frames to find minimum cost pitch estimate */ *pitch = *midx; for (i = 0, j = s->ipoint; i < 2; i++, j++) { *pitch = s->p[j & 1][*pitch - 1]; path[i] = *pitch; } /* The following statement subtracts one from IPOINT, mod DEPTH. I */ /* think the author chose to add DEPTH-1, instead of subtracting 1, */ /* because then it will work even if MOD doesn't work as desired on */ /* negative arguments. */ s->ipoint = (s->ipoint + 1) & 1; } /*- End of function --------------------------------------------------------*/ /* Detection of onsets in (or slightly preceding) the futuremost frame of speech. */ static void onset(lpc10_encode_state_t *s, float *pebuf, int32_t osbuf[], int32_t *osptr, int32_t oslen, int32_t sbufl, int32_t sbufh, int32_t lframe) { int32_t i; float r1; float l2sum2; pebuf -= sbufl; if (s->hyst) s->lasti -= lframe; for (i = sbufh - lframe + 1; i <= sbufh; i++) { /* Compute FPC; Use old FPC on divide by zero; Clamp FPC to +/- 1. */ s->n = (pebuf[i]*pebuf[i - 1] + s->n*63.0f)/64.0f; /* Computing 2nd power */ r1 = pebuf[i - 1]; s->d__ = (r1*r1 + s->d__*63.0f)/64.0f; if (s->d__ != 0.0f) { if (fabsf(s->n) > s->d__) s->fpc = r_sign(1.0f, s->n); else s->fpc = s->n/s->d__; } /* Filter FPC */ l2sum2 = s->l2buf[s->l2ptr1 - 1]; s->l2sum1 = s->l2sum1 - s->l2buf[s->l2ptr2 - 1] + s->fpc; s->l2buf[s->l2ptr2 - 1] = s->l2sum1; s->l2buf[s->l2ptr1 - 1] = s->fpc; s->l2ptr1 = (s->l2ptr1 & 0xF) + 1; s->l2ptr2 = (s->l2ptr2 & 0xF) + 1; if (fabsf(s->l2sum1 - l2sum2) > 1.7f) { if (!s->hyst) { /* Ignore if buffer full */ if (*osptr <= oslen) { osbuf[*osptr - 1] = i - 9; (*osptr)++; } s->hyst = TRUE; } s->lasti = i; /* After one onset detection, at least OSHYST sample times must go */ /* by before another is allowed to occur. */ } else if (s->hyst && i - s->lasti >= 10) { s->hyst = FALSE; } } } /*- End of function --------------------------------------------------------*/ /* Load a covariance matrix. */ static void mload(int32_t order, int32_t awins, int32_t awinf, float speech[], float phi[], float psi[]) { int32_t start; int i; int r; start = awins + order; for (r = 1; r <= order; r++) { phi[r - 1] = 0.0f; for (i = start; i <= awinf; i++) phi[r - 1] += speech[i - 2]*speech[i - r - 1]; } /* Load last element of vector PSI */ psi[order - 1] = 0.0f; for (i = start - 1; i < awinf; i++) psi[order - 1] += speech[i]*speech[i - order]; /* End correct to get additional columns of phi */ for (r = 1; r < order; r++) { for (i = 1; i <= r; i++) { phi[i*order + r] = phi[(i - 1)*order + r - 1] - speech[awinf - (r + 1)]*speech[awinf - (i + 1)] + speech[start - (r + 2)]*speech[start - (i + 2)]; } } /* End correct to get additional elements of PSI */ for (i = 0; i < order - 1; i++) { psi[i] = phi[i + 1] - speech[start - 2]*speech[start - i - 3] + speech[awinf - 1]*speech[awinf - i - 2]; } } /*- End of function --------------------------------------------------------*/ /* Preemphasize speech with a single-zero filter. */ /* (When coef = .9375, preemphasis is as in LPC43.) */ static float preemp(float inbuf[], float pebuf[], int nsamp, float coeff, float z) { float temp; int i; for (i = 0; i < nsamp; i++) { temp = inbuf[i] - coeff*z; z = inbuf[i]; pebuf[i] = temp; } return z; } /*- End of function --------------------------------------------------------*/ /* Invert a covariance matrix using Choleski decomposition method. */ static void invert(int32_t order, float phi[], float psi[], float rc[]) { float r1; int32_t i; int32_t j; int32_t k; float v[10][10]; for (j = 0; j < order; j++) { for (i = j; i < order; i++) v[j][i] = phi[i + j*order]; for (k = 0; k < j; k++) { r1 = v[k][j]*v[k][k]; for (i = j; i <= order; i++) v[j][i] -= v[k][i]*r1; } /* Compute intermediate results, which are similar to RC's */ if (fabsf(v[j][j]) < 1.0e-10f) { for (i = j; i < order; i++) rc[i] = 0.0f; return; } rc[j] = psi[j]; for (k = 0; k < j; k++) rc[j] -= rc[k]*v[k][j]; v[j][j] = 1.0f/v[j][j]; rc[j] *= v[j][j]; r1 = min(rc[j], 0.999f); rc[j] = max(r1, -0.999f); } } /*- End of function --------------------------------------------------------*/ /* Check RC's, repeat previous frame's RC's if unstable */ static int rcchk(int order, float rc1f[], float rc2f[]) { int i; for (i = 0; i < order; i++) { if (fabsf(rc2f[i]) > 0.99f) { for (i = 0; i < order; i++) rc2f[i] = rc1f[i]; break; } } return 0; } /*- End of function --------------------------------------------------------*/ static void lpfilt(float inbuf[], float lpbuf[], int32_t len, int32_t nsamp) { int32_t j; float t; /* 31 point equiripple FIR LPF */ /* Linear phase, delay = 15 samples */ /* Passband: ripple = 0.25 dB, cutoff = 800 Hz */ /* Stopband: atten. = 40. dB, cutoff = 1240 Hz */ for (j = len - nsamp; j < len; j++) { t = (inbuf[j] + inbuf[j - 30]) * -0.0097201988f; t += (inbuf[j - 1] + inbuf[j - 29]) * -0.0105179986f; t += (inbuf[j - 2] + inbuf[j - 28]) * -0.0083479648f; t += (inbuf[j - 3] + inbuf[j - 27]) * 5.860774e-4f; t += (inbuf[j - 4] + inbuf[j - 26]) * 0.0130892089f; t += (inbuf[j - 5] + inbuf[j - 25]) * 0.0217052232f; t += (inbuf[j - 6] + inbuf[j - 24]) * 0.0184161253f; t += (inbuf[j - 7] + inbuf[j - 23]) * 3.39723e-4f; t += (inbuf[j - 8] + inbuf[j - 22]) * -0.0260797087f; t += (inbuf[j - 9] + inbuf[j - 21]) * -0.0455563702f; t += (inbuf[j - 10] + inbuf[j - 20]) * -0.040306855f; t += (inbuf[j - 11] + inbuf[j - 19]) * 5.029835e-4f; t += (inbuf[j - 12] + inbuf[j - 18]) * 0.0729262903f; t += (inbuf[j - 13] + inbuf[j - 17]) * 0.1572008878f; t += (inbuf[j - 14] + inbuf[j - 16]) * 0.2247288674f; t += inbuf[j - 15] * 0.250535965f; lpbuf[j] = t; } } /*- End of function --------------------------------------------------------*/ /* 2nd order inverse filter, speech is decimated 4:1 */ static void ivfilt(float lpbuf[], float ivbuf[], int32_t len, int32_t nsamp, float ivrc[]) { int32_t i; int32_t j; int32_t k; float r[3]; float pc1; float pc2; /* Calculate autocorrelations */ for (i = 1; i <= 3; i++) { r[i - 1] = 0.0f; k = (i - 1) << 2; for (j = (i << 2) + len - nsamp; j <= len; j += 2) r[i - 1] += lpbuf[j - 1]*lpbuf[j - k - 1]; } /* Calculate predictor coefficients */ pc1 = 0.0f; pc2 = 0.0f; ivrc[0] = 0.0f; ivrc[1] = 0.0f; if (r[0] > 1.0e-10f) { ivrc[0] = r[1]/r[0]; ivrc[1] = (r[2] - ivrc[0]*r[1])/(r[0] - ivrc[0]*r[1]); pc1 = ivrc[0] - ivrc[0]*ivrc[1]; pc2 = ivrc[1]; } /* Inverse filter LPBUF into IVBUF */ for (i = len - nsamp; i < len; i++) ivbuf[i] = lpbuf[i] - pc1*lpbuf[i - 4] - pc2*lpbuf[i - 8]; } /*- End of function --------------------------------------------------------*/ void lpc10_analyse(lpc10_encode_state_t *s, float speech[], int32_t voice[], int32_t *pitch, float *rms, float rc[]) { static const int32_t tau[60] = { 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 42, 44, 46, 48, 50, 52, 54, 56, 58, 60, 62, 64, 66, 68, 70, 72, 74, 76, 78, 80, 84, 88, 92, 96, 100, 104, 108, 112, 116, 120, 124, 128, 132, 136, 140, 144, 148, 152, 156 }; static const int32_t buflim[4] = { 181, 720, 25, 720 }; static const float precoef = 0.9375f; float amdf[60]; float abuf[156]; float ivrc[2]; float temp; float phi[100] /* was [10][10] */; float psi[10]; int32_t half; int32_t midx; int32_t ewin[3][2]; int32_t i; int32_t j; int32_t lanal; int32_t ipitch; int32_t mintau; int32_t minptr; int32_t maxptr; /* Calculations are done on future frame due to requirements of the pitch tracker. Delay RMS and RC's 2 frames to give current frame parameters on return. */ for (i = 0; i <= 720 - LPC10_SAMPLES_PER_FRAME - 181; i++) { s->inbuf[i] = s->inbuf[LPC10_SAMPLES_PER_FRAME + i]; s->pebuf[i] = s->pebuf[LPC10_SAMPLES_PER_FRAME + i]; } for (i = 0; i <= 540 - LPC10_SAMPLES_PER_FRAME - 229; i++) s->ivbuf[i] = s->ivbuf[LPC10_SAMPLES_PER_FRAME + i]; for (i = 0; i <= 720 - LPC10_SAMPLES_PER_FRAME - 25; i++) s->lpbuf[i] = s->lpbuf[LPC10_SAMPLES_PER_FRAME + i]; for (i = 0, j = 0; i < s->osptr - 1; i++) { if (s->osbuf[i] > LPC10_SAMPLES_PER_FRAME) s->osbuf[j++] = s->osbuf[i] - LPC10_SAMPLES_PER_FRAME; } s->osptr = j + 1; s->voibuf[0][0] = s->voibuf[1][0]; s->voibuf[0][1] = s->voibuf[1][1]; for (i = 0; i < 2; i++) { s->vwin[i][0] = s->vwin[i + 1][0] - LPC10_SAMPLES_PER_FRAME; s->vwin[i][1] = s->vwin[i + 1][1] - LPC10_SAMPLES_PER_FRAME; s->awin[i][0] = s->awin[i + 1][0] - LPC10_SAMPLES_PER_FRAME; s->awin[i][1] = s->awin[i + 1][1] - LPC10_SAMPLES_PER_FRAME; s->obound[i] = s->obound[i + 1]; s->voibuf[i + 1][0] = s->voibuf[i + 2][0]; s->voibuf[i + 1][1] = s->voibuf[i + 2][1]; s->rmsbuf[i] = s->rmsbuf[i + 1]; for (j = 0; j < LPC10_ORDER; j++) s->rcbuf[i][j] = s->rcbuf[i + 1][j]; } /* If the average value in the frame was over 1/4096 (after current BIAS correction), then subtract that much more from samples in the next frame. If the average value in the frame was under -1/4096, add 1/4096 more to samples in next frame. In all other cases, keep BIAS the same. */ temp = 0.0f; for (i = 0; i < LPC10_SAMPLES_PER_FRAME; i++) { s->inbuf[720 - 2*LPC10_SAMPLES_PER_FRAME + i] = speech[i]*4096.0f - s->bias; temp += s->inbuf[720 - 2*LPC10_SAMPLES_PER_FRAME + i]; } if (temp > (float) LPC10_SAMPLES_PER_FRAME) s->bias++; else if (temp < (float) (-LPC10_SAMPLES_PER_FRAME)) s->bias--; /* Place voicing window */ i = 721 - LPC10_SAMPLES_PER_FRAME; s->zpre = preemp(&s->inbuf[i - 181], &s->pebuf[i - 181], LPC10_SAMPLES_PER_FRAME, precoef, s->zpre); onset(s, s->pebuf, s->osbuf, &s->osptr, 10, 181, 720, LPC10_SAMPLES_PER_FRAME); lpc10_placev(s->osbuf, &s->osptr, 10, &s->obound[2], s->vwin, 3, LPC10_SAMPLES_PER_FRAME, 90, 156, 307, 462); /* The Pitch Extraction algorithm estimates the pitch for a frame of speech by locating the minimum of the average magnitude difference function (AMDF). The AMDF operates on low-pass, inverse filtered speech. (The low-pass filter is an 800 Hz, 19 tap, equiripple, FIR filter and the inverse filter is a 2nd-order LPC filter.) The pitch estimate is later refined by dynamic tracking. However, since some of the tracking parameters are a function of the voicing decisions, a voicing decision must precede the final pitch estimation. */ /* See subroutines LPFILT, IVFILT, and eval_highres_amdf. */ /* LPFILT reads indices LBUFH-LFRAME-29 = 511 through LBUFH = 720 of INBUF, and writes indices LBUFH+1-LFRAME = 541 through LBUFH = 720 of LPBUF. */ lpfilt(&s->inbuf[228], &s->lpbuf[384], 312, LPC10_SAMPLES_PER_FRAME); /* IVFILT reads indices (PWINH-LFRAME-7) = 353 through PWINH = 540 of LPBUF, and writes indices (PWINH-LFRAME+1) = 361 through PWINH = 540 of IVBUF. */ ivfilt(&s->lpbuf[204], s->ivbuf, 312, LPC10_SAMPLES_PER_FRAME, ivrc); /* eval_highres_amdf reads indices PWINL = 229 through (PWINL-1)+MAXWIN+(TAU(LTAU)-TAU(1))/2 = 452 of IVBUF, and writes indices 1 through LTAU = 60 of AMDF. */ eval_highres_amdf(s->ivbuf, 156, tau, 60, amdf, &minptr, &maxptr, &mintau); /* Voicing decisions are made for each half frame of input speech. An initial voicing classification is made for each half of the analysis frame, and the voicing decisions for the present frame are finalized. See subroutine VOICIN. */ /* The voicing detector (VOICIN) classifies the input signal as unvoiced (including silence) or voiced using the AMDF windowed maximum-to-minimum ratio, the zero crossing rate, energy measures, reflection coefficients, and prediction gains. */ /* The pitch and voicing rules apply smoothing and isolated corrections to the pitch and voicing estimates and, in the process, introduce two frames of delay into the corrected pitch estimates and voicing decisions. */ for (half = 0; half < 2; half++) { lpc10_voicing(s, &s->vwin[2][0], s->inbuf, s->lpbuf, buflim, half, &amdf[minptr], &amdf[maxptr], &mintau, ivrc, s->obound); } /* Find the minimum cost pitch decision over several frames, given the current voicing decision and the AMDF array */ minptr++; dynamic_pitch_tracking(s, amdf, 60, &minptr, s->voibuf[3][1], pitch, &midx); ipitch = tau[midx - 1]; /* Place spectrum analysis and energy windows */ lpc10_placea(&ipitch, s->voibuf, &s->obound[2], 3, s->vwin, s->awin, ewin, LPC10_SAMPLES_PER_FRAME, 156); /* Remove short term DC bias over the analysis window. */ lanal = s->awin[2][1] + 1 - s->awin[2][0]; remove_dc_bias(&s->pebuf[s->awin[2][0] - 181], lanal, abuf); /* Compute RMS over integer number of pitch periods within the analysis window. */ /* Note that in a hardware implementation this computation may be simplified by using diagonal elements of phi computed by mload(). */ s->rmsbuf[2] = energyf(&abuf[ewin[2][0] - s->awin[2][0]], ewin[2][1] - ewin[2][0] + 1); /* Matrix load and invert, check RC's for stability */ mload(LPC10_ORDER, 1, lanal, abuf, phi, psi); invert(LPC10_ORDER, phi, psi, &s->rcbuf[2][0]); rcchk(LPC10_ORDER, &s->rcbuf[1][0], &s->rcbuf[2][0]); /* Set return parameters */ voice[0] = s->voibuf[1][0]; voice[1] = s->voibuf[1][1]; *rms = s->rmsbuf[0]; for (i = 0; i < LPC10_ORDER; i++) rc[i] = s->rcbuf[0][i]; } /*- End of function --------------------------------------------------------*/ /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/power_meter.c0000664000175000017500000001402711422612262016064 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * power_meter.c * * Written by Steve Underwood * * Copyright (C) 2003 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \file */ #if defined(HAVE_CONFIG_H) #include "config.h" #endif #include #include #include #include #include #include #if defined(HAVE_TGMATH_H) #include #endif #if defined(HAVE_MATH_H) #include #endif #include "floating_fudge.h" #include #include "spandsp/telephony.h" #include "spandsp/power_meter.h" SPAN_DECLARE(power_meter_t *) power_meter_init(power_meter_t *s, int shift) { if (s == NULL) { if ((s = (power_meter_t *) malloc(sizeof(*s))) == NULL) return NULL; } s->shift = shift; s->reading = 0; return s; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) power_meter_release(power_meter_t *s) { return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) power_meter_free(power_meter_t *s) { if (s) free(s); return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(power_meter_t *) power_meter_damping(power_meter_t *s, int shift) { s->shift = shift; return s; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int32_t) power_meter_update(power_meter_t *s, int16_t amp) { s->reading += ((amp*amp - s->reading) >> s->shift); return s->reading; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int32_t) power_meter_level_dbm0(float level) { float l; level -= DBM0_MAX_POWER; if (level > 0.0) level = 0.0; l = powf(10.0f, level/10.0f)*(32767.0f*32767.0f); return (int32_t) l; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int32_t) power_meter_level_dbov(float level) { float l; if (level > 0.0) level = 0.0; l = powf(10.0f, level/10.0f)*(32767.0f*32767.0f); return (int32_t) l; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int32_t) power_meter_current(power_meter_t *s) { return s->reading; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(float) power_meter_current_dbm0(power_meter_t *s) { if (s->reading <= 0) return -96.329f + DBM0_MAX_POWER; /* This is based on A-law, but u-law is only 0.03dB different, so don't worry. */ return log10f((float) s->reading/(32767.0f*32767.0f))*10.0f + DBM0_MAX_POWER; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(float) power_meter_current_dbov(power_meter_t *s) { if (s->reading <= 0) return -96.329f; return log10f((float) s->reading/(32767.0f*32767.0f))*10.0f; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int32_t) power_surge_detector(power_surge_detector_state_t *s, int16_t amp) { int32_t pow_short; int32_t pow_medium; pow_short = power_meter_update(&s->short_term, amp); pow_medium = power_meter_update(&s->medium_term, amp); if (pow_medium < s->min) return 0; if (!s->signal_present) { if (pow_short <= s->surge*(pow_medium >> 10)) return 0; s->signal_present = TRUE; s->medium_term.reading = s->short_term.reading; } else { if (pow_short < s->sag*(pow_medium >> 10)) { s->signal_present = FALSE; s->medium_term.reading = s->short_term.reading; return 0; } } return pow_short; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(float) power_surge_detector_current_dbm0(power_surge_detector_state_t *s) { return power_meter_current_dbm0(&s->short_term); } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(float) power_surge_detector_current_dbov(power_surge_detector_state_t *s) { return power_meter_current_dbov(&s->short_term); } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(power_surge_detector_state_t *) power_surge_detector_init(power_surge_detector_state_t *s, float min, float surge) { float ratio; if (s == NULL) { if ((s = (power_surge_detector_state_t *) malloc(sizeof(*s))) == NULL) return NULL; } memset(s, 0, sizeof(*s)); power_meter_init(&s->short_term, 4); power_meter_init(&s->medium_term, 7); ratio = powf(10.0f, surge/10.0f); s->surge = 1024.0f*ratio; s->sag = 1024.0f/ratio; s->min = power_meter_level_dbm0(min); s->medium_term.reading = s->min + 1; return s; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) power_surge_detector_release(power_surge_detector_state_t *s) { return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) power_surge_detector_free(power_surge_detector_state_t *s) { if (s) free(s); return 0; } /*- End of function --------------------------------------------------------*/ /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/libtiff.2005.vcproj0000664000175000017500000002116411203772526016630 0ustar steveusteveu spandsp-0.0.6/src/v8.c0000664000175000017500000010034311422612263014067 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * v8.c - V.8 modem negotiation processing. * * Written by Steve Underwood * * Copyright (C) 2004 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \file */ #if defined(HAVE_CONFIG_H) #include "config.h" #endif #include #include #include #include #if defined(HAVE_TGMATH_H) #include #endif #if defined(HAVE_MATH_H) #include #endif #include "floating_fudge.h" #include "spandsp/telephony.h" #include "spandsp/logging.h" #include "spandsp/queue.h" #include "spandsp/async.h" #include "spandsp/vector_int.h" #include "spandsp/complex.h" #include "spandsp/dds.h" #include "spandsp/tone_detect.h" #include "spandsp/tone_generate.h" #include "spandsp/super_tone_rx.h" #include "spandsp/power_meter.h" #include "spandsp/fsk.h" #include "spandsp/modem_connect_tones.h" #include "spandsp/v8.h" #include "spandsp/private/logging.h" #include "spandsp/private/fsk.h" #include "spandsp/private/modem_connect_tones.h" #include "spandsp/private/v8.h" enum { V8_WAIT_1S, V8_CI_ON, V8_CI_OFF, V8_HEARD_ANSAM, V8_CM_ON, V8_CJ_ON, V8_CM_WAIT, V8_SIGC, V8_JM_ON, V8_SIGA, V8_PARKED } v8_states_e; enum { V8_SYNC_UNKNOWN = 0, V8_SYNC_CI, V8_SYNC_CM_JM, V8_SYNC_V92 } v8_sync_types_e; enum { V8_CALL_FUNCTION_TAG = 0x01, V8_MODULATION_TAG = 0x05, V8_PROTOCOLS_TAG = 0x0A, V8_PSTN_ACCESS_TAG = 0x0D, V8_NSF_TAG = 0x0F, V8_PCM_MODEM_AVAILABILITY_TAG = 0x07, V8_T66_TAG = 0x0E }; enum { V8_CI_SYNC_OCTET = 0x00, V8_CM_JM_SYNC_OCTET = 0xE0 }; SPAN_DECLARE(const char *) v8_call_function_to_str(int call_function) { switch (call_function) { case V8_CALL_TBS: return "TBS"; case V8_CALL_H324: return "H.324 PSTN multimedia terminal"; case V8_CALL_V18: return "V.18 textphone"; case V8_CALL_T101: return "T.101 videotext"; case V8_CALL_T30_TX: return "T.30 Tx FAX"; case V8_CALL_T30_RX: return "T.30 Rx FAX"; case V8_CALL_V_SERIES: return "V series modem data"; case V8_CALL_FUNCTION_EXTENSION: return "Call function is in extension octet"; } return "???"; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(const char *) v8_modulation_to_str(int modulation_scheme) { switch (modulation_scheme) { case V8_MOD_V17: return "V.17 half-duplex"; case V8_MOD_V21: return "V.21 duplex"; case V8_MOD_V22: return "V.22/V.22bis duplex"; case V8_MOD_V23HDX: return "V.23 half-duplex"; case V8_MOD_V23: return "V.23 duplex"; case V8_MOD_V26BIS: return "V.26bis duplex"; case V8_MOD_V26TER: return "V.26ter duplex"; case V8_MOD_V27TER: return "V.27ter duplex"; case V8_MOD_V29: return "V.29 half-duplex"; case V8_MOD_V32: return "V.32/V.32bis duplex"; case V8_MOD_V34HDX: return "V.34 half-duplex"; case V8_MOD_V34: return "V.34 duplex"; case V8_MOD_V90: return "V.90 duplex"; case V8_MOD_V92: return "V.92 duplex"; } return "???"; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(const char *) v8_protocol_to_str(int protocol) { switch (protocol) { case V8_PROTOCOL_NONE: return "None"; case V8_PROTOCOL_LAPM_V42: return "LAPM"; case V8_PROTOCOL_EXTENSION: return "Extension"; } return "Undefined"; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(const char *) v8_pstn_access_to_str(int pstn_access) { switch (pstn_access) { case V8_PSTN_ACCESS_CALL_DCE_CELLULAR: return "Calling modem on cellular"; case V8_PSTN_ACCESS_ANSWER_DCE_CELLULAR: return "Answering modem on cellular"; case V8_PSTN_ACCESS_ANSWER_DCE_CELLULAR | V8_PSTN_ACCESS_CALL_DCE_CELLULAR: return "Answering and calling modems on cellular"; case V8_PSTN_ACCESS_DCE_ON_DIGITAL: return "DCE on digital"; case V8_PSTN_ACCESS_DCE_ON_DIGITAL | V8_PSTN_ACCESS_CALL_DCE_CELLULAR: return "DCE on digital, and calling modem on cellular"; case V8_PSTN_ACCESS_DCE_ON_DIGITAL | V8_PSTN_ACCESS_ANSWER_DCE_CELLULAR: return "DCE on digital, answering modem on cellular"; case V8_PSTN_ACCESS_DCE_ON_DIGITAL | V8_PSTN_ACCESS_ANSWER_DCE_CELLULAR | V8_PSTN_ACCESS_CALL_DCE_CELLULAR: return "DCE on digital, and answering and calling modems on cellular"; } return "???"; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(const char *) v8_nsf_to_str(int nsf) { switch (nsf) { case 0: return "???"; } return "???"; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(const char *) v8_pcm_modem_availability_to_str(int pcm_modem_availability) { switch (pcm_modem_availability) { case 0: return "PCM unavailable"; case V8_PSTN_PCM_MODEM_V90_V92_ANALOGUE: return "V.90/V.92 analogue available"; case V8_PSTN_PCM_MODEM_V90_V92_DIGITAL: return "V.90/V.92 digital available"; case V8_PSTN_PCM_MODEM_V90_V92_DIGITAL | V8_PSTN_PCM_MODEM_V90_V92_ANALOGUE: return "V.90/V.92 digital/analogue available"; case V8_PSTN_PCM_MODEM_V91: return "V.91 available"; case V8_PSTN_PCM_MODEM_V91 | V8_PSTN_PCM_MODEM_V90_V92_ANALOGUE: return "V.91 and V.90/V.92 analogue available"; case V8_PSTN_PCM_MODEM_V91 | V8_PSTN_PCM_MODEM_V90_V92_DIGITAL: return "V.91 and V.90/V.92 digital available"; case V8_PSTN_PCM_MODEM_V91 | V8_PSTN_PCM_MODEM_V90_V92_DIGITAL | V8_PSTN_PCM_MODEM_V90_V92_ANALOGUE: return "V.91 and V.90/V.92 digital/analogue available"; } return "???"; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(const char *) v8_t66_to_str(int t66) { /* T.66 doesn't really define any V.8 values. The bits are all reserved. */ switch (t66) { case 0: return "???"; case 1: return "Reserved TIA"; case 2: return "Reserved"; case 3: return "Reserved TIA + others"; case 4: return "Reserved"; case 5: return "Reserved TIA + others"; case 6: return "Reserved"; case 7: return "Reserved TIA + others"; } return "???"; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) v8_log_supported_modulations(v8_state_t *s, int modulation_schemes) { const char *comma; int i; comma = ""; span_log(&s->logging, SPAN_LOG_FLOW, ""); for (i = 0; i < 32; i++) { if ((modulation_schemes & (1 << i))) { span_log(&s->logging, SPAN_LOG_FLOW | SPAN_LOG_SUPPRESS_LABELLING, "%s%s", comma, v8_modulation_to_str(modulation_schemes & (1 << i))); comma = ", "; } } span_log(&s->logging, SPAN_LOG_FLOW | SPAN_LOG_SUPPRESS_LABELLING, " supported\n"); } /*- End of function --------------------------------------------------------*/ static int report_event(v8_state_t *s) { if (s->result_handler) s->result_handler(s->result_handler_user_data, &s->result); return 0; } /*- End of function --------------------------------------------------------*/ static const uint8_t *process_call_function(v8_state_t *s, const uint8_t *p) { s->result.call_function = (*p >> 5) & 0x07; span_log(&s->logging, SPAN_LOG_FLOW, "%s\n", v8_call_function_to_str(s->result.call_function)); return ++p; } /*- End of function --------------------------------------------------------*/ static const uint8_t *process_modulation_mode(v8_state_t *s, const uint8_t *p) { unsigned int modulations; /* Modulation mode octets */ /* We must record the number of bytes of modulation information, so a resulting JM can be made to have the same number (V.8/8.2.3) */ modulations = 0; s->modulation_bytes = 1; if (*p & 0x80) modulations |= V8_MOD_V34HDX; if (*p & 0x40) modulations |= V8_MOD_V34; if (*p & 0x20) modulations |= V8_MOD_V90; ++p; /* Check for an extension octet */ if ((*p & 0x38) == 0x10) { s->modulation_bytes++; if (*p & 0x80) modulations |= V8_MOD_V27TER; if (*p & 0x40) modulations |= V8_MOD_V29; if (*p & 0x04) modulations |= V8_MOD_V17; if (*p & 0x02) modulations |= V8_MOD_V22; if (*p & 0x01) modulations |= V8_MOD_V32; ++p; /* Check for an extension octet */ if ((*p & 0x38) == 0x10) { s->modulation_bytes++; if (*p & 0x80) modulations |= V8_MOD_V21; if (*p & 0x40) modulations |= V8_MOD_V23HDX; if (*p & 0x04) modulations |= V8_MOD_V23; if (*p & 0x02) modulations |= V8_MOD_V26BIS; if (*p & 0x01) modulations |= V8_MOD_V26TER; ++p; } } s->result.modulations = modulations; v8_log_supported_modulations(s, modulations); return p; } /*- End of function --------------------------------------------------------*/ static const uint8_t *process_protocols(v8_state_t *s, const uint8_t *p) { s->result.protocol = (*p >> 5) & 0x07; span_log(&s->logging, SPAN_LOG_FLOW, "%s\n", v8_protocol_to_str(s->result.protocol)); return ++p; } /*- End of function --------------------------------------------------------*/ static const uint8_t *process_pstn_access(v8_state_t *s, const uint8_t *p) { s->result.pstn_access = (*p >> 5) & 0x07; span_log(&s->logging, SPAN_LOG_FLOW, "%s\n", v8_pstn_access_to_str(s->result.pstn_access)); return ++p; } /*- End of function --------------------------------------------------------*/ static const uint8_t *process_non_standard_facilities(v8_state_t *s, const uint8_t *p) { s->result.nsf = (*p >> 5) & 0x07; span_log(&s->logging, SPAN_LOG_FLOW, "%s\n", v8_nsf_to_str(s->result.nsf)); return p; } /*- End of function --------------------------------------------------------*/ static const uint8_t *process_pcm_modem_availability(v8_state_t *s, const uint8_t *p) { s->result.pcm_modem_availability = (*p >> 5) & 0x07; span_log(&s->logging, SPAN_LOG_FLOW, "%s\n", v8_pcm_modem_availability_to_str(s->result.pcm_modem_availability)); return ++p; } /*- End of function --------------------------------------------------------*/ static const uint8_t *process_t66(v8_state_t *s, const uint8_t *p) { s->result.t66 = (*p >> 5) & 0x07; span_log(&s->logging, SPAN_LOG_FLOW, "%s\n", v8_t66_to_str(s->result.t66)); return ++p; } /*- End of function --------------------------------------------------------*/ static void ci_decode(v8_state_t *s) { if ((s->rx_data[0] & 0x1F) == V8_CALL_FUNCTION_TAG) process_call_function(s, &s->rx_data[0]); } /*- End of function --------------------------------------------------------*/ static void cm_jm_decode(v8_state_t *s) { const uint8_t *p; if (s->got_cm_jm) return; /* We must receive two consecutive identical CM or JM sequences to accept it. */ if (s->cm_jm_len <= 0 || s->cm_jm_len != s->rx_data_ptr || memcmp(s->cm_jm_data, s->rx_data, s->rx_data_ptr)) { /* Save the current CM or JM sequence */ s->cm_jm_len = s->rx_data_ptr; memcpy(s->cm_jm_data, s->rx_data, s->rx_data_ptr); return; } /* We have a matching pair of CMs or JMs, so we are happy this is correct. */ s->got_cm_jm = TRUE; span_log(&s->logging, SPAN_LOG_FLOW, "Decoding\n"); /* Zero indicates the end */ s->cm_jm_data[s->cm_jm_len] = 0; s->result.modulations = 0; p = s->cm_jm_data; while (*p) { switch (*p & 0x1F) { case V8_CALL_FUNCTION_TAG: p = process_call_function(s, p); break; case V8_MODULATION_TAG: p = process_modulation_mode(s, p); break; case V8_PROTOCOLS_TAG: p = process_protocols(s, p); break; case V8_PSTN_ACCESS_TAG: p = process_pstn_access(s, p); break; case V8_NSF_TAG: p = process_non_standard_facilities(s, p); break; case V8_PCM_MODEM_AVAILABILITY_TAG: p = process_pcm_modem_availability(s, p); break; case V8_T66_TAG: p = process_t66(s, p); break; default: p++; break; } /* Skip any future extensions we do not understand */ while ((*p & 0x38) == 0x10) p++; } } /*- End of function --------------------------------------------------------*/ static void put_bit(void *user_data, int bit) { v8_state_t *s; int new_preamble_type; const char *tag; uint8_t data; s = user_data; if (bit < 0) { /* Special conditions */ switch (bit) { case SIG_STATUS_CARRIER_UP: case SIG_STATUS_CARRIER_DOWN: case SIG_STATUS_TRAINING_SUCCEEDED: case SIG_STATUS_TRAINING_FAILED: break; default: break; } return; } //span_log(&s->logging, SPAN_LOG_FLOW, "Bit %d\n", bit); /* Wait until we sync. */ s->bit_stream = (s->bit_stream >> 1) | (bit << 19); /* CI preamble is 10 ones then a framed 0x00 CM/JM preamble is 10 ones then a framed 0x07 V.92 preamble is 10 ones then a framed 0x55 Should we look at all 10 ones? The first couple might be settling down. */ /* The preamble + synchronisation bit sequence should be unique in any bit stream, so we can rely on seeing this at any time as being a real sync code. */ switch (s->bit_stream) { case 0x803FF: new_preamble_type = V8_SYNC_CI; break; case 0xF03FF: new_preamble_type = V8_SYNC_CM_JM; break; case 0xAABFF: new_preamble_type = V8_SYNC_V92; break; default: new_preamble_type = V8_SYNC_UNKNOWN; break; } if (new_preamble_type != V8_SYNC_UNKNOWN) { /* We have seen a fresh sync code */ /* Debug */ if (span_log_test(&s->logging, SPAN_LOG_FLOW)) { if (s->preamble_type != V8_SYNC_UNKNOWN) { switch (s->preamble_type) { case V8_SYNC_CI: tag = "CI: "; break; case V8_SYNC_CM_JM: tag = (s->calling_party) ? "JM: " : "CM: "; break; case V8_SYNC_V92: tag = "V92: "; break; default: tag = "??: "; break; } span_log_buf(&s->logging, SPAN_LOG_FLOW, tag, s->rx_data, s->rx_data_ptr); } } /* If we were handling a valid sync code then we should process what has been received to date. */ switch (s->preamble_type) { case V8_SYNC_CI: ci_decode(s); break; case V8_SYNC_CM_JM: cm_jm_decode(s); break; } s->preamble_type = new_preamble_type; s->bit_cnt = 0; s->rx_data_ptr = 0; } if (s->preamble_type != V8_SYNC_UNKNOWN) { /* Parse octets with 1 bit start, 1 bit stop */ s->bit_cnt++; /* Start, stop? */ if ((s->bit_stream & 0x80400) == 0x80000 && s->bit_cnt >= 10) { /* Store the available data */ data = (uint8_t) ((s->bit_stream >> 11) & 0xFF); /* CJ (3 successive zero octets) detection */ if (data == 0) { if (++s->zero_byte_count == 3) s->got_cj = TRUE; } else { s->zero_byte_count = 0; } if (s->rx_data_ptr < (int) (sizeof(s->rx_data) - 1)) s->rx_data[s->rx_data_ptr++] = data; s->bit_cnt = 0; } } } /*- End of function --------------------------------------------------------*/ static void v8_decode_init(v8_state_t *s) { fsk_rx_init(&s->v21rx, &preset_fsk_specs[(s->calling_party) ? FSK_V21CH2 : FSK_V21CH1], FSK_FRAME_MODE_ASYNC, put_bit, s); fsk_rx_signal_cutoff(&s->v21rx, -45.5f); s->preamble_type = V8_SYNC_UNKNOWN; s->bit_stream = 0; s->cm_jm_len = 0; s->got_cm_jm = FALSE; s->got_cj = FALSE; s->zero_byte_count = 0; s->rx_data_ptr = 0; } /*- End of function --------------------------------------------------------*/ static int get_bit(void *user_data) { v8_state_t *s; uint8_t bit; s = user_data; if (queue_read(s->tx_queue, &bit, 1) <= 0) return SIG_STATUS_END_OF_DATA; return bit; } /*- End of function --------------------------------------------------------*/ static void v8_put_preamble(v8_state_t *s) { static const uint8_t preamble[10] = { 1, 1, 1, 1, 1, 1, 1, 1, 1, 1 }; queue_write(s->tx_queue, preamble, 10); } /*- End of function --------------------------------------------------------*/ static void v8_put_byte(v8_state_t *s, int data) { int i; uint8_t bits[10]; /* Insert start & stop bits */ bits[0] = 0; for (i = 1; i < 9; i++) { bits[i] = (uint8_t) (data & 1); data >>= 1; } bits[9] = 1; queue_write(s->tx_queue, bits, 10); } /*- End of function --------------------------------------------------------*/ static void send_cm_jm(v8_state_t *s) { int val; unsigned int offered_modulations; int bytes; /* Send a CM, or a JM as appropriate */ v8_put_preamble(s); v8_put_byte(s, V8_CM_JM_SYNC_OCTET); /* Data call */ v8_put_byte(s, (s->result.call_function << 5) | V8_CALL_FUNCTION_TAG); /* Supported modulations */ offered_modulations = s->result.modulations; bytes = 0; val = 0x05; if (offered_modulations & V8_MOD_V90) val |= 0x20; if (offered_modulations & V8_MOD_V34) val |= 0x40; v8_put_byte(s, val); if (++bytes < s->modulation_bytes) { val = 0x10; if (offered_modulations & V8_MOD_V32) val |= 0x01; if (offered_modulations & V8_MOD_V22) val |= 0x02; if (offered_modulations & V8_MOD_V17) val |= 0x04; if (offered_modulations & V8_MOD_V29) val |= 0x40; if (offered_modulations & V8_MOD_V27TER) val |= 0x80; v8_put_byte(s, val); } if (++bytes < s->modulation_bytes) { val = 0x10; if (offered_modulations & V8_MOD_V26TER) val |= 0x01; if (offered_modulations & V8_MOD_V26BIS) val |= 0x02; if (offered_modulations & V8_MOD_V23) val |= 0x04; if (offered_modulations & V8_MOD_V23HDX) val |= 0x40; if (offered_modulations & V8_MOD_V21) val |= 0x80; v8_put_byte(s, val); } if (s->parms.protocol) v8_put_byte(s, (s->parms.protocol << 5) | V8_PROTOCOLS_TAG); if (s->parms.pstn_access) v8_put_byte(s, (s->parms.pstn_access << 5) | V8_PSTN_ACCESS_TAG); if (s->parms.pcm_modem_availability) v8_put_byte(s, (s->parms.pcm_modem_availability << 5) | V8_PCM_MODEM_AVAILABILITY_TAG); if (s->parms.t66 >= 0) v8_put_byte(s, (s->parms.t66 << 5) | V8_T66_TAG); /* No NSF */ //v8_put_byte(s, (0 << 5) | V8_NSF_TAG); } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE_NONSTD(int) v8_tx(v8_state_t *s, int16_t *amp, int max_len) { int len; //span_log(&s->logging, SPAN_LOG_FLOW, "v8_tx state %d\n", s->state); len = 0; if (s->modem_connect_tone_tx_on) { if (s->modem_connect_tone_tx_on > ms_to_samples(75)) { /* Send the ANSam tone */ len = modem_connect_tones_tx(&s->ansam_tx, amp, max_len); if (len < max_len) { span_log(&s->logging, SPAN_LOG_FLOW, "ANSam or ANSam/ ended\n"); s->modem_connect_tone_tx_on = ms_to_samples(75); } } else { /* Send the 75ms of silence after the ANSam tone */ if (max_len > s->modem_connect_tone_tx_on) len = s->modem_connect_tone_tx_on; else len = max_len; vec_zeroi16(amp, len); s->modem_connect_tone_tx_on -= len; } } if (s->fsk_tx_on && len < max_len) { max_len -= len; len = fsk_tx(&s->v21tx, amp + len, max_len); if (len < max_len) { span_log(&s->logging, SPAN_LOG_FLOW, "FSK ends\n"); s->fsk_tx_on = FALSE; } } return len; } /*- End of function --------------------------------------------------------*/ static void v8_send_ci(v8_state_t *s) { int i; /* Send 4 CI packets in a burst (the spec says at least 3) */ for (i = 0; i < 4; i++) { v8_put_preamble(s); v8_put_byte(s, V8_CI_SYNC_OCTET); v8_put_byte(s, (s->result.call_function << 5) | V8_CALL_FUNCTION_TAG); } } /*- End of function --------------------------------------------------------*/ static void handle_modem_connect_tone(v8_state_t *s, int tone) { s->result.modem_connect_tone = tone; span_log(&s->logging, SPAN_LOG_FLOW, "'%s' recognised\n", modem_connect_tone_to_str(tone)); if (tone == MODEM_CONNECT_TONES_ANSAM || tone == MODEM_CONNECT_TONES_ANSAM_PR) { /* Set the Te interval. The spec. says 500ms is the minimum, but gives reasons why 1 second is a better value (V.8/8.1.1). */ s->state = V8_HEARD_ANSAM; s->ci_timer = ms_to_samples(1000); } else { /* If we found a connect tone, and it isn't one of the modulated answer tones, indicating V.8 startup, we are not going to do V.8 processing. */ span_log(&s->logging, SPAN_LOG_FLOW, "Non-V.8 modem connect tone detected\n"); s->state = V8_PARKED; s->result.status = V8_STATUS_NON_V8_CALL; report_event(s); } } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE_NONSTD(int) v8_rx(v8_state_t *s, const int16_t *amp, int len) { int i; int residual_samples; int tone; //span_log(&s->logging, SPAN_LOG_FLOW, "v8_rx state %d\n", s->state); residual_samples = 0; switch (s->state) { case V8_WAIT_1S: residual_samples = modem_connect_tones_rx(&s->ansam_rx, amp, len); /* Wait 1 second before sending the first CI packet */ if ((s->negotiation_timer -= len) > 0) break; fsk_tx_restart(&s->v21tx, &preset_fsk_specs[FSK_V21CH1]); v8_send_ci(s); s->state = V8_CI_ON; s->fsk_tx_on = TRUE; break; case V8_CI_ON: residual_samples = modem_connect_tones_rx(&s->ansam_rx, amp, len); /* Check if an ANSam or ANSam/ tone has been detected */ if ((tone = modem_connect_tones_rx_get(&s->ansam_rx)) != MODEM_CONNECT_TONES_NONE) { handle_modem_connect_tone(s, tone); break; } if (!s->fsk_tx_on) { s->state = V8_CI_OFF; s->ci_timer = ms_to_samples(500); break; } break; case V8_CI_OFF: residual_samples = modem_connect_tones_rx(&s->ansam_rx, amp, len); /* Check if an ANSam or ANSam/ tone has been detected */ if ((tone = modem_connect_tones_rx_get(&s->ansam_rx)) != MODEM_CONNECT_TONES_NONE) { handle_modem_connect_tone(s, tone); break; } if ((s->ci_timer -= len) <= 0) { if (++s->ci_count >= 10) { /* The spec says we should give up now. */ span_log(&s->logging, SPAN_LOG_FLOW, "Timeout waiting for modem connect tone\n"); s->state = V8_PARKED; s->result.status = V8_STATUS_FAILED; report_event(s); } else { /* Try again */ fsk_tx_restart(&s->v21tx, &preset_fsk_specs[FSK_V21CH1]); v8_send_ci(s); s->state = V8_CI_ON; s->fsk_tx_on = TRUE; } } break; case V8_HEARD_ANSAM: /* We have heard the ANSam or ANSam/ signal, but we still need to wait for the end of the Te timeout period to comply with the spec. */ if ((s->ci_timer -= len) <= 0) { v8_decode_init(s); s->negotiation_timer = ms_to_samples(5000); fsk_tx_restart(&s->v21tx, &preset_fsk_specs[FSK_V21CH1]); send_cm_jm(s); s->state = V8_CM_ON; s->fsk_tx_on = TRUE; } break; case V8_CM_ON: residual_samples = fsk_rx(&s->v21rx, amp, len); if (s->got_cm_jm) { span_log(&s->logging, SPAN_LOG_FLOW, "JM recognised\n"); /* Now JM has been detected, we send CJ and wait for 75 ms before finishing the V.8 analysis. */ fsk_tx_restart(&s->v21tx, &preset_fsk_specs[FSK_V21CH1]); for (i = 0; i < 3; i++) v8_put_byte(s, 0); s->state = V8_CJ_ON; s->fsk_tx_on = TRUE; break; } if ((s->negotiation_timer -= len) <= 0) { /* Timeout */ span_log(&s->logging, SPAN_LOG_FLOW, "Timeout waiting for JM\n"); s->state = V8_PARKED; s->result.status = V8_STATUS_FAILED; report_event(s); } if (queue_contents(s->tx_queue) < 10) { /* Send CM again */ send_cm_jm(s); } break; case V8_CJ_ON: residual_samples = fsk_rx(&s->v21rx, amp, len); if (!s->fsk_tx_on) { #if 0 s->negotiation_timer = ms_to_samples(75); s->state = V8_SIGC; } break; case V8_SIGC: if ((s->negotiation_timer -= len) <= 0) { #endif /* The V.8 negotiation has succeeded. */ span_log(&s->logging, SPAN_LOG_FLOW, "Negotiation succeeded\n"); s->state = V8_PARKED; s->result.status = V8_STATUS_V8_CALL; report_event(s); } break; case V8_CM_WAIT: residual_samples = fsk_rx(&s->v21rx, amp, len); if (s->got_cm_jm) { span_log(&s->logging, SPAN_LOG_FLOW, "CM recognised\n"); s->result.status = V8_STATUS_V8_OFFERED; report_event(s); /* Stop sending ANSam or ANSam/ and send JM instead */ fsk_tx_init(&s->v21tx, &preset_fsk_specs[FSK_V21CH2], get_bit, s); /* Set the timeout for JM */ s->negotiation_timer = ms_to_samples(5000); s->state = V8_JM_ON; send_cm_jm(s); s->modem_connect_tone_tx_on = ms_to_samples(75); s->fsk_tx_on = TRUE; break; } if ((s->negotiation_timer -= len) <= 0) { /* Timeout */ span_log(&s->logging, SPAN_LOG_FLOW, "Timeout waiting for CM\n"); s->state = V8_PARKED; s->result.status = V8_STATUS_FAILED; report_event(s); } break; case V8_JM_ON: residual_samples = fsk_rx(&s->v21rx, amp, len); if (s->got_cj) { span_log(&s->logging, SPAN_LOG_FLOW, "CJ recognised\n"); /* Stop sending JM, flushing anything left in the buffer, and wait 75 ms */ queue_flush(s->tx_queue); s->negotiation_timer = ms_to_samples(75); s->state = V8_SIGA; break; } if ((s->negotiation_timer -= len) <= 0) { /* Timeout */ span_log(&s->logging, SPAN_LOG_FLOW, "Timeout waiting for CJ\n"); s->state = V8_PARKED; s->result.status = V8_STATUS_FAILED; report_event(s); break; } if (queue_contents(s->tx_queue) < 10) { /* Send JM */ send_cm_jm(s); } break; case V8_SIGA: if (!s->fsk_tx_on) //if ((s->negotiation_timer -= len) <= 0) { /* The V.8 negotiation has succeeded. */ span_log(&s->logging, SPAN_LOG_FLOW, "Negotiation succeeded\n"); s->state = V8_PARKED; s->result.status = V8_STATUS_V8_CALL; report_event(s); } break; case V8_PARKED: residual_samples = len; break; } return residual_samples; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(logging_state_t *) v8_get_logging_state(v8_state_t *s) { return &s->logging; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) v8_restart(v8_state_t *s, int calling_party, v8_parms_t *parms) { memcpy(&s->parms, parms, sizeof(s->parms)); memset(&s->result, 0, sizeof(s->result)); s->result.status = V8_STATUS_IN_PROGRESS; s->result.modem_connect_tone = MODEM_CONNECT_TONES_NONE; s->result.modulations = s->parms.modulations; s->result.call_function = s->parms.call_function; s->result.nsf = -1; s->result.t66 = -1; s->modulation_bytes = 3; s->ci_timer = 0; if (calling_party) { s->calling_party = TRUE; s->state = V8_WAIT_1S; s->negotiation_timer = ms_to_samples(1000); s->ci_count = 0; modem_connect_tones_rx_init(&s->ansam_rx, MODEM_CONNECT_TONES_ANS_PR, NULL, NULL); fsk_tx_init(&s->v21tx, &preset_fsk_specs[FSK_V21CH1], get_bit, s); } else { /* Send the ANSam or ANSam/ tone */ s->calling_party = FALSE; modem_connect_tones_tx_init(&s->ansam_tx, s->parms.modem_connect_tone); v8_decode_init(s); s->state = V8_CM_WAIT; s->negotiation_timer = ms_to_samples(200 + 5000); s->modem_connect_tone_tx_on = ms_to_samples(75) + 1; } if ((s->tx_queue = queue_init(NULL, 1024, 0)) == NULL) return -1; return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(v8_state_t *) v8_init(v8_state_t *s, int calling_party, v8_parms_t *parms, v8_result_handler_t *result_handler, void *user_data) { if (s == NULL) { if ((s = (v8_state_t *) malloc(sizeof(*s))) == NULL) return NULL; } memset(s, 0, sizeof(*s)); span_log_init(&s->logging, SPAN_LOG_NONE, NULL); span_log_set_protocol(&s->logging, "V.8"); s->result_handler = result_handler; s->result_handler_user_data = user_data; v8_restart(s, calling_party, parms); return s; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) v8_release(v8_state_t *s) { return queue_free(s->tx_queue); } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) v8_free(v8_state_t *s) { int ret; ret = queue_free(s->tx_queue); free(s); return ret; } /*- End of function --------------------------------------------------------*/ /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/spandsp/0000775000175000017500000000000011516506111015033 5ustar steveusteveuspandsp-0.0.6/src/spandsp/plc.h0000664000175000017500000001720211422612264015767 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * plc.h * * Written by Steve Underwood * * Copyright (C) 2004 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \file */ #if !defined(_SPANDSP_PLC_H_) #define _SPANDSP_PLC_H_ /*! \page plc_page Packet loss concealment \section plc_page_sec_1 What does it do? The packet loss concealment module provides a synthetic fill-in signal, to minimise the audible effect of lost packets in VoIP applications. It is not tied to any particular codec, and could be used with almost any codec which does not specify its own procedure for packet loss concealment. Where a codec specific concealment procedure exists, that algorithm is usually built around knowledge of the characteristics of the particular codec. It will, therefore, generally give better results for that particular codec than this generic concealer will. The PLC code implements an algorithm similar to the one described in Appendix 1 of G.711. However, the G.711 algorithm is optimised for 10ms packets. Few people use such small packets. 20ms is a much more common value, and longer packets are also quite common. The algorithm has been adjusted with this in mind. Also, the G.711 approach causes an algorithmic delay, and requires significant buffer manipulation when there is no packet loss. The algorithm used here avoids this. It causes no delay, and achieves comparable quality with normal speech. Note that both this algorithm, and the one in G.711 are optimised for speech. For most kinds of music a much slower decay on bursts of lost packets give better results. \section plc_page_sec_2 How does it work? While good packets are being received, the plc_rx() routine keeps a record of the trailing section of the known speech signal. If a packet is missed, plc_fillin() is called to produce a synthetic replacement for the real speech signal. The average mean difference function (AMDF) is applied to the last known good signal, to determine its effective pitch. Based on this, the last pitch period of signal is saved. Essentially, this cycle of speech will be repeated over and over until the real speech resumes. However, several refinements are needed to obtain smooth pleasant sounding results. - The two ends of the stored cycle of speech will not always fit together smoothly. This can cause roughness, or even clicks, at the joins between cycles. To soften this, the 1/4 pitch period of real speech preceeding the cycle to be repeated is blended with the last 1/4 pitch period of the cycle to be repeated, using an overlap-add (OLA) technique (i.e. in total, the last 5/4 pitch periods of real speech are used). - The start of the synthetic speech will not always fit together smoothly with the tail of real speech passed on before the erasure was identified. Ideally, we would like to modify the last 1/4 pitch period of the real speech, to blend it into the synthetic speech. However, it is too late for that. We could have delayed the real speech a little, but that would require more buffer manipulation, and hurt the efficiency of the no-lost-packets case (which we hope is the dominant case). Instead we use a degenerate form of OLA to modify the start of the synthetic data. The last 1/4 pitch period of real speech is time reversed, and OLA is used to blend it with the first 1/4 pitch period of synthetic speech. The result seems quite acceptable. - As we progress into the erasure, the chances of the synthetic signal being anything like correct steadily fall. Therefore, the volume of the synthesized signal is made to decay linearly, such that after 50ms of missing audio it is reduced to silence. - When real speech resumes, an extra 1/4 pitch period of synthetic speech is blended with the start of the real speech. If the erasure is small, this smoothes the transition. If the erasure is long, and the synthetic signal has faded to zero, the blending softens the start up of the real signal, avoiding a kind of "click" or "pop" effect that might occur with a sudden onset. \section plc_page_sec_3 How do I use it? Before audio is processed, call plc_init() to create an instance of the packet loss concealer. For each received audio packet that is acceptable (i.e. not including those being dropped for being too late) call plc_rx() to record the content of the packet. Note this may modify the packet a little after a period of packet loss, to blend real synthetic data smoothly. When a real packet is not available in time, call plc_fillin() to create a sythetic substitute. That's it! */ /*! Minimum allowed pitch (66 Hz) */ #define PLC_PITCH_MIN 120 /*! Maximum allowed pitch (200 Hz) */ #define PLC_PITCH_MAX 40 /*! Maximum pitch OLA window */ #define PLC_PITCH_OVERLAP_MAX (PLC_PITCH_MIN >> 2) /*! The length over which the AMDF function looks for similarity (20 ms) */ #define CORRELATION_SPAN 160 /*! History buffer length. The buffer much also be at leat 1.25 times PLC_PITCH_MIN, but that is much smaller than the buffer needs to be for the pitch assessment. */ #define PLC_HISTORY_LEN (CORRELATION_SPAN + PLC_PITCH_MIN) /*! The generic packet loss concealer context. */ typedef struct { /*! Consecutive erased samples */ int missing_samples; /*! Current offset into pitch period */ int pitch_offset; /*! Pitch estimate */ int pitch; /*! Buffer for a cycle of speech */ float pitchbuf[PLC_PITCH_MIN]; /*! History buffer */ int16_t history[PLC_HISTORY_LEN]; /*! Current pointer into the history buffer */ int buf_ptr; } plc_state_t; #if defined(__cplusplus) extern "C" { #endif /*! Process a block of received audio samples for PLC. \brief Process a block of received audio samples for PLC. \param s The packet loss concealer context. \param amp The audio sample buffer. \param len The number of samples in the buffer. \return The number of samples in the buffer. */ SPAN_DECLARE(int) plc_rx(plc_state_t *s, int16_t amp[], int len); /*! Fill-in a block of missing audio samples. \brief Fill-in a block of missing audio samples. \param s The packet loss concealer context. \param amp The audio sample buffer. \param len The number of samples to be synthesised. \return The number of samples synthesized. */ SPAN_DECLARE(int) plc_fillin(plc_state_t *s, int16_t amp[], int len); /*! Initialise a packet loss concealer context. \brief Initialise a PLC context. \param s The packet loss concealer context. \return A pointer to the the packet loss concealer context. */ SPAN_DECLARE(plc_state_t *) plc_init(plc_state_t *s); /*! Release a packet loss concealer context. \param s The packet loss concealer context. \return 0 for OK. */ SPAN_DECLARE(int) plc_release(plc_state_t *s); /*! Free a packet loss concealer context. \param s The packet loss concealer context. \return 0 for OK. */ SPAN_DECLARE(int) plc_free(plc_state_t *s); #if defined(__cplusplus) } #endif #endif /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/spandsp/v42bis.h0000664000175000017500000001216011422612265016321 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * v42bis.h * * Written by Steve Underwood * * Copyright (C) 2005 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \page v42bis_page V.42bis modem data compression \section v42bis_page_sec_1 What does it do? The v.42bis specification defines a data compression scheme, to work in conjunction with the error correction scheme defined in V.42. \section v42bis_page_sec_2 How does it work? */ #if !defined(_SPANDSP_V42BIS_H_) #define _SPANDSP_V42BIS_H_ #define V42BIS_MIN_STRING_SIZE 6 #define V42BIS_MAX_STRING_SIZE 250 #define V42BIS_MIN_DICTIONARY_SIZE 512 #define V42BIS_MAX_BITS 12 #define V42BIS_MAX_CODEWORDS 4096 /* 2^V42BIS_MAX_BITS */ #define V42BIS_TABLE_SIZE 5021 /* This should be a prime >(2^V42BIS_MAX_BITS) */ enum { V42BIS_P0_NEITHER_DIRECTION = 0, V42BIS_P0_INITIATOR_RESPONDER, V42BIS_P0_RESPONDER_INITIATOR, V42BIS_P0_BOTH_DIRECTIONS }; enum { V42BIS_COMPRESSION_MODE_DYNAMIC = 0, V42BIS_COMPRESSION_MODE_ALWAYS, V42BIS_COMPRESSION_MODE_NEVER }; typedef void (*v42bis_frame_handler_t)(void *user_data, const uint8_t *pkt, int len); typedef void (*v42bis_data_handler_t)(void *user_data, const uint8_t *buf, int len); /*! V.42bis compression/decompression descriptor. This defines the working state for a single instance of V.42bis compress/decompression. */ typedef struct v42bis_state_s v42bis_state_t; #if defined(__cplusplus) extern "C" { #endif /*! Compress a block of octets. \param s The V.42bis context. \param buf The data to be compressed. \param len The length of the data buffer. \return 0 */ SPAN_DECLARE(int) v42bis_compress(v42bis_state_t *s, const uint8_t *buf, int len); /*! Flush out any data remaining in a compression buffer. \param s The V.42bis context. \return 0 */ SPAN_DECLARE(int) v42bis_compress_flush(v42bis_state_t *s); /*! Decompress a block of octets. \param s The V.42bis context. \param buf The data to be decompressed. \param len The length of the data buffer. \return 0 */ SPAN_DECLARE(int) v42bis_decompress(v42bis_state_t *s, const uint8_t *buf, int len); /*! Flush out any data remaining in the decompression buffer. \param s The V.42bis context. \return 0 */ SPAN_DECLARE(int) v42bis_decompress_flush(v42bis_state_t *s); /*! Set the compression mode. \param s The V.42bis context. \param mode One of the V.42bis compression modes - V42BIS_COMPRESSION_MODE_DYNAMIC, V42BIS_COMPRESSION_MODE_ALWAYS, V42BIS_COMPRESSION_MODE_NEVER */ SPAN_DECLARE(void) v42bis_compression_control(v42bis_state_t *s, int mode); /*! Initialise a V.42bis context. \param s The V.42bis context. \param negotiated_p0 The negotiated P0 parameter, from the V.42bis spec. \param negotiated_p1 The negotiated P1 parameter, from the V.42bis spec. \param negotiated_p2 The negotiated P2 parameter, from the V.42bis spec. \param frame_handler Frame callback handler. \param frame_user_data An opaque pointer passed to the frame callback handler. \param max_frame_len The maximum length that should be passed to the frame handler. \param data_handler data callback handler. \param data_user_data An opaque pointer passed to the data callback handler. \param max_data_len The maximum length that should be passed to the data handler. \return The V.42bis context. */ SPAN_DECLARE(v42bis_state_t *) v42bis_init(v42bis_state_t *s, int negotiated_p0, int negotiated_p1, int negotiated_p2, v42bis_frame_handler_t frame_handler, void *frame_user_data, int max_frame_len, v42bis_data_handler_t data_handler, void *data_user_data, int max_data_len); /*! Release a V.42bis context. \param s The V.42bis context. \return 0 if OK */ SPAN_DECLARE(int) v42bis_release(v42bis_state_t *s); /*! Free a V.42bis context. \param s The V.42bis context. \return 0 if OK */ SPAN_DECLARE(int) v42bis_free(v42bis_state_t *s); #if defined(__cplusplus) } #endif #endif /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/spandsp/echo.h0000664000175000017500000002055611422612264016135 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * echo.h - An echo cancellor, suitable for electrical and acoustic * cancellation. This code does not currently comply with * any relevant standards (e.g. G.164/5/7/8). * * Written by Steve Underwood * * Copyright (C) 2001 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \file */ #if !defined(_SPANDSP_ECHO_H_) #define _SPANDSP_ECHO_H_ /*! \page echo_can_page Line echo cancellation for voice \section echo_can_page_sec_1 What does it do? This module aims to provide G.168-2002 compliant echo cancellation, to remove electrical echoes (e.g. from 2-4 wire hybrids) from voice calls. \section echo_can_page_sec_2 How does it work? The heart of the echo cancellor is FIR filter. This is adapted to match the echo impulse response of the telephone line. It must be long enough to adequately cover the duration of that impulse response. The signal transmitted to the telephone line is passed through the FIR filter. Once the FIR is properly adapted, the resulting output is an estimate of the echo signal received from the line. This is subtracted from the received signal. The result is an estimate of the signal which originated at the far end of the line, free from echos of our own transmitted signal. The least mean squares (LMS) algorithm is attributed to Widrow and Hoff, and was introduced in 1960. It is the commonest form of filter adaption used in things like modem line equalisers and line echo cancellers. There it works very well. However, it only works well for signals of constant amplitude. It works very poorly for things like speech echo cancellation, where the signal level varies widely. This is quite easy to fix. If the signal level is normalised - similar to applying AGC - LMS can work as well for a signal of varying amplitude as it does for a modem signal. This normalised least mean squares (NLMS) algorithm is the commonest one used for speech echo cancellation. Many other algorithms exist - e.g. RLS (essentially the same as Kalman filtering), FAP, etc. Some perform significantly better than NLMS. However, factors such as computational complexity and patents favour the use of NLMS. A simple refinement to NLMS can improve its performance with speech. NLMS tends to adapt best to the strongest parts of a signal. If the signal is white noise, the NLMS algorithm works very well. However, speech has more low frequency than high frequency content. Pre-whitening (i.e. filtering the signal to flatten its spectrum) the echo signal improves the adapt rate for speech, and ensures the final residual signal is not heavily biased towards high frequencies. A very low complexity filter is adequate for this, so pre-whitening adds little to the compute requirements of the echo canceller. An FIR filter adapted using pre-whitened NLMS performs well, provided certain conditions are met: - The transmitted signal has poor self-correlation. - There is no signal being generated within the environment being cancelled. The difficulty is that neither of these can be guaranteed. If the adaption is performed while transmitting noise (or something fairly noise like, such as voice) the adaption works very well. If the adaption is performed while transmitting something highly correlative (typically narrow band energy such as signalling tones or DTMF), the adaption can go seriously wrong. The reason is there is only one solution for the adaption on a near random signal - the impulse response of the line. For a repetitive signal, there are any number of solutions which converge the adaption, and nothing guides the adaption to choose the generalised one. Allowing an untrained canceller to converge on this kind of narrowband energy probably a good thing, since at least it cancels the tones. Allowing a well converged canceller to continue converging on such energy is just a way to ruin its generalised adaption. A narrowband detector is needed, so adapation can be suspended at appropriate times. The adaption process is based on trying to eliminate the received signal. When there is any signal from within the environment being cancelled it may upset the adaption process. Similarly, if the signal we are transmitting is small, noise may dominate and disturb the adaption process. If we can ensure that the adaption is only performed when we are transmitting a significant signal level, and the environment is not, things will be OK. Clearly, it is easy to tell when we are sending a significant signal. Telling, if the environment is generating a significant signal, and doing it with sufficient speed that the adaption will not have diverged too much more we stop it, is a little harder. The key problem in detecting when the environment is sourcing significant energy is that we must do this very quickly. Given a reasonably long sample of the received signal, there are a number of strategies which may be used to assess whether that signal contains a strong far end component. However, by the time that assessment is complete the far end signal will have already caused major mis-convergence in the adaption process. An assessment algorithm is needed which produces a fairly accurate result from a very short burst of far end energy. \section echo_can_page_sec_3 How do I use it? The echo cancellor processes both the transmit and receive streams sample by sample. The processing function is not declared inline. Unfortunately, cancellation requires many operations per sample, so the call overhead is only a minor burden. */ #include "fir.h" /* Mask bits for the adaption mode */ enum { ECHO_CAN_USE_ADAPTION = 0x01, ECHO_CAN_USE_NLP = 0x02, ECHO_CAN_USE_CNG = 0x04, ECHO_CAN_USE_CLIP = 0x08, ECHO_CAN_USE_SUPPRESSOR = 0x10, ECHO_CAN_USE_TX_HPF = 0x20, ECHO_CAN_USE_RX_HPF = 0x40, ECHO_CAN_DISABLE = 0x80 }; /*! G.168 echo canceller descriptor. This defines the working state for a line echo canceller. */ typedef struct echo_can_state_s echo_can_state_t; #if defined(__cplusplus) extern "C" { #endif /*! Create a voice echo canceller context. \param len The length of the canceller, in samples. \return The new canceller context, or NULL if the canceller could not be created. */ SPAN_DECLARE(echo_can_state_t *) echo_can_init(int len, int adaption_mode); /*! Release a voice echo canceller context. \param ec The echo canceller context. \return 0 for OK, else -1. */ SPAN_DECLARE(int) echo_can_release(echo_can_state_t *ec); /*! Free a voice echo canceller context. \param ec The echo canceller context. \return 0 for OK, else -1. */ SPAN_DECLARE(int) echo_can_free(echo_can_state_t *ec); /*! Flush (reinitialise) a voice echo canceller context. \param ec The echo canceller context. */ SPAN_DECLARE(void) echo_can_flush(echo_can_state_t *ec); /*! Set the adaption mode of a voice echo canceller context. \param ec The echo canceller context. \param adaption_mode The mode. */ SPAN_DECLARE(void) echo_can_adaption_mode(echo_can_state_t *ec, int adaption_mode); /*! Process a sample through a voice echo canceller. \param ec The echo canceller context. \param tx The transmitted audio sample. \param rx The received audio sample. \return The clean (echo cancelled) received sample. */ SPAN_DECLARE(int16_t) echo_can_update(echo_can_state_t *ec, int16_t tx, int16_t rx); /*! Process to high pass filter the tx signal. \param ec The echo canceller context. \param tx The transmitted auio sample. \return The HP filtered transmit sample, send this to your D/A. */ SPAN_DECLARE(int16_t) echo_can_hpf_tx(echo_can_state_t *ec, int16_t tx); SPAN_DECLARE(void) echo_can_snapshot(echo_can_state_t *ec); #if defined(__cplusplus) } #endif #endif /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/spandsp/gsm0610.h0000664000175000017500000001336011422612264016307 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * gsm0610.h - GSM 06.10 full rate speech codec. * * Written by Steve Underwood * * Copyright (C) 2006 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #if !defined(_SPANDSP_GSM0610_H_) #define _SPANDSP_GSM0610_H_ /*! \page gsm0610_page GSM 06.10 encoding and decoding \section gsm0610_page_sec_1 What does it do? The GSM 06.10 module is an version of the widely used GSM FR codec software available from http://kbs.cs.tu-berlin.de/~jutta/toast.html. This version was produced since some versions of this codec are not bit exact, or not very efficient on modern processors. This implementation can use MMX instructions on Pentium class processors, or alternative methods on other processors. It passes all the ETSI test vectors. That is, it is a tested bit exact implementation. This implementation supports encoded data in one of three packing formats: - Unpacked, with the 76 parameters of a GSM 06.10 code frame each occupying a separate byte. (note that none of the parameters exceed 8 bits). - Packed the the 33 byte per frame, used for VoIP, where 4 bits per frame are wasted. - Packed in WAV49 format, where 2 frames are packed into 65 bytes. \section gsm0610_page_sec_2 How does it work? ???. */ enum { GSM0610_PACKING_NONE, GSM0610_PACKING_WAV49, GSM0610_PACKING_VOIP }; /*! GSM 06.10 FR codec unpacked frame. */ typedef struct { int16_t LARc[8]; int16_t Nc[4]; int16_t bc[4]; int16_t Mc[4]; int16_t xmaxc[4]; int16_t xMc[4][13]; } gsm0610_frame_t; /*! GSM 06.10 FR codec state descriptor. This defines the state of a single working instance of the GSM 06.10 FR encoder or decoder. */ typedef struct gsm0610_state_s gsm0610_state_t; #if defined(__cplusplus) extern "C" { #endif /*! Initialise a GSM 06.10 encode or decode context. \param s The GSM 06.10 context \param packing One of the GSM0610_PACKING_xxx options. \return A pointer to the GSM 06.10 context, or NULL for error. */ SPAN_DECLARE(gsm0610_state_t *) gsm0610_init(gsm0610_state_t *s, int packing); /*! Release a GSM 06.10 encode or decode context. \param s The GSM 06.10 context \return 0 for success, else -1. */ SPAN_DECLARE(int) gsm0610_release(gsm0610_state_t *s); /*! Free a GSM 06.10 encode or decode context. \param s The GSM 06.10 context \return 0 for success, else -1. */ SPAN_DECLARE(int) gsm0610_free(gsm0610_state_t *s); /*! Set the packing format for a GSM 06.10 encode or decode context. \param s The GSM 06.10 context \param packing One of the GSM0610_PACKING_xxx options. \return 0 for success, else -1. */ SPAN_DECLARE(int) gsm0610_set_packing(gsm0610_state_t *s, int packing); /*! Encode a buffer of linear PCM data to GSM 06.10. \param s The GSM 06.10 context. \param code The GSM 06.10 data produced. \param amp The audio sample buffer. \param len The number of samples in the buffer. \return The number of bytes of GSM 06.10 data produced. */ SPAN_DECLARE(int) gsm0610_encode(gsm0610_state_t *s, uint8_t code[], const int16_t amp[], int len); /*! Decode a buffer of GSM 06.10 data to linear PCM. \param s The GSM 06.10 context. \param amp The audio sample buffer. \param code The GSM 06.10 data. \param len The number of bytes of GSM 06.10 data to be decoded. \return The number of samples returned. */ SPAN_DECLARE(int) gsm0610_decode(gsm0610_state_t *s, int16_t amp[], const uint8_t code[], int len); SPAN_DECLARE(int) gsm0610_pack_none(uint8_t c[], const gsm0610_frame_t *s); /*! Pack a pair of GSM 06.10 frames in the format used for wave files (wave type 49). \param c The buffer for the packed data. This must be at least 65 bytes long. \param s A pointer to the frames to be packed. \return The number of bytes generated. */ SPAN_DECLARE(int) gsm0610_pack_wav49(uint8_t c[], const gsm0610_frame_t *s); /*! Pack a GSM 06.10 frames in the format used for VoIP. \param c The buffer for the packed data. This must be at least 33 bytes long. \param s A pointer to the frame to be packed. \return The number of bytes generated. */ SPAN_DECLARE(int) gsm0610_pack_voip(uint8_t c[], const gsm0610_frame_t *s); SPAN_DECLARE(int) gsm0610_unpack_none(gsm0610_frame_t *s, const uint8_t c[]); /*! Unpack a pair of GSM 06.10 frames from the format used for wave files (wave type 49). \param s A pointer to a buffer into which the frames will be packed. \param c The buffer containing the data to be unpacked. This must be at least 65 bytes long. \return The number of bytes absorbed. */ SPAN_DECLARE(int) gsm0610_unpack_wav49(gsm0610_frame_t *s, const uint8_t c[]); /*! Unpack a GSM 06.10 frame from the format used for VoIP. \param s A pointer to a buffer into which the frame will be packed. \param c The buffer containing the data to be unpacked. This must be at least 33 bytes long. \return The number of bytes absorbed. */ SPAN_DECLARE(int) gsm0610_unpack_voip(gsm0610_frame_t *s, const uint8_t c[]); #if defined(__cplusplus) } #endif #endif /*- End of include ---------------------------------------------------------*/ spandsp-0.0.6/src/spandsp/vector_int.h0000664000175000017500000001223311422612265017365 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * vector_int.h * * Written by Steve Underwood * * Copyright (C) 2003 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #if !defined(_SPANDSP_VECTOR_INT_H_) #define _SPANDSP_VECTOR_INT_H_ #if defined(__cplusplus) extern "C" { #endif static __inline__ void vec_copyi(int z[], const int x[], int n) { memcpy(z, x, n*sizeof(z[0])); } /*- End of function --------------------------------------------------------*/ static __inline__ void vec_copyi16(int16_t z[], const int16_t x[], int n) { memcpy(z, x, n*sizeof(z[0])); } /*- End of function --------------------------------------------------------*/ static __inline__ void vec_copyi32(int32_t z[], const int32_t x[], int n) { memcpy(z, x, n*sizeof(z[0])); } /*- End of function --------------------------------------------------------*/ static __inline__ void vec_zeroi(int z[], int n) { memset(z, 0, n*sizeof(z[0])); } /*- End of function --------------------------------------------------------*/ static __inline__ void vec_zeroi16(int16_t z[], int n) { memset(z, 0, n*sizeof(z[0])); } /*- End of function --------------------------------------------------------*/ static __inline__ void vec_zeroi32(int32_t z[], int n) { memset(z, 0, n*sizeof(z[0])); } /*- End of function --------------------------------------------------------*/ static __inline__ void vec_seti(int z[], int x, int n) { int i; for (i = 0; i < n; i++) z[i] = x; } /*- End of function --------------------------------------------------------*/ static __inline__ void vec_seti16(int16_t z[], int16_t x, int n) { int i; for (i = 0; i < n; i++) z[i] = x; } /*- End of function --------------------------------------------------------*/ static __inline__ void vec_seti32(int32_t z[], int32_t x, int n) { int i; for (i = 0; i < n; i++) z[i] = x; } /*- End of function --------------------------------------------------------*/ /*! \brief Find the dot product of two int16_t vectors. \param x The first vector. \param y The first vector. \param n The number of elements in the vectors. \return The dot product of the two vectors. */ SPAN_DECLARE(int32_t) vec_dot_prodi16(const int16_t x[], const int16_t y[], int n); /*! \brief Find the dot product of two int16_t vectors, where the first is a circular buffer with an offset for the starting position. \param x The first vector. \param y The first vector. \param n The number of elements in the vectors. \param pos The starting position in the x vector. \return The dot product of the two vectors. */ SPAN_DECLARE(int32_t) vec_circular_dot_prodi16(const int16_t x[], const int16_t y[], int n, int pos); SPAN_DECLARE(void) vec_lmsi16(const int16_t x[], int16_t y[], int n, int16_t error); SPAN_DECLARE(void) vec_circular_lmsi16(const int16_t x[], int16_t y[], int n, int pos, int16_t error); /*! \brief Find the minimum and maximum values in an int16_t vector. \param x The vector to be searched. \param n The number of elements in the vector. \param out A two element vector. The first will receive the maximum. The second will receive the minimum. This parameter may be set to NULL. \return The absolute maximum value. Since the range of negative numbers exceeds the range of positive one, the returned integer is longer than the ones being searched. */ SPAN_DECLARE(int32_t) vec_min_maxi16(const int16_t x[], int n, int16_t out[]); static __inline__ int vec_norm2i16(const int16_t *vec, int len) { int i; int sum; sum = 0; for (i = 0; i < len; i++) sum += vec[i]*vec[i]; return sum; } /*- End of function --------------------------------------------------------*/ static __inline__ void vec_sari16(int16_t *vec, int len, int shift) { int i; for (i = 0; i < len; i++) vec[i] >>= shift; } /*- End of function --------------------------------------------------------*/ static __inline__ int vec_max_bitsi16(const int16_t *vec, int len) { int i; int max; int v; int b; max = 0; for (i = 0; i < len; i++) { v = abs(vec[i]); if (v > max) max = v; } b = 0; while (max != 0) { b++; max >>= 1; } return b; } /*- End of function --------------------------------------------------------*/ #if defined(__cplusplus) } #endif #endif /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/spandsp/saturated.h0000664000175000017500000002145711422612264017214 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * saturated.h - General saturated arithmetic routines. * * Written by Steve Underwood * * Copyright (C) 2001, 2008 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \file */ #if !defined(_SPANDSP_SATURATED_H_) #define _SPANDSP_SATURATED_H_ /*! \page saturated_page Saturated arithmetic \section saturated_page_sec_1 What does it do? \section saturated_page_sec_2 How does it work? */ #if defined(__cplusplus) extern "C" { #endif /* This is the same as saturate16(), but is here for historic reasons */ static __inline__ int16_t saturate(int32_t amp) { int16_t amp16; /* Hopefully this is optimised for the common case - not clipping */ amp16 = (int16_t) amp; if (amp == amp16) return amp16; if (amp > INT16_MAX) return INT16_MAX; return INT16_MIN; } /*- End of function --------------------------------------------------------*/ static __inline__ int16_t saturate16(int32_t amp) { int16_t amp16; /* Hopefully this is optimised for the common case - not clipping */ amp16 = (int16_t) amp; if (amp == amp16) return amp16; if (amp > INT16_MAX) return INT16_MAX; return INT16_MIN; } /*- End of function --------------------------------------------------------*/ /*! Saturate to 15 bits, rather than the usual 16 bits. This is often a useful function. */ static __inline__ int16_t saturate15(int32_t amp) { if (amp > 16383) return 16383; if (amp < -16384) return -16384; return (int16_t) amp; } /*- End of function --------------------------------------------------------*/ static __inline__ uint16_t saturateu16(int32_t amp) { uint16_t amp16; /* Hopefully this is optimised for the common case - not clipping */ amp16 = (uint16_t) amp; if (amp == amp16) return amp16; if (amp > UINT16_MAX) return UINT16_MAX; return 0; } /*- End of function --------------------------------------------------------*/ static __inline__ uint8_t saturateu8(int32_t amp) { uint8_t amp8; /* Hopefully this is optimised for the common case - not clipping */ amp8 = (uint8_t) amp; if (amp == amp8) return amp8; if (amp > UINT8_MAX) return UINT8_MAX; return 0; } /*- End of function --------------------------------------------------------*/ static __inline__ int16_t fsaturatef(float famp) { if (famp > (float) INT16_MAX) return INT16_MAX; if (famp < (float) INT16_MIN) return INT16_MIN; return (int16_t) lrintf(famp); } /*- End of function --------------------------------------------------------*/ static __inline__ int16_t fsaturate(double damp) { if (damp > (double) INT16_MAX) return INT16_MAX; if (damp < (double) INT16_MIN) return INT16_MIN; return (int16_t) lrint(damp); } /*- End of function --------------------------------------------------------*/ /* Saturate to a 16 bit integer, using the fastest float to int conversion */ static __inline__ int16_t ffastsaturatef(float famp) { if (famp > (float) INT16_MAX) return INT16_MAX; if (famp < (float) INT16_MIN) return INT16_MIN; return (int16_t) lfastrintf(famp); } /*- End of function --------------------------------------------------------*/ /* Saturate to a 16 bit integer, using the fastest double to int conversion */ static __inline__ int16_t ffastsaturate(double damp) { if (damp > (double) INT16_MAX) return INT16_MAX; if (damp < (double) INT16_MIN) return INT16_MIN; return (int16_t) lfastrint(damp); } /*- End of function --------------------------------------------------------*/ /* Saturate to a 16 bit integer, using the closest float to int conversion */ static __inline__ float ffsaturatef(float famp) { if (famp > (float) INT16_MAX) return (float) INT16_MAX; if (famp < (float) INT16_MIN) return (float) INT16_MIN; return famp; } /*- End of function --------------------------------------------------------*/ /* Saturate to a 16 bit integer, using the closest double to int conversion */ static __inline__ double ffsaturate(double famp) { if (famp > (double) INT16_MAX) return (double) INT16_MAX; if (famp < (double) INT16_MIN) return (double) INT16_MIN; return famp; } /*- End of function --------------------------------------------------------*/ static __inline__ int16_t saturated_add16(int16_t a, int16_t b) { #if defined(__GNUC__) && (defined(__i386__) || defined(__x86_64__)) __asm__ __volatile__( " addw %2,%0;\n" " jno 0f;\n" " movw $0x7fff,%0;\n" " adcw $0,%0;\n" "0:" : "=r" (a) : "0" (a), "ir" (b) : "cc" ); return a; #elif defined(__GNUC__) && defined(__arm5__) int16_t result; __asm__ __volatile__( " sadd16 %0,%1,%2;\n" : "=r" (result) : "0" (a), "ir" (b) ); return result; #else return saturate((int32_t) a + (int32_t) b); #endif } /*- End of function --------------------------------------------------------*/ static __inline__ int32_t saturated_add32(int32_t a, int32_t b) { #if defined(__GNUC__) && (defined(__i386__) || defined(__x86_64__)) __asm__ __volatile__( " addl %2,%0;\n" " jno 0f;\n" " movl $0x7fffffff,%0;\n" " adcl $0,%0;\n" "0:" : "=r" (a) : "0" (a), "ir" (b) : "cc" ); return a; #elif defined(__GNUC__) && defined(__arm5__) int32_t result; __asm__ __volatile__( " qadd %0,%1,%2;\n" : "=r" (result) : "0" (a), "ir" (b) ); return result; #else int32_t sum; sum = a + b; if ((a ^ b) >= 0) { if ((sum ^ a) < 0) sum = (a < 0) ? INT32_MIN : INT32_MAX; } return sum; #endif } /*- End of function --------------------------------------------------------*/ static __inline__ int16_t saturated_sub16(int16_t a, int16_t b) { #if defined(__GNUC__) && (defined(__i386__) || defined(__x86_64__)) __asm__ __volatile__( " subw %2,%0;\n" " jno 0f;\n" " movw $0x8000,%0;\n" " sbbw $0,%0;\n" "0:" : "=r" (a) : "0" (a), "ir" (b) : "cc" ); return a; #elif defined(__GNUC__) && defined(__arm5__) int16_t result; __asm__ __volatile__( " ssub16 %0,%1,%2;\n" : "=r" (result) : "0" (a), "ir" (b) ); return result; #else return saturate((int32_t) a - (int32_t) b); #endif } /*- End of function --------------------------------------------------------*/ static __inline__ int32_t saturated_sub32(int32_t a, int32_t b) { #if defined(__GNUC__) && (defined(__i386__) || defined(__x86_64__)) __asm__ __volatile__( " subl %2,%0;\n" " jno 0f;\n" " movl $0x80000000,%0;\n" " sbbl $0,%0;\n" "0:" : "=r" (a) : "0" (a), "ir" (b) : "cc" ); return a; #elif defined(__GNUC__) && defined(__arm5__) int32_t result; __asm__ __volatile__( " qsub %0,%1,%2;\n" : "=r" (result) : "0" (a), "ir" (b) ); return result; #else int32_t diff; diff = a - b; if ((a ^ b) < 0) { if ((diff ^ a) & INT32_MIN) diff = (a < 0L) ? INT32_MIN : INT32_MAX; } return diff; #endif } /*- End of function --------------------------------------------------------*/ static __inline__ int16_t saturated_mul16(int16_t a, int16_t b) { if (a == INT16_MIN && b == INT16_MIN) return INT16_MAX; /*endif*/ return (int16_t) (((int32_t) a*(int32_t) b) >> 15); } /*- End of function --------------------------------------------------------*/ static __inline__ int32_t saturated_mul16_32(int16_t a, int16_t b) { return ((int32_t) a*(int32_t) b) << 1; } /*- End of function --------------------------------------------------------*/ static __inline__ int16_t saturated_abs16(int16_t a) { return (a == INT16_MIN) ? INT16_MAX : (int16_t) abs(a); } /*- End of function --------------------------------------------------------*/ #if defined(__cplusplus) } #endif #endif /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/spandsp/dds.h0000664000175000017500000002465311422612264015773 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * dds.h * * Written by Steve Underwood * * Copyright (C) 2003 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \file */ #if !defined(_SPANDSP_DDS_H_) #define _SPANDSP_DDS_H_ #if defined(__cplusplus) extern "C" { #endif /*! \brief Find the phase rate value to achieve a particular frequency. \param frequency The desired frequency, in Hz. \return The phase rate which while achieve the desired frequency. */ SPAN_DECLARE(int32_t) dds_phase_rate(float frequency); /*! \brief Find the frequency, in Hz, equivalent to a phase rate. \param phase_rate The phase rate. \return The equivalent frequency, in Hz. */ SPAN_DECLARE(float) dds_frequency(int32_t phase_rate); /*! \brief Find the scaling factor needed to achieve a specified level in dBm0. \param level The desired signal level, in dBm0. \return The scaling factor. */ SPAN_DECLARE(int16_t) dds_scaling_dbm0(float level); /*! \brief Find the scaling factor needed to achieve a specified level in dBmov. \param level The desired signal level, in dBmov. \return The scaling factor. */ SPAN_DECLARE(int16_t) dds_scaling_dbov(float level); /*! \brief Find the amplitude for a particular phase. \param phase The desired phase 32 bit phase. \return The signal amplitude. */ SPAN_DECLARE(int16_t) dds_lookup(uint32_t phase); /*! \brief Find the amplitude for a particular phase offset from an accumulated phase. \param phase_acc The accumulated phase. \param phase_offset The phase offset. \return The signal amplitude. */ SPAN_DECLARE(int16_t) dds_offset(uint32_t phase_acc, int32_t phase_offset); /*! \brief Advance the phase, without returning any new signal sample. \param phase_acc A pointer to a phase accumulator value. \param phase_rate The phase increment to be applied. */ SPAN_DECLARE(void) dds_advance(uint32_t *phase_acc, int32_t phase_rate); /*! \brief Generate an integer tone sample. \param phase_acc A pointer to a phase accumulator value. \param phase_rate The phase increment to be applied. \return The signal amplitude, between -32767 and 32767. */ SPAN_DECLARE(int16_t) dds(uint32_t *phase_acc, int32_t phase_rate); /*! \brief Lookup the integer value of a specified phase. \param phase The phase accumulator value to be looked up. \return The signal amplitude, between -32767 and 32767. */ SPAN_DECLARE(int16_t) dds_lookup(uint32_t phase); /*! \brief Generate an integer tone sample, with modulation. \param phase_acc A pointer to a phase accumulator value. \param phase_rate The phase increment to be applied. \param scale The scaling factor. \param phase The phase offset. \return The signal amplitude, between -32767 and 32767. */ SPAN_DECLARE(int16_t) dds_mod(uint32_t *phase_acc, int32_t phase_rate, int16_t scale, int32_t phase); /*! \brief Lookup the complex integer value of a specified phase. \param phase The phase accumulator value to be looked up. \return The complex signal amplitude, between (-32767, -32767) and (32767, 32767). */ SPAN_DECLARE(complexi_t) dds_lookup_complexi(uint32_t phase); /*! \brief Generate a complex integer tone sample. \param phase_acc A pointer to a phase accumulator value. \param phase_rate The phase increment to be applied. \return The complex signal amplitude, between (-32767, -32767) and (32767, 32767). */ SPAN_DECLARE(complexi_t) dds_complexi(uint32_t *phase_acc, int32_t phase_rate); /*! \brief Generate a complex integer tone sample, with modulation. \param phase_acc A pointer to a phase accumulator value. \param phase_rate The phase increment to be applied. \param scale The scaling factor. \param phase The phase offset. \return The complex signal amplitude, between (-32767, -32767) and (32767, 32767). */ SPAN_DECLARE(complexi_t) dds_complexi_mod(uint32_t *phase_acc, int32_t phase_rate, int16_t scale, int32_t phase); /*! \brief Generate a complex 16 bit integer tone sample. \param phase_acc A pointer to a phase accumulator value. \param phase_rate The phase increment to be applied. \return The complex signal amplitude, between (-32767, -32767) and (32767, 32767). */ SPAN_DECLARE(complexi16_t) dds_lookup_complexi16(uint32_t phase); /*! \brief Generate a complex 16 bit integer tone sample. \param phase_acc A pointer to a phase accumulator value. \param phase_rate The phase increment to be applied. \return The complex signal amplitude, between (-32767, -32767) and (32767, 32767). */ SPAN_DECLARE(complexi16_t) dds_complexi16(uint32_t *phase_acc, int32_t phase_rate); /*! \brief Generate a complex 16bit integer tone sample, with modulation. \param phase_acc A pointer to a phase accumulator value. \param phase_rate The phase increment to be applied. \param scale The scaling factor. \param phase The phase offset. \return The complex signal amplitude, between (-32767, -32767) and (32767, 32767). */ SPAN_DECLARE(complexi16_t) dds_complexi16_mod(uint32_t *phase_acc, int32_t phase_rate, int16_t scale, int32_t phase); /*! \brief Generate a complex 32 bit integer tone sample, with modulation. \param phase_acc A pointer to a phase accumulator value. \param phase_rate The phase increment to be applied. \param scale The scaling factor. \param phase The phase offset. \return The complex signal amplitude, between (-32767, -32767) and (32767, 32767). */ SPAN_DECLARE(complexi32_t) dds_complexi32_mod(uint32_t *phase_acc, int32_t phase_rate, int16_t scale, int32_t phase); /*! \brief Generate a complex 32 bit integer tone sample. \param phase_acc A pointer to a phase accumulator value. \param phase_rate The phase increment to be applied. \return The complex signal amplitude, between (-32767, -32767) and (32767, 32767). */ SPAN_DECLARE(complexi32_t) dds_lookup_complexi32(uint32_t phase); /*! \brief Generate a complex 32 bit integer tone sample. \param phase_acc A pointer to a phase accumulator value. \param phase_rate The phase increment to be applied. \return The complex signal amplitude, between (-32767, -32767) and (32767, 32767). */ SPAN_DECLARE(complexi32_t) dds_complexi32(uint32_t *phase_acc, int32_t phase_rate); /*! \brief Generate a complex 32 bit integer tone sample, with modulation. \param phase_acc A pointer to a phase accumulator value. \param phase_rate The phase increment to be applied. \param scale The scaling factor. \param phase The phase offset. \return The complex signal amplitude, between (-32767, -32767) and (32767, 32767). */ SPAN_DECLARE(complexi32_t) dds_complexi32_mod(uint32_t *phase_acc, int32_t phase_rate, int16_t scale, int32_t phase); /*! \brief Find the phase rate equivalent to a frequency, in Hz. \param frequency The frequency, in Hz. \return The equivalent phase rate. */ SPAN_DECLARE(int32_t) dds_phase_ratef(float frequency); /*! \brief Find the frequency, in Hz, equivalent to a phase rate. \param phase_rate The phase rate. \return The equivalent frequency, in Hz. */ SPAN_DECLARE(float) dds_frequencyf(int32_t phase_rate); /*! \brief Find the scaling factor equivalent to a dBm0 value. \param level The signal level in dBm0. \return The equivalent scaling factor. */ SPAN_DECLARE(float) dds_scaling_dbm0f(float level); /*! \brief Find the scaling factor equivalent to a dBmov value. \param level The signal level in dBmov. \return The equivalent scaling factor. */ SPAN_DECLARE(float) dds_scaling_dbovf(float level); /*! \brief Advance the phase, without returning any new signal sample. \param phase_acc A pointer to a phase accumulator value. \param phase_rate The phase increment to be applied. */ SPAN_DECLARE(void) dds_advancef(uint32_t *phase_acc, int32_t phase_rate); /*! \brief Generate a floating point tone sample. \param phase_acc A pointer to a phase accumulator value. \param phase_rate The phase increment to be applied. \return The signal amplitude, between -1.0 and 1.0. */ SPAN_DECLARE(float) ddsf(uint32_t *phase_acc, int32_t phase_rate); /*! \brief Lookup the floating point value of a specified phase. \param phase The phase accumulator value to be looked up. \return The signal amplitude, between -1.0 and 1.0. */ SPAN_DECLARE(float) dds_lookupf(uint32_t phase); /*! \brief Generate a floating point tone sample, with modulation. \param phase_acc A pointer to a phase accumulator value. \param phase_rate The phase increment to be applied. \param scale The scaling factor. \param phase The phase offset. \return The signal amplitude, between -1.0 and 1.0. */ SPAN_DECLARE(float) dds_modf(uint32_t *phase_acc, int32_t phase_rate, float scale, int32_t phase); /*! \brief Generate a complex floating point tone sample. \param phase_acc A pointer to a phase accumulator value. \param phase_rate The phase increment to be applied. \return The complex signal amplitude, between (-1.0, -1.0) and (1.0, 1.0). */ SPAN_DECLARE(complexf_t) dds_complexf(uint32_t *phase_acc, int32_t phase_rate); /*! \brief Lookup the complex value of a specified phase. \param phase The phase accumulator value to be looked up. \return The complex signal amplitude, between (-1.0, -1.0) and (1.0, 1.0). */ SPAN_DECLARE(complexf_t) dds_lookup_complexf(uint32_t phase_acc); /*! \brief Generate a complex floating point tone sample, with modulation. \param phase_acc A pointer to a phase accumulator value. \param phase_rate The phase increment to be applied. \param scale The scaling factor. \param phase The phase offset. \return The complex signal amplitude, between (-1.0, -1.0) and (1.0, 1.0). */ SPAN_DECLARE(complexf_t) dds_complex_modf(uint32_t *phase_acc, int32_t phase_rate, float scale, int32_t phase); #if defined(__cplusplus) } #endif #endif /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/spandsp/t4_rx.h0000664000175000017500000003073411705556166016272 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * t4_rx.h - definitions for T.4 FAX receive processing * * Written by Steve Underwood * * Copyright (C) 2003 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \file */ #if !defined(_SPANDSP_T4_RX_H_) #define _SPANDSP_T4_RX_H_ /*! \page t4_page T.4 image compression and decompression \section t4_page_sec_1 What does it do? The T.4 image compression and decompression routines implement the 1D and 2D encoding methods defined in ITU specification T.4. They also implement the pure 2D encoding method defined in T.6. These are image compression algorithms used for FAX transmission. \section t4_page_sec_1 How does it work? */ typedef int (*t4_row_write_handler_t)(void *user_data, const uint8_t buf[], size_t len); /*! Supported compression modes. */ typedef enum { /*! No compression */ T4_COMPRESSION_NONE = 0, /*! T.1 1D compression */ T4_COMPRESSION_ITU_T4_1D = 1, /*! T.4 2D compression */ T4_COMPRESSION_ITU_T4_2D = 2, /*! T.6 2D compression */ T4_COMPRESSION_ITU_T6 = 3, /*! T.85 monochrome JBIG coding with L0 fixed. */ T4_COMPRESSION_ITU_T85 = 4, /*! T.85 monochrome JBIG coding with L0 variable. */ T4_COMPRESSION_ITU_T85_L0 = 5, /*! T.43 colour JBIG coding */ T4_COMPRESSION_ITU_T43 = 6, /*! T.45 run length colour compression */ T4_COMPRESSION_ITU_T45 = 7, /*! T.42 + T.81 + T.30 Annex E colour JPEG coding */ T4_COMPRESSION_ITU_T42 = 8, /*! T.42 + T.81 + T.30 Annex K colour sYCC-JPEG coding */ T4_COMPRESSION_ITU_SYCC_T42 = 9 } t4_image_compression_t; /*! Supported X resolutions, in pixels per metre. */ typedef enum { T4_X_RESOLUTION_R4 = 4016, T4_X_RESOLUTION_R8 = 8031, T4_X_RESOLUTION_300 = 11811, T4_X_RESOLUTION_R16 = 16063, T4_X_RESOLUTION_600 = 23622, T4_X_RESOLUTION_800 = 31496, T4_X_RESOLUTION_1200 = 47244 } t4_image_x_resolution_t; /*! Supported Y resolutions, in pixels per metre. */ typedef enum { T4_Y_RESOLUTION_STANDARD = 3850, T4_Y_RESOLUTION_FINE = 7700, T4_Y_RESOLUTION_300 = 11811, T4_Y_RESOLUTION_SUPERFINE = 15400, /* 400 is 15748 */ T4_Y_RESOLUTION_600 = 23622, T4_Y_RESOLUTION_800 = 31496, T4_Y_RESOLUTION_1200 = 47244 } t4_image_y_resolution_t; /*! Exact widths in PELs for the difference resolutions, and page widths. Note: The A4 widths also apply to North American letter and legal. The R4 resolution widths are not supported in recent versions of T.30 Only images of exactly these widths are acceptable for FAX transmisson. R4 864 pels/215mm for ISO A4, North American Letter and Legal R4 1024 pels/255mm for ISO B4 R4 1216 pels/303mm for ISO A3 R8 1728 pels/215mm for ISO A4, North American Letter and Legal R8 2048 pels/255mm for ISO B4 R8 2432 pels/303mm for ISO A3 R16 3456 pels/215mm for ISO A4, North American Letter and Legal R16 4096 pels/255mm for ISO B4 R16 4864 pels/303mm for ISO A3 */ typedef enum { T4_WIDTH_R4_A4 = 864, T4_WIDTH_R4_B4 = 1024, T4_WIDTH_R4_A3 = 1216, T4_WIDTH_R8_A4 = 1728, T4_WIDTH_R8_B4 = 2048, T4_WIDTH_R8_A3 = 2432, T4_WIDTH_300_A4 = 2592, T4_WIDTH_300_B4 = 3072, T4_WIDTH_300_A3 = 3648, T4_WIDTH_R16_A4 = 3456, T4_WIDTH_R16_B4 = 4096, T4_WIDTH_R16_A3 = 4864, T4_WIDTH_600_A4 = 5184, T4_WIDTH_600_B4 = 6144, T4_WIDTH_600_A3 = 7296, T4_WIDTH_1200_A4 = 10368, T4_WIDTH_1200_B4 = 12288, T4_WIDTH_1200_A3 = 14592 } t4_image_width_t; /*! Length of the various supported paper sizes, in pixels at the various Y resolutions. Paper sizes are A4 (215mm x 297mm) B4 (255mm x 364mm) A3 (303mm x 418.56mm) North American Letter (215.9mm x 279.4mm) North American Legal (215.9mm x 355.6mm) Unlimited T.4 does not accurately define the maximum number of scan lines in a page. A wide variety of maximum row counts are used in the real world. It is important not to set our sending limit too high, or a receiving machine might split pages. It is important not to set it too low, or we might clip pages. Values seen for standard resolution A4 pages include 1037, 1045, 1109, 1126 and 1143. 1109 seems the most-popular. At fine res 2150, 2196, 2200, 2237, 2252-2262, 2264, 2286, and 2394 are used. 2255 seems the most popular. We try to use balanced choices here. */ typedef enum { /* A4 is 297mm long */ T4_LENGTH_STANDARD_A4 = 1143, T4_LENGTH_FINE_A4 = 2286, T4_LENGTH_300_A4 = 4665, T4_LENGTH_SUPERFINE_A4 = 4573, T4_LENGTH_600_A4 = 6998, T4_LENGTH_800_A4 = 9330, T4_LENGTH_1200_A4 = 13996, /* B4 is 364mm long */ T4_LENGTH_STANDARD_B4 = 1401, T4_LENGTH_FINE_B4 = 2802, T4_LENGTH_300_B4 = 0, T4_LENGTH_SUPERFINE_B4 = 5605, T4_LENGTH_600_B4 = 0, T4_LENGTH_800_B4 = 0, T4_LENGTH_1200_B4 = 0, /* North American letter is 279.4mm long */ T4_LENGTH_STANDARD_US_LETTER = 1075, T4_LENGTH_FINE_US_LETTER = 2151, T4_LENGTH_300_US_LETTER = 0, T4_LENGTH_SUPERFINE_US_LETTER = 4302, T4_LENGTH_600_US_LETTER = 0, T4_LENGTH_800_US_LETTER = 0, T4_LENGTH_1200_US_LETTER = 0, /* North American legal is 355.6mm long */ T4_LENGTH_STANDARD_US_LEGAL = 1369, T4_LENGTH_FINE_US_LEGAL = 2738, T4_LENGTH_300_US_LEGAL = 0, T4_LENGTH_SUPERFINE_US_LEGAL = 5476, T4_LENGTH_600_US_LEGAL = 0, T4_LENGTH_800_US_LEGAL = 0, T4_LENGTH_1200_US_LEGAL = 0 } t4_image_length_t; /*! T.4 FAX compression/decompression descriptor. This defines the working state for a single instance of a T.4 FAX compression or decompression channel. */ typedef struct t4_state_s t4_state_t; /*! T.4 FAX compression/decompression statistics. */ typedef struct { /*! \brief The number of pages transferred so far. */ int pages_transferred; /*! \brief The number of pages in the file (<0 if unknown). */ int pages_in_file; /*! \brief The number of horizontal pixels in the most recent page. */ int width; /*! \brief The number of vertical pixels in the most recent page. */ int length; /*! \brief The number of bad pixel rows in the most recent page. */ int bad_rows; /*! \brief The largest number of bad pixel rows in a block in the most recent page. */ int longest_bad_row_run; /*! \brief The horizontal resolution of the page in pixels per metre */ int x_resolution; /*! \brief The vertical resolution of the page in pixels per metre */ int y_resolution; /*! \brief The type of compression used between the FAX machines */ int encoding; /*! \brief The size of the image on the line, in bytes */ int line_image_size; } t4_stats_t; #if defined(__cplusplus) extern "C" { #endif /*! \brief Prepare for reception of a document. \param s The T.4 context. \param file The name of the file to be received. \param output_encoding The output encoding. \return A pointer to the context, or NULL if there was a problem. */ SPAN_DECLARE(t4_state_t *) t4_rx_init(t4_state_t *s, const char *file, int output_encoding); /*! \brief Prepare to receive the next page of the current document. \param s The T.4 context. \return zero for success, -1 for failure. */ SPAN_DECLARE(int) t4_rx_start_page(t4_state_t *s); /*! \brief Put a bit of the current document page. \param s The T.4 context. \param bit The data bit. \return TRUE when the bit ends the document page, otherwise FALSE. */ SPAN_DECLARE(int) t4_rx_put_bit(t4_state_t *s, int bit); /*! \brief Put a byte of the current document page. \param s The T.4 context. \param byte The data byte. \return TRUE when the byte ends the document page, otherwise FALSE. */ SPAN_DECLARE(int) t4_rx_put_byte(t4_state_t *s, uint8_t byte); /*! \brief Put a byte of the current document page. \param s The T.4 context. \param buf The buffer containing the chunk. \param len The length of the chunk. \return TRUE when the byte ends the document page, otherwise FALSE. */ SPAN_DECLARE(int) t4_rx_put_chunk(t4_state_t *s, const uint8_t buf[], int len); /*! \brief Complete the reception of a page. \param s The T.4 receive context. \return 0 for success, otherwise -1. */ SPAN_DECLARE(int) t4_rx_end_page(t4_state_t *s); /*! \brief End reception of a document. Tidy up and close the file. This should be used to end T.4 reception started with t4_rx_init. \param s The T.4 receive context. \return 0 for success, otherwise -1. */ SPAN_DECLARE(int) t4_rx_release(t4_state_t *s); /*! \brief End reception of a document. Tidy up, close the file and free the context. This should be used to end T.4 reception started with t4_rx_init. \param s The T.4 receive context. \return 0 for success, otherwise -1. */ SPAN_DECLARE(int) t4_rx_free(t4_state_t *s); /*! \brief Set the row write handler for a T.4 receive context. \param s The T.4 receive context. \param handler A pointer to the handler routine. \param user_data An opaque pointer passed to the handler routine. \return 0 for success, otherwise -1. */ SPAN_DECLARE(int) t4_rx_set_row_write_handler(t4_state_t *s, t4_row_write_handler_t handler, void *user_data); /*! \brief Set the encoding for the received data. \param s The T.4 context. \param encoding The encoding. */ SPAN_DECLARE(void) t4_rx_set_rx_encoding(t4_state_t *s, int encoding); /*! \brief Set the expected width of the received image, in pixel columns. \param s The T.4 context. \param width The number of pixels across the image. */ SPAN_DECLARE(void) t4_rx_set_image_width(t4_state_t *s, int width); /*! \brief Set the row-to-row (y) resolution to expect for a received image. \param s The T.4 context. \param resolution The resolution, in pixels per metre. */ SPAN_DECLARE(void) t4_rx_set_y_resolution(t4_state_t *s, int resolution); /*! \brief Set the column-to-column (x) resolution to expect for a received image. \param s The T.4 context. \param resolution The resolution, in pixels per metre. */ SPAN_DECLARE(void) t4_rx_set_x_resolution(t4_state_t *s, int resolution); /*! \brief Set the DCS information of the fax, for inclusion in the file. \param s The T.4 context. \param dcs The DCS information, formatted as an ASCII string. */ SPAN_DECLARE(void) t4_rx_set_dcs(t4_state_t *s, const char *dcs); /*! \brief Set the sub-address of the fax, for inclusion in the file. \param s The T.4 context. \param sub_address The sub-address string. */ SPAN_DECLARE(void) t4_rx_set_sub_address(t4_state_t *s, const char *sub_address); /*! \brief Set the identity of the remote machine, for inclusion in the file. \param s The T.4 context. \param ident The identity string. */ SPAN_DECLARE(void) t4_rx_set_far_ident(t4_state_t *s, const char *ident); /*! \brief Set the vendor of the remote machine, for inclusion in the file. \param s The T.4 context. \param vendor The vendor string, or NULL. */ SPAN_DECLARE(void) t4_rx_set_vendor(t4_state_t *s, const char *vendor); /*! \brief Set the model of the remote machine, for inclusion in the file. \param s The T.4 context. \param model The model string, or NULL. */ SPAN_DECLARE(void) t4_rx_set_model(t4_state_t *s, const char *model); /*! Get the current image transfer statistics. \brief Get the current transfer statistics. \param s The T.4 context. \param t A pointer to a statistics structure. */ SPAN_DECLARE(void) t4_rx_get_transfer_statistics(t4_state_t *s, t4_stats_t *t); /*! Get the short text name of an encoding format. \brief Get the short text name of an encoding format. \param encoding The encoding type. \return A pointer to the string. */ SPAN_DECLARE(const char *) t4_encoding_to_str(int encoding); #if defined(__cplusplus) } #endif #endif /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/spandsp/timezone.h0000664000175000017500000000355611435757501017062 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * timezone.h - Timezone handling for time interpretation * * Written by Steve Underwood * * Copyright (C) 2010 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \file */ #if !defined(_SPANDSP_TIMEZONE_H_) #define _SPANDSP_TIMEZONE_H_ /*! \page timezone_page Timezone handling \section timezone_sec_1 What does it do? \section timezone_sec_2 How does it work? */ typedef struct tz_s tz_t; enum { TM_SUNDAY = 0, TM_MONDAY, TM_TUESDAY, TM_WEDNESDAY, TM_THURSDAY, TM_FRIDAY, TM_SATURDAY }; enum { TM_JANUARY = 0, TM_FEBRUARY, TM_MARCH, TM_APRIL, TM_MAY, TM_JUNE, TM_JULY, TM_AUGUST, TM_SEPTEMBER, TM_OCTOBER, TM_NOVEMBER, TM_DECEMBER }; #if defined(__cplusplus) extern "C" { #endif SPAN_DECLARE(tz_t *) tz_init(tz_t *tz, const char *tzstring); SPAN_DECLARE(int) tz_release(tz_t *tz); SPAN_DECLARE(int) tz_free(tz_t *tz); SPAN_DECLARE(int) tz_localtime(tz_t *tz, struct tm *tm, time_t t); SPAN_DECLARE(const char *) tz_tzname(tz_t *tz, int isdst); #if defined(__cplusplus) } #endif #endif /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/spandsp/version.h0000664000175000017500000000240611516506100016671 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * version.h - A tag file, so the exact installed revision can be assertained. * * Written by Steve Underwood * * Copyright (C) 2007 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #if !defined(_SPANDSP_VERSION_H_) #define _SPANDSP_VERSION_H_ /* The date and time of the version are in UTC form. */ #define SPANDSP_RELEASE_DATE 20110122 #define SPANDSP_RELEASE_TIME 075024 #define SPANDSP_RELEASE_DATETIME_STRING "20110122 075024" #endif /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/spandsp/t38_terminal.h0000664000175000017500000001330211422612264017517 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * t38_terminal.h - T.38 termination, less the packet exchange part * * Written by Steve Underwood * * Copyright (C) 2005 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \file */ #if !defined(_SPANDSP_T38_TERMINAL_H_) #define _SPANDSP_T38_TERMINAL_H_ /*! \page t38_terminal_page T.38 real time FAX over IP termination \section t38_terminal_page_sec_1 What does it do? \section t38_terminal_page_sec_2 How does it work? */ /* Make sure the HDLC frame buffers are big enough for ECM frames. */ #define T38_MAX_HDLC_LEN 260 enum { /*! This option enables the continuous streaming of FAX data, with no allowance for FAX machine speeds. This is usually used with TCP/TPKT transmission of T.38 FAXes */ T38_TERMINAL_OPTION_NO_PACING = 0x01, /*! This option enables the regular repeat transmission of indicator signals, during periods when no FAX signal transmission occurs. */ T38_TERMINAL_OPTION_REGULAR_INDICATORS = 0x02, /*! This option enables the regular repeat transmission of indicator signals for the first 2s, during periods when no FAX signal transmission occurs. */ T38_TERMINAL_OPTION_2S_REPEATING_INDICATORS = 0x04 }; typedef struct t38_terminal_state_s t38_terminal_state_t; #if defined(__cplusplus) extern "C" { #endif SPAN_DECLARE(int) t38_terminal_send_timeout(t38_terminal_state_t *s, int samples); /*! Set configuration options. \brief Set configuration options. \param s The T.38 context. \param config A combinations of T38_TERMINAL_OPTION_* bits. */ SPAN_DECLARE(void) t38_terminal_set_config(t38_terminal_state_t *s, int config); /*! Select whether the time for talker echo protection tone will be allowed for when sending. \brief Select whether TEP time will be allowed for. \param s The T.38 context. \param use_tep TRUE if TEP should be allowed for. */ SPAN_DECLARE(void) t38_terminal_set_tep_mode(t38_terminal_state_t *s, int use_tep); /*! Select whether non-ECM fill bits are to be removed during transmission. \brief Select whether non-ECM fill bits are to be removed during transmission. \param s The T.38 context. \param remove TRUE if fill bits are to be removed. */ SPAN_DECLARE(void) t38_terminal_set_fill_bit_removal(t38_terminal_state_t *s, int remove); /*! Get a pointer to the T.30 engine associated with a termination mode T.38 context. \brief Get a pointer to the T.30 engine associated with a T.38 context. \param s The T.38 context. \return A pointer to the T.30 context, or NULL. */ SPAN_DECLARE(t30_state_t *) t38_terminal_get_t30_state(t38_terminal_state_t *s); /*! Get a pointer to the T.38 core IFP packet engine associated with a termination mode T.38 context. \brief Get a pointer to the T.38 core IFP packet engine associated with a T.38 context. \param s The T.38 context. \return A pointer to the T.38 core context, or NULL. */ SPAN_DECLARE(t38_core_state_t *) t38_terminal_get_t38_core_state(t38_terminal_state_t *s); /*! Get a pointer to the logging context associated with a T.38 context. \brief Get a pointer to the logging context associated with a T.38 context. \param s The T.38 context. \return A pointer to the logging context, or NULL. */ SPAN_DECLARE(logging_state_t *) t38_terminal_get_logging_state(t38_terminal_state_t *s); /*! \brief Reinitialise a termination mode T.38 context. \param s The T.38 context. \param calling_party TRUE if the context is for a calling party. FALSE if the context is for an answering party. \return 0 for OK, else -1. */ SPAN_DECLARE(int) t38_terminal_restart(t38_terminal_state_t *s, int calling_party); /*! \brief Initialise a termination mode T.38 context. \param s The T.38 context. \param calling_party TRUE if the context is for a calling party. FALSE if the context is for an answering party. \param tx_packet_handler A callback routine to encapsulate and transmit T.38 packets. \param tx_packet_user_data An opaque pointer passed to the tx_packet_handler routine. \return A pointer to the termination mode T.38 context, or NULL if there was a problem. */ SPAN_DECLARE(t38_terminal_state_t *) t38_terminal_init(t38_terminal_state_t *s, int calling_party, t38_tx_packet_handler_t *tx_packet_handler, void *tx_packet_user_data); /*! Release a termination mode T.38 context. \brief Release a T.38 context. \param s The T.38 context. \return 0 for OK, else -1. */ SPAN_DECLARE(int) t38_terminal_release(t38_terminal_state_t *s); /*! Free a a termination mode T.38 context. \brief Free a T.38 context. \param s The T.38 context. \return 0 for OK, else -1. */ SPAN_DECLARE(int) t38_terminal_free(t38_terminal_state_t *s); #if defined(__cplusplus) } #endif #endif /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/spandsp/telephony.h0000664000175000017500000000646111422612264017225 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * telephony.h - some very basic telephony definitions * * Written by Steve Underwood * * Copyright (C) 2003 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #if !defined(_SPANDSP_TELEPHONY_H_) #define _SPANDSP_TELEPHONY_H_ #if defined(_M_IX86) || defined(_M_X64) #if defined(LIBSPANDSP_EXPORTS) #define SPAN_DECLARE(type) __declspec(dllexport) type __stdcall #define SPAN_DECLARE_NONSTD(type) __declspec(dllexport) type __cdecl #define SPAN_DECLARE_DATA __declspec(dllexport) #else #define SPAN_DECLARE(type) __declspec(dllimport) type __stdcall #define SPAN_DECLARE_NONSTD(type) __declspec(dllimport) type __cdecl #define SPAN_DECLARE_DATA __declspec(dllimport) #endif #elif defined(SPANDSP_USE_EXPORT_CAPABILITY) && (defined(__GNUC__) || defined(__SUNCC__)) #define SPAN_DECLARE(type) __attribute__((visibility("default"))) type #define SPAN_DECLARE_NONSTD(type) __attribute__((visibility("default"))) type #define SPAN_DECLARE_DATA __attribute__((visibility("default"))) #else #define SPAN_DECLARE(type) /**/ type #define SPAN_DECLARE_NONSTD(type) /**/ type #define SPAN_DECLARE_DATA /**/ #endif #define SAMPLE_RATE 8000 /* This is based on A-law, but u-law is only 0.03dB different */ #define DBM0_MAX_POWER (3.14f + 3.02f) #define DBM0_MAX_SINE_POWER (3.14f) /* This is based on the ITU definition of dbOv in G.100.1 */ #define DBOV_MAX_POWER (0.0f) #define DBOV_MAX_SINE_POWER (-3.02f) /*! \brief A handler for pure receive. The buffer cannot be altered. */ typedef int (span_rx_handler_t)(void *s, const int16_t amp[], int len); /*! \brief A handler for receive, where the buffer can be altered. */ typedef int (span_mod_handler_t)(void *s, int16_t amp[], int len); /*! \brief A handler for missing receive data fill-in. */ typedef int (span_rx_fillin_handler_t)(void *s, int len); /*! \brief A handler for transmit, where the buffer will be filled. */ typedef int (span_tx_handler_t)(void *s, int16_t amp[], int max_len); #define ms_to_samples(t) ((t)*(SAMPLE_RATE/1000)) #define us_to_samples(t) ((t)/(1000000/SAMPLE_RATE)) #if !defined(FALSE) #define FALSE 0 #endif #if !defined(TRUE) #define TRUE (!FALSE) #endif #if defined(__cplusplus) /* C++ doesn't seem to have sane rounding functions/macros yet */ #if !defined(WIN32) #define lrint(x) ((long int) (x)) #define lrintf(x) ((long int) (x)) #endif #endif #endif /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/spandsp/schedule.h0000664000175000017500000000406311422612264017006 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * schedule.h * * Written by Steve Underwood * * Copyright (C) 2004 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \file */ /*! \page schedule_page Scheduling \section schedule_page_sec_1 What does it do? ???. \section schedule_page_sec_2 How does it work? ???. */ #if !defined(_SPANDSP_SCHEDULE_H_) #define _SPANDSP_SCHEDULE_H_ /*! A scheduled event entry. */ typedef struct span_sched_s span_sched_t; /*! A scheduled event queue. */ typedef struct span_sched_state_s span_sched_state_t; typedef void (*span_sched_callback_func_t)(span_sched_state_t *s, void *user_data); #if defined(__cplusplus) extern "C" { #endif SPAN_DECLARE(uint64_t) span_schedule_next(span_sched_state_t *s); SPAN_DECLARE(uint64_t) span_schedule_time(span_sched_state_t *s); SPAN_DECLARE(int) span_schedule_event(span_sched_state_t *s, int us, span_sched_callback_func_t function, void *user_data); SPAN_DECLARE(void) span_schedule_update(span_sched_state_t *s, int us); SPAN_DECLARE(void) span_schedule_del(span_sched_state_t *s, int id); SPAN_DECLARE(span_sched_state_t *) span_schedule_init(span_sched_state_t *s); SPAN_DECLARE(int) span_schedule_release(span_sched_state_t *s); SPAN_DECLARE(int) span_schedule_free(span_sched_state_t *s); #if defined(__cplusplus) } #endif #endif /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/spandsp/v42.h0000664000175000017500000001130711422612265015625 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * v42.h * * Written by Steve Underwood * * Copyright (C) 2003 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \page v42_page V.42 modem error correction \section v42_page_sec_1 What does it do? The V.42 specification defines an error correcting protocol for PSTN modems, based on HDLC and LAP. This makes it similar to an X.25 link. A special variant of LAP, known as LAP-M, is defined in the V.42 specification. A means for modems to determine if the far modem supports V.42 is also defined. \section v42_page_sec_2 How does it work? */ #if !defined(_SPANDSP_V42_H_) #define _SPANDSP_V42_H_ enum { LAPM_DETECT = 0, LAPM_ESTABLISH = 1, LAPM_DATA = 2, LAPM_RELEASE = 3, LAPM_SIGNAL = 4, LAPM_SETPARM = 5, LAPM_TEST = 6, LAPM_UNSUPPORTED = 7 }; typedef void (*v42_status_func_t)(void *user_data, int status); typedef void (*v42_frame_handler_t)(void *user_data, const uint8_t *pkt, int len); typedef struct lapm_frame_queue_s { struct lapm_frame_queue_s *next; int len; uint8_t frame[]; } lapm_frame_queue_t; /*! LAP-M descriptor. This defines the working state for a single instance of LAP-M. */ typedef struct lapm_state_s lapm_state_t; /*! V.42 descriptor. This defines the working state for a single instance of V.42. */ typedef struct v42_state_s v42_state_t; /*! Log the raw HDLC frames */ #define LAPM_DEBUG_LAPM_RAW (1 << 0) /*! Log the interpreted frames */ #define LAPM_DEBUG_LAPM_DUMP (1 << 1) /*! Log state machine changes */ #define LAPM_DEBUG_LAPM_STATE (1 << 2) #if defined(__cplusplus) extern "C" { #endif SPAN_DECLARE(const char *) lapm_status_to_str(int status); /*! Dump LAP.M frames in a raw and/or decoded forms \param frame The frame itself \param len The length of the frame, in octets \param showraw TRUE if the raw octets should be dumped \param txrx TRUE if tx, FALSE if rx. Used to highlight the packet's direction. */ SPAN_DECLARE(void) lapm_dump(lapm_state_t *s, const uint8_t *frame, int len, int showraw, int txrx); /*! Accept an HDLC packet */ SPAN_DECLARE_NONSTD(void) lapm_receive(void *user_data, const uint8_t *buf, int len, int ok); /*! Transmit a LAP.M frame */ SPAN_DECLARE(int) lapm_tx(lapm_state_t *s, const void *buf, int len); /*! Transmit a LAP.M information frame */ SPAN_DECLARE(int) lapm_tx_iframe(lapm_state_t *s, const void *buf, int len, int cr); /*! Send a break over a LAP.M connection */ SPAN_DECLARE(int) lapm_break(lapm_state_t *s, int enable); /*! Initiate an orderly release of a LAP.M connection */ SPAN_DECLARE(int) lapm_release(lapm_state_t *s); /*! Enable or disable loopback of a LAP.M connection */ SPAN_DECLARE(int) lapm_loopback(lapm_state_t *s, int enable); /*! Assign or remove a callback routine used to deal with V.42 status changes. */ SPAN_DECLARE(void) v42_set_status_callback(v42_state_t *s, v42_status_func_t callback, void *user_data); /*! Process a newly received bit for a V.42 context. */ SPAN_DECLARE(void) v42_rx_bit(void *user_data, int bit); /*! Get the next transmit bit for a V.42 context. */ SPAN_DECLARE(int) v42_tx_bit(void *user_data); /*! Initialise a V.42 context. \param s The V.42 context. \param calling_party TRUE if caller mode, else answerer mode. \param frame_handler A callback function to handle received frames of data. \param user_data An opaque pointer passed to the frame handler routine. \return ??? */ SPAN_DECLARE(v42_state_t *) v42_init(v42_state_t *s, int calling_party, int detect, v42_frame_handler_t frame_handler, void *user_data); /*! Restart a V.42 context. \param s The V.42 context. */ SPAN_DECLARE(void) v42_restart(v42_state_t *s); /*! Release a V.42 context. \param s The V.42 context. \return 0 if OK */ SPAN_DECLARE(int) v42_release(v42_state_t *s); /*! Free a V.42 context. \param s The V.42 context. \return 0 if OK */ SPAN_DECLARE(int) v42_free(v42_state_t *s); #if defined(__cplusplus) } #endif #endif /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/spandsp/v27ter_tx.h0000664000175000017500000001512311422612265017056 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * v27ter_tx.h - ITU V.27ter modem transmit part * * Written by Steve Underwood * * Copyright (C) 2003 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \file */ #if !defined(_SPANDSP_V27TER_TX_H_) #define _SPANDSP_V27TER_TX_H_ /*! \page v27ter_tx_page The V.27ter transmitter \section v27ter_tx_page_sec_1 What does it do? The V.27ter transmitter implements the transmit side of a V.27ter modem. This can operate at data rates of 4800 and 2400 bits/s. The audio output is a stream of 16 bit samples, at 8000 samples/second. The transmit and receive side of V.27ter modems operate independantly. V.27ter is used for FAX transmission, where it provides the standard 4800 and 2400 bits/s rates. \section v27ter_tx_page_sec_2 How does it work? V.27ter uses DPSK modulation. A common method of producing a DPSK modulated signal is to use a sampling rate which is a multiple of the baud rate. The raw signal is then a series of complex pulses, each an integer number of samples long. These can be shaped, using a suitable complex filter, and multiplied by a complex carrier signal to produce the final DPSK signal for transmission. The pulse shaping filter for V.27ter is defined in the spec. It is a root raised cosine filter with 50% excess bandwidth. The sampling rate for our transmitter is defined by the channel - 8000 samples/s. This is a multiple of the baud rate at 4800 bits/s (8-PSK at 1600 baud, 5 samples per symbol), but not at 2400 bits/s (4-PSK at 1200 baud, 20/3 samples per symbol). The baud interval is actually 20/3 sample periods at 2400bis/s. A symmetric FIR is used to apply root raised cosine filtering in the 4800bits/s mode. In the 2400bits/s mode a polyphase FIR filter is used. This consists of 20 sets of coefficients, offering zero to 19/20ths of a baud phase shift as well as root raised cosine filtering. The appropriate coefficient set is chosen for each signal sample generated. The carrier is generated using the DDS method. Using 2 second order resonators, started in quadrature, might be more efficient, as it would have less impact on the processor cache than a table lookup approach. However, the DDS approach suits the receiver better, so then same signal generator is also used for the transmitter. */ /*! V.27ter modem transmit side descriptor. This defines the working state for a single instance of a V.27ter modem transmitter. */ typedef struct v27ter_tx_state_s v27ter_tx_state_t; #if defined(__cplusplus) extern "C" { #endif /*! Adjust a V.27ter modem transmit context's power output. \brief Adjust a V.27ter modem transmit context's output power. \param s The modem context. \param power The power level, in dBm0 */ SPAN_DECLARE(void) v27ter_tx_power(v27ter_tx_state_t *s, float power); /*! Initialise a V.27ter modem transmit context. \brief Initialise a V.27ter modem transmit context. \param s The modem context. \param bit_rate The bit rate of the modem. Valid values are 2400 and 4800. \param tep TRUE is the optional TEP tone is to be transmitted. \param get_bit The callback routine used to get the data to be transmitted. \param user_data An opaque pointer. \return A pointer to the modem context, or NULL if there was a problem. */ SPAN_DECLARE(v27ter_tx_state_t *) v27ter_tx_init(v27ter_tx_state_t *s, int bit_rate, int tep, get_bit_func_t get_bit, void *user_data); /*! Reinitialise an existing V.27ter modem transmit context, so it may be reused. \brief Reinitialise an existing V.27ter modem transmit context. \param s The modem context. \param bit_rate The bit rate of the modem. Valid values are 2400 and 4800. \param tep TRUE is the optional TEP tone is to be transmitted. \return 0 for OK, -1 for bad parameter */ SPAN_DECLARE(int) v27ter_tx_restart(v27ter_tx_state_t *s, int bit_rate, int tep); /*! Release a V.27ter modem transmit context. \brief Release a V.27ter modem transmit context. \param s The modem context. \return 0 for OK */ SPAN_DECLARE(int) v27ter_tx_release(v27ter_tx_state_t *s); /*! Free a V.27ter modem transmit context. \brief Free a V.27ter modem transmit context. \param s The modem context. \return 0 for OK */ SPAN_DECLARE(int) v27ter_tx_free(v27ter_tx_state_t *s); /*! Get the logging context associated with a V.27ter modem transmit context. \brief Get the logging context associated with a V.27ter modem transmit context. \param s The modem context. \return A pointer to the logging context */ SPAN_DECLARE(logging_state_t *) v27ter_tx_get_logging_state(v27ter_tx_state_t *s); /*! Change the get_bit function associated with a V.27ter modem transmit context. \brief Change the get_bit function associated with a V.27ter modem transmit context. \param s The modem context. \param get_bit The callback routine used to get the data to be transmitted. \param user_data An opaque pointer. */ SPAN_DECLARE(void) v27ter_tx_set_get_bit(v27ter_tx_state_t *s, get_bit_func_t get_bit, void *user_data); /*! Change the modem status report function associated with a V.27ter modem transmit context. \brief Change the modem status report function associated with a V.27ter modem transmit context. \param s The modem context. \param handler The callback routine used to report modem status changes. \param user_data An opaque pointer. */ SPAN_DECLARE(void) v27ter_tx_set_modem_status_handler(v27ter_tx_state_t *s, modem_tx_status_func_t handler, void *user_data); /*! Generate a block of V.27ter modem audio samples. \brief Generate a block of V.27ter modem audio samples. \param s The modem context. \param amp The audio sample buffer. \param len The number of samples to be generated. \return The number of samples actually generated. */ SPAN_DECLARE_NONSTD(int) v27ter_tx(v27ter_tx_state_t *s, int16_t amp[], int len); #if defined(__cplusplus) } #endif #endif /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/spandsp/bitstream.h0000664000175000017500000000640211422612263017202 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * bitstream.h - Bitstream composition and decomposition routines. * * Written by Steve Underwood * * Copyright (C) 2006 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \file */ #if !defined(_SPANDSP_BITSTREAM_H_) #define _SPANDSP_BITSTREAM_H_ /*! \page bitstream_page Bitstream composition and decomposition \section bitstream_page_sec_1 What does it do? \section bitstream_page_sec_2 How does it work? */ /*! Bitstream handler state */ typedef struct bitstream_state_s bitstream_state_t; #if defined(__cplusplus) extern "C" { #endif /*! \brief Put a chunk of bits into the output buffer. \param s A pointer to the bitstream context. \param c A pointer to the bitstream output buffer. \param value The value to be pushed into the output buffer. \param bits The number of bits of value to be pushed. 1 to 25 bits is valid. */ SPAN_DECLARE(void) bitstream_put(bitstream_state_t *s, uint8_t **c, uint32_t value, int bits); /*! \brief Get a chunk of bits from the input buffer. \param s A pointer to the bitstream context. \param c A pointer to the bitstream input buffer. \param bits The number of bits of value to be grabbed. 1 to 25 bits is valid. \return The value retrieved from the input buffer. */ SPAN_DECLARE(uint32_t) bitstream_get(bitstream_state_t *s, const uint8_t **c, int bits); /*! \brief Emit any residual bits to the output buffer, without actually flushing them. This is useful for getting the buffer fully up to date, ready for things like CRC calculations, while allowing bitstream_put() to be used to continue the message later. \param s A pointer to the bitstream context. \param c A pointer to the bitstream output buffer. */ SPAN_DECLARE(void) bitstream_emit(bitstream_state_t *s, uint8_t **c); /*! \brief Flush any residual bits to the output buffer. \param s A pointer to the bitstream context. \param c A pointer to the bitstream output buffer. */ SPAN_DECLARE(void) bitstream_flush(bitstream_state_t *s, uint8_t **c); /*! \brief Initialise a bitstream context. \param s A pointer to the bitstream context. \param lsb_first TRUE if the bit stream is LSB first, else its MSB first. \return A pointer to the bitstream context. */ SPAN_DECLARE(bitstream_state_t *) bitstream_init(bitstream_state_t *s, int direction); SPAN_DECLARE(int) bitstream_release(bitstream_state_t *s); SPAN_DECLARE(int) bitstream_free(bitstream_state_t *s); #if defined(__cplusplus) } #endif #endif /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/spandsp/v27ter_rx.h0000664000175000017500000001560711422612265017063 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * v27ter_rx.h - ITU V.27ter modem receive part * * Written by Steve Underwood * * Copyright (C) 2003 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \file */ #if !defined(_SPANDSP_V27TER_RX_H_) #define _SPANDSP_V27TER_RX_H_ /*! \page v27ter_rx_page The V.27ter receiver \section v27ter_rx_page_sec_1 What does it do? The V.27ter receiver implements the receive side of a V.27ter modem. This can operate at data rates of 4800 and 2400 bits/s. The audio input is a stream of 16 bit samples, at 8000 samples/second. The transmit and receive side of V.27ter modems operate independantly. V.27ter is mostly used for FAX transmission, where it provides the standard 4800 bits/s rate (the 2400 bits/s mode is not used for FAX). \section v27ter_rx_page_sec_2 How does it work? V.27ter defines two modes of operation. One uses 8-PSK at 1600 baud, giving 4800bps. The other uses 4-PSK at 1200 baud, giving 2400bps. A training sequence is specified at the start of transmission, which makes the design of a V.27ter receiver relatively straightforward. */ /*! V.27ter modem receive side descriptor. This defines the working state for a single instance of a V.27ter modem receiver. */ typedef struct v27ter_rx_state_s v27ter_rx_state_t; #if defined(__cplusplus) extern "C" { #endif /*! Initialise a V.27ter modem receive context. \brief Initialise a V.27ter modem receive context. \param s The modem context. \param bit_rate The bit rate of the modem. Valid values are 2400 and 4800. \param put_bit The callback routine used to put the received data. \param user_data An opaque pointer passed to the put_bit routine. \return A pointer to the modem context, or NULL if there was a problem. */ SPAN_DECLARE(v27ter_rx_state_t *) v27ter_rx_init(v27ter_rx_state_t *s, int bit_rate, put_bit_func_t put_bit, void *user_data); /*! Reinitialise an existing V.27ter modem receive context. \brief Reinitialise an existing V.27ter modem receive context. \param s The modem context. \param bit_rate The bit rate of the modem. Valid values are 2400 and 4800. \param old_train TRUE if a previous trained values are to be reused. \return 0 for OK, -1 for bad parameter */ SPAN_DECLARE(int) v27ter_rx_restart(v27ter_rx_state_t *s, int bit_rate, int old_train); /*! Release a V.27ter modem receive context. \brief Release a V.27ter modem receive context. \param s The modem context. \return 0 for OK */ SPAN_DECLARE(int) v27ter_rx_release(v27ter_rx_state_t *s); /*! Free a V.27ter modem receive context. \brief Free a V.27ter modem receive context. \param s The modem context. \return 0 for OK */ SPAN_DECLARE(int) v27ter_rx_free(v27ter_rx_state_t *s); /*! Get the logging context associated with a V.27ter modem receive context. \brief Get the logging context associated with a V.27ter modem receive context. \param s The modem context. \return A pointer to the logging context */ SPAN_DECLARE(logging_state_t *) v27ter_rx_get_logging_state(v27ter_rx_state_t *s); /*! Change the put_bit function associated with a V.27ter modem receive context. \brief Change the put_bit function associated with a V.27ter modem receive context. \param s The modem context. \param put_bit The callback routine used to handle received bits. \param user_data An opaque pointer. */ SPAN_DECLARE(void) v27ter_rx_set_put_bit(v27ter_rx_state_t *s, put_bit_func_t put_bit, void *user_data); /*! Change the modem status report function associated with a V.27ter modem receive context. \brief Change the modem status report function associated with a V.27ter modem receive context. \param s The modem context. \param handler The callback routine used to report modem status changes. \param user_data An opaque pointer. */ SPAN_DECLARE(void) v27ter_rx_set_modem_status_handler(v27ter_rx_state_t *s, modem_rx_status_func_t handler, void *user_data); /*! Process a block of received V.27ter modem audio samples. \brief Process a block of received V.27ter modem audio samples. \param s The modem context. \param amp The audio sample buffer. \param len The number of samples in the buffer. \return The number of samples unprocessed. */ SPAN_DECLARE_NONSTD(int) v27ter_rx(v27ter_rx_state_t *s, const int16_t amp[], int len); /*! Fake processing of a missing block of received V.27ter modem audio samples. (e.g due to packet loss). \brief Fake processing of a missing block of received V.27ter modem audio samples. \param s The modem context. \param len The number of samples to fake. \return The number of samples unprocessed. */ SPAN_DECLARE_NONSTD(int) v27ter_rx_fillin(v27ter_rx_state_t *s, int len); /*! Get a snapshot of the current equalizer coefficients. \brief Get a snapshot of the current equalizer coefficients. \param coeffs The vector of complex coefficients. \return The number of coefficients in the vector. */ SPAN_DECLARE(int) v27ter_rx_equalizer_state(v27ter_rx_state_t *s, complexf_t **coeffs); /*! Get the current received carrier frequency. \param s The modem context. \return The frequency, in Hertz. */ SPAN_DECLARE(float) v27ter_rx_carrier_frequency(v27ter_rx_state_t *s); /*! Get the current symbol timing correction since startup. \param s The modem context. \return The correction. */ SPAN_DECLARE(float) v27ter_rx_symbol_timing_correction(v27ter_rx_state_t *s); /*! Get a current received signal power. \param s The modem context. \return The signal power, in dBm0. */ SPAN_DECLARE(float) v27ter_rx_signal_power(v27ter_rx_state_t *s); /*! Set the power level at which the carrier detection will cut in \param s The modem context. \param cutoff The signal cutoff power, in dBm0. */ SPAN_DECLARE(void) v27ter_rx_signal_cutoff(v27ter_rx_state_t *s, float cutoff); /*! Set a handler routine to process QAM status reports \param s The modem context. \param handler The handler routine. \param user_data An opaque pointer passed to the handler routine. */ SPAN_DECLARE(void) v27ter_rx_set_qam_report_handler(v27ter_rx_state_t *s, qam_report_handler_t handler, void *user_data); #if defined(__cplusplus) } #endif #endif /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/spandsp/modem_connect_tones.h0000664000175000017500000001663311422612264021242 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * modem_connect_tones.c - Generation and detection of tones * associated with modems calling and * answering calls. * * Written by Steve Underwood * * Copyright (C) 2006 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \file */ #if !defined(_SPANDSP_MODEM_CONNECT_TONES_H_) #define _SPANDSP_MODEM_CONNECT_TONES_H_ /*! \page modem_connect_tones_page Modem connect tone detection \section modem_connect_tones_page_sec_1 What does it do? Some telephony terminal equipment, such as modems, require a channel which is as clear as possible. They use their own echo cancellation. If the network is also performing echo cancellation the two cancellors can end up squabbling about the nature of the channel, with bad results. A special tone is defined which should cause the network to disable any echo cancellation processes. This is the echo canceller disable tone. The tone detector's design assumes the channel is free of any DC component. \section modem_connect_tones_page_sec_2 How does it work? A sharp notch filter is implemented as a single bi-quad section. The presence of the 2100Hz disable tone is detected by comparing the notched filtered energy with the unfiltered energy. If the notch filtered energy is much lower than the unfiltered energy, then a large proportion of the energy must be at the notch frequency. This type of detector may seem less intuitive than using a narrow bandpass filter to isolate the energy at the notch freqency. However, a sharp bandpass implemented as an IIR filter rings badly. The reciprocal notch filter is very well behaved for our purpose. */ enum { /*! \brief This is reported when a tone stops. */ MODEM_CONNECT_TONES_NONE = 0, /*! \brief CNG tone is a pure 1100Hz tone, in 0.5s bursts, with 3s silences in between. The bursts repeat for as long as is required. */ MODEM_CONNECT_TONES_FAX_CNG = 1, /*! \brief ANS tone is a pure continuous 2100Hz+-15Hz tone for 3.3s+-0.7s. */ MODEM_CONNECT_TONES_ANS = 2, /*! \brief ANS with phase reversals tone is a 2100Hz+-15Hz tone for 3.3s+-0.7s, with a 180 degree phase jump every 450ms+-25ms. */ MODEM_CONNECT_TONES_ANS_PR = 3, /*! \brief The ANSam tone is a version of ANS with 20% of 15Hz+-0.1Hz AM modulation, as per V.8 */ MODEM_CONNECT_TONES_ANSAM = 4, /*! \brief The ANSam with phase reversals tone is a version of ANS_PR with 20% of 15Hz+-0.1Hz AM modulation, as per V.8 */ MODEM_CONNECT_TONES_ANSAM_PR = 5, /*! \brief FAX preamble in a string of V.21 HDLC flag octets. */ MODEM_CONNECT_TONES_FAX_PREAMBLE = 6, /*! \brief CED tone is the same as ANS tone. FAX preamble in a string of V.21 HDLC flag octets. This is only valid as a tone type to receive. It is never reported as a detected tone type. The report will either be for FAX preamble or CED/ANS tone. */ MODEM_CONNECT_TONES_FAX_CED_OR_PREAMBLE = 7 }; /*! \brief FAX CED tone is the same as ANS tone. */ #define MODEM_CONNECT_TONES_FAX_CED MODEM_CONNECT_TONES_ANS /*! Modem connect tones generator descriptor. This defines the state of a single working instance of the tone generator. */ typedef struct modem_connect_tones_tx_state_s modem_connect_tones_tx_state_t; /*! Modem connect tones receiver descriptor. This defines the state of a single working instance of the tone detector. */ typedef struct modem_connect_tones_rx_state_s modem_connect_tones_rx_state_t; #if defined(__cplusplus) extern "C" { #endif /*! \brief Initialise an instance of the modem connect tones generator. \param s The context. */ SPAN_DECLARE(modem_connect_tones_tx_state_t *) modem_connect_tones_tx_init(modem_connect_tones_tx_state_t *s, int tone_type); /*! \brief Release an instance of the modem connect tones generator. \param s The context. \return 0 for OK, else -1. */ SPAN_DECLARE(int) modem_connect_tones_tx_release(modem_connect_tones_tx_state_t *s); /*! \brief Free an instance of the modem connect tones generator. \param s The context. \return 0 for OK, else -1. */ SPAN_DECLARE(int) modem_connect_tones_tx_free(modem_connect_tones_tx_state_t *s); /*! \brief Generate a block of modem connect tones samples. \param s The context. \param amp An array of signal samples. \param len The number of samples to generate. \return The number of samples generated. */ SPAN_DECLARE_NONSTD(int) modem_connect_tones_tx(modem_connect_tones_tx_state_t *s, int16_t amp[], int len); /*! \brief Process a block of samples through an instance of the modem connect tones detector. \param s The context. \param amp An array of signal samples. \param len The number of samples in the array. \return The number of unprocessed samples. */ SPAN_DECLARE_NONSTD(int) modem_connect_tones_rx(modem_connect_tones_rx_state_t *s, const int16_t amp[], int len); /*! \brief Test if a modem_connect tone has been detected. \param s The context. \return TRUE if tone is detected, else FALSE. */ SPAN_DECLARE(int) modem_connect_tones_rx_get(modem_connect_tones_rx_state_t *s); /*! \brief Initialise an instance of the modem connect tones detector. \param s The context. \param tone_type The type of connect tone being tested for. \param tone_callback An optional callback routine, used to report tones \param user_data An opaque pointer passed to the callback routine, \return A pointer to the context. */ SPAN_DECLARE(modem_connect_tones_rx_state_t *) modem_connect_tones_rx_init(modem_connect_tones_rx_state_t *s, int tone_type, tone_report_func_t tone_callback, void *user_data); /*! \brief Release an instance of the modem connect tones detector. \param s The context. \return 0 for OK, else -1. */ SPAN_DECLARE(int) modem_connect_tones_rx_release(modem_connect_tones_rx_state_t *s); /*! \brief Free an instance of the modem connect tones detector. \param s The context. \return 0 for OK, else -1. */ SPAN_DECLARE(int) modem_connect_tones_rx_free(modem_connect_tones_rx_state_t *s); SPAN_DECLARE(const char *) modem_connect_tone_to_str(int tone); #if defined(__cplusplus) } #endif #endif /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/spandsp/g726.h0000664000175000017500000000727211422612264015704 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * g726.h - ITU G.726 codec. * * Written by Steve Underwood * * Copyright (C) 2006 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \file */ #if !defined(_SPANDSP_G726_H_) #define _SPANDSP_G726_H_ /*! \page g726_page G.726 encoding and decoding \section g726_page_sec_1 What does it do? The G.726 module is a bit exact implementation of the full ITU G.726 specification. It supports: - 16 kbps, 24kbps, 32kbps, and 40kbps operation. - Tandem adjustment, for interworking with A-law and u-law. - Annex A support, for use in environments not using A-law or u-law. It passes the ITU tests. \section g726_page_sec_2 How does it work? ???. */ enum { G726_ENCODING_LINEAR = 0, /* Interworking with 16 bit signed linear */ G726_ENCODING_ULAW, /* Interworking with u-law */ G726_ENCODING_ALAW /* Interworking with A-law */ }; enum { G726_PACKING_NONE = 0, G726_PACKING_LEFT = 1, G726_PACKING_RIGHT = 2 }; /*! G.726 state */ typedef struct g726_state_s g726_state_t; typedef int16_t (*g726_decoder_func_t)(g726_state_t *s, uint8_t code); typedef uint8_t (*g726_encoder_func_t)(g726_state_t *s, int16_t amp); #if defined(__cplusplus) extern "C" { #endif /*! Initialise a G.726 encode or decode context. \param s The G.726 context. \param bit_rate The required bit rate for the ADPCM data. The valid rates are 16000, 24000, 32000 and 40000. \param ext_coding The coding used outside G.726. \param packing One of the G.726_PACKING_xxx options. \return A pointer to the G.726 context, or NULL for error. */ SPAN_DECLARE(g726_state_t *) g726_init(g726_state_t *s, int bit_rate, int ext_coding, int packing); /*! Release a G.726 encode or decode context. \param s The G.726 context. \return 0 for OK. */ SPAN_DECLARE(int) g726_release(g726_state_t *s); /*! Free a G.726 encode or decode context. \param s The G.726 context. \return 0 for OK. */ SPAN_DECLARE(int) g726_free(g726_state_t *s); /*! Decode a buffer of G.726 ADPCM data to linear PCM, a-law or u-law. \param s The G.726 context. \param amp The audio sample buffer. \param g726_data \param g726_bytes \return The number of samples returned. */ SPAN_DECLARE(int) g726_decode(g726_state_t *s, int16_t amp[], const uint8_t g726_data[], int g726_bytes); /*! Encode a buffer of linear PCM data to G.726 ADPCM. \param s The G.726 context. \param g726_data The G.726 data produced. \param amp The audio sample buffer. \param len The number of samples in the buffer. \return The number of bytes of G.726 data produced. */ SPAN_DECLARE(int) g726_encode(g726_state_t *s, uint8_t g726_data[], const int16_t amp[], int len); #if defined(__cplusplus) } #endif #endif /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/spandsp/super_tone_rx.h0000664000175000017500000001433511422612264020111 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * super_tone_rx.h - Flexible telephony supervisory tone detection. * * Written by Steve Underwood * * Copyright (C) 2003 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #if !defined(_SPANDSP_SUPER_TONE_RX_H_) #define _SPANDSP_SUPER_TONE_RX_H_ /*! \page super_tone_rx_page Supervisory tone detection \section super_tone_rx_page_sec_1 What does it do? The supervisory tone detector may be configured to detect most of the world's telephone supervisory tones - things like ringback, busy, number unobtainable, and so on. \section super_tone_rx_page_sec_2 How does it work? The supervisory tone detector is passed a series of data structures describing the tone patterns - the frequencies and cadencing - of the tones to be searched for. It constructs one or more Goertzel filters to monitor the required tones. If tones are close in frequency a single Goertzel set to the centre of the frequency range will be used. This optimises the efficiency of the detector. The Goertzel filters are applied without applying any special window functional (i.e. they use a rectangular window), so they have a sinc like response. However, for most tone patterns their rejection qualities are adequate. The detector aims to meet the need of the standard call progress tones, to ITU-T E.180/Q.35 (busy, dial, ringback, reorder). Also, the extended tones, to ITU-T E.180, Supplement 2 and EIA/TIA-464-A (recall dial tone, special ringback tone, intercept tone, call waiting tone, busy verification tone, executive override tone, confirmation tone). */ /*! Tone detection indication callback routine */ typedef void (*tone_report_func_t)(void *user_data, int code, int level, int delay); typedef struct super_tone_rx_segment_s super_tone_rx_segment_t; typedef struct super_tone_rx_descriptor_s super_tone_rx_descriptor_t; typedef struct super_tone_rx_state_s super_tone_rx_state_t; #if defined(__cplusplus) extern "C" { #endif /*! Create a new supervisory tone detector descriptor. \param desc The supervisory tone set desciptor. If NULL, the routine will allocate space for a descriptor. \return The supervisory tone set descriptor. */ SPAN_DECLARE(super_tone_rx_descriptor_t *) super_tone_rx_make_descriptor(super_tone_rx_descriptor_t *desc); /*! Free a supervisory tone detector descriptor. \param desc The supervisory tone set desciptor. \return 0 for OK, -1 for fail. */ SPAN_DECLARE(int) super_tone_rx_free_descriptor(super_tone_rx_descriptor_t *desc); /*! Add a new tone pattern to a supervisory tone detector set. \param desc The supervisory tone set descriptor. \return The new tone ID. */ SPAN_DECLARE(int) super_tone_rx_add_tone(super_tone_rx_descriptor_t *desc); /*! Add a new tone pattern element to a tone pattern in a supervisory tone detector. \param desc The supervisory tone set desciptor. \param tone The tone ID within the descriptor. \param f1 Frequency 1 (-1 for a silent period). \param f2 Frequency 2 (-1 for a silent period, or only one frequency). \param min The minimum duration, in ms. \param max The maximum duration, in ms. \return The new number of elements in the tone description. */ SPAN_DECLARE(int) super_tone_rx_add_element(super_tone_rx_descriptor_t *desc, int tone, int f1, int f2, int min, int max); /*! Initialise a supervisory tone detector. \param s The supervisory tone detector context. \param desc The tone descriptor. \param callback The callback routine called to report the valid detection or termination of one of the monitored tones. \param user_data An opaque pointer passed when calling the callback routine. \return The supervisory tone detector context. */ SPAN_DECLARE(super_tone_rx_state_t *) super_tone_rx_init(super_tone_rx_state_t *s, super_tone_rx_descriptor_t *desc, tone_report_func_t callback, void *user_data); /*! Release a supervisory tone detector. \param s The supervisory tone context. \return 0 for OK, -1 for fail. */ SPAN_DECLARE(int) super_tone_rx_release(super_tone_rx_state_t *s); /*! Free a supervisory tone detector. \param s The supervisory tone context. \return 0 for OK, -1 for fail. */ SPAN_DECLARE(int) super_tone_rx_free(super_tone_rx_state_t *s); /*! Define a callback routine to be called each time a tone pattern element is complete. This is mostly used when analysing a tone. \param s The supervisory tone context. \param callback The callback routine. */ SPAN_DECLARE(void) super_tone_rx_segment_callback(super_tone_rx_state_t *s, void (*callback)(void *data, int f1, int f2, int duration)); /*! Apply supervisory tone detection processing to a block of audio samples. \brief Apply supervisory tone detection processing to a block of audio samples. \param super The supervisory tone context. \param amp The audio sample buffer. \param samples The number of samples in the buffer. \return The number of samples processed. */ SPAN_DECLARE(int) super_tone_rx(super_tone_rx_state_t *super, const int16_t amp[], int samples); #if defined(__cplusplus) } #endif #endif /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/spandsp/timing.h0000664000175000017500000000432111422612264016476 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * timing.h - Provide access to the Pentium/Athlon TSC timer register * * Written by Steve Underwood * * Copyright (C) 2001 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #if !defined(_SPANDSP_TIMING_H_) #define _SPANDSP_TIMING_H_ #if defined(__cplusplus) extern "C" { #endif #if defined(__MSVC__) __declspec(naked) unsigned __int64 __cdecl rdtscll(void) { __asm { rdtsc ret ; return value at EDX:EAX } } /*- End of function --------------------------------------------------------*/ #elif defined(__GNUC__) #if defined(__i386__) static __inline__ uint64_t rdtscll(void) { uint64_t now; __asm__ __volatile__(" rdtsc\n" : "=A" (now)); return now; } /*- End of function --------------------------------------------------------*/ #elif defined(__x86_64__) static __inline__ uint64_t rdtscll(void) { uint32_t a; uint32_t d; /* For x86_64 we need to merge the result in 2 32 bit registers into one clean 64 bit result. */ __asm__ __volatile__(" rdtsc\n" : "=a" (a), "=d" (d)); return ((uint64_t) a) | (((uint64_t) d) << 32); } /*- End of function --------------------------------------------------------*/ #else static __inline__ uint64_t rdtscll(void) { /* This architecture doesn't have a suitable timer */ return 0llu; } /*- End of function --------------------------------------------------------*/ #endif #endif #if defined(__cplusplus) } #endif #endif /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/spandsp/noise.h0000664000175000017500000001120611422612264016324 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * noise.h - A low complexity audio noise generator, suitable for * real time generation (current just approx AWGN) * * Written by Steve Underwood * * Copyright (C) 2005 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \file */ #if !defined(_SPANDSP_NOISE_H_) #define _SPANDSP_NOISE_H_ /*! \page noise_page Noise generation \section noise_page_sec_1 What does it do? It generates audio noise. Currently it only generates reasonable quality AWGN. It is designed to be of sufficiently low complexity to generate large volumes of reasonable quality noise, in real time. Hoth noise is used to model indoor ambient noise when evaluating communications systems such as telephones. It is named after D.F. Hoth, who made the first systematic study of this. The official definition of Hoth noise is IEEE standard 269-2001 (revised from 269-1992), "Draft Standard Methods for Measuring Transmission Performance of Analog and Digital Telephone Sets, Handsets and Headsets." The table below gives the spectral density of Hoth noise, adjusted in level to produce a reading of 50 dBA. Freq (Hz) Spectral Bandwidth Total power in density 10 log_f each 1/3 octave band (dB SPL/Hz) (dB) (dB SPL) 100 32.4 13.5 45.9 125 30.9 14.7 45.5 160 29.1 15.7 44.9 200 27.6 16.5 44.1 250 26.0 17.6 43.6 315 24.4 18.7 43.1 400 22.7 19.7 42.3 500 21.1 20.6 41.7 630 19.5 21.7 41.2 800 17.8 22.7 40.4 1000 16.2 23.5 39.7 1250 14.6 24.7 39.3 1600 12.9 25.7 38.7 2000 11.3 26.5 37.8 2500 9.6 27.6 37.2 3150 7.8 28.7 36.5 4000 5.4 29.7 34.8 5000 2.6 30.6 33.2 6300 -1.3 31.7 30.4 8000 -6.6 32.7 26.0 The tolerance for each 1/3rd octave band is ¡Ó3dB. \section awgn_page_sec_2 How does it work? The central limit theorem says if you add a few random numbers together, the result starts to look Gaussian. In this case we sum 8 random numbers. The result is fast, and perfectly good as a noise source for many purposes. It should not be trusted as a high quality AWGN generator, for elaborate modelling purposes. */ enum { NOISE_CLASS_AWGN = 1, NOISE_CLASS_HOTH }; /*! Noise generator descriptor. This contains all the state information for an instance of the noise generator. */ typedef struct noise_state_s noise_state_t; #if defined(__cplusplus) extern "C" { #endif /*! Initialise an audio noise generator. \brief Initialise an audio noise generator. \param s The noise generator context. \param seed A seed for the underlying random number generator. \param level The noise power level in dBmO. \param class_of_noise The class of noise (e.g. AWGN). \param quality A parameter which permits speed and accuracy of the noise generation to be adjusted. \return A pointer to the noise generator context. */ SPAN_DECLARE(noise_state_t *) noise_init_dbm0(noise_state_t *s, int seed, float level, int class_of_noise, int quality); SPAN_DECLARE(noise_state_t *) noise_init_dbov(noise_state_t *s, int seed, float level, int class_of_noise, int quality); SPAN_DECLARE(int) noise_release(noise_state_t *s); SPAN_DECLARE(int) noise_free(noise_state_t *s); /*! Generate a sample of audio noise. \brief Generate a sample of audio noise. \param s The noise generator context. \return The generated sample. */ SPAN_DECLARE(int16_t) noise(noise_state_t *s); #if defined(__cplusplus) } #endif #endif /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/spandsp/expose.h0000664000175000017500000000656211422612264016523 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * expose.h - Expose the internal structures of spandsp, for users who * really need that. * * Written by Steve Underwood * * Copyright (C) 2008 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \file */ /* TRY TO ONLY INCLUDE THIS IF YOU REALLY REALLY HAVE TO */ #if !defined(_SPANDSP_EXPOSE_H_) #define _SPANDSP_EXPOSE_H_ #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include /*#include */ /*#include */ #include #include #include #include #include /*#include */ /*#include */ #include #include #include #include #include #include #include #include #include #include #include #include #include #include #endif /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/spandsp/v22bis.h0000664000175000017500000002327511422612265016330 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * v22bis.h - ITU V.22bis modem * * Written by Steve Underwood * * Copyright (C) 2004 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \file */ /*! \page v22bis_page The V.22bis modem \section v22bis_page_sec_1 What does it do? The V.22bis modem is a duplex modem for general data use on the PSTN, at rates of 1200 and 2400 bits/second. It is a compatible extension of the V.22 modem, which is a 1200 bits/second only design. It is a band-split design, using carriers of 1200Hz and 2400Hz. It is the fastest PSTN modem in general use which does not use echo-cancellation. \section v22bis__page_sec_2 How does it work? V.22bis uses 4PSK modulation at 1200 bits/second or 16QAM modulation at 2400 bits/second. At 1200bps the symbols are so long that a fixed compromise equaliser is sufficient to recover the 4PSK signal reliably. At 2400bps an adaptive equaliser is necessary. The V.22bis training sequence includes sections which allow the modems to determine if the far modem can support (or is willing to support) 2400bps operation. The modems will automatically use 2400bps if both ends are willing to use that speed, or 1200bps if one or both ends to not acknowledge that 2400bps is OK. */ #if !defined(_SPANDSP_V22BIS_H_) #define _SPANDSP_V22BIS_H_ enum { V22BIS_GUARD_TONE_NONE, V22BIS_GUARD_TONE_550HZ, V22BIS_GUARD_TONE_1800HZ }; /*! V.22bis modem descriptor. This defines the working state for a single instance of a V.22bis modem. */ typedef struct v22bis_state_s v22bis_state_t; extern const complexf_t v22bis_constellation[16]; #if defined(__cplusplus) extern "C" { #endif /*! Process a block of received V.22bis modem audio samples. \brief Process a block of received V.22bis modem audio samples. \param s The modem context. \param amp The audio sample buffer. \param len The number of samples in the buffer. \return The number of samples unprocessed. */ SPAN_DECLARE_NONSTD(int) v22bis_rx(v22bis_state_t *s, const int16_t amp[], int len); /*! Fake processing of a missing block of received V.22bis modem audio samples. (e.g due to packet loss). \brief Fake processing of a missing block of received V.22bis modem audio samples. \param s The modem context. \param len The number of samples to fake. \return The number of samples unprocessed. */ SPAN_DECLARE_NONSTD(int) v22bis_rx_fillin(v22bis_state_t *s, int len); /*! Get a snapshot of the current equalizer coefficients. \brief Get a snapshot of the current equalizer coefficients. \param coeffs The vector of complex coefficients. \return The number of coefficients in the vector. */ SPAN_DECLARE(int) v22bis_rx_equalizer_state(v22bis_state_t *s, complexf_t **coeffs); /*! Get the current received carrier frequency. \param s The modem context. \return The frequency, in Hertz. */ SPAN_DECLARE(float) v22bis_rx_carrier_frequency(v22bis_state_t *s); /*! Get the current symbol timing correction since startup. \param s The modem context. \return The correction. */ SPAN_DECLARE(float) v22bis_rx_symbol_timing_correction(v22bis_state_t *s); /*! Get a current received signal power. \param s The modem context. \return The signal power, in dBm0. */ SPAN_DECLARE(float) v22bis_rx_signal_power(v22bis_state_t *s); /*! Set the power level at which the carrier detection will cut in \param s The modem context. \param cutoff The signal cutoff power, in dBm0. */ SPAN_DECLARE(void) v22bis_rx_signal_cutoff(v22bis_state_t *s, float cutoff); /*! Set a handler routine to process QAM status reports \param s The modem context. \param handler The handler routine. \param user_data An opaque pointer passed to the handler routine. */ SPAN_DECLARE(void) v22bis_rx_set_qam_report_handler(v22bis_state_t *s, qam_report_handler_t handler, void *user_data); /*! Generate a block of V.22bis modem audio samples. \brief Generate a block of V.22bis modem audio samples. \param s The modem context. \param amp The audio sample buffer. \param len The number of samples to be generated. \return The number of samples actually generated. */ SPAN_DECLARE_NONSTD(int) v22bis_tx(v22bis_state_t *s, int16_t amp[], int len); /*! Adjust a V.22bis modem transmit context's power output. \brief Adjust a V.22bis modem transmit context's output power. \param s The modem context. \param power The power level, in dBm0 */ SPAN_DECLARE(void) v22bis_tx_power(v22bis_state_t *s, float power); /*! Reinitialise an existing V.22bis modem context, so it may be reused. \brief Reinitialise an existing V.22bis modem context. \param s The modem context. \param bit_rate The bit rate of the modem. Valid values are 1200 and 2400. \return 0 for OK, -1 for bad parameter. */ SPAN_DECLARE(int) v22bis_restart(v22bis_state_t *s, int bit_rate); /*! Request a retrain for a V.22bis modem context. A rate change may also be requested. \brief Request a retrain for a V.22bis modem context. \param s The modem context. \param bit_rate The bit rate of the modem. Valid values are 1200 and 2400. \return 0 for OK, -1 for request rejected. */ SPAN_DECLARE(int) v22bis_request_retrain(v22bis_state_t *s, int bit_rate); /*! Request a loopback 2 for a V.22bis modem context. \brief Request a loopback 2 for a V.22bis modem context. \param s The modem context. \param enable TRUE to enable loopback, or FALSE to disable it. \return 0 for OK, -1 for request reject. */ SPAN_DECLARE(int) v22bis_remote_loopback(v22bis_state_t *s, int enable); /*! Report the current operating bit rate of a V.22bis modem context. \brief Report the current operating bit rate of a V.22bis modem context \param s The modem context. */ SPAN_DECLARE(int) v22bis_get_current_bit_rate(v22bis_state_t *s); /*! Initialise a V.22bis modem context. This must be called before the first use of the context, to initialise its contents. \brief Initialise a V.22bis modem context. \param s The modem context. \param bit_rate The bit rate of the modem. Valid values are 1200 and 2400. \param guard The guard tone option. 0 = none, 1 = 550Hz, 2 = 1800Hz. \param calling_party TRUE if this is the calling modem. \param get_bit The callback routine used to get the data to be transmitted. \param put_bit The callback routine used to get the data to be transmitted. \param user_data An opaque pointer, passed in calls to the get and put routines. \return A pointer to the modem context, or NULL if there was a problem. */ SPAN_DECLARE(v22bis_state_t *) v22bis_init(v22bis_state_t *s, int bit_rate, int guard, int calling_party, get_bit_func_t get_bit, void *get_bit_user_data, put_bit_func_t put_bit, void *put_bit_user_data); /*! Release a V.22bis modem receive context. \brief Release a V.22bis modem receive context. \param s The modem context. \return 0 for OK */ SPAN_DECLARE(int) v22bis_release(v22bis_state_t *s); /*! Free a V.22bis modem receive context. \brief Free a V.22bis modem receive context. \param s The modem context. \return 0 for OK */ SPAN_DECLARE(int) v22bis_free(v22bis_state_t *s); /*! Get the logging context associated with a V.22bis modem context. \brief Get the logging context associated with a V.22bis modem context. \param s The modem context. \return A pointer to the logging context */ SPAN_DECLARE(logging_state_t *) v22bis_get_logging_state(v22bis_state_t *s); /*! Change the get_bit function associated with a V.22bis modem context. \brief Change the get_bit function associated with a V.22bis modem context. \param s The modem context. \param get_bit The callback routine used to get the data to be transmitted. \param user_data An opaque pointer. */ SPAN_DECLARE(void) v22bis_set_get_bit(v22bis_state_t *s, get_bit_func_t get_bit, void *user_data); /*! Change the get_bit function associated with a V.22bis modem context. \brief Change the put_bit function associated with a V.22bis modem context. \param s The modem context. \param put_bit The callback routine used to process the data received. \param user_data An opaque pointer. */ SPAN_DECLARE(void) v22bis_set_put_bit(v22bis_state_t *s, put_bit_func_t put_bit, void *user_data); /*! Change the modem status report function associated with a V.22bis modem receive context. \brief Change the modem status report function associated with a V.22bis modem receive context. \param s The modem context. \param handler The callback routine used to report modem status changes. \param user_data An opaque pointer. */ SPAN_DECLARE(void) v22bis_set_modem_status_handler(v22bis_state_t *s, modem_rx_status_func_t handler, void *user_data); #if defined(__cplusplus) } #endif #endif /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/spandsp/t35.h0000664000175000017500000000475611422612264015636 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * t35.h - ITU T.35 FAX non-standard facility processing. * * Written by Steve Underwood * * Copyright (C) 2003 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \file */ #if !defined(_SPANDSP_T35_H_) #define _SPANDSP_T35_H_ /*! \page t35_page T.35 manufacturer specific processing for FAX machines \section t35_page_sec_1 What does it do? ???. \section t35_page_sec_2 How does it work? ???. */ /*! A table of the country names associated with each possible value of the T.35 country code selector octet. */ extern const char *t35_country_codes[256]; #if defined(__cplusplus) extern "C" { #endif /*! Decode an NSF field to try to determine the make and model of the remote machine. \brief Decode an NSF field. \param msg The NSF message. \param len The length of the NSF message. \param country A pointer which will be pointed to the identified country of origin. If a NULL pointer is given, the country of origin will not be returned. If the country of origin is not identified, NULL will be returned. \param vendor A pointer which will be pointed to the identified vendor. If a NULL pointer is given, the vendor ID will not be returned. If the vendor is not identified, NULL will be returned. \param model A pointer which will be pointed to the identified model. If a NULL pointer is given, the model will not be returned. If the model is not identified, NULL will be returned. \return TRUE if the machine was identified, otherwise FALSE. */ SPAN_DECLARE(int) t35_decode(const uint8_t *msg, int len, const char **country, const char **vendor, const char **model); #if defined(__cplusplus) } #endif #endif /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/spandsp/v17tx.h0000664000175000017500000001721511422612264016206 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * v17tx.h - ITU V.17 modem transmit part * * Written by Steve Underwood * * Copyright (C) 2004 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \file */ #if !defined(_SPANDSP_V17TX_H_) #define _SPANDSP_V17TX_H_ /*! \page v17tx_page The V.17 transmitter \section v17tx_page_sec_1 What does it do? The V.17 transmitter implements the transmit side of a V.17 modem. This can operate at data rates of 14400, 12000, 9600 and 7200 bits/second. The audio output is a stream of 16 bit samples, at 8000 samples/second. The transmit and receive side of V.17 modems operate independantly. V.17 is mostly used for FAX transmission, where it provides the standard 14400 bits/second rate. \section v17tx_page_sec_2 How does it work? V.17 uses QAM modulation and trellis coding. The data to be transmitted is scrambled, to whiten it. The least significant 2 bits of each symbol are then differentially encoded, using a simple lookup approach. The resulting 2 bits are convolutionally encoded, producing 3 bits. The extra bit is the redundant bit of the trellis code. The other bits of the symbol pass by the differential and convolutional coding unchanged. The resulting bits define the constellation point to be transmitted for the symbol. The redundant bit doubles the size of the constellation, and so increases the error rate for detecting individual symbols at the receiver. However, when a number of successive symbols are processed at the receiver, the redundancy actually provides several dB of improved error performance. The standard method of producing a QAM modulated signal is to use a sampling rate which is a multiple of the baud rate. The raw signal is then a series of complex pulses, each an integer number of samples long. These can be shaped, using a suitable complex filter, and multiplied by a complex carrier signal to produce the final QAM signal for transmission. The pulse shaping filter is only vaguely defined by the V.17 spec. Some of the other ITU modem specs. fully define the filter, typically specifying a root raised cosine filter, with 50% excess bandwidth. This is a pity, since it increases the variability of the received signal. However, the receiver's adaptive equalizer will compensate for these differences. The current design uses a root raised cosine filter with 25% excess bandwidth. Greater excess bandwidth will not allow the tranmitted signal to meet the spectral requirements. The sampling rate for our transmitter is defined by the channel - 8000 per second. This is not a multiple of the baud rate (i.e. 2400 baud). The baud interval is actually 10/3 sample periods. Instead of using a symmetric FIR to pulse shape the signal, a polyphase filter is used. This consists of 10 sets of coefficients, offering zero to 9/10ths of a baud phase shift as well as root raised cosine filtering. The appropriate coefficient set is chosen for each signal sample generated. The carrier is generated using the DDS method. Using two second order resonators, started in quadrature, might be more efficient, as it would have less impact on the processor cache than a table lookup approach. However, the DDS approach suits the receiver better, so the same signal generator is also used for the transmitter. */ /*! V.17 modem transmit side descriptor. This defines the working state for a single instance of a V.17 modem transmitter. */ typedef struct v17_tx_state_s v17_tx_state_t; #if defined(__cplusplus) extern "C" { #endif /*! Adjust a V.17 modem transmit context's power output. \brief Adjust a V.17 modem transmit context's output power. \param s The modem context. \param power The power level, in dBm0 */ SPAN_DECLARE(void) v17_tx_power(v17_tx_state_t *s, float power); /*! Initialise a V.17 modem transmit context. This must be called before the first use of the context, to initialise its contents. \brief Initialise a V.17 modem transmit context. \param s The modem context. \param bit_rate The bit rate of the modem. Valid values are 7200, 9600, 12000 and 14400. \param tep TRUE is the optional TEP tone is to be transmitted. \param get_bit The callback routine used to get the data to be transmitted. \param user_data An opaque pointer. \return A pointer to the modem context, or NULL if there was a problem. */ SPAN_DECLARE(v17_tx_state_t *) v17_tx_init(v17_tx_state_t *s, int bit_rate, int tep, get_bit_func_t get_bit, void *user_data); /*! Reinitialise an existing V.17 modem transmit context, so it may be reused. \brief Reinitialise an existing V.17 modem transmit context. \param s The modem context. \param bit_rate The bit rate of the modem. Valid values are 7200, 9600, 12000 and 14400. \param tep TRUE is the optional TEP tone is to be transmitted. \param short_train TRUE if the short training sequence should be used. \return 0 for OK, -1 for parameter error. */ SPAN_DECLARE(int) v17_tx_restart(v17_tx_state_t *s, int bit_rate, int tep, int short_train); /*! Release a V.17 modem transmit context. \brief Release a V.17 modem transmit context. \param s The modem context. \return 0 for OK */ SPAN_DECLARE(int) v17_tx_release(v17_tx_state_t *s); /*! Free a V.17 modem transmit context. \brief Free a V.17 modem transmit context. \param s The modem context. \return 0 for OK */ SPAN_DECLARE(int) v17_tx_free(v17_tx_state_t *s); /*! Get the logging context associated with a V.17 modem transmit context. \brief Get the logging context associated with a V.17 modem transmit context. \param s The modem context. \return A pointer to the logging context */ SPAN_DECLARE(logging_state_t *) v17_tx_get_logging_state(v17_tx_state_t *s); /*! Change the get_bit function associated with a V.17 modem transmit context. \brief Change the get_bit function associated with a V.17 modem transmit context. \param s The modem context. \param get_bit The callback routine used to get the data to be transmitted. \param user_data An opaque pointer. */ SPAN_DECLARE(void) v17_tx_set_get_bit(v17_tx_state_t *s, get_bit_func_t get_bit, void *user_data); /*! Change the modem status report function associated with a V.17 modem transmit context. \brief Change the modem status report function associated with a V.17 modem transmit context. \param s The modem context. \param handler The callback routine used to report modem status changes. \param user_data An opaque pointer. */ SPAN_DECLARE(void) v17_tx_set_modem_status_handler(v17_tx_state_t *s, modem_tx_status_func_t handler, void *user_data); /*! Generate a block of V.17 modem audio samples. \brief Generate a block of V.17 modem audio samples. \param s The modem context. \param amp The audio sample buffer. \param len The number of samples to be generated. \return The number of samples actually generated. */ SPAN_DECLARE_NONSTD(int) v17_tx(v17_tx_state_t *s, int16_t amp[], int len); #if defined(__cplusplus) } #endif #endif /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/spandsp/silence_gen.h0000664000175000017500000001302611422612264017464 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * silence_gen.c - A silence generator, for inserting timed silences. * * Written by Steve Underwood * * Copyright (C) 2006 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #if !defined(_SPANDSP_SILENCE_GEN_H_) #define _SPANDSP_SILENCE_GEN_H_ typedef struct silence_gen_state_s silence_gen_state_t; #if defined(__cplusplus) extern "C" { #endif /*! Generate a block of silent audio samples. \brief Generate a block of silent audio samples. \param s The silence generator context. \param amp The audio sample buffer. \param max_len The number of samples to be generated. \return The number of samples actually generated. This will be zero when there is nothing to send. */ SPAN_DECLARE_NONSTD(int) silence_gen(silence_gen_state_t *s, int16_t *amp, int max_len); /*! Set a silence generator context to output continuous silence. \brief Set a silence generator context to output continuous silence. \param s The silence generator context. */ SPAN_DECLARE(void) silence_gen_always(silence_gen_state_t *s); /*! Set a silence generator context to output a specified period of silence. \brief Set a silence generator context to output a specified period of silence. \param s The silence generator context. \param silent_samples The number of samples to be generated. */ SPAN_DECLARE(void) silence_gen_set(silence_gen_state_t *s, int silent_samples); /*! Alter the period of a silence generator context by a specified amount. \brief Alter the period of a silence generator context by a specified amount. \param s The silence generator context. \param silent_samples The number of samples to change the setting by. A positive number increases the duration. A negative number reduces it. The duration is prevented from going negative. */ SPAN_DECLARE(void) silence_gen_alter(silence_gen_state_t *s, int silent_samples); /*! Find how long a silence generator context has to run. \brief Find how long a silence generator context has to run. \param s The silence generator context. \return The number of samples remaining. */ SPAN_DECLARE(int) silence_gen_remainder(silence_gen_state_t *s); /*! Find the total silence generated to date by a silence generator context. \brief Find the total silence generated to date. \param s The silence generator context. \return The number of samples generated. */ SPAN_DECLARE(int) silence_gen_generated(silence_gen_state_t *s); /*! Change the status reporting function associated with a silence generator context. \brief Change the status reporting function associated with a silence generator context. \param s The silence generator context. \param handler The callback routine used to report status changes. \param user_data An opaque pointer. */ SPAN_DECLARE(void) silence_gen_status_handler(silence_gen_state_t *s, modem_tx_status_func_t handler, void *user_data); /*! Initialise a timed silence generator context. \brief Initialise a timed silence generator context. \param s The silence generator context. \param silent_samples The initial number of samples to set the silence to. \return A pointer to the silence generator context. */ SPAN_DECLARE(silence_gen_state_t *) silence_gen_init(silence_gen_state_t *s, int silent_samples); SPAN_DECLARE(int) silence_gen_release(silence_gen_state_t *s); SPAN_DECLARE(int) silence_gen_free(silence_gen_state_t *s); /* The following dummy routines, to absorb data, don't really have a proper home, so they have been put here. */ /*! A dummy routine to use as a receive callback, when we aren't really trying to process what is received. It just absorbs and ignores the data. \brief Dummy receive callback. \param user_data The context. \param amp The signal.buffer \param len The length of the signal buffer \return 0. */ SPAN_DECLARE_NONSTD(int) span_dummy_rx(void *user_data, const int16_t amp[], int len); /*! A dummy routine to use as a signal modifier callback, when we aren't really trying to process the signal. It just returns without affecting anything. \brief Dummy signal modifier callback. \param user_data The context. \param amp The signal.buffer \param len The length of the signal buffer \return 0. */ SPAN_DECLARE(int) span_dummy_mod(void *user_data, int16_t amp[], int len); /*! A dummy routine to use as a receive fillin callback, when we aren't really trying to process what is received. It just absorbs and ignores the request. \brief Dummy receive fillin callback. \param user_data The context. \param len The length of the signal buffer \return 0. */ SPAN_DECLARE_NONSTD(int) span_dummy_rx_fillin(void *user_data, int len); #if defined(__cplusplus) } #endif #endif /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/spandsp/complex_filters.h0000664000175000017500000000347311422612264020415 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * complex_filters.h * * Written by Steve Underwood * * Copyright (C) 2003 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #if !defined(_SPANDSP_COMPLEX_FILTERS_H_) #define _SPANDSP_COMPLEX_FILTERS_H_ typedef struct filter_s filter_t; typedef float (*filter_step_func_t)(filter_t *fi, float x); /*! Filter state */ typedef struct { int nz; int np; filter_step_func_t fsf; } fspec_t; struct filter_s { fspec_t *fs; float sum; int ptr; /* Only for moving average filters */ float v[]; }; typedef struct { filter_t *ref; filter_t *imf; } cfilter_t; #if defined(__cplusplus) extern "C" { #endif SPAN_DECLARE(filter_t *) filter_create(fspec_t *fs); SPAN_DECLARE(void) filter_delete(filter_t *fi); SPAN_DECLARE(float) filter_step(filter_t *fi, float x); SPAN_DECLARE(cfilter_t *) cfilter_create(fspec_t *fs); SPAN_DECLARE(void) cfilter_delete(cfilter_t *cfi); SPAN_DECLARE(complexf_t) cfilter_step(cfilter_t *cfi, const complexf_t *z); #if defined(__cplusplus) } #endif #endif /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/spandsp/playout.h0000664000175000017500000001752011422612264016711 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * playout.h * * Written by Steve Underwood * * Copyright (C) 2005 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #if !defined(_SPANDSP_PLAYOUT_H_) #define _SPANDSP_PLAYOUT_H_ /*! \page playout_page Play-out (jitter buffering) \section playout_page_sec_1 What does it do? The play-out module provides a static or dynamic length buffer for received frames of audio or video data. It's goal is to maximise the receiver's tolerance of jitter in the timing of the received frames. Dynamic buffers are generally good for speech, since they adapt to provide the smallest delay consistent with a low rate of packets arriving too late to be used. For things like FoIP and MoIP, a static length of buffer is normally necessary. Any attempt to elastically change the buffer length would wreck a modem's data flow. */ /* Return codes */ enum { PLAYOUT_OK = 0, PLAYOUT_ERROR, PLAYOUT_EMPTY, PLAYOUT_NOFRAME, PLAYOUT_FILLIN, PLAYOUT_DROP }; /* Frame types */ #define PLAYOUT_TYPE_CONTROL 0 #define PLAYOUT_TYPE_SILENCE 1 #define PLAYOUT_TYPE_SPEECH 2 typedef int timestamp_t; typedef struct playout_frame_s { /*! The actual frame data */ void *data; /*! The type of frame */ int type; /*! The timestamp assigned by the sending end */ timestamp_t sender_stamp; /*! The timespan covered by the data in this frame */ timestamp_t sender_len; /*! The timestamp assigned by the receiving end */ timestamp_t receiver_stamp; /*! Pointer to the next earlier frame */ struct playout_frame_s *earlier; /*! Pointer to the next later frame */ struct playout_frame_s *later; } playout_frame_t; /*! Playout (jitter buffer) descriptor. This defines the working state for a single instance of playout buffering. */ typedef struct { /*! TRUE if the buffer is dynamically sized */ int dynamic; /*! The minimum length (dynamic) or fixed length (static) of the buffer */ int min_length; /*! The maximum length (dynamic) or fixed length (static) of the buffer */ int max_length; /*! The target filter threshold for adjusting dynamic buffering. */ int dropable_threshold; int start; /*! The queued frame list */ playout_frame_t *first_frame; playout_frame_t *last_frame; /*! The free frame pool */ playout_frame_t *free_frames; /*! The total frames input to the buffer, to date. */ int frames_in; /*! The total frames output from the buffer, to date. */ int frames_out; /*! The number of frames received out of sequence. */ int frames_oos; /*! The number of frames which were discarded, due to late arrival. */ int frames_late; /*! The number of frames which were never received. */ int frames_missing; /*! The number of frames trimmed from the stream, due to buffer shrinkage. */ int frames_trimmed; timestamp_t latest_expected; /*! The present jitter adjustment */ timestamp_t current; /*! The sender_stamp of the last speech frame */ timestamp_t last_speech_sender_stamp; /*! The duration of the last speech frame */ timestamp_t last_speech_sender_len; int not_first; /*! The time since the target buffer length was last changed. */ timestamp_t since_last_step; /*! Filter state for tracking the packets arriving just in time */ int32_t state_just_in_time; /*! Filter state for tracking the packets arriving late */ int32_t state_late; /*! The current target length of the buffer */ int target_buffer_length; /*! The current actual length of the buffer, which may lag behind the target value */ int actual_buffer_length; } playout_state_t; #if defined(__cplusplus) extern "C" { #endif /*! Queue a frame \param s The play-out context. \param data The frame data. \param sender_len Length of frame (for voice) in timestamp units. \param sender_stamp Sending end's time stamp. \param receiver_stamp Local time at which packet was received, in timestamp units. \return One of PLAYOUT_OK: Frame queued OK. PLAYOUT_ERROR: Some problem occured - e.g. out of memory. */ SPAN_DECLARE(int) playout_put(playout_state_t *s, void *data, int type, timestamp_t sender_len, timestamp_t sender_stamp, timestamp_t receiver_stamp); /*! Get the next frame. \param s The play-out context. \param frame The frame. \param sender_stamp The sender's timestamp. \return One of PLAYOUT_OK: Suitable frame found. PLAYOUT_DROP: A frame which should be dropped was found (e.g. it arrived too late). The caller should request the same time again when this occurs. PLAYOUT_NOFRAME: There's no frame scheduled for this time. PLAYOUT_FILLIN: Synthetic signal must be generated, as no real data is available for this time (either we need to grow, or there was a lost frame). PLAYOUT_EMPTY: The buffer is empty. */ SPAN_DECLARE(int) playout_get(playout_state_t *s, playout_frame_t *frame, timestamp_t sender_stamp); /*! Unconditionally get the first buffered frame. This may be used to clear out the queue, and free all its contents, before the context is freed. \param s The play-out context. \return The frame, or NULL is the queue is empty. */ SPAN_DECLARE(playout_frame_t *) playout_get_unconditional(playout_state_t *s); /*! Find the current length of the buffer. \param s The play-out context. \return The length of the buffer. */ SPAN_DECLARE(timestamp_t) playout_current_length(playout_state_t *s); /*! Find the time at which the next queued frame is due to play. Note: This value may change backwards as freshly received out of order frames are added to the buffer. \param s The play-out context. \return The next timestamp. */ SPAN_DECLARE(timestamp_t) playout_next_due(playout_state_t *s); /*! Reset an instance of play-out buffering. NOTE: The buffer should be empty before you call this function, otherwise you will leak queued frames, and some internal structures \param s The play-out context. \param min_length Minimum length of the buffer, in samples. \param max_length Maximum length of the buffer, in samples. If this equals min_length, static length buffering is used. */ SPAN_DECLARE(void) playout_restart(playout_state_t *s, int min_length, int max_length); /*! Create a new instance of play-out buffering. \param min_length Minimum length of the buffer, in samples. \param max_length Maximum length of the buffer, in samples. If this equals min_length, static length buffering is used. \return The new context */ SPAN_DECLARE(playout_state_t *) playout_init(int min_length, int max_length); /*! Release an instance of play-out buffering. \param s The play-out context to be releaased \return 0 if OK, else -1 */ SPAN_DECLARE(int) playout_release(playout_state_t *s); /*! Free an instance of play-out buffering. \param s The play-out context to be destroyed \return 0 if OK, else -1 */ SPAN_DECLARE(int) playout_free(playout_state_t *s); #if defined(__cplusplus) } #endif #endif /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/spandsp/bell_r2_mf.h0000664000175000017500000002611611422612263017217 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * bell_r2_mf.h - Bell MF and MFC/R2 tone generation and detection. * * Written by Steve Underwood * * Copyright (C) 2001 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \file */ #if !defined(_SPANDSP_BELL_R2_MF_H_) #define _SPANDSP_BELL_R2_MF_H_ /*! \page mfc_r2_tone_generation_page MFC/R2 tone generation \section mfc_r2_tone_generation_page_sec_1 What does it do? The MFC/R2 tone generation module provides for the generation of the repertoire of 15 dual tones needs for the digital MFC/R2 signalling protocol. \section mfc_r2_tone_generation_page_sec_2 How does it work? */ /*! \page bell_mf_tone_generation_page Bell MF tone generation \section bell_mf_tone_generation_page_sec_1 What does it do? The Bell MF tone generation module provides for the generation of the repertoire of 15 dual tones needs for various Bell MF signalling protocols. \section bell_mf_tone_generation_page_sec_2 How does it work? Basic Bell MF tone generation specs: - Tone on time = KP: 100+-7ms. All other signals: 68+-7ms - Tone off time (between digits) = 68+-7ms - Frequency tolerance +- 1.5% - Signal level -7+-1dBm per frequency */ /*! \page mfc_r2_tone_rx_page MFC/R2 tone receiver \section mfc_r2_tone_rx_page_sec_1 What does it do? The MFC/R2 tone receiver module provides for the detection of the repertoire of 15 dual tones needs for the digital MFC/R2 signalling protocol. It is compliant with ITU-T Q.441D. \section mfc_r2_tone_rx_page_sec_2 How does it work? Basic MFC/R2 tone detection specs: - Receiver response range: -5dBm to -35dBm - Difference in level for a pair of frequencies - Adjacent tones: <5dB - Non-adjacent tones: <7dB - Receiver not to detect a signal of 2 frequencies of level -5dB and duration <7ms. - Receiver not to recognise a signal of 2 frequencies having a difference in level >=20dB. - Max received signal frequency error: +-10Hz - The sum of the operate and release times of a 2 frequency signal not to exceed 80ms (there are no individual specs for the operate and release times). - Receiver not to release for signal interruptions <=7ms. - System malfunction due to signal interruptions >7ms (typically 20ms) is prevented by further logic elements. */ /*! \page bell_mf_tone_rx_page Bell MF tone receiver \section bell_mf_tone_rx_page_sec_1 What does it do? The Bell MF tone receiver module provides for the detection of the repertoire of 15 dual tones needs for various Bell MF signalling protocols. It is compliant with ITU-T Q.320, ITU-T Q.322, ITU-T Q.323B. \section bell_mf_tone_rx_page_sec_2 How does it work? Basic Bell MF tone detection specs: - Frequency tolerance +- 1.5% +-10Hz - Signal level -14dBm to 0dBm - Perform a "two and only two tones present" test. - Twist <= 6dB accepted - Receiver sensitive to signals above -22dBm per frequency - Test for a minimum of 55ms if KP, or 30ms of other signals. - Signals to be recognised if the two tones arrive within 8ms of each other. - Invalid signals result in the return of the re-order tone. Note: Above -3dBm the signal starts to clip. We can detect with a little clipping, but not up to 0dBm, which the above spec seems to require. There isn't a lot we can do about that. Is the spec. incorrectly worded about the dBm0 reference point, or have I misunderstood it? */ /*! The maximum number of Bell MF digits we can buffer. */ #define MAX_BELL_MF_DIGITS 128 /*! Bell MF generator state descriptor. This defines the state of a single working instance of a Bell MF generator. */ typedef struct bell_mf_tx_state_s bell_mf_tx_state_t; /*! Bell MF digit detector descriptor. */ typedef struct bell_mf_rx_state_s bell_mf_rx_state_t; /*! MFC/R2 tone detector descriptor. */ typedef struct r2_mf_tx_state_s r2_mf_tx_state_t; /*! MFC/R2 tone detector descriptor. */ typedef struct r2_mf_rx_state_s r2_mf_rx_state_t; #if defined(__cplusplus) extern "C" { #endif /*! \brief Generate a buffer of Bell MF tones. \param s The Bell MF generator context. \param amp The buffer for the generated signal. \param max_samples The required number of generated samples. \return The number of samples actually generated. This may be less than max_samples if the input buffer empties. */ SPAN_DECLARE(int) bell_mf_tx(bell_mf_tx_state_t *s, int16_t amp[], int max_samples); /*! \brief Put a string of digits in a Bell MF generator's input buffer. \param s The Bell MF generator context. \param digits The string of digits to be added. \param len The length of the string of digits. If negative, the string is assumed to be a NULL terminated string. \return The number of digits actually added. This may be less than the length of the digit string, if the buffer fills up. */ SPAN_DECLARE(int) bell_mf_tx_put(bell_mf_tx_state_t *s, const char *digits, int len); /*! \brief Initialise a Bell MF generator context. \param s The Bell MF generator context. \return A pointer to the Bell MF generator context.*/ SPAN_DECLARE(bell_mf_tx_state_t *) bell_mf_tx_init(bell_mf_tx_state_t *s); /*! \brief Release a Bell MF generator context. \param s The Bell MF generator context. \return 0 for OK, else -1. */ SPAN_DECLARE(int) bell_mf_tx_release(bell_mf_tx_state_t *s); /*! \brief Free a Bell MF generator context. \param s The Bell MF generator context. \return 0 for OK, else -1. */ SPAN_DECLARE(int) bell_mf_tx_free(bell_mf_tx_state_t *s); /*! \brief Generate a block of R2 MF tones. \param s The R2 MF generator context. \param amp The buffer for the generated signal. \param samples The required number of generated samples. \return The number of samples actually generated. */ SPAN_DECLARE(int) r2_mf_tx(r2_mf_tx_state_t *s, int16_t amp[], int samples); /*! \brief Generate a block of R2 MF tones. \param s The R2 MF generator context. \param digit The digit to be generated. \return 0 for OK, or -1 for a bad request. */ SPAN_DECLARE(int) r2_mf_tx_put(r2_mf_tx_state_t *s, char digit); /*! \brief Initialise an R2 MF tone generator context. \param s The R2 MF generator context. \param fwd TRUE if the context is for forward signals. FALSE if the context is for backward signals. \return A pointer to the MFC/R2 generator context.*/ SPAN_DECLARE(r2_mf_tx_state_t *) r2_mf_tx_init(r2_mf_tx_state_t *s, int fwd); /*! \brief Release an R2 MF tone generator context. \param s The R2 MF tone generator context. \return 0 for OK, else -1. */ SPAN_DECLARE(int) r2_mf_tx_release(r2_mf_tx_state_t *s); /*! \brief Free an R2 MF tone generator context. \param s The R2 MF tone generator context. \return 0 for OK, else -1. */ SPAN_DECLARE(int) r2_mf_tx_free(r2_mf_tx_state_t *s); /*! Process a block of received Bell MF audio samples. \brief Process a block of received Bell MF audio samples. \param s The Bell MF receiver context. \param amp The audio sample buffer. \param samples The number of samples in the buffer. \return The number of samples unprocessed. */ SPAN_DECLARE(int) bell_mf_rx(bell_mf_rx_state_t *s, const int16_t amp[], int samples); /*! \brief Get a string of digits from a Bell MF receiver's output buffer. \param s The Bell MF receiver context. \param buf The buffer for the received digits. \param max The maximum number of digits to be returned, \return The number of digits actually returned. */ SPAN_DECLARE(size_t) bell_mf_rx_get(bell_mf_rx_state_t *s, char *buf, int max); /*! \brief Initialise a Bell MF receiver context. \param s The Bell MF receiver context. \param callback An optional callback routine, used to report received digits. If no callback routine is set, digits may be collected, using the bell_mf_rx_get() function. \param user_data An opaque pointer which is associated with the context, and supplied in callbacks. \return A pointer to the Bell MF receiver context.*/ SPAN_DECLARE(bell_mf_rx_state_t *) bell_mf_rx_init(bell_mf_rx_state_t *s, digits_rx_callback_t callback, void *user_data); /*! \brief Release a Bell MF receiver context. \param s The Bell MF receiver context. \return 0 for OK, else -1. */ SPAN_DECLARE(int) bell_mf_rx_release(bell_mf_rx_state_t *s); /*! \brief Free a Bell MF receiver context. \param s The Bell MF receiver context. \return 0 for OK, else -1. */ SPAN_DECLARE(int) bell_mf_rx_free(bell_mf_rx_state_t *s); /*! Process a block of received R2 MF audio samples. \brief Process a block of received R2 MF audio samples. \param s The R2 MF receiver context. \param amp The audio sample buffer. \param samples The number of samples in the buffer. \return The number of samples unprocessed. */ SPAN_DECLARE(int) r2_mf_rx(r2_mf_rx_state_t *s, const int16_t amp[], int samples); /*! \brief Get the current digit from an R2 MF receiver. \param s The R2 MF receiver context. \return The number digits being received. */ SPAN_DECLARE(int) r2_mf_rx_get(r2_mf_rx_state_t *s); /*! \brief Initialise an R2 MF receiver context. \param s The R2 MF receiver context. \param fwd TRUE if the context is for forward signals. FALSE if the context is for backward signals. \param callback An optional callback routine, used to report received digits. If no callback routine is set, digits may be collected, using the r2_mf_rx_get() function. \param user_data An opaque pointer which is associated with the context, and supplied in callbacks. \return A pointer to the R2 MF receiver context. */ SPAN_DECLARE(r2_mf_rx_state_t *) r2_mf_rx_init(r2_mf_rx_state_t *s, int fwd, tone_report_func_t callback, void *user_data); /*! \brief Release an R2 MF receiver context. \param s The R2 MF receiver context. \return 0 for OK, else -1. */ SPAN_DECLARE(int) r2_mf_rx_release(r2_mf_rx_state_t *s); /*! \brief Free an R2 MF receiver context. \param s The R2 MF receiver context. \return 0 for OK, else -1. */ SPAN_DECLARE(int) r2_mf_rx_free(r2_mf_rx_state_t *s); #if defined(__cplusplus) } #endif #endif /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/spandsp/image_translate.h0000664000175000017500000001063411422612264020352 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * image_translate.h - Image translation routines for reworking colour * and gray scale images to be bi-level images of an * appropriate size to be FAX compatible. * * Written by Steve Underwood * * Copyright (C) 2009 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \file */ #if !defined(_SPANDSP_IMAGE_TRANSLATE_H_) #define _SPANDSP_IMAGE_TRANSLATE_H_ /*! \page image_translate_page Image translation \section image_translate_page_sec_1 What does it do? \section image_translate_page_sec_2 How does it work? \section image_translate_page_sec_3 How do I use it? */ typedef struct image_translate_state_s image_translate_state_t; enum { IMAGE_TRANSLATE_FROM_MONO = 1, IMAGE_TRANSLATE_FROM_GRAY_8 = 2, IMAGE_TRANSLATE_FROM_GRAY_16 = 3, IMAGE_TRANSLATE_FROM_COLOUR_8 = 4, IMAGE_TRANSLATE_FROM_COLOUR_16 = 5 }; #if defined(__cplusplus) extern "C" { #endif /*! \brief Get the next row of a translated image. \param s The image translation context. \return the length of the row buffer, in bytes */ SPAN_DECLARE(int) image_translate_row(image_translate_state_t *s, uint8_t buf[], size_t len); /*! \brief Get the width of the image being produced by an image translation context. \param s The image translation context. \return The width of the output image, in pixel. */ SPAN_DECLARE(int) image_translate_get_output_width(image_translate_state_t *s); /*! \brief Get the length of the image being produced by an image translation context. \param s The image translation context. \return The length of the output image, in pixel. */ SPAN_DECLARE(int) image_translate_get_output_length(image_translate_state_t *s); /*! \brief Initialise an image translation context for rescaling and squashing a gray scale or colour image to a bi-level FAX type image. \param s The image translation context. \param input_format x \param input_width The width of the source image, in pixels. \param input_length The length of the source image, in pixels. \param output_width The width of the output image, in pixels. The length of the output image will be derived automatically from this and the source image dimension, to main the geometry of the original image. \param row_read_handler A callback routine used to pull rows of pixels from the source image into the translation process. \param row_read_user_data An opaque point passed to read_row_handler \return A pointer to the context, or NULL if there was a problem. */ SPAN_DECLARE(image_translate_state_t *) image_translate_init(image_translate_state_t *s, int input_format, int input_width, int input_length, int output_width, t4_row_read_handler_t row_read_handler, void *row_read_user_data); /*! \brief Release the resources associated with an image translation context. \param s The image translation context. \return 0 for success, otherwise -1. */ SPAN_DECLARE(int) image_translate_release(image_translate_state_t *s); /*! \brief Free the resources associated with an image translation context. \param s The image translation context. \return 0 for success, otherwise -1. */ SPAN_DECLARE(int) image_translate_free(image_translate_state_t *s); #if defined(__cplusplus) } #endif #endif /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/spandsp/private/0000775000175000017500000000000011516506111016505 5ustar steveusteveuspandsp-0.0.6/src/spandsp/private/v42bis.h0000664000175000017500000001071211422612265017774 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * private/v42bis.h * * Written by Steve Underwood * * Copyright (C) 2005 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #if !defined(_SPANDSP_PRIVATE_V42BIS_H_) #define _SPANDSP_PRIVATE_V42BIS_H_ /*! V.42bis dictionary node. */ typedef struct { /*! \brief The prior code for each defined code. */ uint16_t parent_code; /*! \brief The number of leaf nodes this node has */ int16_t leaves; /*! \brief This leaf octet for each defined code. */ uint8_t node_octet; /*! \brief Bit map of the children which exist */ uint32_t children[8]; } v42bis_dict_node_t; /*! V.42bis compression. This defines the working state for a single instance of V.42bis compression. */ typedef struct { /*! \brief Compression mode. */ int compression_mode; /*! \brief Callback function to handle received frames. */ v42bis_frame_handler_t handler; /*! \brief An opaque pointer passed in calls to frame_handler. */ void *user_data; /*! \brief The maximum frame length allowed */ int max_len; uint32_t string_code; uint32_t latest_code; int string_length; uint32_t output_bit_buffer; int output_bit_count; int output_octet_count; uint8_t output_buf[1024]; v42bis_dict_node_t dict[V42BIS_MAX_CODEWORDS]; /*! \brief TRUE if we are in transparent (i.e. uncompressable) mode */ int transparent; int change_transparency; /*! \brief IIR filter state, used in assessing compressibility. */ int compressibility_filter; int compressibility_persistence; /*! \brief Next empty dictionary entry */ uint32_t v42bis_parm_c1; /*! \brief Current codeword size */ int v42bis_parm_c2; /*! \brief Threshold for codeword size change */ uint32_t v42bis_parm_c3; /*! \brief Mark that this is the first octet/code to be processed */ int first; uint8_t escape_code; } v42bis_compress_state_t; /*! V.42bis decompression. This defines the working state for a single instance of V.42bis decompression. */ typedef struct { /*! \brief Callback function to handle decompressed data. */ v42bis_data_handler_t handler; /*! \brief An opaque pointer passed in calls to data_handler. */ void *user_data; /*! \brief The maximum decompressed data block length allowed */ int max_len; uint32_t old_code; uint32_t last_old_code; uint32_t input_bit_buffer; int input_bit_count; int octet; int last_length; int output_octet_count; uint8_t output_buf[1024]; v42bis_dict_node_t dict[V42BIS_MAX_CODEWORDS]; /*! \brief TRUE if we are in transparent (i.e. uncompressable) mode */ int transparent; int last_extra_octet; /*! \brief Next empty dictionary entry */ uint32_t v42bis_parm_c1; /*! \brief Current codeword size */ int v42bis_parm_c2; /*! \brief Threshold for codeword size change */ uint32_t v42bis_parm_c3; /*! \brief Mark that this is the first octet/code to be processed */ int first; uint8_t escape_code; int escaped; } v42bis_decompress_state_t; /*! V.42bis compression/decompression descriptor. This defines the working state for a single instance of V.42bis compress/decompression. */ struct v42bis_state_s { /*! \brief V.42bis data compression directions. */ int v42bis_parm_p0; /*! \brief Compression state. */ v42bis_compress_state_t compress; /*! \brief Decompression state. */ v42bis_decompress_state_t decompress; /*! \brief Maximum codeword size (bits) */ int v42bis_parm_n1; /*! \brief Total number of codewords */ uint32_t v42bis_parm_n2; /*! \brief Maximum string length */ int v42bis_parm_n7; }; #endif /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/spandsp/private/echo.h0000664000175000017500000000501211422612265017576 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * private/echo.h - An echo cancellor, suitable for electrical and acoustic * cancellation. This code does not currently comply with * any relevant standards (e.g. G.164/5/7/8). * * Written by Steve Underwood * * Copyright (C) 2001 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \file */ #if !defined(_SPANDSP_PRIVATE_ECHO_H_) #define _SPANDSP_PRIVATE_ECHO_H_ /*! G.168 echo canceller descriptor. This defines the working state for a line echo canceller. */ struct echo_can_state_s { int tx_power[4]; int rx_power[3]; int clean_rx_power; int rx_power_threshold; int nonupdate_dwell; int curr_pos; int taps; int tap_mask; int adaption_mode; int32_t supp_test1; int32_t supp_test2; int32_t supp1; int32_t supp2; int vad; int cng; int16_t geigel_max; int geigel_lag; int dtd_onset; int tap_set; int tap_rotate_counter; int32_t latest_correction; /* Indication of the magnitude of the latest adaption, or a code to indicate why adaption was skipped, for test purposes */ int32_t last_acf[28]; int narrowband_count; int narrowband_score; fir16_state_t fir_state; /*! Echo FIR taps (16 bit version) */ int16_t *fir_taps16[4]; /*! Echo FIR taps (32 bit version) */ int32_t *fir_taps32; /* DC and near DC blocking filter states */ int32_t tx_hpf[2]; int32_t rx_hpf[2]; /* Parameters for the optional Hoth noise generator */ int cng_level; int cng_rndnum; int cng_filter; /* Snapshot sample of coeffs used for development */ int16_t *snapshot; }; #endif /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/spandsp/private/gsm0610.h0000664000175000017500000000326411422612265017764 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * private/gsm0610.h - GSM 06.10 full rate speech codec. * * Written by Steve Underwood * * Copyright (C) 2006 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #if !defined(_SPANDSP_PRIVATE_GSM0610_H_) #define _SPANDSP_PRIVATE_GSM0610_H_ /*! GSM 06.10 FR codec state descriptor. This defines the state of a single working instance of the GSM 06.10 FR encoder or decoder. */ struct gsm0610_state_s { /*! \brief One of the packing modes */ int packing; int16_t dp0[280]; /*! Preprocessing */ int16_t z1; int32_t L_z2; /*! Pre-emphasis */ int16_t mp; /*! Short term delay filter */ int16_t u[8]; int16_t LARpp[2][8]; int16_t j; /*! Long term synthesis */ int16_t nrp; /*! Short term synthesis */ int16_t v[9]; /*! Decoder postprocessing */ int16_t msr; /*! Encoder data */ int16_t e[50]; }; #endif /*- End of include ---------------------------------------------------------*/ spandsp-0.0.6/src/spandsp/private/t4_rx.h0000664000175000017500000000504111422612265017722 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * private/t4_rx.h - definitions for T.4 FAX receive processing * * Written by Steve Underwood * * Copyright (C) 2003 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #if !defined(_SPANDSP_PRIVATE_T4_RX_H_) #define _SPANDSP_PRIVATE_T4_RX_H_ /*! TIFF specific state information to go with T.4 compression or decompression handling. */ typedef struct { /*! \brief The current file name. */ const char *file; /*! \brief The libtiff context for the current TIFF file */ TIFF *tiff_file; /*! \brief The compression type for output to the TIFF file. */ int32_t output_compression; /*! \brief The TIFF photometric setting for the current page. */ uint16_t photo_metric; /*! \brief The TIFF fill order setting for the current page. */ uint16_t fill_order; /*! \brief The TIFF G3 FAX options. */ int32_t output_t4_options; /*! \brief The number of pages in the current image file. */ int pages_in_file; /* "Background" information about the FAX, which can be stored in the image file. */ /*! \brief The vendor of the machine which produced the file. */ const char *vendor; /*! \brief The model of machine which produced the file. */ const char *model; /*! \brief The local ident string. */ const char *local_ident; /*! \brief The remote end's ident string. */ const char *far_ident; /*! \brief The FAX sub-address. */ const char *sub_address; /*! \brief The FAX DCS information, as an ASCII string. */ const char *dcs; /*! \brief The first page to transfer. -1 to start at the beginning of the file. */ int start_page; /*! \brief The last page to transfer. -1 to continue to the end of the file. */ int stop_page; } t4_tiff_state_t; #endif /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/spandsp/private/timezone.h0000664000175000017500000000560211435757501020526 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * private/timezone.h - Timezone handling for time interpretation * * Written by Steve Underwood * * Copyright (C) 2010 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #if !defined(_SPANDSP_PRIVATE_TIMEZONE_H_) #define _SPANDSP_PRIVATE_TIMEZONE_H_ #define TZ_MAX_CHARS 50 /* Maximum number of abbreviation characters */ #define TZ_MAX_LEAPS 50 /* Maximum number of leap second corrections */ #define TZNAME_MAX 255 /* The TZ_MAX_TIMES value below is enough to handle a bit more than a * year's worth of solar time (corrected daily to the nearest second) or * 138 years of Pacific Presidential Election time * (where there are three time zone transitions every fourth year). */ #define TZ_MAX_TIMES 370 #if !defined(NOSOLAR) #define TZ_MAX_TYPES 256 /* Limited by what (unsigned char)'s can hold */ #else /* Must be at least 14 for Europe/Riga as of Jan 12 1995, * as noted by Earl Chew . */ #define TZ_MAX_TYPES 20 /* Maximum number of local time types */ #endif #define TZ_BIGGEST(a, b) (((a) > (b)) ? (a) : (b)) /* Time type information */ struct tz_ttinfo_s { int32_t gmtoff; /* UTC offset in seconds */ int isdst; /* Used to set tm_isdst */ int abbrind; /* Abbreviation list index */ int ttisstd; /* TRUE if transition is std time */ int ttisgmt; /* TRUE if transition is UTC */ }; /* Leap second information */ struct tz_lsinfo_s { time_t trans; /* Transition time */ int32_t corr; /* Correction to apply */ }; struct tz_state_s { int leapcnt; int timecnt; int typecnt; int charcnt; time_t ats[TZ_MAX_TIMES]; uint8_t types[TZ_MAX_TIMES]; struct tz_ttinfo_s ttis[TZ_MAX_TYPES]; char chars[TZ_BIGGEST(TZ_MAX_CHARS + 1, (2*(TZNAME_MAX + 1)))]; struct tz_lsinfo_s lsis[TZ_MAX_LEAPS]; }; struct tz_s { struct tz_state_s state; char lcl_tzname[TZNAME_MAX + 1]; int lcl_is_set; const char *tzname[2]; }; #endif /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/spandsp/private/t38_terminal.h0000664000175000017500000000765511422612265021210 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * private/t38_terminal.h - T.38 termination, less the packet exchange part * * Written by Steve Underwood * * Copyright (C) 2005 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \file */ #if !defined(_SPANDSP_PRIVATE_T38_TERMINAL_H_) #define _SPANDSP_PRIVATE_T38_TERMINAL_H_ typedef struct { /*! \brief Internet Aware FAX mode bit mask. */ int iaf; /*! \brief Required time between T.38 transmissions, in ms. */ int ms_per_tx_chunk; /*! \brief Bit fields controlling the way data is packed into chunked for transmission. */ int chunking_modes; /*! \brief Core T.38 IFP support */ t38_core_state_t t38; /*! \brief The current transmit step being timed */ int timed_step; /*! \brief TRUE is there has been some T.38 data missed (i.e. lost packets) in the current reception period. */ int rx_data_missing; /*! \brief The number of octets to send in each image packet (non-ECM or ECM) at the current rate and the current specified packet interval. */ int octets_per_data_packet; struct { /*! \brief HDLC receive buffer */ uint8_t buf[T38_MAX_HDLC_LEN]; /*! \brief The length of the contents of the HDLC receive buffer */ int len; } hdlc_rx; struct { /*! \brief HDLC transmit buffer */ uint8_t buf[T38_MAX_HDLC_LEN]; /*! \brief The length of the contents of the HDLC transmit buffer */ int len; /*! \brief Current pointer within the contents of the HDLC transmit buffer */ int ptr; /*! \brief The number of extra bits in a fully stuffed version of the contents of the HDLC transmit buffer. This is needed to accurately estimate the playout time for this frame, through an analogue modem. */ int extra_bits; } hdlc_tx; /*! \brief Counter for trailing non-ECM bytes, used to flush out the far end's modem. */ int non_ecm_trailer_bytes; /*! \brief The next T.38 indicator queued for transmission. */ int next_tx_indicator; /*! \brief The current T.38 data type being transmitted. */ int current_tx_data_type; /*! \brief TRUE if a carrier is present. Otherwise FALSE. */ int rx_signal_present; /*! \brief The current operating mode of the receiver. */ int current_rx_type; /*! \brief The current operating mode of the transmitter. */ int current_tx_type; /*! \brief Current transmission bit rate. */ int tx_bit_rate; /*! \brief A "sample" count, used to time events. */ int32_t samples; /*! \brief The value for samples at the next transmission point. */ int32_t next_tx_samples; /*! \brief The current transmit timeout. */ //int32_t timeout_tx_samples; /*! \brief The current receive timeout. */ int32_t timeout_rx_samples; } t38_terminal_front_end_state_t; /*! T.38 terminal state. */ struct t38_terminal_state_s { /*! \brief The T.30 back-end */ t30_state_t t30; /*! \brief The T.38 front-end */ t38_terminal_front_end_state_t t38_fe; /*! \brief Error and flow logging control */ logging_state_t logging; }; #endif /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/spandsp/private/schedule.h0000664000175000017500000000251111422612265020455 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * private/schedule.h * * Written by Steve Underwood * * Copyright (C) 2004 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #if !defined(_SPANDSP_PRIVATE_SCHEDULE_H_) #define _SPANDSP_PRIVATE_SCHEDULE_H_ /*! A scheduled event entry. */ struct span_sched_s { uint64_t when; span_sched_callback_func_t callback; void *user_data; }; /*! A scheduled event queue. */ struct span_sched_state_s { uint64_t ticker; int allocated; int max_to_date; span_sched_t *sched; logging_state_t logging; }; #endif /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/spandsp/private/v42.h0000664000175000017500000000644511422612265017306 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * private/v42.h * * Written by Steve Underwood * * Copyright (C) 2003 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #if !defined(_SPANDSP_PRIVATE_V42_H_) #define _SPANDSP_PRIVATE_V42_H_ /*! LAP-M descriptor. This defines the working state for a single instance of LAP-M. */ struct lapm_state_s { int handle; hdlc_rx_state_t hdlc_rx; hdlc_tx_state_t hdlc_tx; v42_frame_handler_t iframe_receive; void *iframe_receive_user_data; v42_status_func_t status_callback; void *status_callback_user_data; int state; int tx_waiting; int debug; /*! TRUE if originator. FALSE if answerer */ int we_are_originator; /*! Remote network type (unknown, answerer. originator) */ int peer_is_originator; /*! Next N(S) for transmission */ int next_tx_frame; /*! The last of our frames which the peer acknowledged */ int last_frame_peer_acknowledged; /*! Next N(R) for reception */ int next_expected_frame; /*! The last of the peer's frames which we acknowledged */ int last_frame_we_acknowledged; /*! TRUE if we sent an I or S frame with the F-bit set */ int solicit_f_bit; /*! Retransmission count */ int retransmissions; /*! TRUE if peer is busy */ int busy; /*! Acknowledgement timer */ int t401_timer; /*! Reply delay timer - optional */ int t402_timer; /*! Inactivity timer - optional */ int t403_timer; /*! Maximum number of octets in an information field */ int n401; /*! Window size */ int window_size_k; lapm_frame_queue_t *txqueue; lapm_frame_queue_t *tx_next; lapm_frame_queue_t *tx_last; queue_state_t *tx_queue; span_sched_state_t sched; /*! \brief Error and flow logging control */ logging_state_t logging; }; /*! V.42 descriptor. This defines the working state for a single instance of V.42. */ struct v42_state_s { /*! TRUE if we are the calling party, otherwise FALSE */ int calling_party; /*! TRUE if we should detect whether the far end is V.42 capable. FALSE if we go directly to protocol establishment */ int detect; /*! Stage in negotiating V.42 support */ int rx_negotiation_step; int rxbits; int rxstream; int rxoks; int odp_seen; int txbits; int txstream; int txadps; /*! The LAP.M context */ lapm_state_t lapm; /*! V.42 support detection timer */ int t400_timer; /*! \brief Error and flow logging control */ logging_state_t logging; }; #endif /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/spandsp/private/v27ter_tx.h0000664000175000017500000000743111422612265020533 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * private/v27ter_tx.h - ITU V.27ter modem transmit part * * Written by Steve Underwood * * Copyright (C) 2003 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #if !defined(_SPANDSP_PRIVATE_V27TER_TX_H_) #define _SPANDSP_PRIVATE_V27TER_TX_H_ /*! The number of taps in the pulse shaping/bandpass filter */ #define V27TER_TX_FILTER_STEPS 9 /*! V.27ter modem transmit side descriptor. This defines the working state for a single instance of a V.27ter modem transmitter. */ struct v27ter_tx_state_s { /*! \brief The bit rate of the modem. Valid values are 2400 and 4800. */ int bit_rate; /*! \brief The callback function used to get the next bit to be transmitted. */ get_bit_func_t get_bit; /*! \brief A user specified opaque pointer passed to the get_bit function. */ void *get_bit_user_data; /*! \brief The callback function used to report modem status changes. */ modem_tx_status_func_t status_handler; /*! \brief A user specified opaque pointer passed to the status function. */ void *status_user_data; #if defined(SPANDSP_USE_FIXED_POINT) /*! \brief The gain factor needed to achieve the specified output power at 2400bps. */ int32_t gain_2400; /*! \brief The gain factor needed to achieve the specified output power at 4800bps. */ int32_t gain_4800; #else /*! \brief The gain factor needed to achieve the specified output power at 2400bps. */ float gain_2400; /*! \brief The gain factor needed to achieve the specified output power at 4800bps. */ float gain_4800; #endif /*! \brief The route raised cosine (RRC) pulse shaping filter buffer. */ #if defined(SPANDSP_USE_FIXED_POINT) complexi16_t rrc_filter[2*V27TER_TX_FILTER_STEPS]; #else complexf_t rrc_filter[2*V27TER_TX_FILTER_STEPS]; #endif /*! \brief Current offset into the RRC pulse shaping filter buffer. */ int rrc_filter_step; /*! \brief The register for the training and data scrambler. */ unsigned int scramble_reg; /*! \brief A counter for the number of consecutive bits of repeating pattern through the scrambler. */ int scrambler_pattern_count; /*! \brief TRUE if transmitting the training sequence, or shutting down transmission. FALSE if transmitting user data. */ int in_training; /*! \brief A counter used to track progress through sending the training sequence. */ int training_step; /*! \brief The current phase of the carrier (i.e. the DDS parameter). */ uint32_t carrier_phase; /*! \brief The update rate for the phase of the carrier (i.e. the DDS increment). */ int32_t carrier_phase_rate; /*! \brief The current fractional phase of the baud timing. */ int baud_phase; /*! \brief The code number for the current position in the constellation. */ int constellation_state; /*! \brief The get_bit function in use at any instant. */ get_bit_func_t current_get_bit; /*! \brief Error and flow logging control */ logging_state_t logging; }; #endif /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/spandsp/private/bitstream.h0000664000175000017500000000247611422612265020665 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * private/bitstream.h - Bitstream composition and decomposition routines. * * Written by Steve Underwood * * Copyright (C) 2006 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #if !defined(_SPANDSP_PRIVATE_BITSTREAM_H_) #define _SPANDSP_PRIVATE_BITSTREAM_H_ /*! Bitstream handler state */ struct bitstream_state_s { /*! The bit stream. */ uint32_t bitstream; /*! The residual bits in bitstream. */ int residue; /*! TRUE if the stream is LSB first, else MSB first */ int lsb_first; }; #endif /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/spandsp/private/v27ter_rx.h0000664000175000017500000002001211422612265020517 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * private/v27ter_rx.h - ITU V.27ter modem receive part * * Written by Steve Underwood * * Copyright (C) 2003 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #if !defined(_SPANDSP_PRIVATE_V27TER_RX_H_) #define _SPANDSP_PRIVATE_V27TER_RX_H_ /* Target length for the equalizer is about 43 taps for 4800bps and 32 taps for 2400bps to deal with the worst stuff in V.56bis. */ /*! The length of the equalizer buffer. Must be a power of 2 */ #define V27TER_EQUALIZER_LEN 32 /*! Samples before the target central position in the equalizer buffer */ #define V27TER_EQUALIZER_PRE_LEN 16 /*! The number of taps in the 4800bps pulse shaping/bandpass filter */ #define V27TER_RX_4800_FILTER_STEPS 27 /*! The number of taps in the 2400bps pulse shaping/bandpass filter */ #define V27TER_RX_2400_FILTER_STEPS 27 #if V27TER_RX_4800_FILTER_STEPS > V27TER_RX_2400_FILTER_STEPS #define V27TER_RX_FILTER_STEPS V27TER_RX_4800_FILTER_STEPS #else #define V27TER_RX_FILTER_STEPS V27TER_RX_2400_FILTER_STEPS #endif /*! V.27ter modem receive side descriptor. This defines the working state for a single instance of a V.27ter modem receiver. */ struct v27ter_rx_state_s { /*! \brief The bit rate of the modem. Valid values are 2400 and 4800. */ int bit_rate; /*! \brief The callback function used to put each bit received. */ put_bit_func_t put_bit; /*! \brief A user specified opaque pointer passed to the put_bit routine. */ void *put_bit_user_data; /*! \brief The callback function used to report modem status changes. */ modem_rx_status_func_t status_handler; /*! \brief A user specified opaque pointer passed to the status function. */ void *status_user_data; /*! \brief A callback function which may be enabled to report every symbol's constellation position. */ qam_report_handler_t qam_report; /*! \brief A user specified opaque pointer passed to the qam_report callback routine. */ void *qam_user_data; /*! \brief The route raised cosine (RRC) pulse shaping filter buffer. */ #if defined(SPANDSP_USE_FIXED_POINT) int16_t rrc_filter[V27TER_RX_FILTER_STEPS]; #else float rrc_filter[V27TER_RX_FILTER_STEPS]; #endif /*! \brief Current offset into the RRC pulse shaping filter buffer. */ int rrc_filter_step; /*! \brief The register for the training and data scrambler. */ unsigned int scramble_reg; /*! \brief A counter for the number of consecutive bits of repeating pattern through the scrambler. */ int scrambler_pattern_count; /*! \brief The current step in the table of BC constellation positions. */ int training_bc; /*! \brief TRUE if the previous trained values are to be reused. */ int old_train; /*! \brief The section of the training data we are currently in. */ int training_stage; /*! \brief A count of how far through the current training step we are. */ int training_count; /*! \brief A measure of how much mismatch there is between the real constellation, and the decoded symbol positions. */ float training_error; /*! \brief The value of the last signal sample, using the a simple HPF for signal power estimation. */ int16_t last_sample; /*! \brief >0 if a signal above the minimum is present. It may or may not be a V.27ter signal. */ int signal_present; /*! \brief Whether or not a carrier drop was detected and the signal delivery is pending. */ int carrier_drop_pending; /*! \brief A count of the current consecutive samples below the carrier off threshold. */ int low_samples; /*! \brief A highest magnitude sample seen. */ int16_t high_sample; /*! \brief The position of the current symbol in the constellation, used for differential decoding. */ int constellation_state; /*! \brief The current phase of the carrier (i.e. the DDS parameter). */ uint32_t carrier_phase; /*! \brief The update rate for the phase of the carrier (i.e. the DDS increment). */ int32_t carrier_phase_rate; /*! \brief The carrier update rate saved for reuse when using short training. */ int32_t carrier_phase_rate_save; #if defined(SPANDSP_USE_FIXED_POINTx) /*! \brief The proportional part of the carrier tracking filter. */ float carrier_track_p; /*! \brief The integral part of the carrier tracking filter. */ float carrier_track_i; #else /*! \brief The proportional part of the carrier tracking filter. */ float carrier_track_p; /*! \brief The integral part of the carrier tracking filter. */ float carrier_track_i; #endif /*! \brief A power meter, to measure the HPF'ed signal power in the channel. */ power_meter_t power; /*! \brief The power meter level at which carrier on is declared. */ int32_t carrier_on_power; /*! \brief The power meter level at which carrier off is declared. */ int32_t carrier_off_power; /*! \brief Current read offset into the equalizer buffer. */ int eq_step; /*! \brief Current write offset into the equalizer buffer. */ int eq_put_step; /*! \brief Symbol counter to the next equalizer update. */ int eq_skip; /*! \brief The current half of the baud. */ int baud_half; #if defined(SPANDSP_USE_FIXED_POINT) /*! \brief The scaling factor accessed by the AGC algorithm. */ int16_t agc_scaling; /*! \brief The previous value of agc_scaling, needed to reuse old training. */ int16_t agc_scaling_save; /*! \brief The current delta factor for updating the equalizer coefficients. */ float eq_delta; /*! \brief The adaptive equalizer coefficients. */ /*complexi16_t*/ complexf_t eq_coeff[V27TER_EQUALIZER_LEN]; /*! \brief A saved set of adaptive equalizer coefficients for use after restarts. */ /*complexi16_t*/ complexf_t eq_coeff_save[V27TER_EQUALIZER_LEN]; /*! \brief The equalizer signal buffer. */ /*complexi16_t*/ complexf_t eq_buf[V27TER_EQUALIZER_LEN]; #else /*! \brief The scaling factor accessed by the AGC algorithm. */ float agc_scaling; /*! \brief The previous value of agc_scaling, needed to reuse old training. */ float agc_scaling_save; /*! \brief The current delta factor for updating the equalizer coefficients. */ float eq_delta; /*! \brief The adaptive equalizer coefficients. */ complexf_t eq_coeff[V27TER_EQUALIZER_LEN]; /*! \brief A saved set of adaptive equalizer coefficients for use after restarts. */ complexf_t eq_coeff_save[V27TER_EQUALIZER_LEN]; /*! \brief The equalizer signal buffer. */ complexf_t eq_buf[V27TER_EQUALIZER_LEN]; #endif /*! \brief Integration variable for damping the Gardner algorithm tests. */ int gardner_integrate; /*! \brief Current step size of Gardner algorithm integration. */ int gardner_step; /*! \brief The total symbol timing correction since the carrier came up. This is only for performance analysis purposes. */ int total_baud_timing_correction; /*! \brief Starting phase angles for the coarse carrier aquisition step. */ int32_t start_angles[2]; /*! \brief History list of phase angles for the coarse carrier aquisition step. */ int32_t angles[16]; /*! \brief Error and flow logging control */ logging_state_t logging; }; #endif /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/spandsp/private/modem_connect_tones.h0000664000175000017500000000675511422612265022721 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * private/modem_connect_tones.c - Generation and detection of tones * associated with modems calling and * answering calls. * * Written by Steve Underwood * * Copyright (C) 2006 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \file */ #if !defined(_SPANDSP_PRIVATE_MODEM_CONNECT_TONES_H_) #define _SPANDSP_PRIVATE_MODEM_CONNECT_TONES_H_ /*! Modem connect tones generator descriptor. This defines the state of a single working instance of the tone generator. */ struct modem_connect_tones_tx_state_s { int tone_type; int32_t tone_phase_rate; uint32_t tone_phase; int16_t level; /*! \brief Countdown to the next phase hop */ int hop_timer; /*! \brief Maximum duration timer */ int duration_timer; uint32_t mod_phase; int32_t mod_phase_rate; int16_t mod_level; }; /*! Modem connect tones receiver descriptor. This defines the state of a single working instance of the tone detector. */ struct modem_connect_tones_rx_state_s { /*! \brief The tone type being detected. */ int tone_type; /*! \brief Callback routine, using to report detection of the tone. */ tone_report_func_t tone_callback; /*! \brief An opaque pointer passed to tone_callback. */ void *callback_data; /*! \brief The notch filter state. */ float znotch_1; float znotch_2; /*! \brief The 15Hz AM filter state. */ float z15hz_1; float z15hz_2; /*! \brief The in notch power estimate */ int32_t notch_level; /*! \brief The total channel power estimate */ int32_t channel_level; /*! \brief The 15Hz AM power estimate */ int32_t am_level; /*! \brief Sample counter for the small chunks of samples, after which a test is conducted. */ int chunk_remainder; /*! \brief TRUE is the tone is currently confirmed present in the audio. */ int tone_present; /*! \brief */ int tone_on; /*! \brief A millisecond counter, to time the duration of tone sections. */ int tone_cycle_duration; /*! \brief A count of the number of good cycles of tone reversal seen. */ int good_cycles; /*! \brief TRUE if the tone has been seen since the last time the user tested for it */ int hit; /*! \brief A V.21 FSK modem context used when searching for FAX preamble. */ fsk_rx_state_t v21rx; /*! \brief The raw (stuffed) bit stream buffer. */ unsigned int raw_bit_stream; /*! \brief The current number of bits in the octet in progress. */ int num_bits; /*! \brief Number of consecutive flags seen so far. */ int flags_seen; /*! \brief TRUE if framing OK has been announced. */ int framing_ok_announced; }; #endif /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/spandsp/private/g726.h0000664000175000017500000000556411422612265017361 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * private/g726.h - ITU G.726 codec. * * Written by Steve Underwood * * Copyright (C) 2006 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #if !defined(_SPANDSP_PRIVATE_G726_H_) #define _SPANDSP_PRIVATE_G726_H_ /*! * The following is the definition of the state structure * used by the G.726 encoder and decoder to preserve their internal * state between successive calls. The meanings of the majority * of the state structure fields are explained in detail in the * ITU Recommendation G.726. The field names are essentially indentical * to variable names in the bit level description of the coding algorithm * included in this recommendation. */ struct g726_state_s { /*! The bit rate */ int rate; /*! The external coding, for tandem operation */ int ext_coding; /*! The number of bits per sample */ int bits_per_sample; /*! One of the G.726_PACKING_xxx options */ int packing; /*! Locked or steady state step size multiplier. */ int32_t yl; /*! Unlocked or non-steady state step size multiplier. */ int16_t yu; /*! int16_t term energy estimate. */ int16_t dms; /*! Long term energy estimate. */ int16_t dml; /*! Linear weighting coefficient of 'yl' and 'yu'. */ int16_t ap; /*! Coefficients of pole portion of prediction filter. */ int16_t a[2]; /*! Coefficients of zero portion of prediction filter. */ int16_t b[6]; /*! Signs of previous two samples of a partially reconstructed signal. */ int16_t pk[2]; /*! Previous 6 samples of the quantized difference signal represented in an internal floating point format. */ int16_t dq[6]; /*! Previous 2 samples of the quantized difference signal represented in an internal floating point format. */ int16_t sr[2]; /*! Delayed tone detect */ int td; /*! \brief The bit stream processing context. */ bitstream_state_t bs; /*! \brief The current encoder function. */ g726_encoder_func_t enc_func; /*! \brief The current decoder function. */ g726_decoder_func_t dec_func; }; #endif /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/spandsp/private/super_tone_rx.h0000664000175000017500000000345411422612265021564 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * private/super_tone_rx.h - Flexible telephony supervisory tone detection. * * Written by Steve Underwood * * Copyright (C) 2003 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #if !defined(_SPANDSP_PRIVATE_SUPER_TONE_RX_H_) #define _SPANDSP_PRIVATE_SUPER_TONE_RX_H_ #define BINS 128 struct super_tone_rx_segment_s { int f1; int f2; int recognition_duration; int min_duration; int max_duration; }; struct super_tone_rx_descriptor_s { int used_frequencies; int monitored_frequencies; int pitches[BINS/2][2]; int tones; super_tone_rx_segment_t **tone_list; int *tone_segs; goertzel_descriptor_t *desc; }; struct super_tone_rx_state_s { super_tone_rx_descriptor_t *desc; float energy; int detected_tone; int rotation; tone_report_func_t tone_callback; void (*segment_callback)(void *data, int f1, int f2, int duration); void *callback_data; super_tone_rx_segment_t segments[11]; goertzel_state_t state[]; }; #endif /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/spandsp/private/noise.h0000664000175000017500000000260511422612265020002 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * private/noise.h - A low complexity audio noise generator, suitable for * real time generation (current just approx AWGN) * * Written by Steve Underwood * * Copyright (C) 2005 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \file */ #if !defined(_SPANDSP_PRIVATE_NOISE_H_) #define _SPANDSP_PRIVATE_NOISE_H_ /*! Noise generator descriptor. This contains all the state information for an instance of the noise generator. */ struct noise_state_s { int class_of_noise; int quality; int32_t rms; uint32_t rndnum; int32_t state; }; #endif /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/spandsp/private/v22bis.h0000664000175000017500000002260711422612265020000 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * private/v22bis.h - ITU V.22bis modem * * Written by Steve Underwood * * Copyright (C) 2004 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #if !defined(_SPANDSP_PRIVATE_V22BIS_H_) #define _SPANDSP_PRIVATE_V22BIS_H_ /*! The number of steps to the left and to the right of the target position in the equalizer buffer. */ #define V22BIS_EQUALIZER_LEN 7 /*! One less than a power of 2 >= (2*V22BIS_EQUALIZER_LEN + 1) */ #define V22BIS_EQUALIZER_MASK 15 /*! The number of taps in the transmit pulse shaping filter */ #define V22BIS_TX_FILTER_STEPS 9 /*! The number of taps in the receive pulse shaping/bandpass filter */ #define V22BIS_RX_FILTER_STEPS 27 /*! Segments of the training sequence on the receive side */ enum { V22BIS_RX_TRAINING_STAGE_NORMAL_OPERATION, V22BIS_RX_TRAINING_STAGE_SYMBOL_ACQUISITION, V22BIS_RX_TRAINING_STAGE_LOG_PHASE, V22BIS_RX_TRAINING_STAGE_UNSCRAMBLED_ONES, V22BIS_RX_TRAINING_STAGE_UNSCRAMBLED_ONES_SUSTAINING, V22BIS_RX_TRAINING_STAGE_SCRAMBLED_ONES_AT_1200, V22BIS_RX_TRAINING_STAGE_SCRAMBLED_ONES_AT_1200_SUSTAINING, V22BIS_RX_TRAINING_STAGE_WAIT_FOR_SCRAMBLED_ONES_AT_2400, V22BIS_RX_TRAINING_STAGE_PARKED }; /*! Segments of the training sequence on the transmit side */ enum { V22BIS_TX_TRAINING_STAGE_NORMAL_OPERATION = 0, V22BIS_TX_TRAINING_STAGE_INITIAL_TIMED_SILENCE, V22BIS_TX_TRAINING_STAGE_INITIAL_SILENCE, V22BIS_TX_TRAINING_STAGE_U11, V22BIS_TX_TRAINING_STAGE_U0011, V22BIS_TX_TRAINING_STAGE_S11, V22BIS_TX_TRAINING_STAGE_TIMED_S11, V22BIS_TX_TRAINING_STAGE_S1111, V22BIS_TX_TRAINING_STAGE_PARKED }; /*! V.22bis modem descriptor. This defines the working state for a single instance of a V.22bis modem. */ struct v22bis_state_s { /*! \brief The maximum permitted bit rate of the modem. Valid values are 1200 and 2400. */ int bit_rate; /*! \brief TRUE is this is the calling side modem. */ int calling_party; /*! \brief The callback function used to get the next bit to be transmitted. */ get_bit_func_t get_bit; /*! \brief A user specified opaque pointer passed to the get_bit callback routine. */ void *get_bit_user_data; /*! \brief The callback function used to put each bit received. */ put_bit_func_t put_bit; /*! \brief A user specified opaque pointer passed to the put_bit callback routine. */ void *put_bit_user_data; /*! \brief The callback function used to report modem status changes. */ modem_rx_status_func_t status_handler; /*! \brief A user specified opaque pointer passed to the status function. */ void *status_user_data; int negotiated_bit_rate; /* Receive section */ struct { /*! \brief The route raised cosine (RRC) pulse shaping filter buffer. */ #if defined(SPANDSP_USE_FIXED_POINTx) int16_t rrc_filter[V22BIS_RX_FILTER_STEPS]; #else float rrc_filter[V22BIS_RX_FILTER_STEPS]; #endif /*! \brief Current offset into the RRC pulse shaping filter buffer. */ int rrc_filter_step; /*! \brief The register for the data scrambler. */ uint32_t scramble_reg; /*! \brief A counter for the number of consecutive bits of repeating pattern through the scrambler. */ int scrambler_pattern_count; /*! \brief 0 if receiving user data. A training stage value during training */ int training; /*! \brief A count of how far through the current training step we are. */ int training_count; /*! \brief >0 if a signal above the minimum is present. It may or may not be a V.22bis signal. */ int signal_present; /*! \brief A measure of how much mismatch there is between the real constellation, and the decoded symbol positions. */ float training_error; /*! \brief The current phase of the carrier (i.e. the DDS parameter). */ uint32_t carrier_phase; /*! \brief The update rate for the phase of the carrier (i.e. the DDS increment). */ int32_t carrier_phase_rate; /*! \brief The proportional part of the carrier tracking filter. */ float carrier_track_p; /*! \brief The integral part of the carrier tracking filter. */ float carrier_track_i; /*! \brief A callback function which may be enabled to report every symbol's constellation position. */ qam_report_handler_t qam_report; /*! \brief A user specified opaque pointer passed to the qam_report callback routine. */ void *qam_user_data; /*! \brief A power meter, to measure the HPF'ed signal power in the channel. */ power_meter_t rx_power; /*! \brief The power meter level at which carrier on is declared. */ int32_t carrier_on_power; /*! \brief The power meter level at which carrier off is declared. */ int32_t carrier_off_power; /*! \brief The scaling factor accessed by the AGC algorithm. */ float agc_scaling; int constellation_state; /*! \brief The current delta factor for updating the equalizer coefficients. */ float eq_delta; #if defined(SPANDSP_USE_FIXED_POINTx) /*! \brief The adaptive equalizer coefficients. */ complexi_t eq_coeff[2*V22BIS_EQUALIZER_LEN + 1]; /*! \brief The equalizer signal buffer. */ complexi_t eq_buf[V22BIS_EQUALIZER_MASK + 1]; #else complexf_t eq_coeff[2*V22BIS_EQUALIZER_LEN + 1]; complexf_t eq_buf[V22BIS_EQUALIZER_MASK + 1]; #endif /*! \brief Current offset into the equalizer buffer. */ int eq_step; /*! \brief Current write offset into the equalizer buffer. */ int eq_put_step; /*! \brief Integration variable for damping the Gardner algorithm tests. */ int gardner_integrate; /*! \brief Current step size of Gardner algorithm integration. */ int gardner_step; /*! \brief The total symbol timing correction since the carrier came up. This is only for performance analysis purposes. */ int total_baud_timing_correction; /*! \brief The current fractional phase of the baud timing. */ int baud_phase; int sixteen_way_decisions; int pattern_repeats; int last_raw_bits; } rx; /* Transmit section */ struct { /*! \brief The gain factor needed to achieve the specified output power. */ float gain; /*! \brief The route raised cosine (RRC) pulse shaping filter buffer. */ complexf_t rrc_filter[2*V22BIS_TX_FILTER_STEPS]; /*! \brief Current offset into the RRC pulse shaping filter buffer. */ int rrc_filter_step; /*! \brief The register for the data scrambler. */ unsigned int scramble_reg; /*! \brief A counter for the number of consecutive bits of repeating pattern through the scrambler. */ int scrambler_pattern_count; /*! \brief 0 if transmitting user data. A training stage value during training */ int training; /*! \brief A counter used to track progress through sending the training sequence. */ int training_count; /*! \brief The current phase of the carrier (i.e. the DDS parameter). */ uint32_t carrier_phase; /*! \brief The update rate for the phase of the carrier (i.e. the DDS increment). */ int32_t carrier_phase_rate; /*! \brief The current phase of the guard tone (i.e. the DDS parameter). */ uint32_t guard_phase; /*! \brief The update rate for the phase of the guard tone (i.e. the DDS increment). */ int32_t guard_phase_rate; float guard_level; /*! \brief The current fractional phase of the baud timing. */ int baud_phase; /*! \brief The code number for the current position in the constellation. */ int constellation_state; /*! \brief An indicator to mark that we are tidying up to stop transmission. */ int shutdown; /*! \brief The get_bit function in use at any instant. */ get_bit_func_t current_get_bit; } tx; /*! \brief Error and flow logging control */ logging_state_t logging; }; #if defined(__cplusplus) extern "C" { #endif /*! Reinitialise an existing V.22bis modem receive context. \brief Reinitialise an existing V.22bis modem receive context. \param s The modem context. \return 0 for OK, -1 for bad parameter */ int v22bis_rx_restart(v22bis_state_t *s); void v22bis_report_status_change(v22bis_state_t *s, int status); void v22bis_equalizer_coefficient_reset(v22bis_state_t *s); #if defined(__cplusplus) } #endif #endif /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/spandsp/private/v17tx.h0000664000175000017500000000755311422612265017665 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * private/v17tx.h - ITU V.17 modem transmit part * * Written by Steve Underwood * * Copyright (C) 2004 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \file */ #if !defined(_SPANDSP_PRIVATE_V17TX_H_) #define _SPANDSP_PRIVATE_V17TX_H_ /*! The number of taps in the pulse shaping/bandpass filter */ #define V17_TX_FILTER_STEPS 9 /*! V.17 modem transmit side descriptor. This defines the working state for a single instance of a V.17 modem transmitter. */ struct v17_tx_state_s { /*! \brief The bit rate of the modem. Valid values are 4800, 7200 and 9600. */ int bit_rate; /*! \brief The callback function used to get the next bit to be transmitted. */ get_bit_func_t get_bit; /*! \brief A user specified opaque pointer passed to the get_bit function. */ void *get_bit_user_data; /*! \brief The callback function used to report modem status changes. */ modem_tx_status_func_t status_handler; /*! \brief A user specified opaque pointer passed to the status function. */ void *status_user_data; /*! \brief The gain factor needed to achieve the specified output power. */ #if defined(SPANDSP_USE_FIXED_POINT) int32_t gain; #else float gain; #endif /*! \brief The route raised cosine (RRC) pulse shaping filter buffer. */ #if defined(SPANDSP_USE_FIXED_POINT) complexi16_t rrc_filter[2*V17_TX_FILTER_STEPS]; #else complexf_t rrc_filter[2*V17_TX_FILTER_STEPS]; #endif /*! \brief Current offset into the RRC pulse shaping filter buffer. */ int rrc_filter_step; /*! \brief The current state of the differential encoder. */ int diff; /*! \brief The current state of the convolutional encoder. */ int convolution; /*! \brief The code number for the current position in the constellation. */ int constellation_state; /*! \brief The register for the data scrambler. */ uint32_t scramble_reg; /*! \brief Scrambler tap */ //int scrambler_tap; /*! \brief TRUE if transmitting the training sequence. FALSE if transmitting user data. */ int in_training; /*! \brief TRUE if the short training sequence is to be used. */ int short_train; /*! \brief A counter used to track progress through sending the training sequence. */ int training_step; /*! \brief The current phase of the carrier (i.e. the DDS parameter). */ uint32_t carrier_phase; /*! \brief The update rate for the phase of the carrier (i.e. the DDS increment). */ int32_t carrier_phase_rate; /*! \brief The current fractional phase of the baud timing. */ int baud_phase; /*! \brief A pointer to the constellation currently in use. */ #if defined(SPANDSP_USE_FIXED_POINT) const complexi16_t *constellation; #else const complexf_t *constellation; #endif /*! \brief The current number of data bits per symbol. This does not include the redundant bit. */ int bits_per_symbol; /*! \brief The get_bit function in use at any instant. */ get_bit_func_t current_get_bit; /*! \brief Error and flow logging control */ logging_state_t logging; }; #endif /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/spandsp/private/silence_gen.h0000664000175000017500000000257411422612265021145 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * private/silence_gen.c - A silence generator, for inserting timed silences. * * Written by Steve Underwood * * Copyright (C) 2006 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #if !defined(_SPANDSP_PRIVATE_SILENCE_GEN_H_) #define _SPANDSP_PRIVATE_SILENCE_GEN_H_ struct silence_gen_state_s { /*! \brief The callback function used to report status changes. */ modem_tx_status_func_t status_handler; /*! \brief A user specified opaque pointer passed to the status function. */ void *status_user_data; int remaining_samples; int total_samples; }; #endif /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/spandsp/private/bell_r2_mf.h0000664000175000017500000000614411422612265020672 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * bell_r2_mf.h - Bell MF and MFC/R2 tone generation and detection. * * Written by Steve Underwood * * Copyright (C) 2001 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #if !defined(_SPANDSP_PRIVATE_BELL_R2_MF_H_) #define _SPANDSP_PRIVATE_BELL_R2_MF_H_ /*! Bell MF generator state descriptor. This defines the state of a single working instance of a Bell MF generator. */ struct bell_mf_tx_state_s { /*! The tone generator. */ tone_gen_state_t tones; int current_sample; union { queue_state_t queue; uint8_t buf[QUEUE_STATE_T_SIZE(MAX_BELL_MF_DIGITS)]; } queue; }; /*! Bell MF digit detector descriptor. */ struct bell_mf_rx_state_s { /*! Optional callback funcion to deliver received digits. */ digits_rx_callback_t digits_callback; /*! An opaque pointer passed to the callback function. */ void *digits_callback_data; /*! Tone detector working states */ goertzel_state_t out[6]; /*! Short term history of results from the tone detection, using in persistence checking */ uint8_t hits[5]; /*! The current sample number within a processing block. */ int current_sample; /*! The number of digits which have been lost due to buffer overflows. */ int lost_digits; /*! The number of digits currently in the digit buffer. */ int current_digits; /*! The received digits buffer. This is a NULL terminated string. */ char digits[MAX_BELL_MF_DIGITS + 1]; }; /*! MFC/R2 tone detector descriptor. */ struct r2_mf_tx_state_s { /*! The tone generator. */ tone_gen_state_t tone; /*! TRUE if generating forward tones, otherwise generating reverse tones. */ int fwd; /*! The current digit being generated. */ int digit; }; /*! MFC/R2 tone detector descriptor. */ struct r2_mf_rx_state_s { /*! Optional callback funcion to deliver received digits. */ tone_report_func_t callback; /*! An opaque pointer passed to the callback function. */ void *callback_data; /*! TRUE is we are detecting forward tones. FALSE if we are detecting backward tones */ int fwd; /*! Tone detector working states */ goertzel_state_t out[6]; /*! The current sample number within a processing block. */ int current_sample; /*! The currently detected digit. */ int current_digit; }; #endif /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/spandsp/private/image_translate.h0000664000175000017500000000315611422612265022026 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * private/image_translate.c - Image translation routines for reworking colour * and gray scale images to be bi-level images of an * appropriate size to be FAX compatible. * * Written by Steve Underwood * * Copyright (C) 2009 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #if !defined(_SPANDSP_PRIVATE_IMAGE_TRANSLATE_H_) #define _SPANDSP_PRIVATE_IMAGE_TRANSLATE_H_ struct image_translate_state_s { int input_format; int input_width; int input_length; int output_width; int output_length; int resize; int bytes_per_pixel; int raw_input_row; int raw_output_row; int output_row; uint8_t *raw_pixel_row[2]; uint8_t *pixel_row[2]; t4_row_read_handler_t row_read_handler; void *row_read_user_data; }; #endif /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/spandsp/private/v8.h0000664000175000017500000000444211422612266017224 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * private/v8.h - V.8 modem negotiation processing. * * Written by Steve Underwood * * Copyright (C) 2004 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #if !defined(_SPANDSP_PRIVATE_V8_H_) #define _SPANDSP_PRIVATE_V8_H_ struct v8_state_s { /*! \brief TRUE if we are the calling party */ int calling_party; /*! \brief A handler to process the V.8 signals */ v8_result_handler_t *result_handler; /*! \brief An opaque pointer passed to result_handler */ void *result_handler_user_data; /*! \brief The current state of the V.8 protocol */ int state; int fsk_tx_on; int modem_connect_tone_tx_on; int negotiation_timer; int ci_timer; int ci_count; fsk_tx_state_t v21tx; fsk_rx_state_t v21rx; queue_state_t *tx_queue; modem_connect_tones_tx_state_t ansam_tx; modem_connect_tones_rx_state_t ansam_rx; v8_parms_t parms; v8_parms_t result; /*! \brief The number of modulation bytes to use when sending. */ int modulation_bytes; /* V.8 data parsing */ uint32_t bit_stream; int bit_cnt; /* Indicates the type of message coming up */ int preamble_type; uint8_t rx_data[64]; int rx_data_ptr; /*! \brief a reference copy of the last CM or JM message, used when testing for matches. */ uint8_t cm_jm_data[64]; int cm_jm_len; int got_cm_jm; int got_cj; int zero_byte_count; /*! \brief Error and flow logging control */ logging_state_t logging; }; #endif /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/spandsp/private/queue.h0000664000175000017500000000315311422612265020010 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * private/queue.h - simple in process message queuing * * Written by Steve Underwood * * Copyright (C) 2004 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #if !defined(_SPANDSP_PRIVATE_QUEUE_H_) #define _SPANDSP_PRIVATE_QUEUE_H_ /*! Queue descriptor. This defines the working state for a single instance of a byte stream or message oriented queue. */ struct queue_state_s { /*! \brief Flags indicating the mode of the queue. */ int flags; /*! \brief The length of the data buffer. */ int len; /*! \brief The buffer input pointer. */ volatile int iptr; /*! \brief The buffer output pointer. */ volatile int optr; #if defined(SPANDSP_FULLY_DEFINE_QUEUE_STATE_T) /*! \brief The data buffer, sized at the time the structure is created. */ uint8_t data[]; #endif }; #endif /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/spandsp/private/t4_tx.h0000664000175000017500000000763311422612265017735 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * private/t4_tx.h - definitions for T.4 FAX transmit processing * * Written by Steve Underwood * * Copyright (C) 2003 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #if !defined(_SPANDSP_PRIVATE_T4_TX_H_) #define _SPANDSP_PRIVATE_T4_TX_H_ /*! T.4 FAX compression/decompression descriptor. This defines the working state for a single instance of a T.4 FAX compression or decompression channel. */ struct t4_state_s { /*! \brief The same structure is used for T.4 transmit and receive. This variable records which mode is in progress. */ int rx; /*! \brief The type of compression used between the FAX machines. */ int line_encoding; /*! \brief The time at which handling of the current page began. */ time_t page_start_time; /*! \brief The text which will be used in FAX page header. No text results in no header line. */ const char *header_info; /*! \brief Optional per instance time zone for the FAX pager header timestamp. */ struct tz_s *tz; /*! \brief The size of the compressed image on the line side, in bits. */ int line_image_size; /*! \brief The current number of bytes per row of uncompressed image data. */ int bytes_per_row; /*! \brief The size of the image in the image buffer, in bytes. */ int image_size; /*! \brief The current size of the image buffer. */ int image_buffer_size; /*! \brief A point to the image buffer. */ uint8_t *image_buffer; /*! \brief The number of pages transferred to date. */ int current_page; /*! \brief Column-to-column (X) resolution in pixels per metre. */ int x_resolution; /*! \brief Row-to-row (Y) resolution in pixels per metre. */ int y_resolution; /*! \brief Width of the current page, in pixels. */ int image_width; /*! \brief Length of the current page, in pixels. */ int image_length; /*! \brief Current pixel row number. */ int row; /*! \brief This variable is set if we are treating the current row as a 2D encoded one. */ int row_is_2d; /*! \brief The current length of the current row. */ int row_len; /*! \brief Black and white run-lengths for the current row. */ uint32_t *cur_runs; /*! \brief Black and white run-lengths for the reference row. */ uint32_t *ref_runs; /*! \brief Pointer to the buffer for the current pixel row. */ uint8_t *row_buf; /*! \brief Encoded data bits buffer. */ uint32_t tx_bitstream; /*! \brief The number of bits currently in tx_bitstream. */ int tx_bits; /*! \brief The current number of bits in the current encoded row. */ int row_bits; /*! \brief The minimum bits in any row of the current page. For monitoring only. */ int min_row_bits; /*! \brief The maximum bits in any row of the current page. For monitoring only. */ int max_row_bits; /*! \brief Error and flow logging control */ logging_state_t logging; /*! \brief All TIFF file specific state information for the T.4 context. */ t4_tiff_state_t tiff; t4_t6_decode_state_t t4_t6_rx; t4_t6_encode_state_t t4_t6_tx; }; #endif /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/spandsp/private/hdlc.h0000664000175000017500000001217611422612265017603 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * private/hdlc.h * * Written by Steve Underwood * * Copyright (C) 2003 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #if !defined(_SPANDSP_PRIVATE_HDLC_H_) #define _SPANDSP_PRIVATE_HDLC_H_ /*! HDLC receive descriptor. This contains all the state information for an HDLC receiver. */ struct hdlc_rx_state_s { /*! 2 for CRC-16, 4 for CRC-32 */ int crc_bytes; /*! \brief Maximum permitted frame length. */ size_t max_frame_len; /*! \brief The callback routine called to process each good received frame. */ hdlc_frame_handler_t frame_handler; /*! \brief An opaque parameter passed to the frame callback routine. */ void *frame_user_data; /*! \brief The callback routine called to report status changes. */ modem_rx_status_func_t status_handler; /*! \brief An opaque parameter passed to the status callback routine. */ void *status_user_data; /*! \brief TRUE if bad frames are to be reported. */ int report_bad_frames; /*! \brief The number of consecutive flags which must be seen before framing is declared OK. */ int framing_ok_threshold; /*! \brief TRUE if framing OK has been announced. */ int framing_ok_announced; /*! \brief Number of consecutive flags seen so far. */ int flags_seen; /*! \brief The raw (stuffed) bit stream buffer. */ unsigned int raw_bit_stream; /*! \brief The destuffed bit stream buffer. */ unsigned int byte_in_progress; /*! \brief The current number of bits in byte_in_progress. */ int num_bits; /*! \brief TRUE if in octet counting mode (e.g. for MTP). */ int octet_counting_mode; /*! \brief Octet count, to achieve the functionality needed for things like MTP. */ int octet_count; /*! \brief The number of octets to be allowed between octet count reports. */ int octet_count_report_interval; /*! \brief Buffer for a frame in progress. */ uint8_t buffer[HDLC_MAXFRAME_LEN + 4]; /*! \brief Length of a frame in progress. */ size_t len; /*! \brief The number of bytes of good frames received (CRC not included). */ unsigned long int rx_bytes; /*! \brief The number of good frames received. */ unsigned long int rx_frames; /*! \brief The number of frames with CRC errors received. */ unsigned long int rx_crc_errors; /*! \brief The number of too short and too long frames received. */ unsigned long int rx_length_errors; /*! \brief The number of HDLC aborts received. */ unsigned long int rx_aborts; }; /*! HDLC transmit descriptor. This contains all the state information for an HDLC transmitter. */ struct hdlc_tx_state_s { /*! 2 for CRC-16, 4 for CRC-32 */ int crc_bytes; /*! \brief The callback routine called to indicate transmit underflow. */ hdlc_underflow_handler_t underflow_handler; /*! \brief An opaque parameter passed to the callback routine. */ void *user_data; /*! \brief The minimum flag octets to insert between frames. */ int inter_frame_flags; /*! \brief TRUE if frame creation works in progressive mode. */ int progressive; /*! \brief Maximum permitted frame length. */ size_t max_frame_len; /*! \brief The stuffed bit stream being created. */ uint32_t octets_in_progress; /*! \brief The number of bits currently in octets_in_progress. */ int num_bits; /*! \brief The currently rotated state of the flag octet. */ int idle_octet; /*! \brief The number of flag octets to send for a timed burst of flags. */ int flag_octets; /*! \brief The number of abort octets to send for a timed burst of aborts. */ int abort_octets; /*! \brief TRUE if the next underflow of timed flag octets should be reported */ int report_flag_underflow; /*! \brief The current message being transmitted, with its CRC attached. */ uint8_t buffer[HDLC_MAXFRAME_LEN + 4]; /*! \brief The length of the message in the buffer. */ size_t len; /*! \brief The current send position within the buffer. */ size_t pos; /*! \brief The running CRC, as data fills the frame buffer. */ uint32_t crc; /*! \brief The current byte being broken into bits for transmission. */ int byte; /*! \brief The number of bits remaining in byte. */ int bits; /*! \brief TRUE if transmission should end on buffer underflow .*/ int tx_end; }; #endif /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/spandsp/private/t31.h0000664000175000017500000001475711422612265017307 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * private/t31.h - A T.31 compatible class 1 FAX modem interface. * * Written by Steve Underwood * * Copyright (C) 2004 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #if !defined(_SPANDSP_PRIVATE_T31_H_) #define _SPANDSP_PRIVATE_T31_H_ /*! Analogue FAX front end channel descriptor. This defines the state of a single working instance of an analogue line FAX front end. */ typedef struct { fax_modems_state_t modems; //v8_state_t v8; /*! The transmit signal handler to be used when the current one has finished sending. */ span_tx_handler_t *next_tx_handler; void *next_tx_user_data; /*! \brief No of data bits in current_byte. */ int bit_no; /*! \brief The current data byte in progress. */ int current_byte; /*! \brief Rx power meter, used to detect silence. */ power_meter_t rx_power; /*! \brief Last sample, used for an elementary HPF for the power meter. */ int16_t last_sample; /*! \brief The current silence threshold. */ int32_t silence_threshold_power; /*! \brief Samples of silence heard */ int silence_heard; } t31_audio_front_end_state_t; /*! Analogue FAX front end channel descriptor. This defines the state of a single working instance of an analogue line FAX front end. */ typedef struct { /*! \brief Internet Aware FAX mode bit mask. */ int iaf; /*! \brief Required time between T.38 transmissions, in ms. */ int ms_per_tx_chunk; /*! \brief Bit fields controlling the way data is packed into chunked for transmission. */ int chunking_modes; /*! \brief Core T.38 IFP support */ t38_core_state_t t38; /*! \brief The current transmit step being timed */ int timed_step; /*! \brief TRUE is there has been some T.38 data missed */ int rx_data_missing; /*! \brief The number of octets to send in each image packet (non-ECM or ECM) at the current rate and the current specified packet interval. */ int octets_per_data_packet; /*! \brief An HDLC context used when sending HDLC messages to the terminal port (ECM mode support). */ hdlc_tx_state_t hdlc_tx_term; /*! \brief An HDLC context used when receiving HDLC messages from the terminal port. (ECM mode support). */ hdlc_rx_state_t hdlc_rx_term; struct { uint8_t buf[T31_T38_MAX_HDLC_LEN]; int len; } hdlc_rx; struct { /*! \brief The number of extra bits in a fully stuffed version of the contents of the HDLC transmit buffer. This is needed to accurately estimate the playout time for this frame, through an analogue modem. */ int extra_bits; } hdlc_tx; /*! \brief TRUE if we are using ECM mode. This is used to select HDLC faking, necessary with clunky class 1 modems. */ int ecm_mode; /*! \brief Counter for trailing non-ECM bytes, used to flush out the far end's modem. */ int non_ecm_trailer_bytes; /*! \brief The next queued tramsit indicator */ int next_tx_indicator; /*! \brief The current T.38 data type being transmitted */ int current_tx_data_type; /*! \brief The current operating mode of the receiver. */ int current_rx_type; /*! \brief The current operating mode of the transmitter. */ int current_tx_type; /*! \brief Current transmission bit rate. */ int tx_bit_rate; /*! \brief A "sample" count, used to time events. */ int32_t samples; /*! \brief The value for samples at the next transmission point. */ int32_t next_tx_samples; /*! \brief The current receive timeout. */ int32_t timeout_rx_samples; } t31_t38_front_end_state_t; /*! T.31 descriptor. This defines the working state for a single instance of a T.31 FAX modem. */ struct t31_state_s { at_state_t at_state; t31_modem_control_handler_t *modem_control_handler; void *modem_control_user_data; t31_audio_front_end_state_t audio; t31_t38_front_end_state_t t38_fe; /*! TRUE if working in T.38 mode. */ int t38_mode; /*! HDLC buffer, for composing an HDLC frame from the computer to the channel. */ struct { uint8_t buf[T31_MAX_HDLC_LEN]; int len; int ptr; /*! \brief TRUE when the end of HDLC data from the computer has been detected. */ int final; } hdlc_tx; /*! Buffer for data from the computer to the channel. */ struct { uint8_t data[T31_TX_BUF_LEN]; /*! \brief The number of bytes stored in transmit buffer. */ int in_bytes; /*! \brief The number of bytes sent from the transmit buffer. */ int out_bytes; /*! \brief TRUE if the flow of real data has started. */ int data_started; /*! \brief TRUE if holding up further data into the buffer, for flow control. */ int holding; /*! \brief TRUE when the end of non-ECM data from the computer has been detected. */ int final; } tx; /*! TRUE if DLE prefix just used */ int dled; /*! \brief Samples of silence awaited, as specified in a "wait for silence" command */ int silence_awaited; /*! \brief The current bit rate for the FAX fast message transfer modem. */ int bit_rate; /*! \brief TRUE if a valid HDLC frame has been received in the current reception period. */ int rx_frame_received; /*! \brief Samples elapsed in the current call */ int64_t call_samples; int64_t dte_data_timeout; /*! \brief The currently queued modem type. */ int modem; /*! \brief TRUE when short training mode has been selected by the computer. */ int short_train; queue_state_t *rx_queue; /*! \brief Error and flow logging control */ logging_state_t logging; }; #endif /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/spandsp/private/dtmf.h0000664000175000017500000000752511422612265017625 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * private/dtmf.h - DTMF tone generation and detection * * Written by Steve Underwood * * Copyright (C) 2001, 2005 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #if !defined(_SPANDSP_PRIVATE_DTMF_H_) #define _SPANDSP_PRIVATE_DTMF_H_ /*! DTMF generator state descriptor. This defines the state of a single working instance of a DTMF generator. */ struct dtmf_tx_state_s { tone_gen_state_t tones; float low_level; float high_level; int on_time; int off_time; union { queue_state_t queue; uint8_t buf[QUEUE_STATE_T_SIZE(MAX_DTMF_DIGITS)]; } queue; }; /*! DTMF digit detector descriptor. */ struct dtmf_rx_state_s { /*! Optional callback funcion to deliver received digits. */ digits_rx_callback_t digits_callback; /*! An opaque pointer passed to the callback function. */ void *digits_callback_data; /*! Optional callback funcion to deliver real time digit state changes. */ tone_report_func_t realtime_callback; /*! An opaque pointer passed to the real time callback function. */ void *realtime_callback_data; /*! TRUE if dialtone should be filtered before processing */ int filter_dialtone; #if defined(SPANDSP_USE_FIXED_POINT) /*! 350Hz filter state for the optional dialtone filter. */ float z350[2]; /*! 440Hz filter state for the optional dialtone filter. */ float z440[2]; /*! Maximum acceptable "normal" (lower bigger than higher) twist ratio. */ float normal_twist; /*! Maximum acceptable "reverse" (higher bigger than lower) twist ratio. */ float reverse_twist; /*! Minimum acceptable tone level for detection. */ int32_t threshold; /*! The accumlating total energy on the same period over which the Goertzels work. */ int32_t energy; #else /*! 350Hz filter state for the optional dialtone filter. */ float z350[2]; /*! 440Hz filter state for the optional dialtone filter. */ float z440[2]; /*! Maximum acceptable "normal" (lower bigger than higher) twist ratio. */ float normal_twist; /*! Maximum acceptable "reverse" (higher bigger than lower) twist ratio. */ float reverse_twist; /*! Minimum acceptable tone level for detection. */ float threshold; /*! The accumlating total energy on the same period over which the Goertzels work. */ float energy; #endif /*! Tone detector working states for the row tones. */ goertzel_state_t row_out[4]; /*! Tone detector working states for the column tones. */ goertzel_state_t col_out[4]; /*! The result of the last tone analysis. */ uint8_t last_hit; /*! The confirmed digit we are currently receiving */ uint8_t in_digit; /*! The current sample number within a processing block. */ int current_sample; /*! The number of digits which have been lost due to buffer overflows. */ int lost_digits; /*! The number of digits currently in the digit buffer. */ int current_digits; /*! The received digits buffer. This is a NULL terminated string. */ char digits[MAX_DTMF_DIGITS + 1]; }; #endif /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/spandsp/private/v29rx.h0000664000175000017500000001754111422612265017664 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * private/v29rx.h - ITU V.29 modem receive part * * Written by Steve Underwood * * Copyright (C) 2003 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #if !defined(_SPANDSP_PRIVATE_V29RX_H_) #define _SPANDSP_PRIVATE_V29RX_H_ /* Target length for the equalizer is about 63 taps, to deal with the worst stuff in V.56bis. */ /*! The length of the equalizer buffer */ #define V29_EQUALIZER_LEN 33 /*! Samples before the target position in the equalizer buffer */ #define V29_EQUALIZER_PRE_LEN 16 /*! The number of taps in the pulse shaping/bandpass filter */ #define V29_RX_FILTER_STEPS 27 /*! V.29 modem receive side descriptor. This defines the working state for a single instance of a V.29 modem receiver. */ struct v29_rx_state_s { /*! \brief The bit rate of the modem. Valid values are 4800, 7200 and 9600. */ int bit_rate; /*! \brief The callback function used to put each bit received. */ put_bit_func_t put_bit; /*! \brief A user specified opaque pointer passed to the put_bit routine. */ void *put_bit_user_data; /*! \brief The callback function used to report modem status changes. */ modem_rx_status_func_t status_handler; /*! \brief A user specified opaque pointer passed to the status function. */ void *status_user_data; /*! \brief A callback function which may be enabled to report every symbol's constellation position. */ qam_report_handler_t qam_report; /*! \brief A user specified opaque pointer passed to the qam_report callback routine. */ void *qam_user_data; /*! \brief The route raised cosine (RRC) pulse shaping filter buffer. */ #if defined(SPANDSP_USE_FIXED_POINT) int16_t rrc_filter[V29_RX_FILTER_STEPS]; #else float rrc_filter[V29_RX_FILTER_STEPS]; #endif /*! \brief Current offset into the RRC pulse shaping filter buffer. */ int rrc_filter_step; /*! \brief The register for the data scrambler. */ uint32_t scramble_reg; /*! \brief The register for the training scrambler. */ uint8_t training_scramble_reg; /*! \brief The current step in the table of CD constellation positions. */ int training_cd; /*! \brief TRUE if the previous trained values are to be reused. */ int old_train; /*! \brief The section of the training data we are currently in. */ int training_stage; /*! \brief A count of how far through the current training step we are. */ int training_count; /*! \brief A measure of how much mismatch there is between the real constellation, and the decoded symbol positions. */ float training_error; /*! \brief The value of the last signal sample, using the a simple HPF for signal power estimation. */ int16_t last_sample; /*! \brief >0 if a signal above the minimum is present. It may or may not be a V.29 signal. */ int signal_present; /*! \brief Whether or not a carrier drop was detected and the signal delivery is pending. */ int carrier_drop_pending; /*! \brief A count of the current consecutive samples below the carrier off threshold. */ int low_samples; /*! \brief A highest magnitude sample seen. */ int16_t high_sample; /*! \brief The position of the current symbol in the constellation, used for differential decoding. */ int constellation_state; /*! \brief The current phase of the carrier (i.e. the DDS parameter). */ uint32_t carrier_phase; /*! \brief The update rate for the phase of the carrier (i.e. the DDS increment). */ int32_t carrier_phase_rate; /*! \brief The carrier update rate saved for reuse when using short training. */ int32_t carrier_phase_rate_save; #if defined(SPANDSP_USE_FIXED_POINT) /*! \brief The proportional part of the carrier tracking filter. */ int32_t carrier_track_p; /*! \brief The integral part of the carrier tracking filter. */ int32_t carrier_track_i; #else /*! \brief The proportional part of the carrier tracking filter. */ float carrier_track_p; /*! \brief The integral part of the carrier tracking filter. */ float carrier_track_i; #endif /*! \brief A power meter, to measure the HPF'ed signal power in the channel. */ power_meter_t power; /*! \brief The power meter level at which carrier on is declared. */ int32_t carrier_on_power; /*! \brief The power meter level at which carrier off is declared. */ int32_t carrier_off_power; /*! \brief Current read offset into the equalizer buffer. */ int eq_step; /*! \brief Current write offset into the equalizer buffer. */ int eq_put_step; /*! \brief Symbol counter to the next equalizer update. */ int eq_skip; /*! \brief The current half of the baud. */ int baud_half; #if defined(SPANDSP_USE_FIXED_POINT) /*! \brief The scaling factor accessed by the AGC algorithm. */ int16_t agc_scaling; /*! \brief The previous value of agc_scaling, needed to reuse old training. */ int16_t agc_scaling_save; /*! \brief The current delta factor for updating the equalizer coefficients. */ int16_t eq_delta; /*! \brief The adaptive equalizer coefficients. */ complexi16_t eq_coeff[V29_EQUALIZER_LEN]; /*! \brief A saved set of adaptive equalizer coefficients for use after restarts. */ complexi16_t eq_coeff_save[V29_EQUALIZER_LEN]; /*! \brief The equalizer signal buffer. */ complexi16_t eq_buf[V29_EQUALIZER_LEN]; /*! Low band edge filter for symbol sync. */ int32_t symbol_sync_low[2]; /*! High band edge filter for symbol sync. */ int32_t symbol_sync_high[2]; /*! DC filter for symbol sync. */ int32_t symbol_sync_dc_filter[2]; /*! Baud phase for symbol sync. */ int32_t baud_phase; #else /*! \brief The scaling factor accessed by the AGC algorithm. */ float agc_scaling; /*! \brief The previous value of agc_scaling, needed to reuse old training. */ float agc_scaling_save; /*! \brief The current delta factor for updating the equalizer coefficients. */ float eq_delta; /*! \brief The adaptive equalizer coefficients. */ complexf_t eq_coeff[V29_EQUALIZER_LEN]; /*! \brief A saved set of adaptive equalizer coefficients for use after restarts. */ complexf_t eq_coeff_save[V29_EQUALIZER_LEN]; /*! \brief The equalizer signal buffer. */ complexf_t eq_buf[V29_EQUALIZER_LEN]; /*! Low band edge filter for symbol sync. */ float symbol_sync_low[2]; /*! High band edge filter for symbol sync. */ float symbol_sync_high[2]; /*! DC filter for symbol sync. */ float symbol_sync_dc_filter[2]; /*! Baud phase for symbol sync. */ float baud_phase; #endif /*! \brief The total symbol timing correction since the carrier came up. This is only for performance analysis purposes. */ int total_baud_timing_correction; /*! \brief Starting phase angles for the coarse carrier aquisition step. */ int32_t start_angles[2]; /*! \brief History list of phase angles for the coarse carrier aquisition step. */ int32_t angles[16]; /*! \brief Error and flow logging control */ logging_state_t logging; }; #endif /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/spandsp/private/fsk.h0000664000175000017500000000610111422612265017443 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * private/fsk.h - FSK modem transmit and receive parts * * Written by Steve Underwood * * Copyright (C) 2003 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #if !defined(_SPANDSP_PRIVATE_FSK_H_) #define _SPANDSP_PRIVATE_FSK_H_ /*! FSK modem transmit descriptor. This defines the state of a single working instance of an FSK modem transmitter. */ struct fsk_tx_state_s { int baud_rate; /*! \brief The callback function used to get the next bit to be transmitted. */ get_bit_func_t get_bit; /*! \brief A user specified opaque pointer passed to the get_bit function. */ void *get_bit_user_data; /*! \brief The callback function used to report modem status changes. */ modem_tx_status_func_t status_handler; /*! \brief A user specified opaque pointer passed to the status function. */ void *status_user_data; int32_t phase_rates[2]; int16_t scaling; int32_t current_phase_rate; uint32_t phase_acc; int baud_frac; int shutdown; }; /*! FSK modem receive descriptor. This defines the state of a single working instance of an FSK modem receiver. */ struct fsk_rx_state_s { int baud_rate; /*! \brief Synchronous/asynchronous framing control */ int framing_mode; /*! \brief The callback function used to put each bit received. */ put_bit_func_t put_bit; /*! \brief A user specified opaque pointer passed to the put_bit routine. */ void *put_bit_user_data; /*! \brief The callback function used to report modem status changes. */ modem_tx_status_func_t status_handler; /*! \brief A user specified opaque pointer passed to the status function. */ void *status_user_data; int32_t carrier_on_power; int32_t carrier_off_power; power_meter_t power; /*! \brief The value of the last signal sample, using the a simple HPF for signal power estimation. */ int16_t last_sample; /*! \brief >0 if a signal above the minimum is present. It may or may not be a V.29 signal. */ int signal_present; int32_t phase_rate[2]; uint32_t phase_acc[2]; int correlation_span; complexi32_t window[2][FSK_MAX_WINDOW_LEN]; complexi32_t dot[2]; int buf_ptr; int frame_state; int frame_bits; int baud_phase; int last_bit; int scaling_shift; }; #endif /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/spandsp/private/v17rx.h0000664000175000017500000002211111422612265017646 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * private/v17rx.h - ITU V.17 modem receive part * * Written by Steve Underwood * * Copyright (C) 2003 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #if !defined(_SPANDSP_PRIVATE_V17RX_H_) #define _SPANDSP_PRIVATE_V17RX_H_ /* Target length for the equalizer is about 63 taps, to deal with the worst stuff in V.56bis. */ /*! The length of the equalizer buffer */ //#define V17_EQUALIZER_LEN 33 #define V17_EQUALIZER_LEN 17 /*! Samples before the target position in the equalizer buffer */ //#define V17_EQUALIZER_PRE_LEN 16 #define V17_EQUALIZER_PRE_LEN 8 /*! The number of taps in the pulse shaping/bandpass filter */ #define V17_RX_FILTER_STEPS 27 /* We can store more trellis depth that we look back over, so that we can push out a group of symbols in one go, giving greater processing efficiency, at the expense of a bit more latency through the modem. */ /* Right now we don't take advantage of this optimisation. */ /*! The depth of the trellis buffer */ #define V17_TRELLIS_STORAGE_DEPTH 16 /*! How far we look back into history for trellis decisions */ #define V17_TRELLIS_LOOKBACK_DEPTH 16 /*! V.17 modem receive side descriptor. This defines the working state for a single instance of a V.17 modem receiver. */ struct v17_rx_state_s { /*! \brief The bit rate of the modem. Valid values are 7200 9600, 12000 and 14400. */ int bit_rate; /*! \brief The callback function used to put each bit received. */ put_bit_func_t put_bit; /*! \brief A user specified opaque pointer passed to the put_but routine. */ void *put_bit_user_data; /*! \brief The callback function used to report modem status changes. */ modem_rx_status_func_t status_handler; /*! \brief A user specified opaque pointer passed to the status function. */ void *status_user_data; /*! \brief A callback function which may be enabled to report every symbol's constellation position. */ qam_report_handler_t qam_report; /*! \brief A user specified opaque pointer passed to the qam_report callback routine. */ void *qam_user_data; /*! \brief The route raised cosine (RRC) pulse shaping filter buffer. */ #if defined(SPANDSP_USE_FIXED_POINT) int16_t rrc_filter[V17_RX_FILTER_STEPS]; #else float rrc_filter[V17_RX_FILTER_STEPS]; #endif /*! \brief Current offset into the RRC pulse shaping filter buffer. */ int rrc_filter_step; /*! \brief The state of the differential decoder */ int diff; /*! \brief The register for the data scrambler. */ uint32_t scramble_reg; /*! \brief Scrambler tap */ //int scrambler_tap; /*! \brief TRUE if the short training sequence is to be used. */ int short_train; /*! \brief The section of the training data we are currently in. */ int training_stage; /*! \brief A count of how far through the current training step we are. */ int training_count; /*! \brief A measure of how much mismatch there is between the real constellation, and the decoded symbol positions. */ float training_error; /*! \brief The value of the last signal sample, using the a simple HPF for signal power estimation. */ int16_t last_sample; /*! \brief >0 if a signal above the minimum is present. It may or may not be a V.17 signal. */ int signal_present; /*! \brief Whether or not a carrier drop was detected and the signal delivery is pending. */ int carrier_drop_pending; /*! \brief A count of the current consecutive samples below the carrier off threshold. */ int low_samples; /*! \brief A highest magnitude sample seen. */ int16_t high_sample; /*! \brief The current phase of the carrier (i.e. the DDS parameter). */ uint32_t carrier_phase; /*! \brief The update rate for the phase of the carrier (i.e. the DDS increment). */ int32_t carrier_phase_rate; /*! \brief The carrier update rate saved for reuse when using short training. */ int32_t carrier_phase_rate_save; #if defined(SPANDSP_USE_FIXED_POINTx) /*! \brief The proportional part of the carrier tracking filter. */ float carrier_track_p; /*! \brief The integral part of the carrier tracking filter. */ float carrier_track_i; #else /*! \brief The proportional part of the carrier tracking filter. */ float carrier_track_p; /*! \brief The integral part of the carrier tracking filter. */ float carrier_track_i; #endif /*! \brief A power meter, to measure the HPF'ed signal power in the channel. */ power_meter_t power; /*! \brief The power meter level at which carrier on is declared. */ int32_t carrier_on_power; /*! \brief The power meter level at which carrier off is declared. */ int32_t carrier_off_power; /*! \brief Current read offset into the equalizer buffer. */ int eq_step; /*! \brief Current write offset into the equalizer buffer. */ int eq_put_step; /*! \brief Symbol count to the next equalizer update. */ int eq_skip; /*! \brief The current half of the baud. */ int baud_half; #if defined(SPANDSP_USE_FIXED_POINTx) /*! \brief The scaling factor accessed by the AGC algorithm. */ float agc_scaling; /*! \brief The previous value of agc_scaling, needed to reuse old training. */ float agc_scaling_save; /*! \brief The current delta factor for updating the equalizer coefficients. */ float eq_delta; /*! \brief The adaptive equalizer coefficients. */ complexi16_t eq_coeff[V17_EQUALIZER_LEN]; /*! \brief A saved set of adaptive equalizer coefficients for use after restarts. */ complexi16_t eq_coeff_save[V17_EQUALIZER_LEN]; /*! \brief The equalizer signal buffer. */ complexi16_t eq_buf[V17_EQUALIZER_LEN]; /*! Low band edge filter for symbol sync. */ int32_t symbol_sync_low[2]; /*! High band edge filter for symbol sync. */ int32_t symbol_sync_high[2]; /*! DC filter for symbol sync. */ int32_t symbol_sync_dc_filter[2]; /*! Baud phase for symbol sync. */ int32_t baud_phase; #else /*! \brief The scaling factor accessed by the AGC algorithm. */ float agc_scaling; /*! \brief The previous value of agc_scaling, needed to reuse old training. */ float agc_scaling_save; /*! \brief The current delta factor for updating the equalizer coefficients. */ float eq_delta; /*! \brief The adaptive equalizer coefficients. */ complexf_t eq_coeff[V17_EQUALIZER_LEN]; /*! \brief A saved set of adaptive equalizer coefficients for use after restarts. */ complexf_t eq_coeff_save[V17_EQUALIZER_LEN]; /*! \brief The equalizer signal buffer. */ complexf_t eq_buf[V17_EQUALIZER_LEN]; /*! Low band edge filter for symbol sync. */ float symbol_sync_low[2]; /*! High band edge filter for symbol sync. */ float symbol_sync_high[2]; /*! DC filter for symbol sync. */ float symbol_sync_dc_filter[2]; /*! Baud phase for symbol sync. */ float baud_phase; #endif /*! \brief The total symbol timing correction since the carrier came up. This is only for performance analysis purposes. */ int total_baud_timing_correction; /*! \brief Starting phase angles for the coarse carrier aquisition step. */ int32_t start_angles[2]; /*! \brief History list of phase angles for the coarse carrier aquisition step. */ int32_t angles[16]; /*! \brief A pointer to the current constellation. */ #if defined(SPANDSP_USE_FIXED_POINTx) const complexi16_t *constellation; #else const complexf_t *constellation; #endif /*! \brief A pointer to the current space map. There is a space map for each trellis state. */ int space_map; /*! \brief The number of bits in each symbol at the current bit rate. */ int bits_per_symbol; /*! \brief Current pointer to the trellis buffers */ int trellis_ptr; /*! \brief The trellis. */ int full_path_to_past_state_locations[V17_TRELLIS_STORAGE_DEPTH][8]; /*! \brief The trellis. */ int past_state_locations[V17_TRELLIS_STORAGE_DEPTH][8]; /*! \brief Euclidean distances (actually the squares of the distances) from the last states of the trellis. */ #if defined(SPANDSP_USE_FIXED_POINTx) uint32_t distances[8]; #else float distances[8]; #endif /*! \brief Error and flow logging control */ logging_state_t logging; }; #endif /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/spandsp/private/v29tx.h0000664000175000017500000000734011422612265017662 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * private/v29tx.h - ITU V.29 modem transmit part * * Written by Steve Underwood * * Copyright (C) 2003 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #if !defined(_SPANDSP_PRIVATE_V29TX_H_) #define _SPANDSP_PRIVATE_V29TX_H_ /*! The number of taps in the pulse shaping/bandpass filter */ #define V29_TX_FILTER_STEPS 9 /*! V.29 modem transmit side descriptor. This defines the working state for a single instance of a V.29 modem transmitter. */ struct v29_tx_state_s { /*! \brief The bit rate of the modem. Valid values are 4800, 7200 and 9600. */ int bit_rate; /*! \brief The callback function used to get the next bit to be transmitted. */ get_bit_func_t get_bit; /*! \brief A user specified opaque pointer passed to the get_bit function. */ void *get_bit_user_data; /*! \brief The callback function used to report modem status changes. */ modem_tx_status_func_t status_handler; /*! \brief A user specified opaque pointer passed to the status function. */ void *status_user_data; /*! \brief Gain required to achieve the specified output power, not allowing for the size of the current constellation. */ float base_gain; /*! \brief Gain required to achieve the specified output power, allowing for the size of the current constellation. */ #if defined(SPANDSP_USE_FIXED_POINT) int32_t gain; #else float gain; #endif /*! \brief The route raised cosine (RRC) pulse shaping filter buffer. */ #if defined(SPANDSP_USE_FIXED_POINT) complexi16_t rrc_filter[2*V29_TX_FILTER_STEPS]; #else complexf_t rrc_filter[2*V29_TX_FILTER_STEPS]; #endif /*! \brief Current offset into the RRC pulse shaping filter buffer. */ int rrc_filter_step; /*! \brief The register for the data scrambler. */ unsigned int scramble_reg; /*! \brief The register for the training scrambler. */ uint8_t training_scramble_reg; /*! \brief TRUE if transmitting the training sequence, or shutting down transmission. FALSE if transmitting user data. */ int in_training; /*! \brief A counter used to track progress through sending the training sequence. */ int training_step; /*! \brief An offset value into the table of training parameters, used to match the training pattern to the bit rate. */ int training_offset; /*! \brief The current phase of the carrier (i.e. the DDS parameter). */ uint32_t carrier_phase; /*! \brief The update rate for the phase of the carrier (i.e. the DDS increment). */ int32_t carrier_phase_rate; /*! \brief The current fractional phase of the baud timing. */ int baud_phase; /*! \brief The code number for the current position in the constellation. */ int constellation_state; /*! \brief The get_bit function in use at any instant. */ get_bit_func_t current_get_bit; /*! \brief Error and flow logging control */ logging_state_t logging; }; #endif /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/spandsp/private/fax.h0000664000175000017500000000277111422612265017447 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * private/fax.h - private definitions for analogue line ITU T.30 fax processing * * Written by Steve Underwood * * Copyright (C) 2005 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \file */ #if !defined(_SPANDSP_PRIVATE_FAX_H_) #define _SPANDSP_PRIVATE_FAX_H_ /*! Analogue line T.30 FAX channel descriptor. This defines the state of a single working instance of an analogue line soft-FAX machine. */ struct fax_state_s { /*! \brief The T.30 back-end */ t30_state_t t30; /*! \brief The analogue modem front-end */ fax_modems_state_t modems; /*! \brief V.8 */ //v8_state_t v8; /*! \brief Error and flow logging control */ logging_state_t logging; }; #endif /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/spandsp/private/t4_t6_encode.h0000664000175000017500000000406611422612265021145 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * private/t4_t6_encode.h - definitions for T.4/T.6 fax compression * * Written by Steve Underwood * * Copyright (C) 2003 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #if !defined(_SPANDSP_PRIVATE_T4_T6_ENCODE_H_) #define _SPANDSP_PRIVATE_T4_T6_ENCODE_H_ /*! T.4 1D, T4 2D and T6 compressor state. */ struct t4_t6_encode_state_s { /*! \brief The minimum number of encoded bits per row. This is a timing thing for hardware FAX machines. */ int min_bits_per_row; /*! \brief The current maximum contiguous rows that may be 2D encoded. */ int max_rows_to_next_1d_row; /*! \brief Number of rows left that can be 2D encoded, before a 1D encoded row must be used. */ int rows_to_next_1d_row; /*! \brief The number of runs currently in the reference row. */ int ref_steps; /*! \brief Pointer to the byte containing the next image bit to transmit. */ int bit_pos; /*! \brief Pointer to the bit within the byte containing the next image bit to transmit. */ int bit_ptr; /*! \brief Callback function to read a row of pixels from the image source. */ t4_row_read_handler_t row_read_handler; /*! \brief Opaque pointer passed to row_read_handler. */ void *row_read_user_data; }; #endif /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/spandsp/private/oki_adpcm.h0000664000175000017500000000373011422612265020613 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * private/oki_adpcm.h - Conversion routines between linear 16 bit PCM data * and OKI (Dialogic) ADPCM format. * * Written by Steve Underwood * * Copyright (C) 2001 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \file */ #if !defined(_SPANDSP_PRIVATE_OKI_ADPCM_H_) #define _SPANDSP_PRIVATE_OKI_ADPCM_H_ /*! Oki (Dialogic) ADPCM conversion state descriptor. This defines the state of a single working instance of the Oki ADPCM converter. This is used for either linear to ADPCM or ADPCM to linear conversion. */ struct oki_adpcm_state_s { /*! \brief The bit rate - 24000 or 32000. */ int bit_rate; /*! \brief The last state of the ADPCM algorithm. */ int16_t last; /*! \brief Current index into the step size table. */ int16_t step_index; /*! \brief The compressed data byte in progress. */ uint8_t oki_byte; /*! \brief The signal history for the sample rate converter. */ int16_t history[32]; /*! \brief Pointer into the history buffer. */ int ptr; /*! \brief Odd/even sample counter. */ int mark; /*! \brief Phase accumulator for the sample rate converter. */ int phase; }; #endif /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/spandsp/private/t30_dis_dtc_dcs_bits.h0000664000175000017500000005014311422612265022636 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * t30_dis_dtc_dcs_bits.h - ITU T.30 fax control bits definitions * * Written by Steve Underwood * * Copyright (C) 2009 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \file */ #if !defined(_SPANDSP_PRIVATE_T30_DIS_DTC_DCS_BITS_H_) #define _SPANDSP_PRIVATE_T30_DIS_DTC_DCS_BITS_H_ /* Indicates that the terminal has the Simple mode capability defined in ITU-T Rec. T.37. Internet address signals CIA, TSA or CSA can be sent and received. The recipient terminal may process or ignore this signal. */ #define T30_DIS_BIT_T37 1 #define T30_DCS_BIT_T37 1 /* Indicates that the terminal has the capability to communicate using ITU-T Rec. T.38. Internet address signals CIA, TSA or CSA can be sent and received. The recipient terminal may process or ignore this signal. */ #define T30_DIS_BIT_T38 3 #define T30_DCS_BIT_T38 3 /* Bit 4 set to "1" indicates 3rd Generation Mobile Network Access to the GSTN Connection. Bit 4 set to "0" conveys no information about the type of connection. */ #define T30_DIS_BIT_3G_MOBILE 4 #define T30_DCS_BIT_3G_MOBILE 4 /* When ISDN mode is used, in DIS/DTC bit 6 shall be set to "0". */ #define T30_DIS_BIT_V8_CAPABILITY 6 /* When ISDN mode is used, in DIS/DTC bit 7 shall be set to "0". */ #define T30_DIS_BIT_64_OCTET_ECM_FRAMES_PREFERRED 7 /* Bit 9 indicates that there is a facsimile document ready to be polled from the answering terrminal. It is not an indication of a capability. */ #define T30_DIS_BIT_READY_TO_TRANSMIT_FAX_DOCUMENT 9 /* In DIS/DTC bit 10 indicates that the answering terminal has receiving capabilities. In DCS it is a command to the receiving terminal to set itself in the receive mode. */ #define T30_DIS_BIT_READY_TO_RECEIVE_FAX_DOCUMENT 10 #define T30_DCS_BIT_RECEIVE_FAX_DOCUMENT 10 /* Bits 11, 12, 13, 14 - modem type */ #define T30_DIS_BIT_200_200_CAPABLE 15 #define T30_DCS_BIT_200_200 15 #define T30_DIS_BIT_2D_CAPABLE 16 #define T30_DCS_BIT_2D_CODING 16 /* Standard facsimile terminals conforming to ITU-T Rec. T.4 must have the following capability: Paper length = 297 mm. */ /* Bits 17, 18 - recording width */ /* Bits 19, 20 - paper length */ /* Bits 21, 22, 23 - min scan line time */ /* When ISDN mode is used, in DIS/DTC bits 21 to 23 shall be set to "1". */ #define T30_DIS_BIT_UNCOMPRESSED_CAPABLE 26 #define T30_DCS_BIT_UNCOMPRESSED_MODE 26 /* When ISDN mode is used, in DIS/DTC bit 27 shall be set to "1". */ #define T30_DIS_BIT_ECM_CAPABLE 27 #define T30_DCS_BIT_ECM 27 /* The value of bit 28 in the DCS command is only valid when ECM is selected. */ #define T30_DCS_BIT_64_OCTET_ECM_FRAMES 28 /* The value of bit 31 in the DCS command is only valid when ECM is selected. */ #define T30_DIS_BIT_T6_CAPABLE 31 #define T30_DCS_BIT_T6_MODE 31 #define T30_DIS_BIT_FNV_CAPABLE 33 #define T30_DCS_BIT_FNV_CAPABLE 33 #define T30_DIS_BIT_MULTIPLE_SELECTIVE_POLLING_CAPABLE 34 #define T30_DIS_BIT_POLLED_SUBADDRESSING_CAPABLE 35 #define T30_DIS_BIT_T43_CAPABLE 36 #define T30_DCS_BIT_T43_CODING 36 #define T30_DIS_BIT_PLANE_INTERLEAVE_CAPABLE 37 #define T30_DCS_BIT_PLANE_INTERLEAVE 37 #define T30_DIS_BIT_G726_CAPABLE 38 #define T30_DCS_BIT_G726 38 #define T30_DIS_BIT_200_400_CAPABLE 41 #define T30_DCS_BIT_200_400 41 #define T30_DIS_BIT_300_300_CAPABLE 42 #define T30_DCS_BIT_300_300 42 #define T30_DIS_BIT_400_400_CAPABLE 43 #define T30_DCS_BIT_400_400 43 /* Bits 44 and 45 are used only in conjunction with bits 15 and 43. Bit 44 in DCS, when used, shall correctly indicate the resolution of the transmitted document, which means that bit 44 in DCS may not always match the indication of bits 44 and 45 in DIS/DTC. Cross selection will cause the distortion and reduction of reproducible area. If a receiver indicates in DIS that it prefers to receive metric-based information, but the transmitter has only the equivalent inch-based information (or vice versa), then communication shall still take place. Bits 44 and 45 do not require the provision of any additional features on the terminal to indicate to the sending or receiving user whether the information was transmitted or received on a metric-metric, inch-inch, metric-inch, inch-metric basis. */ #define T30_DIS_BIT_INCH_RESOLUTION_PREFERRED 44 #define T30_DCS_BIT_INCH_RESOLUTION 44 #define T30_DIS_BIT_METRIC_RESOLUTION_PREFERRED 45 #define T30_DIS_BIT_MIN_SCAN_TIME_HALVES 46 #define T30_DIS_BIT_SELECTIVE_POLLING_CAPABLE 47 #define T30_DIS_BIT_SUBADDRESSING_CAPABLE 49 #define T30_DCS_BIT_SUBADDRESS_TRANSMISSION 49 #define T30_DIS_BIT_PASSWORD 50 #define T30_DCS_BIT_SENDER_ID_TRANSMISSION 50 /* Bit 51 indicates that there is a data file ready to be polled from the answering terminal. It is not an indication of a capability. This bit is used in conjunction with bits 53, 54, 55 and 57. */ #define T30_DIS_BIT_READY_TO_TRANSMIT_DATA_FILE 51 /* The binary file transfer protocol is described in ITU-T Rec. T.434. */ #define T30_DIS_BIT_BFT_CAPABLE 53 #define T30_DCS_BIT_BFT 53 #define T30_DIS_BIT_DTM_CAPABLE 54 #define T30_DCS_BIT_DTM 54 #define T30_DIS_BIT_EDI_CAPABLE 55 #define T30_DCS_BIT_EDI 55 #define T30_DIS_BIT_BTM_CAPABLE 57 #define T30_DCS_BIT_BTM 57 /* Bit 59 indicates that there is a character-coded or mixed-mode document ready to be polled from the answering terminal. It is not an indication of a capability. This bit is used in conjunction with bits 60, 62 and 65. */ #define T30_DIS_BIT_READY_TO_TRANSMIT_MIXED_MODE_DOCUMENT 59 #define T30_DIS_BIT_CHARACTER_MODE 60 #define T30_DCS_BIT_CHARACTER_MODE 60 #define T30_DIS_BIT_MIXED_MODE 62 #define T30_DCS_BIT_MIXED_MODE 62 #define T30_DIS_BIT_PROCESSABLE_MODE_26 65 #define T30_DIS_BIT_DIGITAL_NETWORK_CAPABLE 66 #define T30_DCS_BIT_DIGITAL_NETWORK_CAPABLE 66 #define T30_DIS_BIT_DUPLEX_CAPABLE 67 #define T30_DCS_BIT_DUPLEX_CAPABLE 67 #define T30_DIS_BIT_T81_CAPABLE 68 #define T30_DCS_BIT_FULL_COLOUR_MODEX 68 #define T30_DIS_BIT_FULL_COLOUR_CAPABLE 69 #define T30_DCS_BIT_FULL_COLOUR_MODE 69 /* In a DIS/DTC frame, setting bit 71 to "0" indicates that the called terminal can only accept image data which has been digitized to 8 bits/pel/component for JPEG mode. This is also true for T.43 mode if bit 36 is also set to "1". Setting bit 71 to "1" indicates that the called terminal can also accept image data that are digitized to 12 bits/pel/component for JPEG mode. This is also true for T.43 mode if bit 36 is also set to "1". In a DCS frame, setting bit 71 to "0" indicates that the calling terminal's image data are digitized to 8 bits/pel/component for JPEG mode. This is also true for T.43 mode if bit 36 is also set to "1". Setting bit 71 to "1" indicates that the calling terminal transmits image data which has been digitized to 12 bits/pel/component for JPEG mode. This is also true for T.43 mode if bit 36 is also set to "1". */ #define T30_DIS_BIT_12BIT_CAPABLE 71 #define T30_DCS_BIT_12BIT_COMPONENT 71 #define T30_DIS_BIT_NO_SUBSAMPLING 73 #define T30_DCS_BIT_NO_SUBSAMPLING 73 #define T30_DIS_BIT_CUSTOM_ILLUMINANT 74 #define T30_DCS_BIT_CUSTOM_ILLUMINANT 74 #define T30_DIS_BIT_CUSTOM_GAMUT_RANGE 75 #define T30_DCS_BIT_CUSTOM_GAMUT_RANGE 75 #define T30_DIS_BIT_NORTH_AMERICAN_LETTER_CAPABLE 76 #define T30_DCS_BIT_NORTH_AMERICAN_LETTER 76 #define T30_DIS_BIT_NORTH_AMERICAN_LEGAL_CAPABLE 77 #define T30_DCS_BIT_NORTH_AMERICAN_LEGAL 77 #define T30_DIS_BIT_T85_CAPABLE 78 #define T30_DCS_BIT_T85_MODE 78 #define T30_DIS_BIT_T85_L0_CAPABLE 79 #define T30_DCS_BIT_T85_L0_MODE 79 /* In a DIS/DTC frame, setting bit 97 to "0" indicates that the called terminal does not have the capability to accept 300 pels/25.4 mm x 300 lines/25.4 mm or 400 pels/25.4 mm x 400 lines/25.4 mm resolutions for colour/gray-scale images or T.44 Mixed Raster Content (MRC) mask layer. Setting bit 97 to "1" indicates that the called terminal does have the capability to accept 300 pels/25.4 mm x 300 lines/25.4 mm or 400 pels/25.4 mm x 400 lines/25.4 mm resolutions for colour/gray-scale images and MRC mask layer. Bit 97 is valid only when bits 68 and 42 or 43 (300 pels/25.4 mm x 300 lines/25.4 mm or 400 pels/25.4 mm x 400 lines/25.4 mm) are set to "1". In a DCS frame, setting bit 97 to "0" indicates that the calling terminal does not use 300 pels/25.4 mm x 300 lines/25.4 mm or 400 pels/25.4 mm x 400 lines/25.4 mm resolutions for colour/gray-scale images and mask layer. Setting bit 97 to "1" indicates that the calling terminal uses 300 pels/25.4 mm x 300 lines/25.4 mm or 400 pels/25.4 mm x 400 lines/25.4 mm resolutions for colour/gray-scale images and MRC mask layer. Bit 97 is valid only when bits 68 and 42 or 43 (300 pels/25.4 mm x 300 lines/25.4 mm and 400 pels/25.4 mm x 400 lines/25.4 mm) are set to "1". In a DIS/DTC frame, combinations of bit 42, bit 43 and bit 97 indicate that the called terminal has higher resolution capabilities as follows: Resolution capabilities (pels/25.4 mm) DIS/DTC Monochrome Colour/gray-scale 42 43 97 300 x 300 400 x 400 300 x 300 400 x 400 0 0 0 no no no no 1 0 0 yes no no no 0 1 0 no yes no no 1 1 0 yes yes no no 0 0 1 (invalid) 1 0 1 yes no yes no 0 1 1 no yes no yes 1 1 1 yes yes yes yes "yes" means that the called terminal has the corresponding capability. "no" means that the called terminal does not have the corresponding capability. */ #define T30_DIS_BIT_COLOUR_GREY_300_300_400_400_CAPABLE 97 #define T30_DCS_BIT_COLOUR_GREY_300_300_400_400 97 /* In a DIS/DTC frame, setting bit 98 to "0" indicates that the called terminal does not have the capability to accept 100 pels/25.4 mm x 100 lines/25.4 mm spatial resolution for colour or gray-scale images. Setting bit 98 to "1" indicates that the called terminal does have the capability to accept 100 pels/25.4 mm x 100 lines/25.4 mm spatial resolution for colour or gray-scale images. Bit 98 is valid only when bit 68 is set to "1". In a DCS frame, setting bit 98 to "0" indicates that the calling terminal does not use 100 pels/25.4 mm x 100 lines/25.4 mm spatial resolution for colour or gray-scale images. Setting bit 98 to "1" indicates that the calling terminal uses 100 pels/25.4 mm x 100 lines/25.4 mm spatial resolution for colour or gray-scale images. */ #define T30_DIS_BIT_COLOUR_GREY_100_100_CAPABLE 98 #define T30_DCS_BIT_COLOUR_GREY_100_100 98 /* To provide an error recovery mechanism, when PWD/SEP/SUB/SID/PSA/IRA/ISP frames are sent with DCS or DTC, bits 49, 102 and 50 in DCS or bits 47, 101, 50 and 35 in DTC shall be set to "1" with the following meaning: Bit DIS DTC DCS 35 Polled SubAddress capability Polled SubAddress transmission Not allowed – set to "0" 47 Selective polling capability Selective polling transmission Not allowed – set to "0" 49 Subaddressing capability Not allowed (Set to "0") Subaddressing transmission 50 Password Password transmission Sender Identification transmission 101 Internet Selective Polling Address capability Internet Selective Polling Address transmission Not allowed – set to "0" 102 Internet Routing Address capability Not allowed (Set to "0") Internet Routing Address transmission Terminals conforming to the 1993 version of T.30 may set the above bits to "0" even though PWD/SEP/SUB frames are transmitted. */ #define T30_DIS_BIT_INTERNET_SELECTIVE_POLLING_ADDRESS 101 #define T30_DIS_BIT_INTERNET_ROUTING_ADDRESS 102 #define T30_DCS_BIT_INTERNET_ROUTING_ADDRESS_TRANSMISSION 102 #define T30_DIS_BIT_600_600_CAPABLE 105 #define T30_DCS_BIT_600_600 105 #define T30_DIS_BIT_1200_1200_CAPABLE 106 #define T30_DCS_BIT_1200_1200 106 #define T30_DIS_BIT_300_600_CAPABLE 107 #define T30_DCS_BIT_300_600 107 #define T30_DIS_BIT_400_800_CAPABLE 108 #define T30_DCS_BIT_400_800 108 #define T30_DIS_BIT_600_1200_CAPABLE 109 #define T30_DCS_BIT_600_1200 109 #define T30_DIS_BIT_COLOUR_GREY_600_600_CAPABLE 110 #define T30_DCS_BIT_COLOUR_GREY_600_600 110 #define T30_DIS_BIT_COLOUR_GREY_1200_1200_CAPABLE 111 #define T30_DCS_BIT_COLOUR_GREY_1200_1200 111 #define T30_DIS_BIT_ALTERNATE_DOUBLE_SIDED_CAPABLE 113 #define T30_DCS_BIT_ALTERNATE_DOUBLE_SIDED_CAPABLE 113 #define T30_DIS_BIT_CONTINUOUS_DOUBLE_SIDED_CAPABLE 114 #define T30_DCS_BIT_CONTINUOUS_DOUBLE_SIDED_CAPABLE 114 #define T30_DIS_BIT_BLACK_AND_WHITE_MRC 115 #define T30_DIS_BIT_T45_CAPABLE 116 #define T30_DCS_BIT_T45_MODE 116 /* This bit defines the available colour space, when bit 92, 93 or 94 is set to "1". Available colour space for all combinations of bits 92, 93, 94 and 119 are shown in the following table. It should be noted that terminals which conform to the 2003 and earlier versions of this Recommendation will send LAB with "1" in bit 92, 93 or 94 even if bit 119 is set to "1". Available colour space for DIS/DTC bits 92, 93, 94 and 119 92 93 94 119 Mode of T.44 Available colour space 0 0 0 x Not available - 1 0 0 0 Mode 1 LAB only 1 0 0 1 Mode 1 YCC only x 1 x 0 Mode 2 or higher LAB only x x 1 0 Mode 2 or higher LAB only x 1 x 1 Mode 2 or higher LAB and YCC x x 1 1 Mode 2 or higher LAB and YCC Colour space for DCS bits 92, 93, 94 and 119 92 93 94 119 Mode of T.44 Colour space 0 0 0 x* Not available - 1 0 0 0 Mode 1 LAB 1 0 0 1 Mode 1 YCC x 1 x 0 Mode 2 or higher LAB x x 1 0 Mode 2 or higher LAB x 1 x 1 Mode 2 or higher YCC or mixing of YCC and LAB x x 1 1 Mode 2 or higher YCC or mixing of YCC and LAB */ #define T30_DIS_BIT_T44_COLOUR_SPACE 119 #define T30_DCS_BIT_T44_COLOUR_SPACE 119 /* Can only be set in the communication through the T.38 gateway, to cope with delay of network. T.x timer (12+-1s) should be used after emitting RNR or TNR. However, after receiving PPS signal in ECM mode, T.5 timer should be used. */ #define T30_DIS_BIT_T38_FLOW_CONTROL_CAPABLE 121 #define T30_DCS_BIT_T38_FLOW_CONTROL_CAPABLE 121 /* For resolutions greater than 200 lines/25.4 mm, 4.2.1.1/T.4 specifies the use of specific K factors for each standardized vertical resolution. To ensure backward compatibility with earlier versions of ITU-T Rec. T.4, bit 122 indicates when such K factors are being used. */ #define T30_DIS_BIT_K_GREATER_THAN_4 122 /* This bit should be set to "1" if the fax device is an Internet-Aware Fax Device as defined in ITU-T Rec. T.38 and if it is not affected by the data signal rate indicated by the DIS and DTC signals when communicating with another Internet-Aware Fax Device operating in T.38 mode. This bit shall not be used in GSTN mode. */ #define T30_DIS_BIT_T38_FAX_CAPABLE 123 /* This bit should be set to "1" if the fax device elects to operate in an Internet-Aware Fax mode as defined in ITU-T Rec. T.38 in response to a device which has set the related DIS bit to "1". When this bit is set to "1", the data signal rate of the modem (bits 11-14) should be set to "0". */ #define T30_DCS_BIT_T38_FAX_MODE 123 /* When either bit of 31, 36, 38, 51, 53, 54, 55, 57, 59, 60, 62, 65, 68, 78, 79, 115, 116 and 127 is set to "1", ECM must be used. If the value of bit field 92 to 94 is non-zero, then ECM must be used. Annex K describes the optional continuous-tone colour and gray scale images mode (sYCC-JPEG mode) protocol. When bit 127 in DIS/DTC frame is set to "1", the called terminal has the capability to accept sYCC-JPEG mode. This is defined with complete independent in the colour space CIELAB. In addition, when bit 127 in DCS frame is set to "1", ECM must be used and bits 15, 17, 18, 19, 20, 41, 42, 43, 45, 46, 68, 69, 71, 73, 74, 75, 76, 77, 97, 98, 105, 106, 107, 108, 109, 110 and 111 in DCS frame are "Don't care", and should be set to "0". In the case of transmission of multiple images, a post message signal PPS-MPS between pages, PPS-NULL between partial pages and PPS-EOP following the last page should be sent from the calling terminal to the called terminal. */ #define T30_DIS_BIT_SYCC_T81_CAPABLE 127 #define T30_DCS_BIT_SYCC_T81_MODE 127 #endif /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/spandsp/private/README0000664000175000017500000000046211074644631017400 0ustar steveusteveuThe header files in this directory should only be used by code tightly integrating itself with the spandsp library to maximise performance. To maximise compatibility with futures revisions of spandsp, most users should avoid using these headers, or probing into the spandsp data structures in other ways.spandsp-0.0.6/src/spandsp/private/super_tone_tx.h0000664000175000017500000000271211422612265021562 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * private/super_tone_tx.h - Flexible telephony supervisory tone generation. * * Written by Steve Underwood * * Copyright (C) 2001 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #if !defined(_SPANDSP_PRIVATE_SUPER_TONE_TX_H_) #define _SPANDSP_PRIVATE_SUPER_TONE_TX_H_ struct super_tone_tx_step_s { tone_gen_tone_descriptor_t tone[4]; int tone_on; int length; int cycles; super_tone_tx_step_t *next; super_tone_tx_step_t *nest; }; struct super_tone_tx_state_s { tone_gen_tone_descriptor_t tone[4]; uint32_t phase[4]; int current_position; int level; super_tone_tx_step_t *levels[4]; int cycles[4]; }; #endif /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/spandsp/private/t38_gateway.h0000664000175000017500000001565411422613736021040 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * private/t38_gateway.h - A T.38, less the packet exchange part * * Written by Steve Underwood * * Copyright (C) 2005, 2006, 2007 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \file */ #if !defined(_SPANDSP_PRIVATE_T38_GATEWAY_H_) #define _SPANDSP_PRIVATE_T38_GATEWAY_H_ /*! T.38 gateway T.38 side channel descriptor. */ typedef struct { /*! \brief Core T.38 IFP support */ t38_core_state_t t38; /*! \brief TRUE if the NSF, NSC, and NSS are to be suppressed by altering their contents to something the far end will not recognise. */ int suppress_nsx_len[2]; /*! \brief TRUE if we need to corrupt the HDLC frame in progress, so the receiver cannot interpret it. The two values are for the two directions. */ int corrupt_current_frame[2]; /*! \brief the current class of field being received - i.e. none, non-ECM or HDLC */ int current_rx_field_class; /*! \brief The T.38 indicator currently in use */ int in_progress_rx_indicator; /*! \brief The current T.38 data type being sent. */ int current_tx_data_type; } t38_gateway_t38_state_t; /*! T.38 gateway audio side channel descriptor. */ typedef struct { /*! \brief The FAX modem set for the audio side fo the gateway. */ fax_modems_state_t modems; /*! \brief The current receive signal handler. Actual receiving hops between this and a dummy receive routine. */ span_rx_handler_t *base_rx_handler; span_rx_fillin_handler_t *base_rx_fillin_handler; } t38_gateway_audio_state_t; /*! T.38 gateway T.38 side state. */ typedef struct { /*! \brief non-ECM and HDLC modem receive data buffer. */ uint8_t data[T38_RX_BUF_LEN]; /*! \brief Current pointer into the data buffer. */ int data_ptr; /*! \brief The current octet being received as non-ECM data. */ unsigned int bit_stream; /*! \brief The number of bits taken from the modem for the current scan row. This is used during non-ECM transmission will fill bit removal to see that T.38 packet transmissions do not stretch too far apart. */ int bits_absorbed; /*! \brief The current bit number in the current non-ECM octet. */ int bit_no; /*! \brief Progressively calculated CRC for HDLC messages received from a modem. */ uint16_t crc; /*! \brief TRUE if non-ECM fill bits are to be stripped when sending image data. */ int fill_bit_removal; /*! \brief The number of octets to send in each image packet (non-ECM or ECM) at the current rate and the current specified packet interval. */ int octets_per_data_packet; /*! \brief Bits into the non-ECM buffer */ int in_bits; /*! \brief Octets fed out from the non-ECM buffer */ int out_octets; } t38_gateway_to_t38_state_t; /*! T.38 gateway HDLC buffer. */ typedef struct { /*! \brief HDLC message buffers. */ uint8_t buf[T38_MAX_HDLC_LEN]; /*! \brief HDLC message lengths. */ int len; /*! \brief HDLC message status flags. */ int flags; /*! \brief HDLC buffer contents. */ int contents; } t38_gateway_hdlc_buf_t; /*! T.38 gateway HDLC state. */ typedef struct { /*! \brief HDLC message buffers. */ t38_gateway_hdlc_buf_t buf[T38_TX_HDLC_BUFS]; #if 0 /*! \brief HDLC message buffers. */ uint8_t buf[T38_TX_HDLC_BUFS][T38_MAX_HDLC_LEN]; /*! \brief HDLC message lengths. */ int len[T38_TX_HDLC_BUFS]; /*! \brief HDLC message status flags. */ int flags[T38_TX_HDLC_BUFS]; /*! \brief HDLC buffer contents. */ int contents[T38_TX_HDLC_BUFS]; #endif /*! \brief HDLC buffer number for input. */ int in; /*! \brief HDLC buffer number for output. */ int out; } t38_gateway_hdlc_state_t; /*! T.38 gateway core descriptor. */ typedef struct { /*! \brief A bit mask of the currently supported modem types. */ int supported_modems; /*! \brief TRUE if ECM FAX mode is allowed through the gateway. */ int ecm_allowed; /*! \brief Required time between T.38 transmissions, in ms. */ int ms_per_tx_chunk; /*! \brief TRUE if in image data modem is to use short training. This usually follows image_data_mode, but in ECM mode T.30 defines recovery conditions in which long training is used for image data. */ int short_train; /*! \brief TRUE if in image data mode, as opposed to TCF mode. */ int image_data_mode; /*! \brief The minimum permitted bits per FAX scan line row. */ int min_row_bits; /*! \brief TRUE if we should count the next MCF as a page end, else FALSE */ int count_page_on_mcf; /*! \brief The number of pages for which a confirm (MCF) message was returned. */ int pages_confirmed; /*! \brief TRUE if we are in error correcting (ECM) mode */ int ecm_mode; /*! \brief The current bit rate for the fast modem. */ int fast_bit_rate; /*! \brief The current fast receive modem type. */ int fast_rx_modem; /*! \brief The type of fast receive modem currently active, which may be T38_NONE */ int fast_rx_active; /*! \brief The current timed operation. */ int timed_mode; /*! \brief The number of samples until the next timeout event */ int samples_to_timeout; /*! Buffer for HDLC and non-ECM data going to the T.38 channel */ t38_gateway_to_t38_state_t to_t38; /*! Buffer for data going to an HDLC modem. */ t38_gateway_hdlc_state_t hdlc_to_modem; /*! Buffer for data going to a non-ECM mode modem. */ t38_non_ecm_buffer_state_t non_ecm_to_modem; /*! \brief A pointer to a callback routine to be called when frames are exchanged. */ t38_gateway_real_time_frame_handler_t *real_time_frame_handler; /*! \brief An opaque pointer supplied in real time frame callbacks. */ void *real_time_frame_user_data; } t38_gateway_core_state_t; /*! T.38 gateway state. */ struct t38_gateway_state_s { /*! T.38 side state */ t38_gateway_t38_state_t t38x; /*! Audio side state */ t38_gateway_audio_state_t audio; /*! T.38 core state */ t38_gateway_core_state_t core; /*! \brief Error and flow logging control */ logging_state_t logging; }; #endif /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/spandsp/private/v18.h0000664000175000017500000000344511422612265017306 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * private/v18.h - V.18 text telephony for the deaf. * * Written by Steve Underwood * * Copyright (C) 2004-2009 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #if !defined(_SPANDSP_PRIVATE_V18_H_) #define _SPANDSP_PRIVATE_V18_H_ struct v18_state_s { /*! \brief TRUE if we are the calling modem */ int calling_party; int mode; put_msg_func_t put_msg; void *user_data; union { queue_state_t queue; uint8_t buf[QUEUE_STATE_T_SIZE(128)]; } queue; tone_gen_descriptor_t alert_tone_desc; tone_gen_state_t alert_tone_gen; fsk_tx_state_t fsktx; dtmf_tx_state_t dtmftx; async_tx_state_t asynctx; int baudot_tx_shift; int tx_signal_on; int byte_no; fsk_rx_state_t fskrx; dtmf_rx_state_t dtmfrx; int baudot_rx_shift; int consecutive_ones; uint8_t rx_msg[256 + 1]; int rx_msg_len; int bit_pos; int in_progress; /*! \brief Error and flow logging control */ logging_state_t logging; }; #endif /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/spandsp/private/g711.h0000664000175000017500000000222511422612265017342 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * private/g711.h - In line A-law and u-law conversion routines * * Written by Steve Underwood * * Copyright (C) 2001 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #if !defined(_SPANDSP_PRIVATE_G711_H_) #define _SPANDSP_PRIVATE_G711_H_ /*! G.711 state */ struct g711_state_s { /*! One of the G.711_xxx options */ int mode; }; #endif /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/spandsp/private/swept_tone.h0000664000175000017500000000237111422612265021054 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * private/swept_tone.h - Swept tone generation * * Written by Steve Underwood * * Copyright (C) 2009 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #if !defined(_SPANDSP_PRIVATE_SWEPT_TONE_H_) #define _SPANDSP_PRIVATE_SWEPT_TONE_H_ struct swept_tone_state_s { int32_t starting_phase_inc; int32_t phase_inc_step; int scale; int duration; int repeating; int pos; int32_t current_phase_inc; uint32_t phase; }; #endif /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/spandsp/private/at_interpreter.h0000664000175000017500000000673611422612265021725 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * private/at_interpreter.h - AT command interpreter to V.251, V.252, V.253, T.31 and the 3GPP specs. * * Written by Steve Underwood * * Copyright (C) 2004, 2005, 2006 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \file */ #if !defined(_SPANDSP_PRIVATE_AT_INTERPRETER_H_) #define _SPANDSP_PRIVATE_AT_INTERPRETER_H_ typedef struct at_call_id_s at_call_id_t; struct at_call_id_s { char *id; char *value; at_call_id_t *next; }; /*! AT descriptor. This defines the working state for a single instance of the AT interpreter. */ struct at_state_s { at_profile_t p; /*! Value set by +GCI */ int country_of_installation; /*! Value set by +FIT */ int dte_inactivity_timeout; /*! Value set by +FIT */ int dte_inactivity_action; /*! Value set by L */ int speaker_volume; /*! Value set by M */ int speaker_mode; /*! This is no real DTE rate. This variable is for compatibility this serially connected modems. */ /*! Value set by +IPR/+FPR */ int dte_rate; /*! Value set by +ICF */ int dte_char_format; /*! Value set by +ICF */ int dte_parity; /*! Value set by &C */ int rlsd_behaviour; /*! Value set by &D */ int dtr_behaviour; /*! Value set by +FCL */ int carrier_loss_timeout; /*! Value set by X */ int result_code_mode; /*! Value set by +IDSR */ int dsr_option; /*! Value set by +ILSD */ int long_space_disconnect_option; /*! Value set by +ICLOK */ int sync_tx_clock_source; /*! Value set by +EWIND */ int rx_window; /*! Value set by +EWIND */ int tx_window; int v8bis_signal; int v8bis_1st_message; int v8bis_2nd_message; int v8bis_sig_en; int v8bis_msg_en; int v8bis_supp_delay; uint8_t rx_data[256]; int rx_data_bytes; int display_call_info; int call_info_displayed; at_call_id_t *call_id; char *local_id; /*! The currently select FAX modem class. 0 = data modem mode. */ int fclass_mode; int at_rx_mode; int rings_indicated; int do_hangup; int silent_dial; int command_dial; int ok_is_pending; int dte_is_waiting; /*! \brief TRUE if a carrier is presnt. Otherwise FALSE. */ int rx_signal_present; /*! \brief TRUE if a modem has trained, Otherwise FALSE. */ int rx_trained; int transmit; char line[256]; int line_ptr; at_modem_control_handler_t *modem_control_handler; void *modem_control_user_data; at_tx_handler_t *at_tx_handler; void *at_tx_user_data; at_class1_handler_t *class1_handler; void *class1_user_data; /*! \brief Error and flow logging control */ logging_state_t logging; }; #endif /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/spandsp/private/async.h0000664000175000017500000000577011422612265020010 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * private/async.h - Asynchronous serial bit stream encoding and decoding * * Written by Steve Underwood * * Copyright (C) 2003 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #if !defined(_SPANDSP_PRIVATE_ASYNC_H_) #define _SPANDSP_PRIVATE_ASYNC_H_ /*! Asynchronous data transmit descriptor. This defines the state of a single working instance of a byte to asynchronous serial converter, for use in FSK modems. */ struct async_tx_state_s { /*! \brief The number of data bits per character. */ int data_bits; /*! \brief The type of parity. */ int parity; /*! \brief The number of stop bits per character. */ int stop_bits; /*! \brief A pointer to the callback routine used to get characters to be transmitted. */ get_byte_func_t get_byte; /*! \brief An opaque pointer passed when calling get_byte. */ void *user_data; /*! \brief A current, partially transmitted, character. */ int byte_in_progress; /*! \brief The current bit position within a partially transmitted character. */ int bitpos; /*! \brief Parity bit. */ int parity_bit; }; /*! Asynchronous data receive descriptor. This defines the state of a single working instance of an asynchronous serial to byte converter, for use in FSK modems. */ struct async_rx_state_s { /*! \brief The number of data bits per character. */ int data_bits; /*! \brief The type of parity. */ int parity; /*! \brief The number of stop bits per character. */ int stop_bits; /*! \brief TRUE if V.14 rate adaption processing should be performed. */ int use_v14; /*! \brief A pointer to the callback routine used to handle received characters. */ put_byte_func_t put_byte; /*! \brief An opaque pointer passed when calling put_byte. */ void *user_data; /*! \brief A current, partially complete, character. */ int byte_in_progress; /*! \brief The current bit position within a partially complete character. */ int bitpos; /*! \brief Parity bit. */ int parity_bit; /*! A count of the number of parity errors seen. */ int parity_errors; /*! A count of the number of character framing errors seen. */ int framing_errors; }; #endif /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/spandsp/private/t30.h0000664000175000017500000003107711430006315017270 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * private/t30.h - definitions for T.30 fax processing * * Written by Steve Underwood * * Copyright (C) 2003 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \file */ #if !defined(_SPANDSP_PRIVATE_T30_H_) #define _SPANDSP_PRIVATE_T30_H_ /*! T.30 FAX channel descriptor. This defines the state of a single working instance of a T.30 FAX channel. */ struct t30_state_s { /*! \brief T.4 context for reading or writing image data. */ union { t4_state_t rx; t4_state_t tx; } t4; /*! \brief The type of FAX operation currently in progress */ int operation_in_progress; /*! \brief TRUE if behaving as the calling party */ int calling_party; /*! \brief Internet aware FAX mode bit mask. */ int iaf; /*! \brief A bit mask of the currently supported modem types. */ int supported_modems; /*! \brief A bit mask of the currently supported image compression modes. */ int supported_compressions; /*! \brief A bit mask of the currently supported image resolutions. */ int supported_resolutions; /*! \brief A bit mask of the currently supported image sizes. */ int supported_image_sizes; /*! \brief A bit mask of the currently supported T.30 special features. */ int supported_t30_features; /*! \brief TRUE is ECM mode handling is enabled. */ int ecm_allowed; /*! \brief TRUE if we are capable of retransmitting pages */ int retransmit_capable; /*! \brief The received DCS, formatted as an ASCII string, for inclusion in the TIFF file. */ char rx_dcs_string[T30_MAX_DIS_DTC_DCS_LEN*3 + 1]; /*! \brief The text which will be used in FAX page header. No text results in no header line. */ char header_info[T30_MAX_PAGE_HEADER_INFO + 1]; /*! \brief TRUE for FAX page headers to overlay (i.e. replace) the beginning of the page image. FALSE for FAX page headers to add to the overall length of the page. */ int header_overlays_image; /*! \brief TRUE if remote T.30 procedural interrupts are allowed. */ int remote_interrupts_allowed; /*! \brief The information fields received. */ t30_exchanged_info_t rx_info; /*! \brief The information fields to be transmitted. */ t30_exchanged_info_t tx_info; /*! \brief The country of origin of the remote machine, if known, else NULL. */ const char *country; /*! \brief The vendor of the remote machine, if known, else NULL. */ const char *vendor; /*! \brief The model of the remote machine, if known, else NULL. */ const char *model; /*! \brief A pointer to a callback routine to be called when phase B events occur. */ t30_phase_b_handler_t *phase_b_handler; /*! \brief An opaque pointer supplied in event B callbacks. */ void *phase_b_user_data; /*! \brief A pointer to a callback routine to be called when phase D events occur. */ t30_phase_d_handler_t *phase_d_handler; /*! \brief An opaque pointer supplied in event D callbacks. */ void *phase_d_user_data; /*! \brief A pointer to a callback routine to be called when phase E events occur. */ t30_phase_e_handler_t *phase_e_handler; /*! \brief An opaque pointer supplied in event E callbacks. */ void *phase_e_user_data; /*! \brief A pointer to a callback routine to be called when frames are exchanged. */ t30_real_time_frame_handler_t *real_time_frame_handler; /*! \brief An opaque pointer supplied in real time frame callbacks. */ void *real_time_frame_user_data; /*! \brief A pointer to a callback routine to be called when document events (e.g. end of transmitted document) occur. */ t30_document_handler_t *document_handler; /*! \brief An opaque pointer supplied in document callbacks. */ void *document_user_data; /*! \brief The handler for changes to the receive mode */ t30_set_handler_t *set_rx_type_handler; /*! \brief An opaque pointer passed to the handler for changes to the receive mode */ void *set_rx_type_user_data; /*! \brief The handler for changes to the transmit mode */ t30_set_handler_t *set_tx_type_handler; /*! \brief An opaque pointer passed to the handler for changes to the transmit mode */ void *set_tx_type_user_data; /*! \brief The transmitted HDLC frame handler. */ t30_send_hdlc_handler_t *send_hdlc_handler; /*! \brief An opaque pointer passed to the transmitted HDLC frame handler. */ void *send_hdlc_user_data; /*! \brief The DIS code for the minimum scan row time we require. This is usually 0ms, but if we are trying to simulate another type of FAX machine, we may need a non-zero value here. */ uint8_t local_min_scan_time_code; /*! \brief The current T.30 phase. */ int phase; /*! \brief The T.30 phase to change to when the current phase ends. */ int next_phase; /*! \brief The current state of the T.30 state machine. */ int state; /*! \brief The step in sending a sequence of HDLC frames. */ int step; /*! \brief The preparation buffer for the DCS message to be transmitted. */ uint8_t dcs_frame[T30_MAX_DIS_DTC_DCS_LEN]; /*! \brief The length of the DCS message to be transmitted. */ int dcs_len; /*! \brief The preparation buffer for DIS or DTC message to be transmitted. */ uint8_t local_dis_dtc_frame[T30_MAX_DIS_DTC_DCS_LEN]; /*! \brief The length of the DIS or DTC message to be transmitted. */ int local_dis_dtc_len; /*! \brief The last DIS or DTC message received form the far end. */ uint8_t far_dis_dtc_frame[T30_MAX_DIS_DTC_DCS_LEN]; /*! \brief The length of the last DIS or DTC message received form the far end. */ int far_dis_dtc_len; /*! \brief TRUE if a valid DIS has been received from the far end. */ int dis_received; /*! \brief TRUE if the short training sequence should be used. */ int short_train; /*! \brief A count of the number of bits in the trainability test. This counts down to zero when sending TCF, and counts up when receiving it. */ int tcf_test_bits; /*! \brief The current count of consecutive received zero bits, during the trainability test. */ int tcf_current_zeros; /*! \brief The maximum consecutive received zero bits seen to date, during the trainability test. */ int tcf_most_zeros; /*! \brief The current fallback step for the fast message transfer modem. */ int current_fallback; /*! \brief The subset of supported modems allowed at the current time, allowing for negotiation. */ int current_permitted_modems; /*! \brief TRUE if a carrier is present. Otherwise FALSE. */ int rx_signal_present; /*! \brief TRUE if a modem has trained correctly. */ int rx_trained; /*! \brief TRUE if a valid HDLC frame has been received in the current reception period. */ int rx_frame_received; /*! \brief Current reception mode. */ int current_rx_type; /*! \brief Current transmission mode. */ int current_tx_type; /*! \brief T0 is the answer timeout when calling another FAX machine. Placing calls is handled outside the FAX processing, but this timeout keeps running until V.21 modulation is sent or received. T1 is the remote terminal identification timeout (in audio samples). */ int timer_t0_t1; /*! \brief T2, T2A and T2B are the HDLC command timeouts. T4, T4A and T4B are the HDLC response timeouts (in audio samples). */ int timer_t2_t4; /*! \brief A value specifying which of the possible timers is currently running in timer_t2_t4 */ int timer_t2_t4_is; /*! \brief Procedural interrupt timeout (in audio samples). */ int timer_t3; /*! \brief This is only used in error correcting mode. */ int timer_t5; /*! \brief This is only used in full duplex (e.g. ISDN) modes. */ int timer_t6; /*! \brief This is only used in full duplex (e.g. ISDN) modes. */ int timer_t7; /*! \brief This is only used in full duplex (e.g. ISDN) modes. */ int timer_t8; /*! \brief TRUE once the far end FAX entity has been detected. */ int far_end_detected; /*! \brief TRUE if a local T.30 interrupt is pending. */ int local_interrupt_pending; /*! \brief The image coding being used on the line. */ int line_encoding; /*! \brief The image coding being used for output files. */ int output_encoding; /*! \brief The current DCS message minimum scan time code. */ uint8_t min_scan_time_code; /*! \brief The X direction resolution of the current image, in pixels per metre. */ int x_resolution; /*! \brief The Y direction resolution of the current image, in pixels per metre. */ int y_resolution; /*! \brief The width of the current image, in pixels. */ t4_image_width_t image_width; /*! \brief Current number of retries of the action in progress. */ int retries; /*! \brief TRUE if error correcting mode is used. */ int error_correcting_mode; /*! \brief The number of HDLC frame retries, if error correcting mode is used. */ int error_correcting_mode_retries; /*! \brief The current count of consecutive T30_PPR messages. */ int ppr_count; /*! \brief The current count of consecutive T30_RNR messages. */ int receiver_not_ready_count; /*! \brief The number of octets to be used per ECM frame. */ int octets_per_ecm_frame; /*! \brief The ECM partial page buffer. */ uint8_t ecm_data[256][260]; /*! \brief The lengths of the frames in the ECM partial page buffer. */ int16_t ecm_len[256]; /*! \brief A bit map of the OK ECM frames, constructed as a PPR frame. */ uint8_t ecm_frame_map[3 + 32]; /*! \brief The current page number for receiving, in ECM or non-ECM mode. This is reset at the start of a call. */ int rx_page_number; /*! \brief The current page number for sending, in ECM or non-ECM mode. This is reset at the start of a call. */ int tx_page_number; /*! \brief The current block number, in ECM mode */ int ecm_block; /*! \brief The number of frames in the current block number, in ECM mode */ int ecm_frames; /*! \brief The number of frames sent in the current burst of image transmission, in ECM mode */ int ecm_frames_this_tx_burst; /*! \brief The current ECM frame, during ECM transmission. */ int ecm_current_tx_frame; /*! \brief TRUE if we are at the end of an ECM page to se sent - i.e. there are no more partial pages still to come. */ int ecm_at_page_end; /*! \brief The transmission step queued to follow the one in progress. */ int next_tx_step; /*! \brief The FCF for the next receive step. */ uint8_t next_rx_step; /*! \brief Image file name for image reception. */ char rx_file[256]; /*! \brief The last page we are prepared accept for a received image file. -1 means no restriction. */ int rx_stop_page; /*! \brief Image file name to be sent. */ char tx_file[256]; /*! \brief The first page to be sent from the image file. -1 means no restriction. */ int tx_start_page; /*! \brief The last page to be sent from the image file. -1 means no restriction. */ int tx_stop_page; /*! \brief The current completion status. */ int current_status; /*! \brief The number of RTP events */ int rtp_events; /*! \brief The number of RTN events */ int rtn_events; /*! \brief the FCF2 field of the last PPS message we received. */ uint8_t last_pps_fcf2; /*! \brief TRUE if all frames of the current received ECM block are now OK */ int rx_ecm_block_ok; /*! \brief A count of successfully received ECM frames, to assess progress as a basis for deciding whether to continue error correction when PPRs keep repeating. */ int ecm_progress; /*! \brief Error and flow logging control */ logging_state_t logging; }; #endif /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/spandsp/private/t38_non_ecm_buffer.h0000664000175000017500000000643711422612265022341 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * private/t38_non_ecm_buffer.h - A rate adapting buffer for T.38 non-ECM image * and TCF data * * Written by Steve Underwood * * Copyright (C) 2005, 2006, 2007, 2008 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #if !defined(_SPANDSP_PRIVATE_T38_NON_ECM_BUFFER_H_) #define _SPANDSP_PRIVATE_T38_NON_ECM_BUFFER_H_ /*! \brief A flow controlled non-ECM image data buffer, for buffering T.38 to analogue modem data. */ struct t38_non_ecm_buffer_state_s { /*! \brief Minimum number of bits per row, used when fill bits are being deleted on the link, and restored at the emitting gateway. */ int min_bits_per_row; /*! \brief non-ECM modem transmit data buffer. */ uint8_t data[T38_NON_ECM_TX_BUF_LEN]; /*! \brief The current write point in the buffer. */ int in_ptr; /*! \brief The current read point in the buffer. */ int out_ptr; /*! \brief The location of the most recent EOL marker in the buffer. */ int latest_eol_ptr; /*! \brief The number of bits to date in the current row, used when min_row_bits is to be applied. */ int row_bits; /*! \brief The bit stream entering the buffer, used to detect EOLs */ unsigned int bit_stream; /*! \brief The non-ECM flow control fill octet (0xFF before the first data, and 0x00 once data has started). */ uint8_t flow_control_fill_octet; /*! \brief A code for the phase of input buffering, from initial all ones to completion. */ int input_phase; /*! \brief TRUE is the end of non-ECM data indication has been received. */ int data_finished; /*! \brief The current octet being transmitted from the buffer. */ unsigned int octet; /*! \brief The current bit number in the current non-ECM octet. */ int bit_no; /*! \brief TRUE if in image data mode, as opposed to TCF mode. */ int image_data_mode; /*! \brief The number of octets input to the buffer. */ int in_octets; /*! \brief The number of rows input to the buffer. */ int in_rows; /*! \brief The number of non-ECM fill octets generated for minimum row bits purposes. */ int min_row_bits_fill_octets; /*! \brief The number of octets output from the buffer. */ int out_octets; /*! \brief The number of rows output from the buffer. */ int out_rows; /*! \brief The number of non-ECM fill octets generated for flow control purposes. */ int flow_control_fill_octets; }; #endif /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/spandsp/private/awgn.h0000664000175000017500000000244311422612265017621 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * private/awgn.h - An additive Gaussian white noise generator * * Written by Steve Underwood * * Copyright (C) 2001 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #if !defined(_SPANDSP_PRIVATE_AWGN_H_) #define _SPANDSP_PRIVATE_AWGN_H_ /*! AWGN generator descriptor. This contains all the state information for an AWGN generator. */ struct awgn_state_s { double rms; long int ix1; long int ix2; long int ix3; double r[98]; double gset; int iset; }; #endif /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/spandsp/private/ima_adpcm.h0000664000175000017500000000346411422612265020603 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * private/ima_adpcm.c - Conversion routines between linear 16 bit PCM data * and IMA/DVI/Intel ADPCM format. * * Written by Steve Underwood * * Copyright (C) 2004 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. * * Based on a bit from here, a bit from there, eye of toad, * ear of bat, etc - plus, of course, my own 2 cents. */ #if !defined(_SPANDSP_PRIVATE_IMA_ADPCM_H_) #define _SPANDSP_PRIVATE_IMA_ADPCM_H_ /*! IMA (DVI/Intel) ADPCM conversion state descriptor. This defines the state of a single working instance of the IMA ADPCM converter. This is used for either linear to ADPCM or ADPCM to linear conversion. */ struct ima_adpcm_state_s { int variant; /*! \brief The size of a chunk, in samples. */ int chunk_size; /*! \brief The last state of the ADPCM algorithm. */ int last; /*! \brief Current index into the step size table. */ int step_index; /*! \brief The current IMA code byte in progress. */ uint16_t ima_byte; int bits; }; #endif /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/spandsp/private/adsi.h0000664000175000017500000000504111422612265017602 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * private/adsi.h - Analogue display services interface and other call ID related handling. * * Written by Steve Underwood * * Copyright (C) 2003 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \file */ #if !defined(_SPANDSP_PRIVATE_ADSI_H_) #define _SPANDSP_PRIVATE_ADSI_H_ /*! ADSI transmitter descriptor. This contains all the state information for an ADSI (caller ID, CLASS, CLIP, ACLIP) transmit channel. */ struct adsi_tx_state_s { /*! */ int standard; /*! */ tone_gen_descriptor_t alert_tone_desc; /*! */ tone_gen_state_t alert_tone_gen; /*! */ fsk_tx_state_t fsktx; /*! */ dtmf_tx_state_t dtmftx; /*! */ async_tx_state_t asynctx; /*! */ int tx_signal_on; /*! */ int byte_no; /*! */ int bit_pos; /*! */ int bit_no; /*! */ uint8_t msg[256]; /*! */ int msg_len; /*! */ int preamble_len; /*! */ int preamble_ones_len; /*! */ int postamble_ones_len; /*! */ int stop_bits; /*! */ int baudot_shift; /*! */ logging_state_t logging; }; /*! ADSI receiver descriptor. This contains all the state information for an ADSI (caller ID, CLASS, CLIP, ACLIP, JCLIP) receive channel. */ struct adsi_rx_state_s { /*! */ int standard; /*! */ put_msg_func_t put_msg; /*! */ void *user_data; /*! */ fsk_rx_state_t fskrx; /*! */ dtmf_rx_state_t dtmfrx; /*! */ int consecutive_ones; /*! */ int bit_pos; /*! */ int in_progress; /*! */ uint8_t msg[256]; /*! */ int msg_len; /*! */ int baudot_shift; /*! A count of the framing errors. */ int framing_errors; /*! */ logging_state_t logging; }; #endif /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/spandsp/private/time_scale.h0000664000175000017500000000303411422612265020767 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * private/time_scale.h - Time scaling for linear speech data * * Written by Steve Underwood * * Copyright (C) 2004 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #if !defined(_SPANDSP_PRIVATE_TIME_SCALE_H_) #define _SPANDSP_PRIVATE_TIME_SCALE_H_ #define TIME_SCALE_MAX_SAMPLE_RATE 48000 #define TIME_SCALE_MIN_PITCH 60 #define TIME_SCALE_MAX_PITCH 250 #define TIME_SCALE_BUF_LEN (2*TIME_SCALE_MAX_SAMPLE_RATE/TIME_SCALE_MIN_PITCH) /*! Audio time scaling descriptor. */ struct time_scale_state_s { int sample_rate; int min_pitch; int max_pitch; int buf_len; float playout_rate; double rcomp; double rate_nudge; int fill; int lcp; int16_t buf[TIME_SCALE_BUF_LEN]; }; #endif /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/spandsp/private/modem_echo.h0000664000175000017500000000315011422612265020760 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * private/modem_echo.h - An echo cancellor, suitable for electrical echos in GSTN modems * * Written by Steve Underwood * * Copyright (C) 2001, 2004 Steve Underwood * * Based on a bit from here, a bit from there, eye of toad, * ear of bat, etc - plus, of course, my own 2 cents. * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \file */ #if !defined(_SPANDSP_PRIVATE_MODEM_ECHO_H_) #define _SPANDSP_PRIVATE_MODEM_ECHO_H_ /*! Modem line echo canceller descriptor. This defines the working state for a line echo canceller. */ struct modem_echo_can_state_s { int adapt; int taps; fir16_state_t fir_state; /*! Echo FIR taps (16 bit version) */ int16_t *fir_taps16; /*! Echo FIR taps (32 bit version) */ int32_t *fir_taps32; int tx_power; int rx_power; int curr_pos; }; #endif /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/spandsp/private/logging.h0000664000175000017500000000262311422612265020313 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * private/logging.h - definitions for error and debug logging. * * Written by Steve Underwood * * Copyright (C) 2005 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #if !defined(_SPANDSP_PRIVATE_LOGGING_H_) #define _SPANDSP_PRIVATE_LOGGING_H_ /*! Logging descriptor. This defines the working state for a single instance of the logging facility for spandsp. */ struct logging_state_s { int level; int samples_per_second; int64_t elapsed_samples; const char *tag; const char *protocol; message_handler_func_t span_message; error_handler_func_t span_error; }; #endif /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/spandsp/private/sig_tone.h0000664000175000017500000001751011422612265020475 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * private/sig_tone.h - Signalling tone processing for the 2280Hz, 2400Hz, 2600Hz * and similar signalling tones used in older protocols. * * Written by Steve Underwood * * Copyright (C) 2004 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #if !defined(_SPANDSP_PRIVATE_SIG_TONE_H_) #define _SPANDSP_PRIVATE_SIG_TONE_H_ /*! \brief The coefficient set for a pair of cascaded bi-quads that make a signalling notch filter. */ typedef struct { #if defined(SPANDSP_USE_FIXED_POINT) int16_t a1[3]; int16_t b1[3]; int16_t a2[3]; int16_t b2[3]; int postscale; #else float a1[3]; float b1[3]; float a2[3]; float b2[3]; #endif } sig_tone_notch_coeffs_t; /*! \brief The coefficient set for a bi-quad that makes a signalling flat filter. Some signalling tone schemes require such a filter, and some don't. It is termed a flat filter, to distinguish it from the sharp filter, but obviously it is not actually flat. It is a broad band weighting filter. */ typedef struct { #if defined(SPANDSP_USE_FIXED_POINT) /*! \brief Flat mode bandpass bi-quad parameters */ int16_t a[3]; /*! \brief Flat mode bandpass bi-quad parameters */ int16_t b[3]; /*! \brief Post filter scaling */ int postscale; #else /*! \brief Flat mode bandpass bi-quad parameters */ float a[3]; /*! \brief Flat mode bandpass bi-quad parameters */ float b[3]; #endif } sig_tone_flat_coeffs_t; /*! signalling tone descriptor. This defines the working state for a single instance of the transmit and receive sides of a signalling tone processor. */ typedef struct { /*! \brief The tones used. */ int tone_freq[2]; /*! \brief The high and low tone amplitudes for each of the tones, in dBm0. */ int tone_amp[2][2]; /*! \brief The delay, in audio samples, before the high level tone drops to a low level tone. Some signalling protocols require the signalling tone be started at a high level, to ensure crisp initial detection at the receiver, but require the tone amplitude to drop by a number of dBs if it is sustained, to reduce crosstalk levels. */ int high_low_timeout; /*! \brief Some signalling tone detectors use a sharp initial filter, changing to a broader, flatter, filter after some delay. This parameter defines the delay. 0 means it never changes. */ int sharp_flat_timeout; /*! \brief Parameters to control the behaviour of the notch filter, used to remove the tone from the voice path in some protocols. The notch is applied as fast as possible, when the signalling tone is detected. Its removal is delayed by this timeout, to avoid clicky noises from repeated switching of the filter on rapid pulses of signalling tone. */ int notch_lag_time; /*! \brief The tone on persistence check, in audio samples. */ int tone_on_check_time; /*! \brief The tone off persistence check, in audio samples. */ int tone_off_check_time; /*! \brief The number of tones used. */ int tones; /*! \brief The coefficients for the cascaded bi-quads notch filter. */ const sig_tone_notch_coeffs_t *notch[2]; /*! \brief The coefficients for the single bi-quad flat mode filter. */ const sig_tone_flat_coeffs_t *flat; /*! \brief Minimum signalling tone to total power ratio, in dB */ int16_t detection_ratio; /*! \brief Minimum total power for detection in sharp mode, in dB */ int16_t sharp_detection_threshold; /*! \brief Minimum total power for detection in flat mode, in dB */ int16_t flat_detection_threshold; } sig_tone_descriptor_t; /*! Signalling tone transmit state */ struct sig_tone_tx_state_s { /*! \brief The callback function used to handle signalling changes. */ tone_report_func_t sig_update; /*! \brief A user specified opaque pointer passed to the callback function. */ void *user_data; /*! \brief Tone descriptor */ const sig_tone_descriptor_t *desc; /*! The phase rates for the one or two tones */ int32_t phase_rate[2]; /*! The phase accumulators for the one or two tones */ uint32_t phase_acc[2]; /*! The scaling values for the one or two tones, and the high and low level of each tone */ int16_t tone_scaling[2][2]; /*! The sample timer, used to switch between the high and low level tones. */ int high_low_timer; /*! \brief Current transmit tone */ int current_tx_tone; /*! \brief Current transmit timeout */ int current_tx_timeout; /*! \brief Time in current signalling state, in samples. */ int signalling_state_duration; }; /*! Signalling tone receive state */ struct sig_tone_rx_state_s { /*! \brief The callback function used to handle signalling changes. */ tone_report_func_t sig_update; /*! \brief A user specified opaque pointer passed to the callback function. */ void *user_data; /*! \brief Tone descriptor */ const sig_tone_descriptor_t *desc; /*! \brief The current receive tone */ int current_rx_tone; /*! \brief The timeout for switching from the high level to low level tone detector. */ int high_low_timer; /*! \brief ??? */ int current_notch_filter; struct { #if defined(SPANDSP_USE_FIXED_POINT) /*! \brief The z's for the notch filter */ int16_t notch_z1[2]; /*! \brief The z's for the notch filter */ int16_t notch_z2[2]; #else /*! \brief The z's for the notch filter */ float notch_z1[2]; /*! \brief The z's for the notch filter */ float notch_z2[2]; #endif /*! \brief The power output of the notch. */ power_meter_t power; } tone[3]; #if defined(SPANDSP_USE_FIXED_POINT) /*! \brief The z's for the weighting/bandpass filter. */ int16_t flat_z[2]; #else /*! \brief The z's for the weighting/bandpass filter. */ float flat_z[2]; #endif /*! \brief The output power of the flat (unfiltered or flat filtered) path. */ power_meter_t flat_power; /*! \brief Persistence check for tone present */ int tone_persistence_timeout; /*! \brief The tone pattern on the last audio sample */ int last_sample_tone_present; /*! \brief The minimum reading from the power meter for detection in flat mode */ int32_t flat_detection_threshold; /*! \brief The minimum reading from the power meter for detection in sharp mode */ int32_t sharp_detection_threshold; /*! \brief The minimum ratio between notched power and total power for detection */ int32_t detection_ratio; /*! \brief TRUE if in flat mode. FALSE if in sharp mode. */ int flat_mode; /*! \brief TRUE if the notch filter is enabled in the media path */ int notch_enabled; /*! \brief ??? */ int flat_mode_timeout; /*! \brief ??? */ int notch_insertion_timeout; /*! \brief ??? */ int signalling_state; /*! \brief ??? */ int signalling_state_duration; }; #endif /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/spandsp/private/fax_modems.h0000664000175000017500000001112711422612265021006 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * private/fax_modems.h - definitions for the analogue modem set for fax processing * * Written by Steve Underwood * * Copyright (C) 2008 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \file */ #if !defined(_SPANDSP_PRIVATE_FAX_MODEMS_H_) #define _SPANDSP_PRIVATE_FAX_MODEMS_H_ /*! The set of modems needed for FAX, plus the auxilliary stuff, like tone generation. */ struct fax_modems_state_s { /*! TRUE is talker echo protection should be sent for the image modems */ int use_tep; /*! If TRUE, transmit silence when there is nothing else to transmit. If FALSE return only the actual generated audio. Note that this only affects untimed silences. Timed silences (e.g. the 75ms silence between V.21 and a high speed modem) will alway be transmitted as silent audio. */ int transmit_on_idle; /*! \brief An HDLC context used when transmitting HDLC messages. */ hdlc_tx_state_t hdlc_tx; /*! \brief An HDLC context used when receiving HDLC messages. */ hdlc_rx_state_t hdlc_rx; /*! \brief A V.21 FSK modem context used when transmitting HDLC over V.21 messages. */ fsk_tx_state_t v21_tx; /*! \brief A V.21 FSK modem context used when receiving HDLC over V.21 messages. */ fsk_rx_state_t v21_rx; /*! \brief A V.17 modem context used when sending FAXes at 7200bps, 9600bps 12000bps or 14400bps */ v17_tx_state_t v17_tx; /*! \brief A V.29 modem context used when receiving FAXes at 7200bps, 9600bps 12000bps or 14400bps */ v17_rx_state_t v17_rx; /*! \brief A V.29 modem context used when sending FAXes at 7200bps or 9600bps */ v29_tx_state_t v29_tx; /*! \brief A V.29 modem context used when receiving FAXes at 7200bps or 9600bps */ v29_rx_state_t v29_rx; /*! \brief A V.27ter modem context used when sending FAXes at 2400bps or 4800bps */ v27ter_tx_state_t v27ter_tx; /*! \brief A V.27ter modem context used when receiving FAXes at 2400bps or 4800bps */ v27ter_rx_state_t v27ter_rx; /*! \brief Used to insert timed silences. */ silence_gen_state_t silence_gen; /*! \brief CED or CNG generator */ modem_connect_tones_tx_state_t connect_tx; /*! \brief CED or CNG detector */ modem_connect_tones_rx_state_t connect_rx; /*! \brief */ dc_restore_state_t dc_restore; /*! \brief The currently select receiver type */ int current_rx_type; /*! \brief The currently select transmitter type */ int current_tx_type; /*! \brief TRUE if a carrier is present. Otherwise FALSE. */ int rx_signal_present; /*! \brief TRUE if a modem has trained correctly. */ int rx_trained; /*! \brief TRUE if an HDLC frame has been received correctly. */ int rx_frame_received; /*! The current receive signal handler */ span_rx_handler_t *rx_handler; /*! The current receive missing signal fill-in handler */ span_rx_fillin_handler_t *rx_fillin_handler; void *rx_user_data; /*! The current transmit signal handler */ span_tx_handler_t *tx_handler; void *tx_user_data; /*! The next transmit signal handler, for two stage transmit operations. E.g. a short silence followed by a modem signal. */ span_tx_handler_t *next_tx_handler; void *next_tx_user_data; /*! The current bit rate of the transmitter. */ int tx_bit_rate; /*! The current bit rate of the receiver. */ int rx_bit_rate; /*! If TRUE, transmission is in progress */ int transmit; /*! \brief Audio logging file handle for received audio. */ int audio_rx_log; /*! \brief Audio logging file handle for transmitted audio. */ int audio_tx_log; /*! \brief Error and flow logging control */ logging_state_t logging; }; #endif /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/spandsp/private/tone_detect.h0000664000175000017500000000207611422612265021164 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * private/tone_detect.h - General telephony tone detection. * * Written by Steve Underwood * * Copyright (C) 2001, 2005 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #if !defined(_SPANDSP_PRIVATE_TONE_DETECT_H_) #define _SPANDSP_PRIVATE_TONE_DETECT_H_ #endif /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/spandsp/private/t4_t6_decode.h0000664000175000017500000000743211422612265021133 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * private/t4_t6_decode.h - definitions for T.4/T.6 fax decoding * * Written by Steve Underwood * * Copyright (C) 2003, 2009 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #if !defined(_SPANDSP_PRIVATE_T4_T6_DECODE_H_) #define _SPANDSP_PRIVATE_T4_T6_DECODE_H_ /*! T.4 1D, T4 2D and T6 decompressor state. */ struct t4_t6_decode_state_s { /*! \brief The type of compression used between the FAX machines. */ //int encoding; /*! \brief Width of the current page, in pixels. */ //int image_width; /*! \brief Callback function to write a row of pixels to the image destination. */ t4_row_write_handler_t row_write_handler; /*! \brief Opaque pointer passed to row_write_handler. */ void *row_write_user_data; /*! \brief A pointer into the image buffer indicating where the last row begins */ int last_row_starts_at; /*! \brief This variable is used to count the consecutive EOLS we have seen. If it reaches six, this is the end of the image. It is initially set to -1 for 1D and 2D decoding, as an indicator that we must wait for the first EOL, before decoding any image data. */ int consecutive_eols; /*! \brief The reference or starting changing element on the coding line. At the start of the coding line, a0 is set on an imaginary white changing element situated just before the first element on the line. During the coding of the coding line, the position of a0 is defined by the previous coding mode. (See T.4/4.2.1.3.2.). */ int a0; /*! \brief The first changing element on the reference line to the right of a0 and of opposite colour to a0. */ int b1; /*! \brief The length of the in-progress run of black or white. */ int run_length; /*! \brief 2D horizontal mode control. */ int black_white; /*! \brief TRUE if the current run is black */ int its_black; /*! \brief The current step into the current row run-lengths buffer. */ int a_cursor; /*! \brief The current step into the reference row run-lengths buffer. */ int b_cursor; /*! \brief Incoming bit buffer for decompression. */ uint32_t rx_bitstream; /*! \brief The number of bits currently in rx_bitstream. */ int rx_bits; /*! \brief The number of bits to be skipped before trying to match the next code word. */ int rx_skip_bits; /*! \brief Decoded pixel buffer. */ //uint32_t pixel_stream; /*! \brief The number of bits currently in pixel_stream. */ //int tx_bits; /*! \brief Current pixel row number. */ //int row; /*! \brief The current number of consecutive bad rows. */ int curr_bad_row_run; /*! \brief The longest run of consecutive bad rows seen in the current page. */ int longest_bad_row_run; /*! \brief The total number of bad rows in the current page. */ int bad_rows; /*! \brief Error and flow logging control */ //logging_state_t logging; }; #endif /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/spandsp/private/tone_generate.h0000664000175000017500000000326211422612265021504 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * private/tone_generate.h - General telephony tone generation. * * Written by Steve Underwood * * Copyright (C) 2001 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #if !defined(_SPANDSP_PRIVATE_TONE_GENERATE_H_) #define _SPANDSP_PRIVATE_TONE_GENERATE_H_ struct tone_gen_tone_descriptor_s { int32_t phase_rate; #if defined(SPANDSP_USE_FIXED_POINT) int16_t gain; #else float gain; #endif }; /*! Cadenced multi-tone generator descriptor. */ struct tone_gen_descriptor_s { tone_gen_tone_descriptor_t tone[4]; int duration[4]; int repeat; }; /*! Cadenced multi-tone generator state descriptor. This defines the state of a single working instance of a generator. */ struct tone_gen_state_s { tone_gen_tone_descriptor_t tone[4]; uint32_t phase[4]; int duration[4]; int repeat; int current_section; int current_position; }; #endif /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/spandsp/private/lpc10.h0000664000175000017500000001306511422612265017606 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * private/lpc10.h - LPC10 low bit rate speech codec. * * Written by Steve Underwood * * Copyright (C) 2006 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #if !defined(_SPANDSP_PRIVATE_LPC10_H_) #define _SPANDSP_PRIVATE_LPC10_H_ /*! LPC10 codec encoder state descriptor. This defines the state of a single working instance of the LPC10 encoder. */ struct lpc10_encode_state_s { /*! \brief ??? */ int error_correction; /* State used only by function high_pass_100hz */ /*! \brief ??? */ float z11; /*! \brief ??? */ float z21; /*! \brief ??? */ float z12; /*! \brief ??? */ float z22; /* State used by function lpc10_analyse */ /*! \brief ??? */ float inbuf[LPC10_SAMPLES_PER_FRAME*3]; /*! \brief ??? */ float pebuf[LPC10_SAMPLES_PER_FRAME*3]; /*! \brief ??? */ float lpbuf[696]; /*! \brief ??? */ float ivbuf[312]; /*! \brief ??? */ float bias; /*! \brief No initial value necessary */ int32_t osbuf[10]; /*! \brief Initial value 1 */ int32_t osptr; /*! \brief ??? */ int32_t obound[3]; /*! \brief Initial value vwin[2][0] = 307; vwin[2][1] = 462; */ int32_t vwin[3][2]; /*! \brief Initial value awin[2][0] = 307; awin[2][1] = 462; */ int32_t awin[3][2]; /*! \brief ??? */ int32_t voibuf[4][2]; /*! \brief ??? */ float rmsbuf[3]; /*! \brief ??? */ float rcbuf[3][10]; /*! \brief ??? */ float zpre; /* State used by function onset */ /*! \brief ??? */ float n; /*! \brief Initial value 1.0f */ float d__; /*! \brief No initial value necessary */ float fpc; /*! \brief ??? */ float l2buf[16]; /*! \brief ??? */ float l2sum1; /*! \brief Initial value 1 */ int32_t l2ptr1; /*! \brief Initial value 9 */ int32_t l2ptr2; /*! \brief No initial value necessary */ int32_t lasti; /*! \brief Initial value FALSE */ int hyst; /* State used by function lpc10_voicing */ /*! \brief Initial value 20.0f */ float dither; /*! \brief ??? */ float snr; /*! \brief ??? */ float maxmin; /*! \brief Initial value is probably unnecessary */ float voice[3][2]; /*! \brief ??? */ int32_t lbve; /*! \brief ??? */ int32_t lbue; /*! \brief ??? */ int32_t fbve; /*! \brief ??? */ int32_t fbue; /*! \brief ??? */ int32_t ofbue; /*! \brief ??? */ int32_t sfbue; /*! \brief ??? */ int32_t olbue; /*! \brief ??? */ int32_t slbue; /* State used by function dynamic_pitch_tracking */ /*! \brief ??? */ float s[60]; /*! \brief ??? */ int32_t p[2][60]; /*! \brief ??? */ int32_t ipoint; /*! \brief ??? */ float alphax; /* State used by function lpc10_pack */ /*! \brief ??? */ int32_t isync; }; /*! LPC10 codec decoder state descriptor. This defines the state of a single working instance of the LPC10 decoder. */ struct lpc10_decode_state_s { /*! \brief ??? */ int error_correction; /* State used by function decode */ /*! \brief Initial value 60 */ int32_t iptold; /*! \brief Initial value TRUE */ int first; /*! \brief ??? */ int32_t ivp2h; /*! \brief ??? */ int32_t iovoic; /*! \brief Initial value 60. */ int32_t iavgp; /*! \brief ??? */ int32_t erate; /*! \brief ??? */ int32_t drc[10][3]; /*! \brief ??? */ int32_t dpit[3]; /*! \brief ??? */ int32_t drms[3]; /* State used by function synths */ /*! \brief ??? */ float buf[LPC10_SAMPLES_PER_FRAME*2]; /*! \brief Initial value LPC10_SAMPLES_PER_FRAME */ int32_t buflen; /* State used by function pitsyn */ /*! \brief No initial value necessary as long as first_pitsyn is initially TRUE */ int32_t ivoico; /*! \brief No initial value necessary as long as first_pitsyn is initially TRUE */ int32_t ipito; /*! \brief Initial value 1.0f */ float rmso; /*! \brief No initial value necessary as long as first_pitsyn is initially TRUE */ float rco[10]; /*! \brief No initial value necessary as long as first_pitsyn is initially TRUE */ int32_t jsamp; /*! \brief Initial value TRUE */ int first_pitsyn; /* State used by function bsynz */ /*! \brief ??? */ int32_t ipo; /*! \brief ??? */ float exc[166]; /*! \brief ??? */ float exc2[166]; /*! \brief ??? */ float lpi[3]; /*! \brief ??? */ float hpi[3]; /*! \brief ??? */ float rmso_bsynz; /* State used by function random */ /*! \brief ??? */ int32_t j; /*! \brief ??? */ int32_t k; /*! \brief ??? */ int16_t y[5]; /* State used by function deemp */ /*! \brief ??? */ float dei[2]; /*! \brief ??? */ float deo[3]; }; #endif /*- End of include ---------------------------------------------------------*/ spandsp-0.0.6/src/spandsp/private/g722.h0000664000175000017500000000524511422612265017351 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * private/g722.h - The ITU G.722 codec. * * Written by Steve Underwood * * Copyright (C) 2005 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. * * Based on a single channel G.722 codec which is: * ***** Copyright (c) CMU 1993 ***** * Computer Science, Speech Group * Chengxiang Lu and Alex Hauptmann */ /*! \file */ #if !defined(_SPANDSP_PRIVATE_G722_H_) #define _SPANDSP_PRIVATE_G722_H_ /*! The per band parameters for both encoding and decoding G.722 */ typedef struct { int16_t nb; int16_t det; int16_t s; int16_t sz; int16_t r; int16_t p[2]; int16_t a[2]; int16_t b[6]; int16_t d[7]; } g722_band_t; /*! G.722 encode state */ struct g722_encode_state_s { /*! TRUE if the operating in the special ITU test mode, with the band split filters disabled. */ int itu_test_mode; /*! TRUE if the G.722 data is packed */ int packed; /*! TRUE if encode from 8k samples/second */ int eight_k; /*! 6 for 48000kbps, 7 for 56000kbps, or 8 for 64000kbps. */ int bits_per_sample; /*! Signal history for the QMF */ int16_t x[12]; int16_t y[12]; int ptr; g722_band_t band[2]; uint32_t in_buffer; int in_bits; uint32_t out_buffer; int out_bits; }; /*! G.722 decode state */ struct g722_decode_state_s { /*! TRUE if the operating in the special ITU test mode, with the band split filters disabled. */ int itu_test_mode; /*! TRUE if the G.722 data is packed */ int packed; /*! TRUE if decode to 8k samples/second */ int eight_k; /*! 6 for 48000kbps, 7 for 56000kbps, or 8 for 64000kbps. */ int bits_per_sample; /*! Signal history for the QMF */ int16_t x[12]; int16_t y[12]; int ptr; g722_band_t band[2]; uint32_t in_buffer; int in_bits; uint32_t out_buffer; int out_bits; }; #endif /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/spandsp/private/bert.h0000664000175000017500000000406511422612265017623 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * private/bert.h - Bit error rate tests. * * Written by Steve Underwood * * Copyright (C) 2004 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #if !defined(_SPANDSP_PRIVATE_BERT_H_) #define _SPANDSP_PRIVATE_BERT_H_ typedef struct { uint32_t reg; int step; int step_bit; int bits; int zeros; } bert_tx_state_t; typedef struct { uint32_t reg; uint32_t ref_reg; uint32_t master_reg; int step; int step_bit; int resync; int bits; int zeros; int resync_len; int resync_percent; int resync_bad_bits; int resync_cnt; int report_countdown; int measurement_step; } bert_rx_state_t; /*! Bit error rate tester (BERT) descriptor. This defines the working state for a single instance of the BERT. */ struct bert_state_s { int pattern; int pattern_class; bert_report_func_t reporter; void *user_data; int report_frequency; int limit; uint32_t mask; int shift; int shift2; int max_zeros; int invert; int resync_time; int decade_ptr[9]; int decade_bad[9][10]; int error_rate; bert_tx_state_t tx; bert_rx_state_t rx; bert_results_t results; /*! \brief Error and flow logging control */ logging_state_t logging; }; #endif /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/spandsp/private/t38_core.h0000664000175000017500000001331011422612265020306 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * private/t38_core.h - An implementation of T.38, less the packet exchange part * * Written by Steve Underwood * * Copyright (C) 2005 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #if !defined(_SPANDSP_PRIVATE_T38_CORE_H_) #define _SPANDSP_PRIVATE_T38_CORE_H_ /*! Core T.38 state, common to all modes of T.38. */ struct t38_core_state_s { /*! \brief Handler routine to transmit IFP packets generated by the T.38 protocol engine */ t38_tx_packet_handler_t *tx_packet_handler; /*! \brief An opaque pointer passed to tx_packet_handler */ void *tx_packet_user_data; /*! \brief Handler routine to process received indicator packets */ t38_rx_indicator_handler_t *rx_indicator_handler; /*! \brief Handler routine to process received data packets */ t38_rx_data_handler_t *rx_data_handler; /*! \brief Handler routine to process the missing packet condition */ t38_rx_missing_handler_t *rx_missing_handler; /*! \brief An opaque pointer passed to any of the above receive handling routines */ void *rx_user_data; /*! NOTE - Bandwidth reduction shall only be done on suitable Phase C data, i.e., MH, MR and - in the case of transcoding to JBIG - MMR. MMR and JBIG require reliable data transport such as that provided by TCP. When transcoding is selected, it shall be applied to every suitable page in a call. */ /*! \brief Method 1: Local generation of TCF (required for use with TCP). Method 2: Transfer of TCF is required for use with UDP (UDPTL or RTP). Method 2 is not recommended for use with TCP. */ int data_rate_management_method; /*! \brief The emitting gateway may indicate a preference for either UDP/UDPTL, or UDP/RTP, or TCP for transport of T.38 IFP Packets. The receiving device selects the transport protocol. */ int data_transport_protocol; /*! \brief Indicates the capability to remove and insert fill bits in Phase C, non-ECM data to reduce bandwidth in the packet network. */ int fill_bit_removal; /*! \brief Indicates the ability to convert to/from MMR from/to the line format to improve the compression of the data, and reduce the bandwidth, in the packet network. */ int mmr_transcoding; /*! \brief Indicates the ability to convert to/from JBIG to reduce bandwidth. */ int jbig_transcoding; /*! \brief For UDP (UDPTL or RTP) modes, this option indicates the maximum number of octets that can be stored on the remote device before an overflow condition occurs. It is the responsibility of the transmitting application to limit the transfer rate to prevent an overflow. The negotiated data rate should be used to determine the rate at which data is being removed from the buffer. */ int max_buffer_size; /*! \brief This option indicates the maximum size of a UDPTL packet or the maximum size of the payload within an RTP packet that can be accepted by the remote device. */ int max_datagram_size; /*! \brief This is the version number of ITU-T Rec. T.38. New versions shall be compatible with previous versions. */ int t38_version; /*! \brief Allow time for TEP playout */ int allow_for_tep; /*! \brief The fastest data rate supported by the T.38 channel. */ int fastest_image_data_rate; /*! \brief The number of times each packet type will be sent (low byte). The depth of redundancy (2nd byte). Higher numbers may increase reliability for UDP transmission. Zero is valid for the indicator packet category, to suppress all indicator packets (typicaly for TCP transmission). */ int category_control[5]; /*! \brief TRUE if IFP packet sequence numbers are relevant. For some transports, like TPKT over TCP they are not relevent. */ int check_sequence_numbers; /*! \brief The sequence number for the next packet to be transmitted */ int tx_seq_no; /*! \brief The sequence number expected in the next received packet */ int rx_expected_seq_no; /*! \brief The current receive indicator - i.e. the last indicator received */ int current_rx_indicator; /*! \brief The current receive data type - i.e. the last data type received */ int current_rx_data_type; /*! \brief The current receive field type - i.e. the last field_type received */ int current_rx_field_type; /*! \brief The current transmit indicator - i.e. the last indicator transmitted */ int current_tx_indicator; /*! \brief The bit rate for V.34 operation */ int v34_rate; /*! A count of missing receive packets. This count might not be accurate if the received packet numbers jump wildly. */ int missing_packets; /*! \brief Error and flow logging control */ logging_state_t logging; }; #endif /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/spandsp/v8.h0000664000175000017500000001542311422612265015552 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * v8.h - V.8 modem negotiation processing. * * Written by Steve Underwood * * Copyright (C) 2004 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \file */ /*! \page v8_page The V.8 modem negotiation protocol \section v8_page_sec_1 What does it do? The V.8 specification defines a procedure to be used as PSTN modem answer phone calls, which allows the modems to negotiate the optimum modem standard, which both ends can support. \section v8_page_sec_2 How does it work? At startup the modems communicate using the V.21 standard at 300 bits/second. They exchange simple messages about their capabilities, and choose the modem standard they will use for data communication. The V.8 protocol then terminates, and the modems being negotiating and training with their chosen modem standard. */ #if !defined(_SPANDSP_V8_H_) #define _SPANDSP_V8_H_ typedef struct v8_parms_s v8_parms_t; typedef void (v8_result_handler_t)(void *user_data, v8_parms_t *result); enum v8_call_function_e { V8_CALL_TBS = 0, V8_CALL_H324 = 1, V8_CALL_V18 = 2, V8_CALL_T101 = 3, V8_CALL_T30_TX = 4, V8_CALL_T30_RX = 5, V8_CALL_V_SERIES = 6, V8_CALL_FUNCTION_EXTENSION = 7 }; enum v8_modulation_e { V8_MOD_V17 = (1 << 0), /* V.17 half-duplex */ V8_MOD_V21 = (1 << 1), /* V.21 duplex */ V8_MOD_V22 = (1 << 2), /* V.22/V22.bis duplex */ V8_MOD_V23HDX = (1 << 3), /* V.23 half-duplex */ V8_MOD_V23 = (1 << 4), /* V.23 duplex */ V8_MOD_V26BIS = (1 << 5), /* V.23 duplex */ V8_MOD_V26TER = (1 << 6), /* V.23 duplex */ V8_MOD_V27TER = (1 << 7), /* V.23 duplex */ V8_MOD_V29 = (1 << 8), /* V.29 half-duplex */ V8_MOD_V32 = (1 << 9), /* V.32/V32.bis duplex */ V8_MOD_V34HDX = (1 << 10), /* V.34 half-duplex */ V8_MOD_V34 = (1 << 11), /* V.34 duplex */ V8_MOD_V90 = (1 << 12), /* V.90 duplex */ V8_MOD_V92 = (1 << 13) /* V.92 duplex */ }; enum v8_protocol_e { V8_PROTOCOL_NONE = 0, V8_PROTOCOL_LAPM_V42 = 1, V8_PROTOCOL_EXTENSION = 7 }; enum v8_pstn_access_e { V8_PSTN_ACCESS_CALL_DCE_CELLULAR = 0x01, V8_PSTN_ACCESS_ANSWER_DCE_CELLULAR = 0x02, V8_PSTN_ACCESS_DCE_ON_DIGITAL = 0x04 }; enum v8_pcm_modem_availability_e { V8_PSTN_PCM_MODEM_V90_V92_ANALOGUE = 0x01, V8_PSTN_PCM_MODEM_V90_V92_DIGITAL = 0x02, V8_PSTN_PCM_MODEM_V91 = 0x04 }; enum v8_status_e { /*! V.8 negotiation is in progress. */ V8_STATUS_IN_PROGRESS = 0, /*! V.8 has been offered by the other (calling) party. */ V8_STATUS_V8_OFFERED = 1, /*! V.8 has been successfully negotiated. Note that this only means the V.8 message exchange has successfully completed. The actual exchanged parameters must be checked, to see if the call can proceed properly. */ V8_STATUS_V8_CALL = 2, /*! A non-V.8 is being received. */ V8_STATUS_NON_V8_CALL = 3, /*! V.8 negotiation failed. */ V8_STATUS_FAILED = 4 }; typedef struct v8_state_s v8_state_t; struct v8_parms_s { int status; int modem_connect_tone; int call_function; unsigned int modulations; int protocol; int pstn_access; int pcm_modem_availability; int nsf; int t66; }; #if defined(__cplusplus) extern "C" { #endif SPAN_DECLARE(int) v8_restart(v8_state_t *s, int calling_party, v8_parms_t *parms); /*! Initialise a V.8 context. \brief Initialise a V.8 context. \param s The V.8 context. \param calling_party TRUE if caller mode, else answerer mode. \param parms The allowed parameters for the call. \param result_handler The callback routine used to handle the results of negotiation. \param user_data An opaque pointer passed to the result_handler routine. \return A pointer to the V.8 context, or NULL if there was a problem. */ SPAN_DECLARE(v8_state_t *) v8_init(v8_state_t *s, int calling_party, v8_parms_t *parms, v8_result_handler_t *result_handler, void *user_data); /*! Release a V.8 context. \brief Release a V.8 context. \param s The V.8 context. \return 0 for OK. */ SPAN_DECLARE(int) v8_release(v8_state_t *s); /*! Free a V.8 context. \brief Release a V.8 context. \param s The V.8 context. \return 0 for OK. */ SPAN_DECLARE(int) v8_free(v8_state_t *s); SPAN_DECLARE(logging_state_t *) v8_get_logging_state(v8_state_t *s); /*! Generate a block of V.8 audio samples. \brief Generate a block of V.8 audio samples. \param s The V.8 context. \param amp The audio sample buffer. \param max_len The number of samples to be generated. \return The number of samples actually generated. */ SPAN_DECLARE_NONSTD(int) v8_tx(v8_state_t *s, int16_t *amp, int max_len); /*! Process a block of received V.8 audio samples. \brief Process a block of received V.8 audio samples. \param s The V.8 context. \param amp The audio sample buffer. \param len The number of samples in the buffer. */ SPAN_DECLARE_NONSTD(int) v8_rx(v8_state_t *s, const int16_t *amp, int len); /*! Log the list of supported modulations. \brief Log the list of supported modulations. \param s The V.8 context. \param modulation_schemes The list of supported modulations. */ SPAN_DECLARE(void) v8_log_supported_modulations(v8_state_t *s, int modulation_schemes); SPAN_DECLARE(const char *) v8_call_function_to_str(int call_function); SPAN_DECLARE(const char *) v8_modulation_to_str(int modulation_scheme); SPAN_DECLARE(const char *) v8_protocol_to_str(int protocol); SPAN_DECLARE(const char *) v8_pstn_access_to_str(int pstn_access); SPAN_DECLARE(const char *) v8_nsf_to_str(int nsf); SPAN_DECLARE(const char *) v8_pcm_modem_availability_to_str(int pcm_modem_availability); SPAN_DECLARE(const char *) v8_t66_to_str(int t66); #if defined(__cplusplus) } #endif #endif /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/spandsp/queue.h0000664000175000017500000001476011422612264016343 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * queue.h - simple in process message queuing * * Written by Steve Underwood * * Copyright (C) 2004 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \file */ /*! \page queue_page Queuing \section queue_page_sec_1 What does it do? This module provides lock free queuing for either octet streams or messages. Specifically, lock free means one thread can write and another can read without locking the queue. It does NOT means a free-for-all is possible, with many threads writing or many threads reading. Those things would require locking, to avoid conflicts between the multiple threads acting on one end of the queue. \section queue_page_sec_2 How does it work? ???. */ #if !defined(_SPANDSP_QUEUE_H_) #define _SPANDSP_QUEUE_H_ /*! Flag bit to indicate queue reads are atomic operations. This must be set if the queue is to be used with the message oriented functions. */ #define QUEUE_READ_ATOMIC 0x0001 /*! Flag bit to indicate queue writes are atomic operations. This must be set if the queue is to be used with the message oriented functions. */ #define QUEUE_WRITE_ATOMIC 0x0002 /*! Queue descriptor. This defines the working state for a single instance of a byte stream or message oriented queue. */ typedef struct queue_state_s queue_state_t; #define QUEUE_STATE_T_SIZE(len) (sizeof(queue_state_t) + len + 1) #if defined(__cplusplus) extern "C" { #endif /*! Check if a queue is empty. \brief Check if a queue is empty. \param s The queue context. \return TRUE if empty, else FALSE. */ SPAN_DECLARE(int) queue_empty(queue_state_t *s); /*! Check the available free space in a queue's buffer. \brief Check available free space. \param s The queue context. \return The number of bytes of free space. */ SPAN_DECLARE(int) queue_free_space(queue_state_t *s); /*! Check the contents of a queue. \brief Check the contents of a queue. \param s The queue context. \return The number of bytes in the queue. */ SPAN_DECLARE(int) queue_contents(queue_state_t *s); /*! Flush the contents of a queue. \brief Flush the contents of a queue. \param s The queue context. */ SPAN_DECLARE(void) queue_flush(queue_state_t *s); /*! Copy bytes from a queue. This is similar to queue_read, but the data remains in the queue. \brief Copy bytes from a queue. \param s The queue context. \param buf The buffer into which the bytes will be read. \param len The length of the buffer. \return the number of bytes returned. */ SPAN_DECLARE(int) queue_view(queue_state_t *s, uint8_t *buf, int len); /*! Read bytes from a queue. \brief Read bytes from a queue. \param s The queue context. \param buf The buffer into which the bytes will be read. \param len The length of the buffer. \return the number of bytes returned. */ SPAN_DECLARE(int) queue_read(queue_state_t *s, uint8_t *buf, int len); /*! Read a byte from a queue. \brief Read a byte from a queue. \param s The queue context. \return the byte, or -1 if the queue is empty. */ SPAN_DECLARE(int) queue_read_byte(queue_state_t *s); /*! Write bytes to a queue. \brief Write bytes to a queue. \param s The queue context. \param buf The buffer containing the bytes to be written. \param len The length of the buffer. \return the number of bytes actually written. */ SPAN_DECLARE(int) queue_write(queue_state_t *s, const uint8_t *buf, int len); /*! Write a byte to a queue. \brief Write a byte to a queue. \param s The queue context. \param byte The byte to be written. \return the number of bytes actually written. */ SPAN_DECLARE(int) queue_write_byte(queue_state_t *s, uint8_t byte); /*! Test the length of the message at the head of a queue. \brief Test message length. \param s The queue context. \return The length of the next message, in byte. If there are no messages in the queue, -1 is returned. */ SPAN_DECLARE(int) queue_state_test_msg(queue_state_t *s); /*! Read a message from a queue. If the message is longer than the buffer provided, only the first len bytes of the message will be returned. The remainder of the message will be discarded. \brief Read a message from a queue. \param s The queue context. \param buf The buffer into which the message will be read. \param len The length of the buffer. \return The number of bytes returned. If there are no messages in the queue, -1 is returned. */ SPAN_DECLARE(int) queue_read_msg(queue_state_t *s, uint8_t *buf, int len); /*! Write a message to a queue. \brief Write a message to a queue. \param s The queue context. \param buf The buffer from which the message will be written. \param len The length of the message. \return The number of bytes actually written. */ SPAN_DECLARE(int) queue_write_msg(queue_state_t *s, const uint8_t *buf, int len); /*! Initialise a queue. \brief Initialise a queue. \param s The queue context. If is imperative that the context this points to is immediately followed by a buffer of the required size + 1 octet. \param len The length of the queue's buffer. \param flags Flags controlling the operation of the queue. Valid flags are QUEUE_READ_ATOMIC and QUEUE_WRITE_ATOMIC. \return A pointer to the context if OK, else NULL. */ SPAN_DECLARE(queue_state_t *) queue_init(queue_state_t *s, int len, int flags); /*! Release a queue. \brief Release a queue. \param s The queue context. \return 0 if OK, else -1. */ SPAN_DECLARE(int) queue_release(queue_state_t *s); /*! Free a queue. \brief Delete a queue. \param s The queue context. \return 0 if OK, else -1. */ SPAN_DECLARE(int) queue_free(queue_state_t *s); #if defined(__cplusplus) } #endif #endif /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/spandsp/t4_tx.h0000664000175000017500000002023411422612264016252 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * t4_tx.h - definitions for T.4 FAX transmit processing * * Written by Steve Underwood * * Copyright (C) 2003 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \file */ #if !defined(_SPANDSP_T4_TX_H_) #define _SPANDSP_T4_TX_H_ typedef int (*t4_row_read_handler_t)(void *user_data, uint8_t buf[], size_t len); #if defined(__cplusplus) extern "C" { #endif /*! \brief Prepare for transmission of a document. \param s The T.4 context. \param file The name of the file to be sent. \param start_page The first page to send. -1 for no restriction. \param stop_page The last page to send. -1 for no restriction. \return A pointer to the context, or NULL if there was a problem. */ SPAN_DECLARE(t4_state_t *) t4_tx_init(t4_state_t *s, const char *file, int start_page, int stop_page); /*! \brief Prepare to send the next page of the current document. \param s The T.4 context. \return zero for success, -1 for failure. */ SPAN_DECLARE(int) t4_tx_start_page(t4_state_t *s); /*! \brief Prepare the current page for a resend. \param s The T.4 context. \return zero for success, -1 for failure. */ SPAN_DECLARE(int) t4_tx_restart_page(t4_state_t *s); /*! \brief Check for the existance of the next page, and whether its format is like the current one. This information can be needed before it is determined that the current page is finished with. \param s The T.4 context. \return 0 for next page found with the same format as the current page. 1 for next page found with different format from the current page. -1 for no page found, or file failure. */ SPAN_DECLARE(int) t4_tx_next_page_has_different_format(t4_state_t *s); /*! \brief Complete the sending of a page. \param s The T.4 context. \return zero for success, -1 for failure. */ SPAN_DECLARE(int) t4_tx_end_page(t4_state_t *s); /*! \brief Return the next bit of the current document page, without actually moving forward in the buffer. The document will be padded for the current minimum scan line time. \param s The T.4 context. \return The next bit (i.e. 0 or 1). For the last bit of data, bit 1 is set (i.e. the returned value is 2 or 3). */ SPAN_DECLARE(int) t4_tx_check_bit(t4_state_t *s); /*! \brief Get the next bit of the current document page. The document will be padded for the current minimum scan line time. \param s The T.4 context. \return The next bit (i.e. 0 or 1). For the last bit of data, bit 1 is set (i.e. the returned value is 2 or 3). */ SPAN_DECLARE(int) t4_tx_get_bit(t4_state_t *s); /*! \brief Get the next byte of the current document page. The document will be padded for the current minimum scan line time. \param s The T.4 context. \return The next byte. For the last byte of data, bit 8 is set. In this case, one or more bits of the byte may be padded with zeros, to complete the byte. */ SPAN_DECLARE(int) t4_tx_get_byte(t4_state_t *s); /*! \brief Get the next chunk of the current document page. The document will be padded for the current minimum scan line time. \param s The T.4 context. \param buf The buffer into which the chunk is to written. \param max_len The maximum length of the chunk. \return The actual length of the chunk. If this is less than max_len it indicates that the end of the document has been reached. */ SPAN_DECLARE(int) t4_tx_get_chunk(t4_state_t *s, uint8_t buf[], int max_len); /*! \brief End the transmission of a document. Tidy up and close the file. This should be used to end T.4 transmission started with t4_tx_init. \param s The T.4 context. \return 0 for success, otherwise -1. */ SPAN_DECLARE(int) t4_tx_release(t4_state_t *s); /*! \brief End the transmission of a document. Tidy up, close the file and free the context. This should be used to end T.4 transmission started with t4_tx_init. \param s The T.4 context. \return 0 for success, otherwise -1. */ SPAN_DECLARE(int) t4_tx_free(t4_state_t *s); /*! \brief Set the encoding for the encoded data. \param s The T.4 context. \param encoding The encoding. */ SPAN_DECLARE(void) t4_tx_set_tx_encoding(t4_state_t *s, int encoding); /*! \brief Set the minimum number of encoded bits per row. This allows the makes the encoding process to be set to comply with the minimum row time specified by a remote receiving machine. \param s The T.4 context. \param bits The minimum number of bits per row. */ SPAN_DECLARE(void) t4_tx_set_min_bits_per_row(t4_state_t *s, int bits); /*! \brief Set the identity of the local machine, for inclusion in page headers. \param s The T.4 context. \param ident The identity string. */ SPAN_DECLARE(void) t4_tx_set_local_ident(t4_state_t *s, const char *ident); /*! Set the info field, included in the header line included in each page of an encoded FAX. This is a string of up to 50 characters. Other information (date, local ident, etc.) are automatically included in the header. If the header info is set to NULL or a zero length string, no header lines will be added to the encoded FAX. \brief Set the header info. \param s The T.4 context. \param info A string, of up to 50 bytes, which will form the info field. */ SPAN_DECLARE(void) t4_tx_set_header_info(t4_state_t *s, const char *info); /*! Set the time zone for the time stamp in page header lines. If this function is not used the current time zone of the program's environment is used. \brief Set the header timezone. \param s The T.4 context. \param info A POSIX timezone description string. */ SPAN_DECLARE(void) t4_tx_set_header_tz(t4_state_t *s, const char *tzstring); /*! \brief Set the row read handler for a T.4 transmit context. \param s The T.4 transmit context. \param handler A pointer to the handler routine. \param user_data An opaque pointer passed to the handler routine. \return 0 for success, otherwise -1. */ SPAN_DECLARE(int) t4_tx_set_row_read_handler(t4_state_t *s, t4_row_read_handler_t handler, void *user_data); /*! \brief Get the row-to-row (y) resolution of the current page. \param s The T.4 context. \return The resolution, in pixels per metre. */ SPAN_DECLARE(int) t4_tx_get_y_resolution(t4_state_t *s); /*! \brief Get the column-to-column (x) resolution of the current page. \param s The T.4 context. \return The resolution, in pixels per metre. */ SPAN_DECLARE(int) t4_tx_get_x_resolution(t4_state_t *s); /*! \brief Get the width of the current page, in pixel columns. \param s The T.4 context. \return The number of columns. */ SPAN_DECLARE(int) t4_tx_get_image_width(t4_state_t *s); /*! \brief Get the number of pages in the file. \param s The T.4 context. \return The number of pages, or -1 if there is an error. */ SPAN_DECLARE(int) t4_tx_get_pages_in_file(t4_state_t *s); /*! \brief Get the currnet page number in the file. \param s The T.4 context. \return The page number, or -1 if there is an error. */ SPAN_DECLARE(int) t4_tx_get_current_page_in_file(t4_state_t *s); /*! Get the current image transfer statistics. \brief Get the current transfer statistics. \param s The T.4 context. \param t A pointer to a statistics structure. */ SPAN_DECLARE(void) t4_tx_get_transfer_statistics(t4_state_t *s, t4_stats_t *t); #if defined(__cplusplus) } #endif #endif /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/spandsp/hdlc.h0000664000175000017500000002347511422612264016134 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * hdlc.h * * Written by Steve Underwood * * Copyright (C) 2003 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \file */ /*! \page hdlc_page HDLC \section hdlc_page_sec_1 What does it do? The HDLC module provides bit stuffing, destuffing, framing and deframing, according to the HDLC protocol. It also provides 16 and 32 bit CRC generation and checking services for HDLC frames. HDLC may not be a DSP function, but is needed to accompany several DSP components. \section hdlc_page_sec_2 How does it work? */ #if !defined(_SPANDSP_HDLC_H_) #define _SPANDSP_HDLC_H_ /*! HDLC_MAXFRAME_LEN is the maximum length of a stuffed HDLC frame, excluding the CRC. */ #define HDLC_MAXFRAME_LEN 400 typedef void (*hdlc_frame_handler_t)(void *user_data, const uint8_t *pkt, int len, int ok); typedef void (*hdlc_underflow_handler_t)(void *user_data); /*! HDLC receive descriptor. This contains all the state information for an HDLC receiver. */ typedef struct hdlc_rx_state_s hdlc_rx_state_t; /*! HDLC received data statistics. */ typedef struct { /*! \brief The number of bytes of good frames received (CRC not included). */ unsigned long int bytes; /*! \brief The number of good frames received. */ unsigned long int good_frames; /*! \brief The number of frames with CRC errors received. */ unsigned long int crc_errors; /*! \brief The number of too short and too long frames received. */ unsigned long int length_errors; /*! \brief The number of HDLC aborts received. */ unsigned long int aborts; } hdlc_rx_stats_t; /*! HDLC transmit descriptor. This contains all the state information for an HDLC transmitter. */ typedef struct hdlc_tx_state_s hdlc_tx_state_t; #if defined(__cplusplus) extern "C" { #endif /*! \brief Initialise an HDLC receiver context. \param s A pointer to an HDLC receiver context. \param crc32 TRUE to use ITU CRC32. FALSE to use ITU CRC16. \param report_bad_frames TRUE to request the reporting of bad frames. \param framing_ok_threshold The number of back-to-back flags needed to start the framing OK condition. This may be used where a series of flag octets is used as a preamble, such as in the T.30 protocol. \param handler The function to be called when a good HDLC frame is received. \param user_data An opaque parameter for the callback routine. \return A pointer to the HDLC receiver context. */ SPAN_DECLARE(hdlc_rx_state_t *) hdlc_rx_init(hdlc_rx_state_t *s, int crc32, int report_bad_frames, int framing_ok_threshold, hdlc_frame_handler_t handler, void *user_data); /*! Change the put_bit function associated with an HDLC receiver context. \brief Change the put_bit function associated with an HDLC receiver context. \param s A pointer to an HDLC receiver context. \param handler The function to be called when a good HDLC frame is received. \param user_data An opaque parameter for the callback routine. */ SPAN_DECLARE(void) hdlc_rx_set_frame_handler(hdlc_rx_state_t *s, hdlc_frame_handler_t handler, void *user_data); /*! Change the status report function associated with an HDLC receiver context. \brief Change the status report function associated with an HDLC receiver context. \param s A pointer to an HDLC receiver context. \param handler The callback routine used to report status changes. \param user_data An opaque parameter for the callback routine. */ SPAN_DECLARE(void) hdlc_rx_set_status_handler(hdlc_rx_state_t *s, modem_rx_status_func_t handler, void *user_data); /*! Release an HDLC receiver context. \brief Release an HDLC receiver context. \param s A pointer to an HDLC receiver context. \return 0 for OK */ SPAN_DECLARE(int) hdlc_rx_release(hdlc_rx_state_t *s); /*! Free an HDLC receiver context. \brief Free an HDLC receiver context. \param s A pointer to an HDLC receiver context. \return 0 for OK */ SPAN_DECLARE(int) hdlc_rx_free(hdlc_rx_state_t *s); /*! \brief Set the maximum frame length for an HDLC receiver context. \param s A pointer to an HDLC receiver context. \param max_len The maximum permitted length of a frame. */ SPAN_DECLARE(void) hdlc_rx_set_max_frame_len(hdlc_rx_state_t *s, size_t max_len); /*! \brief Set the octet counting report interval. \param s A pointer to an HDLC receiver context. \param interval The interval, in octets. */ SPAN_DECLARE(void) hdlc_rx_set_octet_counting_report_interval(hdlc_rx_state_t *s, int interval); /*! \brief Get the current receive statistics. \param s A pointer to an HDLC receiver context. \param t A pointer to the buffer for the statistics. \return 0 for OK, else -1. */ SPAN_DECLARE(int) hdlc_rx_get_stats(hdlc_rx_state_t *s, hdlc_rx_stats_t *t); /*! \brief Put a single bit of data to an HDLC receiver. \param s A pointer to an HDLC receiver context. \param new_bit The bit. */ SPAN_DECLARE_NONSTD(void) hdlc_rx_put_bit(hdlc_rx_state_t *s, int new_bit); /*! \brief Put a byte of data to an HDLC receiver. \param s A pointer to an HDLC receiver context. \param new_byte The byte of data. */ SPAN_DECLARE_NONSTD(void) hdlc_rx_put_byte(hdlc_rx_state_t *s, int new_byte); /*! \brief Put a series of bytes of data to an HDLC receiver. \param s A pointer to an HDLC receiver context. \param buf The buffer of data. \param len The length of the data in the buffer. */ SPAN_DECLARE_NONSTD(void) hdlc_rx_put(hdlc_rx_state_t *s, const uint8_t buf[], int len); /*! \brief Initialise an HDLC transmitter context. \param s A pointer to an HDLC transmitter context. \param crc32 TRUE to use ITU CRC32. FALSE to use ITU CRC16. \param inter_frame_flags The minimum flag octets to insert between frames (usually one). \param progressive TRUE if frame creation works in progressive mode. \param handler The callback function called when the HDLC transmitter underflows. \param user_data An opaque parameter for the callback routine. \return A pointer to the HDLC transmitter context. */ SPAN_DECLARE(hdlc_tx_state_t *) hdlc_tx_init(hdlc_tx_state_t *s, int crc32, int inter_frame_flags, int progressive, hdlc_underflow_handler_t handler, void *user_data); SPAN_DECLARE(int) hdlc_tx_release(hdlc_tx_state_t *s); SPAN_DECLARE(int) hdlc_tx_free(hdlc_tx_state_t *s); /*! \brief Set the maximum frame length for an HDLC transmitter context. \param s A pointer to an HDLC transmitter context. \param max_len The maximum length. */ SPAN_DECLARE(void) hdlc_tx_set_max_frame_len(hdlc_tx_state_t *s, size_t max_len); /*! \brief Transmit a frame. \param s A pointer to an HDLC transmitter context. \param frame A pointer to the frame to be transmitted. \param len The length of the frame to be transmitted. \return 0 if the frame was accepted for transmission, else -1. */ SPAN_DECLARE(int) hdlc_tx_frame(hdlc_tx_state_t *s, const uint8_t *frame, size_t len); /*! \brief Corrupt the frame currently being transmitted, by giving it the wrong CRC. \param s A pointer to an HDLC transmitter context. \return 0 if the frame was corrupted, else -1. */ SPAN_DECLARE(int) hdlc_tx_corrupt_frame(hdlc_tx_state_t *s); /*! \brief Transmit a specified quantity of flag octets, typically as a preamble. \param s A pointer to an HDLC transmitter context. \param len The length of the required period of flags, in flag octets. If len is zero this requests that HDLC transmission be terminated when the buffers have fully drained. \return 0 if the flags were accepted for transmission, else -1. */ SPAN_DECLARE(int) hdlc_tx_flags(hdlc_tx_state_t *s, int len); /*! \brief Send an abort. \param s A pointer to an HDLC transmitter context. \return 0 if the frame was aborted, else -1. */ SPAN_DECLARE(int) hdlc_tx_abort(hdlc_tx_state_t *s); /*! \brief Get the next bit for transmission. \param s A pointer to an HDLC transmitter context. \return The next bit for transmission. */ SPAN_DECLARE_NONSTD(int) hdlc_tx_get_bit(hdlc_tx_state_t *s); /*! \brief Get the next byte for transmission. \param s A pointer to an HDLC transmitter context. \return The next byte for transmission. */ SPAN_DECLARE_NONSTD(int) hdlc_tx_get_byte(hdlc_tx_state_t *s); /*! \brief Get the next sequence of bytes for transmission. \param s A pointer to an HDLC transmitter context. \param buf The buffer for the data. \param max_len The number of bytes to get. \return The number of bytes actually got. */ SPAN_DECLARE_NONSTD(int) hdlc_tx_get(hdlc_tx_state_t *s, uint8_t buf[], size_t max_len); #if defined(__cplusplus) } #endif #endif /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/spandsp/t31.h0000664000175000017500000001413311422612264015620 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * t31.h - A T.31 compatible class 1 FAX modem interface. * * Written by Steve Underwood * * Copyright (C) 2004 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \file */ #if !defined(_SPANDSP_T31_H_) #define _SPANDSP_T31_H_ /*! \page t31_page T.31 Class 1 FAX modem protocol handling \section t31_page_sec_1 What does it do? The T.31 class 1 FAX modem modules implements a class 1 interface to the FAX modems in spandsp. \section t31_page_sec_2 How does it work? */ /*! T.31 descriptor. This defines the working state for a single instance of a T.31 FAX modem. */ typedef struct t31_state_s t31_state_t; typedef int (t31_modem_control_handler_t)(t31_state_t *s, void *user_data, int op, const char *num); #define T31_TX_BUF_LEN (4096) #define T31_TX_BUF_HIGH_TIDE (4096 - 1024) #define T31_TX_BUF_LOW_TIDE (1024) #define T31_MAX_HDLC_LEN 284 #define T31_T38_MAX_HDLC_LEN 260 #if defined(__cplusplus) extern "C" { #endif SPAN_DECLARE(void) t31_call_event(t31_state_t *s, int event); SPAN_DECLARE(int) t31_at_rx(t31_state_t *s, const char *t, int len); /*! Process a block of received T.31 modem audio samples. \brief Process a block of received T.31 modem audio samples. \param s The T.31 modem context. \param amp The audio sample buffer. \param len The number of samples in the buffer. \return The number of samples unprocessed. */ SPAN_DECLARE_NONSTD(int) t31_rx(t31_state_t *s, int16_t amp[], int len); /*! Fake processing of a missing block of received T.31 modem audio samples (e.g due to packet loss). \brief Fake processing of a missing block of received T.31 modem audio samples. \param s The T.31 modem context. \param len The number of samples to fake. \return The number of samples unprocessed. */ SPAN_DECLARE_NONSTD(int) t31_rx_fillin(t31_state_t *s, int len); /*! Generate a block of T.31 modem audio samples. \brief Generate a block of T.31 modem audio samples. \param s The T.31 modem context. \param amp The audio sample buffer. \param max_len The number of samples to be generated. \return The number of samples actually generated. */ SPAN_DECLARE_NONSTD(int) t31_tx(t31_state_t *s, int16_t amp[], int max_len); SPAN_DECLARE(int) t31_t38_send_timeout(t31_state_t *s, int samples); /*! Select whether silent audio will be sent when transmit is idle. \brief Select whether silent audio will be sent when transmit is idle. \param s The T.31 modem context. \param transmit_on_idle TRUE if silent audio should be output when the transmitter is idle. FALSE to transmit zero length audio when the transmitter is idle. The default behaviour is FALSE. */ SPAN_DECLARE(void) t31_set_transmit_on_idle(t31_state_t *s, int transmit_on_idle); /*! Select whether TEP mode will be used (or time allowed for it (when transmitting). \brief Select whether TEP mode will be used. \param s The T.31 modem context. \param use_tep TRUE if TEP is to be ised. */ SPAN_DECLARE(void) t31_set_tep_mode(t31_state_t *s, int use_tep); /*! Select whether T.38 data will be paced as it is transmitted. \brief Select whether T.38 data will be paced. \param s The T.31 modem context. \param without_pacing TRUE if data is to be sent as fast as possible. FALSE if it is to be paced. */ SPAN_DECLARE(void) t31_set_t38_config(t31_state_t *s, int without_pacing); SPAN_DECLARE(void) t31_set_mode(t31_state_t *s, int t38_mode); /*! Get a pointer to the logging context associated with a T.31 context. \brief Get a pointer to the logging context associated with a T.31 context. \param s The T.31 context. \return A pointer to the logging context, or NULL. */ SPAN_DECLARE(logging_state_t *) t31_get_logging_state(t31_state_t *s); SPAN_DECLARE(t38_core_state_t *) t31_get_t38_core_state(t31_state_t *s); /*! Initialise a T.31 context. This must be called before the first use of the context, to initialise its contents. \brief Initialise a T.31 context. \param s The T.31 context. \param at_tx_handler A callback routine to handle AT interpreter channel output. \param at_tx_user_data An opaque pointer passed in called to at_tx_handler. \param modem_control_handler A callback routine to handle control of the modem (off-hook, etc). \param modem_control_user_data An opaque pointer passed in called to modem_control_handler. \param tx_t38_packet_handler ??? \param tx_t38_packet_user_data ??? \return A pointer to the T.31 context. */ SPAN_DECLARE(t31_state_t *) t31_init(t31_state_t *s, at_tx_handler_t *at_tx_handler, void *at_tx_user_data, t31_modem_control_handler_t *modem_control_handler, void *modem_control_user_data, t38_tx_packet_handler_t *tx_t38_packet_handler, void *tx_t38_packet_user_data); /*! Release a T.31 context. \brief Release a T.31 context. \param s The T.31 context. \return 0 for OK */ SPAN_DECLARE(int) t31_release(t31_state_t *s); /*! Free a T.31 context. \brief Release a T.31 context. \param s The T.31 context. \return 0 for OK */ SPAN_DECLARE(int) t31_free(t31_state_t *s); #if defined(__cplusplus) } #endif #endif /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/spandsp/fast_convert.h0000664000175000017500000002507511422612264017715 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * fast_convert.h - Quick ways to convert floating point numbers to integers * * Written by Steve Underwood * * Copyright (C) 2009 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #if !defined(_SPANDSP_FAST_CONVERT_H_) #define _SPANDSP_FAST_CONVERT_H_ #if defined(__cplusplus) extern "C" { #endif /* The following code, to handle issues with lrint() and lrintf() on various * platforms, is adapted from similar code in libsndfile, which is: * * Copyright (C) 2001-2004 Erik de Castro Lopo * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License as published by * the Free Software Foundation; either version 2.1 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 Lesser General Public License for more details. */ /* * On Intel Pentium processors (especially PIII and probably P4), converting * from float to int is very slow. To meet the C specs, the code produced by * most C compilers targeting Pentium needs to change the FPU rounding mode * before the float to int conversion is performed. * * Changing the FPU rounding mode causes the FPU pipeline to be flushed. It * is this flushing of the pipeline which is so slow. * * Fortunately the ISO C99 specification defines the functions lrint, lrintf, * llrint and llrintf which fix this problem as a side effect. * * On Unix-like systems, the configure process should have detected the * presence of these functions. If they weren't found we have to replace them * here with a standard C cast. */ /* * The C99 prototypes for these functions are as follows: * * int rintf(float x); * int rint(double x); * long int lrintf(float x); * long int lrint(double x); * long long int llrintf(float x); * long long int llrint(double x); * * The presence of the required functions are detected during the configure * process and the values HAVE_LRINT and HAVE_LRINTF are set accordingly in * the config file. */ #if defined(__CYGWIN__) #if !defined(__cplusplus) && (__GNUC__ < 4) /* * CYGWIN versions prior to 1.7.1 have lrint and lrintf functions, but * they are slow and buggy: * http://sourceware.org/ml/cygwin/2005-06/msg00153.html * http://sourceware.org/ml/cygwin/2005-09/msg00047.html * These replacement functions (pulled from the Public Domain MinGW * math.h header) replace the native versions. */ static __inline__ long int lrint(double x) { long int retval; __asm__ __volatile__ ( "fistpl %0" : "=m" (retval) : "t" (x) : "st" ); return retval; } static __inline__ long int lrintf(float x) { long int retval; __asm__ __volatile__ ( "fistpl %0" : "=m" (retval) : "t" (x) : "st" ); return retval; } #endif /* The fastest way to convert is the equivalent of lrint() */ static __inline__ long int lfastrint(double x) { long int retval; __asm__ __volatile__ ( "fistpl %0" : "=m" (retval) : "t" (x) : "st" ); return retval; } static __inline__ long int lfastrintf(float x) { long int retval; __asm__ __volatile__ ( "fistpl %0" : "=m" (retval) : "t" (x) : "st" ); return retval; } #elif defined(__GNUC__) || (__SUNPRO_C >= 0x0590) #if defined(__i386__) /* These routines are guaranteed fast on an i386 machine. Using the built in lrint() and lrintf() should be similar, but they may not always be enabled. Sometimes, especially with "-O0", you might get slow calls to routines. */ static __inline__ long int lfastrint(double x) { long int retval; __asm__ __volatile__ ( "fistpl %0" : "=m" (retval) : "t" (x) : "st" ); return retval; } static __inline__ long int lfastrintf(float x) { long int retval; __asm__ __volatile__ ( "fistpl %0" : "=m" (retval) : "t" (x) : "st" ); return retval; } #elif defined(__x86_64__) /* On an x86_64 machine, the fastest thing seems to be a pure assignment from a double or float to an int. It looks like the design on the x86_64 took account of the default behaviour specified for C. */ static __inline__ long int lfastrint(double x) { return (long int) (x); } static __inline__ long int lfastrintf(float x) { return (long int) (x); } #elif defined(__ppc__) || defined(__powerpc__) static __inline__ long int lfastrint(register double x) { int res[2]; __asm__ __volatile__ ( "fctiw %1, %1\n\t" "stfd %1, %0" : "=m" (res) /* Output */ : "f" (x) /* Input */ : "memory" ); return res[1]; } static __inline__ long int lfastrintf(register float x) { int res[2]; __asm__ __volatile__ ( "fctiw %1, %1\n\t" "stfd %1, %0" : "=m" (res) /* Output */ : "f" (x) /* Input */ : "memory" ); return res[1]; } #else /* Fallback routines, for unrecognised platforms */ static __inline__ long int lfastrint(double x) { return (long int) x; } static __inline__ long int lfastrintf(float x) { return (long int) x; } #endif #elif defined(_M_IX86) /* Visual Studio i386 */ /* * Win32 doesn't seem to have the lrint() and lrintf() functions. * Therefore implement inline versions of these functions here. */ __inline long int lrint(double x) { long int i; _asm { fld x fistp i }; return i; } __inline long int lrintf(float x) { long int i; _asm { fld x fistp i }; return i; } __inline float rintf(float flt) { _asm { fld flt frndint } } __inline double rint(double dbl) { _asm { fld dbl frndint } } __inline long int lfastrint(double x) { long int i; _asm { fld x fistp i }; return i; } __inline long int lfastrintf(float x) { long int i; _asm { fld x fistp i }; return i; } #elif defined(_M_X64) /* Visual Studio x86_64 */ /* x86_64 machines will do best with a simple assignment. */ #include __inline long int lrint(double x) { return (long int)_mm_cvtsd_si64x( _mm_loadu_pd ((const double*)&x) ); } __inline long int lrintf(float x) { return _mm_cvt_ss2si( _mm_load_ss((const float*)&x) ); } __inline long int lfastrint(double x) { return (long int) (x); } __inline long int lfastrintf(float x) { return (long int) (x); } #elif defined(__MWERKS__) && defined(macintosh) /* This MacOS 9 solution was provided by Stephane Letz */ long int __inline__ lfastrint(register double x) { long int res[2]; asm { fctiw x, x stfd x, res } return res[1]; } long int __inline__ lfastrintf(register float x) { long int res[2]; asm { fctiw x, x stfd x, res } return res[1]; } #elif defined(__MACH__) && defined(__APPLE__) && (defined(__ppc__) || defined(__powerpc__)) /* For Apple Mac OS/X - do recent versions still need this? */ static __inline__ long int lfastrint(register double x) { int res[2]; __asm__ __volatile__ ( "fctiw %1, %1\n\t" "stfd %1, %0" : "=m" (res) /* Output */ : "f" (x) /* Input */ : "memory" ); return res[1]; } static __inline__ long int lfastrintf(register float x) { int res[2]; __asm__ __volatile__ ( "fctiw %1, %1\n\t" "stfd %1, %0" : "=m" (res) /* Output */ : "f" (x) /* Input */ : "memory" ); return res[1]; } #else /* There is nothing else to do, but use a simple casting operation, instead of a real rint() type function. Since we are only trying to use rint() to speed up conversions, the accuracy issues related to changing the rounding scheme are of little concern to us. */ #if !defined(__sgi) && !defined(__sunos) && !defined(__solaris) && !defined(__sun) #warning "No usable lrint() and lrintf() functions available." #warning "Replacing these functions with a simple C cast." #endif static __inline__ long int lrint(double x) { return (long int) (x); } static __inline__ long int lrintf(float x) { return (long int) (x); } static __inline__ long int lfastrint(double x) { return (long int) (x); } static __inline__ long int lfastrintf(float x) { return (long int) (x); } #endif #if defined(__cplusplus) } #endif #endif /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/spandsp/dtmf.h0000664000175000017500000002147711422612264016154 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * dtmf.h - DTMF tone generation and detection. * * Written by Steve Underwood * * Copyright (C) 2001, 2005 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #if !defined(_SPANDSP_DTMF_H_) #define _SPANDSP_DTMF_H_ /*! \page dtmf_rx_page DTMF receiver \section dtmf_rx_page_sec_1 What does it do? The DTMF receiver detects the standard DTMF digits. It is compliant with ITU-T Q.23, ITU-T Q.24, and the local DTMF specifications of most administrations. Its passes the test suites. It also scores *very* well on the standard talk-off tests. The current design uses floating point extensively. It is not tolerant of DC. It is expected that a DC restore stage will be placed before the DTMF detector. Unless the dial tone filter is switched on, the detector has poor tolerance of dial tone. Whether this matter depends on your application. If you are using the detector in an IVR application you will need proper echo cancellation to get good performance in the presence of speech prompts, so dial tone will not exist. If you do need good dial tone tolerance, a dial tone filter can be enabled in the detector. The DTMF receiver's design assumes the channel is free of any DC component. \section dtmf_rx_page_sec_2 How does it work? Like most other DSP based DTMF detector's, this one uses the Goertzel algorithm to look for the DTMF tones. What makes each detector design different is just how that algorithm is used. Basic DTMF specs: - Minimum tone on = 40ms - Minimum tone off = 50ms - Maximum digit rate = 10 per second - Normal twist <= 8dB accepted - Reverse twist <= 4dB accepted - S/N >= 15dB will detect OK - Attenuation <= 26dB will detect OK - Frequency tolerance +- 1.5% will detect, +-3.5% will reject TODO: */ /*! \page dtmf_tx_page DTMF tone generation \section dtmf_tx_page_sec_1 What does it do? The DTMF tone generation module provides for the generation of the repertoire of 16 DTMF dual tones. \section dtmf_tx_page_sec_2 How does it work? */ #define MAX_DTMF_DIGITS 128 typedef void (*digits_rx_callback_t)(void *user_data, const char *digits, int len); /*! DTMF generator state descriptor. This defines the state of a single working instance of a DTMF generator. */ typedef struct dtmf_tx_state_s dtmf_tx_state_t; /*! DTMF digit detector descriptor. */ typedef struct dtmf_rx_state_s dtmf_rx_state_t; #if defined(__cplusplus) extern "C" { #endif /*! \brief Generate a buffer of DTMF tones. \param s The DTMF generator context. \param amp The buffer for the generated signal. \param max_samples The required number of generated samples. \return The number of samples actually generated. This may be less than max_samples if the input buffer empties. */ SPAN_DECLARE(int) dtmf_tx(dtmf_tx_state_t *s, int16_t amp[], int max_samples); /*! \brief Put a string of digits in a DTMF generator's input buffer. \param s The DTMF generator context. \param digits The string of digits to be added. \param len The length of the string of digits. If negative, the string is assumed to be a NULL terminated string. \return The number of digits actually added. This may be less than the length of the digit string, if the buffer fills up. */ SPAN_DECLARE(int) dtmf_tx_put(dtmf_tx_state_t *s, const char *digits, int len); /*! \brief Change the transmit level for a DTMF tone generator context. \param s The DTMF generator context. \param level The level of the low tone, in dBm0. \param twist The twist, in dB. */ SPAN_DECLARE(void) dtmf_tx_set_level(dtmf_tx_state_t *s, int level, int twist); /*! \brief Change the transmit on and off time for a DTMF tone generator context. \param s The DTMF generator context. \param on-time The on time, in ms. \param off_time The off time, in ms. */ SPAN_DECLARE(void) dtmf_tx_set_timing(dtmf_tx_state_t *s, int on_time, int off_time); /*! \brief Initialise a DTMF tone generator context. \param s The DTMF generator context. \return A pointer to the DTMF generator context. */ SPAN_DECLARE(dtmf_tx_state_t *) dtmf_tx_init(dtmf_tx_state_t *s); /*! \brief Release a DTMF tone generator context. \param s The DTMF tone generator context. \return 0 for OK, else -1. */ SPAN_DECLARE(int) dtmf_tx_release(dtmf_tx_state_t *s); /*! \brief Free a DTMF tone generator context. \param s The DTMF tone generator context. \return 0 for OK, else -1. */ SPAN_DECLARE(int) dtmf_tx_free(dtmf_tx_state_t *s); /*! Set a optional realtime callback for a DTMF receiver context. This function is called immediately a confirmed state change occurs in the received DTMF. It is called with the ASCII value for a DTMF tone pair, or zero to indicate no tone is being received. \brief Set a realtime callback for a DTMF receiver context. \param s The DTMF receiver context. \param callback Callback routine used to report the start and end of digits. \param user_data An opaque pointer which is associated with the context, and supplied in callbacks. */ SPAN_DECLARE(void) dtmf_rx_set_realtime_callback(dtmf_rx_state_t *s, tone_report_func_t callback, void *user_data); /*! \brief Adjust a DTMF receiver context. \param s The DTMF receiver context. \param filter_dialtone TRUE to enable filtering of dialtone, FALSE to disable, < 0 to leave unchanged. \param twist Acceptable twist, in dB. < 0 to leave unchanged. \param reverse_twist Acceptable reverse twist, in dB. < 0 to leave unchanged. \param threshold The minimum acceptable tone level for detection, in dBm0. <= -99 to leave unchanged. */ SPAN_DECLARE(void) dtmf_rx_parms(dtmf_rx_state_t *s, int filter_dialtone, int twist, int reverse_twist, int threshold); /*! Process a block of received DTMF audio samples. \brief Process a block of received DTMF audio samples. \param s The DTMF receiver context. \param amp The audio sample buffer. \param samples The number of samples in the buffer. \return The number of samples unprocessed. */ SPAN_DECLARE(int) dtmf_rx(dtmf_rx_state_t *s, const int16_t amp[], int samples); /*! Get the status of DTMF detection during processing of the last audio chunk. \brief Get the status of DTMF detection during processing of the last audio chunk. \param s The DTMF receiver context. \return The current digit status. Either 'x' for a "maybe" condition, or the digit being detected. */ SPAN_DECLARE(int) dtmf_rx_status(dtmf_rx_state_t *s); /*! \brief Get a string of digits from a DTMF receiver's output buffer. \param s The DTMF receiver context. \param digits The buffer for the received digits. \param max The maximum number of digits to be returned, \return The number of digits actually returned. */ SPAN_DECLARE(size_t) dtmf_rx_get(dtmf_rx_state_t *s, char *digits, int max); /*! \brief Initialise a DTMF receiver context. \param s The DTMF receiver context. \param callback An optional callback routine, used to report received digits. If no callback routine is set, digits may be collected, using the dtmf_rx_get() function. \param user_data An opaque pointer which is associated with the context, and supplied in callbacks. \return A pointer to the DTMF receiver context. */ SPAN_DECLARE(dtmf_rx_state_t *) dtmf_rx_init(dtmf_rx_state_t *s, digits_rx_callback_t callback, void *user_data); /*! \brief Release a DTMF receiver context. \param s The DTMF receiver context. \return 0 for OK, else -1. */ SPAN_DECLARE(int) dtmf_rx_release(dtmf_rx_state_t *s); /*! \brief Free a DTMF receiver context. \param s The DTMF receiver context. \return 0 for OK, else -1. */ SPAN_DECLARE(int) dtmf_rx_free(dtmf_rx_state_t *s); #if defined(__cplusplus) } #endif #endif /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/spandsp/t30_api.h0000664000175000017500000006252511422612264016460 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * t30_api.h - definitions for T.30 fax processing * * Written by Steve Underwood * * Copyright (C) 2003 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \file */ #if !defined(_SPANDSP_T30_API_H_) #define _SPANDSP_T30_API_H_ #if defined(__cplusplus) extern "C" { #endif /*! Set the transmitted NSF frame to be associated with a T.30 context. \brief Set the transmitted NSF frame to be associated with a T.30 context. \param s The T.30 context. \param nsf A pointer to the frame. \param len The length of the frame. \return 0 for OK, else -1. */ SPAN_DECLARE(int) t30_set_tx_nsf(t30_state_t *s, const uint8_t *nsf, int len); /*! Get an NSF frame to be associated with a T.30 context. \brief Set an NSF frame to be associated with a T.30 context. \param s The T.30 context. \param nsf A pointer to the frame. \return the length of the NSF message. */ SPAN_DECLARE(size_t) t30_get_tx_nsf(t30_state_t *s, const uint8_t *nsf[]); /*! Get an NSF frame to be associated with a T.30 context. \brief Set an NSF frame to be associated with a T.30 context. \param s The T.30 context. \param nsf A pointer to the frame. \return the length of the NSF message. */ SPAN_DECLARE(size_t) t30_get_rx_nsf(t30_state_t *s, const uint8_t *nsf[]); /*! Set the transmitted NSC frame to be associated with a T.30 context. \brief Set the transmitted NSC frame to be associated with a T.30 context. \param s The T.30 context. \param nsc A pointer to the frame. \param len The length of the frame. \return 0 for OK, else -1. */ SPAN_DECLARE(int) t30_set_tx_nsc(t30_state_t *s, const uint8_t *nsc, int len); /*! Get an NSC frame to be associated with a T.30 context. \brief Set an NSC frame to be associated with a T.30 context. \param s The T.30 context. \param nsc A pointer to the frame. \return the length of the NSC message. */ SPAN_DECLARE(size_t) t30_get_tx_nsc(t30_state_t *s, const uint8_t *nsc[]); /*! Get an NSC frame to be associated with a T.30 context. \brief Set an NSC frame to be associated with a T.30 context. \param s The T.30 context. \param nsc A pointer to the frame. \return the length of the NSC message. */ SPAN_DECLARE(size_t) t30_get_rx_nsc(t30_state_t *s, const uint8_t *nsc[]); /*! Set the transmitted NSS frame to be associated with a T.30 context. \brief Set the transmitted NSS frame to be associated with a T.30 context. \param s The T.30 context. \param nss A pointer to the frame. \param len The length of the frame. \return 0 for OK, else -1. */ SPAN_DECLARE(int) t30_set_tx_nss(t30_state_t *s, const uint8_t *nss, int len); /*! Get an NSS frame to be associated with a T.30 context. \brief Set an NSS frame to be associated with a T.30 context. \param s The T.30 context. \param nss A pointer to the frame. \return the length of the NSS message. */ SPAN_DECLARE(size_t) t30_get_tx_nss(t30_state_t *s, const uint8_t *nss[]); /*! Get an NSS frame to be associated with a T.30 context. \brief Set an NSS frame to be associated with a T.30 context. \param s The T.30 context. \param nss A pointer to the frame. \return the length of the NSS message. */ SPAN_DECLARE(size_t) t30_get_rx_nss(t30_state_t *s, const uint8_t *nss[]); /*! Set the transmitted identifier associated with a T.30 context. \brief Set the transmitted identifier associated with a T.30 context. \param s The T.30 context. \param id A pointer to the identifier. \return 0 for OK, else -1. */ SPAN_DECLARE(int) t30_set_tx_ident(t30_state_t *s, const char *id); /*! Get the transmitted identifier associated with a T.30 context. \brief Set the transmitted identifier associated with a T.30 context. \param s The T.30 context. \return A pointer to the identifier. */ SPAN_DECLARE(const char *) t30_get_tx_ident(t30_state_t *s); /*! Get the transmitted identifier associated with a T.30 context. \brief Set the transmitted identifier associated with a T.30 context. \param s The T.30 context. \return A pointer to the identifier. */ SPAN_DECLARE(const char *) t30_get_rx_ident(t30_state_t *s); /*! Set the transmitted sub-address associated with a T.30 context. \brief Set the transmitted sub-address associated with a T.30 context. \param s The T.30 context. \param sub_address A pointer to the sub-address. \return 0 for OK, else -1. */ SPAN_DECLARE(int) t30_set_tx_sub_address(t30_state_t *s, const char *sub_address); /*! Get the received sub-address associated with a T.30 context. \brief Get the received sub-address associated with a T.30 context. \param s The T.30 context. \return A pointer to the sub-address. */ SPAN_DECLARE(const char *) t30_get_tx_sub_address(t30_state_t *s); /*! Get the received sub-address associated with a T.30 context. \brief Get the received sub-address associated with a T.30 context. \param s The T.30 context. \return A pointer to the sub-address. */ SPAN_DECLARE(const char *) t30_get_rx_sub_address(t30_state_t *s); /*! Set the transmitted selective polling address (i.e. the one we will send to the far end) associated with a T.30 context. \brief Set the transmitted selective polling address associated with a T.30 context. \param s The T.30 context. \param selective_polling_address A pointer to the selective polling address. \return 0 for OK, else -1. */ SPAN_DECLARE(int) t30_set_tx_selective_polling_address(t30_state_t *s, const char *selective_polling_address); /*! Get the received selective polling address (i.e. the one we will send to the far end) associated with a T.30 context. \brief Get the received selective polling address associated with a T.30 context. \param s The T.30 context. \return A pointer to the selective polling address. */ SPAN_DECLARE(const char *) t30_get_tx_selective_polling_address(t30_state_t *s); /*! Get the received selective polling address (i.e. the one we will send to the far end) associated with a T.30 context. \brief Get the received selective polling address associated with a T.30 context. \param s The T.30 context. \return A pointer to the selective polling address. */ SPAN_DECLARE(const char *) t30_get_rx_selective_polling_address(t30_state_t *s); /*! Set the transmitted polled sub-address (i.e. the one we will send to the far end) associated with a T.30 context. \brief Set the transmitted polled sub-address associated with a T.30 context. \param s The T.30 context. \param polled_sub_address A pointer to the polled sub-address. \return 0 for OK, else -1. */ SPAN_DECLARE(int) t30_set_tx_polled_sub_address(t30_state_t *s, const char *polled_sub_address); /*! Get the received polled sub-address (i.e. the one we will send to the far end) associated with a T.30 context. \brief Get the received polled sub-address associated with a T.30 context. \param s The T.30 context. \return A pointer to the polled sub-address. */ SPAN_DECLARE(const char *) t30_get_tx_polled_sub_address(t30_state_t *s); /*! Get the received polled sub-address (i.e. the one we will send to the far end) associated with a T.30 context. \brief Get the received polled sub-address associated with a T.30 context. \param s The T.30 context. \return A pointer to the polled sub-address. */ SPAN_DECLARE(const char *) t30_get_rx_polled_sub_address(t30_state_t *s); /*! Set the transmitted sender ident (i.e. the one we will send to the far end) associated with a T.30 context. \brief Set the transmitted sender ident associated with a T.30 context. \param s The T.30 context. \param sender_ident A pointer to the sender ident. \return 0 for OK, else -1. */ SPAN_DECLARE(int) t30_set_tx_sender_ident(t30_state_t *s, const char *sender_ident); /*! Get the received sender ident (i.e. the one we will send to the far end) associated with a T.30 context. \brief Get the received sender ident associated with a T.30 context. \param s The T.30 context. \return A pointer to the sender ident. */ SPAN_DECLARE(const char *) t30_get_tx_sender_ident(t30_state_t *s); /*! Get the received sender ident (i.e. the one we will send to the far end) associated with a T.30 context. \brief Get the received sender ident associated with a T.30 context. \param s The T.30 context. \return A pointer to the sender ident. */ SPAN_DECLARE(const char *) t30_get_rx_sender_ident(t30_state_t *s); /*! Set the transmitted password (i.e. the one we will send to the far end) associated with a T.30 context. \brief Set the transmitted password associated with a T.30 context. \param s The T.30 context. \param password A pointer to the password. \return 0 for OK, else -1. */ SPAN_DECLARE(int) t30_set_tx_password(t30_state_t *s, const char *password); /*! Get the received password (i.e. the one we will send to the far end) associated with a T.30 context. \brief Get the received password associated with a T.30 context. \param s The T.30 context. \return A pointer to the password. */ SPAN_DECLARE(const char *) t30_get_tx_password(t30_state_t *s); /*! Get the received password (i.e. the one we will send to the far end) associated with a T.30 context. \brief Get the received password associated with a T.30 context. \param s The T.30 context. \return A pointer to the password. */ SPAN_DECLARE(const char *) t30_get_rx_password(t30_state_t *s); /*! Set the transmitted TSA (i.e. the one we will send to the far end) associated with a T.30 context. \brief Set the transmitted TSA associated with a T.30 context. \param s The T.30 context. \param type The type of address. \param address A pointer to the address. \param len The length of the address. \return 0 for OK, else -1. */ SPAN_DECLARE(int) t30_set_tx_tsa(t30_state_t *s, int type, const char *address, int len); /*! Get the transmitted TSA (i.e. the one we will send to the far end) associated with a T.30 context. \brief Get the received TSA associated with a T.30 context. \param s The T.30 context. \param type The type of address. \param address A pointer to the address. \return The length of the address. */ SPAN_DECLARE(size_t) t30_get_tx_tsa(t30_state_t *s, int *type, const char *address[]); /*! Get the received TSA associated with a T.30 context. \brief Get the received TSA associated with a T.30 context. \param s The T.30 context. \param type The type of address. \param address A pointer to the address. \return The length of the address. */ SPAN_DECLARE(size_t) t30_get_rx_tsa(t30_state_t *s, int *type, const char *address[]); /*! Set the transmitted IRA (i.e. the one we will send to the far end) associated with a T.30 context. \brief Set the transmitted IRA associated with a T.30 context. \param s The T.30 context. \param type The type of address. \param address A pointer to the address. \param len The length of the address. \return 0 for OK, else -1. */ SPAN_DECLARE(int) t30_set_tx_ira(t30_state_t *s, int type, const char *address, int len); /*! Get the transmitted IRA (i.e. the one we will send to the far end) associated with a T.30 context. \brief Get the received IRA associated with a T.30 context. \param s The T.30 context. \param type The type of address. \param address A pointer to the address. \return The length of the address. */ SPAN_DECLARE(size_t) t30_get_tx_ira(t30_state_t *s, int *type, const char *address[]); /*! Get the received IRA associated with a T.30 context. \brief Get the received IRA associated with a T.30 context. \param s The T.30 context. \param type The type of address. \param address A pointer to the address. \return The length of the address. */ SPAN_DECLARE(size_t) t30_get_rx_ira(t30_state_t *s, int *type, const char *address[]); /*! Set the transmitted CIA (i.e. the one we will send to the far end) associated with a T.30 context. \brief Set the transmitted CIA associated with a T.30 context. \param s The T.30 context. \param type The type of address. \param address A pointer to the address. \param len The length of the address. \return 0 for OK, else -1. */ SPAN_DECLARE(int) t30_set_tx_cia(t30_state_t *s, int type, const char *address, int len); /*! Get the transmitted CIA (i.e. the one we will send to the far end) associated with a T.30 context. \brief Get the received CIA associated with a T.30 context. \param s The T.30 context. \param type The type of address. \param address A pointer to the address. \return The length of the address. */ SPAN_DECLARE(size_t) t30_get_tx_cia(t30_state_t *s, int *type, const char *address[]); /*! Get the received CIA associated with a T.30 context. \brief Get the received CIA associated with a T.30 context. \param s The T.30 context. \param type The type of address. \param address A pointer to the address. \return 0 for OK, else -1. */ SPAN_DECLARE(size_t) t30_get_rx_cia(t30_state_t *s, int *type, const char *address[]); /*! Set the transmitted ISP (i.e. the one we will send to the far end) associated with a T.30 context. \brief Set the transmitted ISP associated with a T.30 context. \param s The T.30 context. \param type The type of address. \param address A pointer to the address. \param len The length of the address. \return 0 for OK, else -1. */ SPAN_DECLARE(int) t30_set_tx_isp(t30_state_t *s, int type, const char *address, int len); /*! Get the transmitted ISP (i.e. the one we will send to the far end) associated with a T.30 context. \brief Get the received ISP associated with a T.30 context. \param s The T.30 context. \param type The type of address. \param address A pointer to the address. \return 0 for OK, else -1. */ SPAN_DECLARE(size_t) t30_get_tx_isp(t30_state_t *s, int *type, const char *address[]); /*! Get the received ISP associated with a T.30 context. \brief Get the received ISP associated with a T.30 context. \param s The T.30 context. \param type The type of address. \param address A pointer to the address. \return 0 for OK, else -1. */ SPAN_DECLARE(size_t) t30_get_rx_isp(t30_state_t *s, int *type, const char *address[]); /*! Set the transmitted CSA (i.e. the one we will send to the far end) associated with a T.30 context. \brief Set the transmitted CSA associated with a T.30 context. \param s The T.30 context. \param type The type of address. \param address A pointer to the address. \param len The length of the address. \return 0 for OK, else -1. */ SPAN_DECLARE(int) t30_set_tx_csa(t30_state_t *s, int type, const char *address, int len); /*! Get the transmitted CSA (i.e. the one we will send to the far end) associated with a T.30 context. \brief Get the received CSA associated with a T.30 context. \param s The T.30 context. \param type The type of address. \param address A pointer to the address. \return The length of the address. */ SPAN_DECLARE(size_t) t30_get_tx_csa(t30_state_t *s, int *type, const char *address[]); /*! Get the received CSA associated with a T.30 context. \brief Get the received CSA associated with a T.30 context. \param s The T.30 context. \param type The type of address. \param address A pointer to the address. \return 0 for OK, else -1. */ SPAN_DECLARE(size_t) t30_get_rx_csa(t30_state_t *s, int *type, const char *address[]); /*! Set page header extends or overlays the image mode. \brief Set page header overlay mode. \param s The T.30 context. \param header_overlays_image TRUE for overlay, or FALSE for extend the page. */ SPAN_DECLARE(int) t30_set_tx_page_header_overlays_image(t30_state_t *s, int header_overlays_image); /*! Set the transmitted header information associated with a T.30 context. \brief Set the transmitted header information associated with a T.30 context. \param s The T.30 context. \param info A pointer to the information string. \return 0 for OK, else -1. */ SPAN_DECLARE(int) t30_set_tx_page_header_info(t30_state_t *s, const char *info); /*! Set the transmitted header timestamp timezone associated with a T.30 context. \brief Set the transmitted header timestamp timezone associated with a T.30 context. \param s The T.30 context. \param info A pointer to the POSIZ timezone string. \return 0 for OK, else -1. */ SPAN_DECLARE(int) t30_set_tx_page_header_tz(t30_state_t *s, const char *tzstring); /*! Get the header information associated with a T.30 context. \brief Get the header information associated with a T.30 context. \param s The T.30 context. \param info A pointer to a buffer for the header information. The buffer should be at least 51 bytes long. \return the length of the string. */ SPAN_DECLARE(size_t) t30_get_tx_page_header_info(t30_state_t *s, char *info); /*! Get the country of origin of the remote FAX machine associated with a T.30 context. \brief Get the country of origin of the remote FAX machine associated with a T.30 context. \param s The T.30 context. \return a pointer to the country name, or NULL if the country is not known. */ SPAN_DECLARE(const char *) t30_get_rx_country(t30_state_t *s); /*! Get the name of the vendor of the remote FAX machine associated with a T.30 context. \brief Get the name of the vendor of the remote FAX machine associated with a T.30 context. \param s The T.30 context. \return a pointer to the vendor name, or NULL if the vendor is not known. */ SPAN_DECLARE(const char *) t30_get_rx_vendor(t30_state_t *s); /*! Get the name of the model of the remote FAX machine associated with a T.30 context. \brief Get the name of the model of the remote FAX machine associated with a T.30 context. \param s The T.30 context. \return a pointer to the model name, or NULL if the model is not known. */ SPAN_DECLARE(const char *) t30_get_rx_model(t30_state_t *s); /*! Specify the file name of the next TIFF file to be received by a T.30 context. \brief Set next receive file name. \param s The T.30 context. \param file The file name \param stop_page The maximum page to receive. -1 for no restriction. */ SPAN_DECLARE(void) t30_set_rx_file(t30_state_t *s, const char *file, int stop_page); /*! Specify the file name of the next TIFF file to be transmitted by a T.30 context. \brief Set next transmit file name. \param s The T.30 context. \param file The file name \param start_page The first page to send. -1 for no restriction. \param stop_page The last page to send. -1 for no restriction. */ SPAN_DECLARE(void) t30_set_tx_file(t30_state_t *s, const char *file, int start_page, int stop_page); /*! Set Internet aware FAX (IAF) mode. \brief Set Internet aware FAX (IAF) mode. \param s The T.30 context. \param iaf TRUE for IAF, or FALSE for non-IAF. */ SPAN_DECLARE(void) t30_set_iaf_mode(t30_state_t *s, int iaf); /*! Specify if error correction mode (ECM) is allowed by a T.30 context. \brief Select ECM capability. \param s The T.30 context. \param enabled TRUE for ECM capable, FALSE for not ECM capable. \return 0 if OK, else -1. */ SPAN_DECLARE(int) t30_set_ecm_capability(t30_state_t *s, int enabled); /*! Specify the output encoding for TIFF files created during FAX reception. \brief Specify the output encoding for TIFF files created during FAX reception. \param s The T.30 context. \param encoding The coding required. The options are T4_COMPRESSION_ITU_T4_1D, T4_COMPRESSION_ITU_T4_2D, T4_COMPRESSION_ITU_T6. T6 is usually the densest option, but support for it is broken in a number of software packages. \return 0 if OK, else -1. */ SPAN_DECLARE(int) t30_set_rx_encoding(t30_state_t *s, int encoding); /*! Specify the minimum scan line time supported by a T.30 context. \brief Specify minimum scan line time. \param s The T.30 context. \param min_time The minimum permitted scan line time, in milliseconds. \return 0 if OK, else -1. */ SPAN_DECLARE(int) t30_set_minimum_scan_line_time(t30_state_t *s, int min_time); /*! Specify which modem types are supported by a T.30 context. \brief Specify supported modems. \param s The T.30 context. \param supported_modems Bit field list of the supported modems. \return 0 if OK, else -1. */ SPAN_DECLARE(int) t30_set_supported_modems(t30_state_t *s, int supported_modems); /*! Specify which compression types are supported by a T.30 context. \brief Specify supported compression types. \param s The T.30 context. \param supported_compressions Bit field list of the supported compression types. \return 0 if OK, else -1. */ SPAN_DECLARE(int) t30_set_supported_compressions(t30_state_t *s, int supported_compressions); /*! Specify which resolutions are supported by a T.30 context. \brief Specify supported resolutions. \param s The T.30 context. \param supported_resolutions Bit field list of the supported resolutions. \return 0 if OK, else -1. */ SPAN_DECLARE(int) t30_set_supported_resolutions(t30_state_t *s, int supported_resolutions); /*! Specify which images sizes are supported by a T.30 context. \brief Specify supported image sizes. \param s The T.30 context. \param supported_image_sizes Bit field list of the supported widths and lengths. \return 0 if OK, else -1. */ SPAN_DECLARE(int) t30_set_supported_image_sizes(t30_state_t *s, int supported_image_sizes); /*! Specify which special T.30 features are supported by a T.30 context. \brief Specify supported T.30 features. \param s The T.30 context. \param supported_t30_features Bit field list of the supported features. \return 0 if OK, else -1. */ SPAN_DECLARE(int) t30_set_supported_t30_features(t30_state_t *s, int supported_t30_features); /*! Set T.30 status. This may be used to adjust the status from within the phase B and phase D callbacks. \brief Set T.30 status. \param s The T.30 context. \param status The new status. */ SPAN_DECLARE(void) t30_set_status(t30_state_t *s, int status); /*! Specify a period of responding with receiver not ready. \brief Specify a period of responding with receiver not ready. \param s The T.30 context. \param count The number of times to report receiver not ready. \return 0 if OK, else -1. */ SPAN_DECLARE(int) t30_set_receiver_not_ready(t30_state_t *s, int count); /*! Set a callback function for T.30 phase B handling. \brief Set a callback function for T.30 phase B handling. \param s The T.30 context. \param handler The callback function. \param user_data An opaque pointer passed to the callback function. */ SPAN_DECLARE(void) t30_set_phase_b_handler(t30_state_t *s, t30_phase_b_handler_t *handler, void *user_data); /*! Set a callback function for T.30 phase D handling. \brief Set a callback function for T.30 phase D handling. \param s The T.30 context. \param handler The callback function. \param user_data An opaque pointer passed to the callback function. */ SPAN_DECLARE(void) t30_set_phase_d_handler(t30_state_t *s, t30_phase_d_handler_t *handler, void *user_data); /*! Set a callback function for T.30 phase E handling. \brief Set a callback function for T.30 phase E handling. \param s The T.30 context. \param handler The callback function. \param user_data An opaque pointer passed to the callback function. */ SPAN_DECLARE(void) t30_set_phase_e_handler(t30_state_t *s, t30_phase_e_handler_t *handler, void *user_data); /*! Set a callback function for T.30 end of document handling. \brief Set a callback function for T.30 end of document handling. \param s The T.30 context. \param handler The callback function. \param user_data An opaque pointer passed to the callback function. */ SPAN_DECLARE(void) t30_set_document_handler(t30_state_t *s, t30_document_handler_t *handler, void *user_data); /*! Set a callback function for T.30 frame exchange monitoring. This is called from the heart of the signal processing, so don't take too long in the handler routine. \brief Set a callback function for T.30 frame exchange monitoring. \param s The T.30 context. \param handler The callback function. \param user_data An opaque pointer passed to the callback function. */ SPAN_DECLARE(void) t30_set_real_time_frame_handler(t30_state_t *s, t30_real_time_frame_handler_t *handler, void *user_data); /*! Get a pointer to the logging context associated with a T.30 context. \brief Get a pointer to the logging context associated with a T.30 context. \param s The T.30 context. \return A pointer to the logging context, or NULL. */ SPAN_DECLARE(logging_state_t *) t30_get_logging_state(t30_state_t *s); #if defined(__cplusplus) } #endif #endif /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/spandsp/v29rx.h0000664000175000017500000003030611422612265016204 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * v29rx.h - ITU V.29 modem receive part * * Written by Steve Underwood * * Copyright (C) 2003 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \file */ #if !defined(_SPANDSP_V29RX_H_) #define _SPANDSP_V29RX_H_ /*! \page v29rx_page The V.29 receiver \section v29rx_page_sec_1 What does it do? The V.29 receiver implements the receive side of a V.29 modem. This can operate at data rates of 9600, 7200 and 4800 bits/s. The audio input is a stream of 16 bit samples, at 8000 samples/second. The transmit and receive side of V.29 modems operate independantly. V.29 is mostly used for FAX transmission, where it provides the standard 9600 and 7200 bits/s rates (the 4800 bits/s mode is not used for FAX). \section v29rx_page_sec_2 How does it work? V.29 operates at 2400 baud for all three bit rates. It uses 16-QAM modulation for 9600bps, 8-QAM for 7200bps, and 4-PSK for 4800bps. A training sequence is specified at the start of transmission, which makes the design of a V.29 receiver relatively straightforward. The first stage of the training sequence consists of 128 symbols, alternating between two constellation positions. The receiver monitors the signal power, to sense the possible presence of a valid carrier. When the alternating signal begins, the power rising above a minimum threshold (-26dBm0) causes the main receiver computation to begin. The initial measured power is used to quickly set the gain of the receiver. After this initial settling, the front end gain is locked, and the adaptive equalizer tracks any subsequent signal level variation. The signal is oversampled to 24000 samples/second (i.e. signal, zero, zero, signal, zero, zero, ...) and fed to a complex root raised cosine pulse shaping filter. This filter has been modified from the conventional root raised cosine filter, by shifting it up the band, to be centred at the nominal carrier frequency. This filter interpolates the samples, pulse shapes, and performs a fractional sample delay at the same time. 48 sets of filter coefficients are used to achieve a set of finely spaces fractional sample delays, between zero and one sample. By choosing every fifth sample, and the appropriate set of filter coefficients, the properly tuned symbol tracker can select data samples at 4800 samples/second from points within 1.125 degrees of the centre and mid-points of each symbol. The output of the filter is multiplied by a complex carrier, generated by a DDS. The result is a baseband signal, requiring no further filtering, apart from an adaptive equalizer. The baseband signal is fed to a T/2 adaptive equalizer. A band edge component maximisation algorithm is used to tune the sampling, so the samples fed to the equalizer are close to the mid point and edges of each symbol. Initially the algorithm is very lightly damped, to ensure the symbol alignment pulls in quickly. Because the sampling rate will not be precisely the same as the transmitter's (the spec. says the symbol timing should be within 0.01%), the receiver constantly evaluates and corrects this sampling throughout its operation. During the symbol timing maintainence phase, the algorithm uses a heavier damping. The carrier is specified as 1700Hz +-1Hz at the transmitter, and 1700 +-7Hz at the receiver. The receive carrier would only be this inaccurate if the link includes FDM sections. These are being phased out, but the design must still allow for the worst case. Using an initial 1700Hz signal for demodulation gives a worst case rotation rate for the constellation of about one degree per symbol. Once the symbol timing synchronisation algorithm has been given time to lock to the symbol timing of the initial alternating pattern, the phase of the demodulated signal is recorded on two successive symbols - once for each of the constellation positions. The receiver then tracks the symbol alternations, until a large phase jump occurs. This signifies the start of the next phase of the training sequence. At this point the total phase shift between the original recorded symbol phase, and the symbol phase just before the phase jump occurred is used to provide a coarse estimation of the rotation rate of the constellation, and it current absolute angle of rotation. These are used to update the current carrier phase and phase update rate in the carrier DDS. The working data already in the pulse shaping filter and equalizer buffers is given a similar step rotation to pull it all into line. From this point on, a heavily damped integrate and dump approach, based on the angular difference between each received constellation position and its expected position, is sufficient to track the carrier, and maintain phase alignment. A fast rough approximator for the arc-tangent function is adequate for the estimation of the angular error. The next phase of the training sequence is a scrambled sequence of two particular symbols. We train the T/2 adaptive equalizer using this sequence. The scrambling makes the signal sufficiently diverse to ensure the equalizer converges to the proper generalised solution. At the end of this sequence, the equalizer should be sufficiently well adapted that is can correctly resolve the full QAM constellation. However, the equalizer continues to adapt throughout operation of the modem, fine tuning on the more complex data patterns of the full QAM constellation. In the last phase of the training sequence, the modem enters normal data operation, with a short defined period of all ones as data. As in most high speed modems, data in a V.29 modem passes through a scrambler, to whiten the spectrum of the signal. The transmitter should initialise its data scrambler, and pass the ones through it. At the end of the ones, real data begins to pass through the scrambler, and the transmit modem is in normal operation. The receiver tests that ones are really received, in order to verify the modem trained correctly. If all is well, the data following the ones is fed to the application, and the receive modem is up and running. Unfortunately, some transmit side of some real V.29 modems fail to initialise their scrambler before sending the ones. This means the first 23 received bits (the length of the scrambler register) cannot be trusted for the test. The receive modem, therefore, only tests that bits starting at bit 24 are really ones. */ typedef void (*qam_report_handler_t)(void *user_data, const complexf_t *constel, const complexf_t *target, int symbol); /*! V.29 modem receive side descriptor. This defines the working state for a single instance of a V.29 modem receiver. */ typedef struct v29_rx_state_s v29_rx_state_t; #if defined(__cplusplus) extern "C" { #endif /*! Initialise a V.29 modem receive context. \brief Initialise a V.29 modem receive context. \param s The modem context. \param bit_rate The bit rate of the modem. Valid values are 4800, 7200 and 9600. \param put_bit The callback routine used to put the received data. \param user_data An opaque pointer passed to the put_bit routine. \return A pointer to the modem context, or NULL if there was a problem. */ SPAN_DECLARE(v29_rx_state_t *) v29_rx_init(v29_rx_state_t *s, int bit_rate, put_bit_func_t put_bit, void *user_data); /*! Reinitialise an existing V.29 modem receive context. \brief Reinitialise an existing V.29 modem receive context. \param s The modem context. \param bit_rate The bit rate of the modem. Valid values are 4800, 7200 and 9600. \param old_train TRUE if a previous trained values are to be reused. \return 0 for OK, -1 for bad parameter */ SPAN_DECLARE(int) v29_rx_restart(v29_rx_state_t *s, int bit_rate, int old_train); /*! Release a V.29 modem receive context. \brief Release a V.29 modem receive context. \param s The modem context. \return 0 for OK */ SPAN_DECLARE(int) v29_rx_release(v29_rx_state_t *s); /*! Free a V.29 modem receive context. \brief Free a V.29 modem receive context. \param s The modem context. \return 0 for OK */ SPAN_DECLARE(int) v29_rx_free(v29_rx_state_t *s); /*! Get the logging context associated with a V.29 modem receive context. \brief Get the logging context associated with a V.29 modem receive context. \param s The modem context. \return A pointer to the logging context */ SPAN_DECLARE(logging_state_t *) v29_rx_get_logging_state(v29_rx_state_t *s); /*! Change the put_bit function associated with a V.29 modem receive context. \brief Change the put_bit function associated with a V.29 modem receive context. \param s The modem context. \param put_bit The callback routine used to handle received bits. \param user_data An opaque pointer. */ SPAN_DECLARE(void) v29_rx_set_put_bit(v29_rx_state_t *s, put_bit_func_t put_bit, void *user_data); /*! Change the modem status report function associated with a V.29 modem receive context. \brief Change the modem status report function associated with a V.29 modem receive context. \param s The modem context. \param handler The callback routine used to report modem status changes. \param user_data An opaque pointer. */ SPAN_DECLARE(void) v29_rx_set_modem_status_handler(v29_rx_state_t *s, modem_rx_status_func_t handler, void *user_data); /*! Process a block of received V.29 modem audio samples. \brief Process a block of received V.29 modem audio samples. \param s The modem context. \param amp The audio sample buffer. \param len The number of samples in the buffer. \return The number of samples unprocessed. */ SPAN_DECLARE_NONSTD(int) v29_rx(v29_rx_state_t *s, const int16_t amp[], int len); /*! Fake processing of a missing block of received V.29 modem audio samples. (e.g due to packet loss). \brief Fake processing of a missing block of received V.29 modem audio samples. \param s The modem context. \param len The number of samples to fake. \return The number of samples unprocessed. */ SPAN_DECLARE_NONSTD(int) v29_rx_fillin(v29_rx_state_t *s, int len); /*! Get a snapshot of the current equalizer coefficients. \brief Get a snapshot of the current equalizer coefficients. \param s The modem context. \param coeffs The vector of complex coefficients. \return The number of coefficients in the vector. */ #if defined(SPANDSP_USE_FIXED_POINT) SPAN_DECLARE(int) v29_rx_equalizer_state(v29_rx_state_t *s, complexi16_t **coeffs); #else SPAN_DECLARE(int) v29_rx_equalizer_state(v29_rx_state_t *s, complexf_t **coeffs); #endif /*! Get the current received carrier frequency. \param s The modem context. \return The frequency, in Hertz. */ SPAN_DECLARE(float) v29_rx_carrier_frequency(v29_rx_state_t *s); /*! Get the current symbol timing correction since startup. \param s The modem context. \return The correction. */ SPAN_DECLARE(float) v29_rx_symbol_timing_correction(v29_rx_state_t *s); /*! Get the current received signal power. \param s The modem context. \return The signal power, in dBm0. */ SPAN_DECLARE(float) v29_rx_signal_power(v29_rx_state_t *s); /*! Set the power level at which the carrier detection will cut in \param s The modem context. \param cutoff The signal cutoff power, in dBm0. */ SPAN_DECLARE(void) v29_rx_signal_cutoff(v29_rx_state_t *s, float cutoff); /*! Set a handler routine to process QAM status reports \param s The modem context. \param handler The handler routine. \param user_data An opaque pointer passed to the handler routine. */ SPAN_DECLARE(void) v29_rx_set_qam_report_handler(v29_rx_state_t *s, qam_report_handler_t handler, void *user_data); #if defined(__cplusplus) } #endif #endif /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/spandsp/fsk.h0000664000175000017500000002402411422612264015774 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * fsk.h - FSK modem transmit and receive parts * * Written by Steve Underwood * * Copyright (C) 2003 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \file */ /*! \page fsk_page FSK modems \section fsk_page_sec_1 What does it do? Most of the oldest telephony modems use incoherent FSK modulation. This module can be used to implement both the transmit and receive sides of a number of these modems. There are integrated definitions for: - V.21 - V.23 - Bell 103 - Bell 202 - Weitbrecht (Used for TDD - Telecoms Device for the Deaf) The audio output or input is a stream of 16 bit samples, at 8000 samples/second. The transmit and receive sides can be used independantly. \section fsk_page_sec_2 The transmitter The FSK transmitter uses a DDS generator to synthesise the waveform. This naturally produces phase coherent transitions, as the phase update rate is switched, producing a clean spectrum. The symbols are not generally an integer number of samples long. However, the symbol time for the fastest data rate generally used (1200bps) is more than 7 samples long. The jitter resulting from switching at the nearest sample is, therefore, acceptable. No interpolation is used. \section fsk_page_sec_3 The receiver The FSK receiver uses a quadrature correlation technique to demodulate the signal. Two DDS quadrature oscillators are used. The incoming signal is correlated with the oscillator signals over a period of one symbol. The oscillator giving the highest net correlation from its I and Q outputs is the one that matches the frequency being transmitted during the correlation interval. Because the transmission is totally asynchronous, the demodulation process must run sample by sample to find the symbol transitions. The correlation is performed on a sliding window basis, so the computational load of demodulating sample by sample is not great. Two modes of symbol synchronisation are provided: - In synchronous mode, symbol transitions are smoothed, to track their true position in the prescence of high timing jitter. This provides the most reliable symbol recovery in poor signal to noise conditions. However, it takes a little time to settle, so it not really suitable for data streams which must start up instantaneously (e.g. the TDD systems used by hearing impaired people). - In asynchronous mode each transition is taken at face value, with no temporal smoothing. There is no settling time for this mode, but when the signal to noise ratio is very poor it does not perform as well as the synchronous mode. */ #if !defined(_SPANDSP_FSK_H_) #define _SPANDSP_FSK_H_ /*! FSK modem specification. This defines the frequencies, signal levels and baud rate (== bit rate for simple FSK) for a single channel of an FSK modem. */ typedef struct { /*! Short text name for the modem. */ const char *name; /*! The frequency of the zero bit state, in Hz */ int freq_zero; /*! The frequency of the one bit state, in Hz */ int freq_one; /*! The transmit power level, in dBm0 */ int tx_level; /*! The minimum acceptable receive power level, in dBm0 */ int min_level; /*! The bit rate of the modem, in units of 1/100th bps */ int baud_rate; } fsk_spec_t; /* Predefined FSK modem channels */ enum { FSK_V21CH1 = 0, FSK_V21CH2, FSK_V23CH1, FSK_V23CH2, FSK_BELL103CH1, FSK_BELL103CH2, FSK_BELL202, FSK_WEITBRECHT, /* 45.45 baud version, used for TDD (Telecom Device for the Deaf) */ FSK_WEITBRECHT50 /* 50 baud version, used for TDD (Telecom Device for the Deaf) */ }; enum { FSK_FRAME_MODE_ASYNC = 0, FSK_FRAME_MODE_SYNC = 1, FSK_FRAME_MODE_5N1_FRAMES = 7, /* 5 bits of data + start bit + stop bit */ FSK_FRAME_MODE_7N1_FRAMES = 9, /* 7 bits of data + start bit + stop bit */ FSK_FRAME_MODE_8N1_FRAMES = 10 /* 8 bits of data + start bit + stop bit */ }; SPAN_DECLARE_DATA extern const fsk_spec_t preset_fsk_specs[]; /*! FSK modem transmit descriptor. This defines the state of a single working instance of an FSK modem transmitter. */ typedef struct fsk_tx_state_s fsk_tx_state_t; /* The longest window will probably be 106 for 75 baud */ #define FSK_MAX_WINDOW_LEN 128 /*! FSK modem receive descriptor. This defines the state of a single working instance of an FSK modem receiver. */ typedef struct fsk_rx_state_s fsk_rx_state_t; #if defined(__cplusplus) extern "C" { #endif /*! Initialise an FSK modem transmit context. \brief Initialise an FSK modem transmit context. \param s The modem context. \param spec The specification of the modem tones and rate. \param get_bit The callback routine used to get the data to be transmitted. \param user_data An opaque pointer. \return A pointer to the modem context, or NULL if there was a problem. */ SPAN_DECLARE(fsk_tx_state_t *) fsk_tx_init(fsk_tx_state_t *s, const fsk_spec_t *spec, get_bit_func_t get_bit, void *user_data); SPAN_DECLARE(int) fsk_tx_restart(fsk_tx_state_t *s, const fsk_spec_t *spec); SPAN_DECLARE(int) fsk_tx_release(fsk_tx_state_t *s); SPAN_DECLARE(int) fsk_tx_free(fsk_tx_state_t *s); /*! Adjust an FSK modem transmit context's power output. \brief Adjust an FSK modem transmit context's power output. \param s The modem context. \param power The power level, in dBm0 */ SPAN_DECLARE(void) fsk_tx_power(fsk_tx_state_t *s, float power); SPAN_DECLARE(void) fsk_tx_set_get_bit(fsk_tx_state_t *s, get_bit_func_t get_bit, void *user_data); /*! Change the modem status report function associated with an FSK modem transmit context. \brief Change the modem status report function associated with an FSK modem transmit context. \param s The modem context. \param handler The callback routine used to report modem status changes. \param user_data An opaque pointer. */ SPAN_DECLARE(void) fsk_tx_set_modem_status_handler(fsk_tx_state_t *s, modem_tx_status_func_t handler, void *user_data); /*! Generate a block of FSK modem audio samples. \brief Generate a block of FSK modem audio samples. \param s The modem context. \param amp The audio sample buffer. \param len The number of samples to be generated. \return The number of samples actually generated. */ SPAN_DECLARE_NONSTD(int) fsk_tx(fsk_tx_state_t *s, int16_t amp[], int len); /*! Get the current received signal power. \param s The modem context. \return The signal power, in dBm0. */ SPAN_DECLARE(float) fsk_rx_signal_power(fsk_rx_state_t *s); /*! Adjust an FSK modem receive context's carrier detect power threshold. \brief Adjust an FSK modem receive context's carrier detect power threshold. \param s The modem context. \param cutoff The power level, in dBm0 */ SPAN_DECLARE(void) fsk_rx_signal_cutoff(fsk_rx_state_t *s, float cutoff); /*! Initialise an FSK modem receive context. \brief Initialise an FSK modem receive context. \param s The modem context. \param spec The specification of the modem tones and rate. \param framing_mode 0 for fully asynchronous mode. 1 for synchronous mode. >1 for this many bits per asynchronous character frame. \param put_bit The callback routine used to put the received data. \param user_data An opaque pointer. \return A pointer to the modem context, or NULL if there was a problem. */ SPAN_DECLARE(fsk_rx_state_t *) fsk_rx_init(fsk_rx_state_t *s, const fsk_spec_t *spec, int framing_mode, put_bit_func_t put_bit, void *user_data); SPAN_DECLARE(int) fsk_rx_restart(fsk_rx_state_t *s, const fsk_spec_t *spec, int framing_mode); SPAN_DECLARE(int) fsk_rx_release(fsk_rx_state_t *s); SPAN_DECLARE(int) fsk_rx_free(fsk_rx_state_t *s); /*! Process a block of received FSK modem audio samples. \brief Process a block of received FSK modem audio samples. \param s The modem context. \param amp The audio sample buffer. \param len The number of samples in the buffer. \return The number of samples unprocessed. */ SPAN_DECLARE_NONSTD(int) fsk_rx(fsk_rx_state_t *s, const int16_t *amp, int len); /*! Fake processing of a missing block of received FSK modem audio samples (e.g due to packet loss). \brief Fake processing of a missing block of received FSK modem audio samples. \param s The modem context. \param len The number of samples to fake. \return The number of samples unprocessed. */ SPAN_DECLARE_NONSTD(int) fsk_rx_fillin(fsk_rx_state_t *s, int len); SPAN_DECLARE(void) fsk_rx_set_put_bit(fsk_rx_state_t *s, put_bit_func_t put_bit, void *user_data); /*! Change the modem status report function associated with an FSK modem receive context. \brief Change the modem status report function associated with an FSK modem receive context. \param s The modem context. \param handler The callback routine used to report modem status changes. \param user_data An opaque pointer. */ SPAN_DECLARE(void) fsk_rx_set_modem_status_handler(fsk_rx_state_t *s, modem_rx_status_func_t handler, void *user_data); #if defined(__cplusplus) } #endif #endif /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/spandsp/v17rx.h0000664000175000017500000004504211422612264016203 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * v17rx.h - ITU V.17 modem receive part * * Written by Steve Underwood * * Copyright (C) 2003 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \file */ #if !defined(_SPANDSP_V17RX_H_) #define _SPANDSP_V17RX_H_ /*! \page v17rx_page The V.17 receiver \section v17rx_page_sec_1 What does it do? The V.17 receiver implements the receive side of a V.17 modem. This can operate at data rates of 14400, 12000, 9600 and 7200 bits/second. The audio input is a stream of 16 bit samples, at 8000 samples/second. The transmit and receive side of V.17 modems operate independantly. V.17 is mostly used for FAX transmission over PSTN lines, where it provides the standard 14400 bits/second rate. \section v17rx_page_sec_2 How does it work? V.17 uses QAM modulation, at 2400 baud, and trellis coding. Constellations with 16, 32, 64, and 128 points are defined. After one bit per baud is absorbed by the trellis coding, this gives usable bit rates of 7200, 9600, 12000, and 14400 per second. V.17 specifies a training sequence at the start of transmission, which makes the design of a V.17 receiver relatively straightforward. The first stage of the training sequence consists of 256 symbols, alternating between two constellation positions. The receiver monitors the signal power, to sense the possible presence of a valid carrier. When the alternating signal begins, the power rising above a minimum threshold (-43dBm0) causes the main receiver computation to begin. The initial measured power is used to quickly set the gain of the receiver. After this initial settling, the front end gain is locked, and the adaptive equalizer tracks any subsequent signal level variation. The signal is oversampled to 24000 samples/second (i.e. signal, zero, zero, signal, zero, zero, ...) and fed to a complex root raised cosine pulse shaping filter. This filter has been modified from the conventional root raised cosine filter, by shifting it up the band, to be centred at the nominal carrier frequency. This filter interpolates the samples, pulse shapes, and performs a fractional sample delay at the same time. 192 sets of filter coefficients are used to achieve a set of finely spaces fractional sample delays, between zero and one sample. By choosing every fifth sample, and the appropriate set of filter coefficients, the properly tuned symbol tracker can select data samples at 4800 samples/second from points within 0.28 degrees of the centre and mid-points of each symbol. The output of the filter is multiplied by a complex carrier, generated by a DDS. The result is a baseband signal, requiring no further filtering, apart from an adaptive equalizer. The baseband signal is fed to a T/2 adaptive equalizer. A band edge component maximisation algorithm is used to tune the sampling, so the samples fed to the equalizer are close to the mid point and edges of each symbol. Initially the algorithm is very lightly damped, to ensure the symbol alignment pulls in quickly. Because the sampling rate will not be precisely the same as the transmitter's (the spec. says the symbol timing should be within 0.01%), the receiver constantly evaluates and corrects this sampling throughout its operation. During the symbol timing maintainence phase, the algorithm uses a heavier damping. The carrier is specified as 1800Hz +- 1Hz at the transmitter, and 1800 +-7Hz at the receiver. The receive carrier would only be this inaccurate if the link includes FDM sections. These are being phased out, but the design must still allow for the worst case. Using an initial 1800Hz signal for demodulation gives a worst case rotation rate for the constellation of about one degree per symbol. Once the symbol timing synchronisation algorithm has been given time to lock to the symbol timing of the initial alternating pattern, the phase of the demodulated signal is recorded on two successive symbols - once for each of the constellation positions. The receiver then tracks the symbol alternations, until a large phase jump occurs. This signifies the start of the next phase of the training sequence. At this point the total phase shift between the original recorded symbol phase, and the symbol phase just before the phase jump occurred is used to provide a coarse estimation of the rotation rate of the constellation, and it current absolute angle of rotation. These are used to update the current carrier phase and phase update rate in the carrier DDS. The working data already in the pulse shaping filter and equalizer buffers is given a similar step rotation to pull it all into line. From this point on, a heavily damped integrate and dump approach, based on the angular difference between each received constellation position and its expected position, is sufficient to track the carrier, and maintain phase alignment. A fast rough approximator for the arc-tangent function is adequate for the estimation of the angular error. The next phase of the training sequence is a scrambled sequence of two particular symbols. We train the T/2 adaptive equalizer using this sequence. The scrambling makes the signal sufficiently diverse to ensure the equalizer converges to the proper generalised solution. At the end of this sequence, the equalizer should be sufficiently well adapted that is can correctly resolve the full QAM constellation. However, the equalizer continues to adapt throughout operation of the modem, fine tuning on the more complex data patterns of the full QAM constellation. In the last phase of the training sequence, the modem enters normal data operation, with a short defined period of all ones as data. As in most high speed modems, data in a V.17 modem passes through a scrambler, to whiten the spectrum of the signal. The transmitter should initialise its data scrambler, and pass the ones through it. At the end of the ones, real data begins to pass through the scrambler, and the transmit modem is in normal operation. The receiver tests that ones are really received, in order to verify the modem trained correctly. If all is well, the data following the ones is fed to the application, and the receive modem is up and running. Unfortunately, some transmit side of some real V.17 modems fail to initialise their scrambler before sending the ones. This means the first 23 received bits (the length of the scrambler register) cannot be trusted for the test. The receive modem, therefore, only tests that bits starting at bit 24 are really ones. The V.17 signal is trellis coded. Two bits of each symbol are convolutionally coded to form a 3 bit trellis code - the two original bits, plus an extra redundant bit. It is possible to ignore the trellis coding, and just decode the non-redundant bits. However, the noise performance of the receiver would suffer. Using a proper trellis decoder adds several dB to the noise tolerance to the receiving modem. Trellis coding seems quite complex at first sight, but is fairly straightforward once you get to grips with it. Trellis decoding tracks the data in terms of the possible states of the convolutional coder at the transmitter. There are 8 possible states of the V.17 coder. The first step in trellis decoding is to find the best candidate constellation point for each of these 8 states. One of thse will be our final answer. The constellation has been designed so groups of 8 are spread fairly evenly across it. Locating them is achieved is a reasonably fast manner, by looking up the answers in a set of space map tables. The disadvantage is the tables are potentially large enough to affect cache performance. The trellis decoder works over 16 successive symbols. The result of decoding is not known until 16 symbols after the data enters the decoder. The minimum total accumulated mismatch between each received point and the actual constellation (termed the distance) is assessed for each of the 8 states. A little analysis of the coder shows that each of the 8 current states could be arrived at from 4 different previous states, through 4 different constellation bit patterns. For each new state, the running total distance is arrived at by inspecting a previous total plus a new distance for the appropriate 4 previous states. The minimum of the 4 values becomes the new distance for the state. Clearly, a mechanism is needed to stop this distance from growing indefinitely. A sliding window, and several other schemes are possible. However, a simple single pole IIR is very simple, and provides adequate results. For each new state we store the constellation bit pattern, or path, to that state, and the number of the previous state. We find the minimum distance amongst the 8 new states for each new symbol. We then trace back through the states, until we reach the one 16 states ago which leads to the current minimum distance. The bit pattern stored there is the error corrected bit pattern for that symbol. So, what does Trellis coding actually achieve? TCM is easier to understand by looking at the V.23bis modem spec. The V.32bis spec. is very similar to V.17, except that it is a full duplex modem and has non-TCM options, as well as the TCM ones in V.17. V32bis defines two options for pumping 9600 bits per second down a phone line - one with and one without TCM. Both run at 2400 baud. The non-TCM one uses simple 16 point QAM on the raw data. The other takes two out of every four raw bits, and convolutionally encodes them to 3. Now we have 5 bits per symbol, and we need 32 point QAM to send the data. The raw error rate from simple decoding of the 32 point QAM is horrible compared to decoding the 16 point QAM. If a point decoded from the 32 point QAM is wrong, the likely correct choice should be one of the adjacent ones. It is unlikely to have been one that is far away across the constellation, unless there was a huge noise spike, interference, or something equally nasty. Now, the 32 point symbols do not exist in isolation. There was a kind of temporal smearing in the convolutional coding. It created a well defined dependency between successive symbols. If we knew for sure what the last few symbols were, they would lead us to a limited group of possible values for the current symbol, constrained by the behaviour of the convolutional coder. If you look at how the symbols were mapped to constellation points, you will see the mapping tries to spread those possible symbols as far apart as possible. This will leave only one that is pretty close to the received point, which must be the correct choice. However, this assumes we know the last few symbols for sure. Since we don't, we have a bit more work to do to achieve reliable decoding. Instead of decoding to the nearest point on the constellation, we decode to a group of likely constellation points in the neighbourhood of the received point. We record the mismatch for each - that is the distance across the constellation between the received point and the group of nearby points. To avoid square roots, recording x2 + y2 can be good enough. Symbol by symbol, we record this information. After a few symbols we can stand back and look at the recorded information. For each symbol we have a set of possible symbol values and error metric pairs. The dependency between symbols, created by the convolutional coder, means some paths from symbol to symbol are possible and some are not. It we trace back through the possible symbol to symbol paths, and total up the error metric through those paths, we end up with a set of figures of merit (or more accurately figures of demerit, since larger == worse) for the likelihood of each path being the correct one. The path with the lowest total metric is the most likely, and gives us our final choice for what we think the current symbol really is. That was hard work. It takes considerable computation to do this selection and traceback, symbol by symbol. We need to get quite a lot from this. It needs to drive the error rate down so far that is compensates for the much higher error rate due to the larger constellation, and then buys us some actual benefit. Well in the example we are looking at - V.32bis at 9600bps - it works out the error rate from the TCM option is like using the non-TCM option with several dB more signal to noise ratio. That's nice. The non-TCM option is pretty reasonable on most phone lines, but a better error rate is always a good thing. However, V32bis includes a 14,400bps option. That uses 2400 baud, and 6 bit symbols. Convolutional encoding increases that to 7 bits per symbol, by taking 2 bits and encoding them to 3. This give a 128 point QAM constellation. Again, the difference between using this, and using just an uncoded 64 point constellation is equivalent to maybe 5dB of extra signal to noise ratio. However, in this case it is the difference between the modem working only on the most optimal lines, and being widely usable across most phone lines. TCM absolutely transformed the phone line modem business. */ /*! V.17 modem receive side descriptor. This defines the working state for a single instance of a V.17 modem receiver. */ typedef struct v17_rx_state_s v17_rx_state_t; #if defined(__cplusplus) extern "C" { #endif /*! Initialise a V.17 modem receive context. \brief Initialise a V.17 modem receive context. \param s The modem context. \param bit_rate The bit rate of the modem. Valid values are 7200, 9600, 12000 and 14400. \param put_bit The callback routine used to put the received data. \param user_data An opaque pointer passed to the put_bit routine. \return A pointer to the modem context, or NULL if there was a problem. */ SPAN_DECLARE(v17_rx_state_t *) v17_rx_init(v17_rx_state_t *s, int bit_rate, put_bit_func_t put_bit, void *user_data); /*! Reinitialise an existing V.17 modem receive context. \brief Reinitialise an existing V.17 modem receive context. \param s The modem context. \param bit_rate The bit rate of the modem. Valid values are 7200, 9600, 12000 and 14400. \param short_train TRUE if a short training sequence is expected. \return 0 for OK, -1 for bad parameter */ SPAN_DECLARE(int) v17_rx_restart(v17_rx_state_t *s, int bit_rate, int short_train); /*! Release a V.17 modem receive context. \brief Release a V.17 modem receive context. \param s The modem context. \return 0 for OK */ SPAN_DECLARE(int) v17_rx_release(v17_rx_state_t *s); /*! Free a V.17 modem receive context. \brief Free a V.17 modem receive context. \param s The modem context. \return 0 for OK */ SPAN_DECLARE(int) v17_rx_free(v17_rx_state_t *s); /*! Get the logging context associated with a V.17 modem receive context. \brief Get the logging context associated with a V.17 modem receive context. \param s The modem context. \return A pointer to the logging context */ SPAN_DECLARE(logging_state_t *) v17_rx_get_logging_state(v17_rx_state_t *s); /*! Change the put_bit function associated with a V.17 modem receive context. \brief Change the put_bit function associated with a V.17 modem receive context. \param s The modem context. \param put_bit The callback routine used to handle received bits. \param user_data An opaque pointer. */ SPAN_DECLARE(void) v17_rx_set_put_bit(v17_rx_state_t *s, put_bit_func_t put_bit, void *user_data); /*! Change the modem status report function associated with a V.17 modem receive context. \brief Change the modem status report function associated with a V.17 modem receive context. \param s The modem context. \param handler The callback routine used to report modem status changes. \param user_data An opaque pointer. */ SPAN_DECLARE(void) v17_rx_set_modem_status_handler(v17_rx_state_t *s, modem_rx_status_func_t handler, void *user_data); /*! Process a block of received V.17 modem audio samples. \brief Process a block of received V.17 modem audio samples. \param s The modem context. \param amp The audio sample buffer. \param len The number of samples in the buffer. \return The number of samples unprocessed. */ SPAN_DECLARE_NONSTD(int) v17_rx(v17_rx_state_t *s, const int16_t amp[], int len); /*! Fake processing of a missing block of received V.17 modem audio samples. (e.g due to packet loss). \brief Fake processing of a missing block of received V.17 modem audio samples. \param s The modem context. \param len The number of samples to fake. \return The number of samples unprocessed. */ SPAN_DECLARE_NONSTD(int) v17_rx_fillin(v17_rx_state_t *s, int len); /*! Get a snapshot of the current equalizer coefficients. \brief Get a snapshot of the current equalizer coefficients. \param s The modem context. \param coeffs The vector of complex coefficients. \return The number of coefficients in the vector. */ #if defined(SPANDSP_USE_FIXED_POINTx) SPAN_DECLARE(int) v17_rx_equalizer_state(v17_rx_state_t *s, complexi_t **coeffs); #else SPAN_DECLARE(int) v17_rx_equalizer_state(v17_rx_state_t *s, complexf_t **coeffs); #endif /*! Get the current received carrier frequency. \param s The modem context. \return The frequency, in Hertz. */ SPAN_DECLARE(float) v17_rx_carrier_frequency(v17_rx_state_t *s); /*! Get the current symbol timing correction since startup. \param s The modem context. \return The correction. */ SPAN_DECLARE(float) v17_rx_symbol_timing_correction(v17_rx_state_t *s); /*! Get a current received signal power. \param s The modem context. \return The signal power, in dBm0. */ SPAN_DECLARE(float) v17_rx_signal_power(v17_rx_state_t *s); /*! Set the power level at which the carrier detection will cut in \param s The modem context. \param cutoff The signal cutoff power, in dBm0. */ SPAN_DECLARE(void) v17_rx_signal_cutoff(v17_rx_state_t *s, float cutoff); /*! Set a handler routine to process QAM status reports \param s The modem context. \param handler The handler routine. \param user_data An opaque pointer passed to the handler routine. */ SPAN_DECLARE(void) v17_rx_set_qam_report_handler(v17_rx_state_t *s, qam_report_handler_t handler, void *user_data); #if defined(__cplusplus) } #endif #endif /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/spandsp/v29tx.h0000664000175000017500000001644011422612265016211 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * v29tx.h - ITU V.29 modem transmit part * * Written by Steve Underwood * * Copyright (C) 2003 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \file */ #if !defined(_SPANDSP_V29TX_H_) #define _SPANDSP_V29TX_H_ /*! \page v29tx_page The V.29 transmitter \section v29tx_page_sec_1 What does it do? The V.29 transmitter implements the transmit side of a V.29 modem. This can operate at data rates of 9600, 7200 and 4800 bits/s. The audio output is a stream of 16 bit samples, at 8000 samples/second. The transmit and receive side of V.29 modems operate independantly. V.29 is mostly used for FAX transmission, where it provides the standard 9600 and 7200 bits/s rates (the 4800 bits/s mode is not used for FAX). \section v29tx_page_sec_2 How does it work? V.29 uses QAM modulation. The standard method of producing a QAM modulated signal is to use a sampling rate which is a multiple of the baud rate. The raw signal is then a series of complex pulses, each an integer number of samples long. These can be shaped, using a suitable complex filter, and multiplied by a complex carrier signal to produce the final QAM signal for transmission. The pulse shaping filter is only vaguely defined by the V.29 spec. Some of the other ITU modem specs. fully define the filter, typically specifying a root raised cosine filter, with 50% excess bandwidth. This is a pity, since it increases the variability of the received signal. However, the receiver's adaptive equalizer will compensate for these differences. The current design uses a root raised cosine filter with 25% excess bandwidth. Greater excess bandwidth will not allow the tranmitted signal to meet the spectral requirements. The sampling rate for our transmitter is defined by the channel - 8000 per second. This is not a multiple of the baud rate (i.e. 2400 baud). The baud interval is actually 10/3 sample periods. Instead of using a symmetric FIR to pulse shape the signal, a polyphase filter is used. This consists of 10 sets of coefficients, offering zero to 9/10ths of a baud phase shift as well as root raised cosine filtering. The appropriate coefficient set is chosen for each signal sample generated. The carrier is generated using the DDS method. Using two second order resonators, started in quadrature, might be more efficient, as it would have less impact on the processor cache than a table lookup approach. However, the DDS approach suits the receiver better, so the same signal generator is also used for the transmitter. The equation defining QAM modulation is: s(n) = A*cos(2*pi*f*n + phi(n)) where phi(n) is the phase of the information, and A is the amplitude of the information using the identity cos(x + y) = cos(x)*cos(y) - sin(x)*sin(y) we get s(n) = A {cos(2*pi*f*n)*cos(phi(n)) - sin(2*pi*f*n)*sin(phi(n))} substituting with the constellation positions I(n) = A*cos(phi(n)) Q(n) = A*sin(phi(n)) gives s(n) = I(n)*cos(2*pi*f*n) - Q(n)*sin(2*pi*f*n) */ /*! V.29 modem transmit side descriptor. This defines the working state for a single instance of a V.29 modem transmitter. */ typedef struct v29_tx_state_s v29_tx_state_t; #if defined(__cplusplus) extern "C" { #endif /*! Adjust a V.29 modem transmit context's power output. \brief Adjust a V.29 modem transmit context's output power. \param s The modem context. \param power The power level, in dBm0 */ SPAN_DECLARE(void) v29_tx_power(v29_tx_state_t *s, float power); /*! Initialise a V.29 modem transmit context. This must be called before the first use of the context, to initialise its contents. \brief Initialise a V.29 modem transmit context. \param s The modem context. \param bit_rate The bit rate of the modem. Valid values are 4800, 7200 and 9600. \param tep TRUE is the optional TEP tone is to be transmitted. \param get_bit The callback routine used to get the data to be transmitted. \param user_data An opaque pointer. \return A pointer to the modem context, or NULL if there was a problem. */ SPAN_DECLARE(v29_tx_state_t *) v29_tx_init(v29_tx_state_t *s, int bit_rate, int tep, get_bit_func_t get_bit, void *user_data); /*! Reinitialise an existing V.29 modem transmit context, so it may be reused. \brief Reinitialise an existing V.29 modem transmit context. \param s The modem context. \param bit_rate The bit rate of the modem. Valid values are 4800, 7200 and 9600. \param tep TRUE is the optional TEP tone is to be transmitted. \return 0 for OK, -1 for bad parameter */ SPAN_DECLARE(int) v29_tx_restart(v29_tx_state_t *s, int bit_rate, int tep); /*! Release a V.29 modem transmit context. \brief Release a V.29 modem transmit context. \param s The modem context. \return 0 for OK */ SPAN_DECLARE(int) v29_tx_release(v29_tx_state_t *s); /*! Free a V.29 modem transmit context. \brief Free a V.29 modem transmit context. \param s The modem context. \return 0 for OK */ SPAN_DECLARE(int) v29_tx_free(v29_tx_state_t *s); /*! Get the logging context associated with a V.29 modem transmit context. \brief Get the logging context associated with a V.29 modem transmit context. \param s The modem context. \return A pointer to the logging context */ SPAN_DECLARE(logging_state_t *) v29_tx_get_logging_state(v29_tx_state_t *s); /*! Change the get_bit function associated with a V.29 modem transmit context. \brief Change the get_bit function associated with a V.29 modem transmit context. \param s The modem context. \param get_bit The callback routine used to get the data to be transmitted. \param user_data An opaque pointer. */ SPAN_DECLARE(void) v29_tx_set_get_bit(v29_tx_state_t *s, get_bit_func_t get_bit, void *user_data); /*! Change the modem status report function associated with a V.29 modem transmit context. \brief Change the modem status report function associated with a V.29 modem transmit context. \param s The modem context. \param handler The callback routine used to report modem status changes. \param user_data An opaque pointer. */ SPAN_DECLARE(void) v29_tx_set_modem_status_handler(v29_tx_state_t *s, modem_tx_status_func_t handler, void *user_data); /*! Generate a block of V.29 modem audio samples. \brief Generate a block of V.29 modem audio samples. \param s The modem context. \param amp The audio sample buffer. \param len The number of samples to be generated. \return The number of samples actually generated. */ SPAN_DECLARE_NONSTD(int) v29_tx(v29_tx_state_t *s, int16_t amp[], int len); #if defined(__cplusplus) } #endif #endif /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/spandsp/g168models.h0000664000175000017500000003531511422612264017107 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * g168models.h - line models for echo cancellation tests against the G.168 * spec. * * Written by Steve Underwood * * Copyright (C) 2001 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \file */ #if !defined(_SPANDSP_G168MODELS_H_) #define _SPANDSP_G168MODELS_H_ /*! \page g168_test_data_page The test data from the G.168 specification */ /*! The line model from section D.2 of G.168. These are the coefficients for the line simulation model defined in section D.2 of G.168. It may be used with the fir32_xxx routines to build a line simulator. */ const int32_t line_model_d2_coeffs[] = { -436, -829, -2797, -4208, -17968, -11215, 46150, 34480, -10427, 9049, -1309, -6320, 390, -8191, -1751, -6051, -3796, -4055, -3948, -2557, -3372, -1808, -2259, -1300, -1098, -618, -340, -61, 323, 419, 745, 716, 946, 880, 1014, 976, 1033, 1091, 1053, 1042, 794, 831, 899, 716, 390, 313, 304, 304, 73, -119, -109, -176, -359, -407, -512, -580, -704, -618, -685, -791, -772, -820, -839, -724 }; #define LINE_MODEL_D2_GAIN 1.39E-5f /*! The line model from section D.3 of G.168. These are the coefficients for the line simulation model defined in section D.3 of G.168. It may be used with the fir32_xxx routines to build a line simulator. */ const int32_t line_model_d3_coeffs[] = { -381, 658, 1730, -51, -3511, -1418, 7660, 8861, -8106, -21370, -5307, 23064, 24020, 1020, -12374, -16296, -19524, -7480, 13509, 17115, 13952, 13952, 97, -9326, -9046, -15208, -9853, -3858, -1979, 6029, 5616, 7214, 6820, 3935, 3919, 921, 1316, -693, -759, -1517, -2176, -2028, -2654, -1814, -2077, -1468, -1221, -842, -463, -298, -68, 64, 493, 723, 789, 954, 756, 839, 872, 1020, 789, 822, 558, 658, 476, 377, 377, 262, 97, -68, -183, -232, -331, -347, -430, -314, -430, -463, -463, -414, -381, -479, -479, -512, -479, -397, -430, -397, -298, -265, -249, -216, -249, -265, -166, -232 }; #define LINE_MODEL_D3_GAIN 1.44E-5f /*! The line model from section D.4 of G.168. These are the coefficients for the line simulation model defined in section D.4 of G.168. It may be used with the fir32_xxx routines to build a line simulator. */ const int32_t line_model_d4_coeffs[] = { -448, -436, 2230, 2448, -4178, -7050, 5846, 18581, 2322, -26261, -16249, 21637, 25649, -2267, -10311, -4693, -12690, -7428, 14164, 13467, 4438, 8627, 456, -11879, -6352, -5104, -7496, 3271, 6566, 4277, 11131, 7562, 1475, 3728, -3525, -7301, -3101, -9269, -6146, -2553, -6272, 811, 124, 788, 5147, 2172, 5387, 4598, 3535, 4004, 2311, 2150, 1017, 330, -139, -573, -1100, -1157, -1180, -1455, -1123, -1386, -1123, -1066, -1020, -1100, -1008, -1077, -1088, -917, -917, -963, -814, -871, -734, -642, -562, -356, -379, -345, -230, -233, -333, -356, -390, -310, -265, -368, -310, -310, -390, -482, -459, -482, -551, -573 }; #define LINE_MODEL_D4_GAIN 1.52E-5f /*! The line model from section D.5 of G.168. These are the coefficients for the line simulation model defined in section D.5 of G.168. It may be used with the fir32_xxx routines to build a line simulator. */ const int32_t line_model_d5_coeffs[] = { 160, 312, -241, -415, 897, 908, -1326, -1499, 2405, 3347, -3624, -7733, 4041, 14484, -1477, -21739, -4470, 25356, 11458, -19696, -11800, 5766, 789, 6633, 14624, -6975, -17156, -187, 149, 1515, 14907, 4345, -7128, -2757, -10185, -7083, 6850, 3944, 6969, 8694, -4068, -3852, -5793, -9371, 453, 1060, 3965, 9463, 2393, 2784, -892, -7366, -3376, -5847, -2399, 3011, 1537, 6623, 4205, 1602, 1592, -4752, -3646, -5207, -5577, -501, -1174, 4041, 5647, 4628, 7252, 2123, 2654, -881, -4113, -3244, -7289, -3830, -4600, -2508, 431, -144, 4184, 2372, 4617, 3576, 2382, 2839, -404, 539, -1803, -1401, -1705, -2269, -783, -1608, -220, -306, 257, 615, 225, 561, 8, 344, 127, -57, 182, 41, 203, -111, 95, -79, 30, 84, -13, -68, -241, -68, -24, 19, -57, -24, 30, -68, 84, -155, -68, 19 }; #define LINE_MODEL_D5_GAIN 1.77E-5f /*! The line model from section D.6 of G.168. These are the coefficients for the line simulation model defined in section D.6 of G.168. It may be used with the fir32_xxx routines to build a line simulator. */ const int32_t line_model_d6_coeffs[] = { 293, 268, 475, 460, 517, 704, 581, 879, 573, 896, 604, 787, 561, 538, 440, 97, 265, -385, 20, -938, -523, -1438, -1134, -1887, -1727, -1698, -4266, -22548, -43424, 2743, 25897, 7380, 21499, 11983, 10400, 11667, 3889, 7241, 925, 2018, -821, -2068, -2236, -4283, -3406, -5022, -4039, -4842, -4104, -4089, -3582, -2978, -2734, -1805, -1608, -645, -495, 279, 471, 947, 1186, 1438, 1669, 1640, 1901, 1687, 1803, 1543, 1566, 1342, 1163, 963, 733, 665, 323, 221, -14, -107, -279, -379, -468, -513, -473, -588, -612, -652, -616, -566, -515, -485, -404, -344, -290, -202, -180, -123 }; #define LINE_MODEL_D6_GAIN 9.33E-6f /*! The line model from section D.7 of G.168. These are the coefficients for the line simulation model defined in section D.8 of G.168. It may be used with the fir32_xxx routines to build a line simulator. */ const int32_t line_model_d7_coeffs[] = { 29, 109, -83, 198, -294, -135, -415, -202, -444, -337, -313, -450, -105, -503, 145, -490, 267, -231, 340, 77, 343, 783, 158, 1341, 195, 1798, 344, 1845, 629, 1604, 1182, 940, 5163, 19522, 8421, -50953, -9043, 18046, -13553, 13336, -3471, -107, 1788, -7409, 2469, -7994, 490, -3860, -837, 490, -636, 3682, 1141, 5019, 2635, 5025, 3946, 4414, 4026, 3005, 3380, 1616, 2007, 158, 388, -1198, -1117, -2134, -2547, -2589, -3310, -2778, -3427, -2779, -3116, -2502, -2399, -1956, -1539, -1239, -570, -377, 251, 331, 964, 1177, 1449, 1564, 1724, 1871, 1767, 1802, 1630, 1632, 1379, 1271, 1063, 856, 711, 482, 289, 54, -137, -321, -490, -638, -764, -836, -800, -859, -838, -837, -834, -740, -673, -581, -493, -436, -327, -201 }; #define LINE_MODEL_D7_GAIN 1.51E-5f /*! The line model from section D.8 of G.168. These are the coefficients for the line simulation model defined in section D.8 of G.168. It may be used with the fir32_xxx routines to build a line simulator. */ const int32_t line_model_d8_coeffs[] = { 258, -111, 337, -319, 347, -434, 192, -450, -108, -343, -596, -177, -1187, -52, -1781, -147, -1959, -326, -1601, -1389, -13620, -720, 33818, -10683, -6742, 12489, -9862, 8950, -1574, 758, 3526, -3118, 2421, -8966, -4901, 11385, 18072, -14410, -7473, 19836, -16854, -3115, 9483, -17799, 7399, -4342, -7415, 7929, -10726, 6239, -2526, -1317, 5345, -4565, 6868, -2195, 3425, 1969, -109, 3963, -1275, 3087, -892, 1239, 2, -427, 596, -1184, 551, -1244, 141, -743, -415, -372, -769, -183, -785, -270, -659, -377, -523, -325, -245, -255, -60, 35, 218, 149, 340, 233, 365, 303, 251, 230, 209, 179 }; #define LINE_MODEL_D8_GAIN 2.33E-5f /*! The line model from section D.9 of G.168. These are the coefficients for the line simulation model defined in section D.9 of G.168. It may be used with the fir32_xxx routines to build a line simulator. */ const int32_t line_model_d9_coeffs[] = { 80, 31, 4, 42, 42, -61, -81, -64, 121, -102, -26, 1002, -9250, -22562, 39321, 35681, -35289, 25312, -1457, -229, 15659, -6786, 16791, 3860, 2239, -28730, -11885, 33871, -176, -16421, 18173, -9669, -10163, 9941, -19365, 3592, -5907, -10257, 5336, -12933, 4348, -4802, -1791, 3035, -4433, 5553, -2596, 3992, 1255, 1450, 4079, 324, 4340, 1059, 3083, 1917, 1756, 2478, 1027, 1871, 845, 1284, 813, 806, 869, 471, 646, 438, 449, 432, 473, 394, 452, 538, 717, 723, 850, 756, 753, 899, 555, 669, 619, 500, 650, 615, 516, 492, 427, 291, 356, 147, 107, -50, -88, -59, -238, -165, -183 }; #define LINE_MODEL_D9_GAIN 1.33E-5f /*! The filter coefficients for the bandpass filter specified for level measurements in section 6.4.1.2.1 of G.168. */ const float level_measurement_bp_coeffs[] = { 0.0000, 0.0006, 0.0005, 0.0004, 0.0011, 0.0000, 0.0015, -0.0003, 0.0012, -0.0002, 0.0000, 0.0002, -0.0020, 0.0005, -0.0040, 0.0000, -0.0047, -0.0019, -0.0033, -0.0047, 0.0000, -0.0068, 0.0036, -0.0057, 0.0054, 0.0000, 0.0044, 0.0095, 0.0017, 0.0188, 0.0000, 0.0225, 0.0024, 0.0163, 0.0092, 0.0000, 0.0164, -0.0210, 0.0161, -0.0375, 0.0000, -0.0406, -0.0357, -0.0267, -0.0871, 0.0000, -0.1420, 0.0289, -0.1843, 0.0475, 0.8006, 0.0475, -0.1843, 0.0289, -0.1420, 0.0000, -0.0871, -0.0267, -0.0357, -0.0406, 0.0000, -0.0375, 0.0161, -0.0210, 0.0164, 0.0000, 0.0092, 0.0163, 0.0024, 0.0225, 0.0000, 0.0188, 0.0017, 0.0095, 0.0044, 0.0000, 0.0054, -0.0057, 0.0036, -0.0068, 0.0000, -0.0047, -0.0033, -0.0019, -0.0047, 0.0000, -0.0040, 0.0005, -0.0020, 0.0002, 0.0000, -0.0002, 0.0012, -0.0003, 0.0015, 0.0000, 0.0011, 0.0004, 0.0005, 0.0006, 0.0000 }; /*! The composite source signal "voiced" section from section C.1 of G.168. */ const int css_c1[] = { -155, 276, 517, 578, 491, 302, 86, -103, -207, -198, 60, 190, 543, 948, 1362, 1741, 2043, 2276, 2422, 2500, 2552, 2595, 2655, 2758, 2896, 3060, 3224, 3370, 3500, 3569, 3603, 3603, 3595, 3586, 3595, 3638, 3724, 3819, 3922, 4000, 4043, 4034, 3974, 3862, 3724, 3577, 3439, 3336, 3267, 3224, 3198, 3172, 3129, 3043, 2914, 2750, 2560, 2353, 2155, 1991, 1853, 1750, 1672, 1603, 1534, 1440, 1310, 1146, 965, 776, 603, 448, 345, 276, 250, 250, 267, 267, 241, 190, 103, -9, -138, -267, -388, -491, -569, -638, -698, -759, -813, -888, -957, -1034, -1103, -1146, -1181, -1190, -1198, -1215, -1259, -1327, -1457, -1629, -1853, -2121, -2414, -2707, -3017, -3319, -3612, -3913, -4224, -4560, -4922, -5301, -5715, -6137, -6560, -6948, -7301, -7568, -7732, -7758, -7620, -7310, -6810, -6155, -5344, -4439, -3474, -2508, -1595, -802 }; /*! The composite source signal "voiced" section from section C.3 of G.168. */ const int css_c3[] = { -198, -112, -9, 103, 233, 388, 543, 724, 896, 1060, 1233, 1388, 1517, 1638, 1747, 1810, 1845, 1845, 1802, 1707, 1569, 1379, 1146, 871, 560, 233, -121, -491, -871, -1250, -1638, -2043, -2465, -2896, -3345, -3819, -4310, -4810, -5319, -5836, -6353, -6853, -7353, -7836, -8292, -8715, -9077, -9370, -9542, -9542, -9361, -8956, -8327, -7465, -6396, -5163, -3827, -2448, -1103, 155, 1293, 2241, 3034, 3655, 4138, 4517, 4827, 5094, 5344, 5594, 5827, 6043, 6215, 6344, 6413, 6422, 6379, 6310, 6215, 6120, 6051, 6000, 5991, 5991, 6000, 6008, 5991, 5939, 5853, 5715, 5560, 5387, 5215, 5043, 4879, 4732, 4586, 4439, 4276, 4086, 3870, 3629, 3370, 3086, 2801, 2534, 2267, 2034, 1819, 1612, 1422, 1224, 1026, 819, 603, 388, 181, 9, -181, -328, -448, -543, -629, -707, -784, -871, -948, -1026, -1112, -1181, -1241, -1276, -1293, -1302, -1293, -1267, -1250, -1233, -1224, -1224, -1224, -1224, -1215, -1198, -1172, -1129, -1077, -1026, -974, -922, -888, -871, -845, -828, -810, -793, -767, -741, -698, -672, -638, -603, -595, -586, -595, -603, -621, -629, -938, -638, -638, -638, -638, -638, -647, -664, -690, -724, -767, -793, -819, -845, -853, -871, -879, -888, -896, -922, -948, -974, -1009, -1026, -1052, -1069, -1077, -1069, -1060, -1060, -1052, -1043, -1043, -1052, -1060, -1060, -1060, -1052, -1034, -1017, -991, -957, -931, -905, -888, -862, -845, -819, -793, -767, -724, -672, -621, -560, -509, -457, -397, -345, -276, -207, -112 }; /*! From section 6.4.2.7 of G.168 - Test No. 6 Non-divergence on narrow-band signals. These tones and tone pairs are each applied for 5 seconds. */ const int tones_6_4_2_7[][2] = { { 697, 0}, { 941, 0}, {1336, 0}, {1633, 0}, { 697, 1209}, { 770, 1336}, { 852, 1477}, { 941, 1633}, { 0, 0} }; #endif /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/spandsp/t30_logging.h0000664000175000017500000000407011422612264017324 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * t30_logging.h - definitions for T.30 fax processing * * Written by Steve Underwood * * Copyright (C) 2003 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \file */ #if !defined(_SPANDSP_T30_LOGGING_H_) #define _SPANDSP_T30_LOGGING_H_ #if defined(__cplusplus) extern "C" { #endif /*! Return a text name for a T.30 frame type. \brief Return a text name for a T.30 frame type. \param x The frametype octet. \return A pointer to the text name for the frame type. If the frame type is not value, the string "???" is returned. */ SPAN_DECLARE(const char *) t30_frametype(uint8_t x); /*! Decode a DIS, DTC or DCS frame, and log the contents. \brief Decode a DIS, DTC or DCS frame, and log the contents. \param s The T.30 context. \param dis A pointer to the frame to be decoded. \param len The length of the frame. */ SPAN_DECLARE(void) t30_decode_dis_dtc_dcs(t30_state_t *s, const uint8_t *dis, int len); /*! Convert a phase E completion code to a short text description. \brief Convert a phase E completion code to a short text description. \param result The result code. \return A pointer to the description. */ SPAN_DECLARE(const char *) t30_completion_code_to_str(int result); #if defined(__cplusplus) } #endif #endif /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/spandsp/fax.h0000664000175000017500000001202611422612264015766 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * fax.h - definitions for analogue line ITU T.30 fax processing * * Written by Steve Underwood * * Copyright (C) 2005 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \file */ #if !defined(_SPANDSP_FAX_H_) #define _SPANDSP_FAX_H_ /*! \page fax_page FAX over analogue modem handling \section fax_page_sec_1 What does it do? \section fax_page_sec_2 How does it work? */ typedef struct fax_state_s fax_state_t; #if defined(__cplusplus) extern "C" { #endif /*! Apply T.30 receive processing to a block of audio samples. \brief Apply T.30 receive processing to a block of audio samples. \param s The FAX context. \param amp The audio sample buffer. \param len The number of samples in the buffer. \return The number of samples unprocessed. This should only be non-zero if the software has reached the end of the FAX call. */ SPAN_DECLARE_NONSTD(int) fax_rx(fax_state_t *s, int16_t *amp, int len); /*! Apply fake T.30 receive processing when a block of audio samples is missing (e.g due to packet loss). \brief Apply fake T.30 receive processing. \param s The FAX context. \param len The number of samples to fake. \return The number of samples unprocessed. This should only be non-zero if the software has reached the end of the FAX call. */ SPAN_DECLARE_NONSTD(int) fax_rx_fillin(fax_state_t *s, int len); /*! Apply T.30 transmit processing to generate a block of audio samples. \brief Apply T.30 transmit processing to generate a block of audio samples. \param s The FAX context. \param amp The audio sample buffer. \param max_len The number of samples to be generated. \return The number of samples actually generated. This will be zero when there is nothing to send. */ SPAN_DECLARE_NONSTD(int) fax_tx(fax_state_t *s, int16_t *amp, int max_len); /*! Select whether silent audio will be sent when FAX transmit is idle. \brief Select whether silent audio will be sent when FAX transmit is idle. \param s The FAX context. \param transmit_on_idle TRUE if silent audio should be output when the FAX transmitter is idle. FALSE to transmit zero length audio when the FAX transmitter is idle. The default behaviour is FALSE. */ SPAN_DECLARE(void) fax_set_transmit_on_idle(fax_state_t *s, int transmit_on_idle); /*! Select whether talker echo protection tone will be sent for the image modems. \brief Select whether TEP will be sent for the image modems. \param s The FAX context. \param use_tep TRUE if TEP should be sent. */ SPAN_DECLARE(void) fax_set_tep_mode(fax_state_t *s, int use_tep); /*! Get a pointer to the T.30 engine associated with a FAX context. \brief Get a pointer to the T.30 engine associated with a FAX context. \param s The FAX context. \return A pointer to the T.30 context, or NULL. */ SPAN_DECLARE(t30_state_t *) fax_get_t30_state(fax_state_t *s); /*! Get a pointer to the logging context associated with a FAX context. \brief Get a pointer to the logging context associated with a FAX context. \param s The FAX context. \return A pointer to the logging context, or NULL. */ SPAN_DECLARE(logging_state_t *) fax_get_logging_state(fax_state_t *s); /*! Restart a FAX context. \brief Restart a FAX context. \param s The FAX context. \param calling_party TRUE if the context is for a calling party. FALSE if the context is for an answering party. \return 0 for OK, else -1. */ SPAN_DECLARE(int) fax_restart(fax_state_t *s, int calling_party); /*! Initialise a FAX context. \brief Initialise a FAX context. \param s The FAX context. \param calling_party TRUE if the context is for a calling party. FALSE if the context is for an answering party. \return A pointer to the FAX context, or NULL if there was a problem. */ SPAN_DECLARE(fax_state_t *) fax_init(fax_state_t *s, int calling_party); /*! Release a FAX context. \brief Release a FAX context. \param s The FAX context. \return 0 for OK, else -1. */ SPAN_DECLARE(int) fax_release(fax_state_t *s); /*! Free a FAX context. \brief Free a FAX context. \param s The FAX context. \return 0 for OK, else -1. */ SPAN_DECLARE(int) fax_free(fax_state_t *s); #if defined(__cplusplus) } #endif #endif /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/spandsp/t4_t6_encode.h0000664000175000017500000000230611422612264017465 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * t4_t6_encode.h - definitions for T.4/T.6 fax encoding * * Written by Steve Underwood * * Copyright (C) 2003, 2009 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \file */ #if !defined(_SPANDSP_T4_T6_ENCODE_H_) #define _SPANDSP_T4_T6_ENCODE_H_ typedef struct t4_t6_encode_state_s t4_t6_encode_state_t; #if defined(__cplusplus) extern "C" { #endif #if defined(__cplusplus) } #endif #endif /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/spandsp/complex_vector_float.h0000664000175000017500000001225111422612264021426 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * complex_vector_float.h * * Written by Steve Underwood * * Copyright (C) 2003 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #if !defined(_SPANDSP_COMPLEX_VECTOR_FLOAT_H_) #define _SPANDSP_COMPLEX_VECTOR_FLOAT_H_ #if defined(__cplusplus) extern "C" { #endif static __inline__ void cvec_copyf(complexf_t z[], const complexf_t x[], int n) { int i; for (i = 0; i < n; i++) z[i] = x[i]; } /*- End of function --------------------------------------------------------*/ static __inline__ void cvec_copy(complex_t z[], const complex_t x[], int n) { int i; for (i = 0; i < n; i++) z[i] = x[i]; } /*- End of function --------------------------------------------------------*/ #if defined(HAVE_LONG_DOUBLE) static __inline__ void cvec_copyl(complexl_t z[], const complexl_t x[], int n) { int i; for (i = 0; i < n; i++) z[i] = x[i]; } /*- End of function --------------------------------------------------------*/ #endif static __inline__ void cvec_zerof(complexf_t z[], int n) { int i; for (i = 0; i < n; i++) z[i] = complex_setf(0.0f, 0.0f); } /*- End of function --------------------------------------------------------*/ static __inline__ void cvec_zero(complex_t z[], int n) { int i; for (i = 0; i < n; i++) z[i] = complex_set(0.0, 0.0); } /*- End of function --------------------------------------------------------*/ #if defined(HAVE_LONG_DOUBLE) static __inline__ void cvec_zerol(complexl_t z[], int n) { int i; for (i = 0; i < n; i++) z[i] = complex_setl(0.0, 0.0); } /*- End of function --------------------------------------------------------*/ #endif static __inline__ void cvec_setf(complexf_t z[], complexf_t *x, int n) { int i; for (i = 0; i < n; i++) z[i] = *x; } /*- End of function --------------------------------------------------------*/ static __inline__ void cvec_set(complex_t z[], complex_t *x, int n) { int i; for (i = 0; i < n; i++) z[i] = *x; } /*- End of function --------------------------------------------------------*/ #if defined(HAVE_LONG_DOUBLE) static __inline__ void cvec_setl(complexl_t z[], complexl_t *x, int n) { int i; for (i = 0; i < n; i++) z[i] = *x; } /*- End of function --------------------------------------------------------*/ #endif SPAN_DECLARE(void) cvec_mulf(complexf_t z[], const complexf_t x[], const complexf_t y[], int n); SPAN_DECLARE(void) cvec_mul(complex_t z[], const complex_t x[], const complex_t y[], int n); #if defined(HAVE_LONG_DOUBLE) SPAN_DECLARE(void) cvec_mull(complexl_t z[], const complexl_t x[], const complexl_t y[], int n); #endif /*! \brief Find the dot product of two complex float vectors. \param x The first vector. \param y The first vector. \param n The number of elements in the vectors. \return The dot product of the two vectors. */ SPAN_DECLARE(complexf_t) cvec_dot_prodf(const complexf_t x[], const complexf_t y[], int n); /*! \brief Find the dot product of two complex double vectors. \param x The first vector. \param y The first vector. \param n The number of elements in the vectors. \return The dot product of the two vectors. */ SPAN_DECLARE(complex_t) cvec_dot_prod(const complex_t x[], const complex_t y[], int n); #if defined(HAVE_LONG_DOUBLE) /*! \brief Find the dot product of two complex long double vectors. \param x The first vector. \param y The first vector. \param n The number of elements in the vectors. \return The dot product of the two vectors. */ SPAN_DECLARE(complexl_t) cvec_dot_prodl(const complexl_t x[], const complexl_t y[], int n); #endif /*! \brief Find the dot product of two complex float vectors, where the first is a circular buffer with an offset for the starting position. \param x The first vector. \param y The first vector. \param n The number of elements in the vectors. \param pos The starting position in the x vector. \return The dot product of the two vectors. */ SPAN_DECLARE(complexf_t) cvec_circular_dot_prodf(const complexf_t x[], const complexf_t y[], int n, int pos); SPAN_DECLARE(void) cvec_lmsf(const complexf_t x[], complexf_t y[], int n, const complexf_t *error); SPAN_DECLARE(void) cvec_circular_lmsf(const complexf_t x[], complexf_t y[], int n, int pos, const complexf_t *error); #if defined(__cplusplus) } #endif #endif /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/spandsp/version.h.in0000664000175000017500000000247611422612265017313 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * version.h - A tag file, so the exact installed revision can be assertained. * * Written by Steve Underwood * * Copyright (C) 2007 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #if !defined(_SPANDSP_VERSION_H_) #define _SPANDSP_VERSION_H_ /* The date and time of the version are in UTC form. */ #define SPANDSP_RELEASE_DATE $SPANDSP_RELEASE_DATE #define SPANDSP_RELEASE_TIME $SPANDSP_RELEASE_TIME #define SPANDSP_RELEASE_DATETIME_STRING "$SPANDSP_RELEASE_DATE $SPANDSP_RELEASE_TIME" #endif /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/spandsp/oki_adpcm.h0000664000175000017500000000752211422612264017143 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * oki_adpcm.h - Conversion routines between linear 16 bit PCM data and * OKI (Dialogic) ADPCM format. * * Written by Steve Underwood * * Copyright (C) 2001 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \file */ #if !defined(_SPANDSP_OKI_ADPCM_H_) #define _SPANDSP_OKI_ADPCM_H_ /*! \page okiadpcm_page OKI (Dialogic) ADPCM encoding and decoding \section okiadpcm_page_sec_1 What does it do? OKI ADPCM is widely used in the CTI industry because it is the principal format supported by Dialogic. As the market leader, they tend to define "common practice". It offers a good balance of simplicity and quality at rates of 24kbps or 32kbps. 32kbps is obtained by ADPCM compressing 8k samples/second linear PCM. 24kbps is obtained by resampling to 6k samples/second and using the same ADPCM compression algorithm on the slower samples. The algorithms for this ADPCM codec can be found in "PC Telephony - The complete guide to designing, building and programming systems using Dialogic and Related Hardware" by Bob Edgar. pg 272-276. */ /*! Oki (Dialogic) ADPCM conversion state descriptor. This defines the state of a single working instance of the Oki ADPCM converter. This is used for either linear to ADPCM or ADPCM to linear conversion. */ typedef struct oki_adpcm_state_s oki_adpcm_state_t; #if defined(__cplusplus) extern "C" { #endif /*! Initialise an Oki ADPCM encode or decode context. \param s The Oki ADPCM context. \param bit_rate The required bit rate for the ADPCM data. The valid rates are 24000 and 32000. \return A pointer to the Oki ADPCM context, or NULL for error. */ SPAN_DECLARE(oki_adpcm_state_t *) oki_adpcm_init(oki_adpcm_state_t *s, int bit_rate); /*! Release an Oki ADPCM encode or decode context. \param s The Oki ADPCM context. \return 0 for OK. */ SPAN_DECLARE(int) oki_adpcm_release(oki_adpcm_state_t *s); /*! Free an Oki ADPCM encode or decode context. \param s The Oki ADPCM context. \return 0 for OK. */ SPAN_DECLARE(int) oki_adpcm_free(oki_adpcm_state_t *s); /*! Decode a buffer of Oki ADPCM data to linear PCM. \param s The Oki ADPCM context. \param amp The audio sample buffer. \param oki_data \param oki_bytes \return The number of samples returned. */ SPAN_DECLARE(int) oki_adpcm_decode(oki_adpcm_state_t *s, int16_t amp[], const uint8_t oki_data[], int oki_bytes); /*! Encode a buffer of linear PCM data to Oki ADPCM. \param s The Oki ADPCM context. \param oki_data The Oki ADPCM data produced \param amp The audio sample buffer. \param len The number of samples in the buffer. \return The number of bytes of Oki ADPCM data produced. */ SPAN_DECLARE(int) oki_adpcm_encode(oki_adpcm_state_t *s, uint8_t oki_data[], const int16_t amp[], int len); #if defined(__cplusplus) } #endif #endif /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/spandsp/super_tone_tx.h0000664000175000017500000000626011422612264020111 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * super_tone_tx.h - Flexible telephony supervisory tone generation. * * Written by Steve Underwood * * Copyright (C) 2001 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #if !defined(_SPANDSP_SUPER_TONE_TX_H_) #define _SPANDSP_SUPER_TONE_TX_H_ /*! \page super_tone_tx_page Supervisory tone generation \section super_tone_tx_page_sec_1 What does it do? The supervisory tone generator may be configured to generate most of the world's telephone supervisory tones - things like ringback, busy, number unobtainable, and so on. It uses tree structure tone descriptions, which can deal with quite complex cadence patterns. \section super_tone_tx_page_sec_2 How does it work? */ typedef struct super_tone_tx_step_s super_tone_tx_step_t; typedef struct super_tone_tx_state_s super_tone_tx_state_t; #if defined(__cplusplus) extern "C" { #endif SPAN_DECLARE(super_tone_tx_step_t *) super_tone_tx_make_step(super_tone_tx_step_t *s, float f1, float l1, float f2, float l2, int length, int cycles); SPAN_DECLARE(int) super_tone_tx_free_tone(super_tone_tx_step_t *s); /*! Initialise a supervisory tone generator. \brief Initialise a supervisory tone generator. \param s The supervisory tone generator context. \param tree The supervisory tone tree to be generated. \return The supervisory tone generator context. */ SPAN_DECLARE(super_tone_tx_state_t *) super_tone_tx_init(super_tone_tx_state_t *s, super_tone_tx_step_t *tree); SPAN_DECLARE(int) super_tone_tx_release(super_tone_tx_state_t *s); SPAN_DECLARE(int) super_tone_tx_free(super_tone_tx_state_t *s); /*! Generate a block of audio samples for a supervisory tone pattern. \brief Generate a block of audio samples for a supervisory tone pattern. \param s The supervisory tone context. \param amp The audio sample buffer. \param max_samples The maximum number of samples to be generated. \return The number of samples generated. */ SPAN_DECLARE(int) super_tone_tx(super_tone_tx_state_t *s, int16_t amp[], int max_samples); #if defined(__cplusplus) } #endif #endif /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/spandsp/t38_gateway.h0000664000175000017500000002275611422612264017362 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * t38_gateway.h - A T.38, less the packet exchange part * * Written by Steve Underwood * * Copyright (C) 2005, 2006, 2007 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \file */ #if !defined(_SPANDSP_T38_GATEWAY_H_) #define _SPANDSP_T38_GATEWAY_H_ /*! \page t38_gateway_page T.38 real time FAX over IP PSTN gateway \section t38_gateway_page_sec_1 What does it do? The T.38 gateway facility provides a robust interface between T.38 IP packet streams and and 8k samples/second audio streams. It provides the buffering and flow control features needed to maximum the tolerance of jitter and packet loss on the IP network. \section t38_gateway_page_sec_2 How does it work? */ /*! The receive buffer length */ #define T38_RX_BUF_LEN 2048 /*! The number of HDLC transmit buffers */ #define T38_TX_HDLC_BUFS 256 /*! The maximum length of an HDLC frame buffer. This must be big enough for ECM frames. */ #define T38_MAX_HDLC_LEN 260 typedef struct t38_gateway_state_s t38_gateway_state_t; /*! T.30 real time frame handler. \brief T.30 real time frame handler. \param s The T.30 context. \param user_data An opaque pointer. \param direction TRUE for incoming, FALSE for outgoing. \param msg The HDLC message. \param len The length of the message. */ typedef void (t38_gateway_real_time_frame_handler_t)(t38_gateway_state_t *s, void *user_data, int direction, const uint8_t *msg, int len); /*! T.38 gateway results. */ typedef struct { /*! \brief The current bit rate for image transfer. */ int bit_rate; /*! \brief TRUE if error correcting mode is used. */ int error_correcting_mode; /*! \brief The number of pages transferred so far. */ int pages_transferred; } t38_stats_t; #if defined(__cplusplus) extern "C" { #endif /*! \brief Initialise a gateway mode T.38 context. \param s The T.38 context. \param tx_packet_handler A callback routine to encapsulate and transmit T.38 packets. \param tx_packet_user_data An opaque pointer passed to the tx_packet_handler routine. \return A pointer to the termination mode T.38 context, or NULL if there was a problem. */ SPAN_DECLARE(t38_gateway_state_t *) t38_gateway_init(t38_gateway_state_t *s, t38_tx_packet_handler_t *tx_packet_handler, void *tx_packet_user_data); /*! Release a gateway mode T.38 context. \brief Release a T.38 context. \param s The T.38 context. \return 0 for OK, else -1. */ SPAN_DECLARE(int) t38_gateway_release(t38_gateway_state_t *s); /*! Free a gateway mode T.38 context. \brief Free a T.38 context. \param s The T.38 context. \return 0 for OK, else -1. */ SPAN_DECLARE(int) t38_gateway_free(t38_gateway_state_t *s); /*! Process a block of received FAX audio samples. \brief Process a block of received FAX audio samples. \param s The T.38 context. \param amp The audio sample buffer. \param len The number of samples in the buffer. \return The number of samples unprocessed. */ SPAN_DECLARE_NONSTD(int) t38_gateway_rx(t38_gateway_state_t *s, int16_t amp[], int len); /*! Apply fake processing when a block of audio samples is missing (e.g due to packet loss). \brief Apply fake received audio processing. \param s The T.38 context. \param len The number of samples to fake. \return The number of samples unprocessed. This should only be non-zero if the software has reached the end of the FAX call. */ SPAN_DECLARE_NONSTD(int) t38_gateway_rx_fillin(t38_gateway_state_t *s, int len); /*! Generate a block of FAX audio samples. \brief Generate a block of FAX audio samples. \param s The T.38 context. \param amp The audio sample buffer. \param max_len The number of samples to be generated. \return The number of samples actually generated. */ SPAN_DECLARE_NONSTD(int) t38_gateway_tx(t38_gateway_state_t *s, int16_t amp[], int max_len); /*! Control whether error correcting mode (ECM) is allowed. \brief Control whether error correcting mode (ECM) is allowed. \param s The T.38 context. \param ecm_allowed TRUE is ECM is to be allowed. */ SPAN_DECLARE(void) t38_gateway_set_ecm_capability(t38_gateway_state_t *s, int ecm_allowed); /*! Select whether silent audio will be sent when transmit is idle. \brief Select whether silent audio will be sent when transmit is idle. \param s The T.38 context. \param transmit_on_idle TRUE if silent audio should be output when the FAX transmitter is idle. FALSE to transmit zero length audio when the FAX transmitter is idle. The default behaviour is FALSE. */ SPAN_DECLARE(void) t38_gateway_set_transmit_on_idle(t38_gateway_state_t *s, int transmit_on_idle); /*! Specify which modem types are supported by a T.30 context. \brief Specify supported modems. \param s The T.38 context. \param supported_modems Bit field list of the supported modems. */ SPAN_DECLARE(void) t38_gateway_set_supported_modems(t38_gateway_state_t *s, int supported_modems); /*! Select whether NSC, NSF, and NSS should be suppressed. It selected, the contents of these messages are forced to zero for all octets beyond the message type. This makes them look like manufacturer specific messages, from a manufacturer which does not exist. \brief Select whether NSC, NSF, and NSS should be suppressed. \param s The T.38 context. \param from_t38 A string of bytes to overwrite the header of any NSC, NSF, and NSS frames passing through the gateway from T.38 the the modem. \param from_t38_len The length of the overwrite string. \param from_modem A string of bytes to overwrite the header of any NSC, NSF, and NSS frames passing through the gateway from the modem to T.38. \param from_modem_len The length of the overwrite string. */ SPAN_DECLARE(void) t38_gateway_set_nsx_suppression(t38_gateway_state_t *s, const uint8_t *from_t38, int from_t38_len, const uint8_t *from_modem, int from_modem_len); /*! Select whether talker echo protection tone will be sent for the image modems. \brief Select whether TEP will be sent for the image modems. \param s The T.38 context. \param use_tep TRUE if TEP should be sent. */ SPAN_DECLARE(void) t38_gateway_set_tep_mode(t38_gateway_state_t *s, int use_tep); /*! Select whether non-ECM fill bits are to be removed during transmission. \brief Select whether non-ECM fill bits are to be removed during transmission. \param s The T.38 context. \param remove TRUE if fill bits are to be removed. */ SPAN_DECLARE(void) t38_gateway_set_fill_bit_removal(t38_gateway_state_t *s, int remove); /*! Get the current transfer statistics for the current T.38 session. \brief Get the current transfer statistics. \param s The T.38 context. \param t A pointer to a buffer for the statistics. */ SPAN_DECLARE(void) t38_gateway_get_transfer_statistics(t38_gateway_state_t *s, t38_stats_t *t); /*! Get a pointer to the T.38 core IFP packet engine associated with a gateway mode T.38 context. \brief Get a pointer to the T.38 core IFP packet engine associated with a T.38 context. \param s The T.38 context. \return A pointer to the T.38 core context, or NULL. */ SPAN_DECLARE(t38_core_state_t *) t38_gateway_get_t38_core_state(t38_gateway_state_t *s); /*! Get a pointer to the logging context associated with a T.38 context. \brief Get a pointer to the logging context associated with a T.38 context. \param s The T.38 context. \return A pointer to the logging context, or NULL. */ SPAN_DECLARE(logging_state_t *) t38_gateway_get_logging_state(t38_gateway_state_t *s); /*! Set a callback function for T.30 frame exchange monitoring. This is called from the heart of the signal processing, so don't take too long in the handler routine. \brief Set a callback function for T.30 frame exchange monitoring. \param s The T.30 context. \param handler The callback function. \param user_data An opaque pointer passed to the callback function. */ SPAN_DECLARE(void) t38_gateway_set_real_time_frame_handler(t38_gateway_state_t *s, t38_gateway_real_time_frame_handler_t *handler, void *user_data); #if defined(__cplusplus) } #endif #endif /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/spandsp/v18.h0000664000175000017500000001247411422612265015636 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * v18.h - V.18 text telephony for the deaf. * * Written by Steve Underwood * * Copyright (C) 2004-2009 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \file */ /*! \page v18_page The V.18 text telephony protocols \section v18_page_sec_1 What does it do? \section v18_page_sec_2 How does it work? */ #if !defined(_SPANDSP_V18_H_) #define _SPANDSP_V18_H_ typedef struct v18_state_s v18_state_t; enum { V18_MODE_NONE = 0, /* V.18 Annex A - Weitbrecht TDD at 45.45bps, half-duplex, 5 bit baudot. */ V18_MODE_5BIT_45 = 1, /* V.18 Annex A - Weitbrecht TDD at 50bps, half-duplex, 5 bit baudot. */ V18_MODE_5BIT_50 = 2, /* V.18 Annex B - DTMF encoding of ASCII. */ V18_MODE_DTMF = 3, /* V.18 Annex C - EDT 110bps, V.21, half-duplex, ASCII. */ V18_MODE_EDT = 4, /* V.18 Annex D - 300bps, Bell 103, duplex, ASCII. */ V18_MODE_BELL103 = 5, /* V.18 Annex E - 1200bps Videotex terminals, ASCII. */ V18_MODE_V23VIDEOTEX = 6, /* V.18 Annex F - V.21 text telephone, V.21, duplex, ASCII. */ V18_MODE_V21TEXTPHONE = 7, /* V.18 Annex G - V.18 text telephone mode. */ V18_MODE_V18TEXTPHONE = 8 }; #if defined(__cplusplus) extern "C" { #endif SPAN_DECLARE(logging_state_t *) v18_get_logging_state(v18_state_t *s); /*! Initialise a V.18 context. \brief Initialise a V.18 context. \param s The V.18 context. \param calling_party TRUE if caller mode, else answerer mode. \param mode Mode of operation. \param put_msg A callback routine called to deliver the received text to the application. \param user_data An opaque pointer for the callback routine. \return A pointer to the V.18 context, or NULL if there was a problem. */ SPAN_DECLARE(v18_state_t *) v18_init(v18_state_t *s, int calling_party, int mode, put_msg_func_t put_msg, void *user_data); /*! Release a V.18 context. \brief Release a V.18 context. \param s The V.18 context. \return 0 for OK. */ SPAN_DECLARE(int) v18_release(v18_state_t *s); /*! Free a V.18 context. \brief Release a V.18 context. \param s The V.18 context. \return 0 for OK. */ SPAN_DECLARE(int) v18_free(v18_state_t *s); /*! Generate a block of V.18 audio samples. \brief Generate a block of V.18 audio samples. \param s The V.18 context. \param amp The audio sample buffer. \param max_len The number of samples to be generated. \return The number of samples actually generated. */ SPAN_DECLARE_NONSTD(int) v18_tx(v18_state_t *s, int16_t amp[], int max_len); /*! Process a block of received V.18 audio samples. \brief Process a block of received V.18 audio samples. \param s The V.18 context. \param amp The audio sample buffer. \param len The number of samples in the buffer. */ SPAN_DECLARE_NONSTD(int) v18_rx(v18_state_t *s, const int16_t amp[], int len); /*! \brief Put a string to a V.18 context's input buffer. \param s The V.18 context. \param msg The string to be added. \param len The length of the string. If negative, the string is assumed to be a NULL terminated string. \return The number of characters actually added. This may be less than the length of the digit string, if the buffer fills up. If the string is invalid, this function will return -1. */ SPAN_DECLARE(int) v18_put(v18_state_t *s, const char msg[], int len); /*! Convert a text string to a V.18 DTMF string. \brief Convert a text string to a V.18 DTMF string. \param s The V.18 context. \param dtmf The resulting DTMF string. \param msg The text string to be converted. \return The length of the DTMF string. */ SPAN_DECLARE(int) v18_encode_dtmf(v18_state_t *s, char dtmf[], const char msg[]); /*! Convert a V.18 DTMF string to a text string. \brief Convert a V.18 DTMF string to a text string. \param s The V.18 context. \param msg The resulting test string. \param dtmf The DTMF string to be converted. \return The length of the text string. */ SPAN_DECLARE(int) v18_decode_dtmf(v18_state_t *s, char msg[], const char dtmf[]); SPAN_DECLARE(uint16_t) v18_encode_baudot(v18_state_t *s, uint8_t ch); SPAN_DECLARE(uint8_t) v18_decode_baudot(v18_state_t *s, uint8_t ch); /*! \brief Return a short name for an V.18 mode \param mode The code for the V.18 mode. \return A pointer to the name. */ SPAN_DECLARE(const char *) v18_mode_to_str(int mode); #if defined(__cplusplus) } #endif #endif /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/spandsp/bit_operations.h0000664000175000017500000002061711422612263020235 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * bit_operations.h - Various bit level operations, such as bit reversal * * Written by Steve Underwood * * Copyright (C) 2006 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \file */ #if !defined(_SPANDSP_BIT_OPERATIONS_H_) #define _SPANDSP_BIT_OPERATIONS_H_ #if defined(__i386__) || defined(__x86_64__) #if !defined(__SUNPRO_C) || (__SUNPRO_C >= 0x0590) #define SPANDSP_USE_86_ASM #endif #endif #if defined(__cplusplus) extern "C" { #endif /*! \brief Find the bit position of the highest set bit in a word \param bits The word to be searched \return The bit number of the highest set bit, or -1 if the word is zero. */ static __inline__ int top_bit(unsigned int bits) { #if defined(SPANDSP_USE_86_ASM) int res; __asm__ (" xorl %[res],%[res];\n" " decl %[res];\n" " bsrl %[bits],%[res]\n" : [res] "=&r" (res) : [bits] "rm" (bits)); return res; #elif defined(__ppc__) || defined(__powerpc__) int res; __asm__ ("cntlzw %[res],%[bits];\n" : [res] "=&r" (res) : [bits] "r" (bits)); return 31 - res; #elif defined(_M_IX86) /* Visual Studio i386 */ __asm { xor eax, eax dec eax bsr eax, bits } #elif defined(_M_X64) /* Visual Studio x86_64 */ /* TODO: Need the appropriate x86_64 code */ int res; if (bits == 0) return -1; res = 0; if (bits & 0xFFFF0000) { bits &= 0xFFFF0000; res += 16; } if (bits & 0xFF00FF00) { bits &= 0xFF00FF00; res += 8; } if (bits & 0xF0F0F0F0) { bits &= 0xF0F0F0F0; res += 4; } if (bits & 0xCCCCCCCC) { bits &= 0xCCCCCCCC; res += 2; } if (bits & 0xAAAAAAAA) { bits &= 0xAAAAAAAA; res += 1; } return res; #else int res; if (bits == 0) return -1; res = 0; if (bits & 0xFFFF0000) { bits &= 0xFFFF0000; res += 16; } if (bits & 0xFF00FF00) { bits &= 0xFF00FF00; res += 8; } if (bits & 0xF0F0F0F0) { bits &= 0xF0F0F0F0; res += 4; } if (bits & 0xCCCCCCCC) { bits &= 0xCCCCCCCC; res += 2; } if (bits & 0xAAAAAAAA) { bits &= 0xAAAAAAAA; res += 1; } return res; #endif } /*- End of function --------------------------------------------------------*/ /*! \brief Find the bit position of the lowest set bit in a word \param bits The word to be searched \return The bit number of the lowest set bit, or -1 if the word is zero. */ static __inline__ int bottom_bit(unsigned int bits) { int res; #if defined(SPANDSP_USE_86_ASM) __asm__ (" xorl %[res],%[res];\n" " decl %[res];\n" " bsfl %[bits],%[res]\n" : [res] "=&r" (res) : [bits] "rm" (bits)); return res; #else if (bits == 0) return -1; res = 31; if (bits & 0x0000FFFF) { bits &= 0x0000FFFF; res -= 16; } if (bits & 0x00FF00FF) { bits &= 0x00FF00FF; res -= 8; } if (bits & 0x0F0F0F0F) { bits &= 0x0F0F0F0F; res -= 4; } if (bits & 0x33333333) { bits &= 0x33333333; res -= 2; } if (bits & 0x55555555) { bits &= 0x55555555; res -= 1; } return res; #endif } /*- End of function --------------------------------------------------------*/ /*! \brief Bit reverse a byte. \param data The byte to be reversed. \return The bit reversed version of data. */ static __inline__ uint8_t bit_reverse8(uint8_t x) { #if defined(__i386__) || defined(__x86_64__) || defined(__ppc__) || defined(__powerpc__) /* If multiply is fast */ return ((x*0x0802U & 0x22110U) | (x*0x8020U & 0x88440U))*0x10101U >> 16; #else /* If multiply is slow, but we have a barrel shifter */ x = (x >> 4) | (x << 4); x = ((x & 0xCC) >> 2) | ((x & 0x33) << 2); return ((x & 0xAA) >> 1) | ((x & 0x55) << 1); #endif } /*- End of function --------------------------------------------------------*/ /*! \brief Bit reverse a 16 bit word. \param data The word to be reversed. \return The bit reversed version of data. */ SPAN_DECLARE(uint16_t) bit_reverse16(uint16_t data); /*! \brief Bit reverse a 32 bit word. \param data The word to be reversed. \return The bit reversed version of data. */ SPAN_DECLARE(uint32_t) bit_reverse32(uint32_t data); /*! \brief Bit reverse each of the four bytes in a 32 bit word. \param data The word to be reversed. \return The bit reversed version of data. */ SPAN_DECLARE(uint32_t) bit_reverse_4bytes(uint32_t data); #if defined(__x86_64__) /*! \brief Bit reverse each of the eight bytes in a 64 bit word. \param data The word to be reversed. \return The bit reversed version of data. */ SPAN_DECLARE(uint64_t) bit_reverse_8bytes(uint64_t data); #endif /*! \brief Bit reverse each bytes in a buffer. \param to The buffer to place the reversed data in. \param from The buffer containing the data to be reversed. \param len The length of the data in the buffer. */ SPAN_DECLARE(void) bit_reverse(uint8_t to[], const uint8_t from[], int len); /*! \brief Find the number of set bits in a 32 bit word. \param x The word to be searched. \return The number of set bits. */ SPAN_DECLARE(int) one_bits32(uint32_t x); /*! \brief Create a mask as wide as the number in a 32 bit word. \param x The word to be searched. \return The mask. */ SPAN_DECLARE(uint32_t) make_mask32(uint32_t x); /*! \brief Create a mask as wide as the number in a 16 bit word. \param x The word to be searched. \return The mask. */ SPAN_DECLARE(uint16_t) make_mask16(uint16_t x); /*! \brief Find the least significant one in a word, and return a word with just that bit set. \param x The word to be searched. \return The word with the single set bit. */ static __inline__ uint32_t least_significant_one32(uint32_t x) { return (x & (-(int32_t) x)); } /*- End of function --------------------------------------------------------*/ /*! \brief Find the most significant one in a word, and return a word with just that bit set. \param x The word to be searched. \return The word with the single set bit. */ static __inline__ uint32_t most_significant_one32(uint32_t x) { #if defined(__i386__) || defined(__x86_64__) || defined(__ppc__) || defined(__powerpc__) return 1 << top_bit(x); #else x = make_mask32(x); return (x ^ (x >> 1)); #endif } /*- End of function --------------------------------------------------------*/ /*! \brief Find the parity of a byte. \param x The byte to be checked. \return 1 for odd, or 0 for even. */ static __inline__ int parity8(uint8_t x) { x = (x ^ (x >> 4)) & 0x0F; return (0x6996 >> x) & 1; } /*- End of function --------------------------------------------------------*/ /*! \brief Find the parity of a 16 bit word. \param x The word to be checked. \return 1 for odd, or 0 for even. */ static __inline__ int parity16(uint16_t x) { x ^= (x >> 8); x = (x ^ (x >> 4)) & 0x0F; return (0x6996 >> x) & 1; } /*- End of function --------------------------------------------------------*/ /*! \brief Find the parity of a 32 bit word. \param x The word to be checked. \return 1 for odd, or 0 for even. */ static __inline__ int parity32(uint32_t x) { x ^= (x >> 16); x ^= (x >> 8); x = (x ^ (x >> 4)) & 0x0F; return (0x6996 >> x) & 1; } /*- End of function --------------------------------------------------------*/ #if defined(__cplusplus) } #endif #endif /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/spandsp/g711.h0000664000175000017500000002463111422612264015674 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * g711.h - In line A-law and u-law conversion routines * * Written by Steve Underwood * * Copyright (C) 2001 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \file */ /*! \page g711_page A-law and mu-law handling Lookup tables for A-law and u-law look attractive, until you consider the impact on the CPU cache. If it causes a substantial area of your processor cache to get hit too often, cache sloshing will severely slow things down. The main reason these routines are slow in C, is the lack of direct access to the CPU's "find the first 1" instruction. A little in-line assembler fixes that, and the conversion routines can be faster than lookup tables, in most real world usage. A "find the first 1" instruction is available on most modern CPUs, and is a much underused feature. If an assembly language method of bit searching is not available, these routines revert to a method that can be a little slow, so the cache thrashing might not seem so bad :( Feel free to submit patches to add fast "find the first 1" support for your own favourite processor. Look up tables are used for transcoding between A-law and u-law, since it is difficult to achieve the precise transcoding procedure laid down in the G.711 specification by other means. */ #if !defined(_SPANDSP_G711_H_) #define _SPANDSP_G711_H_ /* The usual values to use on idle channels, to emulate silence */ /*! Idle value for A-law channels */ #define G711_ALAW_IDLE_OCTET 0x5D /*! Idle value for u-law channels */ #define G711_ULAW_IDLE_OCTET 0xFF enum { G711_ALAW = 0, G711_ULAW }; /*! G.711 state */ typedef struct g711_state_s g711_state_t; #if defined(__cplusplus) extern "C" { #endif /* N.B. It is tempting to use look-up tables for A-law and u-law conversion. * However, you should consider the cache footprint. * * A 64K byte table for linear to x-law and a 512 byte table for x-law to * linear sound like peanuts these days, and shouldn't an array lookup be * real fast? No! When the cache sloshes as badly as this one will, a tight * calculation may be better. The messiest part is normally finding the * segment, but a little inline assembly can fix that on an i386, x86_64 and * many other modern processors. */ /* * Mu-law is basically as follows: * * Biased Linear Input Code Compressed Code * ------------------------ --------------- * 00000001wxyza 000wxyz * 0000001wxyzab 001wxyz * 000001wxyzabc 010wxyz * 00001wxyzabcd 011wxyz * 0001wxyzabcde 100wxyz * 001wxyzabcdef 101wxyz * 01wxyzabcdefg 110wxyz * 1wxyzabcdefgh 111wxyz * * Each biased linear code has a leading 1 which identifies the segment * number. The value of the segment number is equal to 7 minus the number * of leading 0's. The quantization interval is directly available as the * four bits wxyz. * The trailing bits (a - h) are ignored. * * Ordinarily the complement of the resulting code word is used for * transmission, and so the code word is complemented before it is returned. * * For further information see John C. Bellamy's Digital Telephony, 1982, * John Wiley & Sons, pps 98-111 and 472-476. */ /* Enable the trap as per the MIL-STD */ //#define G711_ULAW_ZEROTRAP /*! Bias for u-law encoding from linear. */ #define G711_ULAW_BIAS 0x84 /*! \brief Encode a linear sample to u-law \param linear The sample to encode. \return The u-law value. */ static __inline__ uint8_t linear_to_ulaw(int linear) { uint8_t u_val; int mask; int seg; /* Get the sign and the magnitude of the value. */ if (linear >= 0) { linear = G711_ULAW_BIAS + linear; mask = 0xFF; } else { linear = G711_ULAW_BIAS - linear; mask = 0x7F; } seg = top_bit(linear | 0xFF) - 7; /* * Combine the sign, segment, quantization bits, * and complement the code word. */ if (seg >= 8) u_val = (uint8_t) (0x7F ^ mask); else u_val = (uint8_t) (((seg << 4) | ((linear >> (seg + 3)) & 0xF)) ^ mask); #if defined(G711_ULAW_ZEROTRAP) /* Optional ITU trap */ if (u_val == 0) u_val = 0x02; #endif return u_val; } /*- End of function --------------------------------------------------------*/ /*! \brief Decode an u-law sample to a linear value. \param ulaw The u-law sample to decode. \return The linear value. */ static __inline__ int16_t ulaw_to_linear(uint8_t ulaw) { int t; /* Complement to obtain normal u-law value. */ ulaw = ~ulaw; /* * Extract and bias the quantization bits. Then * shift up by the segment number and subtract out the bias. */ t = (((ulaw & 0x0F) << 3) + G711_ULAW_BIAS) << (((int) ulaw & 0x70) >> 4); return (int16_t) ((ulaw & 0x80) ? (G711_ULAW_BIAS - t) : (t - G711_ULAW_BIAS)); } /*- End of function --------------------------------------------------------*/ /* * A-law is basically as follows: * * Linear Input Code Compressed Code * ----------------- --------------- * 0000000wxyza 000wxyz * 0000001wxyza 001wxyz * 000001wxyzab 010wxyz * 00001wxyzabc 011wxyz * 0001wxyzabcd 100wxyz * 001wxyzabcde 101wxyz * 01wxyzabcdef 110wxyz * 1wxyzabcdefg 111wxyz * * For further information see John C. Bellamy's Digital Telephony, 1982, * John Wiley & Sons, pps 98-111 and 472-476. */ /*! The A-law alternate mark inversion mask */ #define G711_ALAW_AMI_MASK 0x55 /*! \brief Encode a linear sample to A-law \param linear The sample to encode. \return The A-law value. */ static __inline__ uint8_t linear_to_alaw(int linear) { int mask; int seg; if (linear >= 0) { /* Sign (bit 7) bit = 1 */ mask = G711_ALAW_AMI_MASK | 0x80; } else { /* Sign (bit 7) bit = 0 */ mask = G711_ALAW_AMI_MASK; linear = -linear - 1; } /* Convert the scaled magnitude to segment number. */ seg = top_bit(linear | 0xFF) - 7; if (seg >= 8) { if (linear >= 0) { /* Out of range. Return maximum value. */ return (uint8_t) (0x7F ^ mask); } /* We must be just a tiny step below zero */ return (uint8_t) (0x00 ^ mask); } /* Combine the sign, segment, and quantization bits. */ return (uint8_t) (((seg << 4) | ((linear >> ((seg) ? (seg + 3) : 4)) & 0x0F)) ^ mask); } /*- End of function --------------------------------------------------------*/ /*! \brief Decode an A-law sample to a linear value. \param alaw The A-law sample to decode. \return The linear value. */ static __inline__ int16_t alaw_to_linear(uint8_t alaw) { int i; int seg; alaw ^= G711_ALAW_AMI_MASK; i = ((alaw & 0x0F) << 4); seg = (((int) alaw & 0x70) >> 4); if (seg) i = (i + 0x108) << (seg - 1); else i += 8; return (int16_t) ((alaw & 0x80) ? i : -i); } /*- End of function --------------------------------------------------------*/ /*! \brief Transcode from A-law to u-law, using the procedure defined in G.711. \param alaw The A-law sample to transcode. \return The best matching u-law value. */ SPAN_DECLARE(uint8_t) alaw_to_ulaw(uint8_t alaw); /*! \brief Transcode from u-law to A-law, using the procedure defined in G.711. \param ulaw The u-law sample to transcode. \return The best matching A-law value. */ SPAN_DECLARE(uint8_t) ulaw_to_alaw(uint8_t ulaw); /*! \brief Decode from u-law or A-law to linear. \param s The G.711 context. \param amp The linear audio buffer. \param g711_data The G.711 data. \param g711_bytes The number of G.711 samples to decode. \return The number of samples of linear audio produced. */ SPAN_DECLARE(int) g711_decode(g711_state_t *s, int16_t amp[], const uint8_t g711_data[], int g711_bytes); /*! \brief Encode from linear to u-law or A-law. \param s The G.711 context. \param g711_data The G.711 data. \param amp The linear audio buffer. \param len The number of samples to encode. \return The number of G.711 samples produced. */ SPAN_DECLARE(int) g711_encode(g711_state_t *s, uint8_t g711_data[], const int16_t amp[], int len); /*! \brief Transcode between u-law and A-law. \param s The G.711 context. \param g711_out The resulting G.711 data. \param g711_in The original G.711 data. \param g711_bytes The number of G.711 samples to transcode. \return The number of G.711 samples produced. */ SPAN_DECLARE(int) g711_transcode(g711_state_t *s, uint8_t g711_out[], const uint8_t g711_in[], int g711_bytes); /*! Initialise a G.711 encode or decode context. \param s The G.711 context. \param mode The G.711 mode. \return A pointer to the G.711 context, or NULL for error. */ SPAN_DECLARE(g711_state_t *) g711_init(g711_state_t *s, int mode); /*! Release a G.711 encode or decode context. \param s The G.711 context. \return 0 for OK. */ SPAN_DECLARE(int) g711_release(g711_state_t *s); /*! Free a G.711 encode or decode context. \param s The G.711 context. \return 0 for OK. */ SPAN_DECLARE(int) g711_free(g711_state_t *s); #if defined(__cplusplus) } #endif #endif /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/spandsp/swept_tone.h0000664000175000017500000000325511422612264017403 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * swept_tone.h - Swept tone generation * * Written by Steve Underwood * * Copyright (C) 2009 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \file */ #if !defined(_SPANDSP_SWEPT_TONE_H_) #define _SPANDSP_SWEPT_TONE_H_ /*! \page swept_tone_page The swept tone generator \section swept_tone_page_sec_1 What does it do? */ typedef struct swept_tone_state_s swept_tone_state_t; #if defined(__cplusplus) extern "C" { #endif SPAN_DECLARE(swept_tone_state_t *) swept_tone_init(swept_tone_state_t *s, float start, float end, float level, int duration, int repeating); SPAN_DECLARE(int) swept_tone(swept_tone_state_t *s, int16_t amp[], int len); SPAN_DECLARE(float) swept_tone_current_frequency(swept_tone_state_t *s); SPAN_DECLARE(int) swept_tone_release(swept_tone_state_t *s); SPAN_DECLARE(int) swept_tone_free(swept_tone_state_t *s); #if defined(__cplusplus) } #endif #endif /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/spandsp/at_interpreter.h0000664000175000017500000001372111422612263020241 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * at_interpreter.h - AT command interpreter to V.251, V.252, V.253, T.31 and the 3GPP specs. * * Written by Steve Underwood * * Copyright (C) 2004, 2005, 2006 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \file */ #if !defined(_SPANDSP_AT_INTERPRETER_H_) #define _SPANDSP_AT_INTERPRETER_H_ /*! \page at_page AT command interpreter \section at_page_sec_1 What does it do? The AT interpreter module implements V.251, V.252, V.253, T.31 and various 3GPP modem control commands. \section at_page_sec_2 How does it work? */ typedef struct at_state_s at_state_t; typedef int (at_modem_control_handler_t)(at_state_t *s, void *user_data, int op, const char *num); typedef int (at_tx_handler_t)(at_state_t *s, void *user_data, const uint8_t *buf, size_t len); typedef int (at_class1_handler_t)(at_state_t *s, void *user_data, int direction, int operation, int val); enum at_rx_mode_e { AT_MODE_ONHOOK_COMMAND, AT_MODE_OFFHOOK_COMMAND, AT_MODE_CONNECTED, AT_MODE_DELIVERY, AT_MODE_HDLC, AT_MODE_STUFFED }; enum at_call_event_e { AT_CALL_EVENT_ALERTING = 1, AT_CALL_EVENT_CONNECTED, AT_CALL_EVENT_ANSWERED, AT_CALL_EVENT_BUSY, AT_CALL_EVENT_NO_DIALTONE, AT_CALL_EVENT_NO_ANSWER, AT_CALL_EVENT_HANGUP }; enum at_modem_control_operation_e { /*! Start an outgoing call. */ AT_MODEM_CONTROL_CALL, /*! Answer an incoming call. */ AT_MODEM_CONTROL_ANSWER, /*! Hangup a call. */ AT_MODEM_CONTROL_HANGUP, /*! Take the line off hook. */ AT_MODEM_CONTROL_OFFHOOK, /*! Put the line on hook. */ AT_MODEM_CONTROL_ONHOOK, /*! Control V.24 Circuit 108, "data terminal ready". */ AT_MODEM_CONTROL_DTR, /*! Control V.24 Circuit 105, "request to send". */ AT_MODEM_CONTROL_RTS, /*! Control V.24 Circuit 106, "clear to send". */ AT_MODEM_CONTROL_CTS, /*! Control V.24 Circuit 109, "receive line signal detector" (i.e. carrier detect). */ AT_MODEM_CONTROL_CAR, /*! Control V.24 Circuit 125, "ring indicator". */ AT_MODEM_CONTROL_RNG, /*! Control V.24 Circuit 107, "data set ready". */ AT_MODEM_CONTROL_DSR, /*! Set the caller ID for outgoing calls. */ AT_MODEM_CONTROL_SETID, /* The remainder of the control functions should not get past the modem, to the application. */ AT_MODEM_CONTROL_RESTART, AT_MODEM_CONTROL_DTE_TIMEOUT }; enum { AT_RESPONSE_CODE_OK = 0, AT_RESPONSE_CODE_CONNECT, AT_RESPONSE_CODE_RING, AT_RESPONSE_CODE_NO_CARRIER, AT_RESPONSE_CODE_ERROR, AT_RESPONSE_CODE_XXX, AT_RESPONSE_CODE_NO_DIALTONE, AT_RESPONSE_CODE_BUSY, AT_RESPONSE_CODE_NO_ANSWER, AT_RESPONSE_CODE_FCERROR, AT_RESPONSE_CODE_FRH3 }; /*! AT profile. */ typedef struct { /*! TRUE if character echo is enabled */ int echo; /*! TRUE if verbose reporting is enabled */ int verbose; /*! TRUE if result codes are verbose */ int result_code_format; /*! TRUE if pulse dialling is the default */ int pulse_dial; /*! ??? */ int double_escape; /*! ??? */ int adaptive_receive; /*! The state of all possible S registers */ uint8_t s_regs[100]; } at_profile_t; #if defined(__cplusplus) extern "C" { #endif SPAN_DECLARE(void) at_set_at_rx_mode(at_state_t *s, int new_mode); SPAN_DECLARE(void) at_put_response(at_state_t *s, const char *t); SPAN_DECLARE(void) at_put_numeric_response(at_state_t *s, int val); SPAN_DECLARE(void) at_put_response_code(at_state_t *s, int code); SPAN_DECLARE(void) at_reset_call_info(at_state_t *s); /*! Set the call information for an AT interpreter. \brief Set the call information for an AT interpreter. \param s The AT interpreter context. \param id . \param value . */ SPAN_DECLARE(void) at_set_call_info(at_state_t *s, char const *id, char const *value); SPAN_DECLARE(void) at_display_call_info(at_state_t *s); SPAN_DECLARE(int) at_modem_control(at_state_t *s, int op, const char *num); SPAN_DECLARE(void) at_call_event(at_state_t *s, int event); SPAN_DECLARE(void) at_interpreter(at_state_t *s, const char *cmd, int len); SPAN_DECLARE(void) at_set_class1_handler(at_state_t *s, at_class1_handler_t handler, void *user_data); /*! Initialise an AT interpreter context. \brief Initialise an AT interpreter context. \param s The AT context. \param at_tx_handler x. \param at_tx_user_data x. \param modem_control_handler x. \param modem_control_user_data x. \return A pointer to the AT context, or NULL if there was a problem. */ SPAN_DECLARE(at_state_t *) at_init(at_state_t *s, at_tx_handler_t *at_tx_handler, void *at_tx_user_data, at_modem_control_handler_t *modem_control_handler, void *modem_control_user_data); /*! Release an AT interpreter context. \brief Release an AT interpreter context. \param s The AT context. \return 0 for OK */ SPAN_DECLARE(int) at_release(at_state_t *s); /*! Free an AT interpreter context. \brief Free an AT interpreter context. \param s The AT context. \return 0 for OK */ SPAN_DECLARE(int) at_free(at_state_t *s); #if defined(__cplusplus) } #endif #endif /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/spandsp/complex.h0000664000175000017500000003023711422612263016662 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * complex.h * * Written by Steve Underwood * * Copyright (C) 2003 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \file */ /*! \page complex_page Complex number support \section complex_page_sec_1 What does it do? Complex number support is part of the C99 standard. However, support for this in C compilers is still patchy. A set of complex number feaures is provided as a "temporary" measure, until native C language complex number support is widespread. */ #if !defined(_SPANDSP_COMPLEX_H_) #define _SPANDSP_COMPLEX_H_ /*! Floating complex type. */ typedef struct { /*! \brief Real part. */ float re; /*! \brief Imaginary part. */ float im; } complexf_t; /*! Floating complex type. */ typedef struct { /*! \brief Real part. */ double re; /*! \brief Imaginary part. */ double im; } complex_t; #if defined(HAVE_LONG_DOUBLE) /*! Long double complex type. */ typedef struct { /*! \brief Real part. */ long double re; /*! \brief Imaginary part. */ long double im; } complexl_t; #endif /*! Complex integer type. */ typedef struct { /*! \brief Real part. */ int re; /*! \brief Imaginary part. */ int im; } complexi_t; /*! Complex 16 bit integer type. */ typedef struct { /*! \brief Real part. */ int16_t re; /*! \brief Imaginary part. */ int16_t im; } complexi16_t; /*! Complex 32 bit integer type. */ typedef struct { /*! \brief Real part. */ int32_t re; /*! \brief Imaginary part. */ int32_t im; } complexi32_t; #if defined(__cplusplus) extern "C" { #endif static __inline__ complexf_t complex_setf(float re, float im) { complexf_t z; z.re = re; z.im = im; return z; } /*- End of function --------------------------------------------------------*/ static __inline__ complex_t complex_set(double re, double im) { complex_t z; z.re = re; z.im = im; return z; } /*- End of function --------------------------------------------------------*/ #if defined(HAVE_LONG_DOUBLE) static __inline__ complexl_t complex_setl(long double re, long double im) { complexl_t z; z.re = re; z.im = im; return z; } /*- End of function --------------------------------------------------------*/ #endif static __inline__ complexi_t complex_seti(int re, int im) { complexi_t z; z.re = re; z.im = im; return z; } /*- End of function --------------------------------------------------------*/ static __inline__ complexi16_t complex_seti16(int16_t re, int16_t im) { complexi16_t z; z.re = re; z.im = im; return z; } /*- End of function --------------------------------------------------------*/ static __inline__ complexi32_t complex_seti32(int32_t re, int32_t im) { complexi32_t z; z.re = re; z.im = im; return z; } /*- End of function --------------------------------------------------------*/ static __inline__ complexf_t complex_addf(const complexf_t *x, const complexf_t *y) { complexf_t z; z.re = x->re + y->re; z.im = x->im + y->im; return z; } /*- End of function --------------------------------------------------------*/ static __inline__ complex_t complex_add(const complex_t *x, const complex_t *y) { complex_t z; z.re = x->re + y->re; z.im = x->im + y->im; return z; } /*- End of function --------------------------------------------------------*/ #if defined(HAVE_LONG_DOUBLE) static __inline__ complexl_t complex_addl(const complexl_t *x, const complexl_t *y) { complexl_t z; z.re = x->re + y->re; z.im = x->im + y->im; return z; } /*- End of function --------------------------------------------------------*/ #endif static __inline__ complexi_t complex_addi(const complexi_t *x, const complexi_t *y) { complexi_t z; z.re = x->re + y->re; z.im = x->im + y->im; return z; } /*- End of function --------------------------------------------------------*/ static __inline__ complexi16_t complex_addi16(const complexi16_t *x, const complexi16_t *y) { complexi16_t z; z.re = x->re + y->re; z.im = x->im + y->im; return z; } /*- End of function --------------------------------------------------------*/ static __inline__ complexi32_t complex_addi32(const complexi32_t *x, const complexi32_t *y) { complexi32_t z; z.re = x->re + y->re; z.im = x->im + y->im; return z; } /*- End of function --------------------------------------------------------*/ static __inline__ complexf_t complex_subf(const complexf_t *x, const complexf_t *y) { complexf_t z; z.re = x->re - y->re; z.im = x->im - y->im; return z; } /*- End of function --------------------------------------------------------*/ static __inline__ complex_t complex_sub(const complex_t *x, const complex_t *y) { complex_t z; z.re = x->re - y->re; z.im = x->im - y->im; return z; } /*- End of function --------------------------------------------------------*/ #if defined(HAVE_LONG_DOUBLE) static __inline__ complexl_t complex_subl(const complexl_t *x, const complexl_t *y) { complexl_t z; z.re = x->re - y->re; z.im = x->im - y->im; return z; } /*- End of function --------------------------------------------------------*/ #endif static __inline__ complexi_t complex_subi(const complexi_t *x, const complexi_t *y) { complexi_t z; z.re = x->re - y->re; z.im = x->im - y->im; return z; } /*- End of function --------------------------------------------------------*/ static __inline__ complexi16_t complex_subi16(const complexi16_t *x, const complexi16_t *y) { complexi16_t z; z.re = x->re - y->re; z.im = x->im - y->im; return z; } /*- End of function --------------------------------------------------------*/ static __inline__ complexi32_t complex_subi32(const complexi32_t *x, const complexi32_t *y) { complexi32_t z; z.re = x->re - y->re; z.im = x->im - y->im; return z; } /*- End of function --------------------------------------------------------*/ static __inline__ complexf_t complex_mulf(const complexf_t *x, const complexf_t *y) { complexf_t z; z.re = x->re*y->re - x->im*y->im; z.im = x->re*y->im + x->im*y->re; return z; } /*- End of function --------------------------------------------------------*/ static __inline__ complex_t complex_mul(const complex_t *x, const complex_t *y) { complex_t z; z.re = x->re*y->re - x->im*y->im; z.im = x->re*y->im + x->im*y->re; return z; } /*- End of function --------------------------------------------------------*/ #if defined(HAVE_LONG_DOUBLE) static __inline__ complexl_t complex_mull(const complexl_t *x, const complexl_t *y) { complexl_t z; z.re = x->re*y->re - x->im*y->im; z.im = x->re*y->im + x->im*y->re; return z; } /*- End of function --------------------------------------------------------*/ #endif static __inline__ complexi_t complex_muli(const complexi_t *x, const complexi_t *y) { complexi_t z; z.re = x->re*y->re - x->im*y->im; z.im = x->re*y->im + x->im*y->re; return z; } /*- End of function --------------------------------------------------------*/ static __inline__ complexi16_t complex_muli16(const complexi16_t *x, const complexi16_t *y) { complexi16_t z; z.re = (int16_t) ((int32_t) x->re*(int32_t) y->re - (int32_t) x->im*(int32_t) y->im); z.im = (int16_t) ((int32_t) x->re*(int32_t) y->im + (int32_t) x->im*(int32_t) y->re); return z; } /*- End of function --------------------------------------------------------*/ static __inline__ complexi16_t complex_mul_q1_15(const complexi16_t *x, const complexi16_t *y) { complexi16_t z; z.re = (int16_t) (((int32_t) x->re*(int32_t) y->re - (int32_t) x->im*(int32_t) y->im) >> 15); z.im = (int16_t) (((int32_t) x->re*(int32_t) y->im + (int32_t) x->im*(int32_t) y->re) >> 15); return z; } /*- End of function --------------------------------------------------------*/ static __inline__ complexi32_t complex_muli32i16(const complexi32_t *x, const complexi16_t *y) { complexi32_t z; z.re = x->re*(int32_t) y->re - x->im*(int32_t) y->im; z.im = x->re*(int32_t) y->im + x->im*(int32_t) y->re; return z; } /*- End of function --------------------------------------------------------*/ static __inline__ complexi32_t complex_muli32(const complexi32_t *x, const complexi32_t *y) { complexi32_t z; z.re = x->re*y->re - x->im*y->im; z.im = x->re*y->im + x->im*y->re; return z; } /*- End of function --------------------------------------------------------*/ static __inline__ complexf_t complex_divf(const complexf_t *x, const complexf_t *y) { complexf_t z; float f; f = y->re*y->re + y->im*y->im; z.re = ( x->re*y->re + x->im*y->im)/f; z.im = (-x->re*y->im + x->im*y->re)/f; return z; } /*- End of function --------------------------------------------------------*/ static __inline__ complex_t complex_div(const complex_t *x, const complex_t *y) { complex_t z; double f; f = y->re*y->re + y->im*y->im; z.re = ( x->re*y->re + x->im*y->im)/f; z.im = (-x->re*y->im + x->im*y->re)/f; return z; } /*- End of function --------------------------------------------------------*/ #if defined(HAVE_LONG_DOUBLE) static __inline__ complexl_t complex_divl(const complexl_t *x, const complexl_t *y) { complexl_t z; long double f; f = y->re*y->re + y->im*y->im; z.re = ( x->re*y->re + x->im*y->im)/f; z.im = (-x->re*y->im + x->im*y->re)/f; return z; } /*- End of function --------------------------------------------------------*/ #endif static __inline__ complexf_t complex_conjf(const complexf_t *x) { complexf_t z; z.re = x->re; z.im = -x->im; return z; } /*- End of function --------------------------------------------------------*/ static __inline__ complex_t complex_conj(const complex_t *x) { complex_t z; z.re = x->re; z.im = -x->im; return z; } /*- End of function --------------------------------------------------------*/ #if defined(HAVE_LONG_DOUBLE) static __inline__ complexl_t complex_conjl(const complexl_t *x) { complexl_t z; z.re = x->re; z.im = -x->im; return z; } /*- End of function --------------------------------------------------------*/ #endif static __inline__ complexi_t complex_conji(const complexi_t *x) { complexi_t z; z.re = x->re; z.im = -x->im; return z; } /*- End of function --------------------------------------------------------*/ static __inline__ complexi16_t complex_conji16(const complexi16_t *x) { complexi16_t z; z.re = x->re; z.im = -x->im; return z; } /*- End of function --------------------------------------------------------*/ static __inline__ complexi32_t complex_conji32(const complexi32_t *x) { complexi32_t z; z.re = x->re; z.im = -x->im; return z; } /*- End of function --------------------------------------------------------*/ static __inline__ float powerf(const complexf_t *x) { return x->re*x->re + x->im*x->im; } /*- End of function --------------------------------------------------------*/ static __inline__ double power(const complex_t *x) { return x->re*x->re + x->im*x->im; } /*- End of function --------------------------------------------------------*/ #if defined(HAVE_LONG_DOUBLE) static __inline__ long double powerl(const complexl_t *x) { return x->re*x->re + x->im*x->im; } /*- End of function --------------------------------------------------------*/ #endif #if defined(__cplusplus) } #endif #endif /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/spandsp/async.h0000664000175000017500000002042311422612263016324 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * async.h - Asynchronous serial bit stream encoding and decoding * * Written by Steve Underwood * * Copyright (C) 2003 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \file */ /*! \page async_page Asynchronous bit stream processing \section async_page_sec_1 What does it do? The asynchronous serial bit stream processing module provides generation and decoding facilities for most asynchronous data formats. It supports: - 1 or 2 stop bits. - Odd, even or no parity. - 5, 6, 7, or 8 bit characters. - V.14 rate adaption. The input to this module is a bit stream. This means any symbol synchronisation and decoding must occur before data is fed to this module. \section async_page_sec_2 The transmitter ???. \section async_page_sec_3 The receiver ???. */ #if !defined(_SPANDSP_ASYNC_H_) #define _SPANDSP_ASYNC_H_ /*! Special "bit" values for the bitstream put and get functions, and the signal status functions. */ enum { /*! \brief The carrier signal has dropped. */ SIG_STATUS_CARRIER_DOWN = -1, /*! \brief The carrier signal is up. This merely indicates that carrier energy has been seen. It is not an indication that the carrier is either valid, or of the expected type. */ SIG_STATUS_CARRIER_UP = -2, /*! \brief The modem is training. This is an early indication that the signal seems to be of the right type. This may be needed in time critical applications, like T.38, to forward an early indication of what is happening on the wire. */ SIG_STATUS_TRAINING_IN_PROGRESS = -3, /*! \brief The modem has trained, and is ready for data exchange. */ SIG_STATUS_TRAINING_SUCCEEDED = -4, /*! \brief The modem has failed to train. */ SIG_STATUS_TRAINING_FAILED = -5, /*! \brief Packet framing (e.g. HDLC framing) is OK. */ SIG_STATUS_FRAMING_OK = -6, /*! \brief The data stream has ended. */ SIG_STATUS_END_OF_DATA = -7, /*! \brief An abort signal (e.g. an HDLC abort) has been received. */ SIG_STATUS_ABORT = -8, /*! \brief A break signal (e.g. an async break) has been received. */ SIG_STATUS_BREAK = -9, /*! \brief A modem has completed its task, and shut down. */ SIG_STATUS_SHUTDOWN_COMPLETE = -10, /*! \brief Regular octet report for things like HDLC to the MTP standards. */ SIG_STATUS_OCTET_REPORT = -11, /*! \brief Notification that a modem has detected signal quality degradation. */ SIG_STATUS_POOR_SIGNAL_QUALITY = -12, /*! \brief Notification that a modem retrain has occurred. */ SIG_STATUS_MODEM_RETRAIN_OCCURRED = -13 }; /*! Message put function for data pumps */ typedef void (*put_msg_func_t)(void *user_data, const uint8_t *msg, int len); /*! Message get function for data pumps */ typedef int (*get_msg_func_t)(void *user_data, uint8_t *msg, int max_len); /*! Byte put function for data pumps */ typedef void (*put_byte_func_t)(void *user_data, int byte); /*! Byte get function for data pumps */ typedef int (*get_byte_func_t)(void *user_data); /*! Bit put function for data pumps */ typedef void (*put_bit_func_t)(void *user_data, int bit); /*! Bit get function for data pumps */ typedef int (*get_bit_func_t)(void *user_data); /*! Completion callback function for tx data pumps */ typedef void (*modem_tx_status_func_t)(void *user_data, int status); /*! Completion callback function for rx data pumps */ typedef void (*modem_rx_status_func_t)(void *user_data, int status); enum { /*! No parity bit should be used */ ASYNC_PARITY_NONE = 0, /*! An even parity bit will exist, after the data bits */ ASYNC_PARITY_EVEN, /*! An odd parity bit will exist, after the data bits */ ASYNC_PARITY_ODD }; /*! Asynchronous data transmit descriptor. This defines the state of a single working instance of a byte to asynchronous serial converter, for use in FSK modems. */ typedef struct async_tx_state_s async_tx_state_t; /*! Asynchronous data receive descriptor. This defines the state of a single working instance of an asynchronous serial to byte converter, for use in FSK modems. */ typedef struct async_rx_state_s async_rx_state_t; #if defined(__cplusplus) extern "C" { #endif /*! Convert a signal status to a short text description. \brief Convert a signal status to a short text description. \param status The modem signal status. \return A pointer to the description. */ SPAN_DECLARE(const char *) signal_status_to_str(int status); /*! Initialise an asynchronous data transmit context. \brief Initialise an asynchronous data transmit context. \param s The transmitter context. \param data_bits The number of data bit. \param parity_bits The type of parity. \param stop_bits The number of stop bits. \param use_v14 TRUE if V.14 rate adaption processing should be used. \param get_byte The callback routine used to get the data to be transmitted. \param user_data An opaque pointer. \return A pointer to the initialised context, or NULL if there was a problem. */ SPAN_DECLARE(async_tx_state_t *) async_tx_init(async_tx_state_t *s, int data_bits, int parity_bits, int stop_bits, int use_v14, get_byte_func_t get_byte, void *user_data); SPAN_DECLARE(int) async_tx_release(async_tx_state_t *s); SPAN_DECLARE(int) async_tx_free(async_tx_state_t *s); /*! Get the next bit of a transmitted serial bit stream. \brief Get the next bit of a transmitted serial bit stream. \param user_data An opaque point which must point to a transmitter context. \return the next bit, or PUTBIT_END_OF_DATA to indicate the data stream has ended. */ SPAN_DECLARE_NONSTD(int) async_tx_get_bit(void *user_data); /*! Initialise an asynchronous data receiver context. \brief Initialise an asynchronous data receiver context. \param s The receiver context. \param data_bits The number of data bits. \param parity_bits The type of parity. \param stop_bits The number of stop bits. \param use_v14 TRUE if V.14 rate adaption processing should be used. \param put_byte The callback routine used to put the received data. \param user_data An opaque pointer. \return A pointer to the initialised context, or NULL if there was a problem. */ SPAN_DECLARE(async_rx_state_t *) async_rx_init(async_rx_state_t *s, int data_bits, int parity_bits, int stop_bits, int use_v14, put_byte_func_t put_byte, void *user_data); SPAN_DECLARE(int) async_rx_release(async_rx_state_t *s); SPAN_DECLARE(int) async_rx_free(async_rx_state_t *s); /*! Accept a bit from a received serial bit stream \brief Accept a bit from a received serial bit stream \param user_data An opaque point which must point to a receiver context. \param bit The new bit. Some special values are supported for this field. - SIG_STATUS_CARRIER_UP - SIG_STATUS_CARRIER_DOWN - SIG_STATUS_TRAINING_SUCCEEDED - SIG_STATUS_TRAINING_FAILED - SIG_STATUS_END_OF_DATA */ SPAN_DECLARE_NONSTD(void) async_rx_put_bit(void *user_data, int bit); #if defined(__cplusplus) } #endif #endif /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/spandsp/t30.h0000664000175000017500000007330311430006315015614 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * t30.h - definitions for T.30 fax processing * * Written by Steve Underwood * * Copyright (C) 2003 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \file */ #if !defined(_SPANDSP_T30_H_) #define _SPANDSP_T30_H_ /*! \page t30_page T.30 FAX protocol handling \section t30_page_sec_1 What does it do? The T.30 protocol is the core protocol used for FAX transmission. This module implements most of its key featrues. It does not interface to the outside work. Seperate modules do that for T.38, analogue line, and other forms of FAX communication. Current features of this module include: - FAXing to and from multi-page TIFF/F files, whose images are one of the standard FAX sizes. - V.27ter, V.29 and V.17 modes (2400bps, to 14,400bps). - T.4 1D (MH), T.4 2D,(MR) and T.6 (MMR) compression. - Error correction mode (ECM). - All standard horizonal resolutions (R8, R16, 300dpi, 600dpi, 800dpi, 1200dpi). - All standard vertical resolutions (standard, fine, superfine, 300dpi, 600dpi, 800dpi, 1200dpi). - All standard page widths (A4, B4, A3). - All standard page lengths (A4, B4, North American letter, North American legal, continuous). - Monitoring and sending identifier strings (CSI, TSI, and CIG). - Monitoring and sending sub-address strings (SUB). - Monitoring and sending polling sub-addresses (SEP). - Monitoring and sending polled sub-addresses (PSA). - Monitoring and sending sender identifications (SID). - Monitoring and sending passwords (PWD). - Monitoring of non-standard facility frames (NSF, NSC, and NSS). - Sending custom non-standard facility frames (NSF, NSC, and NSS). - Analogue modem and T.38 operation. \section t30_page_sec_2 How does it work? Some of the following is paraphrased from some notes found a while ago on the Internet. I cannot remember exactly where they came from, but they are useful. \subsection t30_page_sec_2a The answer (CED) tone The T.30 standard says an answering fax device must send CED (a 2100Hz tone) for approximately 3 seconds before sending the first handshake message. Some machines send an 1100Hz or 1850Hz tone, and some send no tone at all. In fact, this answer tone is so unpredictable, it cannot really be used. It should, however, always be generated according to the specification. \subsection t30_page_sec_2b Common Timing Deviations The T.30 spec. specifies a number of time-outs. For example, after dialing a number, a calling fax system should listen for a response for 35 seconds before giving up. These time-out periods are as follows: - T1 - 35+-5s: the maximum time for which two fax system will attempt to identify each other - T2 - 6+-1s: a time-out used to start the sequence for changing transmit parameters - T3 - 10+-5s: a time-out used in handling operator interrupts - T5 - 60+-5s: a time-out used in error correction mode These time-outs are sometimes misinterpreted. In addition, they are routinely ignored, sometimes with good reason. For example, after placing a call, the calling fax system is supposed to wait for 35 seconds before giving up. If the answering unit does not answer on the first ring or if a voice answering machine is connected to the line, or if there are many delays through the network, the delay before answer can be much longer than 35 seconds. Fax units that support error correction mode (ECM) can respond to a post-image handshake message with a receiver not ready (RNR) message. The calling unit then queries the receiving fax unit with a receiver ready (RR) message. If the answering unit is still busy (printing for example), it will repeat the RNR message. According to the T.30 standard, this sequence (RR/RNR RR/RNR) can be repeated for up to the end of T5 (60+-5s). However, many fax systems ignore the time-out and will continue the sequence indefinitely, unless the user manually overrides. All the time-outs are subject to alteration, and sometimes misuse. Good T.30 implementations must do the right thing, and tolerate others doing the wrong thing. \subsection t30_page_sec_2c Variations in the inter-carrier gap T.30 specifies 75+-20ms of silence between signals using different modulation schemes. Examples are between the end of a DCS signal and the start of a TCF signal, and between the end of an image and the start of a post-image signal. Many fax systems violate this requirement, especially for the silent period between DCS and TCF. This may be stretched to well over 100ms. If this period is too long, it can interfere with handshake signal error recovery, should a packet be corrupted on the line. Systems should ensure they stay within the prescribed T.30 limits, and be tolerant of others being out of spec.. \subsection t30_page_sec_2d Other timing variations Testing is required to determine the ability of a fax system to handle variations in the duration of pauses between unacknowledged handshake message repetitions, and also in the pauses between the receipt of a handshake command and the start of a response to that command. In order to reduce the total transmission time, many fax systems start sending a response message before the end of the command has been received. \subsection t30_page_sec_2e Other deviations from the T.30 standard There are many other commonly encountered variations between machines, including: - frame sequence deviations - preamble and flag sequence variations - improper EOM usage - unusual data rate fallback sequences - common training pattern detection algorithms - image transmission deviations - use of the talker echo protect tone - image padding and short lines - RTP/RTN handshake message usage - long duration lines - nonstandard disconnect sequences - DCN usage */ /*! The maximum length of a DIS, DTC or DCS frame */ #define T30_MAX_DIS_DTC_DCS_LEN 22 /*! The maximum length of the body of an ident string */ #define T30_MAX_IDENT_LEN 20 /*! The maximum length of the user string to insert in page headers */ #define T30_MAX_PAGE_HEADER_INFO 50 typedef struct t30_state_s t30_state_t; /*! T.30 phase B callback handler. This handler can be used to process addition information available in some FAX calls, such as passwords. The callback handler can access whatever additional information might have been received, using t30_get_received_info(). \brief T.30 phase B callback handler. \param s The T.30 context. \param user_data An opaque pointer. \param result The phase B event code. \return The new status. Normally, T30_ERR_OK is returned. */ typedef int (t30_phase_b_handler_t)(t30_state_t *s, void *user_data, int result); /*! T.30 phase D callback handler. \brief T.30 phase D callback handler. \param s The T.30 context. \param user_data An opaque pointer. \param result The phase D event code. \return The new status. Normally, T30_ERR_OK is returned. */ typedef int (t30_phase_d_handler_t)(t30_state_t *s, void *user_data, int result); /*! T.30 phase E callback handler. \brief T.30 phase E callback handler. \param s The T.30 context. \param user_data An opaque pointer. \param completion_code The phase E completion code. */ typedef void (t30_phase_e_handler_t)(t30_state_t *s, void *user_data, int completion_code); /*! T.30 real time frame handler. \brief T.30 real time frame handler. \param s The T.30 context. \param user_data An opaque pointer. \param direction TRUE for incoming, FALSE for outgoing. \param msg The HDLC message. \param len The length of the message. */ typedef void (t30_real_time_frame_handler_t)(t30_state_t *s, void *user_data, int direction, const uint8_t msg[], int len); /*! T.30 document handler. \brief T.30 document handler. \param s The T.30 context. \param user_data An opaque pointer. \param result The document event code. */ typedef int (t30_document_handler_t)(t30_state_t *s, void *user_data, int status); /*! T.30 set a receive or transmit type handler. \brief T.30 set a receive or transmit type handler. \param user_data An opaque pointer. \param type The modem, tone or silence to be sent or received. \param bit_rate The bit rate of the modem to be sent or received. \param short_train TRUE if the short training sequence should be used (where one exists). \param use_hdlc FALSE for bit stream, TRUE for HDLC framing. */ typedef void (t30_set_handler_t)(void *user_data, int type, int bit_rate, int short_train, int use_hdlc); /*! T.30 send HDLC handler. \brief T.30 send HDLC handler. \param user_data An opaque pointer. \param msg The HDLC message. \param len The length of the message. */ typedef void (t30_send_hdlc_handler_t)(void *user_data, const uint8_t msg[], int len); /*! T.30 protocol completion codes, at phase E. */ enum { T30_ERR_OK = 0, /*! OK */ /* Link problems */ T30_ERR_CEDTONE, /*! The CED tone exceeded 5s */ T30_ERR_T0_EXPIRED, /*! Timed out waiting for initial communication */ T30_ERR_T1_EXPIRED, /*! Timed out waiting for the first message */ T30_ERR_T3_EXPIRED, /*! Timed out waiting for procedural interrupt */ T30_ERR_HDLC_CARRIER, /*! The HDLC carrier did not stop in a timely manner */ T30_ERR_CANNOT_TRAIN, /*! Failed to train with any of the compatible modems */ T30_ERR_OPER_INT_FAIL, /*! Operator intervention failed */ T30_ERR_INCOMPATIBLE, /*! Far end is not compatible */ T30_ERR_RX_INCAPABLE, /*! Far end is not able to receive */ T30_ERR_TX_INCAPABLE, /*! Far end is not able to transmit */ T30_ERR_NORESSUPPORT, /*! Far end cannot receive at the resolution of the image */ T30_ERR_NOSIZESUPPORT, /*! Far end cannot receive at the size of image */ T30_ERR_UNEXPECTED, /*! Unexpected message received */ /* Phase E status values returned to a transmitter */ T30_ERR_TX_BADDCS, /*! Received bad response to DCS or training */ T30_ERR_TX_BADPG, /*! Received a DCN from remote after sending a page */ T30_ERR_TX_ECMPHD, /*! Invalid ECM response received from receiver */ T30_ERR_TX_GOTDCN, /*! Received a DCN while waiting for a DIS */ T30_ERR_TX_INVALRSP, /*! Invalid response after sending a page */ T30_ERR_TX_NODIS, /*! Received other than DIS while waiting for DIS */ T30_ERR_TX_PHBDEAD, /*! Received no response to DCS, training or TCF */ T30_ERR_TX_PHDDEAD, /*! No response after sending a page */ T30_ERR_TX_T5EXP, /*! Timed out waiting for receiver ready (ECM mode) */ /* Phase E status values returned to a receiver */ T30_ERR_RX_ECMPHD, /*! Invalid ECM response received from transmitter */ T30_ERR_RX_GOTDCS, /*! DCS received while waiting for DTC */ T30_ERR_RX_INVALCMD, /*! Unexpected command after page received */ T30_ERR_RX_NOCARRIER, /*! Carrier lost during fax receive */ T30_ERR_RX_NOEOL, /*! Timed out while waiting for EOL (end Of line) */ T30_ERR_RX_NOFAX, /*! Timed out while waiting for first line */ T30_ERR_RX_T2EXPDCN, /*! Timer T2 expired while waiting for DCN */ T30_ERR_RX_T2EXPD, /*! Timer T2 expired while waiting for phase D */ T30_ERR_RX_T2EXPFAX, /*! Timer T2 expired while waiting for fax page */ T30_ERR_RX_T2EXPMPS, /*! Timer T2 expired while waiting for next fax page */ T30_ERR_RX_T2EXPRR, /*! Timer T2 expired while waiting for RR command */ T30_ERR_RX_T2EXP, /*! Timer T2 expired while waiting for NSS, DCS or MCF */ T30_ERR_RX_DCNWHY, /*! Unexpected DCN while waiting for DCS or DIS */ T30_ERR_RX_DCNDATA, /*! Unexpected DCN while waiting for image data */ T30_ERR_RX_DCNFAX, /*! Unexpected DCN while waiting for EOM, EOP or MPS */ T30_ERR_RX_DCNPHD, /*! Unexpected DCN after EOM or MPS sequence */ T30_ERR_RX_DCNRRD, /*! Unexpected DCN after RR/RNR sequence */ T30_ERR_RX_DCNNORTN, /*! Unexpected DCN after requested retransmission */ /* TIFF file problems */ T30_ERR_FILEERROR, /*! TIFF/F file cannot be opened */ T30_ERR_NOPAGE, /*! TIFF/F page not found */ T30_ERR_BADTIFF, /*! TIFF/F format is not compatible */ T30_ERR_BADPAGE, /*! TIFF/F page number tag missing */ T30_ERR_BADTAG, /*! Incorrect values for TIFF/F tags */ T30_ERR_BADTIFFHDR, /*! Bad TIFF/F header - incorrect values in fields */ T30_ERR_NOMEM, /*! Cannot allocate memory for more pages */ /* General problems */ T30_ERR_RETRYDCN, /*! Disconnected after permitted retries */ T30_ERR_CALLDROPPED, /*! The call dropped prematurely */ /* Feature negotiation issues */ T30_ERR_NOPOLL, /*! Poll not accepted */ T30_ERR_IDENT_UNACCEPTABLE, /*! Far end's ident is not acceptable */ T30_ERR_SUB_UNACCEPTABLE, /*! Far end's sub-address is not acceptable */ T30_ERR_SEP_UNACCEPTABLE, /*! Far end's selective polling address is not acceptable */ T30_ERR_PSA_UNACCEPTABLE, /*! Far end's polled sub-address is not acceptable */ T30_ERR_SID_UNACCEPTABLE, /*! Far end's sender identification is not acceptable */ T30_ERR_PWD_UNACCEPTABLE, /*! Far end's password is not acceptable */ T30_ERR_TSA_UNACCEPTABLE, /*! Far end's transmitting subscriber internet address is not acceptable */ T30_ERR_IRA_UNACCEPTABLE, /*! Far end's internet routing address is not acceptable */ T30_ERR_CIA_UNACCEPTABLE, /*! Far end's calling subscriber internet address is not acceptable */ T30_ERR_ISP_UNACCEPTABLE, /*! Far end's internet selective polling address is not acceptable */ T30_ERR_CSA_UNACCEPTABLE /*! Far end's called subscriber internet address is not acceptable */ }; /*! I/O modes for the T.30 protocol. These are allocated such that the lower 4 bits represents the variant of the modem - e.g. the particular bit rate selected. */ enum { T30_MODEM_NONE = 0, T30_MODEM_PAUSE, T30_MODEM_CED, T30_MODEM_CNG, T30_MODEM_V21, T30_MODEM_V27TER, T30_MODEM_V29, T30_MODEM_V17, T30_MODEM_V34HDX, T30_MODEM_DONE }; enum { T30_FRONT_END_SEND_STEP_COMPLETE = 0, /*! The current receive has completed. This is only needed to report an unexpected end of the receive operation, as might happen with T.38 dying. */ T30_FRONT_END_RECEIVE_COMPLETE, T30_FRONT_END_SIGNAL_PRESENT, T30_FRONT_END_SIGNAL_ABSENT, T30_FRONT_END_CED_PRESENT, T30_FRONT_END_CNG_PRESENT }; enum { /*! Support the V.27ter modem (2400, and 4800bps) for image transfer. */ T30_SUPPORT_V27TER = 0x01, /*! Support the V.29 modem (9600, and 7200bps) for image transfer. */ T30_SUPPORT_V29 = 0x02, /*! Support the V.17 modem (14400, 12000, 9600 and 7200bps) for image transfer. */ T30_SUPPORT_V17 = 0x04, /*! Support the V.34 modem (up to 33,600bps) for image transfer. */ T30_SUPPORT_V34HDX = 0x08, /*! Support the Internet aware FAX mode (no bit rate limit) for image transfer. */ T30_SUPPORT_IAF = 0x10 }; enum { /*! No compression */ T30_SUPPORT_NO_COMPRESSION = 0x01, /*! T.1 1D compression */ T30_SUPPORT_T4_1D_COMPRESSION = 0x02, /*! T.4 2D compression */ T30_SUPPORT_T4_2D_COMPRESSION = 0x04, /*! T.6 2D compression */ T30_SUPPORT_T6_COMPRESSION = 0x08, /*! T.85 monochrome JBIG compression, with fixed L0 */ T30_SUPPORT_T85_COMPRESSION = 0x10, /*! T.85 monochrome JBIG compression, with variable L0 */ T30_SUPPORT_T85_L0_COMPRESSION = 0x20, /*! T.43 colour JBIG compression */ T30_SUPPORT_T43_COMPRESSION = 0x40, /*! T.45 run length colour compression */ T30_SUPPORT_T45_COMPRESSION = 0x80, /*! T.81 + T.30 Annex E colour JPEG compression */ T30_SUPPORT_T81_COMPRESSION = 0x100, /*! T.81 + T.30 Annex K colour sYCC-JPEG compression */ T30_SUPPORT_SYCC_T81_COMPRESSION = 0x200, /*! T.88 monochrome JBIG2 compression */ T30_SUPPORT_T88_COMPRESSION = 0x400 }; enum { /*! Support standard FAX Y-resolution 98/100dpi */ T30_SUPPORT_STANDARD_RESOLUTION = 0x01, /*! Support fine FAX Y-resolution 196/200dpi */ T30_SUPPORT_FINE_RESOLUTION = 0x02, /*! Support super-fine FAX Y-resolution 392/400dpi */ T30_SUPPORT_SUPERFINE_RESOLUTION = 0x04, /*! Support half FAX X-resolution 100/102dpi */ T30_SUPPORT_R4_RESOLUTION = 0x10000, /*! Support standard FAX X-resolution 200/204dpi */ T30_SUPPORT_R8_RESOLUTION = 0x20000, /*! Support double FAX X-resolution 400dpi */ T30_SUPPORT_R16_RESOLUTION = 0x40000, /*! Support 300dpi x 300 dpi */ T30_SUPPORT_300_300_RESOLUTION = 0x100000, /*! Support 400dpi x 400 dpi */ T30_SUPPORT_400_400_RESOLUTION = 0x200000, /*! Support 600dpi x 600 dpi */ T30_SUPPORT_600_600_RESOLUTION = 0x400000, /*! Support 1200dpi x 1200 dpi */ T30_SUPPORT_1200_1200_RESOLUTION = 0x800000, /*! Support 300dpi x 600 dpi */ T30_SUPPORT_300_600_RESOLUTION = 0x1000000, /*! Support 400dpi x 800 dpi */ T30_SUPPORT_400_800_RESOLUTION = 0x2000000, /*! Support 600dpi x 1200 dpi */ T30_SUPPORT_600_1200_RESOLUTION = 0x4000000 }; enum { T30_SUPPORT_215MM_WIDTH = 0x01, T30_SUPPORT_255MM_WIDTH = 0x02, T30_SUPPORT_303MM_WIDTH = 0x04, T30_SUPPORT_UNLIMITED_LENGTH = 0x10000, T30_SUPPORT_A4_LENGTH = 0x20000, T30_SUPPORT_B4_LENGTH = 0x40000, T30_SUPPORT_US_LETTER_LENGTH = 0x80000, T30_SUPPORT_US_LEGAL_LENGTH = 0x100000 }; enum { /*! Enable support of identification, through the SID and/or PWD frames. */ T30_SUPPORT_IDENTIFICATION = 0x01, /*! Enable support of selective polling, through the SEP frame. */ T30_SUPPORT_SELECTIVE_POLLING = 0x02, /*! Enable support of polling sub-addressing, through the PSA frame. */ T30_SUPPORT_POLLED_SUB_ADDRESSING = 0x04, /*! Enable support of multiple selective polling, through repeated used of the SEP and PSA frames. */ T30_SUPPORT_MULTIPLE_SELECTIVE_POLLING = 0x08, /*! Enable support of sub-addressing, through the SUB frame. */ T30_SUPPORT_SUB_ADDRESSING = 0x10, /*! Enable support of transmitting subscriber internet address, through the TSA frame. */ T30_SUPPORT_TRANSMITTING_SUBSCRIBER_INTERNET_ADDRESS = 0x20, /*! Enable support of internet routing address, through the IRA frame. */ T30_SUPPORT_INTERNET_ROUTING_ADDRESS = 0x40, /*! Enable support of calling subscriber internet address, through the CIA frame. */ T30_SUPPORT_CALLING_SUBSCRIBER_INTERNET_ADDRESS = 0x80, /*! Enable support of internet selective polling address, through the ISP frame. */ T30_SUPPORT_INTERNET_SELECTIVE_POLLING_ADDRESS = 0x100, /*! Enable support of called subscriber internet address, through the CSA frame. */ T30_SUPPORT_CALLED_SUBSCRIBER_INTERNET_ADDRESS = 0x200, /*! Enable support of the field not valid (FNV) frame. */ T30_SUPPORT_FIELD_NOT_VALID = 0x400, /*! Enable support of the command repeat (CRP) frame. */ T30_SUPPORT_COMMAND_REPEAT = 0x800 }; enum { T30_IAF_MODE_T37 = 0x01, T30_IAF_MODE_T38 = 0x02, T30_IAF_MODE_FLOW_CONTROL = 0x04, /*! Continuous flow mode means data is sent as fast as possible, usually across the Internet, where speed is not constrained by a PSTN modem. */ T30_IAF_MODE_CONTINUOUS_FLOW = 0x08, /*! No TCF means TCF is not exchanged. The end points must sort out usable speed issues locally. */ T30_IAF_MODE_NO_TCF = 0x10, /*! No fill bits means do not insert fill bits, even if the T.30 messages request them. */ T30_IAF_MODE_NO_FILL_BITS = 0x20, /*! No indicators means do not send indicator messages when using T.38. */ T30_IAF_MODE_NO_INDICATORS = 0x40, /*! Use relaxed timers for T.38. This is appropriate when using TCP/TPKT for T.38, as there is no point in anything but a long backstop timeout in such a mode. */ T30_IAF_MODE_RELAXED_TIMERS = 0x80 }; typedef struct { /*! \brief The identifier string (CSI, TSI, CIG). */ char ident[T30_MAX_IDENT_LEN + 1]; /*! \brief The sub-address string (SUB). */ char sub_address[T30_MAX_IDENT_LEN + 1]; /*! \brief The selective polling sub-address (SEP). */ char selective_polling_address[T30_MAX_IDENT_LEN + 1]; /*! \brief The polled sub-address (PSA). */ char polled_sub_address[T30_MAX_IDENT_LEN + 1]; /*! \brief The sender identification (SID). */ char sender_ident[T30_MAX_IDENT_LEN + 1]; /*! \brief The password (PWD). */ char password[T30_MAX_IDENT_LEN + 1]; /*! \brief Non-standard facilities (NSF). */ uint8_t *nsf; size_t nsf_len; /*! \brief Non-standard facilities command (NSC). */ uint8_t *nsc; size_t nsc_len; /*! \brief Non-standard facilities set-up (NSS). */ uint8_t *nss; size_t nss_len; /*! \brief Transmitting subscriber internet address (TSA). */ int tsa_type; char *tsa; size_t tsa_len; /*! \brief Internet routing address (IRA). */ int ira_type; char *ira; size_t ira_len; /*! \brief Calling subscriber internet address (CIA). */ int cia_type; char *cia; size_t cia_len; /*! \brief Internet selective polling address (ISP). */ int isp_type; char *isp; size_t isp_len; /*! \brief Called subscriber internet address (CSA). */ int csa_type; char *csa; size_t csa_len; } t30_exchanged_info_t; typedef struct { /*! \brief The current bit rate for image transfer. */ int bit_rate; /*! \brief TRUE if error correcting mode is used. */ int error_correcting_mode; /*! \brief The number of pages sent so far. */ int pages_tx; /*! \brief The number of pages received so far. */ int pages_rx; /*! \brief The number of pages in the file (<0 if not known). */ int pages_in_file; /*! \brief The horizontal column-to-column resolution of the most recent page, in pixels per metre */ int x_resolution; /*! \brief The vertical row-to-row resolution of the most recent page, in pixels per metre */ int y_resolution; /*! \brief The number of horizontal pixels in the most recent page. */ int width; /*! \brief The number of vertical pixels in the most recent page. */ int length; /*! \brief The size of the image, in bytes */ int image_size; /*! \brief The type of compression used between the FAX machines */ int encoding; /*! \brief The number of bad pixel rows in the most recent page. */ int bad_rows; /*! \brief The largest number of bad pixel rows in a block in the most recent page. */ int longest_bad_row_run; /*! \brief The number of HDLC frame retries, if error correcting mode is used. */ int error_correcting_mode_retries; /*! \brief Current status. */ int current_status; #if 0 /*! \brief The number of RTP events in this call. */ int rtp_events; /*! \brief The number of RTN events in this call. */ int rtn_events; #endif } t30_stats_t; #if defined(__cplusplus) extern "C" { #endif /*! Initialise a T.30 context. \brief Initialise a T.30 context. \param s The T.30 context. \param calling_party TRUE if the context is for a calling party. FALSE if the context is for an answering party. \param set_rx_type_handler \param set_rx_type_user_data \param set_tx_type_handler \param set_tx_type_user_data \param send_hdlc_handler \param send_hdlc_user_data \return A pointer to the context, or NULL if there was a problem. */ SPAN_DECLARE(t30_state_t *) t30_init(t30_state_t *s, int calling_party, t30_set_handler_t *set_rx_type_handler, void *set_rx_type_user_data, t30_set_handler_t *set_tx_type_handler, void *set_tx_type_user_data, t30_send_hdlc_handler_t *send_hdlc_handler, void *send_hdlc_user_data); /*! Release a T.30 context. \brief Release a T.30 context. \param s The T.30 context. \return 0 for OK, else -1. */ SPAN_DECLARE(int) t30_release(t30_state_t *s); /*! Free a T.30 context. \brief Free a T.30 context. \param s The T.30 context. \return 0 for OK, else -1. */ SPAN_DECLARE(int) t30_free(t30_state_t *s); /*! Restart a T.30 context. \brief Restart a T.30 context. \param s The T.30 context. \return 0 for OK, else -1. */ SPAN_DECLARE(int) t30_restart(t30_state_t *s); /*! Check if a T.30 call is still active. This may be used to regularly poll if the job has finished. \brief Check if a T.30 call is still active. \param s The T.30 context. \return TRUE for call still active, or FALSE for call completed. */ SPAN_DECLARE(int) t30_call_active(t30_state_t *s); /*! Cleanup a T.30 context if the call terminates. \brief Cleanup a T.30 context if the call terminates. \param s The T.30 context. */ SPAN_DECLARE(void) t30_terminate(t30_state_t *s); /*! Inform the T.30 engine of a status change in the front end (end of tx, rx signal change, etc.). \brief Inform the T.30 engine of a status change in the front end (end of tx, rx signal change, etc.). \param user_data The T.30 context. \param status The type of status change which occured. */ SPAN_DECLARE(void) t30_front_end_status(void *user_data, int status); /*! Get a bit of received non-ECM image data. \brief Get a bit of received non-ECM image data. \param user_data An opaque pointer, which must point to the T.30 context. \return The next bit to transmit. */ SPAN_DECLARE_NONSTD(int) t30_non_ecm_get_bit(void *user_data); /*! Get a byte of received non-ECM image data. \brief Get a byte of received non-ECM image data. \param user_data An opaque pointer, which must point to the T.30 context. \return The next byte to transmit. */ SPAN_DECLARE(int) t30_non_ecm_get_byte(void *user_data); /*! Get a chunk of received non-ECM image data. \brief Get a bit of received non-ECM image data. \param user_data An opaque pointer, which must point to the T.30 context. \param buf The buffer to contain the data. \param max_len The maximum length of the chunk. \return The actual length of the chunk. */ SPAN_DECLARE(int) t30_non_ecm_get_chunk(void *user_data, uint8_t buf[], int max_len); /*! Process a bit of received non-ECM image data. \brief Process a bit of received non-ECM image data \param user_data An opaque pointer, which must point to the T.30 context. \param bit The received bit. */ SPAN_DECLARE_NONSTD(void) t30_non_ecm_put_bit(void *user_data, int bit); /*! Process a byte of received non-ECM image data. \brief Process a byte of received non-ECM image data \param user_data An opaque pointer, which must point to the T.30 context. \param byte The received byte. */ SPAN_DECLARE(void) t30_non_ecm_put_byte(void *user_data, int byte); /*! Process a chunk of received non-ECM image data. \brief Process a chunk of received non-ECM image data \param user_data An opaque pointer, which must point to the T.30 context. \param buf The buffer containing the received data. \param len The length of the data in buf. */ SPAN_DECLARE(void) t30_non_ecm_put_chunk(void *user_data, const uint8_t buf[], int len); /*! Process a received HDLC frame. \brief Process a received HDLC frame. \param user_data The T.30 context. \param msg The HDLC message. \param len The length of the message, in octets. \param ok TRUE if the frame was received without error. */ SPAN_DECLARE_NONSTD(void) t30_hdlc_accept(void *user_data, const uint8_t msg[], int len, int ok); /*! Report the passage of time to the T.30 engine. \brief Report the passage of time to the T.30 engine. \param s The T.30 context. \param samples The time change in 1/8000th second steps. */ SPAN_DECLARE(void) t30_timer_update(t30_state_t *s, int samples); /*! Get the current transfer statistics for the file being sent or received. \brief Get the current transfer statistics. \param s The T.30 context. \param t A pointer to a buffer for the statistics. */ SPAN_DECLARE(void) t30_get_transfer_statistics(t30_state_t *s, t30_stats_t *t); /*! Request a local interrupt of FAX exchange. \brief Request a local interrupt of FAX exchange. \param s The T.30 context. \param state TRUE to enable interrupt request, else FALSE. */ SPAN_DECLARE(void) t30_local_interrupt_request(t30_state_t *s, int state); /*! Allow remote interrupts of FAX exchange. \brief Allow remote interrupts of FAX exchange. \param s The T.30 context. \param state TRUE to allow interruptd, else FALSE. */ SPAN_DECLARE(void) t30_remote_interrupts_allowed(t30_state_t *s, int state); #if defined(__cplusplus) } #endif #endif /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/spandsp/t38_non_ecm_buffer.h0000664000175000017500000001416711422612264020665 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * t38_non_ecm_buffer.h - A rate adapting buffer for T.38 non-ECM image * and TCF data * * Written by Steve Underwood * * Copyright (C) 2005, 2006, 2007, 2008 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \file */ #if !defined(_SPANDSP_T38_NON_ECM_BUFFER_H_) #define _SPANDSP_T38_NON_ECM_BUFFER_H_ /*! \page t38_non_ecm_buffer_page T.38 rate adapting non-ECM image data buffer \section t38_non_ecm_buffer_page_sec_1 What does it do? The T.38 rate adapting non-ECM image data buffer is used to buffer TCF and non-ECM FAX image data being gatewayed from a T.38 link to an analogue FAX modem link. As well as rate adapting, the buffer has the ability to impose a minimum on the number of bits per row of image data. This allows any row padding zeros to be stripped from the data stream, to minimise the data sent as T.38 packets, and be reinserted before the data is sent to its final destination. Not all T.38 implementations support this feature, so it's use must be negotiated. \section t38_non_ecm_buffer_page_sec_2 How does it work? When inserting padding bits, whether to ensure a minimum row time or for flow control, it is important the right value is inserted at the right point in the data sequence. If we are in the optional initial period of all ones, we can insert a byte of extra ones at any time. Once we pass that initial stage, TCF and image data need separate handling. TCF data is all zeros. Once the period of all zeros has begun it is OK to insert additional bytes of zeros at any point. Image data consists of rows, separated by EOL (end of line) markers. Inserting zeros at arbitrary times would corrupt the image. However, it is OK to insert a considerable number of extra zeros just before an EOL. Therefore we track where the EOL markers occur as we fill the buffer. As we empty the buffer stop outputting real data, and start outputting bytes of zero, if we reach this last EOL marker location. The EOL marker is 11 zeros following by 1 (1D mode) or 2 (2D mode) ones. Therefore, it always spills across 2 bytes in the buffer, and there is always a point where we can insert our extra zeros between bytes. Padding between the group of successive EOL markers which for the RTC (return to control) marker that ends an image causes some FAX machines not to recognise them as an RTC condition. Therefore, our padding applies special protection so padding never occurs between two successive EOL markers, with no pixel data between them. */ /*! The buffer length much be a power of two. The chosen length is big enough for over 9s of data at the V.17 14,400bps rate. */ #define T38_NON_ECM_TX_BUF_LEN 16384 /*! \brief A flow controlled non-ECM image data buffer, for buffering T.38 to analogue modem data. */ typedef struct t38_non_ecm_buffer_state_s t38_non_ecm_buffer_state_t; #if defined(__cplusplus) extern "C" { #endif /*! \brief Initialise a T.38 rate adapting non-ECM buffer context. \param s The buffer context. \param mode TRUE for image data mode, or FALSE for TCF mode. \param bits The minimum number of bits per FAX image row. \return A pointer to the buffer context, or NULL if there was a problem. */ SPAN_DECLARE(t38_non_ecm_buffer_state_t *) t38_non_ecm_buffer_init(t38_non_ecm_buffer_state_t *s, int mode, int min_row_bits); SPAN_DECLARE(int) t38_non_ecm_buffer_release(t38_non_ecm_buffer_state_t *s); SPAN_DECLARE(int) t38_non_ecm_buffer_free(t38_non_ecm_buffer_state_t *s); /*! \brief Set the mode of a T.38 rate adapting non-ECM buffer context. \param s The buffer context. \param mode TRUE for image data mode, or FALSE for TCF mode. \param bits The minimum number of bits per FAX image row. */ SPAN_DECLARE(void) t38_non_ecm_buffer_set_mode(t38_non_ecm_buffer_state_t *s, int mode, int min_row_bits); /*! \brief Inject data to T.38 rate adapting non-ECM buffer context. \param s The buffer context. \param buf The data buffer to be injected. \param len The length of the data to be injected. */ SPAN_DECLARE(void) t38_non_ecm_buffer_inject(t38_non_ecm_buffer_state_t *s, const uint8_t *buf, int len); /*! \brief Inform a T.38 rate adapting non-ECM buffer context that the incoming data has finished, and the contents of the buffer should be played out as quickly as possible. \param s The buffer context. */ SPAN_DECLARE(void) t38_non_ecm_buffer_push(t38_non_ecm_buffer_state_t *s); /*! \brief Report the input status of a T.38 rate adapting non-ECM buffer context to the specified logging context. \param s The buffer context. \param logging The logging context. */ SPAN_DECLARE(void) t38_non_ecm_buffer_report_input_status(t38_non_ecm_buffer_state_t *s, logging_state_t *logging); /*! \brief Report the output status of a T.38 rate adapting non-ECM buffer context to the specified logging context. \param s The buffer context. \param logging The logging context. */ SPAN_DECLARE(void) t38_non_ecm_buffer_report_output_status(t38_non_ecm_buffer_state_t *s, logging_state_t *logging); /*! \brief Get the next bit of data from a T.38 rate adapting non-ECM buffer context. \param user_data The buffer context, cast to a void pointer. \return The next bit, or one of the values indicating a change of modem status. */ SPAN_DECLARE_NONSTD(int) t38_non_ecm_buffer_get_bit(void *user_data); #if defined(__cplusplus) } #endif #endif /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/spandsp/biquad.h0000664000175000017500000000551411422612263016460 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * biquad.h - General telephony bi-quad section routines (currently this just * handles canonic/type 2 form) * * Written by Steve Underwood * * Copyright (C) 2001 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \page biquad_page Bi-quadratic filter sections \section biquad_page_sec_1 What does it do? ???. \section biquad_page_sec_2 How does it work? ???. */ #if !defined(_SPANDSP_BIQUAD_H_) #define _SPANDSP_BIQUAD_H_ typedef struct { int32_t gain; int32_t a1; int32_t a2; int32_t b1; int32_t b2; int32_t z1; int32_t z2; #if FIRST_ORDER_NOISE_SHAPING int32_t residue; #elif SECOND_ORDER_NOISE_SHAPING int32_t residue1; int32_t residue2; #endif } biquad2_state_t; #if defined(__cplusplus) extern "C" { #endif static __inline__ void biquad2_init(biquad2_state_t *bq, int32_t gain, int32_t a1, int32_t a2, int32_t b1, int32_t b2) { bq->gain = gain; bq->a1 = a1; bq->a2 = a2; bq->b1 = b1; bq->b2 = b2; bq->z1 = 0; bq->z2 = 0; #if FIRST_ORDER_NOISE_SHAPING bq->residue = 0; #elif SECOND_ORDER_NOISE_SHAPING bq->residue1 = 0; bq->residue2 = 0; #endif } /*- End of function --------------------------------------------------------*/ static __inline__ int16_t biquad2(biquad2_state_t *bq, int16_t sample) { int32_t y; int32_t z0; z0 = sample*bq->gain + bq->z1*bq->a1 + bq->z2*bq->a2; y = z0 + bq->z1*bq->b1 + bq->z2*bq->b2; bq->z2 = bq->z1; bq->z1 = z0 >> 15; #if FIRST_ORDER_NOISE_SHAPING y += bq->residue; bq->residue = y & 0x7FFF; #elif SECOND_ORDER_NOISE_SHAPING y += (2*bq->residue1 - bq->residue2); bq->residue2 = bq->residue1; bq->residue1 = y & 0x7FFF; #endif y >>= 15; return (int16_t) y; } /*- End of function --------------------------------------------------------*/ #if defined(__cplusplus) } #endif #endif /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/spandsp/crc.h0000664000175000017500000000741711422612264015767 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * crc.h * * Written by Steve Underwood * * Copyright (C) 2003 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \file */ /*! \page crc_page CRC \section crc_page_sec_1 What does it do? \section crc_page_sec_2 How does it work? */ #if !defined(_SPANDSP_CRC_H_) #define _SPANDSP_CRC_H_ #if defined(__cplusplus) extern "C" { #endif /*! \brief Calculate the ITU/CCITT CRC-32 value in buffer. \param buf The buffer containing the data. \param len The length of the frame. \param crc The initial CRC value. This is usually 0xFFFFFFFF, or 0 for a new block (it depends on the application). It is previous returned CRC value for the continuation of a block. \return The CRC value. */ SPAN_DECLARE(uint32_t) crc_itu32_calc(const uint8_t *buf, int len, uint32_t crc); /*! \brief Append an ITU/CCITT CRC-32 value to a frame. \param buf The buffer containing the frame. This must be at least 2 bytes longer than the frame it contains, to allow room for the CRC value. \param len The length of the frame. \return The new length of the frame. */ SPAN_DECLARE(int) crc_itu32_append(uint8_t *buf, int len); /*! \brief Check the ITU/CCITT CRC-32 value in a frame. \param buf The buffer containing the frame. \param len The length of the frame. \return TRUE if the CRC is OK, else FALSE. */ SPAN_DECLARE(int) crc_itu32_check(const uint8_t *buf, int len); /*! \brief Calculate the ITU/CCITT CRC-16 value in buffer by whole bytes. \param buf The buffer containing the data. \param len The length of the frame. \param crc The initial CRC value. This is usually 0xFFFF, or 0 for a new block (it depends on the application). It is previous returned CRC value for the continuation of a block. \return The CRC value. */ SPAN_DECLARE(uint16_t) crc_itu16_calc(const uint8_t *buf, int len, uint16_t crc); /*! \brief Calculate the ITU/CCITT CRC-16 value of some bits from a byte. \param buf The buffer containing the byte of data. \param len The number of bits, starting from the LSB. \param crc The initial CRC value. This is usually 0xFFFF, or 0 for a new block (it depends on the application). It is previous returned CRC value for the continuation of a block. \return The CRC value. */ SPAN_DECLARE(uint16_t) crc_itu16_bits(uint8_t buf, int len, uint16_t crc); /*! \brief Append an ITU/CCITT CRC-16 value to a frame. \param buf The buffer containing the frame. This must be at least 2 bytes longer than the frame it contains, to allow room for the CRC value. \param len The length of the frame. \return The new length of the frame. */ SPAN_DECLARE(int) crc_itu16_append(uint8_t *buf, int len); /*! \brief Check the ITU/CCITT CRC-16 value in a frame. \param buf The buffer containing the frame. \param len The length of the frame. \return TRUE if the CRC is OK, else FALSE. */ SPAN_DECLARE(int) crc_itu16_check(const uint8_t *buf, int len); #if defined(__cplusplus) } #endif #endif /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/spandsp/awgn.h0000664000175000017500000000637111422612263016151 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * awgn.h - An additive Gaussian white noise generator * * Written by Steve Underwood * * Copyright (C) 2001 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \file */ /* This code is based on some demonstration code in a research paper somewhere. I can't track down where I got the original from, so that due recognition can be given. The original had no explicit copyright notice, and I hope nobody objects to its use here. Having a reasonable Gaussian noise generator is pretty important for telephony testing (in fact, pretty much any DSP testing), and this one seems to have served me OK. Since the generation of Gaussian noise is only for test purposes, and not a core system component, I don't intend to worry excessively about copyright issues, unless someone worries me. The non-core nature of this code also explains why it is unlikely to ever be optimised. */ #if !defined(_SPANDSP_AWGN_H_) #define _SPANDSP_AWGN_H_ /*! \page awgn_page Additive white gaussian noise (AWGN) generation \section awgn_page_sec_1 What does it do? Adding noise is not the most useful thing in most DSP applications, but it is awfully useful for test suites. \section awgn_page_sec_2 How does it work? This code is based on some demonstration code in a research paper somewhere. I can't track down where I got the original from, so that due recognition can be given. The original had no explicit copyright notice, and I hope nobody objects to its use here. Having a reasonable Gaussian noise generator is pretty important for telephony testing (in fact, pretty much any DSP testing), and this one seems to have served me OK. Since the generation of Gaussian noise is only for test purposes, and not a core system component, I don't intend to worry excessively about copyright issues, unless someone worries me. The non-core nature of this code also explains why it is unlikely to ever be optimised. */ /*! AWGN generator descriptor. This contains all the state information for an AWGN generator. */ typedef struct awgn_state_s awgn_state_t; #if defined(__cplusplus) extern "C" { #endif SPAN_DECLARE(awgn_state_t *) awgn_init_dbm0(awgn_state_t *s, int idum, float level); SPAN_DECLARE(awgn_state_t *) awgn_init_dbov(awgn_state_t *s, int idum, float level); SPAN_DECLARE(int) awgn_release(awgn_state_t *s); SPAN_DECLARE(int) awgn_free(awgn_state_t *s); SPAN_DECLARE(int16_t) awgn(awgn_state_t *s); #if defined(__cplusplus) } #endif #endif /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/spandsp/ima_adpcm.h0000664000175000017500000001000411422612264017114 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * ima_adpcm.c - Conversion routines between linear 16 bit PCM data and * IMA/DVI/Intel ADPCM format. * * Written by Steve Underwood * * Copyright (C) 2004 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. * * Based on a bit from here, a bit from there, eye of toad, * ear of bat, etc - plus, of course, my own 2 cents. */ /*! \file */ #if !defined(_SPANDSP_IMA_ADPCM_H_) #define _SPANDSP_IMA_ADPCM_H_ /*! \page ima_adpcm_page IMA/DVI/Intel ADPCM encoding and decoding \section ima_adpcm_page_sec_1 What does it do? IMA ADPCM offers a good balance of simplicity and quality at a rate of 32kbps. \section ima_adpcm_page_sec_2 How does it work? \section ima_adpcm_page_sec_3 How do I use it? */ enum { /*! IMA4 is the original IMA ADPCM variant */ IMA_ADPCM_IMA4 = 0, /*! DVI4 is the IMA ADPCM variant defined in RFC3551 */ IMA_ADPCM_DVI4 = 1, /*! VDVI is the variable bit rate IMA ADPCM variant defined in RFC3551 */ IMA_ADPCM_VDVI = 2 }; /*! IMA (DVI/Intel) ADPCM conversion state descriptor. This defines the state of a single working instance of the IMA ADPCM converter. This is used for either linear to ADPCM or ADPCM to linear conversion. */ typedef struct ima_adpcm_state_s ima_adpcm_state_t; #if defined(__cplusplus) extern "C" { #endif /*! Initialise an IMA ADPCM encode or decode context. \param s The IMA ADPCM context. \param variant IMA_ADPCM_IMA4, IMA_ADPCM_DVI4, or IMA_ADPCM_VDVI. \param chunk_size The size of a chunk, in samples. A chunk size of zero sample samples means treat each encode or decode operation as a chunk. \return A pointer to the IMA ADPCM context, or NULL for error. */ SPAN_DECLARE(ima_adpcm_state_t *) ima_adpcm_init(ima_adpcm_state_t *s, int variant, int chunk_size); /*! Release an IMA ADPCM encode or decode context. \param s The IMA ADPCM context. \return 0 for OK. */ SPAN_DECLARE(int) ima_adpcm_release(ima_adpcm_state_t *s); /*! Free an IMA ADPCM encode or decode context. \param s The IMA ADPCM context. \return 0 for OK. */ SPAN_DECLARE(int) ima_adpcm_free(ima_adpcm_state_t *s); /*! Encode a buffer of linear PCM data to IMA ADPCM. \param s The IMA ADPCM context. \param ima_data The IMA ADPCM data produced. \param amp The audio sample buffer. \param len The number of samples in the buffer. \return The number of bytes of IMA ADPCM data produced. */ SPAN_DECLARE(int) ima_adpcm_encode(ima_adpcm_state_t *s, uint8_t ima_data[], const int16_t amp[], int len); /*! Decode a buffer of IMA ADPCM data to linear PCM. \param s The IMA ADPCM context. \param amp The audio sample buffer. \param ima_data The IMA ADPCM data \param ima_bytes The number of bytes of IMA ADPCM data \return The number of samples returned. */ SPAN_DECLARE(int) ima_adpcm_decode(ima_adpcm_state_t *s, int16_t amp[], const uint8_t ima_data[], int ima_bytes); #if defined(__cplusplus) } #endif #endif /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/spandsp/t30_fcf.h0000664000175000017500000001423411422612264016437 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * t30_fcf.h - ITU T.30 fax control field definitions * * Written by Steve Underwood * * Copyright (C) 2003 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \file */ #if !defined(_SPANDSP_T30_FCF_H_) #define _SPANDSP_T30_FCF_H_ enum { /*! Initial identification messages */ /*! From the called to the calling terminal. */ T30_DIS = 0x80, /*! [0000 0001] Digital identification signal */ T30_CSI = 0x40, /*! [0000 0010] Called subscriber identification */ T30_NSF = 0x20, /*! [0000 0100] Non-standard facilities */ /*! Commands to send */ /*! From a calling terminal wishing to be a receiver, to a called terminal which is capable of transmitting. */ T30_DTC = 0x81, /*! [1000 0001] Digital transmit command */ T30_CIG = 0x41, /*! [1000 0010] Calling subscriber identification */ T30_NSC = 0x21, /*! [1000 0100] Non-standard facilities command */ T30_PWD = 0xC1, /*! [1000 0011] Password */ T30_SEP = 0xA1, /*! [1000 0101] Selective polling */ T30_PSA = 0x61, /*! [1000 0110] Polled subaddress */ T30_CIA = 0xE1, /*! [1000 0111] Calling subscriber internet address */ T30_ISP = 0x11, /*! [1000 1000] Internet selective polling address */ /*! Commands to receive */ /*! From a calling terminal wishing to be a transmitter, to a called terminal which is capable of receiving. */ T30_DCS = 0x82, /*! [X100 0001] Digital command signal */ T30_TSI = 0x42, /*! [X100 0010] Transmitting subscriber information */ T30_NSS = 0x22, /*! [X100 0100] Non-standard facilities set-up */ T30_SUB = 0xC2, /*! [X100 0011] Sub-address */ T30_SID = 0xA2, /*! [X100 0101] Sender identification */ /*! T30_TCF - Training check is a burst of 1.5s of zeros sent using the image modem */ T30_CTC = 0x12, /*! [X100 1000] Continue to correct */ T30_TSA = 0x62, /*! [X100 0110] Transmitting subscriber internet address */ T30_IRA = 0xE2, /*! [X100 0111] Internet routing address */ /*! Pre-message response signals */ /*! From the receiver to the transmitter. */ T30_CFR = 0x84, /*! [X010 0001] Confirmation to receive */ T30_FTT = 0x44, /*! [X010 0010] Failure to train */ T30_CTR = 0xC4, /*! [X010 0011] Response for continue to correct */ T30_CSA = 0x24, /*! [X010 0100] Called subscriber internet address */ /*! Post-message commands */ T30_EOM = 0x8E, /*! [X111 0001] End of message */ T30_MPS = 0x4E, /*! [X111 0010] Multipage signal */ T30_EOP = 0x2E, /*! [X111 0100] End of procedure */ T30_PRI_EOM = 0x9E, /*! [X111 1001] Procedure interrupt - end of procedure */ T30_PRI_MPS = 0x5E, /*! [X111 1010] Procedure interrupt - multipage signal */ T30_PRI_EOP = 0x3E, /*! [X111 1100] Procedure interrupt - end of procedure */ T30_EOS = 0x1E, /*! [X111 1000] End of selection */ T30_PPS = 0xBE, /*! [X111 1101] Partial page signal */ T30_EOR = 0xCE, /*! [X111 0011] End of retransmission */ T30_RR = 0x6E, /*! [X111 0110] Receiver ready */ /*! Post-message responses */ T30_MCF = 0x8C, /*! [X011 0001] Message confirmation */ T30_RTP = 0xCC, /*! [X011 0011] Retrain positive */ T30_RTN = 0x4C, /*! [X011 0010] Retrain negative */ T30_PIP = 0xAC, /*! [X011 0101] Procedure interrupt positive */ T30_PIN = 0x2C, /*! [X011 0100] Procedure interrupt negative */ T30_PPR = 0xBC, /*! [X011 1101] Partial page request */ T30_RNR = 0xEC, /*! [X011 0111] Receive not ready */ T30_ERR = 0x1C, /*! [X011 1000] Response for end of retransmission */ T30_FDM = 0xFC, /*! [X011 1111] File diagnostics message */ /*! Other line control signals */ T30_DCN = 0xFA, /*! [X101 1111] Disconnect */ T30_CRP = 0x1A, /*! [X101 1000] Command repeat */ T30_FNV = 0xCA, /*! [X101 0011] Field not valid */ T30_TNR = 0xEA, /*! [X101 0111] Transmitter not ready */ T30_TR = 0x6A, /*! [X101 0110] Transmitter ready */ T30_TK = 0x4B, /*! [1101 0010] Transmitter keys */ T30_RK = 0x4A, /*! [0101 0010] Receiver keys */ T30_PSS = 0x1F, /*! [1111 1000] Present signature signal (used only as FCF2) */ T30_DES = 0xA0, /*! [0000 0101] Digital extended signal */ T30_DEC = 0x93, /*! [1100 1001] Digital extended command */ T30_DER = 0x53, /*! [1100 1010] Digital extended request */ T30_DTR = 0x11, /*! [1000 1000] Digital turnaround request (conflicts with ISP) */ T30_DNK = 0x9A, /*! [X101 1001] Digital not acknowledge */ T30_PID = 0x6C, /*! [X011 0110] Procedure interrupt disconnect */ T30_SPI = 0x10, /*! [0000 1000] Security page indicator */ T30_SPT = 0x80, /*! [0000 0001] Security page type */ /*! Something only use as a secondary value in error correcting mode */ T30_NULL = 0x00, /*! [0000 0000] Nothing to say */ /*! Information frame types used for error correction mode, in T.4 */ T4_FCD = 0x06, /*! [0110 0000] Facsimile coded data */ T4_RCP = 0x86 /*! [0110 0001] Return to control for partial page */ }; #endif /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/spandsp/adsi.h0000664000175000017500000004716411422612263016142 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * adsi.h - Analogue display services interface and other call ID related handling. * * Written by Steve Underwood * * Copyright (C) 2003 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \file */ #if !defined(_SPANDSP_ADSI_H_) #define _SPANDSP_ADSI_H_ /*! \page adsi_page ADSI transmission and reception \section adsi_page_sec_1 What does it do? Although ADSI has a specific meaning in some places, the term is used here to indicate any form of Analogue Display Service Interface, which includes caller ID, SMS, and others. The ADSI module provides for the transmission and reception of ADSI messages in various formats. Currently, the supported formats are: - Bellcore/Telcordia GR-30 CORE CLASS (Custom Local Area Signaling Services) standard (North America, Australia, China, Taiwan, and Hong Kong). - ETSI ETS 300 648, ETS 300 659-1 CLIP (Calling Line Identity Presentation) FSK standard (France, Germany, Norway, Italy, Spain, South Africa, Turkey, and the UK). - ETSI Caller-ID support for the UK, British Telecom SIN227 and SIN242. - ETSI ETS 300 648, ETS 300 659-1 CLIP (Calling Line Identity Presentation) DTMF standard variant 1 (Belgium, Brazil, Denmark, Finland, Iceland, India, Netherlands, Saudi Arabia, Sweden and Uruguay). - ETSI ETS 300 648, ETS 300 659-1 CLIP (Calling Line Identity Presentation) DTMF standard variant 2 (Denmark and Holland). - ETSI ETS 300 648, ETS 300 659-1 CLIP (Calling Line Identity Presentation) DTMF standard variant 3. - ETSI ETS 300 648, ETS 300 659-1 CLIP (Calling Line Identity Presentation) DTMF standard variant 4. (Taiwan and Kuwait). - ETSI Caller-ID support in UK (British Telecom), British Telecomm SIN227, SIN242. - Nippon Telegraph & Telephone Corporation JCLIP (Japanese Calling Line Identity Presentation) standard. - Telecommunications Authority of Singapore ACLIP (Analog Calling Line Identity Presentation) standard. - TDD (Telecommunications Device for the Deaf). \section adsi_page_sec_2 How does it work? \section adsi_page_sec_2a The Bellcore CLASS specification Most FSK based CLI formats are similar to the US CLASS one, which is as follows: The alert tone for CLI during a call is at least 100ms of silence, then 2130Hz + 2750Hz for 88ms to 110ms. When CLI is presented at ringing time, this tone is not sent. In the US, CLI is usually sent between the first two rings. This silence period is long in the US, so the message fits easily. In other places, where the standard ring tone has much smaller silences, a line voltage reversal is used to wake up a power saving receiver, then the message is sent, then the phone begins to ring. The message is sent using a Bell 202 FSK modem. The data rate is 1200 bits per second. The message protocol uses 8-bit data words (bytes), each bounded by a start bit and a stop bit. Channel Carrier Message Message Data Checksum Seizure Signal Type Length Word(s) Word Signal Word Word \section adsi_page_sec_2a1 CHANNEL SEIZURE SIGNAL The channel seizure is 30 continuous bytes of 55h (01010101), including the start and stop bits (i.e. 300 bits of alternations in total). This provides a detectable alternating function to the CPE (i.e. the modem data pump). \section adsi_page_sec_2a2 CARRIER SIGNAL The carrier signal consists of 180 bits of 1s. This may be reduced to 80 bits of 1s for caller ID on call waiting. \section adsi_page_sec_2a3 MESSAGE TYPE WORD Various message types are defined. The commonest ones for the US CLASS standard are: - Type 0x04 (SDMF) - single data message. Simple caller ID (CND) - Type 0x80 (MDMF) - multiple data message. A more flexible caller ID, with extra information. Other messages support message waiting, for voice mail, and other display features. \section adsi_page_sec_2a4 MESSAGE LENGTH WORD The message length word specifies the total number of data words to follow. \section adsi_page_sec_2a5 DATA WORDS The data words contain the actual message. \section adsi_page_sec_2a6 CHECKSUM WORD The Checksum Word contains the twos complement of the modulo 256 sum of the other words in the data message (i.e., message type, message length, and data words). The receiving equipment may calculate the modulo 256 sum of the received words and add this sum to the received checksum word. A result of zero generally indicates that the message was correctly received. Message retransmission is not supported. The sumcheck word should be followed by a minimum of two stop bits. \section adsi_page_sec_2b The ETSI CLIP specification The ETSI CLIP specification uses similar messages to the Bellcore specification. They are not, however, identical. First, ETSI use the V.23 modem standard, rather than Bell 202. Second, different fields, and different message types are available. The wake up indication generally differs from the Bellcore specification, to accomodate differences in European ring cadences. \section adsi_page_sec_2c The ETSI caller ID by DTMF specification CLI by DTMF is usually sent in a very simple way. The exchange does not give any prior warning (no reversal, or ring) to wake up the receiver. It just sends a string of DTMF digits. Around the world several variants of this basic scheme are used. One variant of the digit string is used in Belgium, Brazil, Denmark, Finland, Iceland, India, Netherlands, Saudi Arabia, Sweden and Uruguay: - ADBC Each of these fields may be omitted. The following special information codes are defined - "00" indicates the calling party number is not available. - "10" indicates that the presentation of the calling party number is restricted. A second variant of the digit string is one of the following: - A# - D1# Number not available because the caller has restricted it. - D2# Number not available because the call is international. - D3# Number not available due to technical reasons. A third variant of the digit string is used in Taiwan and Kuwait: - DC A forth variant of the digit string is used in Denmark and Holland: - # There is no distinctive start marker in this format. \section adsi_page_sec_2d The Japanese specification from NTT The Japanese caller ID specification is considerably different from any of the others. It uses V.23 modem signals, but the message structure is uniqeue. Also, the message is delivered while off hook. This results in a sequence - The phone line rings - CPE answers and waits for the caller ID message - CPE hangs up on receipt of the caller ID message - The phone line rings a second time - The CPE answers a second time, connecting the called party with the caller. Timeouts are, obviously, required to ensure this system behaves well when the caller ID message or the second ring are missing. */ enum { ADSI_STANDARD_NONE = 0, ADSI_STANDARD_CLASS = 1, ADSI_STANDARD_CLIP = 2, ADSI_STANDARD_ACLIP = 3, ADSI_STANDARD_JCLIP = 4, ADSI_STANDARD_CLIP_DTMF = 5, ADSI_STANDARD_TDD = 6 }; /* In some of the messages code characters are used, as follows: 'C' for public callbox 'L' for long distance 'O' for overseas 'P' for private 'S' for service conflict Taiwan and Kuwait change this pattern to: 'C' for coin/public callbox 'I' for international call 'O' for out of area call 'P' for private */ /*! Definitions for CLASS (Custom Local Area Signaling Services) */ enum { /*! Single data message caller ID */ CLASS_SDMF_CALLERID = 0x04, /*! Multiple data message caller ID */ CLASS_MDMF_CALLERID = 0x80, /*! Single data message message waiting */ CLASS_SDMF_MSG_WAITING = 0x06, /*! Multiple data message message waiting */ CLASS_MDMF_MSG_WAITING = 0x82 }; /*! CLASS MDMF message IDs */ enum { /*! Date and time (MMDDHHMM) */ MCLASS_DATETIME = 0x01, /*! Caller number */ MCLASS_CALLER_NUMBER = 0x02, /*! Dialed number */ MCLASS_DIALED_NUMBER = 0x03, /*! Caller number absent: 'O' or 'P' */ MCLASS_ABSENCE1 = 0x04, /*! Call forward: universal ('0'), on busy ('1'), or on unanswered ('2') */ MCLASS_REDIRECT = 0x05, /*! Long distance: 'L' */ MCLASS_QUALIFIER = 0x06, /*! Caller's name */ MCLASS_CALLER_NAME = 0x07, /*! Caller's name absent: 'O' or 'P' */ MCLASS_ABSENCE2 = 0x08, /*! Alternate route */ MCLASS_ALT_ROUTE = 0x09 }; /*! CLASS MDMF message waiting message IDs */ /*! Message waiting/not waiting */ #define MCLASS_VISUAL_INDICATOR 0x0B /*! Definitions for CLIP (Calling Line Identity Presentation) (from ETS 300 659-1) */ enum { /*! Multiple data message caller ID */ CLIP_MDMF_CALLERID = 0x80, /*! Multiple data message message waiting */ CLIP_MDMF_MSG_WAITING = 0x82, /*! Multiple data message charge information */ CLIP_MDMF_CHARGE_INFO = 0x86, /*! Multiple data message SMS */ CLIP_MDMF_SMS = 0x89 }; /*! CLIP message IDs (from ETS 300 659-1) */ enum { /*! Date and time (MMDDHHMM) */ CLIP_DATETIME = 0x01, /*! Caller number (AKA calling line identity) */ CLIP_CALLER_NUMBER = 0x02, /*! Dialed number (AKA called line identity) */ CLIP_DIALED_NUMBER = 0x03, /*! Caller number absent: 'O' or 'P' (AKA reason for absence of calling line identity) */ CLIP_ABSENCE1 = 0x04, /*! Caller's name (AKA calling party name) */ CLIP_CALLER_NAME = 0x07, /*! Caller's name absent: 'O' or 'P' (AKA reason for absence of calling party name) */ CLIP_ABSENCE2 = 0x08, /*! Visual indicator */ CLIP_VISUAL_INDICATOR = 0x0B, /*! Message ID */ CLIP_MESSAGE_ID = 0x0D, /*! Complementary calling line identity */ CLIP_COMPLEMENTARY_CALLER_NUMBER = 0x10, /*! Call type - voice call (1), ring-back-when-free call (2), calling name delivery (3) or msg waiting call(0x81) */ CLIP_CALLTYPE = 0x11, /*! Number of messages */ CLIP_NUM_MSG = 0x13, /*! Type of forwarded call */ CLIP_TYPE_OF_FORWARDED_CALL = 0x15, /*! Type of calling user */ CLIP_TYPE_OF_CALLING_USER = 0x16, /*! Redirecting number */ CLIP_REDIR_NUMBER = 0x1A, /*! Charge */ CLIP_CHARGE = 0x20, /*! Duration of the call */ CLIP_DURATION = 0x23, /*! Additional charge */ CLIP_ADD_CHARGE = 0x21, /*! Display information */ CLIP_DISPLAY_INFO = 0x50, /*! Service information */ CLIP_SERVICE_INFO = 0x55 }; /*! Definitions for A-CLIP (Analog Calling Line Identity Presentation) */ enum { /*! Single data message caller ID frame */ ACLIP_SDMF_CALLERID = 0x04, /*! Multiple data message caller ID frame */ ACLIP_MDMF_CALLERID = 0x80 }; /*! A-CLIP MDM message IDs */ enum { /*! Date and time (MMDDHHMM) */ ACLIP_DATETIME = 0x01, /*! Caller number */ ACLIP_CALLER_NUMBER = 0x02, /*! Dialed number */ ACLIP_DIALED_NUMBER = 0x03, /*! Caller number absent: 'O' or 'P' */ ACLIP_NUMBER_ABSENCE = 0x04, /*! Call forward: universal, on busy, or on unanswered */ ACLIP_REDIRECT = 0x05, /*! Long distance call: 'L' */ ACLIP_QUALIFIER = 0x06, /*! Caller's name */ ACLIP_CALLER_NAME = 0x07, /*! Caller's name absent: 'O' or 'P' */ ACLIP_NAME_ABSENCE = 0x08 }; /*! Definitions for J-CLIP (Japan Calling Line Identity Presentation) */ /*! Multiple data message caller ID frame */ #define JCLIP_MDMF_CALLERID 0x40 /*! J-CLIP MDM message IDs */ enum { /*! Caller number */ JCLIP_CALLER_NUMBER = 0x02, /*! Caller number data extension signal */ JCLIP_CALLER_NUM_DES = 0x21, /*! Dialed number */ JCLIP_DIALED_NUMBER = 0x09, /*! Dialed number data extension signal */ JCLIP_DIALED_NUM_DES = 0x22, /*! Caller number absent: 'C', 'O', 'P' or 'S' */ JCLIP_ABSENCE = 0x04 }; /* Definitions for CLIP-DTMF and its variants */ /*! Caller number is '#' terminated DTMF. */ #define CLIP_DTMF_HASH_TERMINATED '#' /*! Caller number is 'C' terminated DTMF. */ #define CLIP_DTMF_C_TERMINATED 'C' /*! Caller number */ #define CLIP_DTMF_HASH_CALLER_NUMBER 'A' /*! Caller number absent: private (1), overseas (2) or not available (3) */ #define CLIP_DTMF_HASH_ABSENCE 'D' /*! Caller ID field with no explicit field type */ #define CLIP_DTMF_HASH_UNSPECIFIED 0 /*! Caller number */ #define CLIP_DTMF_C_CALLER_NUMBER 'A' /*! Diverting number */ #define CLIP_DTMF_C_REDIRECT_NUMBER 'D' /*! Caller number absent: private/restricted (00) or not available (10) */ #define CLIP_DTMF_C_ABSENCE 'B' /*! ADSI transmitter descriptor. This contains all the state information for an ADSI (caller ID, CLASS, CLIP, ACLIP) transmit channel. */ typedef struct adsi_tx_state_s adsi_tx_state_t; /*! ADSI receiver descriptor. This contains all the state information for an ADSI (caller ID, CLASS, CLIP, ACLIP, JCLIP) receive channel. */ typedef struct adsi_rx_state_s adsi_rx_state_t; #if defined(__cplusplus) extern "C" { #endif /*! \brief Initialise an ADSI receive context. \param s The ADSI receive context. \param standard The code for the ADSI standard to be used. \param put_msg A callback routine called to deliver the received messages to the application. \param user_data An opaque pointer for the callback routine. \return A pointer to the initialised context, or NULL if there was a problem. */ SPAN_DECLARE(adsi_rx_state_t *) adsi_rx_init(adsi_rx_state_t *s, int standard, put_msg_func_t put_msg, void *user_data); /*! \brief Release an ADSI receive context. \param s The ADSI receive context. \return 0 for OK. */ SPAN_DECLARE(int) adsi_rx_release(adsi_rx_state_t *s); /*! \brief Free the resources of an ADSI receive context. \param s The ADSI receive context. \return 0 for OK. */ SPAN_DECLARE(int) adsi_rx_free(adsi_rx_state_t *s); /*! \brief Receive a chunk of ADSI audio. \param s The ADSI receive context. \param amp The audio sample buffer. \param len The number of samples in the buffer. \return The number of samples unprocessed. */ SPAN_DECLARE(int) adsi_rx(adsi_rx_state_t *s, const int16_t amp[], int len); /*! \brief Initialise an ADSI transmit context. \param s The ADSI transmit context. \param standard The code for the ADSI standard to be used. \return A pointer to the initialised context, or NULL if there was a problem. */ SPAN_DECLARE(adsi_tx_state_t *) adsi_tx_init(adsi_tx_state_t *s, int standard); /*! \brief Release an ADSI transmit context. \param s The ADSI transmit context. \return 0 for OK. */ SPAN_DECLARE(int) adsi_tx_release(adsi_tx_state_t *s); /*! \brief Free the resources of an ADSI transmit context. \param s The ADSI transmit context. \return 0 for OK. */ SPAN_DECLARE(int) adsi_tx_free(adsi_tx_state_t *s); /*! \brief Adjust the preamble associated with an ADSI transmit context. \param s The ADSI transmit context. \param preamble_len The number of bits of preamble. \param preamble_ones_len The number of bits of continuous one before a message. \param postamble_ones_len The number of bits of continuous one after a message. \param stop_bits The number of stop bits per character. */ SPAN_DECLARE(void) adsi_tx_set_preamble(adsi_tx_state_t *s, int preamble_len, int preamble_ones_len, int postamble_ones_len, int stop_bits); /*! \brief Generate a block of ADSI audio samples. \param s The ADSI transmit context. \param amp The audio sample buffer. \param max_len The number of samples to be generated. \return The number of samples actually generated. */ SPAN_DECLARE(int) adsi_tx(adsi_tx_state_t *s, int16_t amp[], int max_len); /*! \brief Request generation of an ADSI alert tone. \param s The ADSI transmit context. */ SPAN_DECLARE(void) adsi_tx_send_alert_tone(adsi_tx_state_t *s); /*! \brief Put a message into the input buffer of an ADSI transmit context. \param s The ADSI transmit context. \param msg The message. \param len The length of the message. \return The length actually added. If a message is already in progress in the transmitter, this function will return zero, as it will not successfully add the message to the buffer. If the message is invalid (e.g. it is too long), this function will return -1. */ SPAN_DECLARE(int) adsi_tx_put_message(adsi_tx_state_t *s, const uint8_t *msg, int len); /*! \brief Get a field from an ADSI message. \param s The ADSI receive context. \param msg The message buffer. \param msg_len The length of the message. \param pos Current position within the message. Set to -1 when starting a message. \param field_type The type code for the field. \param field_body Pointer to the body of the field. \param field_len The length of the field, or -1 for no more fields, or -2 for message structure corrupt. */ SPAN_DECLARE(int) adsi_next_field(adsi_rx_state_t *s, const uint8_t *msg, int msg_len, int pos, uint8_t *field_type, uint8_t const **field_body, int *field_len); /*! \brief Insert the header or a field into an ADSI message. \param s The ADSI transmit context. \param msg The message buffer. \param len The current length of the message. \param field_type The type code for the new field. \param field_body Pointer to the body of the new field. \param field_len The length of the new field. */ SPAN_DECLARE(int) adsi_add_field(adsi_tx_state_t *s, uint8_t *msg, int len, uint8_t field_type, uint8_t const *field_body, int field_len); /*! \brief Return a short name for an ADSI standard \param standard The code for the standard. \return A pointer to the name. */ SPAN_DECLARE(const char *) adsi_standard_to_str(int standard); #if defined(__cplusplus) } #endif #endif /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/spandsp/time_scale.h0000664000175000017500000001131111422612264017311 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * time_scale.h - Time scaling for linear speech data * * Written by Steve Underwood * * Copyright (C) 2004 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #if !defined(_SPANDSP_TIME_SCALE_H_) #define _SPANDSP_TIME_SCALE_H_ /*! \page time_scale_page Time scaling speech \section time_scale_page_sec_1 What does it do? The time scaling module allows speech files to be played back at a different speed from the speed at which they were recorded. If this were done by simply speeding up or slowing down replay, the pitch of the voice would change, and sound very odd. This module keeps the pitch of the voice at its original level. The speed of the voice may be altered over a wide range. However, the practical useful rates are between about half normal speed and twice normal speed. \section time_scale_page_sec_2 How does it work? The time scaling module is based on the Pointer Interval Controlled OverLap and Add (PICOLA) method, developed by Morita Naotaka. Mikio Ikeda has an excellent web page on this subject at http://keizai.yokkaichi-u.ac.jp/~ikeda/research/picola.html There is also working code there. This implementation uses exactly the same algorithms, but the code is a complete rewrite. Mikio's code batch processes files. This version works incrementally on streams, and allows multiple streams to be processed concurrently. \section time_scale_page_sec_3 How do I used it? The output buffer must be big enough to hold the maximum number of samples which could result from the data in the input buffer, which is: input_len*playout_rate + sample_rate/TIME_SCALE_MIN_PITCH + 1 */ /*! Audio time scaling descriptor. */ typedef struct time_scale_state_s time_scale_state_t; #if defined(__cplusplus) extern "C" { #endif /*! Initialise a time scale context. This must be called before the first use of the context, to initialise its contents. \brief Initialise a time scale context. \param s The time scale context. \param sample_rate The sample rate of the signal. \param playout_rate The ratio between the output speed and the input speed. \return A pointer to the context, or NULL if there was a problem. */ SPAN_DECLARE(time_scale_state_t *) time_scale_init(time_scale_state_t *s, int sample_rate, float playout_rate); /*! \brief Release a time scale context. \param s The time scale context. \return 0 for OK, else -1. */ SPAN_DECLARE(int) time_scale_release(time_scale_state_t *s); /*! \brief Free a time scale context. \param s The time scale context. \return 0 for OK, else -1. */ SPAN_DECLARE(int) time_scale_free(time_scale_state_t *s); /*! Change the time scale rate. \brief Change the time scale rate. \param s The time scale context. \param playout_rate The ratio between the output speed and the input speed. \return 0 if changed OK, else -1. */ SPAN_DECLARE(int) time_scale_rate(time_scale_state_t *s, float playout_rate); /*! Find the maximum possible samples which could result from scaling the specified number of input samples, at the current playback rate. \brief Find the maximum possible output samples. \param s The time scale context. \param input_len The number of input samples. \return The maximum possible output samples. */ SPAN_DECLARE(int) time_scale_max_output_len(time_scale_state_t *s, int input_len); /*! Time scale a chunk of audio samples. \brief Time scale a chunk of audio samples. \param s The time scale context. \param out The output audio sample buffer. This must be large enough to accept the longest possible result from processing the input data. See the algorithm documentation for how the longest possible result may be calculated. \param in The input audio sample buffer. \param len The number of input samples. \return The number of output samples. */ SPAN_DECLARE(int) time_scale(time_scale_state_t *s, int16_t out[], int16_t in[], int len); #if defined(__cplusplus) } #endif #endif /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/spandsp/modem_echo.h0000664000175000017500000001205311422612264017307 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * modem_echo.h - An echo cancellor, suitable for electrical echos in GSTN modems * * Written by Steve Underwood * * Copyright (C) 2001, 2004 Steve Underwood * * Based on a bit from here, a bit from there, eye of toad, * ear of bat, etc - plus, of course, my own 2 cents. * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \file */ #if !defined(_SPANDSP_MODEM_ECHO_H_) #define _SPANDSP_MODEM_ECHO_H_ /*! \page modem_echo_can_page Line echo cancellation for modems \section modem_echo_can_page_sec_1 What does it do? This module aims to cancel electrical echoes (e.g. from 2-4 wire hybrids) in modem applications. It is not very suitable for speech applications, which require additional refinements for satisfactory performance. It is, however, more efficient and better suited to modem applications. \section modem_echo_can_page_sec_2 How does it work? The heart of the echo cancellor is an adaptive FIR filter. This is adapted to match the impulse response of the environment being cancelled. It must be long enough to adequately cover the duration of that impulse response. The signal being transmitted into the environment being cancelled is passed through the FIR filter. The resulting output is an estimate of the echo signal. This is then subtracted from the received signal, and the result should be an estimate of the signal which originates within the environment being cancelled (people talking in the room, or the signal from the far end of a telephone line) free from the echos of our own transmitted signal. The FIR filter is adapted using the least mean squares (LMS) algorithm. This algorithm is attributed to Widrow and Hoff, and was introduced in 1960. It is the commonest form of filter adaption used in things like modem line equalisers and line echo cancellers. It works very well if the signal level is constant, which is true for a modem signal. To ensure good performa certain conditions must be met: - The transmitted signal has weak self-correlation. - There is no signal being generated within the environment being cancelled. The difficulty is that neither of these can be guaranteed. If the adaption is performed while transmitting noise (or something fairly noise like, such as voice) the adaption works very well. If the adaption is performed while transmitting something highly correlative (e.g. tones, like DTMF), the adaption can go seriously wrong. The reason is there is only one solution for the adaption on a near random signal. For a repetitive signal, there are a number of solutions which converge the adaption, and nothing guides the adaption to choose the correct one. \section modem_echo_can_page_sec_3 How do I use it? The echo cancellor processes both the transmit and receive streams sample by sample. The processing function is not declared inline. Unfortunately, cancellation requires many operations per sample, so the call overhead is only a minor burden. */ #include "fir.h" /*! Modem line echo canceller descriptor. This defines the working state for a line echo canceller. */ typedef struct modem_echo_can_state_s modem_echo_can_state_t; #if defined(__cplusplus) extern "C" { #endif /*! Create a modem echo canceller context. \param len The length of the canceller, in samples. eturn The new canceller context, or NULL if the canceller could not be created. */ SPAN_DECLARE(modem_echo_can_state_t *) modem_echo_can_init(int len); /*! Free a modem echo canceller context. \param ec The echo canceller context. */ SPAN_DECLARE(void) modem_echo_can_free(modem_echo_can_state_t *ec); /*! Flush (reinitialise) a modem echo canceller context. \param ec The echo canceller context. */ SPAN_DECLARE(void) modem_echo_can_flush(modem_echo_can_state_t *ec); /*! Set the adaption mode of a modem echo canceller context. \param ec The echo canceller context. \param adapt The mode. */ SPAN_DECLARE(void) modem_echo_can_adaption_mode(modem_echo_can_state_t *ec, int adapt); /*! Process a sample through a modem echo canceller. \param ec The echo canceller context. \param tx The transmitted audio sample. \param rx The received audio sample. eturn The clean (echo cancelled) received sample. */ SPAN_DECLARE(int16_t) modem_echo_can_update(modem_echo_can_state_t *ec, int16_t tx, int16_t rx); #if defined(__cplusplus) } #endif #endif /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/spandsp/power_meter.h0000664000175000017500000001305511422612264017543 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * power_meter.h * * Written by Steve Underwood * * Copyright (C) 2003 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #if !defined(_POWER_METER_H_) #define _POWER_METER_H_ /*! \page power_meter_page Power metering \section power_meter_page_sec_1 What does it do? The power metering module implements a simple IIR type running power meter. The damping factor of the IIR is selectable when the meter instance is created. Note that the definition of dBOv is quite vague in most places - is it peak since wave, peak square wave, etc.? This code is based on the well defined wording in RFC3389: "For example, in the case of a u-law system, the reference would be a square wave with values +/-8031, and this square wave represents 0dBov. This translates into 6.18dBm0". \section power_meter_page_sec_2 How does it work? */ /*! Power meter descriptor. This defines the working state for a single instance of a power measurement device. */ typedef struct { /*! The shift factor, which controls the damping of the power meter. */ int shift; /*! The current power reading. */ int32_t reading; } power_meter_t; typedef struct { power_meter_t short_term; power_meter_t medium_term; int signal_present; int32_t surge; int32_t sag; int32_t min; } power_surge_detector_state_t; #if defined(__cplusplus) extern "C" { #endif /*! Initialise a power meter context. \brief Initialise a power meter context. \param s The power meter context. \param shift The shift to be used by the IIR filter. \return The power meter context. */ SPAN_DECLARE(power_meter_t *) power_meter_init(power_meter_t *s, int shift); SPAN_DECLARE(int) power_meter_release(power_meter_t *s); SPAN_DECLARE(int) power_meter_free(power_meter_t *s); /*! Change the damping factor of a power meter context. \brief Change the damping factor of a power meter context. \param s The power meter context. \param shift The new shift to be used by the IIR filter. \return The power meter context. */ SPAN_DECLARE(power_meter_t *) power_meter_damping(power_meter_t *s, int shift); /*! Update a power meter. \brief Update a power meter. \param s The power meter context. \param amp The amplitude of the new audio sample. \return The current power meter reading. */ SPAN_DECLARE(int32_t) power_meter_update(power_meter_t *s, int16_t amp); /*! Get the current power meter reading. \brief Get the current power meter reading. \param s The power meter context. \return The current power meter reading. */ SPAN_DECLARE(int32_t) power_meter_current(power_meter_t *s); /*! Get the current power meter reading, in dBm0. \brief Get the current power meter reading, in dBm0. \param s The power meter context. \return The current power meter reading, in dBm0. */ SPAN_DECLARE(float) power_meter_current_dbm0(power_meter_t *s); /*! Get the current power meter reading, in dBOv. \brief Get the current power meter reading, in dBOv. \param s The power meter context. \return The current power meter reading, in dBOv. */ SPAN_DECLARE(float) power_meter_current_dbov(power_meter_t *s); /*! Get the power meter reading which represents a specified power level in dBm0. \brief Get the current power meter reading, in dBm0. \param level A power level, in dB0m. \return The equivalent power meter reading. */ SPAN_DECLARE(int32_t) power_meter_level_dbm0(float level); /*! Get the power meter reading which represents a specified power level in dBOv. \brief Get the current power meter reading, in dBOv. \param level A power level, in dBOv. \return The equivalent power meter reading. */ SPAN_DECLARE(int32_t) power_meter_level_dbov(float level); SPAN_DECLARE(int32_t) power_surge_detector(power_surge_detector_state_t *s, int16_t amp); /*! Get the current surge detector short term meter reading, in dBm0. \brief Get the current surge detector meter reading, in dBm0. \param s The power surge detector context. \return The current power surge detector power reading, in dBm0. */ SPAN_DECLARE(float) power_surge_detector_current_dbm0(power_surge_detector_state_t *s); /*! Get the current surge detector short term meter reading, in dBOv. \brief Get the current surge detector meter reading, in dBOv. \param s The power surge detector context. \return The current power surge detector power reading, in dBOv. */ SPAN_DECLARE(float) power_surge_detector_current_dbov(power_surge_detector_state_t *s); SPAN_DECLARE(power_surge_detector_state_t *) power_surge_detector_init(power_surge_detector_state_t *s, float min, float surge); SPAN_DECLARE(int) power_surge_detector_release(power_surge_detector_state_t *s); SPAN_DECLARE(int) power_surge_detector_free(power_surge_detector_state_t *s); #if defined(__cplusplus) } #endif #endif /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/spandsp/logging.h0000664000175000017500000001110511422612264016633 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * logging.h - definitions for error and debug logging. * * Written by Steve Underwood * * Copyright (C) 2005 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \file */ /*! \page logging_page Logging \section logging_page_sec_1 What does it do? ???. */ #if !defined(_SPANDSP_LOGGING_H_) #define _SPANDSP_LOGGING_H_ /*! General logging function for spandsp logging. */ typedef void (*message_handler_func_t)(int level, const char *text); /*! Error logging function for spandsp logging. */ typedef void (*error_handler_func_t)(const char *text); /* Logging elements */ enum { SPAN_LOG_SEVERITY_MASK = 0x00FF, SPAN_LOG_SHOW_DATE = 0x0100, SPAN_LOG_SHOW_SAMPLE_TIME = 0x0200, SPAN_LOG_SHOW_SEVERITY = 0x0400, SPAN_LOG_SHOW_PROTOCOL = 0x0800, SPAN_LOG_SHOW_VARIANT = 0x1000, SPAN_LOG_SHOW_TAG = 0x2000, SPAN_LOG_SUPPRESS_LABELLING = 0x8000 }; /* Logging severity levels */ enum { SPAN_LOG_NONE = 0, SPAN_LOG_ERROR = 1, SPAN_LOG_WARNING = 2, SPAN_LOG_PROTOCOL_ERROR = 3, SPAN_LOG_PROTOCOL_WARNING = 4, SPAN_LOG_FLOW = 5, SPAN_LOG_FLOW_2 = 6, SPAN_LOG_FLOW_3 = 7, SPAN_LOG_DEBUG = 8, SPAN_LOG_DEBUG_2 = 9, SPAN_LOG_DEBUG_3 = 10 }; /*! Logging descriptor. This defines the working state for a single instance of the logging facility for spandsp. */ typedef struct logging_state_s logging_state_t; #if defined(__cplusplus) extern "C" { #endif /*! Test if logging of a specified severity level is enabled. \brief Test if logging of a specified severity level is enabled. \param s The logging context. \param level The severity level to be tested. \return TRUE if logging is enable, else FALSE. */ SPAN_DECLARE(int) span_log_test(logging_state_t *s, int level); /*! Generate a log entry. \brief Generate a log entry. \param s The logging context. \param level The severity level of the entry. \param format ??? \return 0 if no output generated, else 1. */ SPAN_DECLARE(int) span_log(logging_state_t *s, int level, const char *format, ...); /*! Generate a log entry displaying the contents of a buffer. \brief Generate a log entry displaying the contents of a buffer \param s The logging context. \param level The severity level of the entry. \param tag A label for the log entry. \param buf The buffer to be dumped to the log. \param len The length of buf. \return 0 if no output generated, else 1. */ SPAN_DECLARE(int) span_log_buf(logging_state_t *s, int level, const char *tag, const uint8_t *buf, int len); SPAN_DECLARE(int) span_log_set_level(logging_state_t *s, int level); SPAN_DECLARE(int) span_log_set_tag(logging_state_t *s, const char *tag); SPAN_DECLARE(int) span_log_set_protocol(logging_state_t *s, const char *protocol); SPAN_DECLARE(int) span_log_set_sample_rate(logging_state_t *s, int samples_per_second); SPAN_DECLARE(int) span_log_bump_samples(logging_state_t *s, int samples); SPAN_DECLARE(void) span_log_set_message_handler(logging_state_t *s, message_handler_func_t func); SPAN_DECLARE(void) span_log_set_error_handler(logging_state_t *s, error_handler_func_t func); SPAN_DECLARE(void) span_set_message_handler(message_handler_func_t func); SPAN_DECLARE(void) span_set_error_handler(error_handler_func_t func); SPAN_DECLARE(logging_state_t *) span_log_init(logging_state_t *s, int level, const char *tag); SPAN_DECLARE(int) span_log_release(logging_state_t *s); SPAN_DECLARE(int) span_log_free(logging_state_t *s); #if defined(__cplusplus) } #endif #endif /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/spandsp/complex_vector_int.h0000664000175000017500000001033611422612264021115 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * complex_vector_int.h * * Written by Steve Underwood * * Copyright (C) 2003 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #if !defined(_SPANDSP_COMPLEX_VECTOR_INT_H_) #define _SPANDSP_COMPLEX_VECTOR_INT_H_ #if defined(__cplusplus) extern "C" { #endif static __inline__ void cvec_copyi(complexi_t z[], const complexi_t x[], int n) { memcpy(z, x, n*sizeof(z[0])); } /*- End of function --------------------------------------------------------*/ static __inline__ void cvec_copyi16(complexi16_t z[], const complexi16_t x[], int n) { memcpy(z, x, n*sizeof(z[0])); } /*- End of function --------------------------------------------------------*/ static __inline__ void cvec_copyi32(complexi32_t z[], const complexi32_t x[], int n) { memcpy(z, x, n*sizeof(z[0])); } /*- End of function --------------------------------------------------------*/ static __inline__ void cvec_zeroi(complexi_t z[], int n) { memset(z, 0, n*sizeof(z[0])); } /*- End of function --------------------------------------------------------*/ static __inline__ void cvec_zeroi16(complexi16_t z[], int n) { memset(z, 0, n*sizeof(z[0])); } /*- End of function --------------------------------------------------------*/ static __inline__ void cvec_zeroi32(complexi32_t z[], int n) { memset(z, 0, n*sizeof(z[0])); } /*- End of function --------------------------------------------------------*/ static __inline__ void cvec_seti(complexi_t z[], complexi_t *x, int n) { int i; for (i = 0; i < n; i++) z[i] = *x; } /*- End of function --------------------------------------------------------*/ static __inline__ void cvec_seti16(complexi16_t z[], complexi16_t *x, int n) { int i; for (i = 0; i < n; i++) z[i] = *x; } /*- End of function --------------------------------------------------------*/ static __inline__ void cvec_seti32(complexi32_t z[], complexi32_t *x, int n) { int i; for (i = 0; i < n; i++) z[i] = *x; } /*- End of function --------------------------------------------------------*/ /*! \brief Find the dot product of two complex int16_t vectors. \param x The first vector. \param y The first vector. \param n The number of elements in the vectors. \return The dot product of the two vectors. */ SPAN_DECLARE(complexi32_t) cvec_dot_prodi16(const complexi16_t x[], const complexi16_t y[], int n); /*! \brief Find the dot product of two complex int32_t vectors. \param x The first vector. \param y The first vector. \param n The number of elements in the vectors. \return The dot product of the two vectors. */ SPAN_DECLARE(complexi32_t) cvec_dot_prodi32(const complexi32_t x[], const complexi32_t y[], int n); /*! \brief Find the dot product of two complex int16_t vectors, where the first is a circular buffer with an offset for the starting position. \param x The first vector. \param y The first vector. \param n The number of elements in the vectors. \param pos The starting position in the x vector. \return The dot product of the two vectors. */ SPAN_DECLARE(complexi32_t) cvec_circular_dot_prodi16(const complexi16_t x[], const complexi16_t y[], int n, int pos); SPAN_DECLARE(void) cvec_lmsi16(const complexi16_t x[], complexi16_t y[], int n, const complexi16_t *error); SPAN_DECLARE(void) cvec_circular_lmsi16(const complexi16_t x[], complexi16_t y[], int n, int pos, const complexi16_t *error); #if defined(__cplusplus) } #endif #endif /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/spandsp/arctan2.h0000664000175000017500000000563311422612263016547 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * arctan2.h - A quick rough approximate arc tan * * Written by Steve Underwood * * Copyright (C) 2003 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \file */ #if !defined(_SPANDSP_ARCTAN2_H_) #define _SPANDSP_ARCTAN2_H_ /*! \page arctan2_page Fast approximate four quadrant arc-tangent \section arctan2_page_sec_1 What does it do? This module provides a fast approximate 4-quadrant arc tangent function, based on something at dspguru.com. The worst case error is about 4.07 degrees. This is fine for many "where am I" type evaluations in comms. work. \section arctan2_page_sec_2 How does it work? ???. */ #if defined(__cplusplus) extern "C" { #endif /* This returns its answer as a signed 32 bit integer phase value. */ static __inline__ int32_t arctan2(float y, float x) { float abs_y; float angle; if (x == 0.0f || y == 0.0f) return 0; abs_y = fabsf(y); /* If we are in quadrant II or III, flip things around */ if (x < 0.0f) angle = 3.0f - (x + abs_y)/(abs_y - x); else angle = 1.0f - (x - abs_y)/(abs_y + x); angle *= 536870912.0f; /* If we are in quadrant III or IV, negate to return an answer in the range +-pi */ if (y < 0.0f) angle = -angle; return (int32_t) angle; } /*- End of function --------------------------------------------------------*/ #if 0 /* This returns its answer in radians, in the range +-pi. */ static __inline__ float arctan2f(float y, float x) { float angle; float fx; float fy; if (x == 0.0f || y == 0.0f) return 0; fx = fabsf(x); fy = fabsf(y); /* Deal with the octants */ /* N.B. 0.28125 == (1/4 + 1/32) */ if (fy > fx) angle = 3.1415926f/2.0f - fx*fy/(y*y + 0.28125f*x*x); else angle = fy*fx/(x*x + 0.28125f*y*y); /* Deal with the quadrants, to bring the final answer to the range +-pi */ if (x < 0.0f) angle = 3.1415926f - angle; if (y < 0.0f) angle = -angle; return angle; } /*- End of function --------------------------------------------------------*/ #endif #if defined(__cplusplus) } #endif #endif /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/spandsp/sig_tone.h0000664000175000017500000001723311422612264017024 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * sig_tone.h - Signalling tone processing for the 2280Hz, 2400Hz, 2600Hz * and similar signalling tones used in older protocols. * * Written by Steve Underwood * * Copyright (C) 2004 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \file */ /*! \page sig_tone_page The 2280/2400/2600Hz signalling tone processor \section sig_tone_sec_1 What does it do? The signalling tone processor handles the 2280Hz, 2400Hz and 2600Hz tones, used in many analogue signalling procotols, and digital ones derived from them. \section sig_tone_sec_2 How does it work? Most single and two voice frequency signalling systems share many features, as these features have developed in similar ways over time, to address the limitations of early tone signalling systems. The usual practice is to start the generation of tone at a high energy level, so a strong signal is available at the receiver, for crisp tone detection. If the tone remains on for a significant period, the energy level is reduced, to minimise crosstalk. During the signalling transitions, only the tone is sent through the channel, and the media signal is suppressed. This means the signalling receiver has a very clean signal to work with, allowing for crisp detection of the signalling tone. However, when the signalling tone is on for extended periods, there may be supervisory information in the media signal, such as voice announcements. To allow these to pass through the system, the signalling tone is mixed with the media signal. It is the job of the signalling receiver to separate the signalling tone and the media. The necessary filtering may degrade the quality of the voice signal, but at least supervisory information may be heard. */ #if !defined(_SPANDSP_SIG_TONE_H_) #define _SPANDSP_SIG_TONE_H_ /* The optional tone sets */ enum { /*! European 2280Hz signalling tone. Tone 1 is 2280Hz. Tone 2 is not used. */ SIG_TONE_2280HZ = 1, /*! US 2600Hz signalling tone. Tone 1 is 2600Hz. Tone 2 is not used. */ SIG_TONE_2600HZ, /*! US 2400Hz + 2600Hz signalling tones. Tone 1 is 2600Hz. Tone 2 is 2400Hz. */ SIG_TONE_2400HZ_2600HZ }; /* Mode control and report bits for transmit and receive */ enum { /*! Signalling tone 1 is present */ SIG_TONE_1_PRESENT = 0x001, /*! Signalling tone 1 has changed state (ignored when setting tx mode) */ SIG_TONE_1_CHANGE = 0x002, /*! Signalling tone 2 is present */ SIG_TONE_2_PRESENT = 0x004, /*! Signalling tone 2 has changed state (ignored when setting tx mode) */ SIG_TONE_2_CHANGE = 0x008, /*! The media signal is passing through. Tones might be added to it. */ SIG_TONE_TX_PASSTHROUGH = 0x010, /*! The media signal is passing through. Tones might be extracted from it, if detected. */ SIG_TONE_RX_PASSTHROUGH = 0x040, /*! Force filtering of the signalling tone, whether signalling is being detected or not. This is mostly useful for test purposes. */ SIG_TONE_RX_FILTER_TONE = 0x080, /*! Request an update of the transmit status, upon timeout of the previous status. */ SIG_TONE_TX_UPDATE_REQUEST = 0x100, /*! Request an update of the receiver status, upon timeout of the previous status. */ SIG_TONE_RX_UPDATE_REQUEST = 0x200 }; typedef struct sig_tone_tx_state_s sig_tone_tx_state_t; typedef struct sig_tone_rx_state_s sig_tone_rx_state_t; #if defined(__cplusplus) extern "C" { #endif /*! Process a block of received audio samples. \brief Process a block of received audio samples. \param s The signalling tone context. \param amp The audio sample buffer. \param len The number of samples in the buffer. \return The number of samples unprocessed. */ SPAN_DECLARE(int) sig_tone_rx(sig_tone_rx_state_t *s, int16_t amp[], int len); /*! Set the receive mode. \brief Set the receive mode. \param s The signalling tone context. \param mode The new mode for the receiver. \param duration The duration for this mode, before an update is requested. A duration of zero means forever. */ SPAN_DECLARE(void) sig_tone_rx_set_mode(sig_tone_rx_state_t *s, int mode, int duration); /*! Initialise a signalling tone receiver context. \brief Initialise a signalling tone context. \param s The signalling tone context. \param tone_type The type of signalling tone. \param sig_update Callback function to handle signalling updates. \param user_data An opaque pointer. \return A pointer to the signalling tone context, or NULL if there was a problem. */ SPAN_DECLARE(sig_tone_rx_state_t *) sig_tone_rx_init(sig_tone_rx_state_t *s, int tone_type, tone_report_func_t sig_update, void *user_data); /*! Release a signalling tone receiver context. \brief Release a signalling tone receiver context. \param s The signalling tone context. \return 0 for OK */ SPAN_DECLARE(int) sig_tone_rx_release(sig_tone_rx_state_t *s); /*! Free a signalling tone receiver context. \brief Free a signalling tone receiver context. \param s The signalling tone context. \return 0 for OK */ SPAN_DECLARE(int) sig_tone_rx_free(sig_tone_rx_state_t *s); /*! Generate a block of signalling tone audio samples. \brief Generate a block of signalling tone audio samples. \param s The signalling tone context. \param amp The audio sample buffer. \param len The number of samples to be generated. \return The number of samples actually generated. */ SPAN_DECLARE(int) sig_tone_tx(sig_tone_tx_state_t *s, int16_t amp[], int len); /*! Set the tone mode. \brief Set the tone mode. \param s The signalling tone context. \param mode The new mode for the transmitted tones. \param duration The duration for this mode, before an update is requested. A duration of zero means forever. */ SPAN_DECLARE(void) sig_tone_tx_set_mode(sig_tone_tx_state_t *s, int mode, int duration); /*! Initialise a signalling tone transmitter context. \brief Initialise a signalling tone context. \param s The signalling tone context. \param tone_type The type of signalling tone. \param sig_update Callback function to handle signalling updates. \param user_data An opaque pointer. \return A pointer to the signalling tone context, or NULL if there was a problem. */ SPAN_DECLARE(sig_tone_tx_state_t *) sig_tone_tx_init(sig_tone_tx_state_t *s, int tone_type, tone_report_func_t sig_update, void *user_data); /*! Release a signalling tone transmitter context. \brief Release a signalling tone transmitter context. \param s The signalling tone context. \return 0 for OK */ SPAN_DECLARE(int) sig_tone_tx_release(sig_tone_tx_state_t *s); /*! Free a signalling tone transmitter context. \brief Free a signalling tone transmitter context. \param s The signalling tone context. \return 0 for OK */ SPAN_DECLARE(int) sig_tone_tx_free(sig_tone_tx_state_t *s); #if defined(__cplusplus) } #endif #endif /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/spandsp/vector_float.h0000664000175000017500000001636711422612265017714 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * vector_float.h * * Written by Steve Underwood * * Copyright (C) 2003 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #if !defined(_SPANDSP_VECTOR_FLOAT_H_) #define _SPANDSP_VECTOR_FLOAT_H_ #if defined(__cplusplus) extern "C" { #endif SPAN_DECLARE(void) vec_copyf(float z[], const float x[], int n); SPAN_DECLARE(void) vec_copy(double z[], const double x[], int n); #if defined(HAVE_LONG_DOUBLE) SPAN_DECLARE(void) vec_copyl(long double z[], const long double x[], int n); #endif SPAN_DECLARE(void) vec_negatef(float z[], const float x[], int n); SPAN_DECLARE(void) vec_negate(double z[], const double x[], int n); #if defined(HAVE_LONG_DOUBLE) SPAN_DECLARE(void) vec_negatel(long double z[], const long double x[], int n); #endif SPAN_DECLARE(void) vec_zerof(float z[], int n); SPAN_DECLARE(void) vec_zero(double z[], int n); #if defined(HAVE_LONG_DOUBLE) SPAN_DECLARE(void) vec_zerol(long double z[], int n); #endif SPAN_DECLARE(void) vec_setf(float z[], float x, int n); SPAN_DECLARE(void) vec_set(double z[], double x, int n); #if defined(HAVE_LONG_DOUBLE) SPAN_DECLARE(void) vec_setl(long double z[], long double x, int n); #endif SPAN_DECLARE(void) vec_addf(float z[], const float x[], const float y[], int n); SPAN_DECLARE(void) vec_add(double z[], const double x[], const double y[], int n); #if defined(HAVE_LONG_DOUBLE) SPAN_DECLARE(void) vec_addl(long double z[], const long double x[], const long double y[], int n); #endif SPAN_DECLARE(void) vec_scaledxy_addf(float z[], const float x[], float x_scale, const float y[], float y_scale, int n); SPAN_DECLARE(void) vec_scaledxy_add(double z[], const double x[], double x_scale, const double y[], double y_scale, int n); #if defined(HAVE_LONG_DOUBLE) SPAN_DECLARE(void) vec_scaledxy_addl(long double z[], const long double x[], long double x_scale, const long double y[], long double y_scale, int n); #endif SPAN_DECLARE(void) vec_scaledy_addf(float z[], const float x[], const float y[], float y_scale, int n); SPAN_DECLARE(void) vec_scaledy_add(double z[], const double x[], const double y[], double y_scale, int n); #if defined(HAVE_LONG_DOUBLE) SPAN_DECLARE(void) vec_scaledy_addl(long double z[], const long double x[], const long double y[], long double y_scale, int n); #endif SPAN_DECLARE(void) vec_subf(float z[], const float x[], const float y[], int n); SPAN_DECLARE(void) vec_sub(double z[], const double x[], const double y[], int n); #if defined(HAVE_LONG_DOUBLE) SPAN_DECLARE(void) vec_subl(long double z[], const long double x[], const long double y[], int n); #endif SPAN_DECLARE(void) vec_scaledxy_subf(float z[], const float x[], float x_scale, const float y[], float y_scale, int n); SPAN_DECLARE(void) vec_scaledxy_sub(double z[], const double x[], double x_scale, const double y[], double y_scale, int n); #if defined(HAVE_LONG_DOUBLE) SPAN_DECLARE(void) vec_scaledxy_subl(long double z[], const long double x[], long double x_scale, const long double y[], long double y_scale, int n); #endif SPAN_DECLARE(void) vec_scaledx_subf(float z[], const float x[], float x_scale, const float y[], int n); SPAN_DECLARE(void) vec_scaledx_sub(double z[], const double x[], double x_scale, const double y[], int n); #if defined(HAVE_LONG_DOUBLE) SPAN_DECLARE(void) vec_scaledx_subl(long double z[], const long double x[], long double x_scale, const long double y[], int n); #endif SPAN_DECLARE(void) vec_scaledy_subf(float z[], const float x[], const float y[], float y_scale, int n); SPAN_DECLARE(void) vec_scaledy_sub(double z[], const double x[], const double y[], double y_scale, int n); #if defined(HAVE_LONG_DOUBLE) SPAN_DECLARE(void) vec_scaledy_subl(long double z[], const long double x[], const long double y[], long double y_scale, int n); #endif SPAN_DECLARE(void) vec_scalar_mulf(float z[], const float x[], float y, int n); SPAN_DECLARE(void) vec_scalar_mul(double z[], const double x[], double y, int n); #if defined(HAVE_LONG_DOUBLE) SPAN_DECLARE(void) vec_scalar_mull(long double z[], const long double x[], long double y, int n); #endif SPAN_DECLARE(void) vec_scalar_addf(float z[], const float x[], float y, int n); SPAN_DECLARE(void) vec_scalar_add(double z[], const double x[], double y, int n); #if defined(HAVE_LONG_DOUBLE) SPAN_DECLARE(void) vec_scalar_addl(long double z[], const long double x[], long double y, int n); #endif SPAN_DECLARE(void) vec_scalar_subf(float z[], const float x[], float y, int n); SPAN_DECLARE(void) vec_scalar_sub(double z[], const double x[], double y, int n); #if defined(HAVE_LONG_DOUBLE) SPAN_DECLARE(void) vec_scalar_subl(long double z[], const long double x[], long double y, int n); #endif SPAN_DECLARE(void) vec_mulf(float z[], const float x[], const float y[], int n); SPAN_DECLARE(void) vec_mul(double z[], const double x[], const double y[], int n); #if defined(HAVE_LONG_DOUBLE) SPAN_DECLARE(void) vec_mull(long double z[], const long double x[], const long double y[], int n); #endif /*! \brief Find the dot product of two float vectors. \param x The first vector. \param y The first vector. \param n The number of elements in the vectors. \return The dot product of the two vectors. */ SPAN_DECLARE(float) vec_dot_prodf(const float x[], const float y[], int n); /*! \brief Find the dot product of two double vectors. \param x The first vector. \param y The first vector. \param n The number of elements in the vectors. \return The dot product of the two vectors. */ SPAN_DECLARE(double) vec_dot_prod(const double x[], const double y[], int n); #if defined(HAVE_LONG_DOUBLE) /*! \brief Find the dot product of two long double vectors. \param x The first vector. \param y The first vector. \param n The number of elements in the vectors. \return The dot product of the two vectors. */ SPAN_DECLARE(long double) vec_dot_prodl(const long double x[], const long double y[], int n); #endif /*! \brief Find the dot product of two float vectors, where the first is a circular buffer with an offset for the starting position. \param x The first vector. \param y The first vector. \param n The number of elements in the vectors. \param pos The starting position in the x vector. \return The dot product of the two vectors. */ SPAN_DECLARE(float) vec_circular_dot_prodf(const float x[], const float y[], int n, int pos); SPAN_DECLARE(void) vec_lmsf(const float x[], float y[], int n, float error); SPAN_DECLARE(void) vec_circular_lmsf(const float x[], float y[], int n, int pos, float error); #if defined(__cplusplus) } #endif #endif /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/spandsp/fax_modems.h0000664000175000017500000000630111422612264017331 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * fax_modems.h - definitions for the analogue modem set for fax processing * * Written by Steve Underwood * * Copyright (C) 2008 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \file */ #if !defined(_SPANDSP_FAX_MODEMS_H_) #define _SPANDSP_FAX_MODEMS_H_ enum { FAX_MODEM_NONE = -1, FAX_MODEM_FLUSH = 0, FAX_MODEM_SILENCE_TX, FAX_MODEM_SILENCE_RX, FAX_MODEM_CED_TONE, FAX_MODEM_CNG_TONE, FAX_MODEM_NOCNG_TONE, FAX_MODEM_V21_TX, FAX_MODEM_V17_TX, FAX_MODEM_V27TER_TX, FAX_MODEM_V29_TX, FAX_MODEM_V21_RX, FAX_MODEM_V17_RX, FAX_MODEM_V27TER_RX, FAX_MODEM_V29_RX }; /*! The set of modems needed for FAX, plus the auxilliary stuff, like tone generation. */ typedef struct fax_modems_state_s fax_modems_state_t; #if defined(__cplusplus) extern "C" { #endif /* N.B. the following are currently a work in progress */ SPAN_DECLARE_NONSTD(int) fax_modems_v17_v21_rx(void *user_data, const int16_t amp[], int len); SPAN_DECLARE_NONSTD(int) fax_modems_v27ter_v21_rx(void *user_data, const int16_t amp[], int len); SPAN_DECLARE_NONSTD(int) fax_modems_v29_v21_rx(void *user_data, const int16_t amp[], int len); SPAN_DECLARE_NONSTD(int) fax_modems_v17_v21_rx_fillin(void *user_data, int len); SPAN_DECLARE_NONSTD(int) fax_modems_v27ter_v21_rx_fillin(void *user_data, int len); SPAN_DECLARE_NONSTD(int) fax_modems_v29_v21_rx_fillin(void *user_data, int len); SPAN_DECLARE(void) fax_modems_start_rx_modem(fax_modems_state_t *s, int which); SPAN_DECLARE(void) fax_modems_set_tep_mode(fax_modems_state_t *s, int use_tep); SPAN_DECLARE(int) fax_modems_restart(fax_modems_state_t *s); SPAN_DECLARE(fax_modems_state_t *) fax_modems_init(fax_modems_state_t *s, int use_tep, hdlc_frame_handler_t hdlc_accept, hdlc_underflow_handler_t hdlc_tx_underflow, put_bit_func_t non_ecm_put_bit, get_bit_func_t non_ecm_get_bit, tone_report_func_t tone_callback, void *user_data); SPAN_DECLARE(int) fax_modems_release(fax_modems_state_t *s); SPAN_DECLARE(int) fax_modems_free(fax_modems_state_t *s); #if defined(__cplusplus) } #endif #endif /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/spandsp/tone_detect.h0000664000175000017500000002170511422612264017511 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * tone_detect.h - General telephony tone detection. * * Written by Steve Underwood * * Copyright (C) 2001, 2005 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #if !defined(_SPANDSP_TONE_DETECT_H_) #define _SPANDSP_TONE_DETECT_H_ /*! Goertzel filter descriptor. */ struct goertzel_descriptor_s { #if defined(SPANDSP_USE_FIXED_POINT) int16_t fac; #else float fac; #endif int samples; }; /*! Goertzel filter state descriptor. */ struct goertzel_state_s { #if defined(SPANDSP_USE_FIXED_POINT) int16_t v2; int16_t v3; int16_t fac; #else float v2; float v3; float fac; #endif int samples; int current_sample; }; /*! Goertzel filter descriptor. */ typedef struct goertzel_descriptor_s goertzel_descriptor_t; /*! Goertzel filter state descriptor. */ typedef struct goertzel_state_s goertzel_state_t; #if defined(__cplusplus) extern "C" { #endif /*! \brief Create a descriptor for use with either a Goertzel transform */ SPAN_DECLARE(void) make_goertzel_descriptor(goertzel_descriptor_t *t, float freq, int samples); /*! \brief Initialise the state of a Goertzel transform. \param s The Goertzel context. If NULL, a context is allocated with malloc. \param t The Goertzel descriptor. \return A pointer to the Goertzel state. */ SPAN_DECLARE(goertzel_state_t *) goertzel_init(goertzel_state_t *s, goertzel_descriptor_t *t); SPAN_DECLARE(int) goertzel_release(goertzel_state_t *s); SPAN_DECLARE(int) goertzel_free(goertzel_state_t *s); /*! \brief Reset the state of a Goertzel transform. \param s The Goertzel context. */ SPAN_DECLARE(void) goertzel_reset(goertzel_state_t *s); /*! \brief Update the state of a Goertzel transform. \param s The Goertzel context. \param amp The samples to be transformed. \param samples The number of samples. \return The number of samples unprocessed */ SPAN_DECLARE(int) goertzel_update(goertzel_state_t *s, const int16_t amp[], int samples); /*! \brief Evaluate the final result of a Goertzel transform. \param s The Goertzel context. \return The result of the transform. The expected result for a pure sine wave signal of level x dBm0, at the very centre of the bin is: [Floating point] ((samples_per_goertzel_block*32768.0/1.4142)*10^((x - DBM0_MAX_SINE_POWER)/20.0))^2 [Fixed point] ((samples_per_goertzel_block*256.0/1.4142)*10^((x - DBM0_MAX_SINE_POWER)/20.0))^2 */ #if defined(SPANDSP_USE_FIXED_POINT) SPAN_DECLARE(int32_t) goertzel_result(goertzel_state_t *s); #else SPAN_DECLARE(float) goertzel_result(goertzel_state_t *s); #endif /*! \brief Update the state of a Goertzel transform. \param s The Goertzel context. \param amp The sample to be transformed. */ static __inline__ void goertzel_sample(goertzel_state_t *s, int16_t amp) { #if defined(SPANDSP_USE_FIXED_POINT) int16_t x; int16_t v1; #else float v1; #endif v1 = s->v2; s->v2 = s->v3; #if defined(SPANDSP_USE_FIXED_POINT) x = (((int32_t) s->fac*s->v2) >> 14); /* Scale down the input signal to avoid overflows. 9 bits is enough to monitor the signals of interest with adequate dynamic range and resolution. In telephony we generally only start with 13 or 14 bits, anyway. */ s->v3 = x - v1 + (amp >> 7); #else s->v3 = s->fac*s->v2 - v1 + amp; #endif s->current_sample++; } /*- End of function --------------------------------------------------------*/ /* Scale down the input signal to avoid overflows. 9 bits is enough to monitor the signals of interest with adequate dynamic range and resolution. In telephony we generally only start with 13 or 14 bits, anyway. This is sufficient for the longest Goertzel we currently use. */ #if defined(SPANDSP_USE_FIXED_POINT) #define goertzel_preadjust_amp(amp) (((int16_t) amp) >> 7) #else #define goertzel_preadjust_amp(amp) ((float) amp) #endif /* Minimal update the state of a Goertzel transform. This is similar to goertzel_sample, but more suited to blocks of Goertzels. It assumes the amplitude is pre-shifted, and does not update the per-state sample count. \brief Update the state of a Goertzel transform. \param s The Goertzel context. \param amp The adjusted sample to be transformed. */ #if defined(SPANDSP_USE_FIXED_POINT) static __inline__ void goertzel_samplex(goertzel_state_t *s, int16_t amp) #else static __inline__ void goertzel_samplex(goertzel_state_t *s, float amp) #endif { #if defined(SPANDSP_USE_FIXED_POINT) int16_t x; int16_t v1; #else float v1; #endif v1 = s->v2; s->v2 = s->v3; #if defined(SPANDSP_USE_FIXED_POINT) x = (((int32_t) s->fac*s->v2) >> 14); s->v3 = x - v1 + amp; #else s->v3 = s->fac*s->v2 - v1 + amp; #endif } /*- End of function --------------------------------------------------------*/ /*! Generate a Hamming weighted coefficient set, to be used for a periodogram analysis. \param coeffs The generated coefficients. \param freq The frequency to be matched by the periodogram, in Hz. \param sample_rate The sample rate of the signal, in samples per second. \param window_len The length of the periodogram window. This must be an even number. \return The number of generated coefficients. */ SPAN_DECLARE(int) periodogram_generate_coeffs(complexf_t coeffs[], float freq, int sample_rate, int window_len); /*! Generate the phase offset to be expected between successive periodograms evaluated at the specified interval. \param offset A point to the generated phase offset. \param freq The frequency being matched by the periodogram, in Hz. \param sample_rate The sample rate of the signal, in samples per second. \param interval The interval between periodograms, in samples. \return The scaling factor. */ SPAN_DECLARE(float) periodogram_generate_phase_offset(complexf_t *offset, float freq, int sample_rate, int interval); /*! Evaluate a periodogram. \param coeffs A set of coefficients generated by periodogram_generate_coeffs(). \param amp The complex amplitude of the signal. \param len The length of the periodogram, in samples. This must be an even number. \return The periodogram result. */ SPAN_DECLARE(complexf_t) periodogram(const complexf_t coeffs[], const complexf_t amp[], int len); /*! Prepare data for evaluating a set of periodograms. \param sum A vector of sums of pairs of signal samples. This will be half the length of len. \param diff A vector of differences between pairs of signal samples. This will be half the length of len. \param amp The complex amplitude of the signal. \param len The length of the periodogram, in samples. This must be an even number. \return The length of the vectors sum and diff. */ SPAN_DECLARE(int) periodogram_prepare(complexf_t sum[], complexf_t diff[], const complexf_t amp[], int len); /*! Evaluate a periodogram, based on data prepared by periodogram_prepare(). This is more efficient than using periodogram() when several periodograms are to be applied to the same signal. \param coeffs A set of coefficients generated by periodogram_generate_coeffs(). \param sum A vector of sums produced by periodogram_prepare(). \param diff A vector of differences produced by periodogram_prepare(). \param len The length of the periodogram, in samples. This must be an even number. \return The periodogram result. */ SPAN_DECLARE(complexf_t) periodogram_apply(const complexf_t coeffs[], const complexf_t sum[], const complexf_t diff[], int len); /*! Apply a phase offset, to find the frequency error between periodogram evaluations. specified interval. \param phase_offset A point to the expected phase offset. \param scale The scaling factor to be used. \param last_result A pointer to the previous periodogram result. \param result A pointer to the current periodogram result. \return The frequency error, in Hz. */ SPAN_DECLARE(float) periodogram_freq_error(const complexf_t *phase_offset, float scale, const complexf_t *last_result, const complexf_t *result); #if defined(__cplusplus) } #endif #endif /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/spandsp/t4_t6_decode.h0000664000175000017500000000316311422612264017455 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * t4_t6_decode.h - definitions for T.4/T.6 fax decoding * * Written by Steve Underwood * * Copyright (C) 2003, 2009 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \file */ #if !defined(_SPANDSP_T4_T6_DECODE_H_) #define _SPANDSP_T4_T6_DECODE_H_ /*! \page t4_t6_decode_page T.4 and T.6 FAX image decompression \section t4_t6_decode_page_sec_1 What does it do? The T.4 image compression and decompression routines implement the 1D and 2D encoding methods defined in ITU specification T.4. They also implement the pure 2D encoding method defined in T.6. These are image compression algorithms used for FAX transmission. \section t4_t6_decode_page_sec_1 How does it work? */ typedef struct t4_t6_decode_state_s t4_t6_decode_state_t; #if defined(__cplusplus) extern "C" { #endif #if defined(__cplusplus) } #endif #endif /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/spandsp/dc_restore.h0000664000175000017500000000564411422612264017351 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * dc_restore.h - General telephony routines to restore the zero D.C. * level to audio which has a D.C. bias. * * Written by Steve Underwood * * Copyright (C) 2001 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \file */ #if !defined(_SPANDSP_DC_RESTORE_H_) #define _SPANDSP_DC_RESTORE_H_ /*! \page dc_restore_page Removing DC bias from a signal \section dc_restore_page_sec_1 What does it do? Telecoms signals often contain considerable DC, but DC upsets a lot of signal processing functions. Placing a zero DC restorer at the front of the processing chain can often simplify the downstream processing. \section dc_restore_page_sec_2 How does it work? The DC restorer uses a leaky integrator to provide a long-ish term estimate of the DC bias in the signal. A 32 bit estimate is used for the 16 bit audio, so the noise introduced by the estimation can be keep in the lower bits, and the 16 bit DC value, which is subtracted from the signal, is fairly clean. The following code fragment shows the algorithm used. dc_bias is a 32 bit integer, while the sample and the resulting clean_sample are 16 bit integers. dc_bias += ((((int32_t) sample << 15) - dc_bias) >> 14); clean_sample = sample - (dc_bias >> 15); */ /*! Zero DC restoration descriptor. This defines the working state for a single instance of DC content filter. */ typedef struct { int32_t state; } dc_restore_state_t; #if defined(__cplusplus) extern "C" { #endif static __inline__ void dc_restore_init(dc_restore_state_t *dc) { dc->state = 0; } /*- End of function --------------------------------------------------------*/ static __inline__ int16_t dc_restore(dc_restore_state_t *dc, int16_t sample) { dc->state += ((((int32_t) sample << 15) - dc->state) >> 14); return (int16_t) (sample - (dc->state >> 15)); } /*- End of function --------------------------------------------------------*/ static __inline__ int16_t dc_restore_estimate(dc_restore_state_t *dc) { return (int16_t) (dc->state >> 15); } /*- End of function --------------------------------------------------------*/ #if defined(__cplusplus) } #endif #endif /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/spandsp/tone_generate.h0000664000175000017500000001001211422612264020020 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * tone_generate.h - General telephony tone generation. * * Written by Steve Underwood * * Copyright (C) 2001 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \file */ #if !defined(_SPANDSP_TONE_GENERATE_H_) #define _SPANDSP_TONE_GENERATE_H_ /*! \page tone_generation_page Tone generation \section tone_generation_page_sec_1 What does it do? The tone generation module provides for the generation of cadenced tones, suitable for a wide range of telephony applications. \section tone_generation_page_sec_2 How does it work? Oscillators are a problem. They oscillate due to instability, and yet we need them to behave in a stable manner. A look around the web will reveal many papers on this subject. Many describe rather complex solutions to the problem. However, we are only concerned with telephony applications. It is possible to generate the tones we need with a very simple efficient scheme. It is also practical to use an exhaustive test to prove the oscillator is stable under all the conditions in which we will use it. */ typedef struct tone_gen_tone_descriptor_s tone_gen_tone_descriptor_t; /*! Cadenced multi-tone generator descriptor. */ typedef struct tone_gen_descriptor_s tone_gen_descriptor_t; /*! Cadenced multi-tone generator state descriptor. This defines the state of a single working instance of a generator. */ typedef struct tone_gen_state_s tone_gen_state_t; #if defined(__cplusplus) extern "C" { #endif /*! Create a tone generator descriptor \brief Create a tone generator descriptor \param s The descriptor \param f1 The first frequency, in Hz \param l1 The level of the first frequency, in dBm0 \param f2 0 for no second frequency, a positive number for the second frequency, in Hz, or a negative number for an AM modulation frequency, in Hz \param l2 The level of the second frequency, in dBm0, or the percentage modulation depth for an AM modulated tone. \param d1 x \param d2 x \param d3 x \param d4 x \param repeat x */ SPAN_DECLARE(tone_gen_descriptor_t *) tone_gen_descriptor_init(tone_gen_descriptor_t *s, int f1, int l1, int f2, int l2, int d1, int d2, int d3, int d4, int repeat); /* For backwards compatibility */ #define make_tone_gen_descriptor tone_gen_descriptor_init SPAN_DECLARE(void) tone_gen_descriptor_free(tone_gen_descriptor_t *s); SPAN_DECLARE_NONSTD(int) tone_gen(tone_gen_state_t *s, int16_t amp[], int max_samples); SPAN_DECLARE(tone_gen_state_t *) tone_gen_init(tone_gen_state_t *s, tone_gen_descriptor_t *t); SPAN_DECLARE(int) tone_gen_release(tone_gen_state_t *s); SPAN_DECLARE(int) tone_gen_free(tone_gen_state_t *s); #if defined(__cplusplus) } #endif #endif /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/spandsp/fir.h0000664000175000017500000002056711422612264016001 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * fir.h - General telephony FIR routines * * Written by Steve Underwood * * Copyright (C) 2002 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \page fir_page FIR filtering \section fir_page_sec_1 What does it do? ???. \section fir_page_sec_2 How does it work? ???. */ #if !defined(_SPANDSP_FIR_H_) #define _SPANDSP_FIR_H_ #if defined(USE_MMX) || defined(USE_SSE2) #include "mmx.h" #endif /*! 16 bit integer FIR descriptor. This defines the working state for a single instance of an FIR filter using 16 bit integer coefficients. */ typedef struct { int taps; int curr_pos; const int16_t *coeffs; int16_t *history; } fir16_state_t; /*! 32 bit integer FIR descriptor. This defines the working state for a single instance of an FIR filter using 32 bit integer coefficients, and filtering 16 bit integer data. */ typedef struct { int taps; int curr_pos; const int32_t *coeffs; int16_t *history; } fir32_state_t; /*! Floating point FIR descriptor. This defines the working state for a single instance of an FIR filter using floating point coefficients and data. */ typedef struct { int taps; int curr_pos; const float *coeffs; float *history; } fir_float_state_t; #if defined(__cplusplus) extern "C" { #endif static __inline__ const int16_t *fir16_create(fir16_state_t *fir, const int16_t *coeffs, int taps) { fir->taps = taps; fir->curr_pos = taps - 1; fir->coeffs = coeffs; #if defined(USE_MMX) || defined(USE_SSE2) if ((fir->history = malloc(2*taps*sizeof(int16_t)))) memset(fir->history, 0, 2*taps*sizeof(int16_t)); #else if ((fir->history = (int16_t *) malloc(taps*sizeof(int16_t)))) memset(fir->history, 0, taps*sizeof(int16_t)); #endif return fir->history; } /*- End of function --------------------------------------------------------*/ static __inline__ void fir16_flush(fir16_state_t *fir) { #if defined(USE_MMX) || defined(USE_SSE2) memset(fir->history, 0, 2*fir->taps*sizeof(int16_t)); #else memset(fir->history, 0, fir->taps*sizeof(int16_t)); #endif } /*- End of function --------------------------------------------------------*/ static __inline__ void fir16_free(fir16_state_t *fir) { free(fir->history); } /*- End of function --------------------------------------------------------*/ static __inline__ int16_t fir16(fir16_state_t *fir, int16_t sample) { int i; int32_t y; #if defined(USE_MMX) mmx_t *mmx_coeffs; mmx_t *mmx_hist; fir->history[fir->curr_pos] = sample; fir->history[fir->curr_pos + fir->taps] = sample; mmx_coeffs = (mmx_t *) fir->coeffs; mmx_hist = (mmx_t *) &fir->history[fir->curr_pos]; i = fir->taps; pxor_r2r(mm4, mm4); /* 8 samples per iteration, so the filter must be a multiple of 8 long. */ while (i > 0) { movq_m2r(mmx_coeffs[0], mm0); movq_m2r(mmx_coeffs[1], mm2); movq_m2r(mmx_hist[0], mm1); movq_m2r(mmx_hist[1], mm3); mmx_coeffs += 2; mmx_hist += 2; pmaddwd_r2r(mm1, mm0); pmaddwd_r2r(mm3, mm2); paddd_r2r(mm0, mm4); paddd_r2r(mm2, mm4); i -= 8; } movq_r2r(mm4, mm0); psrlq_i2r(32, mm0); paddd_r2r(mm0, mm4); movd_r2m(mm4, y); emms(); #elif defined(USE_SSE2) xmm_t *xmm_coeffs; xmm_t *xmm_hist; fir->history[fir->curr_pos] = sample; fir->history[fir->curr_pos + fir->taps] = sample; xmm_coeffs = (xmm_t *) fir->coeffs; xmm_hist = (xmm_t *) &fir->history[fir->curr_pos]; i = fir->taps; pxor_r2r(xmm4, xmm4); /* 16 samples per iteration, so the filter must be a multiple of 16 long. */ while (i > 0) { movdqu_m2r(xmm_coeffs[0], xmm0); movdqu_m2r(xmm_coeffs[1], xmm2); movdqu_m2r(xmm_hist[0], xmm1); movdqu_m2r(xmm_hist[1], xmm3); xmm_coeffs += 2; xmm_hist += 2; pmaddwd_r2r(xmm1, xmm0); pmaddwd_r2r(xmm3, xmm2); paddd_r2r(xmm0, xmm4); paddd_r2r(xmm2, xmm4); i -= 16; } movdqa_r2r(xmm4, xmm0); psrldq_i2r(8, xmm0); paddd_r2r(xmm0, xmm4); movdqa_r2r(xmm4, xmm0); psrldq_i2r(4, xmm0); paddd_r2r(xmm0, xmm4); movd_r2m(xmm4, y); #else int offset1; int offset2; fir->history[fir->curr_pos] = sample; offset2 = fir->curr_pos; offset1 = fir->taps - offset2; y = 0; for (i = fir->taps - 1; i >= offset1; i--) y += fir->coeffs[i]*fir->history[i - offset1]; for ( ; i >= 0; i--) y += fir->coeffs[i]*fir->history[i + offset2]; #endif if (fir->curr_pos <= 0) fir->curr_pos = fir->taps; fir->curr_pos--; return (int16_t) (y >> 15); } /*- End of function --------------------------------------------------------*/ static __inline__ const int16_t *fir32_create(fir32_state_t *fir, const int32_t *coeffs, int taps) { fir->taps = taps; fir->curr_pos = taps - 1; fir->coeffs = coeffs; fir->history = (int16_t *) malloc(taps*sizeof(int16_t)); if (fir->history) memset(fir->history, '\0', taps*sizeof(int16_t)); return fir->history; } /*- End of function --------------------------------------------------------*/ static __inline__ void fir32_flush(fir32_state_t *fir) { memset(fir->history, 0, fir->taps*sizeof(int16_t)); } /*- End of function --------------------------------------------------------*/ static __inline__ void fir32_free(fir32_state_t *fir) { free(fir->history); } /*- End of function --------------------------------------------------------*/ static __inline__ int16_t fir32(fir32_state_t *fir, int16_t sample) { int i; int32_t y; int offset1; int offset2; fir->history[fir->curr_pos] = sample; offset2 = fir->curr_pos; offset1 = fir->taps - offset2; y = 0; for (i = fir->taps - 1; i >= offset1; i--) y += fir->coeffs[i]*fir->history[i - offset1]; for ( ; i >= 0; i--) y += fir->coeffs[i]*fir->history[i + offset2]; if (fir->curr_pos <= 0) fir->curr_pos = fir->taps; fir->curr_pos--; return (int16_t) (y >> 15); } /*- End of function --------------------------------------------------------*/ static __inline__ const float *fir_float_create(fir_float_state_t *fir, const float *coeffs, int taps) { fir->taps = taps; fir->curr_pos = taps - 1; fir->coeffs = coeffs; fir->history = (float *) malloc(taps*sizeof(float)); if (fir->history) memset(fir->history, '\0', taps*sizeof(float)); return fir->history; } /*- End of function --------------------------------------------------------*/ static __inline__ void fir_float_free(fir_float_state_t *fir) { free(fir->history); } /*- End of function --------------------------------------------------------*/ static __inline__ int16_t fir_float(fir_float_state_t *fir, int16_t sample) { int i; float y; int offset1; int offset2; fir->history[fir->curr_pos] = sample; offset2 = fir->curr_pos; offset1 = fir->taps - offset2; y = 0; for (i = fir->taps - 1; i >= offset1; i--) y += fir->coeffs[i]*fir->history[i - offset1]; for ( ; i >= 0; i--) y += fir->coeffs[i]*fir->history[i + offset2]; if (fir->curr_pos <= 0) fir->curr_pos = fir->taps; fir->curr_pos--; return (int16_t) y; } /*- End of function --------------------------------------------------------*/ #if defined(__cplusplus) } #endif #endif /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/spandsp/lpc10.h0000664000175000017500000000753411422612264016137 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * lpc10.h - LPC10 low bit rate speech codec. * * Written by Steve Underwood * * Copyright (C) 2006 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #if !defined(_SPANDSP_LPC10_H_) #define _SPANDSP_LPC10_H_ /*! \page lpc10_page LPC10 encoding and decoding \section lpc10_page_sec_1 What does it do? The LPC10 module implements the US Department of Defense LPC10 codec. This codec produces compressed data at 2400bps. At such a low rate high fidelity cannot be expected. However, the speech clarity is quite good, and this codec is unencumbered by patent or other restrictions. \section lpc10_page_sec_2 How does it work? ???. */ #define LPC10_SAMPLES_PER_FRAME 180 #define LPC10_BITS_IN_COMPRESSED_FRAME 54 /*! LPC10 codec unpacked frame. */ typedef struct { /*! Pitch */ int32_t ipitch; /*! Energy */ int32_t irms; /*! Reflection coefficients */ int32_t irc[10]; } lpc10_frame_t; /*! LPC10 codec encoder state descriptor. This defines the state of a single working instance of the LPC10 encoder. */ typedef struct lpc10_encode_state_s lpc10_encode_state_t; /*! LPC10 codec decoder state descriptor. This defines the state of a single working instance of the LPC10 decoder. */ typedef struct lpc10_decode_state_s lpc10_decode_state_t; #if defined(__cplusplus) extern "C" { #endif /*! Initialise an LPC10e encode context. \param s The LPC10e context \param error_correction ??? \return A pointer to the LPC10e context, or NULL for error. */ SPAN_DECLARE(lpc10_encode_state_t *) lpc10_encode_init(lpc10_encode_state_t *s, int error_correction); SPAN_DECLARE(int) lpc10_encode_release(lpc10_encode_state_t *s); SPAN_DECLARE(int) lpc10_encode_free(lpc10_encode_state_t *s); /*! Encode a buffer of linear PCM data to LPC10e. \param s The LPC10e context. \param ima_data The LPC10e data produced. \param amp The audio sample buffer. \param len The number of samples in the buffer. This must be a multiple of 180, as this is the number of samples on a frame. \return The number of bytes of LPC10e data produced. */ SPAN_DECLARE(int) lpc10_encode(lpc10_encode_state_t *s, uint8_t code[], const int16_t amp[], int len); /*! Initialise an LPC10e decode context. \param s The LPC10e context \param error_correction ??? \return A pointer to the LPC10e context, or NULL for error. */ SPAN_DECLARE(lpc10_decode_state_t *) lpc10_decode_init(lpc10_decode_state_t *st, int error_correction); SPAN_DECLARE(int) lpc10_decode_release(lpc10_decode_state_t *s); SPAN_DECLARE(int) lpc10_decode_free(lpc10_decode_state_t *s); /*! Decode a buffer of LPC10e data to linear PCM. \param s The LPC10e context. \param amp The audio sample buffer. \param code The LPC10e data. \param len The number of bytes of LPC10e data to be decoded. This must be a multiple of 7, as each frame is packed into 7 bytes. \return The number of samples returned. */ SPAN_DECLARE(int) lpc10_decode(lpc10_decode_state_t *s, int16_t amp[], const uint8_t code[], int len); #if defined(__cplusplus) } #endif #endif /*- End of include ---------------------------------------------------------*/ spandsp-0.0.6/src/spandsp/g722.h0000664000175000017500000001007311422612264015671 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * g722.h - The ITU G.722 codec. * * Written by Steve Underwood * * Copyright (C) 2005 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. * * Based on a single channel G.722 codec which is: * ***** Copyright (c) CMU 1993 ***** * Computer Science, Speech Group * Chengxiang Lu and Alex Hauptmann */ /*! \file */ #if !defined(_SPANDSP_G722_H_) #define _SPANDSP_G722_H_ /*! \page g722_page G.722 encoding and decoding \section g722_page_sec_1 What does it do? The G.722 module is a bit exact implementation of the ITU G.722 specification for all three specified bit rates - 64000bps, 56000bps and 48000bps. It passes the ITU tests. To allow fast and flexible interworking with narrow band telephony, the encoder and decoder support an option for the linear audio to be an 8k samples/second stream. In this mode the codec is considerably faster, and still fully compatible with wideband terminals using G.722. \section g722_page_sec_2 How does it work? ???. */ enum { G722_SAMPLE_RATE_8000 = 0x0001, G722_PACKED = 0x0002 }; /*! G.722 encode state */ typedef struct g722_encode_state_s g722_encode_state_t; /*! G.722 decode state */ typedef struct g722_decode_state_s g722_decode_state_t; #if defined(__cplusplus) extern "C" { #endif /*! Initialise an G.722 encode context. \param s The G.722 encode context. \param rate The required bit rate for the G.722 data. The valid rates are 64000, 56000 and 48000. \param options \return A pointer to the G.722 encode context, or NULL for error. */ SPAN_DECLARE(g722_encode_state_t *) g722_encode_init(g722_encode_state_t *s, int rate, int options); /*! Release a G.722 encode context. \param s The G.722 encode context. \return 0 for OK. */ SPAN_DECLARE(int) g722_encode_release(g722_encode_state_t *s); /*! Free a G.722 encode context. \param s The G.722 encode context. \return 0 for OK. */ SPAN_DECLARE(int) g722_encode_free(g722_encode_state_t *s); /*! Encode a buffer of linear PCM data to G.722 \param s The G.722 context. \param g722_data The G.722 data produced. \param amp The audio sample buffer. \param len The number of samples in the buffer. \return The number of bytes of G.722 data produced. */ SPAN_DECLARE(int) g722_encode(g722_encode_state_t *s, uint8_t g722_data[], const int16_t amp[], int len); /*! Initialise an G.722 decode context. \param s The G.722 decode context. \param rate The bit rate of the G.722 data. The valid rates are 64000, 56000 and 48000. \param options \return A pointer to the G.722 decode context, or NULL for error. */ SPAN_DECLARE(g722_decode_state_t *) g722_decode_init(g722_decode_state_t *s, int rate, int options); /*! Release a G.722 decode context. \param s The G.722 decode context. \return 0 for OK. */ SPAN_DECLARE(int) g722_decode_release(g722_decode_state_t *s); /*! Free a G.722 decode context. \param s The G.722 decode context. \return 0 for OK. */ SPAN_DECLARE(int) g722_decode_free(g722_decode_state_t *s); /*! Decode a buffer of G.722 data to linear PCM. \param s The G.722 context. \param amp The audio sample buffer. \param g722_data \param len \return The number of samples returned. */ SPAN_DECLARE(int) g722_decode(g722_decode_state_t *s, int16_t amp[], const uint8_t g722_data[], int len); #if defined(__cplusplus) } #endif #endif spandsp-0.0.6/src/spandsp/bert.h0000664000175000017500000001201711422612263016143 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * bert.h - Bit error rate tests. * * Written by Steve Underwood * * Copyright (C) 2004 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #if !defined(_SPANDSP_BERT_H_) #define _SPANDSP_BERT_H_ /*! \page bert_page The Bit Error Rate tester \section bert_page_sec_1 What does it do? The Bit Error Rate tester generates a pseudo random bit stream. It also accepts such a pattern, synchronises to it, and checks the bit error rate in this stream. \section bert_page_sec_2 How does it work? The Bit Error Rate tester generates a bit stream, with a repeating 2047 bit pseudo random pattern, using an 11 stage polynomial generator. It also accepts such a pattern, synchronises to it, and checks the bit error rate in this stream. If the error rate is excessive the tester assumes synchronisation has been lost, and it attempts to resynchronise with the stream. The bit error rate is continuously assessed against decadic ranges - > 1 in 10^2 > 1 in 10^3 > 1 in 10^4 > 1 in 10^5 > 1 in 10^6 > 1 in 10^7 < 1 in 10^7 To ensure fairly smooth results from this assessment, each decadic level is assessed over 10/error rate bits. That is, to assess if the signal's BER is above or below 1 in 10^5 the software looks over 10*10^5 => 10^6 bits. */ enum { BERT_REPORT_SYNCED = 0, BERT_REPORT_UNSYNCED, BERT_REPORT_REGULAR, BERT_REPORT_GT_10_2, BERT_REPORT_LT_10_2, BERT_REPORT_LT_10_3, BERT_REPORT_LT_10_4, BERT_REPORT_LT_10_5, BERT_REPORT_LT_10_6, BERT_REPORT_LT_10_7 }; /* The QBF strings should be: "VoyeZ Le BricK GeanT QuE J'ExaminE PreS Du WharF 123 456 7890 + - * : = $ % ( )" "ThE QuicK BrowN FoX JumpS OveR ThE LazY DoG 123 456 7890 + - * : = $ % ( )" */ enum { BERT_PATTERN_ZEROS = 0, BERT_PATTERN_ONES, BERT_PATTERN_7_TO_1, BERT_PATTERN_3_TO_1, BERT_PATTERN_1_TO_1, BERT_PATTERN_1_TO_3, BERT_PATTERN_1_TO_7, BERT_PATTERN_QBF, BERT_PATTERN_ITU_O151_23, BERT_PATTERN_ITU_O151_20, BERT_PATTERN_ITU_O151_15, BERT_PATTERN_ITU_O152_11, BERT_PATTERN_ITU_O153_9 }; /*! Bit error rate tester (BERT) results descriptor. This is used to report the results of a BER test. */ typedef struct { int total_bits; int bad_bits; int resyncs; } bert_results_t; typedef void (*bert_report_func_t)(void *user_data, int reason, bert_results_t *bert_results); /*! Bit error rate tester (BERT) descriptor. This defines the working state for a single instance of the BERT. */ typedef struct bert_state_s bert_state_t; #if defined(__cplusplus) extern "C" { #endif /*! Return a short description of a BERT event. \param event The event type. \return A pointer to a short text string describing the event. */ SPAN_DECLARE(const char *) bert_event_to_str(int event); /*! Initialise a BERT context. \param s The BERT context. \param limit The maximum test duration. \param pattern One of the supported BERT signal patterns. \param resync_len ??? \param resync_percent The percentage of bad bits which will cause a resync. \return The BERT context. */ SPAN_DECLARE(bert_state_t *) bert_init(bert_state_t *s, int limit, int pattern, int resync_len, int resync_percent); SPAN_DECLARE(int) bert_release(bert_state_t *s); SPAN_DECLARE(int) bert_free(bert_state_t *s); /*! Get the next bit of the BERT sequence from the generator. \param s The BERT context. \return The bit. */ SPAN_DECLARE(int) bert_get_bit(bert_state_t *s); /*! Put the next bit of the BERT sequence to the analyser. \param s The BERT context. \param bit The bit. */ SPAN_DECLARE(void) bert_put_bit(bert_state_t *s, int bit); /*! Set the callback function for reporting the test status. \param s The BERT context. \param freq The required frequency of regular reports. \param reporter The callback function. \param user_data An opaque pointer passed to the reporter routine. */ SPAN_DECLARE(void) bert_set_report(bert_state_t *s, int freq, bert_report_func_t reporter, void *user_data); /*! Get the results of the BERT. \param s The BERT context. \param results The results. \return The size of the result structure. */ SPAN_DECLARE(int) bert_result(bert_state_t *s, bert_results_t *results); #if defined(__cplusplus) } #endif #endif /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/spandsp/t38_core.h0000664000175000017500000004112011422612264016633 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * t38_core.h - An implementation of T.38, less the packet exchange part * * Written by Steve Underwood * * Copyright (C) 2005 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \file */ #if !defined(_SPANDSP_T38_CORE_H_) #define _SPANDSP_T38_CORE_H_ /*! \page t38_core_page T.38 real time FAX over IP message handling There are two ITU recommendations which address sending FAXes over IP networks. T.37 specifies a method of encapsulating FAX images in e-mails, and transporting them to the recipient (an e-mail box, or another FAX machine) in a store-and-forward manner. T.38 defines a protocol for transmitting a FAX across an IP network in real time. The core T.38 modules implements the basic message handling for the T.38, real time, FAX over IP (FoIP) protocol. The T.38 protocol can operate between: - Internet-aware FAX terminals, which connect directly to an IP network. The T.38 terminal module extends this module to provide a complete T.38 terminal. - FAX gateways, which allow traditional PSTN FAX terminals to communicate through the Internet. The T.38 gateway module extends this module to provide a T.38 gateway. - A combination of terminals and gateways. T.38 is the only standardised protocol which exists for real-time FoIP. Reliably transporting a FAX between PSTN FAX terminals, through an IP network, requires use of the T.38 protocol at FAX gateways. VoIP connections are not robust for modem use, including FAX modem use. Most use low bit rate codecs, which cannot convey the modem signals accurately. Even when high bit rate codecs are used, VoIP connections suffer dropouts and timing adjustments, which modems cannot tolerate. In a LAN environment the dropout rate may be very low, but the timing adjustments which occur in VoIP connections still make modem operation unreliable. T.38 FAX gateways deal with the delays, timing jitter, and packet loss experienced in packet networks, and isolate the PSTN FAX terminals from these as far as possible. In addition, by sending FAXes as image data, rather than digitised audio, they reduce the required bandwidth of the IP network. \section t38_core_page_sec_1 What does it do? \section t38_core_page_sec_2 How does it work? Timing differences and jitter between two T.38 entities can be a serious problem, if one of those entities is a PSTN gateway. Flow control for non-ECM image data takes advantage of several features of the T.30 specification. First, an unspecified number of 0xFF octets may be sent at the start of transmission. This means we can add endless extra 0xFF bytes at this point, without breaking the T.30 spec. In practice, we cannot add too many, or we will affect the timing tolerance of the T.30 protocol by delaying the response at the end of each image. Secondly, just before an end of line (EOL) marker we can pad with zero bits. Again, the number is limited only by need to avoid upsetting the timing of the step following the non-ECM data. */ /*! T.38 indicator types */ enum t30_indicator_types_e { T38_IND_NO_SIGNAL = 0, T38_IND_CNG, T38_IND_CED, T38_IND_V21_PREAMBLE, T38_IND_V27TER_2400_TRAINING, T38_IND_V27TER_4800_TRAINING, T38_IND_V29_7200_TRAINING, T38_IND_V29_9600_TRAINING, T38_IND_V17_7200_SHORT_TRAINING, T38_IND_V17_7200_LONG_TRAINING, T38_IND_V17_9600_SHORT_TRAINING, T38_IND_V17_9600_LONG_TRAINING, T38_IND_V17_12000_SHORT_TRAINING, T38_IND_V17_12000_LONG_TRAINING, T38_IND_V17_14400_SHORT_TRAINING, T38_IND_V17_14400_LONG_TRAINING, T38_IND_V8_ANSAM, T38_IND_V8_SIGNAL, T38_IND_V34_CNTL_CHANNEL_1200, T38_IND_V34_PRI_CHANNEL, T38_IND_V34_CC_RETRAIN, T38_IND_V33_12000_TRAINING, T38_IND_V33_14400_TRAINING }; /*! T.38 data types */ enum t38_data_types_e { T38_DATA_NONE = -1, T38_DATA_V21 = 0, T38_DATA_V27TER_2400, T38_DATA_V27TER_4800, T38_DATA_V29_7200, T38_DATA_V29_9600, T38_DATA_V17_7200, T38_DATA_V17_9600, T38_DATA_V17_12000, T38_DATA_V17_14400, T38_DATA_V8, T38_DATA_V34_PRI_RATE, T38_DATA_V34_CC_1200, T38_DATA_V34_PRI_CH, T38_DATA_V33_12000, T38_DATA_V33_14400 }; /*! T.38 data field types */ enum t38_field_types_e { T38_FIELD_HDLC_DATA = 0, T38_FIELD_HDLC_SIG_END, T38_FIELD_HDLC_FCS_OK, T38_FIELD_HDLC_FCS_BAD, T38_FIELD_HDLC_FCS_OK_SIG_END, T38_FIELD_HDLC_FCS_BAD_SIG_END, T38_FIELD_T4_NON_ECM_DATA, T38_FIELD_T4_NON_ECM_SIG_END, T38_FIELD_CM_MESSAGE, T38_FIELD_JM_MESSAGE, T38_FIELD_CI_MESSAGE, T38_FIELD_V34RATE }; /*! T.38 field classes */ enum t38_field_classes_e { T38_FIELD_CLASS_NONE = 0, T38_FIELD_CLASS_HDLC, T38_FIELD_CLASS_NON_ECM }; /*! T.38 message types */ enum t38_message_types_e { T38_TYPE_OF_MSG_T30_INDICATOR = 0, T38_TYPE_OF_MSG_T30_DATA }; /*! T.38 transport types */ enum t38_transport_types_e { T38_TRANSPORT_UDPTL = 0, T38_TRANSPORT_RTP, T38_TRANSPORT_TCP }; /*! T.38 TCF management types */ enum t38_data_rate_management_types_e { T38_DATA_RATE_MANAGEMENT_LOCAL_TCF = 1, T38_DATA_RATE_MANAGEMENT_TRANSFERRED_TCF = 2 }; /*! T.38 Packet categories used for setting the redundancy level and packet repeat counts on a packet by packet basis. */ enum t38_packet_categories_e { /*! \brief Indicator packet */ T38_PACKET_CATEGORY_INDICATOR = 0, /*! \brief Control data packet */ T38_PACKET_CATEGORY_CONTROL_DATA = 1, /*! \brief Terminating control data packet */ T38_PACKET_CATEGORY_CONTROL_DATA_END = 2, /*! \brief Image data packet */ T38_PACKET_CATEGORY_IMAGE_DATA = 3, /*! \brief Terminating image data packet */ T38_PACKET_CATEGORY_IMAGE_DATA_END = 4 }; #define T38_RX_BUF_LEN 2048 #define T38_TX_BUF_LEN 16384 /*! T.38 data field */ typedef struct { /*! Field type */ int field_type; /*! Field contents */ const uint8_t *field; /*! Field length */ int field_len; } t38_data_field_t; /*! Core T.38 state, common to all modes of T.38. */ typedef struct t38_core_state_s t38_core_state_t; typedef int (t38_tx_packet_handler_t)(t38_core_state_t *s, void *user_data, const uint8_t *buf, int len, int count); typedef int (t38_rx_indicator_handler_t)(t38_core_state_t *s, void *user_data, int indicator); typedef int (t38_rx_data_handler_t)(t38_core_state_t *s, void *user_data, int data_type, int field_type, const uint8_t *buf, int len); typedef int (t38_rx_missing_handler_t)(t38_core_state_t *s, void *user_data, int rx_seq_no, int expected_seq_no); #if defined(__cplusplus) extern "C" { #endif /*! \brief Convert the code for an indicator to a short text name. \param indicator The type of indicator. \return A pointer to a short text name for the indicator. */ SPAN_DECLARE(const char *) t38_indicator_to_str(int indicator); /*! \brief Convert the code for a type of data to a short text name. \param data_type The data type. \return A pointer to a short text name for the data type. */ SPAN_DECLARE(const char *) t38_data_type_to_str(int data_type); /*! \brief Convert the code for a type of data field to a short text name. \param field_type The field type. \return A pointer to a short text name for the field type. */ SPAN_DECLARE(const char *) t38_field_type_to_str(int field_type); /*! \brief Convert the code for a CM profile code to text description. \param profile The profile code from a CM message. \return A pointer to a short text description of the profile. */ SPAN_DECLARE(const char *) t38_cm_profile_to_str(int profile); /*! \brief Convert a JM message code to text description. \param data The data field of the message. \param len The length of the data field. \return A pointer to a short text description of the profile. */ SPAN_DECLARE(const char *) t38_jm_to_str(const uint8_t *data, int len); /*! \brief Convert a V34rate message to an actual bit rate. \param data The data field of the message. \param len The length of the data field. \return The bit rate, or -1 for a bad message. */ SPAN_DECLARE(int) t38_v34rate_to_bps(const uint8_t *data, int len); /*! \brief Send an indicator packet \param s The T.38 context. \param indicator The indicator to send. \return The delay to allow after this indicator is sent. */ SPAN_DECLARE(int) t38_core_send_indicator(t38_core_state_t *s, int indicator); /*! \brief Find the delay to allow for HDLC flags after sending an indicator \param s The T.38 context. \param indicator The indicator to check. \return The delay to allow for initial HDLC flags after this indicator is sent. */ SPAN_DECLARE(int) t38_core_send_flags_delay(t38_core_state_t *s, int indicator); /*! \brief Find the delay to allow for modem training after sending an indicator \param s The T.38 context. \param indicator The indicator to check. \return The delay to allow for modem training after this indicator is sent. */ SPAN_DECLARE(int) t38_core_send_training_delay(t38_core_state_t *s, int indicator); /*! \brief Send a data packet \param s The T.38 context. \param data_type The packet's data type. \param field_type The packet's field type. \param field The message data content for the packet. \param field_len The length of the message data, in bytes. \param category The category of the packet being sent. This should be one of the values defined for t38_packet_categories_e. \return ??? */ SPAN_DECLARE(int) t38_core_send_data(t38_core_state_t *s, int data_type, int field_type, const uint8_t field[], int field_len, int category); /*! \brief Send a data packet \param s The T.38 context. \param data_type The packet's data type. \param field The list of fields. \param fields The number of fields in the list. \param category The category of the packet being sent. This should be one of the values defined for t38_packet_categories_e. \return ??? */ SPAN_DECLARE(int) t38_core_send_data_multi_field(t38_core_state_t *s, int data_type, const t38_data_field_t field[], int fields, int category); /*! \brief Process a received T.38 IFP packet. \param s The T.38 context. \param buf The packet contents. \param len The length of the packet contents. \param seq_no The packet sequence number. \return 0 for OK, else -1. */ SPAN_DECLARE(int) t38_core_rx_ifp_packet(t38_core_state_t *s, const uint8_t *buf, int len, uint16_t seq_no); /*! Set the method to be used for data rate management, as per the T.38 spec. \param s The T.38 context. \param method 1 for pass TCF across the T.38 link, 2 for handle TCF locally. */ SPAN_DECLARE(void) t38_set_data_rate_management_method(t38_core_state_t *s, int method); /*! Set the data transport protocol. \param s The T.38 context. \param data_transport_protocol UDPTL, RTP or TPKT. */ SPAN_DECLARE(void) t38_set_data_transport_protocol(t38_core_state_t *s, int data_transport_protocol); /*! Set the non-ECM fill bit removal mode. \param s The T.38 context. \param fill_bit_removal TRUE to remove fill bits across the T.38 link, else FALSE. */ SPAN_DECLARE(void) t38_set_fill_bit_removal(t38_core_state_t *s, int fill_bit_removal); /*! Set the MMR transcoding mode. \param s The T.38 context. \param mmr_transcoding TRUE to transcode to MMR across the T.38 link, else FALSE. */ SPAN_DECLARE(void) t38_set_mmr_transcoding(t38_core_state_t *s, int mmr_transcoding); /*! Set the JBIG transcoding mode. \param s The T.38 context. \param jbig_transcoding TRUE to transcode to JBIG across the T.38 link, else FALSE. */ SPAN_DECLARE(void) t38_set_jbig_transcoding(t38_core_state_t *s, int jbig_transcoding); /*! Set the maximum buffer size for received data at the far end. \param s The T.38 context. \param max_buffer_size The maximum buffer size. */ SPAN_DECLARE(void) t38_set_max_buffer_size(t38_core_state_t *s, int max_buffer_size); /*! Set the maximum size of an IFP packet that is acceptable by the far end. \param s The T.38 context. \param max_datagram_size The maximum IFP packet length, in bytes. */ SPAN_DECLARE(void) t38_set_max_datagram_size(t38_core_state_t *s, int max_datagram_size); /*! \brief Send a data packet \param s The T.38 context. \param category The category of the packet being sent. This should be one of the values defined for t38_packet_categories_e. \param setting The repeat count for the category. This should be at least one for all categories other an indicator packets. Zero is valid for indicator packets, as it suppresses the sending of indicator packets, as an application using TCP for the transport would require. As the setting is passed through to the transmission channel, additional information may be encoded in it, such as the redundancy depth for the particular packet category. */ SPAN_DECLARE(void) t38_set_redundancy_control(t38_core_state_t *s, int category, int setting); SPAN_DECLARE(void) t38_set_fastest_image_data_rate(t38_core_state_t *s, int max_rate); SPAN_DECLARE(int) t38_get_fastest_image_data_rate(t38_core_state_t *s); /*! Set the T.38 version to be emulated. \param s The T.38 context. \param t38_version Version number, as in the T.38 spec. */ SPAN_DECLARE(void) t38_set_t38_version(t38_core_state_t *s, int t38_version); /*! Set the sequence number handling option. \param s The T.38 context. \param check TRUE to check sequence numbers, and handle gaps reasonably. FALSE for no sequence number processing (e.g. for TPKT over TCP transport). */ SPAN_DECLARE(void) t38_set_sequence_number_handling(t38_core_state_t *s, int check); /*! Set the TEP handling option. \param s The T.38 context. \param allow_for_tep TRUE to allow for TEP playout, else FALSE. */ SPAN_DECLARE(void) t38_set_tep_handling(t38_core_state_t *s, int allow_for_tep); /*! Get a pointer to the logging context associated with a T.38 context. \brief Get a pointer to the logging context associated with a T.38 context. \param s The T.38 context. \return A pointer to the logging context, or NULL. */ SPAN_DECLARE(logging_state_t *) t38_core_get_logging_state(t38_core_state_t *s); /*! Restart a T.38 core context. \brief Restart a T.38 core context. \param s The T.38 context. \return 0 for OK, else -1. */ SPAN_DECLARE(int) t38_core_restart(t38_core_state_t *s); /*! Initialise a T.38 core context. \brief Initialise a T.38 core context. \param s The T.38 context. \param rx_indicator_handler Receive indicator handling routine. \param rx_data_handler Receive data packet handling routine. \param rx_rx_missing_handler Missing receive packet handling routine. \param rx_packet_user_data An opaque pointer passed to the rx packet handling routines. \param tx_packet_handler Packet transmit handling routine. \param tx_packet_user_data An opaque pointer passed to the tx_packet_handler. \return A pointer to the T.38 context, or NULL if there was a problem. */ SPAN_DECLARE(t38_core_state_t *) t38_core_init(t38_core_state_t *s, t38_rx_indicator_handler_t *rx_indicator_handler, t38_rx_data_handler_t *rx_data_handler, t38_rx_missing_handler_t *rx_missing_handler, void *rx_user_data, t38_tx_packet_handler_t *tx_packet_handler, void *tx_packet_user_data); /*! Release a signaling tone transmitter context. \brief Release a signaling tone transmitter context. \param s The T.38 context. \return 0 for OK */ SPAN_DECLARE(int) t38_core_release(t38_core_state_t *s); /*! Free a signaling tone transmitter context. \brief Free a signaling tone transmitter context. \param s The T.38 context. \return 0 for OK */ SPAN_DECLARE(int) t38_core_free(t38_core_state_t *s); #if defined(__cplusplus) } #endif #endif /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/v17_v32bis_tx_constellation_maps.h0000664000175000017500000002343511422612263022043 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * v17_v32bis_tx_constellation_maps.h - ITU V.17 and V.32bis modems * transmit part. * Constellation mapping. * * Written by Steve Underwood * * Copyright (C) 2004 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #if defined(SPANDSP_USE_FIXED_POINTx) static const complexi16_t v17_v32bis_14400_constellation[128] = #else static const complexf_t v17_v32bis_14400_constellation[128] = #endif { {-8, -3}, /* 0x00 */ { 9, 2}, /* 0x01 */ { 2, -9}, /* 0x02 */ {-3, 8}, /* 0x03 */ { 8, 3}, /* 0x04 */ {-9, -2}, /* 0x05 */ {-2, 9}, /* 0x06 */ { 3, -8}, /* 0x07 */ {-8, 1}, /* 0x08 */ { 9, -2}, /* 0x09 */ {-2, -9}, /* 0x0A */ { 1, 8}, /* 0x0B */ { 8, -1}, /* 0x0C */ {-9, 2}, /* 0x0D */ { 2, 9}, /* 0x0E */ {-1, -8}, /* 0x0F */ {-4, -3}, /* 0x10 */ { 5, 2}, /* 0x11 */ { 2, -5}, /* 0x12 */ {-3, 4}, /* 0x13 */ { 4, 3}, /* 0x14 */ {-5, -2}, /* 0x15 */ {-2, 5}, /* 0x16 */ { 3, -4}, /* 0x17 */ {-4, 1}, /* 0x18 */ { 5, -2}, /* 0x19 */ {-2, -5}, /* 0x1A */ { 1, 4}, /* 0x1B */ { 4, -1}, /* 0x1C */ {-5, 2}, /* 0x1D */ { 2, 5}, /* 0x1E */ {-1, -4}, /* 0x1F */ { 4, -3}, /* 0x20 */ {-3, 2}, /* 0x21 */ { 2, 3}, /* 0x22 */ {-3, -4}, /* 0x23 */ {-4, 3}, /* 0x24 */ { 3, -2}, /* 0x25 */ {-2, -3}, /* 0x26 */ { 3, 4}, /* 0x27 */ { 4, 1}, /* 0x28 */ {-3, -2}, /* 0x29 */ {-2, 3}, /* 0x2A */ { 1, -4}, /* 0x2B */ {-4, -1}, /* 0x2C */ { 3, 2}, /* 0x2D */ { 2, -3}, /* 0x2E */ {-1, 4}, /* 0x2F */ { 0, -3}, /* 0x30 */ { 1, 2}, /* 0x31 */ { 2, -1}, /* 0x32 */ {-3, 0}, /* 0x33 */ { 0, 3}, /* 0x34 */ {-1, -2}, /* 0x35 */ {-2, 1}, /* 0x36 */ { 3, 0}, /* 0x37 */ { 0, 1}, /* 0x38 */ { 1, -2}, /* 0x39 */ {-2, -1}, /* 0x3A */ { 1, 0}, /* 0x3B */ { 0, -1}, /* 0x3C */ {-1, 2}, /* 0x3D */ { 2, 1}, /* 0x3E */ {-1, 0}, /* 0x3F */ { 8, -3}, /* 0x40 */ {-7, 2}, /* 0x41 */ { 2, 7}, /* 0x42 */ {-3, -8}, /* 0x43 */ {-8, 3}, /* 0x44 */ { 7, -2}, /* 0x45 */ {-2, -7}, /* 0x46 */ { 3, 8}, /* 0x47 */ { 8, 1}, /* 0x48 */ {-7, -2}, /* 0x49 */ {-2, 7}, /* 0x4A */ { 1, -8}, /* 0x4B */ {-8, -1}, /* 0x4C */ { 7, 2}, /* 0x4D */ { 2, -7}, /* 0x4E */ {-1, 8}, /* 0x4F */ {-4, -7}, /* 0x50 */ { 5, 6}, /* 0x51 */ { 6, -5}, /* 0x52 */ {-7, 4}, /* 0x53 */ { 4, 7}, /* 0x54 */ {-5, -6}, /* 0x55 */ {-6, 5}, /* 0x56 */ { 7, -4}, /* 0x57 */ {-4, 5}, /* 0x58 */ { 5, -6}, /* 0x59 */ {-6, -5}, /* 0x5A */ { 5, 4}, /* 0x5B */ { 4, -5}, /* 0x5C */ {-5, 6}, /* 0x5D */ { 6, 5}, /* 0x5E */ {-5, -4}, /* 0x5F */ { 4, -7}, /* 0x60 */ {-3, 6}, /* 0x61 */ { 6, 3}, /* 0x62 */ {-7, -4}, /* 0x63 */ {-4, 7}, /* 0x64 */ { 3, -6}, /* 0x65 */ {-6, -3}, /* 0x66 */ { 7, 4}, /* 0x67 */ { 4, 5}, /* 0x68 */ {-3, -6}, /* 0x69 */ {-6, 3}, /* 0x6A */ { 5, -4}, /* 0x6B */ {-4, -5}, /* 0x6C */ { 3, 6}, /* 0x6D */ { 6, -3}, /* 0x6E */ {-5, 4}, /* 0x6F */ { 0, -7}, /* 0x70 */ { 1, 6}, /* 0x71 */ { 6, -1}, /* 0x72 */ {-7, 0}, /* 0x73 */ { 0, 7}, /* 0x74 */ {-1, -6}, /* 0x75 */ {-6, 1}, /* 0x76 */ { 7, 0}, /* 0x77 */ { 0, 5}, /* 0x78 */ { 1, -6}, /* 0x79 */ {-6, -1}, /* 0x7A */ { 5, 0}, /* 0x7B */ { 0, -5}, /* 0x7C */ {-1, 6}, /* 0x7D */ { 6, 1}, /* 0x7E */ {-5, 0} /* 0x7F */ }; #if defined(SPANDSP_USE_FIXED_POINTx) static const complexi16_t v17_v32bis_12000_constellation[64] = #else static const complexf_t v17_v32bis_12000_constellation[64] = #endif { { 7, 1}, /* 0x00 */ {-5, -1}, /* 0x01 */ {-1, 5}, /* 0x02 */ { 1, -7}, /* 0x03 */ {-7, -1}, /* 0x04 */ { 5, 1}, /* 0x05 */ { 1, -5}, /* 0x06 */ {-1, 7}, /* 0x07 */ { 3, -3}, /* 0x08 */ {-1, 3}, /* 0x09 */ { 3, 1}, /* 0x0A */ {-3, -3}, /* 0x0B */ {-3, 3}, /* 0x0C */ { 1, -3}, /* 0x0D */ {-3, -1}, /* 0x0E */ { 3, 3}, /* 0x0F */ { 7, -7}, /* 0x10 */ {-5, 7}, /* 0x11 */ { 7, 5}, /* 0x12 */ {-7, -7}, /* 0x13 */ {-7, 7}, /* 0x14 */ { 5, -7}, /* 0x15 */ {-7, -5}, /* 0x16 */ { 7, 7}, /* 0x17 */ {-1, -7}, /* 0x18 */ { 3, 7}, /* 0x19 */ { 7, -3}, /* 0x1A */ {-7, 1}, /* 0x1B */ { 1, 7}, /* 0x1C */ {-3, -7}, /* 0x1D */ {-7, 3}, /* 0x1E */ { 7, -1}, /* 0x1F */ { 3, 5}, /* 0x20 */ {-1, -5}, /* 0x21 */ {-5, 1}, /* 0x22 */ { 5, -3}, /* 0x23 */ {-3, -5}, /* 0x24 */ { 1, 5}, /* 0x25 */ { 5, -1}, /* 0x26 */ {-5, 3}, /* 0x27 */ {-1, 1}, /* 0x28 */ { 3, -1}, /* 0x29 */ {-1, -3}, /* 0x2A */ { 1, 1}, /* 0x2B */ { 1, -1}, /* 0x2C */ {-3, 1}, /* 0x2D */ { 1, 3}, /* 0x2E */ {-1, -1}, /* 0x2F */ {-5, 5}, /* 0x30 */ { 7, -5}, /* 0x31 */ {-5, -7}, /* 0x32 */ { 5, 5}, /* 0x33 */ { 5, -5}, /* 0x34 */ {-7, 5}, /* 0x35 */ { 5, 7}, /* 0x36 */ {-5, -5}, /* 0x37 */ {-5, -3}, /* 0x38 */ { 7, 3}, /* 0x39 */ { 3, -7}, /* 0x3A */ {-3, 5}, /* 0x3B */ { 5, 3}, /* 0x3C */ {-7, -3}, /* 0x3D */ {-3, 7}, /* 0x3E */ { 3, -5} /* 0x3F */ }; #if defined(SPANDSP_USE_FIXED_POINTx) static const complexi16_t v17_v32bis_9600_constellation[32] = #else static const complexf_t v17_v32bis_9600_constellation[32] = #endif { {-8, 2}, /* 0x00 */ {-6, -4}, /* 0x01 */ {-4, 6}, /* 0x02 */ { 2, 8}, /* 0x03 */ { 8, -2}, /* 0x04 */ { 6, 4}, /* 0x05 */ { 4, -6}, /* 0x06 */ {-2, -8}, /* 0x07 */ { 0, 2}, /* 0x08 */ {-6, 4}, /* 0x09 */ { 4, 6}, /* 0x0A */ { 2, 0}, /* 0x0B */ { 0, -2}, /* 0x0C */ { 6, -4}, /* 0x0D */ {-4, -6}, /* 0x0E */ {-2, 0}, /* 0x0F */ { 0, -6}, /* 0x10 */ { 2, -4}, /* 0x11 */ {-4, -2}, /* 0x12 */ {-6, 0}, /* 0x13 */ { 0, 6}, /* 0x14 */ {-2, 4}, /* 0x15 */ { 4, 2}, /* 0x16 */ { 6, 0}, /* 0x17 */ { 8, 2}, /* 0x18 */ { 2, 4}, /* 0x19 */ { 4, -2}, /* 0x1A */ { 2, -8}, /* 0x1B */ {-8, -2}, /* 0x1C */ {-2, -4}, /* 0x1D */ {-4, 2}, /* 0x1E */ {-2, 8} /* 0x1F */ }; #if defined(SPANDSP_USE_FIXED_POINTx) static const complexi16_t v17_v32bis_7200_constellation[16] = #else static const complexf_t v17_v32bis_7200_constellation[16] = #endif { { 6, -6}, /* 0x00 */ {-2, 6}, /* 0x01 */ { 6, 2}, /* 0x02 */ {-6, -6}, /* 0x03 */ {-6, 6}, /* 0x04 */ { 2, -6}, /* 0x05 */ {-6, -2}, /* 0x06 */ { 6, 6}, /* 0x07 */ {-2, 2}, /* 0x08 */ { 6, -2}, /* 0x09 */ {-2, -6}, /* 0x0A */ { 2, 2}, /* 0x0B */ { 2, -2}, /* 0x0C */ {-6, 2}, /* 0x0D */ { 2, 6}, /* 0x0E */ {-2, -2} /* 0x0F */ }; /* This one does not exist in V.17 as a data constellation. It is only the equaliser training constellation. In V.32/V.32bis it is a data mode. */ #if defined(SPANDSP_USE_FIXED_POINTx) static const complexi16_t v17_v32bis_4800_constellation[4] = #else static const complexf_t v17_v32bis_4800_constellation[4] = #endif { {-6, -2}, /* 0x00 */ {-2, 6}, /* 0x01 */ { 2, -6}, /* 0x02 */ { 6, 2} /* 0x03 */ }; #if defined(SPANDSP_USE_FIXED_POINTx) static const complexi16_t v17_v32bis_abcd_constellation[4] = #else static const complexf_t v17_v32bis_abcd_constellation[4] = #endif { {-6, -2}, /* A */ { 2, -6}, /* B */ { 6, 2}, /* C */ {-2, 6} /* D */ }; /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/async.c0000664000175000017500000002044411422612261014650 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * async.c - Asynchronous serial bit stream encoding and decoding * * Written by Steve Underwood * * Copyright (C) 2003 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \file */ #if defined(HAVE_CONFIG_H) #include "config.h" #endif #include #include #include #include #include "spandsp/telephony.h" #include "spandsp/async.h" #include "spandsp/private/async.h" SPAN_DECLARE(const char *) signal_status_to_str(int status) { switch (status) { case SIG_STATUS_CARRIER_DOWN: return "Carrier down"; case SIG_STATUS_CARRIER_UP: return "Carrier up"; case SIG_STATUS_TRAINING_IN_PROGRESS: return "Training in progress"; case SIG_STATUS_TRAINING_SUCCEEDED: return "Training succeeded"; case SIG_STATUS_TRAINING_FAILED: return "Training failed"; case SIG_STATUS_FRAMING_OK: return "Framing OK"; case SIG_STATUS_END_OF_DATA: return "End of data"; case SIG_STATUS_ABORT: return "Abort"; case SIG_STATUS_BREAK: return "Break"; case SIG_STATUS_SHUTDOWN_COMPLETE: return "Shutdown complete"; case SIG_STATUS_OCTET_REPORT: return "Octet report"; case SIG_STATUS_POOR_SIGNAL_QUALITY: return "Poor signal quality"; case SIG_STATUS_MODEM_RETRAIN_OCCURRED: return "Modem retrain occurred"; } return "???"; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(async_rx_state_t *) async_rx_init(async_rx_state_t *s, int data_bits, int parity, int stop_bits, int use_v14, put_byte_func_t put_byte, void *user_data) { if (s == NULL) { if ((s = (async_rx_state_t *) malloc(sizeof(*s))) == NULL) return NULL; } s->data_bits = data_bits; s->parity = parity; s->stop_bits = stop_bits; s->use_v14 = use_v14; s->put_byte = put_byte; s->user_data = user_data; s->byte_in_progress = 0; s->bitpos = 0; s->parity_bit = 0; s->parity_errors = 0; s->framing_errors = 0; return s; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) async_rx_release(async_rx_state_t *s) { return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) async_rx_free(async_rx_state_t *s) { free(s); return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE_NONSTD(void) async_rx_put_bit(void *user_data, int bit) { async_rx_state_t *s; s = (async_rx_state_t *) user_data; if (bit < 0) { /* Special conditions */ switch (bit) { case SIG_STATUS_CARRIER_UP: case SIG_STATUS_CARRIER_DOWN: case SIG_STATUS_TRAINING_IN_PROGRESS: case SIG_STATUS_TRAINING_SUCCEEDED: case SIG_STATUS_TRAINING_FAILED: case SIG_STATUS_END_OF_DATA: s->put_byte(s->user_data, bit); s->bitpos = 0; s->byte_in_progress = 0; break; default: //printf("Eh!\n"); break; } return; } if (s->bitpos == 0) { /* Search for the start bit */ s->bitpos += (bit ^ 1); s->parity_bit = 0; s->byte_in_progress = 0; } else if (s->bitpos <= s->data_bits) { s->byte_in_progress = (s->byte_in_progress >> 1) | (bit << 7); s->parity_bit ^= bit; s->bitpos++; } else if (s->parity && s->bitpos == s->data_bits + 1) { if (s->parity == ASYNC_PARITY_ODD) s->parity_bit ^= 1; if (s->parity_bit != bit) s->parity_errors++; s->bitpos++; } else { /* Stop bit */ if (bit == 1) { /* Align the received value */ if (s->data_bits < 8) s->byte_in_progress >>= (8 - s->data_bits); s->put_byte(s->user_data, s->byte_in_progress); s->bitpos = 0; } else if (s->use_v14) { /* This is actually the start bit for the next character, and the stop bit has been dropped from the stream. This is the rate adaption specified in V.14 */ /* Align the received value */ if (s->data_bits < 8) s->byte_in_progress >>= (8 - s->data_bits); s->put_byte(s->user_data, s->byte_in_progress); s->bitpos = 1; s->parity_bit = 0; s->byte_in_progress = 0; } else { s->framing_errors++; s->bitpos = 0; } } } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(async_tx_state_t *) async_tx_init(async_tx_state_t *s, int data_bits, int parity, int stop_bits, int use_v14, get_byte_func_t get_byte, void *user_data) { if (s == NULL) { if ((s = (async_tx_state_t *) malloc(sizeof(*s))) == NULL) return NULL; } /* We have a use_v14 parameter for completeness, but right now V.14 only applies to the receive side. We are unlikely to have an application where flow control does not exist, so V.14 stuffing is not needed. */ s->data_bits = data_bits; s->parity = parity; s->stop_bits = stop_bits; if (parity != ASYNC_PARITY_NONE) s->stop_bits++; s->get_byte = get_byte; s->user_data = user_data; s->byte_in_progress = 0; s->bitpos = 0; s->parity_bit = 0; return s; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) async_tx_release(async_tx_state_t *s) { return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) async_tx_free(async_tx_state_t *s) { free(s); return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE_NONSTD(int) async_tx_get_bit(void *user_data) { async_tx_state_t *s; int bit; s = (async_tx_state_t *) user_data; if (s->bitpos == 0) { if ((s->byte_in_progress = s->get_byte(s->user_data)) < 0) { /* No more data */ bit = SIG_STATUS_END_OF_DATA; } else { /* Start bit */ bit = 0; s->parity_bit = 0; s->bitpos++; } } else if (s->bitpos <= s->data_bits) { bit = s->byte_in_progress & 1; s->byte_in_progress >>= 1; s->parity_bit ^= bit; s->bitpos++; } else if (s->parity && s->bitpos == s->data_bits + 1) { if (s->parity == ASYNC_PARITY_ODD) s->parity_bit ^= 1; bit = s->parity_bit; s->bitpos++; } else { /* Stop bit(s) */ bit = 1; if (++s->bitpos > s->data_bits + s->stop_bits) s->bitpos = 0; } return bit; } /*- End of function --------------------------------------------------------*/ /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/gsm0610_encode.c0000664000175000017500000002557211422612262016155 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * gsm0610_encode.c - GSM 06.10 full rate speech codec. * * Written by Steve Underwood * * Copyright (C) 2006 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. * * This code is based on the widely used GSM 06.10 code available from * http://kbs.cs.tu-berlin.de/~jutta/toast.html */ /*! \file */ #if defined(HAVE_CONFIG_H) #include "config.h" #endif #include #include #if defined(HAVE_TGMATH_H) #include #endif #if defined(HAVE_MATH_H) #include #endif #include "floating_fudge.h" #include #include #include "spandsp/telephony.h" #include "spandsp/fast_convert.h" #include "spandsp/bitstream.h" #include "spandsp/saturated.h" #include "spandsp/gsm0610.h" #include "gsm0610_local.h" /* 4.2 FIXED POINT IMPLEMENTATION OF THE RPE-LTP CODER */ /* The RPE-LTD coder works on a frame by frame basis. The length of the frame is equal to 160 samples. Some computations are done once per frame to produce at the output of the coder the LARc[1..8] parameters which are the coded LAR coefficients and also to realize the inverse filtering operation for the entire frame (160 samples of signal d[0..159]). These parts produce at the output of the coder: Procedure 4.2.11 to 4.2.18 are to be executed four times per frame. That means once for each sub-segment RPE-LTP analysis of 40 samples. These parts produce at the output of the coder. */ static void encode_a_frame(gsm0610_state_t *s, gsm0610_frame_t *f, const int16_t amp[]) { int k; int16_t *dp; int16_t *dpp; int16_t so[GSM0610_FRAME_LEN]; int i; dp = s->dp0 + 120; dpp = dp; gsm0610_preprocess(s, amp, so); gsm0610_lpc_analysis(s, so, f->LARc); gsm0610_short_term_analysis_filter(s, f->LARc, so); for (k = 0; k < 4; k++) { gsm0610_long_term_predictor(s, so + k*40, dp, s->e + 5, dpp, &f->Nc[k], &f->bc[k]); gsm0610_rpe_encoding(s, s->e + 5, &f->xmaxc[k], &f->Mc[k], f->xMc[k]); for (i = 0; i < 40; i++) dp[i] = saturated_add16(s->e[5 + i], dpp[i]); /*endfor*/ dp += 40; dpp += 40; } /*endfor*/ memcpy((char *) s->dp0, (char *) (s->dp0 + GSM0610_FRAME_LEN), 120*sizeof(*s->dp0)); } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) gsm0610_set_packing(gsm0610_state_t *s, int packing) { s->packing = packing; return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(gsm0610_state_t *) gsm0610_init(gsm0610_state_t *s, int packing) { if (s == NULL) { if ((s = (gsm0610_state_t *) malloc(sizeof (*s))) == NULL) return NULL; /*endif*/ } /*endif*/ memset((char *) s, '\0', sizeof (gsm0610_state_t)); s->nrp = 40; s->packing = packing; return s; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) gsm0610_release(gsm0610_state_t *s) { return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) gsm0610_free(gsm0610_state_t *s) { if (s) free(s); /*endif*/ return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) gsm0610_pack_none(uint8_t c[], const gsm0610_frame_t *s) { int i; int j; int k; i = 0; for (j = 0; j < 8; j++) c[i++] = (uint8_t) s->LARc[j]; for (j = 0; j < 4; j++) { c[i++] = (uint8_t) s->Nc[j]; c[i++] = (uint8_t) s->bc[j]; c[i++] = (uint8_t) s->Mc[j]; c[i++] = (uint8_t) s->xmaxc[j]; for (k = 0; k < 13; k++) c[i++] = (uint8_t) s->xMc[j][k]; } /*endfor*/ return 76; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) gsm0610_pack_wav49(uint8_t c[], const gsm0610_frame_t *s) { uint16_t sr; int i; sr = 0; sr = (sr >> 6) | (s->LARc[0] << 10); sr = (sr >> 6) | (s->LARc[1] << 10); *c++ = (uint8_t) (sr >> 4); sr = (sr >> 5) | (s->LARc[2] << 11); *c++ = (uint8_t) (sr >> 7); sr = (sr >> 5) | (s->LARc[3] << 11); sr = (sr >> 4) | (s->LARc[4] << 12); *c++ = (uint8_t) (sr >> 6); sr = (sr >> 4) | (s->LARc[5] << 12); sr = (sr >> 3) | (s->LARc[6] << 13); *c++ = (uint8_t) (sr >> 7); sr = (sr >> 3) | (s->LARc[7] << 13); for (i = 0; i < 4; i++) { sr = (sr >> 7) | (s->Nc[i] << 9); *c++ = (uint8_t) (sr >> 5); sr = (sr >> 2) | (s->bc[i] << 14); sr = (sr >> 2) | (s->Mc[i] << 14); sr = (sr >> 6) | (s->xmaxc[i] << 10); *c++ = (uint8_t) (sr >> 3); sr = (sr >> 3) | (s->xMc[i][0] << 13); *c++ = (uint8_t) (sr >> 8); sr = (sr >> 3) | (s->xMc[i][1] << 13); sr = (sr >> 3) | (s->xMc[i][2] << 13); sr = (sr >> 3) | (s->xMc[i][3] << 13); *c++ = (uint8_t) (sr >> 7); sr = (sr >> 3) | (s->xMc[i][4] << 13); sr = (sr >> 3) | (s->xMc[i][5] << 13); sr = (sr >> 3) | (s->xMc[i][6] << 13); *c++ = (uint8_t) (sr >> 6); sr = (sr >> 3) | (s->xMc[i][7] << 13); sr = (sr >> 3) | (s->xMc[i][8] << 13); *c++ = (uint8_t) (sr >> 8); sr = (sr >> 3) | (s->xMc[i][9] << 13); sr = (sr >> 3) | (s->xMc[i][10] << 13); sr = (sr >> 3) | (s->xMc[i][11] << 13); *c++ = (uint8_t) (sr >> 7); sr = (sr >> 3) | (s->xMc[i][12] << 13); } /*endfor*/ s++; sr = (sr >> 6) | (s->LARc[0] << 10); *c++ = (uint8_t) (sr >> 6); sr = (sr >> 6) | (s->LARc[1] << 10); *c++ = (uint8_t) (sr >> 8); sr = (sr >> 5) | (s->LARc[2] << 11); sr = (sr >> 5) | (s->LARc[3] << 11); *c++ = (uint8_t) (sr >> 6); sr = (sr >> 4) | (s->LARc[4] << 12); sr = (sr >> 4) | (s->LARc[5] << 12); *c++ = (uint8_t) (sr >> 6); sr = (sr >> 3) | (s->LARc[6] << 13); sr = (sr >> 3) | (s->LARc[7] << 13); *c++ = (uint8_t) (sr >> 8); for (i = 0; i < 4; i++) { sr = (sr >> 7) | (s->Nc[i] << 9); sr = (sr >> 2) | (s->bc[i] << 14); *c++ = (uint8_t) (sr >> 7); sr = (sr >> 2) | (s->Mc[i] << 14); sr = (sr >> 6) | (s->xmaxc[i] << 10); *c++ = (uint8_t) (sr >> 7); sr = (sr >> 3) | (s->xMc[i][0] << 13); sr = (sr >> 3) | (s->xMc[i][1] << 13); sr = (sr >> 3) | (s->xMc[i][2] << 13); *c++ = (uint8_t) (sr >> 6); sr = (sr >> 3) | (s->xMc[i][3] << 13); sr = (sr >> 3) | (s->xMc[i][4] << 13); *c++ = (uint8_t) (sr >> 8); sr = (sr >> 3) | (s->xMc[i][5] << 13); sr = (sr >> 3) | (s->xMc[i][6] << 13); sr = (sr >> 3) | (s->xMc[i][7] << 13); *c++ = (uint8_t) (sr >> 7); sr = (sr >> 3) | (s->xMc[i][8] << 13); sr = (sr >> 3) | (s->xMc[i][9] << 13); sr = (sr >> 3) | (s->xMc[i][10] << 13); *c++ = (uint8_t) (sr >> 6); sr = (sr >> 3) | (s->xMc[i][11] << 13); sr = (sr >> 3) | (s->xMc[i][12] << 13); *c++ = (uint8_t) (sr >> 8); } /*endfor*/ return 65; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) gsm0610_pack_voip(uint8_t c[33], const gsm0610_frame_t *s) { int i; *c++ = (uint8_t) (((GSM0610_MAGIC & 0xF) << 4) | ((s->LARc[0] >> 2) & 0xF)); *c++ = (uint8_t) (((s->LARc[0] & 0x3) << 6) | (s->LARc[1] & 0x3F)); *c++ = (uint8_t) (((s->LARc[2] & 0x1F) << 3) | ((s->LARc[3] >> 2) & 0x7)); *c++ = (uint8_t) (((s->LARc[3] & 0x3) << 6) | ((s->LARc[4] & 0xF) << 2) | ((s->LARc[5] >> 2) & 0x3)); *c++ = (uint8_t) (((s->LARc[5] & 0x3) << 6) | ((s->LARc[6] & 0x7) << 3) | (s->LARc[7] & 0x7)); for (i = 0; i < 4; i++) { *c++ = (uint8_t) (((s->Nc[i] & 0x7F) << 1) | ((s->bc[i] >> 1) & 0x1)); *c++ = (uint8_t) (((s->bc[i] & 0x1) << 7) | ((s->Mc[i] & 0x3) << 5) | ((s->xmaxc[i] >> 1) & 0x1F)); *c++ = (uint8_t) (((s->xmaxc[i] & 0x1) << 7) | ((s->xMc[i][0] & 0x7) << 4) | ((s->xMc[i][1] & 0x7) << 1) | ((s->xMc[i][2] >> 2) & 0x1)); *c++ = (uint8_t) (((s->xMc[i][2] & 0x3) << 6) | ((s->xMc[i][3] & 0x7) << 3) | (s->xMc[i][4] & 0x7)); *c++ = (uint8_t) (((s->xMc[i][5] & 0x7) << 5) | ((s->xMc[i][6] & 0x7) << 2) | ((s->xMc[i][7] >> 1) & 0x3)); *c++ = (uint8_t) (((s->xMc[i][7] & 0x1) << 7) | ((s->xMc[i][8] & 0x7) << 4) | ((s->xMc[i][9] & 0x7) << 1) | ((s->xMc[i][10] >> 2) & 0x1)); *c++ = (uint8_t) (((s->xMc[i][10] & 0x3) << 6) | ((s->xMc[i][11] & 0x7) << 3) | (s->xMc[i][12] & 0x7)); } /*endfor*/ return 33; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) gsm0610_encode(gsm0610_state_t *s, uint8_t code[], const int16_t amp[], int len) { gsm0610_frame_t frame[2]; int bytes; int i; bytes = 0; for (i = 0; i < len; i += GSM0610_FRAME_LEN) { encode_a_frame(s, frame, &[i]); switch (s->packing) { case GSM0610_PACKING_WAV49: i += GSM0610_FRAME_LEN; encode_a_frame(s, frame + 1, &[i]); bytes += gsm0610_pack_wav49(&code[bytes], frame); break; case GSM0610_PACKING_VOIP: bytes += gsm0610_pack_voip(&code[bytes], frame); break; default: bytes += gsm0610_pack_none(&code[bytes], frame); break; } /*endswitch*/ } /*endfor*/ return bytes; } /*- End of function --------------------------------------------------------*/ /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/playout.c0000664000175000017500000002764011422612262015236 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * playout.c * * Written by Steve Underwood * * Copyright (C) 2005 Steve Underwood * * All rights reserved. * * This was kicked off from jitter buffering code * Copyright (C) 2004, Horizon Wimba, Inc. * Author Steve Kann * However, there isn't a lot of the original left, now. The original * was licenced under the LGPL, so any remaining fragments are * compatible with the GPL licence used here. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #if defined(HAVE_CONFIG_H) #include "config.h" #endif #include #include #include #include #include #include "spandsp/telephony.h" #include "spandsp/playout.h" static playout_frame_t *queue_get(playout_state_t *s, timestamp_t sender_stamp) { playout_frame_t *frame; if ((frame = s->first_frame) == NULL) return NULL; if (sender_stamp >= frame->sender_stamp) { /* Remove this frame from the queue */ if (frame->later) { frame->later->earlier = NULL; s->first_frame = frame->later; } else { /* The queue is now empty */ s->first_frame = NULL; s->last_frame = NULL; } return frame; } return NULL; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(timestamp_t) playout_next_due(playout_state_t *s) { return s->last_speech_sender_stamp + s->last_speech_sender_len; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(timestamp_t) playout_current_length(playout_state_t *s) { return s->target_buffer_length; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(playout_frame_t *) playout_get_unconditional(playout_state_t *s) { playout_frame_t *frame; if ((frame = queue_get(s, 0x7FFFFFFF))) { /* Put it on the free list */ frame->later = s->free_frames; s->free_frames = frame; /* We return the frame pointer, even though it's on the free list. The caller *must* copy the data before this frame has any chance of being reused. */ } return frame; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) playout_get(playout_state_t *s, playout_frame_t *frameout, timestamp_t now) { playout_frame_t *frame; /* Make the last_speech_sender_stamp the current expected one. */ s->last_speech_sender_stamp += s->last_speech_sender_len; if ((frame = queue_get(s, s->last_speech_sender_stamp)) == NULL) { /* The required frame was not received (or at least not in time) */ s->frames_missing++; return PLAYOUT_FILLIN; } if (s->dynamic && frame->type == PLAYOUT_TYPE_SPEECH) { /* Assess whether the buffer length is appropriate */ if (!s->not_first) { /* Prime things the first time through */ s->not_first = TRUE; s->latest_expected = frame->receiver_stamp + s->min_length; } /* Leaky integrate the rate of occurance of frames received just in time and late */ s->state_late += ((((frame->receiver_stamp > s->latest_expected) ? 0x10000000 : 0) - s->state_late) >> 8); s->state_just_in_time += ((((frame->receiver_stamp > s->latest_expected - frame->sender_len) ? 0x10000000 : 0) - s->state_just_in_time) >> 8); s->latest_expected += frame->sender_len; if (s->state_late > s->dropable_threshold) { if (s->since_last_step < 10) { if (s->target_buffer_length < s->max_length - 2) { /* The late bin is too big - increase buffering */ s->target_buffer_length += 3*frame->sender_len; s->latest_expected += 3*frame->sender_len; s->state_just_in_time = s->dropable_threshold; s->state_late = 0; s->since_last_step = 0; s->last_speech_sender_stamp -= 3*s->last_speech_sender_len; } } else { if (s->target_buffer_length < s->max_length) { /* The late bin is too big - increase buffering */ s->target_buffer_length += frame->sender_len; s->latest_expected += frame->sender_len; s->state_just_in_time = s->dropable_threshold; s->state_late = 0; s->since_last_step = 0; s->last_speech_sender_stamp -= s->last_speech_sender_len; } } } else if (s->since_last_step > 500 && s->state_just_in_time < s->dropable_threshold) { if (s->target_buffer_length > s->min_length) { /* The just-in-time bin is pretty small - decrease buffering */ s->target_buffer_length -= frame->sender_len; s->latest_expected -= frame->sender_len; s->state_just_in_time = s->dropable_threshold; s->state_late = 0; s->since_last_step = 0; s->last_speech_sender_stamp += s->last_speech_sender_len; } } s->since_last_step++; } /* If its not a speech frame, just return it. */ if (frame->type != PLAYOUT_TYPE_SPEECH) { /* Rewind last_speech_sender_stamp, since this isn't speech */ s->last_speech_sender_stamp -= s->last_speech_sender_len; *frameout = *frame; /* Put it on the free list */ frame->later = s->free_frames; s->free_frames = frame; s->frames_out++; return PLAYOUT_OK; } if (frame->sender_stamp < s->last_speech_sender_stamp) { /* This speech frame is late */ *frameout = *frame; /* Put it on the free list */ frame->later = s->free_frames; s->free_frames = frame; /* Rewind last_speech_sender_stamp, since we're just dumping */ s->last_speech_sender_stamp -= s->last_speech_sender_len; s->frames_out++; s->frames_late++; s->frames_missing--; return PLAYOUT_DROP; } /* Keep track of frame sizes, to allow for variable sized frames */ if (frame->sender_len > 0) s->last_speech_sender_len = frame->sender_len; /* Normal case. Return the frame, and increment stuff */ *frameout = *frame; /* Put it on the free list */ frame->later = s->free_frames; s->free_frames = frame; s->frames_out++; return PLAYOUT_OK; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) playout_put(playout_state_t *s, void *data, int type, timestamp_t sender_len, timestamp_t sender_stamp, timestamp_t receiver_stamp) { playout_frame_t *frame; playout_frame_t *p; /* When a frame arrives we just queue it in order. We leave all the tricky stuff until frames are read from the queue. */ s->frames_in++; /* Acquire a frame */ if ((frame = s->free_frames)) { s->free_frames = frame->later; } else { if ((frame = (playout_frame_t *) malloc(sizeof(*frame))) == NULL) return PLAYOUT_ERROR; } /* Fill out the frame */ frame->data = data; frame->type = type; frame->sender_stamp = sender_stamp; frame->sender_len = sender_len; frame->receiver_stamp = receiver_stamp; /* Frames are kept in a list, sorted by the timestamp assigned by the sender. */ if (s->last_frame == NULL) { /* The queue is empty. */ frame->later = NULL; frame->earlier = NULL; s->first_frame = frame; s->last_frame = frame; } else if (sender_stamp >= s->last_frame->sender_stamp) { /* Frame goes at the end of the queue. */ frame->later = NULL; frame->earlier = s->last_frame; s->last_frame->later = frame; s->last_frame = frame; } else { /* Frame is out of sequence. */ s->frames_oos++; /* Find where it should go in the queue */ p = s->last_frame; while (sender_stamp < p->sender_stamp && p->earlier) p = p->earlier; if (p->earlier) { /* It needs to go somewhere in the queue */ frame->later = p->later; frame->earlier = p; p->later->earlier = frame; p->later = frame; } else { /* It needs to go at the very beginning of the queue */ frame->later = p; frame->earlier = NULL; p->earlier = frame; s->first_frame = frame; } } if (s->start && type == PLAYOUT_TYPE_SPEECH) { s->last_speech_sender_stamp = sender_stamp - sender_len - s->min_length; s->last_speech_sender_len = sender_len; s->start = FALSE; } return PLAYOUT_OK; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) playout_restart(playout_state_t *s, int min_length, int max_length) { playout_frame_t *frame; playout_frame_t *next; /* Free all the frames on the free list */ for (frame = s->free_frames; frame; frame = next) { next = frame->later; free(frame); } memset(s, 0, sizeof(*s)); s->dynamic = (min_length < max_length); s->min_length = min_length; s->max_length = (max_length > min_length) ? max_length : min_length; s->dropable_threshold = 1*0x10000000/100; s->start = TRUE; s->since_last_step = 0x7FFFFFFF; /* Start with the minimum buffer length allowed, and work from there */ s->actual_buffer_length = s->target_buffer_length = (s->max_length - s->min_length)/2; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(playout_state_t *) playout_init(int min_length, int max_length) { playout_state_t *s; if ((s = (playout_state_t *) malloc(sizeof(playout_state_t))) == NULL) return NULL; memset(s, 0, sizeof(*s)); playout_restart(s, min_length, max_length); return s; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) playout_release(playout_state_t *s) { playout_frame_t *frame; playout_frame_t *next; /* Free all the frames in the queue. In most cases these should have been removed already, so their associated data could be freed. */ for (frame = s->first_frame; frame; frame = next) { next = frame->later; free(frame); } /* Free all the frames on the free list */ for (frame = s->free_frames; frame; frame = next) { next = frame->later; free(frame); } return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) playout_free(playout_state_t *s) { if (s) { playout_release(s); /* Finally, free ourselves! */ free(s); } return 0; } /*- End of function --------------------------------------------------------*/ /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/g722.c0000664000175000017500000004227311422612261014220 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * g722.c - The ITU G.722 codec. * * Written by Steve Underwood * * Copyright (C) 2005 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. * * Based in part on a single channel G.722 codec which is: * * Copyright (c) CMU 1993 * Computer Science, Speech Group * Chengxiang Lu and Alex Hauptmann */ /*! \file */ #if defined(HAVE_CONFIG_H) #include "config.h" #endif #include #include #include #if defined(HAVE_TGMATH_H) #include #endif #if defined(HAVE_MATH_H) #include #endif #include "floating_fudge.h" #include "spandsp/telephony.h" #include "spandsp/fast_convert.h" #include "spandsp/saturated.h" #include "spandsp/vector_int.h" #include "spandsp/g722.h" #include "spandsp/private/g722.h" static const int16_t qmf_coeffs_fwd[12] = { 3, -11, 12, 32, -210, 951, 3876, -805, 362, -156, 53, -11, }; static const int16_t qmf_coeffs_rev[12] = { -11, 53, -156, 362, -805, 3876, 951, -210, 32, 12, -11, 3 }; static const int16_t qm2[4] = { -7408, -1616, 7408, 1616 }; static const int16_t qm4[16] = { 0, -20456, -12896, -8968, -6288, -4240, -2584, -1200, 20456, 12896, 8968, 6288, 4240, 2584, 1200, 0 }; static const int16_t qm5[32] = { -280, -280, -23352, -17560, -14120, -11664, -9752, -8184, -6864, -5712, -4696, -3784, -2960, -2208, -1520, -880, 23352, 17560, 14120, 11664, 9752, 8184, 6864, 5712, 4696, 3784, 2960, 2208, 1520, 880, 280, -280 }; static const int16_t qm6[64] = { -136, -136, -136, -136, -24808, -21904, -19008, -16704, -14984, -13512, -12280, -11192, -10232, -9360, -8576, -7856, -7192, -6576, -6000, -5456, -4944, -4464, -4008, -3576, -3168, -2776, -2400, -2032, -1688, -1360, -1040, -728, 24808, 21904, 19008, 16704, 14984, 13512, 12280, 11192, 10232, 9360, 8576, 7856, 7192, 6576, 6000, 5456, 4944, 4464, 4008, 3576, 3168, 2776, 2400, 2032, 1688, 1360, 1040, 728, 432, 136, -432, -136 }; static const int16_t q6[32] = { 0, 35, 72, 110, 150, 190, 233, 276, 323, 370, 422, 473, 530, 587, 650, 714, 786, 858, 940, 1023, 1121, 1219, 1339, 1458, 1612, 1765, 1980, 2195, 2557, 2919, 0, 0 }; static const int16_t ilb[32] = { 2048, 2093, 2139, 2186, 2233, 2282, 2332, 2383, 2435, 2489, 2543, 2599, 2656, 2714, 2774, 2834, 2896, 2960, 3025, 3091, 3158, 3228, 3298, 3371, 3444, 3520, 3597, 3676, 3756, 3838, 3922, 4008 }; static const int16_t iln[32] = { 0, 63, 62, 31, 30, 29, 28, 27, 26, 25, 24, 23, 22, 21, 20, 19, 18, 17, 16, 15, 14, 13, 12, 11, 10, 9, 8, 7, 6, 5, 4, 0 }; static const int16_t ilp[32] = { 0, 61, 60, 59, 58, 57, 56, 55, 54, 53, 52, 51, 50, 49, 48, 47, 46, 45, 44, 43, 42, 41, 40, 39, 38, 37, 36, 35, 34, 33, 32, 0 }; static const int16_t ihn[3] = { 0, 1, 0 }; static const int16_t ihp[3] = { 0, 3, 2 }; static const int16_t wl[8] = { -60, -30, 58, 172, 334, 538, 1198, 3042 }; static const int16_t rl42[16] = { 0, 7, 6, 5, 4, 3, 2, 1, 7, 6, 5, 4, 3, 2, 1, 0 }; static const int16_t wh[3] = { 0, -214, 798 }; static const int16_t rh2[4] = { 2, 1, 2, 1 }; static void block4(g722_band_t *s, int16_t dx) { int16_t wd1; int16_t wd2; int16_t wd3; int16_t sp; int16_t r; int16_t p; int16_t ap[2]; int32_t wd32; int32_t sz; int i; /* RECONS */ r = saturated_add16(s->s, dx); /* PARREC */ p = saturated_add16(s->sz, dx); /* UPPOL2 */ wd1 = saturate((int32_t) s->a[0] << 2); wd32 = ((p ^ s->p[0]) & 0x8000) ? wd1 : -wd1; if (wd32 > 32767) wd32 = 32767; wd3 = (int16_t) ((((p ^ s->p[1]) & 0x8000) ? -128 : 128) + (wd32 >> 7) + (((int32_t) s->a[1]*(int32_t) 32512) >> 15)); if (abs(wd3) > 12288) wd3 = (wd3 < 0) ? -12288 : 12288; ap[1] = wd3; /* UPPOL1 */ wd1 = ((p ^ s->p[0]) & 0x8000) ? -192 : 192; wd2 = (int16_t) (((int32_t) s->a[0]*(int32_t) 32640) >> 15); ap[0] = saturated_add16(wd1, wd2); wd3 = saturated_sub16(15360, ap[1]); if (abs(ap[0]) > wd3) ap[0] = (ap[0] < 0) ? -wd3 : wd3; /* FILTEP */ wd1 = saturated_add16(r, r); wd1 = (int16_t) (((int32_t) ap[0]*(int32_t) wd1) >> 15); wd2 = saturated_add16(s->r, s->r); wd2 = (int16_t) (((int32_t) ap[1]*(int32_t) wd2) >> 15); sp = saturated_add16(wd1, wd2); s->r = r; s->a[1] = ap[1]; s->a[0] = ap[0]; s->p[1] = s->p[0]; s->p[0] = p; /* UPZERO */ /* DELAYA */ /* FILTEZ */ wd1 = (dx == 0) ? 0 : 128; s->d[0] = dx; sz = 0; for (i = 5; i >= 0; i--) { wd2 = ((s->d[i + 1] ^ dx) & 0x8000) ? -wd1 : wd1; wd3 = (int16_t) (((int32_t) s->b[i]*(int32_t) 32640) >> 15); s->b[i] = saturated_add16(wd2, wd3); wd3 = saturated_add16(s->d[i], s->d[i]); sz += ((int32_t) s->b[i]*(int32_t) wd3) >> 15; s->d[i + 1] = s->d[i]; } s->sz = saturate(sz); /* PREDIC */ s->s = saturated_add16(sp, s->sz); } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(g722_decode_state_t *) g722_decode_init(g722_decode_state_t *s, int rate, int options) { if (s == NULL) { if ((s = (g722_decode_state_t *) malloc(sizeof(*s))) == NULL) return NULL; } memset(s, 0, sizeof(*s)); if (rate == 48000) s->bits_per_sample = 6; else if (rate == 56000) s->bits_per_sample = 7; else s->bits_per_sample = 8; if ((options & G722_SAMPLE_RATE_8000)) s->eight_k = TRUE; if ((options & G722_PACKED) && s->bits_per_sample != 8) s->packed = TRUE; else s->packed = FALSE; s->band[0].det = 32; s->band[1].det = 8; return s; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) g722_decode_release(g722_decode_state_t *s) { return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) g722_decode_free(g722_decode_state_t *s) { free(s); return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) g722_decode(g722_decode_state_t *s, int16_t amp[], const uint8_t g722_data[], int len) { int rlow; int ihigh; int16_t dlow; int16_t dhigh; int rhigh; int wd1; int wd2; int wd3; int code; int outlen; int j; outlen = 0; rhigh = 0; for (j = 0; j < len; ) { if (s->packed) { /* Unpack the code bits */ if (s->in_bits < s->bits_per_sample) { s->in_buffer |= (g722_data[j++] << s->in_bits); s->in_bits += 8; } code = s->in_buffer & ((1 << s->bits_per_sample) - 1); s->in_buffer >>= s->bits_per_sample; s->in_bits -= s->bits_per_sample; } else { code = g722_data[j++]; } switch (s->bits_per_sample) { default: case 8: wd1 = code & 0x3F; ihigh = (code >> 6) & 0x03; wd2 = qm6[wd1]; wd1 >>= 2; break; case 7: wd1 = code & 0x1F; ihigh = (code >> 5) & 0x03; wd2 = qm5[wd1]; wd1 >>= 1; break; case 6: wd1 = code & 0x0F; ihigh = (code >> 4) & 0x03; wd2 = qm4[wd1]; break; } /* Block 5L, LOW BAND INVQBL */ wd2 = ((int32_t) s->band[0].det*(int32_t) wd2) >> 15; /* Block 5L, RECONS */ /* Block 6L, LIMIT */ rlow = saturate15(s->band[0].s + wd2); /* Block 2L, INVQAL */ wd2 = qm4[wd1]; dlow = (int16_t) (((int32_t) s->band[0].det*(int32_t) wd2) >> 15); /* Block 3L, LOGSCL */ wd2 = rl42[wd1]; wd1 = ((int32_t) s->band[0].nb*(int32_t) 127) >> 7; wd1 += wl[wd2]; if (wd1 < 0) wd1 = 0; else if (wd1 > 18432) wd1 = 18432; s->band[0].nb = (int16_t) wd1; /* Block 3L, SCALEL */ wd1 = (s->band[0].nb >> 6) & 31; wd2 = 8 - (s->band[0].nb >> 11); wd3 = (wd2 < 0) ? (ilb[wd1] << -wd2) : (ilb[wd1] >> wd2); s->band[0].det = (int16_t) (wd3 << 2); block4(&s->band[0], dlow); if (!s->eight_k) { /* Block 2H, INVQAH */ wd2 = qm2[ihigh]; dhigh = (int16_t) (((int32_t) s->band[1].det*(int32_t) wd2) >> 15); /* Block 5H, RECONS */ /* Block 6H, LIMIT */ rhigh = saturate15(dhigh + s->band[1].s); /* Block 2H, INVQAH */ wd2 = rh2[ihigh]; wd1 = ((int32_t) s->band[1].nb*(int32_t) 127) >> 7; wd1 += wh[wd2]; if (wd1 < 0) wd1 = 0; else if (wd1 > 22528) wd1 = 22528; s->band[1].nb = (int16_t) wd1; /* Block 3H, SCALEH */ wd1 = (s->band[1].nb >> 6) & 31; wd2 = 10 - (s->band[1].nb >> 11); wd3 = (wd2 < 0) ? (ilb[wd1] << -wd2) : (ilb[wd1] >> wd2); s->band[1].det = (int16_t) (wd3 << 2); block4(&s->band[1], dhigh); } if (s->itu_test_mode) { amp[outlen++] = (int16_t) (rlow << 1); amp[outlen++] = (int16_t) (rhigh << 1); } else { if (s->eight_k) { /* We shift by 1 to allow for the 15 bit input to the G.722 algorithm. */ amp[outlen++] = (int16_t) (rlow << 1); } else { /* Apply the QMF to build the final signal */ s->x[s->ptr] = (int16_t) (rlow + rhigh); s->y[s->ptr] = (int16_t) (rlow - rhigh); if (++s->ptr >= 12) s->ptr = 0; /* We shift by 12 to allow for the QMF filters (DC gain = 4096), less 1 to allow for the 15 bit input to the G.722 algorithm. */ amp[outlen++] = (int16_t) (vec_circular_dot_prodi16(s->y, qmf_coeffs_rev, 12, s->ptr) >> 11); amp[outlen++] = (int16_t) (vec_circular_dot_prodi16(s->x, qmf_coeffs_fwd, 12, s->ptr) >> 11); } } } return outlen; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(g722_encode_state_t *) g722_encode_init(g722_encode_state_t *s, int rate, int options) { if (s == NULL) { if ((s = (g722_encode_state_t *) malloc(sizeof(*s))) == NULL) return NULL; } memset(s, 0, sizeof(*s)); if (rate == 48000) s->bits_per_sample = 6; else if (rate == 56000) s->bits_per_sample = 7; else s->bits_per_sample = 8; if ((options & G722_SAMPLE_RATE_8000)) s->eight_k = TRUE; if ((options & G722_PACKED) && s->bits_per_sample != 8) s->packed = TRUE; else s->packed = FALSE; s->band[0].det = 32; s->band[1].det = 8; return s; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) g722_encode_release(g722_encode_state_t *s) { return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) g722_encode_free(g722_encode_state_t *s) { free(s); return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) g722_encode(g722_encode_state_t *s, uint8_t g722_data[], const int16_t amp[], int len) { int16_t dlow; int16_t dhigh; int el; int wd; int wd1; int ril; int wd2; int il4; int ih2; int wd3; int eh; int g722_bytes; int ihigh; int ilow; int code; /* Low and high band PCM from the QMF */ int16_t xlow; int16_t xhigh; int32_t sumeven; int32_t sumodd; int mih; int i; int j; g722_bytes = 0; xhigh = 0; for (j = 0; j < len; ) { if (s->itu_test_mode) { xlow = xhigh = amp[j++] >> 1; } else { if (s->eight_k) { /* We shift by 1 to allow for the 15 bit input to the G.722 algorithm. */ xlow = amp[j++] >> 1; } else { /* Apply the transmit QMF */ s->x[s->ptr] = amp[j++]; s->y[s->ptr] = amp[j++]; if (++s->ptr >= 12) s->ptr = 0; sumodd = vec_circular_dot_prodi16(s->x, qmf_coeffs_fwd, 12, s->ptr); sumeven = vec_circular_dot_prodi16(s->y, qmf_coeffs_rev, 12, s->ptr); /* We shift by 12 to allow for the QMF filters (DC gain = 4096), plus 1 to allow for us summing two filters, plus 1 to allow for the 15 bit input to the G.722 algorithm. */ xlow = (int16_t) ((sumeven + sumodd) >> 14); xhigh = (int16_t) ((sumeven - sumodd) >> 14); } } /* Block 1L, SUBTRA */ el = saturated_sub16(xlow, s->band[0].s); /* Block 1L, QUANTL */ wd = (el >= 0) ? el : ~el; for (i = 1; i < 30; i++) { wd1 = ((int32_t) q6[i]*(int32_t) s->band[0].det) >> 12; if (wd < wd1) break; } ilow = (el < 0) ? iln[i] : ilp[i]; /* Block 2L, INVQAL */ ril = ilow >> 2; wd2 = qm4[ril]; dlow = (int16_t) (((int32_t) s->band[0].det*(int32_t) wd2) >> 15); /* Block 3L, LOGSCL */ il4 = rl42[ril]; wd = ((int32_t) s->band[0].nb*(int32_t) 127) >> 7; s->band[0].nb = (int16_t) (wd + wl[il4]); if (s->band[0].nb < 0) s->band[0].nb = 0; else if (s->band[0].nb > 18432) s->band[0].nb = 18432; /* Block 3L, SCALEL */ wd1 = (s->band[0].nb >> 6) & 31; wd2 = 8 - (s->band[0].nb >> 11); wd3 = (wd2 < 0) ? (ilb[wd1] << -wd2) : (ilb[wd1] >> wd2); s->band[0].det = (int16_t) (wd3 << 2); block4(&s->band[0], dlow); if (s->eight_k) { /* Just leave the high bits as zero */ code = (0xC0 | ilow) >> (8 - s->bits_per_sample); } else { /* Block 1H, SUBTRA */ eh = saturated_sub16(xhigh, s->band[1].s); /* Block 1H, QUANTH */ wd = (eh >= 0) ? eh : ~eh; wd1 = (564*s->band[1].det) >> 12; mih = (wd >= wd1) ? 2 : 1; ihigh = (eh < 0) ? ihn[mih] : ihp[mih]; /* Block 2H, INVQAH */ wd2 = qm2[ihigh]; dhigh = (int16_t) (((int32_t) s->band[1].det*(int32_t) wd2) >> 15); /* Block 3H, LOGSCH */ ih2 = rh2[ihigh]; wd = ((int32_t) s->band[1].nb*(int32_t) 127) >> 7; s->band[1].nb = (int16_t) (wd + wh[ih2]); if (s->band[1].nb < 0) s->band[1].nb = 0; else if (s->band[1].nb > 22528) s->band[1].nb = 22528; /* Block 3H, SCALEH */ wd1 = (s->band[1].nb >> 6) & 31; wd2 = 10 - (s->band[1].nb >> 11); wd3 = (wd2 < 0) ? (ilb[wd1] << -wd2) : (ilb[wd1] >> wd2); s->band[1].det = (int16_t) (wd3 << 2); block4(&s->band[1], dhigh); code = ((ihigh << 6) | ilow) >> (8 - s->bits_per_sample); } if (s->packed) { /* Pack the code bits */ s->out_buffer |= (code << s->out_bits); s->out_bits += s->bits_per_sample; if (s->out_bits >= 8) { g722_data[g722_bytes++] = (uint8_t) (s->out_buffer & 0xFF); s->out_bits -= 8; s->out_buffer >>= 8; } } else { g722_data[g722_bytes++] = (uint8_t) code; } } return g722_bytes; } /*- End of function --------------------------------------------------------*/ /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/modem_echo.c0000664000175000017500000001367411422612262015642 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * modem_echo.c - An echo cancellor, suitable for electrical echos in GSTN modems * * Written by Steve Underwood * * Copyright (C) 2001, 2003, 2004 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \file */ /* The FIR taps must be adapted as 32 bit values, to get the necessary finesse in the adaption process. However, they are applied as 16 bit values (bits 30-15 of the 32 bit values) in the FIR. For the working 16 bit values, we need 4 sets. */ #if defined(HAVE_CONFIG_H) #include "config.h" #endif #include #include #include #include #if defined(HAVE_TGMATH_H) #include #endif #if defined(HAVE_MATH_H) #include #endif #include "floating_fudge.h" #include "spandsp/telephony.h" #include "spandsp/bit_operations.h" #include "spandsp/dc_restore.h" #include "spandsp/modem_echo.h" #include "spandsp/private/modem_echo.h" SPAN_DECLARE(void) modem_echo_can_free(modem_echo_can_state_t *ec) { fir16_free(&ec->fir_state); free(ec->fir_taps32); free(ec->fir_taps16); free(ec); } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(modem_echo_can_state_t *) modem_echo_can_init(int len) { modem_echo_can_state_t *ec; if ((ec = (modem_echo_can_state_t *) malloc(sizeof(*ec))) == NULL) return NULL; memset(ec, 0, sizeof(*ec)); ec->taps = len; ec->curr_pos = ec->taps - 1; if ((ec->fir_taps32 = (int32_t *) malloc(ec->taps*sizeof(int32_t))) == NULL) { free(ec); return NULL; } memset(ec->fir_taps32, 0, ec->taps*sizeof(int32_t)); if ((ec->fir_taps16 = (int16_t *) malloc(ec->taps*sizeof(int16_t))) == NULL) { free(ec->fir_taps32); free(ec); return NULL; } memset(ec->fir_taps16, 0, ec->taps*sizeof(int16_t)); if (fir16_create(&ec->fir_state, ec->fir_taps16, ec->taps) == NULL) { free(ec->fir_taps16); free(ec->fir_taps32); free(ec); return NULL; } return ec; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) modem_echo_can_flush(modem_echo_can_state_t *ec) { ec->tx_power = 0; fir16_flush(&ec->fir_state); ec->fir_state.curr_pos = ec->taps - 1; memset(ec->fir_taps32, 0, ec->taps*sizeof(int32_t)); memset(ec->fir_taps16, 0, ec->taps*sizeof(int16_t)); ec->curr_pos = ec->taps - 1; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) modem_echo_can_adaption_mode(modem_echo_can_state_t *ec, int adapt) { ec->adapt = adapt; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int16_t) modem_echo_can_update(modem_echo_can_state_t *ec, int16_t tx, int16_t rx) { int32_t echo_value; int clean_rx; int shift; int i; int offset1; int offset2; /* Evaluate the echo - i.e. apply the FIR filter */ /* Assume the gain of the FIR does not exceed unity. Exceeding unity would seem like a rather poor thing for an echo cancellor to do :) This means we can compute the result with a total disregard for overflows. 16bits x 16bits -> 31bits, so no overflow can occur in any multiply. While accumulating we may overflow and underflow the 32 bit scale often. However, if the gain does not exceed unity, everything should work itself out, and the final result will be OK, without any saturation logic. */ /* Overflow is very much possible here, and we do nothing about it because of the compute costs */ echo_value = fir16(&ec->fir_state, tx); /* And the answer is..... */ clean_rx = rx - echo_value; //printf("%8d %8d %8d %8d\n", tx, rx, echo_value, clean_rx); if (ec->adapt) { /* Calculate short term power levels using very simple single pole IIRs */ /* TODO: Is the nasty modulus approach the fastest, or would a real tx*tx power calculation actually be faster? Using the squares makes the numbers grow a lot! */ ec->tx_power += ((tx*tx - ec->tx_power) >> 5); shift = 1; /* Update the FIR taps */ offset2 = ec->curr_pos; offset1 = ec->taps - offset2; for (i = ec->taps - 1; i >= offset1; i--) { /* Leak to avoid the coefficients drifting beyond the ability of the adaption process to bring them back under control. */ ec->fir_taps32[i] -= (ec->fir_taps32[i] >> 23); ec->fir_taps32[i] += (ec->fir_state.history[i - offset1]*clean_rx) >> shift; ec->fir_taps16[i] = (int16_t) (ec->fir_taps32[i] >> 15); } for ( ; i >= 0; i--) { ec->fir_taps32[i] -= (ec->fir_taps32[i] >> 23); ec->fir_taps32[i] += (ec->fir_state.history[i + offset2]*clean_rx) >> shift; ec->fir_taps16[i] = (int16_t) (ec->fir_taps32[i] >> 15); } } /* Roll around the rolling buffer */ if (ec->curr_pos <= 0) ec->curr_pos = ec->taps; ec->curr_pos--; return (int16_t) clean_rx; } /*- End of function --------------------------------------------------------*/ /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/dds_float.c0000664000175000017500000012034511422612261015473 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * complex_dds.c * * Written by Steve Underwood * * Copyright (C) 2003 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \file */ #if defined(HAVE_CONFIG_H) #include "config.h" #endif #include #include #if defined(HAVE_TGMATH_H) #include #endif #if defined(HAVE_MATH_H) #include #endif #include "floating_fudge.h" #include "spandsp/telephony.h" #include "spandsp/complex.h" #include "spandsp/dds.h" #define SLENK 11 #define SINELEN (1 << SLENK) /* Precreating this table allows it to be in const memory, which might have some performance advantage. */ static const float sine_table[SINELEN] = { 0.00000000f, 0.00306796f, 0.00613588f, 0.00920375f, 0.01227154f, 0.01533921f, 0.01840673f, 0.02147408f, 0.02454123f, 0.02760815f, 0.03067480f, 0.03374117f, 0.03680722f, 0.03987293f, 0.04293826f, 0.04600318f, 0.04906767f, 0.05213170f, 0.05519524f, 0.05825826f, 0.06132074f, 0.06438263f, 0.06744392f, 0.07050457f, 0.07356456f, 0.07662386f, 0.07968244f, 0.08274026f, 0.08579731f, 0.08885355f, 0.09190896f, 0.09496350f, 0.09801714f, 0.10106986f, 0.10412163f, 0.10717242f, 0.11022221f, 0.11327095f, 0.11631863f, 0.11936521f, 0.12241068f, 0.12545498f, 0.12849811f, 0.13154003f, 0.13458071f, 0.13762012f, 0.14065824f, 0.14369503f, 0.14673047f, 0.14976453f, 0.15279719f, 0.15582840f, 0.15885814f, 0.16188639f, 0.16491312f, 0.16793829f, 0.17096189f, 0.17398387f, 0.17700422f, 0.18002290f, 0.18303989f, 0.18605515f, 0.18906866f, 0.19208040f, 0.19509032f, 0.19809841f, 0.20110463f, 0.20410897f, 0.20711138f, 0.21011184f, 0.21311032f, 0.21610680f, 0.21910124f, 0.22209362f, 0.22508391f, 0.22807208f, 0.23105811f, 0.23404196f, 0.23702361f, 0.24000302f, 0.24298018f, 0.24595505f, 0.24892761f, 0.25189782f, 0.25486566f, 0.25783110f, 0.26079412f, 0.26375468f, 0.26671276f, 0.26966833f, 0.27262136f, 0.27557182f, 0.27851969f, 0.28146494f, 0.28440754f, 0.28734746f, 0.29028468f, 0.29321916f, 0.29615089f, 0.29907983f, 0.30200595f, 0.30492923f, 0.30784964f, 0.31076715f, 0.31368174f, 0.31659338f, 0.31950203f, 0.32240768f, 0.32531029f, 0.32820984f, 0.33110631f, 0.33399965f, 0.33688985f, 0.33977688f, 0.34266072f, 0.34554132f, 0.34841868f, 0.35129276f, 0.35416353f, 0.35703096f, 0.35989504f, 0.36275572f, 0.36561300f, 0.36846683f, 0.37131719f, 0.37416406f, 0.37700741f, 0.37984721f, 0.38268343f, 0.38551605f, 0.38834505f, 0.39117038f, 0.39399204f, 0.39680999f, 0.39962420f, 0.40243465f, 0.40524131f, 0.40804416f, 0.41084317f, 0.41363831f, 0.41642956f, 0.41921689f, 0.42200027f, 0.42477968f, 0.42755509f, 0.43032648f, 0.43309382f, 0.43585708f, 0.43861624f, 0.44137127f, 0.44412214f, 0.44686884f, 0.44961133f, 0.45234959f, 0.45508359f, 0.45781330f, 0.46053871f, 0.46325978f, 0.46597650f, 0.46868882f, 0.47139674f, 0.47410021f, 0.47679923f, 0.47949376f, 0.48218377f, 0.48486925f, 0.48755016f, 0.49022648f, 0.49289819f, 0.49556526f, 0.49822767f, 0.50088538f, 0.50353838f, 0.50618665f, 0.50883014f, 0.51146885f, 0.51410274f, 0.51673180f, 0.51935599f, 0.52197529f, 0.52458968f, 0.52719913f, 0.52980362f, 0.53240313f, 0.53499762f, 0.53758708f, 0.54017147f, 0.54275078f, 0.54532499f, 0.54789406f, 0.55045797f, 0.55301671f, 0.55557023f, 0.55811853f, 0.56066158f, 0.56319934f, 0.56573181f, 0.56825895f, 0.57078075f, 0.57329717f, 0.57580819f, 0.57831380f, 0.58081396f, 0.58330865f, 0.58579786f, 0.58828155f, 0.59075970f, 0.59323230f, 0.59569930f, 0.59816071f, 0.60061648f, 0.60306660f, 0.60551104f, 0.60794978f, 0.61038281f, 0.61281008f, 0.61523159f, 0.61764731f, 0.62005721f, 0.62246128f, 0.62485949f, 0.62725182f, 0.62963824f, 0.63201874f, 0.63439328f, 0.63676186f, 0.63912444f, 0.64148101f, 0.64383154f, 0.64617601f, 0.64851440f, 0.65084668f, 0.65317284f, 0.65549285f, 0.65780669f, 0.66011434f, 0.66241578f, 0.66471098f, 0.66699992f, 0.66928259f, 0.67155895f, 0.67382900f, 0.67609270f, 0.67835004f, 0.68060100f, 0.68284555f, 0.68508367f, 0.68731534f, 0.68954054f, 0.69175926f, 0.69397146f, 0.69617713f, 0.69837625f, 0.70056879f, 0.70275474f, 0.70493408f, 0.70710678f, 0.70927283f, 0.71143220f, 0.71358487f, 0.71573083f, 0.71787005f, 0.72000251f, 0.72212819f, 0.72424708f, 0.72635916f, 0.72846439f, 0.73056277f, 0.73265427f, 0.73473888f, 0.73681657f, 0.73888732f, 0.74095113f, 0.74300795f, 0.74505779f, 0.74710061f, 0.74913639f, 0.75116513f, 0.75318680f, 0.75520138f, 0.75720885f, 0.75920919f, 0.76120239f, 0.76318842f, 0.76516727f, 0.76713891f, 0.76910334f, 0.77106052f, 0.77301045f, 0.77495311f, 0.77688847f, 0.77881651f, 0.78073723f, 0.78265060f, 0.78455660f, 0.78645521f, 0.78834643f, 0.79023022f, 0.79210658f, 0.79397548f, 0.79583690f, 0.79769084f, 0.79953727f, 0.80137617f, 0.80320753f, 0.80503133f, 0.80684755f, 0.80865618f, 0.81045720f, 0.81225059f, 0.81403633f, 0.81581441f, 0.81758481f, 0.81934752f, 0.82110251f, 0.82284978f, 0.82458930f, 0.82632106f, 0.82804505f, 0.82976123f, 0.83146961f, 0.83317016f, 0.83486287f, 0.83654773f, 0.83822471f, 0.83989379f, 0.84155498f, 0.84320824f, 0.84485357f, 0.84649094f, 0.84812034f, 0.84974177f, 0.85135519f, 0.85296060f, 0.85455799f, 0.85614733f, 0.85772861f, 0.85930182f, 0.86086694f, 0.86242396f, 0.86397286f, 0.86551362f, 0.86704625f, 0.86857071f, 0.87008699f, 0.87159509f, 0.87309498f, 0.87458665f, 0.87607009f, 0.87754529f, 0.87901223f, 0.88047089f, 0.88192126f, 0.88336334f, 0.88479710f, 0.88622253f, 0.88763962f, 0.88904836f, 0.89044872f, 0.89184071f, 0.89322430f, 0.89459949f, 0.89596625f, 0.89732458f, 0.89867447f, 0.90001589f, 0.90134885f, 0.90267332f, 0.90398929f, 0.90529676f, 0.90659570f, 0.90788612f, 0.90916798f, 0.91044129f, 0.91170603f, 0.91296219f, 0.91420976f, 0.91544872f, 0.91667906f, 0.91790078f, 0.91911385f, 0.92031828f, 0.92151404f, 0.92270113f, 0.92387953f, 0.92504924f, 0.92621024f, 0.92736253f, 0.92850608f, 0.92964090f, 0.93076696f, 0.93188427f, 0.93299280f, 0.93409255f, 0.93518351f, 0.93626567f, 0.93733901f, 0.93840353f, 0.93945922f, 0.94050607f, 0.94154407f, 0.94257320f, 0.94359346f, 0.94460484f, 0.94560733f, 0.94660091f, 0.94758559f, 0.94856135f, 0.94952818f, 0.95048607f, 0.95143502f, 0.95237501f, 0.95330604f, 0.95422810f, 0.95514117f, 0.95604525f, 0.95694034f, 0.95782641f, 0.95870347f, 0.95957151f, 0.96043052f, 0.96128049f, 0.96212140f, 0.96295327f, 0.96377607f, 0.96458979f, 0.96539444f, 0.96619000f, 0.96697647f, 0.96775384f, 0.96852209f, 0.96928124f, 0.97003125f, 0.97077214f, 0.97150389f, 0.97222650f, 0.97293995f, 0.97364425f, 0.97433938f, 0.97502535f, 0.97570213f, 0.97636973f, 0.97702814f, 0.97767736f, 0.97831737f, 0.97894818f, 0.97956977f, 0.98018214f, 0.98078528f, 0.98137919f, 0.98196387f, 0.98253930f, 0.98310549f, 0.98366242f, 0.98421009f, 0.98474850f, 0.98527764f, 0.98579751f, 0.98630810f, 0.98680940f, 0.98730142f, 0.98778414f, 0.98825757f, 0.98872169f, 0.98917651f, 0.98962202f, 0.99005821f, 0.99048508f, 0.99090264f, 0.99131086f, 0.99170975f, 0.99209931f, 0.99247953f, 0.99285041f, 0.99321195f, 0.99356414f, 0.99390697f, 0.99424045f, 0.99456457f, 0.99487933f, 0.99518473f, 0.99548076f, 0.99576741f, 0.99604470f, 0.99631261f, 0.99657115f, 0.99682030f, 0.99706007f, 0.99729046f, 0.99751146f, 0.99772307f, 0.99792529f, 0.99811811f, 0.99830154f, 0.99847558f, 0.99864022f, 0.99879546f, 0.99894129f, 0.99907773f, 0.99920476f, 0.99932238f, 0.99943060f, 0.99952942f, 0.99961882f, 0.99969882f, 0.99976941f, 0.99983058f, 0.99988235f, 0.99992470f, 0.99995764f, 0.99998118f, 0.99999529f, 1.00000000f, 0.99999529f, 0.99998118f, 0.99995764f, 0.99992470f, 0.99988235f, 0.99983058f, 0.99976941f, 0.99969882f, 0.99961882f, 0.99952942f, 0.99943060f, 0.99932238f, 0.99920476f, 0.99907773f, 0.99894129f, 0.99879546f, 0.99864022f, 0.99847558f, 0.99830154f, 0.99811811f, 0.99792529f, 0.99772307f, 0.99751146f, 0.99729046f, 0.99706007f, 0.99682030f, 0.99657115f, 0.99631261f, 0.99604470f, 0.99576741f, 0.99548076f, 0.99518473f, 0.99487933f, 0.99456457f, 0.99424045f, 0.99390697f, 0.99356414f, 0.99321195f, 0.99285041f, 0.99247953f, 0.99209931f, 0.99170975f, 0.99131086f, 0.99090264f, 0.99048508f, 0.99005821f, 0.98962202f, 0.98917651f, 0.98872169f, 0.98825757f, 0.98778414f, 0.98730142f, 0.98680940f, 0.98630810f, 0.98579751f, 0.98527764f, 0.98474850f, 0.98421009f, 0.98366242f, 0.98310549f, 0.98253930f, 0.98196387f, 0.98137919f, 0.98078528f, 0.98018214f, 0.97956977f, 0.97894818f, 0.97831737f, 0.97767736f, 0.97702814f, 0.97636973f, 0.97570213f, 0.97502535f, 0.97433938f, 0.97364425f, 0.97293995f, 0.97222650f, 0.97150389f, 0.97077214f, 0.97003125f, 0.96928124f, 0.96852209f, 0.96775384f, 0.96697647f, 0.96619000f, 0.96539444f, 0.96458979f, 0.96377607f, 0.96295327f, 0.96212140f, 0.96128049f, 0.96043052f, 0.95957151f, 0.95870347f, 0.95782641f, 0.95694034f, 0.95604525f, 0.95514117f, 0.95422810f, 0.95330604f, 0.95237501f, 0.95143502f, 0.95048607f, 0.94952818f, 0.94856135f, 0.94758559f, 0.94660091f, 0.94560733f, 0.94460484f, 0.94359346f, 0.94257320f, 0.94154407f, 0.94050607f, 0.93945922f, 0.93840353f, 0.93733901f, 0.93626567f, 0.93518351f, 0.93409255f, 0.93299280f, 0.93188427f, 0.93076696f, 0.92964090f, 0.92850608f, 0.92736253f, 0.92621024f, 0.92504924f, 0.92387953f, 0.92270113f, 0.92151404f, 0.92031828f, 0.91911385f, 0.91790078f, 0.91667906f, 0.91544872f, 0.91420976f, 0.91296219f, 0.91170603f, 0.91044129f, 0.90916798f, 0.90788612f, 0.90659570f, 0.90529676f, 0.90398929f, 0.90267332f, 0.90134885f, 0.90001589f, 0.89867447f, 0.89732458f, 0.89596625f, 0.89459949f, 0.89322430f, 0.89184071f, 0.89044872f, 0.88904836f, 0.88763962f, 0.88622253f, 0.88479710f, 0.88336334f, 0.88192126f, 0.88047089f, 0.87901223f, 0.87754529f, 0.87607009f, 0.87458665f, 0.87309498f, 0.87159509f, 0.87008699f, 0.86857071f, 0.86704625f, 0.86551362f, 0.86397286f, 0.86242396f, 0.86086694f, 0.85930182f, 0.85772861f, 0.85614733f, 0.85455799f, 0.85296060f, 0.85135519f, 0.84974177f, 0.84812034f, 0.84649094f, 0.84485357f, 0.84320824f, 0.84155498f, 0.83989379f, 0.83822471f, 0.83654773f, 0.83486287f, 0.83317016f, 0.83146961f, 0.82976123f, 0.82804505f, 0.82632106f, 0.82458930f, 0.82284978f, 0.82110251f, 0.81934752f, 0.81758481f, 0.81581441f, 0.81403633f, 0.81225059f, 0.81045720f, 0.80865618f, 0.80684755f, 0.80503133f, 0.80320753f, 0.80137617f, 0.79953727f, 0.79769084f, 0.79583690f, 0.79397548f, 0.79210658f, 0.79023022f, 0.78834643f, 0.78645521f, 0.78455660f, 0.78265060f, 0.78073723f, 0.77881651f, 0.77688847f, 0.77495311f, 0.77301045f, 0.77106052f, 0.76910334f, 0.76713891f, 0.76516727f, 0.76318842f, 0.76120239f, 0.75920919f, 0.75720885f, 0.75520138f, 0.75318680f, 0.75116513f, 0.74913639f, 0.74710061f, 0.74505779f, 0.74300795f, 0.74095113f, 0.73888732f, 0.73681657f, 0.73473888f, 0.73265427f, 0.73056277f, 0.72846439f, 0.72635916f, 0.72424708f, 0.72212819f, 0.72000251f, 0.71787005f, 0.71573083f, 0.71358487f, 0.71143220f, 0.70927283f, 0.70710678f, 0.70493408f, 0.70275474f, 0.70056879f, 0.69837625f, 0.69617713f, 0.69397146f, 0.69175926f, 0.68954054f, 0.68731534f, 0.68508367f, 0.68284555f, 0.68060100f, 0.67835004f, 0.67609270f, 0.67382900f, 0.67155895f, 0.66928259f, 0.66699992f, 0.66471098f, 0.66241578f, 0.66011434f, 0.65780669f, 0.65549285f, 0.65317284f, 0.65084668f, 0.64851440f, 0.64617601f, 0.64383154f, 0.64148101f, 0.63912444f, 0.63676186f, 0.63439328f, 0.63201874f, 0.62963824f, 0.62725182f, 0.62485949f, 0.62246128f, 0.62005721f, 0.61764731f, 0.61523159f, 0.61281008f, 0.61038281f, 0.60794978f, 0.60551104f, 0.60306660f, 0.60061648f, 0.59816071f, 0.59569930f, 0.59323230f, 0.59075970f, 0.58828155f, 0.58579786f, 0.58330865f, 0.58081396f, 0.57831380f, 0.57580819f, 0.57329717f, 0.57078075f, 0.56825895f, 0.56573181f, 0.56319934f, 0.56066158f, 0.55811853f, 0.55557023f, 0.55301671f, 0.55045797f, 0.54789406f, 0.54532499f, 0.54275078f, 0.54017147f, 0.53758708f, 0.53499762f, 0.53240313f, 0.52980362f, 0.52719913f, 0.52458968f, 0.52197529f, 0.51935599f, 0.51673180f, 0.51410274f, 0.51146885f, 0.50883014f, 0.50618665f, 0.50353838f, 0.50088538f, 0.49822767f, 0.49556526f, 0.49289819f, 0.49022648f, 0.48755016f, 0.48486925f, 0.48218377f, 0.47949376f, 0.47679923f, 0.47410021f, 0.47139674f, 0.46868882f, 0.46597650f, 0.46325978f, 0.46053871f, 0.45781330f, 0.45508359f, 0.45234959f, 0.44961133f, 0.44686884f, 0.44412214f, 0.44137127f, 0.43861624f, 0.43585708f, 0.43309382f, 0.43032648f, 0.42755509f, 0.42477968f, 0.42200027f, 0.41921689f, 0.41642956f, 0.41363831f, 0.41084317f, 0.40804416f, 0.40524131f, 0.40243465f, 0.39962420f, 0.39680999f, 0.39399204f, 0.39117038f, 0.38834505f, 0.38551605f, 0.38268343f, 0.37984721f, 0.37700741f, 0.37416406f, 0.37131719f, 0.36846683f, 0.36561300f, 0.36275572f, 0.35989504f, 0.35703096f, 0.35416353f, 0.35129276f, 0.34841868f, 0.34554132f, 0.34266072f, 0.33977688f, 0.33688985f, 0.33399965f, 0.33110631f, 0.32820984f, 0.32531029f, 0.32240768f, 0.31950203f, 0.31659338f, 0.31368174f, 0.31076715f, 0.30784964f, 0.30492923f, 0.30200595f, 0.29907983f, 0.29615089f, 0.29321916f, 0.29028468f, 0.28734746f, 0.28440754f, 0.28146494f, 0.27851969f, 0.27557182f, 0.27262136f, 0.26966833f, 0.26671276f, 0.26375468f, 0.26079412f, 0.25783110f, 0.25486566f, 0.25189782f, 0.24892761f, 0.24595505f, 0.24298018f, 0.24000302f, 0.23702361f, 0.23404196f, 0.23105811f, 0.22807208f, 0.22508391f, 0.22209362f, 0.21910124f, 0.21610680f, 0.21311032f, 0.21011184f, 0.20711138f, 0.20410897f, 0.20110463f, 0.19809841f, 0.19509032f, 0.19208040f, 0.18906866f, 0.18605515f, 0.18303989f, 0.18002290f, 0.17700422f, 0.17398387f, 0.17096189f, 0.16793829f, 0.16491312f, 0.16188639f, 0.15885814f, 0.15582840f, 0.15279719f, 0.14976453f, 0.14673047f, 0.14369503f, 0.14065824f, 0.13762012f, 0.13458071f, 0.13154003f, 0.12849811f, 0.12545498f, 0.12241068f, 0.11936521f, 0.11631863f, 0.11327095f, 0.11022221f, 0.10717242f, 0.10412163f, 0.10106986f, 0.09801714f, 0.09496350f, 0.09190896f, 0.08885355f, 0.08579731f, 0.08274026f, 0.07968244f, 0.07662386f, 0.07356456f, 0.07050457f, 0.06744392f, 0.06438263f, 0.06132074f, 0.05825826f, 0.05519524f, 0.05213170f, 0.04906767f, 0.04600318f, 0.04293826f, 0.03987293f, 0.03680722f, 0.03374117f, 0.03067480f, 0.02760815f, 0.02454123f, 0.02147408f, 0.01840673f, 0.01533921f, 0.01227154f, 0.00920375f, 0.00613588f, 0.00306796f, 0.00000000f, -0.00306796f, -0.00613588f, -0.00920375f, -0.01227154f, -0.01533921f, -0.01840673f, -0.02147408f, -0.02454123f, -0.02760815f, -0.03067480f, -0.03374117f, -0.03680722f, -0.03987293f, -0.04293826f, -0.04600318f, -0.04906767f, -0.05213170f, -0.05519524f, -0.05825826f, -0.06132074f, -0.06438263f, -0.06744392f, -0.07050457f, -0.07356456f, -0.07662386f, -0.07968244f, -0.08274026f, -0.08579731f, -0.08885355f, -0.09190896f, -0.09496350f, -0.09801714f, -0.10106986f, -0.10412163f, -0.10717242f, -0.11022221f, -0.11327095f, -0.11631863f, -0.11936521f, -0.12241068f, -0.12545498f, -0.12849811f, -0.13154003f, -0.13458071f, -0.13762012f, -0.14065824f, -0.14369503f, -0.14673047f, -0.14976453f, -0.15279719f, -0.15582840f, -0.15885814f, -0.16188639f, -0.16491312f, -0.16793829f, -0.17096189f, -0.17398387f, -0.17700422f, -0.18002290f, -0.18303989f, -0.18605515f, -0.18906866f, -0.19208040f, -0.19509032f, -0.19809841f, -0.20110463f, -0.20410897f, -0.20711138f, -0.21011184f, -0.21311032f, -0.21610680f, -0.21910124f, -0.22209362f, -0.22508391f, -0.22807208f, -0.23105811f, -0.23404196f, -0.23702361f, -0.24000302f, -0.24298018f, -0.24595505f, -0.24892761f, -0.25189782f, -0.25486566f, -0.25783110f, -0.26079412f, -0.26375468f, -0.26671276f, -0.26966833f, -0.27262136f, -0.27557182f, -0.27851969f, -0.28146494f, -0.28440754f, -0.28734746f, -0.29028468f, -0.29321916f, -0.29615089f, -0.29907983f, -0.30200595f, -0.30492923f, -0.30784964f, -0.31076715f, -0.31368174f, -0.31659338f, -0.31950203f, -0.32240768f, -0.32531029f, -0.32820984f, -0.33110631f, -0.33399965f, -0.33688985f, -0.33977688f, -0.34266072f, -0.34554132f, -0.34841868f, -0.35129276f, -0.35416353f, -0.35703096f, -0.35989504f, -0.36275572f, -0.36561300f, -0.36846683f, -0.37131719f, -0.37416406f, -0.37700741f, -0.37984721f, -0.38268343f, -0.38551605f, -0.38834505f, -0.39117038f, -0.39399204f, -0.39680999f, -0.39962420f, -0.40243465f, -0.40524131f, -0.40804416f, -0.41084317f, -0.41363831f, -0.41642956f, -0.41921689f, -0.42200027f, -0.42477968f, -0.42755509f, -0.43032648f, -0.43309382f, -0.43585708f, -0.43861624f, -0.44137127f, -0.44412214f, -0.44686884f, -0.44961133f, -0.45234959f, -0.45508359f, -0.45781330f, -0.46053871f, -0.46325978f, -0.46597650f, -0.46868882f, -0.47139674f, -0.47410021f, -0.47679923f, -0.47949376f, -0.48218377f, -0.48486925f, -0.48755016f, -0.49022648f, -0.49289819f, -0.49556526f, -0.49822767f, -0.50088538f, -0.50353838f, -0.50618665f, -0.50883014f, -0.51146885f, -0.51410274f, -0.51673180f, -0.51935599f, -0.52197529f, -0.52458968f, -0.52719913f, -0.52980362f, -0.53240313f, -0.53499762f, -0.53758708f, -0.54017147f, -0.54275078f, -0.54532499f, -0.54789406f, -0.55045797f, -0.55301671f, -0.55557023f, -0.55811853f, -0.56066158f, -0.56319934f, -0.56573181f, -0.56825895f, -0.57078075f, -0.57329717f, -0.57580819f, -0.57831380f, -0.58081396f, -0.58330865f, -0.58579786f, -0.58828155f, -0.59075970f, -0.59323230f, -0.59569930f, -0.59816071f, -0.60061648f, -0.60306660f, -0.60551104f, -0.60794978f, -0.61038281f, -0.61281008f, -0.61523159f, -0.61764731f, -0.62005721f, -0.62246128f, -0.62485949f, -0.62725182f, -0.62963824f, -0.63201874f, -0.63439328f, -0.63676186f, -0.63912444f, -0.64148101f, -0.64383154f, -0.64617601f, -0.64851440f, -0.65084668f, -0.65317284f, -0.65549285f, -0.65780669f, -0.66011434f, -0.66241578f, -0.66471098f, -0.66699992f, -0.66928259f, -0.67155895f, -0.67382900f, -0.67609270f, -0.67835004f, -0.68060100f, -0.68284555f, -0.68508367f, -0.68731534f, -0.68954054f, -0.69175926f, -0.69397146f, -0.69617713f, -0.69837625f, -0.70056879f, -0.70275474f, -0.70493408f, -0.70710678f, -0.70927283f, -0.71143220f, -0.71358487f, -0.71573083f, -0.71787005f, -0.72000251f, -0.72212819f, -0.72424708f, -0.72635916f, -0.72846439f, -0.73056277f, -0.73265427f, -0.73473888f, -0.73681657f, -0.73888732f, -0.74095113f, -0.74300795f, -0.74505779f, -0.74710061f, -0.74913639f, -0.75116513f, -0.75318680f, -0.75520138f, -0.75720885f, -0.75920919f, -0.76120239f, -0.76318842f, -0.76516727f, -0.76713891f, -0.76910334f, -0.77106052f, -0.77301045f, -0.77495311f, -0.77688847f, -0.77881651f, -0.78073723f, -0.78265060f, -0.78455660f, -0.78645521f, -0.78834643f, -0.79023022f, -0.79210658f, -0.79397548f, -0.79583690f, -0.79769084f, -0.79953727f, -0.80137617f, -0.80320753f, -0.80503133f, -0.80684755f, -0.80865618f, -0.81045720f, -0.81225059f, -0.81403633f, -0.81581441f, -0.81758481f, -0.81934752f, -0.82110251f, -0.82284978f, -0.82458930f, -0.82632106f, -0.82804505f, -0.82976123f, -0.83146961f, -0.83317016f, -0.83486287f, -0.83654773f, -0.83822471f, -0.83989379f, -0.84155498f, -0.84320824f, -0.84485357f, -0.84649094f, -0.84812034f, -0.84974177f, -0.85135519f, -0.85296060f, -0.85455799f, -0.85614733f, -0.85772861f, -0.85930182f, -0.86086694f, -0.86242396f, -0.86397286f, -0.86551362f, -0.86704625f, -0.86857071f, -0.87008699f, -0.87159509f, -0.87309498f, -0.87458665f, -0.87607009f, -0.87754529f, -0.87901223f, -0.88047089f, -0.88192126f, -0.88336334f, -0.88479710f, -0.88622253f, -0.88763962f, -0.88904836f, -0.89044872f, -0.89184071f, -0.89322430f, -0.89459949f, -0.89596625f, -0.89732458f, -0.89867447f, -0.90001589f, -0.90134885f, -0.90267332f, -0.90398929f, -0.90529676f, -0.90659570f, -0.90788612f, -0.90916798f, -0.91044129f, -0.91170603f, -0.91296219f, -0.91420976f, -0.91544872f, -0.91667906f, -0.91790078f, -0.91911385f, -0.92031828f, -0.92151404f, -0.92270113f, -0.92387953f, -0.92504924f, -0.92621024f, -0.92736253f, -0.92850608f, -0.92964090f, -0.93076696f, -0.93188427f, -0.93299280f, -0.93409255f, -0.93518351f, -0.93626567f, -0.93733901f, -0.93840353f, -0.93945922f, -0.94050607f, -0.94154407f, -0.94257320f, -0.94359346f, -0.94460484f, -0.94560733f, -0.94660091f, -0.94758559f, -0.94856135f, -0.94952818f, -0.95048607f, -0.95143502f, -0.95237501f, -0.95330604f, -0.95422810f, -0.95514117f, -0.95604525f, -0.95694034f, -0.95782641f, -0.95870347f, -0.95957151f, -0.96043052f, -0.96128049f, -0.96212140f, -0.96295327f, -0.96377607f, -0.96458979f, -0.96539444f, -0.96619000f, -0.96697647f, -0.96775384f, -0.96852209f, -0.96928124f, -0.97003125f, -0.97077214f, -0.97150389f, -0.97222650f, -0.97293995f, -0.97364425f, -0.97433938f, -0.97502535f, -0.97570213f, -0.97636973f, -0.97702814f, -0.97767736f, -0.97831737f, -0.97894818f, -0.97956977f, -0.98018214f, -0.98078528f, -0.98137919f, -0.98196387f, -0.98253930f, -0.98310549f, -0.98366242f, -0.98421009f, -0.98474850f, -0.98527764f, -0.98579751f, -0.98630810f, -0.98680940f, -0.98730142f, -0.98778414f, -0.98825757f, -0.98872169f, -0.98917651f, -0.98962202f, -0.99005821f, -0.99048508f, -0.99090264f, -0.99131086f, -0.99170975f, -0.99209931f, -0.99247953f, -0.99285041f, -0.99321195f, -0.99356414f, -0.99390697f, -0.99424045f, -0.99456457f, -0.99487933f, -0.99518473f, -0.99548076f, -0.99576741f, -0.99604470f, -0.99631261f, -0.99657115f, -0.99682030f, -0.99706007f, -0.99729046f, -0.99751146f, -0.99772307f, -0.99792529f, -0.99811811f, -0.99830154f, -0.99847558f, -0.99864022f, -0.99879546f, -0.99894129f, -0.99907773f, -0.99920476f, -0.99932238f, -0.99943060f, -0.99952942f, -0.99961882f, -0.99969882f, -0.99976941f, -0.99983058f, -0.99988235f, -0.99992470f, -0.99995764f, -0.99998118f, -0.99999529f, -1.00000000f, -0.99999529f, -0.99998118f, -0.99995764f, -0.99992470f, -0.99988235f, -0.99983058f, -0.99976941f, -0.99969882f, -0.99961882f, -0.99952942f, -0.99943060f, -0.99932238f, -0.99920476f, -0.99907773f, -0.99894129f, -0.99879546f, -0.99864022f, -0.99847558f, -0.99830154f, -0.99811811f, -0.99792529f, -0.99772307f, -0.99751146f, -0.99729046f, -0.99706007f, -0.99682030f, -0.99657115f, -0.99631261f, -0.99604470f, -0.99576741f, -0.99548076f, -0.99518473f, -0.99487933f, -0.99456457f, -0.99424045f, -0.99390697f, -0.99356414f, -0.99321195f, -0.99285041f, -0.99247953f, -0.99209931f, -0.99170975f, -0.99131086f, -0.99090264f, -0.99048508f, -0.99005821f, -0.98962202f, -0.98917651f, -0.98872169f, -0.98825757f, -0.98778414f, -0.98730142f, -0.98680940f, -0.98630810f, -0.98579751f, -0.98527764f, -0.98474850f, -0.98421009f, -0.98366242f, -0.98310549f, -0.98253930f, -0.98196387f, -0.98137919f, -0.98078528f, -0.98018214f, -0.97956977f, -0.97894818f, -0.97831737f, -0.97767736f, -0.97702814f, -0.97636973f, -0.97570213f, -0.97502535f, -0.97433938f, -0.97364425f, -0.97293995f, -0.97222650f, -0.97150389f, -0.97077214f, -0.97003125f, -0.96928124f, -0.96852209f, -0.96775384f, -0.96697647f, -0.96619000f, -0.96539444f, -0.96458979f, -0.96377607f, -0.96295327f, -0.96212140f, -0.96128049f, -0.96043052f, -0.95957151f, -0.95870347f, -0.95782641f, -0.95694034f, -0.95604525f, -0.95514117f, -0.95422810f, -0.95330604f, -0.95237501f, -0.95143502f, -0.95048607f, -0.94952818f, -0.94856135f, -0.94758559f, -0.94660091f, -0.94560733f, -0.94460484f, -0.94359346f, -0.94257320f, -0.94154407f, -0.94050607f, -0.93945922f, -0.93840353f, -0.93733901f, -0.93626567f, -0.93518351f, -0.93409255f, -0.93299280f, -0.93188427f, -0.93076696f, -0.92964090f, -0.92850608f, -0.92736253f, -0.92621024f, -0.92504924f, -0.92387953f, -0.92270113f, -0.92151404f, -0.92031828f, -0.91911385f, -0.91790078f, -0.91667906f, -0.91544872f, -0.91420976f, -0.91296219f, -0.91170603f, -0.91044129f, -0.90916798f, -0.90788612f, -0.90659570f, -0.90529676f, -0.90398929f, -0.90267332f, -0.90134885f, -0.90001589f, -0.89867447f, -0.89732458f, -0.89596625f, -0.89459949f, -0.89322430f, -0.89184071f, -0.89044872f, -0.88904836f, -0.88763962f, -0.88622253f, -0.88479710f, -0.88336334f, -0.88192126f, -0.88047089f, -0.87901223f, -0.87754529f, -0.87607009f, -0.87458665f, -0.87309498f, -0.87159509f, -0.87008699f, -0.86857071f, -0.86704625f, -0.86551362f, -0.86397286f, -0.86242396f, -0.86086694f, -0.85930182f, -0.85772861f, -0.85614733f, -0.85455799f, -0.85296060f, -0.85135519f, -0.84974177f, -0.84812034f, -0.84649094f, -0.84485357f, -0.84320824f, -0.84155498f, -0.83989379f, -0.83822471f, -0.83654773f, -0.83486287f, -0.83317016f, -0.83146961f, -0.82976123f, -0.82804505f, -0.82632106f, -0.82458930f, -0.82284978f, -0.82110251f, -0.81934752f, -0.81758481f, -0.81581441f, -0.81403633f, -0.81225059f, -0.81045720f, -0.80865618f, -0.80684755f, -0.80503133f, -0.80320753f, -0.80137617f, -0.79953727f, -0.79769084f, -0.79583690f, -0.79397548f, -0.79210658f, -0.79023022f, -0.78834643f, -0.78645521f, -0.78455660f, -0.78265060f, -0.78073723f, -0.77881651f, -0.77688847f, -0.77495311f, -0.77301045f, -0.77106052f, -0.76910334f, -0.76713891f, -0.76516727f, -0.76318842f, -0.76120239f, -0.75920919f, -0.75720885f, -0.75520138f, -0.75318680f, -0.75116513f, -0.74913639f, -0.74710061f, -0.74505779f, -0.74300795f, -0.74095113f, -0.73888732f, -0.73681657f, -0.73473888f, -0.73265427f, -0.73056277f, -0.72846439f, -0.72635916f, -0.72424708f, -0.72212819f, -0.72000251f, -0.71787005f, -0.71573083f, -0.71358487f, -0.71143220f, -0.70927283f, -0.70710678f, -0.70493408f, -0.70275474f, -0.70056879f, -0.69837625f, -0.69617713f, -0.69397146f, -0.69175926f, -0.68954054f, -0.68731534f, -0.68508367f, -0.68284555f, -0.68060100f, -0.67835004f, -0.67609270f, -0.67382900f, -0.67155895f, -0.66928259f, -0.66699992f, -0.66471098f, -0.66241578f, -0.66011434f, -0.65780669f, -0.65549285f, -0.65317284f, -0.65084668f, -0.64851440f, -0.64617601f, -0.64383154f, -0.64148101f, -0.63912444f, -0.63676186f, -0.63439328f, -0.63201874f, -0.62963824f, -0.62725182f, -0.62485949f, -0.62246128f, -0.62005721f, -0.61764731f, -0.61523159f, -0.61281008f, -0.61038281f, -0.60794978f, -0.60551104f, -0.60306660f, -0.60061648f, -0.59816071f, -0.59569930f, -0.59323230f, -0.59075970f, -0.58828155f, -0.58579786f, -0.58330865f, -0.58081396f, -0.57831380f, -0.57580819f, -0.57329717f, -0.57078075f, -0.56825895f, -0.56573181f, -0.56319934f, -0.56066158f, -0.55811853f, -0.55557023f, -0.55301671f, -0.55045797f, -0.54789406f, -0.54532499f, -0.54275078f, -0.54017147f, -0.53758708f, -0.53499762f, -0.53240313f, -0.52980362f, -0.52719913f, -0.52458968f, -0.52197529f, -0.51935599f, -0.51673180f, -0.51410274f, -0.51146885f, -0.50883014f, -0.50618665f, -0.50353838f, -0.50088538f, -0.49822767f, -0.49556526f, -0.49289819f, -0.49022648f, -0.48755016f, -0.48486925f, -0.48218377f, -0.47949376f, -0.47679923f, -0.47410021f, -0.47139674f, -0.46868882f, -0.46597650f, -0.46325978f, -0.46053871f, -0.45781330f, -0.45508359f, -0.45234959f, -0.44961133f, -0.44686884f, -0.44412214f, -0.44137127f, -0.43861624f, -0.43585708f, -0.43309382f, -0.43032648f, -0.42755509f, -0.42477968f, -0.42200027f, -0.41921689f, -0.41642956f, -0.41363831f, -0.41084317f, -0.40804416f, -0.40524131f, -0.40243465f, -0.39962420f, -0.39680999f, -0.39399204f, -0.39117038f, -0.38834505f, -0.38551605f, -0.38268343f, -0.37984721f, -0.37700741f, -0.37416406f, -0.37131719f, -0.36846683f, -0.36561300f, -0.36275572f, -0.35989504f, -0.35703096f, -0.35416353f, -0.35129276f, -0.34841868f, -0.34554132f, -0.34266072f, -0.33977688f, -0.33688985f, -0.33399965f, -0.33110631f, -0.32820984f, -0.32531029f, -0.32240768f, -0.31950203f, -0.31659338f, -0.31368174f, -0.31076715f, -0.30784964f, -0.30492923f, -0.30200595f, -0.29907983f, -0.29615089f, -0.29321916f, -0.29028468f, -0.28734746f, -0.28440754f, -0.28146494f, -0.27851969f, -0.27557182f, -0.27262136f, -0.26966833f, -0.26671276f, -0.26375468f, -0.26079412f, -0.25783110f, -0.25486566f, -0.25189782f, -0.24892761f, -0.24595505f, -0.24298018f, -0.24000302f, -0.23702361f, -0.23404196f, -0.23105811f, -0.22807208f, -0.22508391f, -0.22209362f, -0.21910124f, -0.21610680f, -0.21311032f, -0.21011184f, -0.20711138f, -0.20410897f, -0.20110463f, -0.19809841f, -0.19509032f, -0.19208040f, -0.18906866f, -0.18605515f, -0.18303989f, -0.18002290f, -0.17700422f, -0.17398387f, -0.17096189f, -0.16793829f, -0.16491312f, -0.16188639f, -0.15885814f, -0.15582840f, -0.15279719f, -0.14976453f, -0.14673047f, -0.14369503f, -0.14065824f, -0.13762012f, -0.13458071f, -0.13154003f, -0.12849811f, -0.12545498f, -0.12241068f, -0.11936521f, -0.11631863f, -0.11327095f, -0.11022221f, -0.10717242f, -0.10412163f, -0.10106986f, -0.09801714f, -0.09496350f, -0.09190896f, -0.08885355f, -0.08579731f, -0.08274026f, -0.07968244f, -0.07662386f, -0.07356456f, -0.07050457f, -0.06744392f, -0.06438263f, -0.06132074f, -0.05825826f, -0.05519524f, -0.05213170f, -0.04906767f, -0.04600318f, -0.04293826f, -0.03987293f, -0.03680722f, -0.03374117f, -0.03067480f, -0.02760815f, -0.02454123f, -0.02147408f, -0.01840673f, -0.01533921f, -0.01227154f, -0.00920375f, -0.00613588f, -0.00306796f }; SPAN_DECLARE(int32_t) dds_phase_ratef(float frequency) { return (int32_t) (frequency*65536.0f*65536.0f/SAMPLE_RATE); } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(float) dds_frequencyf(int32_t phase_rate) { return (float) phase_rate*(float) SAMPLE_RATE/(65536.0f*65536.0f); } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(float) dds_scaling_dbm0f(float level) { return powf(10.0f, (level - DBM0_MAX_SINE_POWER)/20.0f)*32767.0f; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(float) dds_scaling_dbovf(float level) { return powf(10.0f, (level - DBOV_MAX_SINE_POWER)/20.0f)*32767.0f; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) dds_advancef(uint32_t *phase_acc, int32_t phase_rate) { *phase_acc += phase_rate; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(float) ddsf(uint32_t *phase_acc, int32_t phase_rate) { float amp; amp = sine_table[*phase_acc >> (32 - SLENK)]; *phase_acc += phase_rate; return amp; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(float) dds_lookupf(uint32_t phase) { return sine_table[phase >> (32 - SLENK)]; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(float) dds_modf(uint32_t *phase_acc, int32_t phase_rate, float scale, int32_t phase) { float amp; amp = sine_table[*(phase_acc + phase) >> (32 - SLENK)]*scale; *phase_acc += phase_rate; return amp; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(complexf_t) dds_complexf(uint32_t *phase_acc, int32_t phase_rate) { complexf_t amp; amp = complex_setf(sine_table[(*phase_acc + (1 << 30)) >> (32 - SLENK)], sine_table[*phase_acc >> (32 - SLENK)]); *phase_acc += phase_rate; return amp; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(complexf_t) dds_lookup_complexf(uint32_t phase) { return complex_setf(sine_table[(phase + (1 << 30)) >> (32 - SLENK)], sine_table[phase >> (32 - SLENK)]); } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(complexf_t) dds_complex_modf(uint32_t *phase_acc, int32_t phase_rate, float scale, int32_t phase) { complexf_t amp; amp = complex_setf(sine_table[(*phase_acc + phase + (1 << 30)) >> (32 - SLENK)]*scale, sine_table[(*phase_acc + phase) >> (32 - SLENK)]*scale); *phase_acc += phase_rate; return amp; } /*- End of function --------------------------------------------------------*/ /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/vector_float.c0000664000175000017500000005471611422612263016235 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * vector_float.c - Floating vector arithmetic routines. * * Written by Steve Underwood * * Copyright (C) 2006 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \file */ #if defined(HAVE_CONFIG_H) #include "config.h" #endif #include #include #include #include #if defined(HAVE_TGMATH_H) #include #endif #if defined(HAVE_MATH_H) #include #endif #include #include "floating_fudge.h" #include "mmx_sse_decs.h" #include "spandsp/telephony.h" #include "spandsp/vector_float.h" #if defined(__GNUC__) && defined(SPANDSP_USE_SSE2) SPAN_DECLARE(void) vec_copyf(float z[], const float x[], int n) { int i; __m128 n1; if ((i = n & ~3)) { for (i -= 4; i >= 0; i -= 4) { n1 = _mm_loadu_ps(x + i); _mm_storeu_ps(z + i, n1); } } /* Now deal with the last 1 to 3 elements, which don't fill an SSE2 register */ switch (n & 3) { case 3: z[n - 3] = x[n - 3]; case 2: z[n - 2] = x[n - 2]; case 1: z[n - 1] = x[n - 1]; } } #else SPAN_DECLARE(void) vec_copyf(float z[], const float x[], int n) { int i; for (i = 0; i < n; i++) z[i] = x[i]; } #endif /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) vec_copy(double z[], const double x[], int n) { int i; for (i = 0; i < n; i++) z[i] = x[i]; } /*- End of function --------------------------------------------------------*/ #if defined(HAVE_LONG_DOUBLE) SPAN_DECLARE(void) vec_copyl(long double z[], const long double x[], int n) { int i; for (i = 0; i < n; i++) z[i] = x[i]; } /*- End of function --------------------------------------------------------*/ #endif #if defined(__GNUC__) && defined(SPANDSP_USE_SSE2) SPAN_DECLARE(void) vec_negatef(float z[], const float x[], int n) { int i; static const uint32_t mask = 0x80000000; static const float *fmask = (float *) &mask; __m128 n1; __m128 n2; if ((i = n & ~3)) { n2 = _mm_set1_ps(*fmask); for (i -= 4; i >= 0; i -= 4) { n1 = _mm_loadu_ps(x + i); n1 = _mm_xor_ps(n1, n2); _mm_storeu_ps(z + i, n1); } } /* Now deal with the last 1 to 3 elements, which don't fill an SSE2 register */ switch (n & 3) { case 3: z[n - 3] = -x[n - 3]; case 2: z[n - 2] = -x[n - 2]; case 1: z[n - 1] = -x[n - 1]; } } #else SPAN_DECLARE(void) vec_negatef(float z[], const float x[], int n) { int i; for (i = 0; i < n; i++) z[i] = -x[i]; } #endif /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) vec_negate(double z[], const double x[], int n) { int i; for (i = 0; i < n; i++) z[i] = -x[i]; } /*- End of function --------------------------------------------------------*/ #if defined(HAVE_LONG_DOUBLE) SPAN_DECLARE(void) vec_negatel(long double z[], const long double x[], int n) { int i; for (i = 0; i < n; i++) z[i] = -x[i]; } /*- End of function --------------------------------------------------------*/ #endif #if defined(__GNUC__) && defined(SPANDSP_USE_SSE2) SPAN_DECLARE(void) vec_zerof(float z[], int n) { int i; __m128 n1; if ((i = n & ~3)) { n1 = _mm_setzero_ps(); for (i -= 4; i >= 0; i -= 4) _mm_storeu_ps(z + i, n1); } /* Now deal with the last 1 to 3 elements, which don't fill an SSE2 register */ switch (n & 3) { case 3: z[n - 3] = 0; case 2: z[n - 2] = 0; case 1: z[n - 1] = 0; } } #else SPAN_DECLARE(void) vec_zerof(float z[], int n) { int i; for (i = 0; i < n; i++) z[i] = 0.0f; } #endif /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) vec_zero(double z[], int n) { int i; for (i = 0; i < n; i++) z[i] = 0.0; } /*- End of function --------------------------------------------------------*/ #if defined(HAVE_LONG_DOUBLE) SPAN_DECLARE(void) vec_zerol(long double z[], int n) { int i; for (i = 0; i < n; i++) z[i] = 0.0L; } /*- End of function --------------------------------------------------------*/ #endif #if defined(__GNUC__) && defined(SPANDSP_USE_SSE2) SPAN_DECLARE(void) vec_setf(float z[], float x, int n) { int i; __m128 n1; if ((i = n & ~3)) { n1 = _mm_set1_ps(x); for (i -= 4; i >= 0; i -= 4) _mm_storeu_ps(z + i, n1); } /* Now deal with the last 1 to 3 elements, which don't fill an SSE2 register */ switch (n & 3) { case 3: z[n - 3] = x; case 2: z[n - 2] = x; case 1: z[n - 1] = x; } } #else SPAN_DECLARE(void) vec_setf(float z[], float x, int n) { int i; for (i = 0; i < n; i++) z[i] = x; } #endif /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) vec_set(double z[], double x, int n) { int i; for (i = 0; i < n; i++) z[i] = x; } /*- End of function --------------------------------------------------------*/ #if defined(HAVE_LONG_DOUBLE) SPAN_DECLARE(void) vec_setl(long double z[], long double x, int n) { int i; for (i = 0; i < n; i++) z[i] = x; } /*- End of function --------------------------------------------------------*/ #endif #if defined(__GNUC__) && defined(SPANDSP_USE_SSE2) SPAN_DECLARE(void) vec_addf(float z[], const float x[], const float y[], int n) { int i; __m128 n1; __m128 n2; if ((i = n & ~3)) { for (i -= 4; i >= 0; i -= 4) { n1 = _mm_loadu_ps(x + i); n2 = _mm_loadu_ps(y + i); n2 = _mm_add_ps(n1, n2); _mm_storeu_ps(z + i, n2); } } /* Now deal with the last 1 to 3 elements, which don't fill an SSE2 register */ switch (n & 3) { case 3: z[n - 3] = x[n - 3] + y[n - 3]; case 2: z[n - 2] = x[n - 2] + y[n - 2]; case 1: z[n - 1] = x[n - 1] + y[n - 1]; } } #else SPAN_DECLARE(void) vec_addf(float z[], const float x[], const float y[], int n) { int i; for (i = 0; i < n; i++) z[i] = x[i] + y[i]; } #endif /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) vec_add(double z[], const double x[], const double y[], int n) { int i; for (i = 0; i < n; i++) z[i] = x[i] + y[i]; } /*- End of function --------------------------------------------------------*/ #if defined(HAVE_LONG_DOUBLE) SPAN_DECLARE(void) vec_addl(long double z[], const long double x[], const long double y[], int n) { int i; for (i = 0; i < n; i++) z[i] = x[i] + y[i]; } /*- End of function --------------------------------------------------------*/ #endif #if defined(__GNUC__) && defined(SPANDSP_USE_SSE2) SPAN_DECLARE(void) vec_scaledxy_addf(float z[], const float x[], float x_scale, const float y[], float y_scale, int n) { int i; __m128 n1; __m128 n2; __m128 n3; __m128 n4; if ((i = n & ~3)) { n3 = _mm_set1_ps(x_scale); n4 = _mm_set1_ps(y_scale); for (i -= 4; i >= 0; i -= 4) { n1 = _mm_loadu_ps(x + i); n2 = _mm_loadu_ps(y + i); n1 = _mm_mul_ps(n1, n3); n2 = _mm_mul_ps(n2, n4); n2 = _mm_add_ps(n1, n2); _mm_storeu_ps(z + i, n2); } } /* Now deal with the last 1 to 3 elements, which don't fill an SSE2 register */ switch (n & 3) { case 3: z[n - 3] = x[n - 3]*x_scale + y[n - 3]*y_scale; case 2: z[n - 2] = x[n - 2]*x_scale + y[n - 2]*y_scale; case 1: z[n - 1] = x[n - 1]*x_scale + y[n - 1]*y_scale; } } #else SPAN_DECLARE(void) vec_scaledxy_addf(float z[], const float x[], float x_scale, const float y[], float y_scale, int n) { int i; for (i = 0; i < n; i++) z[i] = x[i]*x_scale + y[i]*y_scale; } #endif /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) vec_scaledxy_add(double z[], const double x[], double x_scale, const double y[], double y_scale, int n) { int i; for (i = 0; i < n; i++) z[i] = x[i]*x_scale + y[i]*y_scale; } /*- End of function --------------------------------------------------------*/ #if defined(HAVE_LONG_DOUBLE) SPAN_DECLARE(void) vec_scaledxy_addl(long double z[], const long double x[], long double x_scale, const long double y[], long double y_scale, int n) { int i; for (i = 0; i < n; i++) z[i] = x[i]*x_scale + y[i]*y_scale; } /*- End of function --------------------------------------------------------*/ #endif #if defined(__GNUC__) && defined(SPANDSP_USE_SSE2) SPAN_DECLARE(void) vec_scaledy_addf(float z[], const float x[], const float y[], float y_scale, int n) { int i; __m128 n1; __m128 n2; __m128 n3; if ((i = n & ~3)) { n3 = _mm_set1_ps(y_scale); for (i -= 4; i >= 0; i -= 4) { n1 = _mm_loadu_ps(x + i); n2 = _mm_loadu_ps(y + i); n2 = _mm_mul_ps(n2, n3); n2 = _mm_add_ps(n1, n2); _mm_storeu_ps(z + i, n2); } } /* Now deal with the last 1 to 3 elements, which don't fill an SSE2 register */ switch (n & 3) { case 3: z[n - 3] = x[n - 3] + y[n - 3]*y_scale; case 2: z[n - 2] = x[n - 2] + y[n - 2]*y_scale; case 1: z[n - 1] = x[n - 1] + y[n - 1]*y_scale; } } #else SPAN_DECLARE(void) vec_scaledy_addf(float z[], const float x[], const float y[], float y_scale, int n) { int i; for (i = 0; i < n; i++) z[i] = x[i] + y[i]*y_scale; } #endif /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) vec_scaledy_add(double z[], const double x[], const double y[], double y_scale, int n) { int i; for (i = 0; i < n; i++) z[i] = x[i] + y[i]*y_scale; } /*- End of function --------------------------------------------------------*/ #if defined(HAVE_LONG_DOUBLE) SPAN_DECLARE(void) vec_scaledy_addl(long double z[], const long double x[], const long double y[], long double y_scale, int n) { int i; for (i = 0; i < n; i++) z[i] = x[i] + y[i]*y_scale; } /*- End of function --------------------------------------------------------*/ #endif #if defined(__GNUC__) && defined(SPANDSP_USE_SSE2) SPAN_DECLARE(void) vec_subf(float z[], const float x[], const float y[], int n) { int i; __m128 n1; __m128 n2; if ((i = n & ~3)) { for (i -= 4; i >= 0; i -= 4) { n1 = _mm_loadu_ps(x + i); n2 = _mm_loadu_ps(y + i); n2 = _mm_sub_ps(n1, n2); _mm_storeu_ps(z + i, n2); } } /* Now deal with the last 1 to 3 elements, which don't fill an SSE2 register */ switch (n & 3) { case 3: z[n - 3] = x[n - 3] - y[n - 3]; case 2: z[n - 2] = x[n - 2] - y[n - 2]; case 1: z[n - 1] = x[n - 1] - y[n - 1]; } } #else SPAN_DECLARE(void) vec_subf(float z[], const float x[], const float y[], int n) { int i; for (i = 0; i < n; i++) z[i] = x[i] - y[i]; } #endif /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) vec_sub(double z[], const double x[], const double y[], int n) { int i; for (i = 0; i < n; i++) z[i] = x[i] - y[i]; } /*- End of function --------------------------------------------------------*/ #if defined(HAVE_LONG_DOUBLE) SPAN_DECLARE(void) vec_subl(long double z[], const long double x[], const long double y[], int n) { int i; for (i = 0; i < n; i++) z[i] = x[i] - y[i]; } /*- End of function --------------------------------------------------------*/ #endif SPAN_DECLARE(void) vec_scaledxy_subf(float z[], const float x[], float x_scale, const float y[], float y_scale, int n) { int i; for (i = 0; i < n; i++) z[i] = x[i]*x_scale - y[i]*y_scale; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) vec_scaledxy_sub(double z[], const double x[], double x_scale, const double y[], double y_scale, int n) { int i; for (i = 0; i < n; i++) z[i] = x[i]*x_scale - y[i]*y_scale; } /*- End of function --------------------------------------------------------*/ #if defined(HAVE_LONG_DOUBLE) SPAN_DECLARE(void) vec_scaledxy_subl(long double z[], const long double x[], long double x_scale, const long double y[], long double y_scale, int n) { int i; for (i = 0; i < n; i++) z[i] = x[i]*x_scale - y[i]*y_scale; } /*- End of function --------------------------------------------------------*/ #endif #if defined(__GNUC__) && defined(SPANDSP_USE_SSE2) SPAN_DECLARE(void) vec_scalar_mulf(float z[], const float x[], float y, int n) { int i; __m128 n1; __m128 n2; if ((i = n & ~3)) { n2 = _mm_set1_ps(y); for (i -= 4; i >= 0; i -= 4) { n1 = _mm_loadu_ps(x + i); n1 = _mm_mul_ps(n1, n2); _mm_storeu_ps(z + i, n1); } } /* Now deal with the last 1 to 3 elements, which don't fill an SSE2 register */ switch (n & 3) { case 3: z[n - 3] = x[n - 3]*y; case 2: z[n - 2] = x[n - 2]*y; case 1: z[n - 1] = x[n - 1]*y; } } #else SPAN_DECLARE(void) vec_scalar_mulf(float z[], const float x[], float y, int n) { int i; for (i = 0; i < n; i++) z[i] = x[i]*y; } #endif /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) vec_scalar_mul(double z[], const double x[], double y, int n) { int i; for (i = 0; i < n; i++) z[i] = x[i]*y; } /*- End of function --------------------------------------------------------*/ #if defined(__GNUC__) && defined(SPANDSP_USE_SSE2) SPAN_DECLARE(void) vec_scalar_addf(float z[], const float x[], float y, int n) { int i; __m128 n1; __m128 n2; if ((i = n & ~3)) { n2 = _mm_set1_ps(y); for (i -= 4; i >= 0; i -= 4) { n1 = _mm_loadu_ps(x + i); n1 = _mm_add_ps(n1, n2); _mm_storeu_ps(z + i, n1); } } /* Now deal with the last 1 to 3 elements, which don't fill an SSE2 register */ switch (n & 3) { case 3: z[n - 3] = x[n - 3] + y; case 2: z[n - 2] = x[n - 2] + y; case 1: z[n - 1] = x[n - 1] + y; } } #else SPAN_DECLARE(void) vec_scalar_addf(float z[], const float x[], float y, int n) { int i; for (i = 0; i < n; i++) z[i] = x[i] + y; } #endif /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) vec_scalar_add(double z[], const double x[], double y, int n) { int i; for (i = 0; i < n; i++) z[i] = x[i] + y; } /*- End of function --------------------------------------------------------*/ #if defined(HAVE_LONG_DOUBLE) SPAN_DECLARE(void) vec_scalar_addl(long double z[], const long double x[], long double y, int n) { int i; for (i = 0; i < n; i++) z[i] = x[i] + y; } /*- End of function --------------------------------------------------------*/ #endif #if defined(__GNUC__) && defined(SPANDSP_USE_SSE2) SPAN_DECLARE(void) vec_scalar_subf(float z[], const float x[], float y, int n) { int i; __m128 n1; __m128 n2; if ((i = n & ~3)) { n2 = _mm_set1_ps(y); for (i -= 4; i >= 0; i -= 4) { n1 = _mm_loadu_ps(x + i); n1 = _mm_sub_ps(n1, n2); _mm_storeu_ps(z + i, n1); } } /* Now deal with the last 1 to 3 elements, which don't fill an SSE2 register */ switch (n & 3) { case 3: z[n - 3] = x[n - 3] - y; case 2: z[n - 2] = x[n - 2] - y; case 1: z[n - 1] = x[n - 1] - y; } } #else SPAN_DECLARE(void) vec_scalar_subf(float z[], const float x[], float y, int n) { int i; for (i = 0; i < n; i++) z[i] = x[i] - y; } #endif /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) vec_scalar_sub(double z[], const double x[], double y, int n) { int i; for (i = 0; i < n; i++) z[i] = x[i] - y; } /*- End of function --------------------------------------------------------*/ #if defined(HAVE_LONG_DOUBLE) SPAN_DECLARE(void) vec_scalar_subl(long double z[], const long double x[], long double y, int n) { int i; for (i = 0; i < n; i++) z[i] = x[i] - y; } /*- End of function --------------------------------------------------------*/ #endif #if defined(__GNUC__) && defined(SPANDSP_USE_SSE2) SPAN_DECLARE(void) vec_mulf(float z[], const float x[], const float y[], int n) { int i; __m128 n1; __m128 n2; __m128 n3; if ((i = n & ~3)) { for (i -= 4; i >= 0; i -= 4) { n1 = _mm_loadu_ps(x + i); n2 = _mm_loadu_ps(y + i); n3 = _mm_mul_ps(n1, n2); _mm_storeu_ps(z + i, n3); } } /* Now deal with the last 1 to 3 elements, which don't fill an SSE2 register */ switch (n & 3) { case 3: z[n - 3] = x[n - 3]*y[n - 3]; case 2: z[n - 2] = x[n - 2]*y[n - 2]; case 1: z[n - 1] = x[n - 1]*y[n - 1]; } } #else SPAN_DECLARE(void) vec_mulf(float z[], const float x[], const float y[], int n) { int i; for (i = 0; i < n; i++) z[i] = x[i]*y[i]; } /*- End of function --------------------------------------------------------*/ #endif SPAN_DECLARE(void) vec_mul(double z[], const double x[], const double y[], int n) { int i; for (i = 0; i < n; i++) z[i] = x[i]*y[i]; } /*- End of function --------------------------------------------------------*/ #if defined(HAVE_LONG_DOUBLE) SPAN_DECLARE(void) vec_mull(long double z[], const long double x[], const long double y[], int n) { int i; for (i = 0; i < n; i++) z[i] = x[i]*y[i]; } /*- End of function --------------------------------------------------------*/ #endif #if defined(__GNUC__) && defined(SPANDSP_USE_SSE2) SPAN_DECLARE(float) vec_dot_prodf(const float x[], const float y[], int n) { int i; float z; __m128 n1; __m128 n2; __m128 n3; __m128 n4; z = 0.0f; if ((i = n & ~3)) { n4 = _mm_setzero_ps(); //sets sum to zero for (i -= 4; i >= 0; i -= 4) { n1 = _mm_loadu_ps(x + i); n2 = _mm_loadu_ps(y + i); n3 = _mm_mul_ps(n1, n2); n4 = _mm_add_ps(n4, n3); } n4 = _mm_add_ps(_mm_movehl_ps(n4, n4), n4); n4 = _mm_add_ss(_mm_shuffle_ps(n4, n4, 1), n4); _mm_store_ss(&z, n4); } /* Now deal with the last 1 to 3 elements, which don't fill an SSE2 register */ switch (n & 3) { case 3: z += x[n - 3]*y[n - 3]; case 2: z += x[n - 2]*y[n - 2]; case 1: z += x[n - 1]*y[n - 1]; } return z; } #else SPAN_DECLARE(float) vec_dot_prodf(const float x[], const float y[], int n) { int i; float z; z = 0.0f; for (i = 0; i < n; i++) z += x[i]*y[i]; return z; } /*- End of function --------------------------------------------------------*/ #endif SPAN_DECLARE(double) vec_dot_prod(const double x[], const double y[], int n) { int i; double z; z = 0.0; for (i = 0; i < n; i++) z += x[i]*y[i]; return z; } /*- End of function --------------------------------------------------------*/ #if defined(HAVE_LONG_DOUBLE) SPAN_DECLARE(long double) vec_dot_prodl(const long double x[], const long double y[], int n) { int i; long double z; z = 0.0L; for (i = 0; i < n; i++) z += x[i]*y[i]; return z; } /*- End of function --------------------------------------------------------*/ #endif SPAN_DECLARE(float) vec_circular_dot_prodf(const float x[], const float y[], int n, int pos) { float z; z = vec_dot_prodf(&x[pos], &y[0], n - pos); z += vec_dot_prodf(&x[0], &y[n - pos], pos); return z; } /*- End of function --------------------------------------------------------*/ #define LMS_LEAK_RATE 0.9999f #if defined(__GNUC__) && defined(SPANDSP_USE_SSE2) SPAN_DECLARE(void) vec_lmsf(const float x[], float y[], int n, float error) { int i; __m128 n1; __m128 n2; __m128 n3; __m128 n4; if ((i = n & ~3)) { n3 = _mm_set1_ps(error); n4 = _mm_set1_ps(LMS_LEAK_RATE); for (i -= 4; i >= 0; i -= 4) { n1 = _mm_loadu_ps(x + i); n2 = _mm_loadu_ps(y + i); n1 = _mm_mul_ps(n1, n3); n2 = _mm_mul_ps(n2, n4); n1 = _mm_add_ps(n1, n2); _mm_storeu_ps(y + i, n1); } } /* Now deal with the last 1 to 3 elements, which don't fill an SSE2 register */ switch (n & 3) { case 3: y[n - 3] = y[n - 3]*LMS_LEAK_RATE + x[n - 3]*error; case 2: y[n - 2] = y[n - 2]*LMS_LEAK_RATE + x[n - 2]*error; case 1: y[n - 1] = y[n - 1]*LMS_LEAK_RATE + x[n - 1]*error; } } #else SPAN_DECLARE(void) vec_lmsf(const float x[], float y[], int n, float error) { int i; for (i = 0; i < n; i++) { /* Leak a little to tame uncontrolled wandering */ y[i] = y[i]*LMS_LEAK_RATE + x[i]*error; } } #endif /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) vec_circular_lmsf(const float x[], float y[], int n, int pos, float error) { vec_lmsf(&x[pos], &y[0], n - pos, error); vec_lmsf(&x[0], &y[n - pos], pos, error); } /*- End of function --------------------------------------------------------*/ /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/t38_terminal.c0000664000175000017500000015733311713223256016061 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * t38_terminal.c - T.38 termination, less the packet exchange part * * Written by Steve Underwood * * Copyright (C) 2005, 2006, 2008 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \file */ #if defined(HAVE_CONFIG_H) #include "config.h" #endif #include #include #include #include #include #include #if defined(HAVE_TGMATH_H) #include #endif #if defined(HAVE_MATH_H) #include #endif #include "floating_fudge.h" #include #include #include "spandsp/telephony.h" #include "spandsp/logging.h" #include "spandsp/bit_operations.h" #include "spandsp/queue.h" #include "spandsp/power_meter.h" #include "spandsp/complex.h" #include "spandsp/tone_generate.h" #include "spandsp/async.h" #include "spandsp/hdlc.h" #include "spandsp/fsk.h" #include "spandsp/v29tx.h" #include "spandsp/v29rx.h" #include "spandsp/v27ter_tx.h" #include "spandsp/v27ter_rx.h" #include "spandsp/v17tx.h" #include "spandsp/v17rx.h" #include "spandsp/t4_rx.h" #include "spandsp/t4_tx.h" #if defined(SPANDSP_SUPPORT_T85) #include "spandsp/t81_t82_arith_coding.h" #include "spandsp/t85.h" #endif #include "spandsp/t4_t6_decode.h" #include "spandsp/t4_t6_encode.h" #include "spandsp/t30_fcf.h" #include "spandsp/t35.h" #include "spandsp/t30.h" #include "spandsp/t30_api.h" #include "spandsp/t30_logging.h" #include "spandsp/t38_core.h" #include "spandsp/t38_terminal.h" #include "spandsp/private/logging.h" #if defined(SPANDSP_SUPPORT_T85) #include "spandsp/private/t81_t82_arith_coding.h" #include "spandsp/private/t85.h" #endif #include "spandsp/private/t4_t6_decode.h" #include "spandsp/private/t4_t6_encode.h" #include "spandsp/private/t4_rx.h" #include "spandsp/private/t4_tx.h" #include "spandsp/private/t30.h" #include "spandsp/private/t38_core.h" #include "spandsp/private/t38_terminal.h" /* Settings suitable for paced transmission over a UDP transport */ #define DEFAULT_MS_PER_TX_CHUNK 30 #define INDICATOR_TX_COUNT 3 #define DATA_TX_COUNT 1 #define DATA_END_TX_COUNT 3 /* Settings suitable for unpaced transmission over a TCP transport */ #define MAX_OCTETS_PER_UNPACED_CHUNK 300 /* Backstop timeout if reception of packets stops in the middle of a burst */ #define MID_RX_TIMEOUT 15000 enum { T38_CHUNKING_MERGE_FCS_WITH_DATA = 0x0001, T38_CHUNKING_WHOLE_FRAMES = 0x0002, T38_CHUNKING_ALLOW_TEP_TIME = 0x0004, T38_CHUNKING_SEND_REGULAR_INDICATORS = 0x0008, T38_CHUNKING_SEND_2S_REGULAR_INDICATORS = 0x0010 }; enum { T38_TIMED_STEP_NONE = 0, T38_TIMED_STEP_NON_ECM_MODEM = 0x10, T38_TIMED_STEP_NON_ECM_MODEM_2 = 0x11, T38_TIMED_STEP_NON_ECM_MODEM_3 = 0x12, T38_TIMED_STEP_NON_ECM_MODEM_4 = 0x13, T38_TIMED_STEP_NON_ECM_MODEM_5 = 0x14, T38_TIMED_STEP_HDLC_MODEM = 0x20, T38_TIMED_STEP_HDLC_MODEM_2 = 0x21, T38_TIMED_STEP_HDLC_MODEM_3 = 0x22, T38_TIMED_STEP_HDLC_MODEM_4 = 0x23, T38_TIMED_STEP_HDLC_MODEM_5 = 0x24, T38_TIMED_STEP_CED = 0x30, T38_TIMED_STEP_CED_2 = 0x31, T38_TIMED_STEP_CED_3 = 0x32, T38_TIMED_STEP_CNG = 0x40, T38_TIMED_STEP_CNG_2 = 0x41, T38_TIMED_STEP_PAUSE = 0x50, T38_TIMED_STEP_NO_SIGNAL = 0x60 }; static __inline__ void front_end_status(t38_terminal_state_t *s, int status) { t30_front_end_status(&s->t30, status); } /*- End of function --------------------------------------------------------*/ static __inline__ void hdlc_accept_frame(t38_terminal_state_t *s, const uint8_t *msg, int len, int ok) { t30_hdlc_accept(&s->t30, msg, len, ok); } /*- End of function --------------------------------------------------------*/ static int extra_bits_in_stuffed_frame(const uint8_t buf[], int len) { int bitstream; int ones; int stuffed; int i; int j; bitstream = 0; ones = 0; stuffed = 0; /* We should really append the CRC, and include the stuffed bits for that, to get the exact number of bits in the frame. */ //len = crc_itu16_append(buf, len); for (i = 0; i < len; i++) { bitstream = buf[i]; for (j = 0; j < 8; j++) { if ((bitstream & 1)) { if (++ones >= 5) { ones = 0; stuffed++; } /*endif*/ } else { ones = 0; } /*endif*/ bitstream >>= 1; } /*endfor*/ } /*endfor*/ /* The total length of the frame is: the number of bits in the body + the number of additional bits in the body due to stuffing + the number of bits in the CRC + the number of additional bits in the CRC due to stuffing + 16 bits for the two terminating flag octets. Lets just allow 3 bits for the CRC, which is the worst case. It avoids calculating the real CRC, and the worst it can do is cause a flag octet's worth of additional output. */ return stuffed + 16 + 3 + 16; } /*- End of function --------------------------------------------------------*/ static int process_rx_missing(t38_core_state_t *t, void *user_data, int rx_seq_no, int expected_seq_no) { t38_terminal_state_t *s; s = (t38_terminal_state_t *) user_data; s->t38_fe.rx_data_missing = TRUE; return 0; } /*- End of function --------------------------------------------------------*/ static int process_rx_indicator(t38_core_state_t *t, void *user_data, int indicator) { t38_terminal_state_t *s; t38_terminal_front_end_state_t *fe; s = (t38_terminal_state_t *) user_data; fe = &s->t38_fe; /* Protect against T.38 stuff arriving after we've actually finished. */ if (fe->current_rx_type == T30_MODEM_DONE) return 0; if (t->current_rx_indicator == indicator) { /* This is probably due to the far end repeating itself, or slipping preamble messages in between HDLC frames. T.38/V.1.3 tells us to ignore it. Its harmless. */ return 0; } /*endif*/ /* In termination mode we don't care very much about indicators telling us training is starting. We only care about V.21 preamble starting, for timeout control, and the actual data. */ switch (indicator) { case T38_IND_NO_SIGNAL: if (t->current_rx_indicator == T38_IND_V21_PREAMBLE && (fe->current_rx_type == T30_MODEM_V21 || fe->current_rx_type == T30_MODEM_CNG)) { hdlc_accept_frame(s, NULL, SIG_STATUS_CARRIER_DOWN, TRUE); } /*endif*/ fe->timeout_rx_samples = 0; front_end_status(s, T30_FRONT_END_SIGNAL_ABSENT); break; case T38_IND_CNG: /* We are completely indifferent to the startup tones. They serve no purpose for us. We can't even assume that the existance of a tone means the far end is achieving proper communication. Some T.38 gateways will just send out a CED or CNG indicator without having seen anything from the far end FAX terminal. Just report them for completeness. */ front_end_status(s, T30_FRONT_END_CNG_PRESENT); break; case T38_IND_CED: front_end_status(s, T30_FRONT_END_CED_PRESENT); break; case T38_IND_V21_PREAMBLE: fe->timeout_rx_samples = fe->samples + ms_to_samples(MID_RX_TIMEOUT); front_end_status(s, T30_FRONT_END_SIGNAL_PRESENT); break; case T38_IND_V27TER_2400_TRAINING: case T38_IND_V27TER_4800_TRAINING: case T38_IND_V29_7200_TRAINING: case T38_IND_V29_9600_TRAINING: case T38_IND_V17_7200_SHORT_TRAINING: case T38_IND_V17_7200_LONG_TRAINING: case T38_IND_V17_9600_SHORT_TRAINING: case T38_IND_V17_9600_LONG_TRAINING: case T38_IND_V17_12000_SHORT_TRAINING: case T38_IND_V17_12000_LONG_TRAINING: case T38_IND_V17_14400_SHORT_TRAINING: case T38_IND_V17_14400_LONG_TRAINING: case T38_IND_V34_CNTL_CHANNEL_1200: case T38_IND_V34_PRI_CHANNEL: case T38_IND_V33_12000_TRAINING: case T38_IND_V33_14400_TRAINING: /* We really don't care what kind of modem is delivering the following image data. We only care that some kind of fast modem signal is coming next. */ fe->timeout_rx_samples = fe->samples + ms_to_samples(MID_RX_TIMEOUT); front_end_status(s, T30_FRONT_END_SIGNAL_PRESENT); break; case T38_IND_V8_ANSAM: case T38_IND_V8_SIGNAL: case T38_IND_V34_CC_RETRAIN: /* V.34 support is a work in progress. */ break; default: front_end_status(s, T30_FRONT_END_SIGNAL_ABSENT); break; } /*endswitch*/ fe->hdlc_rx.len = 0; fe->rx_data_missing = FALSE; return 0; } /*- End of function --------------------------------------------------------*/ static int fake_rx_indicator(t38_core_state_t *t, t38_terminal_state_t *s, int indicator) { int ret; ret = process_rx_indicator(t, s, indicator); t->current_rx_indicator = indicator; return ret; } /*- End of function --------------------------------------------------------*/ static int process_rx_data(t38_core_state_t *t, void *user_data, int data_type, int field_type, const uint8_t *buf, int len) { t38_terminal_state_t *s; t38_terminal_front_end_state_t *fe; #if defined(_MSC_VER) uint8_t *buf2 = (uint8_t *) _alloca(len); #else uint8_t buf2[len]; #endif s = (t38_terminal_state_t *) user_data; fe = &s->t38_fe; /* Protect against T.38 stuff arriving after we've actually finished. */ if (fe->current_rx_type == T30_MODEM_DONE) return 0; /* In termination mode we don't care very much what the data type is apart from a couple of special cases. */ switch (data_type) { case T38_DATA_V8: switch (field_type) { case T38_FIELD_CM_MESSAGE: if (len >= 1) span_log(&s->logging, SPAN_LOG_FLOW, "CM profile %d - %s\n", buf[0] - '0', t38_cm_profile_to_str(buf[0])); else span_log(&s->logging, SPAN_LOG_FLOW, "Bad length for CM message - %d\n", len); /*endif*/ //front_end_status(s, T30_FRONT_END_RECEIVE_COMPLETE); break; case T38_FIELD_JM_MESSAGE: if (len >= 2) span_log(&s->logging, SPAN_LOG_FLOW, "JM - %s\n", t38_jm_to_str(buf, len)); else span_log(&s->logging, SPAN_LOG_FLOW, "Bad length for JM message - %d\n", len); /*endif*/ //front_end_status(s, T30_FRONT_END_RECEIVE_COMPLETE); break; case T38_FIELD_CI_MESSAGE: if (len >= 1) span_log(&s->logging, SPAN_LOG_FLOW, "CI 0x%X\n", buf[0]); else span_log(&s->logging, SPAN_LOG_FLOW, "Bad length for CI message - %d\n", len); /*endif*/ //front_end_status(s, T30_FRONT_END_RECEIVE_COMPLETE); break; default: break; } /*endswitch*/ return 0; case T38_DATA_V34_PRI_RATE: switch (field_type) { case T38_FIELD_V34RATE: if (len >= 3) { /* Just get and store the rate. The front end has no real interest in the actual bit rate. */ fe->t38.v34_rate = t38_v34rate_to_bps(buf, len); span_log(&s->logging, SPAN_LOG_FLOW, "V.34 rate %d bps\n", fe->t38.v34_rate); } else { span_log(&s->logging, SPAN_LOG_FLOW, "Bad length for V34rate message - %d\n", len); } /*endif*/ break; default: break; } /*endswitch*/ return 0; default: break; } /*endswitch*/ switch (field_type) { case T38_FIELD_HDLC_DATA: if (fe->timeout_rx_samples == 0) { /* HDLC can just start without any signal indicator on some platforms, even when there is zero packet loss. Nasty, but true. Its a good idea to be tolerant of loss, though, so accepting a sudden start of HDLC data is the right thing to do. */ fake_rx_indicator(t, s, T38_IND_V21_PREAMBLE); /* All real HDLC messages in the FAX world start with 0xFF. If this one is not starting with 0xFF it would appear some octets must have been missed before this one. */ if (len <= 0 || buf[0] != 0xFF) fe->rx_data_missing = TRUE; /*endif*/ } /*endif*/ if (len > 0) { if (fe->hdlc_rx.len + len <= T38_MAX_HDLC_LEN) { bit_reverse(fe->hdlc_rx.buf + fe->hdlc_rx.len, buf, len); fe->hdlc_rx.len += len; } else { fe->rx_data_missing = TRUE; } /*endif*/ } /*endif*/ fe->timeout_rx_samples = fe->samples + ms_to_samples(MID_RX_TIMEOUT); break; case T38_FIELD_HDLC_FCS_OK: if (len > 0) { span_log(&s->logging, SPAN_LOG_WARNING, "There is data in a T38_FIELD_HDLC_FCS_OK!\n"); /* The sender has incorrectly included data in this message. It is unclear what we should do with it, to maximise tolerance of buggy implementations. */ } /*endif*/ /* Some T.38 implementations send multiple T38_FIELD_HDLC_FCS_OK messages, in IFP packets with incrementing sequence numbers, which are actually repeats. They get through to this point because of the incrementing sequence numbers. We need to filter them here in a context sensitive manner. */ if (t->current_rx_data_type != data_type || t->current_rx_field_type != field_type) { span_log(&s->logging, SPAN_LOG_FLOW, "Type %s - CRC OK (%s)\n", (fe->hdlc_rx.len >= 3) ? t30_frametype(fe->hdlc_rx.buf[2]) : "???", (fe->rx_data_missing) ? "missing octets" : "clean"); hdlc_accept_frame(s, fe->hdlc_rx.buf, fe->hdlc_rx.len, !fe->rx_data_missing); } /*endif*/ fe->hdlc_rx.len = 0; fe->rx_data_missing = FALSE; fe->timeout_rx_samples = fe->samples + ms_to_samples(MID_RX_TIMEOUT); break; case T38_FIELD_HDLC_FCS_BAD: if (len > 0) { span_log(&s->logging, SPAN_LOG_WARNING, "There is data in a T38_FIELD_HDLC_FCS_BAD!\n"); /* The sender has incorrectly included data in this message. We can safely ignore it, as the bad FCS means we will throw away the whole message, anyway. */ } /*endif*/ /* Some T.38 implementations send multiple T38_FIELD_HDLC_FCS_BAD messages, in IFP packets with incrementing sequence numbers, which are actually repeats. They get through to this point because of the incrementing sequence numbers. We need to filter them here in a context sensitive manner. */ if (t->current_rx_data_type != data_type || t->current_rx_field_type != field_type) { span_log(&s->logging, SPAN_LOG_FLOW, "Type %s - CRC bad (%s)\n", (fe->hdlc_rx.len >= 3) ? t30_frametype(fe->hdlc_rx.buf[2]) : "???", (fe->rx_data_missing) ? "missing octets" : "clean"); hdlc_accept_frame(s, fe->hdlc_rx.buf, fe->hdlc_rx.len, FALSE); } /*endif*/ fe->hdlc_rx.len = 0; fe->rx_data_missing = FALSE; fe->timeout_rx_samples = fe->samples + ms_to_samples(MID_RX_TIMEOUT); break; case T38_FIELD_HDLC_FCS_OK_SIG_END: if (len > 0) { span_log(&s->logging, SPAN_LOG_WARNING, "There is data in a T38_FIELD_HDLC_FCS_OK_SIG_END!\n"); /* The sender has incorrectly included data in this message. It is unclear what we should do with it, to maximise tolerance of buggy implementations. */ } /*endif*/ /* Some T.38 implementations send multiple T38_FIELD_HDLC_FCS_OK_SIG_END messages, in IFP packets with incrementing sequence numbers, which are actually repeats. They get through to this point because of the incrementing sequence numbers. We need to filter them here in a context sensitive manner. */ if (t->current_rx_data_type != data_type || t->current_rx_field_type != field_type) { span_log(&s->logging, SPAN_LOG_FLOW, "Type %s - CRC OK, sig end (%s)\n", (fe->hdlc_rx.len >= 3) ? t30_frametype(fe->hdlc_rx.buf[2]) : "???", (fe->rx_data_missing) ? "missing octets" : "clean"); hdlc_accept_frame(s, fe->hdlc_rx.buf, fe->hdlc_rx.len, !fe->rx_data_missing); hdlc_accept_frame(s, NULL, SIG_STATUS_CARRIER_DOWN, TRUE); } /*endif*/ fe->hdlc_rx.len = 0; fe->rx_data_missing = FALSE; /* Treat this like a no signal indicator has occurred, so if the no signal indicator is missing, we are still OK */ fake_rx_indicator(t, s, T38_IND_NO_SIGNAL); break; case T38_FIELD_HDLC_FCS_BAD_SIG_END: if (len > 0) { span_log(&s->logging, SPAN_LOG_WARNING, "There is data in a T38_FIELD_HDLC_FCS_BAD_SIG_END!\n"); /* The sender has incorrectly included data in this message. We can safely ignore it, as the bad FCS means we will throw away the whole message, anyway. */ } /*endif*/ /* Some T.38 implementations send multiple T38_FIELD_HDLC_FCS_BAD_SIG_END messages, in IFP packets with incrementing sequence numbers, which are actually repeats. They get through to this point because of the incrementing sequence numbers. We need to filter them here in a context sensitive manner. */ if (t->current_rx_data_type != data_type || t->current_rx_field_type != field_type) { span_log(&s->logging, SPAN_LOG_FLOW, "Type %s - CRC bad, sig end (%s)\n", (fe->hdlc_rx.len >= 3) ? t30_frametype(fe->hdlc_rx.buf[2]) : "???", (fe->rx_data_missing) ? "missing octets" : "clean"); hdlc_accept_frame(s, fe->hdlc_rx.buf, fe->hdlc_rx.len, FALSE); hdlc_accept_frame(s, NULL, SIG_STATUS_CARRIER_DOWN, TRUE); } /*endif*/ fe->hdlc_rx.len = 0; fe->rx_data_missing = FALSE; /* Treat this like a no signal indicator has occurred, so if the no signal indicator is missing, we are still OK */ fake_rx_indicator(t, s, T38_IND_NO_SIGNAL); break; case T38_FIELD_HDLC_SIG_END: if (len > 0) { span_log(&s->logging, SPAN_LOG_WARNING, "There is data in a T38_FIELD_HDLC_SIG_END!\n"); /* The sender has incorrectly included data in this message, but there seems nothing meaningful it could be. There could not be an FCS good/bad report beyond this. */ } /*endif*/ /* Some T.38 implementations send multiple T38_FIELD_HDLC_SIG_END messages, in IFP packets with incrementing sequence numbers, which are actually repeats. They get through to this point because of the incrementing sequence numbers. We need to filter them here in a context sensitive manner. */ if (t->current_rx_data_type != data_type || t->current_rx_field_type != field_type) { /* WORKAROUND: At least some Mediatrix boxes have a bug, where they can send this message at the end of non-ECM data. We need to tolerate this. We use the generic receive complete indication, rather than the specific HDLC carrier down. */ /* This message is expected under 2 circumstances. One is as an alternative to T38_FIELD_HDLC_FCS_OK_SIG_END - i.e. they send T38_FIELD_HDLC_FCS_OK, and then T38_FIELD_HDLC_SIG_END when the carrier actually drops. The other is because the HDLC signal drops unexpectedly - i.e. not just after a final frame. */ fe->hdlc_rx.len = 0; fe->rx_data_missing = FALSE; front_end_status(s, T30_FRONT_END_RECEIVE_COMPLETE); } /*endif*/ /* Treat this like a no signal indicator has occurred, so if the no signal indicator is missing, we are still OK */ fake_rx_indicator(t, s, T38_IND_NO_SIGNAL); break; case T38_FIELD_T4_NON_ECM_DATA: if (!fe->rx_signal_present) { t30_non_ecm_put_bit(&s->t30, SIG_STATUS_TRAINING_SUCCEEDED); fe->rx_signal_present = TRUE; } /*endif*/ if (len > 0) { bit_reverse(buf2, buf, len); t30_non_ecm_put_chunk(&s->t30, buf2, len); } /*endif*/ fe->timeout_rx_samples = fe->samples + ms_to_samples(MID_RX_TIMEOUT); break; case T38_FIELD_T4_NON_ECM_SIG_END: /* Some T.38 implementations send multiple T38_FIELD_T4_NON_ECM_SIG_END messages, in IFP packets with incrementing sequence numbers, which are actually repeats. They get through to this point because of the incrementing sequence numbers. We need to filter them here in a context sensitive manner. */ if (t->current_rx_data_type != data_type || t->current_rx_field_type != field_type) { if (len > 0) { if (!fe->rx_signal_present) { t30_non_ecm_put_bit(&s->t30, SIG_STATUS_TRAINING_SUCCEEDED); fe->rx_signal_present = TRUE; } /*endif*/ bit_reverse(buf2, buf, len); t30_non_ecm_put_chunk(&s->t30, buf2, len); } /*endif*/ /* WORKAROUND: At least some Mediatrix boxes have a bug, where they can send HDLC signal end where they should send non-ECM signal end. It is possible they also do the opposite. We need to tolerate this, so we use the generic receive complete indication, rather than the specific non-ECM carrier down. */ front_end_status(s, T30_FRONT_END_RECEIVE_COMPLETE); } /*endif*/ fe->rx_signal_present = FALSE; /* Treat this like a no signal indicator has occurred, so if the no signal indicator is missing, we are still OK */ fake_rx_indicator(t, s, T38_IND_NO_SIGNAL); break; default: break; } /*endswitch*/ return 0; } /*- End of function --------------------------------------------------------*/ static void send_hdlc(void *user_data, const uint8_t *msg, int len) { t38_terminal_state_t *s; s = (t38_terminal_state_t *) user_data; if (len <= 0) { s->t38_fe.hdlc_tx.len = -1; } else { s->t38_fe.hdlc_tx.extra_bits = extra_bits_in_stuffed_frame(msg, len); bit_reverse(s->t38_fe.hdlc_tx.buf, msg, len); s->t38_fe.hdlc_tx.len = len; s->t38_fe.hdlc_tx.ptr = 0; } /*endif*/ } /*- End of function --------------------------------------------------------*/ static __inline__ int bits_to_us(t38_terminal_state_t *s, int bits) { if (s->t38_fe.ms_per_tx_chunk == 0 || s->t38_fe.tx_bit_rate == 0) return 0; /*endif*/ return bits*1000000/s->t38_fe.tx_bit_rate; } /*- End of function --------------------------------------------------------*/ static void set_octets_per_data_packet(t38_terminal_state_t *s, int bit_rate) { s->t38_fe.tx_bit_rate = bit_rate; if (s->t38_fe.ms_per_tx_chunk) { s->t38_fe.octets_per_data_packet = s->t38_fe.ms_per_tx_chunk*bit_rate/(8*1000); /* Make sure we have a positive number (i.e. we didn't truncate to zero). */ if (s->t38_fe.octets_per_data_packet < 1) s->t38_fe.octets_per_data_packet = 1; /*endif*/ } else { s->t38_fe.octets_per_data_packet = MAX_OCTETS_PER_UNPACED_CHUNK; } /*endif*/ } /*- End of function --------------------------------------------------------*/ static int set_no_signal(t38_terminal_state_t *s) { int delay; if ((s->t38_fe.chunking_modes & T38_CHUNKING_SEND_REGULAR_INDICATORS)) { t38_core_send_indicator(&s->t38_fe.t38, 0x100 | T38_IND_NO_SIGNAL); s->t38_fe.timed_step = T38_TIMED_STEP_NO_SIGNAL; #if 0 if ((s->t38_fe.chunking_modes & T38_CHUNKING_SEND_2S_REGULAR_INDICATORS)) s->t38_fe.timeout_tx_samples = s->t38_fe.next_tx_samples + us_to_samples(2000000); else s->t38_fe.timeout_tx_samples = 0; /*endif*/ #endif return s->t38_fe.ms_per_tx_chunk*1000; } /*endif*/ delay = t38_core_send_indicator(&s->t38_fe.t38, T38_IND_NO_SIGNAL); s->t38_fe.timed_step = T38_TIMED_STEP_NONE; return delay; } /*- End of function --------------------------------------------------------*/ static int stream_no_signal(t38_terminal_state_t *s) { t38_core_send_indicator(&s->t38_fe.t38, 0x100 | T38_IND_NO_SIGNAL); #if 0 if (s->t38_fe.timeout_tx_samples && s->t38_fe.next_tx_samples >= s->t38_fe.timeout_tx_samples) s->t38_fe.timed_step = T38_TIMED_STEP_NONE; /*endif*/ #endif return s->t38_fe.ms_per_tx_chunk*1000; } /*- End of function --------------------------------------------------------*/ static int stream_non_ecm(t38_terminal_state_t *s) { t38_terminal_front_end_state_t *fe; uint8_t buf[MAX_OCTETS_PER_UNPACED_CHUNK + 50]; int delay; int len; fe = &s->t38_fe; for (delay = 0; delay == 0; ) { switch (fe->timed_step) { case T38_TIMED_STEP_NON_ECM_MODEM: /* Create a 75ms silence */ if (fe->t38.current_tx_indicator != T38_IND_NO_SIGNAL) delay = t38_core_send_indicator(&fe->t38, T38_IND_NO_SIGNAL); else delay = 75000; /*endif*/ fe->timed_step = T38_TIMED_STEP_NON_ECM_MODEM_2; #if 0 fe->timeout_tx_samples = fe->next_tx_samples + us_to_samples(t38_core_send_training_delay(&fe->t38, fe->next_tx_indicator)); #endif fe->next_tx_samples = fe->samples; break; case T38_TIMED_STEP_NON_ECM_MODEM_2: /* Switch on a fast modem, and give the training time to complete */ #if 0 if ((s->t38_fe.chunking_modes & T38_CHUNKING_SEND_REGULAR_INDICATORS)) { delay = t38_core_send_indicator(&fe->t38, 0x100 | fe->next_tx_indicator); if (fe->next_tx_samples >= fe->timeout_tx_samples) fe->timed_step = T38_TIMED_STEP_NON_ECM_MODEM_3; /*endif*/ return fe->ms_per_tx_chunk*1000; } /*endif*/ #endif delay = t38_core_send_indicator(&fe->t38, fe->next_tx_indicator); fe->timed_step = T38_TIMED_STEP_NON_ECM_MODEM_3; break; case T38_TIMED_STEP_NON_ECM_MODEM_3: /* Send a chunk of non-ECM image data */ /* T.38 says it is OK to send the last of the non-ECM data in the signal end message. However, I think the early versions of T.38 said the signal end message should not contain data. Hopefully, following the current spec will not cause compatibility issues. */ len = t30_non_ecm_get_chunk(&s->t30, buf, fe->octets_per_data_packet); if (len > 0) bit_reverse(buf, buf, len); /*endif*/ if (len < fe->octets_per_data_packet) { /* That's the end of the image data. */ if (s->t38_fe.ms_per_tx_chunk) { /* Pad the end of the data with some zeros. If we just stop abruptly at the end of the EOLs, some ATAs fail to clean up properly before shutting down their transmit modem, and the last few rows of the image are lost or corrupted. Simply delaying the no-signal message does not help for all implentations. It is usually ignored, which is probably the right thing to do after receiving a message saying the signal has ended. */ memset(buf + len, 0, fe->octets_per_data_packet - len); fe->non_ecm_trailer_bytes = 3*fe->octets_per_data_packet + len; len = fe->octets_per_data_packet; fe->timed_step = T38_TIMED_STEP_NON_ECM_MODEM_4; } else { /* If we are sending quickly there seems no point in doing any padding */ t38_core_send_data(&fe->t38, fe->current_tx_data_type, T38_FIELD_T4_NON_ECM_SIG_END, buf, len, T38_PACKET_CATEGORY_IMAGE_DATA_END); fe->timed_step = T38_TIMED_STEP_NON_ECM_MODEM_5; delay = 0; break; } /*endif*/ } /*endif*/ t38_core_send_data(&fe->t38, fe->current_tx_data_type, T38_FIELD_T4_NON_ECM_DATA, buf, len, T38_PACKET_CATEGORY_IMAGE_DATA); delay = bits_to_us(s, 8*len); break; case T38_TIMED_STEP_NON_ECM_MODEM_4: /* Send padding */ len = fe->octets_per_data_packet; fe->non_ecm_trailer_bytes -= fe->octets_per_data_packet; if (fe->non_ecm_trailer_bytes <= 0) { len += fe->non_ecm_trailer_bytes; memset(buf, 0, len); t38_core_send_data(&fe->t38, fe->current_tx_data_type, T38_FIELD_T4_NON_ECM_SIG_END, buf, len, T38_PACKET_CATEGORY_IMAGE_DATA_END); fe->timed_step = T38_TIMED_STEP_NON_ECM_MODEM_5; /* Allow a bit more time than the data will take to play out, to ensure the far ATA does not cut things short. */ delay = bits_to_us(s, 8*len); if (s->t38_fe.ms_per_tx_chunk) delay += 60000; /*endif*/ front_end_status(s, T30_FRONT_END_SEND_STEP_COMPLETE); break; } /*endif*/ memset(buf, 0, len); t38_core_send_data(&fe->t38, fe->current_tx_data_type, T38_FIELD_T4_NON_ECM_DATA, buf, len, T38_PACKET_CATEGORY_IMAGE_DATA); delay = bits_to_us(s, 8*len); break; case T38_TIMED_STEP_NON_ECM_MODEM_5: /* This should not be needed, since the message above indicates the end of the signal, but it seems like it can improve compatibility with quirky implementations. */ return set_no_signal(s); } /*endswitch*/ } /*endfor*/ return delay; } /*- End of function --------------------------------------------------------*/ static int stream_hdlc(t38_terminal_state_t *s) { t38_terminal_front_end_state_t *fe; uint8_t buf[MAX_OCTETS_PER_UNPACED_CHUNK + 50]; t38_data_field_t data_fields[2]; int category; int previous; int delay; int i; fe = &s->t38_fe; for (delay = 0; delay == 0; ) { switch (fe->timed_step) { case T38_TIMED_STEP_HDLC_MODEM: /* Create a 75ms silence */ if (fe->t38.current_tx_indicator != T38_IND_NO_SIGNAL) delay = t38_core_send_indicator(&fe->t38, T38_IND_NO_SIGNAL); else delay = 75000; /*endif*/ fe->timed_step = T38_TIMED_STEP_HDLC_MODEM_2; #if 0 fe->timeout_tx_samples = fe->next_tx_samples + us_to_samples(t38_core_send_training_delay(&fe->t38, fe->next_tx_indicator)) + us_to_samples(t38_core_send_flags_delay(&fe->t38, fe->next_tx_indicator)) + us_to_samples(delay); #endif fe->next_tx_samples = fe->samples; break; case T38_TIMED_STEP_HDLC_MODEM_2: /* Send HDLC preambling */ #if 0 if ((s->t38_fe.chunking_modes & T38_CHUNKING_SEND_REGULAR_INDICATORS)) { delay = t38_core_send_indicator(&fe->t38, 0x100 | fe->next_tx_indicator); if (fe->next_tx_samples >= fe->timeout_tx_samples) fe->timed_step = T38_TIMED_STEP_HDLC_MODEM_3; /*endif*/ return fe->ms_per_tx_chunk*1000; } /*endif*/ #endif delay = t38_core_send_indicator(&fe->t38, fe->next_tx_indicator) + t38_core_send_flags_delay(&fe->t38, fe->next_tx_indicator); fe->timed_step = T38_TIMED_STEP_HDLC_MODEM_3; break; case T38_TIMED_STEP_HDLC_MODEM_3: /* Send a chunk of HDLC data */ i = fe->hdlc_tx.len - fe->hdlc_tx.ptr; if (fe->octets_per_data_packet >= i) { /* The last part of an HDLC frame */ if (fe->chunking_modes & T38_CHUNKING_MERGE_FCS_WITH_DATA) { /* Copy the data, as we might be about to refill the buffer it is in */ memcpy(buf, &fe->hdlc_tx.buf[fe->hdlc_tx.ptr], i); data_fields[0].field_type = T38_FIELD_HDLC_DATA; data_fields[0].field = buf; data_fields[0].field_len = i; /* Now see about the next HDLC frame. This will tell us whether to send FCS_OK or FCS_OK_SIG_END */ previous = fe->current_tx_data_type; fe->hdlc_tx.ptr = 0; fe->hdlc_tx.len = 0; front_end_status(s, T30_FRONT_END_SEND_STEP_COMPLETE); /* The above step should have got the next HDLC step ready - either another frame, or an instruction to stop transmission. */ if (fe->hdlc_tx.len < 0) { data_fields[1].field_type = T38_FIELD_HDLC_FCS_OK_SIG_END; data_fields[1].field = NULL; data_fields[1].field_len = 0; category = (s->t38_fe.current_tx_data_type == T38_DATA_V21) ? T38_PACKET_CATEGORY_CONTROL_DATA_END : T38_PACKET_CATEGORY_IMAGE_DATA_END; t38_core_send_data_multi_field(&fe->t38, fe->current_tx_data_type, data_fields, 2, category); fe->timed_step = T38_TIMED_STEP_HDLC_MODEM_5; /* We add a bit of extra time here, as with some implementations the carrier falling too abruptly causes data loss. */ delay = bits_to_us(s, i*8 + fe->hdlc_tx.extra_bits); if (s->t38_fe.ms_per_tx_chunk) delay += 100000; /*endif*/ front_end_status(s, T30_FRONT_END_SEND_STEP_COMPLETE); } else { data_fields[1].field_type = T38_FIELD_HDLC_FCS_OK; data_fields[1].field = NULL; data_fields[1].field_len = 0; category = (s->t38_fe.current_tx_data_type == T38_DATA_V21) ? T38_PACKET_CATEGORY_CONTROL_DATA : T38_PACKET_CATEGORY_IMAGE_DATA; t38_core_send_data_multi_field(&fe->t38, fe->current_tx_data_type, data_fields, 2, category); fe->timed_step = T38_TIMED_STEP_HDLC_MODEM_3; delay = bits_to_us(s, i*8 + fe->hdlc_tx.extra_bits); } /*endif*/ break; } /*endif*/ category = (s->t38_fe.current_tx_data_type == T38_DATA_V21) ? T38_PACKET_CATEGORY_CONTROL_DATA : T38_PACKET_CATEGORY_IMAGE_DATA; t38_core_send_data(&fe->t38, fe->current_tx_data_type, T38_FIELD_HDLC_DATA, &fe->hdlc_tx.buf[fe->hdlc_tx.ptr], i, category); fe->timed_step = T38_TIMED_STEP_HDLC_MODEM_4; } else { i = fe->octets_per_data_packet; category = (s->t38_fe.current_tx_data_type == T38_DATA_V21) ? T38_PACKET_CATEGORY_CONTROL_DATA : T38_PACKET_CATEGORY_IMAGE_DATA; t38_core_send_data(&fe->t38, fe->current_tx_data_type, T38_FIELD_HDLC_DATA, &fe->hdlc_tx.buf[fe->hdlc_tx.ptr], i, category); fe->hdlc_tx.ptr += i; } /*endif*/ delay = bits_to_us(s, i*8); break; case T38_TIMED_STEP_HDLC_MODEM_4: /* End of HDLC frame */ previous = fe->current_tx_data_type; fe->hdlc_tx.ptr = 0; fe->hdlc_tx.len = 0; front_end_status(s, T30_FRONT_END_SEND_STEP_COMPLETE); /* The above step should have got the next HDLC step ready - either another frame, or an instruction to stop transmission. */ if (fe->hdlc_tx.len < 0) { /* End of transmission */ category = (s->t38_fe.current_tx_data_type == T38_DATA_V21) ? T38_PACKET_CATEGORY_CONTROL_DATA_END : T38_PACKET_CATEGORY_IMAGE_DATA_END; t38_core_send_data(&fe->t38, previous, T38_FIELD_HDLC_FCS_OK_SIG_END, NULL, 0, category); fe->timed_step = T38_TIMED_STEP_HDLC_MODEM_5; /* We add a bit of extra time here, as with some implementations the carrier falling too abruptly causes data loss. */ delay = bits_to_us(s, fe->hdlc_tx.extra_bits); if (s->t38_fe.ms_per_tx_chunk) delay += 100000; /*endif*/ front_end_status(s, T30_FRONT_END_SEND_STEP_COMPLETE); break; } /*endif*/ if (fe->hdlc_tx.len == 0) { /* Now, how did we get here? We have finished a frame, but have no new frame to send, and no end of transmission condition. */ span_log(&s->logging, SPAN_LOG_FLOW, "No new frame or end transmission condition.\n"); } /*endif*/ /* Finish the current frame off, and prepare for the next one. */ category = (s->t38_fe.current_tx_data_type == T38_DATA_V21) ? T38_PACKET_CATEGORY_CONTROL_DATA : T38_PACKET_CATEGORY_IMAGE_DATA; t38_core_send_data(&fe->t38, previous, T38_FIELD_HDLC_FCS_OK, NULL, 0, category); fe->timed_step = T38_TIMED_STEP_HDLC_MODEM_3; /* We should now wait enough time for everything to clear through an analogue modem at the far end. */ delay = bits_to_us(s, fe->hdlc_tx.extra_bits); break; case T38_TIMED_STEP_HDLC_MODEM_5: /* Note that some boxes do not like us sending a T38_FIELD_HDLC_SIG_END at this point. A T38_IND_NO_SIGNAL should always be OK. */ return set_no_signal(s); } /*endswitch*/ } /*endfor*/ return delay; } /*- End of function --------------------------------------------------------*/ static int stream_ced(t38_terminal_state_t *s) { t38_terminal_front_end_state_t *fe; int delay; fe = &s->t38_fe; for (delay = 0; delay == 0; ) { switch (fe->timed_step) { case T38_TIMED_STEP_CED: /* It seems common practice to start with a no signal indicator, though this is not a specified requirement. Since we should be sending 200ms of silence, starting the delay with a no signal indication makes sense. We do need a 200ms delay, as that is a specification requirement. */ fe->timed_step = T38_TIMED_STEP_CED_2; delay = t38_core_send_indicator(&fe->t38, T38_IND_NO_SIGNAL); delay = 200000; fe->next_tx_samples = fe->samples; break; case T38_TIMED_STEP_CED_2: /* Initial 200ms delay over. Send the CED indicator */ fe->timed_step = T38_TIMED_STEP_CED_3; delay = t38_core_send_indicator(&fe->t38, T38_IND_CED); fe->current_tx_data_type = T38_DATA_NONE; break; case T38_TIMED_STEP_CED_3: /* End of CED */ fe->timed_step = T38_TIMED_STEP_NONE; front_end_status(s, T30_FRONT_END_SEND_STEP_COMPLETE); return 0; } /*endswitch*/ } /*endfor*/ return delay; } /*- End of function --------------------------------------------------------*/ static int stream_cng(t38_terminal_state_t *s) { t38_terminal_front_end_state_t *fe; int delay; fe = &s->t38_fe; for (delay = 0; delay == 0; ) { switch (fe->timed_step) { case T38_TIMED_STEP_CNG: /* It seems common practice to start with a no signal indicator, though this is not a specified requirement of the T.38 spec. Since we should be sending 200ms of silence, according to T.30, starting that delay with a no signal indication makes sense. */ fe->timed_step = T38_TIMED_STEP_CNG_2; delay = t38_core_send_indicator(&fe->t38, T38_IND_NO_SIGNAL); delay = 200000; fe->next_tx_samples = fe->samples; break; case T38_TIMED_STEP_CNG_2: /* Initial short delay over. Send the CNG indicator. CNG persists until something coming the other way interrupts it, or a long timeout controlled by the T.30 engine expires. */ fe->timed_step = T38_TIMED_STEP_NONE; delay = t38_core_send_indicator(&fe->t38, T38_IND_CNG); fe->current_tx_data_type = T38_DATA_NONE; return delay; } /*endswitch*/ } /*endfor*/ return delay; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) t38_terminal_send_timeout(t38_terminal_state_t *s, int samples) { t38_terminal_front_end_state_t *fe; int delay; fe = &s->t38_fe; if (fe->current_rx_type == T30_MODEM_DONE || fe->current_tx_type == T30_MODEM_DONE) return TRUE; /*endif*/ fe->samples += samples; t30_timer_update(&s->t30, samples); if (fe->timeout_rx_samples && fe->samples > fe->timeout_rx_samples) { span_log(&s->logging, SPAN_LOG_FLOW, "Timeout mid-receive\n"); fe->timeout_rx_samples = 0; front_end_status(s, T30_FRONT_END_RECEIVE_COMPLETE); } /*endif*/ if (fe->timed_step == T38_TIMED_STEP_NONE) return FALSE; /*endif*/ /* Wait until the right time comes along, unless we are working in "no delays" mode, while talking to an IAF terminal. */ if (fe->ms_per_tx_chunk && fe->samples < fe->next_tx_samples) return FALSE; /*endif*/ /* Its time to send something */ delay = 0; switch ((fe->timed_step & 0xFFF0)) { case T38_TIMED_STEP_NON_ECM_MODEM: delay = stream_non_ecm(s); break; case T38_TIMED_STEP_HDLC_MODEM: delay = stream_hdlc(s); break; case T38_TIMED_STEP_CED: delay = stream_ced(s); break; case T38_TIMED_STEP_CNG: delay = stream_cng(s); break; case T38_TIMED_STEP_PAUSE: /* End of timed pause */ fe->timed_step = T38_TIMED_STEP_NONE; front_end_status(s, T30_FRONT_END_SEND_STEP_COMPLETE); break; case T38_TIMED_STEP_NO_SIGNAL: delay = stream_no_signal(s); break; } /*endswitch*/ fe->next_tx_samples += us_to_samples(delay); return FALSE; } /*- End of function --------------------------------------------------------*/ static void set_rx_type(void *user_data, int type, int bit_rate, int short_train, int use_hdlc) { t38_terminal_state_t *s; s = (t38_terminal_state_t *) user_data; span_log(&s->logging, SPAN_LOG_FLOW, "Set rx type %d\n", type); s->t38_fe.current_rx_type = type; } /*- End of function --------------------------------------------------------*/ static void start_tx(t38_terminal_front_end_state_t *fe, int use_hdlc) { /* The actual transmission process depends on whether we are sending at a paced manner, for interaction with a traditional FAX machine, or streaming as fast as we can, normally over a TCP connection to a machine directly connected to the internet. */ if (fe->ms_per_tx_chunk) { /* Start the paced packet transmission process. */ fe->timed_step = (use_hdlc) ? T38_TIMED_STEP_HDLC_MODEM : T38_TIMED_STEP_NON_ECM_MODEM; if (fe->next_tx_samples < fe->samples) fe->next_tx_samples = fe->samples; /*endif*/ } else { /* Start the fast streaming transmission process. */ } /*endif*/ } /*- End of function --------------------------------------------------------*/ static void set_tx_type(void *user_data, int type, int bit_rate, int short_train, int use_hdlc) { t38_terminal_state_t *s; t38_terminal_front_end_state_t *fe; s = (t38_terminal_state_t *) user_data; fe = &s->t38_fe; span_log(&s->logging, SPAN_LOG_FLOW, "Set tx type %d\n", type); if (fe->current_tx_type == type) return; /*endif*/ set_octets_per_data_packet(s, bit_rate); switch (type) { case T30_MODEM_NONE: /* If a "no signal" indicator is waiting to be played out, don't disturb it. */ if (fe->timed_step != T38_TIMED_STEP_NON_ECM_MODEM_5 && fe->timed_step != T38_TIMED_STEP_HDLC_MODEM_5) fe->timed_step = T38_TIMED_STEP_NONE; /*endif*/ fe->current_tx_data_type = T38_DATA_NONE; break; case T30_MODEM_PAUSE: fe->next_tx_samples = fe->samples + ms_to_samples(short_train); fe->timed_step = T38_TIMED_STEP_PAUSE; fe->current_tx_data_type = T38_DATA_NONE; break; case T30_MODEM_CED: fe->next_tx_samples = fe->samples; fe->timed_step = T38_TIMED_STEP_CED; fe->current_tx_data_type = T38_DATA_NONE; break; case T30_MODEM_CNG: fe->next_tx_samples = fe->samples; fe->timed_step = T38_TIMED_STEP_CNG; fe->current_tx_data_type = T38_DATA_NONE; break; case T30_MODEM_V21: fe->next_tx_indicator = T38_IND_V21_PREAMBLE; fe->current_tx_data_type = T38_DATA_V21; start_tx(fe, use_hdlc); break; case T30_MODEM_V27TER: switch (bit_rate) { case 2400: fe->next_tx_indicator = T38_IND_V27TER_2400_TRAINING; fe->current_tx_data_type = T38_DATA_V27TER_2400; break; case 4800: fe->next_tx_indicator = T38_IND_V27TER_4800_TRAINING; fe->current_tx_data_type = T38_DATA_V27TER_4800; break; } /*endswitch*/ start_tx(fe, use_hdlc); break; case T30_MODEM_V29: switch (bit_rate) { case 7200: fe->next_tx_indicator = T38_IND_V29_7200_TRAINING; fe->current_tx_data_type = T38_DATA_V29_7200; break; case 9600: fe->next_tx_indicator = T38_IND_V29_9600_TRAINING; fe->current_tx_data_type = T38_DATA_V29_9600; break; } /*endswitch*/ start_tx(fe, use_hdlc); break; case T30_MODEM_V17: switch (bit_rate) { case 7200: fe->next_tx_indicator = (short_train) ? T38_IND_V17_7200_SHORT_TRAINING : T38_IND_V17_7200_LONG_TRAINING; fe->current_tx_data_type = T38_DATA_V17_7200; break; case 9600: fe->next_tx_indicator = (short_train) ? T38_IND_V17_9600_SHORT_TRAINING : T38_IND_V17_9600_LONG_TRAINING; fe->current_tx_data_type = T38_DATA_V17_9600; break; case 12000: fe->next_tx_indicator = (short_train) ? T38_IND_V17_12000_SHORT_TRAINING : T38_IND_V17_12000_LONG_TRAINING; fe->current_tx_data_type = T38_DATA_V17_12000; break; case 14400: fe->next_tx_indicator = (short_train) ? T38_IND_V17_14400_SHORT_TRAINING : T38_IND_V17_14400_LONG_TRAINING; fe->current_tx_data_type = T38_DATA_V17_14400; break; } /*endswitch*/ start_tx(fe, use_hdlc); break; case T30_MODEM_DONE: span_log(&s->logging, SPAN_LOG_FLOW, "FAX exchange complete\n"); fe->timed_step = T38_TIMED_STEP_NONE; fe->current_tx_data_type = T38_DATA_NONE; break; } /*endswitch*/ fe->current_tx_type = type; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) t38_terminal_set_config(t38_terminal_state_t *s, int config) { if ((config & T38_TERMINAL_OPTION_NO_PACING)) { /* Continuous streaming mode, as used for TPKT over TCP transport */ /* Inhibit indicator packets */ t38_set_redundancy_control(&s->t38_fe.t38, T38_PACKET_CATEGORY_INDICATOR, 0); t38_set_redundancy_control(&s->t38_fe.t38, T38_PACKET_CATEGORY_CONTROL_DATA, 1); t38_set_redundancy_control(&s->t38_fe.t38, T38_PACKET_CATEGORY_CONTROL_DATA_END, 1); t38_set_redundancy_control(&s->t38_fe.t38, T38_PACKET_CATEGORY_IMAGE_DATA, 1); t38_set_redundancy_control(&s->t38_fe.t38, T38_PACKET_CATEGORY_IMAGE_DATA_END, 1); s->t38_fe.ms_per_tx_chunk = 0; s->t38_fe.chunking_modes &= ~T38_CHUNKING_SEND_REGULAR_INDICATORS; } else { /* Paced streaming mode, as used for UDP transports */ t38_set_redundancy_control(&s->t38_fe.t38, T38_PACKET_CATEGORY_INDICATOR, INDICATOR_TX_COUNT); t38_set_redundancy_control(&s->t38_fe.t38, T38_PACKET_CATEGORY_CONTROL_DATA, DATA_TX_COUNT); t38_set_redundancy_control(&s->t38_fe.t38, T38_PACKET_CATEGORY_CONTROL_DATA_END, DATA_END_TX_COUNT); t38_set_redundancy_control(&s->t38_fe.t38, T38_PACKET_CATEGORY_IMAGE_DATA, DATA_TX_COUNT); t38_set_redundancy_control(&s->t38_fe.t38, T38_PACKET_CATEGORY_IMAGE_DATA_END, DATA_END_TX_COUNT); s->t38_fe.ms_per_tx_chunk = DEFAULT_MS_PER_TX_CHUNK; if ((config & (T38_TERMINAL_OPTION_REGULAR_INDICATORS | T38_TERMINAL_OPTION_2S_REPEATING_INDICATORS))) s->t38_fe.chunking_modes |= T38_CHUNKING_SEND_REGULAR_INDICATORS; else s->t38_fe.chunking_modes &= ~T38_CHUNKING_SEND_REGULAR_INDICATORS; /*endif*/ if ((config & T38_TERMINAL_OPTION_2S_REPEATING_INDICATORS)) s->t38_fe.chunking_modes |= T38_CHUNKING_SEND_2S_REGULAR_INDICATORS; else s->t38_fe.chunking_modes &= ~T38_CHUNKING_SEND_2S_REGULAR_INDICATORS; /*endif*/ } /*endif*/ set_octets_per_data_packet(s, 300); } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) t38_terminal_set_tep_mode(t38_terminal_state_t *s, int use_tep) { if (use_tep) s->t38_fe.chunking_modes |= T38_CHUNKING_ALLOW_TEP_TIME; else s->t38_fe.chunking_modes &= ~T38_CHUNKING_ALLOW_TEP_TIME; /*endif*/ t38_set_tep_handling(&s->t38_fe.t38, use_tep); } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) t38_terminal_set_fill_bit_removal(t38_terminal_state_t *s, int remove) { if (remove) s->t38_fe.iaf |= T30_IAF_MODE_NO_FILL_BITS; else s->t38_fe.iaf &= ~T30_IAF_MODE_NO_FILL_BITS; /*endif*/ t30_set_iaf_mode(&s->t30, s->t38_fe.iaf); } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(t30_state_t *) t38_terminal_get_t30_state(t38_terminal_state_t *s) { return &s->t30; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(t38_core_state_t *) t38_terminal_get_t38_core_state(t38_terminal_state_t *s) { return &s->t38_fe.t38; } /*- End of function --------------------------------------------------------*/ static int t38_terminal_t38_fe_restart(t38_terminal_state_t *t) { t38_terminal_front_end_state_t *s; s = &t->t38_fe; t38_core_restart(&s->t38); s->rx_signal_present = FALSE; s->timed_step = T38_TIMED_STEP_NONE; //s->iaf = T30_IAF_MODE_T37 | T30_IAF_MODE_T38; s->iaf = T30_IAF_MODE_T38; s->current_tx_data_type = T38_DATA_NONE; s->next_tx_samples = 0; s->hdlc_tx.ptr = 0; return 0; } /*- End of function --------------------------------------------------------*/ static int t38_terminal_t38_fe_init(t38_terminal_state_t *t, t38_tx_packet_handler_t *tx_packet_handler, void *tx_packet_user_data) { t38_terminal_front_end_state_t *s; s = &t->t38_fe; t38_core_init(&s->t38, process_rx_indicator, process_rx_data, process_rx_missing, (void *) t, tx_packet_handler, tx_packet_user_data); t38_set_fastest_image_data_rate(&s->t38, 14400); s->rx_signal_present = FALSE; s->timed_step = T38_TIMED_STEP_NONE; //s->iaf = T30_IAF_MODE_T37 | T30_IAF_MODE_T38; s->iaf = T30_IAF_MODE_T38; s->current_tx_data_type = T38_DATA_NONE; s->next_tx_samples = 0; s->chunking_modes = T38_CHUNKING_ALLOW_TEP_TIME; s->hdlc_tx.ptr = 0; return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(logging_state_t *) t38_terminal_get_logging_state(t38_terminal_state_t *s) { return &s->logging; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) t38_terminal_restart(t38_terminal_state_t *s, int calling_party) { t38_terminal_t38_fe_restart(s); t30_restart(&s->t30); return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(t38_terminal_state_t *) t38_terminal_init(t38_terminal_state_t *s, int calling_party, t38_tx_packet_handler_t *tx_packet_handler, void *tx_packet_user_data) { if (tx_packet_handler == NULL) return NULL; /*endif*/ if (s == NULL) { if ((s = (t38_terminal_state_t *) malloc(sizeof(*s))) == NULL) return NULL; /*endif*/ } /*endif*/ memset(s, 0, sizeof(*s)); span_log_init(&s->logging, SPAN_LOG_NONE, NULL); span_log_set_protocol(&s->logging, "T.38T"); t38_terminal_t38_fe_init(s, tx_packet_handler, tx_packet_user_data); t38_terminal_set_config(s, 0); t30_init(&s->t30, calling_party, set_rx_type, (void *) s, set_tx_type, (void *) s, send_hdlc, (void *) s); t30_set_iaf_mode(&s->t30, s->t38_fe.iaf); t30_set_supported_modems(&s->t30, T30_SUPPORT_V27TER | T30_SUPPORT_V29 | T30_SUPPORT_V17 | T30_SUPPORT_IAF); t30_restart(&s->t30); return s; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) t38_terminal_release(t38_terminal_state_t *s) { t30_release(&s->t30); return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) t38_terminal_free(t38_terminal_state_t *s) { t38_terminal_release(s); free(s); return 0; } /*- End of function --------------------------------------------------------*/ /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/at_interpreter.c0000664000175000017500000047705411422612261016577 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * at_interpreter.c - AT command interpreter to V.251, V.252, V.253, T.31 and the 3GPP specs. * * Written by Steve Underwood * * Special thanks to Lee Howard * for his great work debugging and polishing this code. * * Copyright (C) 2004, 2005, 2006 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \file */ #if defined(HAVE_CONFIG_H) #include "config.h" #endif #if defined(__sun) #define __EXTENSIONS__ #endif #include #include #include #include #include #include #include #include #include "spandsp/telephony.h" #include "spandsp/logging.h" #include "spandsp/queue.h" #include "spandsp/power_meter.h" #include "spandsp/complex.h" #include "spandsp/tone_generate.h" #include "spandsp/async.h" #include "spandsp/hdlc.h" #include "spandsp/fsk.h" #include "spandsp/super_tone_rx.h" #include "spandsp/fax_modems.h" #include "spandsp/at_interpreter.h" #include "spandsp/private/logging.h" #include "spandsp/private/at_interpreter.h" #define MANUFACTURER "www.soft-switch.org" #define SERIAL_NUMBER "42" #define GLOBAL_OBJECT_IDENTITY "42" enum { ASCII_RESULT_CODES = 1, NUMERIC_RESULT_CODES, NO_RESULT_CODES }; static at_profile_t profiles[3] = { { #if defined(_MSC_VER) || defined(__sunos) || defined(__solaris) || defined(__sun) /*.echo =*/ TRUE, /*.verbose =*/ TRUE, /*.result_code_format =*/ ASCII_RESULT_CODES, /*.pulse_dial =*/ FALSE, /*.double_escape =*/ FALSE, /*.adaptive_receive =*/ FALSE, /*.s_regs[100] =*/ {0, 0, 0, '\r', '\n', '\b', 1, 60, 5, 0, 0} #else .echo = TRUE, .verbose = TRUE, .result_code_format = ASCII_RESULT_CODES, .pulse_dial = FALSE, .double_escape = FALSE, .adaptive_receive = FALSE, .s_regs[0] = 0, .s_regs[3] = '\r', .s_regs[4] = '\n', .s_regs[5] = '\b', .s_regs[6] = 1, .s_regs[7] = 60, .s_regs[8] = 5, .s_regs[10] = 0 #endif } }; typedef const char *(*at_cmd_service_t)(at_state_t *s, const char *cmd); static const char *manufacturer = MANUFACTURER; static const char *model = PACKAGE; static const char *revision = VERSION; #define ETX 0x03 #define DLE 0x10 #define SUB 0x1A static const char *at_response_codes[] = { "OK", "CONNECT", "RING", "NO CARRIER", "ERROR", "???", "NO DIALTONE", "BUSY", "NO ANSWER", "+FCERROR", "+FRH:3" }; SPAN_DECLARE(void) at_set_at_rx_mode(at_state_t *s, int new_mode) { /* The use of a DTE timeout is mode dependent. Set the timeout appropriately in the modem. */ switch (new_mode) { case AT_MODE_HDLC: case AT_MODE_STUFFED: at_modem_control(s, s->dte_inactivity_timeout*1000, (void *) (intptr_t) s->dte_inactivity_timeout); break; default: at_modem_control(s, AT_MODEM_CONTROL_DTE_TIMEOUT, NULL); break; } s->at_rx_mode = new_mode; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) at_put_response(at_state_t *s, const char *t) { uint8_t buf[3]; buf[0] = s->p.s_regs[3]; buf[1] = s->p.s_regs[4]; buf[2] = '\0'; if (s->p.result_code_format == ASCII_RESULT_CODES) s->at_tx_handler(s, s->at_tx_user_data, buf, 2); s->at_tx_handler(s, s->at_tx_user_data, (uint8_t *) t, strlen(t)); s->at_tx_handler(s, s->at_tx_user_data, buf, 2); } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) at_put_numeric_response(at_state_t *s, int val) { char buf[20]; snprintf(buf, sizeof(buf), "%d", val); at_put_response(s, buf); } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) at_put_response_code(at_state_t *s, int code) { uint8_t buf[20]; span_log(&s->logging, SPAN_LOG_FLOW, "Sending AT response code %s\n", at_response_codes[code]); switch (s->p.result_code_format) { case ASCII_RESULT_CODES: at_put_response(s, at_response_codes[code]); break; case NUMERIC_RESULT_CODES: snprintf((char *) buf, sizeof(buf), "%d%c", code, s->p.s_regs[3]); s->at_tx_handler(s, s->at_tx_user_data, buf, strlen((char *) buf)); break; default: /* No result codes */ break; } } /*- End of function --------------------------------------------------------*/ static int answer_call(at_state_t *s) { if (at_modem_control(s, AT_MODEM_CONTROL_ANSWER, NULL) < 0) return FALSE; /* Answering should now be in progress. No AT response should be issued at this point. */ s->do_hangup = FALSE; return TRUE; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) at_call_event(at_state_t *s, int event) { span_log(&s->logging, SPAN_LOG_FLOW, "Call event %d received\n", event); switch (event) { case AT_CALL_EVENT_ALERTING: at_modem_control(s, AT_MODEM_CONTROL_RNG, (void *) 1); if (s->display_call_info && !s->call_info_displayed) at_display_call_info(s); at_put_response_code(s, AT_RESPONSE_CODE_RING); if ((++s->rings_indicated) >= s->p.s_regs[0] && s->p.s_regs[0]) { /* The modem is set to auto-answer now */ answer_call(s); } break; case AT_CALL_EVENT_ANSWERED: at_modem_control(s, AT_MODEM_CONTROL_RNG, (void *) 0); if (s->fclass_mode == 0) { /* Normal data modem connection */ at_set_at_rx_mode(s, AT_MODE_CONNECTED); /* TODO: */ } else { /* FAX modem connection */ at_set_at_rx_mode(s, AT_MODE_DELIVERY); at_modem_control(s, AT_MODEM_CONTROL_RESTART, (void *) FAX_MODEM_CED_TONE); } break; case AT_CALL_EVENT_CONNECTED: span_log(&s->logging, SPAN_LOG_FLOW, "Dial call - connected. FCLASS=%d\n", s->fclass_mode); at_modem_control(s, AT_MODEM_CONTROL_RNG, (void *) 0); if (s->fclass_mode == 0) { /* Normal data modem connection */ at_set_at_rx_mode(s, AT_MODE_CONNECTED); /* TODO: */ } else { if (s->command_dial) { at_put_response_code(s, AT_RESPONSE_CODE_OK); at_set_at_rx_mode(s, AT_MODE_OFFHOOK_COMMAND); } else { /* FAX modem connection */ at_set_at_rx_mode(s, AT_MODE_DELIVERY); if (s->silent_dial) at_modem_control(s, AT_MODEM_CONTROL_RESTART, (void *) FAX_MODEM_NOCNG_TONE); else at_modem_control(s, AT_MODEM_CONTROL_RESTART, (void *) FAX_MODEM_CNG_TONE); s->dte_is_waiting = TRUE; } } break; case AT_CALL_EVENT_BUSY: at_set_at_rx_mode(s, AT_MODE_ONHOOK_COMMAND); at_put_response_code(s, AT_RESPONSE_CODE_BUSY); break; case AT_CALL_EVENT_NO_DIALTONE: at_set_at_rx_mode(s, AT_MODE_ONHOOK_COMMAND); at_put_response_code(s, AT_RESPONSE_CODE_NO_DIALTONE); break; case AT_CALL_EVENT_NO_ANSWER: at_set_at_rx_mode(s, AT_MODE_ONHOOK_COMMAND); at_put_response_code(s, AT_RESPONSE_CODE_NO_ANSWER); break; case AT_CALL_EVENT_HANGUP: span_log(&s->logging, SPAN_LOG_FLOW, "Hangup... at_rx_mode %d\n", s->at_rx_mode); at_modem_control(s, AT_MODEM_CONTROL_ONHOOK, NULL); if (s->dte_is_waiting) { if (s->ok_is_pending) { at_put_response_code(s, AT_RESPONSE_CODE_OK); s->ok_is_pending = FALSE; } else { at_put_response_code(s, AT_RESPONSE_CODE_NO_CARRIER); } s->dte_is_waiting = FALSE; at_set_at_rx_mode(s, AT_MODE_ONHOOK_COMMAND); } else if (s->fclass_mode && s->rx_signal_present) { s->rx_data[s->rx_data_bytes++] = DLE; s->rx_data[s->rx_data_bytes++] = ETX; s->at_tx_handler(s, s->at_tx_user_data, s->rx_data, s->rx_data_bytes); s->rx_data_bytes = 0; } if (s->at_rx_mode != AT_MODE_OFFHOOK_COMMAND && s->at_rx_mode != AT_MODE_ONHOOK_COMMAND) at_put_response_code(s, AT_RESPONSE_CODE_NO_CARRIER); s->rx_signal_present = FALSE; at_modem_control(s, AT_MODEM_CONTROL_RNG, (void *) 0); at_set_at_rx_mode(s, AT_MODE_ONHOOK_COMMAND); break; default: span_log(&s->logging, SPAN_LOG_WARNING, "Invalid call event %d received.\n", event); break; } } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) at_reset_call_info(at_state_t *s) { at_call_id_t *call_id; at_call_id_t *next; for (call_id = s->call_id; call_id; call_id = next) { next = call_id->next; free(call_id); } s->call_id = NULL; s->rings_indicated = 0; s->call_info_displayed = FALSE; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) at_set_call_info(at_state_t *s, char const *id, char const *value) { at_call_id_t *new_call_id; at_call_id_t *call_id; /* TODO: We should really not merely ignore a failure to malloc */ if ((new_call_id = (at_call_id_t *) malloc(sizeof(*new_call_id))) == NULL) return; call_id = s->call_id; /* If these strdups fail its pretty harmless. We just appear to not have the relevant field. */ new_call_id->id = (id) ? strdup(id) : NULL; new_call_id->value = (value) ? strdup(value) : NULL; new_call_id->next = NULL; if (call_id) { while (call_id->next) call_id = call_id->next; call_id->next = new_call_id; } else { s->call_id = new_call_id; } } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) at_display_call_info(at_state_t *s) { char buf[132 + 1]; at_call_id_t *call_id = s->call_id; while (call_id) { snprintf(buf, sizeof(buf), "%s=%s", call_id->id ? call_id->id : "NULL", call_id->value ? call_id->value : ""); at_put_response(s, buf); call_id = call_id->next; } s->call_info_displayed = TRUE; } /*- End of function --------------------------------------------------------*/ static int parse_num(const char **s, int max_value) { int i; /* The spec. says no digits is valid, and should be treated as zero. */ i = 0; while (isdigit((int) **s)) { i = i*10 + ((**s) - '0'); (*s)++; } if (i > max_value) i = -1; return i; } /*- End of function --------------------------------------------------------*/ static int parse_hex_num(const char **s, int max_value) { int i; /* The spec. says a hex value is always 2 digits, and the alpha digits are upper case. */ i = 0; if (isdigit((int) **s)) i = **s - '0'; else if (**s >= 'A' && **s <= 'F') i = **s - 'A'; else return -1; (*s)++; if (isdigit((int) **s)) i = (i << 4) | (**s - '0'); else if (**s >= 'A' && **s <= 'F') i = (i << 4) | (**s - 'A'); else return -1; (*s)++; if (i > max_value) i = -1; return i; } /*- End of function --------------------------------------------------------*/ static int match_element(const char **variant, const char *variants) { int i; size_t len; char const *s; char const *t; s = variants; for (i = 0; *s; i++) { if ((t = strchr(s, ','))) len = t - s; else len = strlen(s); if (len == (int) strlen(*variant) && memcmp(*variant, s, len) == 0) { *variant += len; return i; } s += len; if (*s == ',') s++; } return -1; } /*- End of function --------------------------------------------------------*/ static int parse_out(at_state_t *s, const char **t, int *target, int max_value, const char *prefix, const char *def) { char buf[100]; int val; switch (*(*t)++) { case '=': switch (**t) { case '?': /* Show possible values */ (*t)++; snprintf(buf, sizeof(buf), "%s%s", (prefix) ? prefix : "", def); at_put_response(s, buf); break; default: /* Set value */ if ((val = parse_num(t, max_value)) < 0) return FALSE; if (target) *target = val; break; } break; case '?': /* Show current value */ val = (target) ? *target : 0; snprintf(buf, sizeof(buf), "%s%d", (prefix) ? prefix : "", val); at_put_response(s, buf); break; default: return FALSE; } return TRUE; } /*- End of function --------------------------------------------------------*/ static int parse_2_out(at_state_t *s, const char **t, int *target1, int max_value1, int *target2, int max_value2, const char *prefix, const char *def) { char buf[100]; int val1; int val2; switch (*(*t)++) { case '=': switch (**t) { case '?': /* Show possible values */ (*t)++; snprintf(buf, sizeof(buf), "%s%s", (prefix) ? prefix : "", def); at_put_response(s, buf); break; default: /* Set value */ if ((val1 = parse_num(t, max_value1)) < 0) return FALSE; if (target1) *target1 = val1; if (**t == ',') { (*t)++; if ((val2 = parse_num(t, max_value2)) < 0) return FALSE; if (target2) *target2 = val2; } break; } break; case '?': /* Show current value */ val1 = (target1) ? *target1 : 0; val2 = (target2) ? *target2 : 0; snprintf(buf, sizeof(buf), "%s%d,%d", (prefix) ? prefix : "", val1, val2); at_put_response(s, buf); break; default: return FALSE; } return TRUE; } /*- End of function --------------------------------------------------------*/ static int parse_n_out(at_state_t *s, const char **t, int *targets[], const int max_values[], int entries, const char *prefix, const char *def) { char buf[100]; int val; int len; int i; switch (*(*t)++) { case '=': switch (**t) { case '?': /* Show possible values */ (*t)++; snprintf(buf, sizeof(buf), "%s%s", (prefix) ? prefix : "", def); at_put_response(s, buf); break; default: /* Set value */ for (i = 0; i < entries; i++) { if ((val = parse_num(t, max_values[i])) < 0) return FALSE; if (targets[i]) *targets[i] = val; if (**t != ',') break; (*t)++; } break; } break; case '?': /* Show current value */ len = snprintf(buf, sizeof(buf), "%s", (prefix) ? prefix : ""); for (i = 0; i < entries; i++) { if (i > 0) len += snprintf(&buf[len], sizeof(buf) - len, ","); val = (targets[i]) ? *targets[i] : 0; len += snprintf(&buf[len], sizeof(buf) - len, "%d", val); } at_put_response(s, buf); break; default: return FALSE; } return TRUE; } /*- End of function --------------------------------------------------------*/ static int parse_hex_out(at_state_t *s, const char **t, int *target, int max_value, const char *prefix, const char *def) { char buf[100]; int val; switch (*(*t)++) { case '=': switch (**t) { case '?': /* Show possible values */ (*t)++; snprintf(buf, sizeof(buf), "%s%s", (prefix) ? prefix : "", def); at_put_response(s, buf); break; default: /* Set value */ if ((val = parse_hex_num(t, max_value)) < 0) return FALSE; if (target) *target = val; break; } break; case '?': /* Show current value */ val = (target) ? *target : 0; snprintf(buf, sizeof(buf), "%s%02X", (prefix) ? prefix : "", val); at_put_response(s, buf); break; default: return FALSE; } return TRUE; } /*- End of function --------------------------------------------------------*/ static int parse_string_list_out(at_state_t *s, const char **t, int *target, int max_value, const char *prefix, const char *def) { char buf[100]; int val; size_t len; char *tmp; switch (*(*t)++) { case '=': switch (**t) { case '?': /* Show possible values */ (*t)++; snprintf(buf, sizeof(buf), "%s%s", (prefix) ? prefix : "", def); at_put_response(s, buf); break; default: /* Set value */ if ((val = match_element(t, def)) < 0) return FALSE; if (target) *target = val; break; } break; case '?': /* Show current index value from def */ val = (target) ? *target : 0; while (val-- && (def = strchr(def, ','))) def++; if ((tmp = strchr(def, ','))) len = tmp - def; else len = strlen(def); snprintf(buf, sizeof(buf), "%s%.*s", (prefix) ? prefix : "", (int) len, def); at_put_response(s, buf); break; default: return FALSE; } return TRUE; } /*- End of function --------------------------------------------------------*/ static int parse_string_out(at_state_t *s, const char **t, char **target, const char *prefix) { char buf[100]; switch (*(*t)++) { case '=': switch (**t) { case '?': /* Show possible values */ (*t)++; snprintf(buf, sizeof(buf), "%s", (prefix) ? prefix : ""); at_put_response(s, buf); break; default: /* Set value */ if (*target) free(*target); /* If this strdup fails, it should be harmless */ *target = strdup(*t); break; } break; case '?': /* Show current index value */ at_put_response(s, (*target) ? *target : ""); break; default: return FALSE; } while (*t) t++; return TRUE; } /*- End of function --------------------------------------------------------*/ static const char *s_reg_handler(at_state_t *s, const char *t, int reg) { int val; int b; char buf[4]; /* Set or get an S register */ switch (*t++) { case '=': switch (*t) { case '?': t++; snprintf(buf, sizeof(buf), "%3.3d", 0); at_put_response(s, buf); break; default: if ((val = parse_num(&t, 255)) < 0) return NULL; s->p.s_regs[reg] = (uint8_t) val; break; } break; case '?': snprintf(buf, sizeof(buf), "%3.3d", s->p.s_regs[reg]); at_put_response(s, buf); break; case '.': if ((b = parse_num(&t, 7)) < 0) return NULL; switch (*t++) { case '=': switch (*t) { case '?': t++; at_put_numeric_response(s, 0); break; default: if ((val = parse_num(&t, 1)) < 0) return NULL; if (val) s->p.s_regs[reg] |= (1 << b); else s->p.s_regs[reg] &= ~(1 << b); break; } break; case '?': at_put_numeric_response(s, (int) ((s->p.s_regs[reg] >> b) & 1)); break; default: return NULL; } break; default: return NULL; } return t; } /*- End of function --------------------------------------------------------*/ static int process_class1_cmd(at_state_t *s, const char **t) { int val; int operation; int direction; int result; const char *allowed; direction = (*(*t + 2) == 'T'); operation = *(*t + 3); /* Step past the "+Fxx" */ *t += 4; switch (operation) { case 'S': allowed = "0-255"; break; case 'H': allowed = "3"; break; default: allowed = "24,48,72,73,74,96,97,98,121,122,145,146"; break; } val = -1; if (!parse_out(s, t, &val, 255, NULL, allowed)) return TRUE; if (val < 0) { /* It was just a query */ return TRUE; } /* All class 1 FAX commands are supposed to give an ERROR response, if the phone is on-hook. */ if (s->at_rx_mode == AT_MODE_ONHOOK_COMMAND) return FALSE; result = TRUE; if (s->class1_handler) result = s->class1_handler(s, s->class1_user_data, direction, operation, val); switch (result) { case 0: /* Inhibit an immediate response. (These commands should not be part of a multi-command entry.) */ *t = (const char *) -1; return TRUE; case -1: return FALSE; } return TRUE; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_dummy(at_state_t *s, const char *t) { /* Dummy routine to absorb delimiting characters from a command string */ return t + 1; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_A(at_state_t *s, const char *t) { /* V.250 6.3.5 - Answer (abortable) */ t += 1; if (!answer_call(s)) return NULL; return (const char *) -1; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_D(at_state_t *s, const char *t) { int ok; char *u; const char *w; char num[100 + 1]; char ch; /* V.250 6.3.1 - Dial (abortable) */ at_reset_call_info(s); s->do_hangup = FALSE; s->silent_dial = FALSE; s->command_dial = FALSE; t += 1; ok = FALSE; /* There are a numbers of options in a dial command string. Many are completely irrelevant in this application. */ w = t; u = num; for ( ; (ch = *t); t++) { if (isdigit((int) ch)) { /* V.250 6.3.1.1 Basic digit set */ *u++ = ch; } else { switch (ch) { case 'A': case 'B': case 'C': case 'D': case '*': case '#': /* V.250 6.3.1.1 Full DTMF repertoire */ if (!s->p.pulse_dial) *u++ = ch; break; case ' ': case '-': /* Ignore spaces and dashes */ /* This is not a standards based thing. It just improves compatibility with some other modems. */ break; case '+': /* V.250 6.3.1.1 International access code */ /* TODO: */ break; case ',': /* V.250 6.3.1.2 Pause */ /* Pass these through to the application to handle. */ *u++ = ch; break; case 'T': /* V.250 6.3.1.3 Tone dial */ s->p.pulse_dial = FALSE; break; case 'P': /* V.250 6.3.1.4 Pulse dial */ s->p.pulse_dial = TRUE; break; case '!': /* V.250 6.3.1.5 Hook flash, register recall */ /* TODO: */ break; case 'W': /* V.250 6.3.1.6 Wait for dial tone */ /* TODO: */ break; case '@': /* V.250 6.3.1.7 Wait for quiet answer */ s->silent_dial = TRUE; break; case 'S': /* V.250 6.3.1.8 Invoke stored string */ /* S= */ /* TODO: */ break; case 'G': case 'g': /* GSM07.07 6.2 - Control the CUG supplementary service for this call */ /* TODO: */ break; case 'I': case 'i': /* GSM07.07 6.2 - Override Calling Line Identification Restriction (CLIR) */ /* TODO: */ break; case ';': /* V.250 6.3.1 - Dial string terminator - make voice call and remain in command mode */ s->command_dial = TRUE; break; case '>': /* GSM07.07 6.2 - Direct dialling from phone book supplementary service subscription default value for this call */ /* TODO: */ break; default: return NULL; } } } *u = '\0'; if ((ok = at_modem_control(s, AT_MODEM_CONTROL_CALL, num)) < 0) return NULL; /* Dialing should now be in progress. No AT response should be issued at this point. */ return (const char *) -1; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_E(at_state_t *s, const char *t) { int val; /* V.250 6.2.4 - Command echo */ t += 1; if ((val = parse_num(&t, 1)) < 0) return NULL; s->p.echo = val; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_H(at_state_t *s, const char *t) { int val; /* V.250 6.3.6 - Hook control */ t += 1; if ((val = parse_num(&t, 1)) < 0) return NULL; if (val) { /* Take the receiver off-hook, effectively busying-out the modem. */ if (s->at_rx_mode != AT_MODE_ONHOOK_COMMAND && s->at_rx_mode != AT_MODE_OFFHOOK_COMMAND) return NULL; at_modem_control(s, AT_MODEM_CONTROL_OFFHOOK, NULL); at_set_at_rx_mode(s, AT_MODE_OFFHOOK_COMMAND); return t; } at_reset_call_info(s); if (s->at_rx_mode != AT_MODE_ONHOOK_COMMAND && s->at_rx_mode != AT_MODE_OFFHOOK_COMMAND) { /* Push out the last of the audio (probably by sending a short silence). */ at_modem_control(s, AT_MODEM_CONTROL_RESTART, (void *) FAX_MODEM_FLUSH); s->do_hangup = TRUE; at_set_at_rx_mode(s, AT_MODE_CONNECTED); return (const char *) -1; } at_modem_control(s, AT_MODEM_CONTROL_HANGUP, NULL); at_set_at_rx_mode(s, AT_MODE_ONHOOK_COMMAND); return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_I(at_state_t *s, const char *t) { int val; /* V.250 6.1.3 - Request identification information */ /* N.B. The information supplied in response to an ATIx command is very variable. It was widely used in different ways before the AT command set was standardised by the ITU. */ t += 1; switch (val = parse_num(&t, 255)) { case 0: at_put_response(s, model); break; case 3: at_put_response(s, manufacturer); break; default: return NULL; } return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_L(at_state_t *s, const char *t) { int val; /* V.250 6.3.13 - Monitor speaker loudness */ /* Just absorb this command, as we have no speaker */ t += 1; if ((val = parse_num(&t, 255)) < 0) return NULL; s->speaker_volume = val; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_M(at_state_t *s, const char *t) { int val; /* V.250 6.3.14 - Monitor speaker mode */ /* Just absorb this command, as we have no speaker */ t += 1; if ((val = parse_num(&t, 255)) < 0) return NULL; s->speaker_mode = val; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_O(at_state_t *s, const char *t) { int val; /* V.250 6.3.7 - Return to online data state */ t += 1; if ((val = parse_num(&t, 1)) < 0) return NULL; if (val == 0) { at_set_at_rx_mode(s, AT_MODE_CONNECTED); at_put_response_code(s, AT_RESPONSE_CODE_CONNECT); } return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_P(at_state_t *s, const char *t) { /* V.250 6.3.3 - Select pulse dialling (command) */ t += 1; s->p.pulse_dial = TRUE; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_Q(at_state_t *s, const char *t) { int val; /* V.250 6.2.5 - Result code suppression */ t += 1; if ((val = parse_num(&t, 1)) < 0) return NULL; switch (val) { case 0: s->p.result_code_format = (s->p.verbose) ? ASCII_RESULT_CODES : NUMERIC_RESULT_CODES; break; case 1: s->p.result_code_format = NO_RESULT_CODES; break; } return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_S0(at_state_t *s, const char *t) { /* V.250 6.3.8 - Automatic answer */ t += 2; return s_reg_handler(s, t, 0); } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_S10(at_state_t *s, const char *t) { /* V.250 6.3.12 - Automatic disconnect delay */ t += 3; return s_reg_handler(s, t, 10); } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_S3(at_state_t *s, const char *t) { /* V.250 6.2.1 - Command line termination character */ t += 2; return s_reg_handler(s, t, 3); } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_S4(at_state_t *s, const char *t) { /* V.250 6.2.2 - Response formatting character */ t += 2; return s_reg_handler(s, t, 4); } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_S5(at_state_t *s, const char *t) { /* V.250 6.2.3 - Command line editing character */ t += 2; return s_reg_handler(s, t, 5); } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_S6(at_state_t *s, const char *t) { /* V.250 6.3.9 - Pause before blind dialling */ t += 2; return s_reg_handler(s, t, 6); } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_S7(at_state_t *s, const char *t) { /* V.250 6.3.10 - Connection completion timeout */ t += 2; return s_reg_handler(s, t, 7); } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_S8(at_state_t *s, const char *t) { /* V.250 6.3.11 - Comma dial modifier time */ t += 2; return s_reg_handler(s, t, 8); } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_T(at_state_t *s, const char *t) { /* V.250 6.3.2 - Select tone dialling (command) */ t += 1; s->p.pulse_dial = FALSE; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_V(at_state_t *s, const char *t) { int val; /* V.250 6.2.6 - DCE response format */ t += 1; if ((val = parse_num(&t, 1)) < 0) return NULL; s->p.verbose = val; if (s->p.result_code_format != NO_RESULT_CODES) s->p.result_code_format = (s->p.verbose) ? ASCII_RESULT_CODES : NUMERIC_RESULT_CODES; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_X(at_state_t *s, const char *t) { int val; /* V.250 6.2.7 - Result code selection and call progress monitoring control */ /* 0 CONNECT result code is given upon entering online data state. Dial tone and busy detection are disabled. 1 CONNECT result code is given upon entering online data state. Dial tone and busy detection are disabled. 2 CONNECT result code is given upon entering online data state. Dial tone detection is enabled, and busy detection is disabled. 3 CONNECT result code is given upon entering online data state. Dial tone detection is disabled, and busy detection is enabled. 4 CONNECT result code is given upon entering online data state. Dial tone and busy detection are both enabled. */ t += 1; if ((val = parse_num(&t, 4)) < 0) return NULL; s->result_code_mode = val; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_Z(at_state_t *s, const char *t) { int val; /* V.250 6.1.1 - Reset to default configuration */ t += 1; if ((val = parse_num(&t, sizeof(profiles)/sizeof(profiles[0]) - 1)) < 0) return NULL; /* Just make sure we are on hook */ at_modem_control(s, AT_MODEM_CONTROL_HANGUP, NULL); at_set_at_rx_mode(s, AT_MODE_ONHOOK_COMMAND); s->p = profiles[val]; at_reset_call_info(s); return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_amp_C(at_state_t *s, const char *t) { int val; /* V.250 6.2.8 - Circuit 109 (received line signal detector) behaviour */ /* We have no RLSD pin, so just absorb this. */ t += 2; if ((val = parse_num(&t, 1)) < 0) return NULL; s->rlsd_behaviour = val; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_amp_D(at_state_t *s, const char *t) { int val; /* V.250 6.2.9 - Circuit 108 (data terminal ready) behaviour */ t += 2; if ((val = parse_num(&t, 2)) < 0) return NULL; /* TODO: We have no DTR pin, but we need this to get into online command state. */ s->dtr_behaviour = val; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_amp_F(at_state_t *s, const char *t) { t += 2; /* V.250 6.1.2 - Set to factory-defined configuration */ /* Just make sure we are on hook */ at_modem_control(s, AT_MODEM_CONTROL_HANGUP, NULL); at_set_at_rx_mode(s, AT_MODE_ONHOOK_COMMAND); s->p = profiles[0]; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_A8A(at_state_t *s, const char *t) { /* V.251 6.3 - V.8 calling tone indication */ return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_A8C(at_state_t *s, const char *t) { /* V.251 6.2 - V.8 answer signal indication */ return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_A8E(at_state_t *s, const char *t) { int val; /* V.251 5.1 - V.8 and V.8bis operation controls */ /* Syntax: +A8E=,,[,][,][,] */ /* =0 Disable V.8 origination negotiation =1 Enable DCE-controlled V.8 origination negotiation =2 Enable DTE-controlled V.8 origination negotiation, send V.8 CI only =3 Enable DTE-controlled V.8 origination negotiation, send 1100Hz CNG only =4 Enable DTE-controlled V.8 origination negotiation, send 1300Hz CT only =5 Enable DTE-controlled V.8 origination negotiation, send no tones =6 Enable DCE-controlled V.8 origination negotiation, issue +A8x indications =0 Disable V.8 answer negotiation =1 Enable DCE-controlled V.8 answer negotiation =2 Enable DTE-controlled V.8 answer negotiation, send ANSam =3 Enable DTE-controlled V.8 answer negotiation, send no signal =4 Disable DTE-controlled V.8 answer negotiation, send ANS =5 Enable DCE-controlled V.8 answer negotiation, issue +A8x indications =X..Y Set the V.8 CI signal call function to the hexadecimal octet value X..Y =0 Disable V.8bis negotiation =1 Enable DCE-controlled V.8bis negotiation =2 Enable DTE-controlled V.8bis negotiation ="" Set to alternative list of call function "option bit" values that the answering DCE shall accept from the caller ="" Set to alternative list of protocol "option bit" values that the answering DCE shall accept from the caller */ /* TODO: */ t += 4; if (!parse_out(s, &t, &val, 6, "+A8E:", "(0-6),(0-5),(00-FF)")) return NULL; if (*t != ',') return t; if ((val = parse_num(&t, 5)) < 0) return NULL; if (*t != ',') return t; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_A8I(at_state_t *s, const char *t) { /* V.251 6.1 - V.8 CI signal indication */ return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_A8J(at_state_t *s, const char *t) { /* V.251 6.4 - V.8 negotiation complete */ return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_A8M(at_state_t *s, const char *t) { /* V.251 5.2 - Send V.8 menu signals */ /* Syntax: +A8M= */ /* TODO: */ t += 4; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_A8R(at_state_t *s, const char *t) { /* V.251 6.6 - V.8bis signal and message reporting */ return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_A8T(at_state_t *s, const char *t) { int val; /* V.251 5.3 - Send V.8bis signal and/or message(s) */ /* Syntax: +A8T=[,<1st message>][,<2nd message>][,][,][,] */ /* =0 None =1 Initiating Mre =2 Initiating MRd =3 Initiating CRe, low power =4 Initiating CRe, high power =5 Initiating CRd =6 Initiating Esi =7 Responding MRd, low power =8 Responding MRd, high power =9 Responding CRd =10 Responding Esr */ /* TODO: */ t += 4; if (!parse_out(s, &t, &val, 10, "+A8T:", "(0-10)")) return NULL; s->v8bis_signal = val; if (*t != ',') return t; if ((val = parse_num(&t, 255)) < 0) return NULL; s->v8bis_1st_message = val; if (*t != ',') return t; if ((val = parse_num(&t, 255)) < 0) return NULL; s->v8bis_2nd_message = val; if (*t != ',') return t; if ((val = parse_num(&t, 255)) < 0) return NULL; s->v8bis_sig_en = val; if (*t != ',') return t; if ((val = parse_num(&t, 255)) < 0) return NULL; s->v8bis_msg_en = val; if (*t != ',') return t; if ((val = parse_num(&t, 255)) < 0) return NULL; s->v8bis_supp_delay = val; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_ASTO(at_state_t *s, const char *t) { /* V.250 6.3.15 - Store telephone number */ /* TODO: */ t += 5; if (!parse_out(s, &t, NULL, 1, "+ASTO:", "")) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_CAAP(at_state_t *s, const char *t) { /* 3GPP TS 27.007 7.25 - Automatic answer for eMLPP Service */ /* TODO: */ t += 5; if (!parse_2_out(s, &t, NULL, 65535, NULL, 65535, "+CAAP:", "")) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_CACM(at_state_t *s, const char *t) { /* 3GPP TS 27.007 8.25 - Accumulated call meter */ /* TODO: */ t += 5; if (!parse_out(s, &t, NULL, 1, "+CACM:", "")) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_CACSP(at_state_t *s, const char *t) { /* 3GPP TS 27.007 11.1.7 - Voice Group or Voice Broadcast Call State Attribute Presentation */ /* TODO: */ t += 6; if (!parse_out(s, &t, NULL, 1, "+CACSP:", "")) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_CAD(at_state_t *s, const char *t) { /* IS-99 5.6.3 - Query analogue or digital service */ /* TODO: */ t += 4; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_CAEMLPP(at_state_t *s, const char *t) { /* 3GPP TS 27.007 7.22 - eMLPP Priority Registration and Interrogation */ /* TODO: */ t += 8; if (!parse_out(s, &t, NULL, 1, "+CAEMLPP:", "")) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_CAHLD(at_state_t *s, const char *t) { /* 3GPP TS 27.007 11.1.3 - Leave an ongoing Voice Group or Voice Broadcast Call */ /* TODO: */ t += 6; if (!parse_out(s, &t, NULL, 1, "+CAHLD:", "")) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_CAJOIN(at_state_t *s, const char *t) { /* 3GPP TS 27.007 11.1.1 - Accept an incoming Voice Group or Voice Broadcast Call */ /* TODO: */ t += 7; if (!parse_out(s, &t, NULL, 1, "+CAJOIN:", "")) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_CALA(at_state_t *s, const char *t) { /* 3GPP TS 27.007 8.16 - Alarm */ /* TODO: */ t += 5; if (!parse_out(s, &t, NULL, 1, "+CALA:", "")) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_CALCC(at_state_t *s, const char *t) { /* 3GPP TS 27.007 11.1.6 - List current Voice Group and Voice Broadcast Calls */ /* TODO: */ t += 6; if (!parse_out(s, &t, NULL, 1, "+CALCC:", "")) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_CALD(at_state_t *s, const char *t) { /* 3GPP TS 27.007 8.38 - Delete alarm */ /* TODO: */ t += 5; if (!parse_out(s, &t, NULL, 1, "+CALD:", "")) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_CALM(at_state_t *s, const char *t) { /* 3GPP TS 27.007 8.20 - Alert sound mode */ /* TODO: */ t += 5; if (!parse_out(s, &t, NULL, 1, "+CALM:", "")) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_CAMM(at_state_t *s, const char *t) { /* 3GPP TS 27.007 8.26 - Accumulated call meter maximum */ /* TODO: */ t += 5; if (!parse_out(s, &t, NULL, 1, "+CAMM:", "")) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_CANCHEV(at_state_t *s, const char *t) { /* 3GPP TS 27.007 11.1.8 - NCH Support Indication */ /* TODO: */ t += 8; if (!parse_out(s, &t, NULL, 1, "+CANCHEV:", "")) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_CAOC(at_state_t *s, const char *t) { /* 3GPP TS 27.007 7.16 - Advice of Charge */ /* TODO: */ t += 5; if (!parse_out(s, &t, NULL, 1, "+CAOC:", "")) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_CAPD(at_state_t *s, const char *t) { /* 3GPP TS 27.007 8.39 - Postpone or dismiss an alarm */ /* TODO: */ t += 5; if (!parse_out(s, &t, NULL, 1, "+CAPD:", "")) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_CAPTT(at_state_t *s, const char *t) { /* 3GPP TS 27.007 11.1.4 - Talker Access for Voice Group Call */ /* TODO: */ t += 6; if (!parse_out(s, &t, NULL, 1, "+CAPTT:", "")) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_CAREJ(at_state_t *s, const char *t) { /* 3GPP TS 27.007 11.1.2 - Reject an incoming Voice Group or Voice Broadcast Call */ /* TODO: */ t += 6; if (!parse_out(s, &t, NULL, 1, "+CAREJ:", "")) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_CAULEV(at_state_t *s, const char *t) { /* 3GPP TS 27.007 11.1.5 - Voice Group Call Uplink Status Presentation */ /* TODO: */ t += 7; if (!parse_out(s, &t, NULL, 1, "+CAULEV:", "")) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_CBC(at_state_t *s, const char *t) { /* 3GPP TS 27.007 8.4 - Battery charge */ /* TODO: */ t += 4; if (!parse_out(s, &t, NULL, 1, "+CBC:", "")) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_CBCS(at_state_t *s, const char *t) { /* 3GPP TS 27.007 11.3.2 - VBS subscriptions and GId status */ /* TODO: */ t += 5; if (!parse_out(s, &t, NULL, 1, "+CBCS:", "")) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_CBIP(at_state_t *s, const char *t) { /* IS-99 5.6 - Base station IP address */ /* TODO: */ t += 5; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_CBST(at_state_t *s, const char *t) { /* 3GPP TS 27.007 6.7 - Select bearer service type */ /* TODO: */ t += 5; if (!parse_out(s, &t, NULL, 1, "+CBST:", "")) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_CCFC(at_state_t *s, const char *t) { /* 3GPP TS 27.007 7.11 - Call forwarding number and conditions */ /* TODO: */ t += 5; if (!parse_out(s, &t, NULL, 1, "+CCFC:", "")) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_CCLK(at_state_t *s, const char *t) { /* 3GPP TS 27.007 8.15 - Clock */ /* TODO: */ t += 5; if (!parse_out(s, &t, NULL, 1, "+CCLK:", "")) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_CCS(at_state_t *s, const char *t) { /* IS-135 4.1.22 - Compression status */ /* TODO: */ t += 4; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_CCUG(at_state_t *s, const char *t) { /* 3GPP TS 27.007 7.10 - Closed user group */ /* TODO: */ t += 5; if (!parse_out(s, &t, NULL, 1, "+CCUG:", "")) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_CCWA(at_state_t *s, const char *t) { /* 3GPP TS 27.007 7.12 - Call waiting */ /* TODO: */ t += 5; if (!parse_out(s, &t, NULL, 1, "+CCWA:", "")) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_CCWE(at_state_t *s, const char *t) { /* 3GPP TS 27.007 8.28 - Call Meter maximum event */ /* TODO: */ t += 5; if (!parse_out(s, &t, NULL, 1, "+CCWE:", "")) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_CDIP(at_state_t *s, const char *t) { /* 3GPP TS 27.007 7.9 - Called line identification presentation */ /* TODO: */ t += 5; if (!parse_out(s, &t, NULL, 1, "+CDIP:", "")) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_CDIS(at_state_t *s, const char *t) { /* 3GPP TS 27.007 8.8 - Display control */ /* TODO: */ t += 5; if (!parse_out(s, &t, NULL, 1, "+CDIS:", "")) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_CDV(at_state_t *s, const char *t) { /* IS-99 5.6 - Dial command for voice call */ /* TODO: */ t += 4; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_CEER(at_state_t *s, const char *t) { /* 3GPP TS 27.007 6.10 - Extended error report */ /* TODO: */ t += 5; if (!parse_out(s, &t, NULL, 1, "+CEER:", "")) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_CESP(at_state_t *s, const char *t) { /* GSM07.05 3.2.4 - Enter SMS block mode protocol */ /* TODO: */ t += 5; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_CFCS(at_state_t *s, const char *t) { /* 3GPP TS 27.007 7.24 - Fast call setup conditions */ /* TODO: */ t += 5; if (!parse_out(s, &t, NULL, 1, "+CFCS:", "")) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_CFG(at_state_t *s, const char *t) { /* IS-99 5.6 - Configuration string */ /* TODO: */ t += 4; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_CFUN(at_state_t *s, const char *t) { /* 3GPP TS 27.007 8.2 - Set phone functionality */ /* TODO: */ t += 5; if (!parse_out(s, &t, NULL, 1, "+CFUN:", "")) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_CGACT(at_state_t *s, const char *t) { /* 3GPP TS 27.007 10.1.10 - PDP context activate or deactivate */ /* TODO: */ t += 6; if (!parse_out(s, &t, NULL, 1, "+CGACT:", "")) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_CGANS(at_state_t *s, const char *t) { /* 3GPP TS 27.007 10.1.16 - Manual response to a network request for PDP context activation */ /* TODO: */ t += 6; if (!parse_out(s, &t, NULL, 1, "+CGANS:", "")) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_CGATT(at_state_t *s, const char *t) { /* 3GPP TS 27.007 10.1.9 - PS attach or detach */ /* TODO: */ t += 6; if (!parse_out(s, &t, NULL, 1, "+CGATT:", "")) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_CGAUTO(at_state_t *s, const char *t) { /* 3GPP TS 27.007 10.1.15 - Automatic response to a network request for PDP context activation */ /* TODO: */ t += 7; if (!parse_out(s, &t, NULL, 1, "+CGAUTO:", "")) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_CGCAP(at_state_t *s, const char *t) { /* IS-99 5.6 - Request complete capabilities list */ /* TODO: */ t += 6; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_CGCLASS(at_state_t *s, const char *t) { /* 3GPP TS 27.007 10.1.17 - GPRS mobile station class (GPRS only) */ /* TODO: */ t += 8; if (!parse_out(s, &t, NULL, 1, "+CGCLASS:", "")) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_CGCLOSP(at_state_t *s, const char *t) { /* 3GPP TS 27.007 10.1.13 - Configure local Octet Stream PAD parameters (Obsolete) */ /* TODO: */ t += 8; if (!parse_out(s, &t, NULL, 1, "+CGCLOSP:", "")) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_CGCLPAD(at_state_t *s, const char *t) { /* 3GPP TS 27.007 10.1.12 - Configure local triple-X PAD parameters (GPRS only) (Obsolete) */ /* TODO: */ t += 8; if (!parse_out(s, &t, NULL, 1, "+CGCLPAD:", "")) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_CGCMOD(at_state_t *s, const char *t) { /* 3GPP TS 27.007 10.1.11 - PDP Context Modify */ /* TODO: */ t += 7; if (!parse_out(s, &t, NULL, 1, "+CGCMOD:", "")) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_CGCS(at_state_t *s, const char *t) { /* 3GPP TS 27.007 11.3.1 - VGCS subscriptions and GId status */ /* TODO: */ t += 5; if (!parse_out(s, &t, NULL, 1, "+CGCS:", "")) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_CGDATA(at_state_t *s, const char *t) { /* 3GPP TS 27.007 10.1.12 - Enter data state */ /* TODO: */ t += 7; if (!parse_out(s, &t, NULL, 1, "+CGDATA:", "")) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_CGDCONT(at_state_t *s, const char *t) { /* 3GPP TS 27.007 10.1.1 - Define PDP Context */ /* TODO: */ t += 8; if (!parse_out(s, &t, NULL, 1, "+CGDCONT:", "")) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_CGDSCONT(at_state_t *s, const char *t) { /* 3GPP TS 27.007 10.1.2 - Define Secondary PDP Context */ /* TODO: */ t += 9; if (!parse_out(s, &t, NULL, 1, "+CGDSCONT:", "")) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_CGEQMIN(at_state_t *s, const char *t) { /* 3GPP TS 27.007 10.1.7 - 3G Quality of Service Profile (Minimum acceptable) */ /* TODO: */ t += 8; if (!parse_out(s, &t, NULL, 1, "+CGEQMIN:", "")) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_CGEQNEG(at_state_t *s, const char *t) { /* 3GPP TS 27.007 10.1.8 - 3G Quality of Service Profile (Negotiated) */ /* TODO: */ t += 8; if (!parse_out(s, &t, NULL, 1, "+CGEQNEG:", "")) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_CGEQREQ(at_state_t *s, const char *t) { /* 3GPP TS 27.007 10.1.6 - 3G Quality of Service Profile (Requested) */ /* TODO: */ t += 8; if (!parse_out(s, &t, NULL, 1, "+CGEQREQ:", "")) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_CGEREP(at_state_t *s, const char *t) { /* 3GPP TS 27.007 10.1.18 - Packet Domain event reporting */ /* TODO: */ t += 7; if (!parse_out(s, &t, NULL, 1, "+CGEREP:", "")) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_CGMI(at_state_t *s, const char *t) { /* 3GPP TS 27.007 5.1 - Request manufacturer identification */ /* TODO: */ t += 5; if (!parse_out(s, &t, NULL, 1, "+CGMI:", "")) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_CGMM(at_state_t *s, const char *t) { /* 3GPP TS 27.007 5.2 - Request model identification */ /* TODO: */ t += 5; if (!parse_out(s, &t, NULL, 1, "+CGMM:", "")) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_CGMR(at_state_t *s, const char *t) { /* 3GPP TS 27.007 5.3 - Request revision identification */ /* TODO: */ t += 5; if (!parse_out(s, &t, NULL, 1, "+CGMR:", "")) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_CGOI(at_state_t *s, const char *t) { /* IS-99 5.6 - Request global object identification */ /* TODO: */ t += 5; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_CGPADDR(at_state_t *s, const char *t) { /* 3GPP TS 27.007 10.1.14 - Show PDP address */ /* TODO: */ t += 8; if (!parse_out(s, &t, NULL, 1, "+CGPADDR:", "")) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_CGQMIN(at_state_t *s, const char *t) { /* 3GPP TS 27.007 10.1.5 - Quality of Service Profile (Minimum acceptable) */ /* TODO: */ t += 7; if (!parse_out(s, &t, NULL, 1, "+CGQMIN:", "")) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_CGQREQ(at_state_t *s, const char *t) { /* 3GPP TS 27.007 10.1.4 - Quality of Service Profile (Requested) */ /* TODO: */ t += 7; if (!parse_out(s, &t, NULL, 1, "+CGQREQ:", "")) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_CGREG(at_state_t *s, const char *t) { /* 3GPP TS 27.007 10.1.19 - GPRS network registration status */ /* TODO: */ t += 6; if (!parse_out(s, &t, NULL, 1, "+CGREG:", "")) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_CGSMS(at_state_t *s, const char *t) { /* 3GPP TS 27.007 10.1.20 - Select service for MO SMS messages */ /* TODO: */ t += 6; if (!parse_out(s, &t, NULL, 1, "+CGSMS:", "")) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_CGSN(at_state_t *s, const char *t) { /* 3GPP TS 27.007 5.4 - Request product serial number identification */ /* TODO: */ t += 5; if (!parse_out(s, &t, NULL, 1, "+CGSN:", "")) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_CGTFT(at_state_t *s, const char *t) { /* 3GPP TS 27.007 10.1.3 - Traffic Flow Template */ /* TODO: */ t += 6; if (!parse_out(s, &t, NULL, 1, "+CGTFT:", "")) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_CHLD(at_state_t *s, const char *t) { /* 3GPP TS 27.007 7.13 - Call related supplementary services */ /* TODO: */ t += 5; if (!parse_out(s, &t, NULL, 1, "+CHLD:", "")) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_CHSA(at_state_t *s, const char *t) { /* 3GPP TS 27.007 6.18 - HSCSD non-transparent asymmetry configuration */ /* TODO: */ t += 5; if (!parse_out(s, &t, NULL, 1, "+CHSA:", "")) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_CHSC(at_state_t *s, const char *t) { /* 3GPP TS 27.007 6.15 - HSCSD current call parameters */ /* TODO: */ t += 5; if (!parse_out(s, &t, NULL, 1, "+CHSC:", "")) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_CHSD(at_state_t *s, const char *t) { /* 3GPP TS 27.007 6.12 - HSCSD device parameters */ /* TODO: */ t += 5; if (!parse_out(s, &t, NULL, 1, "+CHSD:", "")) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_CHSN(at_state_t *s, const char *t) { /* 3GPP TS 27.007 6.14 - HSCSD non-transparent call configuration */ /* TODO: */ t += 5; if (!parse_out(s, &t, NULL, 1, "+CHSN:", "")) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_CHSR(at_state_t *s, const char *t) { /* 3GPP TS 27.007 6.16 - HSCSD parameters report */ /* TODO: */ t += 5; if (!parse_out(s, &t, NULL, 1, "+CHSR:", "")) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_CHST(at_state_t *s, const char *t) { /* 3GPP TS 27.007 6.13 - HSCSD transparent call configuration */ /* TODO: */ t += 5; if (!parse_out(s, &t, NULL, 1, "+CHST:", "")) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_CHSU(at_state_t *s, const char *t) { /* 3GPP TS 27.007 6.17 - HSCSD automatic user initiated upgrading */ /* TODO: */ t += 5; if (!parse_out(s, &t, NULL, 1, "+CHSU:", "")) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_CHUP(at_state_t *s, const char *t) { /* 3GPP TS 27.007 6.5 - Hangup call */ /* TODO: */ t += 5; if (!parse_out(s, &t, NULL, 1, "+CHUP:", "")) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_CHV(at_state_t *s, const char *t) { /* IS-99 5.6 - Hang-up voice */ /* TODO: */ t += 4; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_CIMI(at_state_t *s, const char *t) { /* 3GPP TS 27.007 5.6 - Request international mobile subscriber identity */ /* TODO: */ t += 5; if (!parse_out(s, &t, NULL, 1, "+CIMI:", "")) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_CIND(at_state_t *s, const char *t) { /* 3GPP TS 27.007 8.9 - Indicator control */ /* TODO: */ t += 5; if (!parse_out(s, &t, NULL, 1, "+CIND:", "")) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_CIT(at_state_t *s, const char *t) { /* IS-99 5.6 - Command state inactivity timer */ /* TODO: */ t += 4; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_CKPD(at_state_t *s, const char *t) { /* 3GPP TS 27.007 8.7 - Keypad control */ /* TODO: */ t += 5; if (!parse_out(s, &t, NULL, 1, "+CKPD:", "")) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_CLAC(at_state_t *s, const char *t) { /* 3GPP TS 27.007 8.37 - List all available AT commands */ /* TODO: */ t += 5; if (!parse_out(s, &t, NULL, 1, "+CLAC:", "")) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_CLAE(at_state_t *s, const char *t) { /* 3GPP TS 27.007 8.31 - Language Event */ /* TODO: */ t += 5; if (!parse_out(s, &t, NULL, 1, "+CLAE:", "")) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_CLAN(at_state_t *s, const char *t) { /* 3GPP TS 27.007 8.30 - Set Language */ /* TODO: */ t += 5; if (!parse_out(s, &t, NULL, 1, "+CLAN:", "")) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_CLCC(at_state_t *s, const char *t) { /* 3GPP TS 27.007 7.18 - List current calls */ /* TODO: */ t += 5; if (!parse_out(s, &t, NULL, 1, "+CLCC:", "")) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_CLCK(at_state_t *s, const char *t) { /* 3GPP TS 27.007 7.4 - Facility lock */ /* TODO: */ t += 5; if (!parse_out(s, &t, NULL, 1, "+CLCK:", "")) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_CLIP(at_state_t *s, const char *t) { /* 3GPP TS 27.007 7.6 - Calling line identification presentation */ /* TODO: */ t += 5; if (!parse_out(s, &t, NULL, 1, "+CLIP:", "")) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_CLIR(at_state_t *s, const char *t) { /* 3GPP TS 27.007 7.7 - Calling line identification restriction */ /* TODO: */ t += 5; if (!parse_out(s, &t, NULL, 1, "+CLIR:", "")) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_CLVL(at_state_t *s, const char *t) { /* 3GPP TS 27.007 8.23 - Loudspeaker volume level */ /* TODO: */ t += 5; if (!parse_out(s, &t, NULL, 1, "+CLVL:", "")) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_CMAR(at_state_t *s, const char *t) { /* 3GPP TS 27.007 8.36 - Master Reset */ /* TODO: */ t += 5; if (!parse_out(s, &t, NULL, 1, "+CMAR:", "")) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_CMEC(at_state_t *s, const char *t) { /* 3GPP TS 27.007 8.6 - Mobile Termination control mode */ /* TODO: */ t += 5; if (!parse_out(s, &t, NULL, 1, "+CMEC:", "")) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_CMEE(at_state_t *s, const char *t) { /* GSM07.07 9.1 - Report mobile equipment error */ /* TODO: */ t += 5; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_CMER(at_state_t *s, const char *t) { /* 3GPP TS 27.007 8.10 - Mobile Termination event reporting */ /* TODO: */ t += 5; if (!parse_out(s, &t, NULL, 1, "+CMER:", "")) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_CMGC(at_state_t *s, const char *t) { /* GSM07.05 3.5.5/4.5 - Send command */ /* TODO: */ t += 5; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_CMGD(at_state_t *s, const char *t) { /* GSM07.05 3.5.4 - Delete message */ /* TODO: */ t += 5; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_CMGF(at_state_t *s, const char *t) { /* GSM07.05 3.2.3 - Message Format */ /* TODO: */ t += 5; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_CMGL(at_state_t *s, const char *t) { /* GSM07.05 3.4.2/4.1 - List messages */ /* TODO: */ t += 5; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_CMGR(at_state_t *s, const char *t) { /* GSM07.05 3.4.3/4.2 - Read message */ /* TODO: */ t += 5; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_CMGS(at_state_t *s, const char *t) { /* GSM07.05 3.5.1/4.3 - Send message */ /* TODO: */ t += 5; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_CMGW(at_state_t *s, const char *t) { /* GSM07.05 3.5.3/4.4 - Write message to memory */ /* TODO: */ t += 5; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_CMIP(at_state_t *s, const char *t) { /* IS-99 5.6 - Mobile station IP address */ /* TODO: */ t += 5; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_CMM(at_state_t *s, const char *t) { /* IS-135 4.1.23 - Menu map */ /* TODO: */ t += 4; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_CMMS(at_state_t *s, const char *t) { /* GSM07.05 3.5.6 - More messages to send */ /* TODO: */ t += 5; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_CMOD(at_state_t *s, const char *t) { /* 3GPP TS 27.007 6.4 - Call mode */ /* TODO: */ t += 5; if (!parse_out(s, &t, NULL, 1, "+CMOD:", "")) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_CMSS(at_state_t *s, const char *t) { /* GSM07.05 3.5.2/4.7 - Send message from storage */ /* TODO: */ t += 5; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_CMUT(at_state_t *s, const char *t) { /* 3GPP TS 27.007 8.24 - Mute control */ /* TODO: */ t += 5; if (!parse_out(s, &t, NULL, 1, "+CMUT:", "")) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_CNMA(at_state_t *s, const char *t) { /* GSM07.05 3.4.4/4.6 - New message acknowledgement to terminal adapter */ /* TODO: */ t += 5; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_CNMI(at_state_t *s, const char *t) { /* GSM07.05 3.4.1 - New message indications to terminal equipment */ /* TODO: */ t += 5; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_CMUX(at_state_t *s, const char *t) { /* 3GPP TS 27.007 5.7 - Multiplexing mode */ /* TODO: */ t += 5; if (!parse_out(s, &t, NULL, 1, "+CMUX:", "")) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_CNUM(at_state_t *s, const char *t) { /* 3GPP TS 27.007 7.1 - Subscriber number */ /* TODO: */ t += 5; if (!parse_out(s, &t, NULL, 1, "+CNUM:", "")) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_COLP(at_state_t *s, const char *t) { /* 3GPP TS 27.007 7.8 - Connected line identification presentation */ /* TODO: */ t += 5; if (!parse_out(s, &t, NULL, 1, "+COLP:", "")) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_COPN(at_state_t *s, const char *t) { /* 3GPP TS 27.007 7.21 - Read operator names */ /* TODO: */ t += 5; if (!parse_out(s, &t, NULL, 1, "+COPN:", "")) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_COPS(at_state_t *s, const char *t) { /* 3GPP TS 27.007 7.3 - PLMN selection */ /* TODO: */ t += 5; if (!parse_out(s, &t, NULL, 1, "+COPS:", "")) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_COS(at_state_t *s, const char *t) { /* IS-135 4.1.24 - Originating service */ /* TODO: */ t += 4; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_COTDI(at_state_t *s, const char *t) { /* 3GPP TS 27.007 11.1.9 - Originator to Dispatcher Information */ /* TODO: */ t += 6; if (!parse_out(s, &t, NULL, 1, "+COTDI:", "")) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_CPAS(at_state_t *s, const char *t) { /* 3GPP TS 27.007 8.1 - Phone activity status */ /* TODO: */ t += 5; if (!parse_out(s, &t, NULL, 1, "+CPAS:", "")) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_CPBF(at_state_t *s, const char *t) { /* 3GPP TS 27.007 8.13 - Find phonebook entries */ /* TODO: */ t += 5; if (!parse_out(s, &t, NULL, 1, "+CPBF:", "")) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_CPBR(at_state_t *s, const char *t) { /* 3GPP TS 27.007 8.12 - Read phonebook entries */ /* TODO: */ t += 5; if (!parse_out(s, &t, NULL, 1, "+CPBR:", "")) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_CPBS(at_state_t *s, const char *t) { /* 3GPP TS 27.007 8.11 - Select phonebook memory storage */ /* TODO: */ t += 5; if (!parse_out(s, &t, NULL, 1, "+CPBS:", "")) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_CPBW(at_state_t *s, const char *t) { /* 3GPP TS 27.007 8.14 - Write phonebook entry */ /* TODO: */ t += 5; if (!parse_out(s, &t, NULL, 1, "+CPBW:", "")) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_CPIN(at_state_t *s, const char *t) { /* 3GPP TS 27.007 8.3 - Enter PIN */ /* TODO: */ t += 5; if (!parse_out(s, &t, NULL, 1, "+CPIN:", "")) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_CPLS(at_state_t *s, const char *t) { /* 3GPP TS 27.007 7.20 - Selection of preferred PLMN list */ /* TODO: */ t += 5; if (!parse_out(s, &t, NULL, 1, "+CPLS:", "")) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_CPMS(at_state_t *s, const char *t) { /* GSM07.05 3.2.2 - Preferred message storage */ /* TODO: */ t += 5; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_CPOL(at_state_t *s, const char *t) { /* 3GPP TS 27.007 7.19 - Preferred PLMN list */ /* TODO: */ t += 5; if (!parse_out(s, &t, NULL, 1, "+CPOL:", "")) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_CPPS(at_state_t *s, const char *t) { /* 3GPP TS 27.007 7.23 - eMLPP subscriptions */ /* TODO: */ t += 5; if (!parse_out(s, &t, NULL, 1, "+CPPS:", "")) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_CPROT(at_state_t *s, const char *t) { /* 3GPP TS 27.007 8.42 - Enter protocol mode */ /* TODO: */ t += 6; if (!parse_out(s, &t, NULL, 1, "+CPROT:", "")) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_CPUC(at_state_t *s, const char *t) { /* 3GPP TS 27.007 8.27 - Price per unit and currency table */ /* TODO: */ t += 5; if (!parse_out(s, &t, NULL, 1, "+CPUC:", "")) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_CPWC(at_state_t *s, const char *t) { /* 3GPP TS 27.007 8.29 - Power class */ /* TODO: */ t += 5; if (!parse_out(s, &t, NULL, 1, "+CPWC:", "")) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_CPWD(at_state_t *s, const char *t) { /* 3GPP TS 27.007 7.5 - Change password */ /* TODO: */ t += 5; if (!parse_out(s, &t, NULL, 1, "+CPWD:", "")) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_CQD(at_state_t *s, const char *t) { /* IS-135 4.1.25 - Query disconnect timer */ /* TODO: */ t += 4; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_CR(at_state_t *s, const char *t) { /* 3GPP TS 27.007 6.9 - Service reporting control */ /* TODO: */ t += 3; if (!parse_out(s, &t, NULL, 1, "+CR:", "")) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_CRC(at_state_t *s, const char *t) { /* 3GPP TS 27.007 6.11 - Cellular result codes */ /* TODO: */ t += 4; if (!parse_out(s, &t, NULL, 1, "+CRC:", "")) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_CREG(at_state_t *s, const char *t) { /* 3GPP TS 27.007 7.2 - Network registration */ /* TODO: */ t += 5; if (!parse_out(s, &t, NULL, 1, "+CREG:", "")) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_CRES(at_state_t *s, const char *t) { /* GSM07.05 3.3.6 - Restore Settings */ /* TODO: */ t += 5; if (!parse_out(s, &t, NULL, 1, "+CRLP:", "")) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_CRLP(at_state_t *s, const char *t) { /* 3GPP TS 27.007 6.8 - Radio link protocol */ /* TODO: */ t += 5; if (!parse_out(s, &t, NULL, 1, "+CRLP:", "")) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_CRM(at_state_t *s, const char *t) { /* IS-99 5.6 - Set rm interface protocol */ /* TODO: */ t += 4; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_CRMC(at_state_t *s, const char *t) { /* 3GPP TS 27.007 8.34 - Ring Melody Control */ /* TODO: */ t += 5; if (!parse_out(s, &t, NULL, 1, "+CRMC:", "")) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_CRMP(at_state_t *s, const char *t) { /* 3GPP TS 27.007 8.35 - Ring Melody Playback */ /* TODO: */ t += 5; if (!parse_out(s, &t, NULL, 1, "+CRMP:", "")) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_CRSL(at_state_t *s, const char *t) { /* 3GPP TS 27.007 8.21 - Ringer sound level */ /* TODO: */ t += 5; if (!parse_out(s, &t, NULL, 1, "+CRSL:", "")) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_CRSM(at_state_t *s, const char *t) { /* 3GPP TS 27.007 8.18 - Restricted SIM access */ /* TODO: */ t += 5; if (!parse_out(s, &t, NULL, 1, "+CRSM:", "")) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_CSAS(at_state_t *s, const char *t) { /* GSM07.05 3.3.5 - Save settings */ /* TODO: */ t += 5; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_CSCA(at_state_t *s, const char *t) { /* GSM07.05 3.3.1 - Service centre address */ /* TODO: */ t += 5; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_CSCB(at_state_t *s, const char *t) { /* GSM07.05 3.3.4 - Select cell broadcast message types */ /* TODO: */ t += 5; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_CSCC(at_state_t *s, const char *t) { /* 3GPP TS 27.007 8.19 - Secure control command */ /* TODO: */ t += 5; if (!parse_out(s, &t, NULL, 1, "+CSCC:", "")) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_CSCS(at_state_t *s, const char *t) { /* 3GPP TS 27.007 5.5 - Select TE character set */ /* TODO: */ t += 5; if (!parse_out(s, &t, NULL, 1, "+CSCS:", "")) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_CSDF(at_state_t *s, const char *t) { /* 3GPP TS 27.007 6.22 - Settings date format */ /* TODO: */ t += 5; if (!parse_out(s, &t, NULL, 1, "+CSDF:", "")) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_CSDH(at_state_t *s, const char *t) { /* GSM07.05 3.3.3 - Show text mode parameters */ /* TODO: */ t += 5; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_CSGT(at_state_t *s, const char *t) { /* 3GPP TS 27.007 8.32 - Set Greeting Text */ /* TODO: */ t += 5; if (!parse_out(s, &t, NULL, 1, "+CSGT:", "")) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_CSIL(at_state_t *s, const char *t) { /* 3GPP TS 27.007 6.23 - Silence Command */ /* TODO: */ t += 5; if (!parse_out(s, &t, NULL, 1, "+CSIL:", "")) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_CSIM(at_state_t *s, const char *t) { /* 3GPP TS 27.007 8.17 - Generic SIM access */ /* TODO: */ t += 5; if (!parse_out(s, &t, NULL, 1, "+CSIM:", "")) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_CSMP(at_state_t *s, const char *t) { /* GSM07.05 3.3.2 - Set text mode parameters */ /* TODO: */ t += 5; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_CSMS(at_state_t *s, const char *t) { /* GSM07.05 3.2.1 - Select Message Service */ /* TODO: */ t += 5; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_CSNS(at_state_t *s, const char *t) { /* 3GPP TS 27.007 6.19 - Single numbering scheme */ /* TODO: */ t += 5; if (!parse_out(s, &t, NULL, 1, "+CSNS:", "")) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_CSQ(at_state_t *s, const char *t) { /* 3GPP TS 27.007 8.5 - Signal quality */ /* TODO: */ t += 4; if (!parse_out(s, &t, NULL, 1, "+CSQ:", "")) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_CSS(at_state_t *s, const char *t) { /* IS-135 4.1.28 - Serving system identification */ /* TODO: */ t += 4; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_CSSN(at_state_t *s, const char *t) { /* 3GPP TS 27.007 7.17 - Supplementary service notifications */ /* TODO: */ t += 5; if (!parse_out(s, &t, NULL, 1, "+CSSN:", "")) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_CSTA(at_state_t *s, const char *t) { /* 3GPP TS 27.007 6.1 - Select type of address */ /* TODO: */ t += 5; if (!parse_out(s, &t, NULL, 1, "+CSTA:", "")) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_CSTF(at_state_t *s, const char *t) { /* 3GPP TS 27.007 6.24 - Settings time format */ /* TODO: */ t += 5; if (!parse_out(s, &t, NULL, 1, "+CSTF:", "")) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_CSVM(at_state_t *s, const char *t) { /* 3GPP TS 27.007 8.33 - Set Voice Mail Number */ /* TODO: */ t += 5; if (!parse_out(s, &t, NULL, 1, "+CSVM:", "")) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_CTA(at_state_t *s, const char *t) { /* IS-135 4.1.29 - MT-Terminated async. Data calls */ /* TODO: */ t += 4; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_CTF(at_state_t *s, const char *t) { /* IS-135 4.1.30 - MT-Terminated FAX calls */ /* TODO: */ t += 4; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_CTFR(at_state_t *s, const char *t) { /* 3GPP TS 27.007 7.14 - Call deflection */ /* TODO: */ t += 5; if (!parse_out(s, &t, NULL, 1, "+CTFR:", "")) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_CTZR(at_state_t *s, const char *t) { /* 3GPP TS 27.007 8.41 - Time Zone Reporting */ /* TODO: */ t += 5; if (!parse_out(s, &t, NULL, 1, "+CTZR:", "")) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_CTZU(at_state_t *s, const char *t) { /* 3GPP TS 27.007 8.40 - Automatic Time Zone Update */ /* TODO: */ t += 5; if (!parse_out(s, &t, NULL, 1, "+CTZU:", "")) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_CUSD(at_state_t *s, const char *t) { /* 3GPP TS 27.007 7.15 - Unstructured supplementary service data */ /* TODO: */ t += 5; if (!parse_out(s, &t, NULL, 1, "+CUSD:", "")) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_CUUS1(at_state_t *s, const char *t) { /* 3GPP TS 27.007 7.26 - User to User Signalling Service 1 */ /* TODO: */ t += 6; if (!parse_out(s, &t, NULL, 1, "+CUUS1:", "")) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_CV120(at_state_t *s, const char *t) { /* 3GPP TS 27.007 6.21 - V.120 rate adaption protocol */ /* TODO: */ t += 6; if (!parse_out(s, &t, NULL, 1, "+CV120:", "")) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_CVHU(at_state_t *s, const char *t) { /* 3GPP TS 27.007 6.20 - Voice Hangup Control */ /* TODO: */ t += 5; if (!parse_out(s, &t, NULL, 1, "+CVHU:", "")) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_CVIB(at_state_t *s, const char *t) { /* 3GPP TS 27.007 8.22 - Vibrator mode */ /* TODO: */ t += 5; if (!parse_out(s, &t, NULL, 1, "+CVIB:", "")) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_CXT(at_state_t *s, const char *t) { /* IS-99 5.6 - Cellular extension */ /* TODO: */ t += 4; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_DR(at_state_t *s, const char *t) { /* V.250 6.6.2 - Data compression reporting */ /* TODO: */ t += 3; if (!parse_out(s, &t, NULL, 1, "+DR:", "")) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_DS(at_state_t *s, const char *t) { /* V.250 6.6.1 - Data compression */ /* TODO: */ t += 3; if (!parse_out(s, &t, NULL, 1, "+DS:", "")) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_DS44(at_state_t *s, const char *t) { /* V.250 6.6.2 - V.44 data compression */ /* TODO: */ t += 5; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_EB(at_state_t *s, const char *t) { /* V.250 6.5.2 - Break handling in error control operation */ /* TODO: */ t += 3; if (!parse_out(s, &t, NULL, 1, "+EB:", "")) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_EFCS(at_state_t *s, const char *t) { /* V.250 6.5.4 - 32-bit frame check sequence */ /* TODO: */ t += 5; if (!parse_out(s, &t, NULL, 2, "+EFCS:", "(0-2)")) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_EFRAM(at_state_t *s, const char *t) { /* V.250 6.5.8 - Frame length */ /* TODO: */ t += 6; if (!parse_2_out(s, &t, NULL, 65535, NULL, 65535, "+EFRAM:", "(1-65535),(1-65535)")) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_ER(at_state_t *s, const char *t) { /* V.250 6.5.5 - Error control reporting */ /* 0 Error control reporting disabled (no +ER intermediate result code transmitted) 1 Error control reporting enabled (+ER intermediate result code transmitted) */ /* TODO: */ t += 3; if (!parse_out(s, &t, NULL, 1, "+ER:", "(0,1)")) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_ES(at_state_t *s, const char *t) { static const int maxes[3] = { 7, 4, 9 }; int *locations[3]; /* V.250 6.5.1 - Error control selection */ /* orig_rqst 0: Direct mode 1: Initiate call with Buffered mode only 2: Initiate V.42 without Detection Phase. If Rec. V.8 is in use, this is a request to disable V.42 Detection Phase 3: Initiate V.42 with Detection Phase 4: Initiate Altemative Protocol 5: Initiate Synchronous Mode when connection is completed, immediately after the entire CONNECT result code is delivered. V.24 circuits 113 and 115 are activated when Data State is entered 6: Initiate Synchronous Access Mode when connection is completed, and Data State is entered 7: Initiate Frame Tunnelling Mode when connection is completed, and Data State is entered orig_fbk 0: Error control optional (either LAPM or Alternative acceptable); if error control not established, maintain DTE-DCE data rate and use V.14 buffered mode with flow control during non-error-control operation 1: Error control optional (either LAPM or Alternative acceptable); if error control not established, change DTE-DCE data rate to match line rate and use Direct mode 2: Error control required (either LAPM or Alternative acceptable); if error control not established, disconnect 3: Error control required (only LAPM acceptable); if error control not established, disconnect 4: Error control required (only Altemative protocol acceptable); if error control not established, disconnect ans_fbk 0: Direct mode 1: Error control disabled, use Buffered mode 2: Error control optional (either LAPM or Alternative acceptable); if error control not established, maintain DTE-DCE data rate and use local buffering and flow control during non-error-control operation 3: Error control optional (either LAPM or Alternative acceptable); if error control not established, change DTE-DCE data rate to match line rate and use Direct mode 4: Error control required (either LAPM or Alternative acceptable); if error control not established, disconnect 5: Error control required (only LAPM acceptable); if error control not established, disconnect 6: Error control required (only Alternative protocol acceptable); if error control not established, disconnect 7: Initiate Synchronous Mode when connection is completed, immediately after the entire CONNECT result code is delivered. V.24 cicuits 113 and 115 are activated when Data State is entered 8: Initiate Synchronous Access Mode when connection is completed, and Data State is entered 9: Initiate Frame Tunnelling Mode when connection is completed, and Data State is entered */ /* TODO: */ t += 3; locations[0] = NULL; locations[1] = NULL; locations[2] = NULL; if (!parse_n_out(s, &t, locations, maxes, 3, "+ES:", "(0-7),(0-4),(0-9)")) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_ESA(at_state_t *s, const char *t) { static const int maxes[8] = { 2, 1, 1, 1, 2, 1, 255, 255 }; int *locations[8]; int i; /* V.80 8.2 - Synchronous access mode configuration */ /* TODO: */ t += 4; for (i = 0; i < 8; i++) locations[i] = NULL; if (!parse_n_out(s, &t, locations, maxes, 8, "+ESA:", "(0-2),(0-1),(0-1),(0-1),(0-2),(0-1),(0-255),(0-255)")) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_ESR(at_state_t *s, const char *t) { /* V.250 6.5.3 - Selective repeat */ /* TODO: */ t += 4; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_ETBM(at_state_t *s, const char *t) { /* V.250 6.5.6 - Call termination buffer management */ /* TODO: */ t += 5; if (!parse_2_out(s, &t, NULL, 2, NULL, 2, "+ETBM:", "(0-2),(0-2),(0-30)")) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_EWIND(at_state_t *s, const char *t) { /* V.250 6.5.7 - Window size */ /* TODO: */ t += 6; if (!parse_2_out(s, &t, &s->rx_window, 127, &s->tx_window, 127, "+EWIND:", "(1-127),(1-127)")) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_F34(at_state_t *s, const char *t) { static const int maxes[5] = { 14, 14, 2, 14, 14 }; int *locations[5]; int i; /* T.31 B.6.1 - Initial V.34 rate controls for FAX */ /* Syntax: +F34=[][,[][,][,][,p.adaptive_receive, 1, NULL, "0,1")) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_FBO(at_state_t *s, const char *t) { /* T.32 8.5.3.4 - Phase C data bit order */ /* TODO */ t += 4; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_FBS(at_state_t *s, const char *t) { /* T.32 8.5.3.2 - Buffer Size, read only parameter */ /* TODO */ t += 4; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_FBU(at_state_t *s, const char *t) { /* T.32 8.5.1.10 - HDLC Frame Reporting parameter */ /* TODO */ t += 4; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_FCC(at_state_t *s, const char *t) { /* T.32 8.5.1.1 - DCE capabilities parameters */ /* TODO */ t += 4; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_FCL(at_state_t *s, const char *t) { /* T.31 8.5.2 - Carrier loss timeout */ t += 4; if (!parse_out(s, &t, &s->carrier_loss_timeout, 255, NULL, "(0-255)")) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_FCLASS(at_state_t *s, const char *t) { /* T.31 8.2 - Capabilities identification and control */ t += 7; /* T.31 says the reply string should be "0,1.0", however making it "0,1,1.0" makes things compatible with a lot more software that may be expecting a pre-T.31 modem. */ if (!parse_string_list_out(s, &t, &s->fclass_mode, 1, NULL, "0,1,1.0")) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_FCQ(at_state_t *s, const char *t) { /* T.32 8.5.2.3 - Copy quality checking parameter */ /* TODO */ t += 4; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_FCR(at_state_t *s, const char *t) { /* T.32 8.5.1.9 - Capability to receive parameter */ /* TODO */ t += 4; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_FCS(at_state_t *s, const char *t) { /* T.32 8.5.1.3 - Current Session Results parameters */ /* TODO */ t += 4; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_FCT(at_state_t *s, const char *t) { /* T.32 8.5.2.6 - DTE phase C timeout parameter */ /* TODO */ t += 4; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_FDD(at_state_t *s, const char *t) { /* T.31 8.5.3 - Double escape character replacement */ t += 4; if (!parse_out(s, &t, &s->p.double_escape, 1, NULL, "(0,1)")) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_FDR(at_state_t *s, const char *t) { /* T.32 8.3.4 - Data reception command */ /* TODO */ t += 4; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_FDT(at_state_t *s, const char *t) { /* T.32 8.3.3 - Data transmission command */ /* TODO */ t += 4; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_FEA(at_state_t *s, const char *t) { /* T.32 8.5.3.5 - Phase C received EOL alignment parameter */ /* TODO */ t += 4; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_FFC(at_state_t *s, const char *t) { /* T.32 8.5.3.6 - Format conversion parameter */ /* TODO */ t += 4; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_FFD(at_state_t *s, const char *t) { /* T.32 8.5.1.14 - File diagnostic message parameter */ /* TODO */ t += 4; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_FHS(at_state_t *s, const char *t) { /* T.32 8.5.2.7 - Call termination status parameter */ /* TODO */ t += 4; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_FIE(at_state_t *s, const char *t) { /* T.32 8.5.2.1 - Procedure interrupt enable parameter */ /* TODO */ t += 4; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_FIP(at_state_t *s, const char *t) { /* T.32 8.3.6 - Initialize Facsimile Parameters */ t += 4; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_FIS(at_state_t *s, const char *t) { /* T.32 8.5.1.2 - Current session parameters */ /* TODO */ t += 4; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_FIT(at_state_t *s, const char *t) { /* T.31 8.5.4 - DTE inactivity timeout */ t += 4; if (!parse_2_out(s, &t, &s->dte_inactivity_timeout, 255, &s->dte_inactivity_action, 1, "+FIT:", "(0-255),(0-1)")) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_FKS(at_state_t *s, const char *t) { /* T.32 8.3.5 - Session termination command */ /* TODO: */ t += 4; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_FLI(at_state_t *s, const char *t) { /* T.32 8.5.1.5 - Local ID string parameter, TSI or CSI */ /* TODO: */ t += 4; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_FLO(at_state_t *s, const char *t) { /* T.31 Annex A */ /* Implement something similar to the V.250 +IFC command */ /* TODO: */ t += 4; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_FLP(at_state_t *s, const char *t) { /* T.32 8.5.1.7 - Indicate document to poll parameter */ /* TODO: */ t += 4; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_FMI(at_state_t *s, const char *t) { /* T.31 says to duplicate +GMI */ t += 4; if (t[0] == '?') { at_put_response(s, manufacturer); t += 1; } return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_FMM(at_state_t *s, const char *t) { /* T.31 says to duplicate +GMM */ t += 4; if (t[0] == '?') { at_put_response(s, model); t += 1; } return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_FMR(at_state_t *s, const char *t) { /* T.31 says to duplicate +GMR */ t += 4; if (t[0] == '?') { at_put_response(s, revision); t += 1; } return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_FMS(at_state_t *s, const char *t) { /* T.32 8.5.2.9 - Minimum phase C speed parameter */ t += 4; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_FND(at_state_t *s, const char *t) { /* T.32 8.5.2.10 - Non-Standard Message Data Indication parameter */ t += 4; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_FNR(at_state_t *s, const char *t) { /* T.32 8.5.1.11 - Negotiation message reporting control parameters */ t += 4; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_FNS(at_state_t *s, const char *t) { /* T.32 8.5.1.6 - Non-Standard Frame FIF parameter */ t += 4; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_FPA(at_state_t *s, const char *t) { /* T.32 8.5.1.13 - Selective polling address parameter */ t += 4; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_FPI(at_state_t *s, const char *t) { /* T.32 8.5.1.5 - Local Polling ID String parameter */ t += 4; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_FPP(at_state_t *s, const char *t) { /* T.32 8.5.3 - Facsimile packet protocol */ t += 4; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_FPR(at_state_t *s, const char *t) { /* T.31 Annex A */ /* Implement something similar to the V.250 +IPR command */ t += 4; if (!parse_out(s, &t, &s->dte_rate, 115200, NULL, "115200")) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_FPS(at_state_t *s, const char *t) { /* T.32 8.5.2.2 - Page Status parameter */ t += 4; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_FPW(at_state_t *s, const char *t) { /* T.32 8.5.1.13 - PassWord parameter (Sending or Polling) */ t += 4; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_FRH(at_state_t *s, const char *t) { /* T.31 8.3.6 - HDLC receive */ if (!process_class1_cmd(s, &t)) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_FRM(at_state_t *s, const char *t) { /* T.31 8.3.4 - Facsimile receive */ if (!process_class1_cmd(s, &t)) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_FRQ(at_state_t *s, const char *t) { /* T.32 8.5.2.4 - Receive Quality Thresholds parameters */ /* TODO */ t += 4; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_FRS(at_state_t *s, const char *t) { /* T.31 8.3.2 - Receive silence */ if (!process_class1_cmd(s, &t)) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_FRY(at_state_t *s, const char *t) { /* T.32 8.5.2.8 - ECM Retry Value parameter */ /* TODO */ t += 4; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_FSA(at_state_t *s, const char *t) { /* T.32 8.5.1.13 - Subaddress parameter */ /* TODO */ t += 4; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_FSP(at_state_t *s, const char *t) { /* T.32 8.5.1.8 - Request to poll parameter */ /* TODO */ t += 4; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_FTH(at_state_t *s, const char *t) { /* T.31 8.3.5 - HDLC transmit */ if (!process_class1_cmd(s, &t)) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_FTM(at_state_t *s, const char *t) { /* T.31 8.3.3 - Facsimile transmit */ if (!process_class1_cmd(s, &t)) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_FTS(at_state_t *s, const char *t) { /* T.31 8.3.1 - Transmit silence */ if (!process_class1_cmd(s, &t)) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_GCAP(at_state_t *s, const char *t) { /* V.250 6.1.9 - Request complete capabilities list */ t += 5; /* Response elements +FCLASS +F (FAX) commands +MS +M (modulation control) commands +MS and +MR +MV18S +M (modulation control) commands +MV18S and +MV18R +ES +E (error control) commands +ES, +EB, +ER, +EFCS, and +ETBM +DS +D (data compression) commands +DS and +DR */ /* TODO: make this adapt to the configuration we really have. */ if (t[0] == '?') { at_put_response(s, "+GCAP:+FCLASS"); t += 1; } return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_GCI(at_state_t *s, const char *t) { /* V.250 6.1.10 - Country of installation, */ t += 4; if (!parse_hex_out(s, &t, &s->country_of_installation, 255, "+GCI:", "(00-FF)")) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_GMI(at_state_t *s, const char *t) { /* V.250 6.1.4 - Request manufacturer identification */ t += 4; if (t[0] == '?') { at_put_response(s, manufacturer); t += 1; } return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_GMM(at_state_t *s, const char *t) { /* V.250 6.1.5 - Request model identification */ t += 4; if (t[0] == '?') { at_put_response(s, model); t += 1; } return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_GMR(at_state_t *s, const char *t) { /* V.250 6.1.6 - Request revision identification */ t += 4; if (t[0] == '?') { at_put_response(s, revision); t += 1; } return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_GOI(at_state_t *s, const char *t) { /* V.250 6.1.8 - Request global object identification */ /* TODO: */ t += 4; if (t[0] == '?') { at_put_response(s, GLOBAL_OBJECT_IDENTITY); t += 1; } return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_GSN(at_state_t *s, const char *t) { /* V.250 6.1.7 - Request product serial number identification */ /* TODO: */ t += 4; if (t[0] == '?') { at_put_response(s, SERIAL_NUMBER); t += 1; } return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_IBC(at_state_t *s, const char *t) { static const int maxes[13] = { 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1 }; int *locations[13]; int i; /* V.80 7.9 - Control of in-band control */ /* TODO: */ t += 4; /* 0: In-band control service disabled 1: In-band control service enabled, 7-bit codes allowed, and top bit insignificant 2; In-band control service enabled, 7-bit codes allowed, and 8-bit codes available Circuits 105, 106, 107, 108, 109, 110, 125, 132, 133, 135, 142 in that order. For each one: 0: disabled 1: enabled DCE line connect status reports: 0: disabled 1: enabled */ for (i = 0; i < 13; i++) locations[i] = NULL; if (!parse_n_out(s, &t, locations, maxes, 13, "+IBC:", "(0-2),(0,1),(0,1),(0,1),(0,1),(0,1),(0,1),(0,1),(0,1),(0,1),(0,1),(0.1),(0,1)")) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_IBM(at_state_t *s, const char *t) { static const int maxes[3] = { 7, 255, 255 }; int *locations[3]; /* V.80 7.10 - In-band MARK idle reporting control */ /* TODO: */ t += 4; /* Report control 0: No reports 1: Report only once when expires 2: Report each time expires 3: Report once when expires, and then each time expires 4: Report only when the Mark-ldle Period ends; T3 = the entire interval 5: Report the first time when is exceeded, and then once more when the mark idle period ends 6: Report each time when is exceeded, and then once more when the mark idle period ends; T3 = entire interval -- N*T2 7: report the first time when is exceeded, and then each time is exceeded, and then once more when the mark idle period ends; T3 = entire mark idle period -- N*T2 - T1 T1 in units of 10ms T2 in units of 10ms */ locations[0] = NULL; locations[1] = NULL; locations[2] = NULL; if (!parse_n_out(s, &t, locations, maxes, 3, "+IBM:", "(0-7),(0-255),(0-255)")) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_ICF(at_state_t *s, const char *t) { /* V.250 6.2.11 - DTE-DCE character framing */ t += 4; /* Character format 0: auto detect 1: 8 data 2 stop 2: 8 data 1 parity 1 stop 3: 8 data 1 stop 4: 7 data 2 stop 5: 7 data 1 parity 1 stop 6: 7 data 1 stop Parity 0: Odd 1: Even 2: Mark 3: Space */ if (!parse_2_out(s, &t, &s->dte_char_format, 6, &s->dte_parity, 3, "+ICF:", "(0-6),(0-3)")) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_ICLOK(at_state_t *s, const char *t) { /* V.250 6.2.14 - Select sync transmit clock source */ t += 6; if (!parse_out(s, &t, &s->sync_tx_clock_source, 2, "+ICLOK:", "(0-2)")) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_IDSR(at_state_t *s, const char *t) { /* V.250 6.2.16 - Select data set ready option */ t += 5; if (!parse_out(s, &t, &s->dsr_option, 2, "+IDSR:", "(0-2)")) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_IFC(at_state_t *s, const char *t) { /* V.250 6.2.12 - DTE-DCE local flow control */ /* TODO: */ t += 4; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_ILRR(at_state_t *s, const char *t) { /* V.250 6.2.13 - DTE-DCE local rate reporting */ /* TODO: */ t += 5; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_ILSD(at_state_t *s, const char *t) { /* V.250 6.2.15 - Select long space disconnect option */ t += 5; if (!parse_out(s, &t, &s->long_space_disconnect_option, 2, "+ILSD:", "(0,1)")) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_IPR(at_state_t *s, const char *t) { /* V.250 6.2.10 - Fixed DTE rate */ /* TODO: */ t += 4; if (!parse_out(s, &t, &s->dte_rate, 115200, "+IPR:", "(115200),(115200)")) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_IRTS(at_state_t *s, const char *t) { /* V.250 6.2.17 - Select synchronous mode RTS option */ t += 5; if (!parse_out(s, &t, NULL, 1, "+IRTS:", "(0,1)")) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_ITF(at_state_t *s, const char *t) { /* V.80 8.4 - Transmit flow control thresholds */ /* TODO: */ t += 5; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_MA(at_state_t *s, const char *t) { /* V.250 6.4.2 - Modulation automode control */ /* TODO: */ t += 3; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_MR(at_state_t *s, const char *t) { /* V.250 6.4.3 - Modulation reporting control */ /* 0 Disables reporting of modulation connection (+MCR: and +MRR: are not transmitted) 1 Enables reporting of modulation connection (+MCR: and +MRR: are transmitted) */ /* TODO: */ t += 3; if (!parse_out(s, &t, NULL, 1, "+MR:", "(0,1)")) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_MS(at_state_t *s, const char *t) { /* V.250 6.4.1 - Modulation selection */ /* TODO: */ t += 3; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_MSC(at_state_t *s, const char *t) { /* V.250 6.4.8 - Seamless rate change enable */ /* 0 Disables V.34 seamless rate change 1 Enables V.34 seamless rate change */ /* TODO: */ t += 4; if (!parse_out(s, &t, NULL, 1, "+MSC:", "(0,1)")) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_MV18AM(at_state_t *s, const char *t) { /* V.250 6.4.6 - V.18 answering message editing */ /* TODO: */ t += 7; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_MV18P(at_state_t *s, const char *t) { /* V.250 6.4.7 - Order of probes */ /* 2 Send probe message in 5-bit (Baudot) mode 3 Send probe message in DTMF mode 4 Send probe message in EDT mode 5 Send Rec. V.21 carrier as a probe 6 Send Rec. V.23 carrier as a probe 7 Send Bell 103 carrier as a probe */ /* TODO: */ t += 6; if (!parse_out(s, &t, NULL, 7, "+MV18P:", "(2-7)")) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_MV18R(at_state_t *s, const char *t) { /* V.250 6.4.5 - V.18 reporting control */ /* TODO: */ t += 6; if (!parse_out(s, &t, NULL, 1, "+MV18R:", "(0,1)")) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_MV18S(at_state_t *s, const char *t) { /* V.250 6.4.4 - V.18 selection */ /* mode: 0 Disables V.18 operation 1 V.18 operation, auto detect mode 2 V.18 operation, connect in 5-bit (Baudot) mode 3 V.18 operation, connect in DTMF mode 4 V.18 operation, connect in EDT mode 5 V.18 operation, connect in V.21 mode 6 V.18 operation, connect in V.23 mode 7 V.18 operation, connect in Bell 103-type mode dflt_ans_mode: 0 Disables V.18 answer operation 1 No default specified (auto detect) 2 V.18 operation connect in 5-bit (Baudot) mode 3 V.18 operation connect in DTMF mode 4 V.18 operation connect in EDT mode fbk_time_enable: 0 Disable 1 Enable ans_msg_enable 0 Disable 1 Enable probing_en 0 Disable probing 1 Enable probing 2 Initiate probing */ /* TODO: */ t += 6; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_PCW(at_state_t *s, const char *t) { /* V.250 6.8.1 - Call waiting enable (V.92 DCE) */ /* TODO: */ t += 4; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_PIG(at_state_t *s, const char *t) { /* V.250 6.8.5 - PCM upstream ignore */ /* TODO: */ t += 4; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_PMH(at_state_t *s, const char *t) { /* V.250 6.8.2 - Modem on hold enable */ /* TODO: */ t += 4; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_PMHF(at_state_t *s, const char *t) { /* V.250 6.8.6 - V.92 Modem on hold hook flash */ /* TODO: */ t += 5; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_PMHR(at_state_t *s, const char *t) { /* V.250 6.8.4 - Initiate modem on hold */ /* TODO: */ t += 5; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_PMHT(at_state_t *s, const char *t) { /* V.250 6.8.3 - Modem on hold timer */ /* TODO: */ t += 5; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_PQC(at_state_t *s, const char *t) { /* V.250 6.8.7 - V.92 Phase 1 and Phase 2 Control */ /* TODO: */ t += 4; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_PSS(at_state_t *s, const char *t) { /* V.250 6.8.8 - V.92 Use Short Sequence */ /* TODO: */ t += 4; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_SAC(at_state_t *s, const char *t) { /* V.252 3.4 - Audio transmit configuration */ /* TODO: */ t += 4; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_SAM(at_state_t *s, const char *t) { /* V.252 3.5 - Audio receive mode */ /* TODO: */ t += 4; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_SAR(at_state_t *s, const char *t) { /* V.252 5.3 - Audio receive channel indication */ /* TODO: */ t += 4; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_SARR(at_state_t *s, const char *t) { /* V.252 3.9 - Audio indication reporting */ /* TODO: */ t += 5; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_SAT(at_state_t *s, const char *t) { /* V.252 5.4 - Audio transmit channel indication */ /* TODO: */ t += 4; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_SCRR(at_state_t *s, const char *t) { /* V.252 3.11 - Capabilities indication reporting */ /* TODO: */ t += 5; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_SDC(at_state_t *s, const char *t) { /* V.252 3.3 - Data configuration */ /* TODO: */ t += 4; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_SDI(at_state_t *s, const char *t) { /* V.252 5.2 - Data channel identification */ /* TODO: */ t += 4; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_SDR(at_state_t *s, const char *t) { /* V.252 3.8 - Data indication reporting */ /* TODO: */ t += 4; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_SRSC(at_state_t *s, const char *t) { /* V.252 5.1.2 - Remote terminal simultaneous capability indication */ /* TODO: */ t += 5; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_STC(at_state_t *s, const char *t) { /* V.252 3.1 - Terminal configuration */ /* TODO: */ t += 4; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_STH(at_state_t *s, const char *t) { /* V.252 3.2 - Close logical channel */ /* TODO: */ t += 4; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_SVC(at_state_t *s, const char *t) { /* V.252 3.6 - Video transmit configuration */ /* TODO: */ t += 4; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_SVM(at_state_t *s, const char *t) { /* V.252 3.7 - Video receive mode */ /* TODO: */ t += 4; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_SVR(at_state_t *s, const char *t) { /* V.252 5.5 - Video receive channel indication */ /* TODO: */ t += 4; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_SVRR(at_state_t *s, const char *t) { /* V.252 3.10 - Video indication reporting */ /* TODO: */ t += 5; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_SVT(at_state_t *s, const char *t) { /* V.252 5.6 - Video transmit channel indication */ /* TODO: */ t += 4; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_TADR(at_state_t *s, const char *t) { /* V.250 6.7.2.9 - Local V.54 address */ /* TODO: */ t += 5; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_TAL(at_state_t *s, const char *t) { /* V.250 6.7.2.15 - Local analogue loop */ /* Action 0 Disable analogue loop 1 Enable analogue loop Band 0 Low frequency band 1 High frequency band */ /* TODO: */ t += 4; if (!parse_2_out(s, &t, NULL, 1, NULL, 1, "+TAL:", "(0,1),(0,1)")) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_TALS(at_state_t *s, const char *t) { /* V.250 6.7.2.6 - Analogue loop status */ /* 0 Inactive 1 V.24 circuit 141 invoked 2 Front panel invoked 3 Network management system invoked */ /* TODO: */ t += 5; if (!parse_out(s, &t, NULL, 3, "+TALS:", "(0-3)")) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_TDLS(at_state_t *s, const char *t) { /* V.250 6.7.2.7 - Local digital loop status */ /* 0 Disabled 1 Enabled, inactive 2 Front panel invoked 3 Network management system invoked 4 Remote invoked */ /* TODO: */ t += 5; if (!parse_out(s, &t, NULL, 3, "+TDLS:", "(0-4)")) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_TE140(at_state_t *s, const char *t) { /* V.250 6.7.2.1 - Enable ckt 140 */ /* 0 Disabled 1 Enabled */ /* TODO: */ t += 6; if (!parse_out(s, &t, NULL, 1, "+TE140:", "(0,1)")) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_TE141(at_state_t *s, const char *t) { /* V.250 6.7.2.2 - Enable ckt 141 */ /* 0 Response is disabled 1 Response is enabled */ /* TODO: */ t += 6; if (!parse_out(s, &t, NULL, 1, "+TE141:", "(0,1)")) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_TEPAL(at_state_t *s, const char *t) { /* V.250 6.7.2.5 - Enable front panel analogue loop */ /* 0 Disabled 1 Enabled */ /* TODO: */ t += 6; if (!parse_out(s, &t, NULL, 1, "+TEPAL:", "(0,1)")) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_TEPDL(at_state_t *s, const char *t) { /* V.250 6.7.2.4 - Enable front panel RDL */ /* 0 Disabled 1 Enabled */ /* TODO: */ t += 6; if (!parse_out(s, &t, NULL, 1, "+TEPDL:", "(0,1)")) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_TERDL(at_state_t *s, const char *t) { /* V.250 6.7.2.3 - Enable RDL from remote */ /* 0 Local DCE will ignore command from remote 1 Local DCE will obey command from remote */ /* TODO: */ t += 6; if (!parse_out(s, &t, NULL, 1, "+TERDL:", "(0,1)")) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_TLDL(at_state_t *s, const char *t) { /* V.250 6.7.2.13 - Local digital loop */ /* 0 Stop test 1 Start test */ /* TODO: */ t += 5; if (!parse_out(s, &t, NULL, 1, "+TLDL:", "(0,1)")) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_TMO(at_state_t *s, const char *t) { /* V.250 6.9 - V.59 command */ /* TODO: */ t += 4; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_TMODE(at_state_t *s, const char *t) { /* V.250 6.7.2.10 - Set V.54 mode */ /* TODO: */ t += 6; if (!parse_out(s, &t, NULL, 1, "+TMODE:", "(0,1)")) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_TNUM(at_state_t *s, const char *t) { /* V.250 6.7.2.12 - Errored bit and block counts */ /* TODO: */ t += 5; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_TRDL(at_state_t *s, const char *t) { /* V.250 6.7.2.14 - Request remote digital loop */ /* 0 Stop RDL 1 Start RDL */ /* TODO: */ t += 5; if (!parse_out(s, &t, NULL, 1, "+TRDL:", "(0,1)")) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_TRDLS(at_state_t *s, const char *t) { /* V.250 6.7.2.8 - Remote digital loop status */ /* TODO: */ t += 6; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_TRES(at_state_t *s, const char *t) { /* V.250 6.7.2.17 - Self test result */ /* 0 No test 1 Pass 2 Fail */ /* TODO: */ t += 5; if (!parse_out(s, &t, NULL, 1, "+TRES:", "(0-2)")) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_TSELF(at_state_t *s, const char *t) { /* V.250 6.7.2.16 - Self test */ /* 0 Intrusive full test 1 Safe partial test */ /* TODO: */ t += 6; if (!parse_out(s, &t, NULL, 1, "+TSELF:", "(0,1)")) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_TTER(at_state_t *s, const char *t) { /* V.250 6.7.2.11 - Test error rate */ /* TODO: */ t += 5; if (!parse_2_out(s, &t, NULL, 65535, NULL, 65535, "+TTER:", "(0-65535),(0-65535)")) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_VAC(at_state_t *s, const char *t) { /* V.252 4.1 - Set audio code */ return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_VACR(at_state_t *s, const char *t) { /* V.252 6.1 - Audio code report */ /* TODO: */ t += 5; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_VBT(at_state_t *s, const char *t) { /* 3GPP TS 27.007 C.2.2 - Buffer threshold setting */ /* TODO: */ t += 4; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_VCID(at_state_t *s, const char *t) { /* 3GPP TS 27.007 C.2.3 - Calling number ID presentation */ /* TODO: */ t += 5; if (!parse_out(s, &t, &s->display_call_info, 1, NULL, "0,1")) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_VCIDR(at_state_t *s, const char *t) { /* V.252 6.2 - Caller ID report */ /* TODO: */ t += 6; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_VDID(at_state_t *s, const char *t) { /* V.253 9.2.4 - DID service */ /* TODO: */ t += 5; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_VDIDR(at_state_t *s, const char *t) { /* V.252 6.2 - DID report */ /* TODO: */ t += 6; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_VDR(at_state_t *s, const char *t) { /* V.253 10.3.1 - Distinctive ring (ring cadence reporting) */ /* TODO: */ t += 4; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_VDT(at_state_t *s, const char *t) { /* V.253 10.3.2 - Control tone cadence reporting */ /* TODO: */ t += 4; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_VDX(at_state_t *s, const char *t) { /* V.253 10.5.6 - Speakerphone duplex mode */ /* TODO: */ t += 4; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_VEM(at_state_t *s, const char *t) { /* V.253 10.5.7 - Deliver event reports */ /* TODO: */ t += 4; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_VGM(at_state_t *s, const char *t) { /* V.253 10.5.2 - Microphone gain */ /* TODO: */ t += 4; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_VGR(at_state_t *s, const char *t) { /* V.253 10.2.1 - Receive gain selection */ /* TODO: */ t += 4; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_VGS(at_state_t *s, const char *t) { /* V.253 10.5.3 - Speaker gain */ /* TODO: */ t += 4; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_VGT(at_state_t *s, const char *t) { /* V.253 10.2.2 - Volume selection */ /* TODO: */ t += 4; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_VHC(at_state_t *s, const char *t) { /* V.252 4.12 - Telephony port hook control */ /* TODO: */ t += 4; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_VIP(at_state_t *s, const char *t) { /* V.253 10.1.1 - Initialize voice parameters */ /* TODO: */ t += 4; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_VIT(at_state_t *s, const char *t) { /* V.253 10.2.3 - DTE/DCE inactivity timer */ /* TODO: */ t += 4; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_VLS(at_state_t *s, const char *t) { /* V.253 10.2.4 - Analogue source/destination selection */ /* TODO: */ t += 4; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_VNH(at_state_t *s, const char *t) { /* V.253 9.2.5 - Automatic hangup control */ /* TODO: */ t += 4; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_VPH(at_state_t *s, const char *t) { /* V.252 4.11 - Phone hookswitch status */ /* TODO: */ t += 4; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_VPP(at_state_t *s, const char *t) { /* V.253 10.4.2 - Voice packet protocol */ /* TODO: */ t += 4; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_VPR(at_state_t *s, const char *t) { /* IS-101 10.4.3 - Select DTE/DCE interface rate */ /* TODO: */ t += 4; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_VRA(at_state_t *s, const char *t) { /* V.253 10.2.5 - Ringing tone goes away timer */ /* TODO: */ t += 4; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_VRID(at_state_t *s, const char *t) { int val; /* Extension of V.253 +VCID, Calling number ID report/repeat */ t += 5; val = 0; if (!parse_out(s, &t, &val, 1, NULL, "0,1")) return NULL; if (val == 1) at_display_call_info(s); return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_VRL(at_state_t *s, const char *t) { /* V.253 10.1.2 - Ring local phone */ /* TODO: */ t += 4; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_VRN(at_state_t *s, const char *t) { /* V.253 10.2.6 - Ringing tone never appeared timer */ /* TODO: */ t += 4; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_VRX(at_state_t *s, const char *t) { /* V.253 10.1.3 - Voice receive state */ /* TODO: */ t += 4; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_VSD(at_state_t *s, const char *t) { /* V.253 10.2.7 - Silence detection (QUIET and SILENCE) */ /* TODO: */ t += 4; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_VSID(at_state_t *s, const char *t) { /* Extension of V.253 +VCID, Set calling number ID */ t += 5; if (!parse_string_out(s, &t, &s->local_id, NULL)) return NULL; if (at_modem_control(s, AT_MODEM_CONTROL_SETID, s->local_id) < 0) return NULL; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_VSM(at_state_t *s, const char *t) { /* V.253 10.2.8 - Compression method selection */ /* TODO: */ t += 4; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_VSP(at_state_t *s, const char *t) { /* V.253 10.5.1 - Voice speakerphone state */ /* TODO: */ t += 4; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_VTA(at_state_t *s, const char *t) { /* V.253 10.5.4 - Train acoustic echo-canceller */ /* TODO: */ t += 4; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_VTD(at_state_t *s, const char *t) { /* V.253 10.2.9 - Beep tone duration timer */ /* TODO: */ t += 4; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_VTER(at_state_t *s, const char *t) { /* V.252 6.4 - Simple telephony event report */ /* TODO: */ t += 4; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_VTH(at_state_t *s, const char *t) { /* V.253 10.5.5 - Train line echo-canceller */ /* TODO: */ t += 4; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_VTR(at_state_t *s, const char *t) { /* V.253 10.1.4 - Voice duplex state */ /* TODO: */ t += 4; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_VTS(at_state_t *s, const char *t) { /* V.253 10.1.5 - DTMF and tone generation in voice */ /* TODO: */ t += 4; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_VTX(at_state_t *s, const char *t) { /* V.253 10.1.6 - Transmit data state */ /* TODO: */ t += 4; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_VXT(at_state_t *s, const char *t) { /* IS-101 10.1.5 - Translate voice data */ /* TODO: */ t += 4; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_W(at_state_t *s, const char *t) { /* TIA-678 5.2.4.1 - Compliance indication */ /* TODO: */ t += 2; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_WBAG(at_state_t *s, const char *t) { /* TIA-678 C.5.6 Bias Modem Audio Gain */ /* TODO: */ t += 5; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_WCDA(at_state_t *s, const char *t) { /* TIA-678 B.3.2.5 Display Data Link Address */ /* TODO: */ t += 5; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_WCHG(at_state_t *s, const char *t) { /* TIA-678 B.3.2.4 Display Battery Charging Status */ /* TODO: */ t += 5; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_WCID(at_state_t *s, const char *t) { /* TIA-678 B.3.2.1 Display System ID (operator) */ /* TODO: */ t += 5; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_WCLK(at_state_t *s, const char *t) { /* TIA-678 B.3.2.3 Lock/Unlock DCE */ /* TODO: */ t += 5; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_WCPN(at_state_t *s, const char *t) { /* TIA-678 B.3.2.2 Set Personal Identification Number */ /* TODO: */ t += 5; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_WCXF(at_state_t *s, const char *t) { /* TIA-678 B.3.2.6 Display Supported Annex B commands */ /* TODO: */ t += 5; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_WDAC(at_state_t *s, const char *t) { /* TIA-678 C.5.1 Data over Analogue Cellular Command Query */ /* TODO: */ t += 5; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_WDIR(at_state_t *s, const char *t) { /* TIA-678 C.5.8 Phone Number Directory Selection */ /* TODO: */ t += 5; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_WECR(at_state_t *s, const char *t) { /* TIA-678 C.5.3 Enable Cellular Result Codes */ /* TODO: */ t += 5; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_WFON(at_state_t *s, const char *t) { /* TIA-678 C.5.5 Phone Specification */ /* TODO: */ t += 5; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_WKPD(at_state_t *s, const char *t) { /* TIA-678 C.5.7 Keypad Emulation */ /* TODO: */ t += 5; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_WPBA(at_state_t *s, const char *t) { /* TIA-678 C.5.9 Phone Battery Query */ /* TODO: */ t += 5; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_WPTH(at_state_t *s, const char *t) { /* TIA-678 C.5.10 Call Path */ /* TODO: */ t += 5; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_WRLK(at_state_t *s, const char *t) { /* TIA-678 C.5.4 Roam Lockout */ /* TODO: */ t += 5; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_WS45(at_state_t *s, const char *t) { /* TIA-678 5.2.4.2 DTE-side stack selection */ /* TODO: */ t += 5; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_WS46(at_state_t *s, const char *t) { /* 3GPP TS 27.007 5.9 - PCCA STD-101 [17] select wireless network */ /* TODO: */ t += 5; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_WS50(at_state_t *s, const char *t) { /* TIA-678 B.3.1.1 Normalized Signal Strength */ /* TODO: */ t += 5; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_WS51(at_state_t *s, const char *t) { /* TIA-678 B.3.1.2 Carrier Detect Signal Threshold */ /* TODO: */ t += 5; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_WS52(at_state_t *s, const char *t) { /* TIA-678 B.3.1.3 Normalized Battery Level */ /* TODO: */ t += 5; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_WS53(at_state_t *s, const char *t) { /* TIA-678 B.3.1.4 Normalized Channel Quality */ /* TODO: */ t += 5; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_WS54(at_state_t *s, const char *t) { /* TIA-678 B.3.1.5 Carrier Detect Channel Quality Threshold */ /* TODO: */ t += 5; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_WS57(at_state_t *s, const char *t) { /* TIA-678 B.3.1.7 Antenna Preference */ /* TODO: */ t += 5; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_WS58(at_state_t *s, const char *t) { /* TIA-678 B.3.1.8 Idle Time-out Value */ /* TODO: */ t += 5; return t; } /*- End of function --------------------------------------------------------*/ static const char *at_cmd_plus_WSTL(at_state_t *s, const char *t) { /* TIA-678 C.5.2 Call Session Time Limit */ /* TODO: */ t += 5; return t; } /*- End of function --------------------------------------------------------*/ /* AT command group prefixes: +A Call control (network addressing) issues, common, PSTN, ISDN, Rec. X.25, switched digital +C Digital cellular extensions +D Data compression, Rec. V.42bis +E Error control, Rec. V.42 +F Facsimile, Rec. T.30, etc. +G Generic issues such as identity and capabilities +I DTE-DCE interface issues, Rec. V.24, etc. +M Modulation, Rec. V.32bis, etc. +S Switched or simultaneous data types +T Test issues +V Voice extensions +W Wireless extensions */ #include "at_interpreter_dictionary.h" static int command_search(const char *u, int len, int *matched) { int i; int index; int first; int last; int entry; int ptr; entry = 0; /* Loop over the length of the string to search the trie... */ for (i = 0, ptr = 0; ptr < COMMAND_TRIE_LEN; i++) { /* The character in u we are processing... */ /* V.250 5.4.1 says upper and lower case are equivalent in commands */ index = toupper((int) u[i]); /* Is there a child node for this character? */ /* Note: First and last could have been packed into one uint16_t, but space is not that critical, so the other packing is good enough to make the table reasonable. */ first = command_trie[ptr++]; last = command_trie[ptr++]; entry = command_trie[ptr++]; if (index < first || index > last) break; if ((ptr = command_trie[ptr + index - first]) == 0) break; ptr--; } *matched = i; return entry; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) at_modem_control(at_state_t *s, int op, const char *num) { switch (op) { case AT_MODEM_CONTROL_ANSWER: break; case AT_MODEM_CONTROL_CALL: break; case AT_MODEM_CONTROL_HANGUP: break; case AT_MODEM_CONTROL_OFFHOOK: break; case AT_MODEM_CONTROL_DTR: break; case AT_MODEM_CONTROL_RTS: break; case AT_MODEM_CONTROL_CTS: break; case AT_MODEM_CONTROL_CAR: break; case AT_MODEM_CONTROL_RNG: break; case AT_MODEM_CONTROL_DSR: break; case AT_MODEM_CONTROL_RESTART: break; default: break; } /*endswitch*/ return s->modem_control_handler(s, s->modem_control_user_data, op, num); } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) at_interpreter(at_state_t *s, const char *cmd, int len) { int i; int c; int entry; int matched; const char *t; if (s->p.echo) s->at_tx_handler(s, s->at_tx_user_data, (uint8_t *) cmd, len); for (i = 0; i < len; i++) { /* The spec says the top bit should be ignored */ c = *cmd++ & 0x7F; /* Handle incoming character */ if (s->line_ptr < 2) { /* Look for the initial "at", "AT", "a/" or "A/", and ignore anything before it */ /* V.250 5.2.1 only shows "at" and "AT" as command prefixes. "At" and "aT" are not specified, despite 5.4.1 saying upper and lower case are equivalent in commands. Let's be tolerant and accept them. */ if (tolower(c) == 'a') { s->line_ptr = 0; s->line[s->line_ptr++] = (char) toupper(c); } else if (s->line_ptr == 1) { if (tolower(c) == 't') { /* We have an "AT" command */ s->line[s->line_ptr++] = (char) toupper(c); } else if (c == '/') { /* We have an "A/" command */ /* TODO: implement "A/" command repeat */ s->line[s->line_ptr++] = (char) c; } else { s->line_ptr = 0; } } } else { /* We are beyond the initial AT */ if (c >= 0x20 && c <= 0x7E) { /* Add a new char */ if (s->line_ptr < (int) (sizeof(s->line) - 1)) s->line[s->line_ptr++] = (char) toupper(c); } else if (c == s->p.s_regs[3]) { /* End of command line. Do line validation */ s->line[s->line_ptr] = '\0'; if (s->line_ptr > 2) { /* The spec says the commands within a command line are executed in order, until an error is found, or the end of the command line is reached. */ t = s->line + 2; while (t && *t) { if ((entry = command_search(t, 15, &matched)) <= 0) break; if ((t = at_commands[entry - 1](s, t)) == NULL) break; if (t == (const char *) -1) break; } if (t != (const char *) -1) { if (t == NULL) at_put_response_code(s, AT_RESPONSE_CODE_ERROR); else at_put_response_code(s, AT_RESPONSE_CODE_OK); } } else if (s->line_ptr == 2) { /* It's just an empty "AT" command, return OK. */ at_put_response_code(s, AT_RESPONSE_CODE_OK); } s->line_ptr = 0; } else if (c == s->p.s_regs[5]) { /* Command line editing character (backspace) */ if (s->line_ptr > 0) s->line_ptr--; } else { /* The spec says control characters, other than those explicitly handled, should be ignored, and so this invalid character causes everything buffered before it to also be ignored. */ s->line_ptr = 0; } } } } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) at_set_class1_handler(at_state_t *s, at_class1_handler_t handler, void *user_data) { s->class1_handler = handler; s->class1_user_data = user_data; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(at_state_t *) at_init(at_state_t *s, at_tx_handler_t *at_tx_handler, void *at_tx_user_data, at_modem_control_handler_t *modem_control_handler, void *modem_control_user_data) { if (s == NULL) { if ((s = (at_state_t *) malloc(sizeof(*s))) == NULL) return NULL; } memset(s, '\0', sizeof(*s)); span_log_init(&s->logging, SPAN_LOG_NONE, NULL); span_log_set_protocol(&s->logging, "AT"); s->modem_control_handler = modem_control_handler; s->modem_control_user_data = modem_control_user_data; s->at_tx_handler = at_tx_handler; s->at_tx_user_data = at_tx_user_data; s->call_id = NULL; s->local_id = NULL; s->display_call_info = 0; at_set_at_rx_mode(s, AT_MODE_ONHOOK_COMMAND); s->p = profiles[0]; return s; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) at_release(at_state_t *s) { at_reset_call_info(s); if (s->local_id) free(s->local_id); return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) at_free(at_state_t *s) { int ret; ret = at_release(s); free(s); return ret; } /*- End of function --------------------------------------------------------*/ /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/t31.c0000664000175000017500000031444511430006315014145 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * t31.c - A T.31 compatible class 1 FAX modem interface. * * Written by Steve Underwood * * Special thanks to Lee Howard * for his great work debugging and polishing this code. * * Copyright (C) 2004, 2005, 2006, 2008 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \file */ #if defined(HAVE_CONFIG_H) #include "config.h" #endif #include #include #include #include #include #include #include #include #if defined(HAVE_TGMATH_H) #include #endif #if defined(HAVE_MATH_H) #include #endif #include "floating_fudge.h" #include #include #include "spandsp/telephony.h" #include "spandsp/logging.h" #include "spandsp/bit_operations.h" #include "spandsp/bitstream.h" #include "spandsp/dc_restore.h" #include "spandsp/queue.h" #include "spandsp/power_meter.h" #include "spandsp/complex.h" #include "spandsp/tone_detect.h" #include "spandsp/tone_generate.h" #include "spandsp/async.h" #include "spandsp/crc.h" #include "spandsp/hdlc.h" #include "spandsp/silence_gen.h" #include "spandsp/super_tone_rx.h" #include "spandsp/fsk.h" #include "spandsp/modem_connect_tones.h" #include "spandsp/v8.h" #include "spandsp/v29tx.h" #include "spandsp/v29rx.h" #include "spandsp/v27ter_tx.h" #include "spandsp/v27ter_rx.h" #include "spandsp/v17tx.h" #include "spandsp/v17rx.h" #if defined(SPANDSP_SUPPORT_V34) #include "spandsp/v34.h" #endif #include "spandsp/t4_rx.h" #include "spandsp/t4_tx.h" #include "spandsp/t30.h" #include "spandsp/t30_logging.h" #include "spandsp/t38_core.h" #include "spandsp/at_interpreter.h" #include "spandsp/fax_modems.h" #include "spandsp/t31.h" #include "spandsp/t30_fcf.h" #include "spandsp/private/logging.h" #include "spandsp/private/bitstream.h" #include "spandsp/private/t38_core.h" #include "spandsp/private/silence_gen.h" #include "spandsp/private/fsk.h" #include "spandsp/private/modem_connect_tones.h" #include "spandsp/private/v8.h" #if defined(SPANDSP_SUPPORT_V34) #include "spandsp/private/v34.h" #endif #include "spandsp/private/v17tx.h" #include "spandsp/private/v17rx.h" #include "spandsp/private/v27ter_tx.h" #include "spandsp/private/v27ter_rx.h" #include "spandsp/private/v29tx.h" #include "spandsp/private/v29rx.h" #include "spandsp/private/hdlc.h" #include "spandsp/private/fax_modems.h" #include "spandsp/private/at_interpreter.h" #include "spandsp/private/t31.h" /* Settings suitable for paced transmission over a UDP transport */ /*! The default number of milliseconds per transmitted IFP when sending bulk T.38 data */ #define MS_PER_TX_CHUNK 30 /*! The number of transmissions of indicator IFP packets */ #define INDICATOR_TX_COUNT 3 /*! The number of transmissions of data IFP packets */ #define DATA_TX_COUNT 1 /*! The number of transmissions of terminating data IFP packets */ #define DATA_END_TX_COUNT 3 /*! The default DTE timeout, in seconds */ #define DEFAULT_DTE_TIMEOUT 5 /* Settings suitable for unpaced transmission over a TCP transport */ #define MAX_OCTETS_PER_UNPACED_CHUNK 300 /* Backstop timeout if reception of packets stops in the middle of a burst */ #define MID_RX_TIMEOUT 15000 #define HDLC_FRAMING_OK_THRESHOLD 5 typedef const char *(*at_cmd_service_t)(t31_state_t *s, const char *cmd); enum { ETX = 0x03, DLE = 0x10, SUB = 0x1A }; enum { DISBIT1 = 0x01, DISBIT2 = 0x02, DISBIT3 = 0x04, DISBIT4 = 0x08, DISBIT5 = 0x10, DISBIT6 = 0x20, DISBIT7 = 0x40, DISBIT8 = 0x80 }; enum { T38_CHUNKING_MERGE_FCS_WITH_DATA = 0x0001, T38_CHUNKING_WHOLE_FRAMES = 0x0002, T38_CHUNKING_ALLOW_TEP_TIME = 0x0004 }; enum { T38_TIMED_STEP_NONE = 0, T38_TIMED_STEP_NON_ECM_MODEM = 0x10, T38_TIMED_STEP_NON_ECM_MODEM_2 = 0x11, T38_TIMED_STEP_NON_ECM_MODEM_3 = 0x12, T38_TIMED_STEP_NON_ECM_MODEM_4 = 0x13, T38_TIMED_STEP_NON_ECM_MODEM_5 = 0x14, T38_TIMED_STEP_HDLC_MODEM = 0x20, T38_TIMED_STEP_HDLC_MODEM_2 = 0x21, T38_TIMED_STEP_HDLC_MODEM_3 = 0x22, T38_TIMED_STEP_HDLC_MODEM_4 = 0x23, T38_TIMED_STEP_HDLC_MODEM_5 = 0x24, T38_TIMED_STEP_FAKE_HDLC_MODEM = 0x30, T38_TIMED_STEP_FAKE_HDLC_MODEM_2 = 0x31, T38_TIMED_STEP_FAKE_HDLC_MODEM_3 = 0x32, T38_TIMED_STEP_FAKE_HDLC_MODEM_4 = 0x33, T38_TIMED_STEP_FAKE_HDLC_MODEM_5 = 0x34, T38_TIMED_STEP_CED = 0x40, T38_TIMED_STEP_CED_2 = 0x41, T38_TIMED_STEP_CED_3 = 0x42, T38_TIMED_STEP_CNG = 0x50, T38_TIMED_STEP_CNG_2 = 0x51, T38_TIMED_STEP_PAUSE = 0x60 }; static int restart_modem(t31_state_t *s, int new_modem); static void hdlc_accept_frame(void *user_data, const uint8_t *msg, int len, int ok); static void set_rx_handler(t31_state_t *s, span_rx_handler_t *rx_handler, span_rx_fillin_handler_t *fillin_handler, void *user_data); static void set_tx_handler(t31_state_t *s, span_tx_handler_t *handler, void *user_data); static void set_next_tx_handler(t31_state_t *s, span_tx_handler_t *handler, void *user_data); static int v17_v21_rx(void *user_data, const int16_t amp[], int len); static int v17_v21_rx_fillin(void *user_data, int len); static int v27ter_v21_rx(void *user_data, const int16_t amp[], int len); static int v27ter_v21_rx_fillin(void *user_data, int len); static int v29_v21_rx(void *user_data, const int16_t amp[], int len); static int v29_v21_rx_fillin(void *user_data, int len); static int silence_rx(void *user_data, const int16_t amp[], int len); static int cng_rx(void *user_data, const int16_t amp[], int len); static void non_ecm_put_bit(void *user_data, int bit); static void non_ecm_put_chunk(void *user_data, const uint8_t buf[], int len); static int non_ecm_get_chunk(void *user_data, uint8_t buf[], int len); static void non_ecm_rx_status(void *user_data, int status); static void hdlc_rx_status(void *user_data, int status); static __inline__ void t31_set_at_rx_mode(t31_state_t *s, int new_mode) { s->at_state.at_rx_mode = new_mode; } /*- End of function --------------------------------------------------------*/ #if 0 static void monitor_control_messages(t31_state_t *s, const uint8_t *buf, int len) { /* Monitor the control messages, at the point where we have the whole message, so we can see what is happening to things like training success/failure. */ span_log(&s->logging, SPAN_LOG_FLOW, "Monitoring %s\n", t30_frametype(buf[2])); if (len < 3) return; /*endif*/ switch (buf[2]) { case T30_DCS: case T30_DCS | 1: /* We need to know if ECM is about to be used, so we can fake HDLC stuff. */ s->t38_fe.ecm_mode = (len >= 7) && (buf[6] & DISBIT3); break; default: break; } /*endswitch*/ } /*- End of function --------------------------------------------------------*/ #endif static void front_end_status(t31_state_t *s, int status) { span_log(&s->logging, SPAN_LOG_FLOW, "Front end status %d\n", status); switch (status) { case T30_FRONT_END_SEND_STEP_COMPLETE: switch (s->modem) { case FAX_MODEM_SILENCE_TX: s->modem = FAX_MODEM_NONE; at_put_response_code(&s->at_state, AT_RESPONSE_CODE_OK); if (s->at_state.do_hangup) { at_modem_control(&s->at_state, AT_MODEM_CONTROL_HANGUP, NULL); t31_set_at_rx_mode(s, AT_MODE_ONHOOK_COMMAND); s->at_state.do_hangup = FALSE; } else { t31_set_at_rx_mode(s, AT_MODE_OFFHOOK_COMMAND); } break; case FAX_MODEM_CED_TONE: /* Go directly to V.21/HDLC transmit. */ s->modem = FAX_MODEM_NONE; restart_modem(s, FAX_MODEM_V21_TX); t31_set_at_rx_mode(s, AT_MODE_HDLC); break; case FAX_MODEM_V21_TX: case FAX_MODEM_V17_TX: case FAX_MODEM_V27TER_TX: case FAX_MODEM_V29_TX: s->modem = FAX_MODEM_NONE; at_put_response_code(&s->at_state, AT_RESPONSE_CODE_OK); t31_set_at_rx_mode(s, AT_MODE_OFFHOOK_COMMAND); restart_modem(s, FAX_MODEM_SILENCE_TX); break; } break; case T30_FRONT_END_RECEIVE_COMPLETE: break; } } /*- End of function --------------------------------------------------------*/ static int extra_bits_in_stuffed_frame(const uint8_t buf[], int len) { int bitstream; int ones; int stuffed; int i; int j; bitstream = 0; ones = 0; stuffed = 0; /* We should really append the CRC, and include the stuffed bits for that, to get the exact number of bits in the frame. */ //len = crc_itu16_append(buf, len); for (i = 0; i < len; i++) { bitstream = buf[i]; for (j = 0; j < 8; j++) { if ((bitstream & 1)) { if (++ones >= 5) { ones = 0; stuffed++; } } else { ones = 0; } bitstream >>= 1; } } /* The total length of the frame is: the number of bits in the body + the number of additional bits in the body due to stuffing + the number of bits in the CRC + the number of additional bits in the CRC due to stuffing + 16 bits for the two terminating flag octets. Lets just allow 3 bits for the CRC, which is the worst case. It avoids calculating the real CRC, and the worst it can do is cause a flag octet's worth of additional output. */ return stuffed + 16 + 3 + 16; } /*- End of function --------------------------------------------------------*/ static int process_rx_missing(t38_core_state_t *t, void *user_data, int rx_seq_no, int expected_seq_no) { t31_state_t *s; s = (t31_state_t *) user_data; s->t38_fe.rx_data_missing = TRUE; return 0; } /*- End of function --------------------------------------------------------*/ static int process_rx_indicator(t38_core_state_t *t, void *user_data, int indicator) { t31_state_t *s; t31_t38_front_end_state_t *fe; s = (t31_state_t *) user_data; fe = &s->t38_fe; if (t->current_rx_indicator == indicator) { /* This is probably due to the far end repeating itself, or slipping preamble messages in between HDLC frames. T.38/V.1.3 tells us to ignore it. Its harmless. */ return 0; } /* In termination mode we don't care very much about indicators telling us training is starting. We only care about V.21 preamble starting, for timeout control, and the actual data. */ switch (indicator) { case T38_IND_NO_SIGNAL: if (t->current_rx_indicator == T38_IND_V21_PREAMBLE && (fe->current_rx_type == T30_MODEM_V21 || fe->current_rx_type == T30_MODEM_CNG)) { hdlc_rx_status(s, SIG_STATUS_CARRIER_DOWN); } fe->timeout_rx_samples = 0; front_end_status(s, T30_FRONT_END_SIGNAL_ABSENT); break; case T38_IND_CNG: front_end_status(s, T30_FRONT_END_CNG_PRESENT); break; case T38_IND_CED: front_end_status(s, T30_FRONT_END_CED_PRESENT); break; case T38_IND_V21_PREAMBLE: /* Some T.38 implementations insert these preamble indicators between HDLC frames, so we need to be tolerant of that. */ fe->timeout_rx_samples = fe->samples + ms_to_samples(MID_RX_TIMEOUT); front_end_status(s, T30_FRONT_END_SIGNAL_PRESENT); break; case T38_IND_V27TER_2400_TRAINING: case T38_IND_V27TER_4800_TRAINING: case T38_IND_V29_7200_TRAINING: case T38_IND_V29_9600_TRAINING: case T38_IND_V17_7200_SHORT_TRAINING: case T38_IND_V17_7200_LONG_TRAINING: case T38_IND_V17_9600_SHORT_TRAINING: case T38_IND_V17_9600_LONG_TRAINING: case T38_IND_V17_12000_SHORT_TRAINING: case T38_IND_V17_12000_LONG_TRAINING: case T38_IND_V17_14400_SHORT_TRAINING: case T38_IND_V17_14400_LONG_TRAINING: case T38_IND_V33_12000_TRAINING: case T38_IND_V33_14400_TRAINING: /* We really don't care what kind of modem is delivering the following image data. We only care that some kind of fast modem signal is coming next. */ fe->timeout_rx_samples = fe->samples + ms_to_samples(MID_RX_TIMEOUT); front_end_status(s, T30_FRONT_END_SIGNAL_PRESENT); break; case T38_IND_V8_ANSAM: case T38_IND_V8_SIGNAL: case T38_IND_V34_CNTL_CHANNEL_1200: case T38_IND_V34_PRI_CHANNEL: case T38_IND_V34_CC_RETRAIN: /* V.34 support is a work in progress. */ front_end_status(s, T30_FRONT_END_SIGNAL_PRESENT); break; default: front_end_status(s, T30_FRONT_END_SIGNAL_ABSENT); break; } fe->hdlc_rx.len = 0; fe->rx_data_missing = FALSE; return 0; } /*- End of function --------------------------------------------------------*/ static int process_rx_data(t38_core_state_t *t, void *user_data, int data_type, int field_type, const uint8_t *buf, int len) { t31_state_t *s; t31_t38_front_end_state_t *fe; #if defined(_MSC_VER) uint8_t *buf2 = (uint8_t *) _alloca(len); #else uint8_t buf2[len]; #endif s = (t31_state_t *) user_data; fe = &s->t38_fe; #if 0 /* In termination mode we don't care very much what the data type is. */ switch (data_type) { case T38_DATA_V21: case T38_DATA_V27TER_2400: case T38_DATA_V27TER_4800: case T38_DATA_V29_7200: case T38_DATA_V29_9600: case T38_DATA_V17_7200: case T38_DATA_V17_9600: case T38_DATA_V17_12000: case T38_DATA_V17_14400: case T38_DATA_V8: case T38_DATA_V34_PRI_RATE: case T38_DATA_V34_CC_1200: case T38_DATA_V34_PRI_CH: case T38_DATA_V33_12000: case T38_DATA_V33_14400: default: break; } #endif switch (field_type) { case T38_FIELD_HDLC_DATA: if (fe->timeout_rx_samples == 0) { /* HDLC can just start without any signal indicator on some platforms, even when there is zero packet lost. Nasty, but true. Its a good idea to be tolerant of loss, though, so accepting a sudden start of HDLC data is the right thing to do. */ fe->timeout_rx_samples = fe->samples + ms_to_samples(MID_RX_TIMEOUT); front_end_status(s, T30_FRONT_END_SIGNAL_PRESENT); /* All real HDLC messages in the FAX world start with 0xFF. If this one is not starting with 0xFF it would appear some octets must have been missed before this one. */ if (len <= 0 || buf[0] != 0xFF) fe->rx_data_missing = TRUE; /*endif*/ } /*endif*/ if (len > 0) { if (fe->hdlc_rx.len + len <= T31_T38_MAX_HDLC_LEN) { bit_reverse(fe->hdlc_rx.buf + fe->hdlc_rx.len, buf, len); fe->hdlc_rx.len += len; } else { fe->rx_data_missing = TRUE; } /*endif*/ } /*endif*/ fe->timeout_rx_samples = fe->samples + ms_to_samples(MID_RX_TIMEOUT); break; case T38_FIELD_HDLC_FCS_OK: if (len > 0) { span_log(&s->logging, SPAN_LOG_WARNING, "There is data in a T38_FIELD_HDLC_FCS_OK!\n"); /* The sender has incorrectly included data in this message. It is unclear what we should do with it, to maximise tolerance of buggy implementations. */ } /*endif*/ /* Some T.38 implementations send multiple T38_FIELD_HDLC_FCS_OK messages, in IFP packets with incrementing sequence numbers, which are actually repeats. They get through to this point because of the incrementing sequence numbers. We need to filter them here in a context sensitive manner. */ if (t->current_rx_data_type != data_type || t->current_rx_field_type != field_type) { span_log(&s->logging, SPAN_LOG_FLOW, "Type %s - CRC OK (%s)\n", (fe->hdlc_rx.len >= 3) ? t30_frametype(fe->hdlc_rx.buf[2]) : "???", (fe->rx_data_missing) ? "missing octets" : "clean"); crc_itu16_append(fe->hdlc_rx.buf, fe->hdlc_rx.len); hdlc_accept_frame(s, fe->hdlc_rx.buf, fe->hdlc_rx.len, !fe->rx_data_missing); } /*endif*/ fe->hdlc_rx.len = 0; fe->rx_data_missing = FALSE; fe->timeout_rx_samples = fe->samples + ms_to_samples(MID_RX_TIMEOUT); break; case T38_FIELD_HDLC_FCS_BAD: if (len > 0) { span_log(&s->logging, SPAN_LOG_WARNING, "There is data in a T38_FIELD_HDLC_FCS_BAD!\n"); /* The sender has incorrectly included data in this message. We can safely ignore it, as the bad FCS means we will throw away the whole message, anyway. */ } /*endif*/ /* Some T.38 implementations send multiple T38_FIELD_HDLC_FCS_BAD messages, in IFP packets with incrementing sequence numbers, which are actually repeats. They get through to this point because of the incrementing sequence numbers. We need to filter them here in a context sensitive manner. */ if (t->current_rx_data_type != data_type || t->current_rx_field_type != field_type) { span_log(&s->logging, SPAN_LOG_FLOW, "Type %s - CRC bad (%s)\n", (fe->hdlc_rx.len >= 3) ? t30_frametype(fe->hdlc_rx.buf[2]) : "???", (fe->rx_data_missing) ? "missing octets" : "clean"); hdlc_accept_frame(s, fe->hdlc_rx.buf, fe->hdlc_rx.len, FALSE); } /*endif*/ fe->hdlc_rx.len = 0; fe->rx_data_missing = FALSE; fe->timeout_rx_samples = fe->samples + ms_to_samples(MID_RX_TIMEOUT); break; case T38_FIELD_HDLC_FCS_OK_SIG_END: if (len > 0) { span_log(&s->logging, SPAN_LOG_WARNING, "There is data in a T38_FIELD_HDLC_FCS_OK_SIG_END!\n"); /* The sender has incorrectly included data in this message. It is unclear what we should do with it, to maximise tolerance of buggy implementations. */ } /* Some T.38 implementations send multiple T38_FIELD_HDLC_FCS_OK_SIG_END messages, in IFP packets with incrementing sequence numbers, which are actually repeats. They get through to this point because of the incrementing sequence numbers. We need to filter them here in a context sensitive manner. */ if (t->current_rx_data_type != data_type || t->current_rx_field_type != field_type) { span_log(&s->logging, SPAN_LOG_FLOW, "Type %s - CRC OK, sig end (%s)\n", (fe->hdlc_rx.len >= 3) ? t30_frametype(fe->hdlc_rx.buf[2]) : "???", (fe->rx_data_missing) ? "missing octets" : "clean"); crc_itu16_append(fe->hdlc_rx.buf, fe->hdlc_rx.len); hdlc_accept_frame(s, fe->hdlc_rx.buf, fe->hdlc_rx.len, !fe->rx_data_missing); hdlc_rx_status(s, SIG_STATUS_CARRIER_DOWN); } fe->hdlc_rx.len = 0; fe->rx_data_missing = FALSE; fe->timeout_rx_samples = 0; break; case T38_FIELD_HDLC_FCS_BAD_SIG_END: if (len > 0) { span_log(&s->logging, SPAN_LOG_WARNING, "There is data in a T38_FIELD_HDLC_FCS_BAD_SIG_END!\n"); /* The sender has incorrectly included data in this message. We can safely ignore it, as the bad FCS means we will throw away the whole message, anyway. */ } /* Some T.38 implementations send multiple T38_FIELD_HDLC_FCS_BAD_SIG_END messages, in IFP packets with incrementing sequence numbers, which are actually repeats. They get through to this point because of the incrementing sequence numbers. We need to filter them here in a context sensitive manner. */ if (t->current_rx_data_type != data_type || t->current_rx_field_type != field_type) { span_log(&s->logging, SPAN_LOG_FLOW, "Type %s - CRC bad, sig end (%s)\n", (fe->hdlc_rx.len >= 3) ? t30_frametype(fe->hdlc_rx.buf[2]) : "???", (fe->rx_data_missing) ? "missing octets" : "clean"); hdlc_accept_frame(s, fe->hdlc_rx.buf, fe->hdlc_rx.len, FALSE); hdlc_rx_status(s, SIG_STATUS_CARRIER_DOWN); } fe->hdlc_rx.len = 0; fe->rx_data_missing = FALSE; fe->timeout_rx_samples = 0; break; case T38_FIELD_HDLC_SIG_END: if (len > 0) { span_log(&s->logging, SPAN_LOG_WARNING, "There is data in a T38_FIELD_HDLC_SIG_END!\n"); /* The sender has incorrectly included data in this message, but there seems nothing meaningful it could be. There could not be an FCS good/bad report beyond this. */ } /* Some T.38 implementations send multiple T38_FIELD_HDLC_SIG_END messages, in IFP packets with incrementing sequence numbers, which are actually repeats. They get through to this point because of the incrementing sequence numbers. We need to filter them here in a context sensitive manner. */ if (t->current_rx_data_type != data_type || t->current_rx_field_type != field_type) { /* WORKAROUND: At least some Mediatrix boxes have a bug, where they can send this message at the end of non-ECM data. We need to tolerate this. We use the generic receive complete indication, rather than the specific HDLC carrier down. */ /* This message is expected under 2 circumstances. One is as an alternative to T38_FIELD_HDLC_FCS_OK_SIG_END - i.e. they send T38_FIELD_HDLC_FCS_OK, and then T38_FIELD_HDLC_SIG_END when the carrier actually drops. The other is because the HDLC signal drops unexpectedly - i.e. not just after a final frame. */ fe->hdlc_rx.len = 0; fe->rx_data_missing = FALSE; fe->timeout_rx_samples = 0; hdlc_rx_status(s, SIG_STATUS_CARRIER_DOWN); } break; case T38_FIELD_T4_NON_ECM_DATA: if (!s->at_state.rx_signal_present) { non_ecm_rx_status(s, SIG_STATUS_TRAINING_SUCCEEDED); s->at_state.rx_signal_present = TRUE; } if (len > 0) { bit_reverse(buf2, buf, len); non_ecm_put_chunk(s, buf, len); } fe->timeout_rx_samples = fe->samples + ms_to_samples(MID_RX_TIMEOUT); break; case T38_FIELD_T4_NON_ECM_SIG_END: /* Some T.38 implementations send multiple T38_FIELD_T4_NON_ECM_SIG_END messages, in IFP packets with incrementing sequence numbers, which are actually repeats. They get through to this point because of the incrementing sequence numbers. We need to filter them here in a context sensitive manner. */ if (t->current_rx_data_type != data_type || t->current_rx_field_type != field_type) { if (len > 0) { if (!s->at_state.rx_signal_present) { non_ecm_rx_status(s, SIG_STATUS_TRAINING_SUCCEEDED); s->at_state.rx_signal_present = TRUE; } bit_reverse(buf2, buf, len); non_ecm_put_chunk(s, buf, len); } /* WORKAROUND: At least some Mediatrix boxes have a bug, where they can send HDLC signal end where they should send non-ECM signal end. It is possible they also do the opposite. We need to tolerate this, so we use the generic receive complete indication, rather than the specific non-ECM carrier down. */ non_ecm_rx_status(s, SIG_STATUS_CARRIER_DOWN); } s->at_state.rx_signal_present = FALSE; fe->timeout_rx_samples = 0; break; case T38_FIELD_CM_MESSAGE: if (len >= 1) span_log(&s->logging, SPAN_LOG_FLOW, "CM profile %d - %s\n", buf[0] - '0', t38_cm_profile_to_str(buf[0])); else span_log(&s->logging, SPAN_LOG_FLOW, "Bad length for CM message - %d\n", len); break; case T38_FIELD_JM_MESSAGE: if (len >= 2) span_log(&s->logging, SPAN_LOG_FLOW, "JM - %s\n", t38_jm_to_str(buf, len)); else span_log(&s->logging, SPAN_LOG_FLOW, "Bad length for JM message - %d\n", len); break; case T38_FIELD_CI_MESSAGE: if (len >= 1) span_log(&s->logging, SPAN_LOG_FLOW, "CI 0x%X\n", buf[0]); else span_log(&s->logging, SPAN_LOG_FLOW, "Bad length for CI message - %d\n", len); break; case T38_FIELD_V34RATE: if (len >= 3) { fe->t38.v34_rate = t38_v34rate_to_bps(buf, len); span_log(&s->logging, SPAN_LOG_FLOW, "V.34 rate %d bps\n", fe->t38.v34_rate); } else { span_log(&s->logging, SPAN_LOG_FLOW, "Bad length for V34rate message - %d\n", len); } break; default: break; } return 0; } /*- End of function --------------------------------------------------------*/ static void send_hdlc(void *user_data, const uint8_t *msg, int len) { t31_state_t *s; s = (t31_state_t *) user_data; if (len <= 0) { s->hdlc_tx.len = -1; } else { s->t38_fe.hdlc_tx.extra_bits = extra_bits_in_stuffed_frame(msg, len); bit_reverse(s->hdlc_tx.buf, msg, len); s->hdlc_tx.len = len; s->hdlc_tx.ptr = 0; } } /*- End of function --------------------------------------------------------*/ static __inline__ int bits_to_us(t31_state_t *s, int bits) { if (s->t38_fe.ms_per_tx_chunk == 0 || s->t38_fe.tx_bit_rate == 0) return 0; return bits*1000000/s->t38_fe.tx_bit_rate; } /*- End of function --------------------------------------------------------*/ static void set_octets_per_data_packet(t31_state_t *s, int bit_rate) { s->t38_fe.tx_bit_rate = bit_rate; if (s->t38_fe.ms_per_tx_chunk) { s->t38_fe.octets_per_data_packet = s->t38_fe.ms_per_tx_chunk*bit_rate/(8*1000); /* Make sure we have a positive number (i.e. we didn't truncate to zero). */ if (s->t38_fe.octets_per_data_packet < 1) s->t38_fe.octets_per_data_packet = 1; } else { s->t38_fe.octets_per_data_packet = MAX_OCTETS_PER_UNPACED_CHUNK; } } /*- End of function --------------------------------------------------------*/ static int stream_non_ecm(t31_state_t *s) { t31_t38_front_end_state_t *fe; uint8_t buf[MAX_OCTETS_PER_UNPACED_CHUNK + 50]; int delay; int len; fe = &s->t38_fe; for (delay = 0; delay == 0; ) { switch (fe->timed_step) { case T38_TIMED_STEP_NON_ECM_MODEM: /* Create a 75ms silence */ if (fe->t38.current_tx_indicator != T38_IND_NO_SIGNAL) delay = t38_core_send_indicator(&fe->t38, T38_IND_NO_SIGNAL); fe->timed_step = T38_TIMED_STEP_NON_ECM_MODEM_2; fe->next_tx_samples = fe->samples; break; case T38_TIMED_STEP_NON_ECM_MODEM_2: /* Switch on a fast modem, and give the training time to complete */ delay = t38_core_send_indicator(&fe->t38, fe->next_tx_indicator); fe->timed_step = T38_TIMED_STEP_NON_ECM_MODEM_3; break; case T38_TIMED_STEP_NON_ECM_MODEM_3: /* Send a chunk of non-ECM image data */ /* T.38 says it is OK to send the last of the non-ECM data in the signal end message. However, I think the early versions of T.38 said the signal end message should not contain data. Hopefully, following the current spec will not cause compatibility issues. */ len = non_ecm_get_chunk(s, buf, fe->octets_per_data_packet); if (len > 0) bit_reverse(buf, buf, len); if (len < fe->octets_per_data_packet) { /* That's the end of the image data. */ if (s->t38_fe.ms_per_tx_chunk) { /* Pad the end of the data with some zeros. If we just stop abruptly at the end of the EOLs, some ATAs fail to clean up properly before shutting down their transmit modem, and the last few rows of the image are lost or corrupted. Simply delaying the no-signal message does not help for all implentations. It is usually ignored, which is probably the right thing to do after receiving a message saying the signal has ended. */ memset(buf + len, 0, fe->octets_per_data_packet - len); fe->non_ecm_trailer_bytes = 3*fe->octets_per_data_packet + len; len = fe->octets_per_data_packet; fe->timed_step = T38_TIMED_STEP_NON_ECM_MODEM_4; } else { /* If we are sending quickly there seems no point in doing any padding */ t38_core_send_data(&fe->t38, fe->current_tx_data_type, T38_FIELD_T4_NON_ECM_SIG_END, buf, len, T38_PACKET_CATEGORY_IMAGE_DATA_END); fe->timed_step = T38_TIMED_STEP_NON_ECM_MODEM_5; delay = 0; } } t38_core_send_data(&fe->t38, fe->current_tx_data_type, T38_FIELD_T4_NON_ECM_DATA, buf, len, T38_PACKET_CATEGORY_IMAGE_DATA); delay = bits_to_us(s, 8*len); break; case T38_TIMED_STEP_NON_ECM_MODEM_4: /* Send padding */ len = fe->octets_per_data_packet; fe->non_ecm_trailer_bytes -= len; if (fe->non_ecm_trailer_bytes <= 0) { len += fe->non_ecm_trailer_bytes; memset(buf, 0, len); t38_core_send_data(&fe->t38, fe->current_tx_data_type, T38_FIELD_T4_NON_ECM_SIG_END, buf, len, T38_PACKET_CATEGORY_IMAGE_DATA_END); fe->timed_step = T38_TIMED_STEP_NON_ECM_MODEM_5; /* Allow a bit more time than the data will take to play out, to ensure the far ATA does not cut things short. */ delay = bits_to_us(s, 8*len); if (s->t38_fe.ms_per_tx_chunk) delay += 60000; front_end_status(s, T30_FRONT_END_SEND_STEP_COMPLETE); break; } memset(buf, 0, len); t38_core_send_data(&fe->t38, fe->current_tx_data_type, T38_FIELD_T4_NON_ECM_DATA, buf, len, T38_PACKET_CATEGORY_IMAGE_DATA); delay = bits_to_us(s, 8*len); break; case T38_TIMED_STEP_NON_ECM_MODEM_5: /* This should not be needed, since the message above indicates the end of the signal, but it seems like it can improve compatibility with quirky implementations. */ delay = t38_core_send_indicator(&fe->t38, T38_IND_NO_SIGNAL); fe->timed_step = T38_TIMED_STEP_NONE; return delay; } } return delay; } /*- End of function --------------------------------------------------------*/ static int stream_hdlc(t31_state_t *s) { t31_t38_front_end_state_t *fe; uint8_t buf[MAX_OCTETS_PER_UNPACED_CHUNK + 50]; t38_data_field_t data_fields[2]; int previous; int delay; int i; int category; fe = &s->t38_fe; for (delay = 0; delay == 0; ) { switch (fe->timed_step) { case T38_TIMED_STEP_HDLC_MODEM: /* Create a 75ms silence */ if (fe->t38.current_tx_indicator != T38_IND_NO_SIGNAL) delay = t38_core_send_indicator(&fe->t38, T38_IND_NO_SIGNAL); fe->timed_step = T38_TIMED_STEP_HDLC_MODEM_2; fe->next_tx_samples = fe->samples + ms_to_samples(75); break; case T38_TIMED_STEP_HDLC_MODEM_2: /* Send HDLC preambling */ delay = t38_core_send_indicator(&fe->t38, fe->next_tx_indicator); delay += t38_core_send_flags_delay(&fe->t38, fe->next_tx_indicator); at_put_response_code(&s->at_state, AT_RESPONSE_CODE_CONNECT); fe->timed_step = T38_TIMED_STEP_HDLC_MODEM_3; break; case T38_TIMED_STEP_HDLC_MODEM_3: /* Send a chunk of HDLC data */ if (s->hdlc_tx.len == 0) { /* We don't have a frame ready yet, so wait a little */ delay = MS_PER_TX_CHUNK*1000; break; } i = s->hdlc_tx.len - s->hdlc_tx.ptr; if (fe->octets_per_data_packet >= i) { /* The last part of an HDLC frame */ if (fe->chunking_modes & T38_CHUNKING_MERGE_FCS_WITH_DATA) { /* Copy the data, as we might be about to refill the buffer it is in */ memcpy(buf, &s->hdlc_tx.buf[s->hdlc_tx.ptr], i); data_fields[0].field_type = T38_FIELD_HDLC_DATA; data_fields[0].field = buf; data_fields[0].field_len = i; /* Now see about the next HDLC frame. This will tell us whether to send FCS_OK or FCS_OK_SIG_END */ previous = fe->current_tx_data_type; s->hdlc_tx.ptr = 0; s->hdlc_tx.len = 0; front_end_status(s, T30_FRONT_END_SEND_STEP_COMPLETE); if (s->hdlc_tx.final) { data_fields[1].field_type = T38_FIELD_HDLC_FCS_OK_SIG_END; data_fields[1].field = NULL; data_fields[1].field_len = 0; category = (s->t38_fe.current_tx_data_type == T38_DATA_V21) ? T38_PACKET_CATEGORY_CONTROL_DATA_END : T38_PACKET_CATEGORY_IMAGE_DATA_END; t38_core_send_data_multi_field(&fe->t38, fe->current_tx_data_type, data_fields, 2, category); fe->timed_step = T38_TIMED_STEP_HDLC_MODEM_5; /* We add a bit of extra time here, as with some implementations the carrier falling too abruptly causes data loss. */ delay = bits_to_us(s, i*8 + fe->hdlc_tx.extra_bits); if (s->t38_fe.ms_per_tx_chunk) delay += 100000; at_put_response_code(&s->at_state, AT_RESPONSE_CODE_OK); t31_set_at_rx_mode(s, AT_MODE_OFFHOOK_COMMAND); } else { data_fields[1].field_type = T38_FIELD_HDLC_FCS_OK; data_fields[1].field = NULL; data_fields[1].field_len = 0; category = (s->t38_fe.current_tx_data_type == T38_DATA_V21) ? T38_PACKET_CATEGORY_CONTROL_DATA : T38_PACKET_CATEGORY_IMAGE_DATA; t38_core_send_data_multi_field(&fe->t38, fe->current_tx_data_type, data_fields, 2, category); fe->timed_step = T38_TIMED_STEP_HDLC_MODEM_3; delay = bits_to_us(s, i*8 + fe->hdlc_tx.extra_bits); at_put_response_code(&s->at_state, AT_RESPONSE_CODE_CONNECT); } break; } category = (s->t38_fe.current_tx_data_type == T38_DATA_V21) ? T38_PACKET_CATEGORY_CONTROL_DATA : T38_PACKET_CATEGORY_IMAGE_DATA; t38_core_send_data(&fe->t38, fe->current_tx_data_type, T38_FIELD_HDLC_DATA, &s->hdlc_tx.buf[s->hdlc_tx.ptr], i, category); fe->timed_step = T38_TIMED_STEP_HDLC_MODEM_4; } else { i = fe->octets_per_data_packet; category = (s->t38_fe.current_tx_data_type == T38_DATA_V21) ? T38_PACKET_CATEGORY_CONTROL_DATA : T38_PACKET_CATEGORY_IMAGE_DATA; t38_core_send_data(&fe->t38, fe->current_tx_data_type, T38_FIELD_HDLC_DATA, &s->hdlc_tx.buf[s->hdlc_tx.ptr], i, category); s->hdlc_tx.ptr += i; } delay = bits_to_us(s, i*8); break; case T38_TIMED_STEP_HDLC_MODEM_4: /* End of HDLC frame */ previous = fe->current_tx_data_type; s->hdlc_tx.ptr = 0; s->hdlc_tx.len = 0; if (s->hdlc_tx.final) { /* End of transmission */ s->hdlc_tx.len = 0; s->hdlc_tx.final = FALSE; category = (s->t38_fe.current_tx_data_type == T38_DATA_V21) ? T38_PACKET_CATEGORY_CONTROL_DATA : T38_PACKET_CATEGORY_IMAGE_DATA; t38_core_send_data(&fe->t38, previous, T38_FIELD_HDLC_FCS_OK, NULL, 0, category); fe->timed_step = T38_TIMED_STEP_HDLC_MODEM_5; /* We add a bit of extra time here, as with some implementations the carrier falling too abruptly causes data loss. */ delay = bits_to_us(s, fe->hdlc_tx.extra_bits); if (s->t38_fe.ms_per_tx_chunk) delay += 100000; front_end_status(s, T30_FRONT_END_SEND_STEP_COMPLETE); break; } /* Finish the current frame off, and prepare for the next one. */ category = (s->t38_fe.current_tx_data_type == T38_DATA_V21) ? T38_PACKET_CATEGORY_CONTROL_DATA : T38_PACKET_CATEGORY_IMAGE_DATA; t38_core_send_data(&fe->t38, previous, T38_FIELD_HDLC_FCS_OK, NULL, 0, category); fe->timed_step = T38_TIMED_STEP_HDLC_MODEM_3; at_put_response_code(&s->at_state, AT_RESPONSE_CODE_CONNECT); /* We should now wait enough time for everything to clear through an analogue modem at the far end. */ delay = bits_to_us(s, fe->hdlc_tx.extra_bits); if (s->hdlc_tx.len == 0) span_log(&s->logging, SPAN_LOG_FLOW, "No new frame or end transmission condition.\n"); break; case T38_TIMED_STEP_HDLC_MODEM_5: /* Note that some boxes do not like us sending a T38_FIELD_HDLC_SIG_END at this point. A T38_IND_NO_SIGNAL should always be OK. */ category = (s->t38_fe.current_tx_data_type == T38_DATA_V21) ? T38_PACKET_CATEGORY_CONTROL_DATA_END : T38_PACKET_CATEGORY_IMAGE_DATA_END; t38_core_send_data(&fe->t38, fe->current_tx_data_type, T38_FIELD_HDLC_SIG_END, NULL, 0, category); delay = t38_core_send_indicator(&fe->t38, T38_IND_NO_SIGNAL); fe->timed_step = T38_TIMED_STEP_NONE; at_put_response_code(&s->at_state, AT_RESPONSE_CODE_OK); t31_set_at_rx_mode(s, AT_MODE_OFFHOOK_COMMAND); return 0; } } return delay; } /*- End of function --------------------------------------------------------*/ static int stream_ced(t31_state_t *s) { t31_t38_front_end_state_t *fe; int delay; fe = &s->t38_fe; for (delay = 0; delay == 0; ) { switch (fe->timed_step) { case T38_TIMED_STEP_CED: /* It seems common practice to start with a no signal indicator, though this is not a specified requirement. Since we should be sending 200ms of silence, starting the delay with a no signal indication makes sense. We do need a 200ms delay, as that is a specification requirement. */ fe->timed_step = T38_TIMED_STEP_CED_2; delay = t38_core_send_indicator(&fe->t38, T38_IND_NO_SIGNAL); delay = 200000; fe->next_tx_samples = fe->samples; break; case T38_TIMED_STEP_CED_2: /* Initial 200ms delay over. Send the CED indicator */ fe->timed_step = T38_TIMED_STEP_CED_3; delay = t38_core_send_indicator(&fe->t38, T38_IND_CED); fe->current_tx_data_type = T38_DATA_NONE; break; case T38_TIMED_STEP_CED_3: /* End of CED */ fe->timed_step = T38_TIMED_STEP_NONE; front_end_status(s, T30_FRONT_END_SEND_STEP_COMPLETE); return 0; } } return delay; } /*- End of function --------------------------------------------------------*/ static int stream_cng(t31_state_t *s) { t31_t38_front_end_state_t *fe; int delay; fe = &s->t38_fe; for (delay = 0; delay == 0; ) { switch (fe->timed_step) { case T38_TIMED_STEP_CNG: /* It seems common practice to start with a no signal indicator, though this is not a specified requirement of the T.38 spec. Since we should be sending 200ms of silence, according to T.30, starting that delay with a no signal indication makes sense. */ fe->timed_step = T38_TIMED_STEP_CNG_2; delay = t38_core_send_indicator(&fe->t38, T38_IND_NO_SIGNAL); delay = 200000; fe->next_tx_samples = fe->samples; break; case T38_TIMED_STEP_CNG_2: /* Initial short delay over. Send the CNG indicator. CNG persists until something coming the other way interrupts it, or a long timeout controlled by the T.30 engine expires. */ fe->timed_step = T38_TIMED_STEP_NONE; delay = t38_core_send_indicator(&fe->t38, T38_IND_CNG); fe->current_tx_data_type = T38_DATA_NONE; return delay; } } return delay; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) t31_t38_send_timeout(t31_state_t *s, int samples) { t31_t38_front_end_state_t *fe; int delay; fe = &s->t38_fe; if (fe->current_rx_type == T30_MODEM_DONE || fe->current_tx_type == T30_MODEM_DONE) return TRUE; fe->samples += samples; if (fe->timeout_rx_samples && fe->samples > fe->timeout_rx_samples) { span_log(&s->logging, SPAN_LOG_FLOW, "Timeout mid-receive\n"); fe->timeout_rx_samples = 0; front_end_status(s, T30_FRONT_END_RECEIVE_COMPLETE); } if (fe->timed_step == T38_TIMED_STEP_NONE) return FALSE; /* Wait until the right time comes along, unless we are working in "no delays" mode, while talking to an IAF terminal. */ if (fe->ms_per_tx_chunk && fe->samples < fe->next_tx_samples) return FALSE; /* Its time to send something */ delay = 0; switch (fe->timed_step & 0xFFF0) { case T38_TIMED_STEP_NON_ECM_MODEM: delay = stream_non_ecm(s); break; case T38_TIMED_STEP_HDLC_MODEM: delay = stream_hdlc(s); break; //case T38_TIMED_STEP_FAKE_HDLC_MODEM: // delay = stream_fake_hdlc(s); // break; case T38_TIMED_STEP_CED: delay = stream_ced(s); break; case T38_TIMED_STEP_CNG: delay = stream_cng(s); break; case T38_TIMED_STEP_PAUSE: /* End of timed pause */ fe->timed_step = T38_TIMED_STEP_NONE; front_end_status(s, T30_FRONT_END_SEND_STEP_COMPLETE); break; } fe->next_tx_samples += us_to_samples(delay); return FALSE; } /*- End of function --------------------------------------------------------*/ static int t31_modem_control_handler(at_state_t *s, void *user_data, int op, const char *num) { t31_state_t *t; t = (t31_state_t *) user_data; switch (op) { case AT_MODEM_CONTROL_CALL: t->call_samples = 0; break; case AT_MODEM_CONTROL_ANSWER: t->call_samples = 0; break; case AT_MODEM_CONTROL_ONHOOK: if (t->tx.holding) { t->tx.holding = FALSE; /* Tell the application to release further data */ at_modem_control(&t->at_state, AT_MODEM_CONTROL_CTS, (void *) 1); } if (t->at_state.rx_signal_present) { t->at_state.rx_data[t->at_state.rx_data_bytes++] = DLE; t->at_state.rx_data[t->at_state.rx_data_bytes++] = ETX; t->at_state.at_tx_handler(&t->at_state, t->at_state.at_tx_user_data, t->at_state.rx_data, t->at_state.rx_data_bytes); t->at_state.rx_data_bytes = 0; } restart_modem(t, FAX_MODEM_SILENCE_TX); break; case AT_MODEM_CONTROL_RESTART: restart_modem(t, (int) (intptr_t) num); return 0; case AT_MODEM_CONTROL_DTE_TIMEOUT: if (num) t->dte_data_timeout = t->call_samples + ms_to_samples((intptr_t) num); else t->dte_data_timeout = 0; return 0; } return t->modem_control_handler(t, t->modem_control_user_data, op, num); } /*- End of function --------------------------------------------------------*/ static void non_ecm_rx_status(void *user_data, int status) { t31_state_t *s; s = (t31_state_t *) user_data; switch (status) { case SIG_STATUS_TRAINING_IN_PROGRESS: break; case SIG_STATUS_TRAINING_FAILED: s->at_state.rx_trained = FALSE; break; case SIG_STATUS_TRAINING_SUCCEEDED: /* The modem is now trained */ at_put_response_code(&s->at_state, AT_RESPONSE_CODE_CONNECT); s->at_state.rx_signal_present = TRUE; s->at_state.rx_trained = TRUE; break; case SIG_STATUS_CARRIER_UP: break; case SIG_STATUS_CARRIER_DOWN: if (s->at_state.rx_signal_present) { s->at_state.rx_data[s->at_state.rx_data_bytes++] = DLE; s->at_state.rx_data[s->at_state.rx_data_bytes++] = ETX; s->at_state.at_tx_handler(&s->at_state, s->at_state.at_tx_user_data, s->at_state.rx_data, s->at_state.rx_data_bytes); s->at_state.rx_data_bytes = 0; at_put_response_code(&s->at_state, AT_RESPONSE_CODE_NO_CARRIER); t31_set_at_rx_mode(s, AT_MODE_OFFHOOK_COMMAND); } s->at_state.rx_signal_present = FALSE; s->at_state.rx_trained = FALSE; break; default: if (s->at_state.p.result_code_format) span_log(&s->logging, SPAN_LOG_FLOW, "Eh!\n"); break; } } /*- End of function --------------------------------------------------------*/ static void non_ecm_put_bit(void *user_data, int bit) { t31_state_t *s; if (bit < 0) { non_ecm_rx_status(user_data, bit); return; } s = (t31_state_t *) user_data; s->audio.current_byte = (s->audio.current_byte >> 1) | (bit << 7); if (++s->audio.bit_no >= 8) { if (s->audio.current_byte == DLE) s->at_state.rx_data[s->at_state.rx_data_bytes++] = DLE; s->at_state.rx_data[s->at_state.rx_data_bytes++] = (uint8_t) s->audio.current_byte; if (s->at_state.rx_data_bytes >= 250) { s->at_state.at_tx_handler(&s->at_state, s->at_state.at_tx_user_data, s->at_state.rx_data, s->at_state.rx_data_bytes); s->at_state.rx_data_bytes = 0; } s->audio.bit_no = 0; s->audio.current_byte = 0; } } /*- End of function --------------------------------------------------------*/ static void non_ecm_put_chunk(void *user_data, const uint8_t buf[], int len) { t31_state_t *s; int i; s = (t31_state_t *) user_data; /* Ignore any fractional bytes which may have accumulated */ for (i = 0; i < len; i++) { if (buf[i] == DLE) s->at_state.rx_data[s->at_state.rx_data_bytes++] = DLE; s->at_state.rx_data[s->at_state.rx_data_bytes++] = buf[i]; if (s->at_state.rx_data_bytes >= 250) { s->at_state.at_tx_handler(&s->at_state, s->at_state.at_tx_user_data, s->at_state.rx_data, s->at_state.rx_data_bytes); s->at_state.rx_data_bytes = 0; } } s->audio.bit_no = 0; s->audio.current_byte = 0; } /*- End of function --------------------------------------------------------*/ static int non_ecm_get_bit(void *user_data) { t31_state_t *s; int bit; s = (t31_state_t *) user_data; if (s->audio.bit_no <= 0) { if (s->tx.out_bytes != s->tx.in_bytes) { /* There is real data available to send */ s->audio.current_byte = s->tx.data[s->tx.out_bytes++]; if (s->tx.out_bytes > T31_TX_BUF_LEN - 1) { s->tx.out_bytes = T31_TX_BUF_LEN - 1; span_log(&s->logging, SPAN_LOG_FLOW, "End of transmit buffer reached!\n"); } if (s->tx.holding) { /* See if the buffer is approaching empty. It might be time to release flow control. */ if (s->tx.out_bytes > T31_TX_BUF_LOW_TIDE) { s->tx.holding = FALSE; /* Tell the application to release further data */ at_modem_control(&s->at_state, AT_MODEM_CONTROL_CTS, (void *) 1); } } s->tx.data_started = TRUE; } else { if (s->tx.final) { s->tx.final = FALSE; /* This will put the modem into its shutdown sequence. When it has finally shut down, an OK response will be sent. */ return SIG_STATUS_END_OF_DATA; } /* Fill with 0xFF bytes at the start of transmission, or 0x00 if we are in the middle of transmission. This follows T.31 and T.30 practice. */ s->audio.current_byte = (s->tx.data_started) ? 0x00 : 0xFF; } s->audio.bit_no = 8; } s->audio.bit_no--; bit = s->audio.current_byte & 1; s->audio.current_byte >>= 1; return bit; } /*- End of function --------------------------------------------------------*/ static int non_ecm_get_chunk(void *user_data, uint8_t buf[], int len) { t31_state_t *s; int i; s = (t31_state_t *) user_data; for (i = 0; i < len; i++) { if (s->tx.out_bytes != s->tx.in_bytes) { /* There is real data available to send */ buf[i] = s->tx.data[s->tx.out_bytes++]; if (s->tx.out_bytes > T31_TX_BUF_LEN - 1) { s->tx.out_bytes = T31_TX_BUF_LEN - 1; span_log(&s->logging, SPAN_LOG_FLOW, "End of transmit buffer reached!\n"); } if (s->tx.holding) { /* See if the buffer is approaching empty. It might be time to release flow control. */ if (s->tx.out_bytes > T31_TX_BUF_LOW_TIDE) { s->tx.holding = FALSE; /* Tell the application to release further data */ at_modem_control(&s->at_state, AT_MODEM_CONTROL_CTS, (void *) 1); } } s->tx.data_started = TRUE; } else { if (s->tx.final) { s->tx.final = FALSE; /* This will put the modem into its shutdown sequence. When it has finally shut down, an OK response will be sent. */ //return SIG_STATUS_END_OF_DATA; return i; } /* Fill with 0xFF bytes at the start of transmission, or 0x00 if we are in the middle of transmission. This follows T.31 and T.30 practice. */ buf[i] = (s->tx.data_started) ? 0x00 : 0xFF; } } s->audio.bit_no = 0; s->audio.current_byte = 0; return len; } /*- End of function --------------------------------------------------------*/ static void tone_detected(void *user_data, int tone, int level, int delay) { t31_state_t *s; s = (t31_state_t *) user_data; span_log(&s->logging, SPAN_LOG_FLOW, "%s detected (%ddBm0)\n", modem_connect_tone_to_str(tone), level); } /*- End of function --------------------------------------------------------*/ static void v8_handler(void *user_data, v8_parms_t *result) { t31_state_t *s; s = (t31_state_t *) user_data; span_log(&s->logging, SPAN_LOG_FLOW, "V.8 report received\n"); } /*- End of function --------------------------------------------------------*/ static void hdlc_tx_underflow(void *user_data) { t31_state_t *s; s = (t31_state_t *) user_data; if (s->hdlc_tx.final) { s->hdlc_tx.final = FALSE; /* Schedule an orderly shutdown of the modem */ hdlc_tx_frame(&(s->audio.modems.hdlc_tx), NULL, 0); } else { at_put_response_code(&s->at_state, AT_RESPONSE_CODE_CONNECT); } } /*- End of function --------------------------------------------------------*/ static void hdlc_rx_status(void *user_data, int status) { t31_state_t *s; uint8_t buf[2]; s = (t31_state_t *) user_data; switch (status) { case SIG_STATUS_TRAINING_IN_PROGRESS: break; case SIG_STATUS_TRAINING_FAILED: s->at_state.rx_trained = FALSE; break; case SIG_STATUS_TRAINING_SUCCEEDED: /* The modem is now trained */ s->at_state.rx_signal_present = TRUE; s->at_state.rx_trained = TRUE; break; case SIG_STATUS_CARRIER_UP: if (s->modem == FAX_MODEM_CNG_TONE || s->modem == FAX_MODEM_NOCNG_TONE || s->modem == FAX_MODEM_V21_RX) { s->at_state.rx_signal_present = TRUE; s->rx_frame_received = FALSE; } break; case SIG_STATUS_CARRIER_DOWN: if (s->rx_frame_received) { if (s->at_state.dte_is_waiting) { if (s->at_state.ok_is_pending) { at_put_response_code(&s->at_state, AT_RESPONSE_CODE_OK); s->at_state.ok_is_pending = FALSE; } else { at_put_response_code(&s->at_state, AT_RESPONSE_CODE_NO_CARRIER); } s->at_state.dte_is_waiting = FALSE; t31_set_at_rx_mode(s, AT_MODE_OFFHOOK_COMMAND); } else { buf[0] = AT_RESPONSE_CODE_NO_CARRIER; queue_write_msg(s->rx_queue, buf, 1); } } s->at_state.rx_signal_present = FALSE; s->at_state.rx_trained = FALSE; break; case SIG_STATUS_FRAMING_OK: if (s->modem == FAX_MODEM_CNG_TONE || s->modem == FAX_MODEM_NOCNG_TONE) { /* Once we get any valid HDLC the CNG tone stops, and we drop to the V.21 receive modem on its own. */ s->modem = FAX_MODEM_V21_RX; s->at_state.transmit = FALSE; } if (s->modem == FAX_MODEM_V17_RX || s->modem == FAX_MODEM_V27TER_RX || s->modem == FAX_MODEM_V29_RX) { /* V.21 has been detected while expecting a different carrier. If +FAR=0 then result +FCERROR and return to command-mode. If +FAR=1 then report +FRH:3 and CONNECT, switching to V.21 receive mode. */ if (s->at_state.p.adaptive_receive) { s->at_state.rx_signal_present = TRUE; s->rx_frame_received = TRUE; s->modem = FAX_MODEM_V21_RX; s->at_state.transmit = FALSE; s->at_state.dte_is_waiting = TRUE; at_put_response_code(&s->at_state, AT_RESPONSE_CODE_FRH3); at_put_response_code(&s->at_state, AT_RESPONSE_CODE_CONNECT); } else { s->modem = FAX_MODEM_SILENCE_TX; t31_set_at_rx_mode(s, AT_MODE_OFFHOOK_COMMAND); s->rx_frame_received = FALSE; at_put_response_code(&s->at_state, AT_RESPONSE_CODE_FCERROR); } } else { if (!s->rx_frame_received) { if (s->at_state.dte_is_waiting) { /* Report CONNECT as soon as possible to avoid a timeout. */ at_put_response_code(&s->at_state, AT_RESPONSE_CODE_CONNECT); s->rx_frame_received = TRUE; } else { buf[0] = AT_RESPONSE_CODE_CONNECT; queue_write_msg(s->rx_queue, buf, 1); } } } break; case SIG_STATUS_ABORT: /* Just ignore these */ break; default: span_log(&s->logging, SPAN_LOG_WARNING, "Unexpected HDLC rx status - %d!\n", status); break; } } /*- End of function --------------------------------------------------------*/ static void hdlc_accept_frame(void *user_data, const uint8_t *msg, int len, int ok) { t31_state_t *s; uint8_t buf[256]; int i; if (len < 0) { hdlc_rx_status(user_data, len); return; } s = (t31_state_t *) user_data; if (!s->rx_frame_received) { if (s->at_state.dte_is_waiting) { /* Report CONNECT as soon as possible to avoid a timeout. */ at_put_response_code(&s->at_state, AT_RESPONSE_CODE_CONNECT); s->rx_frame_received = TRUE; } else { buf[0] = AT_RESPONSE_CODE_CONNECT; queue_write_msg(s->rx_queue, buf, 1); } } /* If OK is pending then we just ignore whatever comes in */ if (!s->at_state.ok_is_pending) { if (s->at_state.dte_is_waiting) { /* Send straight away */ /* It is safe to look at the two bytes beyond the length of the message, and expect to find the FCS there. */ for (i = 0; i < len + 2; i++) { if (msg[i] == DLE) s->at_state.rx_data[s->at_state.rx_data_bytes++] = DLE; s->at_state.rx_data[s->at_state.rx_data_bytes++] = msg[i]; } s->at_state.rx_data[s->at_state.rx_data_bytes++] = DLE; s->at_state.rx_data[s->at_state.rx_data_bytes++] = ETX; s->at_state.at_tx_handler(&s->at_state, s->at_state.at_tx_user_data, s->at_state.rx_data, s->at_state.rx_data_bytes); s->at_state.rx_data_bytes = 0; if (msg[1] == 0x13 && ok) { /* This is the last frame. We don't send OK until the carrier drops to avoid redetecting it later. */ s->at_state.ok_is_pending = TRUE; } else { at_put_response_code(&s->at_state, (ok) ? AT_RESPONSE_CODE_OK : AT_RESPONSE_CODE_ERROR); s->at_state.dte_is_waiting = FALSE; s->rx_frame_received = FALSE; } } else { /* Queue it */ buf[0] = (ok) ? AT_RESPONSE_CODE_OK : AT_RESPONSE_CODE_ERROR; /* It is safe to look at the two bytes beyond the length of the message, and expect to find the FCS there. */ memcpy(buf + 1, msg, len + 2); queue_write_msg(s->rx_queue, buf, len + 3); } } t31_set_at_rx_mode(s, AT_MODE_OFFHOOK_COMMAND); } /*- End of function --------------------------------------------------------*/ static void t31_v21_rx(t31_state_t *s) { s->at_state.ok_is_pending = FALSE; s->hdlc_tx.final = FALSE; s->hdlc_tx.len = 0; s->dled = FALSE; hdlc_rx_init(&(s->audio.modems.hdlc_rx), FALSE, TRUE, HDLC_FRAMING_OK_THRESHOLD, hdlc_accept_frame, s); fsk_rx_init(&(s->audio.modems.v21_rx), &preset_fsk_specs[FSK_V21CH2], FSK_FRAME_MODE_SYNC, (put_bit_func_t) hdlc_rx_put_bit, &(s->audio.modems.hdlc_rx)); fsk_rx_signal_cutoff(&(s->audio.modems.v21_rx), -39.09f); s->at_state.transmit = TRUE; } /*- End of function --------------------------------------------------------*/ static int restart_modem(t31_state_t *s, int new_modem) { int use_hdlc; fax_modems_state_t *t; t = &s->audio.modems; span_log(&s->logging, SPAN_LOG_FLOW, "Restart modem %d\n", new_modem); if (s->modem == new_modem) return 0; queue_flush(s->rx_queue); s->modem = new_modem; s->tx.final = FALSE; s->at_state.rx_signal_present = FALSE; s->at_state.rx_trained = FALSE; s->rx_frame_received = FALSE; set_rx_handler(s, (span_rx_handler_t *) &span_dummy_rx, (span_rx_fillin_handler_t *) &span_dummy_rx_fillin, NULL); use_hdlc = FALSE; switch (s->modem) { case FAX_MODEM_CNG_TONE: if (s->t38_mode) { s->t38_fe.next_tx_samples = s->t38_fe.samples; s->t38_fe.timed_step = T38_TIMED_STEP_CNG; s->t38_fe.current_tx_data_type = T38_DATA_NONE; } else { modem_connect_tones_tx_init(&t->connect_tx, MODEM_CONNECT_TONES_FAX_CNG); /* CNG is special, since we need to receive V.21 HDLC messages while sending the tone. Everything else in FAX processing sends only one way at a time. */ /* Do V.21/HDLC receive in parallel. The other end may send its first message at any time. The CNG tone will continue until we get a valid preamble. */ set_rx_handler(s, (span_rx_handler_t *) &cng_rx, (span_rx_fillin_handler_t *) &span_dummy_rx_fillin, s); t31_v21_rx(s); set_tx_handler(s, (span_tx_handler_t *) &modem_connect_tones_tx, &t->connect_tx); set_next_tx_handler(s, (span_tx_handler_t *) NULL, NULL); } s->at_state.transmit = TRUE; break; case FAX_MODEM_NOCNG_TONE: if (s->t38_mode) { } else { set_rx_handler(s, (span_rx_handler_t *) &cng_rx, (span_rx_fillin_handler_t *) &span_dummy_rx_fillin, s); t31_v21_rx(s); silence_gen_set(&t->silence_gen, 0); set_tx_handler(s, (span_tx_handler_t *) &silence_gen, &t->silence_gen); } s->at_state.transmit = FALSE; break; case FAX_MODEM_CED_TONE: if (s->t38_mode) { s->t38_fe.next_tx_samples = s->t38_fe.samples; s->t38_fe.timed_step = T38_TIMED_STEP_CED; s->t38_fe.current_tx_data_type = T38_DATA_NONE; } else { modem_connect_tones_tx_init(&t->connect_tx, MODEM_CONNECT_TONES_FAX_CED); set_tx_handler(s, (span_tx_handler_t *) &modem_connect_tones_tx, &t->connect_tx); set_next_tx_handler(s, (span_tx_handler_t *) NULL, NULL); } s->at_state.transmit = TRUE; break; case FAX_MODEM_V21_TX: if (s->t38_mode) { s->t38_fe.next_tx_indicator = T38_IND_V21_PREAMBLE; s->t38_fe.current_tx_data_type = T38_DATA_V21; use_hdlc = TRUE; s->t38_fe.timed_step = (use_hdlc) ? T38_TIMED_STEP_HDLC_MODEM : T38_TIMED_STEP_NON_ECM_MODEM; set_octets_per_data_packet(s, 300); } else { hdlc_tx_init(&t->hdlc_tx, FALSE, 2, FALSE, hdlc_tx_underflow, s); /* The spec says 1s +-15% of preamble. So, the minimum is 32 octets. */ hdlc_tx_flags(&t->hdlc_tx, 32); fsk_tx_init(&t->v21_tx, &preset_fsk_specs[FSK_V21CH2], (get_bit_func_t) hdlc_tx_get_bit, &t->hdlc_tx); set_tx_handler(s, (span_tx_handler_t *) &fsk_tx, &t->v21_tx); set_next_tx_handler(s, (span_tx_handler_t *) NULL, NULL); } s->hdlc_tx.final = FALSE; s->hdlc_tx.len = 0; s->dled = FALSE; s->at_state.transmit = TRUE; break; case FAX_MODEM_V21_RX: if (s->t38_mode) { } else { set_rx_handler(s, (span_rx_handler_t *) &fsk_rx, (span_rx_fillin_handler_t *) &fsk_rx_fillin, &t->v21_rx); t31_v21_rx(s); } break; case FAX_MODEM_V17_TX: if (s->t38_mode) { switch (s->bit_rate) { case 7200: s->t38_fe.next_tx_indicator = (s->short_train) ? T38_IND_V17_7200_SHORT_TRAINING : T38_IND_V17_7200_LONG_TRAINING; s->t38_fe.current_tx_data_type = T38_DATA_V17_7200; break; case 9600: s->t38_fe.next_tx_indicator = (s->short_train) ? T38_IND_V17_9600_SHORT_TRAINING : T38_IND_V17_9600_LONG_TRAINING; s->t38_fe.current_tx_data_type = T38_DATA_V17_9600; break; case 12000: s->t38_fe.next_tx_indicator = (s->short_train) ? T38_IND_V17_12000_SHORT_TRAINING : T38_IND_V17_12000_LONG_TRAINING; s->t38_fe.current_tx_data_type = T38_DATA_V17_12000; break; case 14400: s->t38_fe.next_tx_indicator = (s->short_train) ? T38_IND_V17_14400_SHORT_TRAINING : T38_IND_V17_14400_LONG_TRAINING; s->t38_fe.current_tx_data_type = T38_DATA_V17_14400; break; } set_octets_per_data_packet(s, s->bit_rate); s->t38_fe.timed_step = (use_hdlc) ? T38_TIMED_STEP_HDLC_MODEM : T38_TIMED_STEP_NON_ECM_MODEM; } else { v17_tx_restart(&t->v17_tx, s->bit_rate, FALSE, s->short_train); set_tx_handler(s, (span_tx_handler_t *) &v17_tx, &t->v17_tx); set_next_tx_handler(s, (span_tx_handler_t *) NULL, NULL); } s->tx.out_bytes = 0; s->tx.data_started = FALSE; s->at_state.transmit = TRUE; break; case FAX_MODEM_V17_RX: if (!s->t38_mode) { set_rx_handler(s, (span_rx_handler_t *) &v17_v21_rx, (span_rx_fillin_handler_t *) &v17_v21_rx_fillin, s); v17_rx_restart(&t->v17_rx, s->bit_rate, s->short_train); /* Allow for +FCERROR/+FRH:3 */ t31_v21_rx(s); } s->at_state.transmit = FALSE; break; case FAX_MODEM_V27TER_TX: if (s->t38_mode) { switch (s->bit_rate) { case 2400: s->t38_fe.next_tx_indicator = T38_IND_V27TER_2400_TRAINING; s->t38_fe.current_tx_data_type = T38_DATA_V27TER_2400; break; case 4800: s->t38_fe.next_tx_indicator = T38_IND_V27TER_4800_TRAINING; s->t38_fe.current_tx_data_type = T38_DATA_V27TER_4800; break; } set_octets_per_data_packet(s, s->bit_rate); s->t38_fe.timed_step = (use_hdlc) ? T38_TIMED_STEP_HDLC_MODEM : T38_TIMED_STEP_NON_ECM_MODEM; } else { v27ter_tx_restart(&t->v27ter_tx, s->bit_rate, FALSE); set_tx_handler(s, (span_tx_handler_t *) &v27ter_tx, &t->v27ter_tx); set_next_tx_handler(s, (span_tx_handler_t *) NULL, NULL); } s->tx.out_bytes = 0; s->tx.data_started = FALSE; s->at_state.transmit = TRUE; break; case FAX_MODEM_V27TER_RX: if (!s->t38_mode) { set_rx_handler(s, (span_rx_handler_t *) &v27ter_v21_rx, (span_rx_fillin_handler_t *) &v27ter_v21_rx_fillin, s); v27ter_rx_restart(&t->v27ter_rx, s->bit_rate, FALSE); /* Allow for +FCERROR/+FRH:3 */ t31_v21_rx(s); } s->at_state.transmit = FALSE; break; case FAX_MODEM_V29_TX: if (s->t38_mode) { switch (s->bit_rate) { case 7200: s->t38_fe.next_tx_indicator = T38_IND_V29_7200_TRAINING; s->t38_fe.current_tx_data_type = T38_DATA_V29_7200; break; case 9600: s->t38_fe.next_tx_indicator = T38_IND_V29_9600_TRAINING; s->t38_fe.current_tx_data_type = T38_DATA_V29_9600; break; } set_octets_per_data_packet(s, s->bit_rate); s->t38_fe.timed_step = (use_hdlc) ? T38_TIMED_STEP_HDLC_MODEM : T38_TIMED_STEP_NON_ECM_MODEM; } else { v29_tx_restart(&t->v29_tx, s->bit_rate, FALSE); set_tx_handler(s, (span_tx_handler_t *) &v29_tx, &t->v29_tx); set_next_tx_handler(s, (span_tx_handler_t *) NULL, NULL); } s->tx.out_bytes = 0; s->tx.data_started = FALSE; s->at_state.transmit = TRUE; break; case FAX_MODEM_V29_RX: if (!s->t38_mode) { set_rx_handler(s, (span_rx_handler_t *) &v29_v21_rx, (span_rx_fillin_handler_t *) &v29_v21_rx_fillin, s); v29_rx_restart(&t->v29_rx, s->bit_rate, FALSE); /* Allow for +FCERROR/+FRH:3 */ t31_v21_rx(s); } s->at_state.transmit = FALSE; break; case FAX_MODEM_SILENCE_TX: if (s->t38_mode) { t38_core_send_indicator(&s->t38_fe.t38, T38_IND_NO_SIGNAL); s->t38_fe.next_tx_samples = s->t38_fe.samples + ms_to_samples(700); s->t38_fe.timed_step = T38_TIMED_STEP_PAUSE; s->t38_fe.current_tx_data_type = T38_DATA_NONE; } else { silence_gen_set(&t->silence_gen, 0); set_tx_handler(s, (span_tx_handler_t *) &silence_gen, &t->silence_gen); set_next_tx_handler(s, (span_tx_handler_t *) NULL, NULL); } s->at_state.transmit = FALSE; break; case FAX_MODEM_SILENCE_RX: if (!s->t38_mode) { set_rx_handler(s, (span_rx_handler_t *) &silence_rx, (span_rx_fillin_handler_t *) &span_dummy_rx_fillin, s); silence_gen_set(&t->silence_gen, 0); set_tx_handler(s, (span_tx_handler_t *) &silence_gen, &t->silence_gen); set_next_tx_handler(s, (span_tx_handler_t *) NULL, NULL); } s->at_state.transmit = FALSE; break; case FAX_MODEM_FLUSH: /* Send 200ms of silence to "push" the last audio out */ if (s->t38_mode) { t38_core_send_indicator(&s->t38_fe.t38, T38_IND_NO_SIGNAL); } else { s->modem = FAX_MODEM_SILENCE_TX; silence_gen_alter(&t->silence_gen, ms_to_samples(200)); set_tx_handler(s, (span_tx_handler_t *) &silence_gen, &t->silence_gen); set_next_tx_handler(s, (span_tx_handler_t *) NULL, NULL); s->at_state.transmit = TRUE; } break; } s->audio.bit_no = 0; s->audio.current_byte = 0xFF; s->tx.in_bytes = 0; s->tx.out_bytes = 0; return 0; } /*- End of function --------------------------------------------------------*/ static __inline__ void dle_unstuff_hdlc(t31_state_t *s, const char *stuffed, int len) { int i; for (i = 0; i < len; i++) { if (s->dled) { s->dled = FALSE; if (stuffed[i] == ETX) { s->hdlc_tx.final = (s->hdlc_tx.buf[1] & 0x10); if (s->t38_mode) { send_hdlc(s, s->hdlc_tx.buf, s->hdlc_tx.len); } else { hdlc_tx_frame(&(s->audio.modems.hdlc_tx), s->hdlc_tx.buf, s->hdlc_tx.len); s->hdlc_tx.len = 0; } } else if (stuffed[i] == SUB) { s->hdlc_tx.buf[s->hdlc_tx.len++] = DLE; s->hdlc_tx.buf[s->hdlc_tx.len++] = DLE; } else { s->hdlc_tx.buf[s->hdlc_tx.len++] = stuffed[i]; } } else { if (stuffed[i] == DLE) s->dled = TRUE; else s->hdlc_tx.buf[s->hdlc_tx.len++] = stuffed[i]; } } } /*- End of function --------------------------------------------------------*/ static __inline__ void dle_unstuff(t31_state_t *s, const char *stuffed, int len) { int i; for (i = 0; i < len; i++) { if (s->dled) { s->dled = FALSE; if (stuffed[i] == ETX) { s->tx.final = TRUE; t31_set_at_rx_mode(s, AT_MODE_OFFHOOK_COMMAND); return; } } else if (stuffed[i] == DLE) { s->dled = TRUE; continue; } s->tx.data[s->tx.in_bytes++] = stuffed[i]; if (s->tx.in_bytes > T31_TX_BUF_LEN - 1) { /* Oops. We hit the end of the buffer. Give up. Loose stuff. :-( */ span_log(&s->logging, SPAN_LOG_FLOW, "No room in buffer for new data!\n"); return; } } if (!s->tx.holding) { /* See if the buffer is approaching full. We might need to apply flow control. */ if (s->tx.in_bytes > T31_TX_BUF_HIGH_TIDE) { s->tx.holding = TRUE; /* Tell the application to hold further data */ at_modem_control(&s->at_state, AT_MODEM_CONTROL_CTS, (void *) 0); } } } /*- End of function --------------------------------------------------------*/ static int process_class1_cmd(at_state_t *t, void *user_data, int direction, int operation, int val) { int new_modem; int new_transmit; int i; int len; int immediate_response; t31_state_t *s; uint8_t msg[256]; s = (t31_state_t *) user_data; new_transmit = direction; immediate_response = TRUE; switch (operation) { case 'S': s->at_state.transmit = new_transmit; if (new_transmit) { /* Send a specified period of silence, to space transmissions. */ restart_modem(s, FAX_MODEM_SILENCE_TX); if (s->t38_mode) s->t38_fe.next_tx_samples = s->t38_fe.samples + ms_to_samples(val*10); else silence_gen_alter(&(s->audio.modems.silence_gen), ms_to_samples(val*10)); s->at_state.transmit = TRUE; } else { /* Wait until we have received a specified period of silence. */ queue_flush(s->rx_queue); s->silence_awaited = ms_to_samples(val*10); t31_set_at_rx_mode(s, AT_MODE_DELIVERY); if (s->t38_mode) { at_put_response_code(&s->at_state, AT_RESPONSE_CODE_OK); t31_set_at_rx_mode(s, AT_MODE_OFFHOOK_COMMAND); } else { restart_modem(s, FAX_MODEM_SILENCE_RX); } } immediate_response = FALSE; span_log(&s->logging, SPAN_LOG_FLOW, "Silence %dms\n", val*10); break; case 'H': switch (val) { case 3: new_modem = (new_transmit) ? FAX_MODEM_V21_TX : FAX_MODEM_V21_RX; s->short_train = FALSE; s->bit_rate = 300; break; default: return -1; } span_log(&s->logging, SPAN_LOG_FLOW, "HDLC\n"); if (new_modem != s->modem) { restart_modem(s, new_modem); immediate_response = FALSE; } s->at_state.transmit = new_transmit; if (new_transmit) { t31_set_at_rx_mode(s, AT_MODE_HDLC); if (!s->t38_mode) at_put_response_code(&s->at_state, AT_RESPONSE_CODE_CONNECT); } else { /* Send straight away, if there is something queued. */ t31_set_at_rx_mode(s, AT_MODE_DELIVERY); s->rx_frame_received = FALSE; do { if (!queue_empty(s->rx_queue)) { len = queue_read_msg(s->rx_queue, msg, 256); if (len > 1) { if (msg[0] == AT_RESPONSE_CODE_OK) at_put_response_code(&s->at_state, AT_RESPONSE_CODE_CONNECT); for (i = 1; i < len; i++) { if (msg[i] == DLE) s->at_state.rx_data[s->at_state.rx_data_bytes++] = DLE; s->at_state.rx_data[s->at_state.rx_data_bytes++] = msg[i]; } s->at_state.rx_data[s->at_state.rx_data_bytes++] = DLE; s->at_state.rx_data[s->at_state.rx_data_bytes++] = ETX; s->at_state.at_tx_handler(&s->at_state, s->at_state.at_tx_user_data, s->at_state.rx_data, s->at_state.rx_data_bytes); s->at_state.rx_data_bytes = 0; } at_put_response_code(&s->at_state, msg[0]); } else { s->at_state.dte_is_waiting = TRUE; break; } } while (msg[0] == AT_RESPONSE_CODE_CONNECT); } immediate_response = FALSE; break; default: switch (val) { case 24: s->t38_fe.next_tx_indicator = T38_IND_V27TER_2400_TRAINING; s->t38_fe.current_tx_data_type = T38_DATA_V27TER_2400; new_modem = (new_transmit) ? FAX_MODEM_V27TER_TX : FAX_MODEM_V27TER_RX; s->short_train = FALSE; s->bit_rate = 2400; break; case 48: s->t38_fe.next_tx_indicator = T38_IND_V27TER_4800_TRAINING; s->t38_fe.current_tx_data_type = T38_DATA_V27TER_4800; new_modem = (new_transmit) ? FAX_MODEM_V27TER_TX : FAX_MODEM_V27TER_RX; s->short_train = FALSE; s->bit_rate = 4800; break; case 72: s->t38_fe.next_tx_indicator = T38_IND_V29_7200_TRAINING; s->t38_fe.current_tx_data_type = T38_DATA_V29_7200; new_modem = (new_transmit) ? FAX_MODEM_V29_TX : FAX_MODEM_V29_RX; s->short_train = FALSE; s->bit_rate = 7200; break; case 96: s->t38_fe.next_tx_indicator = T38_IND_V29_9600_TRAINING; s->t38_fe.current_tx_data_type = T38_DATA_V29_9600; new_modem = (new_transmit) ? FAX_MODEM_V29_TX : FAX_MODEM_V29_RX; s->short_train = FALSE; s->bit_rate = 9600; break; case 73: s->t38_fe.next_tx_indicator = T38_IND_V17_7200_LONG_TRAINING; s->t38_fe.current_tx_data_type = T38_DATA_V17_7200; new_modem = (new_transmit) ? FAX_MODEM_V17_TX : FAX_MODEM_V17_RX; s->short_train = FALSE; s->bit_rate = 7200; break; case 74: s->t38_fe.next_tx_indicator = T38_IND_V17_7200_SHORT_TRAINING; s->t38_fe.current_tx_data_type = T38_DATA_V17_7200; new_modem = (new_transmit) ? FAX_MODEM_V17_TX : FAX_MODEM_V17_RX; s->short_train = TRUE; s->bit_rate = 7200; break; case 97: s->t38_fe.next_tx_indicator = T38_IND_V17_9600_LONG_TRAINING; s->t38_fe.current_tx_data_type = T38_DATA_V17_9600; new_modem = (new_transmit) ? FAX_MODEM_V17_TX : FAX_MODEM_V17_RX; s->short_train = FALSE; s->bit_rate = 9600; break; case 98: s->t38_fe.next_tx_indicator = T38_IND_V17_9600_SHORT_TRAINING; s->t38_fe.current_tx_data_type = T38_DATA_V17_9600; new_modem = (new_transmit) ? FAX_MODEM_V17_TX : FAX_MODEM_V17_RX; s->short_train = TRUE; s->bit_rate = 9600; break; case 121: s->t38_fe.next_tx_indicator = T38_IND_V17_12000_LONG_TRAINING; s->t38_fe.current_tx_data_type = T38_DATA_V17_12000; new_modem = (new_transmit) ? FAX_MODEM_V17_TX : FAX_MODEM_V17_RX; s->short_train = FALSE; s->bit_rate = 12000; break; case 122: s->t38_fe.next_tx_indicator = T38_IND_V17_12000_SHORT_TRAINING; s->t38_fe.current_tx_data_type = T38_DATA_V17_12000; new_modem = (new_transmit) ? FAX_MODEM_V17_TX : FAX_MODEM_V17_RX; s->short_train = TRUE; s->bit_rate = 12000; break; case 145: s->t38_fe.next_tx_indicator = T38_IND_V17_14400_LONG_TRAINING; s->t38_fe.current_tx_data_type = T38_DATA_V17_14400; new_modem = (new_transmit) ? FAX_MODEM_V17_TX : FAX_MODEM_V17_RX; s->short_train = FALSE; s->bit_rate = 14400; break; case 146: s->t38_fe.next_tx_indicator = T38_IND_V17_14400_SHORT_TRAINING; s->t38_fe.current_tx_data_type = T38_DATA_V17_14400; new_modem = (new_transmit) ? FAX_MODEM_V17_TX : FAX_MODEM_V17_RX; s->short_train = TRUE; s->bit_rate = 14400; break; default: return -1; } span_log(&s->logging, SPAN_LOG_FLOW, "Short training = %d, bit rate = %d\n", s->short_train, s->bit_rate); if (new_transmit) { t31_set_at_rx_mode(s, AT_MODE_STUFFED); at_put_response_code(&s->at_state, AT_RESPONSE_CODE_CONNECT); } else { t31_set_at_rx_mode(s, AT_MODE_DELIVERY); } restart_modem(s, new_modem); immediate_response = FALSE; break; } return immediate_response; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) t31_call_event(t31_state_t *s, int event) { span_log(&s->logging, SPAN_LOG_FLOW, "Call event %d received\n", event); at_call_event(&s->at_state, event); } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) t31_at_rx(t31_state_t *s, const char *t, int len) { if (s->dte_data_timeout) s->dte_data_timeout = s->call_samples + ms_to_samples(5000); switch (s->at_state.at_rx_mode) { case AT_MODE_ONHOOK_COMMAND: case AT_MODE_OFFHOOK_COMMAND: at_interpreter(&s->at_state, t, len); break; case AT_MODE_DELIVERY: /* Data from the DTE in this state returns us to command mode */ if (len) { if (s->at_state.rx_signal_present) { s->at_state.rx_data[s->at_state.rx_data_bytes++] = DLE; s->at_state.rx_data[s->at_state.rx_data_bytes++] = ETX; s->at_state.at_tx_handler(&s->at_state, s->at_state.at_tx_user_data, s->at_state.rx_data, s->at_state.rx_data_bytes); } s->at_state.rx_data_bytes = 0; s->at_state.transmit = FALSE; s->modem = FAX_MODEM_SILENCE_TX; set_rx_handler(s, (span_rx_handler_t *) &span_dummy_rx, (span_rx_fillin_handler_t *) &span_dummy_rx_fillin, NULL); t31_set_at_rx_mode(s, AT_MODE_OFFHOOK_COMMAND); at_put_response_code(&s->at_state, AT_RESPONSE_CODE_OK); } break; case AT_MODE_HDLC: dle_unstuff_hdlc(s, t, len); break; case AT_MODE_STUFFED: if (s->tx.out_bytes) { /* Make room for new data in existing data buffer. */ s->tx.in_bytes = &(s->tx.data[s->tx.in_bytes]) - &(s->tx.data[s->tx.out_bytes]); memmove(&(s->tx.data[0]), &(s->tx.data[s->tx.out_bytes]), s->tx.in_bytes); s->tx.out_bytes = 0; } dle_unstuff(s, t, len); break; } return len; } /*- End of function --------------------------------------------------------*/ static void set_rx_handler(t31_state_t *s, span_rx_handler_t *rx_handler, span_rx_fillin_handler_t *fillin_handler, void *user_data) { s->audio.modems.rx_handler = rx_handler; s->audio.modems.rx_fillin_handler = fillin_handler; s->audio.modems.rx_user_data = user_data; } /*- End of function --------------------------------------------------------*/ static void set_tx_handler(t31_state_t *s, span_tx_handler_t *handler, void *user_data) { s->audio.modems.tx_handler = handler; s->audio.modems.tx_user_data = user_data; } /*- End of function --------------------------------------------------------*/ static void set_next_tx_handler(t31_state_t *s, span_tx_handler_t *handler, void *user_data) { s->audio.modems.next_tx_handler = handler; s->audio.modems.next_tx_user_data = user_data; } /*- End of function --------------------------------------------------------*/ static int silence_rx(void *user_data, const int16_t amp[], int len) { t31_state_t *s; /* Searching for a specified minimum period of silence. */ s = (t31_state_t *) user_data; if (s->silence_awaited && s->audio.silence_heard >= s->silence_awaited) { at_put_response_code(&s->at_state, AT_RESPONSE_CODE_OK); t31_set_at_rx_mode(s, AT_MODE_OFFHOOK_COMMAND); s->audio.silence_heard = 0; s->silence_awaited = 0; } return 0; } /*- End of function --------------------------------------------------------*/ static int cng_rx(void *user_data, const int16_t amp[], int len) { t31_state_t *s; s = (t31_state_t *) user_data; if (s->call_samples > ms_to_samples(s->at_state.p.s_regs[7]*1000)) { /* After calling, S7 has elapsed... no carrier found. */ at_put_response_code(&s->at_state, AT_RESPONSE_CODE_NO_CARRIER); restart_modem(s, FAX_MODEM_SILENCE_TX); at_modem_control(&s->at_state, AT_MODEM_CONTROL_HANGUP, NULL); t31_set_at_rx_mode(s, AT_MODE_ONHOOK_COMMAND); } else { fsk_rx(&(s->audio.modems.v21_rx), amp, len); } return 0; } /*- End of function --------------------------------------------------------*/ static int v17_v21_rx(void *user_data, const int16_t amp[], int len) { t31_state_t *t; fax_modems_state_t *s; t = (t31_state_t *) user_data; s = &t->audio.modems; v17_rx(&s->v17_rx, amp, len); if (t->at_state.rx_trained) { /* The fast modem has trained, so we no longer need to run the slow one in parallel. */ span_log(&t->logging, SPAN_LOG_FLOW, "Switching from V.17 + V.21 to V.17 (%.2fdBm0)\n", v17_rx_signal_power(&s->v17_rx)); set_rx_handler(t, (span_rx_handler_t *) &v17_rx, (span_rx_fillin_handler_t *) &v17_rx_fillin, &s->v17_rx); } else { fsk_rx(&s->v21_rx, amp, len); if (t->rx_frame_received) { /* We have received something, and the fast modem has not trained. We must be receiving valid V.21 */ span_log(&t->logging, SPAN_LOG_FLOW, "Switching from V.17 + V.21 to V.21 (%.2fdBm0)\n", fsk_rx_signal_power(&s->v21_rx)); set_rx_handler(t, (span_rx_handler_t *) &fsk_rx, (span_rx_fillin_handler_t *) &fsk_rx_fillin, &s->v21_rx); } } return len; } /*- End of function --------------------------------------------------------*/ static int v17_v21_rx_fillin(void *user_data, int len) { t31_state_t *t; fax_modems_state_t *s; t = (t31_state_t *) user_data; s = &t->audio.modems; v17_rx_fillin(&s->v17_rx, len); fsk_rx_fillin(&s->v21_rx, len); return 0; } /*- End of function --------------------------------------------------------*/ static int v27ter_v21_rx(void *user_data, const int16_t amp[], int len) { t31_state_t *t; fax_modems_state_t *s; t = (t31_state_t *) user_data; s = &t->audio.modems; v27ter_rx(&s->v27ter_rx, amp, len); if (t->at_state.rx_trained) { /* The fast modem has trained, so we no longer need to run the slow one in parallel. */ span_log(&t->logging, SPAN_LOG_FLOW, "Switching from V.27ter + V.21 to V.27ter (%.2fdBm0)\n", v27ter_rx_signal_power(&s->v27ter_rx)); set_rx_handler(t, (span_rx_handler_t *) &v27ter_rx, (span_rx_fillin_handler_t *) &v27ter_rx_fillin, &s->v27ter_rx); } else { fsk_rx(&s->v21_rx, amp, len); if (t->rx_frame_received) { /* We have received something, and the fast modem has not trained. We must be receiving valid V.21 */ span_log(&t->logging, SPAN_LOG_FLOW, "Switching from V.27ter + V.21 to V.21 (%.2fdBm0)\n", fsk_rx_signal_power(&s->v21_rx)); set_rx_handler(t, (span_rx_handler_t *) &fsk_rx, (span_rx_fillin_handler_t *) &fsk_rx_fillin, &s->v21_rx); } } return len; } /*- End of function --------------------------------------------------------*/ static int v27ter_v21_rx_fillin(void *user_data, int len) { t31_state_t *t; fax_modems_state_t *s; t = (t31_state_t *) user_data; s = &t->audio.modems; v27ter_rx_fillin(&s->v27ter_rx, len); fsk_rx_fillin(&s->v21_rx, len); return 0; } /*- End of function --------------------------------------------------------*/ static int v29_v21_rx(void *user_data, const int16_t amp[], int len) { t31_state_t *t; fax_modems_state_t *s; t = (t31_state_t *) user_data; s = &t->audio.modems; v29_rx(&s->v29_rx, amp, len); if (t->at_state.rx_trained) { /* The fast modem has trained, so we no longer need to run the slow one in parallel. */ span_log(&s->logging, SPAN_LOG_FLOW, "Switching from V.29 + V.21 to V.29 (%.2fdBm0)\n", v29_rx_signal_power(&s->v29_rx)); set_rx_handler(t, (span_rx_handler_t *) &v29_rx, (span_rx_fillin_handler_t *) &v29_rx_fillin, &s->v29_rx); } else { fsk_rx(&s->v21_rx, amp, len); if (t->rx_frame_received) { /* We have received something, and the fast modem has not trained. We must be receiving valid V.21 */ span_log(&t->logging, SPAN_LOG_FLOW, "Switching from V.29 + V.21 to V.21 (%.2fdBm0)\n", fsk_rx_signal_power(&s->v21_rx)); set_rx_handler(t, (span_rx_handler_t *) &fsk_rx, (span_rx_fillin_handler_t *) &fsk_rx_fillin, &s->v21_rx); } } return len; } /*- End of function --------------------------------------------------------*/ static int v29_v21_rx_fillin(void *user_data, int len) { t31_state_t *t; fax_modems_state_t *s; t = (t31_state_t *) user_data; s = &t->audio.modems; v29_rx_fillin(&s->v29_rx, len); fsk_rx_fillin(&s->v21_rx, len); return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE_NONSTD(int) t31_rx(t31_state_t *s, int16_t amp[], int len) { int i; int32_t power; /* Monitor for received silence. Maximum needed detection is AT+FRS=255 (255*10ms). */ /* We could probably only run this loop if (s->modem == FAX_MODEM_SILENCE_RX), however, the spec says "when silence has been present on the line for the amount of time specified". That means some of the silence may have occurred before the AT+FRS=n command. This condition, however, is not likely to ever be the case. (AT+FRS=n will usually be issued before the remote goes silent.) */ for (i = 0; i < len; i++) { /* Clean up any DC influence. */ power = power_meter_update(&(s->audio.rx_power), amp[i] - s->audio.last_sample); s->audio.last_sample = amp[i]; if (power > s->audio.silence_threshold_power) { s->audio.silence_heard = 0; } else { if (s->audio.silence_heard <= ms_to_samples(255*10)) s->audio.silence_heard++; } } /* Time is determined by counting the samples in audio packets coming in. */ s->call_samples += len; /* In HDLC transmit mode, if 5 seconds elapse without data from the DTE we must treat this as an error. We return the result ERROR, and change to command-mode. */ if (s->dte_data_timeout && s->call_samples > s->dte_data_timeout) { t31_set_at_rx_mode(s, AT_MODE_OFFHOOK_COMMAND); at_put_response_code(&s->at_state, AT_RESPONSE_CODE_ERROR); restart_modem(s, FAX_MODEM_SILENCE_TX); } if (!s->at_state.transmit || s->modem == FAX_MODEM_CNG_TONE) s->audio.modems.rx_handler(s->audio.modems.rx_user_data, amp, len); return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE_NONSTD(int) t31_rx_fillin(t31_state_t *s, int len) { /* To mitigate the effect of lost packets on a packet network we should try to sustain the status quo. If there is no receive modem running, keep things that way. If there is a receive modem running, try to sustain its operation, without causing a phase hop, or letting its adaptive functions diverge. */ /* Time is determined by counting the samples in audio packets coming in. */ s->call_samples += len; /* In HDLC transmit mode, if 5 seconds elapse without data from the DTE we must treat this as an error. We return the result ERROR, and change to command-mode. */ if (s->dte_data_timeout && s->call_samples > s->dte_data_timeout) { t31_set_at_rx_mode(s, AT_MODE_OFFHOOK_COMMAND); at_put_response_code(&s->at_state, AT_RESPONSE_CODE_ERROR); restart_modem(s, FAX_MODEM_SILENCE_TX); } /* Call the fillin function of the current modem (if there is one). */ switch (s->modem) { case FAX_MODEM_V21_RX: len = fsk_rx_fillin(&s->audio.modems.v21_rx, len); break; case FAX_MODEM_V27TER_RX: /* TODO: what about FSK in the early stages */ len = v27ter_rx_fillin(&s->audio.modems.v27ter_rx, len); break; case FAX_MODEM_V29_RX: /* TODO: what about FSK in the early stages */ len = v29_rx_fillin(&s->audio.modems.v29_rx, len); break; case FAX_MODEM_V17_RX: /* TODO: what about FSK in the early stages */ len = v17_rx_fillin(&s->audio.modems.v17_rx, len); break; } return 0; } /*- End of function --------------------------------------------------------*/ static int set_next_tx_type(t31_state_t *s) { if (s->audio.next_tx_handler) { set_tx_handler(s, s->audio.next_tx_handler, s->audio.next_tx_user_data); set_next_tx_handler(s, (span_tx_handler_t *) NULL, NULL); return 0; } /* There is nothing else to change to, so use zero length silence */ silence_gen_alter(&(s->audio.modems.silence_gen), 0); set_tx_handler(s, (span_tx_handler_t *) &silence_gen, &s->audio.modems.silence_gen); set_next_tx_handler(s, (span_tx_handler_t *) NULL, NULL); return -1; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE_NONSTD(int) t31_tx(t31_state_t *s, int16_t amp[], int max_len) { int len; len = 0; if (s->at_state.transmit) { if ((len = s->audio.modems.tx_handler(s->audio.modems.tx_user_data, amp, max_len)) < max_len) { /* Allow for one change of tx handler within a block */ set_next_tx_type(s); if ((len += s->audio.modems.tx_handler(s->audio.modems.tx_user_data, amp + len, max_len - len)) < max_len) front_end_status(s, T30_FRONT_END_SEND_STEP_COMPLETE); } } if (s->audio.modems.transmit_on_idle) { /* Pad to the requested length with silence */ memset(amp + len, 0, (max_len - len)*sizeof(int16_t)); len = max_len; } return len; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) t31_set_transmit_on_idle(t31_state_t *s, int transmit_on_idle) { s->audio.modems.transmit_on_idle = transmit_on_idle; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) t31_set_tep_mode(t31_state_t *s, int use_tep) { s->audio.modems.use_tep = use_tep; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) t31_set_t38_config(t31_state_t *s, int without_pacing) { if (without_pacing) { /* Continuous streaming mode, as used for TPKT over TCP transport */ /* Inhibit indicator packets */ t38_set_redundancy_control(&s->t38_fe.t38, T38_PACKET_CATEGORY_INDICATOR, 0); t38_set_redundancy_control(&s->t38_fe.t38, T38_PACKET_CATEGORY_CONTROL_DATA, 1); t38_set_redundancy_control(&s->t38_fe.t38, T38_PACKET_CATEGORY_CONTROL_DATA_END, 1); t38_set_redundancy_control(&s->t38_fe.t38, T38_PACKET_CATEGORY_IMAGE_DATA, 1); t38_set_redundancy_control(&s->t38_fe.t38, T38_PACKET_CATEGORY_IMAGE_DATA_END, 1); s->t38_fe.ms_per_tx_chunk = 0; } else { /* Paced streaming mode, as used for UDP transports */ t38_set_redundancy_control(&s->t38_fe.t38, T38_PACKET_CATEGORY_INDICATOR, INDICATOR_TX_COUNT); t38_set_redundancy_control(&s->t38_fe.t38, T38_PACKET_CATEGORY_CONTROL_DATA, DATA_TX_COUNT); t38_set_redundancy_control(&s->t38_fe.t38, T38_PACKET_CATEGORY_CONTROL_DATA_END, DATA_END_TX_COUNT); t38_set_redundancy_control(&s->t38_fe.t38, T38_PACKET_CATEGORY_IMAGE_DATA, DATA_TX_COUNT); t38_set_redundancy_control(&s->t38_fe.t38, T38_PACKET_CATEGORY_IMAGE_DATA_END, DATA_END_TX_COUNT); s->t38_fe.ms_per_tx_chunk = MS_PER_TX_CHUNK; } set_octets_per_data_packet(s, 300); } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) t31_set_mode(t31_state_t *s, int t38_mode) { s->t38_mode = t38_mode; span_log(&s->logging, SPAN_LOG_FLOW, "Mode set to %d\n", s->t38_mode); } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(logging_state_t *) t31_get_logging_state(t31_state_t *s) { return &s->logging; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(t38_core_state_t *) t31_get_t38_core_state(t31_state_t *s) { return &s->t38_fe.t38; } /*- End of function --------------------------------------------------------*/ static int t31_t38_fe_init(t31_state_t *t, t38_tx_packet_handler_t *tx_packet_handler, void *tx_packet_user_data) { t31_t38_front_end_state_t *s; s = &t->t38_fe; t38_core_init(&s->t38, process_rx_indicator, process_rx_data, process_rx_missing, (void *) t, tx_packet_handler, tx_packet_user_data); s->t38.fastest_image_data_rate = 14400; s->timed_step = T38_TIMED_STEP_NONE; //s->iaf = T30_IAF_MODE_T37 | T30_IAF_MODE_T38; s->iaf = T30_IAF_MODE_T38; s->current_tx_data_type = T38_DATA_NONE; s->next_tx_samples = 0; s->chunking_modes = T38_CHUNKING_ALLOW_TEP_TIME; t->hdlc_tx.ptr = 0; hdlc_tx_init(&s->hdlc_tx_term, FALSE, 1, FALSE, NULL, NULL); hdlc_rx_init(&s->hdlc_rx_term, FALSE, TRUE, 2, NULL, NULL); return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(t31_state_t *) t31_init(t31_state_t *s, at_tx_handler_t *at_tx_handler, void *at_tx_user_data, t31_modem_control_handler_t *modem_control_handler, void *modem_control_user_data, t38_tx_packet_handler_t *tx_t38_packet_handler, void *tx_t38_packet_user_data) { #if 0 v8_parms_t v8_parms; #endif int alloced; if (at_tx_handler == NULL || modem_control_handler == NULL) return NULL; alloced = FALSE; if (s == NULL) { if ((s = (t31_state_t *) malloc(sizeof (*s))) == NULL) return NULL; alloced = TRUE; } memset(s, 0, sizeof(*s)); span_log_init(&s->logging, SPAN_LOG_NONE, NULL); span_log_set_protocol(&s->logging, "T.31"); s->modem_control_handler = modem_control_handler; s->modem_control_user_data = modem_control_user_data; fax_modems_init(&s->audio.modems, FALSE, hdlc_accept_frame, hdlc_tx_underflow, non_ecm_put_bit, non_ecm_get_bit, tone_detected, (void *) s); #if 0 v8_parms.modem_connect_tone = MODEM_CONNECT_TONES_ANSAM_PR; v8_parms.call_function = V8_CALL_T30_RX; v8_parms.modulations = V8_MOD_V21 #if 0 | V8_MOD_V34HALF #endif | V8_MOD_V17 | V8_MOD_V29 | V8_MOD_V27TER; v8_parms.protocol = V8_PROTOCOL_NONE; v8_parms.pcm_modem_availability = 0; v8_parms.pstn_access = 0; v8_parms.nsf = -1; v8_parms.t66 = -1; v8_init(&s->audio.v8, FALSE, &v8_parms, v8_handler, s); #endif power_meter_init(&(s->audio.rx_power), 4); s->audio.last_sample = 0; s->audio.silence_threshold_power = power_meter_level_dbm0(-36); s->at_state.rx_signal_present = FALSE; s->at_state.rx_trained = FALSE; s->at_state.do_hangup = FALSE; s->at_state.line_ptr = 0; s->audio.silence_heard = 0; s->silence_awaited = 0; s->call_samples = 0; s->modem = FAX_MODEM_NONE; s->at_state.transmit = TRUE; if ((s->rx_queue = queue_init(NULL, 4096, QUEUE_WRITE_ATOMIC | QUEUE_READ_ATOMIC)) == NULL) { if (alloced) free(s); return NULL; } at_init(&s->at_state, at_tx_handler, at_tx_user_data, t31_modem_control_handler, s); at_set_class1_handler(&s->at_state, process_class1_cmd, s); s->at_state.dte_inactivity_timeout = DEFAULT_DTE_TIMEOUT; if (tx_t38_packet_handler) { t31_t38_fe_init(s, tx_t38_packet_handler, tx_t38_packet_user_data); t31_set_t38_config(s, FALSE); } s->t38_mode = FALSE; return s; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) t31_release(t31_state_t *s) { at_reset_call_info(&s->at_state); return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) t31_free(t31_state_t *s) { t31_release(s); free(s); return 0; } /*- End of function --------------------------------------------------------*/ /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/bitstream.c0000664000175000017500000001030311422612261015516 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * bitstream.c - Bitstream composition and decomposition routines. * * Written by Steve Underwood * * Copyright (C) 2006 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \file */ #if defined(HAVE_CONFIG_H) #include "config.h" #endif #include #include #include #include #include "spandsp/telephony.h" #include "spandsp/bitstream.h" #include "spandsp/private/bitstream.h" SPAN_DECLARE(void) bitstream_put(bitstream_state_t *s, uint8_t **c, uint32_t value, int bits) { value &= ((1 << bits) - 1); if (s->lsb_first) { if (s->residue + bits <= 32) { s->bitstream |= (value << s->residue); s->residue += bits; } while (s->residue >= 8) { s->residue -= 8; *(*c)++ = (uint8_t) (s->bitstream & 0xFF); s->bitstream >>= 8; } } else { if (s->residue + bits <= 32) { s->bitstream = (s->bitstream << bits) | value; s->residue += bits; } while (s->residue >= 8) { s->residue -= 8; *(*c)++ = (uint8_t) ((s->bitstream >> s->residue) & 0xFF); } } } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) bitstream_emit(bitstream_state_t *s, uint8_t **c) { uint32_t bitstream; if (s->residue > 0) { bitstream = s->bitstream & ((1 << s->residue) - 1); if (s->lsb_first) *(*c) = (uint8_t) bitstream; else *(*c) = (uint8_t) (bitstream << (8 - s->residue)); } } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) bitstream_flush(bitstream_state_t *s, uint8_t **c) { if (s->residue > 0) { bitstream_emit(s, c); (*c)++; s->residue = 0; } s->bitstream = 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(uint32_t) bitstream_get(bitstream_state_t *s, const uint8_t **c, int bits) { uint32_t x; if (s->lsb_first) { while (s->residue < bits) { s->bitstream |= (((uint32_t) *(*c)++) << s->residue); s->residue += 8; } s->residue -= bits; x = s->bitstream & ((1 << bits) - 1); s->bitstream >>= bits; } else { while (s->residue < bits) { s->bitstream = (s->bitstream << 8) | ((uint32_t) *(*c)++); s->residue += 8; } s->residue -= bits; x = (s->bitstream >> s->residue) & ((1 << bits) - 1); } return x; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(bitstream_state_t *) bitstream_init(bitstream_state_t *s, int lsb_first) { if (s == NULL) { if ((s = (bitstream_state_t *) malloc(sizeof(*s))) == NULL) return NULL; } s->bitstream = 0; s->residue = 0; s->lsb_first = lsb_first; return s; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) bitstream_release(bitstream_state_t *s) { return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) bitstream_free(bitstream_state_t *s) { if (s) free(s); return 0; } /*- End of function --------------------------------------------------------*/ /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/mmx_sse_decs.h0000664000175000017500000000312411422612262016206 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * mmx_sse_decs.h - Pull in the appropriate systems headers for the MMX/SSE settings. * * Written by Steve Underwood * * Copyright (C) 2009 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #if !defined(_MMX_SSE_DECS_H_) #define _MMX_SSE_DECS_H_ #if defined(SPANDSP_USE_MMX) #include #endif #if defined(SPANDSP_USE_SSE) #include #endif #if defined(SPANDSP_USE_SSE2) #include #endif #if defined(SPANDSP_USE_SSE3) #include #endif #if defined(SPANDSP_USE_SSSE3) #include #endif #if defined(SPANDSP_USE_SSE4_1) #include #endif #if defined(SPANDSP_USE_SSE4_2) #include #endif #if defined(SPANDSP_USE_SSE4A) #include #endif #if defined(SPANDSP_USE_SSE5) #include #endif #endif /*- End of include ---------------------------------------------------------*/ spandsp-0.0.6/src/t4_tx.c0000664000175000017500000015226411422612263014605 0ustar steveusteveu//#define T4_STATE_DEBUGGING /* * SpanDSP - a series of DSP components for telephony * * t4_tx.c - ITU T.4 FAX image transmit processing * * Written by Steve Underwood * * Copyright (C) 2003, 2007 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* * Much of this file is based on the T.4 and T.6 support in libtiff, which requires * the following notice in any derived source code: * * Copyright (c) 1990-1997 Sam Leffler * Copyright (c) 1991-1997 Silicon Graphics, Inc. * * Permission to use, copy, modify, distribute, and sell this software and * its documentation for any purpose is hereby granted without fee, provided * that (i) the above copyright notices and this permission notice appear in * all copies of the software and related documentation, and (ii) the names of * Sam Leffler and Silicon Graphics may not be used in any advertising or * publicity relating to the software without the specific, prior written * permission of Sam Leffler and Silicon Graphics. * * THE SOFTWARE IS PROVIDED "AS-IS" AND WITHOUT WARRANTY OF ANY KIND, * EXPRESS, IMPLIED OR OTHERWISE, INCLUDING WITHOUT LIMITATION, ANY * WARRANTY OF MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. * * IN NO EVENT SHALL SAM LEFFLER OR SILICON GRAPHICS BE LIABLE FOR * ANY SPECIAL, INCIDENTAL, INDIRECT OR CONSEQUENTIAL DAMAGES OF ANY KIND, * OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, * WHETHER OR NOT ADVISED OF THE POSSIBILITY OF DAMAGE, AND ON ANY THEORY OF * LIABILITY, ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE * OF THIS SOFTWARE. */ /*! \file */ #if defined(HAVE_CONFIG_H) #include "config.h" #endif #include #include #include #include #include #include #include #include #include #if defined(HAVE_TGMATH_H) #include #endif #if defined(HAVE_MATH_H) #include #endif #include "floating_fudge.h" #include #include "spandsp/telephony.h" #include "spandsp/logging.h" #include "spandsp/bit_operations.h" #include "spandsp/async.h" #include "spandsp/timezone.h" #include "spandsp/t4_rx.h" #include "spandsp/t4_tx.h" #if defined(SPANDSP_SUPPORT_T85) #include "spandsp/t81_t82_arith_coding.h" #include "spandsp/t85.h" #endif #include "spandsp/t4_t6_decode.h" #include "spandsp/t4_t6_encode.h" #include "spandsp/private/logging.h" #if defined(SPANDSP_SUPPORT_T85) #include "spandsp/private/t81_t82_arith_coding.h" #include "spandsp/private/t85.h" #endif #include "spandsp/private/t4_t6_decode.h" #include "spandsp/private/t4_t6_encode.h" #include "spandsp/private/t4_rx.h" #include "spandsp/private/t4_tx.h" /*! The number of centimetres in one inch */ #define CM_PER_INCH 2.54f /*! The number of EOLs to be sent at the end of a T.4 page */ #define EOLS_TO_END_T4_TX_PAGE 6 /*! The number of EOLs to be sent at the end of a T.6 page */ #define EOLS_TO_END_T6_TX_PAGE 2 #if defined(T4_STATE_DEBUGGING) static void STATE_TRACE(const char *format, ...) { va_list arg_ptr; va_start(arg_ptr, format); vprintf(format, arg_ptr); va_end(arg_ptr); } /*- End of function --------------------------------------------------------*/ #else #define STATE_TRACE(...) /**/ #endif /*! T.4 run length table entry */ typedef struct { /*! Length of T.4 code, in bits */ uint16_t length; /*! T.4 code */ uint16_t code; /*! Run length, in bits */ int16_t run_length; } t4_run_table_entry_t; #include "faxfont.h" /* Legitimate runs of zero bits which are the tail end of one code plus the start of the next code do not exceed 10 bits. */ /* * Note that these tables are ordered such that the index into the table * is known to be either the run length, or (run length / 64) + a fixed * offset. */ static const t4_run_table_entry_t t4_white_codes[] = { { 8, 0x00AC, 0}, /* 0011 0101 */ { 6, 0x0038, 1}, /* 0001 11 */ { 4, 0x000E, 2}, /* 0111 */ { 4, 0x0001, 3}, /* 1000 */ { 4, 0x000D, 4}, /* 1011 */ { 4, 0x0003, 5}, /* 1100 */ { 4, 0x0007, 6}, /* 1110 */ { 4, 0x000F, 7}, /* 1111 */ { 5, 0x0019, 8}, /* 1001 1 */ { 5, 0x0005, 9}, /* 1010 0 */ { 5, 0x001C, 10}, /* 0011 1 */ { 5, 0x0002, 11}, /* 0100 0 */ { 6, 0x0004, 12}, /* 0010 00 */ { 6, 0x0030, 13}, /* 0000 11 */ { 6, 0x000B, 14}, /* 1101 00 */ { 6, 0x002B, 15}, /* 1101 01 */ { 6, 0x0015, 16}, /* 1010 10 */ { 6, 0x0035, 17}, /* 1010 11 */ { 7, 0x0072, 18}, /* 0100 111 */ { 7, 0x0018, 19}, /* 0001 100 */ { 7, 0x0008, 20}, /* 0001 000 */ { 7, 0x0074, 21}, /* 0010 111 */ { 7, 0x0060, 22}, /* 0000 011 */ { 7, 0x0010, 23}, /* 0000 100 */ { 7, 0x000A, 24}, /* 0101 000 */ { 7, 0x006A, 25}, /* 0101 011 */ { 7, 0x0064, 26}, /* 0010 011 */ { 7, 0x0012, 27}, /* 0100 100 */ { 7, 0x000C, 28}, /* 0011 000 */ { 8, 0x0040, 29}, /* 0000 0010 */ { 8, 0x00C0, 30}, /* 0000 0011 */ { 8, 0x0058, 31}, /* 0001 1010 */ { 8, 0x00D8, 32}, /* 0001 1011 */ { 8, 0x0048, 33}, /* 0001 0010 */ { 8, 0x00C8, 34}, /* 0001 0011 */ { 8, 0x0028, 35}, /* 0001 0100 */ { 8, 0x00A8, 36}, /* 0001 0101 */ { 8, 0x0068, 37}, /* 0001 0110 */ { 8, 0x00E8, 38}, /* 0001 0111 */ { 8, 0x0014, 39}, /* 0010 1000 */ { 8, 0x0094, 40}, /* 0010 1001 */ { 8, 0x0054, 41}, /* 0010 1010 */ { 8, 0x00D4, 42}, /* 0010 1011 */ { 8, 0x0034, 43}, /* 0010 1100 */ { 8, 0x00B4, 44}, /* 0010 1101 */ { 8, 0x0020, 45}, /* 0000 0100 */ { 8, 0x00A0, 46}, /* 0000 0101 */ { 8, 0x0050, 47}, /* 0000 1010 */ { 8, 0x00D0, 48}, /* 0000 1011 */ { 8, 0x004A, 49}, /* 0101 0010 */ { 8, 0x00CA, 50}, /* 0101 0011 */ { 8, 0x002A, 51}, /* 0101 0100 */ { 8, 0x00AA, 52}, /* 0101 0101 */ { 8, 0x0024, 53}, /* 0010 0100 */ { 8, 0x00A4, 54}, /* 0010 0101 */ { 8, 0x001A, 55}, /* 0101 1000 */ { 8, 0x009A, 56}, /* 0101 1001 */ { 8, 0x005A, 57}, /* 0101 1010 */ { 8, 0x00DA, 58}, /* 0101 1011 */ { 8, 0x0052, 59}, /* 0100 1010 */ { 8, 0x00D2, 60}, /* 0100 1011 */ { 8, 0x004C, 61}, /* 0011 0010 */ { 8, 0x00CC, 62}, /* 0011 0011 */ { 8, 0x002C, 63}, /* 0011 0100 */ { 5, 0x001B, 64}, /* 1101 1 */ { 5, 0x0009, 128}, /* 1001 0 */ { 6, 0x003A, 192}, /* 0101 11 */ { 7, 0x0076, 256}, /* 0110 111 */ { 8, 0x006C, 320}, /* 0011 0110 */ { 8, 0x00EC, 384}, /* 0011 0111 */ { 8, 0x0026, 448}, /* 0110 0100 */ { 8, 0x00A6, 512}, /* 0110 0101 */ { 8, 0x0016, 576}, /* 0110 1000 */ { 8, 0x00E6, 640}, /* 0110 0111 */ { 9, 0x0066, 704}, /* 0110 0110 0 */ { 9, 0x0166, 768}, /* 0110 0110 1 */ { 9, 0x0096, 832}, /* 0110 1001 0 */ { 9, 0x0196, 896}, /* 0110 1001 1 */ { 9, 0x0056, 960}, /* 0110 1010 0 */ { 9, 0x0156, 1024}, /* 0110 1010 1 */ { 9, 0x00D6, 1088}, /* 0110 1011 0 */ { 9, 0x01D6, 1152}, /* 0110 1011 1 */ { 9, 0x0036, 1216}, /* 0110 1100 0 */ { 9, 0x0136, 1280}, /* 0110 1100 1 */ { 9, 0x00B6, 1344}, /* 0110 1101 0 */ { 9, 0x01B6, 1408}, /* 0110 1101 1 */ { 9, 0x0032, 1472}, /* 0100 1100 0 */ { 9, 0x0132, 1536}, /* 0100 1100 1 */ { 9, 0x00B2, 1600}, /* 0100 1101 0 */ { 6, 0x0006, 1664}, /* 0110 00 */ { 9, 0x01B2, 1728}, /* 0100 1101 1 */ {11, 0x0080, 1792}, /* 0000 0001 000 */ {11, 0x0180, 1856}, /* 0000 0001 100 */ {11, 0x0580, 1920}, /* 0000 0001 101 */ {12, 0x0480, 1984}, /* 0000 0001 0010 */ {12, 0x0C80, 2048}, /* 0000 0001 0011 */ {12, 0x0280, 2112}, /* 0000 0001 0100 */ {12, 0x0A80, 2176}, /* 0000 0001 0101 */ {12, 0x0680, 2240}, /* 0000 0001 0110 */ {12, 0x0E80, 2304}, /* 0000 0001 0111 */ {12, 0x0380, 2368}, /* 0000 0001 1100 */ {12, 0x0B80, 2432}, /* 0000 0001 1101 */ {12, 0x0780, 2496}, /* 0000 0001 1110 */ {12, 0x0F80, 2560}, /* 0000 0001 1111 */ }; static const t4_run_table_entry_t t4_black_codes[] = { {10, 0x03B0, 0}, /* 0000 1101 11 */ { 3, 0x0002, 1}, /* 010 */ { 2, 0x0003, 2}, /* 11 */ { 2, 0x0001, 3}, /* 10 */ { 3, 0x0006, 4}, /* 011 */ { 4, 0x000C, 5}, /* 0011 */ { 4, 0x0004, 6}, /* 0010 */ { 5, 0x0018, 7}, /* 0001 1 */ { 6, 0x0028, 8}, /* 0001 01 */ { 6, 0x0008, 9}, /* 0001 00 */ { 7, 0x0010, 10}, /* 0000 100 */ { 7, 0x0050, 11}, /* 0000 101 */ { 7, 0x0070, 12}, /* 0000 111 */ { 8, 0x0020, 13}, /* 0000 0100 */ { 8, 0x00E0, 14}, /* 0000 0111 */ { 9, 0x0030, 15}, /* 0000 1100 0 */ {10, 0x03A0, 16}, /* 0000 0101 11 */ {10, 0x0060, 17}, /* 0000 0110 00 */ {10, 0x0040, 18}, /* 0000 0010 00 */ {11, 0x0730, 19}, /* 0000 1100 111 */ {11, 0x00B0, 20}, /* 0000 1101 000 */ {11, 0x01B0, 21}, /* 0000 1101 100 */ {11, 0x0760, 22}, /* 0000 0110 111 */ {11, 0x00A0, 23}, /* 0000 0101 000 */ {11, 0x0740, 24}, /* 0000 0010 111 */ {11, 0x00C0, 25}, /* 0000 0011 000 */ {12, 0x0530, 26}, /* 0000 1100 1010 */ {12, 0x0D30, 27}, /* 0000 1100 1011 */ {12, 0x0330, 28}, /* 0000 1100 1100 */ {12, 0x0B30, 29}, /* 0000 1100 1101 */ {12, 0x0160, 30}, /* 0000 0110 1000 */ {12, 0x0960, 31}, /* 0000 0110 1001 */ {12, 0x0560, 32}, /* 0000 0110 1010 */ {12, 0x0D60, 33}, /* 0000 0110 1011 */ {12, 0x04B0, 34}, /* 0000 1101 0010 */ {12, 0x0CB0, 35}, /* 0000 1101 0011 */ {12, 0x02B0, 36}, /* 0000 1101 0100 */ {12, 0x0AB0, 37}, /* 0000 1101 0101 */ {12, 0x06B0, 38}, /* 0000 1101 0110 */ {12, 0x0EB0, 39}, /* 0000 1101 0111 */ {12, 0x0360, 40}, /* 0000 0110 1100 */ {12, 0x0B60, 41}, /* 0000 0110 1101 */ {12, 0x05B0, 42}, /* 0000 1101 1010 */ {12, 0x0DB0, 43}, /* 0000 1101 1011 */ {12, 0x02A0, 44}, /* 0000 0101 0100 */ {12, 0x0AA0, 45}, /* 0000 0101 0101 */ {12, 0x06A0, 46}, /* 0000 0101 0110 */ {12, 0x0EA0, 47}, /* 0000 0101 0111 */ {12, 0x0260, 48}, /* 0000 0110 0100 */ {12, 0x0A60, 49}, /* 0000 0110 0101 */ {12, 0x04A0, 50}, /* 0000 0101 0010 */ {12, 0x0CA0, 51}, /* 0000 0101 0011 */ {12, 0x0240, 52}, /* 0000 0010 0100 */ {12, 0x0EC0, 53}, /* 0000 0011 0111 */ {12, 0x01C0, 54}, /* 0000 0011 1000 */ {12, 0x0E40, 55}, /* 0000 0010 0111 */ {12, 0x0140, 56}, /* 0000 0010 1000 */ {12, 0x01A0, 57}, /* 0000 0101 1000 */ {12, 0x09A0, 58}, /* 0000 0101 1001 */ {12, 0x0D40, 59}, /* 0000 0010 1011 */ {12, 0x0340, 60}, /* 0000 0010 1100 */ {12, 0x05A0, 61}, /* 0000 0101 1010 */ {12, 0x0660, 62}, /* 0000 0110 0110 */ {12, 0x0E60, 63}, /* 0000 0110 0111 */ {10, 0x03C0, 64}, /* 0000 0011 11 */ {12, 0x0130, 128}, /* 0000 1100 1000 */ {12, 0x0930, 192}, /* 0000 1100 1001 */ {12, 0x0DA0, 256}, /* 0000 0101 1011 */ {12, 0x0CC0, 320}, /* 0000 0011 0011 */ {12, 0x02C0, 384}, /* 0000 0011 0100 */ {12, 0x0AC0, 448}, /* 0000 0011 0101 */ {13, 0x06C0, 512}, /* 0000 0011 0110 0 */ {13, 0x16C0, 576}, /* 0000 0011 0110 1 */ {13, 0x0A40, 640}, /* 0000 0010 0101 0 */ {13, 0x1A40, 704}, /* 0000 0010 0101 1 */ {13, 0x0640, 768}, /* 0000 0010 0110 0 */ {13, 0x1640, 832}, /* 0000 0010 0110 1 */ {13, 0x09C0, 896}, /* 0000 0011 1001 0 */ {13, 0x19C0, 960}, /* 0000 0011 1001 1 */ {13, 0x05C0, 1024}, /* 0000 0011 1010 0 */ {13, 0x15C0, 1088}, /* 0000 0011 1010 1 */ {13, 0x0DC0, 1152}, /* 0000 0011 1011 0 */ {13, 0x1DC0, 1216}, /* 0000 0011 1011 1 */ {13, 0x0940, 1280}, /* 0000 0010 1001 0 */ {13, 0x1940, 1344}, /* 0000 0010 1001 1 */ {13, 0x0540, 1408}, /* 0000 0010 1010 0 */ {13, 0x1540, 1472}, /* 0000 0010 1010 1 */ {13, 0x0B40, 1536}, /* 0000 0010 1101 0 */ {13, 0x1B40, 1600}, /* 0000 0010 1101 1 */ {13, 0x04C0, 1664}, /* 0000 0011 0010 0 */ {13, 0x14C0, 1728}, /* 0000 0011 0010 1 */ {11, 0x0080, 1792}, /* 0000 0001 000 */ {11, 0x0180, 1856}, /* 0000 0001 100 */ {11, 0x0580, 1920}, /* 0000 0001 101 */ {12, 0x0480, 1984}, /* 0000 0001 0010 */ {12, 0x0C80, 2048}, /* 0000 0001 0011 */ {12, 0x0280, 2112}, /* 0000 0001 0100 */ {12, 0x0A80, 2176}, /* 0000 0001 0101 */ {12, 0x0680, 2240}, /* 0000 0001 0110 */ {12, 0x0E80, 2304}, /* 0000 0001 0111 */ {12, 0x0380, 2368}, /* 0000 0001 1100 */ {12, 0x0B80, 2432}, /* 0000 0001 1101 */ {12, 0x0780, 2496}, /* 0000 0001 1110 */ {12, 0x0F80, 2560}, /* 0000 0001 1111 */ }; static int encode_row(t4_state_t *s); static void make_header(t4_state_t *s, char *header) { time_t now; struct tm tm; static const char *months[] = { "Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", "Oct", "Nov", "Dec" }; time(&now); if (s->tz) tz_localtime(s->tz, &tm, now); else tm = *localtime(&now); snprintf(header, 132, " %2d-%s-%d %02d:%02d %-50s %-21s p.%d", tm.tm_mday, months[tm.tm_mon], tm.tm_year + 1900, tm.tm_hour, tm.tm_min, s->header_info, (s->tiff.local_ident) ? s->tiff.local_ident : "", s->current_page + 1); } /*- End of function --------------------------------------------------------*/ static int t4_tx_put_fax_header(t4_state_t *s) { int row; int i; int repeats; int pattern; int row_bufptr; char *t; char header[132 + 1]; /* Modify the resulting image to include a header line, typical of hardware FAX machines */ make_header(s, header); switch (s->y_resolution) { case T4_Y_RESOLUTION_1200: repeats = 12; break; case T4_Y_RESOLUTION_800: repeats = 8; break; case T4_Y_RESOLUTION_600: repeats = 6; break; case T4_Y_RESOLUTION_SUPERFINE: repeats = 4; break; case T4_Y_RESOLUTION_300: repeats = 3; break; case T4_Y_RESOLUTION_FINE: repeats = 2; break; default: repeats = 1; break; } for (row = 0; row < 16; row++) { t = header; row_bufptr = 0; for (t = header; *t && row_bufptr <= s->bytes_per_row - 2; t++) { pattern = header_font[(uint8_t) *t][row]; s->row_buf[row_bufptr++] = (uint8_t) (pattern >> 8); s->row_buf[row_bufptr++] = (uint8_t) (pattern & 0xFF); } for ( ; row_bufptr < s->bytes_per_row; ) s->row_buf[row_bufptr++] = 0; for (i = 0; i < repeats; i++) { if (encode_row(s)) return -1; } } return 0; } /*- End of function --------------------------------------------------------*/ static int test_resolution(int res_unit, float actual, float expected) { if (res_unit == RESUNIT_INCH) actual *= 1.0f/CM_PER_INCH; return (expected*0.95f <= actual && actual <= expected*1.05f); } /*- End of function --------------------------------------------------------*/ static int get_tiff_directory_info(t4_state_t *s) { static const struct { float resolution; int code; } x_res_table[] = { { 102.0f/CM_PER_INCH, T4_X_RESOLUTION_R4}, { 204.0f/CM_PER_INCH, T4_X_RESOLUTION_R8}, { 300.0f/CM_PER_INCH, T4_X_RESOLUTION_300}, { 408.0f/CM_PER_INCH, T4_X_RESOLUTION_R16}, { 600.0f/CM_PER_INCH, T4_X_RESOLUTION_600}, { 800.0f/CM_PER_INCH, T4_X_RESOLUTION_800}, {1200.0f/CM_PER_INCH, T4_X_RESOLUTION_1200}, { -1.00f, -1} }; static const struct { float resolution; int code; int max_rows_to_next_1d_row; } y_res_table[] = { { 38.50f, T4_Y_RESOLUTION_STANDARD, 2}, { 77.00f, T4_Y_RESOLUTION_FINE, 4}, { 300.0f/CM_PER_INCH, T4_Y_RESOLUTION_300, 6}, { 154.00f, T4_Y_RESOLUTION_SUPERFINE, 8}, { 600.0f/CM_PER_INCH, T4_Y_RESOLUTION_600, 12}, { 800.0f/CM_PER_INCH, T4_Y_RESOLUTION_800, 16}, {1200.0f/CM_PER_INCH, T4_Y_RESOLUTION_1200, 24}, { -1.00f, -1, -1} }; uint16_t res_unit; uint16_t parm16; uint32_t parm32; float x_resolution; float y_resolution; int i; t4_tiff_state_t *t; t = &s->tiff; parm16 = 0; TIFFGetField(t->tiff_file, TIFFTAG_BITSPERSAMPLE, &parm16); if (parm16 != 1) return -1; TIFFGetField(t->tiff_file, TIFFTAG_SAMPLESPERPIXEL, &parm16); if (parm16 != 1) return -1; parm32 = 0; TIFFGetField(t->tiff_file, TIFFTAG_IMAGEWIDTH, &parm32); s->image_width = parm32; s->bytes_per_row = (s->image_width + 7)/8; parm32 = 0; TIFFGetField(t->tiff_file, TIFFTAG_IMAGELENGTH, &parm32); s->image_length = parm32; x_resolution = 0.0f; TIFFGetField(t->tiff_file, TIFFTAG_XRESOLUTION, &x_resolution); y_resolution = 0.0f; TIFFGetField(t->tiff_file, TIFFTAG_YRESOLUTION, &y_resolution); res_unit = RESUNIT_INCH; TIFFGetField(t->tiff_file, TIFFTAG_RESOLUTIONUNIT, &res_unit); t->photo_metric = PHOTOMETRIC_MINISWHITE; TIFFGetField(t->tiff_file, TIFFTAG_PHOTOMETRIC, &t->photo_metric); if (t->photo_metric != PHOTOMETRIC_MINISWHITE) span_log(&s->logging, SPAN_LOG_FLOW, "%s: Photometric needs swapping.\n", t->file); t->fill_order = FILLORDER_LSB2MSB; #if 0 TIFFGetField(t->tiff_file, TIFFTAG_FILLORDER, &t->fill_order); if (t->fill_order != FILLORDER_LSB2MSB) span_log(&s->logging, SPAN_LOG_FLOW, "%s: Fill order needs swapping.\n", t->file); #endif /* Allow a little range for the X resolution in centimeters. The spec doesn't pin down the precise value. The other value should be exact. */ /* Treat everything we can't match as R8. Most FAXes are this resolution anyway. */ s->x_resolution = T4_X_RESOLUTION_R8; for (i = 0; x_res_table[i].code > 0; i++) { if (test_resolution(res_unit, x_resolution, x_res_table[i].resolution)) { s->x_resolution = x_res_table[i].code; break; } } s->y_resolution = T4_Y_RESOLUTION_STANDARD; s->t4_t6_tx.max_rows_to_next_1d_row = 2; for (i = 0; y_res_table[i].code > 0; i++) { if (test_resolution(res_unit, y_resolution, y_res_table[i].resolution)) { s->y_resolution = y_res_table[i].code; s->t4_t6_tx.max_rows_to_next_1d_row = y_res_table[i].max_rows_to_next_1d_row; break; } } return 0; } /*- End of function --------------------------------------------------------*/ static int test_tiff_directory_info(t4_state_t *s) { static const struct { float resolution; int code; } x_res_table[] = { { 102.0f/CM_PER_INCH, T4_X_RESOLUTION_R4}, { 204.0f/CM_PER_INCH, T4_X_RESOLUTION_R8}, { 300.0f/CM_PER_INCH, T4_X_RESOLUTION_300}, { 408.0f/CM_PER_INCH, T4_X_RESOLUTION_R16}, { 600.0f/CM_PER_INCH, T4_X_RESOLUTION_600}, { 800.0f/CM_PER_INCH, T4_X_RESOLUTION_800}, {1200.0f/CM_PER_INCH, T4_X_RESOLUTION_1200}, { -1.00f, -1} }; static const struct { float resolution; int code; int max_rows_to_next_1d_row; } y_res_table[] = { { 38.50f, T4_Y_RESOLUTION_STANDARD, 2}, { 77.00f, T4_Y_RESOLUTION_FINE, 4}, { 300.0f/CM_PER_INCH, T4_Y_RESOLUTION_300, 6}, { 154.00f, T4_Y_RESOLUTION_SUPERFINE, 8}, { 600.0f/CM_PER_INCH, T4_Y_RESOLUTION_600, 12}, { 800.0f/CM_PER_INCH, T4_Y_RESOLUTION_800, 16}, {1200.0f/CM_PER_INCH, T4_Y_RESOLUTION_1200, 24}, { -1.00f, -1, -1} }; uint16_t res_unit; uint16_t parm16; uint32_t parm32; float x_resolution; float y_resolution; int i; t4_tiff_state_t *t; t = &s->tiff; parm16 = 0; TIFFGetField(t->tiff_file, TIFFTAG_BITSPERSAMPLE, &parm16); if (parm16 != 1) return -1; parm32 = 0; TIFFGetField(t->tiff_file, TIFFTAG_IMAGEWIDTH, &parm32); if (s->image_width != (int) parm32) return 1; x_resolution = 0.0f; TIFFGetField(t->tiff_file, TIFFTAG_XRESOLUTION, &x_resolution); y_resolution = 0.0f; TIFFGetField(t->tiff_file, TIFFTAG_YRESOLUTION, &y_resolution); res_unit = RESUNIT_INCH; TIFFGetField(t->tiff_file, TIFFTAG_RESOLUTIONUNIT, &res_unit); /* Allow a little range for the X resolution in centimeters. The spec doesn't pin down the precise value. The other value should be exact. */ /* Treat everything we can't match as R8. Most FAXes are this resolution anyway. */ for (i = 0; x_res_table[i].code > 0; i++) { if (test_resolution(res_unit, x_resolution, x_res_table[i].resolution)) break; } if (s->x_resolution != x_res_table[i].code) return 1; for (i = 0; y_res_table[i].code > 0; i++) { if (test_resolution(res_unit, y_resolution, y_res_table[i].resolution)) break; } if (s->y_resolution != y_res_table[i].code) return 1; return 0; } /*- End of function --------------------------------------------------------*/ static int get_tiff_total_pages(t4_state_t *s) { int max; /* Each page *should* contain the total number of pages, but can this be trusted? Some files say 0. Actually searching for the last page is more reliable. */ max = 0; while (TIFFSetDirectory(s->tiff.tiff_file, (tdir_t) max)) max++; /* Back to the previous page */ if (!TIFFSetDirectory(s->tiff.tiff_file, (tdir_t) s->current_page)) return -1; return max; } /*- End of function --------------------------------------------------------*/ static int open_tiff_input_file(t4_state_t *s, const char *file) { if ((s->tiff.tiff_file = TIFFOpen(file, "r")) == NULL) return -1; return 0; } /*- End of function --------------------------------------------------------*/ static int read_tiff_image(t4_state_t *s) { int row; int image_length; int i; image_length = 0; TIFFGetField(s->tiff.tiff_file, TIFFTAG_IMAGELENGTH, &image_length); for (row = 0; row < image_length; row++) { if (TIFFReadScanline(s->tiff.tiff_file, s->row_buf, row, 0) <= 0) { span_log(&s->logging, SPAN_LOG_WARNING, "%s: Read error at row %d.\n", s->tiff.file, row); break; } if (s->tiff.photo_metric != PHOTOMETRIC_MINISWHITE) { for (i = 0; i < s->bytes_per_row; i++) s->row_buf[i] = ~s->row_buf[i]; } if (s->tiff.fill_order != FILLORDER_LSB2MSB) bit_reverse(s->row_buf, s->row_buf, s->bytes_per_row); if (encode_row(s)) return -1; } return image_length; } /*- End of function --------------------------------------------------------*/ static int close_tiff_input_file(t4_state_t *s) { TIFFClose(s->tiff.tiff_file); s->tiff.tiff_file = NULL; if (s->tiff.file) free((char *) s->tiff.file); s->tiff.file = NULL; return 0; } /*- End of function --------------------------------------------------------*/ static void update_row_bit_info(t4_state_t *s) { if (s->row_bits > s->max_row_bits) s->max_row_bits = s->row_bits; if (s->row_bits < s->min_row_bits) s->min_row_bits = s->row_bits; s->row_bits = 0; } /*- End of function --------------------------------------------------------*/ static int free_buffers(t4_state_t *s) { if (s->image_buffer) { free(s->image_buffer); s->image_buffer = NULL; s->image_buffer_size = 0; } if (s->cur_runs) { free(s->cur_runs); s->cur_runs = NULL; } if (s->ref_runs) { free(s->ref_runs); s->ref_runs = NULL; } if (s->row_buf) { free(s->row_buf); s->row_buf = NULL; } return 0; } /*- End of function --------------------------------------------------------*/ static int row_to_run_lengths(uint32_t list[], const uint8_t row[], int width) { uint32_t flip; uint32_t x; int span; int entry; int frag; int rem; int limit; int i; int pos; /* Deal with whole words first. We know we are starting on a word boundary. */ entry = 0; flip = 0; limit = (width >> 3) & ~3; span = 0; pos = 0; for (i = 0; i < limit; i += sizeof(uint32_t)) { x = *((uint32_t *) &row[i]); if (x != flip) { x = ((uint32_t) row[i] << 24) | ((uint32_t) row[i + 1] << 16) | ((uint32_t) row[i + 2] << 8) | ((uint32_t) row[i + 3]); /* We know we are going to find at least one transition. */ frag = 31 - top_bit(x ^ flip); pos += ((i << 3) - span + frag); list[entry++] = pos; x <<= frag; flip ^= 0xFFFFFFFF; rem = 32 - frag; /* Now see if there are any more */ while ((frag = 31 - top_bit(x ^ flip)) < rem) { pos += frag; list[entry++] = pos; x <<= frag; flip ^= 0xFFFFFFFF; rem -= frag; } /* Save the remainder of the word */ span = (i << 3) + 32 - rem; } } /* Now deal with some whole bytes, if there are any left. */ limit = width >> 3; flip &= 0xFF000000; if (i < limit) { for ( ; i < limit; i++) { x = (uint32_t) row[i] << 24; if (x != flip) { /* We know we are going to find at least one transition. */ frag = 31 - top_bit(x ^ flip); pos += ((i << 3) - span + frag); list[entry++] = pos; x <<= frag; flip ^= 0xFF000000; rem = 8 - frag; /* Now see if there are any more */ while ((frag = 31 - top_bit(x ^ flip)) < rem) { pos += frag; list[entry++] = pos; x <<= frag; flip ^= 0xFF000000; rem -= frag; } /* Save the remainder of the word */ span = (i << 3) + 8 - rem; } } } /* Deal with any left over fractional byte. */ span = (i << 3) - span; if ((rem = width & 7)) { x = row[i]; x <<= 24; do { frag = 31 - top_bit(x ^ flip); if (frag > rem) frag = rem; pos += (span + frag); list[entry++] = pos; x <<= frag; span = 0; flip ^= 0xFF000000; rem -= frag; } while (rem > 0); } else { if (span) { pos += span; list[entry++] = pos; } } return entry; } /*- End of function --------------------------------------------------------*/ static __inline__ int put_encoded_bits(t4_state_t *s, uint32_t bits, int length) { uint8_t *t; /* We might be called with a large length value, to spew out a mass of zero bits for minimum row length padding. */ s->tx_bitstream |= (bits << s->tx_bits); s->tx_bits += length; s->row_bits += length; if ((s->image_size + (s->tx_bits + 7)/8) >= s->image_buffer_size) { if ((t = realloc(s->image_buffer, s->image_buffer_size + 100*s->bytes_per_row)) == NULL) return -1; s->image_buffer = t; s->image_buffer_size += 100*s->bytes_per_row; } while (s->tx_bits >= 8) { s->image_buffer[s->image_size++] = (uint8_t) (s->tx_bitstream & 0xFF); s->tx_bitstream >>= 8; s->tx_bits -= 8; } return 0; } /*- End of function --------------------------------------------------------*/ /* * Write the sequence of codes that describes * the specified span of zero's or one's. The * appropriate table that holds the make-up and * terminating codes is supplied. */ static __inline__ int put_1d_span(t4_state_t *s, int32_t span, const t4_run_table_entry_t *tab) { const t4_run_table_entry_t *te; te = &tab[63 + (2560 >> 6)]; while (span >= 2560 + 64) { if (put_encoded_bits(s, te->code, te->length)) return -1; span -= te->run_length; } te = &tab[63 + (span >> 6)]; if (span >= 64) { if (put_encoded_bits(s, te->code, te->length)) return -1; span -= te->run_length; } if (put_encoded_bits(s, tab[span].code, tab[span].length)) return -1; return 0; } /*- End of function --------------------------------------------------------*/ #define pixel_is_black(x,bit) (((x)[(bit) >> 3] << ((bit) & 7)) & 0x80) /* * Write an EOL code to the output stream. We also handle writing the tag * bit for the next scanline when doing 2D encoding. */ static void encode_eol(t4_state_t *s) { uint32_t code; int length; if (s->line_encoding == T4_COMPRESSION_ITU_T4_2D) { code = 0x0800 | ((!s->row_is_2d) << 12); length = 13; } else { /* T.4 1D EOL, or T.6 EOFB */ code = 0x800; length = 12; } if (s->row_bits) { /* We may need to pad the row to a minimum length, unless we are in T.6 mode. In T.6 we only come here at the end of the page to add the EOFB marker, which is like two 1D EOLs. */ if (s->line_encoding != T4_COMPRESSION_ITU_T6) { if (s->row_bits + length < s->t4_t6_tx.min_bits_per_row) put_encoded_bits(s, 0, s->t4_t6_tx.min_bits_per_row - (s->row_bits + length)); } put_encoded_bits(s, code, length); update_row_bit_info(s); } else { /* We don't pad zero length rows. They are the consecutive EOLs which end a page. */ put_encoded_bits(s, code, length); /* Don't do the full update row bit info, or the minimum suddenly drops to the length of an EOL. Just clear the row bits, so we treat the next EOL as an end of page EOL, with no padding. */ s->row_bits = 0; } } /*- End of function --------------------------------------------------------*/ /* * 2D-encode a row of pixels. Consult ITU specification T.4 for the algorithm. */ static void encode_2d_row(t4_state_t *s) { static const t4_run_table_entry_t codes[] = { { 7, 0x60, 0 }, /* VR3 0000 011 */ { 6, 0x30, 0 }, /* VR2 0000 11 */ { 3, 0x06, 0 }, /* VR1 011 */ { 1, 0x01, 0 }, /* V0 1 */ { 3, 0x02, 0 }, /* VL1 010 */ { 6, 0x10, 0 }, /* VL2 0000 10 */ { 7, 0x20, 0 }, /* VL3 0000 010 */ { 3, 0x04, 0 }, /* horizontal 001 */ { 4, 0x08, 0 } /* pass 0001 */ }; /* The reference or starting changing element on the coding line. At the start of the coding line, a0 is set on an imaginary white changing element situated just before the first element on the line. During the coding of the coding line, the position of a0 is defined by the previous coding mode. (See T.4/4.2.1.3.2.) */ int a0; /* The next changing element to the right of a0 on the coding line. */ int a1; /* The next changing element to the right of a1 on the coding line. */ int a2; /* The first changing element on the reference line to the right of a0 and of opposite colour to a0. */ int b1; /* The next changing element to the right of b1 on the reference line. */ int b2; int diff; int a_cursor; int b_cursor; int cur_steps; uint32_t *p; /* b1 b2 XX XX XX XX XX -- -- -- -- -- XX XX XX -- -- -- -- -- XX XX XX -- -- -- -- -- XX XX XX XX XX XX -- -- -- -- a0 a1 a2 a) Pass mode This mode is identified when the position of b2 lies to the left of a1. When this mode has been coded, a0 is set on the element of the coding line below b2 in preparation for the next coding (i.e. on a0'). b1 b2 XX XX XX XX -- -- XX XX XX -- -- -- -- -- XX XX -- -- -- -- -- -- -- -- -- -- XX XX a0 a0' a1 Pass mode However, the state where b2 occurs just above a1, as shown in the figure below, is not considered as a pass mode. b1 b2 XX XX XX XX -- -- XX XX XX -- -- -- -- -- XX XX -- -- -- -- -- -- -- XX XX XX XX XX a0 a1 Not pass mode b) Vertical mode When this mode is identified, the position of a1 is coded relative to the position of b1. The relative distance a1b1 can take on one of seven values V(0), VR(1), VR(2), VR(3), VL(1), VL(2) and VL(3), each of which is represented by a separate code word. The subscripts R and L indicate that a1 is to the right or left respectively of b1, and the number in brackets indicates the value of the distance a1b1. After vertical mode coding has occurred, the position of a0 is set on a1 (see figure below). c) Horizontal mode When this mode is identified, both the run-lengths a0a1 and a1a2 are coded using the code words H + M(a0a1) + M(a1a2). H is the flag code word 001 taken from the two-dimensional code table. M(a0a1) and M(a1a2) are code words which represent the length and "colour" of the runs a0a1 and a1a2 respectively and are taken from the appropriate white or black one-dimensional code tables. After a horizontal mode coding, the position of a0 is set on a2 (see figure below). Vertical b1 b2 -- XX XX XX XX XX -- -- -- -- -- -- -- -- XX XX XX XX -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- XX XX XX XX XX XX XX -- -- a0 a1 a2 <-------- a0a1 --------><-------- a1a2 ------------> Horizontal mode Vertical and horizontal modes */ /* The following implements the 2-D encoding section of the flow chart in Figure7/T.4 */ cur_steps = row_to_run_lengths(s->cur_runs, s->row_buf, s->image_width); /* Stretch the row a little, so when we step by 2 we are guaranteed to hit an entry showing the row length */ s->cur_runs[cur_steps] = s->cur_runs[cur_steps + 1] = s->cur_runs[cur_steps + 2] = s->cur_runs[cur_steps - 1]; a0 = 0; a1 = s->cur_runs[0]; b1 = s->ref_runs[0]; a_cursor = 0; b_cursor = 0; for (;;) { b2 = s->ref_runs[b_cursor + 1]; if (b2 >= a1) { diff = b1 - a1; if (abs(diff) <= 3) { /* Vertical mode coding */ put_encoded_bits(s, codes[diff + 3].code, codes[diff + 3].length); a0 = a1; a_cursor++; } else { /* Horizontal mode coding */ a2 = s->cur_runs[a_cursor + 1]; put_encoded_bits(s, codes[7].code, codes[7].length); if (a0 + a1 == 0 || pixel_is_black(s->row_buf, a0) == 0) { put_1d_span(s, a1 - a0, t4_white_codes); put_1d_span(s, a2 - a1, t4_black_codes); } else { put_1d_span(s, a1 - a0, t4_black_codes); put_1d_span(s, a2 - a1, t4_white_codes); } a0 = a2; a_cursor += 2; } if (a0 >= s->image_width) break; if (a_cursor >= cur_steps) a_cursor = cur_steps - 1; a1 = s->cur_runs[a_cursor]; } else { /* Pass mode coding */ put_encoded_bits(s, codes[8].code, codes[8].length); /* We now set a0 to somewhere in the middle of its current run, but we know are aren't moving beyond that run. */ a0 = b2; if (a0 >= s->image_width) break; } /* We need to hunt for the correct position in the reference row, as the runs there have no particular alignment with the runs in the current row. */ if (pixel_is_black(s->row_buf, a0)) b_cursor |= 1; else b_cursor &= ~1; if (a0 < (int) s->ref_runs[b_cursor]) { for ( ; b_cursor >= 0; b_cursor -= 2) { if (a0 >= (int) s->ref_runs[b_cursor]) break; } b_cursor += 2; } else { for ( ; b_cursor < s->t4_t6_tx.ref_steps; b_cursor += 2) { if (a0 < (int) s->ref_runs[b_cursor]) break; } if (b_cursor >= s->t4_t6_tx.ref_steps) b_cursor = s->t4_t6_tx.ref_steps - 1; } b1 = s->ref_runs[b_cursor]; } /* Swap the buffers */ s->t4_t6_tx.ref_steps = cur_steps; p = s->cur_runs; s->cur_runs = s->ref_runs; s->ref_runs = p; } /*- End of function --------------------------------------------------------*/ /* * 1D-encode a row of pixels. The encoding is a sequence of all-white or * all-black spans of pixels encoded with Huffman codes. */ static void encode_1d_row(t4_state_t *s) { int i; /* Do our work in the reference row buffer, and it is already in place if we need a reference row for a following 2D encoded row. */ s->t4_t6_tx.ref_steps = row_to_run_lengths(s->ref_runs, s->row_buf, s->image_width); put_1d_span(s, s->ref_runs[0], t4_white_codes); for (i = 1; i < s->t4_t6_tx.ref_steps; i++) put_1d_span(s, s->ref_runs[i] - s->ref_runs[i - 1], (i & 1) ? t4_black_codes : t4_white_codes); /* Stretch the row a little, so when we step by 2 we are guaranteed to hit an entry showing the row length */ s->ref_runs[s->t4_t6_tx.ref_steps] = s->ref_runs[s->t4_t6_tx.ref_steps + 1] = s->ref_runs[s->t4_t6_tx.ref_steps + 2] = s->ref_runs[s->t4_t6_tx.ref_steps - 1]; } /*- End of function --------------------------------------------------------*/ static int encode_row(t4_state_t *s) { switch (s->line_encoding) { case T4_COMPRESSION_ITU_T6: /* T.6 compression is a trivial step up from T.4 2D, so we just throw it in here. T.6 is only used with error correction, so it does not need independantly compressed (i.e. 1D) lines to recover from data errors. It doesn't need EOLs, either. */ if (s->row_bits) update_row_bit_info(s); encode_2d_row(s); break; case T4_COMPRESSION_ITU_T4_2D: encode_eol(s); if (s->row_is_2d) { encode_2d_row(s); s->t4_t6_tx.rows_to_next_1d_row--; } else { encode_1d_row(s); s->row_is_2d = TRUE; } if (s->t4_t6_tx.rows_to_next_1d_row <= 0) { /* Insert a row of 1D encoding */ s->row_is_2d = FALSE; s->t4_t6_tx.rows_to_next_1d_row = s->t4_t6_tx.max_rows_to_next_1d_row - 1; } break; default: case T4_COMPRESSION_ITU_T4_1D: encode_eol(s); encode_1d_row(s); break; } s->row++; return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) t4_tx_set_row_read_handler(t4_state_t *s, t4_row_read_handler_t handler, void *user_data) { s->t4_t6_tx.row_read_handler = handler; s->t4_t6_tx.row_read_user_data = user_data; return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(t4_state_t *) t4_tx_init(t4_state_t *s, const char *file, int start_page, int stop_page) { int run_space; if (s == NULL) { if ((s = (t4_state_t *) malloc(sizeof(*s))) == NULL) return NULL; } memset(s, 0, sizeof(*s)); span_log_init(&s->logging, SPAN_LOG_NONE, NULL); span_log_set_protocol(&s->logging, "T.4"); s->rx = FALSE; span_log(&s->logging, SPAN_LOG_FLOW, "Start tx document\n"); if (open_tiff_input_file(s, file) < 0) return NULL; s->tiff.file = strdup(file); s->current_page = s->tiff.start_page = (start_page >= 0) ? start_page : 0; s->tiff.stop_page = (stop_page >= 0) ? stop_page : INT_MAX; if (!TIFFSetDirectory(s->tiff.tiff_file, (tdir_t) s->current_page)) return NULL; if (get_tiff_directory_info(s)) { close_tiff_input_file(s); return NULL; } s->t4_t6_tx.rows_to_next_1d_row = s->t4_t6_tx.max_rows_to_next_1d_row - 1; s->tiff.pages_in_file = -1; run_space = (s->image_width + 4)*sizeof(uint32_t); if ((s->cur_runs = (uint32_t *) malloc(run_space)) == NULL) return NULL; if ((s->ref_runs = (uint32_t *) malloc(run_space)) == NULL) { free_buffers(s); close_tiff_input_file(s); return NULL; } if ((s->row_buf = malloc(s->bytes_per_row)) == NULL) { free_buffers(s); close_tiff_input_file(s); return NULL; } s->ref_runs[0] = s->ref_runs[1] = s->ref_runs[2] = s->ref_runs[3] = s->image_width; s->t4_t6_tx.ref_steps = 1; s->image_buffer_size = 0; return s; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) t4_tx_start_page(t4_state_t *s) { int row; int i; int run_space; int len; int old_image_width; uint8_t *bufptr8; uint32_t *bufptr; span_log(&s->logging, SPAN_LOG_FLOW, "Start tx page %d\n", s->current_page); if (s->current_page > s->tiff.stop_page) return -1; if (s->tiff.tiff_file == NULL) return -1; old_image_width = s->image_width; if (s->t4_t6_tx.row_read_handler == NULL) { #if defined(HAVE_LIBTIFF) if (!TIFFSetDirectory(s->tiff.tiff_file, (tdir_t) s->current_page)) return -1; get_tiff_directory_info(s); #endif } s->image_size = 0; s->tx_bitstream = 0; s->tx_bits = 0; s->row_is_2d = (s->line_encoding == T4_COMPRESSION_ITU_T6); s->t4_t6_tx.rows_to_next_1d_row = s->t4_t6_tx.max_rows_to_next_1d_row - 1; /* Allow for pages being of different width. */ run_space = (s->image_width + 4)*sizeof(uint32_t); if (old_image_width != s->image_width) { s->bytes_per_row = (s->image_width + 7)/8; if ((bufptr = (uint32_t *) realloc(s->cur_runs, run_space)) == NULL) return -1; s->cur_runs = bufptr; if ((bufptr = (uint32_t *) realloc(s->ref_runs, run_space)) == NULL) return -1; s->ref_runs = bufptr; if ((bufptr8 = realloc(s->row_buf, s->bytes_per_row)) == NULL) return -1; s->row_buf = bufptr8; } s->ref_runs[0] = s->ref_runs[1] = s->ref_runs[2] = s->ref_runs[3] = s->image_width; s->t4_t6_tx.ref_steps = 1; s->row_bits = 0; s->min_row_bits = INT_MAX; s->max_row_bits = 0; if (s->header_info && s->header_info[0]) { if (t4_tx_put_fax_header(s)) return -1; } if (s->t4_t6_tx.row_read_handler) { for (row = 0; ; row++) { if ((len = s->t4_t6_tx.row_read_handler(s->t4_t6_tx.row_read_user_data, s->row_buf, s->bytes_per_row)) < 0) { span_log(&s->logging, SPAN_LOG_WARNING, "%s: Read error at row %d.\n", s->tiff.file, row); break; } if (len == 0) break; if (encode_row(s)) return -1; } s->image_length = row; } else { if ((s->image_length = read_tiff_image(s)) < 0) return -1; } if (s->line_encoding == T4_COMPRESSION_ITU_T6) { /* Attach an EOFB (end of facsimile block == 2 x EOLs) to the end of the page */ for (i = 0; i < EOLS_TO_END_T6_TX_PAGE; i++) encode_eol(s); } else { /* Attach an RTC (return to control == 6 x EOLs) to the end of the page */ s->row_is_2d = FALSE; for (i = 0; i < EOLS_TO_END_T4_TX_PAGE; i++) encode_eol(s); } /* Force any partial byte in progress to flush using ones. Any post EOL padding when sending is normally ones, so this is consistent. */ put_encoded_bits(s, 0xFF, 7); s->t4_t6_tx.bit_pos = 7; s->t4_t6_tx.bit_ptr = 0; s->line_image_size = s->image_size*8; return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) t4_tx_next_page_has_different_format(t4_state_t *s) { span_log(&s->logging, SPAN_LOG_FLOW, "Checking for the existance of page %d\n", s->current_page + 1); if (s->current_page >= s->tiff.stop_page) return -1; if (s->t4_t6_tx.row_read_handler == NULL) { #if defined(HAVE_LIBTIFF) if (s->tiff.tiff_file == NULL) return -1; if (!TIFFSetDirectory(s->tiff.tiff_file, (tdir_t) s->current_page + 1)) return -1; return test_tiff_directory_info(s); #endif } return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) t4_tx_restart_page(t4_state_t *s) { s->t4_t6_tx.bit_pos = 7; s->t4_t6_tx.bit_ptr = 0; return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) t4_tx_end_page(t4_state_t *s) { s->current_page++; return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) t4_tx_get_bit(t4_state_t *s) { int bit; if (s->t4_t6_tx.bit_ptr >= s->image_size) return SIG_STATUS_END_OF_DATA; bit = (s->image_buffer[s->t4_t6_tx.bit_ptr] >> (7 - s->t4_t6_tx.bit_pos)) & 1; if (--s->t4_t6_tx.bit_pos < 0) { s->t4_t6_tx.bit_pos = 7; s->t4_t6_tx.bit_ptr++; } return bit; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) t4_tx_get_byte(t4_state_t *s) { if (s->t4_t6_tx.bit_ptr >= s->image_size) return 0x100; return s->image_buffer[s->t4_t6_tx.bit_ptr++]; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) t4_tx_get_chunk(t4_state_t *s, uint8_t buf[], int max_len) { if (s->t4_t6_tx.bit_ptr >= s->image_size) return 0; if (s->t4_t6_tx.bit_ptr + max_len > s->image_size) max_len = s->image_size - s->t4_t6_tx.bit_ptr; memcpy(buf, &s->image_buffer[s->t4_t6_tx.bit_ptr], max_len); s->t4_t6_tx.bit_ptr += max_len; return max_len; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) t4_tx_check_bit(t4_state_t *s) { int bit; if (s->t4_t6_tx.bit_ptr >= s->image_size) return SIG_STATUS_END_OF_DATA; bit = (s->image_buffer[s->t4_t6_tx.bit_ptr] >> s->t4_t6_tx.bit_pos) & 1; return bit; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) t4_tx_release(t4_state_t *s) { if (s->rx) return -1; if (s->tiff.tiff_file) close_tiff_input_file(s); free_buffers(s); return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) t4_tx_free(t4_state_t *s) { int ret; ret = t4_tx_release(s); free(s); return ret; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) t4_tx_set_tx_encoding(t4_state_t *s, int encoding) { s->line_encoding = encoding; s->t4_t6_tx.rows_to_next_1d_row = s->t4_t6_tx.max_rows_to_next_1d_row - 1; s->row_is_2d = FALSE; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) t4_tx_set_min_bits_per_row(t4_state_t *s, int bits) { s->t4_t6_tx.min_bits_per_row = bits; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) t4_tx_set_local_ident(t4_state_t *s, const char *ident) { s->tiff.local_ident = (ident && ident[0]) ? ident : NULL; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) t4_tx_set_header_info(t4_state_t *s, const char *info) { s->header_info = (info && info[0]) ? info : NULL; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) t4_tx_set_header_tz(t4_state_t *s, const char *tzstring) { s->tz = tz_init(s->tz, tzstring); } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) t4_tx_get_y_resolution(t4_state_t *s) { return s->y_resolution; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) t4_tx_get_x_resolution(t4_state_t *s) { return s->x_resolution; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) t4_tx_get_image_width(t4_state_t *s) { return s->image_width; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) t4_tx_get_pages_in_file(t4_state_t *s) { int max; max = 0; if (s->t4_t6_tx.row_read_handler == NULL) max = get_tiff_total_pages(s); if (max >= 0) s->tiff.pages_in_file = max; return max; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) t4_tx_get_current_page_in_file(t4_state_t *s) { return s->current_page; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) t4_tx_get_transfer_statistics(t4_state_t *s, t4_stats_t *t) { t->pages_transferred = s->current_page - s->tiff.start_page; t->pages_in_file = s->tiff.pages_in_file; t->width = s->image_width; t->length = s->image_length; t->bad_rows = s->t4_t6_rx.bad_rows; t->longest_bad_row_run = s->t4_t6_rx.longest_bad_row_run; t->x_resolution = s->x_resolution; t->y_resolution = s->y_resolution; t->encoding = s->line_encoding; t->line_image_size = s->line_image_size/8; } /*- End of function --------------------------------------------------------*/ /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/v27ter_tx.c0000664000175000017500000004045411422612263015404 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * v27ter_tx.c - ITU V.27ter modem transmit part * * Written by Steve Underwood * * Copyright (C) 2003 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \file */ #if defined(HAVE_CONFIG_H) #include "config.h" #endif #include #include #include #include #if defined(HAVE_TGMATH_H) #include #endif #if defined(HAVE_MATH_H) #include #endif #include "floating_fudge.h" #include "spandsp/telephony.h" #include "spandsp/fast_convert.h" #include "spandsp/logging.h" #include "spandsp/complex.h" #include "spandsp/vector_float.h" #include "spandsp/complex_vector_float.h" #include "spandsp/vector_int.h" #include "spandsp/complex_vector_int.h" #include "spandsp/async.h" #include "spandsp/dds.h" #include "spandsp/power_meter.h" #include "spandsp/v27ter_tx.h" #include "spandsp/private/logging.h" #include "spandsp/private/v27ter_tx.h" #if defined(SPANDSP_USE_FIXED_POINT) #include "v27ter_tx_4800_fixed_rrc.h" #include "v27ter_tx_2400_fixed_rrc.h" #else #include "v27ter_tx_4800_floating_rrc.h" #include "v27ter_tx_2400_floating_rrc.h" #endif /*! The nominal frequency of the carrier, in Hertz */ #define CARRIER_NOMINAL_FREQ 1800.0f /* Segments of the training sequence */ /* V.27ter defines a long and a short sequence. FAX doesn't use the short sequence, so it is not implemented here. */ /*! The start of training segment 1, in symbols */ #define V27TER_TRAINING_SEG_1 0 /*! The start of training segment 2, in symbols */ #define V27TER_TRAINING_SEG_2 (V27TER_TRAINING_SEG_1 + 320) /*! The start of training segment 3, in symbols */ #define V27TER_TRAINING_SEG_3 (V27TER_TRAINING_SEG_2 + 32) /*! The start of training segment 4, in symbols */ #define V27TER_TRAINING_SEG_4 (V27TER_TRAINING_SEG_3 + 50) /*! The start of training segment 5, in symbols */ #define V27TER_TRAINING_SEG_5 (V27TER_TRAINING_SEG_4 + 1074) /*! The end of the training, in symbols */ #define V27TER_TRAINING_END (V27TER_TRAINING_SEG_5 + 8) /*! The end of the shutdown sequence, in symbols */ #define V27TER_TRAINING_SHUTDOWN_END (V27TER_TRAINING_END + 32) static int fake_get_bit(void *user_data) { return 1; } /*- End of function --------------------------------------------------------*/ static __inline__ int scramble(v27ter_tx_state_t *s, int in_bit) { int out_bit; /* This scrambler is really quite messy to implement. There seems to be no efficient shortcut */ out_bit = (in_bit ^ (s->scramble_reg >> 5) ^ (s->scramble_reg >> 6)) & 1; if (s->scrambler_pattern_count >= 33) { out_bit ^= 1; s->scrambler_pattern_count = 0; } else { if ((((s->scramble_reg >> 7) ^ out_bit) & ((s->scramble_reg >> 8) ^ out_bit) & ((s->scramble_reg >> 11) ^ out_bit) & 1)) s->scrambler_pattern_count = 0; else s->scrambler_pattern_count++; } s->scramble_reg = (s->scramble_reg << 1) | out_bit; return out_bit; } /*- End of function --------------------------------------------------------*/ static __inline__ int get_scrambled_bit(v27ter_tx_state_t *s) { int bit; if ((bit = s->current_get_bit(s->get_bit_user_data)) == SIG_STATUS_END_OF_DATA) { /* End of real data. Switch to the fake get_bit routine, until we have shut down completely. */ if (s->status_handler) s->status_handler(s->status_user_data, SIG_STATUS_END_OF_DATA); s->current_get_bit = fake_get_bit; s->in_training = TRUE; bit = 1; } return scramble(s, bit); } /*- End of function --------------------------------------------------------*/ #if defined(SPANDSP_USE_FIXED_POINT) static complexi16_t getbaud(v27ter_tx_state_t *s) #else static complexf_t getbaud(v27ter_tx_state_t *s) #endif { static const int phase_steps_4800[8] = { 1, 0, 2, 3, 6, 7, 5, 4 }; static const int phase_steps_2400[4] = { 0, 2, 6, 4 }; #if defined(SPANDSP_USE_FIXED_POINT) static const complexi16_t constellation[8] = { { 1414, 0000}, /* 0deg */ { 1000, 1000}, /* 45deg */ { 0000, 1414}, /* 90deg */ {-1000, 1000}, /* 135deg */ {-1414, 0000}, /* 180deg */ {-1000, -1000}, /* 225deg */ { 0000, -1414}, /* 270deg */ { 1000, -1000} /* 315deg */ }; static const complexi16_t zero = {0, 0}; #else static const complexf_t constellation[8] = { { 1.414f, 0.0f}, /* 0deg */ { 1.0f, 1.0f}, /* 45deg */ { 0.0f, 1.414f}, /* 90deg */ {-1.0f, 1.0f}, /* 135deg */ {-1.414f, 0.0f}, /* 180deg */ {-1.0f, -1.0f}, /* 225deg */ { 0.0f, -1.414f}, /* 270deg */ { 1.0f, -1.0f} /* 315deg */ }; static const complexf_t zero = {0.0f, 0.0f}; #endif int bits; if (s->in_training) { /* Send the training sequence */ if (++s->training_step <= V27TER_TRAINING_SEG_5) { if (s->training_step <= V27TER_TRAINING_SEG_4) { if (s->training_step <= V27TER_TRAINING_SEG_2) { /* Segment 1: Unmodulated carrier (talker echo protection) */ return constellation[0]; } if (s->training_step <= V27TER_TRAINING_SEG_3) { /* Segment 2: Silence */ return zero; } /* Segment 3: Regular reversals... */ s->constellation_state = (s->constellation_state + 4) & 7; return constellation[s->constellation_state]; } /* Segment 4: Scrambled reversals... */ /* Apply the 1 + x^-6 + x^-7 scrambler. We want every third bit from the scrambler. */ bits = get_scrambled_bit(s) << 2; get_scrambled_bit(s); get_scrambled_bit(s); s->constellation_state = (s->constellation_state + bits) & 7; return constellation[s->constellation_state]; } /* We should be in the block of test ones, or shutdown ones, if we get here. */ /* There is no graceful shutdown procedure defined for V.27ter. Just send some ones, to ensure we get the real data bits through, even with bad ISI. */ if (s->training_step == V27TER_TRAINING_END + 1) { /* End of the last segment - segment 5: All ones */ /* Switch from the fake get_bit routine, to the user supplied real one, and we are up and running. */ s->current_get_bit = s->get_bit; s->in_training = FALSE; } if (s->training_step == V27TER_TRAINING_SHUTDOWN_END) { if (s->status_handler) s->status_handler(s->status_user_data, SIG_STATUS_SHUTDOWN_COMPLETE); } } /* 4800bps uses 8 phases. 2400bps uses 4 phases. */ if (s->bit_rate == 4800) { bits = get_scrambled_bit(s); bits = (bits << 1) | get_scrambled_bit(s); bits = (bits << 1) | get_scrambled_bit(s); bits = phase_steps_4800[bits]; } else { bits = get_scrambled_bit(s); bits = (bits << 1) | get_scrambled_bit(s); bits = phase_steps_2400[bits]; } s->constellation_state = (s->constellation_state + bits) & 7; return constellation[s->constellation_state]; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE_NONSTD(int) v27ter_tx(v27ter_tx_state_t *s, int16_t amp[], int len) { #if defined(SPANDSP_USE_FIXED_POINT) complexi_t x; complexi_t z; #else complexf_t x; complexf_t z; #endif int i; int sample; if (s->training_step >= V27TER_TRAINING_SHUTDOWN_END) { /* Once we have sent the shutdown symbols, we stop sending completely. */ return 0; } /* The symbol rates for the two bit rates are different. This makes it difficult to merge both generation procedures into a single efficient loop. We do not bother trying. We use two independent loops, filter coefficients, etc. */ if (s->bit_rate == 4800) { for (sample = 0; sample < len; sample++) { if (++s->baud_phase >= 5) { s->baud_phase -= 5; s->rrc_filter[s->rrc_filter_step] = s->rrc_filter[s->rrc_filter_step + V27TER_TX_FILTER_STEPS] = getbaud(s); if (++s->rrc_filter_step >= V27TER_TX_FILTER_STEPS) s->rrc_filter_step = 0; } /* Root raised cosine pulse shaping at baseband */ #if defined(SPANDSP_USE_FIXED_POINT) x = complex_seti(0, 0); for (i = 0; i < V27TER_TX_FILTER_STEPS; i++) { x.re += (int32_t) tx_pulseshaper_4800[TX_PULSESHAPER_4800_COEFF_SETS - 1 - s->baud_phase][i]*(int32_t) s->rrc_filter[i + s->rrc_filter_step].re; x.im += (int32_t) tx_pulseshaper_4800[TX_PULSESHAPER_4800_COEFF_SETS - 1 - s->baud_phase][i]*(int32_t) s->rrc_filter[i + s->rrc_filter_step].im; } /* Now create and modulate the carrier */ x.re >>= 14; x.im >>= 14; z = dds_complexi(&(s->carrier_phase), s->carrier_phase_rate); /* Don't bother saturating. We should never clip. */ i = (x.re*z.re - x.im*z.im) >> 15; amp[sample] = (int16_t) ((i*s->gain_4800) >> 15); #else x = complex_setf(0.0f, 0.0f); for (i = 0; i < V27TER_TX_FILTER_STEPS; i++) { x.re += tx_pulseshaper_4800[TX_PULSESHAPER_4800_COEFF_SETS - 1 - s->baud_phase][i]*s->rrc_filter[i + s->rrc_filter_step].re; x.im += tx_pulseshaper_4800[TX_PULSESHAPER_4800_COEFF_SETS - 1 - s->baud_phase][i]*s->rrc_filter[i + s->rrc_filter_step].im; } /* Now create and modulate the carrier */ z = dds_complexf(&(s->carrier_phase), s->carrier_phase_rate); /* Don't bother saturating. We should never clip. */ amp[sample] = (int16_t) lfastrintf((x.re*z.re - x.im*z.im)*s->gain_4800); #endif } } else { for (sample = 0; sample < len; sample++) { if ((s->baud_phase += 3) >= 20) { s->baud_phase -= 20; s->rrc_filter[s->rrc_filter_step] = s->rrc_filter[s->rrc_filter_step + V27TER_TX_FILTER_STEPS] = getbaud(s); if (++s->rrc_filter_step >= V27TER_TX_FILTER_STEPS) s->rrc_filter_step = 0; } /* Root raised cosine pulse shaping at baseband */ #if defined(SPANDSP_USE_FIXED_POINT) x = complex_seti(0, 0); for (i = 0; i < V27TER_TX_FILTER_STEPS; i++) { x.re += (int32_t) tx_pulseshaper_2400[TX_PULSESHAPER_2400_COEFF_SETS - 1 - s->baud_phase][i]*(int32_t) s->rrc_filter[i + s->rrc_filter_step].re; x.im += (int32_t) tx_pulseshaper_2400[TX_PULSESHAPER_2400_COEFF_SETS - 1 - s->baud_phase][i]*(int32_t) s->rrc_filter[i + s->rrc_filter_step].im; } /* Now create and modulate the carrier */ x.re >>= 14; x.im >>= 14; z = dds_complexi(&(s->carrier_phase), s->carrier_phase_rate); /* Don't bother saturating. We should never clip. */ i = (x.re*z.re - x.im*z.im) >> 15; amp[sample] = (int16_t) ((i*s->gain_2400) >> 15); #else x = complex_setf(0.0f, 0.0f); for (i = 0; i < V27TER_TX_FILTER_STEPS; i++) { x.re += tx_pulseshaper_2400[TX_PULSESHAPER_2400_COEFF_SETS - 1 - s->baud_phase][i]*s->rrc_filter[i + s->rrc_filter_step].re; x.im += tx_pulseshaper_2400[TX_PULSESHAPER_2400_COEFF_SETS - 1 - s->baud_phase][i]*s->rrc_filter[i + s->rrc_filter_step].im; } /* Now create and modulate the carrier */ z = dds_complexf(&(s->carrier_phase), s->carrier_phase_rate); /* Don't bother saturating. We should never clip. */ amp[sample] = (int16_t) lfastrintf((x.re*z.re - x.im*z.im)*s->gain_2400); #endif } } return sample; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) v27ter_tx_power(v27ter_tx_state_t *s, float power) { float l; l = powf(10.0f, (power - DBM0_MAX_POWER)/20.0f)*32768.0f; #if defined(SPANDSP_USE_FIXED_POINT) s->gain_2400 = 16.0f*1.024f*(32767.0f/28828.51f)*l/TX_PULSESHAPER_2400_GAIN; s->gain_4800 = 16.0f*1.024f*(32767.0f/28828.46f)*l/TX_PULSESHAPER_4800_GAIN; #else s->gain_2400 = l/TX_PULSESHAPER_2400_GAIN; s->gain_4800 = l/TX_PULSESHAPER_4800_GAIN; #endif } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) v27ter_tx_set_get_bit(v27ter_tx_state_t *s, get_bit_func_t get_bit, void *user_data) { if (s->get_bit == s->current_get_bit) s->current_get_bit = get_bit; s->get_bit = get_bit; s->get_bit_user_data = user_data; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) v27ter_tx_set_modem_status_handler(v27ter_tx_state_t *s, modem_tx_status_func_t handler, void *user_data) { s->status_handler = handler; s->status_user_data = user_data; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(logging_state_t *) v27ter_tx_get_logging_state(v27ter_tx_state_t *s) { return &s->logging; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) v27ter_tx_restart(v27ter_tx_state_t *s, int bit_rate, int tep) { if (bit_rate != 4800 && bit_rate != 2400) return -1; s->bit_rate = bit_rate; #if defined(SPANDSP_USE_FIXED_POINT) cvec_zeroi16(s->rrc_filter, sizeof(s->rrc_filter)/sizeof(s->rrc_filter[0])); #else cvec_zerof(s->rrc_filter, sizeof(s->rrc_filter)/sizeof(s->rrc_filter[0])); #endif s->rrc_filter_step = 0; s->scramble_reg = 0x3C; s->scrambler_pattern_count = 0; s->in_training = TRUE; s->training_step = (tep) ? V27TER_TRAINING_SEG_1 : V27TER_TRAINING_SEG_2; s->carrier_phase = 0; s->baud_phase = 0; s->constellation_state = 0; s->current_get_bit = fake_get_bit; return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(v27ter_tx_state_t *) v27ter_tx_init(v27ter_tx_state_t *s, int bit_rate, int tep, get_bit_func_t get_bit, void *user_data) { switch (bit_rate) { case 4800: case 2400: break; default: return NULL; } if (s == NULL) { if ((s = (v27ter_tx_state_t *) malloc(sizeof(*s))) == NULL) return NULL; } memset(s, 0, sizeof(*s)); span_log_init(&s->logging, SPAN_LOG_NONE, NULL); span_log_set_protocol(&s->logging, "V.27ter TX"); s->get_bit = get_bit; s->get_bit_user_data = user_data; s->carrier_phase_rate = dds_phase_ratef(CARRIER_NOMINAL_FREQ); v27ter_tx_power(s, -14.0f); v27ter_tx_restart(s, bit_rate, tep); return s; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) v27ter_tx_release(v27ter_tx_state_t *s) { return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) v27ter_tx_free(v27ter_tx_state_t *s) { free(s); return 0; } /*- End of function --------------------------------------------------------*/ /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/timezone.c0000664000175000017500000006166311435757500015407 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * timezone.c - Timezone handling for time interpretation * * Written by Steve Underwood * * Copyright (C) 2010 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \file */ /* Timezone processing might not seem like a DSP activity, but getting the headers right on FAXes demands it. We need to handle multiple time zones within a process, for FAXes related to different parts of the globe, so the system timezone handling is not adequate. */ /* This timezone handling is derived from public domain software by Arthur David Olson which you may download from ftp://elsie.nci.nih.gov/pub at the time of writing. */ #if defined(HAVE_CONFIG_H) #include "config.h" #endif #include #include #include #include #include #include #include #include "spandsp/telephony.h" #include "spandsp/timezone.h" #include "spandsp/private/timezone.h" #if !defined(FALSE) #define FALSE 0 #endif #if !defined(TRUE) #define TRUE (!FALSE) #endif #define SECS_PER_MIN 60 #define MINS_PER_HOUR 60 #define HOURS_PER_DAY 24 #define DAYS_PER_WEEK 7 #define DAYS_PER_NON_LEAP_YEAR 365 #define DAYS_PER_LEAP_YEAR 366 #define SECS_PER_HOUR (SECS_PER_MIN*MINS_PER_HOUR) #define SECS_PER_DAY ((long int) SECS_PER_HOUR*HOURS_PER_DAY) #define MONTHS_PER_YEAR 12 #define TM_YEAR_BASE 1900 #define EPOCH_YEAR 1970 #define EPOCH_WDAY TM_THURSDAY #define isleap(y) (((y)%4) == 0 && (((y)%100) != 0 || ((y)%400) == 0)) #define isleap_sum(a, b) isleap((a)%400 + (b)%400) /* Unlike 's isdigit, this also works if c < 0 | c > UCHAR_MAX. */ #define is_digit(c) ((unsigned int) (c) - '0' <= 9) #define TZ_DEF_RULE_STRING ",M4.1.0,M10.5.0" #define JULIAN_DAY 0 /* Jn - Julian day */ #define DAY_OF_YEAR 1 /* n - day of year */ #define MONTH_NTH_DAY_OF_WEEK 2 /* Mm.n.d - month, week, day of week */ static const char wildabbr[] = " "; static const char gmt[] = "GMT"; struct tz_rule_s { int r_type; /* Type of rule--see below */ int r_day; /* Day number of rule */ int r_week; /* Week number of rule */ int r_mon; /* Month number of rule */ long int r_time; /* Transition time of rule */ }; static const int mon_lengths[2][MONTHS_PER_YEAR] = { {31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31}, {31, 29, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31} }; static const int year_lengths[2] = { DAYS_PER_NON_LEAP_YEAR, DAYS_PER_LEAP_YEAR }; static int increment_overflow(int *number, int delta) { int number0; number0 = *number; *number += delta; return (*number < number0) != (delta < 0); } /*- End of function --------------------------------------------------------*/ static void set_tzname(tz_t *tz) { struct tz_state_s *sp; const struct tz_ttinfo_s *ttisp; int i; sp = &tz->state; tz->tzname[0] = wildabbr; tz->tzname[1] = wildabbr; for (i = 0; i < sp->typecnt; i++) { ttisp = &sp->ttis[i]; tz->tzname[ttisp->isdst] = &sp->chars[ttisp->abbrind]; } for (i = 0; i < sp->timecnt; i++) { ttisp = &sp->ttis[sp->types[i]]; tz->tzname[ttisp->isdst] = &sp->chars[ttisp->abbrind]; } } /*- End of function --------------------------------------------------------*/ /* Return the number of leap years through the end of the given year where, to make the math easy, the answer for year zero is defined as zero. */ static int leaps_thru_end_of(const int y) { return (y >= 0) ? (y/4 - y/100 + y/400) : -(leaps_thru_end_of(-(y + 1)) + 1); } /*- End of function --------------------------------------------------------*/ static struct tm *time_sub(const time_t * const timep, const long int offset, const struct tz_state_s * const sp, struct tm * const tmp) { const struct tz_lsinfo_s *lp; time_t tdays; const int *ip; int32_t corr; int32_t seconds; int32_t rem; int idays; int y; int hit; int i; corr = 0; hit = 0; i = sp->leapcnt; while (--i >= 0) { lp = &sp->lsis[i]; if (*timep >= lp->trans) { if (*timep == lp->trans) { hit = ((i == 0 && lp->corr > 0) || lp->corr > sp->lsis[i - 1].corr); if (hit) { while (i > 0 && sp->lsis[i].trans == sp->lsis[i - 1].trans + 1 && sp->lsis[i].corr == sp->lsis[i - 1].corr + 1) { hit++; --i; } } } corr = lp->corr; break; } } y = EPOCH_YEAR; tdays = *timep/SECS_PER_DAY; rem = *timep - tdays*SECS_PER_DAY; while (tdays < 0 || tdays >= year_lengths[isleap(y)]) { int newy; time_t tdelta; int idelta; int leapdays; tdelta = tdays / DAYS_PER_LEAP_YEAR; idelta = tdelta; if (tdelta - idelta >= 1 || idelta - tdelta >= 1) return NULL; if (idelta == 0) idelta = (tdays < 0) ? -1 : 1; newy = y; if (increment_overflow(&newy, idelta)) return NULL; leapdays = leaps_thru_end_of(newy - 1) - leaps_thru_end_of(y - 1); tdays -= ((time_t) newy - y)*DAYS_PER_NON_LEAP_YEAR; tdays -= leapdays; y = newy; } seconds = tdays*SECS_PER_DAY; tdays = seconds/SECS_PER_DAY; rem += seconds - tdays*SECS_PER_DAY; /* Given the range, we can now fearlessly cast... */ idays = tdays; rem += (offset - corr); while (rem < 0) { rem += SECS_PER_DAY; idays--; } while (rem >= SECS_PER_DAY) { rem -= SECS_PER_DAY; idays++; } while (idays < 0) { if (increment_overflow(&y, -1)) return NULL; idays += year_lengths[isleap(y)]; } while (idays >= year_lengths[isleap(y)]) { idays -= year_lengths[isleap(y)]; if (increment_overflow(&y, 1)) return NULL; } tmp->tm_year = y; if (increment_overflow(&tmp->tm_year, -TM_YEAR_BASE)) return NULL; tmp->tm_yday = idays; /* The "extra" mods below avoid overflow problems. */ tmp->tm_wday = EPOCH_WDAY + ((y - EPOCH_YEAR) % DAYS_PER_WEEK)*(DAYS_PER_NON_LEAP_YEAR % DAYS_PER_WEEK) + leaps_thru_end_of(y - 1) - leaps_thru_end_of(EPOCH_YEAR - 1) + idays; tmp->tm_wday %= DAYS_PER_WEEK; if (tmp->tm_wday < 0) tmp->tm_wday += DAYS_PER_WEEK; tmp->tm_hour = (int) (rem/SECS_PER_HOUR); rem %= SECS_PER_HOUR; tmp->tm_min = (int) (rem/SECS_PER_MIN); /* A positive leap second requires a special * representation. This uses "... ??:59:60" et seq. */ tmp->tm_sec = (int) (rem%SECS_PER_MIN) + hit; ip = mon_lengths[isleap(y)]; for (tmp->tm_mon = 0; idays >= ip[tmp->tm_mon]; (tmp->tm_mon)++) idays -= ip[tmp->tm_mon]; tmp->tm_mday = (int) (idays + 1); tmp->tm_isdst = 0; return tmp; } /*- End of function --------------------------------------------------------*/ /* Given a pointer into a time zone string, scan until a character that is not * a valid character in a zone name is found. Return a pointer to that * character. */ static const char *get_tzname(const char *strp) { char c; while ((c = *strp) != '\0' && !is_digit(c) && c != ',' && c != '-' && c != '+') strp++; return strp; } /*- End of function --------------------------------------------------------*/ /* Given a pointer into a time zone string, extract a number from that string. * Check that the number is within a specified range; if it is not, return * NULL. * Otherwise, return a pointer to the first character not part of the number. */ static const char *get_num(const char *strp, int * const nump, const int min, const int max) { char c; int num; if (strp == NULL || !is_digit(c = *strp)) return NULL; num = 0; do { num = num*10 + (c - '0'); if (num > max) return NULL; /* Illegal value */ c = *++strp; } while (is_digit(c)); if (num < min) return NULL; /* Illegal value */ *nump = num; return strp; } /*- End of function --------------------------------------------------------*/ /* Given a pointer into a time zone string, extract a number of seconds, * in hh[:mm[:ss]] form, from the string. * If any error occurs, return NULL. * Otherwise, return a pointer to the first character not part of the number * of seconds. */ static const char *get_secs(const char *strp, long int * const secsp) { int num; /* HOURS_PER_DAY*DAYS_PER_WEEK - 1 allows quasi-Posix rules like * "M10.4.6/26", which does not conform to Posix, * but which specifies the equivalent of * "02:00 on the first Sunday on or after 23 Oct". */ strp = get_num(strp, &num, 0, HOURS_PER_DAY*DAYS_PER_WEEK - 1); if (strp == NULL) return NULL; *secsp = num*(long int) SECS_PER_HOUR; if (*strp == ':') { strp = get_num(strp + 1, &num, 0, MINS_PER_HOUR - 1); if (strp == NULL) return NULL; *secsp += num*SECS_PER_MIN; if (*strp == ':') { /* SECS_PER_MIN allows for leap seconds. */ strp = get_num(strp + 1, &num, 0, SECS_PER_MIN); if (strp == NULL) return NULL; *secsp += num; } } return strp; } /*- End of function --------------------------------------------------------*/ /* Given a pointer into a time zone string, extract an offset, in * [+-]hh[:mm[:ss]] form, from the string. * If any error occurs, return NULL. * Otherwise, return a pointer to the first character not part of the time. */ static const char *get_offset(const char *strp, long int * const offsetp) { int neg = 0; if (*strp == '-') { neg = 1; strp++; } else if (*strp == '+') { strp++; } strp = get_secs(strp, offsetp); if (strp == NULL) return NULL; /* Illegal time */ if (neg) *offsetp = -*offsetp; return strp; } /*- End of function --------------------------------------------------------*/ /* Given a pointer into a time zone string, extract a rule in the form * date[/time]. See POSIX section 8 for the format of "date" and "time". * If a valid rule is not found, return NULL. * Otherwise, return a pointer to the first character not part of the rule. */ static const char *get_rule(const char *strp, struct tz_rule_s * const rulep) { if (*strp == 'J') { /* Julian day. */ rulep->r_type = JULIAN_DAY; strp = get_num(strp + 1, &rulep->r_day, 1, DAYS_PER_NON_LEAP_YEAR); } else if (*strp == 'M') { /* Month, week, day. */ rulep->r_type = MONTH_NTH_DAY_OF_WEEK; strp = get_num(strp + 1, &rulep->r_mon, 1, MONTHS_PER_YEAR); if (strp == NULL || *strp++ != '.') return NULL; strp = get_num(strp, &rulep->r_week, 1, 5); if (strp == NULL || *strp++ != '.') return NULL; strp = get_num(strp, &rulep->r_day, 0, DAYS_PER_WEEK - 1); } else if (is_digit(*strp)) { /* Day of the year. */ rulep->r_type = DAY_OF_YEAR; strp = get_num(strp, &rulep->r_day, 0, DAYS_PER_LEAP_YEAR - 1); } else { /* Invalid format */ return NULL; } if (strp == NULL) return NULL; if (*strp == '/') { /* Time specified. */ strp = get_secs(strp + 1, &rulep->r_time); } else { /* Default = 2:00:00 */ rulep->r_time = 2*SECS_PER_HOUR; } return strp; } /*- End of function --------------------------------------------------------*/ /* Given the Epoch-relative time of January 1, 00:00:00 UTC, in a year, the * year, a rule, and the offset from UTC at the time that rule takes effect, * calculate the Epoch-relative time that rule takes effect. */ static time_t trans_time(const time_t janfirst, const int year, const struct tz_rule_s * const rulep, const long int offset) { int leapyear; time_t value; int i; int d; int m1; int yy0; int yy1; int yy2; int dow; value = 0; leapyear = isleap(year); switch (rulep->r_type) { case JULIAN_DAY: /* Jn - Julian day, 1 == January 1, 60 == March 1 even in leap * years. * In non-leap years, or if the day number is 59 or less, just * add SECS_PER_DAY times the day number-1 to the time of * January 1, midnight, to get the day. */ value = janfirst + (rulep->r_day - 1)*SECS_PER_DAY; if (leapyear && rulep->r_day >= 60) value += SECS_PER_DAY; break; case DAY_OF_YEAR: /* n - day of year. * Just add SECS_PER_DAY times the day number to the time of * January 1, midnight, to get the day. */ value = janfirst + rulep->r_day * SECS_PER_DAY; break; case MONTH_NTH_DAY_OF_WEEK: /* Mm.n.d - nth "dth day" of month m. */ value = janfirst; for (i = 0; i < rulep->r_mon - 1; i++) value += mon_lengths[leapyear][i]*SECS_PER_DAY; /* Use Zeller's Congruence to get day-of-week of first day of month. */ m1 = (rulep->r_mon + 9)%12 + 1; yy0 = (rulep->r_mon <= 2) ? (year - 1) : year; yy1 = yy0/100; yy2 = yy0%100; dow = ((26*m1 - 2)/10 + 1 + yy2 + yy2/4 + yy1/4 - 2*yy1)%7; if (dow < 0) dow += DAYS_PER_WEEK; /* "dow" is the day-of-week of the first day of the month. Get * the day-of-month (zero-origin) of the first "dow" day of the * month. */ d = rulep->r_day - dow; if (d < 0) d += DAYS_PER_WEEK; for (i = 1; i < rulep->r_week; i++) { if (d + DAYS_PER_WEEK >= mon_lengths[leapyear][rulep->r_mon - 1]) break; d += DAYS_PER_WEEK; } /* "d" is the day-of-month (zero-origin) of the day we want. */ value += d*SECS_PER_DAY; break; } /* "value" is the Epoch-relative time of 00:00:00 UTC on the day in * question. To get the Epoch-relative time of the specified local * time on that day, add the transition time and the current offset * from UTC. */ return value + rulep->r_time + offset; } /*- End of function --------------------------------------------------------*/ /* Given a POSIX section 8-style TZ string, fill in the rule tables as appropriate. */ static int tzparse(const char *name, struct tz_state_s * const sp, const int lastditch) { const char *stdname; const char *dstname; size_t stdlen; size_t dstlen; long int stdoffset; long int dstoffset; long int theirstdoffset; long int theirdstoffset; long int theiroffset; unsigned char *typep; char *cp; int load_result; int isdst; int i; int j; int year; struct tz_rule_s start; struct tz_rule_s end; time_t *atp; time_t janfirst; time_t starttime; time_t endtime; dstname = NULL; stdname = name; if (lastditch) { stdlen = strlen(name); /* Length of standard zone name */ name += stdlen; if (stdlen >= sizeof(sp->chars)) stdlen = sizeof(sp->chars) - 1; stdoffset = 0; } else { name = get_tzname(name); stdlen = name - stdname; if (stdlen < 3) return -1; if (*name == '\0') return -1; name = get_offset(name, &stdoffset); if (name == NULL) return -1; } load_result = -1; if (load_result != 0) sp->leapcnt = 0; /* So, we're off a little */ if (*name != '\0') { dstname = name; name = get_tzname(name); dstlen = name - dstname; /* Length of DST zone name */ if (dstlen < 3) return -1; if (*name != '\0' && *name != ',' && *name != ';') { if ((name = get_offset(name, &dstoffset)) == NULL) return -1; } else { dstoffset = stdoffset - SECS_PER_HOUR; } if (*name == '\0' && load_result != 0) name = TZ_DEF_RULE_STRING; if (*name == ',' || *name == ';') { if ((name = get_rule(name + 1, &start)) == NULL) return -1; if (*name++ != ',') return -1; if ((name = get_rule(name, &end)) == NULL) return -1; if (*name != '\0') return -1; sp->typecnt = 2; /* Standard time and DST */ /* Two transitions per year, from EPOCH_YEAR to 2037. */ sp->timecnt = 2*(2037 - EPOCH_YEAR + 1); if (sp->timecnt > TZ_MAX_TIMES) return -1; sp->ttis[0].gmtoff = -dstoffset; sp->ttis[0].isdst = 1; sp->ttis[0].abbrind = stdlen + 1; sp->ttis[1].gmtoff = -stdoffset; sp->ttis[1].isdst = 0; sp->ttis[1].abbrind = 0; atp = sp->ats; typep = sp->types; janfirst = 0; for (year = EPOCH_YEAR; year <= 2037; year++) { starttime = trans_time(janfirst, year, &start, stdoffset); endtime = trans_time(janfirst, year, &end, dstoffset); if (starttime > endtime) { *atp++ = endtime; *typep++ = 1; /* DST ends */ *atp++ = starttime; *typep++ = 0; /* DST begins */ } else { *atp++ = starttime; *typep++ = 0; /* DST begins */ *atp++ = endtime; *typep++ = 1; /* DST ends */ } janfirst += year_lengths[isleap(year)]*SECS_PER_DAY; } } else { if (*name != '\0') return -1; /* Initial values of theirstdoffset and theirdstoffset. */ theirstdoffset = 0; for (i = 0; i < sp->timecnt; i++) { j = sp->types[i]; if (!sp->ttis[j].isdst) { theirstdoffset = -sp->ttis[j].gmtoff; break; } } theirdstoffset = 0; for (i = 0; i < sp->timecnt; i++) { j = sp->types[i]; if (sp->ttis[j].isdst) { theirdstoffset = -sp->ttis[j].gmtoff; break; } } /* Initially we're assumed to be in standard time. */ isdst = FALSE; theiroffset = theirstdoffset; /* Now juggle transition times and types tracking offsets as you do. */ for (i = 0; i < sp->timecnt; i++) { j = sp->types[i]; sp->types[i] = sp->ttis[j].isdst; if (sp->ttis[j].ttisgmt) { /* No adjustment to transition time */ } else { /* If summer time is in effect, and the * transition time was not specified as * standard time, add the summer time * offset to the transition time; * otherwise, add the standard time * offset to the transition time. */ /* Transitions from DST to DDST * will effectively disappear since * POSIX provides for only one DST * offset. */ if (isdst && !sp->ttis[j].ttisstd) sp->ats[i] += (dstoffset - theirdstoffset); else sp->ats[i] += (stdoffset - theirstdoffset); } theiroffset = -sp->ttis[j].gmtoff; if (sp->ttis[j].isdst) theirdstoffset = theiroffset; else theirstdoffset = theiroffset; } /* Finally, fill in ttis. ttisstd and ttisgmt need not be handled. */ sp->ttis[0].gmtoff = -stdoffset; sp->ttis[0].isdst = FALSE; sp->ttis[0].abbrind = 0; sp->ttis[1].gmtoff = -dstoffset; sp->ttis[1].isdst = TRUE; sp->ttis[1].abbrind = stdlen + 1; sp->typecnt = 2; } } else { dstlen = 0; sp->typecnt = 1; /* Only standard time */ sp->timecnt = 0; sp->ttis[0].gmtoff = -stdoffset; sp->ttis[0].isdst = 0; sp->ttis[0].abbrind = 0; } sp->charcnt = stdlen + 1; if (dstlen != 0) sp->charcnt += dstlen + 1; if ((size_t) sp->charcnt > sizeof(sp->chars)) return -1; cp = sp->chars; strncpy(cp, stdname, stdlen); cp += stdlen; *cp++ = '\0'; if (dstlen != 0) { strncpy(cp, dstname, dstlen); cp[dstlen] = '\0'; } return 0; } /*- End of function --------------------------------------------------------*/ static void tz_set(tz_t *tz, const char *tzstring) { const char *name = ""; struct tz_state_s *lclptr = &tz->state; if (tzstring) name = tzstring; /* See if we are already set OK */ if (tz->lcl_is_set > 0 && strcmp(tz->lcl_tzname, name) == 0) return; tz->lcl_is_set = strlen(name) < sizeof(tz->lcl_tzname); if (tz->lcl_is_set) strcpy(tz->lcl_tzname, name); if (name[0] == '\0') { /* User wants it fast rather than right, so, we're off a little. */ lclptr->leapcnt = 0; lclptr->timecnt = 0; lclptr->typecnt = 0; lclptr->ttis[0].isdst = 0; lclptr->ttis[0].gmtoff = 0; lclptr->ttis[0].abbrind = 0; strcpy(lclptr->chars, gmt); } else if (name[0] == ':' || tzparse(name, lclptr, FALSE) != 0) { tzparse(gmt, lclptr, TRUE); } set_tzname(tz); } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) tz_localtime(tz_t *tz, struct tm *tmp, time_t t) { struct tz_state_s *sp; const struct tz_ttinfo_s *ttisp; int i; sp = &tz->state; if (sp->timecnt == 0 || t < sp->ats[0]) { i = 0; while (sp->ttis[i].isdst) { if (++i >= sp->typecnt) { i = 0; break; } } } else { for (i = 1; i < sp->timecnt; i++) { if (t < sp->ats[i]) break; } i = (int) sp->types[i - 1]; } ttisp = &sp->ttis[i]; time_sub(&t, ttisp->gmtoff, sp, tmp); tmp->tm_isdst = ttisp->isdst; tz->tzname[tmp->tm_isdst] = &sp->chars[ttisp->abbrind]; return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(const char *) tz_tzname(tz_t *tz, int isdst) { return tz->tzname[(!isdst) ? 0 : 1]; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(tz_t *) tz_init(tz_t *tz, const char *tzstring) { if (tz == NULL) { if ((tz = (tz_t *) malloc(sizeof(*tz))) == NULL) return NULL; } memset(tz, 0, sizeof(*tz)); tz->tzname[0] = tz->tzname[1] = wildabbr; tz_set(tz, tzstring); return tz; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) tz_release(tz_t *tz) { return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) tz_free(tz_t *tz) { if (tz) free(tz); return 0; } /*- End of function --------------------------------------------------------*/ /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/tone_detect.c0000664000175000017500000002163311422612263016033 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * tone_detect.c - General telephony tone detection. * * Written by Steve Underwood * * Copyright (C) 2001-2003, 2005 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \file */ #if defined(HAVE_CONFIG_H) #include "config.h" #endif #include #include #if defined(HAVE_TGMATH_H) #include #endif #if defined(HAVE_MATH_H) #include #endif #include "floating_fudge.h" #include #include #include #include #include "spandsp/telephony.h" #include "spandsp/complex.h" #include "spandsp/complex_vector_float.h" #include "spandsp/tone_detect.h" #include "spandsp/tone_generate.h" #include "spandsp/private/tone_detect.h" #if !defined(M_PI) /* C99 systems may not define M_PI */ #define M_PI 3.14159265358979323846264338327 #endif SPAN_DECLARE(void) make_goertzel_descriptor(goertzel_descriptor_t *t, float freq, int samples) { #if defined(SPANDSP_USE_FIXED_POINT) t->fac = 16383.0f*2.0f*cosf(2.0f*M_PI*(freq/(float) SAMPLE_RATE)); #else t->fac = 2.0f*cosf(2.0f*M_PI*(freq/(float) SAMPLE_RATE)); #endif t->samples = samples; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(goertzel_state_t *) goertzel_init(goertzel_state_t *s, goertzel_descriptor_t *t) { if (s == NULL) { if ((s = (goertzel_state_t *) malloc(sizeof(*s))) == NULL) return NULL; } #if defined(SPANDSP_USE_FIXED_POINT) s->v2 = s->v3 = 0; #else s->v2 = s->v3 = 0.0f; #endif s->fac = t->fac; s->samples = t->samples; s->current_sample = 0; return s; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) goertzel_release(goertzel_state_t *s) { return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) goertzel_free(goertzel_state_t *s) { if (s) free(s); return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) goertzel_reset(goertzel_state_t *s) { #if defined(SPANDSP_USE_FIXED_POINT) s->v2 = s->v3 = 0; #else s->v2 = s->v3 = 0.0f; #endif s->current_sample = 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) goertzel_update(goertzel_state_t *s, const int16_t amp[], int samples) { int i; #if defined(SPANDSP_USE_FIXED_POINT) int16_t x; int16_t v1; #else float v1; #endif if (samples > s->samples - s->current_sample) samples = s->samples - s->current_sample; for (i = 0; i < samples; i++) { v1 = s->v2; s->v2 = s->v3; #if defined(SPANDSP_USE_FIXED_POINT) x = (((int32_t) s->fac*s->v2) >> 14); /* Scale down the input signal to avoid overflows. 9 bits is enough to monitor the signals of interest with adequate dynamic range and resolution. In telephony we generally only start with 13 or 14 bits, anyway. */ s->v3 = x - v1 + (amp[i] >> 7); #else s->v3 = s->fac*s->v2 - v1 + amp[i]; #endif } s->current_sample += samples; return samples; } /*- End of function --------------------------------------------------------*/ #if defined(SPANDSP_USE_FIXED_POINT) SPAN_DECLARE(int32_t) goertzel_result(goertzel_state_t *s) #else SPAN_DECLARE(float) goertzel_result(goertzel_state_t *s) #endif { #if defined(SPANDSP_USE_FIXED_POINT) int16_t v1; int32_t x; int32_t y; #else float v1; #endif /* Push a zero through the process to finish things off. */ v1 = s->v2; s->v2 = s->v3; #if defined(SPANDSP_USE_FIXED_POINT) x = (((int32_t) s->fac*s->v2) >> 14); s->v3 = x - v1; #else s->v3 = s->fac*s->v2 - v1; #endif /* Now calculate the non-recursive side of the filter. */ /* The result here is not scaled down to allow for the magnification effect of the filter (the usual DFT magnification effect). */ #if defined(SPANDSP_USE_FIXED_POINT) x = (int32_t) s->v3*s->v3; y = (int32_t) s->v2*s->v2; x += y; y = ((int32_t) s->v3*s->fac) >> 14; y *= s->v2; x -= y; x <<= 1; goertzel_reset(s); /* The number returned in a floating point build will be 16384^2 times as big as for a fixed point build, due to the 14 bit shifts (or the square of the 7 bit shifts, depending how you look at it). */ return x; #else v1 = s->v3*s->v3 + s->v2*s->v2 - s->v2*s->v3*s->fac; v1 *= 2.0; goertzel_reset(s); return v1; #endif } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(complexf_t) periodogram(const complexf_t coeffs[], const complexf_t amp[], int len) { complexf_t sum; complexf_t diff; complexf_t x; int i; x = complex_setf(0.0f, 0.0f); for (i = 0; i < len/2; i++) { sum = complex_addf(&[i], &[len - 1 - i]); diff = complex_subf(&[i], &[len - 1 - i]); x.re += (coeffs[i].re*sum.re - coeffs[i].im*diff.im); x.im += (coeffs[i].re*sum.im + coeffs[i].im*diff.re); } return x; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) periodogram_prepare(complexf_t sum[], complexf_t diff[], const complexf_t amp[], int len) { int i; for (i = 0; i < len/2; i++) { sum[i] = complex_addf(&[i], &[len - 1 - i]); diff[i] = complex_subf(&[i], &[len - 1 - i]); } return len/2; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(complexf_t) periodogram_apply(const complexf_t coeffs[], const complexf_t sum[], const complexf_t diff[], int len) { complexf_t x; int i; x = complex_setf(0.0f, 0.0f); for (i = 0; i < len/2; i++) { x.re += (coeffs[i].re*sum[i].re - coeffs[i].im*diff[i].im); x.im += (coeffs[i].re*sum[i].im + coeffs[i].im*diff[i].re); } return x; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) periodogram_generate_coeffs(complexf_t coeffs[], float freq, int sample_rate, int window_len) { float window; float sum; float x; int i; sum = 0.0f; for (i = 0; i < window_len/2; i++) { /* Apply a Hamming window as we go */ window = 0.53836f - 0.46164f*cosf(2.0f*3.1415926535f*i/(window_len - 1.0f)); x = (i - window_len/2.0f + 0.5f)*freq*2.0f*3.1415926535f/sample_rate; coeffs[i].re = cosf(x)*window; coeffs[i].im = -sinf(x)*window; sum += window; } /* Rescale for unity gain in the periodogram. The 2.0 factor is to allow for the full window, rather than just the half over which we have summed the coefficients. */ sum = 1.0f/(2.0f*sum); for (i = 0; i < window_len/2; i++) { coeffs[i].re *= sum; coeffs[i].im *= sum; } return window_len/2; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(float) periodogram_generate_phase_offset(complexf_t *offset, float freq, int sample_rate, int interval) { float x; /* The phase offset is how far the phase rotates in one frame */ x = 2.0f*3.1415926535f*(float) interval/(float) sample_rate; offset->re = cosf(freq*x); offset->im = sinf(freq*x); return 1.0f/x; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(float) periodogram_freq_error(const complexf_t *phase_offset, float scale, const complexf_t *last_result, const complexf_t *result) { complexf_t prediction; /* Rotate the last result by the expected phasor offset to the current result. Then find the difference between that predicted position, and the actual one. When scaled by the current signal level, this gives us the frequency error. */ prediction = complex_mulf(last_result, phase_offset); return scale*(result->im*prediction.re - result->re*prediction.im)/(result->re*result->re + result->im*result->im); } /*- End of function --------------------------------------------------------*/ /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/v22bis_tx.c0000664000175000017500000006660711422612263015372 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * v22bis_tx.c - ITU V.22bis modem transmit part * * Written by Steve Underwood * * Copyright (C) 2004 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \file */ /* THIS IS A WORK IN PROGRESS - It is basically functional, but it is not feature complete, and doesn't reliably sync over the signal and noise level ranges it should! */ #if defined(HAVE_CONFIG_H) #include "config.h" #endif #include #include #include #include #if defined(HAVE_TGMATH_H) #include #endif #if defined(HAVE_MATH_H) #include #endif #include "floating_fudge.h" #include "spandsp/telephony.h" #include "spandsp/fast_convert.h" #include "spandsp/logging.h" #include "spandsp/complex.h" #include "spandsp/vector_float.h" #include "spandsp/complex_vector_float.h" #include "spandsp/vector_int.h" #include "spandsp/complex_vector_int.h" #include "spandsp/async.h" #include "spandsp/dds.h" #include "spandsp/power_meter.h" #include "spandsp/v29rx.h" #include "spandsp/v22bis.h" #include "spandsp/private/logging.h" #include "spandsp/private/v22bis.h" #if defined(SPANDSP_USE_FIXED_POINTx) #include "v22bis_tx_fixed_rrc.h" #else #include "v22bis_tx_floating_rrc.h" #endif /* Quoting from the V.22bis spec. 6.3.1.1 Interworking at 2400 bit/s 6.3.1.1.1 Calling modem a) On connection to line the calling modem shall be conditioned to receive signals in the high channel at 1200 bit/s and transmit signals in the low channel at 1200 bit/s in accordance with section 2.5.2.2. It shall apply an ON condition to circuit 107 in accordance with Recommendation V.25. The modem shall initially remain silent. b) After 155 +-10 ms of unscrambled binary 1 has been detected, the modem shall remain silent for a further 456 +-10 ms then transmit an unscrambled repetitive double dibit pattern of 00 and 11 at 1200 bit/s for 100 +-3 ms. Following this signal the modem shall transmit scrambled binary 1 at 1200 bit/s. c) If the modem detects scrambled binary 1 in the high channel at 1200 bit/s for 270 +-40 ms, the handshake shall continue in accordance with section 6.3.1.2.1 c) and d). However, if unscrambled repetitive double dibit 00 and 11 at 1200 bit/s is detected in the high channel, then at the end of receipt of this signal the modem shall apply an ON condition to circuit 112. d) 600 +-10 ms after circuit 112 has been turned ON the modem shall begin transmitting scrambled binary 1 at 2400 bit/s, and 450 +-10 ms after circuit 112 has been turned ON the receiver may begin making 16-way decisions. e) Following transmission of scrambled binary 1 at 2400 bit/s for 200 +-10 ms, circuit 106 shall be conditioned to respond to circuit 105 and the modem shall be ready to transmit data at 2400 bit/s. f) When 32 consecutive bits of scrambled binary 1 at 2400 bit/s have been detected in the high channel the modem shall be ready to receive data at 2400 bit/s and shall apply an ON condition to circuit 109. 6.3.1.1.2 Answering modem a) On connection to line the answering modem shall be conditioned to transmit signals in the high channel at 1200 bit/s in accordance with section 2.5.2.2 and receive signals in the low channel at 1200 bit/s. Following transmission of the answer sequence in accordance with Recommendation V.25, the modem shall apply an ON condition to circuit 107 and then transmit unscrambled binary 1 at 1200 bit/s. b) If the modem detects scrambled binary 1 or 0 in the low channel at 1200 bit/s for 270 +-40 ms, the handshake shall continue in accordance with section 6.3.1.2.2 b) and c). However, if unscrambled repetitive double dibit 00 and 11 at 1200 bit/s is detected in the low channel, at the end of receipt of this signal the modem shall apply an ON condition to circuit 112 and then transmit an unscrambled repetitive double dibit pattern of 00 and 11 at 1200 bit/s for 100 +-3 ms. Following these signals the modem shall transmit scrambled binary 1 at 1200 bit/s. c) 600 +-10 ms after circuit 112 has been turned ON the modem shall begin transmitting scrambled binary 1 at 2400 bit/s, and 450 +-10 ms after circuit 112 has been turned ON the receiver may begin making 16-way decisions. d) Following transmission of scrambled binary 1 at 2400 bit/s for 200 +-10 ms, circuit 106 shall be conditioned to respond to circuit 105 and the modem shall be ready to transmit data at 2400 bit/s. e) When 32 consecutive bits of scrambled binary 1 at 2400 bit/s have been detected in the low channel the modem shall be ready to receive data at 2400 bit/s and shall apply an ON condition to circuit 109. 6.3.1.2 Interworking at 1200 bit/s The following handshake is identical to the Recommendation V.22 alternative A and B handshake. 6.3.1.2.1 Calling modem a) On connection to line the calling modem shall be conditioned to receive signals in the high channel at 1200 bit/s and transmit signals in the low channel at 1200 bit/s in accordance with section 2.5.2.2. It shall apply an ON condition to circuit 107 in accordance with Recommendation V.25. The modem shall initially remain silent. b) After 155 +-10 ms of unscrambled binary 1 has been detected, the modem shall remain silent for a further 456 +-10 ms then transmit scrambled binary 1 at 1200 bit/s (a preceding V.22 bis signal, as shown in Figure 7/V.22 bis, would not affect the operation of a V.22 answer modem). c) On detection of scrambled binary 1 in the high channel at 1200 bit/s for 270 +-40 ms the modem shall be ready to receive data at 1200 bit/s and shall apply an ON condition to circuit 109 and an OFF condition to circuit 112. d) 765 +-10 ms after circuit 109 has been turned ON, circuit 106 shall be conditioned to respond to circuit 105 and the modem shall be ready to transmit data at 1200 bit/s. 6.3.1.2.2 Answering modem a) On connection to line the answering modem shall be conditioned to transmit signals in the high channel at 1200 bit/s in accordance with section 2.5.2.2 and receive signals in the low channel at 1200 bit/s. Following transmission of the answer sequence in accordance with V.25 the modem shall apply an ON condition to circuit 107 and then transmit unscrambled binary 1 at 1200 bit/s. b) On detection of scrambled binary 1 or 0 in the low channel at 1200 bit/s for 270 +-40 ms the modem shall apply an OFF condition to circuit 112 and shall then transmit scrambled binary 1 at 1200 bit/s. c) After scrambled binary 1 has been transmitted at 1200 bit/s for 765 +-10 ms the modem shall be ready to transmit and receive data at 1200 bit/s, shall condition circuit 106 to respond to circuit 105 and shall apply an ON condition to circuit 109. Note - Manufacturers may wish to note that in certain countries, for national purposes, modems are in service which emit an answering tone of 2225 Hz instead of unscrambled binary 1. V.22bis to V.22bis ------------------ Calling party S1 scrambled 1's scrambled 1's data at 1200bps at 2400bps |---------------------------------------------------------|XXXXXXXX|XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX|XXXXXXXXXXXXXX|XXXXXXXXXXXXX |<155+-10>|<456+-10>|<100+-3>| |<------600+-10------>|<---200+-10-->| ^ | ^<----450+-100---->|[16 way decisions begin] | | | | v | | |<------450+-100----->|[16 way decisions begin] | |<----------600+-10-------->| |<2150+-350>|<--3300+-700->|<75+-20>| |<100+-3>| |<---200+-10--> |-----------|XXXXXXXXXXXXXX|--------|XXXXXXXXXXXXXXXXXXXXXXXXXXXX|XXXXXXXX|XXXXXXXXXXXXXXXXXX|XXXXXXXXXXXXXX|XXXXXXXXXXXXX silence 2100Hz unscrambled 1's S1 scrambled 1's scrambled 1's data at 1200bps at 1200bps at 2400bps Answering party S1 = Unscrambled double dibit 00 and 11 at 1200bps When the 2400bps section starts, both sides should look for 32 bits of continuous ones, as a test of integrity. V.22 to V.22bis --------------- Calling party scrambled 1's data at 1200bps |---------------------------------------------------------|XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX|XXXXXXXXXXXXX |<155+-10>|<456+-10>| |<270+-40>|<--------765+-10-------->| ^ | ^ | | | | | | | | | | v | |<2150+-350>|<--3300+-700->|<75+-20>| |<270+-40>|<---------765+-10-------->| |-----------|XXXXXXXXXXXXXX|--------|XXXXXXXXXXXXXXXXXXXXXXXXXXXXX|XXXXXXXXXXXXXXXXXXXXXXXXXX|XXXXXXXXXXXXX silence 2100Hz unscrambled 1's scrambled 1's data at 1200bps at 1200bps Answering party Both ends should accept unscrambled binary 1 or binary 0 as the preamble. V.22bis to V.22 --------------- Calling party S1 scrambled 1's data at 1200bps |---------------------------------------------------------|XXXXXXXX|XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX|XXXXXXXXXXXXX |<155+-10>|<456+-10>|<100+-3>| |<-270+-40-><------765+-10------>| ^ | ^ | | | | v | | | | | |<2150+-350>|<--3300+-700->|<75+-20>| |<-270+-40->|<------765+-10----->| |-----------|XXXXXXXXXXXXXX|--------|XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX|XXXXXXXXXXXXXXXXXXXX|XXXXXXXXXXXXX silence 2100Hz unscrambled 1's scrambled 1's data at 1200bps at 1200bps Answering party Both ends should accept unscrambled binary 1 or binary 0 as the preamble. */ #define ms_to_symbols(t) (((t)*600)/1000) static const int phase_steps[4] = { 1, 0, 2, 3 }; const complexf_t v22bis_constellation[16] = { { 1.0f, 1.0f}, { 3.0f, 1.0f}, /* 1200bps 00 */ { 1.0f, 3.0f}, { 3.0f, 3.0f}, {-1.0f, 1.0f}, {-1.0f, 3.0f}, /* 1200bps 01 */ {-3.0f, 1.0f}, {-3.0f, 3.0f}, {-1.0f, -1.0f}, {-3.0f, -1.0f}, /* 1200bps 10 */ {-1.0f, -3.0f}, {-3.0f, -3.0f}, { 1.0f, -1.0f}, { 1.0f, -3.0f}, /* 1200bps 11 */ { 3.0f, -1.0f}, { 3.0f, -3.0f} }; static int fake_get_bit(void *user_data) { return 1; } /*- End of function --------------------------------------------------------*/ static __inline__ int scramble(v22bis_state_t *s, int bit) { int out_bit; if (s->tx.scrambler_pattern_count >= 64) { bit ^= 1; s->tx.scrambler_pattern_count = 0; } out_bit = (bit ^ (s->tx.scramble_reg >> 13) ^ (s->tx.scramble_reg >> 16)) & 1; s->tx.scramble_reg = (s->tx.scramble_reg << 1) | out_bit; if (out_bit == 1) s->tx.scrambler_pattern_count++; else s->tx.scrambler_pattern_count = 0; return out_bit; } /*- End of function --------------------------------------------------------*/ static __inline__ int get_scrambled_bit(v22bis_state_t *s) { int bit; if ((bit = s->tx.current_get_bit(s->get_bit_user_data)) == SIG_STATUS_END_OF_DATA) { /* Fill out this symbol with ones, and prepare to send the rest of the shutdown sequence. */ s->tx.current_get_bit = fake_get_bit; s->tx.shutdown = 1; bit = 1; } return scramble(s, bit); } /*- End of function --------------------------------------------------------*/ static complexf_t training_get(v22bis_state_t *s) { complexf_t z; int bits; /* V.22bis training sequence */ switch (s->tx.training) { case V22BIS_TX_TRAINING_STAGE_INITIAL_TIMED_SILENCE: /* The answerer waits 75ms, then sends unscrambled ones */ if (++s->tx.training_count >= ms_to_symbols(75)) { /* Initial 75ms of silence is over */ span_log(&s->logging, SPAN_LOG_FLOW, "+++ starting U11 1200\n"); s->tx.training_count = 0; s->tx.training = V22BIS_TX_TRAINING_STAGE_U11; } /* Fall through */ case V22BIS_TX_TRAINING_STAGE_INITIAL_SILENCE: /* Silence */ s->tx.constellation_state = 0; z = complex_setf(0.0f, 0.0f); break; case V22BIS_TX_TRAINING_STAGE_U11: /* Send continuous unscrambled ones at 1200bps (i.e. 270 degree phase steps). */ /* Only the answering modem sends unscrambled ones. It is the first thing exchanged between the modems. */ s->tx.constellation_state = (s->tx.constellation_state + phase_steps[3]) & 3; z = v22bis_constellation[(s->tx.constellation_state << 2) | 0x01]; break; case V22BIS_TX_TRAINING_STAGE_U0011: /* Continuous unscrambled double dibit 00 11 at 1200bps. This is termed the S1 segment in the V.22bis spec. It is only sent to request or accept 2400bps mode, and lasts 100+-3ms. After this timed burst, we unconditionally change to sending scrambled ones at 1200bps. */ s->tx.constellation_state = (s->tx.constellation_state + phase_steps[3*(s->tx.training_count & 1)]) & 3; z = v22bis_constellation[(s->tx.constellation_state << 2) | 0x01]; if (++s->tx.training_count >= ms_to_symbols(100)) { span_log(&s->logging, SPAN_LOG_FLOW, "+++ starting S11 after U0011\n"); if (s->calling_party) { s->tx.training_count = 0; s->tx.training = V22BIS_TX_TRAINING_STAGE_S11; } else { s->tx.training_count = ms_to_symbols(756 - (600 - 100)); s->tx.training = V22BIS_TX_TRAINING_STAGE_TIMED_S11; } } break; case V22BIS_TX_TRAINING_STAGE_TIMED_S11: /* A timed period of scrambled ones at 1200bps. */ if (++s->tx.training_count >= ms_to_symbols(756)) { if (s->negotiated_bit_rate == 2400) { span_log(&s->logging, SPAN_LOG_FLOW, "+++ starting S1111 (C)\n"); s->tx.training_count = 0; s->tx.training = V22BIS_TX_TRAINING_STAGE_S1111; } else { span_log(&s->logging, SPAN_LOG_FLOW, "+++ Tx normal operation (1200)\n"); s->tx.training_count = 0; s->tx.training = V22BIS_TX_TRAINING_STAGE_NORMAL_OPERATION; v22bis_report_status_change(s, SIG_STATUS_TRAINING_SUCCEEDED); s->tx.current_get_bit = s->get_bit; } } /* Fall through */ case V22BIS_TX_TRAINING_STAGE_S11: /* Scrambled ones at 1200bps. */ bits = scramble(s, 1); bits = (bits << 1) | scramble(s, 1); s->tx.constellation_state = (s->tx.constellation_state + phase_steps[bits]) & 3; z = v22bis_constellation[(s->tx.constellation_state << 2) | 0x01]; break; case V22BIS_TX_TRAINING_STAGE_S1111: /* Scrambled ones at 2400bps. We send a timed 200ms burst, and switch to normal operation at 2400bps */ bits = scramble(s, 1); bits = (bits << 1) | scramble(s, 1); s->tx.constellation_state = (s->tx.constellation_state + phase_steps[bits]) & 3; bits = scramble(s, 1); bits = (bits << 1) | scramble(s, 1); z = v22bis_constellation[(s->tx.constellation_state << 2) | bits]; if (++s->tx.training_count >= ms_to_symbols(200)) { /* We have completed training. Now handle some real work. */ span_log(&s->logging, SPAN_LOG_FLOW, "+++ Tx normal operation (2400)\n"); s->tx.training_count = 0; s->tx.training = V22BIS_TX_TRAINING_STAGE_NORMAL_OPERATION; v22bis_report_status_change(s, SIG_STATUS_TRAINING_SUCCEEDED); s->tx.current_get_bit = s->get_bit; } break; case V22BIS_TX_TRAINING_STAGE_PARKED: default: z = complex_setf(0.0f, 0.0f); break; } return z; } /*- End of function --------------------------------------------------------*/ static complexf_t getbaud(v22bis_state_t *s) { int bits; if (s->tx.training) { /* Send the training sequence */ return training_get(s); } /* There is no graceful shutdown procedure defined for V.22bis. Just send some ones, to ensure we get the real data bits through, even with bad ISI. */ if (s->tx.shutdown) { if (++s->tx.shutdown > 10) return complex_setf(0.0f, 0.0f); } /* The first two bits define the quadrant */ bits = get_scrambled_bit(s); bits = (bits << 1) | get_scrambled_bit(s); s->tx.constellation_state = (s->tx.constellation_state + phase_steps[bits]) & 3; if (s->negotiated_bit_rate == 1200) { bits = 0x01; } else { /* The other two bits define the position within the quadrant */ bits = get_scrambled_bit(s); bits = (bits << 1) | get_scrambled_bit(s); } return v22bis_constellation[(s->tx.constellation_state << 2) | bits]; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE_NONSTD(int) v22bis_tx(v22bis_state_t *s, int16_t amp[], int len) { complexf_t x; complexf_t z; int i; int sample; float famp; if (s->tx.shutdown > 10) return 0; for (sample = 0; sample < len; sample++) { if ((s->tx.baud_phase += 3) >= 40) { s->tx.baud_phase -= 40; s->tx.rrc_filter[s->tx.rrc_filter_step] = s->tx.rrc_filter[s->tx.rrc_filter_step + V22BIS_TX_FILTER_STEPS] = getbaud(s); if (++s->tx.rrc_filter_step >= V22BIS_TX_FILTER_STEPS) s->tx.rrc_filter_step = 0; } /* Root raised cosine pulse shaping at baseband */ x = complex_setf(0.0f, 0.0f); for (i = 0; i < V22BIS_TX_FILTER_STEPS; i++) { x.re += tx_pulseshaper[39 - s->tx.baud_phase][i]*s->tx.rrc_filter[i + s->tx.rrc_filter_step].re; x.im += tx_pulseshaper[39 - s->tx.baud_phase][i]*s->tx.rrc_filter[i + s->tx.rrc_filter_step].im; } /* Now create and modulate the carrier */ z = dds_complexf(&(s->tx.carrier_phase), s->tx.carrier_phase_rate); famp = (x.re*z.re - x.im*z.im)*s->tx.gain; if (s->tx.guard_phase_rate && (s->tx.rrc_filter[s->tx.rrc_filter_step].re != 0.0f || s->tx.rrc_filter[s->tx.rrc_filter_step].im != 0.0f)) { /* Add the guard tone */ famp += dds_modf(&(s->tx.guard_phase), s->tx.guard_phase_rate, s->tx.guard_level, 0); } /* Don't bother saturating. We should never clip. */ amp[sample] = (int16_t) lfastrintf(famp); } return sample; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) v22bis_tx_power(v22bis_state_t *s, float power) { float l; if (s->tx.guard_phase_rate == dds_phase_ratef(550.0f)) { l = 1.6f*powf(10.0f, (power - 1.0f - DBM0_MAX_POWER)/20.0f); s->tx.gain = l*32768.0f/(TX_PULSESHAPER_GAIN*3.0f); l = powf(10.0f, (power - 1.0f - 3.0f - DBM0_MAX_POWER)/20.0f); s->tx.guard_level = l*32768.0f; } else if(s->tx.guard_phase_rate == dds_phase_ratef(1800.0f)) { l = 1.6f*powf(10.0f, (power - 1.0f - 1.0f - DBM0_MAX_POWER)/20.0f); s->tx.gain = l*32768.0f/(TX_PULSESHAPER_GAIN*3.0f); l = powf(10.0f, (power - 1.0f - 6.0f - DBM0_MAX_POWER)/20.0f); s->tx.guard_level = l*32768.0f; } else { l = 1.6f*powf(10.0f, (power - DBM0_MAX_POWER)/20.0f); s->tx.gain = l*32768.0f/(TX_PULSESHAPER_GAIN*3.0f); s->tx.guard_level = 0; } } /*- End of function --------------------------------------------------------*/ static int v22bis_tx_restart(v22bis_state_t *s) { cvec_zerof(s->tx.rrc_filter, sizeof(s->tx.rrc_filter)/sizeof(s->tx.rrc_filter[0])); s->tx.rrc_filter_step = 0; s->tx.scramble_reg = 0; s->tx.scrambler_pattern_count = 0; if (s->calling_party) s->tx.training = V22BIS_TX_TRAINING_STAGE_INITIAL_SILENCE; else s->tx.training = V22BIS_TX_TRAINING_STAGE_INITIAL_TIMED_SILENCE; s->tx.training_count = 0; s->tx.carrier_phase = 0; s->tx.guard_phase = 0; s->tx.baud_phase = 0; s->tx.constellation_state = 0; s->tx.current_get_bit = fake_get_bit; s->tx.shutdown = 0; return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) v22bis_set_get_bit(v22bis_state_t *s, get_bit_func_t get_bit, void *user_data) { s->get_bit = get_bit; s->get_bit_user_data = user_data; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) v22bis_set_put_bit(v22bis_state_t *s, put_bit_func_t put_bit, void *user_data) { s->put_bit = put_bit; s->put_bit_user_data = user_data; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) v22bis_set_modem_status_handler(v22bis_state_t *s, modem_tx_status_func_t handler, void *user_data) { s->status_handler = handler; s->status_user_data = user_data; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(logging_state_t *) v22bis_get_logging_state(v22bis_state_t *s) { return &s->logging; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) v22bis_restart(v22bis_state_t *s, int bit_rate) { switch (bit_rate) { case 2400: case 1200: break; default: return -1; } s->bit_rate = bit_rate; s->negotiated_bit_rate = 1200; if (v22bis_tx_restart(s)) return -1; return v22bis_rx_restart(s); } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) v22bis_request_retrain(v22bis_state_t *s, int bit_rate) { /* TODO: support bit rate switching */ switch (bit_rate) { case 2400: case 1200: break; default: return -1; } /* TODO: support bit rate changes */ /* Retrain is only valid when we are normal operation at 2400bps */ if (s->rx.training != V22BIS_RX_TRAINING_STAGE_NORMAL_OPERATION || s->tx.training != V22BIS_TX_TRAINING_STAGE_NORMAL_OPERATION || s->negotiated_bit_rate != 2400) { return -1; } /* Send things back into the training process at the appropriate point. The far end should detect the S1 signal, and reciprocate. */ span_log(&s->logging, SPAN_LOG_FLOW, "+++ Initiating a retrain\n"); s->rx.pattern_repeats = 0; s->rx.training_count = 0; s->rx.training = V22BIS_RX_TRAINING_STAGE_SCRAMBLED_ONES_AT_1200; s->tx.training_count = 0; s->tx.training = V22BIS_TX_TRAINING_STAGE_U0011; v22bis_equalizer_coefficient_reset(s); v22bis_report_status_change(s, SIG_STATUS_MODEM_RETRAIN_OCCURRED); return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) v22bis_remote_loopback(v22bis_state_t *s, int enable) { /* TODO: */ return -1; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) v22bis_get_current_bit_rate(v22bis_state_t *s) { return s->negotiated_bit_rate; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(v22bis_state_t *) v22bis_init(v22bis_state_t *s, int bit_rate, int guard, int calling_party, get_bit_func_t get_bit, void *get_bit_user_data, put_bit_func_t put_bit, void *put_bit_user_data) { switch (bit_rate) { case 2400: case 1200: break; default: return NULL; } if (s == NULL) { if ((s = (v22bis_state_t *) malloc(sizeof(*s))) == NULL) return NULL; } memset(s, 0, sizeof(*s)); span_log_init(&s->logging, SPAN_LOG_NONE, NULL); span_log_set_protocol(&s->logging, "V.22bis"); s->bit_rate = bit_rate; s->calling_party = calling_party; s->get_bit = get_bit; s->get_bit_user_data = get_bit_user_data; s->put_bit = put_bit; s->put_bit_user_data = put_bit_user_data; if (s->calling_party) { s->tx.carrier_phase_rate = dds_phase_ratef(1200.0f); } else { s->tx.carrier_phase_rate = dds_phase_ratef(2400.0f); switch (guard) { case V22BIS_GUARD_TONE_550HZ: s->tx.guard_phase_rate = dds_phase_ratef(550.0f); break; case V22BIS_GUARD_TONE_1800HZ: s->tx.guard_phase_rate = dds_phase_ratef(1800.0f); break; default: s->tx.guard_phase_rate = 0; break; } } v22bis_tx_power(s, -14.0f); v22bis_restart(s, s->bit_rate); return s; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) v22bis_release(v22bis_state_t *s) { return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) v22bis_free(v22bis_state_t *s) { free(s); return 0; } /*- End of function --------------------------------------------------------*/ /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/floating_fudge.h0000664000175000017500000000535611422612261016522 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * floating_fudge.h - A bunch of shims, to use double maths * functions on platforms which lack the * float versions with an 'f' at the end, * and to deal with the vaguaries of lrint(). * * Written by Steve Underwood * * Copyright (C) 2008 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #if !defined(_FLOATING_FUDGE_H_) #define _FLOATING_FUDGE_H_ #if defined(__cplusplus) extern "C" { #endif #if !defined(HAVE_SINF) static __inline__ float sinf(float x) { return (float) sin((double) x); } #endif #if !defined(HAVE_COSF) static __inline__ float cosf(float x) { return (float) cos((double) x); } #endif #if !defined(HAVE_TANF) static __inline__ float tanf(float x) { return (float) tan((double) x); } #endif #if !defined(HAVE_ASINF) static __inline__ float asinf(float x) { return (float) asin((double) x); } #endif #if !defined(HAVE_ACOSF) static __inline__ float acosf(float x) { return (float) acos((double) x); } #endif #if !defined(HAVE_ATANF) static __inline__ float atanf(float x) { return (float) atan((double) x); } #endif #if !defined(HAVE_ATAN2F) static __inline__ float atan2f(float y, float x) { return (float) atan2((double) y, (double) x); } #endif #if !defined(HAVE_CEILF) static __inline__ float ceilf(float x) { return (float) ceil((double) x); } #endif #if !defined(HAVE_FLOORF) static __inline__ float floorf(float x) { return (float) floor((double) x); } #endif #if !defined(HAVE_POWF) static __inline__ float powf(float x, float y) { return (float) pow((double) x, (double) y); } #endif #if !defined(HAVE_EXPF) static __inline__ float expf(float x) { return (float) expf((double) x); } #endif #if !defined(HAVE_LOGF) static __inline__ float logf(float x) { return (float) logf((double) x); } #endif #if !defined(HAVE_LOG10F) static __inline__ float log10f(float x) { return (float) log10((double) x); } #endif #if defined(__cplusplus) } #endif #endif /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/t38_gateway.c0000664000175000017500000027326411713225054015707 0ustar steveusteveu//#define LOG_FAX_AUDIO /* * SpanDSP - a series of DSP components for telephony * * t38_gateway.c - A T.38 gateway, less the packet exchange part * * Written by Steve Underwood * * Copyright (C) 2005, 2006, 2007, 2008 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \file */ #if defined(HAVE_CONFIG_H) #include "config.h" #endif #include #include #include #include #include #include #if defined(HAVE_TGMATH_H) #include #endif #if defined(HAVE_MATH_H) #include #endif #include "floating_fudge.h" #include #if defined(LOG_FAX_AUDIO) #include #endif #include #include "spandsp/telephony.h" #include "spandsp/logging.h" #include "spandsp/queue.h" #include "spandsp/dc_restore.h" #include "spandsp/bit_operations.h" #include "spandsp/power_meter.h" #include "spandsp/complex.h" #include "spandsp/tone_detect.h" #include "spandsp/tone_generate.h" #include "spandsp/async.h" #include "spandsp/crc.h" #include "spandsp/hdlc.h" #include "spandsp/silence_gen.h" #include "spandsp/fsk.h" #include "spandsp/v29tx.h" #include "spandsp/v29rx.h" #include "spandsp/v27ter_tx.h" #include "spandsp/v27ter_rx.h" #include "spandsp/v17tx.h" #include "spandsp/v17rx.h" #include "spandsp/super_tone_rx.h" #include "spandsp/modem_connect_tones.h" #include "spandsp/t4_rx.h" #include "spandsp/t4_tx.h" #if defined(SPANDSP_SUPPORT_T85) #include "spandsp/t81_t82_arith_coding.h" #include "spandsp/t85.h" #endif #include "spandsp/t4_t6_decode.h" #include "spandsp/t4_t6_encode.h" #include "spandsp/t30_fcf.h" #include "spandsp/t35.h" #include "spandsp/t30.h" #include "spandsp/t30_logging.h" #include "spandsp/fax_modems.h" #include "spandsp/t38_core.h" #include "spandsp/t38_non_ecm_buffer.h" #include "spandsp/t38_gateway.h" #include "spandsp/private/logging.h" #include "spandsp/private/silence_gen.h" #include "spandsp/private/fsk.h" #include "spandsp/private/v17tx.h" #include "spandsp/private/v17rx.h" #include "spandsp/private/v27ter_tx.h" #include "spandsp/private/v27ter_rx.h" #include "spandsp/private/v29tx.h" #include "spandsp/private/v29rx.h" #include "spandsp/private/modem_connect_tones.h" #include "spandsp/private/hdlc.h" #include "spandsp/private/fax_modems.h" #if defined(SPANDSP_SUPPORT_T85) #include "spandsp/private/t81_t82_arith_coding.h" #include "spandsp/private/t85.h" #endif #include "spandsp/private/t4_t6_decode.h" #include "spandsp/private/t4_t6_encode.h" #include "spandsp/private/t4_rx.h" #include "spandsp/private/t4_tx.h" #include "spandsp/private/t30.h" #include "spandsp/private/t38_core.h" #include "spandsp/private/t38_non_ecm_buffer.h" #include "spandsp/private/t38_gateway.h" /* This is the target time per transmission chunk. The actual packet timing will sync to the data octets. */ /*! The default number of milliseconds per transmitted IFP when sending bulk T.38 data */ #define DEFAULT_MS_PER_TX_CHUNK 30 /*! The number of bytes which must be in the audio to T.38 HDLC buffer before we start outputting them as IFP messages. */ #define HDLC_START_BUFFER_LEVEL 8 /*! The number of transmissions of indicator IFP packets */ #define INDICATOR_TX_COUNT 3 /*! The number of transmissions of data IFP packets */ #define DATA_TX_COUNT 1 /*! The number of transmissions of terminating data IFP packets */ #define DATA_END_TX_COUNT 3 enum { DISBIT1 = 0x01, DISBIT2 = 0x02, DISBIT3 = 0x04, DISBIT4 = 0x08, DISBIT5 = 0x10, DISBIT6 = 0x20, DISBIT7 = 0x40, DISBIT8 = 0x80 }; enum { T38_NONE, T38_V27TER_RX, T38_V29_RX, T38_V17_RX }; enum { HDLC_FLAG_FINISHED = 0x01, HDLC_FLAG_CORRUPT_CRC = 0x02, HDLC_FLAG_PROCEED_WITH_OUTPUT = 0x04, HDLC_FLAG_MISSING_DATA = 0x08 }; enum { FLAG_INDICATOR = 0x100, FLAG_DATA = 0x200 }; enum { TIMED_MODE_STARTUP = 0, TIMED_MODE_IDLE, TIMED_MODE_TCF_PREDICTABLE_MODEM_START_FAST_MODEM_ANNOUNCED, TIMED_MODE_TCF_PREDICTABLE_MODEM_START_FAST_MODEM_SEEN, TIMED_MODE_TCF_PREDICTABLE_MODEM_START_PAST_V21_MODEM, TIMED_MODE_TCF_PREDICTABLE_MODEM_START_BEGIN, }; /*! The maximum number of bytes to be zapped, in order to corrupt NSF, NSS and NSC messages, so the receiver does not recognise them. */ #define MAX_NSX_SUPPRESSION 10 /*! The number of consecutive flags to declare HDLC framing is OK. */ #define HDLC_FRAMING_OK_THRESHOLD 5 static uint8_t nsx_overwrite[2][MAX_NSX_SUPPRESSION] = { {0xFF, 0, 0, 0, 0, 0, 0, 0, 0, 0}, {0xFF, 0, 0, 0, 0, 0, 0, 0, 0, 0}, }; static int restart_rx_modem(t38_gateway_state_t *s); static int process_rx_indicator(t38_core_state_t *t, void *user_data, int indicator); static void hdlc_underflow_handler(void *user_data); static void to_t38_buffer_init(t38_gateway_to_t38_state_t *s); static void t38_hdlc_rx_put_bit(hdlc_rx_state_t *t, int new_bit); static void non_ecm_put_bit(void *user_data, int bit); static void non_ecm_remove_fill_and_put_bit(void *user_data, int bit); static void non_ecm_push_residue(t38_gateway_state_t *s); static void tone_detected(void *user_data, int tone, int level, int delay); static void set_rx_handler(t38_gateway_state_t *s, span_rx_handler_t *handler, span_rx_fillin_handler_t *fillin_handler, void *user_data) { if (s->audio.modems.rx_handler != span_dummy_rx) { s->audio.modems.rx_handler = handler; s->audio.modems.rx_fillin_handler = fillin_handler; } /*endif*/ s->audio.base_rx_handler = handler; s->audio.base_rx_fillin_handler = fillin_handler; s->audio.modems.rx_user_data = user_data; } /*- End of function --------------------------------------------------------*/ static void set_tx_handler(t38_gateway_state_t *s, span_tx_handler_t *handler, void *user_data) { s->audio.modems.tx_handler = handler; s->audio.modems.tx_user_data = user_data; } /*- End of function --------------------------------------------------------*/ static void set_next_tx_handler(t38_gateway_state_t *s, span_tx_handler_t *handler, void *user_data) { s->audio.modems.next_tx_handler = handler; s->audio.modems.next_tx_user_data = user_data; } /*- End of function --------------------------------------------------------*/ static void set_rx_active(t38_gateway_state_t *s, int active) { s->audio.modems.rx_handler = (active) ? s->audio.base_rx_handler : span_dummy_rx; s->audio.modems.rx_fillin_handler = (active) ? s->audio.base_rx_fillin_handler : span_dummy_rx_fillin; } /*- End of function --------------------------------------------------------*/ static int v17_v21_rx_fillin(void *user_data, int len) { t38_gateway_state_t *t; fax_modems_state_t *s; t = (t38_gateway_state_t *) user_data; s = &t->audio.modems; v17_rx_fillin(&s->v17_rx, len); fsk_rx_fillin(&s->v21_rx, len); return 0; } /*- End of function --------------------------------------------------------*/ static int v17_v21_rx(void *user_data, const int16_t amp[], int len) { t38_gateway_state_t *t; fax_modems_state_t *s; t = (t38_gateway_state_t *) user_data; s = &t->audio.modems; v17_rx(&s->v17_rx, amp, len); if (s->rx_trained) { /* The fast modem has trained, so we no longer need to run the slow one in parallel. */ span_log(&t->logging, SPAN_LOG_FLOW, "Switching from V.17 + V.21 to V.17 (%.2fdBm0)\n", v17_rx_signal_power(&s->v17_rx)); set_rx_handler(t, (span_rx_handler_t *) &v17_rx, (span_rx_fillin_handler_t *) &v17_rx_fillin, &s->v17_rx); } else { fsk_rx(&s->v21_rx, amp, len); if (s->rx_signal_present) { span_log(&t->logging, SPAN_LOG_FLOW, "Switching from V.17 + V.21 to V.21 (%.2fdBm0)\n", fsk_rx_signal_power(&s->v21_rx)); set_rx_handler(t, (span_rx_handler_t *) &fsk_rx, (span_rx_fillin_handler_t *) &fsk_rx_fillin, &s->v21_rx); } /*endif*/ } /*endif*/ return 0; } /*- End of function --------------------------------------------------------*/ static int v27ter_v21_rx_fillin(void *user_data, int len) { t38_gateway_state_t *t; fax_modems_state_t *s; t = (t38_gateway_state_t *) user_data; s = &t->audio.modems; v27ter_rx_fillin(&s->v27ter_rx, len); fsk_rx_fillin(&s->v21_rx, len); return 0; } /*- End of function --------------------------------------------------------*/ static int v27ter_v21_rx(void *user_data, const int16_t amp[], int len) { t38_gateway_state_t *t; fax_modems_state_t *s; t = (t38_gateway_state_t *) user_data; s = &t->audio.modems; v27ter_rx(&s->v27ter_rx, amp, len); if (s->rx_trained) { /* The fast modem has trained, so we no longer need to run the slow one in parallel. */ span_log(&t->logging, SPAN_LOG_FLOW, "Switching from V.27ter + V.21 to V.27ter (%.2fdBm0)\n", v27ter_rx_signal_power(&s->v27ter_rx)); set_rx_handler(t, (span_rx_handler_t *) &v27ter_rx, (span_rx_fillin_handler_t *) &v27ter_v21_rx_fillin, &s->v27ter_rx); } else { fsk_rx(&s->v21_rx, amp, len); if (s->rx_signal_present) { span_log(&t->logging, SPAN_LOG_FLOW, "Switching from V.27ter + V.21 to V.21 (%.2fdBm0)\n", fsk_rx_signal_power(&s->v21_rx)); set_rx_handler(t, (span_rx_handler_t *) &fsk_rx, (span_rx_fillin_handler_t *) &fsk_rx_fillin, &s->v21_rx); } /*endif*/ } /*endif*/ return 0; } /*- End of function --------------------------------------------------------*/ static int v29_v21_rx_fillin(void *user_data, int len) { t38_gateway_state_t *t; fax_modems_state_t *s; t = (t38_gateway_state_t *) user_data; s = &t->audio.modems; v29_rx_fillin(&s->v29_rx, len); fsk_rx_fillin(&s->v21_rx, len); return 0; } /*- End of function --------------------------------------------------------*/ static int v29_v21_rx(void *user_data, const int16_t amp[], int len) { t38_gateway_state_t *t; fax_modems_state_t *s; t = (t38_gateway_state_t *) user_data; s = &t->audio.modems; v29_rx(&s->v29_rx, amp, len); if (s->rx_trained) { /* The fast modem has trained, so we no longer need to run the slow one in parallel. */ span_log(&t->logging, SPAN_LOG_FLOW, "Switching from V.29 + V.21 to V.29 (%.2fdBm0)\n", v29_rx_signal_power(&s->v29_rx)); set_rx_handler(t, (span_rx_handler_t *) &v29_rx, (span_rx_fillin_handler_t *) &v29_rx_fillin, &s->v29_rx); } else { fsk_rx(&s->v21_rx, amp, len); if (s->rx_signal_present) { span_log(&t->logging, SPAN_LOG_FLOW, "Switching from V.29 + V.21 to V.21 (%.2fdBm0)\n", fsk_rx_signal_power(&s->v21_rx)); set_rx_handler(t, (span_rx_handler_t *) &fsk_rx, (span_rx_fillin_handler_t *) &fsk_rx_fillin, &s->v21_rx); } /*endif*/ } /*endif*/ return 0; } /*- End of function --------------------------------------------------------*/ static void tone_detected(void *user_data, int tone, int level, int delay) { t38_gateway_state_t *s; s = (t38_gateway_state_t *) user_data; span_log(&s->logging, SPAN_LOG_FLOW, "%s detected (%ddBm0)\n", modem_connect_tone_to_str(tone), level); } /*- End of function --------------------------------------------------------*/ static void hdlc_underflow_handler(void *user_data) { t38_gateway_state_t *s; t38_gateway_hdlc_state_t *t; int old_data_type; s = (t38_gateway_state_t *) user_data; t = &s->core.hdlc_to_modem; span_log(&s->logging, SPAN_LOG_FLOW, "HDLC underflow at %d\n", t->out); /* If the current HDLC buffer is not at the HDLC_FLAG_PROCEED_WITH_OUTPUT stage, this underflow must be an end of preamble condition. */ if ((t->buf[t->out].flags & HDLC_FLAG_PROCEED_WITH_OUTPUT)) { old_data_type = t->buf[t->out].contents; t->buf[t->out].len = 0; t->buf[t->out].flags = 0; t->buf[t->out].contents = 0; if (++t->out >= T38_TX_HDLC_BUFS) t->out = 0; span_log(&s->logging, SPAN_LOG_FLOW, "HDLC next is 0x%X\n", t->buf[t->out].contents); if ((t->buf[t->out].contents & FLAG_INDICATOR)) { /* The next thing in the queue is an indicator, so we need to stop this modem. */ span_log(&s->logging, SPAN_LOG_FLOW, "HDLC shutdown\n"); hdlc_tx_frame(&s->audio.modems.hdlc_tx, NULL, 0); } else if ((t->buf[t->out].contents & FLAG_DATA)) { /* Check if we should start sending the next frame */ if ((t->buf[t->out].flags & HDLC_FLAG_PROCEED_WITH_OUTPUT)) { /* This frame is ready to go, and uses the same modem we are running now. So, send whatever we have. This might or might not be an entire frame. */ span_log(&s->logging, SPAN_LOG_FLOW, "HDLC start next frame\n"); hdlc_tx_frame(&s->audio.modems.hdlc_tx, t->buf[t->out].buf, t->buf[t->out].len); if ((t->buf[t->out].flags & HDLC_FLAG_CORRUPT_CRC)) hdlc_tx_corrupt_frame(&s->audio.modems.hdlc_tx); /*endif*/ } /*endif*/ } /*endif*/ } /*endif*/ } /*- End of function --------------------------------------------------------*/ static int set_next_tx_type(t38_gateway_state_t *s) { get_bit_func_t get_bit_func; void *get_bit_user_data; int indicator; int short_train; fax_modems_state_t *t; t38_gateway_hdlc_state_t *u; t = &s->audio.modems; t38_non_ecm_buffer_report_output_status(&s->core.non_ecm_to_modem, &s->logging); if (t->next_tx_handler) { /* There is a handler queued, so that is the next one. */ set_tx_handler(s, t->next_tx_handler, t->next_tx_user_data); set_next_tx_handler(s, NULL, NULL); if (t->tx_handler == (span_tx_handler_t *) &(silence_gen) || t->tx_handler == (span_tx_handler_t *) &(tone_gen)) { set_rx_active(s, TRUE); } else { set_rx_active(s, FALSE); } /*endif*/ return TRUE; } /*endif*/ u = &s->core.hdlc_to_modem; if (u->in == u->out) return FALSE; /*endif*/ if ((u->buf[u->out].contents & FLAG_INDICATOR) == 0) return FALSE; /*endif*/ indicator = (u->buf[u->out].contents & 0xFF); u->buf[u->out].len = 0; u->buf[u->out].flags = 0; u->buf[u->out].contents = 0; if (++u->out >= T38_TX_HDLC_BUFS) u->out = 0; /*endif*/ span_log(&s->logging, SPAN_LOG_FLOW, "Changing to %s\n", t38_indicator_to_str(indicator)); if (s->core.image_data_mode && s->core.ecm_mode) { span_log(&s->logging, SPAN_LOG_FLOW, "HDLC mode\n"); hdlc_tx_init(&t->hdlc_tx, FALSE, 2, TRUE, hdlc_underflow_handler, s); get_bit_func = (get_bit_func_t) hdlc_tx_get_bit; get_bit_user_data = (void *) &t->hdlc_tx; } else { span_log(&s->logging, SPAN_LOG_FLOW, "Non-ECM mode\n"); get_bit_func = t38_non_ecm_buffer_get_bit; get_bit_user_data = (void *) &s->core.non_ecm_to_modem; } /*endif*/ switch (indicator) { case T38_IND_NO_SIGNAL: t->tx_bit_rate = 0; /* Impose 75ms minimum on transmitted silence */ //silence_gen_set(&t->silence_gen, ms_to_samples(75)); set_tx_handler(s, (span_tx_handler_t *) &silence_gen, &t->silence_gen); set_next_tx_handler(s, (span_tx_handler_t *) NULL, NULL); set_rx_active(s, TRUE); break; case T38_IND_CNG: t->tx_bit_rate = 0; modem_connect_tones_tx_init(&t->connect_tx, MODEM_CONNECT_TONES_FAX_CNG); set_tx_handler(s, (span_tx_handler_t *) &modem_connect_tones_tx, &t->connect_tx); silence_gen_set(&t->silence_gen, 0); set_next_tx_handler(s, (span_tx_handler_t *) &silence_gen, &t->silence_gen); set_rx_active(s, TRUE); break; case T38_IND_CED: t->tx_bit_rate = 0; modem_connect_tones_tx_init(&t->connect_tx, MODEM_CONNECT_TONES_FAX_CED); set_tx_handler(s, (span_tx_handler_t *) &modem_connect_tones_tx, &t->connect_tx); set_next_tx_handler(s, (span_tx_handler_t *) NULL, NULL); set_rx_active(s, TRUE); break; case T38_IND_V21_PREAMBLE: t->tx_bit_rate = 300; hdlc_tx_init(&t->hdlc_tx, FALSE, 2, TRUE, hdlc_underflow_handler, s); hdlc_tx_flags(&t->hdlc_tx, 32); silence_gen_alter(&t->silence_gen, ms_to_samples(75)); u->buf[u->in].len = 0; fsk_tx_init(&t->v21_tx, &preset_fsk_specs[FSK_V21CH2], (get_bit_func_t) hdlc_tx_get_bit, &t->hdlc_tx); set_tx_handler(s, (span_tx_handler_t *) &silence_gen, &t->silence_gen); set_next_tx_handler(s, (span_tx_handler_t *) &fsk_tx, &t->v21_tx); set_rx_active(s, TRUE); break; case T38_IND_V27TER_2400_TRAINING: case T38_IND_V27TER_4800_TRAINING: switch (indicator) { case T38_IND_V27TER_2400_TRAINING: t->tx_bit_rate = 2400; break; case T38_IND_V27TER_4800_TRAINING: t->tx_bit_rate = 4800; break; } /*endswitch*/ silence_gen_alter(&t->silence_gen, ms_to_samples(75)); v27ter_tx_restart(&t->v27ter_tx, t->tx_bit_rate, t->use_tep); v27ter_tx_set_get_bit(&t->v27ter_tx, get_bit_func, get_bit_user_data); set_tx_handler(s, (span_tx_handler_t *) &silence_gen, &t->silence_gen); set_next_tx_handler(s, (span_tx_handler_t *) &v27ter_tx, &t->v27ter_tx); set_rx_active(s, TRUE); break; case T38_IND_V29_7200_TRAINING: case T38_IND_V29_9600_TRAINING: switch (indicator) { case T38_IND_V29_7200_TRAINING: t->tx_bit_rate = 7200; break; case T38_IND_V29_9600_TRAINING: t->tx_bit_rate = 9600; break; } /*endswitch*/ silence_gen_alter(&t->silence_gen, ms_to_samples(75)); v29_tx_restart(&t->v29_tx, t->tx_bit_rate, t->use_tep); v29_tx_set_get_bit(&t->v29_tx, get_bit_func, get_bit_user_data); set_tx_handler(s, (span_tx_handler_t *) &silence_gen, &t->silence_gen); set_next_tx_handler(s, (span_tx_handler_t *) &v29_tx, &t->v29_tx); set_rx_active(s, TRUE); break; case T38_IND_V17_7200_SHORT_TRAINING: case T38_IND_V17_7200_LONG_TRAINING: case T38_IND_V17_9600_SHORT_TRAINING: case T38_IND_V17_9600_LONG_TRAINING: case T38_IND_V17_12000_SHORT_TRAINING: case T38_IND_V17_12000_LONG_TRAINING: case T38_IND_V17_14400_SHORT_TRAINING: case T38_IND_V17_14400_LONG_TRAINING: short_train = FALSE; switch (indicator) { case T38_IND_V17_7200_SHORT_TRAINING: short_train = TRUE; t->tx_bit_rate = 7200; break; case T38_IND_V17_7200_LONG_TRAINING: t->tx_bit_rate = 7200; break; case T38_IND_V17_9600_SHORT_TRAINING: short_train = TRUE; t->tx_bit_rate = 9600; break; case T38_IND_V17_9600_LONG_TRAINING: t->tx_bit_rate = 9600; break; case T38_IND_V17_12000_SHORT_TRAINING: short_train = TRUE; t->tx_bit_rate = 12000; break; case T38_IND_V17_12000_LONG_TRAINING: t->tx_bit_rate = 12000; break; case T38_IND_V17_14400_SHORT_TRAINING: short_train = TRUE; t->tx_bit_rate = 14400; break; case T38_IND_V17_14400_LONG_TRAINING: t->tx_bit_rate = 14400; break; } /*endswitch*/ silence_gen_alter(&t->silence_gen, ms_to_samples(75)); v17_tx_restart(&t->v17_tx, t->tx_bit_rate, t->use_tep, short_train); v17_tx_set_get_bit(&t->v17_tx, get_bit_func, get_bit_user_data); set_tx_handler(s, (span_tx_handler_t *) &silence_gen, &t->silence_gen); set_next_tx_handler(s, (span_tx_handler_t *) &v17_tx, &t->v17_tx); set_rx_active(s, TRUE); break; case T38_IND_V8_ANSAM: t->tx_bit_rate = 300; break; case T38_IND_V8_SIGNAL: t->tx_bit_rate = 300; break; case T38_IND_V34_CNTL_CHANNEL_1200: t->tx_bit_rate = 1200; break; case T38_IND_V34_PRI_CHANNEL: t->tx_bit_rate = 33600; break; case T38_IND_V34_CC_RETRAIN: t->tx_bit_rate = 0; break; case T38_IND_V33_12000_TRAINING: t->tx_bit_rate = 12000; break; case T38_IND_V33_14400_TRAINING: t->tx_bit_rate = 14400; break; default: break; } /*endswitch*/ /* For any fast modem, set 200ms of preamble flags */ if (t->tx_bit_rate > 300) hdlc_tx_flags(&t->hdlc_tx, t->tx_bit_rate/(8*5)); /*endif*/ s->t38x.in_progress_rx_indicator = indicator; return TRUE; } /*- End of function --------------------------------------------------------*/ static void finalise_hdlc_frame(t38_gateway_state_t *s, int good_fcs) { t38_gateway_hdlc_buf_t *hdlc_buf; hdlc_buf = &s->core.hdlc_to_modem.buf[s->core.hdlc_to_modem.in]; if (!good_fcs || (hdlc_buf->flags & HDLC_FLAG_MISSING_DATA)) hdlc_buf->flags |= HDLC_FLAG_CORRUPT_CRC; /*endif*/ if (s->core.hdlc_to_modem.in == s->core.hdlc_to_modem.out) { /* This is the frame in progress at the output. */ if ((hdlc_buf->flags & HDLC_FLAG_PROCEED_WITH_OUTPUT) == 0) { /* Output of this frame has not yet begun. Throw it all out now. */ hdlc_tx_frame(&s->audio.modems.hdlc_tx, hdlc_buf->buf, hdlc_buf->len); } /*endif*/ if ((hdlc_buf->flags & HDLC_FLAG_CORRUPT_CRC)) hdlc_tx_corrupt_frame(&s->audio.modems.hdlc_tx); /*endif*/ } /*endif*/ hdlc_buf->flags |= (HDLC_FLAG_PROCEED_WITH_OUTPUT | HDLC_FLAG_FINISHED); if (++s->core.hdlc_to_modem.in >= T38_TX_HDLC_BUFS) s->core.hdlc_to_modem.in = 0; /*endif*/ hdlc_buf = &s->core.hdlc_to_modem.buf[s->core.hdlc_to_modem.in]; hdlc_buf->len = 0; hdlc_buf->flags = 0; hdlc_buf->contents = 0; } /*- End of function --------------------------------------------------------*/ static void edit_control_messages(t38_gateway_state_t *s, int from_modem, uint8_t *buf, int len) { /* Frames need to be fed to this routine byte by byte as they arrive. It basically just edits the last byte received, based on the frame up to that point. */ if (s->t38x.corrupt_current_frame[from_modem]) { /* We simply need to overwrite a section of the message, so it is not recognisable at the receiver. This is used for the NSF, NSC, and NSS messages. Several strategies are possible for the replacement data. If you have a manufacturer code of your own, the sane thing is to overwrite the original data with that. */ if (len <= s->t38x.suppress_nsx_len[from_modem]) buf[len - 1] = nsx_overwrite[from_modem][len - 4]; /*endif*/ return; } /*endif*/ /* Edit the message, if we need to control the communication between the end points. */ switch (len) { case 3: switch (buf[2]) { case T30_NSF: case T30_NSC: case T30_NSS: if (s->t38x.suppress_nsx_len[from_modem]) { /* Corrupt the message, so it will be ignored by the far end. If it were processed, 2 machines which recognise each other might do special things we cannot handle as a middle man. */ span_log(&s->logging, SPAN_LOG_FLOW, "Corrupting %s message to prevent recognition\n", t30_frametype(buf[2])); s->t38x.corrupt_current_frame[from_modem] = TRUE; } /*endif*/ break; } /*endswitch*/ break; case 4: switch (buf[2]) { case T30_DIS: /* Make sure the V.8 capability doesn't pass through. If it did, two V.34 capable FAX machines might start some V.8 re-negotiation. */ buf[3] &= ~DISBIT6; break; } /*endswitch*/ break; case 5: switch (buf[2]) { case T30_DIS: /* We may need to adjust the capabilities, so they do not exceed our own */ span_log(&s->logging, SPAN_LOG_FLOW, "Applying fast modem type constraints.\n"); switch (buf[4] & (DISBIT6 | DISBIT5 | DISBIT4 | DISBIT3)) { case 0: case DISBIT4: /* V.27ter only */ break; case DISBIT3: case (DISBIT4 | DISBIT3): /* V.27ter and V.29 */ if (!(s->core.supported_modems & T30_SUPPORT_V29)) buf[4] &= ~DISBIT3; /*endif*/ break; case (DISBIT6 | DISBIT4 | DISBIT3): /* V.27ter, V.29 and V.17 */ if (!(s->core.supported_modems & T30_SUPPORT_V17)) buf[4] &= ~DISBIT6; /*endif*/ if (!(s->core.supported_modems & T30_SUPPORT_V29)) buf[4] &= ~DISBIT3; /*endif*/ break; case (DISBIT5 | DISBIT4): case (DISBIT6 | DISBIT4): case (DISBIT6 | DISBIT5 | DISBIT4): case (DISBIT6 | DISBIT5 | DISBIT4 | DISBIT3): /* Reserved */ buf[4] &= ~(DISBIT6 | DISBIT5); buf[4] |= (DISBIT4 | DISBIT3); break; default: /* Not used */ buf[4] &= ~(DISBIT6 | DISBIT5); buf[4] |= (DISBIT4 | DISBIT3); break; } /*endswitch*/ break; } /*endswitch*/ break; case 7: switch (buf[2]) { case T30_DIS: if (!s->core.ecm_allowed) { /* Do not allow ECM or T.6 coding */ span_log(&s->logging, SPAN_LOG_FLOW, "Inhibiting ECM\n"); buf[6] &= ~(DISBIT3 | DISBIT7); } /*endif*/ break; } /*endswitch*/ break; } /*endswitch*/ } /*- End of function --------------------------------------------------------*/ static void monitor_control_messages(t38_gateway_state_t *s, int from_modem, const uint8_t *buf, int len) { static const struct { int bit_rate; int modem_type; uint8_t dcs_code; } modem_codes[] = { {14400, T38_V17_RX, DISBIT6}, {12000, T38_V17_RX, (DISBIT6 | DISBIT4)}, { 9600, T38_V17_RX, (DISBIT6 | DISBIT3)}, { 9600, T38_V29_RX, DISBIT3}, { 7200, T38_V17_RX, (DISBIT6 | DISBIT4 | DISBIT3)}, { 7200, T38_V29_RX, (DISBIT4 | DISBIT3)}, { 4800, T38_V27TER_RX, DISBIT4}, { 2400, T38_V27TER_RX, 0}, { 0, T38_NONE, 0} }; static const int minimum_scan_line_times[8] = { 20, 5, 10, 0, 40, 0, 0, 0 }; int dcs_code; int i; int j; /* Monitor the control messages, at the point where we have the whole message, so we can see what is happening to things like training success/failure. */ span_log(&s->logging, SPAN_LOG_FLOW, "Monitoring %s\n", t30_frametype(buf[2])); if (len < 3) return; /*endif*/ s->core.timed_mode = TIMED_MODE_IDLE; switch (buf[2]) { case T30_CFR: /* We are changing from TCF exchange to image exchange */ /* Successful training means we should change to short training */ s->core.image_data_mode = TRUE; s->core.short_train = TRUE; span_log(&s->logging, SPAN_LOG_FLOW, "CFR - short train = %d, ECM = %d\n", s->core.short_train, s->core.ecm_mode); if (!from_modem) restart_rx_modem(s); /*endif*/ break; case T30_RTN: case T30_RTP: /* We are going back to the exchange of fresh TCF */ s->core.image_data_mode = FALSE; s->core.short_train = FALSE; break; case T30_CTR: /* T.30 says the first image data after this does full training, yet does not return to TCF. This seems to be the sole case of long training for image data. */ s->core.short_train = FALSE; break; case T30_DTC: case T30_DCS: case T30_DCS | 1: /* We need to check which modem type is about to be used, so we can start the correct modem. */ s->core.fast_bit_rate = 0; s->core.fast_rx_modem = T38_NONE; s->core.image_data_mode = FALSE; s->core.short_train = FALSE; if (from_modem) s->core.timed_mode = TIMED_MODE_TCF_PREDICTABLE_MODEM_START_BEGIN; /*endif*/ if (len >= 5) { /* The table is short, and not searched often, so a brain-dead linear scan seems OK */ dcs_code = buf[4] & (DISBIT6 | DISBIT5 | DISBIT4 | DISBIT3); for (i = 0; modem_codes[i].bit_rate; i++) { if (modem_codes[i].dcs_code == dcs_code) break; /*endif*/ } /*endfor*/ /* If we are processing a message from the modem side, the contents determine the fast receive modem. we are to use. If it comes from the T.38 side the contents do not. */ s->core.fast_bit_rate = modem_codes[i].bit_rate; if (from_modem) s->core.fast_rx_modem = modem_codes[i].modem_type; /*endif*/ } /*endif*/ if (len >= 6) { j = (buf[5] & (DISBIT7 | DISBIT6 | DISBIT5)) >> 4; s->core.min_row_bits = (s->core.fast_bit_rate*minimum_scan_line_times[j])/1000; } else { s->core.min_row_bits = 0; } /*endif*/ s->core.ecm_mode = (len >= 7) && (buf[6] & DISBIT3); span_log(&s->logging, SPAN_LOG_FLOW, "Fast rx modem = %d/%d, ECM = %d, Min bits per row = %d\n", s->core.fast_rx_modem, s->core.fast_bit_rate, s->core.ecm_mode, s->core.min_row_bits); break; case T30_PPS: case T30_PPS | 1: switch (buf[3] & 0xFE) { case T30_EOP: case T30_PRI_EOP: case T30_EOM: case T30_PRI_EOM: case T30_EOS: #if 0 /* If we are hitting one of these conditions, it will take another DCS/DTC to select the fast modem again, so abandon our idea of it. */ s->core.fast_bit_rate = 0; s->core.fast_rx_modem = T38_NONE; s->core.image_data_mode = FALSE; s->core.short_train = FALSE; #endif /* Fall through */ case T30_MPS: case T30_PRI_MPS: s->core.count_page_on_mcf = TRUE; break; } /*endswitch*/ break; case T30_EOP: case T30_EOP | 1: case T30_PRI_EOP: case T30_PRI_EOP | 1: case T30_EOM: case T30_EOM | 1: case T30_PRI_EOM: case T30_PRI_EOM | 1: case T30_EOS: case T30_EOS | 1: #if 0 /* If we are hitting one of these conditions, it will take another DCS/DTC to select the fast modem again, so abandon our idea of it. */ s->core.fast_bit_rate = 0; s->core.fast_rx_modem = T38_NONE; s->core.image_data_mode = FALSE; s->core.short_train = FALSE; #endif /* Fall through */ case T30_MPS: case T30_MPS | 1: case T30_PRI_MPS: case T30_PRI_MPS | 1: s->core.count_page_on_mcf = TRUE; break; case T30_MCF: case T30_MCF | 1: if (s->core.count_page_on_mcf) { s->core.pages_confirmed++; span_log(&s->logging, SPAN_LOG_FLOW, "Pages confirmed = %d\n", s->core.pages_confirmed); s->core.count_page_on_mcf = FALSE; } /*endif*/ break; default: break; } /*endswitch*/ } /*- End of function --------------------------------------------------------*/ static void queue_missing_indicator(t38_gateway_state_t *s, int data_type) { t38_core_state_t *t; int expected; int expected_alt; t = &s->t38x.t38; expected = -1; expected_alt = -1; /* Missing packets might have lost us the indicator that should have put us in the required mode of operation. It might be a bit late to fill in such a gap now, but we should try. We may also want to force indicators into the queue, such as when the data says 'end of signal'. */ /* We have an expectation of whether long or short training should occur, but be tolerant of either kind of indicator being present. */ switch (data_type) { case T38_DATA_NONE: expected = T38_IND_NO_SIGNAL; break; case T38_DATA_V21: expected = T38_IND_V21_PREAMBLE; break; case T38_DATA_V27TER_2400: expected = T38_IND_V27TER_2400_TRAINING; break; case T38_DATA_V27TER_4800: expected = T38_IND_V27TER_4800_TRAINING; break; case T38_DATA_V29_7200: expected = T38_IND_V29_7200_TRAINING; break; case T38_DATA_V29_9600: expected = T38_IND_V29_9600_TRAINING; break; case T38_DATA_V17_7200: expected = (s->core.short_train) ? T38_IND_V17_7200_SHORT_TRAINING : T38_IND_V17_7200_LONG_TRAINING; expected_alt = (s->core.short_train) ? T38_IND_V17_7200_LONG_TRAINING : T38_IND_V17_7200_SHORT_TRAINING; break; case T38_DATA_V17_9600: expected = (s->core.short_train) ? T38_IND_V17_9600_SHORT_TRAINING : T38_IND_V17_9600_LONG_TRAINING; expected_alt = (s->core.short_train) ? T38_IND_V17_9600_LONG_TRAINING : T38_IND_V17_9600_SHORT_TRAINING; break; case T38_DATA_V17_12000: expected = (s->core.short_train) ? T38_IND_V17_12000_SHORT_TRAINING : T38_IND_V17_12000_LONG_TRAINING; expected_alt = (s->core.short_train) ? T38_IND_V17_12000_LONG_TRAINING : T38_IND_V17_12000_SHORT_TRAINING; break; case T38_DATA_V17_14400: expected = (s->core.short_train) ? T38_IND_V17_14400_SHORT_TRAINING : T38_IND_V17_14400_LONG_TRAINING; expected_alt = (s->core.short_train) ? T38_IND_V17_14400_LONG_TRAINING : T38_IND_V17_14400_SHORT_TRAINING; break; case T38_DATA_V8: break; case T38_DATA_V34_PRI_RATE: break; case T38_DATA_V34_CC_1200: break; case T38_DATA_V34_PRI_CH: break; case T38_DATA_V33_12000: break; case T38_DATA_V33_14400: break; } /*endswitch*/ if (expected < 0) return; /*endif*/ if (t->current_rx_indicator == expected) return; /*endif*/ if (expected_alt >= 0 && t->current_rx_indicator == expected_alt) return; /*endif*/ span_log(&s->logging, SPAN_LOG_FLOW, "Queuing missing indicator - %s\n", t38_indicator_to_str(expected)); process_rx_indicator(t, (void *) s, expected); /* Force the indicator setting here, as the core won't set in when its missing. */ t->current_rx_indicator = expected; } /*- End of function --------------------------------------------------------*/ static int process_rx_missing(t38_core_state_t *t, void *user_data, int rx_seq_no, int expected_seq_no) { t38_gateway_state_t *s; s = (t38_gateway_state_t *) user_data; s->core.hdlc_to_modem.buf[s->core.hdlc_to_modem.in].flags |= HDLC_FLAG_MISSING_DATA; return 0; } /*- End of function --------------------------------------------------------*/ static int process_rx_indicator(t38_core_state_t *t, void *user_data, int indicator) { t38_gateway_state_t *s; t38_gateway_hdlc_state_t *u; int immediate; s = (t38_gateway_state_t *) user_data; t38_non_ecm_buffer_report_input_status(&s->core.non_ecm_to_modem, &s->logging); if (t->current_rx_indicator == indicator) { /* This is probably due to the far end repeating itself. Ignore it. Its harmless */ return 0; } /*endif*/ u = &s->core.hdlc_to_modem; immediate = (u->in == u->out); if (u->buf[u->in].contents) { if (++u->in >= T38_TX_HDLC_BUFS) u->in = 0; /*endif*/ } /*endif*/ u->buf[u->in].contents = (indicator | FLAG_INDICATOR); if (++u->in >= T38_TX_HDLC_BUFS) u->in = 0; /*endif*/ if (immediate) { span_log(&s->logging, SPAN_LOG_FLOW, "Changing - (%d) %s -> %s\n", silence_gen_remainder(&(s->audio.modems.silence_gen)), t38_indicator_to_str(t->current_rx_indicator), t38_indicator_to_str(indicator)); switch (s->t38x.current_rx_field_class) { case T38_FIELD_CLASS_NONE: break; case T38_FIELD_CLASS_HDLC: span_log(&s->logging, SPAN_LOG_FLOW, "HDLC shutdown\n"); hdlc_tx_frame(&s->audio.modems.hdlc_tx, NULL, 0); break; case T38_FIELD_CLASS_NON_ECM: break; } } else { span_log(&s->logging, SPAN_LOG_FLOW, "Queued change - (%d) %s -> %s\n", silence_gen_remainder(&(s->audio.modems.silence_gen)), t38_indicator_to_str(t->current_rx_indicator), t38_indicator_to_str(indicator)); } s->t38x.current_rx_field_class = T38_FIELD_CLASS_NONE; /* We need to set this here, since we might have been called as a fake indication when the real one was missing */ t->current_rx_indicator = indicator; return 0; } /*- End of function --------------------------------------------------------*/ static int process_rx_data(t38_core_state_t *t, void *user_data, int data_type, int field_type, const uint8_t *buf, int len) { int i; t38_gateway_state_t *s; t38_gateway_t38_state_t *xx; t38_gateway_hdlc_buf_t *hdlc_buf; s = (t38_gateway_state_t *) user_data; xx = &s->t38x; /* There are a couple of special cases of data type that need their own treatment. */ switch (data_type) { case T38_DATA_V8: switch (field_type) { case T38_FIELD_CM_MESSAGE: if (len >= 1) span_log(&s->logging, SPAN_LOG_FLOW, "CM profile %d - %s\n", buf[0] - '0', t38_cm_profile_to_str(buf[0])); else span_log(&s->logging, SPAN_LOG_FLOW, "Bad length for CM message - %d\n", len); /*endif*/ break; case T38_FIELD_JM_MESSAGE: if (len >= 2) span_log(&s->logging, SPAN_LOG_FLOW, "JM - %s\n", t38_jm_to_str(buf, len)); else span_log(&s->logging, SPAN_LOG_FLOW, "Bad length for JM message - %d\n", len); /*endif*/ break; case T38_FIELD_CI_MESSAGE: if (len >= 1) span_log(&s->logging, SPAN_LOG_FLOW, "CI 0x%X\n", buf[0]); else span_log(&s->logging, SPAN_LOG_FLOW, "Bad length for CI message - %d\n", len); /*endif*/ break; default: break; } /*endswitch*/ return 0; case T38_DATA_V34_PRI_RATE: switch (field_type) { case T38_FIELD_V34RATE: if (len >= 3) { xx->t38.v34_rate = t38_v34rate_to_bps(buf, len); span_log(&s->logging, SPAN_LOG_FLOW, "V.34 rate %d bps\n", xx->t38.v34_rate); } else { span_log(&s->logging, SPAN_LOG_FLOW, "Bad length for V34rate message - %d\n", len); } /*endif*/ break; default: break; } /*endswitch*/ return 0; default: break; } /*endswitch*/ switch (field_type) { case T38_FIELD_HDLC_DATA: xx->current_rx_field_class = T38_FIELD_CLASS_HDLC; hdlc_buf = &s->core.hdlc_to_modem.buf[s->core.hdlc_to_modem.in]; if (hdlc_buf->contents != (data_type | FLAG_DATA)) { queue_missing_indicator(s, data_type); /* All real HDLC messages in the FAX world start with 0xFF. If this one is not starting with 0xFF it would appear some octets must have been missed before this one. */ if (len <= 0 || buf[0] != 0xFF) s->core.hdlc_to_modem.buf[s->core.hdlc_to_modem.in].flags |= HDLC_FLAG_MISSING_DATA; /*endif*/ hdlc_buf = &s->core.hdlc_to_modem.buf[s->core.hdlc_to_modem.in]; } /*endif*/ /* Check if this data would overflow the buffer. */ if (len <= 0) break; /*endif*/ if (hdlc_buf->len + len > T38_MAX_HDLC_LEN) { s->core.hdlc_to_modem.buf[s->core.hdlc_to_modem.in].flags |= HDLC_FLAG_MISSING_DATA; break; } /*endif*/ hdlc_buf->contents = (data_type | FLAG_DATA); bit_reverse(&hdlc_buf->buf[hdlc_buf->len], buf, len); /* We need to send out the control messages as they are arriving. They are too slow to capture a whole frame before starting to pass it on. For the faster frames, take in the whole frame before sending it out. Also, there is no need to monitor, or modify, the contents of the faster frames. */ if (data_type == T38_DATA_V21) { for (i = 1; i <= len; i++) edit_control_messages(s, 0, hdlc_buf->buf, hdlc_buf->len + i); /*endfor*/ /* Don't start pumping data into the actual output stream until there is enough backlog to create some elasticity for jitter tolerance. */ if (hdlc_buf->len + len >= HDLC_START_BUFFER_LEVEL) { if (s->core.hdlc_to_modem.in == s->core.hdlc_to_modem.out) { /* Output is not running, so kick it into life. */ if ((hdlc_buf->flags & HDLC_FLAG_PROCEED_WITH_OUTPUT) == 0) hdlc_tx_frame(&s->audio.modems.hdlc_tx, hdlc_buf->buf, hdlc_buf->len + len); else hdlc_tx_frame(&s->audio.modems.hdlc_tx, hdlc_buf->buf + hdlc_buf->len, len); /*endif*/ } /*endif*/ hdlc_buf->flags |= HDLC_FLAG_PROCEED_WITH_OUTPUT; } /*endif*/ } /*endif*/ s->core.hdlc_to_modem.buf[s->core.hdlc_to_modem.in].len += len; break; case T38_FIELD_HDLC_FCS_OK: xx->current_rx_field_class = T38_FIELD_CLASS_HDLC; hdlc_buf = &s->core.hdlc_to_modem.buf[s->core.hdlc_to_modem.in]; if (len > 0) { span_log(&s->logging, SPAN_LOG_WARNING, "There is data in a T38_FIELD_HDLC_FCS_OK!\n"); /* The sender has incorrectly included data in this message. It is unclear what we should do with it, to maximise tolerance of buggy implementations. */ } /*endif*/ /* Some T.38 implementations send multiple T38_FIELD_HDLC_FCS_OK messages, in IFP packets with incrementing sequence numbers, which are actually repeats. They get through to this point because of the incrementing sequence numbers. We need to filter them here in a context sensitive manner. */ if (t->current_rx_data_type != data_type || t->current_rx_field_type != field_type) { span_log(&s->logging, SPAN_LOG_FLOW, "HDLC frame type %s - CRC good\n", t30_frametype(hdlc_buf->buf[2])); if (hdlc_buf->contents != (data_type | FLAG_DATA)) { queue_missing_indicator(s, data_type); hdlc_buf = &s->core.hdlc_to_modem.buf[s->core.hdlc_to_modem.in]; } /*endif*/ if (data_type == T38_DATA_V21) { if ((hdlc_buf->flags & HDLC_FLAG_MISSING_DATA) == 0) { monitor_control_messages(s, FALSE, hdlc_buf->buf, hdlc_buf->len); if (s->core.real_time_frame_handler) s->core.real_time_frame_handler(s, s->core.real_time_frame_user_data, FALSE, hdlc_buf->buf, hdlc_buf->len); /*endif*/ } /*endif*/ } else { /* Make sure we go back to short training if CTC/CTR has kicked us into long training. There has to be more than one value HDLC frame in a chunk of image data, so just setting short training mode here should be enough. */ s->core.short_train = TRUE; } /*endif*/ hdlc_buf->contents = (data_type | FLAG_DATA); finalise_hdlc_frame(s, TRUE); } /*endif*/ xx->corrupt_current_frame[0] = FALSE; break; case T38_FIELD_HDLC_FCS_BAD: xx->current_rx_field_class = T38_FIELD_CLASS_HDLC; hdlc_buf = &s->core.hdlc_to_modem.buf[s->core.hdlc_to_modem.in]; if (len > 0) { span_log(&s->logging, SPAN_LOG_WARNING, "There is data in a T38_FIELD_HDLC_FCS_BAD!\n"); /* The sender has incorrectly included data in this message. We can safely ignore it, as the bad FCS means we will throw away the whole message, anyway. */ } /*endif*/ /* Some T.38 implementations send multiple T38_FIELD_HDLC_FCS_BAD messages, in IFP packets with incrementing sequence numbers, which are actually repeats. They get through to this point because of the incrementing sequence numbers. We need to filter them here in a context sensitive manner. */ if (t->current_rx_data_type != data_type || t->current_rx_field_type != field_type) { span_log(&s->logging, SPAN_LOG_FLOW, "HDLC frame type %s - CRC bad\n", t30_frametype(hdlc_buf->buf[2])); /* Only bother with frames that have a bad CRC, if they also have some content. */ if (hdlc_buf->len > 0) { if (hdlc_buf->contents != (data_type | FLAG_DATA)) { queue_missing_indicator(s, data_type); hdlc_buf = &s->core.hdlc_to_modem.buf[s->core.hdlc_to_modem.in]; } /*endif*/ hdlc_buf->contents = (data_type | FLAG_DATA); finalise_hdlc_frame(s, FALSE); } else { /* Just restart using the current frame buffer */ hdlc_buf->contents = 0; } /*endif*/ } /*endif*/ xx->corrupt_current_frame[0] = FALSE; break; case T38_FIELD_HDLC_FCS_OK_SIG_END: xx->current_rx_field_class = T38_FIELD_CLASS_HDLC; hdlc_buf = &s->core.hdlc_to_modem.buf[s->core.hdlc_to_modem.in]; if (len > 0) { span_log(&s->logging, SPAN_LOG_WARNING, "There is data in a T38_FIELD_HDLC_FCS_OK_SIG_END!\n"); /* The sender has incorrectly included data in this message. It is unclear what we should do with it, to maximise tolerance of buggy implementations. */ } /*endif*/ /* Some T.38 implementations send multiple T38_FIELD_HDLC_FCS_OK_SIG_END messages, in IFP packets with incrementing sequence numbers, which are actually repeats. They get through to this point because of the incrementing sequence numbers. We need to filter them here in a context sensitive manner. */ if (t->current_rx_data_type != data_type || t->current_rx_field_type != field_type) { span_log(&s->logging, SPAN_LOG_FLOW, "HDLC frame type %s - CRC OK, sig end\n", t30_frametype(hdlc_buf->buf[2])); if (hdlc_buf->contents != (data_type | FLAG_DATA)) { queue_missing_indicator(s, data_type); hdlc_buf = &s->core.hdlc_to_modem.buf[s->core.hdlc_to_modem.in]; } /*endif*/ if (data_type == T38_DATA_V21) { if ((hdlc_buf->flags & HDLC_FLAG_MISSING_DATA) == 0) { monitor_control_messages(s, FALSE, hdlc_buf->buf, hdlc_buf->len); if (s->core.real_time_frame_handler) s->core.real_time_frame_handler(s, s->core.real_time_frame_user_data, FALSE, hdlc_buf->buf, hdlc_buf->len); /*endif*/ } /*endif*/ } else { /* Make sure we go back to short training if CTC/CTR has kicked us into long training. There has to be more than one value HDLC frame in a chunk of image data, so just setting short training mode here should be enough. */ s->core.short_train = TRUE; } /*endif*/ hdlc_buf->contents = (data_type | FLAG_DATA); finalise_hdlc_frame(s, TRUE); queue_missing_indicator(s, T38_DATA_NONE); xx->current_rx_field_class = T38_FIELD_CLASS_NONE; } /*endif*/ xx->corrupt_current_frame[0] = FALSE; break; case T38_FIELD_HDLC_FCS_BAD_SIG_END: xx->current_rx_field_class = T38_FIELD_CLASS_HDLC; hdlc_buf = &s->core.hdlc_to_modem.buf[s->core.hdlc_to_modem.in]; if (len > 0) { span_log(&s->logging, SPAN_LOG_WARNING, "There is data in a T38_FIELD_HDLC_FCS_BAD_SIG_END!\n"); /* The sender has incorrectly included data in this message. We can safely ignore it, as the bad FCS means we will throw away the whole message, anyway. */ } /*endif*/ /* Some T.38 implementations send multiple T38_FIELD_HDLC_FCS_BAD_SIG_END messages, in IFP packets with incrementing sequence numbers, which are actually repeats. They get through to this point because of the incrementing sequence numbers. We need to filter them here in a context sensitive manner. */ if (t->current_rx_data_type != data_type || t->current_rx_field_type != field_type) { span_log(&s->logging, SPAN_LOG_FLOW, "HDLC frame type %s - CRC bad, sig end\n", t30_frametype(hdlc_buf->buf[2])); if (hdlc_buf->contents != (data_type | FLAG_DATA)) { queue_missing_indicator(s, data_type); hdlc_buf = &s->core.hdlc_to_modem.buf[s->core.hdlc_to_modem.in]; } /*endif*/ /* Only bother with frames that have a bad CRC, if they also have some content. */ if (hdlc_buf->len > 0) { hdlc_buf->contents = (data_type | FLAG_DATA); finalise_hdlc_frame(s, FALSE); } else { /* Just restart using the current frame buffer */ hdlc_buf->contents = 0; } /*endif*/ queue_missing_indicator(s, T38_DATA_NONE); xx->current_rx_field_class = T38_FIELD_CLASS_NONE; } /*endif*/ xx->corrupt_current_frame[0] = FALSE; break; case T38_FIELD_HDLC_SIG_END: hdlc_buf = &s->core.hdlc_to_modem.buf[s->core.hdlc_to_modem.in]; if (len > 0) { span_log(&s->logging, SPAN_LOG_WARNING, "There is data in a T38_FIELD_HDLC_SIG_END!\n"); /* The sender has incorrectly included data in this message, but there seems nothing meaningful it could be. There could not be an FCS good/bad report beyond this. */ } /*endif*/ /* Some T.38 implementations send multiple T38_FIELD_HDLC_SIG_END messages, in IFP packets with incrementing sequence numbers, which are actually repeats. They get through to this point because of the incrementing sequence numbers. We need to filter them here in a context sensitive manner. */ if (t->current_rx_data_type != data_type || t->current_rx_field_type != field_type) { if (hdlc_buf->contents != (data_type | FLAG_DATA)) { queue_missing_indicator(s, data_type); hdlc_buf = &s->core.hdlc_to_modem.buf[s->core.hdlc_to_modem.in]; } /*endif*/ /* WORKAROUND: At least some Mediatrix boxes have a bug, where they can send this message at the end of non-ECM data. We need to tolerate this. */ if (xx->current_rx_field_class == T38_FIELD_CLASS_NON_ECM) { span_log(&s->logging, SPAN_LOG_WARNING, "T38_FIELD_HDLC_SIG_END received at the end of non-ECM data!\n"); /* Don't flow control the data any more. Just pump out the remainder as fast as we can. */ t38_non_ecm_buffer_push(&s->core.non_ecm_to_modem); } else { /* This message is expected under 2 circumstances. One is as an alternative to T38_FIELD_HDLC_FCS_OK_SIG_END - i.e. they send T38_FIELD_HDLC_FCS_OK, and then T38_FIELD_HDLC_SIG_END when the carrier actually drops. The other is because the HDLC signal drops unexpectedly - i.e. not just after a final frame. In this case we just clear out any partial frame data that might be in the buffer. */ /* TODO: what if any junk in the buffer has reached the HDLC_FLAG_PROCEED_WITH_OUTPUT stage? */ hdlc_buf->len = 0; hdlc_buf->flags = 0; hdlc_buf->contents = 0; } /*endif*/ queue_missing_indicator(s, T38_DATA_NONE); xx->current_rx_field_class = T38_FIELD_CLASS_NONE; } /*endif*/ xx->corrupt_current_frame[0] = FALSE; break; case T38_FIELD_T4_NON_ECM_DATA: if (xx->current_rx_field_class == T38_FIELD_CLASS_NONE) t38_non_ecm_buffer_set_mode(&s->core.non_ecm_to_modem, s->core.image_data_mode, s->core.min_row_bits); xx->current_rx_field_class = T38_FIELD_CLASS_NON_ECM; hdlc_buf = &s->core.hdlc_to_modem.buf[s->core.hdlc_to_modem.in]; if (hdlc_buf->contents != (data_type | FLAG_DATA)) { queue_missing_indicator(s, data_type); hdlc_buf = &s->core.hdlc_to_modem.buf[s->core.hdlc_to_modem.in]; } /*endif*/ if (len > 0) t38_non_ecm_buffer_inject(&s->core.non_ecm_to_modem, buf, len); /*endif*/ xx->corrupt_current_frame[0] = FALSE; break; case T38_FIELD_T4_NON_ECM_SIG_END: if (xx->current_rx_field_class == T38_FIELD_CLASS_NONE) t38_non_ecm_buffer_set_mode(&s->core.non_ecm_to_modem, s->core.image_data_mode, s->core.min_row_bits); hdlc_buf = &s->core.hdlc_to_modem.buf[s->core.hdlc_to_modem.in]; /* Some T.38 implementations send multiple T38_FIELD_T4_NON_ECM_SIG_END messages, in IFP packets with incrementing sequence numbers, which are actually repeats. They get through to this point because of the incrementing sequence numbers. We need to filter them here in a context sensitive manner. */ if (t->current_rx_data_type != data_type || t->current_rx_field_type != field_type) { /* WORKAROUND: At least some Mediatrix boxes have a bug, where they can send HDLC signal end where they should send non-ECM signal end. It is possible they also do the opposite. We need to tolerate this. */ if (xx->current_rx_field_class == T38_FIELD_CLASS_NON_ECM) { if (len > 0) { if (hdlc_buf->contents != (data_type | FLAG_DATA)) { queue_missing_indicator(s, data_type); hdlc_buf = &s->core.hdlc_to_modem.buf[s->core.hdlc_to_modem.in]; } /*endif*/ t38_non_ecm_buffer_inject(&s->core.non_ecm_to_modem, buf, len); } /*endif*/ if (hdlc_buf->contents != (data_type | FLAG_DATA)) { queue_missing_indicator(s, data_type); hdlc_buf = &s->core.hdlc_to_modem.buf[s->core.hdlc_to_modem.in]; } /*endif*/ /* Don't flow control the data any more. Just pump out the remainder as fast as we can. */ t38_non_ecm_buffer_push(&s->core.non_ecm_to_modem); } else { span_log(&s->logging, SPAN_LOG_WARNING, "T38_FIELD_NON_ECM_SIG_END received at the end of HDLC data!\n"); if (s->core.hdlc_to_modem.buf[s->core.hdlc_to_modem.in].contents != (data_type | FLAG_DATA)) { queue_missing_indicator(s, data_type); hdlc_buf = &s->core.hdlc_to_modem.buf[s->core.hdlc_to_modem.in]; } /*endif*/ /* TODO: what if any junk in the buffer has reached the HDLC_FLAG_PROCEED_WITH_OUTPUT stage? */ hdlc_buf->len = 0; hdlc_buf->flags = 0; hdlc_buf->contents = 0; } /*endif*/ queue_missing_indicator(s, T38_DATA_NONE); xx->current_rx_field_class = T38_FIELD_CLASS_NONE; } /*endif*/ xx->corrupt_current_frame[0] = FALSE; break; default: break; } /*endswitch*/ #if 0 if (span_log_test(&s->logging, SPAN_LOG_FLOW)) { int i; if (len > 0) { span_log(&s->logging, SPAN_LOG_FLOW, "Data: "); for (i = 0; i < len; i++) span_log(&s->logging, SPAN_LOG_FLOW | SPAN_LOG_SUPPRESS_LABELLING, " %02X", buf[i]); /*endfor*/ } /*endif*/ } /*endif*/ span_log(&s->logging, SPAN_LOG_FLOW | SPAN_LOG_SUPPRESS_LABELLING, "\n"); #endif return 0; } /*- End of function --------------------------------------------------------*/ static void set_octets_per_data_packet(t38_gateway_state_t *s, int bit_rate) { int octets; //octets = s->core.ms_per_tx_chunk*bit_rate/(8*1000); octets = DEFAULT_MS_PER_TX_CHUNK*bit_rate/(8*1000); if (octets < 1) octets = 1; /*endif*/ s->core.to_t38.octets_per_data_packet = octets; } /*- End of function --------------------------------------------------------*/ static int set_slow_packetisation(t38_gateway_state_t *s) { set_octets_per_data_packet(s, 300); s->t38x.current_tx_data_type = T38_DATA_V21; return T38_IND_V21_PREAMBLE; } /*- End of function --------------------------------------------------------*/ static int set_fast_packetisation(t38_gateway_state_t *s) { int ind; ind = T38_IND_NO_SIGNAL; switch (s->core.fast_rx_active) { case T38_V17_RX: set_octets_per_data_packet(s, s->core.fast_bit_rate); switch (s->core.fast_bit_rate) { case 7200: ind = (s->core.short_train) ? T38_IND_V17_7200_SHORT_TRAINING : T38_IND_V17_7200_LONG_TRAINING; s->t38x.current_tx_data_type = T38_DATA_V17_7200; break; case 9600: ind = (s->core.short_train) ? T38_IND_V17_9600_SHORT_TRAINING : T38_IND_V17_9600_LONG_TRAINING; s->t38x.current_tx_data_type = T38_DATA_V17_9600; break; case 12000: ind = (s->core.short_train) ? T38_IND_V17_12000_SHORT_TRAINING : T38_IND_V17_12000_LONG_TRAINING; s->t38x.current_tx_data_type = T38_DATA_V17_12000; break; default: case 14400: ind = (s->core.short_train) ? T38_IND_V17_14400_SHORT_TRAINING : T38_IND_V17_14400_LONG_TRAINING; s->t38x.current_tx_data_type = T38_DATA_V17_14400; break; } /*endswitch*/ break; case T38_V27TER_RX: set_octets_per_data_packet(s, s->core.fast_bit_rate); switch (s->core.fast_bit_rate) { case 2400: ind = T38_IND_V27TER_2400_TRAINING; s->t38x.current_tx_data_type = T38_DATA_V27TER_2400; break; default: case 4800: ind = T38_IND_V27TER_4800_TRAINING; s->t38x.current_tx_data_type = T38_DATA_V27TER_4800; break; } /*endswitch*/ break; case T38_V29_RX: set_octets_per_data_packet(s, s->core.fast_bit_rate); switch (s->core.fast_bit_rate) { case 7200: ind = T38_IND_V29_7200_TRAINING; s->t38x.current_tx_data_type = T38_DATA_V29_7200; break; default: case 9600: ind = T38_IND_V29_9600_TRAINING; s->t38x.current_tx_data_type = T38_DATA_V29_9600; break; } /*endswitch*/ break; } /*endswitch*/ return ind; } /*- End of function --------------------------------------------------------*/ static void announce_training(t38_gateway_state_t *s) { t38_core_send_indicator(&s->t38x.t38, set_fast_packetisation(s)); } /*- End of function --------------------------------------------------------*/ static void non_ecm_rx_status(void *user_data, int status) { t38_gateway_state_t *s; s = (t38_gateway_state_t *) user_data; span_log(&s->logging, SPAN_LOG_FLOW, "Non-ECM signal status is %s (%d)\n", signal_status_to_str(status), status); switch (status) { case SIG_STATUS_TRAINING_IN_PROGRESS: if (s->core.timed_mode == TIMED_MODE_IDLE) { announce_training(s); } else { if (s->core.timed_mode == TIMED_MODE_TCF_PREDICTABLE_MODEM_START_PAST_V21_MODEM) s->core.timed_mode = TIMED_MODE_TCF_PREDICTABLE_MODEM_START_FAST_MODEM_SEEN; else s->core.samples_to_timeout = ms_to_samples(500); /*endif*/ set_fast_packetisation(s); } /*endif*/ break; case SIG_STATUS_TRAINING_FAILED: break; case SIG_STATUS_TRAINING_SUCCEEDED: /* The modem is now trained */ s->audio.modems.rx_signal_present = TRUE; s->audio.modems.rx_trained = TRUE; s->core.timed_mode = TIMED_MODE_IDLE; s->core.samples_to_timeout = 0; s->core.short_train = TRUE; to_t38_buffer_init(&s->core.to_t38); break; case SIG_STATUS_CARRIER_UP: break; case SIG_STATUS_CARRIER_DOWN: switch (s->t38x.current_tx_data_type) { case T38_DATA_V17_7200: case T38_DATA_V17_9600: case T38_DATA_V17_12000: case T38_DATA_V17_14400: case T38_DATA_V27TER_2400: case T38_DATA_V27TER_4800: case T38_DATA_V29_7200: case T38_DATA_V29_9600: if (s->core.timed_mode != TIMED_MODE_TCF_PREDICTABLE_MODEM_START_FAST_MODEM_ANNOUNCED) { /* TODO: If the carrier really did fall for good during the 500ms TEP blocking timeout, we won't declare the no-signal condition. */ non_ecm_push_residue(s); t38_core_send_indicator(&s->t38x.t38, T38_IND_NO_SIGNAL); } /*endif*/ restart_rx_modem(s); break; } /*endswitch*/ break; default: span_log(&s->logging, SPAN_LOG_WARNING, "Unexpected non-ECM special bit - %d!\n", status); break; } /*endswitch*/ } /*- End of function --------------------------------------------------------*/ static void to_t38_buffer_init(t38_gateway_to_t38_state_t *s) { s->data_ptr = 0; s->bit_stream = 0xFFFF; s->bit_no = 0; s->in_bits = 0; s->out_octets = 0; } /*- End of function --------------------------------------------------------*/ static void non_ecm_push_residue(t38_gateway_state_t *t) { t38_gateway_to_t38_state_t *s; s = &t->core.to_t38; if (s->bit_no) { /* There is a fractional octet in progress. We might as well send every last bit we can. */ s->data[s->data_ptr++] = (uint8_t) (s->bit_stream << (8 - s->bit_no)); } /*endif*/ t38_core_send_data(&t->t38x.t38, t->t38x.current_tx_data_type, T38_FIELD_T4_NON_ECM_SIG_END, s->data, s->data_ptr, T38_PACKET_CATEGORY_IMAGE_DATA_END); s->in_bits += s->bits_absorbed; s->out_octets += s->data_ptr; s->data_ptr = 0; } /*- End of function --------------------------------------------------------*/ static void non_ecm_push(t38_gateway_state_t *t) { t38_gateway_to_t38_state_t *s; s = &t->core.to_t38; if (s->data_ptr) { t38_core_send_data(&t->t38x.t38, t->t38x.current_tx_data_type, T38_FIELD_T4_NON_ECM_DATA, s->data, s->data_ptr, T38_PACKET_CATEGORY_IMAGE_DATA); s->in_bits += s->bits_absorbed; s->out_octets += s->data_ptr; s->bits_absorbed = 0; s->data_ptr = 0; } /*endif*/ } /*- End of function --------------------------------------------------------*/ static void non_ecm_put_bit(void *user_data, int bit) { t38_gateway_state_t *t; t38_gateway_to_t38_state_t *s; if (bit < 0) { non_ecm_rx_status(user_data, bit); return; } /*endif*/ t = (t38_gateway_state_t *) user_data; s = &t->core.to_t38; s->in_bits++; bit &= 1; s->bit_stream = (s->bit_stream << 1) | bit; if (++s->bit_no >= 8) { s->data[s->data_ptr++] = (uint8_t) s->bit_stream & 0xFF; if (s->data_ptr >= s->octets_per_data_packet) non_ecm_push(t); /*endif*/ s->bit_no = 0; } /*endif*/ } /*- End of function --------------------------------------------------------*/ static void non_ecm_remove_fill_and_put_bit(void *user_data, int bit) { t38_gateway_state_t *t; t38_gateway_to_t38_state_t *s; if (bit < 0) { non_ecm_rx_status(user_data, bit); return; } /*endif*/ t = (t38_gateway_state_t *) user_data; s = &t->core.to_t38; s->bits_absorbed++; bit &= 1; /* Drop any extra zero bits when we already have enough for an EOL symbol. */ /* The snag here is that if we just look for 11 bits, a line ending with a code that has trailing zero bits will cause problems. The longest run of trailing zeros for any code is 3, so we need to look for at least 14 zeros if we don't want to actually analyse the compressed data in depth. This means we do not strip every fill bit, but we strip most of them. */ if ((s->bit_stream & 0x3FFF) == 0 && bit == 0) { if (s->bits_absorbed > 2*8*s->octets_per_data_packet) { /* We need to pump out what we have, even though we have not accumulated a full buffer of data. If we don't, we stand to delay rows excessively, so the far end gateway (assuming the far end is a gateway) cannot play them out. */ non_ecm_push(t); } /*endif*/ return; } /*endif*/ s->bit_stream = (s->bit_stream << 1) | bit; if (++s->bit_no >= 8) { s->data[s->data_ptr++] = (uint8_t) s->bit_stream & 0xFF; if (s->data_ptr >= s->octets_per_data_packet) non_ecm_push(t); /*endif*/ s->bit_no = 0; } /*endif*/ } /*- End of function --------------------------------------------------------*/ static void hdlc_rx_status(hdlc_rx_state_t *t, int status) { t38_gateway_state_t *s; int category; s = (t38_gateway_state_t *) t->frame_user_data; span_log(&s->logging, SPAN_LOG_FLOW, "HDLC signal status is %s (%d)\n", signal_status_to_str(status), status); switch (status) { case SIG_STATUS_TRAINING_IN_PROGRESS: announce_training(s); break; case SIG_STATUS_TRAINING_FAILED: break; case SIG_STATUS_TRAINING_SUCCEEDED: /* The modem is now trained. */ s->audio.modems.rx_signal_present = TRUE; s->audio.modems.rx_trained = TRUE; s->core.short_train = TRUE; /* Behave like HDLC preamble has been announced. */ t->framing_ok_announced = TRUE; to_t38_buffer_init(&s->core.to_t38); break; case SIG_STATUS_CARRIER_UP: /* Reset the HDLC receiver. */ t->raw_bit_stream = 0; t->len = 0; t->num_bits = 0; t->flags_seen = 0; t->framing_ok_announced = FALSE; to_t38_buffer_init(&s->core.to_t38); break; case SIG_STATUS_CARRIER_DOWN: if (t->framing_ok_announced) { category = (s->t38x.current_tx_data_type == T38_DATA_V21) ? T38_PACKET_CATEGORY_CONTROL_DATA_END : T38_PACKET_CATEGORY_IMAGE_DATA_END; t38_core_send_data(&s->t38x.t38, s->t38x.current_tx_data_type, T38_FIELD_HDLC_SIG_END, NULL, 0, category); t38_core_send_indicator(&s->t38x.t38, T38_IND_NO_SIGNAL); t->framing_ok_announced = FALSE; } /*endif*/ restart_rx_modem(s); if (s->core.timed_mode == TIMED_MODE_TCF_PREDICTABLE_MODEM_START_BEGIN) { /* If we are doing TCF, we need to announce the fast carrier training very quickly, to ensure it starts 75+-20ms after the HDLC carrier ends. Waiting until it trains will be too late. We need to announce the fast modem a fixed time after the end of the V.21 carrier, in anticipation of its arrival. If we announce it, and it doesn't arrive, we will worry about that later. */ s->core.samples_to_timeout = ms_to_samples(75); s->core.timed_mode = TIMED_MODE_TCF_PREDICTABLE_MODEM_START_PAST_V21_MODEM; } /*endif*/ break; default: span_log(&s->logging, SPAN_LOG_WARNING, "Unexpected HDLC special bit - %d!\n", status); break; } /*endswitch*/ } /*- End of function --------------------------------------------------------*/ static void rx_flag_or_abort(hdlc_rx_state_t *t) { t38_gateway_state_t *s; t38_gateway_to_t38_state_t *u; int category; s = (t38_gateway_state_t *) t->frame_user_data; u = &s->core.to_t38; if ((t->raw_bit_stream & 0x80)) { /* Hit HDLC abort */ t->rx_aborts++; if (t->flags_seen < t->framing_ok_threshold) t->flags_seen = 0; else t->flags_seen = t->framing_ok_threshold - 1; /*endif*/ } else { /* Hit HDLC flag */ if (t->flags_seen >= t->framing_ok_threshold) { category = (s->t38x.current_tx_data_type == T38_DATA_V21) ? T38_PACKET_CATEGORY_CONTROL_DATA : T38_PACKET_CATEGORY_IMAGE_DATA; if (t->len) { /* This is not back-to-back flags */ if (t->len >= 2) { if (u->data_ptr) { bit_reverse(u->data, t->buffer + t->len - 2 - u->data_ptr, u->data_ptr); t38_core_send_data(&s->t38x.t38, s->t38x.current_tx_data_type, T38_FIELD_HDLC_DATA, u->data, u->data_ptr, category); } /*endif*/ if (t->num_bits != 7) { t->rx_crc_errors++; span_log(&s->logging, SPAN_LOG_FLOW, "HDLC frame type %s, misaligned terminating flag at %d\n", t30_frametype(t->buffer[2]), t->len); /* It seems some boxes may not like us sending a _SIG_END here, and then another when the carrier actually drops. Lets just send T38_FIELD_HDLC_FCS_OK here. */ if (t->len > 2) t38_core_send_data(&s->t38x.t38, s->t38x.current_tx_data_type, T38_FIELD_HDLC_FCS_BAD, NULL, 0, category); /*endif*/ } else if ((u->crc & 0xFFFF) != 0xF0B8) { t->rx_crc_errors++; span_log(&s->logging, SPAN_LOG_FLOW, "HDLC frame type %s, bad CRC at %d\n", t30_frametype(t->buffer[2]), t->len); /* It seems some boxes may not like us sending a _SIG_END here, and then another when the carrier actually drops. Lets just send T38_FIELD_HDLC_FCS_OK here. */ if (t->len > 2) t38_core_send_data(&s->t38x.t38, s->t38x.current_tx_data_type, T38_FIELD_HDLC_FCS_BAD, NULL, 0, category); /*endif*/ } else { t->rx_frames++; t->rx_bytes += t->len - 2; span_log(&s->logging, SPAN_LOG_FLOW, "HDLC frame type %s, CRC OK\n", t30_frametype(t->buffer[2])); if (s->t38x.current_tx_data_type == T38_DATA_V21) { monitor_control_messages(s, TRUE, t->buffer, t->len - 2); if (s->core.real_time_frame_handler) s->core.real_time_frame_handler(s, s->core.real_time_frame_user_data, TRUE, t->buffer, t->len - 2); /*endif*/ } else { /* Make sure we go back to short training if CTC/CTR has kicked us into long training. Any successful HDLC frame received at a rate other than V.21 is an adequate indication we should change. */ s->core.short_train = TRUE; } /*endif*/ /* It seems some boxes may not like us sending a _SIG_END here, and then another when the carrier actually drops. Lets just send T38_FIELD_HDLC_FCS_OK here. */ t38_core_send_data(&s->t38x.t38, s->t38x.current_tx_data_type, T38_FIELD_HDLC_FCS_OK, NULL, 0, category); } /*endif*/ } else { /* Frame too short */ t->rx_length_errors++; } /*endif*/ } /*endif*/ } else { /* Check the flags are back-to-back when testing for valid preamble. This greatly reduces the chances of false preamble detection, and anything which doesn't send them back-to-back is badly broken. */ if (t->num_bits != 7) t->flags_seen = 0; /*endif*/ if (++t->flags_seen >= t->framing_ok_threshold && !t->framing_ok_announced) { if (s->t38x.current_tx_data_type == T38_DATA_V21) { t38_core_send_indicator(&s->t38x.t38, set_slow_packetisation(s)); s->audio.modems.rx_signal_present = TRUE; } /*endif*/ if (s->t38x.in_progress_rx_indicator == T38_IND_CNG) set_next_tx_type(s); /*endif*/ t->framing_ok_announced = TRUE; } /*endif*/ } /*endif*/ } /*endif*/ t->len = 0; t->num_bits = 0; u->crc = 0xFFFF; u->data_ptr = 0; s->t38x.corrupt_current_frame[1] = FALSE; } /*- End of function --------------------------------------------------------*/ static void t38_hdlc_rx_put_bit(hdlc_rx_state_t *t, int new_bit) { t38_gateway_state_t *s; t38_gateway_to_t38_state_t *u; int category; if (new_bit < 0) { hdlc_rx_status(t, new_bit); return; } /*endif*/ t->raw_bit_stream = (t->raw_bit_stream << 1) | (new_bit & 1); if ((t->raw_bit_stream & 0x3F) == 0x3E) { /* Its time to either skip a bit, for stuffing, or process a flag or abort */ if ((t->raw_bit_stream & 0x40)) rx_flag_or_abort(t); return; } /*endif*/ t->num_bits++; if (!t->framing_ok_announced) return; /*endif*/ t->byte_in_progress = (t->byte_in_progress >> 1) | ((t->raw_bit_stream & 0x01) << 7); if (t->num_bits != 8) return; /*endif*/ t->num_bits = 0; if (t->len >= (int) sizeof(t->buffer)) { /* This is too long. Abandon the frame, and wait for the next flag octet. */ t->rx_length_errors++; t->flags_seen = t->framing_ok_threshold - 1; t->len = 0; return; } /*endif*/ s = (t38_gateway_state_t *) t->frame_user_data; u = &s->core.to_t38; t->buffer[t->len] = (uint8_t) t->byte_in_progress; /* Calculate the CRC progressively, before we start altering the frame */ u->crc = crc_itu16_calc(&t->buffer[t->len], 1, u->crc); /* Make the transmission lag by two octets, so we do not send the CRC, and do not report the CRC result too late. */ if (++t->len <= 2) return; /*endif*/ if (s->t38x.current_tx_data_type == T38_DATA_V21) { /* The V.21 control messages need to be monitored, and possibly corrupted, to manage the man-in-the-middle role of T.38 */ edit_control_messages(s, 1, t->buffer, t->len); } if (++u->data_ptr >= u->octets_per_data_packet) { bit_reverse(u->data, t->buffer + t->len - 2 - u->data_ptr, u->data_ptr); category = (s->t38x.current_tx_data_type == T38_DATA_V21) ? T38_PACKET_CATEGORY_CONTROL_DATA : T38_PACKET_CATEGORY_IMAGE_DATA; t38_core_send_data(&s->t38x.t38, s->t38x.current_tx_data_type, T38_FIELD_HDLC_DATA, u->data, u->data_ptr, category); /* Since we delay transmission by 2 octets, we should now have sent the last of the data octets when we have just received the last of the CRC octets. */ u->data_ptr = 0; } /*endif*/ } /*- End of function --------------------------------------------------------*/ static int restart_rx_modem(t38_gateway_state_t *s) { put_bit_func_t put_bit_func; void *put_bit_user_data; if (s->core.to_t38.in_bits || s->core.to_t38.out_octets) { span_log(&s->logging, SPAN_LOG_FLOW, "%d incoming audio bits. %d outgoing T.38 octets\n", s->core.to_t38.in_bits, s->core.to_t38.out_octets); s->core.to_t38.in_bits = 0; s->core.to_t38.out_octets = 0; } /*endif*/ span_log(&s->logging, SPAN_LOG_FLOW, "Restart rx modem - modem = %d, short train = %d, ECM = %d\n", s->core.fast_rx_modem, s->core.short_train, s->core.ecm_mode); hdlc_rx_init(&(s->audio.modems.hdlc_rx), FALSE, TRUE, HDLC_FRAMING_OK_THRESHOLD, NULL, s); s->audio.modems.rx_signal_present = FALSE; s->audio.modems.rx_trained = FALSE; /* Default to the transmit data being V.21, unless a faster modem pops up trained. */ s->t38x.current_tx_data_type = T38_DATA_V21; fsk_rx_init(&(s->audio.modems.v21_rx), &preset_fsk_specs[FSK_V21CH2], FSK_FRAME_MODE_SYNC, (put_bit_func_t) t38_hdlc_rx_put_bit, &(s->audio.modems.hdlc_rx)); #if 0 fsk_rx_signal_cutoff(&(s->audio.modems.v21_rx), -45.5f); #endif if (s->core.image_data_mode && s->core.ecm_mode) { put_bit_func = (put_bit_func_t) t38_hdlc_rx_put_bit; put_bit_user_data = (void *) &(s->audio.modems.hdlc_rx); } else { if (s->core.image_data_mode && s->core.to_t38.fill_bit_removal) put_bit_func = non_ecm_remove_fill_and_put_bit; else put_bit_func = non_ecm_put_bit; /*endif*/ put_bit_user_data = (void *) s; } /*endif*/ to_t38_buffer_init(&s->core.to_t38); s->core.to_t38.octets_per_data_packet = 1; switch (s->core.fast_rx_modem) { case T38_V17_RX: v17_rx_restart(&s->audio.modems.v17_rx, s->core.fast_bit_rate, s->core.short_train); v17_rx_set_put_bit(&s->audio.modems.v17_rx, put_bit_func, put_bit_user_data); set_rx_handler(s, &v17_v21_rx, &v17_v21_rx_fillin, s); s->core.fast_rx_active = T38_V17_RX; break; case T38_V27TER_RX: v27ter_rx_restart(&s->audio.modems.v27ter_rx, s->core.fast_bit_rate, FALSE); v27ter_rx_set_put_bit(&s->audio.modems.v27ter_rx, put_bit_func, put_bit_user_data); set_rx_handler(s, &v27ter_v21_rx, &v27ter_v21_rx_fillin, s); s->core.fast_rx_active = T38_V27TER_RX; break; case T38_V29_RX: v29_rx_restart(&s->audio.modems.v29_rx, s->core.fast_bit_rate, FALSE); v29_rx_set_put_bit(&s->audio.modems.v29_rx, put_bit_func, put_bit_user_data); set_rx_handler(s, &v29_v21_rx, &v29_v21_rx_fillin, s); s->core.fast_rx_active = T38_V29_RX; break; default: set_rx_handler(s, (span_rx_handler_t *) &fsk_rx, (span_rx_fillin_handler_t *) &fsk_rx_fillin, &(s->audio.modems.v21_rx)); s->core.fast_rx_active = T38_NONE; break; } /*endswitch*/ return 0; } /*- End of function --------------------------------------------------------*/ static void update_rx_timing(t38_gateway_state_t *s, int len) { if (s->core.samples_to_timeout > 0) { if ((s->core.samples_to_timeout -= len) <= 0) { switch (s->core.timed_mode) { case TIMED_MODE_TCF_PREDICTABLE_MODEM_START_PAST_V21_MODEM: /* Timed announcement of training, 75ms after the DCS carrier fell. */ s->core.timed_mode = TIMED_MODE_TCF_PREDICTABLE_MODEM_START_FAST_MODEM_ANNOUNCED; announce_training(s); break; case TIMED_MODE_TCF_PREDICTABLE_MODEM_START_FAST_MODEM_SEEN: /* Timed announcement of training, 75ms after the DCS carrier fell. */ /* Use a timeout to ride over TEP, if it is present */ s->core.samples_to_timeout = ms_to_samples(500); s->core.timed_mode = TIMED_MODE_TCF_PREDICTABLE_MODEM_START_FAST_MODEM_ANNOUNCED; announce_training(s); break; case TIMED_MODE_TCF_PREDICTABLE_MODEM_START_FAST_MODEM_ANNOUNCED: s->core.timed_mode = TIMED_MODE_IDLE; span_log(&s->logging, SPAN_LOG_FLOW, "TEP jamming expired\n"); break; case TIMED_MODE_STARTUP: /* Ensure a no-signal condition goes out the moment the received audio starts */ t38_core_send_indicator(&s->t38x.t38, T38_IND_NO_SIGNAL); s->core.timed_mode = TIMED_MODE_IDLE; break; } /*endswitch*/ } /*endif*/ } /*endif*/ } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE_NONSTD(int) t38_gateway_rx(t38_gateway_state_t *s, int16_t amp[], int len) { int i; #if defined(LOG_FAX_AUDIO) if (s->audio.modems.audio_rx_log >= 0) write(s->audio.modems.audio_rx_log, amp, len*sizeof(int16_t)); /*endif*/ #endif update_rx_timing(s, len); for (i = 0; i < len; i++) amp[i] = dc_restore(&(s->audio.modems.dc_restore), amp[i]); /*endfor*/ s->audio.modems.rx_handler(s->audio.modems.rx_user_data, amp, len); return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE_NONSTD(int) t38_gateway_rx_fillin(t38_gateway_state_t *s, int len) { /* To mitigate the effect of lost packets on a packet network we should try to sustain the status quo. If there is no receive modem running, keep things that way. If there is a receive modem running, try to sustain its operation, without causing a phase hop, or letting its adaptive functions diverge. */ #if defined(LOG_FAX_AUDIO) if (s->audio.modems.audio_rx_log >= 0) { int i; #if defined(_MSC_VER) int16_t *amp = (int16_t *) _alloca(sizeof(int16_t)*len); #else int16_t amp[len]; #endif vec_zeroi16(amp, len); write(s->modems.audio_rx_log, amp, len*sizeof(int16_t)); } #endif update_rx_timing(s, len); /* TODO: handle the modems properly */ s->audio.modems.rx_fillin_handler(s->audio.modems.rx_user_data, len); return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE_NONSTD(int) t38_gateway_tx(t38_gateway_state_t *s, int16_t amp[], int max_len) { int len; #if defined(LOG_FAX_AUDIO) int required_len; required_len = max_len; #endif if ((len = s->audio.modems.tx_handler(s->audio.modems.tx_user_data, amp, max_len)) < max_len) { if (set_next_tx_type(s)) { /* Give the new handler a chance to file the remaining buffer space */ len += s->audio.modems.tx_handler(s->audio.modems.tx_user_data, amp + len, max_len - len); if (len < max_len) { silence_gen_set(&(s->audio.modems.silence_gen), 0); set_next_tx_type(s); } /*endif*/ } /*endif*/ } /*endif*/ if (s->audio.modems.transmit_on_idle) { /* Pad to the requested length with silence */ memset(amp + len, 0, (max_len - len)*sizeof(int16_t)); len = max_len; } /*endif*/ #if defined(LOG_FAX_AUDIO) if (s->audio.modems.audio_tx_log >= 0) { if (len < required_len) memset(amp + len, 0, (required_len - len)*sizeof(int16_t)); /*endif*/ write(s->audio.modems.audio_tx_log, amp, required_len*sizeof(int16_t)); } /*endif*/ #endif return len; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) t38_gateway_get_transfer_statistics(t38_gateway_state_t *s, t38_stats_t *t) { memset(t, 0, sizeof(*t)); t->bit_rate = s->core.fast_bit_rate; t->error_correcting_mode = s->core.ecm_mode; t->pages_transferred = s->core.pages_confirmed; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(t38_core_state_t *) t38_gateway_get_t38_core_state(t38_gateway_state_t *s) { return &s->t38x.t38; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(logging_state_t *) t38_gateway_get_logging_state(t38_gateway_state_t *s) { return &s->logging; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) t38_gateway_set_ecm_capability(t38_gateway_state_t *s, int ecm_allowed) { s->core.ecm_allowed = ecm_allowed; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) t38_gateway_set_transmit_on_idle(t38_gateway_state_t *s, int transmit_on_idle) { s->audio.modems.transmit_on_idle = transmit_on_idle; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) t38_gateway_set_supported_modems(t38_gateway_state_t *s, int supported_modems) { s->core.supported_modems = supported_modems; if ((s->core.supported_modems & T30_SUPPORT_V17)) t38_set_fastest_image_data_rate(&s->t38x.t38, 14400); else if ((s->core.supported_modems & T30_SUPPORT_V29)) t38_set_fastest_image_data_rate(&s->t38x.t38, 9600); else t38_set_fastest_image_data_rate(&s->t38x.t38, 4800); /*endif*/ } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) t38_gateway_set_nsx_suppression(t38_gateway_state_t *s, const uint8_t *from_t38, int from_t38_len, const uint8_t *from_modem, int from_modem_len) { s->t38x.suppress_nsx_len[0] = (from_t38_len < 0 || from_t38_len < MAX_NSX_SUPPRESSION) ? (from_t38_len + 3) : 0; s->t38x.suppress_nsx_len[1] = (from_modem_len < 0 || from_modem_len < MAX_NSX_SUPPRESSION) ? (from_modem_len + 3) : 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) t38_gateway_set_tep_mode(t38_gateway_state_t *s, int use_tep) { s->audio.modems.use_tep = use_tep; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) t38_gateway_set_fill_bit_removal(t38_gateway_state_t *s, int remove) { s->core.to_t38.fill_bit_removal = remove; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) t38_gateway_set_real_time_frame_handler(t38_gateway_state_t *s, t38_gateway_real_time_frame_handler_t *handler, void *user_data) { s->core.real_time_frame_handler = handler; s->core.real_time_frame_user_data = user_data; } /*- End of function --------------------------------------------------------*/ static int t38_gateway_audio_init(t38_gateway_state_t *s) { fax_modems_init(&s->audio.modems, FALSE, NULL, hdlc_underflow_handler, non_ecm_put_bit, t38_non_ecm_buffer_get_bit, tone_detected, s); /* We need to use progressive HDLC transmit, and a special HDLC receiver, which is different from the other uses of FAX modems. */ hdlc_tx_init(&s->audio.modems.hdlc_tx, FALSE, 2, TRUE, hdlc_underflow_handler, s); fsk_rx_set_put_bit(&s->audio.modems.v21_rx, (put_bit_func_t) t38_hdlc_rx_put_bit, &s->audio.modems.hdlc_rx); /* TODO: Don't use the very low cutoff levels we would like to. We get some quirks if we do. We need to sort this out. */ fsk_rx_signal_cutoff(&s->audio.modems.v21_rx, -30.0f); v29_rx_signal_cutoff(&s->audio.modems.v29_rx, -28.5f); return 0; } /*- End of function --------------------------------------------------------*/ static int t38_gateway_t38_init(t38_gateway_state_t *t, t38_tx_packet_handler_t *tx_packet_handler, void *tx_packet_user_data) { t38_gateway_t38_state_t *s; s = &t->t38x; t38_core_init(&s->t38, process_rx_indicator, process_rx_data, process_rx_missing, (void *) t, tx_packet_handler, tx_packet_user_data); t38_set_redundancy_control(&s->t38, T38_PACKET_CATEGORY_INDICATOR, INDICATOR_TX_COUNT); t38_set_redundancy_control(&s->t38, T38_PACKET_CATEGORY_CONTROL_DATA, DATA_TX_COUNT); t38_set_redundancy_control(&s->t38, T38_PACKET_CATEGORY_CONTROL_DATA_END, DATA_END_TX_COUNT); t38_set_redundancy_control(&s->t38, T38_PACKET_CATEGORY_IMAGE_DATA, DATA_TX_COUNT); t38_set_redundancy_control(&s->t38, T38_PACKET_CATEGORY_IMAGE_DATA_END, DATA_END_TX_COUNT); return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(t38_gateway_state_t *) t38_gateway_init(t38_gateway_state_t *s, t38_tx_packet_handler_t *tx_packet_handler, void *tx_packet_user_data) { if (tx_packet_handler == NULL) return NULL; /*endif*/ if (s == NULL) { if ((s = (t38_gateway_state_t *) malloc(sizeof(*s))) == NULL) return NULL; /*endif*/ } /*endif*/ memset(s, 0, sizeof(*s)); span_log_init(&s->logging, SPAN_LOG_NONE, NULL); span_log_set_protocol(&s->logging, "T.38G"); t38_gateway_audio_init(s); t38_gateway_t38_init(s, tx_packet_handler, tx_packet_user_data); set_rx_active(s, TRUE); t38_gateway_set_supported_modems(s, T30_SUPPORT_V27TER | T30_SUPPORT_V29 | T30_SUPPORT_V17); t38_gateway_set_nsx_suppression(s, (const uint8_t *) "\x00\x00\x00", 3, (const uint8_t *) "\x00\x00\x00", 3); s->core.to_t38.octets_per_data_packet = 1; s->core.ecm_allowed = TRUE; //s->core.ms_per_tx_chunk = DEFAULT_MS_PER_TX_CHUNK; t38_non_ecm_buffer_init(&s->core.non_ecm_to_modem, FALSE, 0); restart_rx_modem(s); s->core.timed_mode = TIMED_MODE_STARTUP; s->core.samples_to_timeout = 1; #if defined(LOG_FAX_AUDIO) { char buf[100 + 1]; struct tm *tm; time_t now; time(&now); tm = localtime(&now); sprintf(buf, "/tmp/t38-rx-audio-%p-%02d%02d%02d%02d%02d%02d", s, tm->tm_year%100, tm->tm_mon + 1, tm->tm_mday, tm->tm_hour, tm->tm_min, tm->tm_sec); s->audio.modems.audio_rx_log = open(buf, O_CREAT | O_TRUNC | O_WRONLY, 0666); sprintf(buf, "/tmp/t38-tx-audio-%p-%02d%02d%02d%02d%02d%02d", s, tm->tm_year%100, tm->tm_mon + 1, tm->tm_mday, tm->tm_hour, tm->tm_min, tm->tm_sec); s->audio.modems.audio_tx_log = open(buf, O_CREAT | O_TRUNC | O_WRONLY, 0666); } #endif return s; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) t38_gateway_release(t38_gateway_state_t *s) { return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) t38_gateway_free(t38_gateway_state_t *s) { free(s); return 0; } /*- End of function --------------------------------------------------------*/ /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/schedule.c0000664000175000017500000001050711422612262015327 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * schedule.c * * Written by Steve Underwood * * Copyright (C) 2004 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #if defined(HAVE_CONFIG_H) #include "config.h" #endif #include #include #include #include #include "spandsp/telephony.h" #include "spandsp/logging.h" #include "spandsp/schedule.h" #include "spandsp/private/logging.h" #include "spandsp/private/schedule.h" SPAN_DECLARE(int) span_schedule_event(span_sched_state_t *s, int us, span_sched_callback_func_t function, void *user_data) { int i; for (i = 0; i < s->max_to_date; i++) { if (s->sched[i].callback == NULL) break; /*endif*/ } /*endfor*/ if (i >= s->allocated) { s->allocated += 5; s->sched = (span_sched_t *) realloc(s->sched, sizeof(span_sched_t)*s->allocated); } /*endif*/ if (i >= s->max_to_date) s->max_to_date = i + 1; /*endif*/ s->sched[i].when = s->ticker + us; s->sched[i].callback = function; s->sched[i].user_data = user_data; return i; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(uint64_t) span_schedule_next(span_sched_state_t *s) { int i; uint64_t earliest; earliest = ~((uint64_t) 0); for (i = 0; i < s->max_to_date; i++) { if (s->sched[i].callback && earliest > s->sched[i].when) earliest = s->sched[i].when; /*endif*/ } /*endfor*/ return earliest; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(uint64_t) span_schedule_time(span_sched_state_t *s) { return s->ticker; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) span_schedule_update(span_sched_state_t *s, int us) { int i; span_sched_callback_func_t callback; void *user_data; s->ticker += us; for (i = 0; i < s->max_to_date; i++) { if (s->sched[i].callback && s->sched[i].when <= s->ticker) { callback = s->sched[i].callback; user_data = s->sched[i].user_data; s->sched[i].callback = NULL; s->sched[i].user_data = NULL; callback(s, user_data); } /*endif*/ } /*endfor*/ } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) span_schedule_del(span_sched_state_t *s, int i) { if (i >= s->max_to_date || i < 0 || s->sched[i].callback == NULL) { span_log(&s->logging, SPAN_LOG_WARNING, "Requested to delete invalid scheduled ID %d ?\n", i); return; } /*endif*/ s->sched[i].callback = NULL; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(span_sched_state_t *) span_schedule_init(span_sched_state_t *s) { memset(s, 0, sizeof(*s)); span_log_init(&s->logging, SPAN_LOG_NONE, NULL); span_log_set_protocol(&s->logging, "SCHEDULE"); return s; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) span_schedule_release(span_sched_state_t *s) { if (s->sched) { free(s->sched); s->sched = NULL; } return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) span_schedule_free(span_sched_state_t *s) { span_schedule_release(s); if (s) free(s); return 0; } /*- End of function --------------------------------------------------------*/ /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/g726.c0000664000175000017500000010227311422612261014221 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * g726.c - The ITU G.726 codec. * * Written by Steve Underwood * * Copyright (C) 2006 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. * * Based on G.721/G.723 code which is: * * This source code is a product of Sun Microsystems, Inc. and is provided * for unrestricted use. Users may copy or modify this source code without * charge. * * SUN SOURCE CODE IS PROVIDED AS IS WITH NO WARRANTIES OF ANY KIND INCLUDING * THE WARRANTIES OF DESIGN, MERCHANTIBILITY AND FITNESS FOR A PARTICULAR * PURPOSE, OR ARISING FROM A COURSE OF DEALING, USAGE OR TRADE PRACTICE. * * Sun source code is provided with no support and without any obligation on * the part of Sun Microsystems, Inc. to assist in its use, correction, * modification or enhancement. * * SUN MICROSYSTEMS, INC. SHALL HAVE NO LIABILITY WITH RESPECT TO THE * INFRINGEMENT OF COPYRIGHTS, TRADE SECRETS OR ANY PATENTS BY THIS SOFTWARE * OR ANY PART THEREOF. * * In no event will Sun Microsystems, Inc. be liable for any lost revenue * or profits or other special, indirect and consequential damages, even if * Sun has been advised of the possibility of such damages. * * Sun Microsystems, Inc. * 2550 Garcia Avenue * Mountain View, California 94043 */ /*! \file */ #if defined(HAVE_CONFIG_H) #include "config.h" #endif #include #include #include #if defined(HAVE_TGMATH_H) #include #endif #if defined(HAVE_MATH_H) #include #endif #include "floating_fudge.h" #include "spandsp/telephony.h" #include "spandsp/dc_restore.h" #include "spandsp/bitstream.h" #include "spandsp/bit_operations.h" #include "spandsp/g711.h" #include "spandsp/g726.h" #include "spandsp/private/bitstream.h" #include "spandsp/private/g726.h" /* * Maps G.726_16 code word to reconstructed scale factor normalized log * magnitude values. */ static const int g726_16_dqlntab[4] = { 116, 365, 365, 116 }; /* Maps G.726_16 code word to log of scale factor multiplier. */ static const int g726_16_witab[4] = { -704, 14048, 14048, -704 }; /* * Maps G.726_16 code words to a set of values whose long and short * term averages are computed and then compared to give an indication * how stationary (steady state) the signal is. */ static const int g726_16_fitab[4] = { 0x000, 0xE00, 0xE00, 0x000 }; static const int qtab_726_16[1] = { 261 }; /* * Maps G.726_24 code word to reconstructed scale factor normalized log * magnitude values. */ static const int g726_24_dqlntab[8] = { -2048, 135, 273, 373, 373, 273, 135, -2048 }; /* Maps G.726_24 code word to log of scale factor multiplier. */ static const int g726_24_witab[8] = { -128, 960, 4384, 18624, 18624, 4384, 960, -128 }; /* * Maps G.726_24 code words to a set of values whose long and short * term averages are computed and then compared to give an indication * how stationary (steady state) the signal is. */ static const int g726_24_fitab[8] = { 0x000, 0x200, 0x400, 0xE00, 0xE00, 0x400, 0x200, 0x000 }; static const int qtab_726_24[3] = { 8, 218, 331 }; /* * Maps G.726_32 code word to reconstructed scale factor normalized log * magnitude values. */ static const int g726_32_dqlntab[16] = { -2048, 4, 135, 213, 273, 323, 373, 425, 425, 373, 323, 273, 213, 135, 4, -2048 }; /* Maps G.726_32 code word to log of scale factor multiplier. */ static const int g726_32_witab[16] = { -384, 576, 1312, 2048, 3584, 6336, 11360, 35904, 35904, 11360, 6336, 3584, 2048, 1312, 576, -384 }; /* * Maps G.726_32 code words to a set of values whose long and short * term averages are computed and then compared to give an indication * how stationary (steady state) the signal is. */ static const int g726_32_fitab[16] = { 0x000, 0x000, 0x000, 0x200, 0x200, 0x200, 0x600, 0xE00, 0xE00, 0x600, 0x200, 0x200, 0x200, 0x000, 0x000, 0x000 }; static const int qtab_726_32[7] = { -124, 80, 178, 246, 300, 349, 400 }; /* * Maps G.726_40 code word to ructeconstructed scale factor normalized log * magnitude values. */ static const int g726_40_dqlntab[32] = { -2048, -66, 28, 104, 169, 224, 274, 318, 358, 395, 429, 459, 488, 514, 539, 566, 566, 539, 514, 488, 459, 429, 395, 358, 318, 274, 224, 169, 104, 28, -66, -2048 }; /* Maps G.726_40 code word to log of scale factor multiplier. */ static const int g726_40_witab[32] = { 448, 448, 768, 1248, 1280, 1312, 1856, 3200, 4512, 5728, 7008, 8960, 11456, 14080, 16928, 22272, 22272, 16928, 14080, 11456, 8960, 7008, 5728, 4512, 3200, 1856, 1312, 1280, 1248, 768, 448, 448 }; /* * Maps G.726_40 code words to a set of values whose long and short * term averages are computed and then compared to give an indication * how stationary (steady state) the signal is. */ static const int g726_40_fitab[32] = { 0x000, 0x000, 0x000, 0x000, 0x000, 0x200, 0x200, 0x200, 0x200, 0x200, 0x400, 0x600, 0x800, 0xA00, 0xC00, 0xC00, 0xC00, 0xC00, 0xA00, 0x800, 0x600, 0x400, 0x200, 0x200, 0x200, 0x200, 0x200, 0x000, 0x000, 0x000, 0x000, 0x000 }; static const int qtab_726_40[15] = { -122, -16, 68, 139, 198, 250, 298, 339, 378, 413, 445, 475, 502, 528, 553 }; /* * returns the integer product of the 14-bit integer "an" and * "floating point" representation (4-bit exponent, 6-bit mantessa) "srn". */ static int16_t fmult(int16_t an, int16_t srn) { int16_t anmag; int16_t anexp; int16_t anmant; int16_t wanexp; int16_t wanmant; int16_t retval; anmag = (an > 0) ? an : ((-an) & 0x1FFF); anexp = (int16_t) (top_bit(anmag) - 5); anmant = (anmag == 0) ? 32 : (anexp >= 0) ? (anmag >> anexp) : (anmag << -anexp); wanexp = anexp + ((srn >> 6) & 0xF) - 13; wanmant = (anmant*(srn & 0x3F) + 0x30) >> 4; retval = (wanexp >= 0) ? ((wanmant << wanexp) & 0x7FFF) : (wanmant >> -wanexp); return (((an ^ srn) < 0) ? -retval : retval); } /*- End of function --------------------------------------------------------*/ /* * Compute the estimated signal from the 6-zero predictor. */ static __inline__ int16_t predictor_zero(g726_state_t *s) { int i; int sezi; sezi = fmult(s->b[0] >> 2, s->dq[0]); /* ACCUM */ for (i = 1; i < 6; i++) sezi += fmult(s->b[i] >> 2, s->dq[i]); return (int16_t) sezi; } /*- End of function --------------------------------------------------------*/ /* * Computes the estimated signal from the 2-pole predictor. */ static __inline__ int16_t predictor_pole(g726_state_t *s) { return (fmult(s->a[1] >> 2, s->sr[1]) + fmult(s->a[0] >> 2, s->sr[0])); } /*- End of function --------------------------------------------------------*/ /* * Computes the quantization step size of the adaptive quantizer. */ static int step_size(g726_state_t *s) { int y; int dif; int al; if (s->ap >= 256) return s->yu; y = s->yl >> 6; dif = s->yu - y; al = s->ap >> 2; if (dif > 0) y += (dif*al) >> 6; else if (dif < 0) y += (dif*al + 0x3F) >> 6; return y; } /*- End of function --------------------------------------------------------*/ /* * Given a raw sample, 'd', of the difference signal and a * quantization step size scale factor, 'y', this routine returns the * ADPCM codeword to which that sample gets quantized. The step * size scale factor division operation is done in the log base 2 domain * as a subtraction. */ static int16_t quantize(int d, /* Raw difference signal sample */ int y, /* Step size multiplier */ const int table[], /* quantization table */ int quantizer_states) /* table size of int16_t integers */ { int16_t dqm; /* Magnitude of 'd' */ int16_t exp; /* Integer part of base 2 log of 'd' */ int16_t mant; /* Fractional part of base 2 log */ int16_t dl; /* Log of magnitude of 'd' */ int16_t dln; /* Step size scale factor normalized log */ int i; int size; /* * LOG * * Compute base 2 log of 'd', and store in 'dl'. */ dqm = (int16_t) abs(d); exp = (int16_t) (top_bit(dqm >> 1) + 1); /* Fractional portion. */ mant = ((dqm << 7) >> exp) & 0x7F; dl = (exp << 7) + mant; /* * SUBTB * * "Divide" by step size multiplier. */ dln = dl - (int16_t) (y >> 2); /* * QUAN * * Search for codword i for 'dln'. */ size = (quantizer_states - 1) >> 1; for (i = 0; i < size; i++) { if (dln < table[i]) break; } if (d < 0) { /* Take 1's complement of i */ return (int16_t) ((size << 1) + 1 - i); } if (i == 0 && (quantizer_states & 1)) { /* Zero is only valid if there are an even number of states, so take the 1's complement if the code is zero. */ return (int16_t) quantizer_states; } return (int16_t) i; } /*- End of function --------------------------------------------------------*/ /* * Returns reconstructed difference signal 'dq' obtained from * codeword 'i' and quantization step size scale factor 'y'. * Multiplication is performed in log base 2 domain as addition. */ static int16_t reconstruct(int sign, /* 0 for non-negative value */ int dqln, /* G.72x codeword */ int y) /* Step size multiplier */ { int16_t dql; /* Log of 'dq' magnitude */ int16_t dex; /* Integer part of log */ int16_t dqt; int16_t dq; /* Reconstructed difference signal sample */ dql = (int16_t) (dqln + (y >> 2)); /* ADDA */ if (dql < 0) return ((sign) ? -0x8000 : 0); /* ANTILOG */ dex = (dql >> 7) & 15; dqt = 128 + (dql & 127); dq = (dqt << 7) >> (14 - dex); return ((sign) ? (dq - 0x8000) : dq); } /*- End of function --------------------------------------------------------*/ /* * updates the state variables for each output code */ static void update(g726_state_t *s, int y, /* quantizer step size */ int wi, /* scale factor multiplier */ int fi, /* for long/short term energies */ int dq, /* quantized prediction difference */ int sr, /* reconstructed signal */ int dqsez) /* difference from 2-pole predictor */ { int16_t mag; int16_t exp; int16_t a2p; /* LIMC */ int16_t a1ul; /* UPA1 */ int16_t pks1; /* UPA2 */ int16_t fa1; int16_t ylint; int16_t dqthr; int16_t ylfrac; int16_t thr; int16_t pk0; int i; int tr; a2p = 0; /* Needed in updating predictor poles */ pk0 = (dqsez < 0) ? 1 : 0; /* prediction difference magnitude */ mag = (int16_t) (dq & 0x7FFF); /* TRANS */ ylint = (int16_t) (s->yl >> 15); /* exponent part of yl */ ylfrac = (int16_t) ((s->yl >> 10) & 0x1F); /* fractional part of yl */ /* Limit threshold to 31 << 10 */ thr = (ylint > 9) ? (31 << 10) : ((32 + ylfrac) << ylint); dqthr = (thr + (thr >> 1)) >> 1; /* dqthr = 0.75 * thr */ if (!s->td) /* signal supposed voice */ tr = FALSE; else if (mag <= dqthr) /* supposed data, but small mag */ tr = FALSE; /* treated as voice */ else /* signal is data (modem) */ tr = TRUE; /* * Quantizer scale factor adaptation. */ /* FUNCTW & FILTD & DELAY */ /* update non-steady state step size multiplier */ s->yu = (int16_t) (y + ((wi - y) >> 5)); /* LIMB */ if (s->yu < 544) s->yu = 544; else if (s->yu > 5120) s->yu = 5120; /* FILTE & DELAY */ /* update steady state step size multiplier */ s->yl += s->yu + ((-s->yl) >> 6); /* * Adaptive predictor coefficients. */ if (tr) { /* Reset the a's and b's for a modem signal */ s->a[0] = 0; s->a[1] = 0; s->b[0] = 0; s->b[1] = 0; s->b[2] = 0; s->b[3] = 0; s->b[4] = 0; s->b[5] = 0; } else { /* Update the a's and b's */ /* UPA2 */ pks1 = pk0 ^ s->pk[0]; /* Update predictor pole a[1] */ a2p = s->a[1] - (s->a[1] >> 7); if (dqsez != 0) { fa1 = (pks1) ? s->a[0] : -s->a[0]; /* a2p = function of fa1 */ if (fa1 < -8191) a2p -= 0x100; else if (fa1 > 8191) a2p += 0xFF; else a2p += fa1 >> 5; if (pk0 ^ s->pk[1]) { /* LIMC */ if (a2p <= -12160) a2p = -12288; else if (a2p >= 12416) a2p = 12288; else a2p -= 0x80; } else if (a2p <= -12416) a2p = -12288; else if (a2p >= 12160) a2p = 12288; else a2p += 0x80; } /* TRIGB & DELAY */ s->a[1] = a2p; /* UPA1 */ /* Update predictor pole a[0] */ s->a[0] -= s->a[0] >> 8; if (dqsez != 0) { if (pks1 == 0) s->a[0] += 192; else s->a[0] -= 192; } /* LIMD */ a1ul = 15360 - a2p; if (s->a[0] < -a1ul) s->a[0] = -a1ul; else if (s->a[0] > a1ul) s->a[0] = a1ul; /* UPB : update predictor zeros b[6] */ for (i = 0; i < 6; i++) { /* Distinguish 40Kbps mode from the others */ s->b[i] -= s->b[i] >> ((s->bits_per_sample == 5) ? 9 : 8); if (dq & 0x7FFF) { /* XOR */ if ((dq ^ s->dq[i]) >= 0) s->b[i] += 128; else s->b[i] -= 128; } } } for (i = 5; i > 0; i--) s->dq[i] = s->dq[i - 1]; /* FLOAT A : convert dq[0] to 4-bit exp, 6-bit mantissa f.p. */ if (mag == 0) { s->dq[0] = (dq >= 0) ? 0x20 : 0xFC20; } else { exp = (int16_t) (top_bit(mag) + 1); s->dq[0] = (dq >= 0) ? ((exp << 6) + ((mag << 6) >> exp)) : ((exp << 6) + ((mag << 6) >> exp) - 0x400); } s->sr[1] = s->sr[0]; /* FLOAT B : convert sr to 4-bit exp., 6-bit mantissa f.p. */ if (sr == 0) { s->sr[0] = 0x20; } else if (sr > 0) { exp = (int16_t) (top_bit(sr) + 1); s->sr[0] = (int16_t) ((exp << 6) + ((sr << 6) >> exp)); } else if (sr > -32768) { mag = (int16_t) -sr; exp = (int16_t) (top_bit(mag) + 1); s->sr[0] = (exp << 6) + ((mag << 6) >> exp) - 0x400; } else { s->sr[0] = (uint16_t) 0xFC20; } /* DELAY A */ s->pk[1] = s->pk[0]; s->pk[0] = pk0; /* TONE */ if (tr) /* this sample has been treated as data */ s->td = FALSE; /* next one will be treated as voice */ else if (a2p < -11776) /* small sample-to-sample correlation */ s->td = TRUE; /* signal may be data */ else /* signal is voice */ s->td = FALSE; /* Adaptation speed control. */ /* FILTA */ s->dms += ((int16_t) fi - s->dms) >> 5; /* FILTB */ s->dml += (((int16_t) (fi << 2) - s->dml) >> 7); if (tr) s->ap = 256; else if (y < 1536) /* SUBTC */ s->ap += (0x200 - s->ap) >> 4; else if (s->td) s->ap += (0x200 - s->ap) >> 4; else if (abs((s->dms << 2) - s->dml) >= (s->dml >> 3)) s->ap += (0x200 - s->ap) >> 4; else s->ap += (-s->ap) >> 4; } /*- End of function --------------------------------------------------------*/ static int16_t tandem_adjust_alaw(int16_t sr, /* decoder output linear PCM sample */ int se, /* predictor estimate sample */ int y, /* quantizer step size */ int i, /* decoder input code */ int sign, const int qtab[], int quantizer_states) { uint8_t sp; /* A-law compressed 8-bit code */ int16_t dx; /* prediction error */ int id; /* quantized prediction error */ int sd; /* adjusted A-law decoded sample value */ if (sr <= -32768) sr = -1; sp = linear_to_alaw((sr >> 1) << 3); /* 16-bit prediction error */ dx = (int16_t) ((alaw_to_linear(sp) >> 2) - se); id = quantize(dx, y, qtab, quantizer_states); if (id == i) { /* No adjustment of sp required */ return (int16_t) sp; } /* sp adjustment needed */ /* ADPCM codes : 8, 9, ... F, 0, 1, ... , 6, 7 */ /* 2's complement to biased unsigned */ if ((id ^ sign) > (i ^ sign)) { /* sp adjusted to next lower value */ if (sp & 0x80) sd = (sp == 0xD5) ? 0x55 : (((sp ^ 0x55) - 1) ^ 0x55); else sd = (sp == 0x2A) ? 0x2A : (((sp ^ 0x55) + 1) ^ 0x55); } else { /* sp adjusted to next higher value */ if (sp & 0x80) sd = (sp == 0xAA) ? 0xAA : (((sp ^ 0x55) + 1) ^ 0x55); else sd = (sp == 0x55) ? 0xD5 : (((sp ^ 0x55) - 1) ^ 0x55); } return (int16_t) sd; } /*- End of function --------------------------------------------------------*/ static int16_t tandem_adjust_ulaw(int16_t sr, /* decoder output linear PCM sample */ int se, /* predictor estimate sample */ int y, /* quantizer step size */ int i, /* decoder input code */ int sign, const int qtab[], int quantizer_states) { uint8_t sp; /* u-law compressed 8-bit code */ int16_t dx; /* prediction error */ int id; /* quantized prediction error */ int sd; /* adjusted u-law decoded sample value */ if (sr <= -32768) sr = 0; sp = linear_to_ulaw(sr << 2); /* 16-bit prediction error */ dx = (int16_t) ((ulaw_to_linear(sp) >> 2) - se); id = quantize(dx, y, qtab, quantizer_states); if (id == i) { /* No adjustment of sp required. */ return (int16_t) sp; } /* ADPCM codes : 8, 9, ... F, 0, 1, ... , 6, 7 */ /* 2's complement to biased unsigned */ if ((id ^ sign) > (i ^ sign)) { /* sp adjusted to next lower value */ if (sp & 0x80) sd = (sp == 0xFF) ? 0x7E : (sp + 1); else sd = (sp == 0x00) ? 0x00 : (sp - 1); } else { /* sp adjusted to next higher value */ if (sp & 0x80) sd = (sp == 0x80) ? 0x80 : (sp - 1); else sd = (sp == 0x7F) ? 0xFE : (sp + 1); } return (int16_t) sd; } /*- End of function --------------------------------------------------------*/ /* * Encodes a linear PCM, A-law or u-law input sample and returns its 3-bit code. */ static uint8_t g726_16_encoder(g726_state_t *s, int16_t amp) { int y; int16_t sei; int16_t sezi; int16_t se; int16_t d; int16_t sr; int16_t dqsez; int16_t dq; int16_t i; sezi = predictor_zero(s); sei = sezi + predictor_pole(s); se = sei >> 1; d = amp - se; /* Quantize prediction difference */ y = step_size(s); i = quantize(d, y, qtab_726_16, 4); dq = reconstruct(i & 2, g726_16_dqlntab[i], y); /* Reconstruct the signal */ sr = (dq < 0) ? (se - (dq & 0x3FFF)) : (se + dq); /* Pole prediction difference */ dqsez = sr + (sezi >> 1) - se; update(s, y, g726_16_witab[i], g726_16_fitab[i], dq, sr, dqsez); return (uint8_t) i; } /*- End of function --------------------------------------------------------*/ /* * Decodes a 2-bit CCITT G.726_16 ADPCM code and returns * the resulting 16-bit linear PCM, A-law or u-law sample value. */ static int16_t g726_16_decoder(g726_state_t *s, uint8_t code) { int16_t sezi; int16_t sei; int16_t se; int16_t sr; int16_t dq; int16_t dqsez; int y; /* Mask to get proper bits */ code &= 0x03; sezi = predictor_zero(s); sei = sezi + predictor_pole(s); y = step_size(s); dq = reconstruct(code & 2, g726_16_dqlntab[code], y); /* Reconstruct the signal */ se = sei >> 1; sr = (dq < 0) ? (se - (dq & 0x3FFF)) : (se + dq); /* Pole prediction difference */ dqsez = sr + (sezi >> 1) - se; update(s, y, g726_16_witab[code], g726_16_fitab[code], dq, sr, dqsez); switch (s->ext_coding) { case G726_ENCODING_ALAW: return tandem_adjust_alaw(sr, se, y, code, 2, qtab_726_16, 4); case G726_ENCODING_ULAW: return tandem_adjust_ulaw(sr, se, y, code, 2, qtab_726_16, 4); } return (sr << 2); } /*- End of function --------------------------------------------------------*/ /* * Encodes a linear PCM, A-law or u-law input sample and returns its 3-bit code. */ static uint8_t g726_24_encoder(g726_state_t *s, int16_t amp) { int16_t sei; int16_t sezi; int16_t se; int16_t d; int16_t sr; int16_t dqsez; int16_t dq; int16_t i; int y; sezi = predictor_zero(s); sei = sezi + predictor_pole(s); se = sei >> 1; d = amp - se; /* Quantize prediction difference */ y = step_size(s); i = quantize(d, y, qtab_726_24, 7); dq = reconstruct(i & 4, g726_24_dqlntab[i], y); /* Reconstruct the signal */ sr = (dq < 0) ? (se - (dq & 0x3FFF)) : (se + dq); /* Pole prediction difference */ dqsez = sr + (sezi >> 1) - se; update(s, y, g726_24_witab[i], g726_24_fitab[i], dq, sr, dqsez); return (uint8_t) i; } /*- End of function --------------------------------------------------------*/ /* * Decodes a 3-bit CCITT G.726_24 ADPCM code and returns * the resulting 16-bit linear PCM, A-law or u-law sample value. */ static int16_t g726_24_decoder(g726_state_t *s, uint8_t code) { int16_t sezi; int16_t sei; int16_t se; int16_t sr; int16_t dq; int16_t dqsez; int y; /* Mask to get proper bits */ code &= 0x07; sezi = predictor_zero(s); sei = sezi + predictor_pole(s); y = step_size(s); dq = reconstruct(code & 4, g726_24_dqlntab[code], y); /* Reconstruct the signal */ se = sei >> 1; sr = (dq < 0) ? (se - (dq & 0x3FFF)) : (se + dq); /* Pole prediction difference */ dqsez = sr + (sezi >> 1) - se; update(s, y, g726_24_witab[code], g726_24_fitab[code], dq, sr, dqsez); switch (s->ext_coding) { case G726_ENCODING_ALAW: return tandem_adjust_alaw(sr, se, y, code, 4, qtab_726_24, 7); case G726_ENCODING_ULAW: return tandem_adjust_ulaw(sr, se, y, code, 4, qtab_726_24, 7); } return (sr << 2); } /*- End of function --------------------------------------------------------*/ /* * Encodes a linear input sample and returns its 4-bit code. */ static uint8_t g726_32_encoder(g726_state_t *s, int16_t amp) { int16_t sei; int16_t sezi; int16_t se; int16_t d; int16_t sr; int16_t dqsez; int16_t dq; int16_t i; int y; sezi = predictor_zero(s); sei = sezi + predictor_pole(s); se = sei >> 1; d = amp - se; /* Quantize the prediction difference */ y = step_size(s); i = quantize(d, y, qtab_726_32, 15); dq = reconstruct(i & 8, g726_32_dqlntab[i], y); /* Reconstruct the signal */ sr = (dq < 0) ? (se - (dq & 0x3FFF)) : (se + dq); /* Pole prediction difference */ dqsez = sr + (sezi >> 1) - se; update(s, y, g726_32_witab[i], g726_32_fitab[i], dq, sr, dqsez); return (uint8_t) i; } /*- End of function --------------------------------------------------------*/ /* * Decodes a 4-bit CCITT G.726_32 ADPCM code and returns * the resulting 16-bit linear PCM, A-law or u-law sample value. */ static int16_t g726_32_decoder(g726_state_t *s, uint8_t code) { int16_t sezi; int16_t sei; int16_t se; int16_t sr; int16_t dq; int16_t dqsez; int y; /* Mask to get proper bits */ code &= 0x0F; sezi = predictor_zero(s); sei = sezi + predictor_pole(s); y = step_size(s); dq = reconstruct(code & 8, g726_32_dqlntab[code], y); /* Reconstruct the signal */ se = sei >> 1; sr = (dq < 0) ? (se - (dq & 0x3FFF)) : (se + dq); /* Pole prediction difference */ dqsez = sr + (sezi >> 1) - se; update(s, y, g726_32_witab[code], g726_32_fitab[code], dq, sr, dqsez); switch (s->ext_coding) { case G726_ENCODING_ALAW: return tandem_adjust_alaw(sr, se, y, code, 8, qtab_726_32, 15); case G726_ENCODING_ULAW: return tandem_adjust_ulaw(sr, se, y, code, 8, qtab_726_32, 15); } return (sr << 2); } /*- End of function --------------------------------------------------------*/ /* * Encodes a 16-bit linear PCM, A-law or u-law input sample and retuens * the resulting 5-bit CCITT G.726 40Kbps code. */ static uint8_t g726_40_encoder(g726_state_t *s, int16_t amp) { int16_t sei; int16_t sezi; int16_t se; int16_t d; int16_t sr; int16_t dqsez; int16_t dq; int16_t i; int y; sezi = predictor_zero(s); sei = sezi + predictor_pole(s); se = sei >> 1; d = amp - se; /* Quantize prediction difference */ y = step_size(s); i = quantize(d, y, qtab_726_40, 31); dq = reconstruct(i & 0x10, g726_40_dqlntab[i], y); /* Reconstruct the signal */ sr = (dq < 0) ? (se - (dq & 0x7FFF)) : (se + dq); /* Pole prediction difference */ dqsez = sr + (sezi >> 1) - se; update(s, y, g726_40_witab[i], g726_40_fitab[i], dq, sr, dqsez); return (uint8_t) i; } /*- End of function --------------------------------------------------------*/ /* * Decodes a 5-bit CCITT G.726 40Kbps code and returns * the resulting 16-bit linear PCM, A-law or u-law sample value. */ static int16_t g726_40_decoder(g726_state_t *s, uint8_t code) { int16_t sezi; int16_t sei; int16_t se; int16_t sr; int16_t dq; int16_t dqsez; int y; /* Mask to get proper bits */ code &= 0x1F; sezi = predictor_zero(s); sei = sezi + predictor_pole(s); y = step_size(s); dq = reconstruct(code & 0x10, g726_40_dqlntab[code], y); /* Reconstruct the signal */ se = sei >> 1; sr = (dq < 0) ? (se - (dq & 0x7FFF)) : (se + dq); /* Pole prediction difference */ dqsez = sr + (sezi >> 1) - se; update(s, y, g726_40_witab[code], g726_40_fitab[code], dq, sr, dqsez); switch (s->ext_coding) { case G726_ENCODING_ALAW: return tandem_adjust_alaw(sr, se, y, code, 0x10, qtab_726_40, 31); case G726_ENCODING_ULAW: return tandem_adjust_ulaw(sr, se, y, code, 0x10, qtab_726_40, 31); } return (sr << 2); } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(g726_state_t *) g726_init(g726_state_t *s, int bit_rate, int ext_coding, int packing) { int i; if (bit_rate != 16000 && bit_rate != 24000 && bit_rate != 32000 && bit_rate != 40000) return NULL; if (s == NULL) { if ((s = (g726_state_t *) malloc(sizeof(*s))) == NULL) return NULL; } s->yl = 34816; s->yu = 544; s->dms = 0; s->dml = 0; s->ap = 0; s->rate = bit_rate; s->ext_coding = ext_coding; s->packing = packing; for (i = 0; i < 2; i++) { s->a[i] = 0; s->pk[i] = 0; s->sr[i] = 32; } for (i = 0; i < 6; i++) { s->b[i] = 0; s->dq[i] = 32; } s->td = FALSE; switch (bit_rate) { case 16000: s->enc_func = g726_16_encoder; s->dec_func = g726_16_decoder; s->bits_per_sample = 2; break; case 24000: s->enc_func = g726_24_encoder; s->dec_func = g726_24_decoder; s->bits_per_sample = 3; break; case 32000: default: s->enc_func = g726_32_encoder; s->dec_func = g726_32_decoder; s->bits_per_sample = 4; break; case 40000: s->enc_func = g726_40_encoder; s->dec_func = g726_40_decoder; s->bits_per_sample = 5; break; } bitstream_init(&s->bs, (s->packing != G726_PACKING_LEFT)); return s; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) g726_release(g726_state_t *s) { return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) g726_free(g726_state_t *s) { free(s); return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) g726_decode(g726_state_t *s, int16_t amp[], const uint8_t g726_data[], int g726_bytes) { int i; int samples; uint8_t code; int sl; for (samples = i = 0; ; ) { if (s->packing != G726_PACKING_NONE) { /* Unpack the code bits */ if (s->packing != G726_PACKING_LEFT) { if (s->bs.residue < s->bits_per_sample) { if (i >= g726_bytes) break; s->bs.bitstream |= (g726_data[i++] << s->bs.residue); s->bs.residue += 8; } code = (uint8_t) (s->bs.bitstream & ((1 << s->bits_per_sample) - 1)); s->bs.bitstream >>= s->bits_per_sample; } else { if (s->bs.residue < s->bits_per_sample) { if (i >= g726_bytes) break; s->bs.bitstream = (s->bs.bitstream << 8) | g726_data[i++]; s->bs.residue += 8; } code = (uint8_t) ((s->bs.bitstream >> (s->bs.residue - s->bits_per_sample)) & ((1 << s->bits_per_sample) - 1)); } s->bs.residue -= s->bits_per_sample; } else { if (i >= g726_bytes) break; code = g726_data[i++]; } sl = s->dec_func(s, code); if (s->ext_coding != G726_ENCODING_LINEAR) ((uint8_t *) amp)[samples++] = (uint8_t) sl; else amp[samples++] = (int16_t) sl; } return samples; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) g726_encode(g726_state_t *s, uint8_t g726_data[], const int16_t amp[], int len) { int i; int g726_bytes; int16_t sl; uint8_t code; for (g726_bytes = i = 0; i < len; i++) { /* Linearize the input sample to 14-bit PCM */ switch (s->ext_coding) { case G726_ENCODING_ALAW: sl = alaw_to_linear(((const uint8_t *) amp)[i]) >> 2; break; case G726_ENCODING_ULAW: sl = ulaw_to_linear(((const uint8_t *) amp)[i]) >> 2; break; default: sl = amp[i] >> 2; break; } code = s->enc_func(s, sl); if (s->packing != G726_PACKING_NONE) { /* Pack the code bits */ if (s->packing != G726_PACKING_LEFT) { s->bs.bitstream |= (code << s->bs.residue); s->bs.residue += s->bits_per_sample; if (s->bs.residue >= 8) { g726_data[g726_bytes++] = (uint8_t) (s->bs.bitstream & 0xFF); s->bs.bitstream >>= 8; s->bs.residue -= 8; } } else { s->bs.bitstream = (s->bs.bitstream << s->bits_per_sample) | code; s->bs.residue += s->bits_per_sample; if (s->bs.residue >= 8) { g726_data[g726_bytes++] = (uint8_t) ((s->bs.bitstream >> (s->bs.residue - 8)) & 0xFF); s->bs.residue -= 8; } } } else { g726_data[g726_bytes++] = (uint8_t) code; } } return g726_bytes; } /*- End of function --------------------------------------------------------*/ /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/libspandsp.2008.sln0000664000175000017500000003435111211246554016642 0ustar steveusteveu Microsoft Visual Studio Solution File, Format Version 10.00 # Visual C++ Express 2008 Project("{8BC9CEB8-8B4A-11D0-8D11-00A0C91BC942}") = "make_at_dictionary", "msvc\make_at_dictionary.2008.vcproj", "{DEE932AB-5911-4700-9EEB-8C7090A0A330}" EndProject Project("{8BC9CEB8-8B4A-11D0-8D11-00A0C91BC942}") = "make_modem_filter", "msvc\make_modem_filter.2008.vcproj", "{329A6FA0-0FCC-4435-A950-E670AEFA9838}" EndProject Project("{8BC9CEB8-8B4A-11D0-8D11-00A0C91BC942}") = "libspandsp", "libspandsp.2008.vcproj", "{1CBB0077-18C5-455F-801C-0A0CE7B0BBF5}" ProjectSection(ProjectDependencies) = postProject {329A6FA0-0FCC-4435-A950-E670AEFA9838} = {329A6FA0-0FCC-4435-A950-E670AEFA9838} {DEE932AB-5911-4700-9EEB-8C7090A0A330} = {DEE932AB-5911-4700-9EEB-8C7090A0A330} {401A40CD-5DB4-4E34-AC68-FA99E9FAC014} = {401A40CD-5DB4-4E34-AC68-FA99E9FAC014} EndProjectSection EndProject Project("{8BC9CEB8-8B4A-11D0-8D11-00A0C91BC942}") = "make_line_models", "..\spandsp-sim\msvc\make_line_models.2008.vcproj", "{F290BADE-82DE-4037-B49D-D563E43169DA}" ProjectSection(ProjectDependencies) = postProject {1CBB0077-18C5-455F-801C-0A0CE7B0BBF5} = {1CBB0077-18C5-455F-801C-0A0CE7B0BBF5} EndProjectSection EndProject Project("{8BC9CEB8-8B4A-11D0-8D11-00A0C91BC942}") = "libspandsp_sim", "..\spandsp-sim\libspandsp_sim.2008.vcproj", "{502F1E51-F0A0-4607-AB7F-05BAB530AAE1}" ProjectSection(ProjectDependencies) = postProject {1CBB0077-18C5-455F-801C-0A0CE7B0BBF5} = {1CBB0077-18C5-455F-801C-0A0CE7B0BBF5} EndProjectSection EndProject Project("{8BC9CEB8-8B4A-11D0-8D11-00A0C91BC942}") = "libtiff", "libtiff.2008.vcproj", "{401A40CD-5DB4-4E34-AC68-FA99E9FAC014}" ProjectSection(ProjectDependencies) = postProject {2B8A45C9-FEB4-4734-AB37-8DB9DB899917} = {2B8A45C9-FEB4-4734-AB37-8DB9DB899917} EndProjectSection EndProject Project("{8BC9CEB8-8B4A-11D0-8D11-00A0C91BC942}") = "Download TIFF", "msvc\Download_TIFF.2008.vcproj", "{2B8A45C9-FEB4-4734-AB37-8DB9DB899917}" EndProject Project("{8BC9CEB8-8B4A-11D0-8D11-00A0C91BC942}") = "t38_core_tests", "..\tests\msvc\t38_core_tests.vcproj", "{A34A9D0E-A7E2-4A04-B044-7BB2FE709EF3}" ProjectSection(ProjectDependencies) = postProject {1CBB0077-18C5-455F-801C-0A0CE7B0BBF5} = {1CBB0077-18C5-455F-801C-0A0CE7B0BBF5} EndProjectSection EndProject Project("{8BC9CEB8-8B4A-11D0-8D11-00A0C91BC942}") = "t38_non_ecm_buffer_tests", "..\tests\msvc\t38_non_ecm_buffer_tests.vcproj", "{80A3D9D9-3846-4DA5-8676-F940D725EA62}" ProjectSection(ProjectDependencies) = postProject {1CBB0077-18C5-455F-801C-0A0CE7B0BBF5} = {1CBB0077-18C5-455F-801C-0A0CE7B0BBF5} EndProjectSection EndProject Project("{8BC9CEB8-8B4A-11D0-8D11-00A0C91BC942}") = "vector_int_tests", "..\tests\msvc\vector_int_tests.vcproj", "{80A60464-29E8-4EE8-BAFA-8708B7C08CC3}" ProjectSection(ProjectDependencies) = postProject {1CBB0077-18C5-455F-801C-0A0CE7B0BBF5} = {1CBB0077-18C5-455F-801C-0A0CE7B0BBF5} EndProjectSection EndProject Project("{8BC9CEB8-8B4A-11D0-8D11-00A0C91BC942}") = "vector_float_tests", "..\tests\msvc\vector_float_tests.vcproj", "{EA745FF7-9E4B-4C13-BA19-2EE8165A6245}" ProjectSection(ProjectDependencies) = postProject {1CBB0077-18C5-455F-801C-0A0CE7B0BBF5} = {1CBB0077-18C5-455F-801C-0A0CE7B0BBF5} EndProjectSection EndProject Project("{8BC9CEB8-8B4A-11D0-8D11-00A0C91BC942}") = "complex_tests", "..\tests\msvc\complex_tests.vcproj", "{A349379F-0FEA-49C8-9535-05F39663337B}" ProjectSection(ProjectDependencies) = postProject {1CBB0077-18C5-455F-801C-0A0CE7B0BBF5} = {1CBB0077-18C5-455F-801C-0A0CE7B0BBF5} EndProjectSection EndProject Project("{8BC9CEB8-8B4A-11D0-8D11-00A0C91BC942}") = "complex_vector_float_tests", "..\tests\msvc\complex_vector_float_tests.vcproj", "{2B0D705C-1CF2-401C-BFBC-A43FB806908C}" ProjectSection(ProjectDependencies) = postProject {1CBB0077-18C5-455F-801C-0A0CE7B0BBF5} = {1CBB0077-18C5-455F-801C-0A0CE7B0BBF5} EndProjectSection EndProject Project("{8BC9CEB8-8B4A-11D0-8D11-00A0C91BC942}") = "complex_vector_int_tests", "..\tests\msvc\complex_vector_int_tests.vcproj", "{C2E8B4D1-A398-4D57-94F8-B61F20C7D514}" ProjectSection(ProjectDependencies) = postProject {1CBB0077-18C5-455F-801C-0A0CE7B0BBF5} = {1CBB0077-18C5-455F-801C-0A0CE7B0BBF5} EndProjectSection EndProject Global GlobalSection(SolutionConfigurationPlatforms) = preSolution All|Win32 = All|Win32 All|x64 = All|x64 Debug|Win32 = Debug|Win32 Debug|x64 = Debug|x64 Release|Win32 = Release|Win32 Release|x64 = Release|x64 EndGlobalSection GlobalSection(ProjectConfigurationPlatforms) = postSolution {DEE932AB-5911-4700-9EEB-8C7090A0A330}.All|Win32.ActiveCfg = All|Win32 {DEE932AB-5911-4700-9EEB-8C7090A0A330}.All|Win32.Build.0 = All|Win32 {DEE932AB-5911-4700-9EEB-8C7090A0A330}.All|x64.ActiveCfg = All|Win32 {DEE932AB-5911-4700-9EEB-8C7090A0A330}.Debug|Win32.ActiveCfg = All|Win32 {DEE932AB-5911-4700-9EEB-8C7090A0A330}.Debug|Win32.Build.0 = All|Win32 {DEE932AB-5911-4700-9EEB-8C7090A0A330}.Debug|x64.ActiveCfg = All|Win32 {DEE932AB-5911-4700-9EEB-8C7090A0A330}.Release|Win32.ActiveCfg = All|Win32 {DEE932AB-5911-4700-9EEB-8C7090A0A330}.Release|x64.ActiveCfg = All|Win32 {329A6FA0-0FCC-4435-A950-E670AEFA9838}.All|Win32.ActiveCfg = All|Win32 {329A6FA0-0FCC-4435-A950-E670AEFA9838}.All|Win32.Build.0 = All|Win32 {329A6FA0-0FCC-4435-A950-E670AEFA9838}.All|x64.ActiveCfg = All|Win32 {329A6FA0-0FCC-4435-A950-E670AEFA9838}.Debug|Win32.ActiveCfg = All|Win32 {329A6FA0-0FCC-4435-A950-E670AEFA9838}.Debug|Win32.Build.0 = All|Win32 {329A6FA0-0FCC-4435-A950-E670AEFA9838}.Debug|x64.ActiveCfg = All|Win32 {329A6FA0-0FCC-4435-A950-E670AEFA9838}.Release|Win32.ActiveCfg = All|Win32 {329A6FA0-0FCC-4435-A950-E670AEFA9838}.Release|x64.ActiveCfg = All|Win32 {1CBB0077-18C5-455F-801C-0A0CE7B0BBF5}.All|Win32.ActiveCfg = Release|x64 {1CBB0077-18C5-455F-801C-0A0CE7B0BBF5}.All|x64.ActiveCfg = Release|x64 {1CBB0077-18C5-455F-801C-0A0CE7B0BBF5}.All|x64.Build.0 = Release|x64 {1CBB0077-18C5-455F-801C-0A0CE7B0BBF5}.Debug|Win32.ActiveCfg = Debug|Win32 {1CBB0077-18C5-455F-801C-0A0CE7B0BBF5}.Debug|Win32.Build.0 = Debug|Win32 {1CBB0077-18C5-455F-801C-0A0CE7B0BBF5}.Debug|x64.ActiveCfg = Debug|x64 {1CBB0077-18C5-455F-801C-0A0CE7B0BBF5}.Debug|x64.Build.0 = Debug|x64 {1CBB0077-18C5-455F-801C-0A0CE7B0BBF5}.Release|Win32.ActiveCfg = Release|Win32 {1CBB0077-18C5-455F-801C-0A0CE7B0BBF5}.Release|Win32.Build.0 = Release|Win32 {1CBB0077-18C5-455F-801C-0A0CE7B0BBF5}.Release|x64.ActiveCfg = Release|x64 {1CBB0077-18C5-455F-801C-0A0CE7B0BBF5}.Release|x64.Build.0 = Release|x64 {502F1E51-F0A0-4607-AB7F-05BAB530AAE1}.All|Win32.ActiveCfg = Release|Win32 {502F1E51-F0A0-4607-AB7F-05BAB530AAE1}.All|Win32.Build.0 = Release|Win32 {502F1E51-F0A0-4607-AB7F-05BAB530AAE1}.All|x64.ActiveCfg = Release|Win32 {502F1E51-F0A0-4607-AB7F-05BAB530AAE1}.Debug|Win32.ActiveCfg = Debug|Win32 {502F1E51-F0A0-4607-AB7F-05BAB530AAE1}.Debug|Win32.Build.0 = Debug|Win32 {502F1E51-F0A0-4607-AB7F-05BAB530AAE1}.Debug|x64.ActiveCfg = Debug|Win32 {502F1E51-F0A0-4607-AB7F-05BAB530AAE1}.Release|Win32.ActiveCfg = Release|Win32 {502F1E51-F0A0-4607-AB7F-05BAB530AAE1}.Release|Win32.Build.0 = Release|Win32 {502F1E51-F0A0-4607-AB7F-05BAB530AAE1}.Release|x64.ActiveCfg = Release|Win32 {401A40CD-5DB4-4E34-AC68-FA99E9FAC014}.All|Win32.ActiveCfg = Release|x64 {401A40CD-5DB4-4E34-AC68-FA99E9FAC014}.All|x64.ActiveCfg = Release|x64 {401A40CD-5DB4-4E34-AC68-FA99E9FAC014}.All|x64.Build.0 = Release|x64 {401A40CD-5DB4-4E34-AC68-FA99E9FAC014}.Debug|Win32.ActiveCfg = Debug|Win32 {401A40CD-5DB4-4E34-AC68-FA99E9FAC014}.Debug|Win32.Build.0 = Debug|Win32 {401A40CD-5DB4-4E34-AC68-FA99E9FAC014}.Debug|x64.ActiveCfg = Debug|x64 {401A40CD-5DB4-4E34-AC68-FA99E9FAC014}.Debug|x64.Build.0 = Debug|x64 {401A40CD-5DB4-4E34-AC68-FA99E9FAC014}.Release|Win32.ActiveCfg = Release|Win32 {401A40CD-5DB4-4E34-AC68-FA99E9FAC014}.Release|Win32.Build.0 = Release|Win32 {401A40CD-5DB4-4E34-AC68-FA99E9FAC014}.Release|x64.ActiveCfg = Release|x64 {401A40CD-5DB4-4E34-AC68-FA99E9FAC014}.Release|x64.Build.0 = Release|x64 {2B8A45C9-FEB4-4734-AB37-8DB9DB899917}.All|Win32.ActiveCfg = All|Win32 {2B8A45C9-FEB4-4734-AB37-8DB9DB899917}.All|Win32.Build.0 = All|Win32 {2B8A45C9-FEB4-4734-AB37-8DB9DB899917}.All|x64.ActiveCfg = All|Win32 {2B8A45C9-FEB4-4734-AB37-8DB9DB899917}.Debug|Win32.ActiveCfg = All|Win32 {2B8A45C9-FEB4-4734-AB37-8DB9DB899917}.Debug|Win32.Build.0 = All|Win32 {2B8A45C9-FEB4-4734-AB37-8DB9DB899917}.Debug|x64.ActiveCfg = All|Win32 {2B8A45C9-FEB4-4734-AB37-8DB9DB899917}.Release|Win32.ActiveCfg = All|Win32 {2B8A45C9-FEB4-4734-AB37-8DB9DB899917}.Release|Win32.Build.0 = All|Win32 {2B8A45C9-FEB4-4734-AB37-8DB9DB899917}.Release|x64.ActiveCfg = All|Win32 {A34A9D0E-A7E2-4A04-B044-7BB2FE709EF3}.All|Win32.ActiveCfg = Release|Win32 {A34A9D0E-A7E2-4A04-B044-7BB2FE709EF3}.All|Win32.Build.0 = Release|Win32 {A34A9D0E-A7E2-4A04-B044-7BB2FE709EF3}.All|x64.ActiveCfg = Release|Win32 {A34A9D0E-A7E2-4A04-B044-7BB2FE709EF3}.Debug|Win32.ActiveCfg = Debug|Win32 {A34A9D0E-A7E2-4A04-B044-7BB2FE709EF3}.Debug|Win32.Build.0 = Debug|Win32 {A34A9D0E-A7E2-4A04-B044-7BB2FE709EF3}.Debug|x64.ActiveCfg = Debug|Win32 {A34A9D0E-A7E2-4A04-B044-7BB2FE709EF3}.Release|Win32.ActiveCfg = Release|Win32 {A34A9D0E-A7E2-4A04-B044-7BB2FE709EF3}.Release|Win32.Build.0 = Release|Win32 {A34A9D0E-A7E2-4A04-B044-7BB2FE709EF3}.Release|x64.ActiveCfg = Release|Win32 {80A3D9D9-3846-4DA5-8676-F940D725EA62}.All|Win32.ActiveCfg = Release|Win32 {80A3D9D9-3846-4DA5-8676-F940D725EA62}.All|Win32.Build.0 = Release|Win32 {80A3D9D9-3846-4DA5-8676-F940D725EA62}.All|x64.ActiveCfg = Release|Win32 {80A3D9D9-3846-4DA5-8676-F940D725EA62}.Debug|Win32.ActiveCfg = Debug|Win32 {80A3D9D9-3846-4DA5-8676-F940D725EA62}.Debug|Win32.Build.0 = Debug|Win32 {80A3D9D9-3846-4DA5-8676-F940D725EA62}.Debug|x64.ActiveCfg = Debug|Win32 {80A3D9D9-3846-4DA5-8676-F940D725EA62}.Release|Win32.ActiveCfg = Release|Win32 {80A3D9D9-3846-4DA5-8676-F940D725EA62}.Release|Win32.Build.0 = Release|Win32 {80A3D9D9-3846-4DA5-8676-F940D725EA62}.Release|x64.ActiveCfg = Release|Win32 {80A60464-29E8-4EE8-BAFA-8708B7C08CC3}.All|Win32.ActiveCfg = Release|Win32 {80A60464-29E8-4EE8-BAFA-8708B7C08CC3}.All|Win32.Build.0 = Release|Win32 {80A60464-29E8-4EE8-BAFA-8708B7C08CC3}.All|x64.ActiveCfg = Release|Win32 {80A60464-29E8-4EE8-BAFA-8708B7C08CC3}.Debug|Win32.ActiveCfg = Debug|Win32 {80A60464-29E8-4EE8-BAFA-8708B7C08CC3}.Debug|Win32.Build.0 = Debug|Win32 {80A60464-29E8-4EE8-BAFA-8708B7C08CC3}.Debug|x64.ActiveCfg = Debug|Win32 {80A60464-29E8-4EE8-BAFA-8708B7C08CC3}.Release|Win32.ActiveCfg = Release|Win32 {80A60464-29E8-4EE8-BAFA-8708B7C08CC3}.Release|Win32.Build.0 = Release|Win32 {80A60464-29E8-4EE8-BAFA-8708B7C08CC3}.Release|x64.ActiveCfg = Release|Win32 {EA745FF7-9E4B-4C13-BA19-2EE8165A6245}.All|Win32.ActiveCfg = Release|Win32 {EA745FF7-9E4B-4C13-BA19-2EE8165A6245}.All|Win32.Build.0 = Release|Win32 {EA745FF7-9E4B-4C13-BA19-2EE8165A6245}.All|x64.ActiveCfg = Release|Win32 {EA745FF7-9E4B-4C13-BA19-2EE8165A6245}.Debug|Win32.ActiveCfg = Debug|Win32 {EA745FF7-9E4B-4C13-BA19-2EE8165A6245}.Debug|Win32.Build.0 = Debug|Win32 {EA745FF7-9E4B-4C13-BA19-2EE8165A6245}.Debug|x64.ActiveCfg = Debug|Win32 {EA745FF7-9E4B-4C13-BA19-2EE8165A6245}.Release|Win32.ActiveCfg = Release|Win32 {EA745FF7-9E4B-4C13-BA19-2EE8165A6245}.Release|Win32.Build.0 = Release|Win32 {EA745FF7-9E4B-4C13-BA19-2EE8165A6245}.Release|x64.ActiveCfg = Release|Win32 {A349379F-0FEA-49C8-9535-05F39663337B}.All|Win32.ActiveCfg = Release|Win32 {A349379F-0FEA-49C8-9535-05F39663337B}.All|Win32.Build.0 = Release|Win32 {A349379F-0FEA-49C8-9535-05F39663337B}.All|x64.ActiveCfg = Release|Win32 {A349379F-0FEA-49C8-9535-05F39663337B}.Debug|Win32.ActiveCfg = Debug|Win32 {A349379F-0FEA-49C8-9535-05F39663337B}.Debug|Win32.Build.0 = Debug|Win32 {A349379F-0FEA-49C8-9535-05F39663337B}.Debug|x64.ActiveCfg = Debug|Win32 {A349379F-0FEA-49C8-9535-05F39663337B}.Release|Win32.ActiveCfg = Release|Win32 {A349379F-0FEA-49C8-9535-05F39663337B}.Release|Win32.Build.0 = Release|Win32 {A349379F-0FEA-49C8-9535-05F39663337B}.Release|x64.ActiveCfg = Release|Win32 {2B0D705C-1CF2-401C-BFBC-A43FB806908C}.All|Win32.ActiveCfg = Release|Win32 {2B0D705C-1CF2-401C-BFBC-A43FB806908C}.All|Win32.Build.0 = Release|Win32 {2B0D705C-1CF2-401C-BFBC-A43FB806908C}.All|x64.ActiveCfg = Release|Win32 {2B0D705C-1CF2-401C-BFBC-A43FB806908C}.Debug|Win32.ActiveCfg = Debug|Win32 {2B0D705C-1CF2-401C-BFBC-A43FB806908C}.Debug|Win32.Build.0 = Debug|Win32 {2B0D705C-1CF2-401C-BFBC-A43FB806908C}.Debug|x64.ActiveCfg = Debug|Win32 {2B0D705C-1CF2-401C-BFBC-A43FB806908C}.Release|Win32.ActiveCfg = Release|Win32 {2B0D705C-1CF2-401C-BFBC-A43FB806908C}.Release|Win32.Build.0 = Release|Win32 {2B0D705C-1CF2-401C-BFBC-A43FB806908C}.Release|x64.ActiveCfg = Release|Win32 {C2E8B4D1-A398-4D57-94F8-B61F20C7D514}.All|Win32.ActiveCfg = Release|Win32 {C2E8B4D1-A398-4D57-94F8-B61F20C7D514}.All|Win32.Build.0 = Release|Win32 {C2E8B4D1-A398-4D57-94F8-B61F20C7D514}.All|x64.ActiveCfg = Release|Win32 {C2E8B4D1-A398-4D57-94F8-B61F20C7D514}.Debug|Win32.ActiveCfg = Debug|Win32 {C2E8B4D1-A398-4D57-94F8-B61F20C7D514}.Debug|Win32.Build.0 = Debug|Win32 {C2E8B4D1-A398-4D57-94F8-B61F20C7D514}.Debug|x64.ActiveCfg = Debug|Win32 {C2E8B4D1-A398-4D57-94F8-B61F20C7D514}.Release|Win32.ActiveCfg = Release|Win32 {C2E8B4D1-A398-4D57-94F8-B61F20C7D514}.Release|Win32.Build.0 = Release|Win32 {C2E8B4D1-A398-4D57-94F8-B61F20C7D514}.Release|x64.ActiveCfg = Release|Win32 {F290BADE-82DE-4037-B49D-D563E43169DA}.All|Win32.ActiveCfg = All|Win32 {F290BADE-82DE-4037-B49D-D563E43169DA}.All|Win32.Build.0 = All|Win32 {F290BADE-82DE-4037-B49D-D563E43169DA}.All|x64.ActiveCfg = All|Win32 {F290BADE-82DE-4037-B49D-D563E43169DA}.Debug|Win32.ActiveCfg = All|Win32 {F290BADE-82DE-4037-B49D-D563E43169DA}.Debug|Win32.Build.0 = All|Win32 {F290BADE-82DE-4037-B49D-D563E43169DA}.Debug|x64.ActiveCfg = All|Win32 {F290BADE-82DE-4037-B49D-D563E43169DA}.Release|Win32.ActiveCfg = All|Win32 {F290BADE-82DE-4037-B49D-D563E43169DA}.Release|Win32.Build.0 = All|Win32 {F290BADE-82DE-4037-B49D-D563E43169DA}.Release|x64.ActiveCfg = All|Win32 EndGlobalSection GlobalSection(SolutionProperties) = preSolution HideSolutionNode = FALSE EndGlobalSection EndGlobal spandsp-0.0.6/src/lpc10_placev.c0000664000175000017500000002677111422612262016016 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * lpc10_placev.c - LPC10 low bit rate speech codec. * * Written by Steve Underwood * * Copyright (C) 2006 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. * * This code is based on the U.S. Department of Defense reference * implementation of the LPC-10 2400 bps Voice Coder. They do not * exert copyright claims on their code, and it may be freely used. */ #if defined(HAVE_CONFIG_H) #include "config.h" #endif #include #include #include #include #if defined(HAVE_TGMATH_H) #include #endif #if defined(HAVE_MATH_H) #include #endif #include "floating_fudge.h" #include "spandsp/telephony.h" #include "spandsp/dc_restore.h" #include "spandsp/lpc10.h" #include "lpc10_encdecs.h" #define subsc(x,y) (((x) << 1) + (y)) void lpc10_placea(int32_t *ipitch, int32_t voibuf[3][2], int32_t *obound, int32_t af, int32_t vwin[3][2], int32_t awin[3][2], int32_t ewin[3][2], int32_t lframe, int32_t maxwin) { int allv; int winv; int32_t i; int32_t j; int32_t k; int32_t l; int32_t hrange; int ephase; int32_t lrange; lrange = (af - 2)*lframe + 1; hrange = af*lframe; /* Place the analysis window based on the voicing window placement, onsets, tentative voicing decision, and pitch. */ /* Case 1: Sustained voiced speech If the five most recent voicing decisions are voiced, then the window is placed phase-synchronously with the previous window, as close to the present voicing window if possible. If onsets bound the voicing window, then preference is given to a phase-synchronous placement which does not overlap these onsets. */ /* Case 2: Voiced transition If at least one voicing decision in AF is voicied, and there are no onsets, then the window is placed as in case 1. */ /* Case 3: Unvoiced speech or onsets If both voicing decisions in AF are unvoiced, or there are onsets then the window is placed coincident with the voicing window. */ /* Note: During phase-synchronous placement of windows, the length is not altered from MAXWIN, since this would defeat the purpose of phase-synchronous placement. */ /* Check for case 1 and case 2 */ allv = voibuf[af - 2][1] == 1 && voibuf[af - 1][0] == 1 && voibuf[af - 1][1] == 1 && voibuf[af][0] == 1 && voibuf[af][1] == 1; winv = voibuf[af][0] == 1 || voibuf[af][1] == 1; if (allv || (winv && *obound == 0)) { /* APHASE: Phase synchronous window placement. */ /* Get minimum lower index of the window. */ i = (lrange + *ipitch - 1 - awin[af - 2][0]) / *ipitch; i *= *ipitch; i += awin[af - 2][0]; /* l = the actual length of this frame's analysis window. */ l = maxwin; /* Calculate the location where a perfectly centered window would start. */ k = (vwin[af - 1][0] + vwin[af - 1][1] + 1 - l)/2; /* Choose the actual location to be the pitch multiple closest to this */ awin[af - 1][0] = i + ((int) floorf((float) (k - i)/(float) *ipitch + 0.5f))*(*ipitch); awin[af - 1][1] = awin[af - 1][0] + l - 1; /* If there is an onset bounding the right of the voicing window and the analysis window overlaps that, then move the analysis window backward to avoid this onset. */ if (*obound >= 2 && awin[af - 1][1] > vwin[af - 1][1]) { awin[af - 1][0] -= *ipitch; awin[af - 1][1] -= *ipitch; } /* Similarly for the left of the voicing window. */ if ((*obound == 1 || *obound == 3) && awin[af - 1][0] < vwin[af - 1][0]) { awin[af - 1][0] += *ipitch; awin[af - 1][1] += *ipitch; } /* If this placement puts the analysis window above HRANGE, then move it backward an integer number of pitch periods. */ while (awin[af - 1][1] > hrange) { awin[af - 1][0] -= *ipitch; awin[af - 1][1] -= *ipitch; } /* Similarly if the placement puts the analysis window below LRANGE. */ while (awin[af - 1][0] < lrange) { awin[af - 1][0] += *ipitch; awin[af - 1][1] += *ipitch; } /* Make energy window be phase-synchronous. */ ephase = TRUE; } else { /* Case 3 */ awin[af - 1][0] = vwin[af - 1][0]; awin[af - 1][1] = vwin[af - 1][1]; ephase = FALSE; } /* RMS is computed over an integer number of pitch periods in the analysis window. When it is not placed phase-synchronously, it is placed as close as possible to onsets. */ j = (awin[af - 1][1] - awin[af - 1][0] + 1) / *ipitch * *ipitch; if (j == 0 || !winv) { ewin[af - 1][0] = vwin[af - 1][0]; ewin[af - 1][1] = vwin[af - 1][1]; } else if (!ephase && *obound == 2) { ewin[af - 1][0] = awin[af - 1][1] - j + 1; ewin[af - 1][1] = awin[af - 1][1]; } else { ewin[af - 1][0] = awin[af - 1][0]; ewin[af - 1][1] = awin[af - 1][0] + j - 1; } } /*- End of function --------------------------------------------------------*/ void lpc10_placev(int32_t *osbuf, int32_t *osptr, int32_t oslen, int32_t *obound, int32_t vwin[3][2], int32_t af, int32_t lframe, int32_t minwin, int32_t maxwin, int32_t dvwinl, int32_t dvwinh) { int32_t i1; int32_t i2; int crit; int32_t q; int32_t osptr1; int32_t hrange; int32_t lrange; int i; /* Voicing window placement */ /* __________________ __________________ ______________ */ /* | | | */ /* | 1F | 2F | 3F ... */ /* |__________________|__________________|______________ */ /* Previous | */ /* Window | */ /* ...________| */ /* | | */ /* ------>| This window's placement range |<------ */ /* | | */ /* There are three cases. Note these are different from those given in the LPC-10e phase 1 report. */ /* 1. If there are no onsets in this range, then the voicing window is centered in the pitch window. If such a placement is not within the window's placement range, then the window is placed in the left-most portion of the placement range. Its length is always MAXWIN. */ /* 2. If the first onset is in 2F and there is sufficient room to place the window immediately before this onset, then the window is placed there, and its length is set to the maximum possible under these constraints. */ /* "Critical Region Exception": If there is another onset in 2F such that a window can be placed between the two onsets, the window is placed there (ie, as in case 3). */ /* 3. Otherwise, the window is placed immediately after the onset. The window's length is the longest length that can fit in the range under these constraints, except that the window may be shortened even further to avoid overlapping other onsets in the placement range. In any case, the window's length is at least MINWIN. */ /* Note that the values of MINWIN and LFRAME must be chosen such that case 2 = false implies case 3 = true. This means that MINWIN <= LFRAME/2. If this were not the case, then a fourth case would have to be added for when the window cannot fit either before or after the onset. */ /* Note also that onsets which weren't in 2F last time may be in 1F this time, due to the filter delays in computing onsets. The result is that occasionally a voicing window will overlap that onset. The only way to circumvent this problem is to add more delay in processing input speech. In the trade-off between delay and window-placement, window placement lost. */ /* Compute the placement range */ /* Computing MAX */ i1 = vwin[af - 2][1] + 1; i2 = (af - 2)*lframe + 1; lrange = max(i1, i2); hrange = af*lframe; /* Compute OSPTR1, so the following code only looks at relevant onsets. */ for (osptr1 = *osptr - 1; osptr1 >= 1; osptr1--) { if (osbuf[osptr1 - 1] <= hrange) break; } osptr1++; /* Check for case 1 first (fast case) */ if (osptr1 <= 1 || osbuf[osptr1 - 2] < lrange) { /* Compute max */ i1 = vwin[af - 2][1] + 1; vwin[af - 1][0] = max(i1, dvwinl); vwin[af - 1][1] = vwin[af - 1][0] + maxwin - 1; *obound = 0; } else { /* Search backward in OSBUF for first onset in range. */ /* This code relies on the above check being performed first. */ for (q = osptr1 - 1; q >= 1; q--) { if (osbuf[q - 1] < lrange) break; } q++; /* Check for case 2 (placement before onset): */ /* Check for critical region exception: */ crit = FALSE; for (i = q + 1; i < osptr1; i++) { if (osbuf[i - 1] - osbuf[q - 1] >= minwin) { crit = TRUE; break; } } /* Compute max */ i1 = (af - 1)*lframe; i2 = lrange + minwin - 1; if (!crit && osbuf[q - 1] > max(i1, i2)) { vwin[af - 1][1] = osbuf[q - 1] - 1; /* Compute max */ i2 = vwin[af - 1][1] - maxwin + 1; vwin[af - 1][0] = max(lrange, i2); *obound = 2; } else { /* Case 3 (placement after onset) */ vwin[af - 1][0] = osbuf[q - 1]; do { if (++q >= osptr1 || osbuf[q - 1] > vwin[af - 1][0] + maxwin) { /* Compute min */ i1 = vwin[af - 1][0] + maxwin - 1; vwin[af - 1][1] = min(i1, hrange); *obound = 1; return; } } while (osbuf[q - 1] < vwin[af - 1][0] + minwin); vwin[af - 1][1] = osbuf[q - 1] - 1; *obound = 3; } } } /*- End of function --------------------------------------------------------*/ /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/gsm0610_preprocess.c0000664000175000017500000001024311422612262017072 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * gsm0610_preprocess.c - GSM 06.10 full rate speech codec. * * Written by Steve Underwood * * Copyright (C) 2006 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. * * This code is based on the widely used GSM 06.10 code available from * http://kbs.cs.tu-berlin.de/~jutta/toast.html */ /*! \file */ #if defined(HAVE_CONFIG_H) #include "config.h" #endif #include #include #if defined(HAVE_TGMATH_H) #include #endif #if defined(HAVE_MATH_H) #include #endif #include "floating_fudge.h" #include #include "spandsp/telephony.h" #include "spandsp/fast_convert.h" #include "spandsp/bitstream.h" #include "spandsp/saturated.h" #include "spandsp/gsm0610.h" #include "gsm0610_local.h" /* 4.2.0 .. 4.2.3 PREPROCESSING SECTION After A-law to linear conversion (or directly from the A to D converter) the following scaling is assumed for input to the RPE-LTP algorithm: in: 0.1.....................12 S.v.v.v.v.v.v.v.v.v.v.v.v.*.*.* Where S is the sign bit, v a valid bit, and * a "don't care" bit. The original signal is called sop[..] out: 0.1................... 12 S.S.v.v.v.v.v.v.v.v.v.v.v.v.0.0 */ void gsm0610_preprocess(gsm0610_state_t *s, const int16_t amp[GSM0610_FRAME_LEN], int16_t so[GSM0610_FRAME_LEN]) { int16_t z1; int16_t mp; int16_t s1; int16_t msp; int16_t SO; int32_t L_z2; int32_t L_s2; int32_t L_temp; #if !defined(__GNUC__) int16_t lsp; #endif int k; z1 = s->z1; L_z2 = s->L_z2; mp = s->mp; for (k = 0; k < GSM0610_FRAME_LEN; k++) { /* 4.2.1 Downscaling of the input signal */ SO = (amp[k] >> 1) & ~3; assert(SO >= -0x4000); // downscaled by assert(SO <= 0x3FFC); // previous routine. /* 4.2.2 Offset compensation */ /* This part implements a high-pass filter and requires extended arithmetic precision for the recursive part of this filter. The input of this procedure is the array so[0...159] and the output the array sof[ 0...159 ]. */ /* Compute the non-recursive part */ s1 = SO - z1; z1 = SO; assert(s1 != INT16_MIN); /* Compute the recursive part */ L_s2 = s1; L_s2 <<= 15; /* Perform a 31 by 16 bits multiplication */ #if defined(__GNUC__) L_z2 = ((int64_t) L_z2*32735 + 0x4000) >> 15; /* Alternate (ANSI) version of below line does slightly different rounding: * L_temp = L_z2 >> 9; * L_temp += L_temp >> 5; * L_temp = (++L_temp) >> 1; * L_z2 = L_z2 - L_temp; */ L_z2 = saturated_add32(L_z2, L_s2); #else /* This does L_z2 = L_z2 * 0x7FD5/0x8000 + L_s2 */ msp = (int16_t) (L_z2 >> 15); lsp = (int16_t) (L_z2 - ((int32_t) msp << 15)); L_s2 += gsm_mult_r(lsp, 32735); L_temp = (int32_t) msp*32735; L_z2 = saturated_add32(L_temp, L_s2); #endif /* Compute sof[k] with rounding */ L_temp = saturated_add32(L_z2, 16384); /* 4.2.3 Preemphasis */ msp = gsm_mult_r(mp, -28180); mp = (int16_t) (L_temp >> 15); so[k] = saturated_add16(mp, msp); } /*endfor*/ s->z1 = z1; s->L_z2 = L_z2; s->mp = mp; } /*- End of function --------------------------------------------------------*/ /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/lpc10_encdecs.h0000664000175000017500000000576411422612262016154 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * lpc10_encdecs.h - LPC10 low bit rate speech codec. * * Written by Steve Underwood * * Copyright (C) 2006 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #define LPC10_ORDER 10 #if !defined(min) #define min(a,b) ((a) <= (b) ? (a) : (b)) #endif #if !defined(max) #define max(a,b) ((a) >= (b) ? (a) : (b)) #endif void lpc10_placea(int32_t *ipitch, int32_t voibuf[4][2], int32_t *obound, int32_t af, int32_t vwin[3][2], int32_t awin[3][2], int32_t ewin[3][2], int32_t lframe, int32_t maxwin); void lpc10_placev(int32_t *osbuf, int32_t *osptr, int32_t oslen, int32_t *obound, int32_t vwin[3][2], int32_t af, int32_t lframe, int32_t minwin, int32_t maxwin, int32_t dvwinl, int32_t dvwinh); void lpc10_voicing(lpc10_encode_state_t *st, int32_t *vwin, float *inbuf, float *lpbuf, const int32_t buflim[], int32_t half, float *minamd, float *maxamd, int32_t *mintau, float *ivrc, int32_t *obound); void lpc10_analyse(lpc10_encode_state_t *st, float *speech, int32_t *voice, int32_t *pitch, float *rms, float rc[]); static __inline__ int32_t pow_ii(int32_t x, int32_t n) { int32_t pow; uint32_t u; if (n <= 0) { if (n == 0 || x == 1) return 1; if (x != -1) return (x == 0) ? 1/x : 0; n = -n; } u = n; for (pow = 1; ; ) { if ((u & 1)) pow *= x; if ((u >>= 1) == 0) break; x *= x; } return pow; } /*- End of function --------------------------------------------------------*/ static __inline__ float r_sign(float a, float b) { float x; x = fabsf(a); return (b >= 0.0f) ? x : -x; } /*- End of function --------------------------------------------------------*/ /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/t30_logging.c0000664000175000017500000007757411422612262015670 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * t30_logging.c - ITU T.30 FAX transfer processing * * Written by Steve Underwood * * Copyright (C) 2003, 2004, 2005, 2006, 2007 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \file */ #if defined(HAVE_CONFIG_H) #include "config.h" #endif #include #include #include #include #include #include #if defined(HAVE_TGMATH_H) #include #endif #if defined(HAVE_MATH_H) #include #endif #include "floating_fudge.h" #include #include "spandsp/telephony.h" #include "spandsp/logging.h" #include "spandsp/bit_operations.h" #include "spandsp/queue.h" #include "spandsp/power_meter.h" #include "spandsp/complex.h" #include "spandsp/tone_generate.h" #include "spandsp/async.h" #include "spandsp/hdlc.h" #include "spandsp/fsk.h" #include "spandsp/v29rx.h" #include "spandsp/v29tx.h" #include "spandsp/v27ter_rx.h" #include "spandsp/v27ter_tx.h" #include "spandsp/t4_rx.h" #include "spandsp/t4_tx.h" #if defined(SPANDSP_SUPPORT_T85) #include "spandsp/t81_t82_arith_coding.h" #include "spandsp/t85.h" #endif #include "spandsp/t4_t6_decode.h" #include "spandsp/t4_t6_encode.h" #include "spandsp/t30_fcf.h" #include "spandsp/t35.h" #include "spandsp/t30.h" #include "spandsp/t30_logging.h" #include "spandsp/private/logging.h" #if defined(SPANDSP_SUPPORT_T85) #include "spandsp/private/t81_t82_arith_coding.h" #include "spandsp/private/t85.h" #endif #include "spandsp/private/t4_t6_decode.h" #include "spandsp/private/t4_t6_encode.h" #include "spandsp/private/t4_rx.h" #include "spandsp/private/t4_tx.h" #include "spandsp/private/t30.h" #include "t30_local.h" /*! Value string pair structure */ typedef struct { int val; const char *str; } value_string_t; enum { DISBIT1 = 0x01, DISBIT2 = 0x02, DISBIT3 = 0x04, DISBIT4 = 0x08, DISBIT5 = 0x10, DISBIT6 = 0x20, DISBIT7 = 0x40, DISBIT8 = 0x80 }; SPAN_DECLARE(const char *) t30_completion_code_to_str(int result) { switch (result) { case T30_ERR_OK: return "OK"; case T30_ERR_CEDTONE: return "The CED tone exceeded 5s"; case T30_ERR_T0_EXPIRED: return "Timed out waiting for initial communication"; case T30_ERR_T1_EXPIRED: return "Timed out waiting for the first message"; case T30_ERR_T3_EXPIRED: return "Timed out waiting for procedural interrupt"; case T30_ERR_HDLC_CARRIER: return "The HDLC carrier did not stop in a timely manner"; case T30_ERR_CANNOT_TRAIN: return "Failed to train with any of the compatible modems"; case T30_ERR_OPER_INT_FAIL: return "Operator intervention failed"; case T30_ERR_INCOMPATIBLE: return "Far end is not compatible"; case T30_ERR_RX_INCAPABLE: return "Far end is not able to receive"; case T30_ERR_TX_INCAPABLE: return "Far end is not able to transmit"; case T30_ERR_NORESSUPPORT: return "Far end cannot receive at the resolution of the image"; case T30_ERR_NOSIZESUPPORT: return "Far end cannot receive at the size of image"; case T30_ERR_UNEXPECTED: return "Unexpected message received"; case T30_ERR_TX_BADDCS: return "Received bad response to DCS or training"; case T30_ERR_TX_BADPG: return "Received a DCN from remote after sending a page"; case T30_ERR_TX_ECMPHD: return "Invalid ECM response received from receiver"; case T30_ERR_TX_GOTDCN: return "Received a DCN while waiting for a DIS"; case T30_ERR_TX_INVALRSP: return "Invalid response after sending a page"; case T30_ERR_TX_NODIS: return "Received other than DIS while waiting for DIS"; case T30_ERR_TX_PHBDEAD: return "Received no response to DCS or TCF"; case T30_ERR_TX_PHDDEAD: return "No response after sending a page"; case T30_ERR_TX_T5EXP: return "Timed out waiting for receiver ready (ECM mode)"; case T30_ERR_RX_ECMPHD: return "Invalid ECM response received from transmitter"; case T30_ERR_RX_GOTDCS: return "DCS received while waiting for DTC"; case T30_ERR_RX_INVALCMD: return "Unexpected command after page received"; case T30_ERR_RX_NOCARRIER: return "Carrier lost during fax receive"; case T30_ERR_RX_NOEOL: return "Timed out while waiting for EOL (end Of line)"; case T30_ERR_RX_NOFAX: return "Timed out while waiting for first line"; case T30_ERR_RX_T2EXPDCN: return "Timer T2 expired while waiting for DCN"; case T30_ERR_RX_T2EXPD: return "Timer T2 expired while waiting for phase D"; case T30_ERR_RX_T2EXPFAX: return "Timer T2 expired while waiting for fax page"; case T30_ERR_RX_T2EXPMPS: return "Timer T2 expired while waiting for next fax page"; case T30_ERR_RX_T2EXPRR: return "Timer T2 expired while waiting for RR command"; case T30_ERR_RX_T2EXP: return "Timer T2 expired while waiting for NSS, DCS or MCF"; case T30_ERR_RX_DCNWHY: return "Unexpected DCN while waiting for DCS or DIS"; case T30_ERR_RX_DCNDATA: return "Unexpected DCN while waiting for image data"; case T30_ERR_RX_DCNFAX: return "Unexpected DCN while waiting for EOM, EOP or MPS"; case T30_ERR_RX_DCNPHD: return "Unexpected DCN after EOM or MPS sequence"; case T30_ERR_RX_DCNRRD: return "Unexpected DCN after RR/RNR sequence"; case T30_ERR_RX_DCNNORTN: return "Unexpected DCN after requested retransmission"; case T30_ERR_FILEERROR: return "TIFF/F file cannot be opened"; case T30_ERR_NOPAGE: return "TIFF/F page not found"; case T30_ERR_BADTIFF: return "TIFF/F format is not compatible"; case T30_ERR_BADPAGE: return "TIFF/F page number tag missing"; case T30_ERR_BADTAG: return "Incorrect values for TIFF/F tags"; case T30_ERR_BADTIFFHDR: return "Bad TIFF/F header - incorrect values in fields"; case T30_ERR_NOMEM: return "Cannot allocate memory for more pages"; case T30_ERR_RETRYDCN: return "Disconnected after permitted retries"; case T30_ERR_CALLDROPPED: return "The call dropped prematurely"; case T30_ERR_NOPOLL: return "Poll not accepted"; case T30_ERR_IDENT_UNACCEPTABLE: return "Ident not accepted"; case T30_ERR_PSA_UNACCEPTABLE: return "Polled sub-address not accepted"; case T30_ERR_SEP_UNACCEPTABLE: return "Selective polling address not accepted"; case T30_ERR_SID_UNACCEPTABLE: return "Sender identification not accepted"; case T30_ERR_PWD_UNACCEPTABLE: return "Password not accepted"; case T30_ERR_SUB_UNACCEPTABLE: return "Sub-address not accepted"; case T30_ERR_TSA_UNACCEPTABLE: return "Transmitting subscriber internet address not accepted"; case T30_ERR_IRA_UNACCEPTABLE: return "Internet routing address not accepted"; case T30_ERR_CIA_UNACCEPTABLE: return "Calling subscriber internet address not accepted"; case T30_ERR_ISP_UNACCEPTABLE: return "Internet selective polling address not accepted"; case T30_ERR_CSA_UNACCEPTABLE: return "Called subscriber internet address not accepted"; } return "???"; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(const char *) t30_frametype(uint8_t x) { switch (x) { case T30_DIS: return "DIS"; case T30_CSI: return "CSI"; case T30_NSF: return "NSF"; case T30_DTC: return "DTC"; case T30_CIG: return "CIG"; case T30_NSC: return "NSC"; case T30_PWD: return "PWD"; case T30_SEP: return "SEP"; case T30_PSA: return "PSA"; case T30_CIA: return "CIA"; case T30_ISP: return "ISP"; case T30_DCS: case T30_DCS | 0x01: return "DCS"; case T30_TSI: case T30_TSI | 0x01: return "TSI"; case T30_NSS: case T30_NSS | 0x01: return "NSS"; case T30_SUB: case T30_SUB | 0x01: return "SUB"; case T30_SID: case T30_SID | 0x01: return "SID"; case T30_CTC: case T30_CTC | 0x01: return "CTC"; case T30_TSA: case T30_TSA | 0x01: return "TSA"; case T30_IRA: case T30_IRA | 0x01: return "IRA"; case T30_CFR: case T30_CFR | 0x01: return "CFR"; case T30_FTT: case T30_FTT | 0x01: return "FTT"; case T30_CTR: case T30_CTR | 0x01: return "CTR"; case T30_CSA: case T30_CSA | 0x01: return "CSA"; case T30_EOM: case T30_EOM | 0x01: return "EOM"; case T30_MPS: case T30_MPS | 0x01: return "MPS"; case T30_EOP: case T30_EOP | 0x01: return "EOP"; case T30_PRI_EOM: case T30_PRI_EOM | 0x01: return "PRI-EOM"; case T30_PRI_MPS: case T30_PRI_MPS | 0x01: return "PRI-MPS"; case T30_PRI_EOP: case T30_PRI_EOP | 0x01: return "PRI-EOP"; case T30_EOS: case T30_EOS | 0x01: return "EOS"; case T30_PPS: case T30_PPS | 0x01: return "PPS"; case T30_EOR: case T30_EOR | 0x01: return "EOR"; case T30_RR: case T30_RR | 0x01: return "RR"; case T30_MCF: case T30_MCF | 0x01: return "MCF"; case T30_RTP: case T30_RTP | 0x01: return "RTP"; case T30_RTN: case T30_RTN | 0x01: return "RTN"; case T30_PIP: case T30_PIP | 0x01: return "PIP"; case T30_PIN: case T30_PIN | 0x01: return "PIN"; case T30_PPR: case T30_PPR | 0x01: return "PPR"; case T30_RNR: case T30_RNR | 0x01: return "RNR"; case T30_ERR: case T30_ERR | 0x01: return "ERR"; case T30_FDM: case T30_FDM | 0x01: return "FDM"; case T30_DCN: case T30_DCN | 0x01: return "DCN"; case T30_CRP: case T30_CRP | 0x01: return "CRP"; case T30_FNV: case T30_FNV | 0x01: return "FNV"; case T30_TNR: case T30_TNR | 0x01: return "TNR"; case T30_TR: case T30_TR | 0x01: return "TR"; case T30_TK: return "TK"; case T30_RK: return "RK"; #if 0 case T30_PSS: return "PSS"; #endif case T30_DES: return "DES"; case T30_DEC: return "DEC"; case T30_DER: return "DER"; #if 0 case T30_DTR: return "DTR"; #endif case T30_DNK: case T30_DNK | 0x01: return "DNK"; case T30_PID: case T30_PID | 0x01: return "PID"; case T30_NULL: return "NULL"; case T4_FCD: return "FCD"; case T4_RCP: return "RCP"; } return "???"; } /*- End of function --------------------------------------------------------*/ static void octet_reserved_bit(logging_state_t *log, const uint8_t *msg, int bit_no, int expected) { char s[10] = ".... ...."; int bit; uint8_t octet; /* Break out the octet and the bit number within it. */ octet = msg[((bit_no - 1) >> 3) + 3]; bit_no = (bit_no - 1) & 7; /* Now get the actual bit. */ bit = (octet >> bit_no) & 1; /* Is it what it should be. */ if (bit ^ expected) { /* Only log unexpected values. */ s[7 - bit_no + ((bit_no < 4) ? 1 : 0)] = (uint8_t) (bit + '0'); span_log(log, SPAN_LOG_FLOW, " %s= Unexpected state for reserved bit: %d\n", s, bit); } } /*- End of function --------------------------------------------------------*/ static void octet_bit_field(logging_state_t *log, const uint8_t *msg, int bit_no, const char *desc, const char *yeah, const char *neigh) { char s[10] = ".... ...."; int bit; uint8_t octet; const char *tag; /* Break out the octet and the bit number within it. */ octet = msg[((bit_no - 1) >> 3) + 3]; bit_no = (bit_no - 1) & 7; /* Now get the actual bit. */ bit = (octet >> bit_no) & 1; /* Edit the bit string for display. */ s[7 - bit_no + ((bit_no < 4) ? 1 : 0)] = (uint8_t) (bit + '0'); /* Find the right tag to display. */ if (bit) { if ((tag = yeah) == NULL) tag = "Set"; } else { if ((tag = neigh) == NULL) tag = "Not set"; } /* Eh, voila! */ span_log(log, SPAN_LOG_FLOW, " %s= %s: %s\n", s, desc, tag); } /*- End of function --------------------------------------------------------*/ static void octet_field(logging_state_t *log, const uint8_t *msg, int start, int end, const char *desc, const value_string_t tags[]) { char s[10] = ".... ...."; int i; uint8_t octet; const char *tag; /* Break out the octet and the bit number range within it. */ octet = msg[((start - 1) >> 3) + 3]; start = (start - 1) & 7; end = ((end - 1) & 7) + 1; /* Edit the bit string for display. */ for (i = start; i < end; i++) s[7 - i + ((i < 4) ? 1 : 0)] = (uint8_t) ((octet >> i) & 1) + '0'; /* Find the right tag to display. */ octet = (uint8_t) ((octet >> start) & ((0xFF + (1 << (end - start))) & 0xFF)); tag = "Invalid"; for (i = 0; tags[i].str; i++) { if (octet == tags[i].val) { tag = tags[i].str; break; } } /* Eh, voila! */ span_log(log, SPAN_LOG_FLOW, " %s= %s: %s\n", s, desc, tag); } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) t30_decode_dis_dtc_dcs(t30_state_t *s, const uint8_t *pkt, int len) { logging_state_t *log; uint8_t frame_type; static const value_string_t available_signalling_rate_tags[] = { { 0x00, "V.27 ter fall-back mode" }, { 0x01, "V.29" }, { 0x02, "V.27 ter" }, { 0x03, "V.27 ter and V.29" }, { 0x0B, "V.27 ter, V.29, and V.17" }, { 0x06, "Reserved" }, { 0x0A, "Reserved" }, { 0x0E, "Reserved" }, { 0x0F, "Reserved" }, { 0x04, "Not used" }, { 0x05, "Not used" }, { 0x08, "Not used" }, { 0x09, "Not used" }, { 0x0C, "Not used" }, { 0x0D, "Not used" }, { 0x00, NULL } }; static const value_string_t selected_signalling_rate_tags[] = { { 0x00, "V.27ter 2400bps" }, { 0x01, "V.29, 9600bps" }, { 0x02, "V.27ter 4800bps" }, { 0x03, "V.29 7200bps" }, { 0x08, "V.17 14400bps" }, { 0x09, "V.17 9600bps" }, { 0x0A, "V.17 12000bps" }, { 0x0B, "V.17 7200bps" }, { 0x05, "Reserved" }, { 0x07, "Reserved" }, { 0x0C, "Reserved" }, { 0x0D, "Reserved" }, { 0x0E, "Reserved" }, { 0x0F, "Reserved" }, { 0x00, NULL } }; static const value_string_t available_scan_line_length_tags[] = { { 0x00, "215mm +- 1%" }, { 0x01, "215mm +- 1% and 255mm +- 1%" }, { 0x02, "215mm +- 1%, 255mm +- 1% and 303mm +- 1%" }, { 0x00, NULL } }; static const value_string_t selected_scan_line_length_tags[] = { { 0x00, "215mm +- 1%" }, { 0x01, "255mm +- 1%" }, { 0x02, "303mm +- 1%" }, { 0x00, NULL } }; static const value_string_t available_recording_length_tags[] = { { 0x00, "A4 (297mm)" }, { 0x01, "A4 (297mm) and B4 (364mm)" }, { 0x02, "Unlimited" }, { 0x00, NULL } }; static const value_string_t selected_recording_length_tags[] = { { 0x00, "A4 (297mm)" }, { 0x01, "B4 (364mm)" }, { 0x02, "Unlimited" }, { 0x00, NULL } }; static const value_string_t available_minimum_scan_line_time_tags[] = { { 0x00, "20ms at 3.85 l/mm; T7.7 = T3.85" }, { 0x01, "5ms at 3.85 l/mm; T7.7 = T3.85" }, { 0x02, "10ms at 3.85 l/mm; T7.7 = T3.85" }, { 0x03, "20ms at 3.85 l/mm; T7.7 = 1/2 T3.85" }, { 0x04, "40ms at 3.85 l/mm; T7.7 = T3.85" }, { 0x05, "40ms at 3.85 l/mm; T7.7 = 1/2 T3.85" }, { 0x06, "10ms at 3.85 l/mm; T7.7 = 1/2 T3.85" }, { 0x07, "0ms at 3.85 l/mm; T7.7 = T3.85" }, { 0x00, NULL } }; static const value_string_t selected_minimum_scan_line_time_tags[] = { { 0x00, "20ms" }, { 0x01, "5ms" }, { 0x02, "10ms" }, { 0x04, "40ms" }, { 0x07, "0ms" }, { 0x00, NULL } }; static const value_string_t shared_data_memory_capacity_tags[] = { { 0x00, "Not available" }, { 0x01, "Level 2 = 2.0 Mbytes" }, { 0x02, "Level 1 = 1.0 Mbytes" }, { 0x03, "Level 3 = unlimited (i.e. >= 32 Mbytes)" }, { 0x00, NULL } }; static const value_string_t t89_profile_tags[] = { { 0x00, "Not used" }, { 0x01, "Profiles 2 and 3" }, { 0x02, "Profile 2" }, { 0x04, "Profile 1" }, { 0x06, "Profile 3" }, { 0x03, "Reserved" }, { 0x05, "Reserved" }, { 0x07, "Reserved" }, { 0x00, NULL } }; static const value_string_t t44_mixed_raster_content_tags[] = { { 0x00, "0" }, { 0x01, "1" }, { 0x02, "2" }, { 0x32, "3" }, { 0x04, "4" }, { 0x05, "5" }, { 0x06, "6" }, { 0x07, "7" }, { 0x00, NULL } }; if (!span_log_test(&s->logging, SPAN_LOG_FLOW)) return; frame_type = pkt[2] & 0xFE; log = &s->logging; if (len <= 2) { span_log(log, SPAN_LOG_FLOW, " Frame is short\n"); return; } span_log(log, SPAN_LOG_FLOW, "%s:\n", t30_frametype(pkt[2])); if (len <= 3) { span_log(log, SPAN_LOG_FLOW, " Frame is short\n"); return; } octet_bit_field(log, pkt, 1, "Store and forward Internet fax (T.37)", NULL, NULL); octet_reserved_bit(log, pkt, 2, 0); octet_bit_field(log, pkt, 3, "Real-time Internet fax (T.38)", NULL, NULL); octet_bit_field(log, pkt, 4, "3G mobile network", NULL, NULL); octet_reserved_bit(log, pkt, 5, 0); if (frame_type == T30_DCS) { octet_reserved_bit(log, pkt, 6, 0); octet_reserved_bit(log, pkt, 7, 0); } else { octet_bit_field(log, pkt, 6, "V.8 capabilities", NULL, NULL); octet_bit_field(log, pkt, 7, "Preferred octets", "64 octets", "256 octets"); } octet_reserved_bit(log, pkt, 8, 0); if (len <= 4) { span_log(log, SPAN_LOG_FLOW, " Frame is short\n"); return; } if (frame_type == T30_DCS) { octet_reserved_bit(log, pkt, 9, 0); octet_bit_field(log, pkt, 10, "Receive fax", NULL, NULL); octet_field(log, pkt, 11, 14, "Selected data signalling rate", selected_signalling_rate_tags); } else { octet_bit_field(log, pkt, 9, "Ready to transmit a fax document (polling)", NULL, NULL); octet_bit_field(log, pkt, 10, "Can receive fax", NULL, NULL); octet_field(log, pkt, 11, 14, "Supported data signalling rates", available_signalling_rate_tags); } octet_bit_field(log, pkt, 15, "R8x7.7lines/mm and/or 200x200pels/25.4mm", NULL, NULL); octet_bit_field(log, pkt, 16, "2-D coding", NULL, NULL); if (len <= 5) { span_log(log, SPAN_LOG_FLOW, " Frame is short\n"); return; } if (frame_type == T30_DCS) { octet_field(log, pkt, 17, 18, "Recording width", selected_scan_line_length_tags); octet_field(log, pkt, 19, 20, "Recording length", selected_recording_length_tags); octet_field(log, pkt, 21, 23, "Minimum scan line time", selected_minimum_scan_line_time_tags); } else { octet_field(log, pkt, 17, 18, "Recording width", available_scan_line_length_tags); octet_field(log, pkt, 19, 20, "Recording length", available_recording_length_tags); octet_field(log, pkt, 21, 23, "Receiver's minimum scan line time", available_minimum_scan_line_time_tags); } octet_bit_field(log, pkt, 24, "Extension indicator", NULL, NULL); if (!(pkt[5] & DISBIT8)) return; if (len <= 6) { span_log(log, SPAN_LOG_FLOW, " Frame is short\n"); return; } octet_reserved_bit(log, pkt, 25, 0); octet_bit_field(log, pkt, 26, "Compressed/uncompressed mode", "Uncompressed", "Compressed"); octet_bit_field(log, pkt, 27, "Error correction mode (ECM)", "ECM", "Non-ECM"); if (frame_type == T30_DCS) octet_bit_field(log, pkt, 28, "Frame size", "64 octets", "256 octets"); else octet_reserved_bit(log, pkt, 28, 0); octet_reserved_bit(log, pkt, 29, 0); octet_reserved_bit(log, pkt, 30, 0); octet_bit_field(log, pkt, 31, "T.6 coding", NULL, NULL); octet_bit_field(log, pkt, 32, "Extension indicator", NULL, NULL); if (!(pkt[6] & DISBIT8)) return; if (len <= 7) { span_log(log, SPAN_LOG_FLOW, " Frame is short\n"); return; } octet_bit_field(log, pkt, 33, "\"Field not valid\" supported", NULL, NULL); if (frame_type == T30_DCS) { octet_reserved_bit(log, pkt, 34, 0); octet_reserved_bit(log, pkt, 35, 0); } else { octet_bit_field(log, pkt, 34, "Multiple selective polling", NULL, NULL); octet_bit_field(log, pkt, 35, "Polled sub-address", NULL, NULL); } octet_bit_field(log, pkt, 36, "T.43 coding", NULL, NULL); octet_bit_field(log, pkt, 37, "Plane interleave", NULL, NULL); octet_bit_field(log, pkt, 38, "Voice coding with 32kbit/s ADPCM (Rec. G.726)", NULL, NULL); octet_bit_field(log, pkt, 39, "Reserved for the use of extended voice coding set", NULL, NULL); octet_bit_field(log, pkt, 40, "Extension indicator", NULL, NULL); if (!(pkt[7] & DISBIT8)) return; if (len <= 8) { span_log(log, SPAN_LOG_FLOW, " Frame is short\n"); return; } octet_bit_field(log, pkt, 41, "R8x15.4lines/mm", NULL, NULL); octet_bit_field(log, pkt, 42, "300x300pels/25.4mm", NULL, NULL); octet_bit_field(log, pkt, 43, "R16x15.4lines/mm and/or 400x400pels/25.4mm", NULL, NULL); if (frame_type == T30_DCS) { octet_bit_field(log, pkt, 44, "Resolution type selection", "Inch", "Metric"); octet_reserved_bit(log, pkt, 45, 0); octet_reserved_bit(log, pkt, 46, 0); octet_reserved_bit(log, pkt, 47, 0); } else { octet_bit_field(log, pkt, 44, "Inch-based resolution preferred", NULL, NULL); octet_bit_field(log, pkt, 45, "Metric-based resolution preferred", NULL, NULL); octet_bit_field(log, pkt, 46, "Minimum scan line time for higher resolutions", "T15.4 = 1/2 T7.7", "T15.4 = T7.7"); octet_bit_field(log, pkt, 47, "Selective polling", NULL, NULL); } octet_bit_field(log, pkt, 48, "Extension indicator", NULL, NULL); if (!(pkt[8] & DISBIT8)) return; if (len <= 9) { span_log(log, SPAN_LOG_FLOW, " Frame is short\n"); return; } octet_bit_field(log, pkt, 49, "Sub-addressing", NULL, NULL); if (frame_type == T30_DCS) { octet_bit_field(log, pkt, 50, "Sender identification transmission", NULL, NULL); octet_reserved_bit(log, pkt, 51, 0); } else { octet_bit_field(log, pkt, 50, "Password", NULL, NULL); octet_bit_field(log, pkt, 51, "Ready to transmit a data file (polling)", NULL, NULL); } octet_reserved_bit(log, pkt, 52, 0); octet_bit_field(log, pkt, 53, "Binary file transfer (BFT)", NULL, NULL); octet_bit_field(log, pkt, 54, "Document transfer mode (DTM)", NULL, NULL); octet_bit_field(log, pkt, 55, "Electronic data interchange (EDI)", NULL, NULL); octet_bit_field(log, pkt, 56, "Extension indicator", NULL, NULL); if (!(pkt[9] & DISBIT8)) return; if (len <= 10) { span_log(log, SPAN_LOG_FLOW, " Frame is short\n"); return; } octet_bit_field(log, pkt, 57, "Basic transfer mode (BTM)", NULL, NULL); octet_reserved_bit(log, pkt, 58, 0); if (frame_type == T30_DCS) octet_reserved_bit(log, pkt, 59, 0); else octet_bit_field(log, pkt, 59, "Ready to transfer a character or mixed mode document (polling)", NULL, NULL); octet_bit_field(log, pkt, 60, "Character mode", NULL, NULL); octet_reserved_bit(log, pkt, 61, 0); octet_bit_field(log, pkt, 62, "Mixed mode (Annex E/T.4)", NULL, NULL); octet_reserved_bit(log, pkt, 63, 0); octet_bit_field(log, pkt, 64, "Extension indicator", NULL, NULL); if (!(pkt[10] & DISBIT8)) return; if (len <= 11) { span_log(log, SPAN_LOG_FLOW, " Frame is short\n"); return; } octet_bit_field(log, pkt, 65, "Processable mode 26 (Rec. T.505)", NULL, NULL); octet_bit_field(log, pkt, 66, "Digital network capability", NULL, NULL); octet_bit_field(log, pkt, 67, "Duplex capability", "Full", "Half only"); if (frame_type == T30_DCS) octet_bit_field(log, pkt, 68, "Full colour mode", NULL, NULL); else octet_bit_field(log, pkt, 68, "JPEG coding", NULL, NULL); octet_bit_field(log, pkt, 69, "Full colour mode", NULL, NULL); if (frame_type == T30_DCS) octet_bit_field(log, pkt, 70, "Preferred Huffman tables", NULL, NULL); else octet_reserved_bit(log, pkt, 70, 0); octet_bit_field(log, pkt, 71, "12bits/pel component", NULL, NULL); octet_bit_field(log, pkt, 72, "Extension indicator", NULL, NULL); if (!(pkt[11] & DISBIT8)) return; if (len <= 12) { span_log(log, SPAN_LOG_FLOW, " Frame is short\n"); return; } octet_bit_field(log, pkt, 73, "No subsampling (1:1:1)", NULL, NULL); octet_bit_field(log, pkt, 74, "Custom illuminant", NULL, NULL); octet_bit_field(log, pkt, 75, "Custom gamut range", NULL, NULL); octet_bit_field(log, pkt, 76, "North American Letter (215.9mm x 279.4mm)", NULL, NULL); octet_bit_field(log, pkt, 77, "North American Legal (215.9mm x 355.6mm)", NULL, NULL); octet_bit_field(log, pkt, 78, "Single-progression sequential coding (Rec. T.85) basic", NULL, NULL); octet_bit_field(log, pkt, 79, "Single-progression sequential coding (Rec. T.85) optional L0", NULL, NULL); octet_bit_field(log, pkt, 80, "Extension indicator", NULL, NULL); if (!(pkt[12] & DISBIT8)) return; if (len <= 13) { span_log(log, SPAN_LOG_FLOW, " Frame is short\n"); return; } octet_bit_field(log, pkt, 81, "HKM key management", NULL, NULL); octet_bit_field(log, pkt, 82, "RSA key management", NULL, NULL); octet_bit_field(log, pkt, 83, "Override", NULL, NULL); octet_bit_field(log, pkt, 84, "HFX40 cipher", NULL, NULL); octet_bit_field(log, pkt, 85, "Alternative cipher number 2", NULL, NULL); octet_bit_field(log, pkt, 86, "Alternative cipher number 3", NULL, NULL); octet_bit_field(log, pkt, 87, "HFX40-I hashing", NULL, NULL); octet_bit_field(log, pkt, 88, "Extension indicator", NULL, NULL); if (!(pkt[13] & DISBIT8)) return; if (len <= 14) { span_log(log, SPAN_LOG_FLOW, " Frame is short\n"); return; } octet_bit_field(log, pkt, 89, "Alternative hashing system 2", NULL, NULL); octet_bit_field(log, pkt, 90, "Alternative hashing system 3", NULL, NULL); octet_bit_field(log, pkt, 91, "Reserved for future security features", NULL, NULL); octet_field(log, pkt, 92, 94, "T.44 (Mixed Raster Content)", t44_mixed_raster_content_tags); octet_bit_field(log, pkt, 95, "Page length maximum stripe size for T.44 (Mixed Raster Content)", NULL, NULL); octet_bit_field(log, pkt, 96, "Extension indicator", NULL, NULL); if (!(pkt[14] & DISBIT8)) return; if (len <= 15) { span_log(log, SPAN_LOG_FLOW, " Frame is short\n"); return; } octet_bit_field(log, pkt, 97, "Colour/gray-scale 300pels/25.4mm x 300lines/25.4mm or 400pels/25.4mm x 400lines/25.4mm resolution", NULL, NULL); octet_bit_field(log, pkt, 98, "100pels/25.4mm x 100lines/25.4mm for colour/gray scale", NULL, NULL); octet_bit_field(log, pkt, 99, "Simple phase C BFT negotiations", NULL, NULL); if (frame_type == T30_DCS) { octet_reserved_bit(log, pkt, 100, 0); octet_reserved_bit(log, pkt, 101, 0); } else { octet_bit_field(log, pkt, 100, "Extended BFT Negotiations capable", NULL, NULL); octet_bit_field(log, pkt, 101, "Internet Selective Polling address (ISP)", NULL, NULL); } octet_bit_field(log, pkt, 102, "Internet Routing Address (IRA)", NULL, NULL); octet_reserved_bit(log, pkt, 103, 0); octet_bit_field(log, pkt, 104, "Extension indicator", NULL, NULL); if (!(pkt[15] & DISBIT8)) return; if (len <= 16) { span_log(log, SPAN_LOG_FLOW, " Frame is short\n"); return; } octet_bit_field(log, pkt, 105, "600pels/25.4mm x 600lines/25.4mm", NULL, NULL); octet_bit_field(log, pkt, 106, "1200pels/25.4mm x 1200lines/25.4mm", NULL, NULL); octet_bit_field(log, pkt, 107, "300pels/25.4mm x 600lines/25.4mm", NULL, NULL); octet_bit_field(log, pkt, 108, "400pels/25.4mm x 800lines/25.4mm", NULL, NULL); octet_bit_field(log, pkt, 109, "600pels/25.4mm x 1200lines/25.4mm", NULL, NULL); octet_bit_field(log, pkt, 110, "Colour/gray scale 600pels/25.4mm x 600lines/25.4mm", NULL, NULL); octet_bit_field(log, pkt, 111, "Colour/gray scale 1200pels/25.4mm x 1200lines/25.4mm", NULL, NULL); octet_bit_field(log, pkt, 112, "Extension indicator", NULL, NULL); if (!(pkt[16] & DISBIT8)) return; if (len <= 17) { span_log(log, SPAN_LOG_FLOW, " Frame is short\n"); return; } octet_bit_field(log, pkt, 113, "Double sided printing capability (alternate mode)", NULL, NULL); octet_bit_field(log, pkt, 114, "Double sided printing capability (continuous mode)", NULL, NULL); if (frame_type == T30_DCS) octet_bit_field(log, pkt, 115, "Black and white mixed raster content profile (MRCbw)", NULL, NULL); else octet_reserved_bit(log, pkt, 115, 0); octet_bit_field(log, pkt, 116, "T.45 (run length colour encoded)", NULL, NULL); octet_field(log, pkt, 117, 118, "Shared memory", shared_data_memory_capacity_tags); octet_bit_field(log, pkt, 119, "T.44 colour space", NULL, NULL); octet_bit_field(log, pkt, 120, "Extension indicator", NULL, NULL); if (!(pkt[17] & DISBIT8)) return; if (len <= 18) { span_log(log, SPAN_LOG_FLOW, " Frame is short\n"); return; } octet_bit_field(log, pkt, 121, "Flow control capability for T.38 communication", NULL, NULL); octet_bit_field(log, pkt, 122, "K>4", NULL, NULL); octet_bit_field(log, pkt, 123, "Internet aware T.38 mode fax (not affected by data signal rate bits)", NULL, NULL); octet_field(log, pkt, 124, 126, "T.89 (Application profiles for ITU-T Rec T.88)", t89_profile_tags); octet_bit_field(log, pkt, 127, "sYCC-JPEG coding", NULL, NULL); octet_bit_field(log, pkt, 128, "Extension indicator", NULL, NULL); if (!(pkt[18] & DISBIT8)) return; span_log(log, SPAN_LOG_FLOW, " Extended beyond the current T.30 specification!\n"); } /*- End of function --------------------------------------------------------*/ /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/gsm0610_short_term.c0000664000175000017500000002502711422612262017101 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * gsm0610_short_term.c - GSM 06.10 full rate speech codec. * * Written by Steve Underwood * * Copyright (C) 2006 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. * * This code is based on the widely used GSM 06.10 code available from * http://kbs.cs.tu-berlin.de/~jutta/toast.html */ /*! \file */ #if defined(HAVE_CONFIG_H) #include "config.h" #endif #include #include #if defined(HAVE_TGMATH_H) #include #endif #if defined(HAVE_MATH_H) #include #endif #include "floating_fudge.h" #include #include "spandsp/telephony.h" #include "spandsp/fast_convert.h" #include "spandsp/bitstream.h" #include "spandsp/saturated.h" #include "spandsp/gsm0610.h" #include "gsm0610_local.h" /* SHORT TERM ANALYSIS FILTERING SECTION */ /* 4.2.8 */ static void decode_log_area_ratios(int16_t LARc[8], int16_t *LARpp) { int16_t temp1; /* This procedure requires for efficient implementation two tables. INVA[1..8] = integer((32768*8)/real_A[1..8]) MIC[1..8] = minimum value of the LARc[1..8] */ /* Compute the LARpp[1..8] */ #undef STEP #define STEP(B,MIC,INVA) \ temp1 = saturated_add16(*LARc++, MIC) << 10; \ temp1 = saturated_sub16(temp1, B << 1); \ temp1 = gsm_mult_r(INVA, temp1); \ *LARpp++ = saturated_add16(temp1, temp1); STEP( 0, -32, 13107); STEP( 0, -32, 13107); STEP( 2048, -16, 13107); STEP(-2560, -16, 13107); STEP( 94, -8, 19223); STEP(-1792, -8, 17476); STEP( -341, -4, 31454); STEP(-1144, -4, 29708); /* NOTE: the addition of *MIC is used to restore the sign of *LARc. */ } /*- End of function --------------------------------------------------------*/ /* 4.2.9 */ /* Computation of the quantized reflection coefficients */ /* 4.2.9.1 Interpolation of the LARpp[1..8] to get the LARp[1..8] */ /* Within each frame of 160 analyzed speech samples the short term analysis and synthesis filters operate with four different sets of coefficients, derived from the previous set of decoded LARs(LARpp(j - 1)) and the actual set of decoded LARs (LARpp(j)) (Initial value: LARpp(j - 1)[1..8] = 0.) */ static void coefficients_0_12(int16_t *LARpp_j_1, int16_t *LARpp_j, int16_t *LARp) { int i; for (i = 1; i <= 8; i++, LARp++, LARpp_j_1++, LARpp_j++) { *LARp = saturated_add16(*LARpp_j_1 >> 2, *LARpp_j >> 2); *LARp = saturated_add16(*LARp, *LARpp_j_1 >> 1); } /*endfor*/ } /*- End of function --------------------------------------------------------*/ static void coefficients_13_26(int16_t *LARpp_j_1, int16_t *LARpp_j, int16_t *LARp) { int i; for (i = 1; i <= 8; i++, LARpp_j_1++, LARpp_j++, LARp++) *LARp = saturated_add16(*LARpp_j_1 >> 1, *LARpp_j >> 1); /*endfor*/ } /*- End of function --------------------------------------------------------*/ static void coefficients_27_39(int16_t *LARpp_j_1, int16_t *LARpp_j, int16_t *LARp) { int i; for (i = 1; i <= 8; i++, LARpp_j_1++, LARpp_j++, LARp++) { *LARp = saturated_add16(*LARpp_j_1 >> 2, *LARpp_j >> 2); *LARp = saturated_add16(*LARp, *LARpp_j >> 1); } /*endfor*/ } /*- End of function --------------------------------------------------------*/ static void coefficients_40_159(int16_t *LARpp_j, int16_t *LARp) { int i; for (i = 1; i <= 8; i++) *LARp++ = *LARpp_j++; /*endfor*/ } /*- End of function --------------------------------------------------------*/ /* 4.2.9.2 */ static void larp_to_rp(int16_t LARp[8]) { int i; int16_t *LARpx; int16_t temp; /* The input to this procedure is the interpolated LARp[0..7] array. The reflection coefficients, rp[i], are used in the analysis filter and in the synthesis filter. */ LARpx = LARp; for (i = 1; i <= 8; i++, LARpx++) { temp = *LARpx; if (temp < 0) { if (temp == INT16_MIN) temp = INT16_MAX; else temp = -temp; /*endif*/ if (temp < 11059) temp <<= 1; else if (temp < 20070) temp += 11059; else temp = saturated_add16(temp >> 2, 26112); /*endif*/ *LARpx = -temp; } else { if (temp < 11059) temp <<= 1; else if (temp < 20070) temp += 11059; else temp = saturated_add16(temp >> 2, 26112); /*endif*/ *LARpx = temp; } /*endif*/ } /*endfor*/ } /*- End of function --------------------------------------------------------*/ /* 4.2.10 */ static void short_term_analysis_filtering(gsm0610_state_t *s, int16_t rp[8], int k_n, // k_end - k_start int16_t amp[]) // [0..n-1] IN/OUT { /* This procedure computes the short term residual signal d[..] to be fed to the RPE-LTP loop from the s[..] signal and from the local rp[..] array (quantized reflection coefficients). As the call of this procedure can be done in many ways (see the interpolation of the LAR coefficient), it is assumed that the computation begins with index k_start (for arrays d[..] and s[..]) and stops with index k_end (k_start and k_end are defined in 4.2.9.1). This procedure also needs to keep the array u[0..7] in memory for each call. */ int16_t *u0; int16_t *u_top; int i; int16_t *u; int16_t *rpx; int32_t di; int32_t u_out; u0 = s->u; u_top = u0 + 8; for (i = 0; i < k_n; i++) { di = u_out = amp[i]; for (rpx = rp, u = u0; u < u_top; ) { int32_t ui; int32_t rpi; ui = *u; *u++ = (int16_t) u_out; rpi = *rpx++; u_out = ui + (((rpi*di) + 0x4000) >> 15); di = di + (((rpi*ui) + 0x4000) >> 15); u_out = saturate(u_out); di = saturate(di); } /*endfor*/ amp[i] = (int16_t) di; } /*endfor*/ } /*- End of function --------------------------------------------------------*/ static void short_term_synthesis_filtering(gsm0610_state_t *s, int16_t rrp[8], int k, // k_end - k_start int16_t *wt, // [0..k - 1] int16_t *sr) // [0..k - 1] { int16_t *v; int i; int16_t sri; int16_t tmp1; int16_t tmp2; v = s->v; while (k--) { sri = *wt++; for (i = 8; i--; ) { tmp1 = rrp[i]; tmp2 = v[i]; tmp2 = ((tmp1 == INT16_MIN && tmp2 == INT16_MIN) ? INT16_MAX : (int16_t) (((int32_t) tmp1*(int32_t) tmp2 + 16384) >> 15) & 0xFFFF); sri = saturated_sub16(sri, tmp2); tmp1 = ((tmp1 == INT16_MIN && sri == INT16_MIN) ? INT16_MAX : (int16_t) (((int32_t) tmp1*(int32_t) sri + 16384) >> 15) & 0xFFFF); v[i + 1] = saturated_add16(v[i], tmp1); } /*endfor*/ *sr++ = v[0] = sri; } /*endwhile*/ } /*- End of function --------------------------------------------------------*/ void gsm0610_short_term_analysis_filter(gsm0610_state_t *s, int16_t LARc[8], int16_t amp[GSM0610_FRAME_LEN]) { int16_t *LARpp_j; int16_t *LARpp_j_1; int16_t LARp[8]; LARpp_j = s->LARpp[s->j]; LARpp_j_1 = s->LARpp[s->j ^= 1]; decode_log_area_ratios(LARc, LARpp_j); coefficients_0_12(LARpp_j_1, LARpp_j, LARp); larp_to_rp(LARp); short_term_analysis_filtering(s, LARp, 13, amp); coefficients_13_26(LARpp_j_1, LARpp_j, LARp); larp_to_rp(LARp); short_term_analysis_filtering(s, LARp, 14, amp + 13); coefficients_27_39(LARpp_j_1, LARpp_j, LARp); larp_to_rp(LARp); short_term_analysis_filtering(s, LARp, 13, amp + 27); coefficients_40_159(LARpp_j, LARp); larp_to_rp(LARp); short_term_analysis_filtering(s, LARp, 120, amp + 40); } /*- End of function --------------------------------------------------------*/ void gsm0610_short_term_synthesis_filter(gsm0610_state_t *s, int16_t LARcr[8], int16_t wt[GSM0610_FRAME_LEN], int16_t amp[GSM0610_FRAME_LEN]) { int16_t *LARpp_j; int16_t *LARpp_j_1; int16_t LARp[8]; LARpp_j = s->LARpp[s->j]; LARpp_j_1 = s->LARpp[s->j ^= 1]; decode_log_area_ratios(LARcr, LARpp_j); coefficients_0_12(LARpp_j_1, LARpp_j, LARp); larp_to_rp(LARp); short_term_synthesis_filtering(s, LARp, 13, wt, amp); coefficients_13_26(LARpp_j_1, LARpp_j, LARp); larp_to_rp(LARp); short_term_synthesis_filtering(s, LARp, 14, wt + 13, amp + 13); coefficients_27_39(LARpp_j_1, LARpp_j, LARp); larp_to_rp(LARp); short_term_synthesis_filtering(s, LARp, 13, wt + 27, amp + 27); coefficients_40_159(LARpp_j, LARp); larp_to_rp(LARp); short_term_synthesis_filtering(s, LARp, 120, wt + 40, amp + 40); } /*- End of function --------------------------------------------------------*/ /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/t38_non_ecm_buffer.c0000664000175000017500000003614711422612262017210 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * t38_non_ecm_buffer.c - A rate adapting buffer for T.38 non-ECM image * and TCF data * * Written by Steve Underwood * * Copyright (C) 2005, 2006, 2007, 2008 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \file */ #if defined(HAVE_CONFIG_H) #include "config.h" #endif #include #include #include #include #include #include #if defined(HAVE_TGMATH_H) #include #endif #if defined(HAVE_MATH_H) #include #endif #include "floating_fudge.h" #include #include "spandsp/telephony.h" #include "spandsp/logging.h" #include "spandsp/queue.h" #include "spandsp/dc_restore.h" #include "spandsp/bit_operations.h" #include "spandsp/async.h" #include "spandsp/t38_non_ecm_buffer.h" #include "spandsp/private/t38_non_ecm_buffer.h" /* Phases */ enum { TCF_AT_INITIAL_ALL_ONES = 0, TCF_AT_ALL_ZEROS = 1, IMAGE_WAITING_FOR_FIRST_EOL = 2, IMAGE_IN_PROGRESS = 3 }; static void restart_buffer(t38_non_ecm_buffer_state_t *s) { /* This should be called when draining the buffer is complete, which should occur before any fresh data can possibly arrive to begin refilling it. */ s->octet = 0xFF; s->flow_control_fill_octet = 0xFF; s->input_phase = (s->image_data_mode) ? IMAGE_WAITING_FOR_FIRST_EOL : TCF_AT_INITIAL_ALL_ONES; s->bit_stream = 0xFFFF; s->out_ptr = 0; s->in_ptr = 0; s->latest_eol_ptr = 0; s->data_finished = FALSE; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE_NONSTD(int) t38_non_ecm_buffer_get_bit(void *user_data) { t38_non_ecm_buffer_state_t *s; int bit; s = (t38_non_ecm_buffer_state_t *) user_data; if (s->bit_no <= 0) { /* We need another byte */ if (s->out_ptr != s->latest_eol_ptr) { s->octet = s->data[s->out_ptr]; s->out_ptr = (s->out_ptr + 1) & (T38_NON_ECM_TX_BUF_LEN - 1); } else { if (s->data_finished) { /* The queue is empty, and we have received the end of data signal. This must really be the end to transmission. */ restart_buffer(s); return SIG_STATUS_END_OF_DATA; } /* The queue is blocked, but this does not appear to be the end of the data. Idle with fill octets, which should be safe at this point. */ s->octet = s->flow_control_fill_octet; s->flow_control_fill_octets++; } s->out_octets++; s->bit_no = 8; } s->bit_no--; bit = (s->octet >> 7) & 1; s->octet <<= 1; return bit; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) t38_non_ecm_buffer_push(t38_non_ecm_buffer_state_t *s) { /* Don't flow control the data any more. Just push out the remainder of the data in the buffer as fast as we can, and shut down. */ s->latest_eol_ptr = s->in_ptr; s->data_finished = TRUE; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) t38_non_ecm_buffer_inject(t38_non_ecm_buffer_state_t *s, const uint8_t *buf, int len) { int i; int upper; int lower; /* TCF consists of: - zero or more ones, followed by - about 1.5s of zeros There may be a little junk at the end, as the modem shuts down. We can stuff with extra ones in the initial period of all ones, and we can stuff with extra zeros once the zeros start. The thing we need to be wary about is the odd zero bit in the midst of the ones, due to a bit error. */ /* Non-ECM image data consists of: - zero or more ones, followed by - zero or more zeros, followed by - an EOL (end of line), which marks the start of the image, followed by - a succession of data rows, with an EOL at the end of each, followed by - an RTC (return to control) There may be a little junk at the end, as the modem shuts down. An EOL 11 zeros followed by a one in a T.4 1D image or 11 zeros followed by a one followed by a one or a zero in a T.4 2D image. An RTC consists of 6 EOLs in succession, with no pixel data between them. We can stuff with ones until we get the first EOL into our buffer, then we can stuff with zeros in front of each EOL at any point up the the RTC. We should not pad between the EOLs which make up the RTC. Most FAX machines don't care about this, but a few will not recognise the RTC if here is padding between the EOLs. We need to buffer whole rows before we output their beginning, so there is no possibility of underflow mid-row. */ /* FoIP has latency issues, because of the fairly tight timeouts in the T.30 spec. We must ensure our buffering does everything needed to avoid underflows, and to meet the minimum row length requirements imposed by many mechanical FAX machines. We cannot, however, afford to bulk up the data, by sending superfluous bytes. The resulting loop delay could provoke an erroneous timeout of the acknowledgement signal. */ i = 0; switch (s->input_phase) { case TCF_AT_INITIAL_ALL_ONES: /* Dump initial 0xFF bytes. We will add enough of our own to makes things flow smoothly. If we don't strip these off, we might end up delaying the start of forwarding by a substantial amount, as we could end up with a large block of 0xFF bytes before the real data begins. This is especially true with PC FAX systems. This test is very simplistic, as bit errors could confuse it. */ for ( ; i < len; i++) { if (buf[i] != 0xFF) { s->input_phase = TCF_AT_ALL_ZEROS; s->flow_control_fill_octet = 0x00; break; } } /* Fall through */ case TCF_AT_ALL_ZEROS: for ( ; i < len; i++) { s->data[s->in_ptr] = buf[i]; s->latest_eol_ptr = s->in_ptr; /* TODO: We can't buffer overflow, since we wrap around. However, the tail could overwrite itself if things fall badly behind. */ s->in_ptr = (s->in_ptr + 1) & (T38_NON_ECM_TX_BUF_LEN - 1); s->in_octets++; } break; case IMAGE_WAITING_FOR_FIRST_EOL: /* Dump anything up to the first EOL. Let the output side stuff with 0xFF bytes while waiting for that first EOL. What occurs before the first EOL is expected to be a period of all ones and then a period of all zeros. We really don't care what junk might be there. By definition, the image only starts at the first EOL. */ for ( ; i < len; i++) { if (buf[i]) { /* There might be an EOL here. Look for at least 11 zeros, followed by a one, split between two octets. Between those two octets we can insert numerous zero octets as a means of flow control. Note that we stuff in blocks of 8 bits, and not at the minimal level. */ /* Or'ing with 0x800 here is to avoid zero words looking like they have -1 trailing zeros */ upper = bottom_bit(s->bit_stream | 0x800); lower = top_bit(buf[i]); if ((upper - lower) > (11 - 8)) { /* This is an EOL - our first row is beginning. */ s->input_phase = IMAGE_IN_PROGRESS; /* Start a new row */ s->row_bits = lower - 8; s->latest_eol_ptr = s->in_ptr; s->flow_control_fill_octet = 0x00; /* If we push out two bytes of zero, and our latest non-zero byte we should definitely form a proper EOL to begin things, with a few harmless extra zero bits at the front. */ s->data[s->in_ptr] = 0x00; s->in_ptr = (s->in_ptr + 1) & (T38_NON_ECM_TX_BUF_LEN - 1); s->data[s->in_ptr] = 0x00; s->in_ptr = (s->in_ptr + 1) & (T38_NON_ECM_TX_BUF_LEN - 1); s->data[s->in_ptr] = buf[i]; s->in_ptr = (s->in_ptr + 1) & (T38_NON_ECM_TX_BUF_LEN - 1); s->in_octets += 3; s->bit_stream = (s->bit_stream << 8) | buf[i]; i++; break; } } s->bit_stream = (s->bit_stream << 8) | buf[i]; } if (i >= len) break; /* Fall through */ case IMAGE_IN_PROGRESS: /* Now we have seen an EOL, we can stuff with zeros just in front of that EOL, or any subsequent EOL that does not immediately follow a previous EOL (i.e. a candidate RTC). We need to track our way through the image data, allowing the output side to only send up to the last EOL. This prevents the possibility of underflow mid-row, where we cannot safely stuff anything in the bit stream. */ for ( ; i < len; i++) { if (buf[i]) { /* There might be an EOL here. Look for at least 11 zeros, followed by a one, split between two octets. Between those two octets we can insert numerous zero octets as a means of flow control. Note that we stuff in blocks of 8 bits, and not at the minimal level. */ /* Or'ing with 0x800 here is to avoid zero words looking like they have -1 trailing zeros */ upper = bottom_bit(s->bit_stream | 0x800); lower = top_bit(buf[i]); if ((upper - lower) > (11 - 8)) { /* This is an EOL. */ s->row_bits += (8 - lower); /* Make sure we don't stretch back to back EOLs, as that could spoil the RTC. This is a slightly crude check, as we don't know if we are processing a T.4 1D or T.4 2D image. Accepting 12 or 12 bits apart as meaning back to back is fine, as no 1D image row could be 1 bit long. */ if (s->row_bits < 12 || s->row_bits > 13) { /* If the row is too short, extend it in chunks of a whole byte. */ /* TODO: extend by the precise amount we should, instead of this rough approach. */ while (s->row_bits < s->min_bits_per_row) { s->min_row_bits_fill_octets++; s->data[s->in_ptr] = 0; s->row_bits += 8; /* TODO: We can't buffer overflow, since we wrap around. However, the tail could overwrite itself if things fall badly behind. */ s->in_ptr = (s->in_ptr + 1) & (T38_NON_ECM_TX_BUF_LEN - 1); } /* This is now the limit for the output side, before it starts stuffing. */ s->latest_eol_ptr = s->in_ptr; } /* Start a new row */ s->row_bits = lower - 8; s->in_rows++; } } s->bit_stream = (s->bit_stream << 8) | buf[i]; s->data[s->in_ptr] = buf[i]; s->row_bits += 8; /* TODO: We can't buffer overflow, since we wrap around. However, the tail could overwrite itself if things fall badly behind. */ s->in_ptr = (s->in_ptr + 1) & (T38_NON_ECM_TX_BUF_LEN - 1); s->in_octets++; } break; } } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) t38_non_ecm_buffer_report_input_status(t38_non_ecm_buffer_state_t *s, logging_state_t *logging) { if (s->in_octets || s->min_row_bits_fill_octets) { span_log(logging, SPAN_LOG_FLOW, "%d+%d incoming non-ECM octets, %d rows.\n", s->in_octets, s->min_row_bits_fill_octets, s->in_rows); s->in_octets = 0; s->in_rows = 0; s->min_row_bits_fill_octets = 0; } } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) t38_non_ecm_buffer_report_output_status(t38_non_ecm_buffer_state_t *s, logging_state_t *logging) { if (s->out_octets || s->flow_control_fill_octets) { span_log(logging, SPAN_LOG_FLOW, "%d+%d outgoing non-ECM octets, %d rows.\n", s->out_octets - s->flow_control_fill_octets, s->flow_control_fill_octets, s->out_rows); s->out_octets = 0; s->out_rows = 0; s->flow_control_fill_octets = 0; } } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) t38_non_ecm_buffer_set_mode(t38_non_ecm_buffer_state_t *s, int mode, int min_bits_per_row) { s->image_data_mode = mode; s->min_bits_per_row = min_bits_per_row; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(t38_non_ecm_buffer_state_t *) t38_non_ecm_buffer_init(t38_non_ecm_buffer_state_t *s, int mode, int min_bits_per_row) { if (s == NULL) { if ((s = (t38_non_ecm_buffer_state_t *) malloc(sizeof(*s))) == NULL) return NULL; } memset(s, 0, sizeof(*s)); s->image_data_mode = mode; s->min_bits_per_row = min_bits_per_row; restart_buffer(s); return s; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) t38_non_ecm_buffer_release(t38_non_ecm_buffer_state_t *s) { return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) t38_non_ecm_buffer_free(t38_non_ecm_buffer_state_t *s) { if (s) free(s); return 0; } /*- End of function --------------------------------------------------------*/ /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/t30_local.h0000664000175000017500000000222611422612262015317 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * t30_local.h - definitions for T.30 fax processing * * Written by Steve Underwood * * Copyright (C) 2003 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \file */ #if !defined(_T30_LOCAL_H_) #define _T30_LOCAL_H_ #if defined(__cplusplus) extern "C" { #endif int t30_build_dis_or_dtc(t30_state_t *s); #if defined(__cplusplus) } #endif #endif /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/v27ter_rx.c0000664000175000017500000012505711422612263015405 0ustar steveusteveu#define IAXMODEM_STUFF /* * SpanDSP - a series of DSP components for telephony * * v27ter_rx.c - ITU V.27ter modem receive part * * Written by Steve Underwood * * Copyright (C) 2003 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \file */ #if defined(HAVE_CONFIG_H) #include "config.h" #endif #include #include #include #include #if defined(HAVE_TGMATH_H) #include #endif #if defined(HAVE_MATH_H) #include #endif #include "floating_fudge.h" #include "spandsp/telephony.h" #include "spandsp/logging.h" #include "spandsp/complex.h" #include "spandsp/vector_float.h" #include "spandsp/complex_vector_float.h" #include "spandsp/vector_int.h" #include "spandsp/complex_vector_int.h" #include "spandsp/async.h" #include "spandsp/power_meter.h" #include "spandsp/arctan2.h" #include "spandsp/dds.h" #include "spandsp/complex_filters.h" #include "spandsp/v29rx.h" #include "spandsp/v27ter_rx.h" #include "spandsp/private/logging.h" #include "spandsp/private/v27ter_rx.h" #if defined(SPANDSP_USE_FIXED_POINT) #include "v27ter_rx_4800_fixed_rrc.h" #include "v27ter_rx_2400_fixed_rrc.h" #else #include "v27ter_rx_4800_floating_rrc.h" #include "v27ter_rx_2400_floating_rrc.h" #endif /* V.27ter is a DPSK modem, but this code treats it like QAM. It nails down the signal to a static constellation, even though dealing with differences is all that is necessary. */ /*! The nominal frequency of the carrier, in Hertz */ #define CARRIER_NOMINAL_FREQ 1800.0f /*! The nominal baud or symbol rate in 2400bps mode */ #define BAUD_RATE_2400 1200 /*! The nominal baud or symbol rate in 4800bps mode */ #define BAUD_RATE_4800 1600 /*! The adaption rate coefficient for the equalizer */ #define EQUALIZER_DELTA 0.25f #if defined(SPANDSP_USE_FIXED_POINT) #define FP_FACTOR 4096 #define FP_SHIFT_FACTOR 12 #endif /* Segments of the training sequence */ /* V.27ter defines a long and a short sequence. FAX doesn't use the short sequence, so it is not implemented here. */ /*! The length of training segment 3, in symbols */ #define V27TER_TRAINING_SEG_3_LEN 50 /*! The length of training segment 5, in symbols */ #define V27TER_TRAINING_SEG_5_LEN 1074 /*! The length of training segment 6, in symbols */ #define V27TER_TRAINING_SEG_6_LEN 8 enum { TRAINING_STAGE_NORMAL_OPERATION = 0, TRAINING_STAGE_SYMBOL_ACQUISITION, TRAINING_STAGE_LOG_PHASE, TRAINING_STAGE_WAIT_FOR_HOP, TRAINING_STAGE_TRAIN_ON_ABAB, TRAINING_STAGE_TEST_ONES, TRAINING_STAGE_PARKED }; #if defined(SPANDSP_USE_FIXED_POINTx) static const complexi16_t v27ter_constellation[8] = { {((int)(FP_FACTOR* 1.414f), ((int)(FP_FACTOR* 0.0f)}, /* 0deg */ {((int)(FP_FACTOR* 1.0f), ((int)(FP_FACTOR* 1.0f)}, /* 45deg */ {((int)(FP_FACTOR* 0.0f), ((int)(FP_FACTOR* 1.414f)}, /* 90deg */ {((int)(FP_FACTOR*-1.0f), ((int)(FP_FACTOR* 1.0f)}, /* 135deg */ {((int)(FP_FACTOR*-1.414f), ((int)(FP_FACTOR* 0.0f)}, /* 180deg */ {((int)(FP_FACTOR*-1.0f), ((int)(FP_FACTOR*-1.0f)}, /* 225deg */ {((int)(FP_FACTOR* 0.0f), ((int)(FP_FACTOR*-1.414f)}, /* 270deg */ {((int)(FP_FACTOR* 1.0f), ((int)(FP_FACTOR*-1.0f)} /* 315deg */ }; #else static const complexf_t v27ter_constellation[8] = { { 1.414f, 0.0f}, /* 0deg */ { 1.0f, 1.0f}, /* 45deg */ { 0.0f, 1.414f}, /* 90deg */ {-1.0f, 1.0f}, /* 135deg */ {-1.414f, 0.0f}, /* 180deg */ {-1.0f, -1.0f}, /* 225deg */ { 0.0f, -1.414f}, /* 270deg */ { 1.0f, -1.0f} /* 315deg */ }; #endif SPAN_DECLARE(float) v27ter_rx_carrier_frequency(v27ter_rx_state_t *s) { return dds_frequencyf(s->carrier_phase_rate); } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(float) v27ter_rx_symbol_timing_correction(v27ter_rx_state_t *s) { int steps_per_symbol; steps_per_symbol = (s->bit_rate == 4800) ? RX_PULSESHAPER_4800_COEFF_SETS*5 : RX_PULSESHAPER_2400_COEFF_SETS*20/3; return (float) s->total_baud_timing_correction/(float) steps_per_symbol; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(float) v27ter_rx_signal_power(v27ter_rx_state_t *s) { return power_meter_current_dbm0(&s->power) + 3.98f; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) v27ter_rx_signal_cutoff(v27ter_rx_state_t *s, float cutoff) { /* The 0.4 factor allows for the gain of the DC blocker */ s->carrier_on_power = (int32_t) (power_meter_level_dbm0(cutoff + 2.5f)*0.4f); s->carrier_off_power = (int32_t) (power_meter_level_dbm0(cutoff - 2.5f)*0.4f); } /*- End of function --------------------------------------------------------*/ static void report_status_change(v27ter_rx_state_t *s, int status) { if (s->status_handler) s->status_handler(s->status_user_data, status); else if (s->put_bit) s->put_bit(s->put_bit_user_data, status); } /*- End of function --------------------------------------------------------*/ #if defined(SPANDSP_USE_FIXED_POINTx) SPAN_DECLARE(int) v27ter_rx_equalizer_state(v27ter_rx_state_t *s, complexi16_t **coeffs) #else SPAN_DECLARE(int) v27ter_rx_equalizer_state(v27ter_rx_state_t *s, complexf_t **coeffs) #endif { *coeffs = s->eq_coeff; return V27TER_EQUALIZER_LEN; } /*- End of function --------------------------------------------------------*/ static void equalizer_save(v27ter_rx_state_t *s) { #if defined(SPANDSP_USE_FIXED_POINTx) cvec_copyi16(s->eq_coeff_save, s->eq_coeff, V27TER_EQUALIZER_LEN); #else cvec_copyf(s->eq_coeff_save, s->eq_coeff, V27TER_EQUALIZER_LEN); #endif } /*- End of function --------------------------------------------------------*/ static void equalizer_restore(v27ter_rx_state_t *s) { #if defined(SPANDSP_USE_FIXED_POINTx) cvec_copyi16(s->eq_coeff, s->eq_coeff_save, V27TER_EQUALIZER_LEN); cvec_zeroi16(s->eq_buf, V27TER_EQUALIZER_LEN); s->eq_delta = 32768.0f*EQUALIZER_DELTA/V27TER_EQUALIZER_LEN); #else cvec_copyf(s->eq_coeff, s->eq_coeff_save, V27TER_EQUALIZER_LEN); cvec_zerof(s->eq_buf, V27TER_EQUALIZER_LEN); s->eq_delta = EQUALIZER_DELTA/V27TER_EQUALIZER_LEN; #endif s->eq_put_step = (s->bit_rate == 4800) ? RX_PULSESHAPER_4800_COEFF_SETS*5/2 : RX_PULSESHAPER_2400_COEFF_SETS*20/(3*2); s->eq_step = 0; } /*- End of function --------------------------------------------------------*/ static void equalizer_reset(v27ter_rx_state_t *s) { /* Start with an equalizer based on everything being perfect. */ #if defined(SPANDSP_USE_FIXED_POINTx) cvec_zeroi16(s->eq_coeff, V27TER_EQUALIZER_LEN); s->eq_coeff[V27TER_EQUALIZER_PRE_LEN + 1] = complex_seti16(1.414f*FP_FACTOR, 0); cvec_zeroi16(s->eq_buf, V27TER_EQUALIZER_LEN); s->eq_delta = 32768.0f*EQUALIZER_DELTA/V27TER_EQUALIZER_LEN); #else cvec_zerof(s->eq_coeff, V27TER_EQUALIZER_LEN); s->eq_coeff[V27TER_EQUALIZER_PRE_LEN + 1] = complex_setf(1.414f, 0.0f); cvec_zerof(s->eq_buf, V27TER_EQUALIZER_LEN); s->eq_delta = EQUALIZER_DELTA/V27TER_EQUALIZER_LEN; #endif s->eq_put_step = (s->bit_rate == 4800) ? RX_PULSESHAPER_4800_COEFF_SETS*5/2 : RX_PULSESHAPER_2400_COEFF_SETS*20/(3*2); s->eq_step = 0; } /*- End of function --------------------------------------------------------*/ #if defined(SPANDSP_USE_FIXED_POINTx) static __inline__ complexi16_t complex_mul_q4_12(const complexi16_t *x, const complexi16_t *y) { complexi16_t z; z.re = ((int32_t) x->re*(int32_t) y->re - (int32_t) x->im*(int32_t) y->im) >> 12; z.im = ((int32_t) x->re*(int32_t) y->im + (int32_t) x->im*(int32_t) y->re) >> 12; return z; } /*- End of function --------------------------------------------------------*/ #endif #if defined(SPANDSP_USE_FIXED_POINTx) static __inline__ complexi16_t equalizer_get(v27ter_rx_state_t *s) #else static __inline__ complexf_t equalizer_get(v27ter_rx_state_t *s) #endif { #if defined(SPANDSP_USE_FIXED_POINTx) complexi32_t zz; complexi16_t z; /* Get the next equalized value. */ zz = cvec_circular_dot_prodi16(s->eq_buf, s->eq_coeff, V27TER_EQUALIZER_LEN, s->eq_step); z.re = zz.re >> FP_SHIFT_FACTOR; z.im = zz.im >> FP_SHIFT_FACTOR; return z; #else /* Get the next equalized value. */ return cvec_circular_dot_prodf(s->eq_buf, s->eq_coeff, V27TER_EQUALIZER_LEN, s->eq_step); #endif } /*- End of function --------------------------------------------------------*/ #if defined(SPANDSP_USE_FIXED_POINTx) static void tune_equalizer(v27ter_rx_state_t *s, const complexi16_t *z, const complexi16_t *target) { complexi16_t err; /* Find the x and y mismatch from the exact constellation position. */ err.re = target->re*FP_FACTOR - z->re; err.im = target->im*FP_FACTOR - z->im; err.re = ((int32_t) err.re*(int32_t) s->eq_delta) >> 15; err.im = ((int32_t) err.im*(int32_t) s->eq_delta) >> 15; cvec_circular_lmsi16(s->eq_buf, s->eq_coeff, V27TER_EQUALIZER_LEN, s->eq_step, &err); } #else static void tune_equalizer(v27ter_rx_state_t *s, const complexf_t *z, const complexf_t *target) { complexf_t err; /* Find the x and y mismatch from the exact constellation position. */ err = complex_subf(target, z); err.re *= s->eq_delta; err.im *= s->eq_delta; cvec_circular_lmsf(s->eq_buf, s->eq_coeff, V27TER_EQUALIZER_LEN, s->eq_step, &err); } #endif /*- End of function --------------------------------------------------------*/ #if defined(SPANDSP_USE_FIXED_POINTx) static __inline__ int find_quadrant(const complexi16_t *z) #else static __inline__ int find_quadrant(const complexf_t *z) #endif { int b1; int b2; /* Split the space along the two diagonals. */ b1 = (z->im > z->re); b2 = (z->im < -z->re); return (b2 << 1) | (b1 ^ b2); } /*- End of function --------------------------------------------------------*/ #if defined(SPANDSP_USE_FIXED_POINTx) static __inline__ int find_octant(complexi16_t *z) #else static __inline__ int find_octant(complexf_t *z) #endif { float abs_re; float abs_im; int b1; int b2; int bits; /* Are we near an axis or a diagonal? */ abs_re = fabsf(z->re); abs_im = fabsf(z->im); if (abs_im > abs_re*0.4142136f && abs_im < abs_re*2.4142136f) { /* Split the space along the two axes. */ b1 = (z->re < 0.0f); b2 = (z->im < 0.0f); bits = (b2 << 2) | ((b1 ^ b2) << 1) | 1; } else { /* Split the space along the two diagonals. */ b1 = (z->im > z->re); b2 = (z->im < -z->re); bits = (b2 << 2) | ((b1 ^ b2) << 1); } return bits; } /*- End of function --------------------------------------------------------*/ #if defined(SPANDSP_USE_FIXED_POINTx) static __inline__ void track_carrier(v27ter_rx_state_t *s, const complexi16_t *z, const complexi16_t *target) #else static __inline__ void track_carrier(v27ter_rx_state_t *s, const complexf_t *z, const complexf_t *target) #endif { #if defined(SPANDSP_USE_FIXED_POINTx) int32_t error; #else float error; #endif /* For small errors the imaginary part of the difference between the actual and the target positions is proportional to the phase error, for any particular target. However, the different amplitudes of the various target positions scale things. */ error = z->im*target->re - z->re*target->im; #if defined(SPANDSP_USE_FIXED_POINTx) error /= (float) FP_FACTOR; s->carrier_phase_rate += (int32_t) (s->carrier_track_i*error); s->carrier_phase += (int32_t) (s->carrier_track_p*error); #else s->carrier_phase_rate += (int32_t) (s->carrier_track_i*error); s->carrier_phase += (int32_t) (s->carrier_track_p*error); //span_log(&s->logging, SPAN_LOG_FLOW, "Im = %15.5f f = %15.5f\n", error, dds_frequencyf(s->carrier_phase_rate)); #endif } /*- End of function --------------------------------------------------------*/ static __inline__ int descramble(v27ter_rx_state_t *s, int in_bit) { int out_bit; out_bit = (in_bit ^ (s->scramble_reg >> 5) ^ (s->scramble_reg >> 6)) & 1; if (s->scrambler_pattern_count >= 33) { out_bit ^= 1; s->scrambler_pattern_count = 0; } else { if (s->training_stage > TRAINING_STAGE_NORMAL_OPERATION && s->training_stage < TRAINING_STAGE_TEST_ONES) { s->scrambler_pattern_count = 0; } else { if ((((s->scramble_reg >> 7) ^ in_bit) & ((s->scramble_reg >> 8) ^ in_bit) & ((s->scramble_reg >> 11) ^ in_bit) & 1)) s->scrambler_pattern_count = 0; else s->scrambler_pattern_count++; } } s->scramble_reg <<= 1; if (s->training_stage > TRAINING_STAGE_NORMAL_OPERATION && s->training_stage < TRAINING_STAGE_TEST_ONES) s->scramble_reg |= out_bit; else s->scramble_reg |= in_bit; return out_bit; } /*- End of function --------------------------------------------------------*/ static __inline__ void put_bit(v27ter_rx_state_t *s, int bit) { int out_bit; bit &= 1; out_bit = descramble(s, bit); /* We need to strip the last part of the training before we let data go to the application. */ if (s->training_stage == TRAINING_STAGE_NORMAL_OPERATION) { s->put_bit(s->put_bit_user_data, out_bit); } else { //span_log(&s->logging, SPAN_LOG_FLOW, "Test bit %d\n", out_bit); /* The bits during the final stage of training should be all ones. However, buggy modems mean you cannot rely on this. Therefore we don't bother testing for ones, but just rely on a constellation mismatch measurement. */ } } /*- End of function --------------------------------------------------------*/ #if defined(SPANDSP_USE_FIXED_POINTx) static void decode_baud(v27ter_rx_state_t *s, complexi16_t *z) #else static void decode_baud(v27ter_rx_state_t *s, complexf_t *z) #endif { static const uint8_t phase_steps_4800[8] = { 4, 0, 2, 6, 7, 3, 1, 5 }; static const uint8_t phase_steps_2400[4] = { 0, 2, 3, 1 }; int nearest; int raw_bits; if (s->bit_rate == 2400) { nearest = find_quadrant(z); raw_bits = phase_steps_2400[(nearest - s->constellation_state) & 3]; put_bit(s, raw_bits); put_bit(s, raw_bits >> 1); s->constellation_state = nearest; nearest <<= 1; } else { nearest = find_octant(z); raw_bits = phase_steps_4800[(nearest - s->constellation_state) & 7]; put_bit(s, raw_bits); put_bit(s, raw_bits >> 1); put_bit(s, raw_bits >> 2); s->constellation_state = nearest; } track_carrier(s, z, &v27ter_constellation[nearest]); if (--s->eq_skip <= 0) { /* Once we are in the data the equalization should not need updating. However, the line characteristics may slowly drift. We, therefore, tune up on the occassional sample, keeping the compute down. */ s->eq_skip = 100; tune_equalizer(s, z, &v27ter_constellation[nearest]); } } /*- End of function --------------------------------------------------------*/ static __inline__ void symbol_sync(v27ter_rx_state_t *s) { float p; float q; /* This routine adapts the position of the half baud samples entering the equalizer. */ /* Perform a Gardner test for baud alignment */ p = s->eq_buf[(s->eq_step - 3) & (V27TER_EQUALIZER_LEN - 1)].re - s->eq_buf[(s->eq_step - 1) & (V27TER_EQUALIZER_LEN - 1)].re; p *= s->eq_buf[(s->eq_step - 2) & (V27TER_EQUALIZER_LEN - 1)].re; q = s->eq_buf[(s->eq_step - 3) & (V27TER_EQUALIZER_LEN - 1)].im - s->eq_buf[(s->eq_step - 1) & (V27TER_EQUALIZER_LEN - 1)].im; q *= s->eq_buf[(s->eq_step - 2) & (V27TER_EQUALIZER_LEN - 1)].im; s->gardner_integrate += (p + q > 0.0f) ? s->gardner_step : -s->gardner_step; if (abs(s->gardner_integrate) >= 256) { /* This integrate and dump approach avoids rapid changes of the equalizer put step. Rapid changes, without hysteresis, are bad. They degrade the equalizer performance when the true symbol boundary is close to a sample boundary. */ //span_log(&s->logging, SPAN_LOG_FLOW, "Hop %d\n", s->gardner_integrate); s->eq_put_step += (s->gardner_integrate/256); s->total_baud_timing_correction += (s->gardner_integrate/256); if (s->qam_report) s->qam_report(s->qam_user_data, NULL, NULL, s->gardner_integrate); s->gardner_integrate = 0; } //span_log(&s->logging, SPAN_LOG_FLOW, "Gardner=%10.5f 0x%X\n", p, s->eq_put_step); } /*- End of function --------------------------------------------------------*/ #if defined(SPANDSP_USE_FIXED_POINT) static __inline__ void process_half_baud(v27ter_rx_state_t *s, const complexi16_t *sample) #else static __inline__ void process_half_baud(v27ter_rx_state_t *s, const complexf_t *sample) #endif { static const int abab_pos[2] = { 0, 4 }; complexf_t zz; #if defined(SPANDSP_USE_FIXED_POINTx) complexf_t z1; complexi16_t z; const complexi16_t *target; static const complexi16_t zero = {0, 0}; #else complexf_t z; const complexf_t *target; static const complexf_t zero = {0.0f, 0.0f}; #endif float p; int i; int j; int32_t angle; int32_t ang; int constellation_state; /* Add a sample to the equalizer's circular buffer, but don't calculate anything at this time. */ #if defined(SPANDSP_USE_FIXED_POINT) s->eq_buf[s->eq_step].re = sample->re/(float) FP_FACTOR; s->eq_buf[s->eq_step].im = sample->im/(float) FP_FACTOR; #else s->eq_buf[s->eq_step] = *sample; #endif if (++s->eq_step >= V27TER_EQUALIZER_LEN) s->eq_step = 0; /* On alternate insertions we have a whole baud, and must process it. */ if ((s->baud_half ^= 1)) return; symbol_sync(s); z = equalizer_get(s); //span_log(&s->logging, SPAN_LOG_FLOW, "Equalized symbol - %15.5f %15.5f\n", z.re, z.im); constellation_state = s->constellation_state; switch (s->training_stage) { case TRAINING_STAGE_NORMAL_OPERATION: decode_baud(s, &z); constellation_state = (s->bit_rate == 4800) ? s->constellation_state : (s->constellation_state << 1); target = &v27ter_constellation[constellation_state]; break; case TRAINING_STAGE_SYMBOL_ACQUISITION: /* Allow time for the Gardner algorithm to settle the baud timing */ /* Don't start narrowing the bandwidth of the Gardner algorithm too early. Some modems are a bit wobbly when they start sending the signal. Also, we start this analysis before our filter buffers have completely filled. */ target = &zero; if (++s->training_count >= 30) { s->gardner_step = 32; s->training_stage = TRAINING_STAGE_LOG_PHASE; s->angles[0] = s->start_angles[0] = arctan2(z.im, z.re); } break; case TRAINING_STAGE_LOG_PHASE: /* Record the current alternate phase angle */ target = &zero; angle = arctan2(z.im, z.re); s->angles[1] = s->start_angles[1] = angle; s->training_count = 1; s->training_stage = TRAINING_STAGE_WAIT_FOR_HOP; break; case TRAINING_STAGE_WAIT_FOR_HOP: target = &zero; angle = arctan2(z.im, z.re); /* Look for the initial ABAB sequence to display a phase reversal, which will signal the start of the scrambled ABAB segment */ ang = angle - s->angles[(s->training_count - 1) & 0xF]; s->angles[(s->training_count + 1) & 0xF] = angle; if ((ang > 0x20000000 || ang < -0x20000000) && s->training_count >= 3) { /* We seem to have a phase reversal */ /* Slam the carrier frequency into line, based on the total phase drift over the last section. Use the shift from the odd bits and the shift from the even bits to get better jitter suppression. We need to scale here, or at the maximum specified frequency deviation we could overflow, and get a silly answer. */ /* Step back a few symbols so we don't get ISI distorting things. */ i = (s->training_count - 8) & ~1; /* Avoid the possibility of a divide by zero */ if (i) { j = i & 0xF; ang = (s->angles[j] - s->start_angles[0])/i + (s->angles[j | 0x1] - s->start_angles[1])/i; if (s->bit_rate == 4800) s->carrier_phase_rate += ang/10; else s->carrier_phase_rate += 3*(ang/40); } span_log(&s->logging, SPAN_LOG_FLOW, "Coarse carrier frequency %7.2f (%d)\n", dds_frequencyf(s->carrier_phase_rate), s->training_count); /* Check if the carrier frequency is plausible */ if (s->carrier_phase_rate < dds_phase_ratef(CARRIER_NOMINAL_FREQ - 20.0f) || s->carrier_phase_rate > dds_phase_ratef(CARRIER_NOMINAL_FREQ + 20.0f)) { span_log(&s->logging, SPAN_LOG_FLOW, "Training failed (sequence failed)\n"); /* Park this modem */ s->training_stage = TRAINING_STAGE_PARKED; report_status_change(s, SIG_STATUS_TRAINING_FAILED); break; } /* Make a step shift in the phase, to pull it into line. We need to rotate the equalizer buffer, as well as the carrier phase, for this to play out nicely. */ angle += 0x80000000; p = angle*2.0f*3.14159f/(65536.0f*65536.0f); #if defined(SPANDSP_USE_FIXED_POINTx) zz = complex_setf(cosf(p), -sinf(p)); for (i = 0; i < V27TER_EQUALIZER_LEN; i++) { z1 = complex_setf(s->eq_buf[i].re, s->eq_buf[i].im); z1 = complex_mulf(&z1, &zz); s->eq_buf[i].re = z1.re; s->eq_buf[i].im = z1.im; } #else zz = complex_setf(cosf(p), -sinf(p)); for (i = 0; i < V27TER_EQUALIZER_LEN; i++) s->eq_buf[i] = complex_mulf(&s->eq_buf[i], &zz); #endif s->carrier_phase += angle; s->gardner_step = 2; /* We have just seen the first element of the scrambled sequence so skip it. */ s->training_bc = 1; s->training_bc ^= descramble(s, 1); descramble(s, 1); descramble(s, 1); constellation_state = s->constellation_state = abab_pos[s->training_bc]; target = &v27ter_constellation[constellation_state]; s->training_count = 1; s->training_stage = TRAINING_STAGE_TRAIN_ON_ABAB; report_status_change(s, SIG_STATUS_TRAINING_IN_PROGRESS); } else if (++s->training_count > V27TER_TRAINING_SEG_3_LEN) { /* This is bogus. There are not this many bits in this section of a real training sequence. */ span_log(&s->logging, SPAN_LOG_FLOW, "Training failed (sequence failed)\n"); /* Park this modem */ s->training_stage = TRAINING_STAGE_PARKED; report_status_change(s, SIG_STATUS_TRAINING_FAILED); } break; case TRAINING_STAGE_TRAIN_ON_ABAB: /* Train on the scrambled ABAB section */ s->training_bc ^= descramble(s, 1); descramble(s, 1); descramble(s, 1); constellation_state = s->constellation_state = abab_pos[s->training_bc]; target = &v27ter_constellation[constellation_state]; track_carrier(s, &z, target); tune_equalizer(s, &z, target); #if defined(SPANDSP_USE_FIXED_POINTx) s->carrier_track_i = 400 + (200000 - 400)*(float) (V27TER_TRAINING_SEG_5_LEN - s->training_count)/(float) V27TER_TRAINING_SEG_5_LEN; s->carrier_track_p = 1000000 + (10000000 - 1000000)*(float) (V27TER_TRAINING_SEG_5_LEN - s->training_count)/(float) V27TER_TRAINING_SEG_5_LEN; #else s->carrier_track_i = 400.0f + (200000.0f - 400.0f)*(float) (V27TER_TRAINING_SEG_5_LEN - s->training_count)/(float) V27TER_TRAINING_SEG_5_LEN; s->carrier_track_p = 1000000.0f + (10000000.0f - 1000000.0f)*(float) (V27TER_TRAINING_SEG_5_LEN - s->training_count)/(float) V27TER_TRAINING_SEG_5_LEN; #endif if (++s->training_count >= V27TER_TRAINING_SEG_5_LEN) { constellation_state = 4; s->constellation_state = (s->bit_rate == 4800) ? 4 : 2; s->training_count = 0; s->training_stage = TRAINING_STAGE_TEST_ONES; } break; case TRAINING_STAGE_TEST_ONES: decode_baud(s, &z); constellation_state = (s->bit_rate == 4800) ? s->constellation_state : (s->constellation_state << 1); target = &v27ter_constellation[constellation_state]; /* Measure the training error */ #if defined(SPANDSP_USE_FIXED_POINTx) z1.re = z.re/(float) FP_FACTOR; z1.im = z.im/(float) FP_FACTOR; zz.re = target->re; zz.im = target->im; zz = complex_subf(&z1, &zz); s->training_error += powerf(&zz); #else zz = complex_subf(&z, target); s->training_error += powerf(&zz); #endif if (++s->training_count >= V27TER_TRAINING_SEG_6_LEN) { /* At 4800bps the symbols are 1.08238 (Euclidian) apart. At 2400bps the symbols are 2.0 (Euclidian) apart. */ if ((s->bit_rate == 4800 && s->training_error < V27TER_TRAINING_SEG_6_LEN*0.25f) || (s->bit_rate == 2400 && s->training_error < V27TER_TRAINING_SEG_6_LEN*0.5f)) { /* We are up and running */ span_log(&s->logging, SPAN_LOG_FLOW, "Training succeeded at %dbps (constellation mismatch %f)\n", s->bit_rate, s->training_error); report_status_change(s, SIG_STATUS_TRAINING_SUCCEEDED); /* Apply some lag to the carrier off condition, to ensure the last few bits get pushed through the processing. */ s->signal_present = (s->bit_rate == 4800) ? 90 : 120; s->training_stage = TRAINING_STAGE_NORMAL_OPERATION; equalizer_save(s); s->carrier_phase_rate_save = s->carrier_phase_rate; s->agc_scaling_save = s->agc_scaling; } else { /* Training has failed */ span_log(&s->logging, SPAN_LOG_FLOW, "Training failed (constellation mismatch %f)\n", s->training_error); /* Park this modem */ s->training_stage = TRAINING_STAGE_PARKED; report_status_change(s, SIG_STATUS_TRAINING_FAILED); } } break; case TRAINING_STAGE_PARKED: default: /* We failed to train! */ /* Park here until the carrier drops. */ target = &zero; break; } if (s->qam_report) { #if defined(SPANDSP_USE_FIXED_POINTx) z1.re = z.re/(float) FP_FACTOR; z1.im = z.im/(float) FP_FACTOR; zz.re = target->re; zz.im = target->im; s->qam_report(s->qam_user_data, &z1, &zz, s->constellation_state); #else s->qam_report(s->qam_user_data, &z, target, s->constellation_state); #endif } } /*- End of function --------------------------------------------------------*/ static __inline__ int signal_detect(v27ter_rx_state_t *s, int16_t amp) { int16_t diff; int16_t x; int32_t power; /* There should be no DC in the signal, but sometimes there is. We need to measure the power with the DC blocked, but not using a slow to respond DC blocker. Use the most elementary HPF. */ x = amp >> 1; /* There could be overflow here, but it isn't a problem in practice */ diff = x - s->last_sample; s->last_sample = x; power = power_meter_update(&(s->power), diff); #if defined(IAXMODEM_STUFF) /* Quick power drop fudge */ diff = abs(diff); if (10*diff < s->high_sample) { if (++s->low_samples > 120) { power_meter_init(&(s->power), 4); s->high_sample = 0; s->low_samples = 0; } } else { s->low_samples = 0; if (diff > s->high_sample) s->high_sample = diff; } #endif //span_log(&s->logging, SPAN_LOG_FLOW, "Power = %f\n", power_meter_current_dbm0(&(s->power))); if (s->signal_present > 0) { /* Look for power below turn-off threshold to turn the carrier off */ #if defined(IAXMODEM_STUFF) if (s->carrier_drop_pending || power < s->carrier_off_power) #else if (power < s->carrier_off_power) #endif { if (--s->signal_present <= 0) { /* Count down a short delay, to ensure we push the last few bits through the filters before stopping. */ v27ter_rx_restart(s, s->bit_rate, FALSE); report_status_change(s, SIG_STATUS_CARRIER_DOWN); return 0; } #if defined(IAXMODEM_STUFF) /* Carrier has dropped, but the put_bit is pending the signal_present delay. */ s->carrier_drop_pending = TRUE; #endif } } else { /* Look for power exceeding turn-on threshold to turn the carrier on */ if (power < s->carrier_on_power) return 0; s->signal_present = 1; #if defined(IAXMODEM_STUFF) s->carrier_drop_pending = FALSE; #endif report_status_change(s, SIG_STATUS_CARRIER_UP); } return power; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE_NONSTD(int) v27ter_rx(v27ter_rx_state_t *s, const int16_t amp[], int len) { int i; int step; #if defined(SPANDSP_USE_FIXED_POINT) complexi16_t z; complexi16_t zz; complexi16_t sample; int32_t v; #else complexf_t z; complexf_t zz; complexf_t sample; float v; #endif int32_t power; if (s->bit_rate == 4800) { for (i = 0; i < len; i++) { s->rrc_filter[s->rrc_filter_step] = amp[i]; if (++s->rrc_filter_step >= V27TER_RX_4800_FILTER_STEPS) s->rrc_filter_step = 0; if ((power = signal_detect(s, amp[i])) == 0) continue; /* Only spend effort processing this data if the modem is not parked, after training failure. */ if (s->training_stage == TRAINING_STAGE_PARKED) continue; /* Put things into the equalization buffer at T/2 rate. The Gardner algorithm will fiddle the step to align this with the symbols. */ if ((s->eq_put_step -= RX_PULSESHAPER_4800_COEFF_SETS) <= 0) { if (s->training_stage == TRAINING_STAGE_SYMBOL_ACQUISITION) { /* Only AGC during the initial training */ #if defined(SPANDSP_USE_FIXED_POINT) s->agc_scaling = (float) FP_FACTOR*32768.0f*(1.0f/RX_PULSESHAPER_4800_GAIN)*1.414f/sqrtf(power); #else s->agc_scaling = (1.0f/RX_PULSESHAPER_4800_GAIN)*1.414f/sqrtf(power); #endif } /* Pulse shape while still at the carrier frequency, using a quadrature pair of filters. This results in a properly bandpass filtered complex signal, which can be brought directly to baseband by complex mixing. No further filtering, to remove mixer harmonics, is needed. */ step = -s->eq_put_step; if (step > RX_PULSESHAPER_4800_COEFF_SETS - 1) step = RX_PULSESHAPER_4800_COEFF_SETS - 1; s->eq_put_step += RX_PULSESHAPER_4800_COEFF_SETS*5/2; #if defined(SPANDSP_USE_FIXED_POINT) v = vec_circular_dot_prodi16(s->rrc_filter, rx_pulseshaper_4800_re[step], V27TER_RX_FILTER_STEPS, s->rrc_filter_step); sample.re = (v*(int32_t) s->agc_scaling) >> 15; v = vec_circular_dot_prodi16(s->rrc_filter, rx_pulseshaper_4800_im[step], V27TER_RX_FILTER_STEPS, s->rrc_filter_step); sample.im = (v*(int32_t) s->agc_scaling) >> 15; z = dds_lookup_complexi16(s->carrier_phase); zz.re = ((int32_t) sample.re*(int32_t) z.re - (int32_t) sample.im*(int32_t) z.im) >> 15; zz.im = ((int32_t) -sample.re*(int32_t) z.im - (int32_t) sample.im*(int32_t) z.re) >> 15; #else v = vec_circular_dot_prodf(s->rrc_filter, rx_pulseshaper_4800_re[step], V27TER_RX_FILTER_STEPS, s->rrc_filter_step); sample.re = v*s->agc_scaling; v = vec_circular_dot_prodf(s->rrc_filter, rx_pulseshaper_4800_im[step], V27TER_RX_FILTER_STEPS, s->rrc_filter_step); sample.im = v*s->agc_scaling; z = dds_lookup_complexf(s->carrier_phase); zz.re = sample.re*z.re - sample.im*z.im; zz.im = -sample.re*z.im - sample.im*z.re; #endif process_half_baud(s, &zz); } #if defined(SPANDSP_USE_FIXED_POINT) dds_advance(&s->carrier_phase, s->carrier_phase_rate); #else dds_advancef(&s->carrier_phase, s->carrier_phase_rate); #endif } } else { for (i = 0; i < len; i++) { s->rrc_filter[s->rrc_filter_step] = amp[i]; if (++s->rrc_filter_step >= V27TER_RX_2400_FILTER_STEPS) s->rrc_filter_step = 0; if ((power = signal_detect(s, amp[i])) == 0) continue; /* Only spend effort processing this data if the modem is not parked, after training failure. */ if (s->training_stage == TRAINING_STAGE_PARKED) continue; /* Put things into the equalization buffer at T/2 rate. The Gardner algorithm will fiddle the step to align this with the symbols. */ if ((s->eq_put_step -= RX_PULSESHAPER_2400_COEFF_SETS) <= 0) { if (s->training_stage == TRAINING_STAGE_SYMBOL_ACQUISITION) { /* Only AGC during the initial training */ #if defined(SPANDSP_USE_FIXED_POINT) s->agc_scaling = (float) FP_FACTOR*32768.0f*(1.0f/RX_PULSESHAPER_2400_GAIN)*1.414f/sqrtf(power); #else s->agc_scaling = (1.0f/RX_PULSESHAPER_2400_GAIN)*1.414f/sqrtf(power); #endif } /* Pulse shape while still at the carrier frequency, using a quadrature pair of filters. This results in a properly bandpass filtered complex signal, which can be brought directly to bandband by complex mixing. No further filtering, to remove mixer harmonics, is needed. */ step = -s->eq_put_step; if (step > RX_PULSESHAPER_2400_COEFF_SETS - 1) step = RX_PULSESHAPER_2400_COEFF_SETS - 1; s->eq_put_step += RX_PULSESHAPER_2400_COEFF_SETS*20/(3*2); #if defined(SPANDSP_USE_FIXED_POINT) v = vec_circular_dot_prodi16(s->rrc_filter, rx_pulseshaper_2400_re[step], V27TER_RX_FILTER_STEPS, s->rrc_filter_step); sample.re = (v*(int32_t) s->agc_scaling) >> 15; v = vec_circular_dot_prodi16(s->rrc_filter, rx_pulseshaper_2400_im[step], V27TER_RX_FILTER_STEPS, s->rrc_filter_step); sample.im = (v*(int32_t) s->agc_scaling) >> 15; z = dds_lookup_complexi16(s->carrier_phase); zz.re = ((int32_t) sample.re*(int32_t) z.re - (int32_t) sample.im*(int32_t) z.im) >> 15; zz.im = ((int32_t) -sample.re*(int32_t) z.im - (int32_t) sample.im*(int32_t) z.re) >> 15; #else v = vec_circular_dot_prodf(s->rrc_filter, rx_pulseshaper_2400_re[step], V27TER_RX_FILTER_STEPS, s->rrc_filter_step); sample.re = v*s->agc_scaling; v = vec_circular_dot_prodf(s->rrc_filter, rx_pulseshaper_2400_im[step], V27TER_RX_FILTER_STEPS, s->rrc_filter_step); sample.im = v*s->agc_scaling; z = dds_lookup_complexf(s->carrier_phase); zz.re = sample.re*z.re - sample.im*z.im; zz.im = -sample.re*z.im - sample.im*z.re; #endif process_half_baud(s, &zz); } #if defined(SPANDSP_USE_FIXED_POINT) dds_advance(&s->carrier_phase, s->carrier_phase_rate); #else dds_advancef(&s->carrier_phase, s->carrier_phase_rate); #endif } } return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE_NONSTD(int) v27ter_rx_fillin(v27ter_rx_state_t *s, int len) { int i; /* We want to sustain the current state (i.e carrier on<->carrier off), and try to sustain the carrier phase. We should probably push the filters, as well */ span_log(&s->logging, SPAN_LOG_FLOW, "Fill-in %d samples\n", len); if (s->signal_present <= 0) return 0; if (s->training_stage == TRAINING_STAGE_PARKED) return 0; for (i = 0; i < len; i++) { #if defined(SPANDSP_USE_FIXED_POINT) dds_advance(&s->carrier_phase, s->carrier_phase_rate); #else dds_advancef(&s->carrier_phase, s->carrier_phase_rate); #endif /* Advance the symbol phase the appropriate amount */ if (s->bit_rate == 4800) { if ((s->eq_put_step -= RX_PULSESHAPER_4800_COEFF_SETS) <= 0) s->eq_put_step += RX_PULSESHAPER_4800_COEFF_SETS*5/2; } else { if ((s->eq_put_step -= RX_PULSESHAPER_2400_COEFF_SETS) <= 0) s->eq_put_step += RX_PULSESHAPER_2400_COEFF_SETS*20/(3*2); } /* TODO: Should we rotate any buffers */ } return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) v27ter_rx_set_put_bit(v27ter_rx_state_t *s, put_bit_func_t put_bit, void *user_data) { s->put_bit = put_bit; s->put_bit_user_data = user_data; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) v27ter_rx_set_modem_status_handler(v27ter_rx_state_t *s, modem_tx_status_func_t handler, void *user_data) { s->status_handler = handler; s->status_user_data = user_data; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(logging_state_t *) v27ter_rx_get_logging_state(v27ter_rx_state_t *s) { return &s->logging; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) v27ter_rx_restart(v27ter_rx_state_t *s, int bit_rate, int old_train) { span_log(&s->logging, SPAN_LOG_FLOW, "Restarting V.27ter\n"); if (bit_rate != 4800 && bit_rate != 2400) return -1; s->bit_rate = bit_rate; #if defined(SPANDSP_USE_FIXED_POINT) vec_zeroi16(s->rrc_filter, sizeof(s->rrc_filter)/sizeof(s->rrc_filter[0])); #else vec_zerof(s->rrc_filter, sizeof(s->rrc_filter)/sizeof(s->rrc_filter[0])); #endif s->rrc_filter_step = 0; s->scramble_reg = 0x3C; s->scrambler_pattern_count = 0; s->training_stage = TRAINING_STAGE_SYMBOL_ACQUISITION; s->training_bc = 0; s->training_count = 0; s->training_error = 0.0f; s->signal_present = 0; #if defined(IAXMODEM_STUFF) s->high_sample = 0; s->low_samples = 0; s->carrier_drop_pending = FALSE; #endif s->carrier_phase = 0; #if defined(SPANDSP_USE_FIXED_POINTx) s->carrier_track_i = 200000; s->carrier_track_p = 10000000; #else s->carrier_track_i = 200000.0f; s->carrier_track_p = 10000000.0f; #endif power_meter_init(&(s->power), 4); s->constellation_state = 0; if (s->old_train) { s->carrier_phase_rate = s->carrier_phase_rate_save; s->agc_scaling = s->agc_scaling_save; equalizer_restore(s); } else { s->carrier_phase_rate = dds_phase_ratef(CARRIER_NOMINAL_FREQ); #if defined(SPANDSP_USE_FIXED_POINTx) s->agc_scaling = (float) FP_FACTOR*32768.0f*0.005f/RX_PULSESHAPER_4800_GAIN; #else s->agc_scaling = 0.005f/RX_PULSESHAPER_4800_GAIN; #endif equalizer_reset(s); } s->eq_skip = 0; s->last_sample = 0; s->gardner_integrate = 0; s->total_baud_timing_correction = 0; s->gardner_step = 512; s->baud_half = 0; return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(v27ter_rx_state_t *) v27ter_rx_init(v27ter_rx_state_t *s, int bit_rate, put_bit_func_t put_bit, void *user_data) { switch (bit_rate) { case 4800: case 2400: break; default: return NULL; } if (s == NULL) { if ((s = (v27ter_rx_state_t *) malloc(sizeof(*s))) == NULL) return NULL; } memset(s, 0, sizeof(*s)); span_log_init(&s->logging, SPAN_LOG_NONE, NULL); span_log_set_protocol(&s->logging, "V.27ter RX"); v27ter_rx_signal_cutoff(s, -45.5f); s->put_bit = put_bit; s->put_bit_user_data = user_data; v27ter_rx_restart(s, bit_rate, FALSE); return s; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) v27ter_rx_release(v27ter_rx_state_t *s) { return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) v27ter_rx_free(v27ter_rx_state_t *s) { free(s); return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) v27ter_rx_set_qam_report_handler(v27ter_rx_state_t *s, qam_report_handler_t handler, void *user_data) { s->qam_report = handler; s->qam_user_data = user_data; } /*- End of function --------------------------------------------------------*/ /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/fsk.c0000664000175000017500000004557011422612261014325 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * fsk.c - FSK modem transmit and receive parts * * Written by Steve Underwood * * Copyright (C) 2003 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \file */ #if defined(HAVE_CONFIG_H) #include "config.h" #endif #include #include #include #if defined(HAVE_TGMATH_H) #include #endif #if defined(HAVE_MATH_H) #include #endif #include "floating_fudge.h" #include #include "spandsp/telephony.h" #include "spandsp/complex.h" #include "spandsp/dds.h" #include "spandsp/power_meter.h" #include "spandsp/async.h" #include "spandsp/fsk.h" #include "spandsp/private/fsk.h" const fsk_spec_t preset_fsk_specs[] = { { "V21 ch 1", 1080 + 100, 1080 - 100, -14, -30, 300*100 }, { "V21 ch 2", 1750 + 100, 1750 - 100, -14, -30, 300*100 }, { "V23 ch 1", 2100, 1300, -14, -30, 1200*100 }, { "V23 ch 2", 450, 390, -14, -30, 75*100 }, { "Bell103 ch 1", 2125 - 100, 2125 + 100, -14, -30, 300*100 }, { "Bell103 ch 2", 1170 - 100, 1170 + 100, -14, -30, 300*100 }, { "Bell202", 2200, 1200, -14, -30, 1200*100 }, { "Weitbrecht 45.45", /* Used for TDD (Telecoms Device for the Deaf) */ 1800, 1400, -14, -30, 4545 }, { "Weitbrecht 50", /* Used for TDD (Telecoms Device for the Deaf) */ 1800, 1400, -14, -30, 5000 } }; SPAN_DECLARE(int) fsk_tx_restart(fsk_tx_state_t *s, const fsk_spec_t *spec) { s->baud_rate = spec->baud_rate; s->phase_rates[0] = dds_phase_rate((float) spec->freq_zero); s->phase_rates[1] = dds_phase_rate((float) spec->freq_one); s->scaling = dds_scaling_dbm0((float) spec->tx_level); /* Initialise fractional sample baud generation. */ s->phase_acc = 0; s->baud_frac = 0; s->current_phase_rate = s->phase_rates[1]; s->shutdown = FALSE; return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(fsk_tx_state_t *) fsk_tx_init(fsk_tx_state_t *s, const fsk_spec_t *spec, get_bit_func_t get_bit, void *user_data) { if (s == NULL) { if ((s = (fsk_tx_state_t *) malloc(sizeof(*s))) == NULL) return NULL; } memset(s, 0, sizeof(*s)); s->get_bit = get_bit; s->get_bit_user_data = user_data; fsk_tx_restart(s, spec); return s; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) fsk_tx_release(fsk_tx_state_t *s) { return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) fsk_tx_free(fsk_tx_state_t *s) { free(s); return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE_NONSTD(int) fsk_tx(fsk_tx_state_t *s, int16_t amp[], int len) { int sample; int bit; if (s->shutdown) return 0; /* Make the transitions between 0 and 1 phase coherent, but instantaneous jumps. There is currently no interpolation for bauds that end mid-sample. Mainstream users will not care. Some specialist users might have a problem with them, if they care about accurate transition timing. */ for (sample = 0; sample < len; sample++) { if ((s->baud_frac += s->baud_rate) >= SAMPLE_RATE*100) { s->baud_frac -= SAMPLE_RATE*100; if ((bit = s->get_bit(s->get_bit_user_data)) == SIG_STATUS_END_OF_DATA) { if (s->status_handler) s->status_handler(s->status_user_data, SIG_STATUS_END_OF_DATA); if (s->status_handler) s->status_handler(s->status_user_data, SIG_STATUS_SHUTDOWN_COMPLETE); s->shutdown = TRUE; break; } s->current_phase_rate = s->phase_rates[bit & 1]; } amp[sample] = dds_mod(&(s->phase_acc), s->current_phase_rate, s->scaling, 0); } return sample; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) fsk_tx_power(fsk_tx_state_t *s, float power) { s->scaling = dds_scaling_dbm0(power); } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) fsk_tx_set_get_bit(fsk_tx_state_t *s, get_bit_func_t get_bit, void *user_data) { s->get_bit = get_bit; s->get_bit_user_data = user_data; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) fsk_tx_set_modem_status_handler(fsk_tx_state_t *s, modem_tx_status_func_t handler, void *user_data) { s->status_handler = handler; s->status_user_data = user_data; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) fsk_rx_signal_cutoff(fsk_rx_state_t *s, float cutoff) { /* The 6.04 allows for the gain of the DC blocker */ s->carrier_on_power = (int32_t) (power_meter_level_dbm0(cutoff + 2.5f - 6.04f)); s->carrier_off_power = (int32_t) (power_meter_level_dbm0(cutoff - 2.5f - 6.04f)); } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(float) fsk_rx_signal_power(fsk_rx_state_t *s) { return power_meter_current_dbm0(&s->power); } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) fsk_rx_set_put_bit(fsk_rx_state_t *s, put_bit_func_t put_bit, void *user_data) { s->put_bit = put_bit; s->put_bit_user_data = user_data; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) fsk_rx_set_modem_status_handler(fsk_rx_state_t *s, modem_tx_status_func_t handler, void *user_data) { s->status_handler = handler; s->status_user_data = user_data; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) fsk_rx_restart(fsk_rx_state_t *s, const fsk_spec_t *spec, int framing_mode) { int chop; s->baud_rate = spec->baud_rate; s->framing_mode = framing_mode; fsk_rx_signal_cutoff(s, (float) spec->min_level); /* Detect by correlating against the tones we want, over a period of one baud. The correlation must be quadrature. */ /* First we need the quadrature tone generators to correlate against. */ s->phase_rate[0] = dds_phase_rate((float) spec->freq_zero); s->phase_rate[1] = dds_phase_rate((float) spec->freq_one); s->phase_acc[0] = 0; s->phase_acc[1] = 0; s->last_sample = 0; /* The correlation should be over one baud. */ s->correlation_span = SAMPLE_RATE*100/spec->baud_rate; /* But limit it for very slow baud rates, so we do not overflow our buffer. */ if (s->correlation_span > FSK_MAX_WINDOW_LEN) s->correlation_span = FSK_MAX_WINDOW_LEN; /* We need to scale, to avoid overflow in the correlation. */ s->scaling_shift = 0; chop = s->correlation_span; while (chop != 0) { s->scaling_shift++; chop >>= 1; } /* Initialise the baud/bit rate tracking. */ s->baud_phase = 0; s->frame_state = 0; s->frame_bits = 0; s->last_bit = 0; /* Initialise a power detector, so sense when a signal is present. */ power_meter_init(&(s->power), 4); s->signal_present = 0; return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(fsk_rx_state_t *) fsk_rx_init(fsk_rx_state_t *s, const fsk_spec_t *spec, int framing_mode, put_bit_func_t put_bit, void *user_data) { if (s == NULL) { if ((s = (fsk_rx_state_t *) malloc(sizeof(*s))) == NULL) return NULL; } memset(s, 0, sizeof(*s)); s->put_bit = put_bit; s->put_bit_user_data = user_data; fsk_rx_restart(s, spec, framing_mode); return s; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) fsk_rx_release(fsk_rx_state_t *s) { return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) fsk_rx_free(fsk_rx_state_t *s) { free(s); return 0; } /*- End of function --------------------------------------------------------*/ static void report_status_change(fsk_rx_state_t *s, int status) { if (s->status_handler) s->status_handler(s->status_user_data, status); else if (s->put_bit) s->put_bit(s->put_bit_user_data, status); } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE_NONSTD(int) fsk_rx(fsk_rx_state_t *s, const int16_t *amp, int len) { int buf_ptr; int baudstate; int i; int j; int16_t x; int32_t dot; int32_t sum[2]; int32_t power; complexi_t ph; buf_ptr = s->buf_ptr; for (i = 0; i < len; i++) { /* The *totally* asynchronous character to character behaviour of these modems, when carrying async. data, seems to force a sample by sample approach. */ for (j = 0; j < 2; j++) { s->dot[j].re -= s->window[j][buf_ptr].re; s->dot[j].im -= s->window[j][buf_ptr].im; ph = dds_complexi(&(s->phase_acc[j]), s->phase_rate[j]); s->window[j][buf_ptr].re = (ph.re*amp[i]) >> s->scaling_shift; s->window[j][buf_ptr].im = (ph.im*amp[i]) >> s->scaling_shift; s->dot[j].re += s->window[j][buf_ptr].re; s->dot[j].im += s->window[j][buf_ptr].im; dot = s->dot[j].re >> 15; sum[j] = dot*dot; dot = s->dot[j].im >> 15; sum[j] += dot*dot; } /* If there isn't much signal, don't demodulate - it will only produce useless junk results. */ /* There should be no DC in the signal, but sometimes there is. We need to measure the power with the DC blocked, but not using a slow to respond DC blocker. Use the most elementary HPF. */ x = amp[i] >> 1; power = power_meter_update(&(s->power), x - s->last_sample); s->last_sample = x; if (s->signal_present) { /* Look for power below turn-off threshold to turn the carrier off */ if (power < s->carrier_off_power) { if (--s->signal_present <= 0) { /* Count down a short delay, to ensure we push the last few bits through the filters before stopping. */ report_status_change(s, SIG_STATUS_CARRIER_DOWN); s->baud_phase = 0; continue; } } } else { /* Look for power exceeding turn-on threshold to turn the carrier on */ if (power < s->carrier_on_power) { s->baud_phase = 0; continue; } if (s->baud_phase < (s->correlation_span >> 1) - 30) { s->baud_phase++; continue; } s->signal_present = 1; /* Initialise the baud/bit rate tracking. */ s->baud_phase = 0; s->frame_state = 0; s->frame_bits = 0; s->last_bit = 0; report_status_change(s, SIG_STATUS_CARRIER_UP); } /* Non-coherent FSK demodulation by correlation with the target tones over a one baud interval. The slow V.xx specs. are too open ended to allow anything fancier to be used. The dot products are calculated using a sliding window approach, so the compute load is not that great. */ baudstate = (sum[0] < sum[1]); switch (s->framing_mode) { case FSK_FRAME_MODE_SYNC: /* Synchronous serial operation - e.g. for HDLC */ if (s->last_bit != baudstate) { /* On a transition we check our timing */ s->last_bit = baudstate; /* For synchronous use (e.g. HDLC channels in FAX modems), nudge the baud phase gently, trying to keep it centred on the bauds. */ if (s->baud_phase < (SAMPLE_RATE*50)) s->baud_phase += (s->baud_rate >> 3); else s->baud_phase -= (s->baud_rate >> 3); } if ((s->baud_phase += s->baud_rate) >= (SAMPLE_RATE*100)) { /* We should be in the middle of a baud now, so report the current state as the next bit */ s->baud_phase -= (SAMPLE_RATE*100); s->put_bit(s->put_bit_user_data, baudstate); } break; case FSK_FRAME_MODE_ASYNC: /* Fully asynchronous mode */ if (s->last_bit != baudstate) { /* On a transition we check our timing */ s->last_bit = baudstate; /* For async. operation, believe transitions completely, and sample appropriately. This allows instant start on the first transition. */ /* We must now be about half way to a sampling point. We do not do any fractional sample estimation of the transitions, so this is the most accurate baud alignment we can do. */ s->baud_phase = SAMPLE_RATE*50; } if ((s->baud_phase += s->baud_rate) >= (SAMPLE_RATE*100)) { /* We should be in the middle of a baud now, so report the current state as the next bit */ s->baud_phase -= (SAMPLE_RATE*100); s->put_bit(s->put_bit_user_data, baudstate); } break; default: /* Gather the specified number of bits, with robust checking to ensure reasonable voice immunity. The first bit should be a start bit (0), and the last bit should be a stop bit (1) */ if (s->frame_state == 0) { /* Looking for the start of a zero bit, which hopefully the start of a start bit */ if (baudstate == 0) { s->baud_phase = SAMPLE_RATE*(100 - 40)/2; s->frame_state = -1; s->frame_bits = 0; s->last_bit = -1; } } else if (s->frame_state == -1) { /* Look for a continuous zero from the start of the start bit until beyond the middle */ if (baudstate != 0) { /* If we aren't looking at a stable start bit, restart */ s->frame_state = 0; } else { s->baud_phase += s->baud_rate; if (s->baud_phase >= SAMPLE_RATE*100) { s->frame_state = 1; s->last_bit = baudstate; } } } else { s->baud_phase += s->baud_rate; if (s->baud_phase >= SAMPLE_RATE*(100 - 40)) { if (s->last_bit < 0) s->last_bit = baudstate; /* Look for the bit being consistent over the central 20% of the bit time. */ if (s->last_bit != baudstate) { s->frame_state = 0; } else if (s->baud_phase >= SAMPLE_RATE*100) { /* We should be in the middle of a baud now, so report the current state as the next bit */ if (s->last_bit == baudstate) { s->frame_bits |= (baudstate << s->framing_mode); s->frame_bits >>= 1; s->baud_phase -= (SAMPLE_RATE*100); if (++s->frame_state > s->framing_mode) { /* Check we have a stop bit */ if (baudstate == 1) { /* Check we have a start bit */ if ((s->frame_bits & 1) == 0) { /* Drop the start bit, and pass the rest back */ s->frame_bits >>= 1; s->put_bit(s->put_bit_user_data, s->frame_bits); } } s->frame_state = 0; } } else { s->frame_state = 0; } s->last_bit = -1; } } } break; } if (++buf_ptr >= s->correlation_span) buf_ptr = 0; } s->buf_ptr = buf_ptr; return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE_NONSTD(int) fsk_rx_fillin(fsk_rx_state_t *s, int len) { /* The valid choice here is probably to do nothing. We don't change state (i.e carrier on<->carrier off), and we'll just output less bits than we should. */ /* TODO: Advance the symbol phase the appropriate amount */ return 0; } /*- End of function --------------------------------------------------------*/ /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/msvc/0000775000175000017500000000000011516506111014333 5ustar steveusteveuspandsp-0.0.6/src/msvc/msvcproj.foot0000664000175000017500000000023011141012442017053 0ustar steveusteveu # Begin Group "Resource Files" # PROP Default_Filter "ico;cur;bmp;dlg;rc2;rct;bin;rgs;gif;jpg;jpeg;jpe" # End Group # End Target # End Project spandsp-0.0.6/src/msvc/vc8proj.head0000664000175000017500000000537011151262015016553 0ustar steveusteveu spandsp-0.0.6/src/msvc/msvcproj.head0000664000175000017500000000717211141012442017021 0ustar steveusteveu# Microsoft Developer Studio Project File - Name="spandsp" - Package Owner=<4> # Microsoft Developer Studio Generated Build File, Format Version 6.00 # ** DO NOT EDIT ** # TARGTYPE "Win32 (x86) Dynamic-Link Library" 0x0102 CFG=spandsp - Win32 Debug !MESSAGE This is not a valid makefile. To build this project using NMAKE, !MESSAGE use the Export Makefile command and run !MESSAGE !MESSAGE NMAKE /f "spandsp.mak". !MESSAGE !MESSAGE You can specify a configuration when running NMAKE !MESSAGE by defining the macro CFG on the command line. For example: !MESSAGE !MESSAGE NMAKE /f "spandsp.mak" CFG="spandsp - Win32 Debug" !MESSAGE !MESSAGE Possible choices for configuration are: !MESSAGE !MESSAGE "spandsp - Win32 Release" (based on "Win32 (x86) Dynamic-Link Library") !MESSAGE "spandsp - Win32 Debug" (based on "Win32 (x86) Dynamic-Link Library") !MESSAGE # Begin Project # PROP AllowPerConfigDependencies 0 # PROP Scc_ProjName "" # PROP Scc_LocalPath "" CPP=cl.exe MTL=midl.exe RSC=rc.exe !IF "$(CFG)" == "spandsp - Win32 Release" # PROP BASE Use_MFC 0 # PROP BASE Use_Debug_Libraries 0 # PROP BASE Output_Dir "Release" # PROP BASE Intermediate_Dir "Release" # PROP BASE Target_Dir "" # PROP Use_MFC 0 # PROP Use_Debug_Libraries 0 # PROP Output_Dir "Release" # PROP Intermediate_Dir "Release" # PROP Ignore_Export_Lib 0 # PROP Target_Dir "" # ADD BASE CPP /nologo /MT /W3 /GX /O2 /D "WIN32" /D "NDEBUG" /D "_WINDOWS" /D "_MBCS" /D "_USRDLL" /D HAVE_TGMATH_H /YX /FD /c # ADD CPP /nologo /MT /W3 /GX /Zi /O2 /I "." /I "..\include" /D "WIN32" /D "NDEBUG" /D "_WINDOWS" /D "_MBCS" /D "_USRDLL" /D HAVE_TGMATH_H /D "_WINDLL" /FR /FD /c # SUBTRACT CPP /YX # ADD BASE MTL /nologo /D "NDEBUG" /mktyplib203 /win32 # ADD MTL /nologo /D "NDEBUG" /mktyplib203 /win32 # ADD BASE RSC /l 0x409 /d "NDEBUG" # ADD RSC /l 0x409 /d "NDEBUG" BSC32=bscmake.exe # ADD BASE BSC32 /nologo # ADD BSC32 /nologo LINK32=link.exe # ADD BASE LINK32 kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib /nologo /dll /machine:I386 # ADD LINK32 kernel32.lib ws2_32.lib winmm.lib /nologo /dll /map /debug /machine:I386 /out:"Release/libspandsp.dll" !ELSEIF "$(CFG)" == "spandsp - Win32 Debug" # PROP BASE Use_MFC 0 # PROP BASE Use_Debug_Libraries 1 # PROP BASE Output_Dir "Debug" # PROP BASE Intermediate_Dir "Debug" # PROP BASE Target_Dir "" # PROP Use_MFC 0 # PROP Use_Debug_Libraries 1 # PROP Output_Dir "Debug" # PROP Intermediate_Dir "Debug" # PROP Ignore_Export_Lib 0 # PROP Target_Dir "" # ADD BASE CPP /nologo /MTd /W3 /Gm /GX /ZI /Od /D "WIN32" /D "_DEBUG" /D "_WINDOWS" /D "_MBCS" /D "_USRDLL" /D HAVE_TGMATH_H /YX /FD /GZ /c # ADD CPP /nologo /MTd /W3 /Gm /GX /Zi /Od /I "." /I "..\include" /D "WIN32" /D "_DEBUG" /D "_WINDOWS" /D "_MBCS" /D "_USRDLL" /D HAVE_TGMATH_H /FR /FD /GZ /c # SUBTRACT CPP /WX /YX # ADD BASE MTL /nologo /D "_DEBUG" /mktyplib203 /win32 # ADD MTL /nologo /D "_DEBUG" /mktyplib203 /win32 # ADD BASE RSC /l 0x409 /d "_DEBUG" # ADD RSC /l 0x409 /d "_DEBUG" BSC32=bscmake.exe # ADD BASE BSC32 /nologo # ADD BSC32 /nologo LINK32=link.exe # ADD BASE LINK32 kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib /nologo /dll /debug /machine:I386 /pdbtype:sept # ADD LINK32 kernel32.lib ws2_32.lib winmm.lib /nologo /dll /incremental:no /map /debug /machine:I386 /out:"Debug/libspandsp.dll" /pdbtype:sept # SUBTRACT LINK32 /nodefaultlib !ENDIF # Begin Target # Name "spandsp - Win32 Release" # Name "spandsp - Win32 Debug" spandsp-0.0.6/src/msvc/sys/0000775000175000017500000000000011516506111015151 5ustar steveusteveuspandsp-0.0.6/src/msvc/sys/time.h0000664000175000017500000000061111151262015016253 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * sys/time.h - a fudge for MSVC, which lacks this header * * Written by Steve Underwood * * Copyright (C) 2006 Michael Jerris * * * This file is released in the public domain. * */ struct timeval { long int tv_sec; long int tv_usec; }; extern void gettimeofday(struct timeval *tv, void *tz); spandsp-0.0.6/src/msvc/getopt.c0000664000175000017500000002037511144333311016005 0ustar steveusteveu/***************************************************************************** * * MODULE NAME : GETOPT.C * * COPYRIGHTS: * This module contains code made available by IBM * Corporation on an AS IS basis. Any one receiving the * module is considered to be licensed under IBM copyrights * to use the IBM-provided source code in any way he or she * deems fit, including copying it, compiling it, modifying * it, and redistributing it, with or without * modifications. No license under any IBM patents or * patent applications is to be implied from this copyright * license. * * A user of the module should understand that IBM cannot * provide technical support for the module and will not be * responsible for any consequences of use of the program. * * Any notices, including this one, are not to be removed * from the module without the prior written consent of * IBM. * * AUTHOR: Original author: * G. R. Blair (BOBBLAIR at AUSVM1) * Internet: bobblair@bobblair.austin.ibm.com * * Extensively revised by: * John Q. Walker II, Ph.D. (JOHHQ at RALVM6) * Internet: johnq@ralvm6.vnet.ibm.com * *****************************************************************************/ /****************************************************************************** * getopt() * * The getopt() function is a command line parser. It returns the next * option character in argv that matches an option character in opstring. * * The argv argument points to an array of argc+1 elements containing argc * pointers to character strings followed by a null pointer. * * The opstring argument points to a string of option characters; if an * option character is followed by a colon, the option is expected to have * an argument that may or may not be separated from it by white space. * The external variable optarg is set to point to the start of the option * argument on return from getopt(). * * The getopt() function places in optind the argv index of the next argument * to be processed. The system initializes the external variable optind to * 1 before the first call to getopt(). * * When all options have been processed (that is, up to the first nonoption * argument), getopt() returns EOF. The special option "--" may be used to * delimit the end of the options; EOF will be returned, and "--" will be * skipped. * * The getopt() function returns a question mark (?) when it encounters an * option character not included in opstring. This error message can be * disabled by setting opterr to zero. Otherwise, it returns the option * character that was detected. * * If the special option "--" is detected, or all options have been * processed, EOF is returned. * * Options are marked by either a minus sign (-) or a slash (/). * * No errors are defined. *****************************************************************************/ #include /* for EOF */ #include /* for strchr() */ /* static (global) variables that are specified as exported by getopt() */ char *optarg = NULL; /* pointer to the start of the option argument */ int optind = 1; /* number of the next argv[] to be evaluated */ int opterr = 1; /* non-zero if a question mark should be returned when a non-valid option character is detected */ /* handle possible future character set concerns by putting this in a macro */ #define _next_char(string) (char)(*(string+1)) int getopt(int argc, char *argv[], char *opstring) { static char *pIndexPosition = NULL; /* place inside current argv string */ char *pArgString = NULL; /* where to start from next */ char *pOptString; /* the string in our program */ if (pIndexPosition != NULL) { /* we last left off inside an argv string */ if (*(++pIndexPosition)) { /* there is more to come in the most recent argv */ pArgString = pIndexPosition; } } if (pArgString == NULL) { /* we didn't leave off in the middle of an argv string */ if (optind >= argc) { /* more command-line arguments than the argument count */ pIndexPosition = NULL; /* not in the middle of anything */ return EOF; /* used up all command-line arguments */ } /*--------------------------------------------------------------------- * If the next argv[] is not an option, there can be no more options. *-------------------------------------------------------------------*/ pArgString = argv[optind++]; /* set this to the next argument ptr */ if (('/' != *pArgString) && /* doesn't start with a slash or a dash? */ ('-' != *pArgString)) { --optind; /* point to current arg once we're done */ optarg = NULL; /* no argument follows the option */ pIndexPosition = NULL; /* not in the middle of anything */ return EOF; /* used up all the command-line flags */ } /* check for special end-of-flags markers */ if ((strcmp(pArgString, "-") == 0) || (strcmp(pArgString, "--") == 0)) { optarg = NULL; /* no argument follows the option */ pIndexPosition = NULL; /* not in the middle of anything */ return EOF; /* encountered the special flag */ } pArgString++; /* look past the / or - */ } if (':' == *pArgString) { /* is it a colon? */ /*--------------------------------------------------------------------- * Rare case: if opterr is non-zero, return a question mark; * otherwise, just return the colon we're on. *-------------------------------------------------------------------*/ return (opterr ? (int)'?' : (int)':'); } else if ((pOptString = strchr(opstring, *pArgString)) == 0) { /*--------------------------------------------------------------------- * The letter on the command-line wasn't any good. *-------------------------------------------------------------------*/ optarg = NULL; /* no argument follows the option */ pIndexPosition = NULL; /* not in the middle of anything */ return (opterr ? (int)'?' : (int)*pArgString); } else { /*--------------------------------------------------------------------- * The letter on the command-line matches one we expect to see *-------------------------------------------------------------------*/ if (':' == _next_char(pOptString)) { /* is the next letter a colon? */ /* It is a colon. Look for an argument string. */ if ('\0' != _next_char(pArgString)) { /* argument in this argv? */ optarg = &pArgString[1]; /* Yes, it is */ } else { /*------------------------------------------------------------- * The argument string must be in the next argv. * But, what if there is none (bad input from the user)? * In that case, return the letter, and optarg as NULL. *-----------------------------------------------------------*/ if (optind < argc) optarg = argv[optind++]; else { optarg = NULL; return (opterr ? (int)'?' : (int)*pArgString); } } pIndexPosition = NULL; /* not in the middle of anything */ } else { /* it's not a colon, so just return the letter */ optarg = NULL; /* no argument follows the option */ pIndexPosition = pArgString; /* point to the letter we're on */ } return (int)*pArgString; /* return the letter that matched */ } } spandsp-0.0.6/src/msvc/inttypes.h0000664000175000017500000000260211372545130016367 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * inttypes.h - a fudge for MSVC, which lacks this header * * Written by Steve Underwood * * Copyright (C) 2006 Michael Jerris * * * This file is released in the public domain. * */ #if !defined(_INTTYPES_H_) #define _INTTYPES_H_ #ifdef __cplusplus extern "C" { #endif typedef __int8 __int8_t; typedef __int16 __int16_t; typedef __int32 __int32_t; typedef __int64 __int64_t; typedef unsigned __int8 uint8_t; typedef unsigned __int16 uint16_t; typedef unsigned __int32 uint32_t; typedef unsigned __int64 uint64_t; typedef __int8 int8_t; typedef __int16 int16_t; typedef __int32 int32_t; typedef __int64 int64_t; #if !defined(INFINITY) #define INFINITY 0x7FFFFFFF #endif #if !defined(UINT8_MAX) #define UINT8_MAX 0xFF #endif #if !defined(UINT16_MAX) #define UINT16_MAX 0xFFFF #endif #if !defined(INT16_MAX) #define INT16_MAX 0x7FFF #endif #if !defined(INT16_MIN) #define INT16_MIN (-INT16_MAX - 1) #endif #if !defined(INT32_MAX) #define INT32_MAX (2147483647) #endif #if !defined(INT32_MIN) #define INT32_MIN (-2147483647 - 1) #endif #define PRId8 "d" #define PRId16 "d" #define PRId32 "ld" #define PRId64 "lld" #define PRIu8 "u" #define PRIu16 "u" #define PRIu32 "lu" #define PRIu64 "llu" #ifdef __cplusplus } #endif #endif spandsp-0.0.6/src/msvc/config.h0000664000175000017500000000433511422612263015760 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * config.h - a fudge for MSVC, which lacks this header * * Written by Steve Underwood * * Copyright (C) 2006 Michael Jerris * * * This file is released in the public domain. */ #if !defined(_MSVC_CONFIG_H_) #define _MSVC_CONFIG_H_ #define HAVE_SINF #define HAVE_COSF #define HAVE_TANF #define HAVE_ASINF #define HAVE_ACOSF #define HAVE_ATANF #define HAVE_ATAN2F #define HAVE_CEILF #define HAVE_FLOORF #define HAVE_POWF #define HAVE_EXPF #define HAVE_LOGF #define HAVE_LOG10F #define HAVE_MATH_H #define HAVE_TGMATH_H #define HAVE_LONG_DOUBLE #define HAVE_LIBTIFF #define SPANDSP_USE_EXPORT_CAPABILITY 1 #define PACKAGE "spandsp" #define VERSION "0.0.6" /* Win32/DevStudio compatibility stuff */ #ifdef _MSC_VER #if (_MSC_VER >= 1400) // VC8+ #ifndef _CRT_SECURE_NO_DEPRECATE #define _CRT_SECURE_NO_DEPRECATE #endif #ifndef _CRT_NONSTDC_NO_DEPRECATE #define _CRT_NONSTDC_NO_DEPRECATE #endif #ifndef _CRT_SECURE_NO_WARNINGS #define _CRT_SECURE_NO_WARNINGS #endif #endif // VC8+ // disable the following warnings #pragma warning(disable:4100) // The formal parameter is not referenced in the body of the function. The unreferenced parameter is ignored. #pragma warning(disable:4200) // Non standard extension C zero sized array #pragma warning(disable:4706) // assignment within conditional expression #pragma warning(disable:4244) // conversion from 'type1' to 'type2', possible loss of data #pragma warning(disable:4295) // array is too small to include a terminating null character #pragma warning(disable:4125) // decimal digit terminates octal escape sequence #pragma warning(disable:4305) // 'function' : truncation from 'double' to 'float' #pragma warning(disable:4018) // '<' : signed/unsigned mismatch #pragma warning(disable:4389) // '==' : signed/unsigned mismatch #pragma warning(disable:4245) // 'return' : conversion from 'int' to 'size_t', signed/unsigned mismatch #define strncasecmp _strnicmp #define strcasecmp _stricmp #define snprintf _snprintf #define inline __inline #define __inline__ __inline #define _MMX_H_ #include // To get alloca #endif #endif spandsp-0.0.6/src/msvc/make_modem_filter.2008.vcproj0000664000175000017500000001215411211236550021615 0ustar steveusteveu spandsp-0.0.6/src/msvc/make_at_dictionary.2005.vcproj0000664000175000017500000000467111151262015022000 0ustar steveusteveu spandsp-0.0.6/src/msvc/make_modem_filter.2005.vcproj0000664000175000017500000001217311220272236021614 0ustar steveusteveu spandsp-0.0.6/src/msvc/Download_TIFF.2005.vcproj0000664000175000017500000000244211262423504020530 0ustar steveusteveu spandsp-0.0.6/src/msvc/gettimeofday.c0000664000175000017500000000036010402512210017145 0ustar steveusteveu#ifdef _MSC_VER #pragma warning(disable:4100) #endif #include "windows.h" void gettimeofday(struct timeval *tv, void *tz) { long int l = GetTickCount(); tv->tv_sec = l / 1000; tv->tv_usec = (l % 1000) * 1000; return; } spandsp-0.0.6/src/msvc/tgmath.h0000664000175000017500000000101211032712472015764 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * tgmath.h - a fudge for MSVC, which lacks this header * * Written by Steve Underwood * * Copyright (C) 2006 Michael Jerris * * * This file is released in the public domain. * */ #if !defined(_TGMATH_H_) #define _TGMATH_H_ #include #if !defined(M_PI) /* C99 systems may not define M_PI */ #define M_PI 3.14159265358979323846264338327 #endif #ifdef __cplusplus extern "C" { #endif #ifdef __cplusplus } #endif #endif spandsp-0.0.6/src/msvc/unistd.h0000664000175000017500000000121711151262015016010 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * unistd.h - a fudge for MSVC, which lacks this header * * Written by Steve Underwood * * Copyright (C) 2006 Michael Jerris * * * This file is released in the public domain. * */ #if !defined(_UNISTD_H_) #define _UNISTD_H_ #ifdef __cplusplus extern "C" { #endif // Declare this so we don't have to include winsock.h, it causes numerous conflicts. extern int __stdcall gethostname(char * name, int namelen); #pragma comment(lib, "ws2_32.lib") extern int getopt(int argc, char *argv[], char *opstring); extern char *optarg; #ifdef __cplusplus } #endif #endif spandsp-0.0.6/src/msvc/vc9proj.head0000664000175000017500000001206111211000540016535 0ustar steveusteveu spandsp-0.0.6/src/msvc/Download_TIFF.2008.vcproj0000664000175000017500000000244211262423504020533 0ustar steveusteveu spandsp-0.0.6/src/msvc/util.vbs0000664000175000017500000001364011262423504016032 0ustar steveusteveu' ' Contributor(s): ' Michael Jerris ' David A. Horner http://dave.thehorners.com '---------------------------------------------- 'On Error Resume Next ' ************** ' Initialization ' ************** Set WshShell = CreateObject("WScript.Shell") Set FSO = CreateObject("Scripting.FileSystemObject") Set WshSysEnv = WshShell.Environment("SYSTEM") Set xml = CreateObject("Microsoft.XMLHTTP") Dim UseWgetEXE On Error Resume Next Set oStream = CreateObject("Adodb.Stream") On Error Goto 0 If Not IsObject(oStream) Then wscript.echo("Failed to create Adodb.Stream, using alternative download method.") UseWgetEXE=true Else UseWgetEXE=false End If Randomize Set objArgs = WScript.Arguments quote=Chr(34) ScriptDir=Left(WScript.ScriptFullName,Len(WScript.ScriptFullName)-Len(WScript.ScriptName)) UtilsDir=Showpath(ScriptDir) ToolsBase="http://files.freeswitch.org/downloads/win32/" If UseWgetEXE Then GetWgetEXE UtilsDir End If GetCompressionTools UtilsDir If objArgs.Count >=3 Then Select Case objArgs(0) Case "Get" Wget objArgs(1), Showpath(objArgs(2)) Case "GetUnzip" WgetUnCompress objArgs(1), Showpath(objArgs(2)) End Select End If ' ******************* ' Utility Subroutines ' ******************* Sub WgetUnCompress(URL, DestFolder) If Right(DestFolder, 1) <> "\" Then DestFolder = DestFolder & "\" End If StartPos = InstrRev(URL, "/", -1, 1) strlength = Len(URL) filename=Right(URL,strlength-StartPos) NameEnd = InstrRev(filename, ".",-1, 1) filestrlength = Len(filename) filebase = Left(filename,NameEnd) fileext = Right(filename, Len(filename) - NameEnd) Wget URL, DestFolder If fileext = "zip" Then UnCompress Destfolder & filename, DestFolder & filebase Else UnCompress Destfolder & filename, DestFolder End If End Sub Sub GetCompressionTools(DestFolder) Dim oExec If Right(DestFolder, 1) <> "\" Then DestFolder = DestFolder & "\" End If If Not FSO.FileExists(DestFolder & "7za.exe") Then If Not FSO.FileExists(DestFolder & "7za.tag") Then Set MyFile = fso.CreateTextFile(DestFolder & "7za.tag", True) MyFile.WriteLine("This file marks a pending download for 7za.exe so we don't download it twice at the same time") MyFile.Close Wget ToolsBase & "7za.exe", DestFolder FSO.DeleteFile DestFolder & "7za.tag" ,true Else WScript.Sleep(5000) End If End If End Sub Sub GetWgetEXE(DestFolder) Dim oExec If Right(DestFolder, 1) <> "\" Then DestFolder = DestFolder & "\" End If If Not FSO.FileExists(DestFolder & "wget.exe") Then Slow_Wget ToolsBase & "wget.exe", DestFolder End If End Sub Sub UnCompress(Archive, DestFolder) batname = "tmp" & CStr(Int(10000*Rnd)) & ".bat" wscript.echo("Extracting: " & Archive) Set MyFile = fso.CreateTextFile(UtilsDir & batname, True) MyFile.WriteLine("@" & quote & UtilsDir & "7za.exe" & quote & " x " & quote & Archive & quote & " -y -o" & quote & DestFolder & quote ) MyFile.Close Set oExec = WshShell.Exec(UtilsDir & batname) Do WScript.Echo OExec.StdOut.ReadLine() Loop While Not OExec.StdOut.atEndOfStream If FSO.FileExists(Left(Archive, Len(Archive)-3))Then Set MyFile = fso.CreateTextFile(UtilsDir & batname, True) MyFile.WriteLine("@" & quote & UtilsDir & "7za.exe" & quote & " x " & quote & Left(Archive, Len(Archive)-3) & quote & " -y -o" & quote & DestFolder & quote ) MyFile.Close Set oExec = WshShell.Exec(UtilsDir & batname) Do WScript.Echo OExec.StdOut.ReadLine() Loop While Not OExec.StdOut.atEndOfStream WScript.Sleep(500) FSO.DeleteFile Left(Archive, Len(Archive)-3) ,true End If If FSO.FileExists(Left(Archive, Len(Archive)-3) & "tar")Then Set MyFile = fso.CreateTextFile(UtilsDir & batname, True) MyFile.WriteLine("@" & quote & UtilsDir & "7za.exe" & quote & " x " & quote & Left(Archive, Len(Archive)-3) & "tar" & quote & " -y -o" & quote & DestFolder & quote ) MyFile.Close Set oExec = WshShell.Exec(UtilsDir & batname) Do WScript.Echo OExec.StdOut.ReadLine() Loop While Not OExec.StdOut.atEndOfStream WScript.Sleep(500) FSO.DeleteFile Left(Archive, Len(Archive)-3) & "tar",true End If WScript.Sleep(500) If FSO.FileExists(UtilsDir & batname)Then FSO.DeleteFile UtilsDir & batname, True End If End Sub Sub Wget(URL, DestFolder) StartPos = InstrRev(URL, "/", -1, 1) strlength = Len(URL) filename=Right(URL,strlength-StartPos) If Right(DestFolder, 1) <> "\" Then DestFolder = DestFolder & "\" End If Wscript.echo("Downloading: " & URL) If UseWgetEXE Then batname = "tmp" & CStr(Int(10000*Rnd)) & ".bat" Set MyFile = fso.CreateTextFile(UtilsDir & batname, True) MyFile.WriteLine("@cd " & quote & DestFolder & quote) MyFile.WriteLine("@" & quote & UtilsDir & "wget.exe" & quote & " " & URL) MyFile.Close Set oExec = WshShell.Exec(UtilsDir & batname) Do WScript.Echo OExec.StdOut.ReadLine() Loop While Not OExec.StdOut.atEndOfStream Else xml.Open "GET", URL, False xml.Send Const adTypeBinary = 1 Const adSaveCreateOverWrite = 2 Const adSaveCreateNotExist = 1 oStream.type = adTypeBinary oStream.open oStream.write xml.responseBody oStream.savetofile DestFolder & filename, adSaveCreateOverWrite oStream.close End If End Sub Sub Slow_Wget(URL, DestFolder) StartPos = InstrRev(URL, "/", -1, 1) strlength = Len(URL) filename=Right(URL,strlength-StartPos) If Right(DestFolder, 1) <> "\" Then DestFolder = DestFolder & "\" End If Wscript.echo("Downloading: " & URL) xml.Open "GET", URL, False xml.Send const ForReading = 1 , ForWriting = 2 , ForAppending = 8 Set MyFile = fso.OpenTextFile(DestFolder & filename ,ForWriting, True) For i = 1 to lenb(xml.responseBody) MyFile.write Chr(Ascb(midb(xml.responseBody,i,1))) Next MyFile.Close() End Sub Function Showpath(folderspec) Set f = FSO.GetFolder(folderspec) showpath = f.path & "\" End Function spandsp-0.0.6/src/msvc/vc9proj.foot0000664000175000017500000000273311151262015016622 0ustar steveusteveu spandsp-0.0.6/src/msvc/spandsp.h0000664000175000017500000000764511516506106016174 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * spandsp.h - The head guy amongst the headers * * Written by Steve Underwood * * Copyright (C) 2003 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \file */ #if !defined(_SPANDSP_H_) #define _SPANDSP_H_ #define __inline__ __inline #pragma warning(disable:4200) #undef SPANDSP_USE_FIXED_POINT #undef SPANDSP_MISALIGNED_ACCESS_FAILS #define SPANDSP_USE_EXPORT_CAPABILITY 1 #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include /*#include */ #include #include #include /*#include */ #include #include #include #include #include #include /*#include */ /*#include */ #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #endif #if defined(SPANDSP_EXPOSE_INTERNAL_STRUCTURES) #include #endif /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/msvc/tiff/0000775000175000017500000000000011516506111015263 5ustar steveusteveuspandsp-0.0.6/src/msvc/tiff/cleancount0000664000175000017500000000000111147701302017327 0ustar steveusteveu1spandsp-0.0.6/src/msvc/make_at_dictionary.2008.vcproj0000664000175000017500000000463611151262015022004 0ustar steveusteveu spandsp-0.0.6/src/msvc/vc8proj.foot0000664000175000017500000000146311151262015016620 0ustar steveusteveu spandsp-0.0.6/src/hdlc.c0000664000175000017500000005054411422612262014452 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * hdlc.c * * Written by Steve Underwood * * Copyright (C) 2003 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \file */ #if defined(HAVE_CONFIG_H) #include "config.h" #endif #include #include #include #include #include "spandsp/telephony.h" #include "spandsp/async.h" #include "spandsp/crc.h" #include "spandsp/bit_operations.h" #include "spandsp/hdlc.h" #include "spandsp/private/hdlc.h" static void report_status_change(hdlc_rx_state_t *s, int status) { if (s->status_handler) s->status_handler(s->status_user_data, status); else if (s->frame_handler) s->frame_handler(s->frame_user_data, NULL, status, TRUE); } /*- End of function --------------------------------------------------------*/ static void rx_special_condition(hdlc_rx_state_t *s, int status) { /* Special conditions */ switch (status) { case SIG_STATUS_CARRIER_UP: case SIG_STATUS_TRAINING_SUCCEEDED: /* Reset the HDLC receiver. */ s->raw_bit_stream = 0; s->len = 0; s->num_bits = 0; s->flags_seen = 0; s->framing_ok_announced = FALSE; /* Fall through */ case SIG_STATUS_TRAINING_IN_PROGRESS: case SIG_STATUS_TRAINING_FAILED: case SIG_STATUS_CARRIER_DOWN: case SIG_STATUS_END_OF_DATA: report_status_change(s, status); break; default: //printf("Eh!\n"); break; } } /*- End of function --------------------------------------------------------*/ static __inline__ void octet_set_and_count(hdlc_rx_state_t *s) { if (s->octet_count_report_interval == 0) return; /* If we are not in octet counting mode, we start it. If we are in octet counting mode, we update it. */ if (s->octet_counting_mode) { if (--s->octet_count <= 0) { s->octet_count = s->octet_count_report_interval; report_status_change(s, SIG_STATUS_OCTET_REPORT); } } else { s->octet_counting_mode = TRUE; s->octet_count = s->octet_count_report_interval; } } /*- End of function --------------------------------------------------------*/ static __inline__ void octet_count(hdlc_rx_state_t *s) { if (s->octet_count_report_interval == 0) return; /* If we are not in octet counting mode, we start it. If we are in octet counting mode, we update it. */ if (s->octet_counting_mode) { if (--s->octet_count <= 0) { s->octet_count = s->octet_count_report_interval; report_status_change(s, SIG_STATUS_OCTET_REPORT); } } } /*- End of function --------------------------------------------------------*/ static void rx_flag_or_abort(hdlc_rx_state_t *s) { if ((s->raw_bit_stream & 0x8000)) { /* Hit HDLC abort */ s->rx_aborts++; report_status_change(s, SIG_STATUS_ABORT); /* If we have not yet seen enough flags, restart the count. If we are beyond that point, just back off one step, so we need to see another flag before proceeding to collect frame octets. */ if (s->flags_seen < s->framing_ok_threshold - 1) s->flags_seen = 0; else s->flags_seen = s->framing_ok_threshold - 1; /* An abort starts octet counting */ octet_set_and_count(s); } else { /* Hit HDLC flag */ /* A flag clears octet counting */ s->octet_counting_mode = FALSE; if (s->flags_seen >= s->framing_ok_threshold) { /* We may have a frame, or we may have back to back flags */ if (s->len) { if (s->num_bits == 7 && s->len >= (size_t) s->crc_bytes && s->len <= s->max_frame_len) { if ((s->crc_bytes == 2 && crc_itu16_check(s->buffer, s->len)) || (s->crc_bytes != 2 && crc_itu32_check(s->buffer, s->len))) { s->rx_frames++; s->rx_bytes += s->len - s->crc_bytes; s->len -= s->crc_bytes; s->frame_handler(s->frame_user_data, s->buffer, s->len, TRUE); } else { s->rx_crc_errors++; if (s->report_bad_frames) { s->len -= s->crc_bytes; s->frame_handler(s->frame_user_data, s->buffer, s->len, FALSE); } } } else { /* Frame too short or too long, or the flag is misaligned with its octets. */ if (s->report_bad_frames) { /* Don't let the length go below zero, or it will be confused with one of the special conditions. */ if (s->len >= (size_t) s->crc_bytes) s->len -= s->crc_bytes; else s->len = 0; s->frame_handler(s->frame_user_data, s->buffer, s->len, FALSE); } s->rx_length_errors++; } } } else { /* Check the flags are back-to-back when testing for valid preamble. This greatly reduces the chances of false preamble detection, and anything which doesn't send them back-to-back is badly broken. */ if (s->num_bits != 7) { /* Don't set the flags seen indicator back to zero too aggressively. We want to pick up with the minimum of discarded data when there is a bit error in the stream, and a bit error could emulate a misaligned flag. */ if (s->flags_seen < s->framing_ok_threshold - 1) s->flags_seen = 0; else s->flags_seen = s->framing_ok_threshold - 1; } if (++s->flags_seen >= s->framing_ok_threshold && !s->framing_ok_announced) { report_status_change(s, SIG_STATUS_FRAMING_OK); s->framing_ok_announced = TRUE; } } } s->len = 0; s->num_bits = 0; } /*- End of function --------------------------------------------------------*/ static __inline__ void hdlc_rx_put_bit_core(hdlc_rx_state_t *s) { if ((s->raw_bit_stream & 0x3F00) == 0x3E00) { /* Its time to either skip a bit, for stuffing, or process a flag or abort */ if ((s->raw_bit_stream & 0x4000)) rx_flag_or_abort(s); return; } s->num_bits++; if (s->flags_seen < s->framing_ok_threshold) { if ((s->num_bits & 0x7) == 0) octet_count(s); return; } s->byte_in_progress = (s->byte_in_progress | (s->raw_bit_stream & 0x100)) >> 1; if (s->num_bits == 8) { /* Ensure we do not accept an overlength frame, and especially that we do not overflow our buffer */ if (s->len < s->max_frame_len) { s->buffer[s->len++] = (uint8_t) s->byte_in_progress; } else { /* This is too long. Abandon the frame, and wait for the next flag octet. */ s->len = sizeof(s->buffer) + 1; s->flags_seen = s->framing_ok_threshold - 1; octet_set_and_count(s); } s->num_bits = 0; } } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE_NONSTD(void) hdlc_rx_put_bit(hdlc_rx_state_t *s, int new_bit) { if (new_bit < 0) { rx_special_condition(s, new_bit); return; } s->raw_bit_stream = (s->raw_bit_stream << 1) | ((new_bit << 8) & 0x100); hdlc_rx_put_bit_core(s); } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE_NONSTD(void) hdlc_rx_put_byte(hdlc_rx_state_t *s, int new_byte) { int i; if (new_byte < 0) { rx_special_condition(s, new_byte); return; } s->raw_bit_stream |= new_byte; for (i = 0; i < 8; i++) { s->raw_bit_stream <<= 1; hdlc_rx_put_bit_core(s); } } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE_NONSTD(void) hdlc_rx_put(hdlc_rx_state_t *s, const uint8_t buf[], int len) { int i; for (i = 0; i < len; i++) hdlc_rx_put_byte(s, buf[i]); } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) hdlc_rx_set_max_frame_len(hdlc_rx_state_t *s, size_t max_len) { max_len += s->crc_bytes; s->max_frame_len = (max_len <= sizeof(s->buffer)) ? max_len : sizeof(s->buffer); } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) hdlc_rx_set_octet_counting_report_interval(hdlc_rx_state_t *s, int interval) { s->octet_count_report_interval = interval; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(hdlc_rx_state_t *) hdlc_rx_init(hdlc_rx_state_t *s, int crc32, int report_bad_frames, int framing_ok_threshold, hdlc_frame_handler_t handler, void *user_data) { if (s == NULL) { if ((s = (hdlc_rx_state_t *) malloc(sizeof(*s))) == NULL) return NULL; } memset(s, 0, sizeof(*s)); s->frame_handler = handler; s->frame_user_data = user_data; s->crc_bytes = (crc32) ? 4 : 2; s->report_bad_frames = report_bad_frames; s->framing_ok_threshold = (framing_ok_threshold < 1) ? 1 : framing_ok_threshold; s->max_frame_len = sizeof(s->buffer); return s; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) hdlc_rx_set_frame_handler(hdlc_rx_state_t *s, hdlc_frame_handler_t handler, void *user_data) { s->frame_handler = handler; s->frame_user_data = user_data; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) hdlc_rx_set_status_handler(hdlc_rx_state_t *s, modem_rx_status_func_t handler, void *user_data) { s->status_handler = handler; s->status_user_data = user_data; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) hdlc_rx_release(hdlc_rx_state_t *s) { return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) hdlc_rx_free(hdlc_rx_state_t *s) { free(s); return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) hdlc_rx_get_stats(hdlc_rx_state_t *s, hdlc_rx_stats_t *t) { t->bytes = s->rx_bytes; t->good_frames = s->rx_frames; t->crc_errors = s->rx_crc_errors; t->length_errors = s->rx_length_errors; t->aborts = s->rx_aborts; return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) hdlc_tx_frame(hdlc_tx_state_t *s, const uint8_t *frame, size_t len) { if (len <= 0) { s->tx_end = TRUE; return 0; } if (s->len + len > s->max_frame_len) return -1; if (s->progressive) { /* Only lock out if we are in the CRC section. */ if (s->pos >= HDLC_MAXFRAME_LEN) return -1; } else { /* Lock out if there is anything in the buffer. */ if (s->len) return -1; } memcpy(s->buffer + s->len, frame, len); if (s->crc_bytes == 2) s->crc = crc_itu16_calc(frame, len, (uint16_t) s->crc); else s->crc = crc_itu32_calc(frame, len, s->crc); if (s->progressive) s->len += len; else s->len = len; s->tx_end = FALSE; return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) hdlc_tx_flags(hdlc_tx_state_t *s, int len) { /* Some HDLC applications require the ability to force a period of HDLC flag words. */ if (s->pos) return -1; if (len < 0) s->flag_octets += -len; else s->flag_octets = len; s->report_flag_underflow = TRUE; s->tx_end = FALSE; return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) hdlc_tx_abort(hdlc_tx_state_t *s) { /* TODO: This is a really crude way of just fudging an abort out for simple test purposes. */ s->flag_octets++; s->abort_octets++; return -1; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) hdlc_tx_corrupt_frame(hdlc_tx_state_t *s) { if (s->len <= 0) return -1; s->crc ^= 0xFFFF; s->buffer[HDLC_MAXFRAME_LEN] ^= 0xFF; s->buffer[HDLC_MAXFRAME_LEN + 1] ^= 0xFF; s->buffer[HDLC_MAXFRAME_LEN + 2] ^= 0xFF; s->buffer[HDLC_MAXFRAME_LEN + 3] ^= 0xFF; return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE_NONSTD(int) hdlc_tx_get_byte(hdlc_tx_state_t *s) { int i; int byte_in_progress; int txbyte; if (s->flag_octets > 0) { /* We are in a timed flag section (preamble, inter frame gap, etc.) */ if (--s->flag_octets <= 0 && s->report_flag_underflow) { s->report_flag_underflow = FALSE; if (s->len == 0) { /* The timed flags have finished, there is nothing else queued to go, and we have been told to report this underflow. */ if (s->underflow_handler) s->underflow_handler(s->user_data); } } if (s->abort_octets) { s->abort_octets = 0; return 0x7F; } return s->idle_octet; } if (s->len) { if (s->num_bits >= 8) { s->num_bits -= 8; return (s->octets_in_progress >> s->num_bits) & 0xFF; } if (s->pos >= s->len) { if (s->pos == s->len) { s->crc ^= 0xFFFFFFFF; s->buffer[HDLC_MAXFRAME_LEN] = (uint8_t) s->crc; s->buffer[HDLC_MAXFRAME_LEN + 1] = (uint8_t) (s->crc >> 8); if (s->crc_bytes == 4) { s->buffer[HDLC_MAXFRAME_LEN + 2] = (uint8_t) (s->crc >> 16); s->buffer[HDLC_MAXFRAME_LEN + 3] = (uint8_t) (s->crc >> 24); } s->pos = HDLC_MAXFRAME_LEN; } else if (s->pos == (size_t) (HDLC_MAXFRAME_LEN + s->crc_bytes)) { /* Finish off the current byte with some flag bits. If we are at the start of a byte we need a at least one whole byte of flag to ensure we cannot end up with back to back frames, and no flag octet at all */ txbyte = (uint8_t) ((s->octets_in_progress << (8 - s->num_bits)) | (0x7E >> s->num_bits)); /* Create a rotated octet of flag for idling... */ s->idle_octet = (0x7E7E >> s->num_bits) & 0xFF; /* ...and the partial flag octet needed to start off the next message. */ s->octets_in_progress = s->idle_octet >> (8 - s->num_bits); s->flag_octets = s->inter_frame_flags - 1; s->len = 0; s->pos = 0; if (s->crc_bytes == 2) s->crc = 0xFFFF; else s->crc = 0xFFFFFFFF; /* Report the underflow now. If there are timed flags still in progress, loading the next frame right now will be harmless. */ s->report_flag_underflow = FALSE; if (s->underflow_handler) s->underflow_handler(s->user_data); /* Make sure we finish off with at least one flag octet, if the underflow report did not result in a new frame being sent. */ if (s->len == 0 && s->flag_octets < 2) s->flag_octets = 2; return txbyte; } } byte_in_progress = s->buffer[s->pos++]; i = bottom_bit(byte_in_progress | 0x100); s->octets_in_progress <<= i; byte_in_progress >>= i; for ( ; i < 8; i++) { s->octets_in_progress = (s->octets_in_progress << 1) | (byte_in_progress & 0x01); byte_in_progress >>= 1; if ((s->octets_in_progress & 0x1F) == 0x1F) { /* There are 5 ones - stuff */ s->octets_in_progress <<= 1; s->num_bits++; } } /* An input byte will generate between 8 and 10 output bits */ return (s->octets_in_progress >> s->num_bits) & 0xFF; } /* Untimed idling on flags */ if (s->tx_end) { s->tx_end = FALSE; return SIG_STATUS_END_OF_DATA; } return s->idle_octet; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE_NONSTD(int) hdlc_tx_get_bit(hdlc_tx_state_t *s) { int txbit; if (s->bits == 0) { if ((s->byte = hdlc_tx_get_byte(s)) < 0) return s->byte; s->bits = 8; } s->bits--; txbit = (s->byte >> s->bits) & 0x01; return txbit; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE_NONSTD(int) hdlc_tx_get(hdlc_tx_state_t *s, uint8_t buf[], size_t max_len) { size_t i; int x; for (i = 0; i < max_len; i++) { if ((x = hdlc_tx_get_byte(s)) == SIG_STATUS_END_OF_DATA) return i; buf[i] = (uint8_t) x; } return (int) i; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) hdlc_tx_set_max_frame_len(hdlc_tx_state_t *s, size_t max_len) { s->max_frame_len = (max_len <= HDLC_MAXFRAME_LEN) ? max_len : HDLC_MAXFRAME_LEN; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(hdlc_tx_state_t *) hdlc_tx_init(hdlc_tx_state_t *s, int crc32, int inter_frame_flags, int progressive, hdlc_underflow_handler_t handler, void *user_data) { if (s == NULL) { if ((s = (hdlc_tx_state_t *) malloc(sizeof(*s))) == NULL) return NULL; } memset(s, 0, sizeof(*s)); s->idle_octet = 0x7E; s->underflow_handler = handler; s->user_data = user_data; s->inter_frame_flags = (inter_frame_flags < 1) ? 1 : inter_frame_flags; if (crc32) { s->crc_bytes = 4; s->crc = 0xFFFFFFFF; } else { s->crc_bytes = 2; s->crc = 0xFFFF; } s->progressive = progressive; s->max_frame_len = HDLC_MAXFRAME_LEN; return s; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) hdlc_tx_release(hdlc_tx_state_t *s) { return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) hdlc_tx_free(hdlc_tx_state_t *s) { free(s); return 0; } /*- End of function --------------------------------------------------------*/ /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/make_modem_filter.c0000664000175000017500000003504011422612262017175 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * make_modem_filter.c - Create coefficient sets for pulse shaping * various modem rx and tx signals. * * Written by Steve Underwood * * Copyright (C) 2008 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License version 2, as * published by the Free Software Foundation. * * 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., 675 Mass Ave, Cambridge, MA 02139, USA. */ #if defined(HAVE_CONFIG_H) #include "config.h" #endif #include #include #include #if defined(HAVE_TGMATH_H) #include #endif #if defined(HAVE_MATH_H) #include #endif #include "floating_fudge.h" #include #include #include #include #if defined(__sunos) || defined(__solaris) || defined(__sun) #include #endif #include "spandsp/telephony.h" #include "spandsp/complex.h" #include "filter_tools.h" #if !defined(FALSE) #define FALSE 0 #endif #if !defined(TRUE) #define TRUE (!FALSE) #endif //#define SAMPLE_RATE 8000.0 #define MAX_COEFFS_PER_FILTER 128 #define MAX_COEFF_SETS 384 static void make_tx_filter(int coeff_sets, int coeffs_per_filter, double carrier, double baud_rate, double excess_bandwidth, int fixed_point, const char *tag) { int i; int j; int x; int total_coeffs; double alpha; double beta; double gain; double scaling; double peak; double coeffs[MAX_COEFF_SETS*MAX_COEFFS_PER_FILTER + 1]; total_coeffs = coeff_sets*coeffs_per_filter + 1; alpha = baud_rate/(2.0*(double) (coeff_sets*baud_rate)); beta = excess_bandwidth; compute_raised_cosine_filter(coeffs, total_coeffs, TRUE, FALSE, alpha, beta); /* Find the DC gain of the filter, and adjust the filter to unity gain. */ gain = 0.0; for (i = coeff_sets/2; i < total_coeffs; i += coeff_sets) gain += coeffs[i]; /* Normalise the gain to 1.0 */ for (i = 0; i < total_coeffs; i++) coeffs[i] /= gain; gain = 1.0; if (fixed_point) { peak = -1.0; for (i = 0; i < total_coeffs; i++) { if (fabs(coeffs[i]) > peak) peak = fabs(coeffs[i]); } scaling = 32767.0; if (peak >= 1.0) { scaling /= peak; gain = 1.0/peak; } for (i = 0; i < total_coeffs; i++) coeffs[i] *= scaling; } /* Churn out the data as a C source code header file, which can be directly included by the modem code. */ printf("#define TX_PULSESHAPER%s_GAIN %ff\n", tag, gain); printf("#define TX_PULSESHAPER%s_COEFF_SETS %d\n", tag, coeff_sets); printf("static const %s tx_pulseshaper%s[TX_PULSESHAPER%s_COEFF_SETS][%d] =\n", (fixed_point) ? "int16_t" : "float", tag, tag, coeffs_per_filter); printf("{\n"); for (j = 0; j < coeff_sets; j++) { x = j; printf(" {\n"); if (fixed_point) printf(" %8d, /* Filter %d */\n", (int) coeffs[x], j); else printf(" %15.10ff, /* Filter %d */\n", coeffs[x], j); for (i = 1; i < coeffs_per_filter - 1; i++) { x = i*coeff_sets + j; if (fixed_point) printf(" %8d,\n", (int) coeffs[x]); else printf(" %15.10ff,\n", coeffs[x]); } x = i*coeff_sets + j; if (fixed_point) printf(" %8d\n", (int) coeffs[x]); else printf(" %15.10ff\n", coeffs[x]); if (j < coeff_sets - 1) printf(" },\n"); else printf(" }\n"); } printf("};\n"); } /*- End of function --------------------------------------------------------*/ static void make_rx_filter(int coeff_sets, int coeffs_per_filter, double carrier, double baud_rate, double excess_bandwidth, int fixed_point, const char *tag) { int i; int j; int k; int m; int x; int total_coeffs; double alpha; double beta; double gain; double peak; double coeffs[MAX_COEFF_SETS*MAX_COEFFS_PER_FILTER + 1]; #if 0 complex_t co[MAX_COEFFS_PER_FILTER]; #else double cox[MAX_COEFFS_PER_FILTER]; #endif total_coeffs = coeff_sets*coeffs_per_filter + 1; alpha = baud_rate/(2.0*(double) (coeff_sets*SAMPLE_RATE)); beta = excess_bandwidth; carrier *= 2.0*3.1415926535/SAMPLE_RATE; compute_raised_cosine_filter(coeffs, total_coeffs, TRUE, FALSE, alpha, beta); /* Find the DC gain of the filter, and adjust the filter to unity gain. */ gain = 0.0; for (i = coeff_sets/2; i < total_coeffs; i += coeff_sets) gain += coeffs[i]; /* Normalise the gain to 1.0 */ for (i = 0; i < total_coeffs; i++) coeffs[i] /= gain; gain = 1.0; if (fixed_point) { peak = -1.0; for (i = 0; i < total_coeffs; i++) { if (fabs(coeffs[i]) > peak) peak = fabs(coeffs[i]); } gain = 32767.0; if (peak >= 1.0) gain /= peak; for (i = 0; i < total_coeffs; i++) coeffs[i] *= gain; } /* Churn out the data as a C source code header file, which can be directly included by the modem code. */ printf("#define RX_PULSESHAPER%s_GAIN %ff\n", tag, gain); printf("#define RX_PULSESHAPER%s_COEFF_SETS %d\n", tag, coeff_sets); #if 0 printf("static const %s rx_pulseshaper%s[RX_PULSESHAPER%s_COEFF_SETS][%d] =\n", (fixed_point) ? "complexi16_t" : "complexf_t", tag, tag, coeffs_per_filter); printf("{\n"); for (j = 0; j < coeff_sets; j++) { /* Complex modulate the filter, to make it a complex pulse shaping bandpass filter centred at the nominal carrier frequency. Use the same phase for all the coefficient sets. This means the modem can step the carrier in whole samples, and not worry about the fractional sample shift caused by selecting amongst the various coefficient sets. */ for (i = 0; i < coeffs_per_filter; i++) { m = i - (coeffs_per_filter >> 1); x = i*coeff_sets + j; co[i].re = coeffs[x]*cos(carrier*m); co[i].im = coeffs[x]*sin(carrier*m); } printf(" {\n"); if (fixed_point) printf(" {%8d, %8d}, /* Filter %d */\n", (int) co[i].re, (int) co[i].im, j); else printf(" {%15.10ff, %15.10ff}, /* Filter %d */\n", co[0].re, co[0].im, j); for (i = 1; i < coeffs_per_filter - 1; i++) { if (fixed_point) printf(" {%8d, %8d},\n", (int) co[i].re, (int) co[i].im); else printf(" {%15.10ff, %15.10ff},\n", co[i].re, co[i].im); } if (fixed_point) printf(" {%8d, %8d}\n", (int) co[i].re, (int) co[i].im); else printf(" {%15.10ff, %15.10ff}\n", co[i].re, co[i].im); if (j < coeff_sets - 1) printf(" },\n"); else printf(" }\n"); } printf("};\n"); #else for (k = 0; k < 2; k++) { printf("static const %s rx_pulseshaper%s_%s[RX_PULSESHAPER%s_COEFF_SETS][%d] =\n", (fixed_point) ? "int16_t" : "float", tag, (k == 0) ? "re" : "im", tag, coeffs_per_filter); printf("{\n"); for (j = 0; j < coeff_sets; j++) { /* Complex modulate the filter, to make it a complex pulse shaping bandpass filter centred at the nominal carrier frequency. Use the same phase for all the coefficient sets. This means the modem can step the carrier in whole samples, and not worry about the fractional sample shift caused by selecting amongst the various coefficient sets. */ for (i = 0; i < coeffs_per_filter; i++) { m = i - (coeffs_per_filter >> 1); x = i*coeff_sets + j; if (k == 0) cox[i] = coeffs[x]*cos(carrier*m); else cox[i] = coeffs[x]*sin(carrier*m); } printf(" {\n"); if (fixed_point) printf(" %8d, /* Filter %d */\n", (int) cox[0], j); else printf(" %15.10ff, /* Filter %d */\n", cox[0], j); for (i = 1; i < coeffs_per_filter - 1; i++) { if (fixed_point) printf(" %8d,\n", (int) cox[i]); else printf(" %15.10ff,\n", cox[i]); } if (fixed_point) printf(" %8d\n", (int) cox[i]); else printf(" %15.10ff\n", cox[i]); if (j < coeff_sets - 1) printf(" },\n"); else printf(" }\n"); } printf("};\n"); } #endif } /*- End of function --------------------------------------------------------*/ static void usage(void) { fprintf(stderr, "Usage: make_modem_rx_filter -m [-i] [-r] [-t]\n"); } /*- End of function --------------------------------------------------------*/ int main(int argc, char **argv) { int rx_coeff_sets; int rx_coeffs_per_filter; int tx_coeff_sets; int tx_coeffs_per_filter; int opt; int transmit_modem; int fixed_point; double carrier; double baud_rate; double rx_excess_bandwidth; double tx_excess_bandwidth; const char *rx_tag; const char *tx_tag; const char *modem; fixed_point = FALSE; transmit_modem = FALSE; modem = ""; while ((opt = getopt(argc, argv, "im:rt")) != -1) { switch (opt) { case 'i': fixed_point = TRUE; break; case 'm': modem = optarg; break; case 'r': transmit_modem = FALSE; break; case 't': transmit_modem = TRUE; break; default: usage(); exit(2); break; } } if (strcmp(modem, "V.17") == 0 || strcmp(modem, "V.32bis") == 0) { /* This applies to V.32bis as well as V.17 */ rx_coeff_sets = 192; rx_coeffs_per_filter = 27; rx_excess_bandwidth = 0.5; tx_coeff_sets = 10; tx_coeffs_per_filter = 9; tx_excess_bandwidth = 0.25; carrier = 1800.0; baud_rate = 2400.0; rx_tag = ""; tx_tag = ""; } else if (strcmp(modem, "V.22bis") == 0) { /* This is only intended to apply to transmit. */ rx_coeff_sets = 12; rx_coeffs_per_filter = 27; rx_excess_bandwidth = 0.75; tx_coeff_sets = 40; tx_coeffs_per_filter = 9; tx_excess_bandwidth = 0.75; carrier = 1200.0; baud_rate = 600.0; rx_tag = ""; tx_tag = ""; } else if (strcmp(modem, "V.22bis1200") == 0) { /* This is only intended to apply to receive. */ rx_coeff_sets = 12; rx_coeffs_per_filter = 27; rx_excess_bandwidth = 0.75; tx_coeff_sets = 40; tx_coeffs_per_filter = 9; tx_excess_bandwidth = 0.75; carrier = 1200.0; baud_rate = 600.0; rx_tag = "_1200"; tx_tag = "_1200"; } else if (strcmp(modem, "V.22bis2400") == 0) { /* This is only intended to apply to receive. */ rx_coeff_sets = 12; rx_coeffs_per_filter = 27; rx_excess_bandwidth = 0.75; tx_coeff_sets = 40; tx_coeffs_per_filter = 9; tx_excess_bandwidth = 0.75; carrier = 2400.0; baud_rate = 600.0; rx_tag = "_2400"; tx_tag = "_2400"; } else if (strcmp(modem, "V.27ter2400") == 0) { rx_coeff_sets = 12; rx_coeffs_per_filter = 27; rx_excess_bandwidth = 0.5; tx_coeff_sets = 20; tx_coeffs_per_filter = 9; tx_excess_bandwidth = 0.5; carrier = 1800.0; baud_rate = 1200.0; rx_tag = "_2400"; tx_tag = "_2400"; } else if (strcmp(modem, "V.27ter4800") == 0) { rx_coeff_sets = 8; rx_coeffs_per_filter = 27; rx_excess_bandwidth = 0.5; tx_coeff_sets = 5; tx_coeffs_per_filter = 9; tx_excess_bandwidth = 0.5; carrier = 1800.0; baud_rate = 1600.0; rx_tag = "_4800"; tx_tag = "_4800"; } else if (strcmp(modem, "V.29") == 0) { rx_coeff_sets = 48; rx_coeffs_per_filter = 27; rx_excess_bandwidth = 0.5; tx_coeff_sets = 10; tx_coeffs_per_filter = 9; tx_excess_bandwidth = 0.25; carrier = 1700.0; baud_rate = 2400.0; rx_tag = ""; tx_tag = ""; } else { usage(); exit(2); } if (transmit_modem) { make_tx_filter(tx_coeff_sets, tx_coeffs_per_filter, carrier, baud_rate, tx_excess_bandwidth, fixed_point, tx_tag); } else { make_rx_filter(rx_coeff_sets, rx_coeffs_per_filter, carrier, baud_rate, rx_excess_bandwidth, fixed_point, rx_tag); } return 0; } /*- End of function --------------------------------------------------------*/ /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/lpc10_voicing.c0000664000175000017500000004322311422612262016171 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * lpc10_voicing.c - LPC10 low bit rate speech codec. * * Written by Steve Underwood * * Copyright (C) 2006 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. * * This code is based on the U.S. Department of Defense reference * implementation of the LPC-10 2400 bps Voice Coder. They do not * exert copyright claims on their code, and it may be freely used. */ #if defined(HAVE_CONFIG_H) #include "config.h" #endif #include #include #include #include #if defined(HAVE_TGMATH_H) #include #endif #if defined(HAVE_MATH_H) #include #endif #include "floating_fudge.h" #include "spandsp/telephony.h" #include "spandsp/fast_convert.h" #include "spandsp/dc_restore.h" #include "spandsp/lpc10.h" #include "spandsp/private/lpc10.h" #include "lpc10_encdecs.h" static void vparms(int32_t vwin[], float *inbuf, float *lpbuf, const int32_t buflim[], int32_t half, float *dither, int32_t *mintau, int32_t *zc, int32_t *lbe, int32_t *fbe, float *qs, float *rc1, float *ar_b, float *ar_f) { int32_t inbuf_offset; int32_t lpbuf_offset; int32_t vlen; int32_t stop; int32_t i; int32_t start; float r1; float r2; float e_pre; float ap_rms; float e_0; float oldsgn; float lp_rms; float e_b; float e_f; float r_b; float r_f; float e0ap; /* Calculate zero crossings (ZC) and several energy and correlation */ /* measures on low band and full band speech. Each measure is taken */ /* over either the first or the second half of the voicing window, */ /* depending on the variable HALF. */ lpbuf_offset = buflim[2]; lpbuf -= lpbuf_offset; inbuf_offset = buflim[0]; inbuf -= inbuf_offset; lp_rms = 0.0f; ap_rms = 0.0f; e_pre = 0.0f; e0ap = 0.0f; *rc1 = 0.0f; e_0 = 0.0f; e_b = 0.0f; e_f = 0.0f; r_f = 0.0f; r_b = 0.0f; *zc = 0; vlen = vwin[1] - vwin[0] + 1; start = vwin[0] + half*vlen/2 + 1; stop = start + vlen/2 - 1; /* I'll use the symbol HVL in the table below to represent the value */ /* VLEN/2. Note that if VLEN is odd, then HVL should be rounded down, */ /* i.e., HVL = (VLEN-1)/2. */ /* HALF START STOP */ /* 1 VWIN(1)+1 VWIN(1)+HVL */ /* 2 VWIN(1)+HVL+1 VWIN(1)+2*HVL */ oldsgn = r_sign(1.0f, inbuf[start - 1] - *dither); for (i = start; i <= stop; i++) { lp_rms += fabsf(lpbuf[i]); ap_rms += fabsf(inbuf[i]); e_pre += fabsf(inbuf[i] - inbuf[i - 1]); r1 = inbuf[i]; e0ap += r1*r1; *rc1 += inbuf[i]*inbuf[i - 1]; r1 = lpbuf[i]; e_0 += r1*r1; r1 = lpbuf[i - *mintau]; e_b += r1*r1; r1 = lpbuf[i + *mintau]; e_f += r1*r1; r_f += lpbuf[i]*lpbuf[i + *mintau]; r_b += lpbuf[i]*lpbuf[i - *mintau]; r1 = inbuf[i] + *dither; if (r_sign(1.0f, r1) != oldsgn) { ++(*zc); oldsgn = -oldsgn; } *dither = -(*dither); } /* Normalized short-term autocovariance coefficient at unit sample delay */ *rc1 /= max(e0ap, 1.0f); /* Ratio of the energy of the first difference signal (6 dB/oct preemphasis)*/ /* to the energy of the full band signal */ /* Computing MAX */ r1 = ap_rms*2.0f; *qs = e_pre/max(r1, 1.0f); /* aR_b is the product of the forward and reverse prediction gains, */ /* looking backward in time (the causal case). */ *ar_b = r_b/max(e_b, 1.0f)*(r_b/max(e_0, 1.0f)); /* aR_f is the same as aR_b, but looking forward in time (non causal case).*/ *ar_f = r_f/max(e_f, 1.0f)*(r_f/max(e_0, 1.0f)); /* Normalize ZC, LBE, and FBE to old fixed window length of 180. */ /* (The fraction 90/VLEN has a range of 0.58 to 1) */ r2 = (float) (*zc << 1); *zc = lfastrintf(r2*(90.0f/vlen)); r1 = lp_rms/4*(90.0f/vlen); *lbe = min(lfastrintf(r1), 32767); r1 = ap_rms/4*(90.0f/vlen); *fbe = min(lfastrintf(r1), 32767); } /*- End of function --------------------------------------------------------*/ /* Voicing detection makes voicing decisions for each half */ /* frame of input speech. Tentative voicing decisions are made two frames*/ /* in the future (2F) for each half frame. These decisions are carried */ /* through one frame in the future (1F) to the present (P) frame where */ /* they are examined and smoothed, resulting in the final voicing */ /* decisions for each half frame. */ /* The voicing parameter (signal measurement) column vector (VALUE) */ /* is based on a rectangular window of speech samples determined by the */ /* window placement algorithm. The voicing parameter vector contains the*/ /* AMDF windowed maximum-to-minimum ratio, the zero crossing rate, energy*/ /* measures, reflection coefficients, and prediction gains. The voicing */ /* window is placed to avoid contamination of the voicing parameter vector*/ /* with speech onsets. */ /* The input signal is then classified as unvoiced (including */ /* silence) or voiced. This decision is made by a linear discriminant */ /* function consisting of a dot product of the voicing decision */ /* coefficient (VDC) row vector with the measurement column vector */ /* (VALUE). The VDC vector is 2-dimensional, each row vector is optimized*/ /* for a particular signal-to-noise ratio (SNR). So, before the dot */ /* product is performed, the SNR is estimated to select the appropriate */ /* VDC vector. */ /* The smoothing algorithm is a modified median smoother. The */ /* voicing discriminant function is used by the smoother to determine how*/ /* strongly voiced or unvoiced a signal is. The smoothing is further */ /* modified if a speech onset and a voicing decision transition occur */ /* within one half frame. In this case, the voicing decision transition */ /* is extended to the speech onset. For transmission purposes, there are*/ /* constraints on the duration and transition of voicing decisions. The */ /* smoother takes these constraints into account. */ /* Finally, the energy estimates are updated along with the dither */ /* threshold used to calculate the zero crossing rate (ZC). */ void lpc10_voicing(lpc10_encode_state_t *s, int32_t vwin[], float *inbuf, float *lpbuf, const int32_t buflim[], int32_t half, float *minamd, float *maxamd, int32_t *mintau, float ivrc[], int32_t obound[]) { static const float vdc[100] = { 0.0f, 1714.0f, -110.0f, 334.0f, -4096.0f, -654.0f, 3752.0f, 3769.0f, 0.0f, 1181.0f, 0.0f, 874.0f, -97.0f, 300.0f, -4096.0f, -1021.0f, 2451.0f, 2527.0f, 0.0f, -500.0f, 0.0f, 510.0f, -70.0f, 250.0f, -4096.0f, -1270.0f, 2194.0f, 2491.0f, 0.0f, -1500.0f, 0.0f, 500.0f, -10.0f, 200.0f, -4096.0f, -1300.0f, 2.0e3f, 2.0e3f, 0.0f, -2.0e3f, 0.0f, 500.0f, 0.0f, 0.0f, -4096.0f, -1300.0f, 2.0e3f, 2.0e3f, 0.0f, -2500.0f, 0.0f, 0.0f, 0.0f, 0.0f, 0.0f, 0.0f, 0.0f, 0.0f, 0.0f, 0.0f, 0.0f, 0.0f, 0.0f, 0.0f, 0.0f, 0.0f, 0.0f, 0.0f, 0.0f, 0.0f, 0.0f, 0.0f, 0.0f, 0.0f, 0.0f, 0.0f, 0.0f, 0.0f, 0.0f, 0.0f, 0.0f, 0.0f, 0.0f, 0.0f, 0.0f, 0.0f, 0.0f, 0.0f, 0.0f, 0.0f, 0.0f, 0.0f, 0.0f, 0.0f, 0.0f, 0.0f, 0.0f, 0.0f, 0.0f, 0.0f }; static const int nvdcl = 5; static const float vdcl[10] = { 600.0f, 450.0f, 300.0f, 200.0f, 0.0f, 0.0f, 0.0f, 0.0f, 0.0f, 0.0f }; int32_t inbuf_offset; int32_t lpbuf_offset; int32_t i1; float r1; float r2; float ar_b; float ar_f; int32_t snrl; int32_t i; float value[9]; int32_t zc; int ot; float qs; int32_t vstate; float rc1; int32_t fbe; int32_t lbe; float snr2; #if (_MSC_VER >= 1400) __analysis_assume(half >= 0 && half < 2); #endif inbuf_offset = 0; lpbuf_offset = 0; if (inbuf) { inbuf_offset = buflim[0]; inbuf -= inbuf_offset; } if (lpbuf) { lpbuf_offset = buflim[2]; lpbuf -= lpbuf_offset; } /* Voicing Decision Parameter vector (* denotes zero coefficient): */ /* * MAXMIN */ /* LBE/LBVE */ /* ZC */ /* RC1 */ /* QS */ /* IVRC2 */ /* aR_B */ /* aR_F */ /* * LOG(LBE/LBVE) */ /* Define 2-D voicing decision coefficient vector according to the voicing */ /* parameter order above. Each row (VDC vector) is optimized for a specific */ /* SNR. The last element of the vector is the constant. */ /* E ZC RC1 Qs IVRC2 aRb aRf c */ /* The VOICE array contains the result of the linear discriminant function*/ /* (analog values). The VOIBUF array contains the hard-limited binary */ /* voicing decisions. The VOICE and VOIBUF arrays, according to FORTRAN */ /* memory allocation, are addressed as: */ /* (half-frame number, future-frame number) */ /* | Past | Present | Future1 | Future2 | */ /* | 1,0 | 2,0 | 1,1 | 2,1 | 1,2 | 2,2 | 1,3 | 2,3 | ---> time */ /* Update linear discriminant function history each frame: */ if (half == 0) { s->voice[0][0] = s->voice[1][0]; s->voice[0][1] = s->voice[1][1]; s->voice[1][0] = s->voice[2][0]; s->voice[1][1] = s->voice[2][1]; s->maxmin = *maxamd / max(*minamd, 1.0f); } /* Calculate voicing parameters twice per frame */ vparms(vwin, &inbuf[inbuf_offset], &lpbuf[lpbuf_offset], buflim, half, &s->dither, mintau, &zc, &lbe, &fbe, &qs, &rc1, &ar_b, &ar_f); /* Estimate signal-to-noise ratio to select the appropriate VDC vector. */ /* The SNR is estimated as the running average of the ratio of the */ /* running average full-band voiced energy to the running average */ /* full-band unvoiced energy. SNR filter has gain of 63. */ r1 = (s->snr + s->fbve/(float) max(s->fbue, 1))*63/64.0f; s->snr = (float) lfastrintf(r1); snr2 = s->snr*s->fbue/max(s->lbue, 1); /* Quantize SNR to SNRL according to VDCL thresholds. */ i1 = nvdcl - 1; for (snrl = 0; snrl < i1; snrl++) { if (snr2 > vdcl[snrl]) break; } /* (Note: SNRL = NVDCL here) */ /* Linear discriminant voicing parameters: */ value[0] = s->maxmin; value[1] = (float) lbe/max(s->lbve, 1); value[2] = (float) zc; value[3] = rc1; value[4] = qs; value[5] = ivrc[1]; value[6] = ar_b; value[7] = ar_f; /* Evaluation of linear discriminant function: */ s->voice[2][half] = vdc[snrl*10 + 9]; for (i = 0; i < 8; i++) s->voice[2][half] += vdc[snrl*10 + i]*value[i]; /* Classify as voiced if discriminant > 0, otherwise unvoiced */ /* Voicing decision for current half-frame: 1 = Voiced; 0 = Unvoiced */ s->voibuf[3][half] = (s->voice[2][half] > 0.0f) ? 1 : 0; /* Skip voicing decision smoothing in first half-frame: */ /* Give a value to VSTATE, so that trace statements below will print */ /* a consistent value from one call to the next when HALF .EQ. 1. */ /* The value of VSTATE is not used for any other purpose when this is */ /* true. */ vstate = -1; if (half != 0) { /* Voicing decision smoothing rules (override of linear combination): */ /* Unvoiced half-frames: At least two in a row. */ /* -------------------- */ /* Voiced half-frames: At least two in a row in one frame. */ /* ------------------- Otherwise at least three in a row. */ /* (Due to the way transition frames are encoded) */ /* In many cases, the discriminant function determines how to smooth. */ /* In the following chart, the decisions marked with a * may be overridden. */ /* Voicing override of transitions at onsets: */ /* If a V/UV or UV/V voicing decision transition occurs within one-half */ /* frame of an onset bounding a voicing window, then the transition is */ /* moved to occur at the onset. */ /* P 1F */ /* ----- ----- */ /* 0 0 0 0 */ /* 0 0 0* 1 (If there is an onset there) */ /* 0 0 1* 0* (Based on 2F and discriminant distance) */ /* 0 0 1 1 */ /* 0 1* 0 0 (Always) */ /* 0 1* 0* 1 (Based on discriminant distance) */ /* 0* 1 1 0* (Based on past, 2F, and discriminant distance) */ /* 0 1* 1 1 (If there is an onset there) */ /* 1 0* 0 0 (If there is an onset there) */ /* 1 0 0 1 */ /* 1 0* 1* 0 (Based on discriminant distance) */ /* 1 0* 1 1 (Always) */ /* 1 1 0 0 */ /* 1 1 0* 1* (Based on 2F and discriminant distance) */ /* 1 1 1* 0 (If there is an onset there) */ /* 1 1 1 1 */ /* Determine if there is an onset transition between P and 1F. */ /* OT (Onset Transition) is true if there is an onset between */ /* P and 1F but not after 1F. */ ot = ((obound[0] & 2) != 0 || obound[1] == 1) && (obound[2] & 1) == 0; /* Multi-way dispatch on voicing decision history: */ vstate = (s->voibuf[1][0] << 3) + (s->voibuf[1][1] << 2) + (s->voibuf[2][0] << 1) + s->voibuf[2][1]; switch (vstate + 1) { case 2: if (ot && s->voibuf[3][0] == 1) s->voibuf[2][0] = 1; break; case 3: if (s->voibuf[3][0] == 0 || s->voice[1][0] < -s->voice[1][1]) s->voibuf[2][0] = 0; else s->voibuf[2][1] = 1; break; case 5: s->voibuf[1][1] = 0; break; case 6: if (s->voice[0][1] < -s->voice[1][0]) s->voibuf[1][1] = 0; else s->voibuf[2][0] = 1; break; case 7: if (s->voibuf[0][0] == 1 || s->voibuf[3][0] == 1 || s->voice[1][1] > s->voice[0][0]) s->voibuf[2][1] = 1; else s->voibuf[1][0] = 1; break; case 8: if (ot) s->voibuf[1][1] = 0; break; case 9: if (ot) s->voibuf[1][1] = 1; break; case 11: if (s->voice[1][9] < -s->voice[0][1]) s->voibuf[2][0] = 0; else s->voibuf[1][1] = 1; break; case 12: s->voibuf[1][1] = 1; break; case 14: if (s->voibuf[3][0] == 0 && s->voice[1][1] < -s->voice[1][0]) s->voibuf[2][1] = 0; else s->voibuf[2][0] = 1; break; case 15: if (ot && s->voibuf[3][0] == 0) s->voibuf[2][0] = 0; break; } } /* During unvoiced half-frames, update the low band and full band unvoiced*/ /* energy estimates (LBUE and FBUE) and also the zero crossing */ /* threshold (DITHER). (The input to the unvoiced energy filters is */ /* restricted to be less than 10dB above the previous inputs of the */ /* filters.) */ /* During voiced half-frames, update the low-pass (LBVE) and all-pass */ /* (FBVE) voiced energy estimates. */ if (s->voibuf[3][half] == 0) { r1 = (s->sfbue*63 + (min(fbe, s->ofbue*3) << 3))/64.0f; s->sfbue = lfastrintf(r1); s->fbue = s->sfbue/8; s->ofbue = fbe; r1 = (s->slbue*63 + (min(lbe, s->olbue*3) << 3))/64.0f; s->slbue = lfastrintf(r1); s->lbue = s->slbue/8; s->olbue = lbe; } else { s->lbve = lfastrintf((s->lbve*63 + lbe)/64.0f); s->fbve = lfastrintf((s->fbve*63 + fbe)/64.0f); } /* Set dither threshold to yield proper zero crossing rates in the */ /* presence of low frequency noise and low level signal input. */ /* NOTE: The divisor is a function of REF, the expected energies. */ /* Computing MIN */ /* Computing MAX */ r2 = sqrtf((float) (s->lbue*s->lbve))*64/3000; r1 = max(r2, 1.0f); s->dither = min(r1, 20.0f); /* Voicing decisions are returned in VOIBUF. */ } /*- End of function --------------------------------------------------------*/ /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/sig_tone.c0000664000175000017500000005414711422630371015353 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * sig_tone.c - Signalling tone processing for the 2280Hz, 2400Hz, 2600Hz * and similar signalling tones used in older protocols. * * Written by Steve Underwood * * Copyright (C) 2004 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \file */ #if defined(HAVE_CONFIG_H) #include "config.h" #endif #include #include #include #if defined(HAVE_TGMATH_H) #include #endif #if defined(HAVE_MATH_H) #include #endif #include "floating_fudge.h" #include #include #include #include "spandsp/telephony.h" #include "spandsp/fast_convert.h" #include "spandsp/dc_restore.h" #include "spandsp/saturated.h" #include "spandsp/vector_int.h" #include "spandsp/complex.h" #include "spandsp/power_meter.h" #include "spandsp/dds.h" #include "spandsp/super_tone_rx.h" #include "spandsp/sig_tone.h" #include "spandsp/private/sig_tone.h" /*! PI */ #define PI 3.14159265358979323 enum { NOTCH_COEFF_SET_2280HZ = 0, NOTCH_COEFF_SET_2400HZ, NOTCH_COEFF_SET_2600HZ }; /* The coefficients for the data notch filters. These filters are also the guard filters for tone detection. */ static const sig_tone_notch_coeffs_t notch_coeffs[3] = { { /* 2280 Hz */ #if defined(SPANDSP_USE_FIXED_POINT) { 3600, 14397, 32767}, { 0, -9425, -28954}, { 0, 14196, 32767}, { 0, -17393, -28954}, 12, #else {0.878906f, 0.439362f, 1.0f}, {0.0f, -0.287627f, -0.883605f}, {0.0f, 0.433228f, 1.0f}, {0.0f, -0.530792f, -0.883605f}, #endif }, { /* 2400Hz */ #if defined(SPANDSP_USE_FIXED_POINT) { 3530, 20055, 32767}, { 0, -14950, -28341}, { 0, 20349, 32767}, { 0, -22633, -28341}, 12, #else {0.862000f, 0.612055f, 1.0f}, {0.0f, -0.456264f, -0.864899f}, {0.0f, 0.621021f, 1.0f}, {0.0f, -0.690738f, -0.864899f}, #endif }, { /* 2600Hz */ #if defined(SPANDSP_USE_FIXED_POINT) { 3530, 29569, 32767}, { 0, -24010, -28341}, { 0, 29844, 32767}, { 0, -31208, -28341}, 12, #else {0.862000f, 0.902374f, 1.0f}, {0.0f, -0.732727f, -0.864899f}, {0.0f, 0.910766f, 1.0f}, {0.0f, -0.952393f, -0.864899f}, #endif } }; static const sig_tone_flat_coeffs_t flat_coeffs[1] = { { #if defined(SPANDSP_USE_FIXED_POINT) { 12900, -16384, -16384}, { 0, -8578, -11796}, 15, #else {0.393676f, -0.5f, -0.5f}, {0.0f, -0.261778f, -0.359985f}, #endif } }; static const sig_tone_descriptor_t sig_tones[3] = { { /* 2280Hz (e.g. AC15, and many other European protocols) */ {2280, 0}, {{-10, -20}, {0, 0}}, /* -10+-1 dBm0 and -20+-1 dBm0 */ ms_to_samples(400), /* High to low timout - 300ms to 550ms */ ms_to_samples(225), /* Sharp to flat timeout */ ms_to_samples(225), /* Notch insertion timeout */ ms_to_samples(3), /* Tone on persistence check */ ms_to_samples(8), /* Tone off persistence check */ 1, { ¬ch_coeffs[NOTCH_COEFF_SET_2280HZ], NULL, }, &flat_coeffs[NOTCH_COEFF_SET_2280HZ], 13.0f, -30.0f, -30.0f }, { /* 2600Hz (e.g. many US protocols) */ {2600, 0}, {{-8, -8}, {0, 0}}, ms_to_samples(0), ms_to_samples(0), ms_to_samples(225), ms_to_samples(3), ms_to_samples(8), 1, { ¬ch_coeffs[NOTCH_COEFF_SET_2600HZ], NULL, }, NULL, 15.6f, -30.0f, -30.0f }, { /* 2400Hz/2600Hz (e.g. SS5 and SS5bis) */ {2400, 2600}, {{-8, -8}, {-8, -8}}, ms_to_samples(0), ms_to_samples(0), ms_to_samples(225), ms_to_samples(3), ms_to_samples(8), 2, { ¬ch_coeffs[NOTCH_COEFF_SET_2400HZ], ¬ch_coeffs[NOTCH_COEFF_SET_2600HZ] }, NULL, 15.6f, -30.0f, -30.0f } }; static const int tone_present_bits[3] = { SIG_TONE_1_PRESENT, SIG_TONE_2_PRESENT, SIG_TONE_1_PRESENT | SIG_TONE_2_PRESENT }; static const int tone_change_bits[3] = { SIG_TONE_1_CHANGE, SIG_TONE_2_CHANGE, SIG_TONE_1_CHANGE | SIG_TONE_2_CHANGE }; static const int coeff_sets[3] = { 0, 1, 0 }; SPAN_DECLARE(int) sig_tone_tx(sig_tone_tx_state_t *s, int16_t amp[], int len) { int i; int j; int k; int n; int16_t tone; int need_update; int high_low; for (i = 0; i < len; i += n) { if (s->current_tx_timeout) { if (s->current_tx_timeout <= len - i) { n = s->current_tx_timeout; need_update = TRUE; } else { n = len - i; need_update = FALSE; } s->current_tx_timeout -= n; } else { n = len - i; need_update = FALSE; } if (!(s->current_tx_tone & SIG_TONE_TX_PASSTHROUGH)) vec_zeroi16(&[i], n); /*endif*/ if ((s->current_tx_tone & (SIG_TONE_1_PRESENT | SIG_TONE_2_PRESENT))) { /* Are we in the early phase (high tone energy level), or the sustaining phase (low tone energy level) of tone generation? */ /* This doesn't try to get the high/low timing precise, as there is no value in doing so. It works block by block, and the blocks are normally quite short. */ if (s->high_low_timer > 0) { if (n > s->high_low_timer) n = s->high_low_timer; s->high_low_timer -= n; high_low = 0; } else { high_low = 1; } /*endif*/ for (k = 0; k < s->desc->tones; k++) { if ((s->current_tx_tone & tone_present_bits[k]) && s->phase_rate[k]) { for (j = i; j < i + n; j++) { tone = dds_mod(&(s->phase_acc[k]), s->phase_rate[k], s->tone_scaling[k][high_low], 0); amp[j] = saturated_add16(amp[j], tone); } /*endfor*/ } /*endif*/ } } /*endif*/ if (need_update && s->sig_update) s->sig_update(s->user_data, SIG_TONE_TX_UPDATE_REQUEST, 0, 0); /*endif*/ } /*endfor*/ return len; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) sig_tone_tx_set_mode(sig_tone_tx_state_t *s, int mode, int duration) { int old_tones; int new_tones; old_tones = s->current_tx_tone & (SIG_TONE_1_PRESENT | SIG_TONE_2_PRESENT); new_tones = mode & (SIG_TONE_1_PRESENT | SIG_TONE_2_PRESENT); if (new_tones && old_tones != new_tones) s->high_low_timer = s->desc->high_low_timeout; /*endif*/ /* If a tone is being turned on, let's start the phase from zero */ if ((mode & SIG_TONE_1_PRESENT) && !(s->current_tx_tone & SIG_TONE_1_PRESENT)) s->phase_acc[0] = 0; if ((mode & SIG_TONE_2_PRESENT) && !(s->current_tx_tone & SIG_TONE_2_PRESENT)) s->phase_acc[1] = 0; s->current_tx_tone = mode; s->current_tx_timeout = duration; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(sig_tone_tx_state_t *) sig_tone_tx_init(sig_tone_tx_state_t *s, int tone_type, tone_report_func_t sig_update, void *user_data) { int i; if (sig_update == NULL || tone_type < 1 || tone_type > 3) return NULL; /*endif*/ if (s == NULL) { if ((s = (sig_tone_tx_state_t *) malloc(sizeof(*s))) == NULL) return NULL; } memset(s, 0, sizeof(*s)); s->sig_update = sig_update; s->user_data = user_data; s->desc = &sig_tones[tone_type - 1]; for (i = 0; i < 2; i++) { if (s->desc->tone_freq[i]) s->phase_rate[i] = dds_phase_rate((float) s->desc->tone_freq[i]); else s->phase_rate[i] = 0; s->tone_scaling[i][0] = dds_scaling_dbm0((float) s->desc->tone_amp[i][0]); s->tone_scaling[i][1] = dds_scaling_dbm0((float) s->desc->tone_amp[i][1]); } return s; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) sig_tone_tx_release(sig_tone_tx_state_t *s) { return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) sig_tone_tx_free(sig_tone_tx_state_t *s) { if (s) free(s); return 0; } /*- End of function --------------------------------------------------------*/ int nnn = 0; SPAN_DECLARE(int) sig_tone_rx(sig_tone_rx_state_t *s, int16_t amp[], int len) { #if defined(SPANDSP_USE_FIXED_POINT) int16_t x; int32_t v; int16_t notched_signal[3]; int16_t bandpass_signal; int16_t signal; #else float x; float v; float notched_signal[3]; float bandpass_signal; float signal; #endif int i; int j; int k; int l; int m; int32_t notch_power[3]; int32_t flat_power; int immediate; l = s->desc->tones; if (l == 2) l = 3; notch_power[1] = notch_power[2] = INT32_MAX; for (i = 0; i < len; i++) { if (s->signalling_state_duration < INT_MAX) s->signalling_state_duration++; /*endif*/ signal = amp[i]; for (j = 0; j < l; j++) { k = coeff_sets[j]; /* The notch filter is two cascaded biquads. */ #if defined(SPANDSP_USE_FIXED_POINT) v = ((int32_t) signal*s->desc->notch[k]->a1[0]) + ((int32_t) s->tone[j].notch_z1[0]*s->desc->notch[k]->b1[1]) + ((int32_t) s->tone[j].notch_z1[1]*s->desc->notch[k]->b1[2]); x = v >> 15; v += ((int32_t) s->tone[j].notch_z1[0]*s->desc->notch[k]->a1[1]) + ((int32_t) s->tone[j].notch_z1[1]*s->desc->notch[k]->a1[2]); s->tone[j].notch_z1[1] = s->tone[j].notch_z1[0]; s->tone[j].notch_z1[0] = x; v += ((int32_t) s->tone[j].notch_z2[0]*s->desc->notch[k]->b2[1]) + ((int32_t) s->tone[j].notch_z2[1]*s->desc->notch[k]->b2[2]); x = v >> 15; v += ((int32_t) s->tone[j].notch_z2[0]*s->desc->notch[k]->a2[1]) + ((int32_t) s->tone[j].notch_z2[1]*s->desc->notch[k]->a2[2]); s->tone[j].notch_z2[1] = s->tone[j].notch_z2[0]; s->tone[j].notch_z2[0] = x; notched_signal[j] = v >> s->desc->notch[k]->postscale; #else v = signal*s->desc->notch[k]->a1[0] + s->tone[j].notch_z1[0]*s->desc->notch[k]->b1[1] + s->tone[j].notch_z1[1]*s->desc->notch[k]->b1[2]; x = v; v += s->tone[j].notch_z1[0]*s->desc->notch[k]->a1[1] + s->tone[j].notch_z1[1]*s->desc->notch[k]->a1[2]; s->tone[j].notch_z1[1] = s->tone[j].notch_z1[0]; s->tone[j].notch_z1[0] = x; v += s->tone[j].notch_z2[0]*s->desc->notch[k]->b2[1] + s->tone[j].notch_z2[1]*s->desc->notch[k]->b2[2]; x = v; v += s->tone[j].notch_z2[0]*s->desc->notch[k]->a2[1] + s->tone[j].notch_z2[1]*s->desc->notch[k]->a2[2]; s->tone[j].notch_z2[1] = s->tone[j].notch_z2[0]; s->tone[j].notch_z2[0] = x; notched_signal[j] = v; #endif /* Modulus and leaky integrate the notched data. The result of this isn't used in low tone detect mode, but we must keep the power measurement rolling along. */ notch_power[j] = power_meter_update(&s->tone[j].power, notched_signal[j]); if (j == 1) signal = notched_signal[j]; } if ((s->signalling_state & (SIG_TONE_1_PRESENT | SIG_TONE_2_PRESENT))) { if (s->flat_mode_timeout && --s->flat_mode_timeout == 0) s->flat_mode = TRUE; /*endif*/ } else { s->flat_mode_timeout = s->desc->sharp_flat_timeout; s->flat_mode = FALSE; } /*endif*/ immediate = -1; if (s->flat_mode) { //printf("Flat mode %d %d\n", s->flat_mode_timeout, s->desc->sharp_flat_timeout); /* Flat mode */ bandpass_signal = amp[i]; if (s->desc->flat) { /* The bandpass filter is a single bi-quad stage */ #if defined(SPANDSP_USE_FIXED_POINT) v = ((int32_t) amp[i]*s->desc->flat->a[0]) + ((int32_t) s->flat_z[0]*s->desc->flat->b[1]) + ((int32_t) s->flat_z[1]*s->desc->flat->b[2]); x = v >> 15; v += ((int32_t) s->flat_z[0]*s->desc->flat->a[1]) + ((int32_t) s->flat_z[1]*s->desc->flat->a[2]); s->flat_z[1] = s->flat_z[0]; s->flat_z[0] = x; bandpass_signal = v >> s->desc->flat->postscale; #else v = amp[i]*s->desc->flat->a[0] + s->flat_z[0]*s->desc->flat->b[1] + s->flat_z[1]*s->desc->flat->b[2]; x = v; v += s->flat_z[0]*s->desc->flat->a[1] + s->flat_z[1]*s->desc->flat->a[2]; s->flat_z[1] = s->flat_z[0]; s->flat_z[0] = x; bandpass_signal = v; #endif } flat_power = power_meter_update(&s->flat_power, bandpass_signal); /* For the flat receiver we use a simple power threshold! */ if ((s->signalling_state & (SIG_TONE_1_PRESENT | SIG_TONE_2_PRESENT))) { if (flat_power < s->flat_detection_threshold) { s->signalling_state &= ~tone_present_bits[0]; s->signalling_state |= tone_change_bits[0]; } /*endif*/ } else { if (flat_power > s->flat_detection_threshold) s->signalling_state |= (tone_present_bits[0] | tone_change_bits[0]); /*endif*/ } /*endif*/ /* Notch insertion logic */ /* tone_present and tone_on are equivalent in flat mode */ if ((s->signalling_state & (SIG_TONE_1_PRESENT | SIG_TONE_2_PRESENT))) { s->notch_insertion_timeout = s->desc->notch_lag_time; } else { if (s->notch_insertion_timeout) s->notch_insertion_timeout--; /*endif*/ } /*endif*/ } else { /* Sharp mode */ flat_power = power_meter_update(&s->flat_power, amp[i]); /* Persistence checking and notch insertion logic */ if (flat_power >= s->sharp_detection_threshold) { /* Which is the better of the single tone responses? */ m = (notch_power[0] < notch_power[1]) ? 0 : 1; /* Single tone has precedence. If the better one fails to detect, try for a dual tone signal. */ if ((notch_power[m] >> 6)*s->detection_ratio < (flat_power >> 6)) immediate = m; else if ((notch_power[2] >> 6)*s->detection_ratio < (flat_power >> 7)) immediate = 2; } //printf("Immediate = %d %d %d\n", immediate, s->signalling_state, s->tone_persistence_timeout); if ((s->signalling_state & (SIG_TONE_1_PRESENT | SIG_TONE_2_PRESENT))) { if (immediate != s->current_notch_filter) { /* No tone is detected this sample */ if (--s->tone_persistence_timeout == 0) { /* Tone off is confirmed */ s->tone_persistence_timeout = s->desc->tone_on_check_time; s->signalling_state |= ((s->signalling_state & (SIG_TONE_1_PRESENT | SIG_TONE_2_PRESENT)) << 1); s->signalling_state &= ~(SIG_TONE_1_PRESENT | SIG_TONE_2_PRESENT); } /*endif*/ } else { s->tone_persistence_timeout = s->desc->tone_off_check_time; } /*endif*/ } else { if (s->notch_insertion_timeout) s->notch_insertion_timeout--; /*endif*/ if (immediate >= 0 && immediate == s->last_sample_tone_present) { /* Consistent tone detected this sample */ if (--s->tone_persistence_timeout == 0) { /* Tone on is confirmed */ s->tone_persistence_timeout = s->desc->tone_off_check_time; s->notch_insertion_timeout = s->desc->notch_lag_time; s->signalling_state |= (tone_present_bits[immediate] | tone_change_bits[immediate]); s->current_notch_filter = immediate; } /*endif*/ } else { s->tone_persistence_timeout = s->desc->tone_on_check_time; } /*endif*/ } /*endif*/ //printf("XXX %d %d %d %d %d %d\n", nnn++, notch_power[0], notch_power[1], notch_power[2], flat_power, immediate*10000000); } /*endif*/ if ((s->signalling_state & (SIG_TONE_1_CHANGE | SIG_TONE_2_CHANGE))) { if (s->sig_update) s->sig_update(s->user_data, s->signalling_state, 0, s->signalling_state_duration); /*endif*/ s->signalling_state &= ~(SIG_TONE_1_CHANGE | SIG_TONE_2_CHANGE); s->signalling_state_duration = 0; } /*endif*/ if ((s->current_rx_tone & SIG_TONE_RX_PASSTHROUGH)) { if ((s->current_rx_tone & SIG_TONE_RX_FILTER_TONE) || s->notch_insertion_timeout) #if defined(SPANDSP_USE_FIXED_POINT) amp[i] = saturate16(notched_signal[s->current_notch_filter]); #else amp[i] = fsaturatef(notched_signal[s->current_notch_filter]); #endif /*endif*/ } else { /* Simply mute the media path */ amp[i] = 0; } /*endif*/ s->last_sample_tone_present = immediate; } /*endfor*/ return len; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) sig_tone_rx_set_mode(sig_tone_rx_state_t *s, int mode, int duration) { s->current_rx_tone = mode; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(sig_tone_rx_state_t *) sig_tone_rx_init(sig_tone_rx_state_t *s, int tone_type, tone_report_func_t sig_update, void *user_data) { int i; #if !defined(SPANDSP_USE_FIXED_POINT) int j; #endif if (sig_update == NULL || tone_type < 1 || tone_type > 3) return NULL; /*endif*/ if (s == NULL) { if ((s = (sig_tone_rx_state_t *) malloc(sizeof(*s))) == NULL) return NULL; } memset(s, 0, sizeof(*s)); #if !defined(SPANDSP_USE_FIXED_POINT) for (i = 0; i < 3; i++) { for (j = 0; j < 2; j++) { s->tone[j].notch_z1[i] = 0.0f; s->tone[j].notch_z2[i] = 0.0f; } } for (i = 0; i < 2; i++) s->flat_z[i] = 0.0f; #endif s->last_sample_tone_present = -1; s->sig_update = sig_update; s->user_data = user_data; s->desc = &sig_tones[tone_type - 1]; for (i = 0; i < 3; i++) power_meter_init(&s->tone[i].power, 5); power_meter_init(&s->flat_power, 5); s->flat_detection_threshold = power_meter_level_dbm0(s->desc->flat_detection_threshold); s->sharp_detection_threshold = power_meter_level_dbm0(s->desc->sharp_detection_threshold); s->detection_ratio = powf(10.0f, s->desc->detection_ratio/10.0f) + 1.0f; return s; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) sig_tone_rx_release(sig_tone_rx_state_t *s) { return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) sig_tone_rx_free(sig_tone_rx_state_t *s) { if (s) free(s); return 0; } /*- End of function --------------------------------------------------------*/ /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/adsi.c0000664000175000017500000007654111422612261014464 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * adsi.c - Analogue display service interfaces of various types, including * ADSI, TDD and most caller ID formats. * * Written by Steve Underwood * * Copyright (C) 2003 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \file */ #if defined(HAVE_CONFIG_H) #include "config.h" #endif #include #include #include #include #if defined(HAVE_TGMATH_H) #include #endif #if defined(HAVE_MATH_H) #include #endif #include "floating_fudge.h" #include #include "spandsp/telephony.h" #include "spandsp/fast_convert.h" #include "spandsp/logging.h" #include "spandsp/queue.h" #include "spandsp/complex.h" #include "spandsp/dds.h" #include "spandsp/power_meter.h" #include "spandsp/async.h" #include "spandsp/crc.h" #include "spandsp/fsk.h" #include "spandsp/tone_detect.h" #include "spandsp/tone_generate.h" #include "spandsp/super_tone_rx.h" #include "spandsp/dtmf.h" #include "spandsp/adsi.h" #include "spandsp/private/logging.h" #include "spandsp/private/queue.h" #include "spandsp/private/tone_generate.h" #include "spandsp/private/async.h" #include "spandsp/private/fsk.h" #include "spandsp/private/dtmf.h" #include "spandsp/private/adsi.h" /*! The baudot code to shift from alpha to digits and symbols */ #define BAUDOT_FIGURE_SHIFT 0x1B /*! The baudot code to shift from digits and symbols to alpha */ #define BAUDOT_LETTER_SHIFT 0x1F enum { SOH = 0x01, STX = 0x02, ETX = 0x03, DLE = 0x10, SUB = 0x1A }; static uint16_t adsi_encode_baudot(adsi_tx_state_t *s, uint8_t ch); static uint8_t adsi_decode_baudot(adsi_rx_state_t *s, uint8_t ch); static int adsi_tx_get_bit(void *user_data) { int bit; adsi_tx_state_t *s; s = (adsi_tx_state_t *) user_data; /* This is similar to the async. handling code in fsk.c, but a few special things are needed in the preamble, and postamble of an ADSI message. */ if (s->bit_no < s->preamble_len) { /* Alternating bit preamble */ bit = s->bit_no & 1; s->bit_no++; } else if (s->bit_no < s->preamble_len + s->preamble_ones_len) { /* All 1s for receiver conditioning */ /* NB: The receiver is an async one. It needs a rest after the alternating 1/0 sequence so it can reliably pick up on the next start bit, and sync to the byte stream. */ /* The length of this period varies with the circumstance */ bit = 1; s->bit_no++; } else if (s->bit_no <= s->preamble_len + s->preamble_ones_len) { /* Push out the 8 bit async. chars, with an appropriate number of stop bits */ if (s->bit_pos == 0) { /* Start bit */ bit = 0; s->bit_pos++; } else if (s->bit_pos < 1 + 8) { bit = (s->msg[s->byte_no] >> (s->bit_pos - 1)) & 1; s->bit_pos++; } else if (s->bit_pos < 1 + 8 + s->stop_bits - 1) { /* Stop bit */ bit = 1; s->bit_pos++; } else { /* Stop bit */ bit = 1; s->bit_pos = 0; if (++s->byte_no >= s->msg_len) s->bit_no++; } } else if (s->bit_no <= s->preamble_len + s->preamble_ones_len + s->postamble_ones_len) { /* Extra stop bits beyond the last character, to meet the specs., and ensure all bits are out of the DSP before we shut off the FSK modem. */ bit = 1; s->bit_no++; } else { bit = SIG_STATUS_END_OF_DATA; if (s->tx_signal_on) { /* The FSK should now be switched off. */ s->tx_signal_on = FALSE; s->msg_len = 0; } } //printf("Tx bit %d\n", bit); return bit; } /*- End of function --------------------------------------------------------*/ static int adsi_tdd_get_async_byte(void *user_data) { adsi_tx_state_t *s; s = (adsi_tx_state_t *) user_data; if (s->byte_no < s->msg_len) return s->msg[s->byte_no++]; if (s->tx_signal_on) { /* The FSK should now be switched off. */ s->tx_signal_on = FALSE; s->msg_len = 0; } return 0x1F; } /*- End of function --------------------------------------------------------*/ static void adsi_rx_put_bit(void *user_data, int bit) { adsi_rx_state_t *s; int i; int sum; s = (adsi_rx_state_t *) user_data; if (bit < 0) { /* Special conditions */ span_log(&s->logging, SPAN_LOG_FLOW, "ADSI signal status is %s (%d)\n", signal_status_to_str(bit), bit); switch (bit) { case SIG_STATUS_CARRIER_UP: s->consecutive_ones = 0; s->bit_pos = 0; s->in_progress = 0; s->msg_len = 0; break; case SIG_STATUS_CARRIER_DOWN: break; default: span_log(&s->logging, SPAN_LOG_WARNING, "Unexpected special put bit value - %d!\n", bit); break; } return; } bit &= 1; if (s->bit_pos == 0) { if (bit == 0) { /* Start bit */ s->bit_pos++; if (s->consecutive_ones > 10) { /* This is a line idle condition, which means we should restart message acquisition */ s->msg_len = 0; } s->consecutive_ones = 0; } else { s->consecutive_ones++; } } else if (s->bit_pos <= 8) { s->in_progress >>= 1; if (bit) s->in_progress |= 0x80; s->bit_pos++; } else { /* Stop bit */ if (bit) { if (s->msg_len < 256) { if (s->standard == ADSI_STANDARD_JCLIP) { if (s->msg_len == 0) { /* A message should start DLE SOH, but let's just check we are starting with a DLE for now */ if (s->in_progress == (0x80 | DLE)) s->msg[s->msg_len++] = (uint8_t) s->in_progress; } else { s->msg[s->msg_len++] = (uint8_t) s->in_progress; } if (s->msg_len >= 11 && s->msg_len == ((s->msg[6] & 0x7F) + 11)) { /* Test the CRC-16 */ if (crc_itu16_calc(s->msg + 2, s->msg_len - 2, 0) == 0) { /* Strip off the parity bits. It doesn't seem worthwhile actually checking the parity if a CRC check has succeeded. */ for (i = 0; i < s->msg_len - 2; i++) s->msg[i] &= 0x7F; /* Put everything, except the CRC octets */ s->put_msg(s->user_data, s->msg, s->msg_len - 2); } else { span_log(&s->logging, SPAN_LOG_WARNING, "CRC failed\n"); } s->msg_len = 0; } } else { s->msg[s->msg_len++] = (uint8_t) s->in_progress; if (s->msg_len >= 3 && s->msg_len == (s->msg[1] + 3)) { /* Test the checksum */ sum = 0; for (i = 0; i < s->msg_len - 1; i++) sum += s->msg[i]; if ((-sum & 0xFF) == s->msg[i]) s->put_msg(s->user_data, s->msg, s->msg_len - 1); else span_log(&s->logging, SPAN_LOG_WARNING, "Sumcheck failed\n"); s->msg_len = 0; } } } } else { s->framing_errors++; } s->bit_pos = 0; s->in_progress = 0; } } /*- End of function --------------------------------------------------------*/ static void adsi_tdd_put_async_byte(void *user_data, int byte) { adsi_rx_state_t *s; uint8_t octet; s = (adsi_rx_state_t *) user_data; //printf("Rx bit %x\n", bit); if (byte < 0) { /* Special conditions */ span_log(&s->logging, SPAN_LOG_FLOW, "ADSI signal status is %s (%d)\n", signal_status_to_str(byte), byte); switch (byte) { case SIG_STATUS_CARRIER_UP: s->consecutive_ones = 0; s->bit_pos = 0; s->in_progress = 0; s->msg_len = 0; break; case SIG_STATUS_CARRIER_DOWN: if (s->msg_len > 0) { /* Whatever we have to date constitutes the message */ s->put_msg(s->user_data, s->msg, s->msg_len); s->msg_len = 0; } break; default: span_log(&s->logging, SPAN_LOG_WARNING, "Unexpected special put byte value - %d!\n", byte); break; } return; } if ((octet = adsi_decode_baudot(s, (uint8_t) (byte & 0x1F)))) s->msg[s->msg_len++] = octet; if (s->msg_len >= 256) { s->put_msg(s->user_data, s->msg, s->msg_len); s->msg_len = 0; } } /*- End of function --------------------------------------------------------*/ static void adsi_rx_dtmf(void *user_data, const char *digits, int len) { adsi_rx_state_t *s; s = (adsi_rx_state_t *) user_data; if (s->msg_len == 0) { /* Message starting. Start a 10s timeout, to make things more noise tolerant for a detector running continuously when on hook. */ s->in_progress = 80000; } /* It seems all the DTMF variants are a string of digits and letters, terminated by a "#", or a "C". It appears these are unambiguous, and non-conflicting. */ for ( ; len && s->msg_len < 256; len--) { s->msg[s->msg_len++] = *digits; if (*digits == '#' || *digits == 'C') { s->put_msg(s->user_data, s->msg, s->msg_len); s->msg_len = 0; } digits++; } } /*- End of function --------------------------------------------------------*/ static void start_tx(adsi_tx_state_t *s) { switch (s->standard) { case ADSI_STANDARD_CLASS: fsk_tx_init(&(s->fsktx), &preset_fsk_specs[FSK_BELL202], adsi_tx_get_bit, s); break; case ADSI_STANDARD_CLIP: case ADSI_STANDARD_ACLIP: case ADSI_STANDARD_JCLIP: fsk_tx_init(&(s->fsktx), &preset_fsk_specs[FSK_V23CH1], adsi_tx_get_bit, s); break; case ADSI_STANDARD_CLIP_DTMF: dtmf_tx_init(&(s->dtmftx)); break; case ADSI_STANDARD_TDD: fsk_tx_init(&(s->fsktx), &preset_fsk_specs[FSK_WEITBRECHT], async_tx_get_bit, &(s->asynctx)); async_tx_init(&(s->asynctx), 5, ASYNC_PARITY_NONE, 2, FALSE, adsi_tdd_get_async_byte, s); /* Schedule an explicit shift at the start of baudot transmission */ s->baudot_shift = 2; break; } s->tx_signal_on = TRUE; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) adsi_rx(adsi_rx_state_t *s, const int16_t amp[], int len) { switch (s->standard) { case ADSI_STANDARD_CLIP_DTMF: /* Apply a message timeout. */ s->in_progress -= len; if (s->in_progress <= 0) s->msg_len = 0; dtmf_rx(&(s->dtmfrx), amp, len); break; default: fsk_rx(&(s->fskrx), amp, len); break; } return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(adsi_rx_state_t *) adsi_rx_init(adsi_rx_state_t *s, int standard, put_msg_func_t put_msg, void *user_data) { if (s == NULL) { if ((s = (adsi_rx_state_t *) malloc(sizeof(*s))) == NULL) return NULL; } memset(s, 0, sizeof(*s)); s->put_msg = put_msg; s->user_data = user_data; switch (standard) { case ADSI_STANDARD_CLASS: fsk_rx_init(&(s->fskrx), &preset_fsk_specs[FSK_BELL202], FSK_FRAME_MODE_ASYNC, adsi_rx_put_bit, s); break; case ADSI_STANDARD_CLIP: case ADSI_STANDARD_ACLIP: case ADSI_STANDARD_JCLIP: fsk_rx_init(&(s->fskrx), &preset_fsk_specs[FSK_V23CH1], FSK_FRAME_MODE_ASYNC, adsi_rx_put_bit, s); break; case ADSI_STANDARD_CLIP_DTMF: dtmf_rx_init(&(s->dtmfrx), adsi_rx_dtmf, s); break; case ADSI_STANDARD_TDD: /* TDD uses 5 bit data, no parity and 1.5 stop bits. We scan for the first stop bit, and ride over the fraction. */ fsk_rx_init(&(s->fskrx), &preset_fsk_specs[FSK_WEITBRECHT], FSK_FRAME_MODE_5N1_FRAMES, adsi_tdd_put_async_byte, s); break; } s->standard = standard; span_log_init(&s->logging, SPAN_LOG_NONE, NULL); return s; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) adsi_rx_release(adsi_rx_state_t *s) { return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) adsi_rx_free(adsi_rx_state_t *s) { free(s); return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) adsi_tx(adsi_tx_state_t *s, int16_t amp[], int max_len) { int len; int lenx; len = tone_gen(&(s->alert_tone_gen), amp, max_len); if (s->tx_signal_on) { switch (s->standard) { case ADSI_STANDARD_CLIP_DTMF: if (len < max_len) len += dtmf_tx(&(s->dtmftx), amp, max_len - len); break; default: if (len < max_len) { if ((lenx = fsk_tx(&(s->fsktx), amp + len, max_len - len)) <= 0) s->tx_signal_on = FALSE; len += lenx; } break; } } return len; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) adsi_tx_send_alert_tone(adsi_tx_state_t *s) { tone_gen_init(&(s->alert_tone_gen), &(s->alert_tone_desc)); } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) adsi_tx_set_preamble(adsi_tx_state_t *s, int preamble_len, int preamble_ones_len, int postamble_ones_len, int stop_bits) { if (preamble_len < 0) { if (s->standard == ADSI_STANDARD_JCLIP) s->preamble_len = 0; else s->preamble_len = 300; } else { s->preamble_len = preamble_len; } if (preamble_ones_len < 0) { if (s->standard == ADSI_STANDARD_JCLIP) s->preamble_ones_len = 75; else s->preamble_ones_len = 80; } else { s->preamble_ones_len = preamble_ones_len; } if (postamble_ones_len < 0) { if (s->standard == ADSI_STANDARD_JCLIP) s->postamble_ones_len = 5; else s->postamble_ones_len = 5; } else { s->postamble_ones_len = postamble_ones_len; } if (stop_bits < 0) { if (s->standard == ADSI_STANDARD_JCLIP) s->stop_bits = 4; else s->stop_bits = 1; } else { s->stop_bits = stop_bits; } } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) adsi_tx_put_message(adsi_tx_state_t *s, const uint8_t *msg, int len) { int i; int j; int k; int byte; int parity; int sum; size_t ii; uint16_t crc_value; /* Don't inject a new message when a previous one is still in progress */ if (s->msg_len > 0) return 0; if (!s->tx_signal_on) { /* We need to restart the modem */ start_tx(s); } switch (s->standard) { case ADSI_STANDARD_CLIP_DTMF: if (len >= 128) return -1; len -= (int) dtmf_tx_put(&(s->dtmftx), (char *) msg, len); break; case ADSI_STANDARD_JCLIP: if (len > 128 - 9) return -1; i = 0; s->msg[i++] = DLE; s->msg[i++] = SOH; s->msg[i++] = 0x07; //header s->msg[i++] = DLE; s->msg[i++] = STX; s->msg[i++] = msg[0]; s->msg[i++] = (uint8_t) (len - 2); /* We might need to byte stuff the overall length, but the rest of the message should already be stuffed. */ if (len - 2 == DLE) s->msg[i++] = DLE; memcpy(&s->msg[i], &msg[2], len - 2); i += len - 2; s->msg[i++] = DLE; s->msg[i++] = ETX; /* Set the parity bits */ for (j = 0; j < i; j++) { byte = s->msg[j]; parity = 0; for (k = 1; k <= 7; k++) parity ^= (byte << k); s->msg[j] = (s->msg[j] & 0x7F) | ((uint8_t) parity & 0x80); } crc_value = crc_itu16_calc(s->msg + 2, i - 2, 0); s->msg[i++] = (uint8_t) (crc_value & 0xFF); s->msg[i++] = (uint8_t) ((crc_value >> 8) & 0xFF); s->msg_len = i; break; case ADSI_STANDARD_TDD: if (len > 255) return -1; memcpy(s->msg, msg, len); s->msg_len = len; break; default: if (len > 255) return -1; memcpy(s->msg, msg, len); /* Force the length in case it is wrong */ s->msg[1] = (uint8_t) (len - 2); /* Add the sumcheck */ sum = 0; for (ii = 0; ii < (size_t) len; ii++) sum += s->msg[ii]; s->msg[len] = (uint8_t) ((-sum) & 0xFF); s->msg_len = len + 1; break; } /* Prepare the bit sequencing */ s->byte_no = 0; s->bit_pos = 0; s->bit_no = 0; return len; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(adsi_tx_state_t *) adsi_tx_init(adsi_tx_state_t *s, int standard) { if (s == NULL) { if ((s = (adsi_tx_state_t *) malloc(sizeof(*s))) == NULL) return NULL; } memset(s, 0, sizeof(*s)); tone_gen_descriptor_init(&(s->alert_tone_desc), 2130, -13, 2750, -13, 110, 60, 0, 0, FALSE); s->standard = standard; adsi_tx_set_preamble(s, -1, -1, -1, -1); span_log_init(&s->logging, SPAN_LOG_NONE, NULL); start_tx(s); return s; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) adsi_tx_release(adsi_tx_state_t *s) { return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) adsi_tx_free(adsi_tx_state_t *s) { free(s); return 0; } /*- End of function --------------------------------------------------------*/ static uint16_t adsi_encode_baudot(adsi_tx_state_t *s, uint8_t ch) { static const uint8_t conv[128] = { 0x00, /* NUL */ 0xFF, /* */ 0xFF, /* */ 0xFF, /* */ 0xFF, /* */ 0xFF, /* */ 0xFF, /* */ 0xFF, /* */ 0xFF, /* */ 0xFF, /* */ 0x42, /* LF */ 0xFF, /* */ 0xFF, /* */ 0x48, /* CR */ 0xFF, /* */ 0xFF, /* */ 0xFF, /* */ 0xFF, /* */ 0xFF, /* */ 0xFF, /* */ 0xFF, /* */ 0xFF, /* */ 0xFF, /* */ 0xFF, /* */ 0xFF, /* */ 0xFF, /* */ 0xFF, /* */ 0xFF, /* */ 0xFF, /* */ 0xFF, /* */ 0xFF, /* */ 0xFF, /* */ 0x44, /* */ 0xFF, /* ! */ 0xFF, /* " */ 0x94, /* # */ 0x89, /* $ */ 0xFF, /* % */ 0xFF, /* & */ 0x85, /* ' */ 0x8F, /* ( */ 0x92, /* ) */ 0x8B, /* * */ 0x91, /* + */ 0x8C, /* , */ 0x83, /* - */ 0x9C, /* . */ 0x9D, /* / */ 0x96, /* 0 */ 0x97, /* 1 */ 0x93, /* 2 */ 0x81, /* 3 */ 0x8A, /* 4 */ 0x90, /* 5 */ 0x95, /* 6 */ 0x87, /* 7 */ 0x86, /* 8 */ 0x98, /* 9 */ 0x8E, /* : */ 0xFF, /* ; */ 0xFF, /* < */ 0x9E, /* = */ 0xFF, /* > */ 0x99, /* ? */ 0xFF, /* @ */ 0x03, /* A */ 0x19, /* B */ 0x0E, /* C */ 0x09, /* D */ 0x01, /* E */ 0x0D, /* F */ 0x1A, /* G */ 0x14, /* H */ 0x06, /* I */ 0x0B, /* J */ 0x0F, /* K */ 0x12, /* L */ 0x1C, /* M */ 0x0C, /* N */ 0x18, /* O */ 0x16, /* P */ 0x17, /* Q */ 0x0A, /* R */ 0x05, /* S */ 0x10, /* T */ 0x07, /* U */ 0x1E, /* V */ 0x13, /* W */ 0x1D, /* X */ 0x15, /* Y */ 0x11, /* Z */ 0xFF, /* [ */ 0xFF, /* \ */ 0xFF, /* ] */ 0x9B, /* ^ */ 0xFF, /* _ */ 0xFF, /* ` */ 0x03, /* a */ 0x19, /* b */ 0x0E, /* c */ 0x09, /* d */ 0x01, /* e */ 0x0D, /* f */ 0x1A, /* g */ 0x14, /* h */ 0x06, /* i */ 0x0B, /* j */ 0x0F, /* k */ 0x12, /* l */ 0x1C, /* m */ 0x0C, /* n */ 0x18, /* o */ 0x16, /* p */ 0x17, /* q */ 0x0A, /* r */ 0x05, /* s */ 0x10, /* t */ 0x07, /* u */ 0x1E, /* v */ 0x13, /* w */ 0x1D, /* x */ 0x15, /* y */ 0x11, /* z */ 0xFF, /* { */ 0xFF, /* | */ 0xFF, /* } */ 0xFF, /* ~ */ 0xFF, /* DEL */ }; uint16_t shift; ch = conv[ch]; if (ch == 0xFF) return 0; if ((ch & 0x40)) return ch & 0x1F; if ((ch & 0x80)) { if (s->baudot_shift == 1) return ch & 0x1F; s->baudot_shift = 1; shift = BAUDOT_FIGURE_SHIFT; } else { if (s->baudot_shift == 0) return ch & 0x1F; s->baudot_shift = 0; shift = BAUDOT_LETTER_SHIFT; } return (shift << 5) | (ch & 0x1F); } /*- End of function --------------------------------------------------------*/ static uint8_t adsi_decode_baudot(adsi_rx_state_t *s, uint8_t ch) { static const uint8_t conv[2][32] = { {"\000E\nA SIU\rDRJNFCKTZLWHYPQOBG^MXV^"}, {"\0003\n- '87\r$4*,*:(5+)2#6019?*^./=^"} }; switch (ch) { case BAUDOT_FIGURE_SHIFT: s->baudot_shift = 1; break; case BAUDOT_LETTER_SHIFT: s->baudot_shift = 0; break; default: return conv[s->baudot_shift][ch]; } /* return 0 if we did not produce a character */ return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) adsi_next_field(adsi_rx_state_t *s, const uint8_t *msg, int msg_len, int pos, uint8_t *field_type, uint8_t const **field_body, int *field_len) { int i; /* Return -1 for no more fields. Return -2 for message structure corrupt. */ switch (s->standard) { case ADSI_STANDARD_CLASS: case ADSI_STANDARD_CLIP: case ADSI_STANDARD_ACLIP: if (pos >= msg_len) return -1; /* For MDMF type messages, these standards all use "IE" type fields - type, length, contents - and similar headers */ if (pos <= 0) { /* Return the message type */ *field_type = msg[0]; *field_len = 0; *field_body = NULL; pos = 2; } else { if ((msg[0] & 0x80)) { /* MDMF messages seem to always have a message type with the MSB set. Is that guaranteed? */ *field_type = msg[pos++]; *field_len = msg[pos++]; *field_body = msg + pos; } else { /* SDMF */ *field_type = 0; *field_len = msg_len - pos; *field_body = msg + pos; } pos += *field_len; } if (pos > msg_len) return -2; break; case ADSI_STANDARD_JCLIP: if (pos >= msg_len - 2) return -1; if (pos <= 0) { /* Return the message type */ pos = 5; *field_type = msg[pos++]; if (*field_type == DLE) pos++; if (msg[pos++] == DLE) pos++; *field_len = 0; *field_body = NULL; } else { *field_type = msg[pos++]; if (*field_type == DLE) pos++; *field_len = msg[pos++]; if (*field_len == DLE) pos++; /* TODO: we assume here that the body contains no DLE's that would have been stuffed */ *field_body = msg + pos; pos += *field_len; } if (pos > msg_len - 2) return -2; break; case ADSI_STANDARD_CLIP_DTMF: if (pos > msg_len) return -1; if (pos <= 0) { pos = 1; *field_type = msg[msg_len - 1]; *field_len = 0; *field_body = NULL; } else { /* Remove bias on the pos value */ pos--; if (msg[pos] >= '0' && msg[pos] <= '9') *field_type = CLIP_DTMF_HASH_UNSPECIFIED; else *field_type = msg[pos++]; *field_body = msg + pos; i = pos; while (i < msg_len && msg[i] >= '0' && msg[i] <= '9') i++; *field_len = i - pos; pos = i; /* Check if we have reached the end of message marker. */ if (msg[pos] == '#' || msg[pos] == 'C') pos++; if (pos > msg_len) return -2; /* Bias the pos value, so we don't return 0 inappropriately */ pos++; } break; case ADSI_STANDARD_TDD: if (pos >= msg_len) return -1; *field_type = 0; *field_body = msg; *field_len = msg_len; pos = msg_len; break; } return pos; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) adsi_add_field(adsi_tx_state_t *s, uint8_t *msg, int len, uint8_t field_type, uint8_t const *field_body, int field_len) { int i; int x; switch (s->standard) { case ADSI_STANDARD_CLASS: case ADSI_STANDARD_CLIP: case ADSI_STANDARD_ACLIP: /* These standards all use "IE" type fields - type, length, value - and similar headers */ if (len <= 0) { /* Initialise a new message. The field type is actually the message type. */ msg[0] = field_type; msg[1] = 0; len = 2; } else { /* Add to a message in progress. */ if (field_type) { msg[len++] = field_type; msg[len++] = (uint8_t) field_len; if (field_len == DLE) msg[len++] = (uint8_t) field_len; memcpy(msg + len, field_body, field_len); len += field_len; } else { /* No field type or length, for restricted single message formats */ memcpy(msg + len, field_body, field_len); len += field_len; } } break; case ADSI_STANDARD_JCLIP: /* This standard uses "IE" type fields - type, length, value - but escapes DLE characters, to prevent immitation of a control octet. */ if (len <= 0) { /* Initialise a new message. The field type is actually the message type. */ msg[0] = field_type; msg[1] = 0; len = 2; } else { /* Add to a message in progress. */ msg[len++] = field_type; if (field_type == DLE) msg[len++] = field_type; msg[len++] = (uint8_t) field_len; if (field_len == DLE) msg[len++] = (uint8_t) field_len; for (i = 0; i < field_len; i++) { msg[len++] = field_body[i]; if (field_body[i] == DLE) msg[len++] = field_body[i]; } } break; case ADSI_STANDARD_CLIP_DTMF: if (len <= 0) { /* Initialise a new message. The field type is actually the message type. */ msg[0] = field_type; len = 1; } else { /* Save and reuse the terminator/message type */ x = msg[--len]; if (field_type != CLIP_DTMF_HASH_UNSPECIFIED) msg[len++] = field_type; memcpy(msg + len, field_body, field_len); msg[len + field_len] = (uint8_t) x; len += (field_len + 1); } break; case ADSI_STANDARD_TDD: if (len < 0) len = 0; for (i = 0; i < field_len; i++) { if ((x = adsi_encode_baudot(s, field_body[i]))) { if ((x & 0x3E0)) msg[len++] = (uint8_t) ((x >> 5) & 0x1F); msg[len++] = (uint8_t) (x & 0x1F); } } break; } return len; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(const char *) adsi_standard_to_str(int standard) { switch (standard) { case ADSI_STANDARD_CLASS: return "CLASS"; case ADSI_STANDARD_CLIP: return "CLIP"; case ADSI_STANDARD_ACLIP: return "A-CLIP"; case ADSI_STANDARD_JCLIP: return "J-CLIP"; case ADSI_STANDARD_CLIP_DTMF: return "CLIP-DTMF"; case ADSI_STANDARD_TDD: return "TDD"; } return "???"; } /*- End of function --------------------------------------------------------*/ /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/vector_int.c0000664000175000017500000004672211422612263015720 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * vector_int.c - Integer vector arithmetic * * Written by Steve Underwood * * Copyright (C) 2006 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \file */ #if defined(HAVE_CONFIG_H) #include "config.h" #endif #include #include #include #include #if defined(HAVE_TGMATH_H) #include #endif #if defined(HAVE_MATH_H) #include #endif #include #include "floating_fudge.h" #include "mmx_sse_decs.h" #include "spandsp/telephony.h" #include "spandsp/vector_int.h" SPAN_DECLARE(int32_t) vec_dot_prodi16(const int16_t x[], const int16_t y[], int n) { int32_t z; #if defined(__GNUC__) && defined(SPANDSP_USE_MMX) && defined(__x86_64__) __asm__ __volatile__( " emms;\n" " pxor %%mm0,%%mm0;\n" " leaq -32(%%rsi,%%rax,2),%%rdx;\n" /* rdx = top - 32 */ " cmpq %%rdx,%%rsi;\n" " ja 1f;\n" /* Work in blocks of 16 int16_t's until we are near the end */ " .p2align 2;\n" "2:\n" " movq (%%rdi),%%mm1;\n" " movq (%%rsi),%%mm2;\n" " pmaddwd %%mm2,%%mm1;\n" " paddd %%mm1,%%mm0;\n" " movq 8(%%rdi),%%mm1;\n" " movq 8(%%rsi),%%mm2;\n" " pmaddwd %%mm2,%%mm1;\n" " paddd %%mm1,%%mm0;\n" " movq 16(%%rdi),%%mm1;\n" " movq 16(%%rsi),%%mm2;\n" " pmaddwd %%mm2,%%mm1;\n" " paddd %%mm1,%%mm0;\n" " movq 24(%%rdi),%%mm1;\n" " movq 24(%%rsi),%%mm2;\n" " pmaddwd %%mm2,%%mm1;\n" " paddd %%mm1,%%mm0;\n" " addq $32,%%rsi;\n" " addq $32,%%rdi;\n" " cmpq %%rdx,%%rsi;\n" " jbe 2b;\n" " .p2align 2;\n" "1:\n" " addq $24,%%rdx;\n" /* Now edx = top - 8 */ " cmpq %%rdx,%%rsi;\n" " ja 3f;\n" /* Work in blocks of 4 int16_t's until we are near the end */ " .p2align 2;\n" "4:\n" " movq (%%rdi),%%mm1;\n" " movq (%%rsi),%%mm2;\n" " pmaddwd %%mm2,%%mm1;\n" " paddd %%mm1,%%mm0;\n" " addq $8,%%rsi;\n" " addq $8,%%rdi;\n" " cmpq %%rdx,%%rsi;" " jbe 4b;\n" " .p2align 2;\n" "3:\n" " addq $4,%%rdx;\n" /* Now edx = top - 4 */ " cmpq %%rdx,%%rsi;\n" " ja 5f;\n" /* Work in a block of 2 int16_t's */ " movd (%%rdi),%%mm1;\n" " movd (%%rsi),%%mm2;\n" " pmaddwd %%mm2,%%mm1;\n" " paddd %%mm1,%%mm0;\n" " addq $4,%%rsi;\n" " addq $4,%%rdi;\n" " .p2align 2;\n" "5:\n" " addq $2,%%rdx;\n" /* Now edx = top - 2 */ " cmpq %%rdx,%%rsi;\n" " ja 6f;\n" /* Deal with the very last int16_t, when n is odd */ " movswl (%%rdi),%%eax;\n" " andl $65535,%%eax;\n" " movd %%eax,%%mm1;\n" " movswl (%%rsi),%%eax;\n" " andl $65535,%%eax;\n" " movd %%eax,%%mm2;\n" " pmaddwd %%mm2,%%mm1;\n" " paddd %%mm1,%%mm0;\n" " .p2align 2;\n" "6:\n" /* Merge the pieces of the answer */ " movq %%mm0,%%mm1;\n" " punpckhdq %%mm0,%%mm1;\n" " paddd %%mm1,%%mm0;\n" /* Et voila, eax has the final result */ " movd %%mm0,%%eax;\n" " emms;\n" : "=a" (z) : "S" (x), "D" (y), "a" (n) : "cc" ); #elif defined(__GNUC__) && defined(SPANDSP_USE_MMX) && defined(__i386__) __asm__ __volatile__( " emms;\n" " pxor %%mm0,%%mm0;\n" " leal -32(%%esi,%%eax,2),%%edx;\n" /* edx = top - 32 */ " cmpl %%edx,%%esi;\n" " ja 1f;\n" /* Work in blocks of 16 int16_t's until we are near the end */ " .p2align 2;\n" "2:\n" " movq (%%edi),%%mm1;\n" " movq (%%esi),%%mm2;\n" " pmaddwd %%mm2,%%mm1;\n" " paddd %%mm1,%%mm0;\n" " movq 8(%%edi),%%mm1;\n" " movq 8(%%esi),%%mm2;\n" " pmaddwd %%mm2,%%mm1;\n" " paddd %%mm1,%%mm0;\n" " movq 16(%%edi),%%mm1;\n" " movq 16(%%esi),%%mm2;\n" " pmaddwd %%mm2,%%mm1;\n" " paddd %%mm1,%%mm0;\n" " movq 24(%%edi),%%mm1;\n" " movq 24(%%esi),%%mm2;\n" " pmaddwd %%mm2,%%mm1;\n" " paddd %%mm1,%%mm0;\n" " addl $32,%%esi;\n" " addl $32,%%edi;\n" " cmpl %%edx,%%esi;\n" " jbe 2b;\n" " .p2align 2;\n" "1:\n" " addl $24,%%edx;\n" /* Now edx = top - 8 */ " cmpl %%edx,%%esi;\n" " ja 3f;\n" /* Work in blocks of 4 int16_t's until we are near the end */ " .p2align 2;\n" "4:\n" " movq (%%edi),%%mm1;\n" " movq (%%esi),%%mm2;\n" " pmaddwd %%mm2,%%mm1;\n" " paddd %%mm1,%%mm0;\n" " addl $8,%%esi;\n" " addl $8,%%edi;\n" " cmpl %%edx,%%esi;" " jbe 4b;\n" " .p2align 2;\n" "3:\n" " addl $4,%%edx;\n" /* Now edx = top - 4 */ " cmpl %%edx,%%esi;\n" " ja 5f;\n" /* Work in a block of 2 int16_t's */ " movd (%%edi),%%mm1;\n" " movd (%%esi),%%mm2;\n" " pmaddwd %%mm2,%%mm1;\n" " paddd %%mm1,%%mm0;\n" " addl $4,%%esi;\n" " addl $4,%%edi;\n" " .p2align 2;\n" "5:\n" " addl $2,%%edx;\n" /* Now edx = top - 2 */ " cmpl %%edx,%%esi;\n" " ja 6f;\n" /* Deal with the very last int16_t, when n is odd */ " movswl (%%edi),%%eax;\n" " andl $65535,%%eax;\n" " movd %%eax,%%mm1;\n" " movswl (%%esi),%%eax;\n" " andl $65535,%%eax;\n" " movd %%eax,%%mm2;\n" " pmaddwd %%mm2,%%mm1;\n" " paddd %%mm1,%%mm0;\n" " .p2align 2;\n" "6:\n" /* Merge the pieces of the answer */ " movq %%mm0,%%mm1;\n" " punpckhdq %%mm0,%%mm1;\n" " paddd %%mm1,%%mm0;\n" /* Et voila, eax has the final result */ " movd %%mm0,%%eax;\n" " emms;\n" : "=a" (z) : "S" (x), "D" (y), "a" (n) : "cc" ); #else int i; z = 0; for (i = 0; i < n; i++) z += (int32_t) x[i]*(int32_t) y[i]; #endif return z; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int32_t) vec_circular_dot_prodi16(const int16_t x[], const int16_t y[], int n, int pos) { int32_t z; z = vec_dot_prodi16(&x[pos], &y[0], n - pos); z += vec_dot_prodi16(&x[0], &y[n - pos], pos); return z; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) vec_lmsi16(const int16_t x[], int16_t y[], int n, int16_t error) { int i; for (i = 0; i < n; i++) y[i] += (int16_t) (((int32_t) x[i]*(int32_t) error) >> 15); } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) vec_circular_lmsi16(const int16_t x[], int16_t y[], int n, int pos, int16_t error) { vec_lmsi16(&x[pos], &y[0], n - pos, error); vec_lmsi16(&x[0], &y[n - pos], pos, error); } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int32_t) vec_min_maxi16(const int16_t x[], int n, int16_t out[]) { #if defined(__GNUC__) && defined(SPANDSP_USE_MMX) && defined(__x86_64__) static const int32_t lower_bound = 0x80008000; static const int32_t upper_bound = 0x7FFF7FFF; int32_t max; __asm__ __volatile__( " emms;\n" " pushq %%rdx;\n" " leaq -8(%%rsi,%%rax,2),%%rdx;\n" " cmpq %%rdx,%%rsi;\n" " jbe 2f;\n" " movd %[lower],%%mm0;\n" " movd %[upper],%%mm1;\n" " jmp 1f;\n" " .p2align 2;\n" "2:\n" " movq (%%rsi),%%mm0;\n" /* mm0 will be max's */ " movq %%mm0,%%mm1;\n" /* mm1 will be min's */ " addq $8,%%rsi;\n" " cmpq %%rdx,%%rsi;\n" " ja 4f;\n" "3:\n" " movq (%%rsi),%%mm2;\n" " movq %%mm2,%%mm3;\n" " pcmpgtw %%mm0,%%mm3;\n" /* mm3 is bitmask for words where mm2 > mm0 */ " movq %%mm3,%%mm4;\n" " pand %%mm2,%%mm3;\n" /* mm3 is mm2 masked to new max's */ " pandn %%mm0,%%mm4;\n" /* mm4 is mm0 masked to its max's */ " por %%mm3,%%mm4;\n" " movq %%mm4,%%mm0;\n" /* Now mm0 is updated max's */ " movq %%mm1,%%mm3;\n" " pcmpgtw %%mm2,%%mm3;\n" /* mm3 is bitmask for words where mm2 < mm1 */ " pand %%mm3,%%mm2;\n" /* mm2 is mm2 masked to new min's */ " pandn %%mm1,%%mm3;\n" /* mm3 is mm1 masked to its min's */ " por %%mm3,%%mm2;\n" " movq %%mm2,%%mm1;\n" /* now mm1 is updated min's */ " addq $8,%%rsi;\n" " cmpq %%rdx,%%rsi;\n" " jbe 3b;\n" " .p2align 2;\n" "4:\n" /* Merge down the 4-word max/mins to lower 2 words */ " movq %%mm0,%%mm2;\n" " psrlq $32,%%mm2;\n" " movq %%mm2,%%mm3;\n" " pcmpgtw %%mm0,%%mm3;\n" /* mm3 is bitmask for words where mm2 > mm0 */ " pand %%mm3,%%mm2;\n" /* mm2 is mm2 masked to new max's */ " pandn %%mm0,%%mm3;\n" /* mm3 is mm0 masked to its max's */ " por %%mm3,%%mm2;\n" " movq %%mm2,%%mm0;\n" /* now mm0 is updated max's */ " movq %%mm1,%%mm2;\n" " psrlq $32,%%mm2;\n" " movq %%mm1,%%mm3;\n" " pcmpgtw %%mm2,%%mm3;\n" /* mm3 is bitmask for words where mm2 < mm1 */ " pand %%mm3,%%mm2;\n" /* mm2 is mm2 masked to new min's */ " pandn %%mm1,%%mm3;\n" /* mm3 is mm1 masked to its min's */ " por %%mm3,%%mm2;\n" " movq %%mm2,%%mm1;\n" /* now mm1 is updated min's */ " .p2align 2;\n" "1:\n" " addq $4,%%rdx;\n" /* now dx = top-4 */ " cmpq %%rdx,%%rsi;\n" " ja 5f;\n" /* Here, there are >= 2 words of input remaining */ " movd (%%rsi),%%mm2;\n" " movq %%mm2,%%mm3;\n" " pcmpgtw %%mm0,%%mm3;\n" /* mm3 is bitmask for words where mm2 > mm0 */ " movq %%mm3,%%mm4;\n" " pand %%mm2,%%mm3;\n" /* mm3 is mm2 masked to new max's */ " pandn %%mm0,%%mm4;\n" /* mm4 is mm0 masked to its max's */ " por %%mm3,%%mm4;\n" " movq %%mm4,%%mm0;\n" /* now mm0 is updated max's */ " movq %%mm1,%%mm3;\n" " pcmpgtw %%mm2,%%mm3;\n" /* mm3 is bitmask for words where mm2 < mm1 */ " pand %%mm3,%%mm2;\n" /* mm2 is mm2 masked to new min's */ " pandn %%mm1,%%mm3;\n" /* mm3 is mm1 masked to its min's */ " por %%mm3,%%mm2;\n" " movq %%mm2,%%mm1;\n" /* now mm1 is updated min's */ " addq $4,%%rsi;\n" " .p2align 2;\n" "5:\n" /* Merge down the 2-word max/mins to 1 word */ " movq %%mm0,%%mm2;\n" " psrlq $16,%%mm2;\n" " movq %%mm2,%%mm3;\n" " pcmpgtw %%mm0,%%mm3;\n" /* mm3 is bitmask for words where mm2 > mm0 */ " pand %%mm3,%%mm2;\n" /* mm2 is mm2 masked to new max's */ " pandn %%mm0,%%mm3;\n" /* mm3 is mm0 masked to its max's */ " por %%mm3,%%mm2;\n" " movd %%mm2,%%ecx;\n" /* cx is max so far */ " movq %%mm1,%%mm2;\n" " psrlq $16,%%mm2;\n" " movq %%mm1,%%mm3;\n" " pcmpgtw %%mm2,%%mm3;\n" /* mm3 is bitmask for words where mm2 < mm1 */ " pand %%mm3,%%mm2;\n" /* mm2 is mm2 masked to new min's */ " pandn %%mm1,%%mm3;\n" /* mm3 is mm1 masked to its min's */ " por %%mm3,%%mm2;\n" " movd %%mm2,%%eax;\n" /* ax is min so far */ " addq $2,%%rdx;\n" /* now dx = top-2 */ " cmpq %%rdx,%%rsi;\n" " ja 6f;\n" /* Here, there is one word of input left */ " cmpw (%%rsi),%%cx;\n" " jge 9f;\n" " movw (%%rsi),%%cx;\n" " .p2align 2;\n" "9:\n" " cmpw (%%rsi),%%ax;\n" " jle 6f;\n" " movw (%%rsi),%%ax;\n" " .p2align 2;\n" "6:\n" /* (finally!) cx is the max, ax the min */ " movswl %%cx,%%ecx;\n" " movswl %%ax,%%eax;\n" " popq %%rdx;\n" /* ptr to output max,min vals */ " andq %%rdx,%%rdx;\n" " jz 7f;\n" " movw %%cx,(%%rdx);\n" /* max */ " movw %%ax,2(%%rdx);\n" /* min */ " .p2align 2;\n" "7:\n" /* Now calculate max absolute value */ " negl %%eax;\n" " cmpl %%ecx,%%eax;\n" " jge 8f;\n" " movl %%ecx,%%eax;\n" " .p2align 2;\n" "8:\n" " emms;\n" : "=a" (max) : "S" (x), "a" (n), "d" (out), [lower] "m" (lower_bound), [upper] "m" (upper_bound) : "ecx" ); #elif defined(__GNUC__) && defined(SPANDSP_USE_MMX) && defined(__i386__) static const int32_t lower_bound = 0x80008000; static const int32_t upper_bound = 0x7FFF7FFF; int32_t max; __asm__ __volatile__( " emms;\n" " pushl %%edx;\n" " leal -8(%%esi,%%eax,2),%%edx;\n" " cmpl %%edx,%%esi;\n" " jbe 2f;\n" " movd %[lower],%%mm0;\n" " movd %[upper],%%mm1;\n" " jmp 1f;\n" " .p2align 2;\n" "2:\n" " movq (%%esi),%%mm0;\n" /* mm0 will be max's */ " movq %%mm0,%%mm1;\n" /* mm1 will be min's */ " addl $8,%%esi;\n" " cmpl %%edx,%%esi;\n" " ja 4f;\n" " .p2align 2;\n" "3:\n" " movq (%%esi),%%mm2;\n" " movq %%mm2,%%mm3;\n" " pcmpgtw %%mm0,%%mm3;\n" /* mm3 is bitmask for words where mm2 > mm0 */ " movq %%mm3,%%mm4;\n" " pand %%mm2,%%mm3;\n" /* mm3 is mm2 masked to new max's */ " pandn %%mm0,%%mm4;\n" /* mm4 is mm0 masked to its max's */ " por %%mm3,%%mm4;\n" " movq %%mm4,%%mm0;\n" /* Now mm0 is updated max's */ " movq %%mm1,%%mm3;\n" " pcmpgtw %%mm2,%%mm3;\n" /* mm3 is bitmask for words where mm2 < mm1 */ " pand %%mm3,%%mm2;\n" /* mm2 is mm2 masked to new min's */ " pandn %%mm1,%%mm3;\n" /* mm3 is mm1 masked to its min's */ " por %%mm3,%%mm2;\n" " movq %%mm2,%%mm1;\n" /* now mm1 is updated min's */ " addl $8,%%esi;\n" " cmpl %%edx,%%esi;\n" " jbe 3b;\n" " .p2align 2;\n" "4:\n" /* Merge down the 4-word max/mins to lower 2 words */ " movq %%mm0,%%mm2;\n" " psrlq $32,%%mm2;\n" " movq %%mm2,%%mm3;\n" " pcmpgtw %%mm0,%%mm3;\n" /* mm3 is bitmask for words where mm2 > mm0 */ " pand %%mm3,%%mm2;\n" /* mm2 is mm2 masked to new max's */ " pandn %%mm0,%%mm3;\n" /* mm3 is mm0 masked to its max's */ " por %%mm3,%%mm2;\n" " movq %%mm2,%%mm0;\n" /* now mm0 is updated max's */ " movq %%mm1,%%mm2;\n" " psrlq $32,%%mm2;\n" " movq %%mm1,%%mm3;\n" " pcmpgtw %%mm2,%%mm3;\n" /* mm3 is bitmask for words where mm2 < mm1 */ " pand %%mm3,%%mm2;\n" /* mm2 is mm2 masked to new min's */ " pandn %%mm1,%%mm3;\n" /* mm3 is mm1 masked to its min's */ " por %%mm3,%%mm2;\n" " movq %%mm2,%%mm1;\n" /* now mm1 is updated min's */ " .p2align 2;\n" "1:\n" " addl $4,%%edx;\n" /* now dx = top-4 */ " cmpl %%edx,%%esi;\n" " ja 5f;\n" /* Here, there are >= 2 words of input remaining */ " movd (%%esi),%%mm2;\n" " movq %%mm2,%%mm3;\n" " pcmpgtw %%mm0,%%mm3;\n" /* mm3 is bitmask for words where mm2 > mm0 */ " movq %%mm3,%%mm4;\n" " pand %%mm2,%%mm3;\n" /* mm3 is mm2 masked to new max's */ " pandn %%mm0,%%mm4;\n" /* mm4 is mm0 masked to its max's */ " por %%mm3,%%mm4;\n" " movq %%mm4,%%mm0;\n" /* now mm0 is updated max's */ " movq %%mm1,%%mm3;\n" " pcmpgtw %%mm2,%%mm3;\n" /* mm3 is bitmask for words where mm2 < mm1 */ " pand %%mm3,%%mm2;\n" /* mm2 is mm2 masked to new min's */ " pandn %%mm1,%%mm3;\n" /* mm3 is mm1 masked to its min's */ " por %%mm3,%%mm2;\n" " movq %%mm2,%%mm1;\n" /* now mm1 is updated min's */ " addl $4,%%esi;\n" " .p2align 2;\n" "5:\n" /* Merge down the 2-word max/mins to 1 word */ " movq %%mm0,%%mm2;\n" " psrlq $16,%%mm2;\n" " movq %%mm2,%%mm3;\n" " pcmpgtw %%mm0,%%mm3;\n" /* mm3 is bitmask for words where mm2 > mm0 */ " pand %%mm3,%%mm2;\n" /* mm2 is mm2 masked to new max's */ " pandn %%mm0,%%mm3;\n" /* mm3 is mm0 masked to its max's */ " por %%mm3,%%mm2;\n" " movd %%mm2,%%ecx;\n" /* cx is max so far */ " movq %%mm1,%%mm2;\n" " psrlq $16,%%mm2;\n" " movq %%mm1,%%mm3;\n" " pcmpgtw %%mm2,%%mm3;\n" /* mm3 is bitmask for words where mm2 < mm1 */ " pand %%mm3,%%mm2;\n" /* mm2 is mm2 masked to new min's */ " pandn %%mm1,%%mm3;\n" /* mm3 is mm1 masked to its min's */ " por %%mm3,%%mm2;\n" " movd %%mm2,%%eax;\n" /* ax is min so far */ " addl $2,%%edx;\n" /* now dx = top-2 */ " cmpl %%edx,%%esi;\n" " ja 6f;\n" /* Here, there is one word of input left */ " cmpw (%%esi),%%cx;\n" " jge 9f;\n" " movw (%%esi),%%cx;\n" " .p2align 2;\n" "9:\n" " cmpw (%%esi),%%ax;\n" " jle 6f;\n" " movw (%%esi),%%ax;\n" " .p2align 2;\n" "6:\n" /* (finally!) cx is the max, ax the min */ " movswl %%cx,%%ecx;\n" " movswl %%ax,%%eax;\n" " popl %%edx;\n" /* ptr to output max,min vals */ " andl %%edx,%%edx;\n" " jz 7f;\n" " movw %%cx,(%%edx);\n" /* max */ " movw %%ax,2(%%edx);\n" /* min */ " .p2align 2;\n" "7:\n" /* Now calculate max absolute value */ " negl %%eax;\n" " cmpl %%ecx,%%eax;\n" " jge 8f;\n" " movl %%ecx,%%eax;\n" " .p2align 2;\n" "8:\n" " emms;\n" : "=a" (max) : "S" (x), "a" (n), "d" (out), [lower] "m" (lower_bound), [upper] "m" (upper_bound) : "ecx" ); #else int i; int16_t min; int16_t max; int16_t temp; int32_t z; max = INT16_MIN; min = INT16_MAX; for (i = 0; i < n; i++) { temp = x[i]; if (temp > max) max = temp; /*endif*/ if (temp < min) min = temp; /*endif*/ } /*endfor*/ if (out) { out[0] = max; out[1] = min; } z = abs(min); if (z > max) return z; #endif return max; } /*- End of function --------------------------------------------------------*/ /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/complex_vector_float.c0000664000175000017500000001346311422612261017754 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * complex_vector_float.c - Floating complex vector arithmetic routines. * * Written by Steve Underwood * * Copyright (C) 2006 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \file */ #if defined(HAVE_CONFIG_H) #include "config.h" #endif #include #include #include #include #if defined(HAVE_TGMATH_H) #include #endif #if defined(HAVE_MATH_H) #include #endif #include #include "floating_fudge.h" #include "mmx_sse_decs.h" #include "spandsp/telephony.h" #include "spandsp/logging.h" #include "spandsp/complex.h" #include "spandsp/vector_float.h" #include "spandsp/complex_vector_float.h" #if defined(__GNUC__) && defined(SPANDSP_USE_SSE3) SPAN_DECLARE(void) cvec_mulf(complexf_t z[], const complexf_t x[], const complexf_t y[], int n) { int i; __m128 n0; __m128 n1; __m128 n2; __m128 n3; if ((i = n & ~1)) { i <<= 1; for (i -= 4; i >= 0; i -= 4) { n3 = _mm_loadu_ps((float *) x + i); n0 = _mm_moveldup_ps(n3); n1 = _mm_loadu_ps((float *) y + i); n0 = _mm_mul_ps(n0, n1); n1 = _mm_shuffle_ps(n1, n1, 0xB1); n2 = _mm_movehdup_ps(n3); n2 = _mm_mul_ps(n2, n1); n0 = _mm_addsub_ps(n0, n2); _mm_storeu_ps((float *) z + i, n0); } } /* Now deal with the last element, which doesn't fill an SSE2 register */ switch (n & 1) { case 1: z[n - 1].re = x[n - 1].re*y[n - 1].re - x[n - 1].im*y[n - 1].im; z[n - 1].im = x[n - 1].re*y[n - 1].im + x[n - 1].im*y[n - 1].re; } } #else SPAN_DECLARE(void) cvec_mulf(complexf_t z[], const complexf_t x[], const complexf_t y[], int n) { int i; for (i = 0; i < n; i++) { z[i].re = x[i].re*y[i].re - x[i].im*y[i].im; z[i].im = x[i].re*y[i].im + x[i].im*y[i].re; } } #endif /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) cvec_mul(complex_t z[], const complex_t x[], const complex_t y[], int n) { int i; for (i = 0; i < n; i++) { z[i].re = x[i].re*y[i].re - x[i].im*y[i].im; z[i].im = x[i].re*y[i].im + x[i].im*y[i].re; } } /*- End of function --------------------------------------------------------*/ #if defined(HAVE_LONG_DOUBLE) SPAN_DECLARE(void) cvec_mull(complexl_t z[], const complexl_t x[], const complexl_t y[], int n) { int i; for (i = 0; i < n; i++) { z[i].re = x[i].re*y[i].re - x[i].im*y[i].im; z[i].im = x[i].re*y[i].im + x[i].im*y[i].re; } } /*- End of function --------------------------------------------------------*/ #endif SPAN_DECLARE(complexf_t) cvec_dot_prodf(const complexf_t x[], const complexf_t y[], int n) { int i; complexf_t z; z = complex_setf(0.0f, 0.0f); for (i = 0; i < n; i++) { z.re += (x[i].re*y[i].re - x[i].im*y[i].im); z.im += (x[i].re*y[i].im + x[i].im*y[i].re); } return z; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(complex_t) cvec_dot_prod(const complex_t x[], const complex_t y[], int n) { int i; complex_t z; z = complex_set(0.0, 0.0); for (i = 0; i < n; i++) { z.re += (x[i].re*y[i].re - x[i].im*y[i].im); z.im += (x[i].re*y[i].im + x[i].im*y[i].re); } return z; } /*- End of function --------------------------------------------------------*/ #if defined(HAVE_LONG_DOUBLE) SPAN_DECLARE(complexl_t) cvec_dot_prodl(const complexl_t x[], const complexl_t y[], int n) { int i; complexl_t z; z = complex_setl(0.0L, 0.0L); for (i = 0; i < n; i++) { z.re += (x[i].re*y[i].re - x[i].im*y[i].im); z.im += (x[i].re*y[i].im + x[i].im*y[i].re); } return z; } /*- End of function --------------------------------------------------------*/ #endif SPAN_DECLARE(complexf_t) cvec_circular_dot_prodf(const complexf_t x[], const complexf_t y[], int n, int pos) { complexf_t z; complexf_t z1; z = cvec_dot_prodf(&x[pos], &y[0], n - pos); z1 = cvec_dot_prodf(&x[0], &y[n - pos], pos); z = complex_addf(&z, &z1); return z; } /*- End of function --------------------------------------------------------*/ #define LMS_LEAK_RATE 0.9999f SPAN_DECLARE(void) cvec_lmsf(const complexf_t x[], complexf_t y[], int n, const complexf_t *error) { int i; for (i = 0; i < n; i++) { /* Leak a little to tame uncontrolled wandering */ y[i].re = y[i].re*LMS_LEAK_RATE + (x[i].im*error->im + x[i].re*error->re); y[i].im = y[i].im*LMS_LEAK_RATE + (x[i].re*error->im - x[i].im*error->re); } } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) cvec_circular_lmsf(const complexf_t x[], complexf_t y[], int n, int pos, const complexf_t *error) { cvec_lmsf(&x[pos], &y[0], n - pos, error); cvec_lmsf(&x[0], &y[n - pos], pos, error); } /*- End of function --------------------------------------------------------*/ /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/v17_v32bis_rx_constellation_maps.h0000664000175000017500000124065111422612263022043 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * v17rx_v32bis_constellation_maps.h - ITU V.17 and V.32bis modems * receive part. * Constellation mapping. * * Written by Steve Underwood * * Copyright (C) 2004 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* The following table maps the 8 soft-decisions associated with every possible point in the constellation space. If you look at the constellations carefully, all 4 can be accurately mapped at 0.5 unit resolution. */ static const uint8_t constel_maps[4][36][36][8] = { { /* 14,400bps map */ { {0x50, 0x69, 0x5a, 0x63, 0x6c, 0x55, 0x66, 0x5f}, {0x50, 0x69, 0x5a, 0x63, 0x6c, 0x55, 0x66, 0x5f}, {0x50, 0x69, 0x5a, 0x63, 0x6c, 0x55, 0x66, 0x5f}, {0x00, 0x49, 0x5a, 0x63, 0x6c, 0x55, 0x66, 0x5f}, {0x00, 0x49, 0x5a, 0x63, 0x6c, 0x55, 0x66, 0x5f}, {0x00, 0x49, 0x5a, 0x63, 0x6c, 0x55, 0x66, 0x5f}, {0x00, 0x49, 0x5a, 0x63, 0x6c, 0x55, 0x66, 0x5f}, {0x00, 0x49, 0x5a, 0x63, 0x4c, 0x05, 0x66, 0x5f}, {0x00, 0x49, 0x5a, 0x63, 0x4c, 0x05, 0x66, 0x5f}, {0x00, 0x49, 0x5a, 0x63, 0x4c, 0x05, 0x66, 0x5f}, {0x00, 0x49, 0x5a, 0x63, 0x4c, 0x05, 0x66, 0x5f}, {0x00, 0x49, 0x5a, 0x63, 0x4c, 0x05, 0x66, 0x5f}, {0x00, 0x49, 0x7a, 0x63, 0x4c, 0x05, 0x66, 0x5f}, {0x00, 0x49, 0x7a, 0x63, 0x4c, 0x05, 0x66, 0x5f}, {0x00, 0x49, 0x7a, 0x73, 0x4c, 0x05, 0x66, 0x7f}, {0x00, 0x49, 0x7a, 0x73, 0x4c, 0x05, 0x66, 0x7f}, {0x08, 0x49, 0x7a, 0x73, 0x4c, 0x05, 0x76, 0x7f}, {0x08, 0x49, 0x7a, 0x73, 0x4c, 0x05, 0x76, 0x7f}, {0x08, 0x41, 0x7a, 0x73, 0x4c, 0x0d, 0x76, 0x7f}, {0x08, 0x41, 0x7a, 0x73, 0x4c, 0x0d, 0x76, 0x7f}, {0x08, 0x41, 0x6a, 0x73, 0x44, 0x0d, 0x76, 0x7f}, {0x08, 0x41, 0x6a, 0x73, 0x44, 0x0d, 0x76, 0x7f}, {0x08, 0x41, 0x6a, 0x53, 0x44, 0x0d, 0x76, 0x6f}, {0x08, 0x41, 0x6a, 0x53, 0x44, 0x0d, 0x76, 0x6f}, {0x08, 0x41, 0x6a, 0x53, 0x44, 0x0d, 0x56, 0x6f}, {0x08, 0x41, 0x6a, 0x53, 0x44, 0x0d, 0x56, 0x6f}, {0x08, 0x41, 0x6a, 0x53, 0x44, 0x0d, 0x56, 0x6f}, {0x08, 0x41, 0x6a, 0x53, 0x44, 0x0d, 0x56, 0x6f}, {0x08, 0x41, 0x6a, 0x53, 0x44, 0x0d, 0x56, 0x6f}, {0x08, 0x41, 0x6a, 0x53, 0x44, 0x0d, 0x56, 0x6f}, {0x58, 0x41, 0x6a, 0x53, 0x44, 0x5d, 0x56, 0x6f}, {0x58, 0x41, 0x6a, 0x53, 0x44, 0x5d, 0x56, 0x6f}, {0x58, 0x41, 0x6a, 0x53, 0x44, 0x5d, 0x56, 0x6f}, {0x58, 0x41, 0x6a, 0x53, 0x44, 0x5d, 0x56, 0x6f}, {0x58, 0x61, 0x6a, 0x53, 0x64, 0x5d, 0x56, 0x6f}, {0x58, 0x61, 0x6a, 0x53, 0x64, 0x5d, 0x56, 0x6f} }, { {0x50, 0x69, 0x5a, 0x63, 0x6c, 0x55, 0x66, 0x5f}, {0x50, 0x69, 0x5a, 0x63, 0x6c, 0x55, 0x66, 0x5f}, {0x50, 0x69, 0x5a, 0x63, 0x6c, 0x55, 0x66, 0x5f}, {0x50, 0x69, 0x5a, 0x63, 0x6c, 0x55, 0x66, 0x5f}, {0x00, 0x49, 0x5a, 0x63, 0x6c, 0x55, 0x66, 0x5f}, {0x00, 0x49, 0x5a, 0x63, 0x6c, 0x55, 0x66, 0x5f}, {0x00, 0x49, 0x5a, 0x63, 0x6c, 0x55, 0x66, 0x5f}, {0x00, 0x49, 0x5a, 0x63, 0x6c, 0x55, 0x66, 0x5f}, {0x00, 0x49, 0x5a, 0x63, 0x4c, 0x05, 0x66, 0x5f}, {0x00, 0x49, 0x5a, 0x63, 0x4c, 0x05, 0x66, 0x5f}, {0x00, 0x49, 0x5a, 0x63, 0x4c, 0x05, 0x66, 0x5f}, {0x00, 0x49, 0x5a, 0x63, 0x4c, 0x05, 0x66, 0x5f}, {0x00, 0x49, 0x7a, 0x63, 0x4c, 0x05, 0x66, 0x5f}, {0x00, 0x49, 0x7a, 0x63, 0x4c, 0x05, 0x66, 0x5f}, {0x00, 0x49, 0x7a, 0x73, 0x4c, 0x05, 0x66, 0x7f}, {0x00, 0x49, 0x7a, 0x73, 0x4c, 0x05, 0x66, 0x7f}, {0x08, 0x49, 0x7a, 0x73, 0x4c, 0x05, 0x76, 0x7f}, {0x08, 0x49, 0x7a, 0x73, 0x4c, 0x05, 0x76, 0x7f}, {0x08, 0x41, 0x7a, 0x73, 0x4c, 0x0d, 0x76, 0x7f}, {0x08, 0x41, 0x7a, 0x73, 0x4c, 0x0d, 0x76, 0x7f}, {0x08, 0x41, 0x6a, 0x73, 0x44, 0x0d, 0x76, 0x7f}, {0x08, 0x41, 0x6a, 0x73, 0x44, 0x0d, 0x76, 0x7f}, {0x08, 0x41, 0x6a, 0x53, 0x44, 0x0d, 0x76, 0x6f}, {0x08, 0x41, 0x6a, 0x53, 0x44, 0x0d, 0x76, 0x6f}, {0x08, 0x41, 0x6a, 0x53, 0x44, 0x0d, 0x56, 0x6f}, {0x08, 0x41, 0x6a, 0x53, 0x44, 0x0d, 0x56, 0x6f}, {0x08, 0x41, 0x6a, 0x53, 0x44, 0x0d, 0x56, 0x6f}, {0x08, 0x41, 0x6a, 0x53, 0x44, 0x0d, 0x56, 0x6f}, {0x08, 0x41, 0x6a, 0x53, 0x44, 0x0d, 0x56, 0x6f}, {0x58, 0x41, 0x6a, 0x53, 0x44, 0x5d, 0x56, 0x6f}, {0x58, 0x41, 0x6a, 0x53, 0x44, 0x5d, 0x56, 0x6f}, {0x58, 0x41, 0x6a, 0x53, 0x44, 0x5d, 0x56, 0x6f}, {0x58, 0x41, 0x6a, 0x53, 0x44, 0x5d, 0x56, 0x6f}, {0x58, 0x61, 0x6a, 0x53, 0x64, 0x5d, 0x56, 0x6f}, {0x58, 0x61, 0x6a, 0x53, 0x64, 0x5d, 0x56, 0x6f}, {0x58, 0x61, 0x6a, 0x53, 0x64, 0x5d, 0x56, 0x6f} }, { {0x50, 0x69, 0x5a, 0x63, 0x6c, 0x55, 0x66, 0x5f}, {0x50, 0x69, 0x5a, 0x63, 0x6c, 0x55, 0x66, 0x5f}, {0x50, 0x69, 0x5a, 0x63, 0x6c, 0x55, 0x66, 0x5f}, {0x50, 0x69, 0x5a, 0x63, 0x6c, 0x55, 0x66, 0x5f}, {0x50, 0x69, 0x5a, 0x63, 0x6c, 0x55, 0x66, 0x5f}, {0x00, 0x49, 0x5a, 0x63, 0x6c, 0x55, 0x66, 0x5f}, {0x00, 0x49, 0x5a, 0x63, 0x6c, 0x55, 0x66, 0x5f}, {0x00, 0x49, 0x5a, 0x63, 0x6c, 0x55, 0x66, 0x5f}, {0x00, 0x49, 0x5a, 0x63, 0x6c, 0x55, 0x66, 0x5f}, {0x00, 0x49, 0x5a, 0x63, 0x4c, 0x05, 0x66, 0x5f}, {0x00, 0x49, 0x5a, 0x63, 0x4c, 0x05, 0x66, 0x5f}, {0x00, 0x49, 0x5a, 0x63, 0x4c, 0x05, 0x66, 0x5f}, {0x00, 0x49, 0x7a, 0x63, 0x4c, 0x05, 0x66, 0x5f}, {0x00, 0x49, 0x7a, 0x63, 0x4c, 0x05, 0x66, 0x5f}, {0x00, 0x49, 0x7a, 0x73, 0x4c, 0x05, 0x66, 0x7f}, {0x00, 0x49, 0x7a, 0x73, 0x4c, 0x05, 0x66, 0x7f}, {0x08, 0x49, 0x7a, 0x73, 0x4c, 0x05, 0x76, 0x7f}, {0x08, 0x49, 0x7a, 0x73, 0x4c, 0x05, 0x76, 0x7f}, {0x08, 0x41, 0x7a, 0x73, 0x4c, 0x0d, 0x76, 0x7f}, {0x08, 0x41, 0x7a, 0x73, 0x4c, 0x0d, 0x76, 0x7f}, {0x08, 0x41, 0x6a, 0x73, 0x44, 0x0d, 0x76, 0x7f}, {0x08, 0x41, 0x6a, 0x73, 0x44, 0x0d, 0x76, 0x7f}, {0x08, 0x41, 0x6a, 0x53, 0x44, 0x0d, 0x76, 0x6f}, {0x08, 0x41, 0x6a, 0x53, 0x44, 0x0d, 0x76, 0x6f}, {0x08, 0x41, 0x6a, 0x53, 0x44, 0x0d, 0x56, 0x6f}, {0x08, 0x41, 0x6a, 0x53, 0x44, 0x0d, 0x56, 0x6f}, {0x08, 0x41, 0x6a, 0x53, 0x44, 0x0d, 0x56, 0x6f}, {0x08, 0x41, 0x6a, 0x53, 0x44, 0x0d, 0x56, 0x6f}, {0x58, 0x41, 0x6a, 0x53, 0x44, 0x5d, 0x56, 0x6f}, {0x58, 0x41, 0x6a, 0x53, 0x44, 0x5d, 0x56, 0x6f}, {0x58, 0x41, 0x6a, 0x53, 0x44, 0x5d, 0x56, 0x6f}, {0x58, 0x41, 0x6a, 0x53, 0x44, 0x5d, 0x56, 0x6f}, {0x58, 0x61, 0x6a, 0x53, 0x64, 0x5d, 0x56, 0x6f}, {0x58, 0x61, 0x6a, 0x53, 0x64, 0x5d, 0x56, 0x6f}, {0x58, 0x61, 0x6a, 0x53, 0x64, 0x5d, 0x56, 0x6f}, {0x58, 0x61, 0x6a, 0x53, 0x64, 0x5d, 0x56, 0x6f} }, { {0x50, 0x69, 0x5a, 0x43, 0x6c, 0x55, 0x46, 0x5f}, {0x50, 0x69, 0x5a, 0x63, 0x6c, 0x55, 0x66, 0x5f}, {0x50, 0x69, 0x5a, 0x63, 0x6c, 0x55, 0x66, 0x5f}, {0x50, 0x69, 0x5a, 0x63, 0x6c, 0x55, 0x66, 0x5f}, {0x50, 0x69, 0x5a, 0x63, 0x6c, 0x55, 0x66, 0x5f}, {0x50, 0x69, 0x5a, 0x63, 0x6c, 0x55, 0x66, 0x5f}, {0x00, 0x49, 0x5a, 0x63, 0x6c, 0x55, 0x66, 0x5f}, {0x00, 0x49, 0x5a, 0x63, 0x6c, 0x55, 0x66, 0x5f}, {0x00, 0x49, 0x5a, 0x63, 0x6c, 0x55, 0x66, 0x5f}, {0x00, 0x49, 0x5a, 0x63, 0x6c, 0x55, 0x66, 0x5f}, {0x00, 0x49, 0x5a, 0x63, 0x4c, 0x05, 0x66, 0x5f}, {0x00, 0x49, 0x5a, 0x63, 0x4c, 0x05, 0x66, 0x5f}, {0x00, 0x49, 0x7a, 0x63, 0x4c, 0x05, 0x66, 0x5f}, {0x00, 0x49, 0x7a, 0x63, 0x4c, 0x05, 0x66, 0x5f}, {0x00, 0x49, 0x7a, 0x73, 0x4c, 0x05, 0x66, 0x7f}, {0x00, 0x49, 0x7a, 0x73, 0x4c, 0x05, 0x66, 0x7f}, {0x08, 0x49, 0x7a, 0x73, 0x4c, 0x05, 0x76, 0x7f}, {0x08, 0x49, 0x7a, 0x73, 0x4c, 0x05, 0x76, 0x7f}, {0x08, 0x41, 0x7a, 0x73, 0x4c, 0x0d, 0x76, 0x7f}, {0x08, 0x41, 0x7a, 0x73, 0x4c, 0x0d, 0x76, 0x7f}, {0x08, 0x41, 0x6a, 0x73, 0x44, 0x0d, 0x76, 0x7f}, {0x08, 0x41, 0x6a, 0x73, 0x44, 0x0d, 0x76, 0x7f}, {0x08, 0x41, 0x6a, 0x53, 0x44, 0x0d, 0x76, 0x6f}, {0x08, 0x41, 0x6a, 0x53, 0x44, 0x0d, 0x76, 0x6f}, {0x08, 0x41, 0x6a, 0x53, 0x44, 0x0d, 0x56, 0x6f}, {0x08, 0x41, 0x6a, 0x53, 0x44, 0x0d, 0x56, 0x6f}, {0x08, 0x41, 0x6a, 0x53, 0x44, 0x0d, 0x56, 0x6f}, {0x58, 0x41, 0x6a, 0x53, 0x44, 0x5d, 0x56, 0x6f}, {0x58, 0x41, 0x6a, 0x53, 0x44, 0x5d, 0x56, 0x6f}, {0x58, 0x41, 0x6a, 0x53, 0x44, 0x5d, 0x56, 0x6f}, {0x58, 0x41, 0x6a, 0x53, 0x44, 0x5d, 0x56, 0x6f}, {0x58, 0x61, 0x6a, 0x53, 0x64, 0x5d, 0x56, 0x6f}, {0x58, 0x61, 0x6a, 0x53, 0x64, 0x5d, 0x56, 0x6f}, {0x58, 0x61, 0x6a, 0x53, 0x64, 0x5d, 0x56, 0x6f}, {0x58, 0x61, 0x6a, 0x53, 0x64, 0x5d, 0x56, 0x6f}, {0x58, 0x61, 0x4a, 0x03, 0x64, 0x5d, 0x56, 0x6f} }, { {0x50, 0x69, 0x5a, 0x43, 0x6c, 0x55, 0x46, 0x5f}, {0x50, 0x69, 0x5a, 0x43, 0x6c, 0x55, 0x46, 0x5f}, {0x50, 0x69, 0x5a, 0x63, 0x6c, 0x55, 0x66, 0x5f}, {0x50, 0x69, 0x5a, 0x63, 0x6c, 0x55, 0x66, 0x5f}, {0x50, 0x69, 0x5a, 0x63, 0x6c, 0x55, 0x66, 0x5f}, {0x50, 0x69, 0x5a, 0x63, 0x6c, 0x55, 0x66, 0x5f}, {0x50, 0x69, 0x5a, 0x63, 0x6c, 0x55, 0x66, 0x5f}, {0x00, 0x49, 0x5a, 0x63, 0x6c, 0x55, 0x66, 0x5f}, {0x00, 0x49, 0x5a, 0x63, 0x6c, 0x55, 0x66, 0x5f}, {0x00, 0x49, 0x5a, 0x63, 0x6c, 0x55, 0x66, 0x5f}, {0x00, 0x49, 0x5a, 0x63, 0x6c, 0x15, 0x66, 0x5f}, {0x00, 0x49, 0x5a, 0x63, 0x4c, 0x15, 0x66, 0x5f}, {0x00, 0x49, 0x7a, 0x63, 0x4c, 0x15, 0x66, 0x5f}, {0x00, 0x49, 0x7a, 0x63, 0x4c, 0x15, 0x66, 0x5f}, {0x00, 0x49, 0x7a, 0x73, 0x4c, 0x15, 0x66, 0x7f}, {0x00, 0x49, 0x7a, 0x73, 0x4c, 0x15, 0x66, 0x7f}, {0x08, 0x49, 0x7a, 0x73, 0x4c, 0x15, 0x76, 0x7f}, {0x08, 0x49, 0x7a, 0x73, 0x4c, 0x15, 0x76, 0x7f}, {0x08, 0x41, 0x7a, 0x73, 0x4c, 0x1d, 0x76, 0x7f}, {0x08, 0x41, 0x7a, 0x73, 0x4c, 0x1d, 0x76, 0x7f}, {0x08, 0x41, 0x6a, 0x73, 0x44, 0x1d, 0x76, 0x7f}, {0x08, 0x41, 0x6a, 0x73, 0x44, 0x1d, 0x76, 0x7f}, {0x08, 0x41, 0x6a, 0x53, 0x44, 0x1d, 0x76, 0x6f}, {0x08, 0x41, 0x6a, 0x53, 0x44, 0x1d, 0x76, 0x6f}, {0x08, 0x41, 0x6a, 0x53, 0x44, 0x1d, 0x56, 0x6f}, {0x08, 0x41, 0x6a, 0x53, 0x44, 0x1d, 0x56, 0x6f}, {0x58, 0x41, 0x6a, 0x53, 0x44, 0x5d, 0x56, 0x6f}, {0x58, 0x41, 0x6a, 0x53, 0x44, 0x5d, 0x56, 0x6f}, {0x58, 0x41, 0x6a, 0x53, 0x44, 0x5d, 0x56, 0x6f}, {0x58, 0x41, 0x6a, 0x53, 0x44, 0x5d, 0x56, 0x6f}, {0x58, 0x61, 0x6a, 0x53, 0x64, 0x5d, 0x56, 0x6f}, {0x58, 0x61, 0x6a, 0x53, 0x64, 0x5d, 0x56, 0x6f}, {0x58, 0x61, 0x6a, 0x53, 0x64, 0x5d, 0x56, 0x6f}, {0x58, 0x61, 0x6a, 0x53, 0x64, 0x5d, 0x56, 0x6f}, {0x58, 0x61, 0x4a, 0x03, 0x64, 0x5d, 0x56, 0x6f}, {0x58, 0x61, 0x4a, 0x03, 0x64, 0x5d, 0x56, 0x6f} }, { {0x50, 0x69, 0x5a, 0x43, 0x6c, 0x55, 0x46, 0x5f}, {0x50, 0x69, 0x5a, 0x43, 0x6c, 0x55, 0x46, 0x5f}, {0x50, 0x69, 0x5a, 0x43, 0x6c, 0x55, 0x46, 0x5f}, {0x50, 0x69, 0x5a, 0x63, 0x6c, 0x55, 0x66, 0x5f}, {0x50, 0x69, 0x5a, 0x63, 0x6c, 0x55, 0x66, 0x5f}, {0x50, 0x69, 0x5a, 0x63, 0x6c, 0x55, 0x66, 0x5f}, {0x50, 0x69, 0x5a, 0x63, 0x6c, 0x55, 0x66, 0x5f}, {0x50, 0x69, 0x5a, 0x63, 0x6c, 0x55, 0x66, 0x5f}, {0x00, 0x49, 0x5a, 0x63, 0x6c, 0x55, 0x66, 0x5f}, {0x00, 0x49, 0x5a, 0x63, 0x6c, 0x55, 0x66, 0x5f}, {0x00, 0x49, 0x5a, 0x63, 0x6c, 0x15, 0x66, 0x5f}, {0x00, 0x49, 0x5a, 0x63, 0x6c, 0x15, 0x66, 0x5f}, {0x00, 0x49, 0x7a, 0x63, 0x4c, 0x15, 0x66, 0x5f}, {0x00, 0x49, 0x7a, 0x63, 0x4c, 0x15, 0x66, 0x5f}, {0x00, 0x49, 0x7a, 0x73, 0x4c, 0x15, 0x66, 0x7f}, {0x00, 0x49, 0x7a, 0x73, 0x4c, 0x15, 0x66, 0x7f}, {0x08, 0x49, 0x7a, 0x73, 0x4c, 0x15, 0x76, 0x7f}, {0x08, 0x49, 0x7a, 0x73, 0x4c, 0x15, 0x76, 0x7f}, {0x08, 0x41, 0x7a, 0x73, 0x4c, 0x1d, 0x76, 0x7f}, {0x08, 0x41, 0x7a, 0x73, 0x4c, 0x1d, 0x76, 0x7f}, {0x08, 0x41, 0x6a, 0x73, 0x44, 0x1d, 0x76, 0x7f}, {0x08, 0x41, 0x6a, 0x73, 0x44, 0x1d, 0x76, 0x7f}, {0x08, 0x41, 0x6a, 0x53, 0x44, 0x1d, 0x76, 0x6f}, {0x08, 0x41, 0x6a, 0x53, 0x44, 0x1d, 0x76, 0x6f}, {0x08, 0x41, 0x6a, 0x53, 0x44, 0x1d, 0x56, 0x6f}, {0x58, 0x41, 0x6a, 0x53, 0x44, 0x1d, 0x56, 0x6f}, {0x58, 0x41, 0x6a, 0x53, 0x44, 0x5d, 0x56, 0x6f}, {0x58, 0x41, 0x6a, 0x53, 0x44, 0x5d, 0x56, 0x6f}, {0x58, 0x41, 0x6a, 0x53, 0x44, 0x5d, 0x56, 0x6f}, {0x58, 0x61, 0x6a, 0x53, 0x64, 0x5d, 0x56, 0x6f}, {0x58, 0x61, 0x6a, 0x53, 0x64, 0x5d, 0x56, 0x6f}, {0x58, 0x61, 0x6a, 0x53, 0x64, 0x5d, 0x56, 0x6f}, {0x58, 0x61, 0x6a, 0x53, 0x64, 0x5d, 0x56, 0x6f}, {0x58, 0x61, 0x4a, 0x03, 0x64, 0x5d, 0x56, 0x6f}, {0x58, 0x61, 0x4a, 0x03, 0x64, 0x5d, 0x56, 0x6f}, {0x58, 0x61, 0x4a, 0x03, 0x64, 0x5d, 0x56, 0x6f} }, { {0x50, 0x69, 0x5a, 0x43, 0x6c, 0x55, 0x46, 0x5f}, {0x50, 0x69, 0x5a, 0x43, 0x6c, 0x55, 0x46, 0x5f}, {0x50, 0x69, 0x5a, 0x43, 0x6c, 0x55, 0x46, 0x5f}, {0x50, 0x69, 0x5a, 0x43, 0x6c, 0x55, 0x46, 0x5f}, {0x50, 0x69, 0x5a, 0x63, 0x6c, 0x55, 0x66, 0x5f}, {0x50, 0x69, 0x5a, 0x63, 0x6c, 0x55, 0x66, 0x5f}, {0x50, 0x69, 0x5a, 0x63, 0x6c, 0x55, 0x66, 0x5f}, {0x50, 0x69, 0x5a, 0x63, 0x6c, 0x55, 0x66, 0x5f}, {0x10, 0x69, 0x5a, 0x63, 0x6c, 0x55, 0x66, 0x5f}, {0x10, 0x49, 0x5a, 0x63, 0x6c, 0x55, 0x66, 0x5f}, {0x10, 0x49, 0x5a, 0x63, 0x6c, 0x15, 0x66, 0x5f}, {0x10, 0x49, 0x5a, 0x63, 0x6c, 0x15, 0x66, 0x5f}, {0x10, 0x49, 0x7a, 0x63, 0x2c, 0x15, 0x66, 0x5f}, {0x10, 0x49, 0x7a, 0x63, 0x2c, 0x15, 0x66, 0x5f}, {0x10, 0x49, 0x7a, 0x73, 0x2c, 0x15, 0x66, 0x7f}, {0x10, 0x49, 0x7a, 0x73, 0x2c, 0x15, 0x66, 0x7f}, {0x18, 0x49, 0x7a, 0x73, 0x2c, 0x15, 0x76, 0x7f}, {0x18, 0x49, 0x7a, 0x73, 0x2c, 0x15, 0x76, 0x7f}, {0x18, 0x41, 0x7a, 0x73, 0x2c, 0x1d, 0x76, 0x7f}, {0x18, 0x41, 0x7a, 0x73, 0x2c, 0x1d, 0x76, 0x7f}, {0x18, 0x41, 0x6a, 0x73, 0x24, 0x1d, 0x76, 0x7f}, {0x18, 0x41, 0x6a, 0x73, 0x24, 0x1d, 0x76, 0x7f}, {0x18, 0x41, 0x6a, 0x53, 0x24, 0x1d, 0x76, 0x6f}, {0x18, 0x41, 0x6a, 0x53, 0x24, 0x1d, 0x76, 0x6f}, {0x58, 0x41, 0x6a, 0x53, 0x24, 0x1d, 0x56, 0x6f}, {0x58, 0x41, 0x6a, 0x53, 0x24, 0x1d, 0x56, 0x6f}, {0x58, 0x41, 0x6a, 0x53, 0x24, 0x5d, 0x56, 0x6f}, {0x58, 0x41, 0x6a, 0x53, 0x24, 0x5d, 0x56, 0x6f}, {0x58, 0x61, 0x6a, 0x53, 0x64, 0x5d, 0x56, 0x6f}, {0x58, 0x61, 0x6a, 0x53, 0x64, 0x5d, 0x56, 0x6f}, {0x58, 0x61, 0x6a, 0x53, 0x64, 0x5d, 0x56, 0x6f}, {0x58, 0x61, 0x6a, 0x53, 0x64, 0x5d, 0x56, 0x6f}, {0x58, 0x61, 0x4a, 0x03, 0x64, 0x5d, 0x56, 0x6f}, {0x58, 0x61, 0x4a, 0x03, 0x64, 0x5d, 0x56, 0x6f}, {0x58, 0x61, 0x4a, 0x03, 0x64, 0x5d, 0x56, 0x6f}, {0x58, 0x61, 0x4a, 0x03, 0x64, 0x5d, 0x56, 0x6f} }, { {0x50, 0x69, 0x0a, 0x43, 0x6c, 0x55, 0x46, 0x0f}, {0x50, 0x69, 0x5a, 0x43, 0x6c, 0x55, 0x46, 0x5f}, {0x50, 0x69, 0x5a, 0x43, 0x6c, 0x55, 0x46, 0x5f}, {0x50, 0x69, 0x5a, 0x43, 0x6c, 0x55, 0x46, 0x5f}, {0x50, 0x69, 0x5a, 0x43, 0x6c, 0x55, 0x46, 0x5f}, {0x50, 0x69, 0x5a, 0x63, 0x6c, 0x55, 0x66, 0x5f}, {0x50, 0x69, 0x5a, 0x63, 0x6c, 0x55, 0x66, 0x5f}, {0x50, 0x69, 0x5a, 0x63, 0x6c, 0x55, 0x66, 0x5f}, {0x10, 0x69, 0x5a, 0x63, 0x6c, 0x55, 0x66, 0x5f}, {0x10, 0x69, 0x5a, 0x63, 0x6c, 0x55, 0x66, 0x5f}, {0x10, 0x49, 0x5a, 0x63, 0x6c, 0x15, 0x66, 0x5f}, {0x10, 0x49, 0x5a, 0x63, 0x6c, 0x15, 0x66, 0x5f}, {0x10, 0x49, 0x7a, 0x63, 0x2c, 0x15, 0x66, 0x5f}, {0x10, 0x49, 0x7a, 0x63, 0x2c, 0x15, 0x66, 0x5f}, {0x10, 0x49, 0x7a, 0x73, 0x2c, 0x15, 0x66, 0x7f}, {0x10, 0x49, 0x7a, 0x73, 0x2c, 0x15, 0x66, 0x7f}, {0x18, 0x49, 0x7a, 0x73, 0x2c, 0x15, 0x76, 0x7f}, {0x18, 0x49, 0x7a, 0x73, 0x2c, 0x15, 0x76, 0x7f}, {0x18, 0x41, 0x7a, 0x73, 0x2c, 0x1d, 0x76, 0x7f}, {0x18, 0x41, 0x7a, 0x73, 0x2c, 0x1d, 0x76, 0x7f}, {0x18, 0x41, 0x6a, 0x73, 0x24, 0x1d, 0x76, 0x7f}, {0x18, 0x41, 0x6a, 0x73, 0x24, 0x1d, 0x76, 0x7f}, {0x18, 0x41, 0x6a, 0x53, 0x24, 0x1d, 0x76, 0x6f}, {0x18, 0x41, 0x6a, 0x53, 0x24, 0x1d, 0x76, 0x6f}, {0x58, 0x41, 0x6a, 0x53, 0x24, 0x1d, 0x56, 0x6f}, {0x58, 0x41, 0x6a, 0x53, 0x24, 0x1d, 0x56, 0x6f}, {0x58, 0x41, 0x6a, 0x53, 0x24, 0x5d, 0x56, 0x6f}, {0x58, 0x61, 0x6a, 0x53, 0x24, 0x5d, 0x56, 0x6f}, {0x58, 0x61, 0x6a, 0x53, 0x64, 0x5d, 0x56, 0x6f}, {0x58, 0x61, 0x6a, 0x53, 0x64, 0x5d, 0x56, 0x6f}, {0x58, 0x61, 0x6a, 0x53, 0x64, 0x5d, 0x56, 0x6f}, {0x58, 0x61, 0x4a, 0x03, 0x64, 0x5d, 0x56, 0x6f}, {0x58, 0x61, 0x4a, 0x03, 0x64, 0x5d, 0x56, 0x6f}, {0x58, 0x61, 0x4a, 0x03, 0x64, 0x5d, 0x56, 0x6f}, {0x58, 0x61, 0x4a, 0x03, 0x64, 0x5d, 0x56, 0x6f}, {0x58, 0x61, 0x4a, 0x03, 0x64, 0x5d, 0x06, 0x4f} }, { {0x50, 0x69, 0x0a, 0x43, 0x6c, 0x55, 0x46, 0x0f}, {0x50, 0x69, 0x0a, 0x43, 0x6c, 0x55, 0x46, 0x0f}, {0x50, 0x69, 0x5a, 0x43, 0x6c, 0x55, 0x46, 0x5f}, {0x50, 0x69, 0x5a, 0x43, 0x6c, 0x55, 0x46, 0x5f}, {0x50, 0x69, 0x5a, 0x43, 0x6c, 0x55, 0x46, 0x5f}, {0x50, 0x69, 0x5a, 0x43, 0x6c, 0x55, 0x46, 0x5f}, {0x50, 0x69, 0x5a, 0x23, 0x6c, 0x55, 0x66, 0x5f}, {0x50, 0x69, 0x5a, 0x23, 0x6c, 0x55, 0x66, 0x5f}, {0x10, 0x69, 0x5a, 0x23, 0x6c, 0x55, 0x66, 0x5f}, {0x10, 0x69, 0x5a, 0x23, 0x6c, 0x55, 0x66, 0x5f}, {0x10, 0x29, 0x5a, 0x23, 0x6c, 0x15, 0x66, 0x5f}, {0x10, 0x29, 0x5a, 0x23, 0x6c, 0x15, 0x66, 0x5f}, {0x10, 0x29, 0x7a, 0x23, 0x2c, 0x15, 0x66, 0x5f}, {0x10, 0x29, 0x7a, 0x23, 0x2c, 0x15, 0x66, 0x5f}, {0x10, 0x29, 0x7a, 0x33, 0x2c, 0x15, 0x66, 0x7f}, {0x10, 0x29, 0x7a, 0x33, 0x2c, 0x15, 0x66, 0x7f}, {0x18, 0x29, 0x7a, 0x33, 0x2c, 0x15, 0x76, 0x7f}, {0x18, 0x29, 0x7a, 0x33, 0x2c, 0x15, 0x76, 0x7f}, {0x18, 0x21, 0x7a, 0x33, 0x2c, 0x1d, 0x76, 0x7f}, {0x18, 0x21, 0x7a, 0x33, 0x2c, 0x1d, 0x76, 0x7f}, {0x18, 0x21, 0x6a, 0x33, 0x24, 0x1d, 0x76, 0x7f}, {0x18, 0x21, 0x6a, 0x33, 0x24, 0x1d, 0x76, 0x7f}, {0x18, 0x21, 0x6a, 0x13, 0x24, 0x1d, 0x76, 0x6f}, {0x18, 0x21, 0x6a, 0x13, 0x24, 0x1d, 0x76, 0x6f}, {0x58, 0x21, 0x6a, 0x13, 0x24, 0x1d, 0x56, 0x6f}, {0x58, 0x21, 0x6a, 0x13, 0x24, 0x1d, 0x56, 0x6f}, {0x58, 0x61, 0x6a, 0x13, 0x24, 0x5d, 0x56, 0x6f}, {0x58, 0x61, 0x6a, 0x13, 0x24, 0x5d, 0x56, 0x6f}, {0x58, 0x61, 0x6a, 0x13, 0x64, 0x5d, 0x56, 0x6f}, {0x58, 0x61, 0x6a, 0x13, 0x64, 0x5d, 0x56, 0x6f}, {0x58, 0x61, 0x4a, 0x03, 0x64, 0x5d, 0x56, 0x6f}, {0x58, 0x61, 0x4a, 0x03, 0x64, 0x5d, 0x56, 0x6f}, {0x58, 0x61, 0x4a, 0x03, 0x64, 0x5d, 0x56, 0x6f}, {0x58, 0x61, 0x4a, 0x03, 0x64, 0x5d, 0x56, 0x6f}, {0x58, 0x61, 0x4a, 0x03, 0x64, 0x5d, 0x06, 0x4f}, {0x58, 0x61, 0x4a, 0x03, 0x64, 0x5d, 0x06, 0x4f} }, { {0x50, 0x69, 0x0a, 0x43, 0x6c, 0x55, 0x46, 0x0f}, {0x50, 0x69, 0x0a, 0x43, 0x6c, 0x55, 0x46, 0x0f}, {0x50, 0x69, 0x0a, 0x43, 0x6c, 0x55, 0x46, 0x0f}, {0x50, 0x69, 0x5a, 0x43, 0x6c, 0x55, 0x46, 0x5f}, {0x50, 0x69, 0x5a, 0x43, 0x6c, 0x55, 0x46, 0x5f}, {0x50, 0x69, 0x5a, 0x43, 0x6c, 0x55, 0x46, 0x5f}, {0x50, 0x69, 0x5a, 0x23, 0x6c, 0x55, 0x46, 0x5f}, {0x50, 0x69, 0x5a, 0x23, 0x6c, 0x55, 0x66, 0x5f}, {0x10, 0x69, 0x5a, 0x23, 0x6c, 0x55, 0x66, 0x5f}, {0x10, 0x69, 0x5a, 0x23, 0x6c, 0x55, 0x66, 0x5f}, {0x10, 0x29, 0x5a, 0x23, 0x6c, 0x15, 0x66, 0x5f}, {0x10, 0x29, 0x5a, 0x23, 0x6c, 0x15, 0x66, 0x5f}, {0x10, 0x29, 0x7a, 0x23, 0x2c, 0x15, 0x66, 0x5f}, {0x10, 0x29, 0x7a, 0x23, 0x2c, 0x15, 0x66, 0x5f}, {0x10, 0x29, 0x7a, 0x33, 0x2c, 0x15, 0x66, 0x7f}, {0x10, 0x29, 0x7a, 0x33, 0x2c, 0x15, 0x66, 0x7f}, {0x18, 0x29, 0x7a, 0x33, 0x2c, 0x15, 0x76, 0x7f}, {0x18, 0x29, 0x7a, 0x33, 0x2c, 0x15, 0x76, 0x7f}, {0x18, 0x21, 0x7a, 0x33, 0x2c, 0x1d, 0x76, 0x7f}, {0x18, 0x21, 0x7a, 0x33, 0x2c, 0x1d, 0x76, 0x7f}, {0x18, 0x21, 0x6a, 0x33, 0x24, 0x1d, 0x76, 0x7f}, {0x18, 0x21, 0x6a, 0x33, 0x24, 0x1d, 0x76, 0x7f}, {0x18, 0x21, 0x6a, 0x13, 0x24, 0x1d, 0x76, 0x6f}, {0x18, 0x21, 0x6a, 0x13, 0x24, 0x1d, 0x76, 0x6f}, {0x58, 0x21, 0x6a, 0x13, 0x24, 0x1d, 0x56, 0x6f}, {0x58, 0x21, 0x6a, 0x13, 0x24, 0x1d, 0x56, 0x6f}, {0x58, 0x61, 0x6a, 0x13, 0x24, 0x5d, 0x56, 0x6f}, {0x58, 0x61, 0x6a, 0x13, 0x24, 0x5d, 0x56, 0x6f}, {0x58, 0x61, 0x6a, 0x13, 0x64, 0x5d, 0x56, 0x6f}, {0x58, 0x61, 0x4a, 0x13, 0x64, 0x5d, 0x56, 0x6f}, {0x58, 0x61, 0x4a, 0x03, 0x64, 0x5d, 0x56, 0x6f}, {0x58, 0x61, 0x4a, 0x03, 0x64, 0x5d, 0x56, 0x6f}, {0x58, 0x61, 0x4a, 0x03, 0x64, 0x5d, 0x56, 0x6f}, {0x58, 0x61, 0x4a, 0x03, 0x64, 0x5d, 0x06, 0x4f}, {0x58, 0x61, 0x4a, 0x03, 0x64, 0x5d, 0x06, 0x4f}, {0x58, 0x61, 0x4a, 0x03, 0x64, 0x5d, 0x06, 0x4f} }, { {0x50, 0x69, 0x0a, 0x43, 0x6c, 0x55, 0x46, 0x0f}, {0x50, 0x69, 0x0a, 0x43, 0x6c, 0x55, 0x46, 0x0f}, {0x50, 0x69, 0x0a, 0x43, 0x6c, 0x55, 0x46, 0x0f}, {0x50, 0x69, 0x0a, 0x43, 0x6c, 0x55, 0x46, 0x0f}, {0x50, 0x69, 0x1a, 0x43, 0x6c, 0x55, 0x46, 0x5f}, {0x50, 0x69, 0x1a, 0x43, 0x6c, 0x55, 0x46, 0x5f}, {0x50, 0x69, 0x1a, 0x23, 0x6c, 0x55, 0x46, 0x5f}, {0x50, 0x69, 0x1a, 0x23, 0x6c, 0x55, 0x46, 0x5f}, {0x10, 0x69, 0x1a, 0x23, 0x6c, 0x55, 0x26, 0x5f}, {0x10, 0x69, 0x1a, 0x23, 0x6c, 0x55, 0x26, 0x5f}, {0x10, 0x29, 0x1a, 0x23, 0x6c, 0x15, 0x26, 0x5f}, {0x10, 0x29, 0x1a, 0x23, 0x6c, 0x15, 0x26, 0x5f}, {0x10, 0x29, 0x3a, 0x23, 0x2c, 0x15, 0x26, 0x5f}, {0x10, 0x29, 0x3a, 0x23, 0x2c, 0x15, 0x26, 0x5f}, {0x10, 0x29, 0x3a, 0x33, 0x2c, 0x15, 0x26, 0x7f}, {0x10, 0x29, 0x3a, 0x33, 0x2c, 0x15, 0x26, 0x7f}, {0x18, 0x29, 0x3a, 0x33, 0x2c, 0x15, 0x36, 0x7f}, {0x18, 0x29, 0x3a, 0x33, 0x2c, 0x15, 0x36, 0x7f}, {0x18, 0x21, 0x3a, 0x33, 0x2c, 0x1d, 0x36, 0x7f}, {0x18, 0x21, 0x3a, 0x33, 0x2c, 0x1d, 0x36, 0x7f}, {0x18, 0x21, 0x2a, 0x33, 0x24, 0x1d, 0x36, 0x7f}, {0x18, 0x21, 0x2a, 0x33, 0x24, 0x1d, 0x36, 0x7f}, {0x18, 0x21, 0x2a, 0x13, 0x24, 0x1d, 0x36, 0x6f}, {0x18, 0x21, 0x2a, 0x13, 0x24, 0x1d, 0x36, 0x6f}, {0x58, 0x21, 0x2a, 0x13, 0x24, 0x1d, 0x16, 0x6f}, {0x58, 0x21, 0x2a, 0x13, 0x24, 0x1d, 0x16, 0x6f}, {0x58, 0x61, 0x2a, 0x13, 0x24, 0x5d, 0x16, 0x6f}, {0x58, 0x61, 0x2a, 0x13, 0x24, 0x5d, 0x16, 0x6f}, {0x58, 0x61, 0x4a, 0x13, 0x64, 0x5d, 0x16, 0x6f}, {0x58, 0x61, 0x4a, 0x13, 0x64, 0x5d, 0x16, 0x6f}, {0x58, 0x61, 0x4a, 0x03, 0x64, 0x5d, 0x16, 0x6f}, {0x58, 0x61, 0x4a, 0x03, 0x64, 0x5d, 0x16, 0x6f}, {0x58, 0x61, 0x4a, 0x03, 0x64, 0x5d, 0x06, 0x4f}, {0x58, 0x61, 0x4a, 0x03, 0x64, 0x5d, 0x06, 0x4f}, {0x58, 0x61, 0x4a, 0x03, 0x64, 0x5d, 0x06, 0x4f}, {0x58, 0x61, 0x4a, 0x03, 0x64, 0x5d, 0x06, 0x4f} }, { {0x50, 0x69, 0x0a, 0x43, 0x6c, 0x55, 0x46, 0x0f}, {0x50, 0x69, 0x0a, 0x43, 0x6c, 0x55, 0x46, 0x0f}, {0x50, 0x69, 0x0a, 0x43, 0x6c, 0x55, 0x46, 0x0f}, {0x50, 0x69, 0x0a, 0x43, 0x6c, 0x55, 0x46, 0x0f}, {0x50, 0x69, 0x1a, 0x43, 0x6c, 0x55, 0x46, 0x0f}, {0x50, 0x69, 0x1a, 0x43, 0x6c, 0x55, 0x46, 0x5f}, {0x50, 0x69, 0x1a, 0x23, 0x6c, 0x55, 0x46, 0x5f}, {0x50, 0x69, 0x1a, 0x23, 0x6c, 0x55, 0x46, 0x5f}, {0x10, 0x69, 0x1a, 0x23, 0x6c, 0x55, 0x26, 0x5f}, {0x10, 0x69, 0x1a, 0x23, 0x6c, 0x55, 0x26, 0x5f}, {0x10, 0x29, 0x1a, 0x23, 0x6c, 0x15, 0x26, 0x5f}, {0x10, 0x29, 0x1a, 0x23, 0x6c, 0x15, 0x26, 0x5f}, {0x10, 0x29, 0x3a, 0x23, 0x2c, 0x15, 0x26, 0x5f}, {0x10, 0x29, 0x3a, 0x23, 0x2c, 0x15, 0x26, 0x5f}, {0x10, 0x29, 0x3a, 0x33, 0x2c, 0x15, 0x26, 0x7f}, {0x10, 0x29, 0x3a, 0x33, 0x2c, 0x15, 0x26, 0x7f}, {0x18, 0x29, 0x3a, 0x33, 0x2c, 0x15, 0x36, 0x7f}, {0x18, 0x29, 0x3a, 0x33, 0x2c, 0x15, 0x36, 0x7f}, {0x18, 0x21, 0x3a, 0x33, 0x2c, 0x1d, 0x36, 0x7f}, {0x18, 0x21, 0x3a, 0x33, 0x2c, 0x1d, 0x36, 0x7f}, {0x18, 0x21, 0x2a, 0x33, 0x24, 0x1d, 0x36, 0x7f}, {0x18, 0x21, 0x2a, 0x33, 0x24, 0x1d, 0x36, 0x7f}, {0x18, 0x21, 0x2a, 0x13, 0x24, 0x1d, 0x36, 0x6f}, {0x18, 0x21, 0x2a, 0x13, 0x24, 0x1d, 0x36, 0x6f}, {0x58, 0x21, 0x2a, 0x13, 0x24, 0x1d, 0x16, 0x6f}, {0x58, 0x21, 0x2a, 0x13, 0x24, 0x1d, 0x16, 0x6f}, {0x58, 0x61, 0x2a, 0x13, 0x24, 0x5d, 0x16, 0x6f}, {0x58, 0x61, 0x2a, 0x13, 0x24, 0x5d, 0x16, 0x6f}, {0x58, 0x61, 0x4a, 0x13, 0x64, 0x5d, 0x16, 0x6f}, {0x58, 0x61, 0x4a, 0x13, 0x64, 0x5d, 0x16, 0x6f}, {0x58, 0x61, 0x4a, 0x03, 0x64, 0x5d, 0x16, 0x6f}, {0x58, 0x61, 0x4a, 0x03, 0x64, 0x5d, 0x16, 0x4f}, {0x58, 0x61, 0x4a, 0x03, 0x64, 0x5d, 0x06, 0x4f}, {0x58, 0x61, 0x4a, 0x03, 0x64, 0x5d, 0x06, 0x4f}, {0x58, 0x61, 0x4a, 0x03, 0x64, 0x5d, 0x06, 0x4f}, {0x58, 0x61, 0x4a, 0x03, 0x64, 0x5d, 0x06, 0x4f} }, { {0x50, 0x69, 0x0a, 0x43, 0x6c, 0x75, 0x46, 0x0f}, {0x50, 0x69, 0x0a, 0x43, 0x6c, 0x75, 0x46, 0x0f}, {0x50, 0x69, 0x0a, 0x43, 0x6c, 0x75, 0x46, 0x0f}, {0x50, 0x69, 0x0a, 0x43, 0x6c, 0x75, 0x46, 0x0f}, {0x50, 0x69, 0x1a, 0x43, 0x6c, 0x75, 0x46, 0x0f}, {0x50, 0x69, 0x1a, 0x43, 0x6c, 0x75, 0x46, 0x0f}, {0x50, 0x69, 0x1a, 0x23, 0x6c, 0x75, 0x46, 0x1f}, {0x50, 0x69, 0x1a, 0x23, 0x6c, 0x75, 0x46, 0x1f}, {0x10, 0x69, 0x1a, 0x23, 0x6c, 0x75, 0x26, 0x1f}, {0x10, 0x69, 0x1a, 0x23, 0x6c, 0x75, 0x26, 0x1f}, {0x10, 0x29, 0x1a, 0x23, 0x6c, 0x35, 0x26, 0x1f}, {0x10, 0x29, 0x1a, 0x23, 0x6c, 0x35, 0x26, 0x1f}, {0x10, 0x29, 0x3a, 0x23, 0x2c, 0x35, 0x26, 0x1f}, {0x10, 0x29, 0x3a, 0x23, 0x2c, 0x35, 0x26, 0x1f}, {0x10, 0x29, 0x3a, 0x33, 0x2c, 0x35, 0x26, 0x3f}, {0x10, 0x29, 0x3a, 0x33, 0x2c, 0x35, 0x26, 0x3f}, {0x18, 0x29, 0x3a, 0x33, 0x2c, 0x35, 0x36, 0x3f}, {0x18, 0x29, 0x3a, 0x33, 0x2c, 0x35, 0x36, 0x3f}, {0x18, 0x21, 0x3a, 0x33, 0x2c, 0x3d, 0x36, 0x3f}, {0x18, 0x21, 0x3a, 0x33, 0x2c, 0x3d, 0x36, 0x3f}, {0x18, 0x21, 0x2a, 0x33, 0x24, 0x3d, 0x36, 0x3f}, {0x18, 0x21, 0x2a, 0x33, 0x24, 0x3d, 0x36, 0x3f}, {0x18, 0x21, 0x2a, 0x13, 0x24, 0x3d, 0x36, 0x2f}, {0x18, 0x21, 0x2a, 0x13, 0x24, 0x3d, 0x36, 0x2f}, {0x58, 0x21, 0x2a, 0x13, 0x24, 0x3d, 0x16, 0x2f}, {0x58, 0x21, 0x2a, 0x13, 0x24, 0x3d, 0x16, 0x2f}, {0x58, 0x61, 0x2a, 0x13, 0x24, 0x7d, 0x16, 0x2f}, {0x58, 0x61, 0x2a, 0x13, 0x24, 0x7d, 0x16, 0x2f}, {0x58, 0x61, 0x4a, 0x13, 0x64, 0x7d, 0x16, 0x2f}, {0x58, 0x61, 0x4a, 0x13, 0x64, 0x7d, 0x16, 0x2f}, {0x58, 0x61, 0x4a, 0x03, 0x64, 0x7d, 0x16, 0x4f}, {0x58, 0x61, 0x4a, 0x03, 0x64, 0x7d, 0x16, 0x4f}, {0x58, 0x61, 0x4a, 0x03, 0x64, 0x7d, 0x06, 0x4f}, {0x58, 0x61, 0x4a, 0x03, 0x64, 0x7d, 0x06, 0x4f}, {0x58, 0x61, 0x4a, 0x03, 0x64, 0x7d, 0x06, 0x4f}, {0x58, 0x61, 0x4a, 0x03, 0x64, 0x7d, 0x06, 0x4f} }, { {0x50, 0x69, 0x0a, 0x43, 0x6c, 0x75, 0x46, 0x0f}, {0x50, 0x69, 0x0a, 0x43, 0x6c, 0x75, 0x46, 0x0f}, {0x50, 0x69, 0x0a, 0x43, 0x6c, 0x75, 0x46, 0x0f}, {0x50, 0x69, 0x0a, 0x43, 0x6c, 0x75, 0x46, 0x0f}, {0x50, 0x69, 0x1a, 0x43, 0x6c, 0x75, 0x46, 0x0f}, {0x50, 0x69, 0x1a, 0x43, 0x6c, 0x75, 0x46, 0x0f}, {0x50, 0x69, 0x1a, 0x23, 0x6c, 0x75, 0x46, 0x1f}, {0x50, 0x69, 0x1a, 0x23, 0x6c, 0x75, 0x46, 0x1f}, {0x10, 0x69, 0x1a, 0x23, 0x6c, 0x75, 0x26, 0x1f}, {0x10, 0x69, 0x1a, 0x23, 0x6c, 0x75, 0x26, 0x1f}, {0x10, 0x29, 0x1a, 0x23, 0x6c, 0x35, 0x26, 0x1f}, {0x10, 0x29, 0x1a, 0x23, 0x6c, 0x35, 0x26, 0x1f}, {0x10, 0x29, 0x3a, 0x23, 0x2c, 0x35, 0x26, 0x1f}, {0x10, 0x29, 0x3a, 0x23, 0x2c, 0x35, 0x26, 0x1f}, {0x10, 0x29, 0x3a, 0x33, 0x2c, 0x35, 0x26, 0x3f}, {0x10, 0x29, 0x3a, 0x33, 0x2c, 0x35, 0x26, 0x3f}, {0x18, 0x29, 0x3a, 0x33, 0x2c, 0x35, 0x36, 0x3f}, {0x18, 0x29, 0x3a, 0x33, 0x2c, 0x35, 0x36, 0x3f}, {0x18, 0x21, 0x3a, 0x33, 0x2c, 0x3d, 0x36, 0x3f}, {0x18, 0x21, 0x3a, 0x33, 0x2c, 0x3d, 0x36, 0x3f}, {0x18, 0x21, 0x2a, 0x33, 0x24, 0x3d, 0x36, 0x3f}, {0x18, 0x21, 0x2a, 0x33, 0x24, 0x3d, 0x36, 0x3f}, {0x18, 0x21, 0x2a, 0x13, 0x24, 0x3d, 0x36, 0x2f}, {0x18, 0x21, 0x2a, 0x13, 0x24, 0x3d, 0x36, 0x2f}, {0x58, 0x21, 0x2a, 0x13, 0x24, 0x3d, 0x16, 0x2f}, {0x58, 0x21, 0x2a, 0x13, 0x24, 0x3d, 0x16, 0x2f}, {0x58, 0x61, 0x2a, 0x13, 0x24, 0x7d, 0x16, 0x2f}, {0x58, 0x61, 0x2a, 0x13, 0x24, 0x7d, 0x16, 0x2f}, {0x58, 0x61, 0x4a, 0x13, 0x64, 0x7d, 0x16, 0x2f}, {0x58, 0x61, 0x4a, 0x13, 0x64, 0x7d, 0x16, 0x2f}, {0x58, 0x61, 0x4a, 0x03, 0x64, 0x7d, 0x16, 0x4f}, {0x58, 0x61, 0x4a, 0x03, 0x64, 0x7d, 0x16, 0x4f}, {0x58, 0x61, 0x4a, 0x03, 0x64, 0x7d, 0x06, 0x4f}, {0x58, 0x61, 0x4a, 0x03, 0x64, 0x7d, 0x06, 0x4f}, {0x58, 0x61, 0x4a, 0x03, 0x64, 0x7d, 0x06, 0x4f}, {0x58, 0x61, 0x4a, 0x03, 0x64, 0x7d, 0x06, 0x4f} }, { {0x70, 0x69, 0x0a, 0x43, 0x7c, 0x75, 0x46, 0x0f}, {0x70, 0x69, 0x0a, 0x43, 0x7c, 0x75, 0x46, 0x0f}, {0x70, 0x69, 0x0a, 0x43, 0x7c, 0x75, 0x46, 0x0f}, {0x70, 0x69, 0x0a, 0x43, 0x7c, 0x75, 0x46, 0x0f}, {0x70, 0x69, 0x1a, 0x43, 0x7c, 0x75, 0x46, 0x0f}, {0x70, 0x69, 0x1a, 0x43, 0x7c, 0x75, 0x46, 0x0f}, {0x70, 0x69, 0x1a, 0x23, 0x7c, 0x75, 0x46, 0x1f}, {0x70, 0x69, 0x1a, 0x23, 0x7c, 0x75, 0x46, 0x1f}, {0x30, 0x69, 0x1a, 0x23, 0x7c, 0x75, 0x26, 0x1f}, {0x30, 0x69, 0x1a, 0x23, 0x7c, 0x75, 0x26, 0x1f}, {0x30, 0x29, 0x1a, 0x23, 0x7c, 0x35, 0x26, 0x1f}, {0x30, 0x29, 0x1a, 0x23, 0x7c, 0x35, 0x26, 0x1f}, {0x30, 0x29, 0x3a, 0x23, 0x3c, 0x35, 0x26, 0x1f}, {0x30, 0x29, 0x3a, 0x23, 0x3c, 0x35, 0x26, 0x1f}, {0x30, 0x29, 0x3a, 0x33, 0x3c, 0x35, 0x26, 0x3f}, {0x30, 0x29, 0x3a, 0x33, 0x3c, 0x35, 0x26, 0x3f}, {0x38, 0x29, 0x3a, 0x33, 0x3c, 0x35, 0x36, 0x3f}, {0x38, 0x29, 0x3a, 0x33, 0x3c, 0x35, 0x36, 0x3f}, {0x38, 0x21, 0x3a, 0x33, 0x3c, 0x3d, 0x36, 0x3f}, {0x38, 0x21, 0x3a, 0x33, 0x3c, 0x3d, 0x36, 0x3f}, {0x38, 0x21, 0x2a, 0x33, 0x34, 0x3d, 0x36, 0x3f}, {0x38, 0x21, 0x2a, 0x33, 0x34, 0x3d, 0x36, 0x3f}, {0x38, 0x21, 0x2a, 0x13, 0x34, 0x3d, 0x36, 0x2f}, {0x38, 0x21, 0x2a, 0x13, 0x34, 0x3d, 0x36, 0x2f}, {0x78, 0x21, 0x2a, 0x13, 0x34, 0x3d, 0x16, 0x2f}, {0x78, 0x21, 0x2a, 0x13, 0x34, 0x3d, 0x16, 0x2f}, {0x78, 0x61, 0x2a, 0x13, 0x34, 0x7d, 0x16, 0x2f}, {0x78, 0x61, 0x2a, 0x13, 0x34, 0x7d, 0x16, 0x2f}, {0x78, 0x61, 0x4a, 0x13, 0x74, 0x7d, 0x16, 0x2f}, {0x78, 0x61, 0x4a, 0x13, 0x74, 0x7d, 0x16, 0x2f}, {0x78, 0x61, 0x4a, 0x03, 0x74, 0x7d, 0x16, 0x4f}, {0x78, 0x61, 0x4a, 0x03, 0x74, 0x7d, 0x16, 0x4f}, {0x78, 0x61, 0x4a, 0x03, 0x74, 0x7d, 0x06, 0x4f}, {0x78, 0x61, 0x4a, 0x03, 0x74, 0x7d, 0x06, 0x4f}, {0x78, 0x61, 0x4a, 0x03, 0x74, 0x7d, 0x06, 0x4f}, {0x78, 0x61, 0x4a, 0x03, 0x74, 0x7d, 0x06, 0x4f} }, { {0x70, 0x69, 0x0a, 0x43, 0x7c, 0x75, 0x46, 0x0f}, {0x70, 0x69, 0x0a, 0x43, 0x7c, 0x75, 0x46, 0x0f}, {0x70, 0x69, 0x0a, 0x43, 0x7c, 0x75, 0x46, 0x0f}, {0x70, 0x69, 0x0a, 0x43, 0x7c, 0x75, 0x46, 0x0f}, {0x70, 0x69, 0x1a, 0x43, 0x7c, 0x75, 0x46, 0x0f}, {0x70, 0x69, 0x1a, 0x43, 0x7c, 0x75, 0x46, 0x0f}, {0x70, 0x69, 0x1a, 0x23, 0x7c, 0x75, 0x46, 0x1f}, {0x70, 0x69, 0x1a, 0x23, 0x7c, 0x75, 0x46, 0x1f}, {0x30, 0x69, 0x1a, 0x23, 0x7c, 0x75, 0x26, 0x1f}, {0x30, 0x69, 0x1a, 0x23, 0x7c, 0x75, 0x26, 0x1f}, {0x30, 0x29, 0x1a, 0x23, 0x7c, 0x35, 0x26, 0x1f}, {0x30, 0x29, 0x1a, 0x23, 0x7c, 0x35, 0x26, 0x1f}, {0x30, 0x29, 0x3a, 0x23, 0x3c, 0x35, 0x26, 0x1f}, {0x30, 0x29, 0x3a, 0x23, 0x3c, 0x35, 0x26, 0x1f}, {0x30, 0x29, 0x3a, 0x33, 0x3c, 0x35, 0x26, 0x3f}, {0x30, 0x29, 0x3a, 0x33, 0x3c, 0x35, 0x26, 0x3f}, {0x38, 0x29, 0x3a, 0x33, 0x3c, 0x35, 0x36, 0x3f}, {0x38, 0x29, 0x3a, 0x33, 0x3c, 0x35, 0x36, 0x3f}, {0x38, 0x21, 0x3a, 0x33, 0x3c, 0x3d, 0x36, 0x3f}, {0x38, 0x21, 0x3a, 0x33, 0x3c, 0x3d, 0x36, 0x3f}, {0x38, 0x21, 0x2a, 0x33, 0x34, 0x3d, 0x36, 0x3f}, {0x38, 0x21, 0x2a, 0x33, 0x34, 0x3d, 0x36, 0x3f}, {0x38, 0x21, 0x2a, 0x13, 0x34, 0x3d, 0x36, 0x2f}, {0x38, 0x21, 0x2a, 0x13, 0x34, 0x3d, 0x36, 0x2f}, {0x78, 0x21, 0x2a, 0x13, 0x34, 0x3d, 0x16, 0x2f}, {0x78, 0x21, 0x2a, 0x13, 0x34, 0x3d, 0x16, 0x2f}, {0x78, 0x61, 0x2a, 0x13, 0x34, 0x7d, 0x16, 0x2f}, {0x78, 0x61, 0x2a, 0x13, 0x34, 0x7d, 0x16, 0x2f}, {0x78, 0x61, 0x4a, 0x13, 0x74, 0x7d, 0x16, 0x2f}, {0x78, 0x61, 0x4a, 0x13, 0x74, 0x7d, 0x16, 0x2f}, {0x78, 0x61, 0x4a, 0x03, 0x74, 0x7d, 0x16, 0x4f}, {0x78, 0x61, 0x4a, 0x03, 0x74, 0x7d, 0x16, 0x4f}, {0x78, 0x61, 0x4a, 0x03, 0x74, 0x7d, 0x06, 0x4f}, {0x78, 0x61, 0x4a, 0x03, 0x74, 0x7d, 0x06, 0x4f}, {0x78, 0x61, 0x4a, 0x03, 0x74, 0x7d, 0x06, 0x4f}, {0x78, 0x61, 0x4a, 0x03, 0x74, 0x7d, 0x06, 0x4f} }, { {0x70, 0x79, 0x0a, 0x4b, 0x7c, 0x75, 0x46, 0x0f}, {0x70, 0x79, 0x0a, 0x4b, 0x7c, 0x75, 0x46, 0x0f}, {0x70, 0x79, 0x0a, 0x4b, 0x7c, 0x75, 0x46, 0x0f}, {0x70, 0x79, 0x0a, 0x4b, 0x7c, 0x75, 0x46, 0x0f}, {0x70, 0x79, 0x1a, 0x4b, 0x7c, 0x75, 0x46, 0x0f}, {0x70, 0x79, 0x1a, 0x4b, 0x7c, 0x75, 0x46, 0x0f}, {0x70, 0x79, 0x1a, 0x2b, 0x7c, 0x75, 0x46, 0x1f}, {0x70, 0x79, 0x1a, 0x2b, 0x7c, 0x75, 0x46, 0x1f}, {0x30, 0x79, 0x1a, 0x2b, 0x7c, 0x75, 0x26, 0x1f}, {0x30, 0x79, 0x1a, 0x2b, 0x7c, 0x75, 0x26, 0x1f}, {0x30, 0x39, 0x1a, 0x2b, 0x7c, 0x35, 0x26, 0x1f}, {0x30, 0x39, 0x1a, 0x2b, 0x7c, 0x35, 0x26, 0x1f}, {0x30, 0x39, 0x3a, 0x2b, 0x3c, 0x35, 0x26, 0x1f}, {0x30, 0x39, 0x3a, 0x2b, 0x3c, 0x35, 0x26, 0x1f}, {0x30, 0x39, 0x3a, 0x3b, 0x3c, 0x35, 0x26, 0x3f}, {0x30, 0x39, 0x3a, 0x3b, 0x3c, 0x35, 0x26, 0x3f}, {0x38, 0x39, 0x3a, 0x3b, 0x3c, 0x35, 0x36, 0x3f}, {0x38, 0x39, 0x3a, 0x3b, 0x3c, 0x35, 0x36, 0x3f}, {0x38, 0x31, 0x3a, 0x3b, 0x3c, 0x3d, 0x36, 0x3f}, {0x38, 0x31, 0x3a, 0x3b, 0x3c, 0x3d, 0x36, 0x3f}, {0x38, 0x31, 0x2a, 0x3b, 0x34, 0x3d, 0x36, 0x3f}, {0x38, 0x31, 0x2a, 0x3b, 0x34, 0x3d, 0x36, 0x3f}, {0x38, 0x31, 0x2a, 0x1b, 0x34, 0x3d, 0x36, 0x2f}, {0x38, 0x31, 0x2a, 0x1b, 0x34, 0x3d, 0x36, 0x2f}, {0x78, 0x31, 0x2a, 0x1b, 0x34, 0x3d, 0x16, 0x2f}, {0x78, 0x31, 0x2a, 0x1b, 0x34, 0x3d, 0x16, 0x2f}, {0x78, 0x71, 0x2a, 0x1b, 0x34, 0x7d, 0x16, 0x2f}, {0x78, 0x71, 0x2a, 0x1b, 0x34, 0x7d, 0x16, 0x2f}, {0x78, 0x71, 0x4a, 0x1b, 0x74, 0x7d, 0x16, 0x2f}, {0x78, 0x71, 0x4a, 0x1b, 0x74, 0x7d, 0x16, 0x2f}, {0x78, 0x71, 0x4a, 0x0b, 0x74, 0x7d, 0x16, 0x4f}, {0x78, 0x71, 0x4a, 0x0b, 0x74, 0x7d, 0x16, 0x4f}, {0x78, 0x71, 0x4a, 0x0b, 0x74, 0x7d, 0x06, 0x4f}, {0x78, 0x71, 0x4a, 0x0b, 0x74, 0x7d, 0x06, 0x4f}, {0x78, 0x71, 0x4a, 0x0b, 0x74, 0x7d, 0x06, 0x4f}, {0x78, 0x71, 0x4a, 0x0b, 0x74, 0x7d, 0x06, 0x4f} }, { {0x70, 0x79, 0x0a, 0x4b, 0x7c, 0x75, 0x46, 0x0f}, {0x70, 0x79, 0x0a, 0x4b, 0x7c, 0x75, 0x46, 0x0f}, {0x70, 0x79, 0x0a, 0x4b, 0x7c, 0x75, 0x46, 0x0f}, {0x70, 0x79, 0x0a, 0x4b, 0x7c, 0x75, 0x46, 0x0f}, {0x70, 0x79, 0x1a, 0x4b, 0x7c, 0x75, 0x46, 0x0f}, {0x70, 0x79, 0x1a, 0x4b, 0x7c, 0x75, 0x46, 0x0f}, {0x70, 0x79, 0x1a, 0x2b, 0x7c, 0x75, 0x46, 0x1f}, {0x70, 0x79, 0x1a, 0x2b, 0x7c, 0x75, 0x46, 0x1f}, {0x30, 0x79, 0x1a, 0x2b, 0x7c, 0x75, 0x26, 0x1f}, {0x30, 0x79, 0x1a, 0x2b, 0x7c, 0x75, 0x26, 0x1f}, {0x30, 0x39, 0x1a, 0x2b, 0x7c, 0x35, 0x26, 0x1f}, {0x30, 0x39, 0x1a, 0x2b, 0x7c, 0x35, 0x26, 0x1f}, {0x30, 0x39, 0x3a, 0x2b, 0x3c, 0x35, 0x26, 0x1f}, {0x30, 0x39, 0x3a, 0x2b, 0x3c, 0x35, 0x26, 0x1f}, {0x30, 0x39, 0x3a, 0x3b, 0x3c, 0x35, 0x26, 0x3f}, {0x30, 0x39, 0x3a, 0x3b, 0x3c, 0x35, 0x26, 0x3f}, {0x38, 0x39, 0x3a, 0x3b, 0x3c, 0x35, 0x36, 0x3f}, {0x38, 0x39, 0x3a, 0x3b, 0x3c, 0x35, 0x36, 0x3f}, {0x38, 0x31, 0x3a, 0x3b, 0x3c, 0x3d, 0x36, 0x3f}, {0x38, 0x31, 0x3a, 0x3b, 0x3c, 0x3d, 0x36, 0x3f}, {0x38, 0x31, 0x2a, 0x3b, 0x34, 0x3d, 0x36, 0x3f}, {0x38, 0x31, 0x2a, 0x3b, 0x34, 0x3d, 0x36, 0x3f}, {0x38, 0x31, 0x2a, 0x1b, 0x34, 0x3d, 0x36, 0x2f}, {0x38, 0x31, 0x2a, 0x1b, 0x34, 0x3d, 0x36, 0x2f}, {0x78, 0x31, 0x2a, 0x1b, 0x34, 0x3d, 0x16, 0x2f}, {0x78, 0x31, 0x2a, 0x1b, 0x34, 0x3d, 0x16, 0x2f}, {0x78, 0x71, 0x2a, 0x1b, 0x34, 0x7d, 0x16, 0x2f}, {0x78, 0x71, 0x2a, 0x1b, 0x34, 0x7d, 0x16, 0x2f}, {0x78, 0x71, 0x4a, 0x1b, 0x74, 0x7d, 0x16, 0x2f}, {0x78, 0x71, 0x4a, 0x1b, 0x74, 0x7d, 0x16, 0x2f}, {0x78, 0x71, 0x4a, 0x0b, 0x74, 0x7d, 0x16, 0x4f}, {0x78, 0x71, 0x4a, 0x0b, 0x74, 0x7d, 0x16, 0x4f}, {0x78, 0x71, 0x4a, 0x0b, 0x74, 0x7d, 0x06, 0x4f}, {0x78, 0x71, 0x4a, 0x0b, 0x74, 0x7d, 0x06, 0x4f}, {0x78, 0x71, 0x4a, 0x0b, 0x74, 0x7d, 0x06, 0x4f}, {0x78, 0x71, 0x4a, 0x0b, 0x74, 0x7d, 0x06, 0x4f} }, { {0x70, 0x79, 0x02, 0x4b, 0x7c, 0x75, 0x4e, 0x0f}, {0x70, 0x79, 0x02, 0x4b, 0x7c, 0x75, 0x4e, 0x0f}, {0x70, 0x79, 0x02, 0x4b, 0x7c, 0x75, 0x4e, 0x0f}, {0x70, 0x79, 0x02, 0x4b, 0x7c, 0x75, 0x4e, 0x0f}, {0x70, 0x79, 0x12, 0x4b, 0x7c, 0x75, 0x4e, 0x0f}, {0x70, 0x79, 0x12, 0x4b, 0x7c, 0x75, 0x4e, 0x0f}, {0x70, 0x79, 0x12, 0x2b, 0x7c, 0x75, 0x4e, 0x1f}, {0x70, 0x79, 0x12, 0x2b, 0x7c, 0x75, 0x4e, 0x1f}, {0x30, 0x79, 0x12, 0x2b, 0x7c, 0x75, 0x2e, 0x1f}, {0x30, 0x79, 0x12, 0x2b, 0x7c, 0x75, 0x2e, 0x1f}, {0x30, 0x39, 0x12, 0x2b, 0x7c, 0x35, 0x2e, 0x1f}, {0x30, 0x39, 0x12, 0x2b, 0x7c, 0x35, 0x2e, 0x1f}, {0x30, 0x39, 0x32, 0x2b, 0x3c, 0x35, 0x2e, 0x1f}, {0x30, 0x39, 0x32, 0x2b, 0x3c, 0x35, 0x2e, 0x1f}, {0x30, 0x39, 0x32, 0x3b, 0x3c, 0x35, 0x2e, 0x3f}, {0x30, 0x39, 0x32, 0x3b, 0x3c, 0x35, 0x2e, 0x3f}, {0x38, 0x39, 0x32, 0x3b, 0x3c, 0x35, 0x3e, 0x3f}, {0x38, 0x39, 0x32, 0x3b, 0x3c, 0x35, 0x3e, 0x3f}, {0x38, 0x31, 0x32, 0x3b, 0x3c, 0x3d, 0x3e, 0x3f}, {0x38, 0x31, 0x32, 0x3b, 0x3c, 0x3d, 0x3e, 0x3f}, {0x38, 0x31, 0x22, 0x3b, 0x34, 0x3d, 0x3e, 0x3f}, {0x38, 0x31, 0x22, 0x3b, 0x34, 0x3d, 0x3e, 0x3f}, {0x38, 0x31, 0x22, 0x1b, 0x34, 0x3d, 0x3e, 0x2f}, {0x38, 0x31, 0x22, 0x1b, 0x34, 0x3d, 0x3e, 0x2f}, {0x78, 0x31, 0x22, 0x1b, 0x34, 0x3d, 0x1e, 0x2f}, {0x78, 0x31, 0x22, 0x1b, 0x34, 0x3d, 0x1e, 0x2f}, {0x78, 0x71, 0x22, 0x1b, 0x34, 0x7d, 0x1e, 0x2f}, {0x78, 0x71, 0x22, 0x1b, 0x34, 0x7d, 0x1e, 0x2f}, {0x78, 0x71, 0x42, 0x1b, 0x74, 0x7d, 0x1e, 0x2f}, {0x78, 0x71, 0x42, 0x1b, 0x74, 0x7d, 0x1e, 0x2f}, {0x78, 0x71, 0x42, 0x0b, 0x74, 0x7d, 0x1e, 0x4f}, {0x78, 0x71, 0x42, 0x0b, 0x74, 0x7d, 0x1e, 0x4f}, {0x78, 0x71, 0x42, 0x0b, 0x74, 0x7d, 0x0e, 0x4f}, {0x78, 0x71, 0x42, 0x0b, 0x74, 0x7d, 0x0e, 0x4f}, {0x78, 0x71, 0x42, 0x0b, 0x74, 0x7d, 0x0e, 0x4f}, {0x78, 0x71, 0x42, 0x0b, 0x74, 0x7d, 0x0e, 0x4f} }, { {0x70, 0x79, 0x02, 0x4b, 0x7c, 0x75, 0x4e, 0x0f}, {0x70, 0x79, 0x02, 0x4b, 0x7c, 0x75, 0x4e, 0x0f}, {0x70, 0x79, 0x02, 0x4b, 0x7c, 0x75, 0x4e, 0x0f}, {0x70, 0x79, 0x02, 0x4b, 0x7c, 0x75, 0x4e, 0x0f}, {0x70, 0x79, 0x12, 0x4b, 0x7c, 0x75, 0x4e, 0x0f}, {0x70, 0x79, 0x12, 0x4b, 0x7c, 0x75, 0x4e, 0x0f}, {0x70, 0x79, 0x12, 0x2b, 0x7c, 0x75, 0x4e, 0x1f}, {0x70, 0x79, 0x12, 0x2b, 0x7c, 0x75, 0x4e, 0x1f}, {0x30, 0x79, 0x12, 0x2b, 0x7c, 0x75, 0x2e, 0x1f}, {0x30, 0x79, 0x12, 0x2b, 0x7c, 0x75, 0x2e, 0x1f}, {0x30, 0x39, 0x12, 0x2b, 0x7c, 0x35, 0x2e, 0x1f}, {0x30, 0x39, 0x12, 0x2b, 0x7c, 0x35, 0x2e, 0x1f}, {0x30, 0x39, 0x32, 0x2b, 0x3c, 0x35, 0x2e, 0x1f}, {0x30, 0x39, 0x32, 0x2b, 0x3c, 0x35, 0x2e, 0x1f}, {0x30, 0x39, 0x32, 0x3b, 0x3c, 0x35, 0x2e, 0x3f}, {0x30, 0x39, 0x32, 0x3b, 0x3c, 0x35, 0x2e, 0x3f}, {0x38, 0x39, 0x32, 0x3b, 0x3c, 0x35, 0x3e, 0x3f}, {0x38, 0x39, 0x32, 0x3b, 0x3c, 0x35, 0x3e, 0x3f}, {0x38, 0x31, 0x32, 0x3b, 0x3c, 0x3d, 0x3e, 0x3f}, {0x38, 0x31, 0x32, 0x3b, 0x3c, 0x3d, 0x3e, 0x3f}, {0x38, 0x31, 0x22, 0x3b, 0x34, 0x3d, 0x3e, 0x3f}, {0x38, 0x31, 0x22, 0x3b, 0x34, 0x3d, 0x3e, 0x3f}, {0x38, 0x31, 0x22, 0x1b, 0x34, 0x3d, 0x3e, 0x2f}, {0x38, 0x31, 0x22, 0x1b, 0x34, 0x3d, 0x3e, 0x2f}, {0x78, 0x31, 0x22, 0x1b, 0x34, 0x3d, 0x1e, 0x2f}, {0x78, 0x31, 0x22, 0x1b, 0x34, 0x3d, 0x1e, 0x2f}, {0x78, 0x71, 0x22, 0x1b, 0x34, 0x7d, 0x1e, 0x2f}, {0x78, 0x71, 0x22, 0x1b, 0x34, 0x7d, 0x1e, 0x2f}, {0x78, 0x71, 0x42, 0x1b, 0x74, 0x7d, 0x1e, 0x2f}, {0x78, 0x71, 0x42, 0x1b, 0x74, 0x7d, 0x1e, 0x2f}, {0x78, 0x71, 0x42, 0x0b, 0x74, 0x7d, 0x1e, 0x4f}, {0x78, 0x71, 0x42, 0x0b, 0x74, 0x7d, 0x1e, 0x4f}, {0x78, 0x71, 0x42, 0x0b, 0x74, 0x7d, 0x0e, 0x4f}, {0x78, 0x71, 0x42, 0x0b, 0x74, 0x7d, 0x0e, 0x4f}, {0x78, 0x71, 0x42, 0x0b, 0x74, 0x7d, 0x0e, 0x4f}, {0x78, 0x71, 0x42, 0x0b, 0x74, 0x7d, 0x0e, 0x4f} }, { {0x70, 0x79, 0x02, 0x4b, 0x7c, 0x65, 0x4e, 0x07}, {0x70, 0x79, 0x02, 0x4b, 0x7c, 0x65, 0x4e, 0x07}, {0x70, 0x79, 0x02, 0x4b, 0x7c, 0x65, 0x4e, 0x07}, {0x70, 0x79, 0x02, 0x4b, 0x7c, 0x65, 0x4e, 0x07}, {0x70, 0x79, 0x12, 0x4b, 0x7c, 0x65, 0x4e, 0x07}, {0x70, 0x79, 0x12, 0x4b, 0x7c, 0x65, 0x4e, 0x07}, {0x70, 0x79, 0x12, 0x2b, 0x7c, 0x65, 0x4e, 0x17}, {0x70, 0x79, 0x12, 0x2b, 0x7c, 0x65, 0x4e, 0x17}, {0x30, 0x79, 0x12, 0x2b, 0x7c, 0x65, 0x2e, 0x17}, {0x30, 0x79, 0x12, 0x2b, 0x7c, 0x65, 0x2e, 0x17}, {0x30, 0x39, 0x12, 0x2b, 0x7c, 0x25, 0x2e, 0x17}, {0x30, 0x39, 0x12, 0x2b, 0x7c, 0x25, 0x2e, 0x17}, {0x30, 0x39, 0x32, 0x2b, 0x3c, 0x25, 0x2e, 0x17}, {0x30, 0x39, 0x32, 0x2b, 0x3c, 0x25, 0x2e, 0x17}, {0x30, 0x39, 0x32, 0x3b, 0x3c, 0x25, 0x2e, 0x37}, {0x30, 0x39, 0x32, 0x3b, 0x3c, 0x25, 0x2e, 0x37}, {0x38, 0x39, 0x32, 0x3b, 0x3c, 0x25, 0x3e, 0x37}, {0x38, 0x39, 0x32, 0x3b, 0x3c, 0x25, 0x3e, 0x37}, {0x38, 0x31, 0x32, 0x3b, 0x3c, 0x2d, 0x3e, 0x37}, {0x38, 0x31, 0x32, 0x3b, 0x3c, 0x2d, 0x3e, 0x37}, {0x38, 0x31, 0x22, 0x3b, 0x34, 0x2d, 0x3e, 0x37}, {0x38, 0x31, 0x22, 0x3b, 0x34, 0x2d, 0x3e, 0x37}, {0x38, 0x31, 0x22, 0x1b, 0x34, 0x2d, 0x3e, 0x27}, {0x38, 0x31, 0x22, 0x1b, 0x34, 0x2d, 0x3e, 0x27}, {0x78, 0x31, 0x22, 0x1b, 0x34, 0x2d, 0x1e, 0x27}, {0x78, 0x31, 0x22, 0x1b, 0x34, 0x2d, 0x1e, 0x27}, {0x78, 0x71, 0x22, 0x1b, 0x34, 0x6d, 0x1e, 0x27}, {0x78, 0x71, 0x22, 0x1b, 0x34, 0x6d, 0x1e, 0x27}, {0x78, 0x71, 0x42, 0x1b, 0x74, 0x6d, 0x1e, 0x27}, {0x78, 0x71, 0x42, 0x1b, 0x74, 0x6d, 0x1e, 0x27}, {0x78, 0x71, 0x42, 0x0b, 0x74, 0x6d, 0x1e, 0x47}, {0x78, 0x71, 0x42, 0x0b, 0x74, 0x6d, 0x1e, 0x47}, {0x78, 0x71, 0x42, 0x0b, 0x74, 0x6d, 0x0e, 0x47}, {0x78, 0x71, 0x42, 0x0b, 0x74, 0x6d, 0x0e, 0x47}, {0x78, 0x71, 0x42, 0x0b, 0x74, 0x6d, 0x0e, 0x47}, {0x78, 0x71, 0x42, 0x0b, 0x74, 0x6d, 0x0e, 0x47} }, { {0x70, 0x79, 0x02, 0x4b, 0x7c, 0x65, 0x4e, 0x07}, {0x70, 0x79, 0x02, 0x4b, 0x7c, 0x65, 0x4e, 0x07}, {0x70, 0x79, 0x02, 0x4b, 0x7c, 0x65, 0x4e, 0x07}, {0x70, 0x79, 0x02, 0x4b, 0x7c, 0x65, 0x4e, 0x07}, {0x70, 0x79, 0x12, 0x4b, 0x7c, 0x65, 0x4e, 0x07}, {0x70, 0x79, 0x12, 0x4b, 0x7c, 0x65, 0x4e, 0x07}, {0x70, 0x79, 0x12, 0x2b, 0x7c, 0x65, 0x4e, 0x17}, {0x70, 0x79, 0x12, 0x2b, 0x7c, 0x65, 0x4e, 0x17}, {0x30, 0x79, 0x12, 0x2b, 0x7c, 0x65, 0x2e, 0x17}, {0x30, 0x79, 0x12, 0x2b, 0x7c, 0x65, 0x2e, 0x17}, {0x30, 0x39, 0x12, 0x2b, 0x7c, 0x25, 0x2e, 0x17}, {0x30, 0x39, 0x12, 0x2b, 0x7c, 0x25, 0x2e, 0x17}, {0x30, 0x39, 0x32, 0x2b, 0x3c, 0x25, 0x2e, 0x17}, {0x30, 0x39, 0x32, 0x2b, 0x3c, 0x25, 0x2e, 0x17}, {0x30, 0x39, 0x32, 0x3b, 0x3c, 0x25, 0x2e, 0x37}, {0x30, 0x39, 0x32, 0x3b, 0x3c, 0x25, 0x2e, 0x37}, {0x38, 0x39, 0x32, 0x3b, 0x3c, 0x25, 0x3e, 0x37}, {0x38, 0x39, 0x32, 0x3b, 0x3c, 0x25, 0x3e, 0x37}, {0x38, 0x31, 0x32, 0x3b, 0x3c, 0x2d, 0x3e, 0x37}, {0x38, 0x31, 0x32, 0x3b, 0x3c, 0x2d, 0x3e, 0x37}, {0x38, 0x31, 0x22, 0x3b, 0x34, 0x2d, 0x3e, 0x37}, {0x38, 0x31, 0x22, 0x3b, 0x34, 0x2d, 0x3e, 0x37}, {0x38, 0x31, 0x22, 0x1b, 0x34, 0x2d, 0x3e, 0x27}, {0x38, 0x31, 0x22, 0x1b, 0x34, 0x2d, 0x3e, 0x27}, {0x78, 0x31, 0x22, 0x1b, 0x34, 0x2d, 0x1e, 0x27}, {0x78, 0x31, 0x22, 0x1b, 0x34, 0x2d, 0x1e, 0x27}, {0x78, 0x71, 0x22, 0x1b, 0x34, 0x6d, 0x1e, 0x27}, {0x78, 0x71, 0x22, 0x1b, 0x34, 0x6d, 0x1e, 0x27}, {0x78, 0x71, 0x42, 0x1b, 0x74, 0x6d, 0x1e, 0x27}, {0x78, 0x71, 0x42, 0x1b, 0x74, 0x6d, 0x1e, 0x27}, {0x78, 0x71, 0x42, 0x0b, 0x74, 0x6d, 0x1e, 0x47}, {0x78, 0x71, 0x42, 0x0b, 0x74, 0x6d, 0x1e, 0x47}, {0x78, 0x71, 0x42, 0x0b, 0x74, 0x6d, 0x0e, 0x47}, {0x78, 0x71, 0x42, 0x0b, 0x74, 0x6d, 0x0e, 0x47}, {0x78, 0x71, 0x42, 0x0b, 0x74, 0x6d, 0x0e, 0x47}, {0x78, 0x71, 0x42, 0x0b, 0x74, 0x6d, 0x0e, 0x47} }, { {0x60, 0x79, 0x02, 0x4b, 0x5c, 0x65, 0x4e, 0x07}, {0x60, 0x79, 0x02, 0x4b, 0x5c, 0x65, 0x4e, 0x07}, {0x60, 0x79, 0x02, 0x4b, 0x5c, 0x65, 0x4e, 0x07}, {0x60, 0x79, 0x02, 0x4b, 0x5c, 0x65, 0x4e, 0x07}, {0x60, 0x79, 0x12, 0x4b, 0x5c, 0x65, 0x4e, 0x07}, {0x60, 0x79, 0x12, 0x4b, 0x5c, 0x65, 0x4e, 0x07}, {0x60, 0x79, 0x12, 0x2b, 0x5c, 0x65, 0x4e, 0x17}, {0x60, 0x79, 0x12, 0x2b, 0x5c, 0x65, 0x4e, 0x17}, {0x20, 0x79, 0x12, 0x2b, 0x5c, 0x65, 0x2e, 0x17}, {0x20, 0x79, 0x12, 0x2b, 0x5c, 0x65, 0x2e, 0x17}, {0x20, 0x39, 0x12, 0x2b, 0x5c, 0x25, 0x2e, 0x17}, {0x20, 0x39, 0x12, 0x2b, 0x5c, 0x25, 0x2e, 0x17}, {0x20, 0x39, 0x32, 0x2b, 0x1c, 0x25, 0x2e, 0x17}, {0x20, 0x39, 0x32, 0x2b, 0x1c, 0x25, 0x2e, 0x17}, {0x20, 0x39, 0x32, 0x3b, 0x1c, 0x25, 0x2e, 0x37}, {0x20, 0x39, 0x32, 0x3b, 0x1c, 0x25, 0x2e, 0x37}, {0x28, 0x39, 0x32, 0x3b, 0x1c, 0x25, 0x3e, 0x37}, {0x28, 0x39, 0x32, 0x3b, 0x1c, 0x25, 0x3e, 0x37}, {0x28, 0x31, 0x32, 0x3b, 0x1c, 0x2d, 0x3e, 0x37}, {0x28, 0x31, 0x32, 0x3b, 0x1c, 0x2d, 0x3e, 0x37}, {0x28, 0x31, 0x22, 0x3b, 0x14, 0x2d, 0x3e, 0x37}, {0x28, 0x31, 0x22, 0x3b, 0x14, 0x2d, 0x3e, 0x37}, {0x28, 0x31, 0x22, 0x1b, 0x14, 0x2d, 0x3e, 0x27}, {0x28, 0x31, 0x22, 0x1b, 0x14, 0x2d, 0x3e, 0x27}, {0x68, 0x31, 0x22, 0x1b, 0x14, 0x2d, 0x1e, 0x27}, {0x68, 0x31, 0x22, 0x1b, 0x14, 0x2d, 0x1e, 0x27}, {0x68, 0x71, 0x22, 0x1b, 0x14, 0x6d, 0x1e, 0x27}, {0x68, 0x71, 0x22, 0x1b, 0x14, 0x6d, 0x1e, 0x27}, {0x68, 0x71, 0x42, 0x1b, 0x54, 0x6d, 0x1e, 0x27}, {0x68, 0x71, 0x42, 0x1b, 0x54, 0x6d, 0x1e, 0x27}, {0x68, 0x71, 0x42, 0x0b, 0x54, 0x6d, 0x1e, 0x47}, {0x68, 0x71, 0x42, 0x0b, 0x54, 0x6d, 0x1e, 0x47}, {0x68, 0x71, 0x42, 0x0b, 0x54, 0x6d, 0x0e, 0x47}, {0x68, 0x71, 0x42, 0x0b, 0x54, 0x6d, 0x0e, 0x47}, {0x68, 0x71, 0x42, 0x0b, 0x54, 0x6d, 0x0e, 0x47}, {0x68, 0x71, 0x42, 0x0b, 0x54, 0x6d, 0x0e, 0x47} }, { {0x60, 0x79, 0x02, 0x4b, 0x5c, 0x65, 0x4e, 0x07}, {0x60, 0x79, 0x02, 0x4b, 0x5c, 0x65, 0x4e, 0x07}, {0x60, 0x79, 0x02, 0x4b, 0x5c, 0x65, 0x4e, 0x07}, {0x60, 0x79, 0x02, 0x4b, 0x5c, 0x65, 0x4e, 0x07}, {0x60, 0x79, 0x12, 0x4b, 0x5c, 0x65, 0x4e, 0x07}, {0x60, 0x79, 0x12, 0x4b, 0x5c, 0x65, 0x4e, 0x07}, {0x60, 0x79, 0x12, 0x2b, 0x5c, 0x65, 0x4e, 0x17}, {0x60, 0x79, 0x12, 0x2b, 0x5c, 0x65, 0x4e, 0x17}, {0x20, 0x79, 0x12, 0x2b, 0x5c, 0x65, 0x2e, 0x17}, {0x20, 0x79, 0x12, 0x2b, 0x5c, 0x65, 0x2e, 0x17}, {0x20, 0x39, 0x12, 0x2b, 0x5c, 0x25, 0x2e, 0x17}, {0x20, 0x39, 0x12, 0x2b, 0x5c, 0x25, 0x2e, 0x17}, {0x20, 0x39, 0x32, 0x2b, 0x1c, 0x25, 0x2e, 0x17}, {0x20, 0x39, 0x32, 0x2b, 0x1c, 0x25, 0x2e, 0x17}, {0x20, 0x39, 0x32, 0x3b, 0x1c, 0x25, 0x2e, 0x37}, {0x20, 0x39, 0x32, 0x3b, 0x1c, 0x25, 0x2e, 0x37}, {0x28, 0x39, 0x32, 0x3b, 0x1c, 0x25, 0x3e, 0x37}, {0x28, 0x39, 0x32, 0x3b, 0x1c, 0x25, 0x3e, 0x37}, {0x28, 0x31, 0x32, 0x3b, 0x1c, 0x2d, 0x3e, 0x37}, {0x28, 0x31, 0x32, 0x3b, 0x1c, 0x2d, 0x3e, 0x37}, {0x28, 0x31, 0x22, 0x3b, 0x14, 0x2d, 0x3e, 0x37}, {0x28, 0x31, 0x22, 0x3b, 0x14, 0x2d, 0x3e, 0x37}, {0x28, 0x31, 0x22, 0x1b, 0x14, 0x2d, 0x3e, 0x27}, {0x28, 0x31, 0x22, 0x1b, 0x14, 0x2d, 0x3e, 0x27}, {0x68, 0x31, 0x22, 0x1b, 0x14, 0x2d, 0x1e, 0x27}, {0x68, 0x31, 0x22, 0x1b, 0x14, 0x2d, 0x1e, 0x27}, {0x68, 0x71, 0x22, 0x1b, 0x14, 0x6d, 0x1e, 0x27}, {0x68, 0x71, 0x22, 0x1b, 0x14, 0x6d, 0x1e, 0x27}, {0x68, 0x71, 0x42, 0x1b, 0x54, 0x6d, 0x1e, 0x27}, {0x68, 0x71, 0x42, 0x1b, 0x54, 0x6d, 0x1e, 0x27}, {0x68, 0x71, 0x42, 0x0b, 0x54, 0x6d, 0x1e, 0x47}, {0x68, 0x71, 0x42, 0x0b, 0x54, 0x6d, 0x1e, 0x47}, {0x68, 0x71, 0x42, 0x0b, 0x54, 0x6d, 0x0e, 0x47}, {0x68, 0x71, 0x42, 0x0b, 0x54, 0x6d, 0x0e, 0x47}, {0x68, 0x71, 0x42, 0x0b, 0x54, 0x6d, 0x0e, 0x47}, {0x68, 0x71, 0x42, 0x0b, 0x54, 0x6d, 0x0e, 0x47} }, { {0x60, 0x59, 0x02, 0x4b, 0x5c, 0x65, 0x4e, 0x07}, {0x60, 0x59, 0x02, 0x4b, 0x5c, 0x65, 0x4e, 0x07}, {0x60, 0x59, 0x02, 0x4b, 0x5c, 0x65, 0x4e, 0x07}, {0x60, 0x59, 0x02, 0x4b, 0x5c, 0x65, 0x4e, 0x07}, {0x60, 0x59, 0x12, 0x4b, 0x5c, 0x65, 0x4e, 0x07}, {0x60, 0x59, 0x12, 0x4b, 0x5c, 0x65, 0x4e, 0x07}, {0x60, 0x59, 0x12, 0x6b, 0x5c, 0x65, 0x4e, 0x17}, {0x60, 0x59, 0x12, 0x6b, 0x5c, 0x65, 0x4e, 0x17}, {0x20, 0x59, 0x12, 0x6b, 0x5c, 0x65, 0x2e, 0x17}, {0x20, 0x59, 0x12, 0x6b, 0x5c, 0x65, 0x2e, 0x17}, {0x20, 0x19, 0x12, 0x6b, 0x5c, 0x25, 0x2e, 0x17}, {0x20, 0x19, 0x12, 0x6b, 0x5c, 0x25, 0x2e, 0x17}, {0x20, 0x19, 0x32, 0x6b, 0x1c, 0x25, 0x2e, 0x17}, {0x20, 0x19, 0x32, 0x6b, 0x1c, 0x25, 0x2e, 0x17}, {0x20, 0x19, 0x32, 0x7b, 0x1c, 0x25, 0x2e, 0x37}, {0x20, 0x19, 0x32, 0x7b, 0x1c, 0x25, 0x2e, 0x37}, {0x28, 0x19, 0x32, 0x7b, 0x1c, 0x25, 0x3e, 0x37}, {0x28, 0x19, 0x32, 0x7b, 0x1c, 0x25, 0x3e, 0x37}, {0x28, 0x11, 0x32, 0x7b, 0x1c, 0x2d, 0x3e, 0x37}, {0x28, 0x11, 0x32, 0x7b, 0x1c, 0x2d, 0x3e, 0x37}, {0x28, 0x11, 0x22, 0x7b, 0x14, 0x2d, 0x3e, 0x37}, {0x28, 0x11, 0x22, 0x7b, 0x14, 0x2d, 0x3e, 0x37}, {0x28, 0x11, 0x22, 0x5b, 0x14, 0x2d, 0x3e, 0x27}, {0x28, 0x11, 0x22, 0x5b, 0x14, 0x2d, 0x3e, 0x27}, {0x68, 0x11, 0x22, 0x5b, 0x14, 0x2d, 0x1e, 0x27}, {0x68, 0x11, 0x22, 0x5b, 0x14, 0x2d, 0x1e, 0x27}, {0x68, 0x51, 0x22, 0x5b, 0x14, 0x6d, 0x1e, 0x27}, {0x68, 0x51, 0x22, 0x5b, 0x14, 0x6d, 0x1e, 0x27}, {0x68, 0x51, 0x42, 0x5b, 0x54, 0x6d, 0x1e, 0x27}, {0x68, 0x51, 0x42, 0x5b, 0x54, 0x6d, 0x1e, 0x27}, {0x68, 0x51, 0x42, 0x5b, 0x54, 0x6d, 0x1e, 0x47}, {0x68, 0x51, 0x42, 0x0b, 0x54, 0x6d, 0x1e, 0x47}, {0x68, 0x51, 0x42, 0x0b, 0x54, 0x6d, 0x0e, 0x47}, {0x68, 0x51, 0x42, 0x0b, 0x54, 0x6d, 0x0e, 0x47}, {0x68, 0x51, 0x42, 0x0b, 0x54, 0x6d, 0x0e, 0x47}, {0x68, 0x51, 0x42, 0x0b, 0x54, 0x6d, 0x0e, 0x47} }, { {0x60, 0x59, 0x02, 0x4b, 0x5c, 0x65, 0x4e, 0x07}, {0x60, 0x59, 0x02, 0x4b, 0x5c, 0x65, 0x4e, 0x07}, {0x60, 0x59, 0x02, 0x4b, 0x5c, 0x65, 0x4e, 0x07}, {0x60, 0x59, 0x02, 0x4b, 0x5c, 0x65, 0x4e, 0x07}, {0x60, 0x59, 0x12, 0x4b, 0x5c, 0x65, 0x4e, 0x07}, {0x60, 0x59, 0x12, 0x6b, 0x5c, 0x65, 0x4e, 0x07}, {0x60, 0x59, 0x12, 0x6b, 0x5c, 0x65, 0x4e, 0x17}, {0x60, 0x59, 0x12, 0x6b, 0x5c, 0x65, 0x4e, 0x17}, {0x20, 0x59, 0x12, 0x6b, 0x5c, 0x65, 0x2e, 0x17}, {0x20, 0x59, 0x12, 0x6b, 0x5c, 0x65, 0x2e, 0x17}, {0x20, 0x19, 0x12, 0x6b, 0x5c, 0x25, 0x2e, 0x17}, {0x20, 0x19, 0x12, 0x6b, 0x5c, 0x25, 0x2e, 0x17}, {0x20, 0x19, 0x32, 0x6b, 0x1c, 0x25, 0x2e, 0x17}, {0x20, 0x19, 0x32, 0x6b, 0x1c, 0x25, 0x2e, 0x17}, {0x20, 0x19, 0x32, 0x7b, 0x1c, 0x25, 0x2e, 0x37}, {0x20, 0x19, 0x32, 0x7b, 0x1c, 0x25, 0x2e, 0x37}, {0x28, 0x19, 0x32, 0x7b, 0x1c, 0x25, 0x3e, 0x37}, {0x28, 0x19, 0x32, 0x7b, 0x1c, 0x25, 0x3e, 0x37}, {0x28, 0x11, 0x32, 0x7b, 0x1c, 0x2d, 0x3e, 0x37}, {0x28, 0x11, 0x32, 0x7b, 0x1c, 0x2d, 0x3e, 0x37}, {0x28, 0x11, 0x22, 0x7b, 0x14, 0x2d, 0x3e, 0x37}, {0x28, 0x11, 0x22, 0x7b, 0x14, 0x2d, 0x3e, 0x37}, {0x28, 0x11, 0x22, 0x5b, 0x14, 0x2d, 0x3e, 0x27}, {0x28, 0x11, 0x22, 0x5b, 0x14, 0x2d, 0x3e, 0x27}, {0x68, 0x11, 0x22, 0x5b, 0x14, 0x2d, 0x1e, 0x27}, {0x68, 0x11, 0x22, 0x5b, 0x14, 0x2d, 0x1e, 0x27}, {0x68, 0x51, 0x22, 0x5b, 0x14, 0x6d, 0x1e, 0x27}, {0x68, 0x51, 0x22, 0x5b, 0x14, 0x6d, 0x1e, 0x27}, {0x68, 0x51, 0x42, 0x5b, 0x54, 0x6d, 0x1e, 0x27}, {0x68, 0x51, 0x42, 0x5b, 0x54, 0x6d, 0x1e, 0x27}, {0x68, 0x51, 0x42, 0x5b, 0x54, 0x6d, 0x1e, 0x47}, {0x68, 0x51, 0x42, 0x5b, 0x54, 0x6d, 0x1e, 0x47}, {0x68, 0x51, 0x42, 0x0b, 0x54, 0x6d, 0x0e, 0x47}, {0x68, 0x51, 0x42, 0x0b, 0x54, 0x6d, 0x0e, 0x47}, {0x68, 0x51, 0x42, 0x0b, 0x54, 0x6d, 0x0e, 0x47}, {0x68, 0x51, 0x42, 0x0b, 0x54, 0x6d, 0x0e, 0x47} }, { {0x60, 0x59, 0x02, 0x4b, 0x5c, 0x65, 0x4e, 0x07}, {0x60, 0x59, 0x02, 0x4b, 0x5c, 0x65, 0x4e, 0x07}, {0x60, 0x59, 0x02, 0x4b, 0x5c, 0x65, 0x4e, 0x07}, {0x60, 0x59, 0x02, 0x4b, 0x5c, 0x65, 0x4e, 0x07}, {0x60, 0x59, 0x52, 0x6b, 0x5c, 0x65, 0x4e, 0x07}, {0x60, 0x59, 0x52, 0x6b, 0x5c, 0x65, 0x4e, 0x07}, {0x60, 0x59, 0x52, 0x6b, 0x5c, 0x65, 0x4e, 0x17}, {0x60, 0x59, 0x52, 0x6b, 0x5c, 0x65, 0x4e, 0x17}, {0x20, 0x59, 0x52, 0x6b, 0x5c, 0x65, 0x6e, 0x17}, {0x20, 0x59, 0x52, 0x6b, 0x5c, 0x65, 0x6e, 0x17}, {0x20, 0x19, 0x52, 0x6b, 0x5c, 0x25, 0x6e, 0x17}, {0x20, 0x19, 0x52, 0x6b, 0x5c, 0x25, 0x6e, 0x17}, {0x20, 0x19, 0x72, 0x6b, 0x1c, 0x25, 0x6e, 0x17}, {0x20, 0x19, 0x72, 0x6b, 0x1c, 0x25, 0x6e, 0x17}, {0x20, 0x19, 0x72, 0x7b, 0x1c, 0x25, 0x6e, 0x37}, {0x20, 0x19, 0x72, 0x7b, 0x1c, 0x25, 0x6e, 0x37}, {0x28, 0x19, 0x72, 0x7b, 0x1c, 0x25, 0x7e, 0x37}, {0x28, 0x19, 0x72, 0x7b, 0x1c, 0x25, 0x7e, 0x37}, {0x28, 0x11, 0x72, 0x7b, 0x1c, 0x2d, 0x7e, 0x37}, {0x28, 0x11, 0x72, 0x7b, 0x1c, 0x2d, 0x7e, 0x37}, {0x28, 0x11, 0x62, 0x7b, 0x14, 0x2d, 0x7e, 0x37}, {0x28, 0x11, 0x62, 0x7b, 0x14, 0x2d, 0x7e, 0x37}, {0x28, 0x11, 0x62, 0x5b, 0x14, 0x2d, 0x7e, 0x27}, {0x28, 0x11, 0x62, 0x5b, 0x14, 0x2d, 0x7e, 0x27}, {0x68, 0x11, 0x62, 0x5b, 0x14, 0x2d, 0x5e, 0x27}, {0x68, 0x11, 0x62, 0x5b, 0x14, 0x2d, 0x5e, 0x27}, {0x68, 0x51, 0x62, 0x5b, 0x14, 0x6d, 0x5e, 0x27}, {0x68, 0x51, 0x62, 0x5b, 0x14, 0x6d, 0x5e, 0x27}, {0x68, 0x51, 0x62, 0x5b, 0x54, 0x6d, 0x5e, 0x27}, {0x68, 0x51, 0x42, 0x5b, 0x54, 0x6d, 0x5e, 0x27}, {0x68, 0x51, 0x42, 0x5b, 0x54, 0x6d, 0x5e, 0x47}, {0x68, 0x51, 0x42, 0x5b, 0x54, 0x6d, 0x5e, 0x47}, {0x68, 0x51, 0x42, 0x5b, 0x54, 0x6d, 0x5e, 0x47}, {0x68, 0x51, 0x42, 0x0b, 0x54, 0x6d, 0x0e, 0x47}, {0x68, 0x51, 0x42, 0x0b, 0x54, 0x6d, 0x0e, 0x47}, {0x68, 0x51, 0x42, 0x0b, 0x54, 0x6d, 0x0e, 0x47} }, { {0x60, 0x59, 0x02, 0x4b, 0x5c, 0x65, 0x4e, 0x07}, {0x60, 0x59, 0x02, 0x4b, 0x5c, 0x65, 0x4e, 0x07}, {0x60, 0x59, 0x02, 0x4b, 0x5c, 0x65, 0x4e, 0x07}, {0x60, 0x59, 0x52, 0x6b, 0x5c, 0x65, 0x4e, 0x07}, {0x60, 0x59, 0x52, 0x6b, 0x5c, 0x65, 0x4e, 0x07}, {0x60, 0x59, 0x52, 0x6b, 0x5c, 0x65, 0x4e, 0x07}, {0x60, 0x59, 0x52, 0x6b, 0x5c, 0x65, 0x4e, 0x17}, {0x60, 0x59, 0x52, 0x6b, 0x5c, 0x65, 0x6e, 0x17}, {0x20, 0x59, 0x52, 0x6b, 0x5c, 0x65, 0x6e, 0x17}, {0x20, 0x59, 0x52, 0x6b, 0x5c, 0x65, 0x6e, 0x17}, {0x20, 0x19, 0x52, 0x6b, 0x5c, 0x25, 0x6e, 0x17}, {0x20, 0x19, 0x52, 0x6b, 0x5c, 0x25, 0x6e, 0x17}, {0x20, 0x19, 0x72, 0x6b, 0x1c, 0x25, 0x6e, 0x17}, {0x20, 0x19, 0x72, 0x6b, 0x1c, 0x25, 0x6e, 0x17}, {0x20, 0x19, 0x72, 0x7b, 0x1c, 0x25, 0x6e, 0x37}, {0x20, 0x19, 0x72, 0x7b, 0x1c, 0x25, 0x6e, 0x37}, {0x28, 0x19, 0x72, 0x7b, 0x1c, 0x25, 0x7e, 0x37}, {0x28, 0x19, 0x72, 0x7b, 0x1c, 0x25, 0x7e, 0x37}, {0x28, 0x11, 0x72, 0x7b, 0x1c, 0x2d, 0x7e, 0x37}, {0x28, 0x11, 0x72, 0x7b, 0x1c, 0x2d, 0x7e, 0x37}, {0x28, 0x11, 0x62, 0x7b, 0x14, 0x2d, 0x7e, 0x37}, {0x28, 0x11, 0x62, 0x7b, 0x14, 0x2d, 0x7e, 0x37}, {0x28, 0x11, 0x62, 0x5b, 0x14, 0x2d, 0x7e, 0x27}, {0x28, 0x11, 0x62, 0x5b, 0x14, 0x2d, 0x7e, 0x27}, {0x68, 0x11, 0x62, 0x5b, 0x14, 0x2d, 0x5e, 0x27}, {0x68, 0x11, 0x62, 0x5b, 0x14, 0x2d, 0x5e, 0x27}, {0x68, 0x51, 0x62, 0x5b, 0x14, 0x6d, 0x5e, 0x27}, {0x68, 0x51, 0x62, 0x5b, 0x14, 0x6d, 0x5e, 0x27}, {0x68, 0x51, 0x62, 0x5b, 0x54, 0x6d, 0x5e, 0x27}, {0x68, 0x51, 0x62, 0x5b, 0x54, 0x6d, 0x5e, 0x27}, {0x68, 0x51, 0x42, 0x5b, 0x54, 0x6d, 0x5e, 0x47}, {0x68, 0x51, 0x42, 0x5b, 0x54, 0x6d, 0x5e, 0x47}, {0x68, 0x51, 0x42, 0x5b, 0x54, 0x6d, 0x5e, 0x47}, {0x68, 0x51, 0x42, 0x5b, 0x54, 0x6d, 0x5e, 0x47}, {0x68, 0x51, 0x42, 0x0b, 0x54, 0x6d, 0x0e, 0x47}, {0x68, 0x51, 0x42, 0x0b, 0x54, 0x6d, 0x0e, 0x47} }, { {0x60, 0x59, 0x02, 0x4b, 0x5c, 0x65, 0x4e, 0x07}, {0x60, 0x59, 0x02, 0x4b, 0x5c, 0x65, 0x4e, 0x07}, {0x60, 0x59, 0x52, 0x6b, 0x5c, 0x65, 0x4e, 0x07}, {0x60, 0x59, 0x52, 0x6b, 0x5c, 0x65, 0x4e, 0x07}, {0x60, 0x59, 0x52, 0x6b, 0x5c, 0x65, 0x4e, 0x07}, {0x60, 0x59, 0x52, 0x6b, 0x5c, 0x65, 0x4e, 0x07}, {0x60, 0x59, 0x52, 0x6b, 0x5c, 0x65, 0x6e, 0x57}, {0x60, 0x59, 0x52, 0x6b, 0x5c, 0x65, 0x6e, 0x57}, {0x20, 0x59, 0x52, 0x6b, 0x5c, 0x65, 0x6e, 0x57}, {0x20, 0x59, 0x52, 0x6b, 0x5c, 0x65, 0x6e, 0x57}, {0x20, 0x19, 0x52, 0x6b, 0x5c, 0x45, 0x6e, 0x57}, {0x20, 0x19, 0x52, 0x6b, 0x5c, 0x45, 0x6e, 0x57}, {0x20, 0x19, 0x72, 0x6b, 0x1c, 0x45, 0x6e, 0x57}, {0x20, 0x19, 0x72, 0x6b, 0x1c, 0x45, 0x6e, 0x57}, {0x20, 0x19, 0x72, 0x7b, 0x1c, 0x45, 0x6e, 0x77}, {0x20, 0x19, 0x72, 0x7b, 0x1c, 0x45, 0x6e, 0x77}, {0x28, 0x19, 0x72, 0x7b, 0x1c, 0x45, 0x7e, 0x77}, {0x28, 0x19, 0x72, 0x7b, 0x1c, 0x45, 0x7e, 0x77}, {0x28, 0x11, 0x72, 0x7b, 0x1c, 0x4d, 0x7e, 0x77}, {0x28, 0x11, 0x72, 0x7b, 0x1c, 0x4d, 0x7e, 0x77}, {0x28, 0x11, 0x62, 0x7b, 0x14, 0x4d, 0x7e, 0x77}, {0x28, 0x11, 0x62, 0x7b, 0x14, 0x4d, 0x7e, 0x77}, {0x28, 0x11, 0x62, 0x5b, 0x14, 0x4d, 0x7e, 0x67}, {0x28, 0x11, 0x62, 0x5b, 0x14, 0x4d, 0x7e, 0x67}, {0x68, 0x11, 0x62, 0x5b, 0x14, 0x4d, 0x5e, 0x67}, {0x68, 0x11, 0x62, 0x5b, 0x14, 0x4d, 0x5e, 0x67}, {0x68, 0x51, 0x62, 0x5b, 0x14, 0x6d, 0x5e, 0x67}, {0x68, 0x51, 0x62, 0x5b, 0x14, 0x6d, 0x5e, 0x67}, {0x68, 0x51, 0x62, 0x5b, 0x54, 0x6d, 0x5e, 0x67}, {0x68, 0x51, 0x62, 0x5b, 0x54, 0x6d, 0x5e, 0x67}, {0x68, 0x51, 0x62, 0x5b, 0x54, 0x6d, 0x5e, 0x67}, {0x68, 0x51, 0x42, 0x5b, 0x54, 0x6d, 0x5e, 0x47}, {0x68, 0x51, 0x42, 0x5b, 0x54, 0x6d, 0x5e, 0x47}, {0x68, 0x51, 0x42, 0x5b, 0x54, 0x6d, 0x5e, 0x47}, {0x68, 0x51, 0x42, 0x0b, 0x54, 0x6d, 0x0e, 0x47}, {0x68, 0x51, 0x42, 0x0b, 0x54, 0x6d, 0x0e, 0x47} }, { {0x60, 0x59, 0x02, 0x4b, 0x5c, 0x65, 0x4e, 0x07}, {0x60, 0x59, 0x52, 0x6b, 0x5c, 0x65, 0x4e, 0x07}, {0x60, 0x59, 0x52, 0x6b, 0x5c, 0x65, 0x4e, 0x07}, {0x60, 0x59, 0x52, 0x6b, 0x5c, 0x65, 0x4e, 0x07}, {0x60, 0x59, 0x52, 0x6b, 0x5c, 0x65, 0x4e, 0x07}, {0x60, 0x59, 0x52, 0x6b, 0x5c, 0x65, 0x6e, 0x57}, {0x60, 0x59, 0x52, 0x6b, 0x5c, 0x65, 0x6e, 0x57}, {0x60, 0x59, 0x52, 0x6b, 0x5c, 0x65, 0x6e, 0x57}, {0x20, 0x59, 0x52, 0x6b, 0x5c, 0x65, 0x6e, 0x57}, {0x20, 0x59, 0x52, 0x6b, 0x5c, 0x45, 0x6e, 0x57}, {0x20, 0x19, 0x52, 0x6b, 0x5c, 0x45, 0x6e, 0x57}, {0x20, 0x19, 0x52, 0x6b, 0x5c, 0x45, 0x6e, 0x57}, {0x20, 0x19, 0x72, 0x6b, 0x1c, 0x45, 0x6e, 0x57}, {0x20, 0x19, 0x72, 0x6b, 0x1c, 0x45, 0x6e, 0x57}, {0x20, 0x19, 0x72, 0x7b, 0x1c, 0x45, 0x6e, 0x77}, {0x20, 0x19, 0x72, 0x7b, 0x1c, 0x45, 0x6e, 0x77}, {0x28, 0x19, 0x72, 0x7b, 0x1c, 0x45, 0x7e, 0x77}, {0x28, 0x19, 0x72, 0x7b, 0x1c, 0x45, 0x7e, 0x77}, {0x28, 0x11, 0x72, 0x7b, 0x1c, 0x4d, 0x7e, 0x77}, {0x28, 0x11, 0x72, 0x7b, 0x1c, 0x4d, 0x7e, 0x77}, {0x28, 0x11, 0x62, 0x7b, 0x14, 0x4d, 0x7e, 0x77}, {0x28, 0x11, 0x62, 0x7b, 0x14, 0x4d, 0x7e, 0x77}, {0x28, 0x11, 0x62, 0x5b, 0x14, 0x4d, 0x7e, 0x67}, {0x28, 0x11, 0x62, 0x5b, 0x14, 0x4d, 0x7e, 0x67}, {0x68, 0x11, 0x62, 0x5b, 0x14, 0x4d, 0x5e, 0x67}, {0x68, 0x11, 0x62, 0x5b, 0x14, 0x4d, 0x5e, 0x67}, {0x68, 0x51, 0x62, 0x5b, 0x14, 0x4d, 0x5e, 0x67}, {0x68, 0x51, 0x62, 0x5b, 0x14, 0x6d, 0x5e, 0x67}, {0x68, 0x51, 0x62, 0x5b, 0x54, 0x6d, 0x5e, 0x67}, {0x68, 0x51, 0x62, 0x5b, 0x54, 0x6d, 0x5e, 0x67}, {0x68, 0x51, 0x62, 0x5b, 0x54, 0x6d, 0x5e, 0x67}, {0x68, 0x51, 0x62, 0x5b, 0x54, 0x6d, 0x5e, 0x67}, {0x68, 0x51, 0x42, 0x5b, 0x54, 0x6d, 0x5e, 0x47}, {0x68, 0x51, 0x42, 0x5b, 0x54, 0x6d, 0x5e, 0x47}, {0x68, 0x51, 0x42, 0x5b, 0x54, 0x6d, 0x5e, 0x47}, {0x68, 0x51, 0x42, 0x0b, 0x54, 0x6d, 0x0e, 0x47} }, { {0x60, 0x59, 0x52, 0x6b, 0x5c, 0x65, 0x4e, 0x07}, {0x60, 0x59, 0x52, 0x6b, 0x5c, 0x65, 0x4e, 0x07}, {0x60, 0x59, 0x52, 0x6b, 0x5c, 0x65, 0x4e, 0x07}, {0x60, 0x59, 0x52, 0x6b, 0x5c, 0x65, 0x4e, 0x07}, {0x60, 0x59, 0x52, 0x6b, 0x5c, 0x65, 0x6e, 0x57}, {0x60, 0x59, 0x52, 0x6b, 0x5c, 0x65, 0x6e, 0x57}, {0x60, 0x59, 0x52, 0x6b, 0x5c, 0x65, 0x6e, 0x57}, {0x60, 0x59, 0x52, 0x6b, 0x5c, 0x65, 0x6e, 0x57}, {0x40, 0x59, 0x52, 0x6b, 0x5c, 0x45, 0x6e, 0x57}, {0x40, 0x59, 0x52, 0x6b, 0x5c, 0x45, 0x6e, 0x57}, {0x40, 0x19, 0x52, 0x6b, 0x5c, 0x45, 0x6e, 0x57}, {0x40, 0x19, 0x52, 0x6b, 0x5c, 0x45, 0x6e, 0x57}, {0x40, 0x19, 0x72, 0x6b, 0x0c, 0x45, 0x6e, 0x57}, {0x40, 0x19, 0x72, 0x6b, 0x0c, 0x45, 0x6e, 0x57}, {0x40, 0x19, 0x72, 0x7b, 0x0c, 0x45, 0x6e, 0x77}, {0x40, 0x19, 0x72, 0x7b, 0x0c, 0x45, 0x6e, 0x77}, {0x48, 0x19, 0x72, 0x7b, 0x0c, 0x45, 0x7e, 0x77}, {0x48, 0x19, 0x72, 0x7b, 0x0c, 0x45, 0x7e, 0x77}, {0x48, 0x11, 0x72, 0x7b, 0x0c, 0x4d, 0x7e, 0x77}, {0x48, 0x11, 0x72, 0x7b, 0x0c, 0x4d, 0x7e, 0x77}, {0x48, 0x11, 0x62, 0x7b, 0x04, 0x4d, 0x7e, 0x77}, {0x48, 0x11, 0x62, 0x7b, 0x04, 0x4d, 0x7e, 0x77}, {0x48, 0x11, 0x62, 0x5b, 0x04, 0x4d, 0x7e, 0x67}, {0x48, 0x11, 0x62, 0x5b, 0x04, 0x4d, 0x7e, 0x67}, {0x68, 0x11, 0x62, 0x5b, 0x04, 0x4d, 0x5e, 0x67}, {0x68, 0x11, 0x62, 0x5b, 0x04, 0x4d, 0x5e, 0x67}, {0x68, 0x51, 0x62, 0x5b, 0x04, 0x4d, 0x5e, 0x67}, {0x68, 0x51, 0x62, 0x5b, 0x04, 0x4d, 0x5e, 0x67}, {0x68, 0x51, 0x62, 0x5b, 0x54, 0x6d, 0x5e, 0x67}, {0x68, 0x51, 0x62, 0x5b, 0x54, 0x6d, 0x5e, 0x67}, {0x68, 0x51, 0x62, 0x5b, 0x54, 0x6d, 0x5e, 0x67}, {0x68, 0x51, 0x62, 0x5b, 0x54, 0x6d, 0x5e, 0x67}, {0x68, 0x51, 0x62, 0x5b, 0x54, 0x6d, 0x5e, 0x67}, {0x68, 0x51, 0x42, 0x5b, 0x54, 0x6d, 0x5e, 0x47}, {0x68, 0x51, 0x42, 0x5b, 0x54, 0x6d, 0x5e, 0x47}, {0x68, 0x51, 0x42, 0x5b, 0x54, 0x6d, 0x5e, 0x47} }, { {0x60, 0x59, 0x52, 0x6b, 0x5c, 0x65, 0x4e, 0x07}, {0x60, 0x59, 0x52, 0x6b, 0x5c, 0x65, 0x4e, 0x07}, {0x60, 0x59, 0x52, 0x6b, 0x5c, 0x65, 0x4e, 0x07}, {0x60, 0x59, 0x52, 0x6b, 0x5c, 0x65, 0x6e, 0x57}, {0x60, 0x59, 0x52, 0x6b, 0x5c, 0x65, 0x6e, 0x57}, {0x60, 0x59, 0x52, 0x6b, 0x5c, 0x65, 0x6e, 0x57}, {0x60, 0x59, 0x52, 0x6b, 0x5c, 0x65, 0x6e, 0x57}, {0x40, 0x59, 0x52, 0x6b, 0x5c, 0x45, 0x6e, 0x57}, {0x40, 0x59, 0x52, 0x6b, 0x5c, 0x45, 0x6e, 0x57}, {0x40, 0x59, 0x52, 0x6b, 0x5c, 0x45, 0x6e, 0x57}, {0x40, 0x19, 0x52, 0x6b, 0x5c, 0x45, 0x6e, 0x57}, {0x40, 0x19, 0x52, 0x6b, 0x0c, 0x45, 0x6e, 0x57}, {0x40, 0x19, 0x72, 0x6b, 0x0c, 0x45, 0x6e, 0x57}, {0x40, 0x19, 0x72, 0x6b, 0x0c, 0x45, 0x6e, 0x57}, {0x40, 0x19, 0x72, 0x7b, 0x0c, 0x45, 0x6e, 0x77}, {0x40, 0x19, 0x72, 0x7b, 0x0c, 0x45, 0x6e, 0x77}, {0x48, 0x19, 0x72, 0x7b, 0x0c, 0x45, 0x7e, 0x77}, {0x48, 0x19, 0x72, 0x7b, 0x0c, 0x45, 0x7e, 0x77}, {0x48, 0x11, 0x72, 0x7b, 0x0c, 0x4d, 0x7e, 0x77}, {0x48, 0x11, 0x72, 0x7b, 0x0c, 0x4d, 0x7e, 0x77}, {0x48, 0x11, 0x62, 0x7b, 0x04, 0x4d, 0x7e, 0x77}, {0x48, 0x11, 0x62, 0x7b, 0x04, 0x4d, 0x7e, 0x77}, {0x48, 0x11, 0x62, 0x5b, 0x04, 0x4d, 0x7e, 0x67}, {0x48, 0x11, 0x62, 0x5b, 0x04, 0x4d, 0x7e, 0x67}, {0x48, 0x11, 0x62, 0x5b, 0x04, 0x4d, 0x5e, 0x67}, {0x68, 0x11, 0x62, 0x5b, 0x04, 0x4d, 0x5e, 0x67}, {0x68, 0x51, 0x62, 0x5b, 0x04, 0x4d, 0x5e, 0x67}, {0x68, 0x51, 0x62, 0x5b, 0x04, 0x4d, 0x5e, 0x67}, {0x68, 0x51, 0x62, 0x5b, 0x04, 0x4d, 0x5e, 0x67}, {0x68, 0x51, 0x62, 0x5b, 0x54, 0x6d, 0x5e, 0x67}, {0x68, 0x51, 0x62, 0x5b, 0x54, 0x6d, 0x5e, 0x67}, {0x68, 0x51, 0x62, 0x5b, 0x54, 0x6d, 0x5e, 0x67}, {0x68, 0x51, 0x62, 0x5b, 0x54, 0x6d, 0x5e, 0x67}, {0x68, 0x51, 0x62, 0x5b, 0x54, 0x6d, 0x5e, 0x67}, {0x68, 0x51, 0x42, 0x5b, 0x54, 0x6d, 0x5e, 0x47}, {0x68, 0x51, 0x42, 0x5b, 0x54, 0x6d, 0x5e, 0x47} }, { {0x60, 0x59, 0x52, 0x6b, 0x5c, 0x65, 0x4e, 0x07}, {0x60, 0x59, 0x52, 0x6b, 0x5c, 0x65, 0x4e, 0x07}, {0x60, 0x59, 0x52, 0x6b, 0x5c, 0x65, 0x6e, 0x57}, {0x60, 0x59, 0x52, 0x6b, 0x5c, 0x65, 0x6e, 0x57}, {0x60, 0x59, 0x52, 0x6b, 0x5c, 0x65, 0x6e, 0x57}, {0x60, 0x59, 0x52, 0x6b, 0x5c, 0x65, 0x6e, 0x57}, {0x40, 0x59, 0x52, 0x6b, 0x5c, 0x45, 0x6e, 0x57}, {0x40, 0x59, 0x52, 0x6b, 0x5c, 0x45, 0x6e, 0x57}, {0x40, 0x59, 0x52, 0x6b, 0x5c, 0x45, 0x6e, 0x57}, {0x40, 0x59, 0x52, 0x6b, 0x5c, 0x45, 0x6e, 0x57}, {0x40, 0x09, 0x52, 0x6b, 0x0c, 0x45, 0x6e, 0x57}, {0x40, 0x09, 0x52, 0x6b, 0x0c, 0x45, 0x6e, 0x57}, {0x40, 0x09, 0x72, 0x6b, 0x0c, 0x45, 0x6e, 0x57}, {0x40, 0x09, 0x72, 0x6b, 0x0c, 0x45, 0x6e, 0x57}, {0x40, 0x09, 0x72, 0x7b, 0x0c, 0x45, 0x6e, 0x77}, {0x40, 0x09, 0x72, 0x7b, 0x0c, 0x45, 0x6e, 0x77}, {0x48, 0x09, 0x72, 0x7b, 0x0c, 0x45, 0x7e, 0x77}, {0x48, 0x09, 0x72, 0x7b, 0x0c, 0x45, 0x7e, 0x77}, {0x48, 0x01, 0x72, 0x7b, 0x0c, 0x4d, 0x7e, 0x77}, {0x48, 0x01, 0x72, 0x7b, 0x0c, 0x4d, 0x7e, 0x77}, {0x48, 0x01, 0x62, 0x7b, 0x04, 0x4d, 0x7e, 0x77}, {0x48, 0x01, 0x62, 0x7b, 0x04, 0x4d, 0x7e, 0x77}, {0x48, 0x01, 0x62, 0x5b, 0x04, 0x4d, 0x7e, 0x67}, {0x48, 0x01, 0x62, 0x5b, 0x04, 0x4d, 0x7e, 0x67}, {0x48, 0x01, 0x62, 0x5b, 0x04, 0x4d, 0x5e, 0x67}, {0x48, 0x01, 0x62, 0x5b, 0x04, 0x4d, 0x5e, 0x67}, {0x68, 0x51, 0x62, 0x5b, 0x04, 0x4d, 0x5e, 0x67}, {0x68, 0x51, 0x62, 0x5b, 0x04, 0x4d, 0x5e, 0x67}, {0x68, 0x51, 0x62, 0x5b, 0x04, 0x4d, 0x5e, 0x67}, {0x68, 0x51, 0x62, 0x5b, 0x04, 0x4d, 0x5e, 0x67}, {0x68, 0x51, 0x62, 0x5b, 0x54, 0x6d, 0x5e, 0x67}, {0x68, 0x51, 0x62, 0x5b, 0x54, 0x6d, 0x5e, 0x67}, {0x68, 0x51, 0x62, 0x5b, 0x54, 0x6d, 0x5e, 0x67}, {0x68, 0x51, 0x62, 0x5b, 0x54, 0x6d, 0x5e, 0x67}, {0x68, 0x51, 0x42, 0x5b, 0x54, 0x6d, 0x5e, 0x47}, {0x68, 0x51, 0x42, 0x5b, 0x54, 0x6d, 0x5e, 0x47} }, { {0x60, 0x59, 0x52, 0x6b, 0x5c, 0x65, 0x4e, 0x07}, {0x60, 0x59, 0x52, 0x6b, 0x5c, 0x65, 0x6e, 0x57}, {0x60, 0x59, 0x52, 0x6b, 0x5c, 0x65, 0x6e, 0x57}, {0x60, 0x59, 0x52, 0x6b, 0x5c, 0x65, 0x6e, 0x57}, {0x60, 0x59, 0x52, 0x6b, 0x5c, 0x65, 0x6e, 0x57}, {0x40, 0x59, 0x52, 0x6b, 0x5c, 0x45, 0x6e, 0x57}, {0x40, 0x59, 0x52, 0x6b, 0x5c, 0x45, 0x6e, 0x57}, {0x40, 0x59, 0x52, 0x6b, 0x5c, 0x45, 0x6e, 0x57}, {0x40, 0x59, 0x52, 0x6b, 0x5c, 0x45, 0x6e, 0x57}, {0x40, 0x09, 0x52, 0x6b, 0x0c, 0x45, 0x6e, 0x57}, {0x40, 0x09, 0x52, 0x6b, 0x0c, 0x45, 0x6e, 0x57}, {0x40, 0x09, 0x52, 0x6b, 0x0c, 0x45, 0x6e, 0x57}, {0x40, 0x09, 0x72, 0x6b, 0x0c, 0x45, 0x6e, 0x57}, {0x40, 0x09, 0x72, 0x6b, 0x0c, 0x45, 0x6e, 0x57}, {0x40, 0x09, 0x72, 0x7b, 0x0c, 0x45, 0x6e, 0x77}, {0x40, 0x09, 0x72, 0x7b, 0x0c, 0x45, 0x6e, 0x77}, {0x48, 0x09, 0x72, 0x7b, 0x0c, 0x45, 0x7e, 0x77}, {0x48, 0x09, 0x72, 0x7b, 0x0c, 0x45, 0x7e, 0x77}, {0x48, 0x01, 0x72, 0x7b, 0x0c, 0x4d, 0x7e, 0x77}, {0x48, 0x01, 0x72, 0x7b, 0x0c, 0x4d, 0x7e, 0x77}, {0x48, 0x01, 0x62, 0x7b, 0x04, 0x4d, 0x7e, 0x77}, {0x48, 0x01, 0x62, 0x7b, 0x04, 0x4d, 0x7e, 0x77}, {0x48, 0x01, 0x62, 0x5b, 0x04, 0x4d, 0x7e, 0x67}, {0x48, 0x01, 0x62, 0x5b, 0x04, 0x4d, 0x7e, 0x67}, {0x48, 0x01, 0x62, 0x5b, 0x04, 0x4d, 0x5e, 0x67}, {0x48, 0x01, 0x62, 0x5b, 0x04, 0x4d, 0x5e, 0x67}, {0x48, 0x01, 0x62, 0x5b, 0x04, 0x4d, 0x5e, 0x67}, {0x68, 0x51, 0x62, 0x5b, 0x04, 0x4d, 0x5e, 0x67}, {0x68, 0x51, 0x62, 0x5b, 0x04, 0x4d, 0x5e, 0x67}, {0x68, 0x51, 0x62, 0x5b, 0x04, 0x4d, 0x5e, 0x67}, {0x68, 0x51, 0x62, 0x5b, 0x04, 0x4d, 0x5e, 0x67}, {0x68, 0x51, 0x62, 0x5b, 0x54, 0x6d, 0x5e, 0x67}, {0x68, 0x51, 0x62, 0x5b, 0x54, 0x6d, 0x5e, 0x67}, {0x68, 0x51, 0x62, 0x5b, 0x54, 0x6d, 0x5e, 0x67}, {0x68, 0x51, 0x62, 0x5b, 0x54, 0x6d, 0x5e, 0x67}, {0x68, 0x51, 0x42, 0x5b, 0x54, 0x6d, 0x5e, 0x47} }, { {0x60, 0x59, 0x52, 0x6b, 0x5c, 0x65, 0x6e, 0x57}, {0x60, 0x59, 0x52, 0x6b, 0x5c, 0x65, 0x6e, 0x57}, {0x60, 0x59, 0x52, 0x6b, 0x5c, 0x65, 0x6e, 0x57}, {0x60, 0x59, 0x52, 0x6b, 0x5c, 0x65, 0x6e, 0x57}, {0x40, 0x59, 0x52, 0x6b, 0x5c, 0x45, 0x6e, 0x57}, {0x40, 0x59, 0x52, 0x6b, 0x5c, 0x45, 0x6e, 0x57}, {0x40, 0x59, 0x52, 0x6b, 0x5c, 0x45, 0x6e, 0x57}, {0x40, 0x59, 0x52, 0x6b, 0x5c, 0x45, 0x6e, 0x57}, {0x40, 0x09, 0x52, 0x6b, 0x0c, 0x45, 0x6e, 0x57}, {0x40, 0x09, 0x52, 0x6b, 0x0c, 0x45, 0x6e, 0x57}, {0x40, 0x09, 0x52, 0x6b, 0x0c, 0x45, 0x6e, 0x57}, {0x40, 0x09, 0x52, 0x6b, 0x0c, 0x45, 0x6e, 0x57}, {0x40, 0x09, 0x72, 0x6b, 0x0c, 0x45, 0x6e, 0x57}, {0x40, 0x09, 0x72, 0x6b, 0x0c, 0x45, 0x6e, 0x57}, {0x40, 0x09, 0x72, 0x7b, 0x0c, 0x45, 0x6e, 0x77}, {0x40, 0x09, 0x72, 0x7b, 0x0c, 0x45, 0x6e, 0x77}, {0x48, 0x09, 0x72, 0x7b, 0x0c, 0x45, 0x7e, 0x77}, {0x48, 0x09, 0x72, 0x7b, 0x0c, 0x45, 0x7e, 0x77}, {0x48, 0x01, 0x72, 0x7b, 0x0c, 0x4d, 0x7e, 0x77}, {0x48, 0x01, 0x72, 0x7b, 0x0c, 0x4d, 0x7e, 0x77}, {0x48, 0x01, 0x62, 0x7b, 0x04, 0x4d, 0x7e, 0x77}, {0x48, 0x01, 0x62, 0x7b, 0x04, 0x4d, 0x7e, 0x77}, {0x48, 0x01, 0x62, 0x5b, 0x04, 0x4d, 0x7e, 0x67}, {0x48, 0x01, 0x62, 0x5b, 0x04, 0x4d, 0x7e, 0x67}, {0x48, 0x01, 0x62, 0x5b, 0x04, 0x4d, 0x5e, 0x67}, {0x48, 0x01, 0x62, 0x5b, 0x04, 0x4d, 0x5e, 0x67}, {0x48, 0x01, 0x62, 0x5b, 0x04, 0x4d, 0x5e, 0x67}, {0x48, 0x01, 0x62, 0x5b, 0x04, 0x4d, 0x5e, 0x67}, {0x48, 0x01, 0x62, 0x5b, 0x04, 0x4d, 0x5e, 0x67}, {0x68, 0x51, 0x62, 0x5b, 0x04, 0x4d, 0x5e, 0x67}, {0x68, 0x51, 0x62, 0x5b, 0x04, 0x4d, 0x5e, 0x67}, {0x68, 0x51, 0x62, 0x5b, 0x04, 0x4d, 0x5e, 0x67}, {0x68, 0x51, 0x62, 0x5b, 0x04, 0x4d, 0x5e, 0x67}, {0x68, 0x51, 0x62, 0x5b, 0x54, 0x6d, 0x5e, 0x67}, {0x68, 0x51, 0x62, 0x5b, 0x54, 0x6d, 0x5e, 0x67}, {0x68, 0x51, 0x62, 0x5b, 0x54, 0x6d, 0x5e, 0x67} }, { {0x60, 0x59, 0x52, 0x6b, 0x5c, 0x65, 0x6e, 0x57}, {0x60, 0x59, 0x52, 0x6b, 0x5c, 0x65, 0x6e, 0x57}, {0x60, 0x59, 0x52, 0x6b, 0x5c, 0x65, 0x6e, 0x57}, {0x40, 0x59, 0x52, 0x6b, 0x5c, 0x45, 0x6e, 0x57}, {0x40, 0x59, 0x52, 0x6b, 0x5c, 0x45, 0x6e, 0x57}, {0x40, 0x59, 0x52, 0x6b, 0x5c, 0x45, 0x6e, 0x57}, {0x40, 0x59, 0x52, 0x6b, 0x5c, 0x45, 0x6e, 0x57}, {0x40, 0x09, 0x52, 0x6b, 0x0c, 0x45, 0x6e, 0x57}, {0x40, 0x09, 0x52, 0x6b, 0x0c, 0x45, 0x6e, 0x57}, {0x40, 0x09, 0x52, 0x6b, 0x0c, 0x45, 0x6e, 0x57}, {0x40, 0x09, 0x52, 0x6b, 0x0c, 0x45, 0x6e, 0x57}, {0x40, 0x09, 0x52, 0x6b, 0x0c, 0x45, 0x6e, 0x57}, {0x40, 0x09, 0x72, 0x6b, 0x0c, 0x45, 0x6e, 0x57}, {0x40, 0x09, 0x72, 0x6b, 0x0c, 0x45, 0x6e, 0x57}, {0x40, 0x09, 0x72, 0x7b, 0x0c, 0x45, 0x6e, 0x77}, {0x40, 0x09, 0x72, 0x7b, 0x0c, 0x45, 0x6e, 0x77}, {0x48, 0x09, 0x72, 0x7b, 0x0c, 0x45, 0x7e, 0x77}, {0x48, 0x09, 0x72, 0x7b, 0x0c, 0x45, 0x7e, 0x77}, {0x48, 0x01, 0x72, 0x7b, 0x0c, 0x4d, 0x7e, 0x77}, {0x48, 0x01, 0x72, 0x7b, 0x0c, 0x4d, 0x7e, 0x77}, {0x48, 0x01, 0x62, 0x7b, 0x04, 0x4d, 0x7e, 0x77}, {0x48, 0x01, 0x62, 0x7b, 0x04, 0x4d, 0x7e, 0x77}, {0x48, 0x01, 0x62, 0x5b, 0x04, 0x4d, 0x7e, 0x67}, {0x48, 0x01, 0x62, 0x5b, 0x04, 0x4d, 0x7e, 0x67}, {0x48, 0x01, 0x62, 0x5b, 0x04, 0x4d, 0x5e, 0x67}, {0x48, 0x01, 0x62, 0x5b, 0x04, 0x4d, 0x5e, 0x67}, {0x48, 0x01, 0x62, 0x5b, 0x04, 0x4d, 0x5e, 0x67}, {0x48, 0x01, 0x62, 0x5b, 0x04, 0x4d, 0x5e, 0x67}, {0x48, 0x01, 0x62, 0x5b, 0x04, 0x4d, 0x5e, 0x67}, {0x48, 0x01, 0x62, 0x5b, 0x04, 0x4d, 0x5e, 0x67}, {0x68, 0x51, 0x62, 0x5b, 0x04, 0x4d, 0x5e, 0x67}, {0x68, 0x51, 0x62, 0x5b, 0x04, 0x4d, 0x5e, 0x67}, {0x68, 0x51, 0x62, 0x5b, 0x04, 0x4d, 0x5e, 0x67}, {0x68, 0x51, 0x62, 0x5b, 0x04, 0x4d, 0x5e, 0x67}, {0x68, 0x51, 0x62, 0x5b, 0x54, 0x6d, 0x5e, 0x67}, {0x68, 0x51, 0x62, 0x5b, 0x54, 0x6d, 0x5e, 0x67} } }, { /* 12,000bps map */ { {0x38, 0x21, 0x32, 0x13, 0x24, 0x3d, 0x16, 0x37}, {0x38, 0x01, 0x32, 0x13, 0x24, 0x3d, 0x16, 0x37}, {0x38, 0x01, 0x32, 0x13, 0x24, 0x3d, 0x16, 0x37}, {0x38, 0x01, 0x32, 0x13, 0x24, 0x3d, 0x16, 0x37}, {0x38, 0x01, 0x32, 0x13, 0x24, 0x3d, 0x16, 0x37}, {0x38, 0x01, 0x32, 0x13, 0x04, 0x3d, 0x16, 0x37}, {0x38, 0x01, 0x32, 0x13, 0x04, 0x3d, 0x16, 0x37}, {0x38, 0x01, 0x32, 0x13, 0x04, 0x3d, 0x16, 0x37}, {0x38, 0x01, 0x32, 0x13, 0x04, 0x3d, 0x16, 0x37}, {0x38, 0x01, 0x32, 0x13, 0x04, 0x3d, 0x16, 0x37}, {0x38, 0x01, 0x32, 0x13, 0x04, 0x3d, 0x16, 0x37}, {0x38, 0x01, 0x32, 0x13, 0x04, 0x3d, 0x16, 0x37}, {0x38, 0x01, 0x22, 0x1b, 0x04, 0x3d, 0x16, 0x37}, {0x38, 0x01, 0x22, 0x1b, 0x04, 0x3d, 0x16, 0x37}, {0x38, 0x01, 0x22, 0x1b, 0x04, 0x3d, 0x16, 0x37}, {0x38, 0x01, 0x22, 0x1b, 0x04, 0x3d, 0x16, 0x37}, {0x38, 0x01, 0x22, 0x1b, 0x04, 0x3d, 0x1e, 0x27}, {0x38, 0x01, 0x22, 0x1b, 0x04, 0x3d, 0x1e, 0x27}, {0x38, 0x01, 0x22, 0x1b, 0x04, 0x3d, 0x1e, 0x27}, {0x38, 0x01, 0x22, 0x1b, 0x04, 0x3d, 0x1e, 0x27}, {0x30, 0x01, 0x22, 0x1b, 0x04, 0x35, 0x1e, 0x27}, {0x30, 0x01, 0x22, 0x1b, 0x04, 0x35, 0x1e, 0x27}, {0x30, 0x01, 0x22, 0x1b, 0x04, 0x35, 0x1e, 0x27}, {0x30, 0x01, 0x22, 0x1b, 0x04, 0x35, 0x1e, 0x27}, {0x30, 0x11, 0x22, 0x1b, 0x14, 0x35, 0x1e, 0x27}, {0x30, 0x11, 0x22, 0x1b, 0x14, 0x35, 0x1e, 0x27}, {0x30, 0x11, 0x22, 0x1b, 0x14, 0x35, 0x1e, 0x27}, {0x30, 0x11, 0x22, 0x1b, 0x14, 0x35, 0x1e, 0x27}, {0x30, 0x11, 0x22, 0x1b, 0x14, 0x35, 0x1e, 0x27}, {0x30, 0x11, 0x22, 0x1b, 0x14, 0x35, 0x1e, 0x27}, {0x30, 0x11, 0x22, 0x1b, 0x14, 0x35, 0x1e, 0x27}, {0x30, 0x11, 0x22, 0x1b, 0x14, 0x35, 0x1e, 0x27}, {0x30, 0x11, 0x22, 0x3b, 0x14, 0x35, 0x1e, 0x27}, {0x30, 0x11, 0x22, 0x3b, 0x14, 0x35, 0x1e, 0x27}, {0x30, 0x11, 0x22, 0x3b, 0x14, 0x35, 0x1e, 0x27}, {0x30, 0x11, 0x22, 0x3b, 0x14, 0x35, 0x1e, 0x27} }, { {0x38, 0x21, 0x32, 0x13, 0x24, 0x1d, 0x16, 0x37}, {0x38, 0x21, 0x32, 0x13, 0x24, 0x3d, 0x16, 0x37}, {0x38, 0x01, 0x32, 0x13, 0x24, 0x3d, 0x16, 0x37}, {0x38, 0x01, 0x32, 0x13, 0x24, 0x3d, 0x16, 0x37}, {0x38, 0x01, 0x32, 0x13, 0x24, 0x3d, 0x16, 0x37}, {0x38, 0x01, 0x32, 0x13, 0x24, 0x3d, 0x16, 0x37}, {0x38, 0x01, 0x32, 0x13, 0x04, 0x3d, 0x16, 0x37}, {0x38, 0x01, 0x32, 0x13, 0x04, 0x3d, 0x16, 0x37}, {0x38, 0x01, 0x32, 0x13, 0x04, 0x3d, 0x16, 0x37}, {0x38, 0x01, 0x32, 0x13, 0x04, 0x3d, 0x16, 0x37}, {0x38, 0x01, 0x32, 0x13, 0x04, 0x3d, 0x16, 0x37}, {0x38, 0x01, 0x32, 0x13, 0x04, 0x3d, 0x16, 0x37}, {0x38, 0x01, 0x22, 0x1b, 0x04, 0x3d, 0x16, 0x37}, {0x38, 0x01, 0x22, 0x1b, 0x04, 0x3d, 0x16, 0x37}, {0x38, 0x01, 0x22, 0x1b, 0x04, 0x3d, 0x16, 0x37}, {0x38, 0x01, 0x22, 0x1b, 0x04, 0x3d, 0x16, 0x37}, {0x38, 0x01, 0x22, 0x1b, 0x04, 0x3d, 0x1e, 0x27}, {0x38, 0x01, 0x22, 0x1b, 0x04, 0x3d, 0x1e, 0x27}, {0x38, 0x01, 0x22, 0x1b, 0x04, 0x3d, 0x1e, 0x27}, {0x38, 0x01, 0x22, 0x1b, 0x04, 0x3d, 0x1e, 0x27}, {0x30, 0x01, 0x22, 0x1b, 0x04, 0x35, 0x1e, 0x27}, {0x30, 0x01, 0x22, 0x1b, 0x04, 0x35, 0x1e, 0x27}, {0x30, 0x01, 0x22, 0x1b, 0x04, 0x35, 0x1e, 0x27}, {0x30, 0x01, 0x22, 0x1b, 0x04, 0x35, 0x1e, 0x27}, {0x30, 0x11, 0x22, 0x1b, 0x14, 0x35, 0x1e, 0x27}, {0x30, 0x11, 0x22, 0x1b, 0x14, 0x35, 0x1e, 0x27}, {0x30, 0x11, 0x22, 0x1b, 0x14, 0x35, 0x1e, 0x27}, {0x30, 0x11, 0x22, 0x1b, 0x14, 0x35, 0x1e, 0x27}, {0x30, 0x11, 0x22, 0x1b, 0x14, 0x35, 0x1e, 0x27}, {0x30, 0x11, 0x22, 0x1b, 0x14, 0x35, 0x1e, 0x27}, {0x30, 0x11, 0x22, 0x1b, 0x14, 0x35, 0x1e, 0x27}, {0x30, 0x11, 0x22, 0x3b, 0x14, 0x35, 0x1e, 0x27}, {0x30, 0x11, 0x22, 0x3b, 0x14, 0x35, 0x1e, 0x27}, {0x30, 0x11, 0x22, 0x3b, 0x14, 0x35, 0x1e, 0x27}, {0x30, 0x11, 0x22, 0x3b, 0x14, 0x35, 0x1e, 0x27}, {0x30, 0x11, 0x02, 0x3b, 0x14, 0x35, 0x3e, 0x27} }, { {0x38, 0x21, 0x32, 0x13, 0x24, 0x1d, 0x16, 0x37}, {0x38, 0x21, 0x32, 0x13, 0x24, 0x1d, 0x16, 0x37}, {0x38, 0x21, 0x32, 0x13, 0x24, 0x3d, 0x16, 0x37}, {0x38, 0x01, 0x32, 0x13, 0x24, 0x3d, 0x16, 0x37}, {0x38, 0x01, 0x32, 0x13, 0x24, 0x3d, 0x16, 0x37}, {0x38, 0x01, 0x32, 0x13, 0x24, 0x3d, 0x16, 0x37}, {0x38, 0x01, 0x32, 0x13, 0x24, 0x3d, 0x16, 0x37}, {0x38, 0x01, 0x32, 0x13, 0x04, 0x3d, 0x16, 0x37}, {0x38, 0x01, 0x32, 0x13, 0x04, 0x3d, 0x16, 0x37}, {0x38, 0x01, 0x32, 0x13, 0x04, 0x3d, 0x16, 0x37}, {0x38, 0x01, 0x32, 0x13, 0x04, 0x3d, 0x16, 0x37}, {0x38, 0x01, 0x32, 0x13, 0x04, 0x3d, 0x16, 0x37}, {0x38, 0x01, 0x22, 0x1b, 0x04, 0x3d, 0x16, 0x37}, {0x38, 0x01, 0x22, 0x1b, 0x04, 0x3d, 0x16, 0x37}, {0x38, 0x01, 0x22, 0x1b, 0x04, 0x3d, 0x16, 0x37}, {0x38, 0x01, 0x22, 0x1b, 0x04, 0x3d, 0x16, 0x37}, {0x38, 0x01, 0x22, 0x1b, 0x04, 0x3d, 0x1e, 0x27}, {0x38, 0x01, 0x22, 0x1b, 0x04, 0x3d, 0x1e, 0x27}, {0x38, 0x01, 0x22, 0x1b, 0x04, 0x3d, 0x1e, 0x27}, {0x38, 0x01, 0x22, 0x1b, 0x04, 0x3d, 0x1e, 0x27}, {0x30, 0x01, 0x22, 0x1b, 0x04, 0x35, 0x1e, 0x27}, {0x30, 0x01, 0x22, 0x1b, 0x04, 0x35, 0x1e, 0x27}, {0x30, 0x01, 0x22, 0x1b, 0x04, 0x35, 0x1e, 0x27}, {0x30, 0x01, 0x22, 0x1b, 0x04, 0x35, 0x1e, 0x27}, {0x30, 0x11, 0x22, 0x1b, 0x14, 0x35, 0x1e, 0x27}, {0x30, 0x11, 0x22, 0x1b, 0x14, 0x35, 0x1e, 0x27}, {0x30, 0x11, 0x22, 0x1b, 0x14, 0x35, 0x1e, 0x27}, {0x30, 0x11, 0x22, 0x1b, 0x14, 0x35, 0x1e, 0x27}, {0x30, 0x11, 0x22, 0x1b, 0x14, 0x35, 0x1e, 0x27}, {0x30, 0x11, 0x22, 0x1b, 0x14, 0x35, 0x1e, 0x27}, {0x30, 0x11, 0x22, 0x3b, 0x14, 0x35, 0x1e, 0x27}, {0x30, 0x11, 0x22, 0x3b, 0x14, 0x35, 0x1e, 0x27}, {0x30, 0x11, 0x22, 0x3b, 0x14, 0x35, 0x1e, 0x27}, {0x30, 0x11, 0x22, 0x3b, 0x14, 0x35, 0x1e, 0x27}, {0x30, 0x11, 0x02, 0x3b, 0x14, 0x35, 0x3e, 0x27}, {0x30, 0x11, 0x02, 0x3b, 0x14, 0x35, 0x3e, 0x27} }, { {0x38, 0x21, 0x32, 0x13, 0x24, 0x1d, 0x16, 0x37}, {0x38, 0x21, 0x32, 0x13, 0x24, 0x1d, 0x16, 0x37}, {0x38, 0x21, 0x32, 0x13, 0x24, 0x1d, 0x16, 0x37}, {0x38, 0x21, 0x32, 0x13, 0x24, 0x3d, 0x16, 0x37}, {0x38, 0x01, 0x32, 0x13, 0x24, 0x3d, 0x16, 0x37}, {0x38, 0x01, 0x32, 0x13, 0x24, 0x3d, 0x16, 0x37}, {0x38, 0x01, 0x32, 0x13, 0x24, 0x3d, 0x16, 0x37}, {0x38, 0x01, 0x32, 0x13, 0x24, 0x3d, 0x16, 0x37}, {0x38, 0x01, 0x32, 0x13, 0x04, 0x3d, 0x16, 0x37}, {0x38, 0x01, 0x32, 0x13, 0x04, 0x3d, 0x16, 0x37}, {0x38, 0x01, 0x32, 0x13, 0x04, 0x3d, 0x16, 0x37}, {0x38, 0x01, 0x32, 0x13, 0x04, 0x3d, 0x16, 0x37}, {0x38, 0x01, 0x22, 0x1b, 0x04, 0x3d, 0x16, 0x37}, {0x38, 0x01, 0x22, 0x1b, 0x04, 0x3d, 0x16, 0x37}, {0x38, 0x01, 0x22, 0x1b, 0x04, 0x3d, 0x16, 0x37}, {0x38, 0x01, 0x22, 0x1b, 0x04, 0x3d, 0x16, 0x37}, {0x38, 0x01, 0x22, 0x1b, 0x04, 0x3d, 0x1e, 0x27}, {0x38, 0x01, 0x22, 0x1b, 0x04, 0x3d, 0x1e, 0x27}, {0x38, 0x01, 0x22, 0x1b, 0x04, 0x3d, 0x1e, 0x27}, {0x38, 0x01, 0x22, 0x1b, 0x04, 0x3d, 0x1e, 0x27}, {0x30, 0x01, 0x22, 0x1b, 0x04, 0x35, 0x1e, 0x27}, {0x30, 0x01, 0x22, 0x1b, 0x04, 0x35, 0x1e, 0x27}, {0x30, 0x01, 0x22, 0x1b, 0x04, 0x35, 0x1e, 0x27}, {0x30, 0x01, 0x22, 0x1b, 0x04, 0x35, 0x1e, 0x27}, {0x30, 0x11, 0x22, 0x1b, 0x14, 0x35, 0x1e, 0x27}, {0x30, 0x11, 0x22, 0x1b, 0x14, 0x35, 0x1e, 0x27}, {0x30, 0x11, 0x22, 0x1b, 0x14, 0x35, 0x1e, 0x27}, {0x30, 0x11, 0x22, 0x1b, 0x14, 0x35, 0x1e, 0x27}, {0x30, 0x11, 0x22, 0x1b, 0x14, 0x35, 0x1e, 0x27}, {0x30, 0x11, 0x22, 0x3b, 0x14, 0x35, 0x1e, 0x27}, {0x30, 0x11, 0x22, 0x3b, 0x14, 0x35, 0x1e, 0x27}, {0x30, 0x11, 0x22, 0x3b, 0x14, 0x35, 0x1e, 0x27}, {0x30, 0x11, 0x22, 0x3b, 0x14, 0x35, 0x1e, 0x27}, {0x30, 0x11, 0x02, 0x3b, 0x14, 0x35, 0x3e, 0x27}, {0x30, 0x11, 0x02, 0x3b, 0x14, 0x35, 0x3e, 0x27}, {0x30, 0x11, 0x02, 0x3b, 0x14, 0x35, 0x3e, 0x27} }, { {0x38, 0x21, 0x32, 0x13, 0x24, 0x1d, 0x16, 0x37}, {0x38, 0x21, 0x32, 0x13, 0x24, 0x1d, 0x16, 0x37}, {0x38, 0x21, 0x32, 0x13, 0x24, 0x1d, 0x16, 0x37}, {0x38, 0x21, 0x32, 0x13, 0x24, 0x1d, 0x16, 0x37}, {0x38, 0x21, 0x32, 0x13, 0x24, 0x3d, 0x16, 0x37}, {0x38, 0x01, 0x32, 0x13, 0x24, 0x3d, 0x16, 0x37}, {0x38, 0x01, 0x32, 0x13, 0x24, 0x3d, 0x16, 0x37}, {0x38, 0x01, 0x32, 0x13, 0x24, 0x3d, 0x16, 0x37}, {0x38, 0x01, 0x32, 0x13, 0x24, 0x3d, 0x16, 0x37}, {0x38, 0x01, 0x32, 0x13, 0x04, 0x3d, 0x16, 0x37}, {0x38, 0x01, 0x32, 0x13, 0x04, 0x3d, 0x16, 0x37}, {0x38, 0x01, 0x32, 0x13, 0x04, 0x3d, 0x16, 0x37}, {0x38, 0x01, 0x22, 0x1b, 0x04, 0x3d, 0x16, 0x37}, {0x38, 0x01, 0x22, 0x1b, 0x04, 0x3d, 0x16, 0x37}, {0x38, 0x01, 0x22, 0x1b, 0x04, 0x3d, 0x16, 0x37}, {0x38, 0x01, 0x22, 0x1b, 0x04, 0x3d, 0x16, 0x37}, {0x38, 0x01, 0x22, 0x1b, 0x04, 0x3d, 0x1e, 0x27}, {0x38, 0x01, 0x22, 0x1b, 0x04, 0x3d, 0x1e, 0x27}, {0x38, 0x01, 0x22, 0x1b, 0x04, 0x3d, 0x1e, 0x27}, {0x38, 0x01, 0x22, 0x1b, 0x04, 0x3d, 0x1e, 0x27}, {0x30, 0x01, 0x22, 0x1b, 0x04, 0x35, 0x1e, 0x27}, {0x30, 0x01, 0x22, 0x1b, 0x04, 0x35, 0x1e, 0x27}, {0x30, 0x01, 0x22, 0x1b, 0x04, 0x35, 0x1e, 0x27}, {0x30, 0x01, 0x22, 0x1b, 0x04, 0x35, 0x1e, 0x27}, {0x30, 0x11, 0x22, 0x1b, 0x14, 0x35, 0x1e, 0x27}, {0x30, 0x11, 0x22, 0x1b, 0x14, 0x35, 0x1e, 0x27}, {0x30, 0x11, 0x22, 0x1b, 0x14, 0x35, 0x1e, 0x27}, {0x30, 0x11, 0x22, 0x1b, 0x14, 0x35, 0x1e, 0x27}, {0x30, 0x11, 0x22, 0x3b, 0x14, 0x35, 0x1e, 0x27}, {0x30, 0x11, 0x22, 0x3b, 0x14, 0x35, 0x1e, 0x27}, {0x30, 0x11, 0x22, 0x3b, 0x14, 0x35, 0x1e, 0x27}, {0x30, 0x11, 0x22, 0x3b, 0x14, 0x35, 0x1e, 0x27}, {0x30, 0x11, 0x02, 0x3b, 0x14, 0x35, 0x3e, 0x27}, {0x30, 0x11, 0x02, 0x3b, 0x14, 0x35, 0x3e, 0x27}, {0x30, 0x11, 0x02, 0x3b, 0x14, 0x35, 0x3e, 0x27}, {0x30, 0x11, 0x02, 0x3b, 0x14, 0x35, 0x3e, 0x27} }, { {0x18, 0x21, 0x32, 0x13, 0x24, 0x1d, 0x16, 0x37}, {0x38, 0x21, 0x32, 0x13, 0x24, 0x1d, 0x16, 0x37}, {0x38, 0x21, 0x32, 0x13, 0x24, 0x1d, 0x16, 0x37}, {0x38, 0x21, 0x32, 0x13, 0x24, 0x1d, 0x16, 0x37}, {0x38, 0x21, 0x32, 0x13, 0x24, 0x1d, 0x16, 0x37}, {0x38, 0x21, 0x32, 0x13, 0x24, 0x3d, 0x16, 0x37}, {0x38, 0x01, 0x32, 0x13, 0x24, 0x3d, 0x16, 0x37}, {0x38, 0x01, 0x32, 0x13, 0x24, 0x3d, 0x16, 0x37}, {0x38, 0x01, 0x32, 0x13, 0x24, 0x3d, 0x16, 0x37}, {0x38, 0x01, 0x32, 0x13, 0x24, 0x3d, 0x16, 0x37}, {0x38, 0x01, 0x32, 0x13, 0x04, 0x3d, 0x16, 0x37}, {0x38, 0x01, 0x32, 0x0b, 0x04, 0x3d, 0x16, 0x37}, {0x38, 0x01, 0x22, 0x0b, 0x04, 0x3d, 0x16, 0x37}, {0x38, 0x01, 0x22, 0x1b, 0x04, 0x3d, 0x16, 0x37}, {0x38, 0x01, 0x22, 0x1b, 0x04, 0x3d, 0x16, 0x37}, {0x38, 0x01, 0x22, 0x1b, 0x04, 0x3d, 0x0e, 0x37}, {0x38, 0x01, 0x22, 0x1b, 0x04, 0x3d, 0x0e, 0x27}, {0x38, 0x01, 0x22, 0x1b, 0x04, 0x3d, 0x1e, 0x27}, {0x38, 0x01, 0x22, 0x1b, 0x04, 0x3d, 0x1e, 0x27}, {0x38, 0x01, 0x22, 0x1b, 0x04, 0x2d, 0x1e, 0x27}, {0x30, 0x01, 0x22, 0x1b, 0x04, 0x2d, 0x1e, 0x27}, {0x30, 0x01, 0x22, 0x1b, 0x04, 0x35, 0x1e, 0x27}, {0x30, 0x01, 0x22, 0x1b, 0x04, 0x35, 0x1e, 0x27}, {0x30, 0x01, 0x22, 0x1b, 0x0c, 0x35, 0x1e, 0x27}, {0x30, 0x11, 0x22, 0x1b, 0x0c, 0x35, 0x1e, 0x27}, {0x30, 0x11, 0x22, 0x1b, 0x14, 0x35, 0x1e, 0x27}, {0x30, 0x11, 0x22, 0x1b, 0x14, 0x35, 0x1e, 0x27}, {0x30, 0x11, 0x22, 0x3b, 0x14, 0x35, 0x1e, 0x27}, {0x30, 0x11, 0x22, 0x3b, 0x14, 0x35, 0x1e, 0x27}, {0x30, 0x11, 0x22, 0x3b, 0x14, 0x35, 0x1e, 0x27}, {0x30, 0x11, 0x22, 0x3b, 0x14, 0x35, 0x1e, 0x27}, {0x30, 0x11, 0x02, 0x3b, 0x14, 0x35, 0x3e, 0x27}, {0x30, 0x11, 0x02, 0x3b, 0x14, 0x35, 0x3e, 0x27}, {0x30, 0x11, 0x02, 0x3b, 0x14, 0x35, 0x3e, 0x27}, {0x30, 0x11, 0x02, 0x3b, 0x14, 0x35, 0x3e, 0x27}, {0x30, 0x11, 0x02, 0x3b, 0x14, 0x35, 0x3e, 0x07} }, { {0x18, 0x21, 0x32, 0x13, 0x24, 0x1d, 0x16, 0x37}, {0x18, 0x21, 0x32, 0x13, 0x24, 0x1d, 0x16, 0x37}, {0x38, 0x21, 0x32, 0x13, 0x24, 0x1d, 0x16, 0x37}, {0x38, 0x21, 0x32, 0x13, 0x24, 0x1d, 0x16, 0x37}, {0x38, 0x21, 0x32, 0x13, 0x24, 0x1d, 0x16, 0x37}, {0x38, 0x21, 0x32, 0x13, 0x24, 0x1d, 0x16, 0x37}, {0x38, 0x21, 0x32, 0x13, 0x24, 0x3d, 0x16, 0x37}, {0x38, 0x01, 0x32, 0x13, 0x24, 0x3d, 0x16, 0x37}, {0x38, 0x01, 0x32, 0x13, 0x24, 0x3d, 0x16, 0x37}, {0x38, 0x01, 0x32, 0x13, 0x24, 0x3d, 0x16, 0x37}, {0x38, 0x01, 0x32, 0x0b, 0x24, 0x3d, 0x16, 0x37}, {0x38, 0x01, 0x32, 0x0b, 0x04, 0x3d, 0x16, 0x37}, {0x38, 0x01, 0x22, 0x0b, 0x04, 0x3d, 0x16, 0x37}, {0x38, 0x01, 0x22, 0x0b, 0x04, 0x3d, 0x16, 0x37}, {0x38, 0x01, 0x22, 0x1b, 0x04, 0x3d, 0x0e, 0x37}, {0x38, 0x01, 0x22, 0x1b, 0x04, 0x3d, 0x0e, 0x37}, {0x38, 0x01, 0x22, 0x1b, 0x04, 0x3d, 0x0e, 0x27}, {0x38, 0x01, 0x22, 0x1b, 0x04, 0x3d, 0x0e, 0x27}, {0x38, 0x01, 0x22, 0x1b, 0x04, 0x2d, 0x1e, 0x27}, {0x38, 0x01, 0x22, 0x1b, 0x04, 0x2d, 0x1e, 0x27}, {0x30, 0x01, 0x22, 0x1b, 0x04, 0x2d, 0x1e, 0x27}, {0x30, 0x01, 0x22, 0x1b, 0x04, 0x2d, 0x1e, 0x27}, {0x30, 0x01, 0x22, 0x1b, 0x0c, 0x35, 0x1e, 0x27}, {0x30, 0x01, 0x22, 0x1b, 0x0c, 0x35, 0x1e, 0x27}, {0x30, 0x11, 0x22, 0x1b, 0x0c, 0x35, 0x1e, 0x27}, {0x30, 0x11, 0x22, 0x1b, 0x0c, 0x35, 0x1e, 0x27}, {0x30, 0x11, 0x22, 0x3b, 0x14, 0x35, 0x1e, 0x27}, {0x30, 0x11, 0x22, 0x3b, 0x14, 0x35, 0x1e, 0x27}, {0x30, 0x11, 0x22, 0x3b, 0x14, 0x35, 0x1e, 0x27}, {0x30, 0x11, 0x22, 0x3b, 0x14, 0x35, 0x1e, 0x27}, {0x30, 0x11, 0x02, 0x3b, 0x14, 0x35, 0x3e, 0x27}, {0x30, 0x11, 0x02, 0x3b, 0x14, 0x35, 0x3e, 0x27}, {0x30, 0x11, 0x02, 0x3b, 0x14, 0x35, 0x3e, 0x27}, {0x30, 0x11, 0x02, 0x3b, 0x14, 0x35, 0x3e, 0x27}, {0x30, 0x11, 0x02, 0x3b, 0x14, 0x35, 0x3e, 0x07}, {0x30, 0x11, 0x02, 0x3b, 0x14, 0x35, 0x3e, 0x07} }, { {0x18, 0x21, 0x32, 0x13, 0x24, 0x1d, 0x16, 0x37}, {0x18, 0x21, 0x32, 0x13, 0x24, 0x1d, 0x16, 0x37}, {0x18, 0x21, 0x32, 0x13, 0x24, 0x1d, 0x16, 0x37}, {0x38, 0x21, 0x32, 0x13, 0x24, 0x1d, 0x16, 0x37}, {0x38, 0x21, 0x32, 0x13, 0x24, 0x1d, 0x16, 0x37}, {0x38, 0x21, 0x32, 0x13, 0x24, 0x1d, 0x16, 0x37}, {0x38, 0x21, 0x32, 0x13, 0x24, 0x1d, 0x16, 0x37}, {0x38, 0x21, 0x32, 0x13, 0x24, 0x3d, 0x16, 0x37}, {0x38, 0x01, 0x32, 0x13, 0x24, 0x3d, 0x16, 0x37}, {0x38, 0x01, 0x32, 0x0b, 0x24, 0x3d, 0x16, 0x37}, {0x38, 0x01, 0x32, 0x0b, 0x24, 0x3d, 0x16, 0x37}, {0x38, 0x01, 0x32, 0x0b, 0x24, 0x3d, 0x16, 0x37}, {0x38, 0x01, 0x22, 0x0b, 0x04, 0x3d, 0x16, 0x37}, {0x38, 0x01, 0x22, 0x0b, 0x04, 0x3d, 0x0e, 0x37}, {0x38, 0x01, 0x22, 0x0b, 0x04, 0x3d, 0x0e, 0x37}, {0x38, 0x01, 0x22, 0x1b, 0x04, 0x3d, 0x0e, 0x37}, {0x38, 0x01, 0x22, 0x1b, 0x04, 0x3d, 0x0e, 0x27}, {0x38, 0x01, 0x22, 0x1b, 0x04, 0x2d, 0x0e, 0x27}, {0x38, 0x01, 0x22, 0x1b, 0x04, 0x2d, 0x0e, 0x27}, {0x38, 0x01, 0x22, 0x1b, 0x04, 0x2d, 0x1e, 0x27}, {0x30, 0x01, 0x22, 0x1b, 0x04, 0x2d, 0x1e, 0x27}, {0x30, 0x01, 0x22, 0x1b, 0x0c, 0x2d, 0x1e, 0x27}, {0x30, 0x01, 0x22, 0x1b, 0x0c, 0x2d, 0x1e, 0x27}, {0x30, 0x01, 0x22, 0x1b, 0x0c, 0x35, 0x1e, 0x27}, {0x30, 0x11, 0x22, 0x1b, 0x0c, 0x35, 0x1e, 0x27}, {0x30, 0x11, 0x22, 0x3b, 0x0c, 0x35, 0x1e, 0x27}, {0x30, 0x11, 0x22, 0x3b, 0x0c, 0x35, 0x1e, 0x27}, {0x30, 0x11, 0x22, 0x3b, 0x14, 0x35, 0x1e, 0x27}, {0x30, 0x11, 0x22, 0x3b, 0x14, 0x35, 0x1e, 0x27}, {0x30, 0x11, 0x02, 0x3b, 0x14, 0x35, 0x3e, 0x27}, {0x30, 0x11, 0x02, 0x3b, 0x14, 0x35, 0x3e, 0x27}, {0x30, 0x11, 0x02, 0x3b, 0x14, 0x35, 0x3e, 0x27}, {0x30, 0x11, 0x02, 0x3b, 0x14, 0x35, 0x3e, 0x27}, {0x30, 0x11, 0x02, 0x3b, 0x14, 0x35, 0x3e, 0x07}, {0x30, 0x11, 0x02, 0x3b, 0x14, 0x35, 0x3e, 0x07}, {0x30, 0x11, 0x02, 0x3b, 0x14, 0x35, 0x3e, 0x07} }, { {0x18, 0x21, 0x32, 0x13, 0x24, 0x1d, 0x16, 0x37}, {0x18, 0x21, 0x32, 0x13, 0x24, 0x1d, 0x16, 0x37}, {0x18, 0x21, 0x32, 0x13, 0x24, 0x1d, 0x16, 0x37}, {0x18, 0x21, 0x32, 0x13, 0x24, 0x1d, 0x16, 0x37}, {0x38, 0x21, 0x32, 0x13, 0x24, 0x1d, 0x16, 0x37}, {0x38, 0x21, 0x32, 0x13, 0x24, 0x1d, 0x16, 0x37}, {0x38, 0x21, 0x32, 0x13, 0x24, 0x1d, 0x16, 0x37}, {0x38, 0x21, 0x32, 0x13, 0x24, 0x1d, 0x16, 0x37}, {0x38, 0x21, 0x32, 0x0b, 0x24, 0x3d, 0x16, 0x37}, {0x38, 0x01, 0x32, 0x0b, 0x24, 0x3d, 0x16, 0x37}, {0x38, 0x01, 0x32, 0x0b, 0x24, 0x3d, 0x16, 0x37}, {0x38, 0x01, 0x32, 0x0b, 0x24, 0x3d, 0x16, 0x37}, {0x38, 0x01, 0x2a, 0x0b, 0x24, 0x3d, 0x0e, 0x37}, {0x38, 0x01, 0x22, 0x0b, 0x04, 0x3d, 0x0e, 0x37}, {0x38, 0x01, 0x22, 0x0b, 0x04, 0x3d, 0x0e, 0x37}, {0x38, 0x01, 0x22, 0x0b, 0x04, 0x3d, 0x0e, 0x37}, {0x38, 0x01, 0x22, 0x1b, 0x04, 0x2d, 0x0e, 0x27}, {0x38, 0x01, 0x22, 0x1b, 0x04, 0x2d, 0x0e, 0x27}, {0x38, 0x01, 0x22, 0x1b, 0x04, 0x2d, 0x0e, 0x27}, {0x38, 0x01, 0x22, 0x1b, 0x04, 0x2d, 0x0e, 0x27}, {0x30, 0x01, 0x22, 0x1b, 0x0c, 0x2d, 0x1e, 0x27}, {0x30, 0x01, 0x22, 0x1b, 0x0c, 0x2d, 0x1e, 0x27}, {0x30, 0x01, 0x22, 0x1b, 0x0c, 0x2d, 0x1e, 0x27}, {0x30, 0x01, 0x22, 0x1b, 0x0c, 0x2d, 0x1e, 0x27}, {0x30, 0x11, 0x22, 0x3b, 0x0c, 0x35, 0x1e, 0x27}, {0x30, 0x11, 0x22, 0x3b, 0x0c, 0x35, 0x1e, 0x27}, {0x30, 0x11, 0x22, 0x3b, 0x0c, 0x35, 0x1e, 0x27}, {0x30, 0x11, 0x22, 0x3b, 0x0c, 0x35, 0x1e, 0x27}, {0x30, 0x11, 0x02, 0x3b, 0x14, 0x35, 0x3e, 0x27}, {0x30, 0x11, 0x02, 0x3b, 0x14, 0x35, 0x3e, 0x27}, {0x30, 0x11, 0x02, 0x3b, 0x14, 0x35, 0x3e, 0x27}, {0x30, 0x11, 0x02, 0x3b, 0x14, 0x35, 0x3e, 0x27}, {0x30, 0x11, 0x02, 0x3b, 0x14, 0x35, 0x3e, 0x07}, {0x30, 0x11, 0x02, 0x3b, 0x14, 0x35, 0x3e, 0x07}, {0x30, 0x11, 0x02, 0x3b, 0x14, 0x35, 0x3e, 0x07}, {0x30, 0x11, 0x02, 0x3b, 0x14, 0x35, 0x3e, 0x07} }, { {0x18, 0x21, 0x32, 0x13, 0x24, 0x1d, 0x16, 0x37}, {0x18, 0x21, 0x32, 0x13, 0x24, 0x1d, 0x16, 0x37}, {0x18, 0x21, 0x32, 0x13, 0x24, 0x1d, 0x16, 0x37}, {0x18, 0x21, 0x32, 0x13, 0x24, 0x1d, 0x16, 0x37}, {0x18, 0x21, 0x32, 0x13, 0x24, 0x1d, 0x16, 0x37}, {0x38, 0x21, 0x32, 0x13, 0x24, 0x1d, 0x16, 0x37}, {0x38, 0x21, 0x32, 0x13, 0x24, 0x1d, 0x16, 0x37}, {0x38, 0x21, 0x32, 0x0b, 0x24, 0x1d, 0x16, 0x37}, {0x38, 0x21, 0x32, 0x0b, 0x24, 0x1d, 0x16, 0x37}, {0x38, 0x21, 0x32, 0x0b, 0x24, 0x3d, 0x16, 0x37}, {0x38, 0x01, 0x32, 0x0b, 0x24, 0x3d, 0x16, 0x37}, {0x38, 0x01, 0x2a, 0x0b, 0x24, 0x3d, 0x0e, 0x37}, {0x38, 0x01, 0x2a, 0x0b, 0x24, 0x3d, 0x0e, 0x37}, {0x38, 0x01, 0x2a, 0x0b, 0x24, 0x3d, 0x0e, 0x37}, {0x38, 0x01, 0x22, 0x0b, 0x04, 0x3d, 0x0e, 0x37}, {0x38, 0x01, 0x22, 0x0b, 0x04, 0x2d, 0x0e, 0x2f}, {0x38, 0x01, 0x22, 0x0b, 0x04, 0x2d, 0x0e, 0x2f}, {0x38, 0x01, 0x22, 0x1b, 0x04, 0x2d, 0x0e, 0x27}, {0x38, 0x01, 0x22, 0x1b, 0x04, 0x2d, 0x0e, 0x27}, {0x28, 0x01, 0x22, 0x1b, 0x0c, 0x2d, 0x0e, 0x27}, {0x28, 0x01, 0x22, 0x1b, 0x0c, 0x2d, 0x0e, 0x27}, {0x30, 0x01, 0x22, 0x1b, 0x0c, 0x2d, 0x1e, 0x27}, {0x30, 0x01, 0x22, 0x1b, 0x0c, 0x2d, 0x1e, 0x27}, {0x30, 0x09, 0x22, 0x3b, 0x0c, 0x2d, 0x1e, 0x27}, {0x30, 0x09, 0x22, 0x3b, 0x0c, 0x2d, 0x1e, 0x27}, {0x30, 0x11, 0x22, 0x3b, 0x0c, 0x35, 0x1e, 0x27}, {0x30, 0x11, 0x22, 0x3b, 0x0c, 0x35, 0x1e, 0x27}, {0x30, 0x11, 0x02, 0x3b, 0x0c, 0x35, 0x3e, 0x27}, {0x30, 0x11, 0x02, 0x3b, 0x0c, 0x35, 0x3e, 0x27}, {0x30, 0x11, 0x02, 0x3b, 0x14, 0x35, 0x3e, 0x27}, {0x30, 0x11, 0x02, 0x3b, 0x14, 0x35, 0x3e, 0x27}, {0x30, 0x11, 0x02, 0x3b, 0x14, 0x35, 0x3e, 0x07}, {0x30, 0x11, 0x02, 0x3b, 0x14, 0x35, 0x3e, 0x07}, {0x30, 0x11, 0x02, 0x3b, 0x14, 0x35, 0x3e, 0x07}, {0x30, 0x11, 0x02, 0x3b, 0x14, 0x35, 0x3e, 0x07}, {0x30, 0x11, 0x02, 0x3b, 0x14, 0x35, 0x3e, 0x07} }, { {0x18, 0x21, 0x32, 0x13, 0x24, 0x1d, 0x16, 0x37}, {0x18, 0x21, 0x32, 0x13, 0x24, 0x1d, 0x16, 0x37}, {0x18, 0x21, 0x32, 0x13, 0x24, 0x1d, 0x16, 0x37}, {0x18, 0x21, 0x32, 0x13, 0x24, 0x1d, 0x16, 0x37}, {0x18, 0x21, 0x32, 0x13, 0x24, 0x1d, 0x16, 0x37}, {0x18, 0x21, 0x32, 0x13, 0x24, 0x1d, 0x16, 0x37}, {0x38, 0x21, 0x32, 0x0b, 0x24, 0x1d, 0x16, 0x37}, {0x38, 0x21, 0x32, 0x0b, 0x24, 0x1d, 0x16, 0x37}, {0x38, 0x21, 0x32, 0x0b, 0x24, 0x1d, 0x16, 0x37}, {0x38, 0x21, 0x32, 0x0b, 0x24, 0x1d, 0x16, 0x37}, {0x38, 0x21, 0x2a, 0x0b, 0x24, 0x3d, 0x0e, 0x37}, {0x38, 0x01, 0x2a, 0x0b, 0x24, 0x3d, 0x0e, 0x37}, {0x38, 0x01, 0x2a, 0x0b, 0x24, 0x3d, 0x0e, 0x37}, {0x38, 0x01, 0x2a, 0x0b, 0x24, 0x3d, 0x0e, 0x37}, {0x38, 0x01, 0x22, 0x0b, 0x04, 0x2d, 0x0e, 0x2f}, {0x38, 0x01, 0x22, 0x0b, 0x04, 0x2d, 0x0e, 0x2f}, {0x38, 0x01, 0x22, 0x0b, 0x04, 0x2d, 0x0e, 0x2f}, {0x38, 0x01, 0x22, 0x0b, 0x04, 0x2d, 0x0e, 0x2f}, {0x28, 0x01, 0x22, 0x1b, 0x0c, 0x2d, 0x0e, 0x27}, {0x28, 0x01, 0x22, 0x1b, 0x0c, 0x2d, 0x0e, 0x27}, {0x28, 0x01, 0x22, 0x1b, 0x0c, 0x2d, 0x0e, 0x27}, {0x28, 0x01, 0x22, 0x1b, 0x0c, 0x2d, 0x0e, 0x27}, {0x30, 0x09, 0x22, 0x3b, 0x0c, 0x2d, 0x1e, 0x27}, {0x30, 0x09, 0x22, 0x3b, 0x0c, 0x2d, 0x1e, 0x27}, {0x30, 0x09, 0x22, 0x3b, 0x0c, 0x2d, 0x1e, 0x27}, {0x30, 0x09, 0x22, 0x3b, 0x0c, 0x2d, 0x1e, 0x27}, {0x30, 0x11, 0x02, 0x3b, 0x0c, 0x35, 0x3e, 0x27}, {0x30, 0x11, 0x02, 0x3b, 0x0c, 0x35, 0x3e, 0x27}, {0x30, 0x11, 0x02, 0x3b, 0x0c, 0x35, 0x3e, 0x27}, {0x30, 0x11, 0x02, 0x3b, 0x0c, 0x35, 0x3e, 0x27}, {0x30, 0x11, 0x02, 0x3b, 0x14, 0x35, 0x3e, 0x07}, {0x30, 0x11, 0x02, 0x3b, 0x14, 0x35, 0x3e, 0x07}, {0x30, 0x11, 0x02, 0x3b, 0x14, 0x35, 0x3e, 0x07}, {0x30, 0x11, 0x02, 0x3b, 0x14, 0x35, 0x3e, 0x07}, {0x30, 0x11, 0x02, 0x3b, 0x14, 0x35, 0x3e, 0x07}, {0x30, 0x11, 0x02, 0x3b, 0x14, 0x35, 0x3e, 0x07} }, { {0x18, 0x21, 0x32, 0x13, 0x24, 0x1d, 0x16, 0x37}, {0x18, 0x21, 0x32, 0x13, 0x24, 0x1d, 0x16, 0x37}, {0x18, 0x21, 0x32, 0x13, 0x24, 0x1d, 0x16, 0x37}, {0x18, 0x21, 0x32, 0x13, 0x24, 0x1d, 0x16, 0x37}, {0x18, 0x21, 0x32, 0x13, 0x24, 0x1d, 0x16, 0x37}, {0x18, 0x21, 0x32, 0x0b, 0x24, 0x1d, 0x16, 0x37}, {0x18, 0x21, 0x32, 0x0b, 0x24, 0x1d, 0x16, 0x37}, {0x38, 0x21, 0x32, 0x0b, 0x24, 0x1d, 0x16, 0x37}, {0x38, 0x21, 0x32, 0x0b, 0x24, 0x1d, 0x16, 0x37}, {0x38, 0x21, 0x2a, 0x0b, 0x24, 0x1d, 0x0e, 0x37}, {0x38, 0x21, 0x2a, 0x0b, 0x24, 0x1d, 0x0e, 0x37}, {0x38, 0x21, 0x2a, 0x0b, 0x24, 0x3d, 0x0e, 0x37}, {0x38, 0x01, 0x2a, 0x0b, 0x24, 0x3d, 0x0e, 0x37}, {0x38, 0x01, 0x2a, 0x0b, 0x24, 0x2d, 0x0e, 0x2f}, {0x38, 0x01, 0x2a, 0x0b, 0x24, 0x2d, 0x0e, 0x2f}, {0x38, 0x01, 0x22, 0x0b, 0x04, 0x2d, 0x0e, 0x2f}, {0x38, 0x01, 0x22, 0x0b, 0x04, 0x2d, 0x0e, 0x2f}, {0x28, 0x01, 0x22, 0x0b, 0x0c, 0x2d, 0x0e, 0x2f}, {0x28, 0x01, 0x22, 0x0b, 0x0c, 0x2d, 0x0e, 0x2f}, {0x28, 0x01, 0x22, 0x1b, 0x0c, 0x2d, 0x0e, 0x27}, {0x28, 0x01, 0x22, 0x1b, 0x0c, 0x2d, 0x0e, 0x27}, {0x28, 0x09, 0x22, 0x3b, 0x0c, 0x2d, 0x0e, 0x27}, {0x28, 0x09, 0x22, 0x3b, 0x0c, 0x2d, 0x0e, 0x27}, {0x30, 0x09, 0x22, 0x3b, 0x0c, 0x2d, 0x1e, 0x27}, {0x30, 0x09, 0x22, 0x3b, 0x0c, 0x2d, 0x1e, 0x27}, {0x30, 0x09, 0x02, 0x3b, 0x0c, 0x2d, 0x3e, 0x27}, {0x30, 0x09, 0x02, 0x3b, 0x0c, 0x2d, 0x3e, 0x27}, {0x30, 0x11, 0x02, 0x3b, 0x0c, 0x35, 0x3e, 0x27}, {0x30, 0x11, 0x02, 0x3b, 0x0c, 0x35, 0x3e, 0x27}, {0x30, 0x11, 0x02, 0x3b, 0x0c, 0x35, 0x3e, 0x07}, {0x30, 0x11, 0x02, 0x3b, 0x0c, 0x35, 0x3e, 0x07}, {0x30, 0x11, 0x02, 0x3b, 0x14, 0x35, 0x3e, 0x07}, {0x30, 0x11, 0x02, 0x3b, 0x14, 0x35, 0x3e, 0x07}, {0x30, 0x11, 0x02, 0x3b, 0x14, 0x35, 0x3e, 0x07}, {0x30, 0x11, 0x02, 0x3b, 0x14, 0x35, 0x3e, 0x07}, {0x30, 0x11, 0x02, 0x3b, 0x14, 0x35, 0x3e, 0x07} }, { {0x18, 0x21, 0x32, 0x03, 0x24, 0x1d, 0x06, 0x37}, {0x18, 0x21, 0x32, 0x03, 0x24, 0x1d, 0x06, 0x37}, {0x18, 0x21, 0x32, 0x03, 0x24, 0x1d, 0x06, 0x37}, {0x18, 0x21, 0x32, 0x03, 0x24, 0x1d, 0x06, 0x37}, {0x18, 0x21, 0x32, 0x0b, 0x24, 0x1d, 0x06, 0x37}, {0x18, 0x21, 0x32, 0x0b, 0x24, 0x1d, 0x06, 0x37}, {0x18, 0x21, 0x32, 0x0b, 0x24, 0x1d, 0x06, 0x37}, {0x18, 0x21, 0x32, 0x0b, 0x24, 0x1d, 0x06, 0x37}, {0x38, 0x21, 0x2a, 0x0b, 0x24, 0x1d, 0x0e, 0x37}, {0x38, 0x21, 0x2a, 0x0b, 0x24, 0x1d, 0x0e, 0x37}, {0x38, 0x21, 0x2a, 0x0b, 0x24, 0x1d, 0x0e, 0x37}, {0x38, 0x21, 0x2a, 0x0b, 0x24, 0x1d, 0x0e, 0x37}, {0x38, 0x21, 0x2a, 0x0b, 0x24, 0x2d, 0x0e, 0x2f}, {0x38, 0x01, 0x2a, 0x0b, 0x24, 0x2d, 0x0e, 0x2f}, {0x38, 0x01, 0x2a, 0x0b, 0x24, 0x2d, 0x0e, 0x2f}, {0x38, 0x01, 0x2a, 0x0b, 0x24, 0x2d, 0x0e, 0x2f}, {0x28, 0x01, 0x22, 0x0b, 0x0c, 0x2d, 0x0e, 0x2f}, {0x28, 0x01, 0x22, 0x0b, 0x0c, 0x2d, 0x0e, 0x2f}, {0x28, 0x01, 0x22, 0x0b, 0x0c, 0x2d, 0x0e, 0x2f}, {0x28, 0x01, 0x22, 0x0b, 0x0c, 0x2d, 0x0e, 0x2f}, {0x28, 0x09, 0x22, 0x3b, 0x0c, 0x2d, 0x0e, 0x27}, {0x28, 0x09, 0x22, 0x3b, 0x0c, 0x2d, 0x0e, 0x27}, {0x28, 0x09, 0x22, 0x3b, 0x0c, 0x2d, 0x0e, 0x27}, {0x28, 0x09, 0x22, 0x3b, 0x0c, 0x2d, 0x0e, 0x27}, {0x30, 0x09, 0x02, 0x3b, 0x0c, 0x2d, 0x3e, 0x27}, {0x30, 0x09, 0x02, 0x3b, 0x0c, 0x2d, 0x3e, 0x27}, {0x30, 0x09, 0x02, 0x3b, 0x0c, 0x2d, 0x3e, 0x27}, {0x30, 0x09, 0x02, 0x3b, 0x0c, 0x2d, 0x3e, 0x27}, {0x30, 0x11, 0x02, 0x3b, 0x0c, 0x25, 0x3e, 0x07}, {0x30, 0x11, 0x02, 0x3b, 0x0c, 0x25, 0x3e, 0x07}, {0x30, 0x11, 0x02, 0x3b, 0x0c, 0x25, 0x3e, 0x07}, {0x30, 0x11, 0x02, 0x3b, 0x0c, 0x25, 0x3e, 0x07}, {0x30, 0x11, 0x02, 0x3b, 0x1c, 0x25, 0x3e, 0x07}, {0x30, 0x11, 0x02, 0x3b, 0x1c, 0x25, 0x3e, 0x07}, {0x30, 0x11, 0x02, 0x3b, 0x1c, 0x25, 0x3e, 0x07}, {0x30, 0x11, 0x02, 0x3b, 0x1c, 0x25, 0x3e, 0x07} }, { {0x18, 0x21, 0x32, 0x03, 0x24, 0x1d, 0x06, 0x37}, {0x18, 0x21, 0x32, 0x03, 0x24, 0x1d, 0x06, 0x37}, {0x18, 0x21, 0x32, 0x03, 0x24, 0x1d, 0x06, 0x37}, {0x18, 0x21, 0x32, 0x03, 0x24, 0x1d, 0x06, 0x37}, {0x18, 0x21, 0x32, 0x03, 0x24, 0x1d, 0x06, 0x37}, {0x18, 0x21, 0x32, 0x0b, 0x24, 0x1d, 0x06, 0x37}, {0x18, 0x21, 0x32, 0x0b, 0x24, 0x1d, 0x06, 0x37}, {0x18, 0x21, 0x2a, 0x0b, 0x24, 0x1d, 0x06, 0x37}, {0x18, 0x21, 0x2a, 0x0b, 0x24, 0x1d, 0x06, 0x37}, {0x38, 0x21, 0x2a, 0x0b, 0x24, 0x1d, 0x0e, 0x37}, {0x38, 0x21, 0x2a, 0x0b, 0x24, 0x1d, 0x0e, 0x37}, {0x38, 0x21, 0x2a, 0x0b, 0x24, 0x0d, 0x0e, 0x2f}, {0x38, 0x21, 0x2a, 0x0b, 0x24, 0x0d, 0x0e, 0x2f}, {0x38, 0x21, 0x2a, 0x0b, 0x24, 0x2d, 0x0e, 0x2f}, {0x38, 0x01, 0x2a, 0x0b, 0x24, 0x2d, 0x0e, 0x2f}, {0x28, 0x01, 0x2a, 0x0b, 0x2c, 0x2d, 0x0e, 0x2f}, {0x28, 0x01, 0x2a, 0x0b, 0x2c, 0x2d, 0x0e, 0x2f}, {0x28, 0x01, 0x22, 0x0b, 0x0c, 0x2d, 0x0e, 0x2f}, {0x28, 0x01, 0x22, 0x0b, 0x0c, 0x2d, 0x0e, 0x2f}, {0x28, 0x09, 0x22, 0x2b, 0x0c, 0x2d, 0x0e, 0x2f}, {0x28, 0x09, 0x22, 0x2b, 0x0c, 0x2d, 0x0e, 0x2f}, {0x28, 0x09, 0x22, 0x3b, 0x0c, 0x2d, 0x0e, 0x27}, {0x28, 0x09, 0x22, 0x3b, 0x0c, 0x2d, 0x0e, 0x27}, {0x28, 0x09, 0x02, 0x3b, 0x0c, 0x2d, 0x2e, 0x27}, {0x28, 0x09, 0x02, 0x3b, 0x0c, 0x2d, 0x2e, 0x27}, {0x30, 0x09, 0x02, 0x3b, 0x0c, 0x2d, 0x3e, 0x27}, {0x30, 0x09, 0x02, 0x3b, 0x0c, 0x2d, 0x3e, 0x27}, {0x30, 0x09, 0x02, 0x3b, 0x0c, 0x25, 0x3e, 0x07}, {0x30, 0x09, 0x02, 0x3b, 0x0c, 0x25, 0x3e, 0x07}, {0x30, 0x11, 0x02, 0x3b, 0x0c, 0x25, 0x3e, 0x07}, {0x30, 0x11, 0x02, 0x3b, 0x0c, 0x25, 0x3e, 0x07}, {0x30, 0x11, 0x02, 0x3b, 0x1c, 0x25, 0x3e, 0x07}, {0x30, 0x11, 0x02, 0x3b, 0x1c, 0x25, 0x3e, 0x07}, {0x30, 0x11, 0x02, 0x3b, 0x1c, 0x25, 0x3e, 0x07}, {0x30, 0x11, 0x02, 0x3b, 0x1c, 0x25, 0x3e, 0x07}, {0x30, 0x11, 0x02, 0x3b, 0x1c, 0x25, 0x3e, 0x07} }, { {0x18, 0x21, 0x32, 0x03, 0x24, 0x1d, 0x06, 0x37}, {0x18, 0x21, 0x32, 0x03, 0x24, 0x1d, 0x06, 0x37}, {0x18, 0x21, 0x32, 0x03, 0x24, 0x1d, 0x06, 0x37}, {0x18, 0x21, 0x32, 0x03, 0x24, 0x1d, 0x06, 0x37}, {0x18, 0x21, 0x32, 0x03, 0x24, 0x1d, 0x06, 0x37}, {0x18, 0x21, 0x32, 0x03, 0x24, 0x1d, 0x06, 0x37}, {0x18, 0x21, 0x2a, 0x03, 0x24, 0x1d, 0x06, 0x37}, {0x18, 0x21, 0x2a, 0x0b, 0x24, 0x1d, 0x06, 0x37}, {0x18, 0x21, 0x2a, 0x0b, 0x24, 0x1d, 0x06, 0x37}, {0x18, 0x21, 0x2a, 0x0b, 0x24, 0x1d, 0x06, 0x37}, {0x18, 0x21, 0x2a, 0x0b, 0x24, 0x0d, 0x06, 0x2f}, {0x38, 0x21, 0x2a, 0x0b, 0x24, 0x0d, 0x0e, 0x2f}, {0x38, 0x21, 0x2a, 0x0b, 0x24, 0x0d, 0x0e, 0x2f}, {0x38, 0x21, 0x2a, 0x0b, 0x24, 0x0d, 0x0e, 0x2f}, {0x28, 0x21, 0x2a, 0x0b, 0x2c, 0x2d, 0x0e, 0x2f}, {0x28, 0x01, 0x2a, 0x0b, 0x2c, 0x2d, 0x0e, 0x2f}, {0x28, 0x01, 0x2a, 0x0b, 0x2c, 0x2d, 0x0e, 0x2f}, {0x28, 0x01, 0x2a, 0x0b, 0x2c, 0x2d, 0x0e, 0x2f}, {0x28, 0x09, 0x2a, 0x2b, 0x2c, 0x2d, 0x0e, 0x2f}, {0x28, 0x09, 0x22, 0x2b, 0x0c, 0x2d, 0x0e, 0x2f}, {0x28, 0x09, 0x22, 0x2b, 0x0c, 0x2d, 0x0e, 0x2f}, {0x28, 0x09, 0x22, 0x2b, 0x0c, 0x2d, 0x0e, 0x2f}, {0x28, 0x09, 0x02, 0x2b, 0x0c, 0x2d, 0x2e, 0x2f}, {0x28, 0x09, 0x02, 0x3b, 0x0c, 0x2d, 0x2e, 0x27}, {0x28, 0x09, 0x02, 0x3b, 0x0c, 0x2d, 0x2e, 0x27}, {0x28, 0x09, 0x02, 0x3b, 0x0c, 0x2d, 0x2e, 0x27}, {0x28, 0x09, 0x02, 0x3b, 0x0c, 0x25, 0x2e, 0x07}, {0x30, 0x09, 0x02, 0x3b, 0x0c, 0x25, 0x3e, 0x07}, {0x30, 0x09, 0x02, 0x3b, 0x0c, 0x25, 0x3e, 0x07}, {0x30, 0x09, 0x02, 0x3b, 0x0c, 0x25, 0x3e, 0x07}, {0x30, 0x09, 0x02, 0x3b, 0x1c, 0x25, 0x3e, 0x07}, {0x30, 0x11, 0x02, 0x3b, 0x1c, 0x25, 0x3e, 0x07}, {0x30, 0x11, 0x02, 0x3b, 0x1c, 0x25, 0x3e, 0x07}, {0x30, 0x11, 0x02, 0x3b, 0x1c, 0x25, 0x3e, 0x07}, {0x30, 0x11, 0x02, 0x3b, 0x1c, 0x25, 0x3e, 0x07}, {0x30, 0x11, 0x02, 0x3b, 0x1c, 0x25, 0x3e, 0x07} }, { {0x18, 0x21, 0x32, 0x03, 0x24, 0x1d, 0x06, 0x37}, {0x18, 0x21, 0x32, 0x03, 0x24, 0x1d, 0x06, 0x37}, {0x18, 0x21, 0x32, 0x03, 0x24, 0x1d, 0x06, 0x37}, {0x18, 0x21, 0x32, 0x03, 0x24, 0x1d, 0x06, 0x37}, {0x18, 0x21, 0x32, 0x03, 0x24, 0x1d, 0x06, 0x37}, {0x18, 0x21, 0x2a, 0x03, 0x24, 0x1d, 0x06, 0x37}, {0x18, 0x21, 0x2a, 0x03, 0x24, 0x1d, 0x06, 0x37}, {0x18, 0x21, 0x2a, 0x03, 0x24, 0x1d, 0x06, 0x37}, {0x18, 0x21, 0x2a, 0x0b, 0x24, 0x1d, 0x06, 0x37}, {0x18, 0x21, 0x2a, 0x0b, 0x24, 0x0d, 0x06, 0x2f}, {0x18, 0x21, 0x2a, 0x0b, 0x24, 0x0d, 0x06, 0x2f}, {0x18, 0x21, 0x2a, 0x0b, 0x24, 0x0d, 0x06, 0x2f}, {0x38, 0x21, 0x2a, 0x0b, 0x24, 0x0d, 0x0e, 0x2f}, {0x28, 0x21, 0x2a, 0x0b, 0x2c, 0x0d, 0x0e, 0x2f}, {0x28, 0x21, 0x2a, 0x0b, 0x2c, 0x0d, 0x0e, 0x2f}, {0x28, 0x21, 0x2a, 0x0b, 0x2c, 0x2d, 0x0e, 0x2f}, {0x28, 0x01, 0x2a, 0x0b, 0x2c, 0x2d, 0x0e, 0x2f}, {0x28, 0x09, 0x2a, 0x2b, 0x2c, 0x2d, 0x0e, 0x2f}, {0x28, 0x09, 0x2a, 0x2b, 0x2c, 0x2d, 0x0e, 0x2f}, {0x28, 0x09, 0x2a, 0x2b, 0x2c, 0x2d, 0x0e, 0x2f}, {0x28, 0x09, 0x22, 0x2b, 0x0c, 0x2d, 0x0e, 0x2f}, {0x28, 0x09, 0x02, 0x2b, 0x0c, 0x2d, 0x2e, 0x2f}, {0x28, 0x09, 0x02, 0x2b, 0x0c, 0x2d, 0x2e, 0x2f}, {0x28, 0x09, 0x02, 0x2b, 0x0c, 0x2d, 0x2e, 0x2f}, {0x28, 0x09, 0x02, 0x3b, 0x0c, 0x2d, 0x2e, 0x27}, {0x28, 0x09, 0x02, 0x3b, 0x0c, 0x25, 0x2e, 0x07}, {0x28, 0x09, 0x02, 0x3b, 0x0c, 0x25, 0x2e, 0x07}, {0x28, 0x09, 0x02, 0x3b, 0x0c, 0x25, 0x2e, 0x07}, {0x30, 0x09, 0x02, 0x3b, 0x0c, 0x25, 0x3e, 0x07}, {0x30, 0x09, 0x02, 0x3b, 0x1c, 0x25, 0x3e, 0x07}, {0x30, 0x09, 0x02, 0x3b, 0x1c, 0x25, 0x3e, 0x07}, {0x30, 0x09, 0x02, 0x3b, 0x1c, 0x25, 0x3e, 0x07}, {0x30, 0x11, 0x02, 0x3b, 0x1c, 0x25, 0x3e, 0x07}, {0x30, 0x11, 0x02, 0x3b, 0x1c, 0x25, 0x3e, 0x07}, {0x30, 0x11, 0x02, 0x3b, 0x1c, 0x25, 0x3e, 0x07}, {0x30, 0x11, 0x02, 0x3b, 0x1c, 0x25, 0x3e, 0x07} }, { {0x18, 0x21, 0x3a, 0x03, 0x24, 0x1d, 0x06, 0x3f}, {0x18, 0x21, 0x3a, 0x03, 0x24, 0x1d, 0x06, 0x3f}, {0x18, 0x21, 0x3a, 0x03, 0x24, 0x1d, 0x06, 0x3f}, {0x18, 0x21, 0x3a, 0x03, 0x24, 0x1d, 0x06, 0x3f}, {0x18, 0x21, 0x3a, 0x03, 0x24, 0x1d, 0x06, 0x3f}, {0x18, 0x21, 0x2a, 0x03, 0x24, 0x1d, 0x06, 0x3f}, {0x18, 0x21, 0x2a, 0x03, 0x24, 0x1d, 0x06, 0x3f}, {0x18, 0x21, 0x2a, 0x03, 0x24, 0x1d, 0x06, 0x3f}, {0x18, 0x21, 0x2a, 0x03, 0x24, 0x0d, 0x06, 0x3f}, {0x18, 0x21, 0x2a, 0x0b, 0x24, 0x0d, 0x06, 0x2f}, {0x18, 0x21, 0x2a, 0x0b, 0x24, 0x0d, 0x06, 0x2f}, {0x18, 0x21, 0x2a, 0x0b, 0x24, 0x0d, 0x06, 0x2f}, {0x08, 0x21, 0x2a, 0x0b, 0x2c, 0x0d, 0x06, 0x2f}, {0x28, 0x21, 0x2a, 0x0b, 0x2c, 0x0d, 0x0e, 0x2f}, {0x28, 0x21, 0x2a, 0x0b, 0x2c, 0x0d, 0x0e, 0x2f}, {0x28, 0x21, 0x2a, 0x0b, 0x2c, 0x0d, 0x0e, 0x2f}, {0x28, 0x29, 0x2a, 0x2b, 0x2c, 0x2d, 0x0e, 0x2f}, {0x28, 0x09, 0x2a, 0x2b, 0x2c, 0x2d, 0x0e, 0x2f}, {0x28, 0x09, 0x2a, 0x2b, 0x2c, 0x2d, 0x0e, 0x2f}, {0x28, 0x09, 0x2a, 0x2b, 0x2c, 0x2d, 0x0e, 0x2f}, {0x28, 0x09, 0x0a, 0x2b, 0x2c, 0x2d, 0x2e, 0x2f}, {0x28, 0x09, 0x02, 0x2b, 0x0c, 0x2d, 0x2e, 0x2f}, {0x28, 0x09, 0x02, 0x2b, 0x0c, 0x2d, 0x2e, 0x2f}, {0x28, 0x09, 0x02, 0x2b, 0x0c, 0x2d, 0x2e, 0x2f}, {0x28, 0x09, 0x02, 0x2b, 0x0c, 0x25, 0x2e, 0x0f}, {0x28, 0x09, 0x02, 0x3b, 0x0c, 0x25, 0x2e, 0x07}, {0x28, 0x09, 0x02, 0x3b, 0x0c, 0x25, 0x2e, 0x07}, {0x28, 0x09, 0x02, 0x3b, 0x0c, 0x25, 0x2e, 0x07}, {0x20, 0x09, 0x02, 0x3b, 0x1c, 0x25, 0x2e, 0x07}, {0x20, 0x09, 0x02, 0x3b, 0x1c, 0x25, 0x3e, 0x07}, {0x20, 0x09, 0x02, 0x3b, 0x1c, 0x25, 0x3e, 0x07}, {0x20, 0x09, 0x02, 0x3b, 0x1c, 0x25, 0x3e, 0x07}, {0x20, 0x19, 0x02, 0x3b, 0x1c, 0x25, 0x3e, 0x07}, {0x20, 0x19, 0x02, 0x3b, 0x1c, 0x25, 0x3e, 0x07}, {0x20, 0x19, 0x02, 0x3b, 0x1c, 0x25, 0x3e, 0x07}, {0x20, 0x19, 0x02, 0x3b, 0x1c, 0x25, 0x3e, 0x07} }, { {0x18, 0x21, 0x3a, 0x03, 0x24, 0x1d, 0x06, 0x3f}, {0x18, 0x21, 0x3a, 0x03, 0x24, 0x1d, 0x06, 0x3f}, {0x18, 0x21, 0x3a, 0x03, 0x24, 0x1d, 0x06, 0x3f}, {0x18, 0x21, 0x3a, 0x03, 0x24, 0x1d, 0x06, 0x3f}, {0x18, 0x21, 0x3a, 0x03, 0x24, 0x1d, 0x06, 0x3f}, {0x18, 0x21, 0x3a, 0x03, 0x24, 0x1d, 0x06, 0x3f}, {0x18, 0x21, 0x2a, 0x03, 0x24, 0x1d, 0x06, 0x3f}, {0x18, 0x21, 0x2a, 0x03, 0x24, 0x0d, 0x06, 0x3f}, {0x18, 0x21, 0x2a, 0x03, 0x24, 0x0d, 0x06, 0x3f}, {0x18, 0x21, 0x2a, 0x03, 0x24, 0x0d, 0x06, 0x3f}, {0x18, 0x21, 0x2a, 0x0b, 0x24, 0x0d, 0x06, 0x2f}, {0x08, 0x21, 0x2a, 0x0b, 0x2c, 0x0d, 0x06, 0x2f}, {0x08, 0x21, 0x2a, 0x0b, 0x2c, 0x0d, 0x06, 0x2f}, {0x08, 0x21, 0x2a, 0x0b, 0x2c, 0x0d, 0x06, 0x2f}, {0x28, 0x21, 0x2a, 0x0b, 0x2c, 0x0d, 0x0e, 0x2f}, {0x28, 0x29, 0x2a, 0x2b, 0x2c, 0x0d, 0x0e, 0x2f}, {0x28, 0x29, 0x2a, 0x2b, 0x2c, 0x0d, 0x0e, 0x2f}, {0x28, 0x29, 0x2a, 0x2b, 0x2c, 0x2d, 0x0e, 0x2f}, {0x28, 0x09, 0x2a, 0x2b, 0x2c, 0x2d, 0x0e, 0x2f}, {0x28, 0x09, 0x0a, 0x2b, 0x2c, 0x2d, 0x2e, 0x2f}, {0x28, 0x09, 0x0a, 0x2b, 0x2c, 0x2d, 0x2e, 0x2f}, {0x28, 0x09, 0x0a, 0x2b, 0x2c, 0x2d, 0x2e, 0x2f}, {0x28, 0x09, 0x02, 0x2b, 0x0c, 0x2d, 0x2e, 0x2f}, {0x28, 0x09, 0x02, 0x2b, 0x0c, 0x25, 0x2e, 0x0f}, {0x28, 0x09, 0x02, 0x2b, 0x0c, 0x25, 0x2e, 0x0f}, {0x28, 0x09, 0x02, 0x2b, 0x0c, 0x25, 0x2e, 0x0f}, {0x28, 0x09, 0x02, 0x3b, 0x0c, 0x25, 0x2e, 0x07}, {0x20, 0x09, 0x02, 0x3b, 0x1c, 0x25, 0x2e, 0x07}, {0x20, 0x09, 0x02, 0x3b, 0x1c, 0x25, 0x2e, 0x07}, {0x20, 0x09, 0x02, 0x3b, 0x1c, 0x25, 0x2e, 0x07}, {0x20, 0x09, 0x02, 0x3b, 0x1c, 0x25, 0x3e, 0x07}, {0x20, 0x19, 0x02, 0x3b, 0x1c, 0x25, 0x3e, 0x07}, {0x20, 0x19, 0x02, 0x3b, 0x1c, 0x25, 0x3e, 0x07}, {0x20, 0x19, 0x02, 0x3b, 0x1c, 0x25, 0x3e, 0x07}, {0x20, 0x19, 0x02, 0x3b, 0x1c, 0x25, 0x3e, 0x07}, {0x20, 0x19, 0x02, 0x3b, 0x1c, 0x25, 0x3e, 0x07} }, { {0x18, 0x21, 0x3a, 0x03, 0x24, 0x1d, 0x06, 0x3f}, {0x18, 0x21, 0x3a, 0x03, 0x24, 0x1d, 0x06, 0x3f}, {0x18, 0x21, 0x3a, 0x03, 0x24, 0x1d, 0x06, 0x3f}, {0x18, 0x21, 0x3a, 0x03, 0x24, 0x1d, 0x06, 0x3f}, {0x18, 0x21, 0x3a, 0x03, 0x24, 0x1d, 0x06, 0x3f}, {0x18, 0x21, 0x3a, 0x03, 0x24, 0x1d, 0x06, 0x3f}, {0x18, 0x21, 0x3a, 0x03, 0x24, 0x0d, 0x06, 0x3f}, {0x18, 0x21, 0x2a, 0x03, 0x24, 0x0d, 0x06, 0x3f}, {0x18, 0x21, 0x2a, 0x03, 0x24, 0x0d, 0x06, 0x3f}, {0x18, 0x21, 0x2a, 0x03, 0x24, 0x0d, 0x06, 0x3f}, {0x08, 0x21, 0x2a, 0x03, 0x2c, 0x0d, 0x06, 0x3f}, {0x08, 0x21, 0x2a, 0x0b, 0x2c, 0x0d, 0x06, 0x2f}, {0x08, 0x21, 0x2a, 0x0b, 0x2c, 0x0d, 0x06, 0x2f}, {0x08, 0x21, 0x2a, 0x0b, 0x2c, 0x0d, 0x06, 0x2f}, {0x28, 0x29, 0x2a, 0x2b, 0x2c, 0x0d, 0x0e, 0x2f}, {0x28, 0x29, 0x2a, 0x2b, 0x2c, 0x0d, 0x0e, 0x2f}, {0x28, 0x29, 0x2a, 0x2b, 0x2c, 0x0d, 0x0e, 0x2f}, {0x28, 0x29, 0x2a, 0x2b, 0x2c, 0x0d, 0x0e, 0x2f}, {0x28, 0x29, 0x0a, 0x2b, 0x2c, 0x2d, 0x2e, 0x2f}, {0x28, 0x09, 0x0a, 0x2b, 0x2c, 0x2d, 0x2e, 0x2f}, {0x28, 0x09, 0x0a, 0x2b, 0x2c, 0x2d, 0x2e, 0x2f}, {0x28, 0x09, 0x0a, 0x2b, 0x2c, 0x2d, 0x2e, 0x2f}, {0x28, 0x09, 0x0a, 0x2b, 0x2c, 0x25, 0x2e, 0x0f}, {0x28, 0x09, 0x02, 0x2b, 0x0c, 0x25, 0x2e, 0x0f}, {0x28, 0x09, 0x02, 0x2b, 0x0c, 0x25, 0x2e, 0x0f}, {0x28, 0x09, 0x02, 0x2b, 0x0c, 0x25, 0x2e, 0x0f}, {0x20, 0x09, 0x02, 0x2b, 0x1c, 0x25, 0x2e, 0x0f}, {0x20, 0x09, 0x02, 0x3b, 0x1c, 0x25, 0x2e, 0x07}, {0x20, 0x09, 0x02, 0x3b, 0x1c, 0x25, 0x2e, 0x07}, {0x20, 0x09, 0x02, 0x3b, 0x1c, 0x25, 0x2e, 0x07}, {0x20, 0x19, 0x02, 0x3b, 0x1c, 0x25, 0x2e, 0x07}, {0x20, 0x19, 0x02, 0x3b, 0x1c, 0x25, 0x3e, 0x07}, {0x20, 0x19, 0x02, 0x3b, 0x1c, 0x25, 0x3e, 0x07}, {0x20, 0x19, 0x02, 0x3b, 0x1c, 0x25, 0x3e, 0x07}, {0x20, 0x19, 0x02, 0x3b, 0x1c, 0x25, 0x3e, 0x07}, {0x20, 0x19, 0x02, 0x3b, 0x1c, 0x25, 0x3e, 0x07} }, { {0x18, 0x21, 0x3a, 0x03, 0x24, 0x1d, 0x06, 0x3f}, {0x18, 0x21, 0x3a, 0x03, 0x24, 0x1d, 0x06, 0x3f}, {0x18, 0x21, 0x3a, 0x03, 0x24, 0x1d, 0x06, 0x3f}, {0x18, 0x21, 0x3a, 0x03, 0x24, 0x1d, 0x06, 0x3f}, {0x18, 0x21, 0x3a, 0x03, 0x24, 0x1d, 0x06, 0x3f}, {0x18, 0x21, 0x3a, 0x03, 0x24, 0x0d, 0x06, 0x3f}, {0x18, 0x21, 0x3a, 0x03, 0x24, 0x0d, 0x06, 0x3f}, {0x18, 0x21, 0x3a, 0x03, 0x24, 0x0d, 0x06, 0x3f}, {0x18, 0x21, 0x2a, 0x03, 0x24, 0x0d, 0x06, 0x3f}, {0x08, 0x21, 0x2a, 0x03, 0x2c, 0x0d, 0x06, 0x3f}, {0x08, 0x21, 0x2a, 0x03, 0x2c, 0x0d, 0x06, 0x3f}, {0x08, 0x21, 0x2a, 0x03, 0x2c, 0x0d, 0x06, 0x3f}, {0x08, 0x21, 0x2a, 0x0b, 0x2c, 0x0d, 0x06, 0x2f}, {0x08, 0x29, 0x2a, 0x2b, 0x2c, 0x0d, 0x06, 0x2f}, {0x08, 0x29, 0x2a, 0x2b, 0x2c, 0x0d, 0x06, 0x2f}, {0x28, 0x29, 0x2a, 0x2b, 0x2c, 0x0d, 0x0e, 0x2f}, {0x28, 0x29, 0x2a, 0x2b, 0x2c, 0x0d, 0x0e, 0x2f}, {0x28, 0x29, 0x0a, 0x2b, 0x2c, 0x0d, 0x2e, 0x2f}, {0x28, 0x29, 0x0a, 0x2b, 0x2c, 0x0d, 0x2e, 0x2f}, {0x28, 0x29, 0x0a, 0x2b, 0x2c, 0x2d, 0x2e, 0x2f}, {0x28, 0x09, 0x0a, 0x2b, 0x2c, 0x2d, 0x2e, 0x2f}, {0x28, 0x09, 0x0a, 0x2b, 0x2c, 0x25, 0x2e, 0x0f}, {0x28, 0x09, 0x0a, 0x2b, 0x2c, 0x25, 0x2e, 0x0f}, {0x28, 0x09, 0x0a, 0x2b, 0x2c, 0x25, 0x2e, 0x0f}, {0x28, 0x09, 0x02, 0x2b, 0x0c, 0x25, 0x2e, 0x0f}, {0x20, 0x09, 0x02, 0x2b, 0x1c, 0x25, 0x2e, 0x0f}, {0x20, 0x09, 0x02, 0x2b, 0x1c, 0x25, 0x2e, 0x0f}, {0x20, 0x09, 0x02, 0x2b, 0x1c, 0x25, 0x2e, 0x0f}, {0x20, 0x09, 0x02, 0x3b, 0x1c, 0x25, 0x2e, 0x07}, {0x20, 0x19, 0x02, 0x3b, 0x1c, 0x25, 0x2e, 0x07}, {0x20, 0x19, 0x02, 0x3b, 0x1c, 0x25, 0x2e, 0x07}, {0x20, 0x19, 0x02, 0x3b, 0x1c, 0x25, 0x2e, 0x07}, {0x20, 0x19, 0x02, 0x3b, 0x1c, 0x25, 0x3e, 0x07}, {0x20, 0x19, 0x02, 0x3b, 0x1c, 0x25, 0x3e, 0x07}, {0x20, 0x19, 0x02, 0x3b, 0x1c, 0x25, 0x3e, 0x07}, {0x20, 0x19, 0x02, 0x3b, 0x1c, 0x25, 0x3e, 0x07} }, { {0x18, 0x21, 0x3a, 0x03, 0x34, 0x15, 0x06, 0x3f}, {0x18, 0x21, 0x3a, 0x03, 0x34, 0x15, 0x06, 0x3f}, {0x18, 0x21, 0x3a, 0x03, 0x34, 0x15, 0x06, 0x3f}, {0x18, 0x21, 0x3a, 0x03, 0x34, 0x15, 0x06, 0x3f}, {0x18, 0x21, 0x3a, 0x03, 0x34, 0x15, 0x06, 0x3f}, {0x18, 0x21, 0x3a, 0x03, 0x34, 0x0d, 0x06, 0x3f}, {0x18, 0x21, 0x3a, 0x03, 0x34, 0x0d, 0x06, 0x3f}, {0x18, 0x21, 0x3a, 0x03, 0x34, 0x0d, 0x06, 0x3f}, {0x08, 0x21, 0x3a, 0x03, 0x34, 0x0d, 0x06, 0x3f}, {0x08, 0x21, 0x2a, 0x03, 0x2c, 0x0d, 0x06, 0x3f}, {0x08, 0x21, 0x2a, 0x03, 0x2c, 0x0d, 0x06, 0x3f}, {0x08, 0x21, 0x2a, 0x03, 0x2c, 0x0d, 0x06, 0x3f}, {0x08, 0x29, 0x2a, 0x23, 0x2c, 0x0d, 0x06, 0x3f}, {0x08, 0x29, 0x2a, 0x2b, 0x2c, 0x0d, 0x06, 0x2f}, {0x08, 0x29, 0x2a, 0x2b, 0x2c, 0x0d, 0x06, 0x2f}, {0x08, 0x29, 0x2a, 0x2b, 0x2c, 0x0d, 0x06, 0x2f}, {0x28, 0x29, 0x0a, 0x2b, 0x2c, 0x0d, 0x2e, 0x2f}, {0x28, 0x29, 0x0a, 0x2b, 0x2c, 0x0d, 0x2e, 0x2f}, {0x28, 0x29, 0x0a, 0x2b, 0x2c, 0x0d, 0x2e, 0x2f}, {0x28, 0x29, 0x0a, 0x2b, 0x2c, 0x0d, 0x2e, 0x2f}, {0x28, 0x29, 0x0a, 0x2b, 0x2c, 0x25, 0x2e, 0x0f}, {0x28, 0x09, 0x0a, 0x2b, 0x2c, 0x25, 0x2e, 0x0f}, {0x28, 0x09, 0x0a, 0x2b, 0x2c, 0x25, 0x2e, 0x0f}, {0x28, 0x09, 0x0a, 0x2b, 0x2c, 0x25, 0x2e, 0x0f}, {0x20, 0x09, 0x0a, 0x2b, 0x3c, 0x25, 0x2e, 0x0f}, {0x20, 0x09, 0x02, 0x2b, 0x1c, 0x25, 0x2e, 0x0f}, {0x20, 0x09, 0x02, 0x2b, 0x1c, 0x25, 0x2e, 0x0f}, {0x20, 0x09, 0x02, 0x2b, 0x1c, 0x25, 0x2e, 0x0f}, {0x20, 0x19, 0x02, 0x33, 0x1c, 0x25, 0x2e, 0x0f}, {0x20, 0x19, 0x02, 0x33, 0x1c, 0x25, 0x2e, 0x07}, {0x20, 0x19, 0x02, 0x33, 0x1c, 0x25, 0x2e, 0x07}, {0x20, 0x19, 0x02, 0x33, 0x1c, 0x25, 0x2e, 0x07}, {0x20, 0x19, 0x02, 0x33, 0x1c, 0x25, 0x36, 0x07}, {0x20, 0x19, 0x02, 0x33, 0x1c, 0x25, 0x36, 0x07}, {0x20, 0x19, 0x02, 0x33, 0x1c, 0x25, 0x36, 0x07}, {0x20, 0x19, 0x02, 0x33, 0x1c, 0x25, 0x36, 0x07} }, { {0x18, 0x21, 0x3a, 0x03, 0x34, 0x15, 0x06, 0x3f}, {0x18, 0x21, 0x3a, 0x03, 0x34, 0x15, 0x06, 0x3f}, {0x18, 0x21, 0x3a, 0x03, 0x34, 0x15, 0x06, 0x3f}, {0x18, 0x21, 0x3a, 0x03, 0x34, 0x15, 0x06, 0x3f}, {0x18, 0x21, 0x3a, 0x03, 0x34, 0x15, 0x06, 0x3f}, {0x18, 0x21, 0x3a, 0x03, 0x34, 0x15, 0x06, 0x3f}, {0x18, 0x21, 0x3a, 0x03, 0x34, 0x0d, 0x06, 0x3f}, {0x08, 0x21, 0x3a, 0x03, 0x34, 0x0d, 0x06, 0x3f}, {0x08, 0x21, 0x3a, 0x03, 0x34, 0x0d, 0x06, 0x3f}, {0x08, 0x21, 0x3a, 0x03, 0x34, 0x0d, 0x06, 0x3f}, {0x08, 0x21, 0x2a, 0x03, 0x2c, 0x0d, 0x06, 0x3f}, {0x08, 0x29, 0x2a, 0x23, 0x2c, 0x0d, 0x06, 0x3f}, {0x08, 0x29, 0x2a, 0x23, 0x2c, 0x0d, 0x06, 0x3f}, {0x08, 0x29, 0x2a, 0x23, 0x2c, 0x0d, 0x06, 0x3f}, {0x08, 0x29, 0x2a, 0x2b, 0x2c, 0x0d, 0x06, 0x2f}, {0x08, 0x29, 0x0a, 0x2b, 0x2c, 0x0d, 0x26, 0x2f}, {0x08, 0x29, 0x0a, 0x2b, 0x2c, 0x0d, 0x26, 0x2f}, {0x28, 0x29, 0x0a, 0x2b, 0x2c, 0x0d, 0x2e, 0x2f}, {0x28, 0x29, 0x0a, 0x2b, 0x2c, 0x0d, 0x2e, 0x2f}, {0x28, 0x29, 0x0a, 0x2b, 0x2c, 0x05, 0x2e, 0x0f}, {0x28, 0x29, 0x0a, 0x2b, 0x2c, 0x05, 0x2e, 0x0f}, {0x28, 0x29, 0x0a, 0x2b, 0x2c, 0x25, 0x2e, 0x0f}, {0x28, 0x09, 0x0a, 0x2b, 0x2c, 0x25, 0x2e, 0x0f}, {0x20, 0x09, 0x0a, 0x2b, 0x3c, 0x25, 0x2e, 0x0f}, {0x20, 0x09, 0x0a, 0x2b, 0x3c, 0x25, 0x2e, 0x0f}, {0x20, 0x09, 0x0a, 0x2b, 0x3c, 0x25, 0x2e, 0x0f}, {0x20, 0x09, 0x02, 0x2b, 0x1c, 0x25, 0x2e, 0x0f}, {0x20, 0x19, 0x02, 0x33, 0x1c, 0x25, 0x2e, 0x0f}, {0x20, 0x19, 0x02, 0x33, 0x1c, 0x25, 0x2e, 0x0f}, {0x20, 0x19, 0x02, 0x33, 0x1c, 0x25, 0x2e, 0x0f}, {0x20, 0x19, 0x02, 0x33, 0x1c, 0x25, 0x2e, 0x07}, {0x20, 0x19, 0x02, 0x33, 0x1c, 0x25, 0x36, 0x07}, {0x20, 0x19, 0x02, 0x33, 0x1c, 0x25, 0x36, 0x07}, {0x20, 0x19, 0x02, 0x33, 0x1c, 0x25, 0x36, 0x07}, {0x20, 0x19, 0x02, 0x33, 0x1c, 0x25, 0x36, 0x07}, {0x20, 0x19, 0x02, 0x33, 0x1c, 0x25, 0x36, 0x07} }, { {0x18, 0x21, 0x3a, 0x03, 0x34, 0x15, 0x06, 0x3f}, {0x18, 0x21, 0x3a, 0x03, 0x34, 0x15, 0x06, 0x3f}, {0x18, 0x21, 0x3a, 0x03, 0x34, 0x15, 0x06, 0x3f}, {0x18, 0x21, 0x3a, 0x03, 0x34, 0x15, 0x06, 0x3f}, {0x18, 0x21, 0x3a, 0x03, 0x34, 0x15, 0x06, 0x3f}, {0x18, 0x21, 0x3a, 0x03, 0x34, 0x15, 0x06, 0x3f}, {0x08, 0x21, 0x3a, 0x03, 0x34, 0x15, 0x06, 0x3f}, {0x08, 0x21, 0x3a, 0x03, 0x34, 0x0d, 0x06, 0x3f}, {0x08, 0x21, 0x3a, 0x03, 0x34, 0x0d, 0x06, 0x3f}, {0x08, 0x21, 0x3a, 0x03, 0x34, 0x0d, 0x06, 0x3f}, {0x08, 0x29, 0x3a, 0x23, 0x34, 0x0d, 0x06, 0x3f}, {0x08, 0x29, 0x2a, 0x23, 0x2c, 0x0d, 0x06, 0x3f}, {0x08, 0x29, 0x2a, 0x23, 0x2c, 0x0d, 0x06, 0x3f}, {0x08, 0x29, 0x2a, 0x23, 0x2c, 0x0d, 0x06, 0x3f}, {0x08, 0x29, 0x0a, 0x2b, 0x2c, 0x0d, 0x26, 0x2f}, {0x08, 0x29, 0x0a, 0x2b, 0x2c, 0x0d, 0x26, 0x2f}, {0x08, 0x29, 0x0a, 0x2b, 0x2c, 0x0d, 0x26, 0x2f}, {0x08, 0x29, 0x0a, 0x2b, 0x2c, 0x0d, 0x26, 0x2f}, {0x28, 0x29, 0x0a, 0x2b, 0x2c, 0x05, 0x2e, 0x0f}, {0x28, 0x29, 0x0a, 0x2b, 0x2c, 0x05, 0x2e, 0x0f}, {0x28, 0x29, 0x0a, 0x2b, 0x2c, 0x05, 0x2e, 0x0f}, {0x28, 0x29, 0x0a, 0x2b, 0x2c, 0x05, 0x2e, 0x0f}, {0x20, 0x29, 0x0a, 0x2b, 0x3c, 0x25, 0x2e, 0x0f}, {0x20, 0x09, 0x0a, 0x2b, 0x3c, 0x25, 0x2e, 0x0f}, {0x20, 0x09, 0x0a, 0x2b, 0x3c, 0x25, 0x2e, 0x0f}, {0x20, 0x09, 0x0a, 0x2b, 0x3c, 0x25, 0x2e, 0x0f}, {0x20, 0x19, 0x0a, 0x33, 0x3c, 0x25, 0x2e, 0x0f}, {0x20, 0x19, 0x02, 0x33, 0x1c, 0x25, 0x2e, 0x0f}, {0x20, 0x19, 0x02, 0x33, 0x1c, 0x25, 0x2e, 0x0f}, {0x20, 0x19, 0x02, 0x33, 0x1c, 0x25, 0x2e, 0x0f}, {0x20, 0x19, 0x02, 0x33, 0x1c, 0x25, 0x36, 0x0f}, {0x20, 0x19, 0x02, 0x33, 0x1c, 0x25, 0x36, 0x07}, {0x20, 0x19, 0x02, 0x33, 0x1c, 0x25, 0x36, 0x07}, {0x20, 0x19, 0x02, 0x33, 0x1c, 0x25, 0x36, 0x07}, {0x20, 0x19, 0x02, 0x33, 0x1c, 0x25, 0x36, 0x07}, {0x20, 0x19, 0x02, 0x33, 0x1c, 0x25, 0x36, 0x07} }, { {0x18, 0x21, 0x3a, 0x03, 0x34, 0x15, 0x06, 0x3f}, {0x18, 0x21, 0x3a, 0x03, 0x34, 0x15, 0x06, 0x3f}, {0x18, 0x21, 0x3a, 0x03, 0x34, 0x15, 0x06, 0x3f}, {0x18, 0x21, 0x3a, 0x03, 0x34, 0x15, 0x06, 0x3f}, {0x18, 0x21, 0x3a, 0x03, 0x34, 0x15, 0x06, 0x3f}, {0x08, 0x21, 0x3a, 0x03, 0x34, 0x15, 0x06, 0x3f}, {0x08, 0x21, 0x3a, 0x03, 0x34, 0x15, 0x06, 0x3f}, {0x08, 0x21, 0x3a, 0x03, 0x34, 0x15, 0x06, 0x3f}, {0x08, 0x21, 0x3a, 0x03, 0x34, 0x0d, 0x06, 0x3f}, {0x08, 0x29, 0x3a, 0x23, 0x34, 0x0d, 0x06, 0x3f}, {0x08, 0x29, 0x3a, 0x23, 0x34, 0x0d, 0x06, 0x3f}, {0x08, 0x29, 0x3a, 0x23, 0x34, 0x0d, 0x06, 0x3f}, {0x08, 0x29, 0x2a, 0x23, 0x2c, 0x0d, 0x06, 0x3f}, {0x08, 0x29, 0x0a, 0x23, 0x2c, 0x0d, 0x26, 0x3f}, {0x08, 0x29, 0x0a, 0x23, 0x2c, 0x0d, 0x26, 0x3f}, {0x08, 0x29, 0x0a, 0x2b, 0x2c, 0x0d, 0x26, 0x2f}, {0x08, 0x29, 0x0a, 0x2b, 0x2c, 0x0d, 0x26, 0x2f}, {0x08, 0x29, 0x0a, 0x2b, 0x2c, 0x05, 0x26, 0x0f}, {0x08, 0x29, 0x0a, 0x2b, 0x2c, 0x05, 0x26, 0x0f}, {0x28, 0x29, 0x0a, 0x2b, 0x2c, 0x05, 0x2e, 0x0f}, {0x28, 0x29, 0x0a, 0x2b, 0x2c, 0x05, 0x2e, 0x0f}, {0x20, 0x29, 0x0a, 0x2b, 0x3c, 0x05, 0x2e, 0x0f}, {0x20, 0x29, 0x0a, 0x2b, 0x3c, 0x05, 0x2e, 0x0f}, {0x20, 0x29, 0x0a, 0x2b, 0x3c, 0x25, 0x2e, 0x0f}, {0x20, 0x09, 0x0a, 0x2b, 0x3c, 0x25, 0x2e, 0x0f}, {0x20, 0x19, 0x0a, 0x33, 0x3c, 0x25, 0x2e, 0x0f}, {0x20, 0x19, 0x0a, 0x33, 0x3c, 0x25, 0x2e, 0x0f}, {0x20, 0x19, 0x0a, 0x33, 0x3c, 0x25, 0x2e, 0x0f}, {0x20, 0x19, 0x02, 0x33, 0x1c, 0x25, 0x2e, 0x0f}, {0x20, 0x19, 0x02, 0x33, 0x1c, 0x25, 0x36, 0x0f}, {0x20, 0x19, 0x02, 0x33, 0x1c, 0x25, 0x36, 0x0f}, {0x20, 0x19, 0x02, 0x33, 0x1c, 0x25, 0x36, 0x0f}, {0x20, 0x19, 0x02, 0x33, 0x1c, 0x25, 0x36, 0x07}, {0x20, 0x19, 0x02, 0x33, 0x1c, 0x25, 0x36, 0x07}, {0x20, 0x19, 0x02, 0x33, 0x1c, 0x25, 0x36, 0x07}, {0x20, 0x19, 0x02, 0x33, 0x1c, 0x25, 0x36, 0x07} }, { {0x10, 0x31, 0x3a, 0x03, 0x34, 0x15, 0x06, 0x3f}, {0x10, 0x31, 0x3a, 0x03, 0x34, 0x15, 0x06, 0x3f}, {0x10, 0x31, 0x3a, 0x03, 0x34, 0x15, 0x06, 0x3f}, {0x10, 0x31, 0x3a, 0x03, 0x34, 0x15, 0x06, 0x3f}, {0x10, 0x31, 0x3a, 0x03, 0x34, 0x15, 0x06, 0x3f}, {0x08, 0x31, 0x3a, 0x03, 0x34, 0x15, 0x06, 0x3f}, {0x08, 0x31, 0x3a, 0x03, 0x34, 0x15, 0x06, 0x3f}, {0x08, 0x31, 0x3a, 0x03, 0x34, 0x15, 0x06, 0x3f}, {0x08, 0x31, 0x3a, 0x23, 0x34, 0x15, 0x06, 0x3f}, {0x08, 0x29, 0x3a, 0x23, 0x34, 0x0d, 0x06, 0x3f}, {0x08, 0x29, 0x3a, 0x23, 0x34, 0x0d, 0x06, 0x3f}, {0x08, 0x29, 0x3a, 0x23, 0x34, 0x0d, 0x06, 0x3f}, {0x08, 0x29, 0x1a, 0x23, 0x34, 0x0d, 0x26, 0x3f}, {0x08, 0x29, 0x0a, 0x23, 0x2c, 0x0d, 0x26, 0x3f}, {0x08, 0x29, 0x0a, 0x23, 0x2c, 0x0d, 0x26, 0x3f}, {0x08, 0x29, 0x0a, 0x23, 0x2c, 0x0d, 0x26, 0x3f}, {0x08, 0x29, 0x0a, 0x2b, 0x2c, 0x05, 0x26, 0x0f}, {0x08, 0x29, 0x0a, 0x2b, 0x2c, 0x05, 0x26, 0x0f}, {0x08, 0x29, 0x0a, 0x2b, 0x2c, 0x05, 0x26, 0x0f}, {0x08, 0x29, 0x0a, 0x2b, 0x2c, 0x05, 0x26, 0x0f}, {0x20, 0x29, 0x0a, 0x2b, 0x3c, 0x05, 0x2e, 0x0f}, {0x20, 0x29, 0x0a, 0x2b, 0x3c, 0x05, 0x2e, 0x0f}, {0x20, 0x29, 0x0a, 0x2b, 0x3c, 0x05, 0x2e, 0x0f}, {0x20, 0x29, 0x0a, 0x2b, 0x3c, 0x05, 0x2e, 0x0f}, {0x20, 0x39, 0x0a, 0x33, 0x3c, 0x25, 0x2e, 0x0f}, {0x20, 0x19, 0x0a, 0x33, 0x3c, 0x25, 0x2e, 0x0f}, {0x20, 0x19, 0x0a, 0x33, 0x3c, 0x25, 0x2e, 0x0f}, {0x20, 0x19, 0x0a, 0x33, 0x3c, 0x25, 0x2e, 0x0f}, {0x20, 0x19, 0x12, 0x33, 0x3c, 0x25, 0x36, 0x0f}, {0x20, 0x19, 0x12, 0x33, 0x1c, 0x25, 0x36, 0x0f}, {0x20, 0x19, 0x12, 0x33, 0x1c, 0x25, 0x36, 0x0f}, {0x20, 0x19, 0x12, 0x33, 0x1c, 0x25, 0x36, 0x0f}, {0x20, 0x19, 0x12, 0x33, 0x1c, 0x25, 0x36, 0x17}, {0x20, 0x19, 0x12, 0x33, 0x1c, 0x25, 0x36, 0x17}, {0x20, 0x19, 0x12, 0x33, 0x1c, 0x25, 0x36, 0x17}, {0x20, 0x19, 0x12, 0x33, 0x1c, 0x25, 0x36, 0x17} }, { {0x10, 0x31, 0x3a, 0x03, 0x34, 0x15, 0x06, 0x3f}, {0x10, 0x31, 0x3a, 0x03, 0x34, 0x15, 0x06, 0x3f}, {0x10, 0x31, 0x3a, 0x03, 0x34, 0x15, 0x06, 0x3f}, {0x10, 0x31, 0x3a, 0x03, 0x34, 0x15, 0x06, 0x3f}, {0x10, 0x31, 0x3a, 0x03, 0x34, 0x15, 0x06, 0x3f}, {0x10, 0x31, 0x3a, 0x03, 0x34, 0x15, 0x06, 0x3f}, {0x08, 0x31, 0x3a, 0x03, 0x34, 0x15, 0x06, 0x3f}, {0x08, 0x31, 0x3a, 0x23, 0x34, 0x15, 0x06, 0x3f}, {0x08, 0x31, 0x3a, 0x23, 0x34, 0x15, 0x06, 0x3f}, {0x08, 0x31, 0x3a, 0x23, 0x34, 0x15, 0x06, 0x3f}, {0x08, 0x29, 0x3a, 0x23, 0x34, 0x0d, 0x06, 0x3f}, {0x08, 0x29, 0x1a, 0x23, 0x34, 0x0d, 0x26, 0x3f}, {0x08, 0x29, 0x1a, 0x23, 0x34, 0x0d, 0x26, 0x3f}, {0x08, 0x29, 0x1a, 0x23, 0x34, 0x0d, 0x26, 0x3f}, {0x08, 0x29, 0x0a, 0x23, 0x2c, 0x0d, 0x26, 0x3f}, {0x08, 0x29, 0x0a, 0x23, 0x2c, 0x05, 0x26, 0x1f}, {0x08, 0x29, 0x0a, 0x23, 0x2c, 0x05, 0x26, 0x1f}, {0x08, 0x29, 0x0a, 0x2b, 0x2c, 0x05, 0x26, 0x0f}, {0x08, 0x29, 0x0a, 0x2b, 0x2c, 0x05, 0x26, 0x0f}, {0x00, 0x29, 0x0a, 0x2b, 0x3c, 0x05, 0x26, 0x0f}, {0x00, 0x29, 0x0a, 0x2b, 0x3c, 0x05, 0x26, 0x0f}, {0x20, 0x29, 0x0a, 0x2b, 0x3c, 0x05, 0x2e, 0x0f}, {0x20, 0x29, 0x0a, 0x2b, 0x3c, 0x05, 0x2e, 0x0f}, {0x20, 0x39, 0x0a, 0x33, 0x3c, 0x05, 0x2e, 0x0f}, {0x20, 0x39, 0x0a, 0x33, 0x3c, 0x05, 0x2e, 0x0f}, {0x20, 0x39, 0x0a, 0x33, 0x3c, 0x25, 0x2e, 0x0f}, {0x20, 0x19, 0x0a, 0x33, 0x3c, 0x25, 0x2e, 0x0f}, {0x20, 0x19, 0x12, 0x33, 0x3c, 0x25, 0x36, 0x0f}, {0x20, 0x19, 0x12, 0x33, 0x3c, 0x25, 0x36, 0x0f}, {0x20, 0x19, 0x12, 0x33, 0x3c, 0x25, 0x36, 0x0f}, {0x20, 0x19, 0x12, 0x33, 0x1c, 0x25, 0x36, 0x0f}, {0x20, 0x19, 0x12, 0x33, 0x1c, 0x25, 0x36, 0x17}, {0x20, 0x19, 0x12, 0x33, 0x1c, 0x25, 0x36, 0x17}, {0x20, 0x19, 0x12, 0x33, 0x1c, 0x25, 0x36, 0x17}, {0x20, 0x19, 0x12, 0x33, 0x1c, 0x25, 0x36, 0x17}, {0x20, 0x19, 0x12, 0x33, 0x1c, 0x25, 0x36, 0x17} }, { {0x10, 0x31, 0x3a, 0x03, 0x34, 0x15, 0x06, 0x3f}, {0x10, 0x31, 0x3a, 0x03, 0x34, 0x15, 0x06, 0x3f}, {0x10, 0x31, 0x3a, 0x03, 0x34, 0x15, 0x06, 0x3f}, {0x10, 0x31, 0x3a, 0x03, 0x34, 0x15, 0x06, 0x3f}, {0x10, 0x31, 0x3a, 0x03, 0x34, 0x15, 0x06, 0x3f}, {0x10, 0x31, 0x3a, 0x03, 0x34, 0x15, 0x06, 0x3f}, {0x10, 0x31, 0x3a, 0x23, 0x34, 0x15, 0x06, 0x3f}, {0x08, 0x31, 0x3a, 0x23, 0x34, 0x15, 0x06, 0x3f}, {0x08, 0x31, 0x3a, 0x23, 0x34, 0x15, 0x06, 0x3f}, {0x08, 0x31, 0x3a, 0x23, 0x34, 0x15, 0x06, 0x3f}, {0x08, 0x31, 0x1a, 0x23, 0x34, 0x15, 0x26, 0x3f}, {0x08, 0x29, 0x1a, 0x23, 0x34, 0x0d, 0x26, 0x3f}, {0x08, 0x29, 0x1a, 0x23, 0x34, 0x0d, 0x26, 0x3f}, {0x08, 0x29, 0x1a, 0x23, 0x34, 0x0d, 0x26, 0x3f}, {0x08, 0x29, 0x0a, 0x23, 0x2c, 0x05, 0x26, 0x1f}, {0x08, 0x29, 0x0a, 0x23, 0x2c, 0x05, 0x26, 0x1f}, {0x08, 0x29, 0x0a, 0x23, 0x2c, 0x05, 0x26, 0x1f}, {0x08, 0x29, 0x0a, 0x23, 0x2c, 0x05, 0x26, 0x1f}, {0x00, 0x29, 0x0a, 0x2b, 0x3c, 0x05, 0x26, 0x0f}, {0x00, 0x29, 0x0a, 0x2b, 0x3c, 0x05, 0x26, 0x0f}, {0x00, 0x29, 0x0a, 0x2b, 0x3c, 0x05, 0x26, 0x0f}, {0x00, 0x29, 0x0a, 0x2b, 0x3c, 0x05, 0x26, 0x0f}, {0x20, 0x39, 0x0a, 0x33, 0x3c, 0x05, 0x2e, 0x0f}, {0x20, 0x39, 0x0a, 0x33, 0x3c, 0x05, 0x2e, 0x0f}, {0x20, 0x39, 0x0a, 0x33, 0x3c, 0x05, 0x2e, 0x0f}, {0x20, 0x39, 0x0a, 0x33, 0x3c, 0x05, 0x2e, 0x0f}, {0x20, 0x39, 0x12, 0x33, 0x3c, 0x25, 0x36, 0x0f}, {0x20, 0x19, 0x12, 0x33, 0x3c, 0x25, 0x36, 0x0f}, {0x20, 0x19, 0x12, 0x33, 0x3c, 0x25, 0x36, 0x0f}, {0x20, 0x19, 0x12, 0x33, 0x3c, 0x25, 0x36, 0x0f}, {0x20, 0x19, 0x12, 0x33, 0x3c, 0x25, 0x36, 0x17}, {0x20, 0x19, 0x12, 0x33, 0x1c, 0x25, 0x36, 0x17}, {0x20, 0x19, 0x12, 0x33, 0x1c, 0x25, 0x36, 0x17}, {0x20, 0x19, 0x12, 0x33, 0x1c, 0x25, 0x36, 0x17}, {0x20, 0x19, 0x12, 0x33, 0x1c, 0x25, 0x36, 0x17}, {0x20, 0x19, 0x12, 0x33, 0x1c, 0x25, 0x36, 0x17} }, { {0x10, 0x31, 0x3a, 0x03, 0x34, 0x15, 0x06, 0x3f}, {0x10, 0x31, 0x3a, 0x03, 0x34, 0x15, 0x06, 0x3f}, {0x10, 0x31, 0x3a, 0x03, 0x34, 0x15, 0x06, 0x3f}, {0x10, 0x31, 0x3a, 0x03, 0x34, 0x15, 0x06, 0x3f}, {0x10, 0x31, 0x3a, 0x03, 0x34, 0x15, 0x06, 0x3f}, {0x10, 0x31, 0x3a, 0x23, 0x34, 0x15, 0x06, 0x3f}, {0x10, 0x31, 0x3a, 0x23, 0x34, 0x15, 0x06, 0x3f}, {0x10, 0x31, 0x3a, 0x23, 0x34, 0x15, 0x06, 0x3f}, {0x08, 0x31, 0x3a, 0x23, 0x34, 0x15, 0x06, 0x3f}, {0x08, 0x31, 0x1a, 0x23, 0x34, 0x15, 0x26, 0x3f}, {0x08, 0x31, 0x1a, 0x23, 0x34, 0x15, 0x26, 0x3f}, {0x08, 0x31, 0x1a, 0x23, 0x34, 0x15, 0x26, 0x3f}, {0x08, 0x29, 0x1a, 0x23, 0x34, 0x0d, 0x26, 0x3f}, {0x08, 0x29, 0x1a, 0x23, 0x34, 0x05, 0x26, 0x1f}, {0x08, 0x29, 0x1a, 0x23, 0x34, 0x05, 0x26, 0x1f}, {0x08, 0x29, 0x0a, 0x23, 0x2c, 0x05, 0x26, 0x1f}, {0x08, 0x29, 0x0a, 0x23, 0x2c, 0x05, 0x26, 0x1f}, {0x00, 0x29, 0x0a, 0x23, 0x3c, 0x05, 0x26, 0x1f}, {0x00, 0x29, 0x0a, 0x23, 0x3c, 0x05, 0x26, 0x1f}, {0x00, 0x29, 0x0a, 0x2b, 0x3c, 0x05, 0x26, 0x0f}, {0x00, 0x29, 0x0a, 0x2b, 0x3c, 0x05, 0x26, 0x0f}, {0x00, 0x39, 0x0a, 0x33, 0x3c, 0x05, 0x26, 0x0f}, {0x00, 0x39, 0x0a, 0x33, 0x3c, 0x05, 0x26, 0x0f}, {0x20, 0x39, 0x0a, 0x33, 0x3c, 0x05, 0x2e, 0x0f}, {0x20, 0x39, 0x0a, 0x33, 0x3c, 0x05, 0x2e, 0x0f}, {0x20, 0x39, 0x12, 0x33, 0x3c, 0x05, 0x36, 0x0f}, {0x20, 0x39, 0x12, 0x33, 0x3c, 0x05, 0x36, 0x0f}, {0x20, 0x39, 0x12, 0x33, 0x3c, 0x25, 0x36, 0x0f}, {0x20, 0x19, 0x12, 0x33, 0x3c, 0x25, 0x36, 0x0f}, {0x20, 0x19, 0x12, 0x33, 0x3c, 0x25, 0x36, 0x17}, {0x20, 0x19, 0x12, 0x33, 0x3c, 0x25, 0x36, 0x17}, {0x20, 0x19, 0x12, 0x33, 0x3c, 0x25, 0x36, 0x17}, {0x20, 0x19, 0x12, 0x33, 0x1c, 0x25, 0x36, 0x17}, {0x20, 0x19, 0x12, 0x33, 0x1c, 0x25, 0x36, 0x17}, {0x20, 0x19, 0x12, 0x33, 0x1c, 0x25, 0x36, 0x17}, {0x20, 0x19, 0x12, 0x33, 0x1c, 0x25, 0x36, 0x17} }, { {0x10, 0x31, 0x3a, 0x03, 0x34, 0x15, 0x06, 0x3f}, {0x10, 0x31, 0x3a, 0x03, 0x34, 0x15, 0x06, 0x3f}, {0x10, 0x31, 0x3a, 0x03, 0x34, 0x15, 0x06, 0x3f}, {0x10, 0x31, 0x3a, 0x03, 0x34, 0x15, 0x06, 0x3f}, {0x10, 0x31, 0x3a, 0x23, 0x34, 0x15, 0x06, 0x3f}, {0x10, 0x31, 0x3a, 0x23, 0x34, 0x15, 0x06, 0x3f}, {0x10, 0x31, 0x3a, 0x23, 0x34, 0x15, 0x06, 0x3f}, {0x10, 0x31, 0x3a, 0x23, 0x34, 0x15, 0x06, 0x3f}, {0x10, 0x31, 0x1a, 0x23, 0x34, 0x15, 0x26, 0x3f}, {0x08, 0x31, 0x1a, 0x23, 0x34, 0x15, 0x26, 0x3f}, {0x08, 0x31, 0x1a, 0x23, 0x34, 0x15, 0x26, 0x3f}, {0x08, 0x31, 0x1a, 0x23, 0x34, 0x15, 0x26, 0x3f}, {0x08, 0x31, 0x1a, 0x23, 0x34, 0x05, 0x26, 0x1f}, {0x08, 0x29, 0x1a, 0x23, 0x34, 0x05, 0x26, 0x1f}, {0x08, 0x29, 0x1a, 0x23, 0x34, 0x05, 0x26, 0x1f}, {0x08, 0x29, 0x1a, 0x23, 0x34, 0x05, 0x26, 0x1f}, {0x00, 0x29, 0x0a, 0x23, 0x3c, 0x05, 0x26, 0x1f}, {0x00, 0x29, 0x0a, 0x23, 0x3c, 0x05, 0x26, 0x1f}, {0x00, 0x29, 0x0a, 0x23, 0x3c, 0x05, 0x26, 0x1f}, {0x00, 0x29, 0x0a, 0x23, 0x3c, 0x05, 0x26, 0x1f}, {0x00, 0x39, 0x0a, 0x33, 0x3c, 0x05, 0x26, 0x0f}, {0x00, 0x39, 0x0a, 0x33, 0x3c, 0x05, 0x26, 0x0f}, {0x00, 0x39, 0x0a, 0x33, 0x3c, 0x05, 0x26, 0x0f}, {0x00, 0x39, 0x0a, 0x33, 0x3c, 0x05, 0x26, 0x0f}, {0x20, 0x39, 0x12, 0x33, 0x3c, 0x05, 0x36, 0x0f}, {0x20, 0x39, 0x12, 0x33, 0x3c, 0x05, 0x36, 0x0f}, {0x20, 0x39, 0x12, 0x33, 0x3c, 0x05, 0x36, 0x0f}, {0x20, 0x39, 0x12, 0x33, 0x3c, 0x05, 0x36, 0x0f}, {0x20, 0x39, 0x12, 0x33, 0x3c, 0x25, 0x36, 0x17}, {0x20, 0x19, 0x12, 0x33, 0x3c, 0x25, 0x36, 0x17}, {0x20, 0x19, 0x12, 0x33, 0x3c, 0x25, 0x36, 0x17}, {0x20, 0x19, 0x12, 0x33, 0x3c, 0x25, 0x36, 0x17}, {0x20, 0x19, 0x12, 0x33, 0x3c, 0x25, 0x36, 0x17}, {0x20, 0x19, 0x12, 0x33, 0x1c, 0x25, 0x36, 0x17}, {0x20, 0x19, 0x12, 0x33, 0x1c, 0x25, 0x36, 0x17}, {0x20, 0x19, 0x12, 0x33, 0x1c, 0x25, 0x36, 0x17} }, { {0x10, 0x31, 0x3a, 0x03, 0x34, 0x15, 0x06, 0x3f}, {0x10, 0x31, 0x3a, 0x03, 0x34, 0x15, 0x06, 0x3f}, {0x10, 0x31, 0x3a, 0x03, 0x34, 0x15, 0x06, 0x3f}, {0x10, 0x31, 0x3a, 0x23, 0x34, 0x15, 0x06, 0x3f}, {0x10, 0x31, 0x3a, 0x23, 0x34, 0x15, 0x06, 0x3f}, {0x10, 0x31, 0x3a, 0x23, 0x34, 0x15, 0x06, 0x3f}, {0x10, 0x31, 0x3a, 0x23, 0x34, 0x15, 0x06, 0x3f}, {0x10, 0x31, 0x1a, 0x23, 0x34, 0x15, 0x26, 0x3f}, {0x10, 0x31, 0x1a, 0x23, 0x34, 0x15, 0x26, 0x3f}, {0x10, 0x31, 0x1a, 0x23, 0x34, 0x15, 0x26, 0x3f}, {0x08, 0x31, 0x1a, 0x23, 0x34, 0x15, 0x26, 0x3f}, {0x08, 0x31, 0x1a, 0x23, 0x34, 0x15, 0x26, 0x1f}, {0x08, 0x31, 0x1a, 0x23, 0x34, 0x05, 0x26, 0x1f}, {0x08, 0x31, 0x1a, 0x23, 0x34, 0x05, 0x26, 0x1f}, {0x08, 0x29, 0x1a, 0x23, 0x34, 0x05, 0x26, 0x1f}, {0x00, 0x29, 0x1a, 0x23, 0x34, 0x05, 0x26, 0x1f}, {0x00, 0x29, 0x1a, 0x23, 0x3c, 0x05, 0x26, 0x1f}, {0x00, 0x29, 0x0a, 0x23, 0x3c, 0x05, 0x26, 0x1f}, {0x00, 0x29, 0x0a, 0x23, 0x3c, 0x05, 0x26, 0x1f}, {0x00, 0x39, 0x0a, 0x23, 0x3c, 0x05, 0x26, 0x1f}, {0x00, 0x39, 0x0a, 0x33, 0x3c, 0x05, 0x26, 0x1f}, {0x00, 0x39, 0x0a, 0x33, 0x3c, 0x05, 0x26, 0x0f}, {0x00, 0x39, 0x0a, 0x33, 0x3c, 0x05, 0x26, 0x0f}, {0x00, 0x39, 0x12, 0x33, 0x3c, 0x05, 0x26, 0x0f}, {0x00, 0x39, 0x12, 0x33, 0x3c, 0x05, 0x36, 0x0f}, {0x20, 0x39, 0x12, 0x33, 0x3c, 0x05, 0x36, 0x0f}, {0x20, 0x39, 0x12, 0x33, 0x3c, 0x05, 0x36, 0x0f}, {0x20, 0x39, 0x12, 0x33, 0x3c, 0x05, 0x36, 0x17}, {0x20, 0x39, 0x12, 0x33, 0x3c, 0x05, 0x36, 0x17}, {0x20, 0x39, 0x12, 0x33, 0x3c, 0x25, 0x36, 0x17}, {0x20, 0x19, 0x12, 0x33, 0x3c, 0x25, 0x36, 0x17}, {0x20, 0x19, 0x12, 0x33, 0x3c, 0x25, 0x36, 0x17}, {0x20, 0x19, 0x12, 0x33, 0x3c, 0x25, 0x36, 0x17}, {0x20, 0x19, 0x12, 0x33, 0x3c, 0x25, 0x36, 0x17}, {0x20, 0x19, 0x12, 0x33, 0x1c, 0x25, 0x36, 0x17}, {0x20, 0x19, 0x12, 0x33, 0x1c, 0x25, 0x36, 0x17} }, { {0x10, 0x31, 0x3a, 0x03, 0x34, 0x15, 0x06, 0x3f}, {0x10, 0x31, 0x3a, 0x03, 0x34, 0x15, 0x06, 0x3f}, {0x10, 0x31, 0x3a, 0x23, 0x34, 0x15, 0x06, 0x3f}, {0x10, 0x31, 0x3a, 0x23, 0x34, 0x15, 0x06, 0x3f}, {0x10, 0x31, 0x3a, 0x23, 0x34, 0x15, 0x06, 0x3f}, {0x10, 0x31, 0x3a, 0x23, 0x34, 0x15, 0x06, 0x3f}, {0x10, 0x31, 0x1a, 0x23, 0x34, 0x15, 0x26, 0x3f}, {0x10, 0x31, 0x1a, 0x23, 0x34, 0x15, 0x26, 0x3f}, {0x10, 0x31, 0x1a, 0x23, 0x34, 0x15, 0x26, 0x3f}, {0x10, 0x31, 0x1a, 0x23, 0x34, 0x15, 0x26, 0x3f}, {0x10, 0x31, 0x1a, 0x23, 0x34, 0x15, 0x26, 0x1f}, {0x08, 0x31, 0x1a, 0x23, 0x34, 0x15, 0x26, 0x1f}, {0x08, 0x31, 0x1a, 0x23, 0x34, 0x05, 0x26, 0x1f}, {0x08, 0x31, 0x1a, 0x23, 0x34, 0x05, 0x26, 0x1f}, {0x00, 0x29, 0x1a, 0x23, 0x34, 0x05, 0x26, 0x1f}, {0x00, 0x29, 0x1a, 0x23, 0x34, 0x05, 0x26, 0x1f}, {0x00, 0x29, 0x1a, 0x23, 0x3c, 0x05, 0x26, 0x1f}, {0x00, 0x29, 0x1a, 0x23, 0x3c, 0x05, 0x26, 0x1f}, {0x00, 0x39, 0x0a, 0x23, 0x3c, 0x05, 0x26, 0x1f}, {0x00, 0x39, 0x0a, 0x23, 0x3c, 0x05, 0x26, 0x1f}, {0x00, 0x39, 0x0a, 0x33, 0x3c, 0x05, 0x26, 0x1f}, {0x00, 0x39, 0x0a, 0x33, 0x3c, 0x05, 0x26, 0x1f}, {0x00, 0x39, 0x12, 0x33, 0x3c, 0x05, 0x26, 0x1f}, {0x00, 0x39, 0x12, 0x33, 0x3c, 0x05, 0x26, 0x0f}, {0x00, 0x39, 0x12, 0x33, 0x3c, 0x05, 0x36, 0x0f}, {0x00, 0x39, 0x12, 0x33, 0x3c, 0x05, 0x36, 0x0f}, {0x20, 0x39, 0x12, 0x33, 0x3c, 0x05, 0x36, 0x17}, {0x20, 0x39, 0x12, 0x33, 0x3c, 0x05, 0x36, 0x17}, {0x20, 0x39, 0x12, 0x33, 0x3c, 0x05, 0x36, 0x17}, {0x20, 0x39, 0x12, 0x33, 0x3c, 0x05, 0x36, 0x17}, {0x20, 0x39, 0x12, 0x33, 0x3c, 0x25, 0x36, 0x17}, {0x20, 0x19, 0x12, 0x33, 0x3c, 0x25, 0x36, 0x17}, {0x20, 0x19, 0x12, 0x33, 0x3c, 0x25, 0x36, 0x17}, {0x20, 0x19, 0x12, 0x33, 0x3c, 0x25, 0x36, 0x17}, {0x20, 0x19, 0x12, 0x33, 0x1c, 0x25, 0x36, 0x17}, {0x20, 0x19, 0x12, 0x33, 0x1c, 0x25, 0x36, 0x17} }, { {0x10, 0x31, 0x3a, 0x03, 0x34, 0x15, 0x06, 0x3f}, {0x10, 0x31, 0x3a, 0x23, 0x34, 0x15, 0x06, 0x3f}, {0x10, 0x31, 0x3a, 0x23, 0x34, 0x15, 0x06, 0x3f}, {0x10, 0x31, 0x3a, 0x23, 0x34, 0x15, 0x06, 0x3f}, {0x10, 0x31, 0x3a, 0x23, 0x34, 0x15, 0x06, 0x3f}, {0x10, 0x31, 0x1a, 0x23, 0x34, 0x15, 0x26, 0x3f}, {0x10, 0x31, 0x1a, 0x23, 0x34, 0x15, 0x26, 0x3f}, {0x10, 0x31, 0x1a, 0x23, 0x34, 0x15, 0x26, 0x3f}, {0x10, 0x31, 0x1a, 0x23, 0x34, 0x15, 0x26, 0x3f}, {0x10, 0x31, 0x1a, 0x23, 0x34, 0x15, 0x26, 0x1f}, {0x10, 0x31, 0x1a, 0x23, 0x34, 0x15, 0x26, 0x1f}, {0x10, 0x31, 0x1a, 0x23, 0x34, 0x15, 0x26, 0x1f}, {0x08, 0x31, 0x1a, 0x23, 0x34, 0x05, 0x26, 0x1f}, {0x00, 0x31, 0x1a, 0x23, 0x34, 0x05, 0x26, 0x1f}, {0x00, 0x31, 0x1a, 0x23, 0x34, 0x05, 0x26, 0x1f}, {0x00, 0x29, 0x1a, 0x23, 0x34, 0x05, 0x26, 0x1f}, {0x00, 0x29, 0x1a, 0x23, 0x3c, 0x05, 0x26, 0x1f}, {0x00, 0x39, 0x1a, 0x23, 0x3c, 0x05, 0x26, 0x1f}, {0x00, 0x39, 0x1a, 0x23, 0x3c, 0x05, 0x26, 0x1f}, {0x00, 0x39, 0x0a, 0x23, 0x3c, 0x05, 0x26, 0x1f}, {0x00, 0x39, 0x0a, 0x33, 0x3c, 0x05, 0x26, 0x1f}, {0x00, 0x39, 0x12, 0x33, 0x3c, 0x05, 0x26, 0x1f}, {0x00, 0x39, 0x12, 0x33, 0x3c, 0x05, 0x26, 0x1f}, {0x00, 0x39, 0x12, 0x33, 0x3c, 0x05, 0x26, 0x1f}, {0x00, 0x39, 0x12, 0x33, 0x3c, 0x05, 0x36, 0x0f}, {0x00, 0x39, 0x12, 0x33, 0x3c, 0x05, 0x36, 0x17}, {0x00, 0x39, 0x12, 0x33, 0x3c, 0x05, 0x36, 0x17}, {0x20, 0x39, 0x12, 0x33, 0x3c, 0x05, 0x36, 0x17}, {0x20, 0x39, 0x12, 0x33, 0x3c, 0x05, 0x36, 0x17}, {0x20, 0x39, 0x12, 0x33, 0x3c, 0x05, 0x36, 0x17}, {0x20, 0x39, 0x12, 0x33, 0x3c, 0x05, 0x36, 0x17}, {0x20, 0x39, 0x12, 0x33, 0x3c, 0x25, 0x36, 0x17}, {0x20, 0x19, 0x12, 0x33, 0x3c, 0x25, 0x36, 0x17}, {0x20, 0x19, 0x12, 0x33, 0x3c, 0x25, 0x36, 0x17}, {0x20, 0x19, 0x12, 0x33, 0x3c, 0x25, 0x36, 0x17}, {0x20, 0x19, 0x12, 0x33, 0x1c, 0x25, 0x36, 0x17} }, { {0x10, 0x31, 0x3a, 0x23, 0x34, 0x15, 0x06, 0x3f}, {0x10, 0x31, 0x3a, 0x23, 0x34, 0x15, 0x06, 0x3f}, {0x10, 0x31, 0x3a, 0x23, 0x34, 0x15, 0x06, 0x3f}, {0x10, 0x31, 0x3a, 0x23, 0x34, 0x15, 0x06, 0x3f}, {0x10, 0x31, 0x1a, 0x23, 0x34, 0x15, 0x26, 0x3f}, {0x10, 0x31, 0x1a, 0x23, 0x34, 0x15, 0x26, 0x3f}, {0x10, 0x31, 0x1a, 0x23, 0x34, 0x15, 0x26, 0x3f}, {0x10, 0x31, 0x1a, 0x23, 0x34, 0x15, 0x26, 0x3f}, {0x10, 0x31, 0x1a, 0x23, 0x34, 0x15, 0x26, 0x1f}, {0x10, 0x31, 0x1a, 0x23, 0x34, 0x15, 0x26, 0x1f}, {0x10, 0x31, 0x1a, 0x23, 0x34, 0x15, 0x26, 0x1f}, {0x10, 0x31, 0x1a, 0x23, 0x34, 0x15, 0x26, 0x1f}, {0x00, 0x31, 0x1a, 0x23, 0x34, 0x05, 0x26, 0x1f}, {0x00, 0x31, 0x1a, 0x23, 0x34, 0x05, 0x26, 0x1f}, {0x00, 0x31, 0x1a, 0x23, 0x34, 0x05, 0x26, 0x1f}, {0x00, 0x31, 0x1a, 0x23, 0x34, 0x05, 0x26, 0x1f}, {0x00, 0x39, 0x1a, 0x23, 0x3c, 0x05, 0x26, 0x1f}, {0x00, 0x39, 0x1a, 0x23, 0x3c, 0x05, 0x26, 0x1f}, {0x00, 0x39, 0x1a, 0x23, 0x3c, 0x05, 0x26, 0x1f}, {0x00, 0x39, 0x1a, 0x23, 0x3c, 0x05, 0x26, 0x1f}, {0x00, 0x39, 0x12, 0x33, 0x3c, 0x05, 0x26, 0x1f}, {0x00, 0x39, 0x12, 0x33, 0x3c, 0x05, 0x26, 0x1f}, {0x00, 0x39, 0x12, 0x33, 0x3c, 0x05, 0x26, 0x1f}, {0x00, 0x39, 0x12, 0x33, 0x3c, 0x05, 0x26, 0x1f}, {0x00, 0x39, 0x12, 0x33, 0x3c, 0x05, 0x36, 0x17}, {0x00, 0x39, 0x12, 0x33, 0x3c, 0x05, 0x36, 0x17}, {0x00, 0x39, 0x12, 0x33, 0x3c, 0x05, 0x36, 0x17}, {0x00, 0x39, 0x12, 0x33, 0x3c, 0x05, 0x36, 0x17}, {0x20, 0x39, 0x12, 0x33, 0x3c, 0x05, 0x36, 0x17}, {0x20, 0x39, 0x12, 0x33, 0x3c, 0x05, 0x36, 0x17}, {0x20, 0x39, 0x12, 0x33, 0x3c, 0x05, 0x36, 0x17}, {0x20, 0x39, 0x12, 0x33, 0x3c, 0x05, 0x36, 0x17}, {0x20, 0x39, 0x12, 0x33, 0x3c, 0x25, 0x36, 0x17}, {0x20, 0x19, 0x12, 0x33, 0x3c, 0x25, 0x36, 0x17}, {0x20, 0x19, 0x12, 0x33, 0x3c, 0x25, 0x36, 0x17}, {0x20, 0x19, 0x12, 0x33, 0x3c, 0x25, 0x36, 0x17} }, { {0x10, 0x31, 0x3a, 0x23, 0x34, 0x15, 0x06, 0x3f}, {0x10, 0x31, 0x3a, 0x23, 0x34, 0x15, 0x06, 0x3f}, {0x10, 0x31, 0x3a, 0x23, 0x34, 0x15, 0x06, 0x3f}, {0x10, 0x31, 0x1a, 0x23, 0x34, 0x15, 0x26, 0x3f}, {0x10, 0x31, 0x1a, 0x23, 0x34, 0x15, 0x26, 0x3f}, {0x10, 0x31, 0x1a, 0x23, 0x34, 0x15, 0x26, 0x3f}, {0x10, 0x31, 0x1a, 0x23, 0x34, 0x15, 0x26, 0x3f}, {0x10, 0x31, 0x1a, 0x23, 0x34, 0x15, 0x26, 0x1f}, {0x10, 0x31, 0x1a, 0x23, 0x34, 0x15, 0x26, 0x1f}, {0x10, 0x31, 0x1a, 0x23, 0x34, 0x15, 0x26, 0x1f}, {0x10, 0x31, 0x1a, 0x23, 0x34, 0x15, 0x26, 0x1f}, {0x10, 0x31, 0x1a, 0x23, 0x34, 0x15, 0x26, 0x1f}, {0x00, 0x31, 0x1a, 0x23, 0x34, 0x05, 0x26, 0x1f}, {0x00, 0x31, 0x1a, 0x23, 0x34, 0x05, 0x26, 0x1f}, {0x00, 0x31, 0x1a, 0x23, 0x34, 0x05, 0x26, 0x1f}, {0x00, 0x31, 0x1a, 0x23, 0x34, 0x05, 0x26, 0x1f}, {0x00, 0x39, 0x1a, 0x23, 0x3c, 0x05, 0x26, 0x1f}, {0x00, 0x39, 0x1a, 0x23, 0x3c, 0x05, 0x26, 0x1f}, {0x00, 0x39, 0x1a, 0x23, 0x3c, 0x05, 0x26, 0x1f}, {0x00, 0x39, 0x1a, 0x23, 0x3c, 0x05, 0x26, 0x1f}, {0x00, 0x39, 0x12, 0x33, 0x3c, 0x05, 0x26, 0x1f}, {0x00, 0x39, 0x12, 0x33, 0x3c, 0x05, 0x26, 0x1f}, {0x00, 0x39, 0x12, 0x33, 0x3c, 0x05, 0x26, 0x1f}, {0x00, 0x39, 0x12, 0x33, 0x3c, 0x05, 0x26, 0x1f}, {0x00, 0x39, 0x12, 0x33, 0x3c, 0x05, 0x36, 0x17}, {0x00, 0x39, 0x12, 0x33, 0x3c, 0x05, 0x36, 0x17}, {0x00, 0x39, 0x12, 0x33, 0x3c, 0x05, 0x36, 0x17}, {0x00, 0x39, 0x12, 0x33, 0x3c, 0x05, 0x36, 0x17}, {0x00, 0x39, 0x12, 0x33, 0x3c, 0x05, 0x36, 0x17}, {0x20, 0x39, 0x12, 0x33, 0x3c, 0x05, 0x36, 0x17}, {0x20, 0x39, 0x12, 0x33, 0x3c, 0x05, 0x36, 0x17}, {0x20, 0x39, 0x12, 0x33, 0x3c, 0x05, 0x36, 0x17}, {0x20, 0x39, 0x12, 0x33, 0x3c, 0x05, 0x36, 0x17}, {0x20, 0x39, 0x12, 0x33, 0x3c, 0x25, 0x36, 0x17}, {0x20, 0x19, 0x12, 0x33, 0x3c, 0x25, 0x36, 0x17}, {0x20, 0x19, 0x12, 0x33, 0x3c, 0x25, 0x36, 0x17} }, { {0x10, 0x31, 0x3a, 0x23, 0x34, 0x15, 0x06, 0x3f}, {0x10, 0x31, 0x3a, 0x23, 0x34, 0x15, 0x06, 0x3f}, {0x10, 0x31, 0x1a, 0x23, 0x34, 0x15, 0x26, 0x3f}, {0x10, 0x31, 0x1a, 0x23, 0x34, 0x15, 0x26, 0x3f}, {0x10, 0x31, 0x1a, 0x23, 0x34, 0x15, 0x26, 0x3f}, {0x10, 0x31, 0x1a, 0x23, 0x34, 0x15, 0x26, 0x3f}, {0x10, 0x31, 0x1a, 0x23, 0x34, 0x15, 0x26, 0x1f}, {0x10, 0x31, 0x1a, 0x23, 0x34, 0x15, 0x26, 0x1f}, {0x10, 0x31, 0x1a, 0x23, 0x34, 0x15, 0x26, 0x1f}, {0x10, 0x31, 0x1a, 0x23, 0x34, 0x15, 0x26, 0x1f}, {0x10, 0x31, 0x1a, 0x23, 0x34, 0x15, 0x26, 0x1f}, {0x10, 0x31, 0x1a, 0x23, 0x34, 0x15, 0x26, 0x1f}, {0x00, 0x31, 0x1a, 0x23, 0x34, 0x05, 0x26, 0x1f}, {0x00, 0x31, 0x1a, 0x23, 0x34, 0x05, 0x26, 0x1f}, {0x00, 0x31, 0x1a, 0x23, 0x34, 0x05, 0x26, 0x1f}, {0x00, 0x31, 0x1a, 0x23, 0x34, 0x05, 0x26, 0x1f}, {0x00, 0x39, 0x1a, 0x23, 0x3c, 0x05, 0x26, 0x1f}, {0x00, 0x39, 0x1a, 0x23, 0x3c, 0x05, 0x26, 0x1f}, {0x00, 0x39, 0x1a, 0x23, 0x3c, 0x05, 0x26, 0x1f}, {0x00, 0x39, 0x1a, 0x23, 0x3c, 0x05, 0x26, 0x1f}, {0x00, 0x39, 0x12, 0x33, 0x3c, 0x05, 0x26, 0x1f}, {0x00, 0x39, 0x12, 0x33, 0x3c, 0x05, 0x26, 0x1f}, {0x00, 0x39, 0x12, 0x33, 0x3c, 0x05, 0x26, 0x1f}, {0x00, 0x39, 0x12, 0x33, 0x3c, 0x05, 0x26, 0x1f}, {0x00, 0x39, 0x12, 0x33, 0x3c, 0x05, 0x36, 0x17}, {0x00, 0x39, 0x12, 0x33, 0x3c, 0x05, 0x36, 0x17}, {0x00, 0x39, 0x12, 0x33, 0x3c, 0x05, 0x36, 0x17}, {0x00, 0x39, 0x12, 0x33, 0x3c, 0x05, 0x36, 0x17}, {0x00, 0x39, 0x12, 0x33, 0x3c, 0x05, 0x36, 0x17}, {0x00, 0x39, 0x12, 0x33, 0x3c, 0x05, 0x36, 0x17}, {0x00, 0x39, 0x12, 0x33, 0x3c, 0x05, 0x36, 0x17}, {0x20, 0x39, 0x12, 0x33, 0x3c, 0x05, 0x36, 0x17}, {0x20, 0x39, 0x12, 0x33, 0x3c, 0x05, 0x36, 0x17}, {0x20, 0x39, 0x12, 0x33, 0x3c, 0x05, 0x36, 0x17}, {0x20, 0x39, 0x12, 0x33, 0x3c, 0x25, 0x36, 0x17}, {0x20, 0x19, 0x12, 0x33, 0x3c, 0x25, 0x36, 0x17} }, { {0x10, 0x31, 0x3a, 0x23, 0x34, 0x15, 0x06, 0x3f}, {0x10, 0x31, 0x1a, 0x23, 0x34, 0x15, 0x26, 0x3f}, {0x10, 0x31, 0x1a, 0x23, 0x34, 0x15, 0x26, 0x3f}, {0x10, 0x31, 0x1a, 0x23, 0x34, 0x15, 0x26, 0x3f}, {0x10, 0x31, 0x1a, 0x23, 0x34, 0x15, 0x26, 0x3f}, {0x10, 0x31, 0x1a, 0x23, 0x34, 0x15, 0x26, 0x1f}, {0x10, 0x31, 0x1a, 0x23, 0x34, 0x15, 0x26, 0x1f}, {0x10, 0x31, 0x1a, 0x23, 0x34, 0x15, 0x26, 0x1f}, {0x10, 0x31, 0x1a, 0x23, 0x34, 0x15, 0x26, 0x1f}, {0x10, 0x31, 0x1a, 0x23, 0x34, 0x15, 0x26, 0x1f}, {0x10, 0x31, 0x1a, 0x23, 0x34, 0x15, 0x26, 0x1f}, {0x10, 0x31, 0x1a, 0x23, 0x34, 0x15, 0x26, 0x1f}, {0x00, 0x31, 0x1a, 0x23, 0x34, 0x05, 0x26, 0x1f}, {0x00, 0x31, 0x1a, 0x23, 0x34, 0x05, 0x26, 0x1f}, {0x00, 0x31, 0x1a, 0x23, 0x34, 0x05, 0x26, 0x1f}, {0x00, 0x31, 0x1a, 0x23, 0x34, 0x05, 0x26, 0x1f}, {0x00, 0x39, 0x1a, 0x23, 0x3c, 0x05, 0x26, 0x1f}, {0x00, 0x39, 0x1a, 0x23, 0x3c, 0x05, 0x26, 0x1f}, {0x00, 0x39, 0x1a, 0x23, 0x3c, 0x05, 0x26, 0x1f}, {0x00, 0x39, 0x1a, 0x23, 0x3c, 0x05, 0x26, 0x1f}, {0x00, 0x39, 0x12, 0x33, 0x3c, 0x05, 0x26, 0x1f}, {0x00, 0x39, 0x12, 0x33, 0x3c, 0x05, 0x26, 0x1f}, {0x00, 0x39, 0x12, 0x33, 0x3c, 0x05, 0x26, 0x1f}, {0x00, 0x39, 0x12, 0x33, 0x3c, 0x05, 0x26, 0x1f}, {0x00, 0x39, 0x12, 0x33, 0x3c, 0x05, 0x36, 0x17}, {0x00, 0x39, 0x12, 0x33, 0x3c, 0x05, 0x36, 0x17}, {0x00, 0x39, 0x12, 0x33, 0x3c, 0x05, 0x36, 0x17}, {0x00, 0x39, 0x12, 0x33, 0x3c, 0x05, 0x36, 0x17}, {0x00, 0x39, 0x12, 0x33, 0x3c, 0x05, 0x36, 0x17}, {0x00, 0x39, 0x12, 0x33, 0x3c, 0x05, 0x36, 0x17}, {0x00, 0x39, 0x12, 0x33, 0x3c, 0x05, 0x36, 0x17}, {0x00, 0x39, 0x12, 0x33, 0x3c, 0x05, 0x36, 0x17}, {0x20, 0x39, 0x12, 0x33, 0x3c, 0x05, 0x36, 0x17}, {0x20, 0x39, 0x12, 0x33, 0x3c, 0x05, 0x36, 0x17}, {0x20, 0x39, 0x12, 0x33, 0x3c, 0x05, 0x36, 0x17}, {0x20, 0x39, 0x12, 0x33, 0x3c, 0x25, 0x36, 0x17} } }, { /* 9,600bps map */ { {0x10, 0x01, 0x12, 0x13, 0x1c, 0x1d, 0x0e, 0x07}, {0x10, 0x01, 0x12, 0x13, 0x1c, 0x1d, 0x0e, 0x07}, {0x10, 0x01, 0x12, 0x13, 0x1c, 0x1d, 0x0e, 0x07}, {0x10, 0x01, 0x12, 0x13, 0x1c, 0x1d, 0x0e, 0x07}, {0x10, 0x01, 0x12, 0x13, 0x1c, 0x1d, 0x0e, 0x07}, {0x00, 0x01, 0x12, 0x13, 0x1c, 0x1d, 0x0e, 0x07}, {0x00, 0x01, 0x12, 0x13, 0x1c, 0x1d, 0x0e, 0x07}, {0x00, 0x01, 0x12, 0x13, 0x1c, 0x1d, 0x0e, 0x07}, {0x00, 0x01, 0x12, 0x13, 0x1c, 0x1d, 0x0e, 0x07}, {0x00, 0x01, 0x12, 0x13, 0x1c, 0x1d, 0x0e, 0x07}, {0x00, 0x01, 0x12, 0x13, 0x1c, 0x1d, 0x0e, 0x0f}, {0x00, 0x01, 0x12, 0x13, 0x1c, 0x1d, 0x0e, 0x0f}, {0x00, 0x01, 0x12, 0x13, 0x1c, 0x1d, 0x0e, 0x0f}, {0x00, 0x01, 0x12, 0x13, 0x1c, 0x1d, 0x0e, 0x0f}, {0x00, 0x01, 0x12, 0x13, 0x1c, 0x1d, 0x1e, 0x0f}, {0x00, 0x01, 0x12, 0x13, 0x1c, 0x1d, 0x1e, 0x0f}, {0x00, 0x01, 0x12, 0x13, 0x1c, 0x1d, 0x1e, 0x0f}, {0x00, 0x01, 0x12, 0x13, 0x1c, 0x1d, 0x1e, 0x0f}, {0x00, 0x09, 0x12, 0x13, 0x1c, 0x15, 0x1e, 0x0f}, {0x00, 0x09, 0x12, 0x13, 0x1c, 0x15, 0x1e, 0x0f}, {0x00, 0x09, 0x12, 0x13, 0x1c, 0x15, 0x1e, 0x0f}, {0x00, 0x09, 0x12, 0x13, 0x1c, 0x15, 0x1e, 0x0f}, {0x00, 0x09, 0x02, 0x13, 0x1c, 0x15, 0x1e, 0x0f}, {0x00, 0x09, 0x02, 0x13, 0x1c, 0x15, 0x1e, 0x0f}, {0x00, 0x09, 0x02, 0x13, 0x1c, 0x15, 0x1e, 0x0f}, {0x00, 0x09, 0x02, 0x13, 0x1c, 0x15, 0x1e, 0x0f}, {0x00, 0x09, 0x02, 0x13, 0x1c, 0x15, 0x1e, 0x1f}, {0x00, 0x09, 0x02, 0x13, 0x1c, 0x15, 0x1e, 0x1f}, {0x00, 0x09, 0x02, 0x13, 0x1c, 0x15, 0x1e, 0x1f}, {0x00, 0x09, 0x02, 0x13, 0x1c, 0x15, 0x1e, 0x1f}, {0x00, 0x09, 0x02, 0x13, 0x1c, 0x15, 0x1e, 0x1f}, {0x00, 0x09, 0x02, 0x13, 0x1c, 0x15, 0x1e, 0x1f}, {0x00, 0x09, 0x02, 0x13, 0x14, 0x15, 0x1e, 0x1f}, {0x00, 0x09, 0x02, 0x13, 0x14, 0x15, 0x1e, 0x1f}, {0x00, 0x09, 0x02, 0x13, 0x14, 0x15, 0x1e, 0x1f}, {0x00, 0x09, 0x02, 0x13, 0x14, 0x15, 0x1e, 0x1f} }, { {0x10, 0x01, 0x12, 0x13, 0x1c, 0x1d, 0x0e, 0x07}, {0x10, 0x01, 0x12, 0x13, 0x1c, 0x1d, 0x0e, 0x07}, {0x10, 0x01, 0x12, 0x13, 0x1c, 0x1d, 0x0e, 0x07}, {0x10, 0x01, 0x12, 0x13, 0x1c, 0x1d, 0x0e, 0x07}, {0x10, 0x01, 0x12, 0x13, 0x1c, 0x1d, 0x0e, 0x07}, {0x10, 0x01, 0x12, 0x13, 0x1c, 0x1d, 0x0e, 0x07}, {0x00, 0x01, 0x12, 0x13, 0x1c, 0x1d, 0x0e, 0x07}, {0x00, 0x01, 0x12, 0x13, 0x1c, 0x1d, 0x0e, 0x07}, {0x00, 0x01, 0x12, 0x13, 0x1c, 0x1d, 0x0e, 0x07}, {0x00, 0x01, 0x12, 0x13, 0x1c, 0x1d, 0x0e, 0x07}, {0x00, 0x01, 0x12, 0x13, 0x1c, 0x1d, 0x0e, 0x0f}, {0x00, 0x01, 0x12, 0x13, 0x1c, 0x1d, 0x0e, 0x0f}, {0x00, 0x01, 0x12, 0x13, 0x1c, 0x1d, 0x0e, 0x0f}, {0x00, 0x01, 0x12, 0x13, 0x1c, 0x1d, 0x0e, 0x0f}, {0x00, 0x01, 0x12, 0x13, 0x1c, 0x1d, 0x1e, 0x0f}, {0x00, 0x01, 0x12, 0x13, 0x1c, 0x1d, 0x1e, 0x0f}, {0x00, 0x01, 0x12, 0x13, 0x1c, 0x1d, 0x1e, 0x0f}, {0x00, 0x01, 0x12, 0x13, 0x1c, 0x1d, 0x1e, 0x0f}, {0x00, 0x09, 0x12, 0x13, 0x1c, 0x15, 0x1e, 0x0f}, {0x00, 0x09, 0x12, 0x13, 0x1c, 0x15, 0x1e, 0x0f}, {0x00, 0x09, 0x12, 0x13, 0x1c, 0x15, 0x1e, 0x0f}, {0x00, 0x09, 0x12, 0x13, 0x1c, 0x15, 0x1e, 0x0f}, {0x00, 0x09, 0x02, 0x13, 0x1c, 0x15, 0x1e, 0x0f}, {0x00, 0x09, 0x02, 0x13, 0x1c, 0x15, 0x1e, 0x0f}, {0x00, 0x09, 0x02, 0x13, 0x1c, 0x15, 0x1e, 0x0f}, {0x00, 0x09, 0x02, 0x13, 0x1c, 0x15, 0x1e, 0x0f}, {0x00, 0x09, 0x02, 0x13, 0x1c, 0x15, 0x1e, 0x1f}, {0x00, 0x09, 0x02, 0x13, 0x1c, 0x15, 0x1e, 0x1f}, {0x00, 0x09, 0x02, 0x13, 0x1c, 0x15, 0x1e, 0x1f}, {0x00, 0x09, 0x02, 0x13, 0x1c, 0x15, 0x1e, 0x1f}, {0x00, 0x09, 0x02, 0x13, 0x1c, 0x15, 0x1e, 0x1f}, {0x00, 0x09, 0x02, 0x13, 0x14, 0x15, 0x1e, 0x1f}, {0x00, 0x09, 0x02, 0x13, 0x14, 0x15, 0x1e, 0x1f}, {0x00, 0x09, 0x02, 0x13, 0x14, 0x15, 0x1e, 0x1f}, {0x00, 0x09, 0x02, 0x13, 0x14, 0x15, 0x1e, 0x1f}, {0x00, 0x09, 0x02, 0x13, 0x14, 0x15, 0x1e, 0x1f} }, { {0x10, 0x01, 0x12, 0x13, 0x1c, 0x1d, 0x0e, 0x07}, {0x10, 0x01, 0x12, 0x13, 0x1c, 0x1d, 0x0e, 0x07}, {0x10, 0x01, 0x12, 0x13, 0x1c, 0x1d, 0x0e, 0x07}, {0x10, 0x01, 0x12, 0x13, 0x1c, 0x1d, 0x0e, 0x07}, {0x10, 0x01, 0x12, 0x13, 0x1c, 0x1d, 0x0e, 0x07}, {0x10, 0x01, 0x12, 0x13, 0x1c, 0x1d, 0x0e, 0x07}, {0x10, 0x01, 0x12, 0x13, 0x1c, 0x1d, 0x0e, 0x07}, {0x00, 0x01, 0x12, 0x13, 0x1c, 0x1d, 0x0e, 0x07}, {0x00, 0x01, 0x12, 0x13, 0x1c, 0x1d, 0x0e, 0x07}, {0x00, 0x01, 0x12, 0x13, 0x1c, 0x1d, 0x0e, 0x07}, {0x00, 0x01, 0x12, 0x13, 0x1c, 0x1d, 0x0e, 0x0f}, {0x00, 0x01, 0x12, 0x13, 0x1c, 0x1d, 0x0e, 0x0f}, {0x00, 0x01, 0x12, 0x13, 0x1c, 0x1d, 0x0e, 0x0f}, {0x00, 0x01, 0x12, 0x13, 0x1c, 0x1d, 0x0e, 0x0f}, {0x00, 0x01, 0x12, 0x13, 0x1c, 0x1d, 0x1e, 0x0f}, {0x00, 0x01, 0x12, 0x13, 0x1c, 0x1d, 0x1e, 0x0f}, {0x00, 0x01, 0x12, 0x13, 0x1c, 0x1d, 0x1e, 0x0f}, {0x00, 0x01, 0x12, 0x13, 0x1c, 0x1d, 0x1e, 0x0f}, {0x00, 0x09, 0x12, 0x13, 0x1c, 0x15, 0x1e, 0x0f}, {0x00, 0x09, 0x12, 0x13, 0x1c, 0x15, 0x1e, 0x0f}, {0x00, 0x09, 0x12, 0x13, 0x1c, 0x15, 0x1e, 0x0f}, {0x00, 0x09, 0x12, 0x13, 0x1c, 0x15, 0x1e, 0x0f}, {0x00, 0x09, 0x02, 0x13, 0x1c, 0x15, 0x1e, 0x0f}, {0x00, 0x09, 0x02, 0x13, 0x1c, 0x15, 0x1e, 0x0f}, {0x00, 0x09, 0x02, 0x13, 0x1c, 0x15, 0x1e, 0x0f}, {0x00, 0x09, 0x02, 0x13, 0x1c, 0x15, 0x1e, 0x0f}, {0x00, 0x09, 0x02, 0x13, 0x1c, 0x15, 0x1e, 0x1f}, {0x00, 0x09, 0x02, 0x13, 0x1c, 0x15, 0x1e, 0x1f}, {0x00, 0x09, 0x02, 0x13, 0x1c, 0x15, 0x1e, 0x1f}, {0x00, 0x09, 0x02, 0x13, 0x1c, 0x15, 0x1e, 0x1f}, {0x00, 0x09, 0x02, 0x13, 0x14, 0x15, 0x1e, 0x1f}, {0x00, 0x09, 0x02, 0x13, 0x14, 0x15, 0x1e, 0x1f}, {0x00, 0x09, 0x02, 0x13, 0x14, 0x15, 0x1e, 0x1f}, {0x00, 0x09, 0x02, 0x13, 0x14, 0x15, 0x1e, 0x1f}, {0x00, 0x09, 0x02, 0x13, 0x14, 0x15, 0x1e, 0x1f}, {0x00, 0x09, 0x02, 0x13, 0x14, 0x15, 0x1e, 0x1f} }, { {0x10, 0x01, 0x12, 0x13, 0x1c, 0x1d, 0x0e, 0x07}, {0x10, 0x01, 0x12, 0x13, 0x1c, 0x1d, 0x0e, 0x07}, {0x10, 0x01, 0x12, 0x13, 0x1c, 0x1d, 0x0e, 0x07}, {0x10, 0x01, 0x12, 0x13, 0x1c, 0x1d, 0x0e, 0x07}, {0x10, 0x01, 0x12, 0x13, 0x1c, 0x1d, 0x0e, 0x07}, {0x10, 0x01, 0x12, 0x13, 0x1c, 0x1d, 0x0e, 0x07}, {0x10, 0x01, 0x12, 0x13, 0x1c, 0x1d, 0x0e, 0x07}, {0x10, 0x01, 0x12, 0x13, 0x1c, 0x1d, 0x0e, 0x07}, {0x00, 0x01, 0x12, 0x13, 0x1c, 0x1d, 0x0e, 0x07}, {0x00, 0x01, 0x12, 0x13, 0x1c, 0x1d, 0x0e, 0x07}, {0x00, 0x01, 0x12, 0x13, 0x1c, 0x1d, 0x0e, 0x0f}, {0x00, 0x01, 0x12, 0x13, 0x1c, 0x1d, 0x0e, 0x0f}, {0x00, 0x01, 0x12, 0x13, 0x1c, 0x1d, 0x0e, 0x0f}, {0x00, 0x01, 0x12, 0x13, 0x1c, 0x1d, 0x0e, 0x0f}, {0x00, 0x01, 0x12, 0x13, 0x1c, 0x1d, 0x1e, 0x0f}, {0x00, 0x01, 0x12, 0x13, 0x1c, 0x1d, 0x1e, 0x0f}, {0x00, 0x01, 0x12, 0x13, 0x1c, 0x1d, 0x1e, 0x0f}, {0x00, 0x01, 0x12, 0x13, 0x1c, 0x1d, 0x1e, 0x0f}, {0x00, 0x09, 0x12, 0x13, 0x1c, 0x15, 0x1e, 0x0f}, {0x00, 0x09, 0x12, 0x13, 0x1c, 0x15, 0x1e, 0x0f}, {0x00, 0x09, 0x12, 0x13, 0x1c, 0x15, 0x1e, 0x0f}, {0x00, 0x09, 0x12, 0x13, 0x1c, 0x15, 0x1e, 0x0f}, {0x00, 0x09, 0x02, 0x13, 0x1c, 0x15, 0x1e, 0x0f}, {0x00, 0x09, 0x02, 0x13, 0x1c, 0x15, 0x1e, 0x0f}, {0x00, 0x09, 0x02, 0x13, 0x1c, 0x15, 0x1e, 0x0f}, {0x00, 0x09, 0x02, 0x13, 0x1c, 0x15, 0x1e, 0x0f}, {0x00, 0x09, 0x02, 0x13, 0x1c, 0x15, 0x1e, 0x1f}, {0x00, 0x09, 0x02, 0x13, 0x1c, 0x15, 0x1e, 0x1f}, {0x00, 0x09, 0x02, 0x13, 0x1c, 0x15, 0x1e, 0x1f}, {0x00, 0x09, 0x02, 0x13, 0x14, 0x15, 0x1e, 0x1f}, {0x00, 0x09, 0x02, 0x13, 0x14, 0x15, 0x1e, 0x1f}, {0x00, 0x09, 0x02, 0x13, 0x14, 0x15, 0x1e, 0x1f}, {0x00, 0x09, 0x02, 0x13, 0x14, 0x15, 0x1e, 0x1f}, {0x00, 0x09, 0x02, 0x13, 0x14, 0x15, 0x1e, 0x1f}, {0x00, 0x09, 0x02, 0x13, 0x14, 0x15, 0x1e, 0x1f}, {0x00, 0x09, 0x02, 0x13, 0x14, 0x15, 0x1e, 0x1f} }, { {0x10, 0x01, 0x12, 0x13, 0x1c, 0x1d, 0x0e, 0x07}, {0x10, 0x01, 0x12, 0x13, 0x1c, 0x1d, 0x0e, 0x07}, {0x10, 0x01, 0x12, 0x13, 0x1c, 0x1d, 0x0e, 0x07}, {0x10, 0x01, 0x12, 0x13, 0x1c, 0x1d, 0x0e, 0x07}, {0x10, 0x01, 0x12, 0x13, 0x1c, 0x1d, 0x0e, 0x07}, {0x10, 0x01, 0x12, 0x13, 0x1c, 0x1d, 0x0e, 0x07}, {0x10, 0x01, 0x12, 0x13, 0x1c, 0x1d, 0x0e, 0x07}, {0x10, 0x01, 0x12, 0x13, 0x1c, 0x1d, 0x0e, 0x07}, {0x10, 0x01, 0x12, 0x13, 0x1c, 0x1d, 0x0e, 0x07}, {0x00, 0x01, 0x12, 0x13, 0x1c, 0x1d, 0x0e, 0x07}, {0x00, 0x01, 0x12, 0x13, 0x1c, 0x1d, 0x0e, 0x0f}, {0x00, 0x01, 0x12, 0x13, 0x1c, 0x1d, 0x0e, 0x0f}, {0x00, 0x01, 0x12, 0x13, 0x1c, 0x1d, 0x0e, 0x0f}, {0x00, 0x01, 0x12, 0x13, 0x1c, 0x1d, 0x0e, 0x0f}, {0x00, 0x01, 0x12, 0x13, 0x1c, 0x1d, 0x1e, 0x0f}, {0x00, 0x01, 0x12, 0x13, 0x1c, 0x1d, 0x1e, 0x0f}, {0x00, 0x01, 0x12, 0x13, 0x1c, 0x1d, 0x1e, 0x0f}, {0x00, 0x01, 0x12, 0x13, 0x1c, 0x1d, 0x1e, 0x0f}, {0x00, 0x09, 0x12, 0x13, 0x1c, 0x15, 0x1e, 0x0f}, {0x00, 0x09, 0x12, 0x13, 0x1c, 0x15, 0x1e, 0x0f}, {0x00, 0x09, 0x12, 0x13, 0x1c, 0x15, 0x1e, 0x0f}, {0x00, 0x09, 0x12, 0x13, 0x1c, 0x15, 0x1e, 0x0f}, {0x00, 0x09, 0x02, 0x13, 0x1c, 0x15, 0x1e, 0x0f}, {0x00, 0x09, 0x02, 0x13, 0x1c, 0x15, 0x1e, 0x0f}, {0x00, 0x09, 0x02, 0x13, 0x1c, 0x15, 0x1e, 0x0f}, {0x00, 0x09, 0x02, 0x13, 0x1c, 0x15, 0x1e, 0x0f}, {0x00, 0x09, 0x02, 0x13, 0x1c, 0x15, 0x1e, 0x1f}, {0x00, 0x09, 0x02, 0x13, 0x1c, 0x15, 0x1e, 0x1f}, {0x00, 0x09, 0x02, 0x13, 0x14, 0x15, 0x1e, 0x1f}, {0x00, 0x09, 0x02, 0x13, 0x14, 0x15, 0x1e, 0x1f}, {0x00, 0x09, 0x02, 0x13, 0x14, 0x15, 0x1e, 0x1f}, {0x00, 0x09, 0x02, 0x13, 0x14, 0x15, 0x1e, 0x1f}, {0x00, 0x09, 0x02, 0x13, 0x14, 0x15, 0x1e, 0x1f}, {0x00, 0x09, 0x02, 0x13, 0x14, 0x15, 0x1e, 0x1f}, {0x00, 0x09, 0x02, 0x13, 0x14, 0x15, 0x1e, 0x1f}, {0x00, 0x09, 0x02, 0x13, 0x14, 0x15, 0x1e, 0x1f} }, { {0x10, 0x01, 0x12, 0x1b, 0x1c, 0x1d, 0x0e, 0x07}, {0x10, 0x01, 0x12, 0x13, 0x1c, 0x1d, 0x0e, 0x07}, {0x10, 0x01, 0x12, 0x13, 0x1c, 0x1d, 0x0e, 0x07}, {0x10, 0x01, 0x12, 0x13, 0x1c, 0x1d, 0x0e, 0x07}, {0x10, 0x01, 0x12, 0x13, 0x1c, 0x1d, 0x0e, 0x07}, {0x10, 0x01, 0x12, 0x13, 0x1c, 0x1d, 0x0e, 0x07}, {0x10, 0x01, 0x12, 0x13, 0x1c, 0x1d, 0x0e, 0x07}, {0x10, 0x01, 0x12, 0x13, 0x1c, 0x1d, 0x0e, 0x07}, {0x10, 0x01, 0x12, 0x13, 0x1c, 0x1d, 0x0e, 0x07}, {0x10, 0x01, 0x12, 0x13, 0x1c, 0x1d, 0x0e, 0x07}, {0x00, 0x01, 0x12, 0x13, 0x1c, 0x1d, 0x0e, 0x0f}, {0x00, 0x01, 0x12, 0x13, 0x1c, 0x1d, 0x0e, 0x0f}, {0x00, 0x01, 0x12, 0x13, 0x1c, 0x1d, 0x0e, 0x0f}, {0x00, 0x01, 0x12, 0x13, 0x1c, 0x1d, 0x0e, 0x0f}, {0x00, 0x01, 0x12, 0x13, 0x1c, 0x1d, 0x1e, 0x0f}, {0x00, 0x01, 0x12, 0x13, 0x1c, 0x1d, 0x1e, 0x0f}, {0x00, 0x01, 0x12, 0x13, 0x1c, 0x1d, 0x1e, 0x0f}, {0x00, 0x01, 0x12, 0x13, 0x1c, 0x1d, 0x1e, 0x0f}, {0x00, 0x09, 0x12, 0x13, 0x1c, 0x15, 0x1e, 0x0f}, {0x00, 0x09, 0x12, 0x13, 0x1c, 0x15, 0x1e, 0x0f}, {0x00, 0x09, 0x12, 0x13, 0x1c, 0x15, 0x1e, 0x0f}, {0x00, 0x09, 0x12, 0x13, 0x1c, 0x15, 0x1e, 0x0f}, {0x00, 0x09, 0x02, 0x13, 0x1c, 0x15, 0x1e, 0x0f}, {0x00, 0x09, 0x02, 0x13, 0x1c, 0x15, 0x1e, 0x0f}, {0x00, 0x09, 0x02, 0x13, 0x1c, 0x15, 0x1e, 0x0f}, {0x00, 0x09, 0x02, 0x13, 0x1c, 0x15, 0x1e, 0x0f}, {0x00, 0x09, 0x02, 0x13, 0x1c, 0x15, 0x1e, 0x1f}, {0x00, 0x09, 0x02, 0x13, 0x14, 0x15, 0x1e, 0x1f}, {0x00, 0x09, 0x02, 0x13, 0x14, 0x15, 0x1e, 0x1f}, {0x00, 0x09, 0x02, 0x13, 0x14, 0x15, 0x1e, 0x1f}, {0x00, 0x09, 0x02, 0x13, 0x14, 0x15, 0x1e, 0x1f}, {0x00, 0x09, 0x02, 0x13, 0x14, 0x15, 0x1e, 0x1f}, {0x00, 0x09, 0x02, 0x13, 0x14, 0x15, 0x1e, 0x1f}, {0x00, 0x09, 0x02, 0x13, 0x14, 0x15, 0x1e, 0x1f}, {0x00, 0x09, 0x02, 0x13, 0x14, 0x15, 0x1e, 0x1f}, {0x00, 0x09, 0x02, 0x03, 0x14, 0x15, 0x1e, 0x1f} }, { {0x10, 0x01, 0x12, 0x1b, 0x1c, 0x1d, 0x0e, 0x07}, {0x10, 0x01, 0x12, 0x1b, 0x1c, 0x1d, 0x0e, 0x07}, {0x10, 0x01, 0x12, 0x1b, 0x1c, 0x1d, 0x0e, 0x07}, {0x10, 0x01, 0x12, 0x13, 0x1c, 0x1d, 0x0e, 0x07}, {0x10, 0x01, 0x12, 0x13, 0x1c, 0x1d, 0x0e, 0x07}, {0x10, 0x01, 0x12, 0x13, 0x1c, 0x1d, 0x0e, 0x07}, {0x10, 0x01, 0x12, 0x13, 0x1c, 0x1d, 0x0e, 0x07}, {0x10, 0x01, 0x12, 0x13, 0x1c, 0x1d, 0x0e, 0x07}, {0x10, 0x01, 0x12, 0x13, 0x1c, 0x1d, 0x0e, 0x07}, {0x10, 0x01, 0x12, 0x13, 0x1c, 0x1d, 0x0e, 0x07}, {0x10, 0x01, 0x12, 0x13, 0x1c, 0x1d, 0x0e, 0x0f}, {0x00, 0x01, 0x12, 0x13, 0x1c, 0x1d, 0x0e, 0x0f}, {0x00, 0x01, 0x12, 0x13, 0x1c, 0x1d, 0x0e, 0x0f}, {0x00, 0x01, 0x12, 0x13, 0x1c, 0x1d, 0x0e, 0x0f}, {0x00, 0x01, 0x12, 0x13, 0x1c, 0x1d, 0x1e, 0x0f}, {0x00, 0x01, 0x12, 0x13, 0x1c, 0x1d, 0x1e, 0x0f}, {0x00, 0x01, 0x12, 0x13, 0x1c, 0x1d, 0x1e, 0x0f}, {0x00, 0x01, 0x12, 0x13, 0x1c, 0x1d, 0x1e, 0x0f}, {0x00, 0x09, 0x12, 0x13, 0x1c, 0x15, 0x1e, 0x0f}, {0x00, 0x09, 0x12, 0x13, 0x1c, 0x15, 0x1e, 0x0f}, {0x00, 0x09, 0x12, 0x13, 0x1c, 0x15, 0x1e, 0x0f}, {0x00, 0x09, 0x12, 0x13, 0x1c, 0x15, 0x1e, 0x0f}, {0x00, 0x09, 0x02, 0x13, 0x1c, 0x15, 0x1e, 0x0f}, {0x00, 0x09, 0x02, 0x13, 0x1c, 0x15, 0x1e, 0x0f}, {0x00, 0x09, 0x02, 0x13, 0x1c, 0x15, 0x1e, 0x0f}, {0x00, 0x09, 0x02, 0x13, 0x1c, 0x15, 0x1e, 0x0f}, {0x00, 0x09, 0x02, 0x13, 0x14, 0x15, 0x1e, 0x1f}, {0x00, 0x09, 0x02, 0x13, 0x14, 0x15, 0x1e, 0x1f}, {0x00, 0x09, 0x02, 0x13, 0x14, 0x15, 0x1e, 0x1f}, {0x00, 0x09, 0x02, 0x13, 0x14, 0x15, 0x1e, 0x1f}, {0x00, 0x09, 0x02, 0x13, 0x14, 0x15, 0x1e, 0x1f}, {0x00, 0x09, 0x02, 0x13, 0x14, 0x15, 0x1e, 0x1f}, {0x00, 0x09, 0x02, 0x13, 0x14, 0x15, 0x1e, 0x1f}, {0x00, 0x09, 0x02, 0x13, 0x14, 0x15, 0x1e, 0x1f}, {0x00, 0x09, 0x02, 0x03, 0x14, 0x15, 0x1e, 0x1f}, {0x00, 0x09, 0x02, 0x03, 0x14, 0x15, 0x1e, 0x1f} }, { {0x10, 0x01, 0x12, 0x1b, 0x1c, 0x1d, 0x0e, 0x07}, {0x10, 0x01, 0x12, 0x1b, 0x1c, 0x1d, 0x0e, 0x07}, {0x10, 0x01, 0x12, 0x1b, 0x1c, 0x1d, 0x0e, 0x07}, {0x10, 0x01, 0x12, 0x1b, 0x1c, 0x1d, 0x0e, 0x07}, {0x10, 0x01, 0x12, 0x13, 0x1c, 0x1d, 0x0e, 0x07}, {0x10, 0x01, 0x12, 0x13, 0x1c, 0x1d, 0x0e, 0x07}, {0x10, 0x01, 0x12, 0x13, 0x1c, 0x1d, 0x0e, 0x07}, {0x10, 0x01, 0x12, 0x13, 0x1c, 0x1d, 0x0e, 0x07}, {0x10, 0x01, 0x12, 0x13, 0x1c, 0x1d, 0x0e, 0x07}, {0x10, 0x01, 0x12, 0x13, 0x1c, 0x1d, 0x0e, 0x07}, {0x10, 0x01, 0x12, 0x13, 0x1c, 0x1d, 0x0e, 0x0f}, {0x10, 0x01, 0x12, 0x13, 0x1c, 0x1d, 0x0e, 0x0f}, {0x00, 0x01, 0x12, 0x13, 0x1c, 0x1d, 0x0e, 0x0f}, {0x00, 0x01, 0x12, 0x13, 0x1c, 0x1d, 0x0e, 0x0f}, {0x00, 0x01, 0x12, 0x13, 0x1c, 0x1d, 0x1e, 0x0f}, {0x00, 0x01, 0x12, 0x13, 0x1c, 0x1d, 0x1e, 0x0f}, {0x00, 0x01, 0x12, 0x13, 0x1c, 0x1d, 0x1e, 0x0f}, {0x00, 0x01, 0x12, 0x13, 0x1c, 0x1d, 0x1e, 0x0f}, {0x00, 0x09, 0x12, 0x13, 0x1c, 0x15, 0x1e, 0x0f}, {0x00, 0x09, 0x12, 0x13, 0x1c, 0x15, 0x1e, 0x0f}, {0x00, 0x09, 0x12, 0x13, 0x1c, 0x15, 0x1e, 0x0f}, {0x00, 0x09, 0x12, 0x13, 0x1c, 0x15, 0x1e, 0x0f}, {0x00, 0x09, 0x02, 0x13, 0x1c, 0x15, 0x1e, 0x0f}, {0x00, 0x09, 0x02, 0x13, 0x1c, 0x15, 0x1e, 0x0f}, {0x00, 0x09, 0x02, 0x13, 0x1c, 0x15, 0x1e, 0x0f}, {0x00, 0x09, 0x02, 0x13, 0x14, 0x15, 0x1e, 0x0f}, {0x00, 0x09, 0x02, 0x13, 0x14, 0x15, 0x1e, 0x1f}, {0x00, 0x09, 0x02, 0x13, 0x14, 0x15, 0x1e, 0x1f}, {0x00, 0x09, 0x02, 0x13, 0x14, 0x15, 0x1e, 0x1f}, {0x00, 0x09, 0x02, 0x13, 0x14, 0x15, 0x1e, 0x1f}, {0x00, 0x09, 0x02, 0x13, 0x14, 0x15, 0x1e, 0x1f}, {0x00, 0x09, 0x02, 0x13, 0x14, 0x15, 0x1e, 0x1f}, {0x00, 0x09, 0x02, 0x13, 0x14, 0x15, 0x1e, 0x1f}, {0x00, 0x09, 0x02, 0x03, 0x14, 0x15, 0x1e, 0x1f}, {0x00, 0x09, 0x02, 0x03, 0x14, 0x15, 0x1e, 0x1f}, {0x00, 0x09, 0x02, 0x03, 0x14, 0x15, 0x1e, 0x1f} }, { {0x10, 0x01, 0x12, 0x1b, 0x1c, 0x1d, 0x0e, 0x07}, {0x10, 0x01, 0x12, 0x1b, 0x1c, 0x1d, 0x0e, 0x07}, {0x10, 0x01, 0x12, 0x1b, 0x1c, 0x1d, 0x0e, 0x07}, {0x10, 0x01, 0x12, 0x1b, 0x1c, 0x1d, 0x0e, 0x07}, {0x10, 0x01, 0x12, 0x1b, 0x1c, 0x1d, 0x0e, 0x07}, {0x10, 0x01, 0x12, 0x13, 0x1c, 0x1d, 0x0e, 0x07}, {0x10, 0x01, 0x12, 0x13, 0x1c, 0x1d, 0x0e, 0x07}, {0x10, 0x01, 0x12, 0x13, 0x1c, 0x1d, 0x0e, 0x07}, {0x10, 0x01, 0x12, 0x13, 0x1c, 0x1d, 0x0e, 0x07}, {0x10, 0x01, 0x12, 0x13, 0x1c, 0x1d, 0x0e, 0x07}, {0x10, 0x01, 0x12, 0x13, 0x1c, 0x1d, 0x0e, 0x0f}, {0x10, 0x01, 0x12, 0x13, 0x1c, 0x1d, 0x0e, 0x0f}, {0x10, 0x01, 0x12, 0x13, 0x1c, 0x1d, 0x0e, 0x0f}, {0x00, 0x01, 0x12, 0x13, 0x1c, 0x1d, 0x0e, 0x0f}, {0x00, 0x01, 0x12, 0x13, 0x1c, 0x1d, 0x1e, 0x0f}, {0x00, 0x01, 0x12, 0x13, 0x1c, 0x1d, 0x1e, 0x0f}, {0x00, 0x01, 0x12, 0x13, 0x1c, 0x1d, 0x1e, 0x0f}, {0x00, 0x01, 0x12, 0x13, 0x1c, 0x1d, 0x1e, 0x0f}, {0x00, 0x09, 0x12, 0x13, 0x1c, 0x15, 0x1e, 0x0f}, {0x00, 0x09, 0x12, 0x13, 0x1c, 0x15, 0x1e, 0x0f}, {0x00, 0x09, 0x12, 0x13, 0x1c, 0x15, 0x1e, 0x0f}, {0x00, 0x09, 0x12, 0x13, 0x1c, 0x15, 0x1e, 0x0f}, {0x00, 0x09, 0x02, 0x13, 0x1c, 0x15, 0x1e, 0x0f}, {0x00, 0x09, 0x02, 0x13, 0x1c, 0x15, 0x1e, 0x0f}, {0x00, 0x09, 0x02, 0x13, 0x14, 0x15, 0x1e, 0x0f}, {0x00, 0x09, 0x02, 0x13, 0x14, 0x15, 0x1e, 0x0f}, {0x00, 0x09, 0x02, 0x13, 0x14, 0x15, 0x1e, 0x1f}, {0x00, 0x09, 0x02, 0x13, 0x14, 0x15, 0x1e, 0x1f}, {0x00, 0x09, 0x02, 0x13, 0x14, 0x15, 0x1e, 0x1f}, {0x00, 0x09, 0x02, 0x13, 0x14, 0x15, 0x1e, 0x1f}, {0x00, 0x09, 0x02, 0x13, 0x14, 0x15, 0x1e, 0x1f}, {0x00, 0x09, 0x02, 0x13, 0x14, 0x15, 0x1e, 0x1f}, {0x00, 0x09, 0x02, 0x03, 0x14, 0x15, 0x1e, 0x1f}, {0x00, 0x09, 0x02, 0x03, 0x14, 0x15, 0x1e, 0x1f}, {0x00, 0x09, 0x02, 0x03, 0x14, 0x15, 0x1e, 0x1f}, {0x00, 0x09, 0x02, 0x03, 0x14, 0x15, 0x1e, 0x1f} }, { {0x10, 0x01, 0x12, 0x1b, 0x1c, 0x1d, 0x0e, 0x07}, {0x10, 0x01, 0x12, 0x1b, 0x1c, 0x1d, 0x0e, 0x07}, {0x10, 0x01, 0x12, 0x1b, 0x1c, 0x1d, 0x0e, 0x07}, {0x10, 0x01, 0x12, 0x1b, 0x1c, 0x1d, 0x0e, 0x07}, {0x10, 0x01, 0x12, 0x1b, 0x1c, 0x1d, 0x0e, 0x07}, {0x10, 0x01, 0x12, 0x1b, 0x1c, 0x1d, 0x0e, 0x07}, {0x10, 0x01, 0x12, 0x13, 0x1c, 0x1d, 0x0e, 0x07}, {0x10, 0x01, 0x12, 0x13, 0x1c, 0x1d, 0x0e, 0x07}, {0x10, 0x01, 0x12, 0x13, 0x1c, 0x1d, 0x0e, 0x07}, {0x10, 0x01, 0x12, 0x13, 0x1c, 0x1d, 0x0e, 0x07}, {0x10, 0x01, 0x12, 0x13, 0x1c, 0x1d, 0x0e, 0x0f}, {0x10, 0x01, 0x12, 0x13, 0x1c, 0x1d, 0x0e, 0x0f}, {0x10, 0x01, 0x12, 0x13, 0x1c, 0x1d, 0x0e, 0x0f}, {0x10, 0x01, 0x12, 0x13, 0x1c, 0x1d, 0x0e, 0x0f}, {0x00, 0x01, 0x12, 0x13, 0x1c, 0x1d, 0x1e, 0x0f}, {0x00, 0x01, 0x12, 0x13, 0x1c, 0x1d, 0x1e, 0x0f}, {0x00, 0x01, 0x12, 0x13, 0x1c, 0x1d, 0x1e, 0x0f}, {0x00, 0x01, 0x12, 0x13, 0x1c, 0x1d, 0x1e, 0x0f}, {0x00, 0x09, 0x12, 0x13, 0x1c, 0x15, 0x1e, 0x0f}, {0x00, 0x09, 0x12, 0x13, 0x1c, 0x15, 0x1e, 0x0f}, {0x00, 0x09, 0x12, 0x13, 0x1c, 0x15, 0x1e, 0x0f}, {0x00, 0x09, 0x12, 0x13, 0x1c, 0x15, 0x1e, 0x0f}, {0x00, 0x09, 0x02, 0x13, 0x1c, 0x15, 0x1e, 0x0f}, {0x00, 0x09, 0x02, 0x13, 0x14, 0x15, 0x1e, 0x0f}, {0x00, 0x09, 0x02, 0x13, 0x14, 0x15, 0x1e, 0x0f}, {0x00, 0x09, 0x02, 0x13, 0x14, 0x15, 0x1e, 0x0f}, {0x00, 0x09, 0x02, 0x13, 0x14, 0x15, 0x1e, 0x1f}, {0x00, 0x09, 0x02, 0x13, 0x14, 0x15, 0x1e, 0x1f}, {0x00, 0x09, 0x02, 0x13, 0x14, 0x15, 0x1e, 0x1f}, {0x00, 0x09, 0x02, 0x13, 0x14, 0x15, 0x1e, 0x1f}, {0x00, 0x09, 0x02, 0x13, 0x14, 0x15, 0x1e, 0x1f}, {0x00, 0x09, 0x02, 0x03, 0x14, 0x15, 0x1e, 0x1f}, {0x00, 0x09, 0x02, 0x03, 0x14, 0x15, 0x1e, 0x1f}, {0x00, 0x09, 0x02, 0x03, 0x14, 0x15, 0x1e, 0x1f}, {0x00, 0x09, 0x02, 0x03, 0x14, 0x15, 0x1e, 0x1f}, {0x00, 0x09, 0x02, 0x03, 0x14, 0x15, 0x1e, 0x1f} }, { {0x10, 0x01, 0x12, 0x1b, 0x0c, 0x1d, 0x0e, 0x07}, {0x10, 0x01, 0x12, 0x1b, 0x0c, 0x1d, 0x0e, 0x07}, {0x10, 0x01, 0x12, 0x1b, 0x0c, 0x1d, 0x0e, 0x07}, {0x10, 0x01, 0x12, 0x1b, 0x0c, 0x1d, 0x0e, 0x07}, {0x10, 0x01, 0x12, 0x1b, 0x0c, 0x1d, 0x0e, 0x07}, {0x10, 0x01, 0x12, 0x1b, 0x0c, 0x1d, 0x0e, 0x07}, {0x10, 0x01, 0x12, 0x1b, 0x0c, 0x1d, 0x0e, 0x07}, {0x10, 0x01, 0x12, 0x13, 0x0c, 0x1d, 0x0e, 0x07}, {0x10, 0x01, 0x12, 0x13, 0x0c, 0x1d, 0x0e, 0x07}, {0x10, 0x01, 0x12, 0x13, 0x0c, 0x1d, 0x0e, 0x07}, {0x10, 0x01, 0x12, 0x13, 0x0c, 0x1d, 0x0e, 0x0f}, {0x10, 0x01, 0x12, 0x13, 0x0c, 0x1d, 0x0e, 0x0f}, {0x10, 0x01, 0x12, 0x13, 0x0c, 0x1d, 0x0e, 0x0f}, {0x10, 0x01, 0x12, 0x13, 0x0c, 0x1d, 0x0e, 0x0f}, {0x08, 0x01, 0x12, 0x13, 0x0c, 0x1d, 0x1e, 0x0f}, {0x08, 0x01, 0x12, 0x13, 0x0c, 0x1d, 0x1e, 0x0f}, {0x08, 0x01, 0x12, 0x13, 0x0c, 0x1d, 0x1e, 0x0f}, {0x08, 0x01, 0x12, 0x13, 0x0c, 0x1d, 0x1e, 0x0f}, {0x08, 0x09, 0x12, 0x13, 0x0c, 0x15, 0x1e, 0x0f}, {0x08, 0x09, 0x12, 0x13, 0x0c, 0x15, 0x1e, 0x0f}, {0x08, 0x09, 0x12, 0x13, 0x0c, 0x15, 0x1e, 0x0f}, {0x08, 0x09, 0x12, 0x13, 0x0c, 0x15, 0x1e, 0x0f}, {0x08, 0x09, 0x02, 0x13, 0x14, 0x15, 0x1e, 0x0f}, {0x08, 0x09, 0x02, 0x13, 0x14, 0x15, 0x1e, 0x0f}, {0x08, 0x09, 0x02, 0x13, 0x14, 0x15, 0x1e, 0x0f}, {0x08, 0x09, 0x02, 0x13, 0x14, 0x15, 0x1e, 0x0f}, {0x08, 0x09, 0x02, 0x13, 0x14, 0x15, 0x1e, 0x1f}, {0x08, 0x09, 0x02, 0x13, 0x14, 0x15, 0x1e, 0x1f}, {0x08, 0x09, 0x02, 0x13, 0x14, 0x15, 0x1e, 0x1f}, {0x08, 0x09, 0x02, 0x13, 0x14, 0x15, 0x1e, 0x1f}, {0x08, 0x09, 0x02, 0x03, 0x14, 0x15, 0x1e, 0x1f}, {0x08, 0x09, 0x02, 0x03, 0x14, 0x15, 0x1e, 0x1f}, {0x08, 0x09, 0x02, 0x03, 0x14, 0x15, 0x1e, 0x1f}, {0x08, 0x09, 0x02, 0x03, 0x14, 0x15, 0x1e, 0x1f}, {0x08, 0x09, 0x02, 0x03, 0x14, 0x15, 0x1e, 0x1f}, {0x08, 0x09, 0x02, 0x03, 0x14, 0x15, 0x1e, 0x1f} }, { {0x10, 0x01, 0x12, 0x1b, 0x0c, 0x1d, 0x0e, 0x07}, {0x10, 0x01, 0x12, 0x1b, 0x0c, 0x1d, 0x0e, 0x07}, {0x10, 0x01, 0x12, 0x1b, 0x0c, 0x1d, 0x0e, 0x07}, {0x10, 0x01, 0x12, 0x1b, 0x0c, 0x1d, 0x0e, 0x07}, {0x10, 0x01, 0x12, 0x1b, 0x0c, 0x1d, 0x0e, 0x07}, {0x10, 0x01, 0x12, 0x1b, 0x0c, 0x1d, 0x0e, 0x07}, {0x10, 0x01, 0x12, 0x1b, 0x0c, 0x1d, 0x0e, 0x07}, {0x10, 0x01, 0x12, 0x1b, 0x0c, 0x1d, 0x0e, 0x07}, {0x10, 0x01, 0x12, 0x13, 0x0c, 0x1d, 0x0e, 0x07}, {0x10, 0x01, 0x12, 0x13, 0x0c, 0x1d, 0x0e, 0x07}, {0x10, 0x01, 0x12, 0x13, 0x0c, 0x1d, 0x0e, 0x0f}, {0x10, 0x01, 0x12, 0x13, 0x0c, 0x1d, 0x0e, 0x0f}, {0x10, 0x01, 0x12, 0x13, 0x0c, 0x1d, 0x0e, 0x0f}, {0x10, 0x01, 0x12, 0x13, 0x0c, 0x1d, 0x0e, 0x0f}, {0x08, 0x01, 0x12, 0x13, 0x0c, 0x1d, 0x1e, 0x0f}, {0x08, 0x01, 0x12, 0x13, 0x0c, 0x1d, 0x1e, 0x0f}, {0x08, 0x01, 0x12, 0x13, 0x0c, 0x1d, 0x1e, 0x0f}, {0x08, 0x01, 0x12, 0x13, 0x0c, 0x1d, 0x1e, 0x0f}, {0x08, 0x09, 0x12, 0x13, 0x0c, 0x15, 0x1e, 0x0f}, {0x08, 0x09, 0x12, 0x13, 0x0c, 0x15, 0x1e, 0x0f}, {0x08, 0x09, 0x12, 0x13, 0x0c, 0x15, 0x1e, 0x0f}, {0x08, 0x09, 0x12, 0x13, 0x0c, 0x15, 0x1e, 0x0f}, {0x08, 0x09, 0x02, 0x13, 0x14, 0x15, 0x1e, 0x0f}, {0x08, 0x09, 0x02, 0x13, 0x14, 0x15, 0x1e, 0x0f}, {0x08, 0x09, 0x02, 0x13, 0x14, 0x15, 0x1e, 0x0f}, {0x08, 0x09, 0x02, 0x13, 0x14, 0x15, 0x1e, 0x0f}, {0x08, 0x09, 0x02, 0x13, 0x14, 0x15, 0x1e, 0x1f}, {0x08, 0x09, 0x02, 0x13, 0x14, 0x15, 0x1e, 0x1f}, {0x08, 0x09, 0x02, 0x13, 0x14, 0x15, 0x1e, 0x1f}, {0x08, 0x09, 0x02, 0x03, 0x14, 0x15, 0x1e, 0x1f}, {0x08, 0x09, 0x02, 0x03, 0x14, 0x15, 0x1e, 0x1f}, {0x08, 0x09, 0x02, 0x03, 0x14, 0x15, 0x1e, 0x1f}, {0x08, 0x09, 0x02, 0x03, 0x14, 0x15, 0x1e, 0x1f}, {0x08, 0x09, 0x02, 0x03, 0x14, 0x15, 0x1e, 0x1f}, {0x08, 0x09, 0x02, 0x03, 0x14, 0x15, 0x1e, 0x1f}, {0x08, 0x09, 0x02, 0x03, 0x14, 0x15, 0x1e, 0x1f} }, { {0x10, 0x01, 0x12, 0x1b, 0x0c, 0x1d, 0x0e, 0x07}, {0x10, 0x01, 0x12, 0x1b, 0x0c, 0x1d, 0x0e, 0x07}, {0x10, 0x01, 0x12, 0x1b, 0x0c, 0x1d, 0x0e, 0x07}, {0x10, 0x01, 0x12, 0x1b, 0x0c, 0x1d, 0x0e, 0x07}, {0x10, 0x01, 0x12, 0x1b, 0x0c, 0x1d, 0x0e, 0x07}, {0x10, 0x01, 0x12, 0x1b, 0x0c, 0x1d, 0x0e, 0x07}, {0x10, 0x01, 0x12, 0x1b, 0x0c, 0x1d, 0x0e, 0x07}, {0x10, 0x01, 0x12, 0x1b, 0x0c, 0x1d, 0x0e, 0x07}, {0x10, 0x01, 0x12, 0x1b, 0x0c, 0x1d, 0x0e, 0x07}, {0x10, 0x01, 0x12, 0x13, 0x0c, 0x1d, 0x0e, 0x07}, {0x10, 0x01, 0x12, 0x13, 0x0c, 0x1d, 0x0e, 0x0f}, {0x10, 0x01, 0x12, 0x13, 0x0c, 0x1d, 0x0e, 0x0f}, {0x10, 0x01, 0x12, 0x13, 0x0c, 0x1d, 0x0e, 0x0f}, {0x10, 0x01, 0x12, 0x13, 0x0c, 0x1d, 0x0e, 0x0f}, {0x08, 0x01, 0x12, 0x13, 0x0c, 0x1d, 0x1e, 0x0f}, {0x08, 0x01, 0x12, 0x13, 0x0c, 0x1d, 0x1e, 0x0f}, {0x08, 0x01, 0x12, 0x13, 0x0c, 0x1d, 0x1e, 0x0f}, {0x08, 0x01, 0x12, 0x13, 0x0c, 0x1d, 0x1e, 0x0f}, {0x08, 0x09, 0x12, 0x13, 0x0c, 0x15, 0x1e, 0x0f}, {0x08, 0x09, 0x12, 0x13, 0x0c, 0x15, 0x1e, 0x0f}, {0x08, 0x09, 0x12, 0x13, 0x0c, 0x15, 0x1e, 0x0f}, {0x08, 0x09, 0x12, 0x13, 0x0c, 0x15, 0x1e, 0x0f}, {0x08, 0x09, 0x02, 0x13, 0x14, 0x15, 0x1e, 0x0f}, {0x08, 0x09, 0x02, 0x13, 0x14, 0x15, 0x1e, 0x0f}, {0x08, 0x09, 0x02, 0x13, 0x14, 0x15, 0x1e, 0x0f}, {0x08, 0x09, 0x02, 0x13, 0x14, 0x15, 0x1e, 0x0f}, {0x08, 0x09, 0x02, 0x13, 0x14, 0x15, 0x1e, 0x1f}, {0x08, 0x09, 0x02, 0x13, 0x14, 0x15, 0x1e, 0x1f}, {0x08, 0x09, 0x02, 0x03, 0x14, 0x15, 0x1e, 0x1f}, {0x08, 0x09, 0x02, 0x03, 0x14, 0x15, 0x1e, 0x1f}, {0x08, 0x09, 0x02, 0x03, 0x14, 0x15, 0x1e, 0x1f}, {0x08, 0x09, 0x02, 0x03, 0x14, 0x15, 0x1e, 0x1f}, {0x08, 0x09, 0x02, 0x03, 0x14, 0x15, 0x1e, 0x1f}, {0x08, 0x09, 0x02, 0x03, 0x14, 0x15, 0x1e, 0x1f}, {0x08, 0x09, 0x02, 0x03, 0x14, 0x15, 0x1e, 0x1f}, {0x08, 0x09, 0x02, 0x03, 0x14, 0x15, 0x1e, 0x1f} }, { {0x10, 0x01, 0x12, 0x1b, 0x0c, 0x1d, 0x0e, 0x07}, {0x10, 0x01, 0x12, 0x1b, 0x0c, 0x1d, 0x0e, 0x07}, {0x10, 0x01, 0x12, 0x1b, 0x0c, 0x1d, 0x0e, 0x07}, {0x10, 0x01, 0x12, 0x1b, 0x0c, 0x1d, 0x0e, 0x07}, {0x10, 0x01, 0x12, 0x1b, 0x0c, 0x1d, 0x0e, 0x07}, {0x10, 0x01, 0x12, 0x1b, 0x0c, 0x1d, 0x0e, 0x07}, {0x10, 0x01, 0x12, 0x1b, 0x0c, 0x1d, 0x0e, 0x07}, {0x10, 0x01, 0x12, 0x1b, 0x0c, 0x1d, 0x0e, 0x07}, {0x10, 0x01, 0x12, 0x1b, 0x0c, 0x1d, 0x0e, 0x07}, {0x10, 0x01, 0x12, 0x1b, 0x0c, 0x1d, 0x0e, 0x07}, {0x10, 0x01, 0x12, 0x13, 0x0c, 0x1d, 0x0e, 0x0f}, {0x10, 0x01, 0x12, 0x13, 0x0c, 0x1d, 0x0e, 0x0f}, {0x10, 0x01, 0x12, 0x13, 0x0c, 0x1d, 0x0e, 0x0f}, {0x10, 0x01, 0x12, 0x13, 0x0c, 0x1d, 0x0e, 0x0f}, {0x08, 0x01, 0x12, 0x13, 0x0c, 0x1d, 0x1e, 0x0f}, {0x08, 0x01, 0x12, 0x13, 0x0c, 0x1d, 0x1e, 0x0f}, {0x08, 0x01, 0x12, 0x13, 0x0c, 0x1d, 0x1e, 0x0f}, {0x08, 0x01, 0x12, 0x13, 0x0c, 0x1d, 0x1e, 0x0f}, {0x08, 0x09, 0x12, 0x13, 0x0c, 0x15, 0x1e, 0x0f}, {0x08, 0x09, 0x12, 0x13, 0x0c, 0x15, 0x1e, 0x0f}, {0x08, 0x09, 0x12, 0x13, 0x0c, 0x15, 0x1e, 0x0f}, {0x08, 0x09, 0x12, 0x13, 0x0c, 0x15, 0x1e, 0x0f}, {0x08, 0x09, 0x02, 0x13, 0x14, 0x15, 0x1e, 0x0f}, {0x08, 0x09, 0x02, 0x13, 0x14, 0x15, 0x1e, 0x0f}, {0x08, 0x09, 0x02, 0x13, 0x14, 0x15, 0x1e, 0x0f}, {0x08, 0x09, 0x02, 0x13, 0x14, 0x15, 0x1e, 0x0f}, {0x08, 0x09, 0x02, 0x13, 0x14, 0x15, 0x1e, 0x1f}, {0x08, 0x09, 0x02, 0x03, 0x14, 0x15, 0x1e, 0x1f}, {0x08, 0x09, 0x02, 0x03, 0x14, 0x15, 0x1e, 0x1f}, {0x08, 0x09, 0x02, 0x03, 0x14, 0x15, 0x1e, 0x1f}, {0x08, 0x09, 0x02, 0x03, 0x14, 0x15, 0x1e, 0x1f}, {0x08, 0x09, 0x02, 0x03, 0x14, 0x15, 0x1e, 0x1f}, {0x08, 0x09, 0x02, 0x03, 0x14, 0x15, 0x1e, 0x1f}, {0x08, 0x09, 0x02, 0x03, 0x14, 0x15, 0x1e, 0x1f}, {0x08, 0x09, 0x02, 0x03, 0x14, 0x15, 0x1e, 0x1f}, {0x08, 0x09, 0x02, 0x03, 0x14, 0x15, 0x1e, 0x1f} }, { {0x10, 0x11, 0x12, 0x1b, 0x0c, 0x1d, 0x0e, 0x07}, {0x10, 0x11, 0x12, 0x1b, 0x0c, 0x1d, 0x0e, 0x07}, {0x10, 0x11, 0x12, 0x1b, 0x0c, 0x1d, 0x0e, 0x07}, {0x10, 0x11, 0x12, 0x1b, 0x0c, 0x1d, 0x0e, 0x07}, {0x10, 0x11, 0x12, 0x1b, 0x0c, 0x1d, 0x0e, 0x07}, {0x10, 0x11, 0x12, 0x1b, 0x0c, 0x1d, 0x0e, 0x07}, {0x10, 0x11, 0x12, 0x1b, 0x0c, 0x1d, 0x0e, 0x07}, {0x10, 0x11, 0x12, 0x1b, 0x0c, 0x1d, 0x0e, 0x07}, {0x10, 0x11, 0x12, 0x1b, 0x0c, 0x1d, 0x0e, 0x07}, {0x10, 0x11, 0x12, 0x1b, 0x0c, 0x1d, 0x0e, 0x07}, {0x10, 0x11, 0x12, 0x0b, 0x0c, 0x1d, 0x0e, 0x0f}, {0x10, 0x11, 0x12, 0x0b, 0x0c, 0x1d, 0x0e, 0x0f}, {0x10, 0x11, 0x12, 0x0b, 0x0c, 0x1d, 0x0e, 0x0f}, {0x10, 0x11, 0x12, 0x0b, 0x0c, 0x1d, 0x0e, 0x0f}, {0x08, 0x11, 0x12, 0x0b, 0x0c, 0x1d, 0x1e, 0x0f}, {0x08, 0x11, 0x12, 0x0b, 0x0c, 0x1d, 0x1e, 0x0f}, {0x08, 0x11, 0x12, 0x0b, 0x0c, 0x1d, 0x1e, 0x0f}, {0x08, 0x11, 0x12, 0x0b, 0x0c, 0x1d, 0x1e, 0x0f}, {0x08, 0x19, 0x12, 0x0b, 0x0c, 0x15, 0x1e, 0x0f}, {0x08, 0x19, 0x12, 0x0b, 0x0c, 0x15, 0x1e, 0x0f}, {0x08, 0x19, 0x12, 0x0b, 0x0c, 0x15, 0x1e, 0x0f}, {0x08, 0x19, 0x12, 0x0b, 0x0c, 0x15, 0x1e, 0x0f}, {0x08, 0x19, 0x02, 0x0b, 0x14, 0x15, 0x1e, 0x0f}, {0x08, 0x19, 0x02, 0x0b, 0x14, 0x15, 0x1e, 0x0f}, {0x08, 0x19, 0x02, 0x0b, 0x14, 0x15, 0x1e, 0x0f}, {0x08, 0x19, 0x02, 0x0b, 0x14, 0x15, 0x1e, 0x0f}, {0x08, 0x19, 0x02, 0x03, 0x14, 0x15, 0x1e, 0x1f}, {0x08, 0x19, 0x02, 0x03, 0x14, 0x15, 0x1e, 0x1f}, {0x08, 0x19, 0x02, 0x03, 0x14, 0x15, 0x1e, 0x1f}, {0x08, 0x19, 0x02, 0x03, 0x14, 0x15, 0x1e, 0x1f}, {0x08, 0x19, 0x02, 0x03, 0x14, 0x15, 0x1e, 0x1f}, {0x08, 0x19, 0x02, 0x03, 0x14, 0x15, 0x1e, 0x1f}, {0x08, 0x19, 0x02, 0x03, 0x14, 0x15, 0x1e, 0x1f}, {0x08, 0x19, 0x02, 0x03, 0x14, 0x15, 0x1e, 0x1f}, {0x08, 0x19, 0x02, 0x03, 0x14, 0x15, 0x1e, 0x1f}, {0x08, 0x19, 0x02, 0x03, 0x14, 0x15, 0x1e, 0x1f} }, { {0x10, 0x11, 0x12, 0x1b, 0x0c, 0x1d, 0x0e, 0x07}, {0x10, 0x11, 0x12, 0x1b, 0x0c, 0x1d, 0x0e, 0x07}, {0x10, 0x11, 0x12, 0x1b, 0x0c, 0x1d, 0x0e, 0x07}, {0x10, 0x11, 0x12, 0x1b, 0x0c, 0x1d, 0x0e, 0x07}, {0x10, 0x11, 0x12, 0x1b, 0x0c, 0x1d, 0x0e, 0x07}, {0x10, 0x11, 0x12, 0x1b, 0x0c, 0x1d, 0x0e, 0x07}, {0x10, 0x11, 0x12, 0x1b, 0x0c, 0x1d, 0x0e, 0x07}, {0x10, 0x11, 0x12, 0x1b, 0x0c, 0x1d, 0x0e, 0x07}, {0x10, 0x11, 0x12, 0x1b, 0x0c, 0x1d, 0x0e, 0x07}, {0x10, 0x11, 0x12, 0x1b, 0x0c, 0x1d, 0x0e, 0x07}, {0x10, 0x11, 0x12, 0x0b, 0x0c, 0x1d, 0x0e, 0x0f}, {0x10, 0x11, 0x12, 0x0b, 0x0c, 0x1d, 0x0e, 0x0f}, {0x10, 0x11, 0x12, 0x0b, 0x0c, 0x1d, 0x0e, 0x0f}, {0x10, 0x11, 0x12, 0x0b, 0x0c, 0x1d, 0x0e, 0x0f}, {0x08, 0x11, 0x12, 0x0b, 0x0c, 0x1d, 0x1e, 0x0f}, {0x08, 0x11, 0x12, 0x0b, 0x0c, 0x1d, 0x1e, 0x0f}, {0x08, 0x11, 0x12, 0x0b, 0x0c, 0x1d, 0x1e, 0x0f}, {0x08, 0x11, 0x12, 0x0b, 0x0c, 0x1d, 0x1e, 0x0f}, {0x08, 0x19, 0x12, 0x0b, 0x0c, 0x15, 0x1e, 0x0f}, {0x08, 0x19, 0x12, 0x0b, 0x0c, 0x15, 0x1e, 0x0f}, {0x08, 0x19, 0x12, 0x0b, 0x0c, 0x15, 0x1e, 0x0f}, {0x08, 0x19, 0x12, 0x0b, 0x0c, 0x15, 0x1e, 0x0f}, {0x08, 0x19, 0x02, 0x0b, 0x14, 0x15, 0x1e, 0x0f}, {0x08, 0x19, 0x02, 0x0b, 0x14, 0x15, 0x1e, 0x0f}, {0x08, 0x19, 0x02, 0x0b, 0x14, 0x15, 0x1e, 0x0f}, {0x08, 0x19, 0x02, 0x0b, 0x14, 0x15, 0x1e, 0x0f}, {0x08, 0x19, 0x02, 0x03, 0x14, 0x15, 0x1e, 0x1f}, {0x08, 0x19, 0x02, 0x03, 0x14, 0x15, 0x1e, 0x1f}, {0x08, 0x19, 0x02, 0x03, 0x14, 0x15, 0x1e, 0x1f}, {0x08, 0x19, 0x02, 0x03, 0x14, 0x15, 0x1e, 0x1f}, {0x08, 0x19, 0x02, 0x03, 0x14, 0x15, 0x1e, 0x1f}, {0x08, 0x19, 0x02, 0x03, 0x14, 0x15, 0x1e, 0x1f}, {0x08, 0x19, 0x02, 0x03, 0x14, 0x15, 0x1e, 0x1f}, {0x08, 0x19, 0x02, 0x03, 0x14, 0x15, 0x1e, 0x1f}, {0x08, 0x19, 0x02, 0x03, 0x14, 0x15, 0x1e, 0x1f}, {0x08, 0x19, 0x02, 0x03, 0x14, 0x15, 0x1e, 0x1f} }, { {0x10, 0x11, 0x12, 0x1b, 0x0c, 0x1d, 0x0e, 0x07}, {0x10, 0x11, 0x12, 0x1b, 0x0c, 0x1d, 0x0e, 0x07}, {0x10, 0x11, 0x12, 0x1b, 0x0c, 0x1d, 0x0e, 0x07}, {0x10, 0x11, 0x12, 0x1b, 0x0c, 0x1d, 0x0e, 0x07}, {0x10, 0x11, 0x12, 0x1b, 0x0c, 0x1d, 0x0e, 0x07}, {0x10, 0x11, 0x12, 0x1b, 0x0c, 0x1d, 0x0e, 0x07}, {0x10, 0x11, 0x12, 0x1b, 0x0c, 0x1d, 0x0e, 0x07}, {0x10, 0x11, 0x12, 0x1b, 0x0c, 0x1d, 0x0e, 0x07}, {0x10, 0x11, 0x12, 0x1b, 0x0c, 0x1d, 0x0e, 0x07}, {0x10, 0x11, 0x12, 0x1b, 0x0c, 0x1d, 0x0e, 0x07}, {0x10, 0x11, 0x12, 0x0b, 0x0c, 0x1d, 0x0e, 0x0f}, {0x10, 0x11, 0x12, 0x0b, 0x0c, 0x1d, 0x0e, 0x0f}, {0x10, 0x11, 0x12, 0x0b, 0x0c, 0x1d, 0x0e, 0x0f}, {0x10, 0x11, 0x12, 0x0b, 0x0c, 0x1d, 0x0e, 0x0f}, {0x08, 0x11, 0x12, 0x0b, 0x0c, 0x1d, 0x1e, 0x0f}, {0x08, 0x11, 0x12, 0x0b, 0x0c, 0x1d, 0x1e, 0x0f}, {0x08, 0x11, 0x12, 0x0b, 0x0c, 0x1d, 0x1e, 0x0f}, {0x08, 0x11, 0x12, 0x0b, 0x0c, 0x1d, 0x1e, 0x0f}, {0x08, 0x19, 0x12, 0x0b, 0x0c, 0x15, 0x1e, 0x0f}, {0x08, 0x19, 0x12, 0x0b, 0x0c, 0x15, 0x1e, 0x0f}, {0x08, 0x19, 0x12, 0x0b, 0x0c, 0x15, 0x1e, 0x0f}, {0x08, 0x19, 0x12, 0x0b, 0x0c, 0x15, 0x1e, 0x0f}, {0x08, 0x19, 0x02, 0x0b, 0x14, 0x15, 0x1e, 0x0f}, {0x08, 0x19, 0x02, 0x0b, 0x14, 0x15, 0x1e, 0x0f}, {0x08, 0x19, 0x02, 0x0b, 0x14, 0x15, 0x1e, 0x0f}, {0x08, 0x19, 0x02, 0x0b, 0x14, 0x15, 0x1e, 0x0f}, {0x08, 0x19, 0x02, 0x03, 0x14, 0x15, 0x1e, 0x1f}, {0x08, 0x19, 0x02, 0x03, 0x14, 0x15, 0x1e, 0x1f}, {0x08, 0x19, 0x02, 0x03, 0x14, 0x15, 0x1e, 0x1f}, {0x08, 0x19, 0x02, 0x03, 0x14, 0x15, 0x1e, 0x1f}, {0x08, 0x19, 0x02, 0x03, 0x14, 0x15, 0x1e, 0x1f}, {0x08, 0x19, 0x02, 0x03, 0x14, 0x15, 0x1e, 0x1f}, {0x08, 0x19, 0x02, 0x03, 0x14, 0x15, 0x1e, 0x1f}, {0x08, 0x19, 0x02, 0x03, 0x14, 0x15, 0x1e, 0x1f}, {0x08, 0x19, 0x02, 0x03, 0x14, 0x15, 0x1e, 0x1f}, {0x08, 0x19, 0x02, 0x03, 0x14, 0x15, 0x1e, 0x1f} }, { {0x10, 0x11, 0x12, 0x1b, 0x0c, 0x1d, 0x0e, 0x07}, {0x10, 0x11, 0x12, 0x1b, 0x0c, 0x1d, 0x0e, 0x07}, {0x10, 0x11, 0x12, 0x1b, 0x0c, 0x1d, 0x0e, 0x07}, {0x10, 0x11, 0x12, 0x1b, 0x0c, 0x1d, 0x0e, 0x07}, {0x10, 0x11, 0x12, 0x1b, 0x0c, 0x1d, 0x0e, 0x07}, {0x10, 0x11, 0x12, 0x1b, 0x0c, 0x1d, 0x0e, 0x07}, {0x10, 0x11, 0x12, 0x1b, 0x0c, 0x1d, 0x0e, 0x07}, {0x10, 0x11, 0x12, 0x1b, 0x0c, 0x1d, 0x0e, 0x07}, {0x10, 0x11, 0x12, 0x1b, 0x0c, 0x1d, 0x0e, 0x07}, {0x10, 0x11, 0x12, 0x1b, 0x0c, 0x1d, 0x0e, 0x07}, {0x10, 0x11, 0x12, 0x0b, 0x0c, 0x1d, 0x0e, 0x0f}, {0x10, 0x11, 0x12, 0x0b, 0x0c, 0x1d, 0x0e, 0x0f}, {0x10, 0x11, 0x12, 0x0b, 0x0c, 0x1d, 0x0e, 0x0f}, {0x10, 0x11, 0x12, 0x0b, 0x0c, 0x1d, 0x0e, 0x0f}, {0x08, 0x11, 0x12, 0x0b, 0x0c, 0x1d, 0x1e, 0x0f}, {0x08, 0x11, 0x12, 0x0b, 0x0c, 0x1d, 0x1e, 0x0f}, {0x08, 0x11, 0x12, 0x0b, 0x0c, 0x1d, 0x1e, 0x0f}, {0x08, 0x11, 0x12, 0x0b, 0x0c, 0x1d, 0x1e, 0x0f}, {0x08, 0x19, 0x12, 0x0b, 0x0c, 0x15, 0x1e, 0x0f}, {0x08, 0x19, 0x12, 0x0b, 0x0c, 0x15, 0x1e, 0x0f}, {0x08, 0x19, 0x12, 0x0b, 0x0c, 0x15, 0x1e, 0x0f}, {0x08, 0x19, 0x12, 0x0b, 0x0c, 0x15, 0x1e, 0x0f}, {0x08, 0x19, 0x02, 0x0b, 0x14, 0x15, 0x1e, 0x0f}, {0x08, 0x19, 0x02, 0x0b, 0x14, 0x15, 0x1e, 0x0f}, {0x08, 0x19, 0x02, 0x0b, 0x14, 0x15, 0x1e, 0x0f}, {0x08, 0x19, 0x02, 0x0b, 0x14, 0x15, 0x1e, 0x0f}, {0x08, 0x19, 0x02, 0x03, 0x14, 0x15, 0x1e, 0x1f}, {0x08, 0x19, 0x02, 0x03, 0x14, 0x15, 0x1e, 0x1f}, {0x08, 0x19, 0x02, 0x03, 0x14, 0x15, 0x1e, 0x1f}, {0x08, 0x19, 0x02, 0x03, 0x14, 0x15, 0x1e, 0x1f}, {0x08, 0x19, 0x02, 0x03, 0x14, 0x15, 0x1e, 0x1f}, {0x08, 0x19, 0x02, 0x03, 0x14, 0x15, 0x1e, 0x1f}, {0x08, 0x19, 0x02, 0x03, 0x14, 0x15, 0x1e, 0x1f}, {0x08, 0x19, 0x02, 0x03, 0x14, 0x15, 0x1e, 0x1f}, {0x08, 0x19, 0x02, 0x03, 0x14, 0x15, 0x1e, 0x1f}, {0x08, 0x19, 0x02, 0x03, 0x14, 0x15, 0x1e, 0x1f} }, { {0x10, 0x11, 0x1a, 0x1b, 0x0c, 0x1d, 0x06, 0x07}, {0x10, 0x11, 0x1a, 0x1b, 0x0c, 0x1d, 0x06, 0x07}, {0x10, 0x11, 0x1a, 0x1b, 0x0c, 0x1d, 0x06, 0x07}, {0x10, 0x11, 0x1a, 0x1b, 0x0c, 0x1d, 0x06, 0x07}, {0x10, 0x11, 0x1a, 0x1b, 0x0c, 0x1d, 0x06, 0x07}, {0x10, 0x11, 0x1a, 0x1b, 0x0c, 0x1d, 0x06, 0x07}, {0x10, 0x11, 0x1a, 0x1b, 0x0c, 0x1d, 0x06, 0x07}, {0x10, 0x11, 0x1a, 0x1b, 0x0c, 0x1d, 0x06, 0x07}, {0x10, 0x11, 0x1a, 0x1b, 0x0c, 0x1d, 0x06, 0x07}, {0x10, 0x11, 0x1a, 0x1b, 0x0c, 0x1d, 0x06, 0x07}, {0x10, 0x11, 0x1a, 0x0b, 0x0c, 0x1d, 0x06, 0x0f}, {0x10, 0x11, 0x1a, 0x0b, 0x0c, 0x1d, 0x06, 0x0f}, {0x10, 0x11, 0x1a, 0x0b, 0x0c, 0x1d, 0x06, 0x0f}, {0x10, 0x11, 0x1a, 0x0b, 0x0c, 0x1d, 0x06, 0x0f}, {0x08, 0x11, 0x1a, 0x0b, 0x0c, 0x1d, 0x16, 0x0f}, {0x08, 0x11, 0x1a, 0x0b, 0x0c, 0x1d, 0x16, 0x0f}, {0x08, 0x11, 0x1a, 0x0b, 0x0c, 0x1d, 0x16, 0x0f}, {0x08, 0x11, 0x1a, 0x0b, 0x0c, 0x1d, 0x16, 0x0f}, {0x08, 0x19, 0x1a, 0x0b, 0x0c, 0x15, 0x16, 0x0f}, {0x08, 0x19, 0x1a, 0x0b, 0x0c, 0x15, 0x16, 0x0f}, {0x08, 0x19, 0x1a, 0x0b, 0x0c, 0x15, 0x16, 0x0f}, {0x08, 0x19, 0x1a, 0x0b, 0x0c, 0x15, 0x16, 0x0f}, {0x08, 0x19, 0x0a, 0x0b, 0x14, 0x15, 0x16, 0x0f}, {0x08, 0x19, 0x0a, 0x0b, 0x14, 0x15, 0x16, 0x0f}, {0x08, 0x19, 0x0a, 0x0b, 0x14, 0x15, 0x16, 0x0f}, {0x08, 0x19, 0x0a, 0x0b, 0x14, 0x15, 0x16, 0x0f}, {0x08, 0x19, 0x0a, 0x03, 0x14, 0x15, 0x16, 0x1f}, {0x08, 0x19, 0x0a, 0x03, 0x14, 0x15, 0x16, 0x1f}, {0x08, 0x19, 0x0a, 0x03, 0x14, 0x15, 0x16, 0x1f}, {0x08, 0x19, 0x0a, 0x03, 0x14, 0x15, 0x16, 0x1f}, {0x08, 0x19, 0x0a, 0x03, 0x14, 0x15, 0x16, 0x1f}, {0x08, 0x19, 0x0a, 0x03, 0x14, 0x15, 0x16, 0x1f}, {0x08, 0x19, 0x0a, 0x03, 0x14, 0x15, 0x16, 0x1f}, {0x08, 0x19, 0x0a, 0x03, 0x14, 0x15, 0x16, 0x1f}, {0x08, 0x19, 0x0a, 0x03, 0x14, 0x15, 0x16, 0x1f}, {0x08, 0x19, 0x0a, 0x03, 0x14, 0x15, 0x16, 0x1f} }, { {0x10, 0x11, 0x1a, 0x1b, 0x0c, 0x1d, 0x06, 0x07}, {0x10, 0x11, 0x1a, 0x1b, 0x0c, 0x1d, 0x06, 0x07}, {0x10, 0x11, 0x1a, 0x1b, 0x0c, 0x1d, 0x06, 0x07}, {0x10, 0x11, 0x1a, 0x1b, 0x0c, 0x1d, 0x06, 0x07}, {0x10, 0x11, 0x1a, 0x1b, 0x0c, 0x1d, 0x06, 0x07}, {0x10, 0x11, 0x1a, 0x1b, 0x0c, 0x1d, 0x06, 0x07}, {0x10, 0x11, 0x1a, 0x1b, 0x0c, 0x1d, 0x06, 0x07}, {0x10, 0x11, 0x1a, 0x1b, 0x0c, 0x1d, 0x06, 0x07}, {0x10, 0x11, 0x1a, 0x1b, 0x0c, 0x1d, 0x06, 0x07}, {0x10, 0x11, 0x1a, 0x1b, 0x0c, 0x1d, 0x06, 0x07}, {0x10, 0x11, 0x1a, 0x0b, 0x0c, 0x1d, 0x06, 0x0f}, {0x10, 0x11, 0x1a, 0x0b, 0x0c, 0x1d, 0x06, 0x0f}, {0x10, 0x11, 0x1a, 0x0b, 0x0c, 0x1d, 0x06, 0x0f}, {0x10, 0x11, 0x1a, 0x0b, 0x0c, 0x1d, 0x06, 0x0f}, {0x08, 0x11, 0x1a, 0x0b, 0x0c, 0x1d, 0x16, 0x0f}, {0x08, 0x11, 0x1a, 0x0b, 0x0c, 0x1d, 0x16, 0x0f}, {0x08, 0x11, 0x1a, 0x0b, 0x0c, 0x1d, 0x16, 0x0f}, {0x08, 0x11, 0x1a, 0x0b, 0x0c, 0x1d, 0x16, 0x0f}, {0x08, 0x19, 0x1a, 0x0b, 0x0c, 0x15, 0x16, 0x0f}, {0x08, 0x19, 0x1a, 0x0b, 0x0c, 0x15, 0x16, 0x0f}, {0x08, 0x19, 0x1a, 0x0b, 0x0c, 0x15, 0x16, 0x0f}, {0x08, 0x19, 0x1a, 0x0b, 0x0c, 0x15, 0x16, 0x0f}, {0x08, 0x19, 0x0a, 0x0b, 0x14, 0x15, 0x16, 0x0f}, {0x08, 0x19, 0x0a, 0x0b, 0x14, 0x15, 0x16, 0x0f}, {0x08, 0x19, 0x0a, 0x0b, 0x14, 0x15, 0x16, 0x0f}, {0x08, 0x19, 0x0a, 0x0b, 0x14, 0x15, 0x16, 0x0f}, {0x08, 0x19, 0x0a, 0x03, 0x14, 0x15, 0x16, 0x1f}, {0x08, 0x19, 0x0a, 0x03, 0x14, 0x15, 0x16, 0x1f}, {0x08, 0x19, 0x0a, 0x03, 0x14, 0x15, 0x16, 0x1f}, {0x08, 0x19, 0x0a, 0x03, 0x14, 0x15, 0x16, 0x1f}, {0x08, 0x19, 0x0a, 0x03, 0x14, 0x15, 0x16, 0x1f}, {0x08, 0x19, 0x0a, 0x03, 0x14, 0x15, 0x16, 0x1f}, {0x08, 0x19, 0x0a, 0x03, 0x14, 0x15, 0x16, 0x1f}, {0x08, 0x19, 0x0a, 0x03, 0x14, 0x15, 0x16, 0x1f}, {0x08, 0x19, 0x0a, 0x03, 0x14, 0x15, 0x16, 0x1f}, {0x08, 0x19, 0x0a, 0x03, 0x14, 0x15, 0x16, 0x1f} }, { {0x10, 0x11, 0x1a, 0x1b, 0x0c, 0x1d, 0x06, 0x07}, {0x10, 0x11, 0x1a, 0x1b, 0x0c, 0x1d, 0x06, 0x07}, {0x10, 0x11, 0x1a, 0x1b, 0x0c, 0x1d, 0x06, 0x07}, {0x10, 0x11, 0x1a, 0x1b, 0x0c, 0x1d, 0x06, 0x07}, {0x10, 0x11, 0x1a, 0x1b, 0x0c, 0x1d, 0x06, 0x07}, {0x10, 0x11, 0x1a, 0x1b, 0x0c, 0x1d, 0x06, 0x07}, {0x10, 0x11, 0x1a, 0x1b, 0x0c, 0x1d, 0x06, 0x07}, {0x10, 0x11, 0x1a, 0x1b, 0x0c, 0x1d, 0x06, 0x07}, {0x10, 0x11, 0x1a, 0x1b, 0x0c, 0x1d, 0x06, 0x07}, {0x10, 0x11, 0x1a, 0x1b, 0x0c, 0x1d, 0x06, 0x07}, {0x10, 0x11, 0x1a, 0x0b, 0x0c, 0x1d, 0x06, 0x0f}, {0x10, 0x11, 0x1a, 0x0b, 0x0c, 0x1d, 0x06, 0x0f}, {0x10, 0x11, 0x1a, 0x0b, 0x0c, 0x1d, 0x06, 0x0f}, {0x10, 0x11, 0x1a, 0x0b, 0x0c, 0x1d, 0x06, 0x0f}, {0x08, 0x11, 0x1a, 0x0b, 0x0c, 0x1d, 0x16, 0x0f}, {0x08, 0x11, 0x1a, 0x0b, 0x0c, 0x1d, 0x16, 0x0f}, {0x08, 0x11, 0x1a, 0x0b, 0x0c, 0x1d, 0x16, 0x0f}, {0x08, 0x11, 0x1a, 0x0b, 0x0c, 0x1d, 0x16, 0x0f}, {0x08, 0x19, 0x1a, 0x0b, 0x0c, 0x15, 0x16, 0x0f}, {0x08, 0x19, 0x1a, 0x0b, 0x0c, 0x15, 0x16, 0x0f}, {0x08, 0x19, 0x1a, 0x0b, 0x0c, 0x15, 0x16, 0x0f}, {0x08, 0x19, 0x1a, 0x0b, 0x0c, 0x15, 0x16, 0x0f}, {0x08, 0x19, 0x0a, 0x0b, 0x14, 0x15, 0x16, 0x0f}, {0x08, 0x19, 0x0a, 0x0b, 0x14, 0x15, 0x16, 0x0f}, {0x08, 0x19, 0x0a, 0x0b, 0x14, 0x15, 0x16, 0x0f}, {0x08, 0x19, 0x0a, 0x0b, 0x14, 0x15, 0x16, 0x0f}, {0x08, 0x19, 0x0a, 0x03, 0x14, 0x15, 0x16, 0x1f}, {0x08, 0x19, 0x0a, 0x03, 0x14, 0x15, 0x16, 0x1f}, {0x08, 0x19, 0x0a, 0x03, 0x14, 0x15, 0x16, 0x1f}, {0x08, 0x19, 0x0a, 0x03, 0x14, 0x15, 0x16, 0x1f}, {0x08, 0x19, 0x0a, 0x03, 0x14, 0x15, 0x16, 0x1f}, {0x08, 0x19, 0x0a, 0x03, 0x14, 0x15, 0x16, 0x1f}, {0x08, 0x19, 0x0a, 0x03, 0x14, 0x15, 0x16, 0x1f}, {0x08, 0x19, 0x0a, 0x03, 0x14, 0x15, 0x16, 0x1f}, {0x08, 0x19, 0x0a, 0x03, 0x14, 0x15, 0x16, 0x1f}, {0x08, 0x19, 0x0a, 0x03, 0x14, 0x15, 0x16, 0x1f} }, { {0x10, 0x11, 0x1a, 0x1b, 0x0c, 0x1d, 0x06, 0x07}, {0x10, 0x11, 0x1a, 0x1b, 0x0c, 0x1d, 0x06, 0x07}, {0x10, 0x11, 0x1a, 0x1b, 0x0c, 0x1d, 0x06, 0x07}, {0x10, 0x11, 0x1a, 0x1b, 0x0c, 0x1d, 0x06, 0x07}, {0x10, 0x11, 0x1a, 0x1b, 0x0c, 0x1d, 0x06, 0x07}, {0x10, 0x11, 0x1a, 0x1b, 0x0c, 0x1d, 0x06, 0x07}, {0x10, 0x11, 0x1a, 0x1b, 0x0c, 0x1d, 0x06, 0x07}, {0x10, 0x11, 0x1a, 0x1b, 0x0c, 0x1d, 0x06, 0x07}, {0x10, 0x11, 0x1a, 0x1b, 0x0c, 0x1d, 0x06, 0x07}, {0x10, 0x11, 0x1a, 0x1b, 0x0c, 0x1d, 0x06, 0x07}, {0x10, 0x11, 0x1a, 0x0b, 0x0c, 0x1d, 0x06, 0x0f}, {0x10, 0x11, 0x1a, 0x0b, 0x0c, 0x1d, 0x06, 0x0f}, {0x10, 0x11, 0x1a, 0x0b, 0x0c, 0x1d, 0x06, 0x0f}, {0x10, 0x11, 0x1a, 0x0b, 0x0c, 0x1d, 0x06, 0x0f}, {0x08, 0x11, 0x1a, 0x0b, 0x0c, 0x1d, 0x16, 0x0f}, {0x08, 0x11, 0x1a, 0x0b, 0x0c, 0x1d, 0x16, 0x0f}, {0x08, 0x11, 0x1a, 0x0b, 0x0c, 0x1d, 0x16, 0x0f}, {0x08, 0x11, 0x1a, 0x0b, 0x0c, 0x1d, 0x16, 0x0f}, {0x08, 0x19, 0x1a, 0x0b, 0x0c, 0x15, 0x16, 0x0f}, {0x08, 0x19, 0x1a, 0x0b, 0x0c, 0x15, 0x16, 0x0f}, {0x08, 0x19, 0x1a, 0x0b, 0x0c, 0x15, 0x16, 0x0f}, {0x08, 0x19, 0x1a, 0x0b, 0x0c, 0x15, 0x16, 0x0f}, {0x08, 0x19, 0x0a, 0x0b, 0x14, 0x15, 0x16, 0x0f}, {0x08, 0x19, 0x0a, 0x0b, 0x14, 0x15, 0x16, 0x0f}, {0x08, 0x19, 0x0a, 0x0b, 0x14, 0x15, 0x16, 0x0f}, {0x08, 0x19, 0x0a, 0x0b, 0x14, 0x15, 0x16, 0x0f}, {0x08, 0x19, 0x0a, 0x03, 0x14, 0x15, 0x16, 0x1f}, {0x08, 0x19, 0x0a, 0x03, 0x14, 0x15, 0x16, 0x1f}, {0x08, 0x19, 0x0a, 0x03, 0x14, 0x15, 0x16, 0x1f}, {0x08, 0x19, 0x0a, 0x03, 0x14, 0x15, 0x16, 0x1f}, {0x08, 0x19, 0x0a, 0x03, 0x14, 0x15, 0x16, 0x1f}, {0x08, 0x19, 0x0a, 0x03, 0x14, 0x15, 0x16, 0x1f}, {0x08, 0x19, 0x0a, 0x03, 0x14, 0x15, 0x16, 0x1f}, {0x08, 0x19, 0x0a, 0x03, 0x14, 0x15, 0x16, 0x1f}, {0x08, 0x19, 0x0a, 0x03, 0x14, 0x15, 0x16, 0x1f}, {0x08, 0x19, 0x0a, 0x03, 0x14, 0x15, 0x16, 0x1f} }, { {0x10, 0x11, 0x1a, 0x1b, 0x0c, 0x0d, 0x06, 0x07}, {0x10, 0x11, 0x1a, 0x1b, 0x0c, 0x0d, 0x06, 0x07}, {0x10, 0x11, 0x1a, 0x1b, 0x0c, 0x0d, 0x06, 0x07}, {0x10, 0x11, 0x1a, 0x1b, 0x0c, 0x0d, 0x06, 0x07}, {0x10, 0x11, 0x1a, 0x1b, 0x0c, 0x0d, 0x06, 0x07}, {0x10, 0x11, 0x1a, 0x1b, 0x0c, 0x0d, 0x06, 0x07}, {0x10, 0x11, 0x1a, 0x1b, 0x0c, 0x0d, 0x06, 0x07}, {0x10, 0x11, 0x1a, 0x1b, 0x0c, 0x0d, 0x06, 0x07}, {0x10, 0x11, 0x1a, 0x1b, 0x0c, 0x0d, 0x06, 0x07}, {0x10, 0x11, 0x1a, 0x1b, 0x0c, 0x0d, 0x06, 0x07}, {0x10, 0x11, 0x1a, 0x0b, 0x0c, 0x0d, 0x06, 0x17}, {0x10, 0x11, 0x1a, 0x0b, 0x0c, 0x0d, 0x06, 0x17}, {0x10, 0x11, 0x1a, 0x0b, 0x0c, 0x0d, 0x06, 0x17}, {0x10, 0x11, 0x1a, 0x0b, 0x0c, 0x0d, 0x06, 0x17}, {0x08, 0x11, 0x1a, 0x0b, 0x0c, 0x0d, 0x16, 0x17}, {0x08, 0x11, 0x1a, 0x0b, 0x0c, 0x0d, 0x16, 0x17}, {0x08, 0x11, 0x1a, 0x0b, 0x0c, 0x0d, 0x16, 0x17}, {0x08, 0x11, 0x1a, 0x0b, 0x0c, 0x0d, 0x16, 0x17}, {0x08, 0x19, 0x1a, 0x0b, 0x0c, 0x05, 0x16, 0x17}, {0x08, 0x19, 0x1a, 0x0b, 0x0c, 0x05, 0x16, 0x17}, {0x08, 0x19, 0x1a, 0x0b, 0x0c, 0x05, 0x16, 0x17}, {0x08, 0x19, 0x1a, 0x0b, 0x0c, 0x05, 0x16, 0x17}, {0x08, 0x19, 0x0a, 0x0b, 0x14, 0x05, 0x16, 0x17}, {0x08, 0x19, 0x0a, 0x0b, 0x14, 0x05, 0x16, 0x17}, {0x08, 0x19, 0x0a, 0x0b, 0x14, 0x05, 0x16, 0x17}, {0x08, 0x19, 0x0a, 0x0b, 0x14, 0x05, 0x16, 0x17}, {0x08, 0x19, 0x0a, 0x03, 0x14, 0x05, 0x16, 0x1f}, {0x08, 0x19, 0x0a, 0x03, 0x14, 0x05, 0x16, 0x1f}, {0x08, 0x19, 0x0a, 0x03, 0x14, 0x05, 0x16, 0x1f}, {0x08, 0x19, 0x0a, 0x03, 0x14, 0x05, 0x16, 0x1f}, {0x08, 0x19, 0x0a, 0x03, 0x14, 0x05, 0x16, 0x1f}, {0x08, 0x19, 0x0a, 0x03, 0x14, 0x05, 0x16, 0x1f}, {0x08, 0x19, 0x0a, 0x03, 0x14, 0x05, 0x16, 0x1f}, {0x08, 0x19, 0x0a, 0x03, 0x14, 0x05, 0x16, 0x1f}, {0x08, 0x19, 0x0a, 0x03, 0x14, 0x05, 0x16, 0x1f}, {0x08, 0x19, 0x0a, 0x03, 0x14, 0x05, 0x16, 0x1f} }, { {0x10, 0x11, 0x1a, 0x1b, 0x0c, 0x0d, 0x06, 0x07}, {0x10, 0x11, 0x1a, 0x1b, 0x0c, 0x0d, 0x06, 0x07}, {0x10, 0x11, 0x1a, 0x1b, 0x0c, 0x0d, 0x06, 0x07}, {0x10, 0x11, 0x1a, 0x1b, 0x0c, 0x0d, 0x06, 0x07}, {0x10, 0x11, 0x1a, 0x1b, 0x0c, 0x0d, 0x06, 0x07}, {0x10, 0x11, 0x1a, 0x1b, 0x0c, 0x0d, 0x06, 0x07}, {0x10, 0x11, 0x1a, 0x1b, 0x0c, 0x0d, 0x06, 0x07}, {0x10, 0x11, 0x1a, 0x1b, 0x0c, 0x0d, 0x06, 0x07}, {0x10, 0x11, 0x1a, 0x1b, 0x0c, 0x0d, 0x06, 0x07}, {0x10, 0x11, 0x1a, 0x1b, 0x0c, 0x0d, 0x06, 0x17}, {0x10, 0x11, 0x1a, 0x0b, 0x0c, 0x0d, 0x06, 0x17}, {0x10, 0x11, 0x1a, 0x0b, 0x0c, 0x0d, 0x06, 0x17}, {0x10, 0x11, 0x1a, 0x0b, 0x0c, 0x0d, 0x06, 0x17}, {0x10, 0x11, 0x1a, 0x0b, 0x0c, 0x0d, 0x06, 0x17}, {0x08, 0x11, 0x1a, 0x0b, 0x0c, 0x0d, 0x16, 0x17}, {0x08, 0x11, 0x1a, 0x0b, 0x0c, 0x0d, 0x16, 0x17}, {0x08, 0x11, 0x1a, 0x0b, 0x0c, 0x0d, 0x16, 0x17}, {0x08, 0x11, 0x1a, 0x0b, 0x0c, 0x0d, 0x16, 0x17}, {0x08, 0x19, 0x1a, 0x0b, 0x0c, 0x05, 0x16, 0x17}, {0x08, 0x19, 0x1a, 0x0b, 0x0c, 0x05, 0x16, 0x17}, {0x08, 0x19, 0x1a, 0x0b, 0x0c, 0x05, 0x16, 0x17}, {0x08, 0x19, 0x1a, 0x0b, 0x0c, 0x05, 0x16, 0x17}, {0x08, 0x19, 0x0a, 0x0b, 0x14, 0x05, 0x16, 0x17}, {0x08, 0x19, 0x0a, 0x0b, 0x14, 0x05, 0x16, 0x17}, {0x08, 0x19, 0x0a, 0x0b, 0x14, 0x05, 0x16, 0x17}, {0x08, 0x19, 0x0a, 0x0b, 0x14, 0x05, 0x16, 0x17}, {0x08, 0x19, 0x0a, 0x03, 0x14, 0x05, 0x16, 0x17}, {0x08, 0x19, 0x0a, 0x03, 0x14, 0x05, 0x16, 0x1f}, {0x08, 0x19, 0x0a, 0x03, 0x14, 0x05, 0x16, 0x1f}, {0x08, 0x19, 0x0a, 0x03, 0x14, 0x05, 0x16, 0x1f}, {0x08, 0x19, 0x0a, 0x03, 0x14, 0x05, 0x16, 0x1f}, {0x08, 0x19, 0x0a, 0x03, 0x14, 0x05, 0x16, 0x1f}, {0x08, 0x19, 0x0a, 0x03, 0x14, 0x05, 0x16, 0x1f}, {0x08, 0x19, 0x0a, 0x03, 0x14, 0x05, 0x16, 0x1f}, {0x08, 0x19, 0x0a, 0x03, 0x14, 0x05, 0x16, 0x1f}, {0x08, 0x19, 0x0a, 0x03, 0x14, 0x05, 0x16, 0x1f} }, { {0x10, 0x11, 0x1a, 0x1b, 0x0c, 0x0d, 0x06, 0x07}, {0x10, 0x11, 0x1a, 0x1b, 0x0c, 0x0d, 0x06, 0x07}, {0x10, 0x11, 0x1a, 0x1b, 0x0c, 0x0d, 0x06, 0x07}, {0x10, 0x11, 0x1a, 0x1b, 0x0c, 0x0d, 0x06, 0x07}, {0x10, 0x11, 0x1a, 0x1b, 0x0c, 0x0d, 0x06, 0x07}, {0x10, 0x11, 0x1a, 0x1b, 0x0c, 0x0d, 0x06, 0x07}, {0x10, 0x11, 0x1a, 0x1b, 0x0c, 0x0d, 0x06, 0x07}, {0x10, 0x11, 0x1a, 0x1b, 0x0c, 0x0d, 0x06, 0x07}, {0x10, 0x11, 0x1a, 0x1b, 0x0c, 0x0d, 0x06, 0x17}, {0x10, 0x11, 0x1a, 0x1b, 0x0c, 0x0d, 0x06, 0x17}, {0x10, 0x11, 0x1a, 0x0b, 0x0c, 0x0d, 0x06, 0x17}, {0x10, 0x11, 0x1a, 0x0b, 0x0c, 0x0d, 0x06, 0x17}, {0x10, 0x11, 0x1a, 0x0b, 0x0c, 0x0d, 0x06, 0x17}, {0x10, 0x11, 0x1a, 0x0b, 0x0c, 0x0d, 0x06, 0x17}, {0x08, 0x11, 0x1a, 0x0b, 0x0c, 0x0d, 0x16, 0x17}, {0x08, 0x11, 0x1a, 0x0b, 0x0c, 0x0d, 0x16, 0x17}, {0x08, 0x11, 0x1a, 0x0b, 0x0c, 0x0d, 0x16, 0x17}, {0x08, 0x11, 0x1a, 0x0b, 0x0c, 0x0d, 0x16, 0x17}, {0x08, 0x19, 0x1a, 0x0b, 0x0c, 0x05, 0x16, 0x17}, {0x08, 0x19, 0x1a, 0x0b, 0x0c, 0x05, 0x16, 0x17}, {0x08, 0x19, 0x1a, 0x0b, 0x0c, 0x05, 0x16, 0x17}, {0x08, 0x19, 0x1a, 0x0b, 0x0c, 0x05, 0x16, 0x17}, {0x08, 0x19, 0x0a, 0x0b, 0x14, 0x05, 0x16, 0x17}, {0x08, 0x19, 0x0a, 0x0b, 0x14, 0x05, 0x16, 0x17}, {0x08, 0x19, 0x0a, 0x0b, 0x14, 0x05, 0x16, 0x17}, {0x08, 0x19, 0x0a, 0x0b, 0x14, 0x05, 0x16, 0x17}, {0x08, 0x19, 0x0a, 0x03, 0x14, 0x05, 0x16, 0x17}, {0x08, 0x19, 0x0a, 0x03, 0x14, 0x05, 0x16, 0x17}, {0x08, 0x19, 0x0a, 0x03, 0x14, 0x05, 0x16, 0x1f}, {0x08, 0x19, 0x0a, 0x03, 0x14, 0x05, 0x16, 0x1f}, {0x08, 0x19, 0x0a, 0x03, 0x14, 0x05, 0x16, 0x1f}, {0x08, 0x19, 0x0a, 0x03, 0x14, 0x05, 0x16, 0x1f}, {0x08, 0x19, 0x0a, 0x03, 0x14, 0x05, 0x16, 0x1f}, {0x08, 0x19, 0x0a, 0x03, 0x14, 0x05, 0x16, 0x1f}, {0x08, 0x19, 0x0a, 0x03, 0x14, 0x05, 0x16, 0x1f}, {0x08, 0x19, 0x0a, 0x03, 0x14, 0x05, 0x16, 0x1f} }, { {0x10, 0x11, 0x1a, 0x1b, 0x0c, 0x0d, 0x06, 0x07}, {0x10, 0x11, 0x1a, 0x1b, 0x0c, 0x0d, 0x06, 0x07}, {0x10, 0x11, 0x1a, 0x1b, 0x0c, 0x0d, 0x06, 0x07}, {0x10, 0x11, 0x1a, 0x1b, 0x0c, 0x0d, 0x06, 0x07}, {0x10, 0x11, 0x1a, 0x1b, 0x0c, 0x0d, 0x06, 0x07}, {0x10, 0x11, 0x1a, 0x1b, 0x0c, 0x0d, 0x06, 0x07}, {0x10, 0x11, 0x1a, 0x1b, 0x0c, 0x0d, 0x06, 0x07}, {0x10, 0x11, 0x1a, 0x1b, 0x0c, 0x0d, 0x06, 0x17}, {0x10, 0x11, 0x1a, 0x1b, 0x0c, 0x0d, 0x06, 0x17}, {0x10, 0x11, 0x1a, 0x1b, 0x0c, 0x0d, 0x06, 0x17}, {0x10, 0x11, 0x1a, 0x0b, 0x0c, 0x0d, 0x06, 0x17}, {0x10, 0x11, 0x1a, 0x0b, 0x0c, 0x0d, 0x06, 0x17}, {0x10, 0x11, 0x1a, 0x0b, 0x0c, 0x0d, 0x06, 0x17}, {0x10, 0x11, 0x1a, 0x0b, 0x0c, 0x0d, 0x06, 0x17}, {0x08, 0x11, 0x1a, 0x0b, 0x0c, 0x0d, 0x16, 0x17}, {0x08, 0x11, 0x1a, 0x0b, 0x0c, 0x0d, 0x16, 0x17}, {0x08, 0x11, 0x1a, 0x0b, 0x0c, 0x0d, 0x16, 0x17}, {0x08, 0x11, 0x1a, 0x0b, 0x0c, 0x0d, 0x16, 0x17}, {0x08, 0x19, 0x1a, 0x0b, 0x0c, 0x05, 0x16, 0x17}, {0x08, 0x19, 0x1a, 0x0b, 0x0c, 0x05, 0x16, 0x17}, {0x08, 0x19, 0x1a, 0x0b, 0x0c, 0x05, 0x16, 0x17}, {0x08, 0x19, 0x1a, 0x0b, 0x0c, 0x05, 0x16, 0x17}, {0x08, 0x19, 0x0a, 0x0b, 0x14, 0x05, 0x16, 0x17}, {0x08, 0x19, 0x0a, 0x0b, 0x14, 0x05, 0x16, 0x17}, {0x08, 0x19, 0x0a, 0x0b, 0x14, 0x05, 0x16, 0x17}, {0x08, 0x19, 0x0a, 0x0b, 0x14, 0x05, 0x16, 0x17}, {0x08, 0x19, 0x0a, 0x03, 0x14, 0x05, 0x16, 0x17}, {0x08, 0x19, 0x0a, 0x03, 0x14, 0x05, 0x16, 0x17}, {0x08, 0x19, 0x0a, 0x03, 0x14, 0x05, 0x16, 0x17}, {0x08, 0x19, 0x0a, 0x03, 0x14, 0x05, 0x16, 0x1f}, {0x08, 0x19, 0x0a, 0x03, 0x14, 0x05, 0x16, 0x1f}, {0x08, 0x19, 0x0a, 0x03, 0x14, 0x05, 0x16, 0x1f}, {0x08, 0x19, 0x0a, 0x03, 0x14, 0x05, 0x16, 0x1f}, {0x08, 0x19, 0x0a, 0x03, 0x14, 0x05, 0x16, 0x1f}, {0x08, 0x19, 0x0a, 0x03, 0x14, 0x05, 0x16, 0x1f}, {0x08, 0x19, 0x0a, 0x03, 0x14, 0x05, 0x16, 0x1f} }, { {0x10, 0x11, 0x1a, 0x1b, 0x04, 0x0d, 0x06, 0x07}, {0x10, 0x11, 0x1a, 0x1b, 0x04, 0x0d, 0x06, 0x07}, {0x10, 0x11, 0x1a, 0x1b, 0x04, 0x0d, 0x06, 0x07}, {0x10, 0x11, 0x1a, 0x1b, 0x04, 0x0d, 0x06, 0x07}, {0x10, 0x11, 0x1a, 0x1b, 0x04, 0x0d, 0x06, 0x07}, {0x10, 0x11, 0x1a, 0x1b, 0x04, 0x0d, 0x06, 0x07}, {0x10, 0x11, 0x1a, 0x1b, 0x04, 0x0d, 0x06, 0x17}, {0x10, 0x11, 0x1a, 0x1b, 0x04, 0x0d, 0x06, 0x17}, {0x10, 0x11, 0x1a, 0x1b, 0x04, 0x0d, 0x06, 0x17}, {0x10, 0x11, 0x1a, 0x1b, 0x04, 0x0d, 0x06, 0x17}, {0x10, 0x11, 0x1a, 0x0b, 0x04, 0x0d, 0x06, 0x17}, {0x10, 0x11, 0x1a, 0x0b, 0x04, 0x0d, 0x06, 0x17}, {0x10, 0x11, 0x1a, 0x0b, 0x04, 0x0d, 0x06, 0x17}, {0x10, 0x11, 0x1a, 0x0b, 0x04, 0x0d, 0x06, 0x17}, {0x18, 0x11, 0x1a, 0x0b, 0x04, 0x0d, 0x16, 0x17}, {0x18, 0x11, 0x1a, 0x0b, 0x04, 0x0d, 0x16, 0x17}, {0x18, 0x11, 0x1a, 0x0b, 0x04, 0x0d, 0x16, 0x17}, {0x18, 0x11, 0x1a, 0x0b, 0x04, 0x0d, 0x16, 0x17}, {0x18, 0x19, 0x1a, 0x0b, 0x04, 0x05, 0x16, 0x17}, {0x18, 0x19, 0x1a, 0x0b, 0x04, 0x05, 0x16, 0x17}, {0x18, 0x19, 0x1a, 0x0b, 0x04, 0x05, 0x16, 0x17}, {0x18, 0x19, 0x1a, 0x0b, 0x04, 0x05, 0x16, 0x17}, {0x18, 0x19, 0x0a, 0x0b, 0x14, 0x05, 0x16, 0x17}, {0x18, 0x19, 0x0a, 0x0b, 0x14, 0x05, 0x16, 0x17}, {0x18, 0x19, 0x0a, 0x0b, 0x14, 0x05, 0x16, 0x17}, {0x18, 0x19, 0x0a, 0x0b, 0x14, 0x05, 0x16, 0x17}, {0x18, 0x19, 0x0a, 0x03, 0x14, 0x05, 0x16, 0x17}, {0x18, 0x19, 0x0a, 0x03, 0x14, 0x05, 0x16, 0x17}, {0x18, 0x19, 0x0a, 0x03, 0x14, 0x05, 0x16, 0x17}, {0x18, 0x19, 0x0a, 0x03, 0x14, 0x05, 0x16, 0x17}, {0x18, 0x19, 0x0a, 0x03, 0x14, 0x05, 0x16, 0x1f}, {0x18, 0x19, 0x0a, 0x03, 0x14, 0x05, 0x16, 0x1f}, {0x18, 0x19, 0x0a, 0x03, 0x14, 0x05, 0x16, 0x1f}, {0x18, 0x19, 0x0a, 0x03, 0x14, 0x05, 0x16, 0x1f}, {0x18, 0x19, 0x0a, 0x03, 0x14, 0x05, 0x16, 0x1f}, {0x18, 0x19, 0x0a, 0x03, 0x14, 0x05, 0x16, 0x1f} }, { {0x10, 0x11, 0x1a, 0x1b, 0x04, 0x0d, 0x06, 0x07}, {0x10, 0x11, 0x1a, 0x1b, 0x04, 0x0d, 0x06, 0x07}, {0x10, 0x11, 0x1a, 0x1b, 0x04, 0x0d, 0x06, 0x07}, {0x10, 0x11, 0x1a, 0x1b, 0x04, 0x0d, 0x06, 0x07}, {0x10, 0x11, 0x1a, 0x1b, 0x04, 0x0d, 0x06, 0x07}, {0x10, 0x11, 0x1a, 0x1b, 0x04, 0x0d, 0x06, 0x17}, {0x10, 0x11, 0x1a, 0x1b, 0x04, 0x0d, 0x06, 0x17}, {0x10, 0x11, 0x1a, 0x1b, 0x04, 0x0d, 0x06, 0x17}, {0x10, 0x11, 0x1a, 0x1b, 0x04, 0x0d, 0x06, 0x17}, {0x10, 0x11, 0x1a, 0x1b, 0x04, 0x0d, 0x06, 0x17}, {0x10, 0x11, 0x1a, 0x0b, 0x04, 0x0d, 0x06, 0x17}, {0x10, 0x11, 0x1a, 0x0b, 0x04, 0x0d, 0x06, 0x17}, {0x10, 0x11, 0x1a, 0x0b, 0x04, 0x0d, 0x06, 0x17}, {0x18, 0x11, 0x1a, 0x0b, 0x04, 0x0d, 0x06, 0x17}, {0x18, 0x11, 0x1a, 0x0b, 0x04, 0x0d, 0x16, 0x17}, {0x18, 0x11, 0x1a, 0x0b, 0x04, 0x0d, 0x16, 0x17}, {0x18, 0x11, 0x1a, 0x0b, 0x04, 0x0d, 0x16, 0x17}, {0x18, 0x11, 0x1a, 0x0b, 0x04, 0x0d, 0x16, 0x17}, {0x18, 0x19, 0x1a, 0x0b, 0x04, 0x05, 0x16, 0x17}, {0x18, 0x19, 0x1a, 0x0b, 0x04, 0x05, 0x16, 0x17}, {0x18, 0x19, 0x1a, 0x0b, 0x04, 0x05, 0x16, 0x17}, {0x18, 0x19, 0x1a, 0x0b, 0x04, 0x05, 0x16, 0x17}, {0x18, 0x19, 0x0a, 0x0b, 0x04, 0x05, 0x16, 0x17}, {0x18, 0x19, 0x0a, 0x0b, 0x14, 0x05, 0x16, 0x17}, {0x18, 0x19, 0x0a, 0x0b, 0x14, 0x05, 0x16, 0x17}, {0x18, 0x19, 0x0a, 0x0b, 0x14, 0x05, 0x16, 0x17}, {0x18, 0x19, 0x0a, 0x03, 0x14, 0x05, 0x16, 0x17}, {0x18, 0x19, 0x0a, 0x03, 0x14, 0x05, 0x16, 0x17}, {0x18, 0x19, 0x0a, 0x03, 0x14, 0x05, 0x16, 0x17}, {0x18, 0x19, 0x0a, 0x03, 0x14, 0x05, 0x16, 0x17}, {0x18, 0x19, 0x0a, 0x03, 0x14, 0x05, 0x16, 0x17}, {0x18, 0x19, 0x0a, 0x03, 0x14, 0x05, 0x16, 0x1f}, {0x18, 0x19, 0x0a, 0x03, 0x14, 0x05, 0x16, 0x1f}, {0x18, 0x19, 0x0a, 0x03, 0x14, 0x05, 0x16, 0x1f}, {0x18, 0x19, 0x0a, 0x03, 0x14, 0x05, 0x16, 0x1f}, {0x18, 0x19, 0x0a, 0x03, 0x14, 0x05, 0x16, 0x1f} }, { {0x10, 0x11, 0x1a, 0x1b, 0x04, 0x0d, 0x06, 0x07}, {0x10, 0x11, 0x1a, 0x1b, 0x04, 0x0d, 0x06, 0x07}, {0x10, 0x11, 0x1a, 0x1b, 0x04, 0x0d, 0x06, 0x07}, {0x10, 0x11, 0x1a, 0x1b, 0x04, 0x0d, 0x06, 0x07}, {0x10, 0x11, 0x1a, 0x1b, 0x04, 0x0d, 0x06, 0x17}, {0x10, 0x11, 0x1a, 0x1b, 0x04, 0x0d, 0x06, 0x17}, {0x10, 0x11, 0x1a, 0x1b, 0x04, 0x0d, 0x06, 0x17}, {0x10, 0x11, 0x1a, 0x1b, 0x04, 0x0d, 0x06, 0x17}, {0x10, 0x11, 0x1a, 0x1b, 0x04, 0x0d, 0x06, 0x17}, {0x10, 0x11, 0x1a, 0x1b, 0x04, 0x0d, 0x06, 0x17}, {0x10, 0x11, 0x1a, 0x0b, 0x04, 0x0d, 0x06, 0x17}, {0x10, 0x11, 0x1a, 0x0b, 0x04, 0x0d, 0x06, 0x17}, {0x18, 0x11, 0x1a, 0x0b, 0x04, 0x0d, 0x06, 0x17}, {0x18, 0x11, 0x1a, 0x0b, 0x04, 0x0d, 0x06, 0x17}, {0x18, 0x11, 0x1a, 0x0b, 0x04, 0x0d, 0x16, 0x17}, {0x18, 0x11, 0x1a, 0x0b, 0x04, 0x0d, 0x16, 0x17}, {0x18, 0x11, 0x1a, 0x0b, 0x04, 0x0d, 0x16, 0x17}, {0x18, 0x11, 0x1a, 0x0b, 0x04, 0x0d, 0x16, 0x17}, {0x18, 0x19, 0x1a, 0x0b, 0x04, 0x05, 0x16, 0x17}, {0x18, 0x19, 0x1a, 0x0b, 0x04, 0x05, 0x16, 0x17}, {0x18, 0x19, 0x1a, 0x0b, 0x04, 0x05, 0x16, 0x17}, {0x18, 0x19, 0x1a, 0x0b, 0x04, 0x05, 0x16, 0x17}, {0x18, 0x19, 0x0a, 0x0b, 0x04, 0x05, 0x16, 0x17}, {0x18, 0x19, 0x0a, 0x0b, 0x04, 0x05, 0x16, 0x17}, {0x18, 0x19, 0x0a, 0x0b, 0x14, 0x05, 0x16, 0x17}, {0x18, 0x19, 0x0a, 0x0b, 0x14, 0x05, 0x16, 0x17}, {0x18, 0x19, 0x0a, 0x03, 0x14, 0x05, 0x16, 0x17}, {0x18, 0x19, 0x0a, 0x03, 0x14, 0x05, 0x16, 0x17}, {0x18, 0x19, 0x0a, 0x03, 0x14, 0x05, 0x16, 0x17}, {0x18, 0x19, 0x0a, 0x03, 0x14, 0x05, 0x16, 0x17}, {0x18, 0x19, 0x0a, 0x03, 0x14, 0x05, 0x16, 0x17}, {0x18, 0x19, 0x0a, 0x03, 0x14, 0x05, 0x16, 0x17}, {0x18, 0x19, 0x0a, 0x03, 0x14, 0x05, 0x16, 0x1f}, {0x18, 0x19, 0x0a, 0x03, 0x14, 0x05, 0x16, 0x1f}, {0x18, 0x19, 0x0a, 0x03, 0x14, 0x05, 0x16, 0x1f}, {0x18, 0x19, 0x0a, 0x03, 0x14, 0x05, 0x16, 0x1f} }, { {0x10, 0x11, 0x1a, 0x1b, 0x04, 0x0d, 0x06, 0x07}, {0x10, 0x11, 0x1a, 0x1b, 0x04, 0x0d, 0x06, 0x07}, {0x10, 0x11, 0x1a, 0x1b, 0x04, 0x0d, 0x06, 0x07}, {0x10, 0x11, 0x1a, 0x1b, 0x04, 0x0d, 0x06, 0x17}, {0x10, 0x11, 0x1a, 0x1b, 0x04, 0x0d, 0x06, 0x17}, {0x10, 0x11, 0x1a, 0x1b, 0x04, 0x0d, 0x06, 0x17}, {0x10, 0x11, 0x1a, 0x1b, 0x04, 0x0d, 0x06, 0x17}, {0x10, 0x11, 0x1a, 0x1b, 0x04, 0x0d, 0x06, 0x17}, {0x10, 0x11, 0x1a, 0x1b, 0x04, 0x0d, 0x06, 0x17}, {0x10, 0x11, 0x1a, 0x1b, 0x04, 0x0d, 0x06, 0x17}, {0x10, 0x11, 0x1a, 0x0b, 0x04, 0x0d, 0x06, 0x17}, {0x18, 0x11, 0x1a, 0x0b, 0x04, 0x0d, 0x06, 0x17}, {0x18, 0x11, 0x1a, 0x0b, 0x04, 0x0d, 0x06, 0x17}, {0x18, 0x11, 0x1a, 0x0b, 0x04, 0x0d, 0x06, 0x17}, {0x18, 0x11, 0x1a, 0x0b, 0x04, 0x0d, 0x16, 0x17}, {0x18, 0x11, 0x1a, 0x0b, 0x04, 0x0d, 0x16, 0x17}, {0x18, 0x11, 0x1a, 0x0b, 0x04, 0x0d, 0x16, 0x17}, {0x18, 0x11, 0x1a, 0x0b, 0x04, 0x0d, 0x16, 0x17}, {0x18, 0x19, 0x1a, 0x0b, 0x04, 0x05, 0x16, 0x17}, {0x18, 0x19, 0x1a, 0x0b, 0x04, 0x05, 0x16, 0x17}, {0x18, 0x19, 0x1a, 0x0b, 0x04, 0x05, 0x16, 0x17}, {0x18, 0x19, 0x1a, 0x0b, 0x04, 0x05, 0x16, 0x17}, {0x18, 0x19, 0x0a, 0x0b, 0x04, 0x05, 0x16, 0x17}, {0x18, 0x19, 0x0a, 0x0b, 0x04, 0x05, 0x16, 0x17}, {0x18, 0x19, 0x0a, 0x0b, 0x04, 0x05, 0x16, 0x17}, {0x18, 0x19, 0x0a, 0x0b, 0x14, 0x05, 0x16, 0x17}, {0x18, 0x19, 0x0a, 0x03, 0x14, 0x05, 0x16, 0x17}, {0x18, 0x19, 0x0a, 0x03, 0x14, 0x05, 0x16, 0x17}, {0x18, 0x19, 0x0a, 0x03, 0x14, 0x05, 0x16, 0x17}, {0x18, 0x19, 0x0a, 0x03, 0x14, 0x05, 0x16, 0x17}, {0x18, 0x19, 0x0a, 0x03, 0x14, 0x05, 0x16, 0x17}, {0x18, 0x19, 0x0a, 0x03, 0x14, 0x05, 0x16, 0x17}, {0x18, 0x19, 0x0a, 0x03, 0x14, 0x05, 0x16, 0x17}, {0x18, 0x19, 0x0a, 0x03, 0x14, 0x05, 0x16, 0x1f}, {0x18, 0x19, 0x0a, 0x03, 0x14, 0x05, 0x16, 0x1f}, {0x18, 0x19, 0x0a, 0x03, 0x14, 0x05, 0x16, 0x1f} }, { {0x10, 0x11, 0x1a, 0x1b, 0x04, 0x0d, 0x06, 0x07}, {0x10, 0x11, 0x1a, 0x1b, 0x04, 0x0d, 0x06, 0x07}, {0x10, 0x11, 0x1a, 0x1b, 0x04, 0x0d, 0x06, 0x17}, {0x10, 0x11, 0x1a, 0x1b, 0x04, 0x0d, 0x06, 0x17}, {0x10, 0x11, 0x1a, 0x1b, 0x04, 0x0d, 0x06, 0x17}, {0x10, 0x11, 0x1a, 0x1b, 0x04, 0x0d, 0x06, 0x17}, {0x10, 0x11, 0x1a, 0x1b, 0x04, 0x0d, 0x06, 0x17}, {0x10, 0x11, 0x1a, 0x1b, 0x04, 0x0d, 0x06, 0x17}, {0x10, 0x11, 0x1a, 0x1b, 0x04, 0x0d, 0x06, 0x17}, {0x10, 0x11, 0x1a, 0x1b, 0x04, 0x0d, 0x06, 0x17}, {0x18, 0x11, 0x1a, 0x0b, 0x04, 0x0d, 0x06, 0x17}, {0x18, 0x11, 0x1a, 0x0b, 0x04, 0x0d, 0x06, 0x17}, {0x18, 0x11, 0x1a, 0x0b, 0x04, 0x0d, 0x06, 0x17}, {0x18, 0x11, 0x1a, 0x0b, 0x04, 0x0d, 0x06, 0x17}, {0x18, 0x11, 0x1a, 0x0b, 0x04, 0x0d, 0x16, 0x17}, {0x18, 0x11, 0x1a, 0x0b, 0x04, 0x0d, 0x16, 0x17}, {0x18, 0x11, 0x1a, 0x0b, 0x04, 0x0d, 0x16, 0x17}, {0x18, 0x11, 0x1a, 0x0b, 0x04, 0x0d, 0x16, 0x17}, {0x18, 0x19, 0x1a, 0x0b, 0x04, 0x05, 0x16, 0x17}, {0x18, 0x19, 0x1a, 0x0b, 0x04, 0x05, 0x16, 0x17}, {0x18, 0x19, 0x1a, 0x0b, 0x04, 0x05, 0x16, 0x17}, {0x18, 0x19, 0x1a, 0x0b, 0x04, 0x05, 0x16, 0x17}, {0x18, 0x19, 0x0a, 0x0b, 0x04, 0x05, 0x16, 0x17}, {0x18, 0x19, 0x0a, 0x0b, 0x04, 0x05, 0x16, 0x17}, {0x18, 0x19, 0x0a, 0x0b, 0x04, 0x05, 0x16, 0x17}, {0x18, 0x19, 0x0a, 0x0b, 0x04, 0x05, 0x16, 0x17}, {0x18, 0x19, 0x0a, 0x03, 0x14, 0x05, 0x16, 0x17}, {0x18, 0x19, 0x0a, 0x03, 0x14, 0x05, 0x16, 0x17}, {0x18, 0x19, 0x0a, 0x03, 0x14, 0x05, 0x16, 0x17}, {0x18, 0x19, 0x0a, 0x03, 0x14, 0x05, 0x16, 0x17}, {0x18, 0x19, 0x0a, 0x03, 0x14, 0x05, 0x16, 0x17}, {0x18, 0x19, 0x0a, 0x03, 0x14, 0x05, 0x16, 0x17}, {0x18, 0x19, 0x0a, 0x03, 0x14, 0x05, 0x16, 0x17}, {0x18, 0x19, 0x0a, 0x03, 0x14, 0x05, 0x16, 0x17}, {0x18, 0x19, 0x0a, 0x03, 0x14, 0x05, 0x16, 0x1f}, {0x18, 0x19, 0x0a, 0x03, 0x14, 0x05, 0x16, 0x1f} }, { {0x10, 0x11, 0x1a, 0x1b, 0x04, 0x0d, 0x06, 0x07}, {0x10, 0x11, 0x1a, 0x1b, 0x04, 0x0d, 0x06, 0x17}, {0x10, 0x11, 0x1a, 0x1b, 0x04, 0x0d, 0x06, 0x17}, {0x10, 0x11, 0x1a, 0x1b, 0x04, 0x0d, 0x06, 0x17}, {0x10, 0x11, 0x1a, 0x1b, 0x04, 0x0d, 0x06, 0x17}, {0x10, 0x11, 0x1a, 0x1b, 0x04, 0x0d, 0x06, 0x17}, {0x10, 0x11, 0x1a, 0x1b, 0x04, 0x0d, 0x06, 0x17}, {0x10, 0x11, 0x1a, 0x1b, 0x04, 0x0d, 0x06, 0x17}, {0x10, 0x11, 0x1a, 0x1b, 0x04, 0x0d, 0x06, 0x17}, {0x18, 0x11, 0x1a, 0x1b, 0x04, 0x0d, 0x06, 0x17}, {0x18, 0x11, 0x1a, 0x0b, 0x04, 0x0d, 0x06, 0x17}, {0x18, 0x11, 0x1a, 0x0b, 0x04, 0x0d, 0x06, 0x17}, {0x18, 0x11, 0x1a, 0x0b, 0x04, 0x0d, 0x06, 0x17}, {0x18, 0x11, 0x1a, 0x0b, 0x04, 0x0d, 0x06, 0x17}, {0x18, 0x11, 0x1a, 0x0b, 0x04, 0x0d, 0x16, 0x17}, {0x18, 0x11, 0x1a, 0x0b, 0x04, 0x0d, 0x16, 0x17}, {0x18, 0x11, 0x1a, 0x0b, 0x04, 0x0d, 0x16, 0x17}, {0x18, 0x11, 0x1a, 0x0b, 0x04, 0x0d, 0x16, 0x17}, {0x18, 0x19, 0x1a, 0x0b, 0x04, 0x05, 0x16, 0x17}, {0x18, 0x19, 0x1a, 0x0b, 0x04, 0x05, 0x16, 0x17}, {0x18, 0x19, 0x1a, 0x0b, 0x04, 0x05, 0x16, 0x17}, {0x18, 0x19, 0x1a, 0x0b, 0x04, 0x05, 0x16, 0x17}, {0x18, 0x19, 0x0a, 0x0b, 0x04, 0x05, 0x16, 0x17}, {0x18, 0x19, 0x0a, 0x0b, 0x04, 0x05, 0x16, 0x17}, {0x18, 0x19, 0x0a, 0x0b, 0x04, 0x05, 0x16, 0x17}, {0x18, 0x19, 0x0a, 0x0b, 0x04, 0x05, 0x16, 0x17}, {0x18, 0x19, 0x0a, 0x03, 0x04, 0x05, 0x16, 0x17}, {0x18, 0x19, 0x0a, 0x03, 0x14, 0x05, 0x16, 0x17}, {0x18, 0x19, 0x0a, 0x03, 0x14, 0x05, 0x16, 0x17}, {0x18, 0x19, 0x0a, 0x03, 0x14, 0x05, 0x16, 0x17}, {0x18, 0x19, 0x0a, 0x03, 0x14, 0x05, 0x16, 0x17}, {0x18, 0x19, 0x0a, 0x03, 0x14, 0x05, 0x16, 0x17}, {0x18, 0x19, 0x0a, 0x03, 0x14, 0x05, 0x16, 0x17}, {0x18, 0x19, 0x0a, 0x03, 0x14, 0x05, 0x16, 0x17}, {0x18, 0x19, 0x0a, 0x03, 0x14, 0x05, 0x16, 0x17}, {0x18, 0x19, 0x0a, 0x03, 0x14, 0x05, 0x16, 0x1f} }, { {0x10, 0x11, 0x1a, 0x1b, 0x04, 0x0d, 0x06, 0x17}, {0x10, 0x11, 0x1a, 0x1b, 0x04, 0x0d, 0x06, 0x17}, {0x10, 0x11, 0x1a, 0x1b, 0x04, 0x0d, 0x06, 0x17}, {0x10, 0x11, 0x1a, 0x1b, 0x04, 0x0d, 0x06, 0x17}, {0x10, 0x11, 0x1a, 0x1b, 0x04, 0x0d, 0x06, 0x17}, {0x10, 0x11, 0x1a, 0x1b, 0x04, 0x0d, 0x06, 0x17}, {0x10, 0x11, 0x1a, 0x1b, 0x04, 0x0d, 0x06, 0x17}, {0x10, 0x11, 0x1a, 0x1b, 0x04, 0x0d, 0x06, 0x17}, {0x18, 0x11, 0x1a, 0x1b, 0x04, 0x0d, 0x06, 0x17}, {0x18, 0x11, 0x1a, 0x1b, 0x04, 0x0d, 0x06, 0x17}, {0x18, 0x11, 0x1a, 0x0b, 0x04, 0x0d, 0x06, 0x17}, {0x18, 0x11, 0x1a, 0x0b, 0x04, 0x0d, 0x06, 0x17}, {0x18, 0x11, 0x1a, 0x0b, 0x04, 0x0d, 0x06, 0x17}, {0x18, 0x11, 0x1a, 0x0b, 0x04, 0x0d, 0x06, 0x17}, {0x18, 0x11, 0x1a, 0x0b, 0x04, 0x0d, 0x16, 0x17}, {0x18, 0x11, 0x1a, 0x0b, 0x04, 0x0d, 0x16, 0x17}, {0x18, 0x11, 0x1a, 0x0b, 0x04, 0x0d, 0x16, 0x17}, {0x18, 0x11, 0x1a, 0x0b, 0x04, 0x0d, 0x16, 0x17}, {0x18, 0x19, 0x1a, 0x0b, 0x04, 0x05, 0x16, 0x17}, {0x18, 0x19, 0x1a, 0x0b, 0x04, 0x05, 0x16, 0x17}, {0x18, 0x19, 0x1a, 0x0b, 0x04, 0x05, 0x16, 0x17}, {0x18, 0x19, 0x1a, 0x0b, 0x04, 0x05, 0x16, 0x17}, {0x18, 0x19, 0x0a, 0x0b, 0x04, 0x05, 0x16, 0x17}, {0x18, 0x19, 0x0a, 0x0b, 0x04, 0x05, 0x16, 0x17}, {0x18, 0x19, 0x0a, 0x0b, 0x04, 0x05, 0x16, 0x17}, {0x18, 0x19, 0x0a, 0x0b, 0x04, 0x05, 0x16, 0x17}, {0x18, 0x19, 0x0a, 0x03, 0x04, 0x05, 0x16, 0x17}, {0x18, 0x19, 0x0a, 0x03, 0x04, 0x05, 0x16, 0x17}, {0x18, 0x19, 0x0a, 0x03, 0x14, 0x05, 0x16, 0x17}, {0x18, 0x19, 0x0a, 0x03, 0x14, 0x05, 0x16, 0x17}, {0x18, 0x19, 0x0a, 0x03, 0x14, 0x05, 0x16, 0x17}, {0x18, 0x19, 0x0a, 0x03, 0x14, 0x05, 0x16, 0x17}, {0x18, 0x19, 0x0a, 0x03, 0x14, 0x05, 0x16, 0x17}, {0x18, 0x19, 0x0a, 0x03, 0x14, 0x05, 0x16, 0x17}, {0x18, 0x19, 0x0a, 0x03, 0x14, 0x05, 0x16, 0x17}, {0x18, 0x19, 0x0a, 0x03, 0x14, 0x05, 0x16, 0x17} }, { {0x10, 0x11, 0x1a, 0x1b, 0x04, 0x0d, 0x06, 0x17}, {0x10, 0x11, 0x1a, 0x1b, 0x04, 0x0d, 0x06, 0x17}, {0x10, 0x11, 0x1a, 0x1b, 0x04, 0x0d, 0x06, 0x17}, {0x10, 0x11, 0x1a, 0x1b, 0x04, 0x0d, 0x06, 0x17}, {0x10, 0x11, 0x1a, 0x1b, 0x04, 0x0d, 0x06, 0x17}, {0x10, 0x11, 0x1a, 0x1b, 0x04, 0x0d, 0x06, 0x17}, {0x10, 0x11, 0x1a, 0x1b, 0x04, 0x0d, 0x06, 0x17}, {0x18, 0x11, 0x1a, 0x1b, 0x04, 0x0d, 0x06, 0x17}, {0x18, 0x11, 0x1a, 0x1b, 0x04, 0x0d, 0x06, 0x17}, {0x18, 0x11, 0x1a, 0x1b, 0x04, 0x0d, 0x06, 0x17}, {0x18, 0x11, 0x1a, 0x0b, 0x04, 0x0d, 0x06, 0x17}, {0x18, 0x11, 0x1a, 0x0b, 0x04, 0x0d, 0x06, 0x17}, {0x18, 0x11, 0x1a, 0x0b, 0x04, 0x0d, 0x06, 0x17}, {0x18, 0x11, 0x1a, 0x0b, 0x04, 0x0d, 0x06, 0x17}, {0x18, 0x11, 0x1a, 0x0b, 0x04, 0x0d, 0x16, 0x17}, {0x18, 0x11, 0x1a, 0x0b, 0x04, 0x0d, 0x16, 0x17}, {0x18, 0x11, 0x1a, 0x0b, 0x04, 0x0d, 0x16, 0x17}, {0x18, 0x11, 0x1a, 0x0b, 0x04, 0x0d, 0x16, 0x17}, {0x18, 0x19, 0x1a, 0x0b, 0x04, 0x05, 0x16, 0x17}, {0x18, 0x19, 0x1a, 0x0b, 0x04, 0x05, 0x16, 0x17}, {0x18, 0x19, 0x1a, 0x0b, 0x04, 0x05, 0x16, 0x17}, {0x18, 0x19, 0x1a, 0x0b, 0x04, 0x05, 0x16, 0x17}, {0x18, 0x19, 0x0a, 0x0b, 0x04, 0x05, 0x16, 0x17}, {0x18, 0x19, 0x0a, 0x0b, 0x04, 0x05, 0x16, 0x17}, {0x18, 0x19, 0x0a, 0x0b, 0x04, 0x05, 0x16, 0x17}, {0x18, 0x19, 0x0a, 0x0b, 0x04, 0x05, 0x16, 0x17}, {0x18, 0x19, 0x0a, 0x03, 0x04, 0x05, 0x16, 0x17}, {0x18, 0x19, 0x0a, 0x03, 0x04, 0x05, 0x16, 0x17}, {0x18, 0x19, 0x0a, 0x03, 0x04, 0x05, 0x16, 0x17}, {0x18, 0x19, 0x0a, 0x03, 0x14, 0x05, 0x16, 0x17}, {0x18, 0x19, 0x0a, 0x03, 0x14, 0x05, 0x16, 0x17}, {0x18, 0x19, 0x0a, 0x03, 0x14, 0x05, 0x16, 0x17}, {0x18, 0x19, 0x0a, 0x03, 0x14, 0x05, 0x16, 0x17}, {0x18, 0x19, 0x0a, 0x03, 0x14, 0x05, 0x16, 0x17}, {0x18, 0x19, 0x0a, 0x03, 0x14, 0x05, 0x16, 0x17}, {0x18, 0x19, 0x0a, 0x03, 0x14, 0x05, 0x16, 0x17} }, { {0x10, 0x11, 0x1a, 0x1b, 0x04, 0x0d, 0x06, 0x17}, {0x10, 0x11, 0x1a, 0x1b, 0x04, 0x0d, 0x06, 0x17}, {0x10, 0x11, 0x1a, 0x1b, 0x04, 0x0d, 0x06, 0x17}, {0x10, 0x11, 0x1a, 0x1b, 0x04, 0x0d, 0x06, 0x17}, {0x10, 0x11, 0x1a, 0x1b, 0x04, 0x0d, 0x06, 0x17}, {0x10, 0x11, 0x1a, 0x1b, 0x04, 0x0d, 0x06, 0x17}, {0x18, 0x11, 0x1a, 0x1b, 0x04, 0x0d, 0x06, 0x17}, {0x18, 0x11, 0x1a, 0x1b, 0x04, 0x0d, 0x06, 0x17}, {0x18, 0x11, 0x1a, 0x1b, 0x04, 0x0d, 0x06, 0x17}, {0x18, 0x11, 0x1a, 0x1b, 0x04, 0x0d, 0x06, 0x17}, {0x18, 0x11, 0x1a, 0x0b, 0x04, 0x0d, 0x06, 0x17}, {0x18, 0x11, 0x1a, 0x0b, 0x04, 0x0d, 0x06, 0x17}, {0x18, 0x11, 0x1a, 0x0b, 0x04, 0x0d, 0x06, 0x17}, {0x18, 0x11, 0x1a, 0x0b, 0x04, 0x0d, 0x06, 0x17}, {0x18, 0x11, 0x1a, 0x0b, 0x04, 0x0d, 0x16, 0x17}, {0x18, 0x11, 0x1a, 0x0b, 0x04, 0x0d, 0x16, 0x17}, {0x18, 0x11, 0x1a, 0x0b, 0x04, 0x0d, 0x16, 0x17}, {0x18, 0x11, 0x1a, 0x0b, 0x04, 0x0d, 0x16, 0x17}, {0x18, 0x19, 0x1a, 0x0b, 0x04, 0x05, 0x16, 0x17}, {0x18, 0x19, 0x1a, 0x0b, 0x04, 0x05, 0x16, 0x17}, {0x18, 0x19, 0x1a, 0x0b, 0x04, 0x05, 0x16, 0x17}, {0x18, 0x19, 0x1a, 0x0b, 0x04, 0x05, 0x16, 0x17}, {0x18, 0x19, 0x0a, 0x0b, 0x04, 0x05, 0x16, 0x17}, {0x18, 0x19, 0x0a, 0x0b, 0x04, 0x05, 0x16, 0x17}, {0x18, 0x19, 0x0a, 0x0b, 0x04, 0x05, 0x16, 0x17}, {0x18, 0x19, 0x0a, 0x0b, 0x04, 0x05, 0x16, 0x17}, {0x18, 0x19, 0x0a, 0x03, 0x04, 0x05, 0x16, 0x17}, {0x18, 0x19, 0x0a, 0x03, 0x04, 0x05, 0x16, 0x17}, {0x18, 0x19, 0x0a, 0x03, 0x04, 0x05, 0x16, 0x17}, {0x18, 0x19, 0x0a, 0x03, 0x04, 0x05, 0x16, 0x17}, {0x18, 0x19, 0x0a, 0x03, 0x04, 0x05, 0x16, 0x17}, {0x18, 0x19, 0x0a, 0x03, 0x14, 0x05, 0x16, 0x17}, {0x18, 0x19, 0x0a, 0x03, 0x14, 0x05, 0x16, 0x17}, {0x18, 0x19, 0x0a, 0x03, 0x14, 0x05, 0x16, 0x17}, {0x18, 0x19, 0x0a, 0x03, 0x14, 0x05, 0x16, 0x17}, {0x18, 0x19, 0x0a, 0x03, 0x14, 0x05, 0x16, 0x17} }, { {0x10, 0x11, 0x1a, 0x1b, 0x04, 0x0d, 0x06, 0x17}, {0x10, 0x11, 0x1a, 0x1b, 0x04, 0x0d, 0x06, 0x17}, {0x10, 0x11, 0x1a, 0x1b, 0x04, 0x0d, 0x06, 0x17}, {0x10, 0x11, 0x1a, 0x1b, 0x04, 0x0d, 0x06, 0x17}, {0x10, 0x11, 0x1a, 0x1b, 0x04, 0x0d, 0x06, 0x17}, {0x18, 0x11, 0x1a, 0x1b, 0x04, 0x0d, 0x06, 0x17}, {0x18, 0x11, 0x1a, 0x1b, 0x04, 0x0d, 0x06, 0x17}, {0x18, 0x11, 0x1a, 0x1b, 0x04, 0x0d, 0x06, 0x17}, {0x18, 0x11, 0x1a, 0x1b, 0x04, 0x0d, 0x06, 0x17}, {0x18, 0x11, 0x1a, 0x1b, 0x04, 0x0d, 0x06, 0x17}, {0x18, 0x11, 0x1a, 0x0b, 0x04, 0x0d, 0x06, 0x17}, {0x18, 0x11, 0x1a, 0x0b, 0x04, 0x0d, 0x06, 0x17}, {0x18, 0x11, 0x1a, 0x0b, 0x04, 0x0d, 0x06, 0x17}, {0x18, 0x11, 0x1a, 0x0b, 0x04, 0x0d, 0x06, 0x17}, {0x18, 0x11, 0x1a, 0x0b, 0x04, 0x0d, 0x16, 0x17}, {0x18, 0x11, 0x1a, 0x0b, 0x04, 0x0d, 0x16, 0x17}, {0x18, 0x11, 0x1a, 0x0b, 0x04, 0x0d, 0x16, 0x17}, {0x18, 0x11, 0x1a, 0x0b, 0x04, 0x0d, 0x16, 0x17}, {0x18, 0x19, 0x1a, 0x0b, 0x04, 0x05, 0x16, 0x17}, {0x18, 0x19, 0x1a, 0x0b, 0x04, 0x05, 0x16, 0x17}, {0x18, 0x19, 0x1a, 0x0b, 0x04, 0x05, 0x16, 0x17}, {0x18, 0x19, 0x1a, 0x0b, 0x04, 0x05, 0x16, 0x17}, {0x18, 0x19, 0x0a, 0x0b, 0x04, 0x05, 0x16, 0x17}, {0x18, 0x19, 0x0a, 0x0b, 0x04, 0x05, 0x16, 0x17}, {0x18, 0x19, 0x0a, 0x0b, 0x04, 0x05, 0x16, 0x17}, {0x18, 0x19, 0x0a, 0x0b, 0x04, 0x05, 0x16, 0x17}, {0x18, 0x19, 0x0a, 0x03, 0x04, 0x05, 0x16, 0x17}, {0x18, 0x19, 0x0a, 0x03, 0x04, 0x05, 0x16, 0x17}, {0x18, 0x19, 0x0a, 0x03, 0x04, 0x05, 0x16, 0x17}, {0x18, 0x19, 0x0a, 0x03, 0x04, 0x05, 0x16, 0x17}, {0x18, 0x19, 0x0a, 0x03, 0x04, 0x05, 0x16, 0x17}, {0x18, 0x19, 0x0a, 0x03, 0x04, 0x05, 0x16, 0x17}, {0x18, 0x19, 0x0a, 0x03, 0x14, 0x05, 0x16, 0x17}, {0x18, 0x19, 0x0a, 0x03, 0x14, 0x05, 0x16, 0x17}, {0x18, 0x19, 0x0a, 0x03, 0x14, 0x05, 0x16, 0x17}, {0x18, 0x19, 0x0a, 0x03, 0x14, 0x05, 0x16, 0x17} } }, { /* 7,200bps map */ { {0x08, 0x09, 0x0a, 0x03, 0x0c, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x0c, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x0c, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x0c, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x0c, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x0c, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x0c, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x0c, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x0c, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x0b, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x0b, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x0b, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x0b, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x0b, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x0b, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x0b, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x0b, 0x04, 0x0d, 0x06, 0x0f} }, { {0x08, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x08, 0x09, 0x0a, 0x03, 0x0c, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x0c, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x0c, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x0c, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x0c, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x0c, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x0c, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x0c, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x0c, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x0b, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x0b, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x0b, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x0b, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x0b, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x0b, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x0b, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x0b, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x0f} }, { {0x08, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x08, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x08, 0x09, 0x0a, 0x03, 0x0c, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x0c, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x0c, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x0c, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x0c, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x0c, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x0c, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x0c, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x0c, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x0b, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x0b, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x0b, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x0b, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x0b, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x0b, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x0b, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x0b, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x0f}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x0f} }, { {0x08, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x08, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x08, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x08, 0x09, 0x0a, 0x03, 0x0c, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x0c, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x0c, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x0c, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x0c, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x0c, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x0c, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x0c, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x0c, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x0b, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x0b, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x0b, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x0b, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x0b, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x0b, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x0b, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x0b, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x0f}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x0f}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x0f} }, { {0x08, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x08, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x08, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x08, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x08, 0x09, 0x0a, 0x03, 0x0c, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x0c, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x0c, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x0c, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x0c, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x0c, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x0c, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x0c, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x0c, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x0b, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x0b, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x0b, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x0b, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x0b, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x0b, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x0b, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x0b, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x0f}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x0f}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x0f}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x0f} }, { {0x08, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x08, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x08, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x08, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x08, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x08, 0x09, 0x0a, 0x03, 0x0c, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x0c, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x0c, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x0c, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x0c, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x0c, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x0c, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x0c, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x0c, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x0b, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x0b, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x0b, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x0b, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x0b, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x0b, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x0b, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x0b, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x0f}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x0f}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x0f}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x0f}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x0f} }, { {0x08, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x08, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x08, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x08, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x08, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x08, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x08, 0x09, 0x0a, 0x03, 0x0c, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x0c, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x0c, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x0c, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x0c, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x0c, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x0c, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x0c, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x0b, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x0b, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x0b, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x0b, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x0b, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x0b, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x0b, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x0b, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x0f}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x0f}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x0f}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x0f}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x0f}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x0f} }, { {0x08, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x08, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x08, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x08, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x08, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x08, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x08, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x08, 0x09, 0x0a, 0x03, 0x0c, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x0c, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x0c, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x0c, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x0c, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x0c, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x0c, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x0c, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x0b, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x0b, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x0b, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x0b, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x0b, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x0b, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x0b, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x0b, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x0f}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x0f}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x0f}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x0f}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x0f}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x0f}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x0f} }, { {0x08, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x08, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x08, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x08, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x08, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x08, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x08, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x08, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x08, 0x09, 0x0a, 0x03, 0x0c, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x0c, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x0c, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x0c, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x0c, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x0c, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x0c, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x0c, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x0c, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x0b, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x0b, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x0b, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x0b, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x0b, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x0b, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x0b, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x0b, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x0f}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x0f}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x0f}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x0f}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x0f}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x0f}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x0f}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x0f} }, { {0x00, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x08, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x08, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x08, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x08, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x08, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x08, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x08, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x08, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x08, 0x09, 0x0a, 0x03, 0x0c, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x0c, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x0c, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x0c, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x0c, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x0c, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x0c, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x0c, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x0c, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x0b, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x0b, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x0b, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x0b, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x0b, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x0b, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x0b, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x0b, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x0f}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x0f}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x0f}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x0f}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x0f}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x0f}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x0f}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x0f}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x07} }, { {0x00, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x08, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x08, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x08, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x08, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x08, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x08, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x08, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x08, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x08, 0x09, 0x0a, 0x03, 0x0c, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x0c, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x0c, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x0c, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x0c, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x0c, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x0c, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x0c, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x0b, 0x0c, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x0b, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x0b, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x0b, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x0b, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x0b, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x0b, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x0b, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x0f}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x0f}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x0f}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x0f}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x0f}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x0f}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x0f}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x0f}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x07}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x07} }, { {0x00, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x08, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x08, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x08, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x08, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x08, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x08, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x08, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x08, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x08, 0x09, 0x0a, 0x03, 0x0c, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x0c, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x0c, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x0c, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x0c, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x0c, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x0b, 0x0c, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x0b, 0x0c, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x0b, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x0b, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x0b, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x0b, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x0b, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x0b, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x0f}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x0f}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x0f}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x0f}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x0f}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x0f}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x0f}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x0f}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x07}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x07}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x07} }, { {0x00, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x08, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x08, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x08, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x08, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x08, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x08, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x08, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x08, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x08, 0x09, 0x0a, 0x03, 0x0c, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x0c, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x0c, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x0c, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x0b, 0x0c, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x0b, 0x0c, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x0b, 0x0c, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x0b, 0x0c, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x0b, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x0b, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x0b, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x0b, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x0f}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x0f}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x0f}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x0f}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x0f}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x0f}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x0f}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x0f}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x07}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x07}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x07}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x07} }, { {0x00, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x08, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x08, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x08, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x08, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x08, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x08, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x08, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x08, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x08, 0x09, 0x0a, 0x03, 0x0c, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x03, 0x0c, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x0b, 0x0c, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x0b, 0x0c, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x0b, 0x0c, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x0b, 0x0c, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x0b, 0x0c, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x0b, 0x0c, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x0b, 0x0c, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x0b, 0x04, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x0f}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x0f}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x0f}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x0f}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x0f}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x0f}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x0f}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x0f}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x07}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x07}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x07}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x07}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x07} }, { {0x00, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x08, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x08, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x08, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x08, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x08, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x08, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x08, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x08, 0x09, 0x0a, 0x0b, 0x0c, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x0b, 0x0c, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x0b, 0x0c, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x0b, 0x0c, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x0b, 0x0c, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x0b, 0x0c, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x0b, 0x0c, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x0b, 0x0c, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x02, 0x0b, 0x0c, 0x0d, 0x0e, 0x0f}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x0f}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x0f}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x0f}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x0f}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x0f}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x0f}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x0f}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x07}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x07}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x07}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x07}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x07}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x07} }, { {0x00, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x08, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x08, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x08, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x08, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x08, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x08, 0x09, 0x0a, 0x0b, 0x0c, 0x05, 0x06, 0x0f}, {0x08, 0x09, 0x0a, 0x0b, 0x0c, 0x05, 0x06, 0x0f}, {0x08, 0x09, 0x0a, 0x0b, 0x0c, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x0b, 0x0c, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x0b, 0x0c, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x0b, 0x0c, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x0b, 0x0c, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x0b, 0x0c, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x02, 0x0b, 0x0c, 0x0d, 0x0e, 0x0f}, {0x08, 0x01, 0x02, 0x0b, 0x0c, 0x0d, 0x0e, 0x0f}, {0x08, 0x01, 0x02, 0x0b, 0x0c, 0x0d, 0x0e, 0x0f}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x0f}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x0f}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x0f}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x0f}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x0f}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x07}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x07}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x07}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x07}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x07}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x07}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x07} }, { {0x00, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x08, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x08, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x08, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x08, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x08, 0x09, 0x0a, 0x0b, 0x0c, 0x05, 0x06, 0x0f}, {0x08, 0x09, 0x0a, 0x0b, 0x0c, 0x05, 0x06, 0x0f}, {0x08, 0x09, 0x0a, 0x0b, 0x0c, 0x05, 0x06, 0x0f}, {0x08, 0x09, 0x0a, 0x0b, 0x0c, 0x05, 0x06, 0x0f}, {0x08, 0x09, 0x0a, 0x0b, 0x0c, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x0b, 0x0c, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x0b, 0x0c, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x0b, 0x0c, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x02, 0x0b, 0x0c, 0x0d, 0x0e, 0x0f}, {0x08, 0x01, 0x02, 0x0b, 0x0c, 0x0d, 0x0e, 0x0f}, {0x08, 0x01, 0x02, 0x0b, 0x0c, 0x0d, 0x0e, 0x0f}, {0x08, 0x01, 0x02, 0x0b, 0x0c, 0x0d, 0x0e, 0x0f}, {0x08, 0x01, 0x02, 0x0b, 0x0c, 0x0d, 0x0e, 0x0f}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x0f}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x0f}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x0f}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x07}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x07}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x07}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x07}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x07}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x07}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x07}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x07} }, { {0x00, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x08, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x08, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x08, 0x09, 0x0a, 0x0b, 0x0c, 0x05, 0x06, 0x0f}, {0x08, 0x09, 0x0a, 0x0b, 0x0c, 0x05, 0x06, 0x0f}, {0x08, 0x09, 0x0a, 0x0b, 0x0c, 0x05, 0x06, 0x0f}, {0x08, 0x09, 0x0a, 0x0b, 0x0c, 0x05, 0x06, 0x0f}, {0x08, 0x09, 0x0a, 0x0b, 0x0c, 0x05, 0x06, 0x0f}, {0x08, 0x09, 0x0a, 0x0b, 0x0c, 0x05, 0x06, 0x0f}, {0x08, 0x09, 0x0a, 0x0b, 0x0c, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x0a, 0x0b, 0x0c, 0x0d, 0x06, 0x0f}, {0x08, 0x01, 0x02, 0x0b, 0x0c, 0x0d, 0x0e, 0x0f}, {0x08, 0x01, 0x02, 0x0b, 0x0c, 0x0d, 0x0e, 0x0f}, {0x08, 0x01, 0x02, 0x0b, 0x0c, 0x0d, 0x0e, 0x0f}, {0x08, 0x01, 0x02, 0x0b, 0x0c, 0x0d, 0x0e, 0x0f}, {0x08, 0x01, 0x02, 0x0b, 0x0c, 0x0d, 0x0e, 0x0f}, {0x08, 0x01, 0x02, 0x0b, 0x0c, 0x0d, 0x0e, 0x0f}, {0x08, 0x01, 0x02, 0x0b, 0x0c, 0x0d, 0x0e, 0x0f}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x0f}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x07}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x07}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x07}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x07}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x07}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x07}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x07}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x07}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x07} }, { {0x00, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x08, 0x09, 0x0a, 0x0b, 0x0c, 0x05, 0x06, 0x0f}, {0x08, 0x09, 0x0a, 0x0b, 0x0c, 0x05, 0x06, 0x0f}, {0x08, 0x09, 0x0a, 0x0b, 0x0c, 0x05, 0x06, 0x0f}, {0x08, 0x09, 0x0a, 0x0b, 0x0c, 0x05, 0x06, 0x0f}, {0x08, 0x09, 0x0a, 0x0b, 0x0c, 0x05, 0x06, 0x0f}, {0x08, 0x09, 0x0a, 0x0b, 0x0c, 0x05, 0x06, 0x0f}, {0x08, 0x09, 0x0a, 0x0b, 0x0c, 0x05, 0x06, 0x0f}, {0x08, 0x09, 0x0a, 0x0b, 0x0c, 0x05, 0x06, 0x0f}, {0x08, 0x09, 0x02, 0x0b, 0x0c, 0x0d, 0x0e, 0x0f}, {0x08, 0x01, 0x02, 0x0b, 0x0c, 0x0d, 0x0e, 0x0f}, {0x08, 0x01, 0x02, 0x0b, 0x0c, 0x0d, 0x0e, 0x0f}, {0x08, 0x01, 0x02, 0x0b, 0x0c, 0x0d, 0x0e, 0x0f}, {0x08, 0x01, 0x02, 0x0b, 0x0c, 0x0d, 0x0e, 0x0f}, {0x08, 0x01, 0x02, 0x0b, 0x0c, 0x0d, 0x0e, 0x0f}, {0x08, 0x01, 0x02, 0x0b, 0x0c, 0x0d, 0x0e, 0x0f}, {0x08, 0x01, 0x02, 0x0b, 0x0c, 0x0d, 0x0e, 0x0f}, {0x08, 0x01, 0x02, 0x0b, 0x0c, 0x0d, 0x0e, 0x07}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x07}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x07}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x07}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x07}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x07}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x07}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x07}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x07}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x07} }, { {0x00, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x0a, 0x0b, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x0a, 0x0b, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x0a, 0x0b, 0x0c, 0x05, 0x06, 0x0f}, {0x08, 0x09, 0x0a, 0x0b, 0x0c, 0x05, 0x06, 0x0f}, {0x08, 0x09, 0x0a, 0x0b, 0x0c, 0x05, 0x06, 0x0f}, {0x08, 0x09, 0x0a, 0x0b, 0x0c, 0x05, 0x06, 0x0f}, {0x08, 0x09, 0x0a, 0x0b, 0x0c, 0x05, 0x06, 0x0f}, {0x08, 0x09, 0x0a, 0x0b, 0x0c, 0x05, 0x06, 0x0f}, {0x08, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x0f}, {0x08, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x0f}, {0x08, 0x09, 0x02, 0x0b, 0x0c, 0x0d, 0x0e, 0x0f}, {0x08, 0x01, 0x02, 0x0b, 0x0c, 0x0d, 0x0e, 0x0f}, {0x08, 0x01, 0x02, 0x0b, 0x0c, 0x0d, 0x0e, 0x0f}, {0x08, 0x01, 0x02, 0x0b, 0x0c, 0x0d, 0x0e, 0x0f}, {0x08, 0x01, 0x02, 0x0b, 0x0c, 0x0d, 0x0e, 0x0f}, {0x08, 0x01, 0x02, 0x0b, 0x0c, 0x0d, 0x0e, 0x0f}, {0x08, 0x01, 0x02, 0x0b, 0x0c, 0x0d, 0x0e, 0x07}, {0x08, 0x01, 0x02, 0x0b, 0x0c, 0x0d, 0x0e, 0x07}, {0x08, 0x01, 0x02, 0x0b, 0x0c, 0x0d, 0x0e, 0x07}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x07}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x07}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x07}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x07}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x07}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x07}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x07}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x07} }, { {0x00, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x0a, 0x0b, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x0a, 0x0b, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x0a, 0x0b, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x0a, 0x0b, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x0a, 0x0b, 0x0c, 0x05, 0x06, 0x0f}, {0x08, 0x09, 0x0a, 0x0b, 0x0c, 0x05, 0x06, 0x0f}, {0x08, 0x09, 0x0a, 0x0b, 0x0c, 0x05, 0x06, 0x0f}, {0x08, 0x09, 0x0a, 0x0b, 0x0c, 0x05, 0x06, 0x0f}, {0x08, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x0f}, {0x08, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x0f}, {0x08, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x0f}, {0x08, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x0f}, {0x08, 0x09, 0x02, 0x0b, 0x0c, 0x0d, 0x0e, 0x0f}, {0x08, 0x01, 0x02, 0x0b, 0x0c, 0x0d, 0x0e, 0x0f}, {0x08, 0x01, 0x02, 0x0b, 0x0c, 0x0d, 0x0e, 0x0f}, {0x08, 0x01, 0x02, 0x0b, 0x0c, 0x0d, 0x0e, 0x0f}, {0x08, 0x01, 0x02, 0x0b, 0x0c, 0x0d, 0x0e, 0x07}, {0x08, 0x01, 0x02, 0x0b, 0x0c, 0x0d, 0x0e, 0x07}, {0x08, 0x01, 0x02, 0x0b, 0x0c, 0x0d, 0x0e, 0x07}, {0x08, 0x01, 0x02, 0x0b, 0x0c, 0x0d, 0x0e, 0x07}, {0x08, 0x01, 0x02, 0x0b, 0x0c, 0x0d, 0x0e, 0x07}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x07}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x07}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x07}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x07}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x07}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x07}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x07} }, { {0x00, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x0a, 0x0b, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x0a, 0x0b, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x0a, 0x0b, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x0a, 0x0b, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x0a, 0x0b, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x0a, 0x0b, 0x0c, 0x05, 0x06, 0x0f}, {0x08, 0x09, 0x0a, 0x0b, 0x0c, 0x05, 0x06, 0x0f}, {0x08, 0x09, 0x0a, 0x0b, 0x0c, 0x05, 0x06, 0x0f}, {0x08, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x0f}, {0x08, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x0f}, {0x08, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x0f}, {0x08, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x0f}, {0x08, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x0f}, {0x08, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x0f}, {0x08, 0x09, 0x02, 0x0b, 0x0c, 0x0d, 0x0e, 0x0f}, {0x08, 0x01, 0x02, 0x0b, 0x0c, 0x0d, 0x0e, 0x0f}, {0x08, 0x01, 0x02, 0x0b, 0x0c, 0x0d, 0x0e, 0x07}, {0x08, 0x01, 0x02, 0x0b, 0x0c, 0x0d, 0x0e, 0x07}, {0x08, 0x01, 0x02, 0x0b, 0x0c, 0x0d, 0x0e, 0x07}, {0x08, 0x01, 0x02, 0x0b, 0x0c, 0x0d, 0x0e, 0x07}, {0x08, 0x01, 0x02, 0x0b, 0x0c, 0x0d, 0x0e, 0x07}, {0x08, 0x01, 0x02, 0x0b, 0x0c, 0x0d, 0x0e, 0x07}, {0x08, 0x01, 0x02, 0x0b, 0x0c, 0x0d, 0x0e, 0x07}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x07}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x07}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x07}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x07}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x07}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x07} }, { {0x00, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x0a, 0x0b, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x0a, 0x0b, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x0a, 0x0b, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x0a, 0x0b, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x0a, 0x0b, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x0a, 0x0b, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x0a, 0x0b, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x0a, 0x0b, 0x0c, 0x05, 0x06, 0x0f}, {0x08, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x0f}, {0x08, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x0f}, {0x08, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x0f}, {0x08, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x0f}, {0x08, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x0f}, {0x08, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x0f}, {0x08, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x0f}, {0x08, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x0f}, {0x08, 0x09, 0x02, 0x0b, 0x0c, 0x0d, 0x0e, 0x07}, {0x08, 0x01, 0x02, 0x0b, 0x0c, 0x0d, 0x0e, 0x07}, {0x08, 0x01, 0x02, 0x0b, 0x0c, 0x0d, 0x0e, 0x07}, {0x08, 0x01, 0x02, 0x0b, 0x0c, 0x0d, 0x0e, 0x07}, {0x08, 0x01, 0x02, 0x0b, 0x0c, 0x0d, 0x0e, 0x07}, {0x08, 0x01, 0x02, 0x0b, 0x0c, 0x0d, 0x0e, 0x07}, {0x08, 0x01, 0x02, 0x0b, 0x0c, 0x0d, 0x0e, 0x07}, {0x08, 0x01, 0x02, 0x0b, 0x0c, 0x0d, 0x0e, 0x07}, {0x08, 0x01, 0x02, 0x0b, 0x0c, 0x0d, 0x0e, 0x07}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x07}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x07}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x07}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x07}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x07} }, { {0x00, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x0a, 0x0b, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x0a, 0x0b, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x0a, 0x0b, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x0a, 0x0b, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x0a, 0x0b, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x0a, 0x0b, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x0a, 0x0b, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x0a, 0x0b, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x0f}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x0f}, {0x08, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x0f}, {0x08, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x0f}, {0x08, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x0f}, {0x08, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x0f}, {0x08, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x0f}, {0x08, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x0f}, {0x08, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x08, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x08, 0x09, 0x02, 0x0b, 0x0c, 0x0d, 0x0e, 0x07}, {0x08, 0x01, 0x02, 0x0b, 0x0c, 0x0d, 0x0e, 0x07}, {0x08, 0x01, 0x02, 0x0b, 0x0c, 0x0d, 0x0e, 0x07}, {0x08, 0x01, 0x02, 0x0b, 0x0c, 0x0d, 0x0e, 0x07}, {0x08, 0x01, 0x02, 0x0b, 0x0c, 0x0d, 0x0e, 0x07}, {0x08, 0x01, 0x02, 0x0b, 0x0c, 0x0d, 0x0e, 0x07}, {0x08, 0x01, 0x02, 0x0b, 0x0c, 0x0d, 0x0e, 0x07}, {0x08, 0x01, 0x02, 0x0b, 0x0c, 0x0d, 0x0e, 0x07}, {0x08, 0x01, 0x02, 0x0b, 0x0c, 0x0d, 0x0e, 0x07}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x07}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x07}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x07}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x07} }, { {0x00, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x0a, 0x0b, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x0a, 0x0b, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x0a, 0x0b, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x0a, 0x0b, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x0a, 0x0b, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x0a, 0x0b, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x0a, 0x0b, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x0a, 0x0b, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x0f}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x0f}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x0f}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x0f}, {0x08, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x0f}, {0x08, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x0f}, {0x08, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x0f}, {0x08, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x0f}, {0x08, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x08, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x08, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x08, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x08, 0x09, 0x02, 0x0b, 0x0c, 0x0d, 0x0e, 0x07}, {0x08, 0x01, 0x02, 0x0b, 0x0c, 0x0d, 0x0e, 0x07}, {0x08, 0x01, 0x02, 0x0b, 0x0c, 0x0d, 0x0e, 0x07}, {0x08, 0x01, 0x02, 0x0b, 0x0c, 0x0d, 0x0e, 0x07}, {0x08, 0x01, 0x02, 0x0b, 0x0c, 0x0d, 0x0e, 0x07}, {0x08, 0x01, 0x02, 0x0b, 0x0c, 0x0d, 0x0e, 0x07}, {0x08, 0x01, 0x02, 0x0b, 0x0c, 0x0d, 0x0e, 0x07}, {0x08, 0x01, 0x02, 0x0b, 0x0c, 0x0d, 0x0e, 0x07}, {0x08, 0x01, 0x02, 0x0b, 0x0c, 0x0d, 0x0e, 0x07}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x07}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x07}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x07} }, { {0x00, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x0a, 0x0b, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x0a, 0x0b, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x0a, 0x0b, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x0a, 0x0b, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x0a, 0x0b, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x0a, 0x0b, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x0a, 0x0b, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x0a, 0x0b, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x0f}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x0f}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x0f}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x0f}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x0f}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x0f}, {0x08, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x0f}, {0x08, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x0f}, {0x08, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x08, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x08, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x08, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x08, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x08, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x08, 0x09, 0x02, 0x0b, 0x0c, 0x0d, 0x0e, 0x07}, {0x08, 0x01, 0x02, 0x0b, 0x0c, 0x0d, 0x0e, 0x07}, {0x08, 0x01, 0x02, 0x0b, 0x0c, 0x0d, 0x0e, 0x07}, {0x08, 0x01, 0x02, 0x0b, 0x0c, 0x0d, 0x0e, 0x07}, {0x08, 0x01, 0x02, 0x0b, 0x0c, 0x0d, 0x0e, 0x07}, {0x08, 0x01, 0x02, 0x0b, 0x0c, 0x0d, 0x0e, 0x07}, {0x08, 0x01, 0x02, 0x0b, 0x0c, 0x0d, 0x0e, 0x07}, {0x08, 0x01, 0x02, 0x0b, 0x0c, 0x0d, 0x0e, 0x07}, {0x08, 0x01, 0x02, 0x0b, 0x0c, 0x0d, 0x0e, 0x07}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x07}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x07} }, { {0x00, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x0a, 0x0b, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x0a, 0x0b, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x0a, 0x0b, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x0a, 0x0b, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x0a, 0x0b, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x0a, 0x0b, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x0a, 0x0b, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x0a, 0x0b, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x0f}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x0f}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x0f}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x0f}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x0f}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x0f}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x0f}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x0f}, {0x08, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x08, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x08, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x08, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x08, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x08, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x08, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x08, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x08, 0x09, 0x02, 0x0b, 0x0c, 0x0d, 0x0e, 0x07}, {0x08, 0x01, 0x02, 0x0b, 0x0c, 0x0d, 0x0e, 0x07}, {0x08, 0x01, 0x02, 0x0b, 0x0c, 0x0d, 0x0e, 0x07}, {0x08, 0x01, 0x02, 0x0b, 0x0c, 0x0d, 0x0e, 0x07}, {0x08, 0x01, 0x02, 0x0b, 0x0c, 0x0d, 0x0e, 0x07}, {0x08, 0x01, 0x02, 0x0b, 0x0c, 0x0d, 0x0e, 0x07}, {0x08, 0x01, 0x02, 0x0b, 0x0c, 0x0d, 0x0e, 0x07}, {0x08, 0x01, 0x02, 0x0b, 0x0c, 0x0d, 0x0e, 0x07}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x07}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x07} }, { {0x00, 0x09, 0x0a, 0x03, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x0a, 0x0b, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x0a, 0x0b, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x0a, 0x0b, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x0a, 0x0b, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x0a, 0x0b, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x0a, 0x0b, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x0a, 0x0b, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x0a, 0x0b, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x0f}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x0f}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x0f}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x0f}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x0f}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x0f}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x0f}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x0f}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x08, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x08, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x08, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x08, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x08, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x08, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x08, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x08, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x08, 0x09, 0x02, 0x0b, 0x0c, 0x0d, 0x0e, 0x07}, {0x08, 0x01, 0x02, 0x0b, 0x0c, 0x0d, 0x0e, 0x07}, {0x08, 0x01, 0x02, 0x0b, 0x0c, 0x0d, 0x0e, 0x07}, {0x08, 0x01, 0x02, 0x0b, 0x0c, 0x0d, 0x0e, 0x07}, {0x08, 0x01, 0x02, 0x0b, 0x0c, 0x0d, 0x0e, 0x07}, {0x08, 0x01, 0x02, 0x0b, 0x0c, 0x0d, 0x0e, 0x07}, {0x08, 0x01, 0x02, 0x0b, 0x0c, 0x0d, 0x0e, 0x07}, {0x08, 0x01, 0x02, 0x0b, 0x0c, 0x0d, 0x0e, 0x07}, {0x08, 0x01, 0x02, 0x0b, 0x04, 0x0d, 0x0e, 0x07} }, { {0x00, 0x09, 0x0a, 0x0b, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x0a, 0x0b, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x0a, 0x0b, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x0a, 0x0b, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x0a, 0x0b, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x0a, 0x0b, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x0a, 0x0b, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x0a, 0x0b, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x0f}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x0f}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x0f}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x0f}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x0f}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x0f}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x0f}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x0f}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x08, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x08, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x08, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x08, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x08, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x08, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x08, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x08, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x08, 0x09, 0x02, 0x0b, 0x0c, 0x0d, 0x0e, 0x07}, {0x08, 0x01, 0x02, 0x0b, 0x0c, 0x0d, 0x0e, 0x07}, {0x08, 0x01, 0x02, 0x0b, 0x0c, 0x0d, 0x0e, 0x07}, {0x08, 0x01, 0x02, 0x0b, 0x0c, 0x0d, 0x0e, 0x07}, {0x08, 0x01, 0x02, 0x0b, 0x0c, 0x0d, 0x0e, 0x07}, {0x08, 0x01, 0x02, 0x0b, 0x0c, 0x0d, 0x0e, 0x07}, {0x08, 0x01, 0x02, 0x0b, 0x0c, 0x0d, 0x0e, 0x07}, {0x08, 0x01, 0x02, 0x0b, 0x0c, 0x0d, 0x0e, 0x07} }, { {0x00, 0x09, 0x0a, 0x0b, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x0a, 0x0b, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x0a, 0x0b, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x0a, 0x0b, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x0a, 0x0b, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x0a, 0x0b, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x0a, 0x0b, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x0f}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x0f}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x0f}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x0f}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x0f}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x0f}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x0f}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x0f}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x08, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x08, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x08, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x08, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x08, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x08, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x08, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x08, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x08, 0x09, 0x02, 0x0b, 0x0c, 0x0d, 0x0e, 0x07}, {0x08, 0x01, 0x02, 0x0b, 0x0c, 0x0d, 0x0e, 0x07}, {0x08, 0x01, 0x02, 0x0b, 0x0c, 0x0d, 0x0e, 0x07}, {0x08, 0x01, 0x02, 0x0b, 0x0c, 0x0d, 0x0e, 0x07}, {0x08, 0x01, 0x02, 0x0b, 0x0c, 0x0d, 0x0e, 0x07}, {0x08, 0x01, 0x02, 0x0b, 0x0c, 0x0d, 0x0e, 0x07}, {0x08, 0x01, 0x02, 0x0b, 0x0c, 0x0d, 0x0e, 0x07} }, { {0x00, 0x09, 0x0a, 0x0b, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x0a, 0x0b, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x0a, 0x0b, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x0a, 0x0b, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x0a, 0x0b, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x0a, 0x0b, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x0f}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x0f}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x0f}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x0f}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x0f}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x0f}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x0f}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x0f}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x08, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x08, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x08, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x08, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x08, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x08, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x08, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x08, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x08, 0x09, 0x02, 0x0b, 0x0c, 0x0d, 0x0e, 0x07}, {0x08, 0x01, 0x02, 0x0b, 0x0c, 0x0d, 0x0e, 0x07}, {0x08, 0x01, 0x02, 0x0b, 0x0c, 0x0d, 0x0e, 0x07}, {0x08, 0x01, 0x02, 0x0b, 0x0c, 0x0d, 0x0e, 0x07}, {0x08, 0x01, 0x02, 0x0b, 0x0c, 0x0d, 0x0e, 0x07}, {0x08, 0x01, 0x02, 0x0b, 0x0c, 0x0d, 0x0e, 0x07} }, { {0x00, 0x09, 0x0a, 0x0b, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x0a, 0x0b, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x0a, 0x0b, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x0a, 0x0b, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x0a, 0x0b, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x0f}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x0f}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x0f}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x0f}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x0f}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x0f}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x0f}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x0f}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x08, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x08, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x08, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x08, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x08, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x08, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x08, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x08, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x08, 0x09, 0x02, 0x0b, 0x0c, 0x0d, 0x0e, 0x07}, {0x08, 0x01, 0x02, 0x0b, 0x0c, 0x0d, 0x0e, 0x07}, {0x08, 0x01, 0x02, 0x0b, 0x0c, 0x0d, 0x0e, 0x07}, {0x08, 0x01, 0x02, 0x0b, 0x0c, 0x0d, 0x0e, 0x07}, {0x08, 0x01, 0x02, 0x0b, 0x0c, 0x0d, 0x0e, 0x07} }, { {0x00, 0x09, 0x0a, 0x0b, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x0a, 0x0b, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x0a, 0x0b, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x0a, 0x0b, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x0f}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x0f}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x0f}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x0f}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x0f}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x0f}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x0f}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x0f}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x08, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x08, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x08, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x08, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x08, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x08, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x08, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x08, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x08, 0x09, 0x02, 0x0b, 0x0c, 0x0d, 0x0e, 0x07}, {0x08, 0x01, 0x02, 0x0b, 0x0c, 0x0d, 0x0e, 0x07}, {0x08, 0x01, 0x02, 0x0b, 0x0c, 0x0d, 0x0e, 0x07}, {0x08, 0x01, 0x02, 0x0b, 0x0c, 0x0d, 0x0e, 0x07} }, { {0x00, 0x09, 0x0a, 0x0b, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x0a, 0x0b, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x0a, 0x0b, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x0f}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x0f}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x0f}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x0f}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x0f}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x0f}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x0f}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x0f}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x08, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x08, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x08, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x08, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x08, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x08, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x08, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x08, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x08, 0x09, 0x02, 0x0b, 0x0c, 0x0d, 0x0e, 0x07}, {0x08, 0x01, 0x02, 0x0b, 0x0c, 0x0d, 0x0e, 0x07}, {0x08, 0x01, 0x02, 0x0b, 0x0c, 0x0d, 0x0e, 0x07} }, { {0x00, 0x09, 0x0a, 0x0b, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x0a, 0x0b, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x0f}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x0f}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x0f}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x0f}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x0f}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x0f}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x0f}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x0f}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x08, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x08, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x08, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x08, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x08, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x08, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x08, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x08, 0x09, 0x02, 0x0b, 0x0c, 0x0d, 0x0e, 0x07}, {0x08, 0x01, 0x02, 0x0b, 0x0c, 0x0d, 0x0e, 0x07} }, { {0x00, 0x09, 0x0a, 0x0b, 0x0c, 0x05, 0x06, 0x0f}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x0f}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x0f}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x0f}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x0f}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x0f}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x0f}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x0f}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x0f}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x00, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x08, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x08, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x08, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x08, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x08, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x08, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x08, 0x09, 0x02, 0x0b, 0x0c, 0x05, 0x0e, 0x07}, {0x08, 0x09, 0x02, 0x0b, 0x0c, 0x0d, 0x0e, 0x07} } } }; static const uint8_t constel_map_4800[36][36] = { /* 4,800bps map - No trellis. V.32/V.32bis only */ { 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01 }, { 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01 }, { 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01 }, { 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01 }, { 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01 }, { 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01 }, { 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01 }, { 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01 }, { 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01 }, { 0x02, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01 }, { 0x02, 0x02, 0x02, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01 }, { 0x02, 0x02, 0x02, 0x02, 0x02, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01 }, { 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01 }, { 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01 }, { 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01 }, { 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01 }, { 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x00, 0x00, 0x00, 0x00, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01 }, { 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x00, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01 }, { 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x03, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01 }, { 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x03, 0x03, 0x03, 0x03, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01 }, { 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01 }, { 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01 }, { 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01 }, { 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01 }, { 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x01, 0x01, 0x01, 0x01, 0x01 }, { 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x01, 0x01, 0x01 }, { 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x01 }, { 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03 }, { 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03 }, { 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03 }, { 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03 }, { 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03 }, { 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03 }, { 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03 }, { 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03 }, { 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03 } }; /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/v22bis_rx.c0000664000175000017500000010266111422612263015357 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * v22bis_rx.c - ITU V.22bis modem receive part * * Written by Steve Underwood * * Copyright (C) 2004 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \file */ /* THIS IS A WORK IN PROGRESS - It is basically functional, but it is not feature complete, and doesn't reliably sync over the signal and noise level ranges it should. There are some nasty inefficiencies too! TODO: Better noise performance Retrain is incomplete Rate change is not implemented Remote loopback is not implemented */ #if defined(HAVE_CONFIG_H) #include "config.h" #endif #include #include #include #include #if defined(HAVE_TGMATH_H) #include #endif #if defined(HAVE_MATH_H) #include #endif #include "floating_fudge.h" #include "spandsp/telephony.h" #include "spandsp/logging.h" #include "spandsp/complex.h" #include "spandsp/vector_float.h" #include "spandsp/complex_vector_float.h" #include "spandsp/vector_int.h" #include "spandsp/complex_vector_int.h" #include "spandsp/async.h" #include "spandsp/power_meter.h" #include "spandsp/arctan2.h" #include "spandsp/dds.h" #include "spandsp/complex_filters.h" #include "spandsp/v29rx.h" #include "spandsp/v22bis.h" #include "spandsp/private/logging.h" #include "spandsp/private/v22bis.h" #if defined(SPANDSP_USE_FIXED_POINTx) #include "v22bis_rx_1200_floating_rrc.h" #include "v22bis_rx_2400_floating_rrc.h" #else #include "v22bis_rx_1200_floating_rrc.h" #include "v22bis_rx_2400_floating_rrc.h" #endif #define ms_to_symbols(t) (((t)*600)/1000) /*! The adaption rate coefficient for the equalizer */ #define EQUALIZER_DELTA 0.25f /*! The number of phase shifted coefficient set for the pulse shaping/bandpass filter */ #define PULSESHAPER_COEFF_SETS 12 /* The basic method used by the V.22bis receiver is: Put each sample into the pulse-shaping and phase shift filter buffer At T/2 rate: Filter and demodulate the contents of the input filter buffer, producing a sample in the equalizer filter buffer. Tune the symbol timing based on the latest 3 samples in the equalizer buffer. This updates the decision points for taking the T/2 samples. Equalize the contents of the equalizer buffer, producing a demodulated constellation point. Find the nearest constellation point to the received position. This is our received symbol. Tune the local carrier, based on the angular mismatch between the actual signal and the decision. Tune the equalizer, based on the mismatch between the actual signal and the decision. Descramble and output the bits represented by the decision. */ static const uint8_t space_map_v22bis[6][6] = { {11, 9, 9, 6, 6, 7}, {10, 8, 8, 4, 4, 5}, {10, 8, 8, 4, 4, 5}, {13, 12, 12, 0, 0, 2}, {13, 12, 12, 0, 0, 2}, {15, 14, 14, 1, 1, 3} }; static const uint8_t phase_steps[4] = { 1, 0, 2, 3 }; static const uint8_t ones[] = { 0, 1, 1, 2, 1, 2, 2, 3, 1, 2, 2, 3, 2, 3, 3, 4 }; SPAN_DECLARE(float) v22bis_rx_carrier_frequency(v22bis_state_t *s) { return dds_frequencyf(s->rx.carrier_phase_rate); } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(float) v22bis_rx_symbol_timing_correction(v22bis_state_t *s) { return (float) s->rx.total_baud_timing_correction/((float) PULSESHAPER_COEFF_SETS*40.0f/(3.0f*2.0f)); } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(float) v22bis_rx_signal_power(v22bis_state_t *s) { return power_meter_current_dbm0(&s->rx.rx_power) + 6.34f; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) v22bis_rx_signal_cutoff(v22bis_state_t *s, float cutoff) { s->rx.carrier_on_power = (int32_t) (power_meter_level_dbm0(cutoff + 2.5f)*0.232f); s->rx.carrier_off_power = (int32_t) (power_meter_level_dbm0(cutoff - 2.5f)*0.232f); } /*- End of function --------------------------------------------------------*/ void v22bis_report_status_change(v22bis_state_t *s, int status) { if (s->status_handler) s->status_handler(s->status_user_data, status); else if (s->put_bit) s->put_bit(s->put_bit_user_data, status); } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) v22bis_rx_equalizer_state(v22bis_state_t *s, complexf_t **coeffs) { *coeffs = s->rx.eq_coeff; return 2*V22BIS_EQUALIZER_LEN + 1; } /*- End of function --------------------------------------------------------*/ void v22bis_equalizer_coefficient_reset(v22bis_state_t *s) { /* Start with an equalizer based on everything being perfect */ #if defined(SPANDSP_USE_FIXED_POINTx) cvec_zeroi16(s->rx.eq_coeff, 2*V22BIS_EQUALIZER_LEN + 1); s->rx.eq_coeff[V22BIS_EQUALIZER_LEN] = complex_seti16(3*FP_FACTOR, 0*FP_FACTOR); s->rx.eq_delta = 32768.0f*EQUALIZER_DELTA/(2*V22BIS_EQUALIZER_LEN + 1); #else cvec_zerof(s->rx.eq_coeff, 2*V22BIS_EQUALIZER_LEN + 1); s->rx.eq_coeff[V22BIS_EQUALIZER_LEN] = complex_setf(3.0f, 0.0f); s->rx.eq_delta = EQUALIZER_DELTA/(2*V22BIS_EQUALIZER_LEN + 1); #endif } /*- End of function --------------------------------------------------------*/ static void equalizer_reset(v22bis_state_t *s) { v22bis_equalizer_coefficient_reset(s); #if defined(SPANDSP_USE_FIXED_POINTx) cvec_zeroi16(s->rx.eq_buf, V22BIS_EQUALIZER_MASK + 1); #else cvec_zerof(s->rx.eq_buf, V22BIS_EQUALIZER_MASK + 1); #endif s->rx.eq_put_step = 20 - 1; s->rx.eq_step = 0; } /*- End of function --------------------------------------------------------*/ static complexf_t equalizer_get(v22bis_state_t *s) { int i; int p; complexf_t z; complexf_t z1; /* Get the next equalized value. */ z = complex_setf(0.0f, 0.0f); p = s->rx.eq_step - 1; for (i = 0; i < 2*V22BIS_EQUALIZER_LEN + 1; i++) { p = (p - 1) & V22BIS_EQUALIZER_MASK; z1 = complex_mulf(&s->rx.eq_coeff[i], &s->rx.eq_buf[p]); z = complex_addf(&z, &z1); } return z; } /*- End of function --------------------------------------------------------*/ static void tune_equalizer(v22bis_state_t *s, const complexf_t *z, const complexf_t *target) { int i; int p; complexf_t ez; complexf_t z1; /* Find the x and y mismatch from the exact constellation position. */ ez = complex_subf(target, z); ez.re *= s->rx.eq_delta; ez.im *= s->rx.eq_delta; p = s->rx.eq_step - 1; for (i = 0; i < 2*V22BIS_EQUALIZER_LEN + 1; i++) { p = (p - 1) & V22BIS_EQUALIZER_MASK; z1 = complex_conjf(&s->rx.eq_buf[p]); z1 = complex_mulf(&ez, &z1); s->rx.eq_coeff[i] = complex_addf(&s->rx.eq_coeff[i], &z1); /* If we don't leak a little bit we seem to get some wandering adaption */ s->rx.eq_coeff[i].re *= 0.9999f; s->rx.eq_coeff[i].im *= 0.9999f; } } /*- End of function --------------------------------------------------------*/ static __inline__ void track_carrier(v22bis_state_t *s, const complexf_t *z, const complexf_t *target) { float error; /* For small errors the imaginary part of the difference between the actual and the target positions is proportional to the phase error, for any particular target. However, the different amplitudes of the various target positions scale things. */ error = z->im*target->re - z->re*target->im; s->rx.carrier_phase_rate += (int32_t) (s->rx.carrier_track_i*error); s->rx.carrier_phase += (int32_t) (s->rx.carrier_track_p*error); //span_log(&s->logging, SPAN_LOG_FLOW, "Im = %15.5f f = %15.5f\n", error, dds_frequencyf(s->rx.carrier_phase_rate)); } /*- End of function --------------------------------------------------------*/ static __inline__ int descramble(v22bis_state_t *s, int bit) { int out_bit; bit &= 1; /* Descramble the bit */ out_bit = (bit ^ (s->rx.scramble_reg >> 13) ^ (s->rx.scramble_reg >> 16)) & 1; s->rx.scramble_reg = (s->rx.scramble_reg << 1) | bit; if (s->rx.scrambler_pattern_count >= 64) { out_bit ^= 1; s->rx.scrambler_pattern_count = 0; } if (bit) s->rx.scrambler_pattern_count++; else s->rx.scrambler_pattern_count = 0; return out_bit; } /*- End of function --------------------------------------------------------*/ static __inline__ void put_bit(v22bis_state_t *s, int bit) { int out_bit; /* Descramble the bit */ out_bit = descramble(s, bit); s->put_bit(s->put_bit_user_data, out_bit); } /*- End of function --------------------------------------------------------*/ static void decode_baud(v22bis_state_t *s, int nearest) { int raw_bits; raw_bits = phase_steps[((nearest >> 2) - (s->rx.constellation_state >> 2)) & 3]; s->rx.constellation_state = nearest; /* The first two bits are the quadrant */ put_bit(s, raw_bits >> 1); put_bit(s, raw_bits); if (s->rx.sixteen_way_decisions) { /* The other two bits are the position within the quadrant */ put_bit(s, nearest >> 1); put_bit(s, nearest); } } /*- End of function --------------------------------------------------------*/ static int decode_baudx(v22bis_state_t *s, int nearest) { int raw_bits; int out_bits; raw_bits = phase_steps[((nearest >> 2) - (s->rx.constellation_state >> 2)) & 3]; s->rx.constellation_state = nearest; /* The first two bits are the quadrant */ out_bits = descramble(s, raw_bits >> 1); out_bits = (out_bits << 1) | descramble(s, raw_bits); if (s->rx.sixteen_way_decisions) { /* The other two bits are the position within the quadrant */ out_bits = (out_bits << 1) | descramble(s, nearest >> 1); out_bits = (out_bits << 1) | descramble(s, nearest); } return out_bits; } /*- End of function --------------------------------------------------------*/ static __inline__ void symbol_sync(v22bis_state_t *s) { float p; float q; complexf_t zz; complexf_t a; complexf_t b; complexf_t c; /* This routine adapts the position of the half baud samples entering the equalizer. */ /* Perform a Gardner test for baud alignment on the three most recent samples. */ if (s->rx.sixteen_way_decisions) { p = s->rx.eq_buf[(s->rx.eq_step - 3) & V22BIS_EQUALIZER_MASK].re - s->rx.eq_buf[(s->rx.eq_step - 1) & V22BIS_EQUALIZER_MASK].re; p *= s->rx.eq_buf[(s->rx.eq_step - 2) & V22BIS_EQUALIZER_MASK].re; q = s->rx.eq_buf[(s->rx.eq_step - 3) & V22BIS_EQUALIZER_MASK].im - s->rx.eq_buf[(s->rx.eq_step - 1) & V22BIS_EQUALIZER_MASK].im; q *= s->rx.eq_buf[(s->rx.eq_step - 2) & V22BIS_EQUALIZER_MASK].im; } else { /* Rotate the points to the 45 degree positions, to maximise the effectiveness of the Gardner algorithm. This is particularly significant at the start of operation to pull things in quickly. */ zz = complex_setf(0.894427, 0.44721f); a = complex_mulf(&s->rx.eq_buf[(s->rx.eq_step - 3) & V22BIS_EQUALIZER_MASK], &zz); b = complex_mulf(&s->rx.eq_buf[(s->rx.eq_step - 2) & V22BIS_EQUALIZER_MASK], &zz); c = complex_mulf(&s->rx.eq_buf[(s->rx.eq_step - 1) & V22BIS_EQUALIZER_MASK], &zz); p = (a.re - c.re)*b.re; q = (a.im - c.im)*b.im; } s->rx.gardner_integrate += (p + q > 0.0f) ? s->rx.gardner_step : -s->rx.gardner_step; if (abs(s->rx.gardner_integrate) >= 16) { /* This integrate and dump approach avoids rapid changes of the equalizer put step. Rapid changes, without hysteresis, are bad. They degrade the equalizer performance when the true symbol boundary is close to a sample boundary. */ s->rx.eq_put_step += (s->rx.gardner_integrate/16); s->rx.total_baud_timing_correction += (s->rx.gardner_integrate/16); //span_log(&s->logging, SPAN_LOG_FLOW, "Gardner kick %d [total %d]\n", s->rx.gardner_integrate, s->rx.total_baud_timing_correction); if (s->rx.qam_report) s->rx.qam_report(s->rx.qam_user_data, NULL, NULL, s->rx.gardner_integrate); s->rx.gardner_integrate = 0; } } /*- End of function --------------------------------------------------------*/ static void process_half_baud(v22bis_state_t *s, const complexf_t *sample) { complexf_t z; complexf_t zz; const complexf_t *target; int re; int im; int nearest; int bitstream; int raw_bits; z.re = sample->re; z.im = sample->im; /* Add a sample to the equalizer's circular buffer, but don't calculate anything at this time. */ s->rx.eq_buf[s->rx.eq_step] = z; s->rx.eq_step = (s->rx.eq_step + 1) & V22BIS_EQUALIZER_MASK; /* On alternate insertions we have a whole baud and must process it. */ if ((s->rx.baud_phase ^= 1)) return; symbol_sync(s); z = equalizer_get(s); /* Find the constellation point */ if (s->rx.sixteen_way_decisions) { re = (int) (z.re + 3.0f); if (re > 5) re = 5; else if (re < 0) re = 0; im = (int) (z.im + 3.0f); if (im > 5) im = 5; else if (im < 0) im = 0; nearest = space_map_v22bis[re][im]; } else { /* Rotate to 45 degrees, to make the slicing trivial */ zz = complex_setf(0.894427, 0.44721f); zz = complex_mulf(&z, &zz); nearest = 0x01; if (zz.re < 0.0f) nearest |= 0x04; if (zz.im < 0.0f) { nearest ^= 0x04; nearest |= 0x08; } } raw_bits = 0; switch (s->rx.training) { case V22BIS_RX_TRAINING_STAGE_NORMAL_OPERATION: /* Normal operation. */ target = &v22bis_constellation[nearest]; track_carrier(s, &z, target); tune_equalizer(s, &z, target); raw_bits = phase_steps[((nearest >> 2) - (s->rx.constellation_state >> 2)) & 3]; /* TODO: detect unscrambled ones indicating a loopback request */ /* Search for the S1 signal that might be requesting a retrain */ if ((s->rx.last_raw_bits ^ raw_bits) == 0x3) { s->rx.pattern_repeats++; } else { if (s->rx.pattern_repeats >= 50 && (s->rx.last_raw_bits == 0x3 || s->rx.last_raw_bits == 0x0)) { /* We should get a full run of 00 11 (about 60 bauds) at either modem. */ span_log(&s->logging, SPAN_LOG_FLOW, "+++ S1 detected (%d long)\n", s->rx.pattern_repeats); span_log(&s->logging, SPAN_LOG_FLOW, "+++ Accepting a retrain request\n"); s->rx.pattern_repeats = 0; s->rx.training_count = 0; s->rx.training = V22BIS_RX_TRAINING_STAGE_SCRAMBLED_ONES_AT_1200; s->tx.training_count = 0; s->tx.training = V22BIS_TX_TRAINING_STAGE_U0011; v22bis_equalizer_coefficient_reset(s); v22bis_report_status_change(s, SIG_STATUS_MODEM_RETRAIN_OCCURRED); } s->rx.pattern_repeats = 0; } decode_baud(s, nearest); break; case V22BIS_RX_TRAINING_STAGE_SYMBOL_ACQUISITION: /* Allow time for the Gardner algorithm to settle the symbol timing. */ target = &z; if (++s->rx.training_count >= 40) { /* QAM and Gardner only play nicely with heavy damping, so we need to change to a slow rate of symbol timing adaption. However, it must not be so slow that it cannot track the worst case timing error specified in V.22bis. This should be 0.01%, but since we might be off in the opposite direction from the source, the total error could be higher. */ s->rx.gardner_step = 4; s->rx.pattern_repeats = 0; if (s->calling_party) s->rx.training = V22BIS_RX_TRAINING_STAGE_UNSCRAMBLED_ONES; else s->rx.training = V22BIS_RX_TRAINING_STAGE_SCRAMBLED_ONES_AT_1200; /* Be pessimistic and see what the handshake brings */ s->negotiated_bit_rate = 1200; break; } /* Once we have pulled in the symbol timing in a coarse way, use finer steps to fine tune the timing. */ if (s->rx.training_count == 30) s->rx.gardner_step = 32; break; case V22BIS_RX_TRAINING_STAGE_UNSCRAMBLED_ONES: /* Calling modem only */ /* The calling modem should initially receive unscrambled ones at 1200bps */ target = &v22bis_constellation[nearest]; track_carrier(s, &z, target); raw_bits = phase_steps[((nearest >> 2) - (s->rx.constellation_state >> 2)) & 3]; s->rx.constellation_state = nearest; if (raw_bits != s->rx.last_raw_bits) s->rx.pattern_repeats = 0; else s->rx.pattern_repeats++; if (++s->rx.training_count == ms_to_symbols(155 + 456)) { /* After the first 155ms things should have been steady, so check if the last 456ms was steady at 11 or 00. */ if (raw_bits == s->rx.last_raw_bits && (raw_bits == 0x3 || raw_bits == 0x0) && s->rx.pattern_repeats >= ms_to_symbols(456)) { /* It looks like the answering machine is sending us a clean unscrambled 11 or 00 */ if (s->bit_rate == 2400) { /* Try to establish at 2400bps */ span_log(&s->logging, SPAN_LOG_FLOW, "+++ starting U0011 (S1) (Caller)\n"); s->tx.training = V22BIS_TX_TRAINING_STAGE_U0011; s->tx.training_count = 0; } else { /* Only try to establish at 1200bps */ span_log(&s->logging, SPAN_LOG_FLOW, "+++ starting S11 (1200) (Caller)\n"); s->tx.training = V22BIS_TX_TRAINING_STAGE_S11; s->tx.training_count = 0; } } s->rx.pattern_repeats = 0; s->rx.training_count = 0; s->rx.training = V22BIS_RX_TRAINING_STAGE_UNSCRAMBLED_ONES_SUSTAINING; } break; case V22BIS_RX_TRAINING_STAGE_UNSCRAMBLED_ONES_SUSTAINING: /* Calling modem only */ /* Wait for the end of the unscrambled ones at 1200bps */ target = &v22bis_constellation[nearest]; track_carrier(s, &z, target); raw_bits = phase_steps[((nearest >> 2) - (s->rx.constellation_state >> 2)) & 3]; s->rx.constellation_state = nearest; if (raw_bits != s->rx.last_raw_bits) { /* This looks like the end of the sustained initial unscrambled 11 or 00 */ s->tx.training_count = 0; s->tx.training = V22BIS_TX_TRAINING_STAGE_TIMED_S11; s->rx.training_count = 0; s->rx.training = V22BIS_RX_TRAINING_STAGE_SCRAMBLED_ONES_AT_1200; s->rx.pattern_repeats = 0; } break; case V22BIS_RX_TRAINING_STAGE_SCRAMBLED_ONES_AT_1200: target = &v22bis_constellation[nearest]; track_carrier(s, &z, target); tune_equalizer(s, &z, target); raw_bits = phase_steps[((nearest >> 2) - (s->rx.constellation_state >> 2)) & 3]; bitstream = decode_baudx(s, nearest); s->rx.training_count++; //span_log(&s->logging, SPAN_LOG_FLOW, "S11 0x%02x 0x%02x 0x%X %d %d %d %d %d\n", raw_bits, nearest, bitstream, s->rx.scrambled_ones_to_date, 0, 0, 0, s->rx.training_count); if (s->negotiated_bit_rate == 1200) { /* Search for the S1 signal */ if ((s->rx.last_raw_bits ^ raw_bits) == 0x3) { s->rx.pattern_repeats++; } else { if (s->rx.pattern_repeats >= 15 && (s->rx.last_raw_bits == 0x3 || s->rx.last_raw_bits == 0x0)) { /* We should get a full run of 00 11 (about 60 bauds) at the calling modem, but only about 20 at the answering modem, as the first 40 are TED settling time. */ span_log(&s->logging, SPAN_LOG_FLOW, "+++ S1 detected (%d long)\n", s->rx.pattern_repeats); if (s->bit_rate == 2400) { if (!s->calling_party) { /* Accept establishment at 2400bps */ span_log(&s->logging, SPAN_LOG_FLOW, "+++ starting U0011 (S1) (Answerer)\n"); s->tx.training = V22BIS_TX_TRAINING_STAGE_U0011; s->tx.training_count = 0; } s->negotiated_bit_rate = 2400; } } s->rx.pattern_repeats = 0; } if (s->rx.training_count >= ms_to_symbols(270)) { /* If we haven't seen the S1 signal by now, we are committed to be in 1200bps mode */ if (s->calling_party) { span_log(&s->logging, SPAN_LOG_FLOW, "+++ Rx normal operation (1200)\n"); /* The transmit side needs to sustain the scrambled ones for a timed period */ s->tx.training_count = 0; s->tx.training = V22BIS_TX_TRAINING_STAGE_TIMED_S11; /* Normal reception starts immediately */ s->rx.training = V22BIS_RX_TRAINING_STAGE_NORMAL_OPERATION; s->rx.carrier_track_i = 8000.0f; } else { span_log(&s->logging, SPAN_LOG_FLOW, "+++ starting S11 (1200) (Answerer)\n"); /* The transmit side needs to sustain the scrambled ones for a timed period */ s->tx.training_count = 0; s->tx.training = V22BIS_TX_TRAINING_STAGE_TIMED_S11; /* The receive side needs to wait a timed period, receiving scrambled ones, before entering normal operation. */ s->rx.training = V22BIS_RX_TRAINING_STAGE_SCRAMBLED_ONES_AT_1200_SUSTAINING; } } } else { if (s->calling_party) { if (s->rx.training_count >= ms_to_symbols(100 + 450)) { span_log(&s->logging, SPAN_LOG_FLOW, "+++ starting 16 way decisions (caller)\n"); s->rx.sixteen_way_decisions = TRUE; s->rx.training = V22BIS_RX_TRAINING_STAGE_WAIT_FOR_SCRAMBLED_ONES_AT_2400; s->rx.pattern_repeats = 0; s->rx.carrier_track_i = 8000.0f; } } else { if (s->rx.training_count >= ms_to_symbols(450)) { span_log(&s->logging, SPAN_LOG_FLOW, "+++ starting 16 way decisions (answerer)\n"); s->rx.sixteen_way_decisions = TRUE; s->rx.training = V22BIS_RX_TRAINING_STAGE_WAIT_FOR_SCRAMBLED_ONES_AT_2400; s->rx.pattern_repeats = 0; } } } break; case V22BIS_RX_TRAINING_STAGE_SCRAMBLED_ONES_AT_1200_SUSTAINING: target = &v22bis_constellation[nearest]; track_carrier(s, &z, target); tune_equalizer(s, &z, target); bitstream = decode_baudx(s, nearest); if (++s->rx.training_count > ms_to_symbols(270 + 765)) { span_log(&s->logging, SPAN_LOG_FLOW, "+++ Rx normal operation (1200)\n"); s->rx.training = V22BIS_RX_TRAINING_STAGE_NORMAL_OPERATION; } break; case V22BIS_RX_TRAINING_STAGE_WAIT_FOR_SCRAMBLED_ONES_AT_2400: target = &v22bis_constellation[nearest]; track_carrier(s, &z, target); tune_equalizer(s, &z, target); bitstream = decode_baudx(s, nearest); /* We need 32 sustained 1's to switch into normal operation. */ if (bitstream == 0xF) { if (++s->rx.pattern_repeats >= 9) { span_log(&s->logging, SPAN_LOG_FLOW, "+++ Rx normal operation (2400)\n"); s->rx.training = V22BIS_RX_TRAINING_STAGE_NORMAL_OPERATION; } } else { s->rx.pattern_repeats = 0; } break; case V22BIS_RX_TRAINING_STAGE_PARKED: default: /* We failed to train! */ /* Park here until the carrier drops. */ target = &z; break; } s->rx.last_raw_bits = raw_bits; if (s->rx.qam_report) s->rx.qam_report(s->rx.qam_user_data, &z, target, s->rx.constellation_state); } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE_NONSTD(int) v22bis_rx(v22bis_state_t *s, const int16_t amp[], int len) { int i; int step; complexf_t z; complexf_t zz; int32_t power; complexf_t sample; float ii; float qq; for (i = 0; i < len; i++) { /* Complex bandpass filter the signal, using a pair of FIRs, and RRC coeffs shifted to centre at 1200Hz or 2400Hz. The filters support 12 fractional phase shifts, to permit signal extraction very close to the middle of a symbol. */ s->rx.rrc_filter[s->rx.rrc_filter_step] = amp[i]; if (++s->rx.rrc_filter_step >= V22BIS_RX_FILTER_STEPS) s->rx.rrc_filter_step = 0; /* Calculate the I filter, with an arbitrary phase step, just so we can calculate the signal power of the required carrier, with any guard tone or spillback of our own transmitted signal suppressed. */ if (s->calling_party) { #if defined(SPANDSP_USE_FIXED_POINT) ii = vec_circular_dot_prodi16(s->rx.rrc_filter, rx_pulseshaper_2400_re[6], V22BIS_RX_FILTER_STEPS, s->rx.rrc_filter_step); #else ii = vec_circular_dot_prodf(s->rx.rrc_filter, rx_pulseshaper_2400_re[6], V22BIS_RX_FILTER_STEPS, s->rx.rrc_filter_step); #endif } else { #if defined(SPANDSP_USE_FIXED_POINT) ii = vec_circular_dot_prodi16(s->rx.rrc_filter, rx_pulseshaper_1200_re[6], V22BIS_RX_FILTER_STEPS, s->rx.rrc_filter_step); #else ii = vec_circular_dot_prodf(s->rx.rrc_filter, rx_pulseshaper_1200_re[6], V22BIS_RX_FILTER_STEPS, s->rx.rrc_filter_step); #endif } power = power_meter_update(&(s->rx.rx_power), (int16_t) ii); if (s->rx.signal_present) { /* Look for power below the carrier off point */ if (power < s->rx.carrier_off_power) { v22bis_restart(s, s->bit_rate); v22bis_report_status_change(s, SIG_STATUS_CARRIER_DOWN); continue; } } else { /* Look for power exceeding the carrier on point */ if (power < s->rx.carrier_on_power) continue; s->rx.signal_present = TRUE; v22bis_report_status_change(s, SIG_STATUS_CARRIER_UP); } if (s->rx.training != V22BIS_RX_TRAINING_STAGE_PARKED) { /* Only spend effort processing this data if the modem is not parked, after a training failure. */ z = dds_complexf(&s->rx.carrier_phase, s->rx.carrier_phase_rate); if (s->rx.training == V22BIS_RX_TRAINING_STAGE_SYMBOL_ACQUISITION) { /* Only AGC during the initial symbol acquisition, and then lock the gain. */ s->rx.agc_scaling = 0.18f*3.60f/sqrtf(power); } /* Put things into the equalization buffer at T/2 rate. The Gardner algorithm will fiddle the step to align this with the symbols. */ if ((s->rx.eq_put_step -= PULSESHAPER_COEFF_SETS) <= 0) { /* Pulse shape while still at the carrier frequency, using a quadrature pair of filters. This results in a properly bandpass filtered complex signal, which can be brought directly to bandband by complex mixing. No further filtering, to remove mixer harmonics, is needed. */ step = -s->rx.eq_put_step; if (step > PULSESHAPER_COEFF_SETS - 1) step = PULSESHAPER_COEFF_SETS - 1; s->rx.eq_put_step += PULSESHAPER_COEFF_SETS*40/(3*2); if (s->calling_party) { #if defined(SPANDSP_USE_FIXED_POINT) ii = vec_circular_dot_prodi16(s->rx.rrc_filter, rx_pulseshaper_2400_re[step], V22BIS_RX_FILTER_STEPS, s->rx.rrc_filter_step); qq = vec_circular_dot_prodi16(s->rx.rrc_filter, rx_pulseshaper_2400_im[step], V22BIS_RX_FILTER_STEPS, s->rx.rrc_filter_step); #else ii = vec_circular_dot_prodf(s->rx.rrc_filter, rx_pulseshaper_2400_re[step], V22BIS_RX_FILTER_STEPS, s->rx.rrc_filter_step); qq = vec_circular_dot_prodf(s->rx.rrc_filter, rx_pulseshaper_2400_im[step], V22BIS_RX_FILTER_STEPS, s->rx.rrc_filter_step); #endif } else { #if defined(SPANDSP_USE_FIXED_POINT) ii = vec_circular_dot_prodi16(s->rx.rrc_filter, rx_pulseshaper_1200_re[step], V22BIS_RX_FILTER_STEPS, s->rx.rrc_filter_step); qq = vec_circular_dot_prodi16(s->rx.rrc_filter, rx_pulseshaper_1200_im[step], V22BIS_RX_FILTER_STEPS, s->rx.rrc_filter_step); #else ii = vec_circular_dot_prodf(s->rx.rrc_filter, rx_pulseshaper_1200_re[step], V22BIS_RX_FILTER_STEPS, s->rx.rrc_filter_step); qq = vec_circular_dot_prodf(s->rx.rrc_filter, rx_pulseshaper_1200_im[step], V22BIS_RX_FILTER_STEPS, s->rx.rrc_filter_step); #endif } sample.re = ii*s->rx.agc_scaling; sample.im = qq*s->rx.agc_scaling; /* Shift to baseband - since this is done in a full complex form, the result is clean, and requires no further filtering apart from the equalizer. */ zz.re = sample.re*z.re - sample.im*z.im; zz.im = -sample.re*z.im - sample.im*z.re; process_half_baud(s, &zz); } } } return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE_NONSTD(int) v22bis_rx_fillin(v22bis_state_t *s, int len) { int i; /* We want to sustain the current state (i.e carrier on<->carrier off), and try to sustain the carrier phase. We should probably push the filters, as well */ span_log(&s->logging, SPAN_LOG_FLOW, "Fill-in %d samples\n", len); if (!s->rx.signal_present) return 0; for (i = 0; i < len; i++) { #if defined(SPANDSP_USE_FIXED_POINTx) dds_advance(&s->rx.carrier_phase, s->rx.carrier_phase_rate); #else dds_advancef(&s->rx.carrier_phase, s->rx.carrier_phase_rate); #endif } /* TODO: Advance the symbol phase the appropriate amount */ return 0; } /*- End of function --------------------------------------------------------*/ int v22bis_rx_restart(v22bis_state_t *s) { #if defined(SPANDSP_USE_FIXED_POINTx) vec_zeroi16(s->rx.rrc_filter, sizeof(s->rx.rrc_filter)/sizeof(s->rx.rrc_filter[0])); #else vec_zerof(s->rx.rrc_filter, sizeof(s->rx.rrc_filter)/sizeof(s->rx.rrc_filter[0])); #endif s->rx.rrc_filter_step = 0; s->rx.scramble_reg = 0; s->rx.scrambler_pattern_count = 0; s->rx.training = V22BIS_RX_TRAINING_STAGE_SYMBOL_ACQUISITION; s->rx.training_count = 0; s->rx.signal_present = FALSE; s->rx.carrier_phase_rate = dds_phase_ratef((s->calling_party) ? 2400.0f : 1200.0f); s->rx.carrier_phase = 0; power_meter_init(&(s->rx.rx_power), 5); v22bis_rx_signal_cutoff(s, -45.5f); s->rx.agc_scaling = 0.0005f*0.025f; s->rx.constellation_state = 0; s->rx.sixteen_way_decisions = FALSE; equalizer_reset(s); s->rx.pattern_repeats = 0; s->rx.last_raw_bits = 0; s->rx.gardner_integrate = 0; s->rx.gardner_step = 256; s->rx.baud_phase = 0; s->rx.training_error = 0.0f; s->rx.total_baud_timing_correction = 0; /* We want the carrier to pull in faster on the answerer side, as it has very little time to adapt. */ s->rx.carrier_track_i = (s->calling_party) ? 8000.0f : 40000.0f; s->rx.carrier_track_p = 8000000.0f; s->negotiated_bit_rate = 1200; return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) v22bis_rx_set_qam_report_handler(v22bis_state_t *s, qam_report_handler_t handler, void *user_data) { s->rx.qam_report = handler; s->rx.qam_user_data = user_data; } /*- End of function --------------------------------------------------------*/ /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/complex_filters.c0000664000175000017500000000561311422612261016733 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * complex_filters.c * * Written by Steve Underwood * * Copyright (C) 2003 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #if defined(HAVE_CONFIG_H) #include "config.h" #endif #include #include #include #include "spandsp/telephony.h" #include "spandsp/complex.h" #include "spandsp/complex_filters.h" SPAN_DECLARE(filter_t *) filter_create(fspec_t *fs) { int i; filter_t *fi; if ((fi = (filter_t *) malloc(sizeof(*fi) + sizeof(float)*(fs->np + 1)))) { fi->fs = fs; fi->sum = 0.0; /* Moving average filters only */ fi->ptr = 0; for (i = 0; i <= fi->fs->np; i++) fi->v[i] = 0.0; } return fi; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) filter_delete(filter_t *fi) { if (fi) free(fi); } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(float) filter_step(filter_t *fi, float x) { return fi->fs->fsf(fi, x); } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(cfilter_t *) cfilter_create(fspec_t *fs) { cfilter_t *cfi; if ((cfi = (cfilter_t *) malloc(sizeof(*cfi)))) { if ((cfi->ref = filter_create(fs)) == NULL) { free(cfi); return NULL; } if ((cfi->imf = filter_create(fs)) == NULL) { free(cfi->ref); free(cfi); return NULL; } } return cfi; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) cfilter_delete(cfilter_t *cfi) { if (cfi) { filter_delete(cfi->ref); filter_delete(cfi->imf); } } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(complexf_t) cfilter_step(cfilter_t *cfi, const complexf_t *z) { complexf_t cc; cc.re = filter_step(cfi->ref, z->re); cc.im = filter_step(cfi->imf, z->im); return cc; } /*- End of function --------------------------------------------------------*/ /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/spandsp.h.in0000664000175000017500000000753111422612262015620 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * spandsp.h - The head guy amongst the headers * * Written by Steve Underwood * * Copyright (C) 2003 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \file */ #if !defined(_SPANDSP_H_) #define _SPANDSP_H_ @SPANDSP_USE_FIXED_POINT@ @SPANDSP_MISALIGNED_ACCESS_FAILS@ @SPANDSP_USE_EXPORT_CAPABILITY@ #include @INSERT_INTTYPES_HEADER@ #include #include #include @INSERT_MATH_HEADER@ #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include /*#include */ #include #include #include /*#include */ #include #include #include #include #include #include /*#include */ /*#include */ #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #endif #if defined(SPANDSP_EXPOSE_INTERNAL_STRUCTURES) #include #endif /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/swept_tone.c0000664000175000017500000000713511422612262015725 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * swept_tone.c - Swept tone generation * * Written by Steve Underwood * * Copyright (C) 2009 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \file */ #if defined(HAVE_CONFIG_H) #include "config.h" #endif #include #include #include #include #if defined(HAVE_TGMATH_H) #include #endif #if defined(HAVE_MATH_H) #include #endif #include "floating_fudge.h" #include "spandsp/telephony.h" #include "spandsp/logging.h" #include "spandsp/complex.h" #include "spandsp/vector_float.h" #include "spandsp/complex_vector_float.h" #include "spandsp/vector_int.h" #include "spandsp/complex_vector_int.h" #include "spandsp/dds.h" #include "spandsp/swept_tone.h" #include "spandsp/private/logging.h" #include "spandsp/private/swept_tone.h" SPAN_DECLARE(swept_tone_state_t *) swept_tone_init(swept_tone_state_t *s, float start, float end, float level, int duration, int repeating) { if (s == NULL) { if ((s = (swept_tone_state_t *) malloc(sizeof(*s))) == NULL) return NULL; } memset(s, 0, sizeof(*s)); s->current_phase_inc = s->starting_phase_inc = dds_phase_rate(start); s->phase_inc_step = dds_phase_rate((end - start)/(float) duration); s->scale = dds_scaling_dbm0(level); s->duration = duration; s->repeating = repeating; s->pos = 0; s->phase = 0; return s; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) swept_tone(swept_tone_state_t *s, int16_t amp[], int max_len) { int i; int len; int chunk_len; for (len = 0; len < max_len; ) { chunk_len = max_len - len; if (chunk_len > s->duration - s->pos) chunk_len = s->duration - s->pos; for (i = len; i < len + chunk_len; i++) { amp[i] = (dds(&s->phase, s->current_phase_inc)*s->scale) >> 15; s->current_phase_inc += s->phase_inc_step; } len += chunk_len; s->pos += chunk_len; if (s->pos >= s->duration) { if (!s->repeating) break; s->pos = 0; s->current_phase_inc = s->starting_phase_inc; } } return len; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(float) swept_tone_current_frequency(swept_tone_state_t *s) { return dds_frequency(s->current_phase_inc); } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) swept_tone_release(swept_tone_state_t *s) { return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) swept_tone_free(swept_tone_state_t *s) { free(s); return 0; } /*- End of function --------------------------------------------------------*/ /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/lpc10_decode.c0000664000175000017500000010641711422612262015763 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * lpc10_decode.c - LPC10 low bit rate speech codec. * * Written by Steve Underwood * * Copyright (C) 2006 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. * * This code is based on the U.S. Department of Defense reference * implementation of the LPC-10 2400 bps Voice Coder. They do not * exert copyright claims on their code, and it may be freely used. */ #if defined(HAVE_CONFIG_H) #include "config.h" #endif #include #include #include #if defined(HAVE_TGMATH_H) #include #endif #if defined(HAVE_MATH_H) #include #endif #include "floating_fudge.h" #include #include "spandsp/telephony.h" #include "spandsp/fast_convert.h" #include "spandsp/dc_restore.h" #include "spandsp/lpc10.h" #include "spandsp/private/lpc10.h" #define LPC10_ORDER 10 #if !defined(min) #define min(a,b) ((a) <= (b) ? (a) : (b)) #endif #if !defined(max) #define max(a,b) ((a) >= (b) ? (a) : (b)) #endif /* Pseudo random number generator based on Knuth, Vol 2, p. 27. */ /* lpc10_random - int32_t variable, uniformly distributed over -32768 to 32767 */ static int32_t lpc10_random(lpc10_decode_state_t *s) { int32_t ret_val; /* The following is a 16 bit 2's complement addition, with overflow checking disabled */ s->y[s->k] += s->y[s->j]; ret_val = s->y[s->k]; if (--s->k < 0) s->k = 4; if (--s->j < 0) s->j = 4; return ret_val; } /*- End of function --------------------------------------------------------*/ static __inline__ int32_t pow_ii(int32_t x, int32_t n) { int32_t pow; uint32_t u; if (n <= 0) { if (n == 0 || x == 1) return 1; if (x != -1) return (x == 0) ? 1/x : 0; n = -n; } u = n; for (pow = 1; ; ) { if ((u & 1)) pow *= x; if ((u >>= 1) == 0) break; x *= x; } return pow; } /*- End of function --------------------------------------------------------*/ /* Synthesize one pitch epoch */ static void bsynz(lpc10_decode_state_t *s, float coef[], int32_t ip, int32_t *iv, float sout[], float rms, float ratio, float g2pass) { static const int32_t kexc[25] = { 8, -16, 26, -48, 86, -162, 294, -502, 718, -728, 184, 672, -610, -672, 184, 728, 718, 502, 294, 162, 86, 48, 26, 16, 8 }; int32_t i; int32_t j; int32_t k; int32_t px; float noise[166]; float pulse; float r1; float gain; float xssq; float sscale; float xy; float sum; float ssq; float lpi0; float hpi0; /* MAXPIT + MAXORD = 166 */ /* Calculate history scale factor XY and scale filter state */ /* Computing MIN */ r1 = s->rmso_bsynz/(rms + 1.0e-6f); xy = min(r1, 8.0f); s->rmso_bsynz = rms; for (i = 0; i < LPC10_ORDER; i++) s->exc2[i] = s->exc2[s->ipo + i]*xy; s->ipo = ip; if (*iv == 0) { /* Generate white noise for unvoiced */ for (i = 0; i < ip; i++) s->exc[LPC10_ORDER + i] = (float) (lpc10_random(s)/64); /* Impulse double excitation for plosives */ px = (lpc10_random(s) + 32768)*(ip - 1)/65536 + LPC10_ORDER + 1; r1 = ratio/4.0f; pulse = r1*342; if (pulse > 2.0e3f) pulse = 2.0e3f; s->exc[px - 1] += pulse; s->exc[px] -= pulse; } else { sscale = sqrtf((float) ip)/6.928f; for (i = 0; i < ip; i++) { s->exc[LPC10_ORDER + i] = 0.0f; if (i < 25) s->exc[LPC10_ORDER + i] = sscale*kexc[i]; lpi0 = s->exc[LPC10_ORDER + i]; s->exc[LPC10_ORDER + i] = s->exc[LPC10_ORDER + i]*0.125f + s->lpi[0]*0.75f + s->lpi[1]*0.125f; s->lpi[1] = s->lpi[0]; s->lpi[0] = lpi0; } for (i = 0; i < ip; i++) { noise[LPC10_ORDER + i] = lpc10_random(s)/64.0f; hpi0 = noise[LPC10_ORDER + i]; noise[LPC10_ORDER + i] = noise[LPC10_ORDER + i]*-0.125f + s->hpi[0]*0.25f + s->hpi[1]*-0.125f; s->hpi[1] = s->hpi[0]; s->hpi[0] = hpi0; } for (i = 0; i < ip; i++) s->exc[LPC10_ORDER + i] += noise[LPC10_ORDER + i]; } /* Synthesis filters: */ /* Modify the excitation with all-zero filter 1 + G*SUM */ xssq = 0.0f; for (i = 0; i < ip; i++) { k = LPC10_ORDER + i; sum = 0.0f; for (j = 0; j < LPC10_ORDER; j++) sum += coef[j]*s->exc[k - j - 1]; sum *= g2pass; s->exc2[k] = sum + s->exc[k]; } /* Synthesize using the all pole filter 1/(1 - SUM) */ for (i = 0; i < ip; i++) { k = LPC10_ORDER + i; sum = 0.0f; for (j = 0; j < LPC10_ORDER; j++) sum += coef[j]*s->exc2[k - j - 1]; s->exc2[k] = sum + s->exc2[k]; xssq += s->exc2[k]*s->exc2[k]; } /* Save filter history for next epoch */ for (i = 0; i < LPC10_ORDER; i++) { s->exc[i] = s->exc[ip + i]; s->exc2[i] = s->exc2[ip + i]; } /* Apply gain to match RMS */ ssq = rms*rms*ip; gain = sqrtf(ssq/xssq); for (i = 0; i < ip; i++) sout[i] = gain*s->exc2[LPC10_ORDER + i]; } /*- End of function --------------------------------------------------------*/ /* Synthesize a single pitch epoch */ static int pitsyn(lpc10_decode_state_t *s, int voice[], int32_t *pitch, float *rms, float *rc, int32_t ivuv[], int32_t ipiti[], float *rmsi, float *rci, int32_t *nout, float *ratio) { int32_t rci_dim1; int32_t rci_offset; int32_t i1; int32_t i; int32_t j; int32_t vflag; int32_t jused; int32_t lsamp; int32_t ip; int32_t nl; int32_t ivoice; int32_t istart; float r1; float alrn; float alro; float yarc[10]; float prop; float slope; float uvpit; float xxy; float msix; rci_dim1 = LPC10_ORDER; rci_offset = rci_dim1 + 1; rci -= rci_offset; if (*rms < 1.0f) *rms = 1.0f; if (s->rmso < 1.0f) s->rmso = 1.0f; uvpit = 0.0f; *ratio = *rms/(s->rmso + 8.0f); if (s->first_pitsyn) { lsamp = 0; ivoice = voice[1]; if (ivoice == 0) *pitch = LPC10_SAMPLES_PER_FRAME/4; *nout = LPC10_SAMPLES_PER_FRAME / *pitch; s->jsamp = LPC10_SAMPLES_PER_FRAME - *nout * *pitch; i1 = *nout; for (i = 0; i < i1; i++) { for (j = 0; j < LPC10_ORDER; j++) rci[j + (i + 1)*rci_dim1 + 1] = rc[j]; ivuv[i] = ivoice; ipiti[i] = *pitch; rmsi[i] = *rms; } s->first_pitsyn = FALSE; } else { vflag = 0; lsamp = LPC10_SAMPLES_PER_FRAME + s->jsamp; slope = (*pitch - s->ipito)/(float) lsamp; *nout = 0; jused = 0; istart = 1; if (voice[0] == s->ivoico && voice[1] == voice[0]) { if (voice[1] == 0) { /* SSUV - - 0 , 0 , 0 */ *pitch = LPC10_SAMPLES_PER_FRAME/4; s->ipito = *pitch; if (*ratio > 8.0f) s->rmso = *rms; } /* SSVC - - 1 , 1 , 1 */ slope = (*pitch - s->ipito)/(float) lsamp; ivoice = voice[1]; } else { if (s->ivoico != 1) { if (s->ivoico == voice[0]) { /* UV2VC2 - - 0 , 0 , 1 */ nl = lsamp - LPC10_SAMPLES_PER_FRAME/4; } else { /* UV2VC1 - - 0 , 1 , 1 */ nl = lsamp - LPC10_SAMPLES_PER_FRAME*3/4; } ipiti[0] = nl/2; ipiti[1] = nl - ipiti[0]; ivuv[0] = 0; ivuv[1] = 0; rmsi[0] = s->rmso; rmsi[1] = s->rmso; for (i = 0; i < LPC10_ORDER; i++) { rci[i + rci_dim1 + 1] = s->rco[i]; rci[i + (rci_dim1 << 1) + 1] = s->rco[i]; s->rco[i] = rc[i]; } slope = 0.0f; *nout = 2; s->ipito = *pitch; jused = nl; istart = nl + 1; ivoice = 1; } else { if (s->ivoico != voice[0]) { /* VC2UV1 - - 1 , 0 , 0 */ lsamp = LPC10_SAMPLES_PER_FRAME/4 + s->jsamp; } else { /* VC2UV2 - - 1 , 1 , 0 */ lsamp = LPC10_SAMPLES_PER_FRAME*3/4 + s->jsamp; } for (i = 0; i < LPC10_ORDER; i++) { yarc[i] = rc[i]; rc[i] = s->rco[i]; } ivoice = 1; slope = 0.0f; vflag = 1; } } /* Here is the value of most variables that are used below, depending on */ /* the values of IVOICO, VOICE(1), and VOICE(2). VOICE(1) and VOICE(2) */ /* are input arguments, and IVOICO is the value of VOICE(2) on the */ /* previous call (see notes for the IF (NOUT .NE. 0) statement near the */ /* end). Each of these three values is either 0 or 1. These three */ /* values below are given as 3-bit long strings, in the order IVOICO, */ /* VOICE(1), and VOICE(2). It appears that the code above assumes that */ /* the bit sequences 010 and 101 never occur, but I wonder whether a */ /* large enough number of bit errors in the channel could cause such a */ /* thing to happen, and if so, could that cause NOUT to ever go over 11? */ /* Note that all of the 180 values in the table are floatly LFRAME, but */ /* 180 has fewer characters, and it makes the table a little more */ /* concrete. If LFRAME is ever changed, keep this in mind. Similarly, */ /* 135's are 3*LFRAME/4, and 45's are LFRAME/4. If LFRAME is not a */ /* multiple of 4, then the 135 for NL-JSAMP is actually LFRAME-LFRAME/4, */ /* and the 45 for NL-JSAMP is actually LFRAME-3*LFRAME/4. */ /* Note that LSAMP-JSAMP is given as the variable. This was just for */ /* brevity, to avoid adding "+JSAMP" to all of the column entries. */ /* Similarly for NL-JSAMP. */ /* Variable | 000 001 011,010 111 110 100,101 */ /* ------------+-------------------------------------------------- */ /* ISTART | 1 NL+1 NL+1 1 1 1 */ /* LSAMP-JSAMP | 180 180 180 180 135 45 */ /* IPITO | 45 PITCH PITCH oldPITCH oldPITCH oldPITCH */ /* SLOPE | 0 0 0 seebelow 0 0 */ /* JUSED | 0 NL NL 0 0 0 */ /* PITCH | 45 PITCH PITCH PITCH PITCH PITCH */ /* NL-JSAMP | -- 135 45 -- -- -- */ /* VFLAG | 0 0 0 0 1 1 */ /* NOUT | 0 2 2 0 0 0 */ /* IVOICE | 0 1 1 1 1 1 */ /* while_loop | once once once once twice twice */ /* ISTART | -- -- -- -- JUSED+1 JUSED+1 */ /* LSAMP-JSAMP | -- -- -- -- 180 180 */ /* IPITO | -- -- -- -- oldPITCH oldPITCH */ /* SLOPE | -- -- -- -- 0 0 */ /* JUSED | -- -- -- -- ?? ?? */ /* PITCH | -- -- -- -- PITCH PITCH */ /* NL-JSAMP | -- -- -- -- -- -- */ /* VFLAG | -- -- -- -- 0 0 */ /* NOUT | -- -- -- -- ?? ?? */ /* IVOICE | -- -- -- -- 0 0 */ /* UVPIT is always 0.0 on the first pass through the DO WHILE (TRUE) loop below. */ /* The only possible non-0 value of SLOPE (in column 111) is (PITCH-IPITO)/FLOAT(LSAMP) */ /* Column 101 is identical to 100. Any good properties we can prove for 100 will also hold for 101. Similarly for 010 and 011. */ /* synths() calls this subroutine with PITCH restricted to the range 20 to 156. IPITO is similarly restricted to this range, after the first call. IP below is also restricted to this range, given the definitions of IPITO, SLOPE, UVPIT, and that I is in the range ISTART to LSAMP. */ for (;;) { for (i = istart; i <= lsamp; i++) { r1 = s->ipito + slope*i; ip = (int32_t) (r1 + 0.5f); if (uvpit != 0.0f) ip = (int32_t) uvpit; if (ip <= i - jused) { ++(*nout); ipiti[*nout - 1] = ip; *pitch = ip; ivuv[*nout - 1] = ivoice; jused += ip; prop = (jused - ip/2)/(float) lsamp; for (j = 0; j < LPC10_ORDER; j++) { alro = logf((s->rco[j] + 1)/(1 - s->rco[j])); alrn = logf((rc[j] + 1)/(1 - rc[j])); xxy = alro + prop*(alrn - alro); xxy = expf(xxy); rci[j + *nout*rci_dim1 + 1] = (xxy - 1.0f)/(xxy + 1.0f); } msix = logf(*rms) - logf(s->rmso); msix = prop*msix; msix = logf(s->rmso) + msix; rmsi[*nout - 1] = expf(msix); } } if (vflag != 1) break; vflag = 0; istart = jused + 1; lsamp = LPC10_SAMPLES_PER_FRAME + s->jsamp; slope = 0.0f; ivoice = 0; uvpit = (float) ((lsamp - istart)/2); if (uvpit > 90.0f) uvpit /= 2; s->rmso = *rms; for (i = 0; i < LPC10_ORDER; i++) { rc[i] = yarc[i]; s->rco[i] = yarc[i]; } } s->jsamp = lsamp - jused; } if (*nout != 0) { s->ivoico = voice[1]; s->ipito = *pitch; s->rmso = *rms; for (i = 0; i < LPC10_ORDER; i++) s->rco[i] = rc[i]; } return 0; } /*- End of function --------------------------------------------------------*/ static void deemp(lpc10_decode_state_t *s, float x[], int len) { int i; float r1; float dei0; for (i = 0; i < len; i++) { dei0 = x[i]; r1 = x[i] - s->dei[0]*1.9998f + s->dei[1]; x[i] = r1 + s->deo[0]*2.5f - s->deo[1]*2.0925f + s->deo[2]*0.585f; s->dei[1] = s->dei[0]; s->dei[0] = dei0; s->deo[2] = s->deo[1]; s->deo[1] = s->deo[0]; s->deo[0] = x[i]; } } /*- End of function --------------------------------------------------------*/ /* Convert reflection coefficients to predictor coefficients */ static float reflection_coeffs_to_predictor_coeffs(float rc[], float pc[], float gprime) { float temp[10]; float g2pass; int i; int j; g2pass = 1.0f; for (i = 0; i < LPC10_ORDER; i++) g2pass *= 1.0f - rc[i]*rc[i]; g2pass = gprime*sqrtf(g2pass); pc[0] = rc[0]; for (i = 1; i < LPC10_ORDER; i++) { for (j = 0; j < i; j++) temp[j] = pc[j] - rc[i]*pc[i - j - 1]; for (j = 0; j < i; j++) pc[j] = temp[j]; pc[i] = rc[i]; } return g2pass; } /*- End of function --------------------------------------------------------*/ static int synths(lpc10_decode_state_t *s, int voice[], int32_t *pitch, float *rms, float *rc, float speech[]) { int32_t i1; int32_t ivuv[16]; int32_t ipiti[16]; int32_t nout; int32_t i; int32_t j; float rmsi[16]; float ratio; float g2pass; float pc[10]; float rci[160]; i1 = min(*pitch, 156); *pitch = max(i1, 20); for (i = 0; i < LPC10_ORDER; i++) rc[i] = max(min(rc[i], 0.99f), -0.99f); pitsyn(s, voice, pitch, rms, rc, ivuv, ipiti, rmsi, rci, &nout, &ratio); if (nout > 0) { for (j = 0; j < nout; j++) { /* Add synthesized speech for pitch period J to the end of s->buf. */ g2pass = reflection_coeffs_to_predictor_coeffs(&rci[j*10], pc, 0.7f); bsynz(s, pc, ipiti[j], &ivuv[j], &s->buf[s->buflen], rmsi[j], ratio, g2pass); deemp(s, &s->buf[s->buflen], ipiti[j]); s->buflen += ipiti[j]; } /* Copy first MAXFRM samples from BUF to output array speech (scaling them), and then remove them from the beginning of s->buf. */ for (i = 0; i < LPC10_SAMPLES_PER_FRAME; i++) speech[i] = s->buf[i]/4096.0f; s->buflen -= LPC10_SAMPLES_PER_FRAME; for (i = 0; i < s->buflen; i++) s->buf[i] = s->buf[i + LPC10_SAMPLES_PER_FRAME]; } return 0; } /*- End of function --------------------------------------------------------*/ static void lpc10_unpack(lpc10_frame_t *t, const uint8_t ibits[]) { static const int bit[10] = { 2, 4, 8, 8, 8, 8, 16, 16, 16, 16 }; static const int iblist[53] = { 13, 12, 11, 1, 2, 13, 12, 11, 1, 2, 13, 10, 11, 2, 1, 10, 13, 12, 11, 10, 2, 13, 12, 11, 10, 2, 1, 12, 7, 6, 1, 10, 9, 8, 7, 4, 6, 9, 8, 7, 5, 1, 9, 8, 4, 6, 1, 5, 9, 8, 7, 5, 6 }; int32_t itab[13]; int x; int i; /* ibits is 54 bits of LPC data ordered as follows: */ /* R1-0, R2-0, R3-0, P-0, A-0, */ /* R1-1, R2-1, R3-1, P-1, A-1, */ /* R1-2, R4-0, R3-2, A-2, P-2, R4-1, */ /* R1-3, R2-2, R3-3, R4-2, A-3, */ /* R1-4, R2-3, R3-4, R4-3, A-4, */ /* P-3, R2-4, R7-0, R8-0, P-4, R4-4, */ /* R5-0, R6-0, R7-1,R10-0, R8-1, */ /* R5-1, R6-1, R7-2, R9-0, P-5, */ /* R5-2, R6-2,R10-1, R8-2, P-6, R9-1, */ /* R5-3, R6-3, R7-3, R9-2, R8-3, SYNC */ /* Reconstruct ITAB */ for (i = 0; i < 13; i++) itab[i] = 0; for (i = 0; i < 53; i++) { x = 52 - i; x = (ibits[x >> 3] >> (7 - (x & 7))) & 1; itab[iblist[52 - i] - 1] = (itab[iblist[52 - i] - 1] << 1) | x; } /* Sign extend the RC's */ for (i = 0; i < LPC10_ORDER; i++) { if ((itab[i + 3] & bit[i])) itab[i + 3] -= (bit[i] << 1); } /* Restore variables */ t->ipitch = itab[0]; t->irms = itab[1]; for (i = 0; i < LPC10_ORDER; i++) t->irc[i] = itab[LPC10_ORDER - 1 - i + 3]; } /*- End of function --------------------------------------------------------*/ /* Hamming 8, 4 decoder - can correct 1 out of seven bits and can detect up to two errors. */ /* This subroutine is entered with an eight bit word in INPUT. The 8th */ /* bit is parity and is stripped off. The remaining 7 bits address the */ /* hamming 8, 4 table and the output OUTPUT from the table gives the 4 */ /* bits of corrected data. If bit 4 is set, no error was detected. */ /* ERRCNT is the number of errors counted. */ static int32_t hamming_84_decode(int32_t input, int *errcnt) { static const uint8_t dactab[128] = { 16, 0, 0, 3, 0, 5, 14, 7, 0, 9, 14, 11, 14, 13, 30, 14, 0, 9, 2, 7, 4, 7, 7, 23, 9, 25, 10, 9, 12, 9, 14, 7, 0, 5, 2, 11, 5, 21, 6, 5, 8, 11, 11, 27, 12, 5, 14, 11, 2, 1, 18, 2, 12, 5, 2, 7, 12, 9, 2, 11, 28, 12, 12, 15, 0, 3, 3, 19, 4, 13, 6, 3, 8, 13, 10, 3, 13, 29, 14, 13, 4, 1, 10, 3, 20, 4, 4, 7, 10, 9, 26, 10, 4, 13, 10, 15, 8, 1, 6, 3, 6, 5, 22, 6, 24, 8, 8, 11, 8, 13, 6, 15, 1, 17 , 2, 1, 4, 1, 6, 15, 8, 1, 10, 15, 12, 15, 15, 31 }; int i; int parity; int32_t output; parity = input & 255; parity ^= parity >> 4; parity ^= parity >> 2; parity ^= parity >> 1; parity &= 1; i = dactab[input & 127]; output = i & 15; if ((i & 16)) { /* No errors detected in seven bits */ if (parity) (*errcnt)++; } else { /* One or two errors detected */ (*errcnt)++; if (parity == 0) { /* Two errors detected */ (*errcnt)++; output = -1; } } return output; } /*- End of function --------------------------------------------------------*/ static int32_t median(int32_t d1, int32_t d2, int32_t d3) { int32_t ret_val; ret_val = d2; if (d2 > d1 && d2 > d3) { ret_val = d1; if (d3 > d1) ret_val = d3; } else if (d2 < d1 && d2 < d3) { ret_val = d1; if (d3 < d1) ret_val = d3; } return ret_val; } /*- End of function --------------------------------------------------------*/ static void decode(lpc10_decode_state_t *s, lpc10_frame_t *t, int voice[], int32_t *pitch, float *rms, float rc[]) { static const int32_t ivtab[32] = { 24960, 24960, 24960, 24960, 25480, 25480, 25483, 25480, 16640, 1560, 1560, 1560, 16640, 1816, 1563, 1560, 24960, 24960, 24859, 24856, 26001, 25881, 25915, 25913, 1560, 1560, 7800, 3640, 1561, 1561, 3643, 3641 }; static const float corth[32] = { 32767.0f, 10.0f, 5.0f, 0.0f, 32767.0f, 8.0f, 4.0f, 0.0f, 32.0f, 6.4f, 3.2f, 0.0f, 32.0f, 6.4f, 3.2f, 0.0f, 32.0f, 11.2f, 6.4f, 0.0f, 32.0f, 11.2f, 6.4f, 0.0f, 16.0f, 5.6f, 3.2f, 0.0f, 16.0f, 5.6f, 3.2f, 0.0f }; static const int32_t detau[128] = { 0, 0, 0, 3, 0, 3, 3, 31, 0, 3, 3, 21, 3, 3, 29, 30, 0, 3, 3, 20, 3, 25, 27, 26, 3, 23, 58, 22, 3, 24, 28, 3, 0, 3, 3, 3, 3, 39, 33, 32, 3, 37, 35, 36, 3, 38, 34, 3, 3, 42, 46, 44, 50, 40, 48, 3, 54, 3, 56, 3, 52, 3, 3, 1, 0, 3, 3, 108, 3, 78, 100, 104, 3, 84, 92, 88, 156, 80, 96, 3, 3, 74, 70, 72, 66, 76, 68, 3, 62, 3, 60, 3, 64, 3, 3, 1, 3, 116, 132, 112, 148, 152, 3, 3, 140, 3, 136, 3, 144, 3, 3, 1, 124, 120, 128, 3, 3, 3, 3, 1, 3, 3, 3, 1, 3, 1, 1, 1 }; static const int32_t rmst[64] = { 1024, 936, 856, 784, 718, 656, 600, 550, 502, 460, 420, 384, 352, 328, 294, 270, 246, 226, 206, 188, 172, 158, 144, 132, 120, 110, 102, 92, 84, 78, 70, 64, 60, 54, 50, 46, 42, 38, 34, 32, 30, 26, 24, 22, 20, 18, 17, 16, 15, 14, 13, 12, 11, 10, 9, 8, 7, 6, 5, 4, 3, 2, 1, 0 }; static const int32_t detab7[32] = { 4, 11, 18, 25, 32, 39, 46, 53, 60, 66, 72, 77, 82, 87, 92, 96, 101, 104, 108, 111, 114, 115, 117, 119, 121, 122, 123, 124, 125, 126, 127, 127 }; static const float descl[8] = { 0.6953f, 0.625f, 0.5781f, 0.5469f, 0.5312f, 0.5391f, 0.4688f, 0.3828f }; static const int32_t deadd[8] = { 1152, -2816, -1536, -3584, -1280, -2432, 768, -1920 }; static const int32_t qb[8] = { 511, 511, 1023, 1023, 1023, 1023, 2047, 4095 }; static const int32_t nbit[10] = { 8, 8, 5, 5, 4, 4, 4, 4, 3, 2 }; static const int32_t zrc[10] = { 0, 0, 0, 0, 0, 3, 0, 2, 0, 0 }; static const int32_t bit[5] = { 2, 4, 8, 16, 32 }; int32_t ipit; int32_t iout; int32_t i; int32_t icorf; int32_t index; int32_t ivoic; int32_t ixcor; int32_t i1; int32_t i2; int32_t i4; int32_t ishift; int32_t lsb; int errcnt; /* If no error correction, do pitch and voicing then jump to decode */ i4 = detau[t->ipitch]; if (!s->error_correction) { voice[0] = 1; voice[1] = 1; if (t->ipitch <= 1) voice[0] = 0; if (t->ipitch == 0 || t->ipitch == 2) voice[1] = 0; if (i4 <= 4) i4 = s->iptold; *pitch = i4; if (voice[0] == 1 && voice[1] == 1) s->iptold = *pitch; if (voice[0] != voice[1]) *pitch = s->iptold; } else { /* Do error correction pitch and voicing */ if (i4 > 4) { s->dpit[0] = i4; ivoic = 2; s->iavgp = (s->iavgp*15 + i4 + 8)/16; } else { s->dpit[0] = s->iavgp; ivoic = i4; } s->drms[0] = t->irms; for (i = 0; i < LPC10_ORDER; i++) s->drc[i][0] = t->irc[i]; /* Determine index to IVTAB from V/UV decision */ /* If error rate is high then use alternate table */ index = (s->ivp2h << 4) + (s->iovoic << 2) + ivoic + 1; i1 = ivtab[index - 1]; ipit = i1 & 3; icorf = i1 >> 3; if (s->erate < 2048) icorf /= 64; /* Determine error rate: 4=high 1=low */ ixcor = 4; if (s->erate < 2048) ixcor = 3; if (s->erate < 1024) ixcor = 2; if (s->erate < 128) ixcor = 1; /* Voice/unvoice decision determined from bits 0 and 1 of IVTAB */ voice[0] = icorf/2 & 1; voice[1] = icorf & 1; /* Skip decoding on first frame because present data not yet available */ if (s->first) { s->first = FALSE; /* Assign PITCH a "default" value on the first call, since */ /* otherwise it would be left uninitialized. The two lines */ /* below were copied from above, since it seemed like a */ /* reasonable thing to do for the first call. */ if (i4 <= 4) i4 = s->iptold; *pitch = i4; } else { /* If bit 4 of ICORF is set then correct RMS and RC(1) - RC(4). */ /* Determine error rate and correct errors using a Hamming 8,4 code */ /* during transition of unvoiced frames. If IOUT is negative, */ /* more than 1 error occurred, use previous frame's parameters. */ if ((icorf & bit[3]) != 0) { errcnt = 0; lsb = s->drms[1] & 1; index = (s->drc[7][1] << 4) + s->drms[1]/2; iout = hamming_84_decode(index, &errcnt); s->drms[1] = s->drms[2]; if (iout >= 0) s->drms[1] = (iout << 1) + lsb; for (i = 1; i <= 4; i++) { if (i == 1) i1 = ((s->drc[8][1] & 7) << 1) + (s->drc[9][1] & 1); else i1 = s->drc[8 - i][1] & 15; i2 = s->drc[4 - i][1] & 31; lsb = i2 & 1; index = (i1 << 4) + (i2 >> 1); iout = hamming_84_decode(index, &errcnt); if (iout >= 0) { iout = (iout << 1) + lsb; if ((iout & 16) == 16) iout -= 32; } else { iout = s->drc[4 - i][2]; } s->drc[4 - i][1] = iout; } /* Determine error rate */ s->erate = (int32_t) (s->erate*0.96875f + errcnt*102.0f); } /* Get unsmoothed RMS, RC's, and PITCH */ t->irms = s->drms[1]; for (i = 0; i < LPC10_ORDER; i++) t->irc[i] = s->drc[i][1]; if (ipit == 1) s->dpit[1] = s->dpit[2]; if (ipit == 3) s->dpit[1] = s->dpit[0]; *pitch = s->dpit[1]; /* If bit 2 of ICORF is set then smooth RMS and RC's, */ if ((icorf & bit[1]) != 0) { if ((float) abs(s->drms[1] - s->drms[0]) >= corth[ixcor + 3] && (float) abs(s->drms[1] - s->drms[2]) >= corth[ixcor + 3]) { t->irms = median(s->drms[2], s->drms[1], s->drms[0]); } for (i = 0; i < 6; i++) { if ((float) abs(s->drc[i][1] - s->drc[i][0]) >= corth[ixcor + ((i + 3) << 2) - 5] && (float) abs(s->drc[i][1] - s->drc[i][2]) >= corth[ixcor + ((i + 3) << 2) - 5]) { t->irc[i] = median(s->drc[i][2], s->drc[i][1], s->drc[i][0]); } } } /* If bit 3 of ICORF is set then smooth pitch */ if ((icorf & bit[2]) != 0) { if ((float) abs(s->dpit[1] - s->dpit[0]) >= corth[ixcor - 1] && (float) abs(s->dpit[1] - s->dpit[2]) >= corth[ixcor - 1]) { *pitch = median(s->dpit[2], s->dpit[1], s->dpit[0]); } } /* If bit 5 of ICORF is set then RC(5) - RC(10) are loaded with values so that after quantization bias is removed in decode the values will be zero. */ } if ((icorf & bit[4]) != 0) { for (i = 4; i < LPC10_ORDER; i++) t->irc[i] = zrc[i]; } /* Housekeeping - one frame delay */ s->iovoic = ivoic; s->ivp2h = voice[1]; s->dpit[2] = s->dpit[1]; s->dpit[1] = s->dpit[0]; s->drms[2] = s->drms[1]; s->drms[1] = s->drms[0]; for (i = 0; i < LPC10_ORDER; i++) { s->drc[i][2] = s->drc[i][1]; s->drc[i][1] = s->drc[i][0]; } } /* Decode RMS */ t->irms = rmst[(31 - t->irms)*2]; /* Decode RC(1) and RC(2) from log-area-ratios */ /* Protect from illegal coded value (-16) caused by bit errors */ for (i = 0; i < 2; i++) { i2 = t->irc[i]; i1 = 0; if (i2 < 0) { i1 = 1; i2 = -i2; if (i2 > 15) i2 = 0; } i2 = detab7[i2*2]; if (i1 == 1) i2 = -i2; ishift = 15 - nbit[i]; t->irc[i] = i2*pow_ii(2, ishift); } /* Decode RC(3)-RC(10) to sign plus 14 bits */ for (i = 2; i < LPC10_ORDER; i++) { ishift = 15 - nbit[i]; i2 = t->irc[i]*pow_ii(2, ishift) + qb[i - 2]; t->irc[i] = (int32_t) (i2*descl[i - 2] + deadd[i - 2]); } /* Scale RMS and RC's to floats */ *rms = (float) t->irms; for (i = 0; i < LPC10_ORDER; i++) rc[i] = t->irc[i]/16384.0f; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(lpc10_decode_state_t *) lpc10_decode_init(lpc10_decode_state_t *s, int error_correction) { static const int16_t rand_init[] = { -21161, -8478, 30892, -10216, 16950 }; int i; int j; if (s == NULL) { if ((s = (lpc10_decode_state_t *) malloc(sizeof(*s))) == NULL) return NULL; } s->error_correction = error_correction; /* State used by function decode */ s->iptold = 60; s->first = TRUE; s->ivp2h = 0; s->iovoic = 0; s->iavgp = 60; s->erate = 0; for (i = 0; i < 3; i++) { for (j = 0; j < 10; j++) s->drc[j][i] = 0; s->dpit[i] = 0; s->drms[i] = 0; } /* State used by function synths */ for (i = 0; i < 360; i++) s->buf[i] = 0.0f; s->buflen = LPC10_SAMPLES_PER_FRAME; /* State used by function pitsyn */ s->rmso = 1.0f; s->first_pitsyn = TRUE; /* State used by function bsynz */ s->ipo = 0; for (i = 0; i < 166; i++) { s->exc[i] = 0.0f; s->exc2[i] = 0.0f; } for (i = 0; i < 3; i++) { s->lpi[i] = 0.0f; s->hpi[i] = 0.0f; } s->rmso_bsynz = 0.0f; /* State used by function lpc10_random */ s->j = 1; s->k = 4; for (i = 0; i < 5; i++) s->y[i] = rand_init[i]; /* State used by function deemp */ for (i = 0; i < 2; i++) s->dei[i] = 0.0f; for (i = 0; i < 3; i++) s->deo[i] = 0.0f; return s; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) lpc10_decode_release(lpc10_decode_state_t *s) { return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) lpc10_decode_free(lpc10_decode_state_t *s) { free(s); return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) lpc10_decode(lpc10_decode_state_t *s, int16_t amp[], const uint8_t code[], int len) { int voice[2]; int32_t pitch; float speech[LPC10_SAMPLES_PER_FRAME]; float rc[LPC10_ORDER]; lpc10_frame_t frame; float rms; int i; int j; int base; /* Decode 54 bits in 7 bytes to LPC10_SAMPLES_PER_FRAME speech samples. */ len /= 7; for (i = 0; i < len; i++) { lpc10_unpack(&frame, &code[i*7]); decode(s, &frame, voice, &pitch, &rms, rc); synths(s, voice, &pitch, &rms, rc, speech); base = i*LPC10_SAMPLES_PER_FRAME; for (j = 0; j < LPC10_SAMPLES_PER_FRAME; j++) amp[base + j] = (int16_t) lfastrintf(32768.0f*speech[j]); } return len*LPC10_SAMPLES_PER_FRAME; } /*- End of function --------------------------------------------------------*/ /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/super_tone_rx.c0000664000175000017500000003564411422612262016440 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * super_tone_rx.c - Flexible telephony supervisory tone detection. * * Written by Steve Underwood * * Copyright (C) 2003 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \file */ #if defined(HAVE_CONFIG_H) #include "config.h" #endif #include #include #include #include #include #include #include #if defined(HAVE_TGMATH_H) #include #endif #if defined(HAVE_MATH_H) #include #endif #include "floating_fudge.h" #include "spandsp/telephony.h" #include "spandsp/fast_convert.h" #include "spandsp/complex.h" #include "spandsp/vector_float.h" #include "spandsp/complex_vector_float.h" #include "spandsp/tone_detect.h" #include "spandsp/tone_generate.h" #include "spandsp/super_tone_rx.h" #include "spandsp/private/super_tone_rx.h" #if defined(SPANDSP_USE_FIXED_POINT) #define DETECTION_THRESHOLD 16439 /* -42dBm0 */ #define TONE_TWIST 4 /* 6dB */ #define TONE_TO_TOTAL_ENERGY 64 /* -3dB */ #else #define DETECTION_THRESHOLD 269338317.0f /* -42dBm0 [((128.0*32768.0/1.4142)*10^((-42 - DBM0_MAX_SINE_POWER)/20.0))^2 => 269338317.0] */ #define TONE_TWIST 3.981f /* 6dB */ #define TONE_TO_TOTAL_ENERGY 1.995f /* 3dB */ #define DTMF_TO_TOTAL_ENERGY 64.152f /* -3dB [BINS*10^(-3/10.0)] */ #endif static int add_super_tone_freq(super_tone_rx_descriptor_t *desc, int freq) { int i; if (freq == 0) return -1; /* Look for an existing frequency */ for (i = 0; i < desc->used_frequencies; i++) { if (desc->pitches[i][0] == freq) return desc->pitches[i][1]; } /* Look for an existing tone which is very close. We may need to merge the detectors. */ for (i = 0; i < desc->used_frequencies; i++) { if ((desc->pitches[i][0] - 10) <= freq && freq <= (desc->pitches[i][0] + 10)) { /* Merge these two */ desc->pitches[desc->used_frequencies][0] = freq; desc->pitches[desc->used_frequencies][1] = i; make_goertzel_descriptor(&desc->desc[desc->pitches[i][1]], (float) (freq + desc->pitches[i][0])/2, BINS); desc->used_frequencies++; return desc->pitches[i][1]; } } desc->pitches[i][0] = freq; desc->pitches[i][1] = desc->monitored_frequencies; if (desc->monitored_frequencies%5 == 0) { desc->desc = (goertzel_descriptor_t *) realloc(desc->desc, (desc->monitored_frequencies + 5)*sizeof(goertzel_descriptor_t)); } make_goertzel_descriptor(&desc->desc[desc->monitored_frequencies++], (float) freq, BINS); desc->used_frequencies++; return desc->pitches[i][1]; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) super_tone_rx_add_tone(super_tone_rx_descriptor_t *desc) { if (desc->tones%5 == 0) { desc->tone_list = (super_tone_rx_segment_t **) realloc(desc->tone_list, (desc->tones + 5)*sizeof(super_tone_rx_segment_t *)); desc->tone_segs = (int *) realloc(desc->tone_segs, (desc->tones + 5)*sizeof(int)); } desc->tone_list[desc->tones] = NULL; desc->tone_segs[desc->tones] = 0; desc->tones++; return desc->tones - 1; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) super_tone_rx_add_element(super_tone_rx_descriptor_t *desc, int tone, int f1, int f2, int min, int max) { int step; step = desc->tone_segs[tone]; if (step%5 == 0) { desc->tone_list[tone] = (super_tone_rx_segment_t *) realloc(desc->tone_list[tone], (step + 5)*sizeof(super_tone_rx_segment_t)); } desc->tone_list[tone][step].f1 = add_super_tone_freq(desc, f1); desc->tone_list[tone][step].f2 = add_super_tone_freq(desc, f2); desc->tone_list[tone][step].min_duration = min*8; desc->tone_list[tone][step].max_duration = (max == 0) ? 0x7FFFFFFF : max*8; desc->tone_segs[tone]++; return step; } /*- End of function --------------------------------------------------------*/ static int test_cadence(super_tone_rx_segment_t *pattern, int steps, super_tone_rx_segment_t *test, int rotation) { int i; int j; if (rotation >= 0) { /* Check only for the sustaining of a tone in progress. This means we only need to check each block if the latest step is compatible with the tone template. */ if (steps < 0) { /* A -ve value for steps indicates we just changed step, and need to check the last one ended within spec. If we don't do this extra test a low duration segment might be accepted as OK. */ steps = -steps; j = (rotation + steps - 2)%steps; if (pattern[j].f1 != test[8].f1 || pattern[j].f2 != test[8].f2) return 0; if (pattern[j].min_duration > test[8].min_duration*BINS || pattern[j].max_duration < test[8].min_duration*BINS) { return 0; } } j = (rotation + steps - 1)%steps; if (pattern[j].f1 != test[9].f1 || pattern[j].f2 != test[9].f2) return 0; if (pattern[j].max_duration < test[9].min_duration*BINS) return 0; } else { /* Look for a complete template match. */ for (i = 0; i < steps; i++) { j = i + 10 - steps; if (pattern[i].f1 != test[j].f1 || pattern[i].f2 != test[j].f2) return 0; if (pattern[i].min_duration > test[j].min_duration*BINS || pattern[i].max_duration < test[j].min_duration*BINS) { return 0; } } } return 1; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(super_tone_rx_descriptor_t *) super_tone_rx_make_descriptor(super_tone_rx_descriptor_t *desc) { if (desc == NULL) { if ((desc = (super_tone_rx_descriptor_t *) malloc(sizeof(*desc))) == NULL) return NULL; } desc->tone_list = NULL; desc->tone_segs = NULL; desc->used_frequencies = 0; desc->monitored_frequencies = 0; desc->desc = NULL; desc->tones = 0; return desc; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) super_tone_rx_free_descriptor(super_tone_rx_descriptor_t *desc) { int i; if (desc) { for (i = 0; i < desc->tones; i++) { if (desc->tone_list[i]) free(desc->tone_list[i]); } if (desc->tone_list) free(desc->tone_list); if (desc->tone_segs) free(desc->tone_segs); if (desc->desc) free(desc->desc); free(desc); } return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) super_tone_rx_segment_callback(super_tone_rx_state_t *s, void (*callback)(void *data, int f1, int f2, int duration)) { s->segment_callback = callback; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(super_tone_rx_state_t *) super_tone_rx_init(super_tone_rx_state_t *s, super_tone_rx_descriptor_t *desc, tone_report_func_t callback, void *user_data) { int i; if (desc == NULL) return NULL; if (callback == NULL) return NULL; if (s == NULL) { if ((s = (super_tone_rx_state_t *) malloc(sizeof(*s) + desc->monitored_frequencies*sizeof(goertzel_state_t))) == NULL) return NULL; } for (i = 0; i < 11; i++) { s->segments[i].f1 = -1; s->segments[i].f2 = -1; s->segments[i].min_duration = 0; } s->segment_callback = NULL; s->tone_callback = callback; s->callback_data = user_data; if (desc) s->desc = desc; s->detected_tone = -1; s->energy = 0.0f; for (i = 0; i < desc->monitored_frequencies; i++) goertzel_init(&s->state[i], &s->desc->desc[i]); return s; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) super_tone_rx_release(super_tone_rx_state_t *s) { return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) super_tone_rx_free(super_tone_rx_state_t *s) { if (s) free(s); return 0; } /*- End of function --------------------------------------------------------*/ static void super_tone_chunk(super_tone_rx_state_t *s) { int i; int j; int k1; int k2; #if defined(SPANDSP_USE_FIXED_POINT) int32_t res[BINS/2]; #else float res[BINS/2]; #endif for (i = 0; i < s->desc->monitored_frequencies; i++) res[i] = goertzel_result(&s->state[i]); /* Find our two best monitored frequencies, which also have adequate energy. */ if (s->energy < DETECTION_THRESHOLD) { k1 = -1; k2 = -1; } else { if (res[0] > res[1]) { k1 = 0; k2 = 1; } else { k1 = 1; k2 = 0; } for (j = 2; j < s->desc->monitored_frequencies; j++) { if (res[j] >= res[k1]) { k2 = k1; k1 = j; } else if (res[j] >= res[k2]) { k2 = j; } } if ((res[k1] + res[k2]) < TONE_TO_TOTAL_ENERGY*s->energy) { k1 = -1; k2 = -1; } else if (res[k1] > TONE_TWIST*res[k2]) { k2 = -1; } else if (k2 < k1) { j = k1; k1 = k2; k2 = j; } } /* See if this differs from last time. */ if (k1 != s->segments[10].f1 || k2 != s->segments[10].f2) { /* It is different, but this might just be a transitional quirk, or a one shot hiccup (eg due to noise). Only if this same thing is seen a second time should we change state. */ s->segments[10].f1 = k1; s->segments[10].f2 = k2; /* While things are hopping around, consider this a continuance of the previous state. */ s->segments[9].min_duration++; } else { if (k1 != s->segments[9].f1 || k2 != s->segments[9].f2) { if (s->detected_tone >= 0) { /* Test for the continuance of the existing tone pattern, based on our new knowledge of an entire segment length. */ if (!test_cadence(s->desc->tone_list[s->detected_tone], -s->desc->tone_segs[s->detected_tone], s->segments, s->rotation++)) { s->detected_tone = -1; s->tone_callback(s->callback_data, s->detected_tone, -10, 0); } } if (s->segment_callback) { s->segment_callback(s->callback_data, s->segments[9].f1, s->segments[9].f2, s->segments[9].min_duration*BINS/8); } memcpy (&s->segments[0], &s->segments[1], 9*sizeof(s->segments[0])); s->segments[9].f1 = k1; s->segments[9].f2 = k2; s->segments[9].min_duration = 1; } else { /* This is a continuance of the previous state */ if (s->detected_tone >= 0) { /* Test for the continuance of the existing tone pattern. We must do this here, so we can sense the discontinuance of the tone on an excessively long segment. */ if (!test_cadence(s->desc->tone_list[s->detected_tone], s->desc->tone_segs[s->detected_tone], s->segments, s->rotation)) { s->detected_tone = -1; s->tone_callback(s->callback_data, s->detected_tone, -10, 0); } } s->segments[9].min_duration++; } } if (s->detected_tone < 0) { /* Test for the start of any of the monitored tone patterns */ for (j = 0; j < s->desc->tones; j++) { if (test_cadence(s->desc->tone_list[j], s->desc->tone_segs[j], s->segments, -1)) { s->detected_tone = j; s->rotation = 0; s->tone_callback(s->callback_data, s->detected_tone, -10, 0); break; } } } #if defined(SPANDSP_USE_FIXED_POINT) s->energy = 0; #else s->energy = 0.0f; #endif } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) super_tone_rx(super_tone_rx_state_t *s, const int16_t amp[], int samples) { int i; int x; int sample; #if defined(SPANDSP_USE_FIXED_POINT) int16_t xamp; #else float xamp; #endif x = 0; for (sample = 0; sample < samples; sample += x) { for (i = 0; i < s->desc->monitored_frequencies; i++) x = goertzel_update(&s->state[i], amp + sample, samples - sample); for (i = 0; i < x; i++) { xamp = goertzel_preadjust_amp(amp[sample + i]); #if defined(SPANDSP_USE_FIXED_POINT) s->energy += ((int32_t) xamp*xamp); #else s->energy += xamp*xamp; #endif } if (s->state[0].current_sample >= BINS) { /* We have finished a Goertzel block. */ super_tone_chunk(s); s->energy = 0; } } return samples; } /*- End of function --------------------------------------------------------*/ /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/logging.c0000664000175000017500000002035011422612262015156 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * logging.c - error and debug logging. * * Written by Steve Underwood * * Copyright (C) 2005 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \file */ #if defined(HAVE_CONFIG_H) #include "config.h" #endif #include #include #include #include #include #include #include #include #include #include #include #include "spandsp/telephony.h" #include "spandsp/logging.h" #include "spandsp/private/logging.h" static void default_message_handler(int level, const char *text); static message_handler_func_t __span_message = &default_message_handler; static error_handler_func_t __span_error = NULL; /* Note that this list *must* match the enum definition in logging.h */ static const char *severities[] = { "NONE", "ERROR", "WARNING", "PROTOCOL_ERROR", "PROTOCOL_WARNING", "FLOW", "FLOW 2", "FLOW 3", "DEBUG 1", "DEBUG 2", "DEBUG 3" }; static void default_message_handler(int level, const char *text) { fprintf(stderr, "%s", text); } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) span_log_test(logging_state_t *s, int level) { if (s && (s->level & SPAN_LOG_SEVERITY_MASK) >= (level & SPAN_LOG_SEVERITY_MASK)) return TRUE; return FALSE; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) span_log(logging_state_t *s, int level, const char *format, ...) { char msg[1024 + 1]; va_list arg_ptr; int len; struct tm *tim; struct timeval nowx; time_t now; if (span_log_test(s, level)) { va_start(arg_ptr, format); len = 0; if ((level & SPAN_LOG_SUPPRESS_LABELLING) == 0) { if ((s->level & SPAN_LOG_SHOW_DATE)) { gettimeofday(&nowx, NULL); now = nowx.tv_sec; tim = gmtime(&now); len += snprintf(msg + len, 1024 - len, "%04d/%02d/%02d %02d:%02d:%02d.%03d ", tim->tm_year + 1900, tim->tm_mon + 1, tim->tm_mday, tim->tm_hour, tim->tm_min, tim->tm_sec, (int) nowx.tv_usec/1000); } /*endif*/ if ((s->level & SPAN_LOG_SHOW_SAMPLE_TIME)) { now = s->elapsed_samples/s->samples_per_second; tim = gmtime(&now); len += snprintf(msg + len, 1024 - len, "%02d:%02d:%02d.%03d ", tim->tm_hour, tim->tm_min, tim->tm_sec, (int) (s->elapsed_samples%s->samples_per_second)*1000/s->samples_per_second); } /*endif*/ if ((s->level & SPAN_LOG_SHOW_SEVERITY) && (level & SPAN_LOG_SEVERITY_MASK) <= SPAN_LOG_DEBUG_3) len += snprintf(msg + len, 1024 - len, "%s ", severities[level & SPAN_LOG_SEVERITY_MASK]); /*endif*/ if ((s->level & SPAN_LOG_SHOW_PROTOCOL) && s->protocol) len += snprintf(msg + len, 1024 - len, "%s ", s->protocol); /*endif*/ if ((s->level & SPAN_LOG_SHOW_TAG) && s->tag) len += snprintf(msg + len, 1024 - len, "%s ", s->tag); /*endif*/ } /*endif*/ len += vsnprintf(msg + len, 1024 - len, format, arg_ptr); if (s->span_error && level == SPAN_LOG_ERROR) s->span_error(msg); else if (__span_error && level == SPAN_LOG_ERROR) __span_error(msg); else if (s->span_message) s->span_message(level, msg); else if (__span_message) __span_message(level, msg); /*endif*/ va_end(arg_ptr); return 1; } /*endif*/ return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) span_log_buf(logging_state_t *s, int level, const char *tag, const uint8_t *buf, int len) { char msg[1024]; int i; int msg_len; if (span_log_test(s, level)) { msg_len = 0; if (tag) msg_len += snprintf(msg + msg_len, 1024 - msg_len, "%s", tag); for (i = 0; i < len && msg_len < 800; i++) msg_len += snprintf(msg + msg_len, 1024 - msg_len, " %02x", buf[i]); msg_len += snprintf(msg + msg_len, 1024 - msg_len, "\n"); return span_log(s, level, msg); } return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) span_log_set_level(logging_state_t *s, int level) { s->level = level; return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) span_log_set_tag(logging_state_t *s, const char *tag) { s->tag = tag; return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) span_log_set_protocol(logging_state_t *s, const char *protocol) { s->protocol = protocol; return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) span_log_set_sample_rate(logging_state_t *s, int samples_per_second) { s->samples_per_second = samples_per_second; return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) span_log_bump_samples(logging_state_t *s, int samples) { s->elapsed_samples += samples; return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) span_log_set_message_handler(logging_state_t *s, message_handler_func_t func) { s->span_message = func; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) span_log_set_error_handler(logging_state_t *s, error_handler_func_t func) { s->span_error = func; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) span_set_message_handler(message_handler_func_t func) { __span_message = func; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) span_set_error_handler(error_handler_func_t func) { __span_error = func; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(logging_state_t *) span_log_init(logging_state_t *s, int level, const char *tag) { if (s == NULL) { if ((s = (logging_state_t *) malloc(sizeof(*s))) == NULL) return NULL; } s->span_error = __span_error; s->span_message = __span_message; s->level = level; s->tag = tag; s->protocol = NULL; s->samples_per_second = SAMPLE_RATE; s->elapsed_samples = 0; return s; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) span_log_release(logging_state_t *s) { return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) span_log_free(logging_state_t *s) { if (s) free(s); return 0; } /*- End of function --------------------------------------------------------*/ /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/v42.c0000664000175000017500000013021611422612263014147 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * v42.c * * Written by Steve Underwood * * Copyright (C) 2004 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* THIS IS A WORK IN PROGRESS. IT IS NOT FINISHED. */ /*! \file */ #if defined(HAVE_CONFIG_H) #include "config.h" #endif #include #include #include #include #include #include "spandsp/telephony.h" #include "spandsp/logging.h" #include "spandsp/async.h" #include "spandsp/hdlc.h" #include "spandsp/schedule.h" #include "spandsp/queue.h" #include "spandsp/v42.h" #include "spandsp/private/logging.h" #include "spandsp/private/schedule.h" #include "spandsp/private/hdlc.h" #include "spandsp/private/v42.h" #if !defined(FALSE) #define FALSE 0 #endif #if !defined(TRUE) #define TRUE (!FALSE) #endif #define LAPM_FRAMETYPE_MASK 0x03 #define LAPM_FRAMETYPE_I 0x00 #define LAPM_FRAMETYPE_I_ALT 0x02 #define LAPM_FRAMETYPE_S 0x01 #define LAPM_FRAMETYPE_U 0x03 /* Timer values */ #define T_WAIT_MIN 2000 #define T_WAIT_MAX 10000 /* Detection phase timer */ #define T_400 750000 /* Acknowledgement timer - 1 second between SABME's */ #define T_401 1000000 /* Replay delay timer (optional) */ #define T_402 1000000 /* Inactivity timer (optional). No default - use 10 seconds with no packets */ #define T_403 10000000 /* Max retries */ #define N_400 3 /* Max octets in an information field */ #define N_401 128 #define LAPM_DLCI_DTE_TO_DTE 0 #define LAPM_DLCI_LAYER2_MANAGEMENT 63 static void t401_expired(span_sched_state_t *s, void *user_data); static void t403_expired(span_sched_state_t *s, void *user_data); SPAN_DECLARE(void) lapm_reset(lapm_state_t *s); SPAN_DECLARE(void) lapm_restart(lapm_state_t *s); static void lapm_link_down(lapm_state_t *s); static __inline__ void lapm_init_header(uint8_t *frame, int command) { /* Data link connection identifier (0) */ /* Command/response (0 if answerer, 1 if originator) */ /* Extended address (1) */ frame[0] = (LAPM_DLCI_DTE_TO_DTE << 2) | ((command) ? 0x02 : 0x00) | 0x01; } /*- End of function --------------------------------------------------------*/ static int lapm_tx_frame(lapm_state_t *s, uint8_t *frame, int len) { if ((s->debug & LAPM_DEBUG_LAPM_DUMP)) lapm_dump(s, frame, len, s->debug & LAPM_DEBUG_LAPM_RAW, TRUE); /*endif*/ hdlc_tx_frame(&s->hdlc_tx, frame, len); return 0; } /*- End of function --------------------------------------------------------*/ static void t400_expired(span_sched_state_t *ss, void *user_data) { v42_state_t *s; /* Give up trying to detect a V.42 capable peer. */ s = (v42_state_t *) user_data; s->t400_timer = -1; s->lapm.state = LAPM_UNSUPPORTED; if (s->lapm.status_callback) s->lapm.status_callback(s->lapm.status_callback_user_data, s->lapm.state); /*endif*/ } /*- End of function --------------------------------------------------------*/ static void lapm_send_ua(lapm_state_t *s, int pfbit) { uint8_t frame[3]; lapm_init_header(frame, !s->we_are_originator); frame[1] = (uint8_t) (0x63 | (pfbit << 4)); frame[2] = 0; span_log(&s->logging, SPAN_LOG_FLOW, "Sending unnumbered acknowledgement\n"); lapm_tx_frame(s, frame, 3); } /*- End of function --------------------------------------------------------*/ static void lapm_send_sabme(span_sched_state_t *ss, void *user_data) { lapm_state_t *s; uint8_t frame[3]; s = (lapm_state_t *) user_data; if (s->t401_timer >= 0) { fprintf(stderr, "Deleting T401 q [%p] %d\n", (void *) s, s->t401_timer); span_schedule_del(&s->sched, s->t401_timer); s->t401_timer = -1; } /*endif*/ if (++s->retransmissions > N_400) { /* 8.3.2.2 Too many retries */ s->state = LAPM_RELEASE; if (s->status_callback) s->status_callback(s->status_callback_user_data, s->state); /*endif*/ return; } /*endif*/ fprintf(stderr, "Setting T401 a1 [%p]\n", (void *) s); s->t401_timer = span_schedule_event(&s->sched, T_401, lapm_send_sabme, s); lapm_init_header(frame, s->we_are_originator); frame[1] = 0x7F; frame[2] = 0; span_log(&s->logging, SPAN_LOG_FLOW, "Sending SABME (set asynchronous balanced mode extended)\n"); lapm_tx_frame(s, frame, 3); } /*- End of function --------------------------------------------------------*/ static int lapm_ack_packet(lapm_state_t *s, int num) { lapm_frame_queue_t *f; lapm_frame_queue_t *prev; for (prev = NULL, f = s->txqueue; f; prev = f, f = f->next) { if ((f->frame[1] >> 1) == num) { /* Cancel each packet, as necessary */ if (prev) prev->next = f->next; else s->txqueue = f->next; /*endif*/ span_log(&s->logging, SPAN_LOG_FLOW, "-- ACKing packet %d. New txqueue is %d (-1 means empty)\n", (f->frame[1] >> 1), (s->txqueue) ? (s->txqueue->frame[1] >> 1) : -1); s->last_frame_peer_acknowledged = num; free(f); /* Reset retransmission count if we actually acked something */ s->retransmissions = 0; return 1; } /*endif*/ } /*endfor*/ return 0; } /*- End of function --------------------------------------------------------*/ static void lapm_ack_rx(lapm_state_t *s, int ack) { int i; int cnt; /* This might not be acking anything new */ if (s->last_frame_peer_acknowledged == ack) return; /*endif*/ /* It should be acking something that is actually outstanding */ if ((s->last_frame_peer_acknowledged < s->next_tx_frame && (ack < s->last_frame_peer_acknowledged || ack > s->next_tx_frame)) || (s->last_frame_peer_acknowledged > s->next_tx_frame && (ack > s->last_frame_peer_acknowledged || ack < s->next_tx_frame))) { /* ACK was outside our window --- ignore */ span_log(&s->logging, SPAN_LOG_FLOW, "ACK received outside window, ignoring\n"); return; } /*endif*/ /* Cancel each packet, as necessary */ span_log(&s->logging, SPAN_LOG_FLOW, "-- ACKing all packets from %d to (but not including) %d\n", s->last_frame_peer_acknowledged, ack); for (cnt = 0, i = s->last_frame_peer_acknowledged; i != ack; i = (i + 1) & 0x7F) cnt += lapm_ack_packet(s, i); /*endfor*/ s->last_frame_peer_acknowledged = ack; if (s->txqueue == NULL) { span_log(&s->logging, SPAN_LOG_FLOW, "-- Since there was nothing left, stopping timer T_401\n"); /* Something was ACK'd. Stop timer T_401. */ fprintf(stderr, "T401 a2 is %d [%p]\n", s->t401_timer, (void *) s); if (s->t401_timer >= 0) { fprintf(stderr, "Deleting T401 a3 [%p] %d\n", (void *) s, s->t401_timer); span_schedule_del(&s->sched, s->t401_timer); s->t401_timer = -1; } /*endif*/ } /*endif*/ if (s->t403_timer >= 0) { span_log(&s->logging, SPAN_LOG_FLOW, "-- Stopping timer T_403, since we got an ACK\n"); if (s->t403_timer >= 0) { fprintf(stderr, "Deleting T403 b %d\n", s->t403_timer); span_schedule_del(&s->sched, s->t403_timer); s->t403_timer = -1; } /*endif*/ } /*endif*/ if (s->txqueue) { /* Something left to transmit. Start timer T_401 again if it is stopped */ span_log(&s->logging, SPAN_LOG_FLOW, "-- Something left to transmit (%d). Restarting timer T_401\n", s->txqueue->frame[1] >> 1); if (s->t401_timer < 0) { fprintf(stderr, "Setting T401 b [%p]\n", (void *) s); s->t401_timer = span_schedule_event(&s->sched, T_401, t401_expired, s); } /*endif*/ } else { span_log(&s->logging, SPAN_LOG_FLOW, "-- Nothing left, starting timer T_403\n"); /* Nothing to transmit. Start timer T_403. */ fprintf(stderr, "Setting T403 c\n"); s->t403_timer = span_schedule_event(&s->sched, T_403, t403_expired, s); } /*endif*/ } /*- End of function --------------------------------------------------------*/ static void lapm_reject(lapm_state_t *s) { uint8_t frame[4]; lapm_init_header(frame, !s->we_are_originator); frame[1] = (uint8_t) (0x00 | 0x08 | LAPM_FRAMETYPE_S); /* Where to start retransmission */ frame[2] = (uint8_t) ((s->next_expected_frame << 1) | 0x01); span_log(&s->logging, SPAN_LOG_FLOW, "Sending REJ (reject (%d)\n", s->next_expected_frame); lapm_tx_frame(s, frame, 4); } /*- End of function --------------------------------------------------------*/ static void lapm_rr(lapm_state_t *s, int pfbit) { uint8_t frame[4]; lapm_init_header(frame, !s->we_are_originator); frame[1] = (uint8_t) (0x00 | 0x00 | LAPM_FRAMETYPE_S); frame[2] = (uint8_t) ((s->next_expected_frame << 1) | pfbit); /* Note that we have already ACKed this */ s->last_frame_we_acknowledged = s->next_expected_frame; span_log(&s->logging, SPAN_LOG_FLOW, "Sending RR (receiver ready) (%d)\n", s->next_expected_frame); lapm_tx_frame(s, frame, 4); } /*- End of function --------------------------------------------------------*/ static void t401_expired(span_sched_state_t *ss, void *user_data) { lapm_state_t *s; s = (lapm_state_t *) user_data; fprintf(stderr, "Expiring T401 a4 [%p]\n", (void *) s); s->t401_timer = -1; if (s->txqueue) { /* Retransmit first packet in the queue, setting the poll bit */ span_log(&s->logging, SPAN_LOG_FLOW, "-- Timer T_401 expired, What to do...\n"); /* Update N(R), and set the poll bit */ s->txqueue->frame[2] = (uint8_t)((s->next_expected_frame << 1) | 0x01); s->last_frame_we_acknowledged = s->next_expected_frame; s->solicit_f_bit = TRUE; if (++s->retransmissions <= N_400) { /* Reschedule timer T401 */ span_log(&s->logging, SPAN_LOG_FLOW, "-- Retransmitting %d bytes\n", s->txqueue->len); lapm_tx_frame(s, s->txqueue->frame, s->txqueue->len); span_log(&s->logging, SPAN_LOG_FLOW, "-- Scheduling retransmission (%d)\n", s->retransmissions); fprintf(stderr, "Setting T401 d [%p]\n", (void *) s); s->t401_timer = span_schedule_event(&s->sched, T_401, t401_expired, s); } else { span_log(&s->logging, SPAN_LOG_FLOW, "-- Timeout occured\n"); s->state = LAPM_RELEASE; if (s->status_callback) s->status_callback(s->status_callback_user_data, s->state); lapm_link_down(s); lapm_restart(s); } /*endif*/ } else { span_log(&s->logging, SPAN_LOG_FLOW, "Timer T_401 expired. Nothing to send...\n"); } /*endif*/ } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(const char *) lapm_status_to_str(int status) { switch (status) { case LAPM_DETECT: return "LAPM_DETECT"; case LAPM_ESTABLISH: return "LAPM_ESTABLISH"; case LAPM_DATA: return "LAPM_DATA"; case LAPM_RELEASE: return "LAPM_RELEASE"; case LAPM_SIGNAL: return "LAPM_SIGNAL"; case LAPM_SETPARM: return "LAPM_SETPARM"; case LAPM_TEST: return "LAPM_TEST"; case LAPM_UNSUPPORTED: return "LAPM_UNSUPPORTED"; } /*endswitch*/ return "???"; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) lapm_tx(lapm_state_t *s, const void *buf, int len) { return queue_write(s->tx_queue, buf, len); } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) lapm_release(lapm_state_t *s) { s->state = LAPM_RELEASE; return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) lapm_loopback(lapm_state_t *s, int enable) { s->state = LAPM_TEST; return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) lapm_break(lapm_state_t *s, int enable) { s->state = LAPM_SIGNAL; return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) lapm_tx_iframe(lapm_state_t *s, const void *buf, int len, int cr) { lapm_frame_queue_t *f; if ((f = malloc(sizeof(*f) + len + 4)) == NULL) { span_log(&s->logging, SPAN_LOG_FLOW, "Out of memory\n"); return -1; } /*endif*/ lapm_init_header(f->frame, (s->peer_is_originator) ? cr : !cr); f->next = NULL; f->len = len + 4; f->frame[1] = (uint8_t) (s->next_tx_frame << 1); f->frame[2] = (uint8_t) (s->next_expected_frame << 1); memcpy(f->frame + 3, buf, len); s->next_tx_frame = (s->next_tx_frame + 1) & 0x7F; s->last_frame_we_acknowledged = s->next_expected_frame; /* Clear poll bit */ f->frame[2] &= ~0x01; if (s->tx_last) s->tx_last->next = f; else s->txqueue = f; /*endif*/ s->tx_last = f; /* Immediately transmit unless we're in a recovery state */ if (s->retransmissions == 0) lapm_tx_frame(s, f->frame, f->len); /*endif*/ if (s->t403_timer >= 0) { span_log(&s->logging, SPAN_LOG_FLOW, "Stopping T_403 timer\n"); fprintf(stderr, "Deleting T403 c %d\n", s->t403_timer); span_schedule_del(&s->sched, s->t403_timer); s->t403_timer = -1; } /*endif*/ if (s->t401_timer < 0) { span_log(&s->logging, SPAN_LOG_FLOW, "Starting timer T_401\n"); s->t401_timer = span_schedule_event(&s->sched, T_401, t401_expired, s); fprintf(stderr, "Setting T401 e %d [%p]\n", s->t401_timer, (void *) s); } else { span_log(&s->logging, SPAN_LOG_FLOW, "Timer T_401 already running (%d)\n", s->t401_timer); } /*endif*/ return 0; } /*- End of function --------------------------------------------------------*/ static void t403_expired(span_sched_state_t *ss, void *user_data) { lapm_state_t *s; s = (lapm_state_t *) user_data; span_log(&s->logging, SPAN_LOG_FLOW, "Timer T_403 expired. Sending RR and scheduling T_403 again\n"); s->t403_timer = -1; s->retransmissions = 0; /* Solicit an F-bit in the other end's RR */ s->solicit_f_bit = TRUE; lapm_rr(s, 1); /* Restart ourselves */ fprintf(stderr, "Setting T403 f\n"); s->t401_timer = span_schedule_event(&s->sched, T_401, t401_expired, s); } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) lapm_dump(lapm_state_t *s, const uint8_t *frame, int len, int showraw, int txrx) { const char *type; char direction_tag[2]; direction_tag[0] = txrx ? '>' : '<'; direction_tag[1] = '\0'; if (showraw) span_log_buf(&s->logging, SPAN_LOG_FLOW, direction_tag, frame, len); /*endif*/ switch ((frame[1] & LAPM_FRAMETYPE_MASK)) { case LAPM_FRAMETYPE_I: case LAPM_FRAMETYPE_I_ALT: span_log(&s->logging, SPAN_LOG_FLOW, "%c Information frame:\n", direction_tag[0]); break; case LAPM_FRAMETYPE_S: span_log(&s->logging, SPAN_LOG_FLOW, "%c Supervisory frame:\n", direction_tag[0]); break; case LAPM_FRAMETYPE_U: span_log(&s->logging, SPAN_LOG_FLOW, "%c Unnumbered frame:\n", direction_tag[0]); break; } /*endswitch*/ span_log(&s->logging, SPAN_LOG_FLOW, "%c DLCI: %2d C/R: %d EA: %d\n", direction_tag[0], (frame[0] >> 2), (frame[0] & 0x02) ? 1 : 0, (frame[0] & 0x01), direction_tag[0]); switch ((frame[1] & LAPM_FRAMETYPE_MASK)) { case LAPM_FRAMETYPE_I: case LAPM_FRAMETYPE_I_ALT: /* Information frame */ span_log(&s->logging, SPAN_LOG_FLOW, "%c N(S): %03d\n", direction_tag[0], (frame[1] >> 1)); span_log(&s->logging, SPAN_LOG_FLOW, "%c N(R): %03d P: %d\n", direction_tag[0], (frame[2] >> 1), (frame[2] & 0x01)); span_log(&s->logging, SPAN_LOG_FLOW, "%c %d bytes of data\n", direction_tag[0], len - 4); break; case LAPM_FRAMETYPE_S: /* Supervisory frame */ switch (frame[1] & 0x0C) { case 0x00: type = "RR (receive ready)"; break; case 0x04: type = "RNR (receive not ready)"; break; case 0x08: type = "REJ (reject)"; break; case 0x0C: type = "SREJ (selective reject)"; break; default: type = "???"; break; } /*endswitch*/ span_log(&s->logging, SPAN_LOG_FLOW, "%c S: %03d [ %s ]\n", direction_tag[0], frame[1], type); span_log(&s->logging, SPAN_LOG_FLOW, "%c N(R): %03d P/F: %d\n", direction_tag[0], frame[2] >> 1, frame[2] & 0x01); span_log(&s->logging, SPAN_LOG_FLOW, "%c %d bytes of data\n", direction_tag[0], len - 4); break; case LAPM_FRAMETYPE_U: /* Unnumbered frame */ switch (frame[1] & 0xEC) { case 0x00: type = "UI (unnumbered information)"; break; case 0x0C: type = "DM (disconnect mode)"; break; case 0x40: type = "DISC (disconnect)"; break; case 0x60: type = "UA (unnumbered acknowledgement)"; break; case 0x6C: type = "SABME (set asynchronous balanced mode extended)"; break; case 0x84: type = "FRMR (frame reject)"; break; case 0xAC: type = "XID (exchange identification)"; break; case 0xE0: type = "TEST (test)"; break; default: type = "???"; break; } /*endswitch*/ span_log(&s->logging, SPAN_LOG_FLOW, "%c M: %03d [ %s ] P/F: %d\n", direction_tag[0], frame[1], type, (frame[1] >> 4) & 1); span_log(&s->logging, SPAN_LOG_FLOW, "%c %d bytes of data\n", direction_tag[0], len - 3); break; } /*endswitch*/ } /*- End of function --------------------------------------------------------*/ static void lapm_link_up(lapm_state_t *s) { uint8_t buf[1024]; int len; lapm_reset(s); /* Go into connection established state */ s->state = LAPM_DATA; if (s->status_callback) s->status_callback(s->status_callback_user_data, s->state); /*endif*/ if (!queue_empty(s->tx_queue)) { if ((len = queue_read(s->tx_queue, buf, s->n401)) > 0) lapm_tx_iframe(s, buf, len, TRUE); /*endif*/ } /*endif*/ if (s->t401_timer >= 0) { fprintf(stderr, "Deleting T401 x [%p] %d\n", (void *) s, s->t401_timer); span_schedule_del(&s->sched, s->t401_timer); s->t401_timer = -1; } /*endif*/ /* Start the T403 timer */ fprintf(stderr, "Setting T403 g\n"); s->t403_timer = span_schedule_event(&s->sched, T_403, t403_expired, s); } /*- End of function --------------------------------------------------------*/ static void lapm_link_down(lapm_state_t *s) { lapm_reset(s); if (s->status_callback) s->status_callback(s->status_callback_user_data, s->state); /*endif*/ } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) lapm_reset(lapm_state_t *s) { lapm_frame_queue_t *f; lapm_frame_queue_t *p; /* Having received a SABME, we need to reset our entire state */ s->next_tx_frame = 0; s->last_frame_peer_acknowledged = 0; s->next_expected_frame = 0; s->last_frame_we_acknowledged = 0; s->window_size_k = 15; s->n401 = 128; if (s->t401_timer >= 0) { fprintf(stderr, "Deleting T401 d [%p] %d\n", (void *) s, s->t401_timer); span_schedule_del(&s->sched, s->t401_timer); s->t401_timer = -1; } /*endif*/ if (s->t403_timer >= 0) { fprintf(stderr, "Deleting T403 e %d\n", s->t403_timer); span_schedule_del(&s->sched, s->t403_timer); s->t403_timer = -1; } /*endif*/ s->busy = FALSE; s->solicit_f_bit = FALSE; s->state = LAPM_RELEASE; s->retransmissions = 0; /* Discard anything waiting to go out */ for (f = s->txqueue; f; ) { p = f; f = f->next; free(p); } /*endfor*/ s->txqueue = NULL; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE_NONSTD(void) lapm_receive(void *user_data, const uint8_t *frame, int len, int ok) { lapm_state_t *s; lapm_frame_queue_t *f; int sendnow; int octet; int s_field; int m_field; fprintf(stderr, "LAPM receive %d %d\n", ok, len); if (!ok || len == 0) return; /*endif*/ s = (lapm_state_t *) user_data; if (len < 0) { /* Special conditions */ span_log(&s->logging, SPAN_LOG_DEBUG, "V.42 rx status is %s (%d)\n", signal_status_to_str(len), len); return; } /*endif*/ if ((s->debug & LAPM_DEBUG_LAPM_DUMP)) lapm_dump(s, frame, len, s->debug & LAPM_DEBUG_LAPM_RAW, FALSE); /*endif*/ octet = 0; /* We do not expect extended addresses */ if ((frame[octet] & 0x01) == 0) return; /*endif*/ /* Check for DLCIs we do not recognise */ if ((frame[octet] >> 2) != LAPM_DLCI_DTE_TO_DTE) return; /*endif*/ octet++; switch (frame[octet] & LAPM_FRAMETYPE_MASK) { case LAPM_FRAMETYPE_I: case LAPM_FRAMETYPE_I_ALT: if (s->state != LAPM_DATA) { span_log(&s->logging, SPAN_LOG_FLOW, "!! Got an I-frame while link state is %d\n", s->state); break; } /*endif*/ /* Information frame */ if (len < 4) { span_log(&s->logging, SPAN_LOG_FLOW, "!! Received short I-frame (expected 4, got %d)\n", len); break; } /*endif*/ /* Make sure this is a valid packet */ if ((frame[1] >> 1) == s->next_expected_frame) { /* Increment next expected I-frame */ s->next_expected_frame = (s->next_expected_frame + 1) & 0x7F; /* Handle their ACK */ lapm_ack_rx(s, frame[2] >> 1); if ((frame[2] & 0x01)) { /* If the Poll/Final bit is set, send the RR immediately */ lapm_rr(s, 1); } /*endif*/ s->iframe_receive(s->iframe_receive_user_data, frame + 3, len - 4); /* Send an RR if one wasn't sent already */ if (s->last_frame_we_acknowledged != s->next_expected_frame) lapm_rr(s, 0); /*endif*/ } else { if (((s->next_expected_frame - (frame[1] >> 1)) & 127) < s->window_size_k) { /* It's within our window -- send back an RR */ lapm_rr(s, 0); } else { lapm_reject(s); } /*endif*/ } /*endif*/ break; case LAPM_FRAMETYPE_S: if (s->state != LAPM_DATA) { span_log(&s->logging, SPAN_LOG_FLOW, "!! Got S-frame while link down\n"); break; } /*endif*/ if (len < 4) { span_log(&s->logging, SPAN_LOG_FLOW, "!! Received short S-frame (expected 4, got %d)\n", len); break; } /*endif*/ s_field = frame[octet] & 0xEC; switch (s_field) { case 0x00: /* RR (receive ready) */ s->busy = FALSE; /* Acknowledge frames as necessary */ lapm_ack_rx(s, frame[2] >> 1); if ((frame[2] & 0x01)) { /* If P/F is one, respond with an RR with the P/F bit set */ if (s->solicit_f_bit) { span_log(&s->logging, SPAN_LOG_FLOW, "-- Got RR response to our frame\n"); } else { span_log(&s->logging, SPAN_LOG_FLOW, "-- Unsolicited RR with P/F bit, responding\n"); lapm_rr(s, 1); } /*endif*/ s->solicit_f_bit = FALSE; } /*endif*/ break; case 0x04: /* RNR (receive not ready) */ span_log(&s->logging, SPAN_LOG_FLOW, "-- Got receiver not ready\n"); s->busy = TRUE; break; case 0x08: /* REJ (reject) */ /* Just retransmit */ span_log(&s->logging, SPAN_LOG_FLOW, "-- Got reject requesting packet %d... Retransmitting.\n", frame[2] >> 1); if ((frame[2] & 0x01)) { /* If it has the poll bit set, send an appropriate supervisory response */ lapm_rr(s, 1); } /*endif*/ sendnow = FALSE; /* Resend the appropriate I-frame */ for (f = s->txqueue; f; f = f->next) { if (sendnow || (f->frame[1] >> 1) == (frame[2] >> 1)) { /* Matches the request, or follows in our window */ sendnow = TRUE; span_log(&s->logging, SPAN_LOG_FLOW, "!! Got reject for frame %d, retransmitting frame %d now, updating n_r!\n", frame[2] >> 1, f->frame[1] >> 1); f->frame[2] = (uint8_t) (s->next_expected_frame << 1); lapm_tx_frame(s, f->frame, f->len); } /*endif*/ } /*endfor*/ if (!sendnow) { if (s->txqueue) { /* This should never happen */ if ((frame[2] & 0x01) == 0 || (frame[2] >> 1)) { span_log(&s->logging, SPAN_LOG_FLOW, "!! Got reject for frame %d, but we only have others!\n", frame[2] >> 1); } /*endif*/ } else { /* Hrm, we have nothing to send, but have been REJ'd. Reset last_frame_peer_acknowledged, next_tx_frame, etc */ span_log(&s->logging, SPAN_LOG_FLOW, "!! Got reject for frame %d, but we have nothing -- resetting!\n", frame[2] >> 1); s->last_frame_peer_acknowledged = s->next_tx_frame = frame[2] >> 1; /* Reset t401 timer if it was somehow going */ if (s->t401_timer >= 0) { fprintf(stderr, "Deleting T401 f [%p] %d\n", (void *) s, s->t401_timer); span_schedule_del(&s->sched, s->t401_timer); s->t401_timer = -1; } /*endif*/ /* Reset and restart t403 timer */ if (s->t403_timer >= 0) { fprintf(stderr, "Deleting T403 g %d\n", s->t403_timer); span_schedule_del(&s->sched, s->t403_timer); s->t403_timer = -1; } /*endif*/ fprintf(stderr, "Setting T403 h\n"); s->t403_timer = span_schedule_event(&s->sched, T_403, t403_expired, s); } /*endif*/ } /*endif*/ break; case 0x0C: /* SREJ (selective reject) */ break; default: span_log(&s->logging, SPAN_LOG_FLOW, "!! XXX Unknown Supervisory frame sd=0x%02x,pf=%02xnr=%02x vs=%02x, va=%02x XXX\n", s_field, frame[2] & 0x01, frame[2] >> 1, s->next_tx_frame, s->last_frame_peer_acknowledged); break; } /*endswitch*/ break; case LAPM_FRAMETYPE_U: if (len < 3) { span_log(&s->logging, SPAN_LOG_FLOW, "!! Received too short unnumbered frame\n"); break; } /*endif*/ m_field = frame[octet] & 0xEC; switch (m_field) { case 0x00: /* UI (unnumbered information) */ switch (frame[++octet] & 0x7F) { case 0x40: /* BRK */ span_log(&s->logging, SPAN_LOG_FLOW, "BRK - option %d, length %d\n", (frame[octet] >> 5), frame[octet + 1]); octet += 2; break; case 0x60: /* BRKACK */ span_log(&s->logging, SPAN_LOG_FLOW, "BRKACK\n"); break; default: /* Unknown */ span_log(&s->logging, SPAN_LOG_FLOW, "Unknown UI type\n"); break; } /*endswitch*/ break; case 0x0C: /* DM (disconnect mode) */ if ((frame[octet] & 0x10)) { span_log(&s->logging, SPAN_LOG_FLOW, "-- Got Unconnected Mode from peer.\n"); /* Disconnected mode, try again */ lapm_link_down(s); lapm_restart(s); } else { span_log(&s->logging, SPAN_LOG_FLOW, "-- DM (disconnect mode) requesting SABME, starting.\n"); /* Requesting that we start */ lapm_restart(s); } /*endif*/ break; case 0x40: /* DISC (disconnect) */ span_log(&s->logging, SPAN_LOG_FLOW, "-- Got DISC (disconnect) from peer.\n"); /* Acknowledge */ lapm_send_ua(s, (frame[octet] & 0x10)); lapm_link_down(s); break; case 0x60: /* UA (unnumbered acknowledgement) */ if (s->state == LAPM_ESTABLISH) { span_log(&s->logging, SPAN_LOG_FLOW, "-- Got UA (unnumbered acknowledgement) from %s peer. Link up.\n", (frame[0] & 0x02) ? "xxx" : "yyy"); lapm_link_up(s); } else { span_log(&s->logging, SPAN_LOG_FLOW, "!! Got a UA (unnumbered acknowledgement) in state %d\n", s->state); } /*endif*/ break; case 0x6C: /* SABME (set asynchronous balanced mode extended) */ span_log(&s->logging, SPAN_LOG_FLOW, "-- Got SABME (set asynchronous balanced mode extended) from %s peer.\n", (frame[0] & 0x02) ? "yyy" : "xxx"); if ((frame[0] & 0x02)) { s->peer_is_originator = TRUE; if (s->we_are_originator) { /* We can't both be originators */ span_log(&s->logging, SPAN_LOG_FLOW, "We think we are the originator, but they think so too."); break; } /*endif*/ } else { s->peer_is_originator = FALSE; if (!s->we_are_originator) { /* We can't both be answerers */ span_log(&s->logging, SPAN_LOG_FLOW, "We think we are the answerer, but they think so too.\n"); break; } /*endif*/ } /*endif*/ /* Send unnumbered acknowledgement */ lapm_send_ua(s, (frame[octet] & 0x10)); lapm_link_up(s); break; case 0x84: /* FRMR (frame reject) */ span_log(&s->logging, SPAN_LOG_FLOW, "!! FRMR (frame reject).\n"); break; case 0xAC: /* XID (exchange identification) */ span_log(&s->logging, SPAN_LOG_FLOW, "!! XID (exchange identification) frames not supported\n"); break; case 0xE0: /* TEST (test) */ span_log(&s->logging, SPAN_LOG_FLOW, "!! TEST (test) frames not supported\n"); break; default: span_log(&s->logging, SPAN_LOG_FLOW, "!! Don't know what to do with M=%X u-frames\n", m_field); break; } /*endswitch*/ break; } /*endswitch*/ } /*- End of function --------------------------------------------------------*/ static void lapm_hdlc_underflow(void *user_data) { lapm_state_t *s; uint8_t buf[1024]; int len; s = (lapm_state_t *) user_data; span_log(&s->logging, SPAN_LOG_FLOW, "HDLC underflow\n"); if (s->state == LAPM_DATA) { if (!queue_empty(s->tx_queue)) { if ((len = queue_read(s->tx_queue, buf, s->n401)) > 0) lapm_tx_iframe(s, buf, len, TRUE); /*endif*/ } /*endif*/ } /*endif*/ } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) lapm_restart(lapm_state_t *s) { #if 0 if (s->state != LAPM_RELEASE) { span_log(&s->logging, SPAN_LOG_FLOW, "!! lapm_restart: Not in 'Link Connection Released' state\n"); return; } /*endif*/ #endif span_log_init(&s->logging, SPAN_LOG_NONE, NULL); span_log_set_protocol(&s->logging, "LAP.M"); hdlc_tx_init(&s->hdlc_tx, FALSE, 1, TRUE, lapm_hdlc_underflow, s); hdlc_rx_init(&s->hdlc_rx, FALSE, FALSE, 1, lapm_receive, s); /* TODO: This is a bodge! */ s->t401_timer = -1; s->t402_timer = -1; s->t403_timer = -1; lapm_reset(s); /* TODO: Maybe we should implement T_WAIT? */ lapm_send_sabme(NULL, s); } /*- End of function --------------------------------------------------------*/ #if 0 static void lapm_init(lapm_state_t *s) { lapm_restart(s); } /*- End of function --------------------------------------------------------*/ #endif static void negotiation_rx_bit(v42_state_t *s, int new_bit) { /* DC1 with even parity, 8-16 ones, DC1 with odd parity, 8-16 ones */ //uint8_t odp = "0100010001 11111111 0100010011 11111111"; /* V.42 OK E , 8-16 ones, C, 8-16 ones */ //uint8_t adp_v42 = "0101000101 11111111 0110000101 11111111"; /* V.42 disabled E, 8-16 ones, NULL, 8-16 ones */ //uint8_t adp_nov42 = "0101000101 11111111 0000000001 11111111"; /* There may be no negotiation, so we need to process this data through the HDLC receiver as well */ if (new_bit < 0) { /* Special conditions */ span_log(&s->logging, SPAN_LOG_DEBUG, "V.42 rx status is %s (%d)\n", signal_status_to_str(new_bit), new_bit); return; } /*endif*/ new_bit &= 1; s->rxstream = (s->rxstream << 1) | new_bit; switch (s->rx_negotiation_step) { case 0: /* Look for some ones */ if (new_bit) break; /*endif*/ s->rx_negotiation_step = 1; s->rxbits = 0; s->rxstream = ~1; s->rxoks = 0; break; case 1: /* Look for the first character */ if (++s->rxbits < 9) break; /*endif*/ s->rxstream &= 0x3FF; if (s->calling_party && s->rxstream == 0x145) { s->rx_negotiation_step++; } else if (!s->calling_party && s->rxstream == 0x111) { s->rx_negotiation_step++; } else { s->rx_negotiation_step = 0; } /*endif*/ s->rxbits = 0; s->rxstream = ~0; break; case 2: /* Look for 8 to 16 ones */ s->rxbits++; if (new_bit) break; /*endif*/ if (s->rxbits >= 8 && s->rxbits <= 16) s->rx_negotiation_step++; else s->rx_negotiation_step = 0; /*endif*/ s->rxbits = 0; s->rxstream = ~1; break; case 3: /* Look for the second character */ if (++s->rxbits < 9) break; /*endif*/ s->rxstream &= 0x3FF; if (s->calling_party && s->rxstream == 0x185) { s->rx_negotiation_step++; } else if (s->calling_party && s->rxstream == 0x001) { s->rx_negotiation_step++; } else if (!s->calling_party && s->rxstream == 0x113) { s->rx_negotiation_step++; } else { s->rx_negotiation_step = 0; } /*endif*/ s->rxbits = 0; s->rxstream = ~0; break; case 4: /* Look for 8 to 16 ones */ s->rxbits++; if (new_bit) break; /*endif*/ if (s->rxbits >= 8 && s->rxbits <= 16) { if (++s->rxoks >= 2) { /* HIT */ s->rx_negotiation_step++; if (s->calling_party) { if (s->t400_timer >= 0) { fprintf(stderr, "Deleting T400 h %d\n", s->t400_timer); span_schedule_del(&s->lapm.sched, s->t400_timer); s->t400_timer = -1; } /*endif*/ s->lapm.state = LAPM_ESTABLISH; if (s->lapm.status_callback) s->lapm.status_callback(s->lapm.status_callback_user_data, s->lapm.state); /*endif*/ } else { s->odp_seen = TRUE; } /*endif*/ break; } /*endif*/ s->rx_negotiation_step = 1; s->rxbits = 0; s->rxstream = ~1; } else { s->rx_negotiation_step = 0; s->rxbits = 0; s->rxstream = ~0; } /*endif*/ break; case 5: /* Parked */ break; } /*endswitch*/ } /*- End of function --------------------------------------------------------*/ static int v42_support_negotiation_tx_bit(v42_state_t *s) { int bit; if (s->calling_party) { if (s->txbits <= 0) { s->txstream = 0x3FE22; s->txbits = 36; } else if (s->txbits == 18) { s->txstream = 0x3FF22; } /*endif*/ bit = s->txstream & 1; s->txstream >>= 1; s->txbits--; } else { if (s->odp_seen && s->txadps < 10) { if (s->txbits <= 0) { if (++s->txadps >= 10) { if (s->t400_timer >= 0) { fprintf(stderr, "Deleting T400 i %d\n", s->t400_timer); span_schedule_del(&s->lapm.sched, s->t400_timer); s->t400_timer = -1; } /*endif*/ s->lapm.state = LAPM_ESTABLISH; if (s->lapm.status_callback) s->lapm.status_callback(s->lapm.status_callback_user_data, s->lapm.state); /*endif*/ s->txstream = 1; } else { s->txstream = 0x3FE8A; s->txbits = 36; } /*endif*/ } else if (s->txbits == 18) { s->txstream = 0x3FE86; } /*endif*/ bit = s->txstream & 1; s->txstream >>= 1; s->txbits--; } else { bit = 1; } /*endif*/ } /*endif*/ return bit; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) v42_rx_bit(void *user_data, int bit) { v42_state_t *s; s = (v42_state_t *) user_data; if (s->lapm.state == LAPM_DETECT) negotiation_rx_bit(s, bit); else hdlc_rx_put_bit(&s->lapm.hdlc_rx, bit); /*endif*/ } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) v42_tx_bit(void *user_data) { v42_state_t *s; int bit; s = (v42_state_t *) user_data; if (s->lapm.state == LAPM_DETECT) bit = v42_support_negotiation_tx_bit(s); else bit = hdlc_tx_get_bit(&s->lapm.hdlc_tx); /*endif*/ return bit; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) v42_set_status_callback(v42_state_t *s, v42_status_func_t callback, void *user_data) { s->lapm.status_callback = callback; s->lapm.status_callback_user_data = user_data; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) v42_restart(v42_state_t *s) { span_schedule_init(&s->lapm.sched); s->lapm.we_are_originator = s->calling_party; lapm_restart(&s->lapm); if (s->detect) { s->txstream = ~0; s->txbits = 0; s->rxstream = ~0; s->rxbits = 0; s->rxoks = 0; s->txadps = 0; s->rx_negotiation_step = 0; s->odp_seen = FALSE; fprintf(stderr, "Setting T400 i\n"); s->t400_timer = span_schedule_event(&s->lapm.sched, T_400, t400_expired, s); s->lapm.state = LAPM_DETECT; } else { s->lapm.state = LAPM_ESTABLISH; } /*endif*/ } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(v42_state_t *) v42_init(v42_state_t *s, int calling_party, int detect, v42_frame_handler_t frame_handler, void *user_data) { int alloced; if (frame_handler == NULL) return NULL; /*endif*/ alloced = FALSE; if (s == NULL) { if ((s = (v42_state_t *) malloc(sizeof(*s))) == NULL) return NULL; alloced = TRUE; } memset(s, 0, sizeof(*s)); s->calling_party = calling_party; s->detect = detect; s->lapm.iframe_receive = frame_handler; s->lapm.iframe_receive_user_data = user_data; s->lapm.debug |= (LAPM_DEBUG_LAPM_RAW | LAPM_DEBUG_LAPM_DUMP | LAPM_DEBUG_LAPM_STATE); s->lapm.t401_timer = s->lapm.t402_timer = s->lapm.t403_timer = -1; if ((s->lapm.tx_queue = queue_init(NULL, 16384, 0)) == NULL) { if (alloced) free(s); return NULL; } /*endif*/ span_log_init(&s->logging, SPAN_LOG_NONE, NULL); span_log_set_protocol(&s->logging, "V.42"); v42_restart(s); return s; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) v42_release(v42_state_t *s) { return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) v42_free(v42_state_t *s) { free(s); return 0; } /*- End of function --------------------------------------------------------*/ /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/libspandsp.dsp0000664000175000017500000004662611516506104016252 0ustar steveusteveu# Microsoft Developer Studio Project File - Name="spandsp" - Package Owner=<4> # Microsoft Developer Studio Generated Build File, Format Version 6.00 # ** DO NOT EDIT ** # TARGTYPE "Win32 (x86) Dynamic-Link Library" 0x0102 CFG=spandsp - Win32 Debug !MESSAGE This is not a valid makefile. To build this project using NMAKE, !MESSAGE use the Export Makefile command and run !MESSAGE !MESSAGE NMAKE /f "spandsp.mak". !MESSAGE !MESSAGE You can specify a configuration when running NMAKE !MESSAGE by defining the macro CFG on the command line. For example: !MESSAGE !MESSAGE NMAKE /f "spandsp.mak" CFG="spandsp - Win32 Debug" !MESSAGE !MESSAGE Possible choices for configuration are: !MESSAGE !MESSAGE "spandsp - Win32 Release" (based on "Win32 (x86) Dynamic-Link Library") !MESSAGE "spandsp - Win32 Debug" (based on "Win32 (x86) Dynamic-Link Library") !MESSAGE # Begin Project # PROP AllowPerConfigDependencies 0 # PROP Scc_ProjName "" # PROP Scc_LocalPath "" CPP=cl.exe MTL=midl.exe RSC=rc.exe !IF "$(CFG)" == "spandsp - Win32 Release" # PROP BASE Use_MFC 0 # PROP BASE Use_Debug_Libraries 0 # PROP BASE Output_Dir "Release" # PROP BASE Intermediate_Dir "Release" # PROP BASE Target_Dir "" # PROP Use_MFC 0 # PROP Use_Debug_Libraries 0 # PROP Output_Dir "Release" # PROP Intermediate_Dir "Release" # PROP Ignore_Export_Lib 0 # PROP Target_Dir "" # ADD BASE CPP /nologo /MT /W3 /GX /O2 /D "WIN32" /D "NDEBUG" /D "_WINDOWS" /D "_MBCS" /D "_USRDLL" /D HAVE_TGMATH_H /YX /FD /c # ADD CPP /nologo /MT /W3 /GX /Zi /O2 /I "." /I "..\include" /D "WIN32" /D "NDEBUG" /D "_WINDOWS" /D "_MBCS" /D "_USRDLL" /D HAVE_TGMATH_H /D "_WINDLL" /FR /FD /c # SUBTRACT CPP /YX # ADD BASE MTL /nologo /D "NDEBUG" /mktyplib203 /win32 # ADD MTL /nologo /D "NDEBUG" /mktyplib203 /win32 # ADD BASE RSC /l 0x409 /d "NDEBUG" # ADD RSC /l 0x409 /d "NDEBUG" BSC32=bscmake.exe # ADD BASE BSC32 /nologo # ADD BSC32 /nologo LINK32=link.exe # ADD BASE LINK32 kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib /nologo /dll /machine:I386 # ADD LINK32 kernel32.lib ws2_32.lib winmm.lib /nologo /dll /map /debug /machine:I386 /out:"Release/libspandsp.dll" !ELSEIF "$(CFG)" == "spandsp - Win32 Debug" # PROP BASE Use_MFC 0 # PROP BASE Use_Debug_Libraries 1 # PROP BASE Output_Dir "Debug" # PROP BASE Intermediate_Dir "Debug" # PROP BASE Target_Dir "" # PROP Use_MFC 0 # PROP Use_Debug_Libraries 1 # PROP Output_Dir "Debug" # PROP Intermediate_Dir "Debug" # PROP Ignore_Export_Lib 0 # PROP Target_Dir "" # ADD BASE CPP /nologo /MTd /W3 /Gm /GX /ZI /Od /D "WIN32" /D "_DEBUG" /D "_WINDOWS" /D "_MBCS" /D "_USRDLL" /D HAVE_TGMATH_H /YX /FD /GZ /c # ADD CPP /nologo /MTd /W3 /Gm /GX /Zi /Od /I "." /I "..\include" /D "WIN32" /D "_DEBUG" /D "_WINDOWS" /D "_MBCS" /D "_USRDLL" /D HAVE_TGMATH_H /FR /FD /GZ /c # SUBTRACT CPP /WX /YX # ADD BASE MTL /nologo /D "_DEBUG" /mktyplib203 /win32 # ADD MTL /nologo /D "_DEBUG" /mktyplib203 /win32 # ADD BASE RSC /l 0x409 /d "_DEBUG" # ADD RSC /l 0x409 /d "_DEBUG" BSC32=bscmake.exe # ADD BASE BSC32 /nologo # ADD BSC32 /nologo LINK32=link.exe # ADD BASE LINK32 kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib /nologo /dll /debug /machine:I386 /pdbtype:sept # ADD LINK32 kernel32.lib ws2_32.lib winmm.lib /nologo /dll /incremental:no /map /debug /machine:I386 /out:"Debug/libspandsp.dll" /pdbtype:sept # SUBTRACT LINK32 /nodefaultlib !ENDIF # Begin Target # Name "spandsp - Win32 Release" # Name "spandsp - Win32 Debug" # Begin Group "Source Files" # Begin Source File SOURCE=.\adsi.c # End Source File # Begin Source File SOURCE=.\async.c # End Source File # Begin Source File SOURCE=.\at_interpreter.c # End Source File # Begin Source File SOURCE=.\awgn.c # End Source File # Begin Source File SOURCE=.\bell_r2_mf.c # End Source File # Begin Source File SOURCE=.\bert.c # End Source File # Begin Source File SOURCE=.\bit_operations.c # End Source File # Begin Source File SOURCE=.\bitstream.c # End Source File # Begin Source File SOURCE=.\complex_filters.c # End Source File # Begin Source File SOURCE=.\complex_vector_float.c # End Source File # Begin Source File SOURCE=.\complex_vector_int.c # End Source File # Begin Source File SOURCE=.\crc.c # End Source File # Begin Source File SOURCE=.\dds_float.c # End Source File # Begin Source File SOURCE=.\dds_int.c # End Source File # Begin Source File SOURCE=.\dtmf.c # End Source File # Begin Source File SOURCE=.\echo.c # End Source File # Begin Source File SOURCE=.\fax.c # End Source File # Begin Source File SOURCE=.\fax_modems.c # End Source File # Begin Source File SOURCE=.\fsk.c # End Source File # Begin Source File SOURCE=.\g711.c # End Source File # Begin Source File SOURCE=.\g722.c # End Source File # Begin Source File SOURCE=.\g726.c # End Source File # Begin Source File SOURCE=.\gsm0610_decode.c # End Source File # Begin Source File SOURCE=.\gsm0610_encode.c # End Source File # Begin Source File SOURCE=.\gsm0610_long_term.c # End Source File # Begin Source File SOURCE=.\gsm0610_lpc.c # End Source File # Begin Source File SOURCE=.\gsm0610_preprocess.c # End Source File # Begin Source File SOURCE=.\gsm0610_rpe.c # End Source File # Begin Source File SOURCE=.\gsm0610_short_term.c # End Source File # Begin Source File SOURCE=.\hdlc.c # End Source File # Begin Source File SOURCE=.\ima_adpcm.c # End Source File # Begin Source File SOURCE=.\image_translate.c # End Source File # Begin Source File SOURCE=.\logging.c # End Source File # Begin Source File SOURCE=.\lpc10_analyse.c # End Source File # Begin Source File SOURCE=.\lpc10_decode.c # End Source File # Begin Source File SOURCE=.\lpc10_encode.c # End Source File # Begin Source File SOURCE=.\lpc10_placev.c # End Source File # Begin Source File SOURCE=.\lpc10_voicing.c # End Source File # Begin Source File SOURCE=.\modem_echo.c # End Source File # Begin Source File SOURCE=.\modem_connect_tones.c # End Source File # Begin Source File SOURCE=.\noise.c # End Source File # Begin Source File SOURCE=.\oki_adpcm.c # End Source File # Begin Source File SOURCE=.\playout.c # End Source File # Begin Source File SOURCE=.\plc.c # End Source File # Begin Source File SOURCE=.\power_meter.c # End Source File # Begin Source File SOURCE=.\queue.c # End Source File # Begin Source File SOURCE=.\schedule.c # End Source File # Begin Source File SOURCE=.\sig_tone.c # End Source File # Begin Source File SOURCE=.\silence_gen.c # End Source File # Begin Source File SOURCE=.\super_tone_rx.c # End Source File # Begin Source File SOURCE=.\super_tone_tx.c # End Source File # Begin Source File SOURCE=.\swept_tone.c # End Source File # Begin Source File SOURCE=.\t4_rx.c # End Source File # Begin Source File SOURCE=.\t4_tx.c # End Source File # Begin Source File SOURCE=.\t30.c # End Source File # Begin Source File SOURCE=.\t30_api.c # End Source File # Begin Source File SOURCE=.\t30_logging.c # End Source File # Begin Source File SOURCE=.\t31.c # End Source File # Begin Source File SOURCE=.\t35.c # End Source File # Begin Source File SOURCE=.\t38_core.c # End Source File # Begin Source File SOURCE=.\t38_gateway.c # End Source File # Begin Source File SOURCE=.\t38_non_ecm_buffer.c # End Source File # Begin Source File SOURCE=.\t38_terminal.c # End Source File # Begin Source File SOURCE=.\testcpuid.c # End Source File # Begin Source File SOURCE=.\time_scale.c # End Source File # Begin Source File SOURCE=.\timezone.c # End Source File # Begin Source File SOURCE=.\tone_detect.c # End Source File # Begin Source File SOURCE=.\tone_generate.c # End Source File # Begin Source File SOURCE=.\v17rx.c # End Source File # Begin Source File SOURCE=.\v17tx.c # End Source File # Begin Source File SOURCE=.\v18.c # End Source File # Begin Source File SOURCE=.\v22bis_rx.c # End Source File # Begin Source File SOURCE=.\v22bis_tx.c # End Source File # Begin Source File SOURCE=.\v27ter_rx.c # End Source File # Begin Source File SOURCE=.\v27ter_tx.c # End Source File # Begin Source File SOURCE=.\v29rx.c # End Source File # Begin Source File SOURCE=.\v29tx.c # End Source File # Begin Source File SOURCE=.\v42.c # End Source File # Begin Source File SOURCE=.\v42bis.c # End Source File # Begin Source File SOURCE=.\v8.c # End Source File # Begin Source File SOURCE=.\vector_float.c # End Source File # Begin Source File SOURCE=.\vector_int.c # End Source File # Begin Source File SOURCE=.\.\msvc\gettimeofday.c # End Source File # End Group # Begin Group "Header Files" # Begin Source File SOURCE=.\spandsp/adsi.h # End Source File # Begin Source File SOURCE=.\spandsp/async.h # End Source File # Begin Source File SOURCE=.\spandsp/arctan2.h # End Source File # Begin Source File SOURCE=.\spandsp/at_interpreter.h # End Source File # Begin Source File SOURCE=.\spandsp/awgn.h # End Source File # Begin Source File SOURCE=.\spandsp/bell_r2_mf.h # End Source File # Begin Source File SOURCE=.\spandsp/bert.h # End Source File # Begin Source File SOURCE=.\spandsp/biquad.h # End Source File # Begin Source File SOURCE=.\spandsp/bit_operations.h # End Source File # Begin Source File SOURCE=.\spandsp/bitstream.h # End Source File # Begin Source File SOURCE=.\spandsp/crc.h # End Source File # Begin Source File SOURCE=.\spandsp/complex.h # End Source File # Begin Source File SOURCE=.\spandsp/complex_filters.h # End Source File # Begin Source File SOURCE=.\spandsp/complex_vector_float.h # End Source File # Begin Source File SOURCE=.\spandsp/complex_vector_int.h # End Source File # Begin Source File SOURCE=.\spandsp/dc_restore.h # End Source File # Begin Source File SOURCE=.\spandsp/dds.h # End Source File # Begin Source File SOURCE=.\spandsp/dtmf.h # End Source File # Begin Source File SOURCE=.\spandsp/echo.h # End Source File # Begin Source File SOURCE=.\spandsp/fast_convert.h # End Source File # Begin Source File SOURCE=.\spandsp/fax.h # End Source File # Begin Source File SOURCE=.\spandsp/fax_modems.h # End Source File # Begin Source File SOURCE=.\spandsp/fir.h # End Source File # Begin Source File SOURCE=.\spandsp/fsk.h # End Source File # Begin Source File SOURCE=.\spandsp/g168models.h # End Source File # Begin Source File SOURCE=.\spandsp/g711.h # End Source File # Begin Source File SOURCE=.\spandsp/g722.h # End Source File # Begin Source File SOURCE=.\spandsp/g726.h # End Source File # Begin Source File SOURCE=.\spandsp/gsm0610.h # End Source File # Begin Source File SOURCE=.\spandsp/hdlc.h # End Source File # Begin Source File SOURCE=.\spandsp/ima_adpcm.h # End Source File # Begin Source File SOURCE=.\spandsp/image_translate.h # End Source File # Begin Source File SOURCE=.\spandsp/logging.h # End Source File # Begin Source File SOURCE=.\spandsp/lpc10.h # End Source File # Begin Source File SOURCE=.\spandsp/modem_echo.h # End Source File # Begin Source File SOURCE=.\spandsp/modem_connect_tones.h # End Source File # Begin Source File SOURCE=.\spandsp/noise.h # End Source File # Begin Source File SOURCE=.\spandsp/oki_adpcm.h # End Source File # Begin Source File SOURCE=.\spandsp/playout.h # End Source File # Begin Source File SOURCE=.\spandsp/plc.h # End Source File # Begin Source File SOURCE=.\spandsp/power_meter.h # End Source File # Begin Source File SOURCE=.\spandsp/queue.h # End Source File # Begin Source File SOURCE=.\spandsp/saturated.h # End Source File # Begin Source File SOURCE=.\spandsp/schedule.h # End Source File # Begin Source File SOURCE=.\spandsp/sig_tone.h # End Source File # Begin Source File SOURCE=.\spandsp/silence_gen.h # End Source File # Begin Source File SOURCE=.\spandsp/super_tone_rx.h # End Source File # Begin Source File SOURCE=.\spandsp/super_tone_tx.h # End Source File # Begin Source File SOURCE=.\spandsp/swept_tone.h # End Source File # Begin Source File SOURCE=.\spandsp/t30.h # End Source File # Begin Source File SOURCE=.\spandsp/t30_api.h # End Source File # Begin Source File SOURCE=.\spandsp/t30_fcf.h # End Source File # Begin Source File SOURCE=.\spandsp/t30_logging.h # End Source File # Begin Source File SOURCE=.\spandsp/t31.h # End Source File # Begin Source File SOURCE=.\spandsp/t35.h # End Source File # Begin Source File SOURCE=.\spandsp/t38_core.h # End Source File # Begin Source File SOURCE=.\spandsp/t38_gateway.h # End Source File # Begin Source File SOURCE=.\spandsp/t38_non_ecm_buffer.h # End Source File # Begin Source File SOURCE=.\spandsp/t38_terminal.h # End Source File # Begin Source File SOURCE=.\spandsp/t4_rx.h # End Source File # Begin Source File SOURCE=.\spandsp/t4_tx.h # End Source File # Begin Source File SOURCE=.\spandsp/t4_t6_decode.h # End Source File # Begin Source File SOURCE=.\spandsp/t4_t6_encode.h # End Source File # Begin Source File SOURCE=.\spandsp/telephony.h # End Source File # Begin Source File SOURCE=.\spandsp/time_scale.h # End Source File # Begin Source File SOURCE=.\spandsp/timezone.h # End Source File # Begin Source File SOURCE=.\spandsp/timing.h # End Source File # Begin Source File SOURCE=.\spandsp/tone_detect.h # End Source File # Begin Source File SOURCE=.\spandsp/tone_generate.h # End Source File # Begin Source File SOURCE=.\spandsp/v17rx.h # End Source File # Begin Source File SOURCE=.\spandsp/v17tx.h # End Source File # Begin Source File SOURCE=.\spandsp/v18.h # End Source File # Begin Source File SOURCE=.\spandsp/v22bis.h # End Source File # Begin Source File SOURCE=.\spandsp/v27ter_rx.h # End Source File # Begin Source File SOURCE=.\spandsp/v27ter_tx.h # End Source File # Begin Source File SOURCE=.\spandsp/v29rx.h # End Source File # Begin Source File SOURCE=.\spandsp/v29tx.h # End Source File # Begin Source File SOURCE=.\spandsp/v42.h # End Source File # Begin Source File SOURCE=.\spandsp/v42bis.h # End Source File # Begin Source File SOURCE=.\spandsp/v8.h # End Source File # Begin Source File SOURCE=.\spandsp/vector_float.h # End Source File # Begin Source File SOURCE=.\spandsp/vector_int.h # End Source File # Begin Source File SOURCE=.\spandsp/version.h # End Source File # Begin Source File SOURCE=.\spandsp/private/adsi.h # End Source File # Begin Source File SOURCE=.\spandsp/private/async.h # End Source File # Begin Source File SOURCE=.\spandsp/private/at_interpreter.h # End Source File # Begin Source File SOURCE=.\spandsp/private/awgn.h # End Source File # Begin Source File SOURCE=.\spandsp/private/bell_r2_mf.h # End Source File # Begin Source File SOURCE=.\spandsp/private/bert.h # End Source File # Begin Source File SOURCE=.\spandsp/private/bitstream.h # End Source File # Begin Source File SOURCE=.\spandsp/private/dtmf.h # End Source File # Begin Source File SOURCE=.\spandsp/private/echo.h # End Source File # Begin Source File SOURCE=.\spandsp/private/fax.h # End Source File # Begin Source File SOURCE=.\spandsp/private/fax_modems.h # End Source File # Begin Source File SOURCE=.\spandsp/private/fsk.h # End Source File # Begin Source File SOURCE=.\spandsp/private/g711.h # End Source File # Begin Source File SOURCE=.\spandsp/private/g722.h # End Source File # Begin Source File SOURCE=.\spandsp/private/g726.h # End Source File # Begin Source File SOURCE=.\spandsp/private/gsm0610.h # End Source File # Begin Source File SOURCE=.\spandsp/private/hdlc.h # End Source File # Begin Source File SOURCE=.\spandsp/private/ima_adpcm.h # End Source File # Begin Source File SOURCE=.\spandsp/private/image_translate.h # End Source File # Begin Source File SOURCE=.\spandsp/private/logging.h # End Source File # Begin Source File SOURCE=.\spandsp/private/lpc10.h # End Source File # Begin Source File SOURCE=.\spandsp/private/modem_connect_tones.h # End Source File # Begin Source File SOURCE=.\spandsp/private/modem_echo.h # End Source File # Begin Source File SOURCE=.\spandsp/private/noise.h # End Source File # Begin Source File SOURCE=.\spandsp/private/oki_adpcm.h # End Source File # Begin Source File SOURCE=.\spandsp/private/queue.h # End Source File # Begin Source File SOURCE=.\spandsp/private/schedule.h # End Source File # Begin Source File SOURCE=.\spandsp/private/sig_tone.h # End Source File # Begin Source File SOURCE=.\spandsp/private/silence_gen.h # End Source File # Begin Source File SOURCE=.\spandsp/private/super_tone_rx.h # End Source File # Begin Source File SOURCE=.\spandsp/private/super_tone_tx.h # End Source File # Begin Source File SOURCE=.\spandsp/private/swept_tone.h # End Source File # Begin Source File SOURCE=.\spandsp/private/t30.h # End Source File # Begin Source File SOURCE=.\spandsp/private/t30_dis_dtc_dcs_bits.h # End Source File # Begin Source File SOURCE=.\spandsp/private/t31.h # End Source File # Begin Source File SOURCE=.\spandsp/private/t38_core.h # End Source File # Begin Source File SOURCE=.\spandsp/private/t38_gateway.h # End Source File # Begin Source File SOURCE=.\spandsp/private/t38_non_ecm_buffer.h # End Source File # Begin Source File SOURCE=.\spandsp/private/t38_terminal.h # End Source File # Begin Source File SOURCE=.\spandsp/private/t4_rx.h # End Source File # Begin Source File SOURCE=.\spandsp/private/t4_tx.h # End Source File # Begin Source File SOURCE=.\spandsp/private/t4_t6_decode.h # End Source File # Begin Source File SOURCE=.\spandsp/private/t4_t6_encode.h # End Source File # Begin Source File SOURCE=.\spandsp/private/time_scale.h # End Source File # Begin Source File SOURCE=.\spandsp/private/timezone.h # End Source File # Begin Source File SOURCE=.\spandsp/private/tone_detect.h # End Source File # Begin Source File SOURCE=.\spandsp/private/tone_generate.h # End Source File # Begin Source File SOURCE=.\spandsp/private/v17rx.h # End Source File # Begin Source File SOURCE=.\spandsp/private/v17tx.h # End Source File # Begin Source File SOURCE=.\spandsp/private/v18.h # End Source File # Begin Source File SOURCE=.\spandsp/private/v22bis.h # End Source File # Begin Source File SOURCE=.\spandsp/private/v27ter_rx.h # End Source File # Begin Source File SOURCE=.\spandsp/private/v27ter_tx.h # End Source File # Begin Source File SOURCE=.\spandsp/private/v29rx.h # End Source File # Begin Source File SOURCE=.\spandsp/private/v29tx.h # End Source File # Begin Source File SOURCE=.\spandsp/private/v42.h # End Source File # Begin Source File SOURCE=.\spandsp/private/v42bis.h # End Source File # Begin Source File SOURCE=.\spandsp/private/v8.h # End Source File # Begin Source File SOURCE=.\spandsp/expose.h # End Source File # Begin Source File SOURCE=.\spandsp.h # End Source File # End Group # Begin Group "Resource Files" # PROP Default_Filter "ico;cur;bmp;dlg;rc2;rct;bin;rgs;gif;jpg;jpeg;jpe" # End Group # End Target # End Project spandsp-0.0.6/src/silence_gen.c0000664000175000017500000001162511422612262016010 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * silence_gen.c - A silence generator, for inserting timed silences. * * Written by Steve Underwood * * Copyright (C) 2006 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \file */ #if defined(HAVE_CONFIG_H) #include "config.h" #endif #include #include #include #include #include #if defined(HAVE_TGMATH_H) #include #endif #if defined(HAVE_MATH_H) #include #endif #include "floating_fudge.h" #include #include #include "spandsp/telephony.h" #include "spandsp/logging.h" #include "spandsp/async.h" #include "spandsp/silence_gen.h" #include "spandsp/private/silence_gen.h" SPAN_DECLARE_NONSTD(int) silence_gen(silence_gen_state_t *s, int16_t *amp, int max_len) { if (s->remaining_samples != INT_MAX) { if (max_len >= s->remaining_samples) { max_len = s->remaining_samples; if (max_len && s->status_handler) s->status_handler(s->status_user_data, SIG_STATUS_SHUTDOWN_COMPLETE); } s->remaining_samples -= max_len; } if (INT_MAX - s->total_samples >= max_len) s->total_samples += max_len; memset(amp, 0, max_len*sizeof(int16_t)); return max_len; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) silence_gen_always(silence_gen_state_t *s) { s->remaining_samples = INT_MAX; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) silence_gen_set(silence_gen_state_t *s, int silent_samples) { s->remaining_samples = silent_samples; s->total_samples = 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) silence_gen_alter(silence_gen_state_t *s, int silent_samples) { /* Block negative silences */ if (silent_samples < 0) { if (-silent_samples > s->remaining_samples) silent_samples = -s->remaining_samples; } s->remaining_samples += silent_samples; s->total_samples += silent_samples; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) silence_gen_remainder(silence_gen_state_t *s) { return s->remaining_samples; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) silence_gen_generated(silence_gen_state_t *s) { return s->total_samples; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) silence_gen_status_handler(silence_gen_state_t *s, modem_tx_status_func_t handler, void *user_data) { s->status_handler = handler; s->status_user_data = user_data; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(silence_gen_state_t *) silence_gen_init(silence_gen_state_t *s, int silent_samples) { if (s == NULL) { if ((s = (silence_gen_state_t *) malloc(sizeof(*s))) == NULL) return NULL; } memset(s, 0, sizeof(*s)); s->remaining_samples = silent_samples; return s; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) silence_gen_release(silence_gen_state_t *s) { return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) silence_gen_free(silence_gen_state_t *s) { if (s) free(s); return 0; } /*- End of function --------------------------------------------------------*/ /* The following dummy routines, to absorb data, don't really have a proper home, so they have been put here. */ SPAN_DECLARE_NONSTD(int) span_dummy_rx(void *user_data, const int16_t amp[], int len) { return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) span_dummy_mod(void *user_data, int16_t amp[], int len) { return len; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE_NONSTD(int) span_dummy_rx_fillin(void *user_data, int len) { return 0; } /*- End of function --------------------------------------------------------*/ /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/super_tone_tx.c0000664000175000017500000002170311422612262016431 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * super_tone_tx.c - Flexible telephony supervisory tone generation. * * Written by Steve Underwood * * Copyright (C) 2003 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \file */ #if defined(HAVE_CONFIG_H) #include "config.h" #endif #include #include #include #include #include #include #include #if defined(HAVE_TGMATH_H) #include #endif #if defined(HAVE_MATH_H) #include #endif #include "floating_fudge.h" #include "spandsp/telephony.h" #include "spandsp/fast_convert.h" #include "spandsp/complex.h" #include "spandsp/dds.h" #include "spandsp/tone_generate.h" #include "spandsp/super_tone_tx.h" #include "spandsp/private/tone_generate.h" #include "spandsp/private/super_tone_tx.h" /* The tone played to wake folk up when they have left the phone off hook is an oddity amongst supervisory tones. It is designed to sound loud and nasty. Most tones are one or two pure sine pitches, or one AM moduluated pitch. This alert tone varies between countries, but AT&T are a typical example. AT&T Receiver Off-Hook Tone is 1400 Hz, 2060 Hz, 2450 Hz and 2600 Hz at 0dBm0/frequency on and off every .1 second. On some older space division switching systems Receiver Off-Hook was 1400 Hz, 2060 Hz, 2450 Hz and 2600 Hz at +5 VU on and off every .1 second. On a No. 5 ESS this continues for 30 seconds. On a No. 2/2B ESS this continues for 40 seconds. On some other AT&T switches there are two iterations of 50 seconds each. */ SPAN_DECLARE(super_tone_tx_step_t *) super_tone_tx_make_step(super_tone_tx_step_t *s, float f1, float l1, float f2, float l2, int length, int cycles) { if (s == NULL) { if ((s = (super_tone_tx_step_t *) malloc(sizeof(*s))) == NULL) return NULL; } if (f1 >= 1.0f) { s->tone[0].phase_rate = dds_phase_ratef(f1); s->tone[0].gain = dds_scaling_dbm0f(l1); } else { s->tone[0].phase_rate = 0; s->tone[0].gain = 0.0f; } if (f2 >= 1.0f) { s->tone[1].phase_rate = dds_phase_ratef(f2); s->tone[1].gain = dds_scaling_dbm0f(l2); } else { s->tone[1].phase_rate = 0; s->tone[1].gain = 0.0f; } s->tone_on = (f1 > 0.0f); s->length = length*SAMPLE_RATE/1000; s->cycles = cycles; s->next = NULL; s->nest = NULL; return s; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) super_tone_tx_free_tone(super_tone_tx_step_t *s) { super_tone_tx_step_t *t; while (s) { /* Follow nesting... */ if (s->nest) super_tone_tx_free_tone(s->nest); t = s; s = s->next; free(t); } return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(super_tone_tx_state_t *) super_tone_tx_init(super_tone_tx_state_t *s, super_tone_tx_step_t *tree) { if (tree == NULL) return NULL; if (s == NULL) { if ((s = (super_tone_tx_state_t *) malloc(sizeof(*s))) == NULL) return NULL; } memset(s, 0, sizeof(*s)); s->level = 0; s->levels[0] = tree; s->cycles[0] = tree->cycles; s->current_position = 0; return s; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) super_tone_tx_release(super_tone_tx_state_t *s) { return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) super_tone_tx_free(super_tone_tx_state_t *s) { if (s) free(s); return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) super_tone_tx(super_tone_tx_state_t *s, int16_t amp[], int max_samples) { int samples; int limit; int len; int i; float xamp; super_tone_tx_step_t *tree; if (s->level < 0 || s->level > 3) return 0; samples = 0; tree = s->levels[s->level]; while (tree && samples < max_samples) { if (tree->tone_on) { /* A period of tone. A length of zero means infinite length. */ if (s->current_position == 0) { /* New step - prepare the tone generator */ for (i = 0; i < 4; i++) s->tone[i] = tree->tone[i]; } len = tree->length - s->current_position; if (tree->length == 0) { len = max_samples - samples; /* We just need to make current position non-zero */ s->current_position = 1; } else if (len > max_samples - samples) { len = max_samples - samples; s->current_position += len; } else { s->current_position = 0; } if (s->tone[0].phase_rate < 0) { for (limit = len + samples; samples < limit; samples++) { /* There must be two, and only two tones */ xamp = dds_modf(&s->phase[0], -s->tone[0].phase_rate, s->tone[0].gain, 0) *(1.0f + dds_modf(&s->phase[1], s->tone[1].phase_rate, s->tone[1].gain, 0)); amp[samples] = (int16_t) lfastrintf(xamp); } } else { for (limit = len + samples; samples < limit; samples++) { xamp = 0.0f; for (i = 0; i < 4; i++) { if (s->tone[i].phase_rate == 0) break; xamp += dds_modf(&s->phase[i], s->tone[i].phase_rate, s->tone[i].gain, 0); } amp[samples] = (int16_t) lfastrintf(xamp); } } if (s->current_position) return samples; } else if (tree->length) { /* A period of silence. The length must always be explicitly stated. A length of zero does not give infinite silence. */ len = tree->length - s->current_position; if (len > max_samples - samples) { len = max_samples - samples; s->current_position += len; } else { s->current_position = 0; } memset(amp + samples, 0, sizeof(uint16_t)*len); samples += len; if (s->current_position) return samples; } /* Nesting has priority... */ if (tree->nest) { tree = tree->nest; s->levels[++s->level] = tree; s->cycles[s->level] = tree->cycles; } else { /* ...Next comes repeating, and finally moving forward a step. */ /* When repeating, note that zero cycles really means endless cycles. */ while (tree->cycles && --s->cycles[s->level] <= 0) { tree = tree->next; if (tree) { /* A fresh new step. */ s->levels[s->level] = tree; s->cycles[s->level] = tree->cycles; break; } /* If we are nested we need to pop, otherwise this is the end. */ if (s->level <= 0) { /* Mark the tone as completed */ s->levels[0] = NULL; break; } tree = s->levels[--s->level]; } } } return samples; } /*- End of function --------------------------------------------------------*/ /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/fax.c0000664000175000017500000006131611422612261014314 0ustar steveusteveu//#define LOG_FAX_AUDIO /* * SpanDSP - a series of DSP components for telephony * * fax.c - Analogue line ITU T.30 FAX transfer processing * * Written by Steve Underwood * * Copyright (C) 2003, 2005, 2006 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \file */ #if defined(HAVE_CONFIG_H) #include "config.h" #endif #include #include #include #include #if defined(HAVE_TGMATH_H) #include #endif #if defined(HAVE_MATH_H) #include #endif #include "floating_fudge.h" #include #include #include #if defined(LOG_FAX_AUDIO) #include #endif #include #include "spandsp/telephony.h" #include "spandsp/logging.h" #include "spandsp/queue.h" #include "spandsp/dc_restore.h" #include "spandsp/vector_int.h" #include "spandsp/power_meter.h" #include "spandsp/complex.h" #include "spandsp/tone_detect.h" #include "spandsp/tone_generate.h" #include "spandsp/async.h" #include "spandsp/hdlc.h" #include "spandsp/silence_gen.h" #include "spandsp/super_tone_rx.h" #include "spandsp/fsk.h" #include "spandsp/modem_connect_tones.h" #include "spandsp/v8.h" #include "spandsp/v29tx.h" #include "spandsp/v29rx.h" #include "spandsp/v27ter_tx.h" #include "spandsp/v27ter_rx.h" #include "spandsp/v17tx.h" #include "spandsp/v17rx.h" #include "spandsp/t4_rx.h" #include "spandsp/t4_tx.h" #if defined(SPANDSP_SUPPORT_T85) #include "spandsp/t81_t82_arith_coding.h" #include "spandsp/t85.h" #endif #include "spandsp/t4_t6_decode.h" #include "spandsp/t4_t6_encode.h" #include "spandsp/t30_fcf.h" #include "spandsp/t35.h" #include "spandsp/t30.h" #include "spandsp/t30_api.h" #include "spandsp/t30_logging.h" #include "spandsp/fax_modems.h" #include "spandsp/fax.h" #include "spandsp/private/logging.h" #include "spandsp/private/silence_gen.h" #include "spandsp/private/fsk.h" #include "spandsp/private/modem_connect_tones.h" #include "spandsp/private/v8.h" #include "spandsp/private/v17tx.h" #include "spandsp/private/v17rx.h" #include "spandsp/private/v27ter_tx.h" #include "spandsp/private/v27ter_rx.h" #include "spandsp/private/v29tx.h" #include "spandsp/private/v29rx.h" #include "spandsp/private/hdlc.h" #include "spandsp/private/fax_modems.h" #if defined(SPANDSP_SUPPORT_T85) #include "spandsp/private/t81_t82_arith_coding.h" #include "spandsp/private/t85.h" #endif #include "spandsp/private/t4_t6_decode.h" #include "spandsp/private/t4_t6_encode.h" #include "spandsp/private/t4_rx.h" #include "spandsp/private/t4_tx.h" #include "spandsp/private/t30.h" #include "spandsp/private/fax.h" #define HDLC_FRAMING_OK_THRESHOLD 8 static void fax_send_hdlc(void *user_data, const uint8_t *msg, int len) { fax_state_t *s; s = (fax_state_t *) user_data; hdlc_tx_frame(&s->modems.hdlc_tx, msg, len); } /*- End of function --------------------------------------------------------*/ static void tone_detected(void *user_data, int tone, int level, int delay) { t30_state_t *s; s = (t30_state_t *) user_data; span_log(&s->logging, SPAN_LOG_FLOW, "%s detected (%ddBm0)\n", modem_connect_tone_to_str(tone), level); } /*- End of function --------------------------------------------------------*/ #if 0 static void v8_handler(void *user_data, v8_parms_t *result) { fax_state_t *s; s = (fax_state_t *) user_data; span_log(&s->logging, SPAN_LOG_FLOW, "V.8 report received\n"); } /*- End of function --------------------------------------------------------*/ #endif static void hdlc_underflow_handler(void *user_data) { t30_state_t *s; s = (t30_state_t *) user_data; t30_front_end_status(s, T30_FRONT_END_SEND_STEP_COMPLETE); } /*- End of function --------------------------------------------------------*/ static void set_rx_handler(fax_state_t *s, span_rx_handler_t *rx_handler, span_rx_fillin_handler_t *fillin_handler, void *user_data) { s->modems.rx_handler = rx_handler; s->modems.rx_fillin_handler = fillin_handler; s->modems.rx_user_data = user_data; } /*- End of function --------------------------------------------------------*/ static void set_tx_handler(fax_state_t *s, span_tx_handler_t *handler, void *user_data) { s->modems.tx_handler = handler; s->modems.tx_user_data = user_data; } /*- End of function --------------------------------------------------------*/ static void set_next_tx_handler(fax_state_t *s, span_tx_handler_t *handler, void *user_data) { s->modems.next_tx_handler = handler; s->modems.next_tx_user_data = user_data; } /*- End of function --------------------------------------------------------*/ static int v17_v21_rx(void *user_data, const int16_t amp[], int len) { fax_state_t *t; fax_modems_state_t *s; t = (fax_state_t *) user_data; s = &t->modems; v17_rx(&s->v17_rx, amp, len); if (t->t30.rx_trained) { /* The fast modem has trained, so we no longer need to run the slow one in parallel. */ span_log(&t->logging, SPAN_LOG_FLOW, "Switching from V.17 + V.21 to V.17 (%.2fdBm0)\n", v17_rx_signal_power(&s->v17_rx)); set_rx_handler(t, (span_rx_handler_t *) &v17_rx, (span_rx_fillin_handler_t *) &v17_rx_fillin, &s->v17_rx); } else { fsk_rx(&s->v21_rx, amp, len); if (t->t30.rx_frame_received) { /* We have received something, and the fast modem has not trained. We must be receiving valid V.21 */ span_log(&t->logging, SPAN_LOG_FLOW, "Switching from V.17 + V.21 to V.21 (%.2fdBm0)\n", fsk_rx_signal_power(&s->v21_rx)); set_rx_handler(t, (span_rx_handler_t *) &fsk_rx, (span_rx_fillin_handler_t *) &fsk_rx_fillin, &s->v21_rx); } } return 0; } /*- End of function --------------------------------------------------------*/ static int v17_v21_rx_fillin(void *user_data, int len) { fax_state_t *t; fax_modems_state_t *s; t = (fax_state_t *) user_data; s = &t->modems; v17_rx_fillin(&s->v17_rx, len); fsk_rx_fillin(&s->v21_rx, len); return 0; } /*- End of function --------------------------------------------------------*/ static int v27ter_v21_rx(void *user_data, const int16_t amp[], int len) { fax_state_t *t; fax_modems_state_t *s; t = (fax_state_t *) user_data; s = &t->modems; v27ter_rx(&s->v27ter_rx, amp, len); if (t->t30.rx_trained) { /* The fast modem has trained, so we no longer need to run the slow one in parallel. */ span_log(&t->logging, SPAN_LOG_FLOW, "Switching from V.27ter + V.21 to V.27ter (%.2fdBm0)\n", v27ter_rx_signal_power(&s->v27ter_rx)); set_rx_handler(t, (span_rx_handler_t *) &v27ter_rx, (span_rx_fillin_handler_t *) &v27ter_rx_fillin, &s->v27ter_rx); } else { fsk_rx(&s->v21_rx, amp, len); if (t->t30.rx_frame_received) { /* We have received something, and the fast modem has not trained. We must be receiving valid V.21 */ span_log(&s->logging, SPAN_LOG_FLOW, "Switching from V.27ter + V.21 to V.21 (%.2fdBm0)\n", fsk_rx_signal_power(&s->v21_rx)); set_rx_handler(t, (span_rx_handler_t *) &fsk_rx, (span_rx_fillin_handler_t *) &fsk_rx_fillin, &s->v21_rx); } } return 0; } /*- End of function --------------------------------------------------------*/ static int v27ter_v21_rx_fillin(void *user_data, int len) { fax_state_t *t; fax_modems_state_t *s; t = (fax_state_t *) user_data; s = &t->modems; v27ter_rx_fillin(&s->v27ter_rx, len); fsk_rx_fillin(&s->v21_rx, len); return 0; } /*- End of function --------------------------------------------------------*/ static int v29_v21_rx(void *user_data, const int16_t amp[], int len) { fax_state_t *t; fax_modems_state_t *s; t = (fax_state_t *) user_data; s = &t->modems; v29_rx(&s->v29_rx, amp, len); if (t->t30.rx_trained) { /* The fast modem has trained, so we no longer need to run the slow one in parallel. */ span_log(&t->logging, SPAN_LOG_FLOW, "Switching from V.29 + V.21 to V.29 (%.2fdBm0)\n", v29_rx_signal_power(&s->v29_rx)); set_rx_handler(t, (span_rx_handler_t *) &v29_rx, (span_rx_fillin_handler_t *) &v29_rx_fillin, &s->v29_rx); } else { fsk_rx(&s->v21_rx, amp, len); if (t->t30.rx_frame_received) { /* We have received something, and the fast modem has not trained. We must be receiving valid V.21 */ span_log(&t->logging, SPAN_LOG_FLOW, "Switching from V.29 + V.21 to V.21 (%.2fdBm0)\n", fsk_rx_signal_power(&s->v21_rx)); set_rx_handler(t, (span_rx_handler_t *) &fsk_rx, (span_rx_fillin_handler_t *) &fsk_rx_fillin, &s->v21_rx); } } return 0; } /*- End of function --------------------------------------------------------*/ static int v29_v21_rx_fillin(void *user_data, int len) { fax_state_t *t; fax_modems_state_t *s; t = (fax_state_t *) user_data; s = &t->modems; v29_rx_fillin(&s->v29_rx, len); fsk_rx_fillin(&s->v21_rx, len); return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE_NONSTD(int) fax_rx(fax_state_t *s, int16_t *amp, int len) { int i; #if defined(LOG_FAX_AUDIO) if (s->modems.audio_rx_log >= 0) write(s->modems.audio_rx_log, amp, len*sizeof(int16_t)); #endif for (i = 0; i < len; i++) amp[i] = dc_restore(&s->modems.dc_restore, amp[i]); s->modems.rx_handler(s->modems.rx_user_data, amp, len); t30_timer_update(&s->t30, len); return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE_NONSTD(int) fax_rx_fillin(fax_state_t *s, int len) { /* To mitigate the effect of lost packets on a packet network we should try to sustain the status quo. If there is no receive modem running, keep things that way. If there is a receive modem running, try to sustain its operation, without causing a phase hop, or letting its adaptive functions diverge. */ #if defined(LOG_FAX_AUDIO) if (s->modems.audio_rx_log >= 0) { int i; #if defined(_MSC_VER) int16_t *amp = (int16_t *) _alloca(sizeof(int16_t)*len); #else int16_t amp[len]; #endif vec_zeroi16(amp, len); write(s->modems.audio_rx_log, amp, len*sizeof(int16_t)); } #endif /* Call the fillin function of the current modem (if there is one). */ s->modems.rx_fillin_handler(s->modems.rx_user_data, len); t30_timer_update(&s->t30, len); return 0; } /*- End of function --------------------------------------------------------*/ static int set_next_tx_type(fax_state_t *s) { fax_modems_state_t *t; t = &s->modems; if (t->next_tx_handler) { set_tx_handler(s, t->next_tx_handler, t->next_tx_user_data); t->next_tx_handler = NULL; return 0; } /* If there is nothing else to change to, so use zero length silence */ silence_gen_alter(&t->silence_gen, 0); set_tx_handler(s, (span_tx_handler_t *) &silence_gen, &t->silence_gen); set_next_tx_handler(s, (span_tx_handler_t *) NULL, NULL); t->transmit = FALSE; return -1; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE_NONSTD(int) fax_tx(fax_state_t *s, int16_t *amp, int max_len) { int len; #if defined(LOG_FAX_AUDIO) int required_len; required_len = max_len; #endif len = 0; if (s->modems.transmit) { while ((len += s->modems.tx_handler(s->modems.tx_user_data, amp + len, max_len - len)) < max_len) { /* Allow for a change of tx handler within a block */ if (set_next_tx_type(s) && s->modems.current_tx_type != T30_MODEM_NONE && s->modems.current_tx_type != T30_MODEM_DONE) t30_front_end_status(&s->t30, T30_FRONT_END_SEND_STEP_COMPLETE); if (!s->modems.transmit) { if (s->modems.transmit_on_idle) { /* Pad to the requested length with silence */ memset(amp + len, 0, (max_len - len)*sizeof(int16_t)); len = max_len; } break; } } } else { if (s->modems.transmit_on_idle) { /* Pad to the requested length with silence */ memset(amp, 0, max_len*sizeof(int16_t)); len = max_len; } } #if defined(LOG_FAX_AUDIO) if (s->modems.audio_tx_log >= 0) { if (len < required_len) memset(amp + len, 0, (required_len - len)*sizeof(int16_t)); write(s->modems.audio_tx_log, amp, required_len*sizeof(int16_t)); } #endif return len; } /*- End of function --------------------------------------------------------*/ static void fax_set_rx_type(void *user_data, int type, int bit_rate, int short_train, int use_hdlc) { fax_state_t *s; put_bit_func_t put_bit_func; void *put_bit_user_data; fax_modems_state_t *t; s = (fax_state_t *) user_data; t = &s->modems; span_log(&s->logging, SPAN_LOG_FLOW, "Set rx type %d\n", type); if (t->current_rx_type == type) return; t->current_rx_type = type; t->rx_bit_rate = bit_rate; if (use_hdlc) { put_bit_func = (put_bit_func_t) hdlc_rx_put_bit; put_bit_user_data = (void *) &t->hdlc_rx; hdlc_rx_init(&t->hdlc_rx, FALSE, TRUE, HDLC_FRAMING_OK_THRESHOLD, t30_hdlc_accept, &s->t30); } else { put_bit_func = t30_non_ecm_put_bit; put_bit_user_data = (void *) &s->t30; } switch (type) { case T30_MODEM_V21: fsk_rx_init(&t->v21_rx, &preset_fsk_specs[FSK_V21CH2], FSK_FRAME_MODE_SYNC, (put_bit_func_t) hdlc_rx_put_bit, put_bit_user_data); fsk_rx_signal_cutoff(&t->v21_rx, -45.5f); set_rx_handler(s, (span_rx_handler_t *) &fsk_rx, (span_rx_fillin_handler_t *) &fsk_rx_fillin, &t->v21_rx); break; case T30_MODEM_V27TER: v27ter_rx_restart(&t->v27ter_rx, bit_rate, FALSE); v27ter_rx_set_put_bit(&t->v27ter_rx, put_bit_func, put_bit_user_data); set_rx_handler(s, &v27ter_v21_rx, &v27ter_v21_rx_fillin, s); break; case T30_MODEM_V29: v29_rx_restart(&t->v29_rx, bit_rate, FALSE); v29_rx_set_put_bit(&t->v29_rx, put_bit_func, put_bit_user_data); set_rx_handler(s, &v29_v21_rx, &v29_v21_rx_fillin, s); break; case T30_MODEM_V17: v17_rx_restart(&t->v17_rx, bit_rate, short_train); v17_rx_set_put_bit(&t->v17_rx, put_bit_func, put_bit_user_data); set_rx_handler(s, &v17_v21_rx, &v17_v21_rx_fillin, s); break; case T30_MODEM_DONE: span_log(&s->logging, SPAN_LOG_FLOW, "FAX exchange complete\n"); default: set_rx_handler(s, (span_rx_handler_t *) &span_dummy_rx, (span_rx_fillin_handler_t *) &span_dummy_rx_fillin, s); break; } } /*- End of function --------------------------------------------------------*/ static void fax_set_tx_type(void *user_data, int type, int bit_rate, int short_train, int use_hdlc) { fax_state_t *s; get_bit_func_t get_bit_func; void *get_bit_user_data; fax_modems_state_t *t; int tone; s = (fax_state_t *) user_data; t = &s->modems; span_log(&s->logging, SPAN_LOG_FLOW, "Set tx type %d\n", type); if (t->current_tx_type == type) return; if (use_hdlc) { get_bit_func = (get_bit_func_t) hdlc_tx_get_bit; get_bit_user_data = (void *) &t->hdlc_tx; } else { get_bit_func = t30_non_ecm_get_bit; get_bit_user_data = (void *) &s->t30; } switch (type) { case T30_MODEM_PAUSE: silence_gen_alter(&t->silence_gen, ms_to_samples(short_train)); set_tx_handler(s, (span_tx_handler_t *) &silence_gen, &t->silence_gen); set_next_tx_handler(s, (span_tx_handler_t *) NULL, NULL); t->transmit = TRUE; break; case T30_MODEM_CED: case T30_MODEM_CNG: if (type == T30_MODEM_CED) tone = MODEM_CONNECT_TONES_FAX_CED; else tone = MODEM_CONNECT_TONES_FAX_CNG; modem_connect_tones_tx_init(&t->connect_tx, tone); set_tx_handler(s, (span_tx_handler_t *) &modem_connect_tones_tx, &t->connect_tx); set_next_tx_handler(s, (span_tx_handler_t *) NULL, NULL); t->transmit = TRUE; break; case T30_MODEM_V21: fsk_tx_init(&t->v21_tx, &preset_fsk_specs[FSK_V21CH2], get_bit_func, get_bit_user_data); /* The spec says 1s +-15% of preamble. So, the minimum is 32 octets. */ hdlc_tx_flags(&t->hdlc_tx, 32); /* Pause before switching from phase C, as per T.30 5.3.2.2. If we omit this, the receiver might not see the carrier fall between the high speed and low speed sections. In practice, a 75ms gap before any V.21 transmission is harmless, adds little to the overall length of a call, and ensures the receiving end is ready. */ silence_gen_alter(&t->silence_gen, ms_to_samples(75)); set_tx_handler(s, (span_tx_handler_t *) &silence_gen, &t->silence_gen); set_next_tx_handler(s, (span_tx_handler_t *) &fsk_tx, &t->v21_tx); t->transmit = TRUE; break; case T30_MODEM_V27TER: silence_gen_alter(&t->silence_gen, ms_to_samples(75)); /* For any fast modem, set 200ms of preamble flags */ hdlc_tx_flags(&t->hdlc_tx, bit_rate/(8*5)); v27ter_tx_restart(&t->v27ter_tx, bit_rate, t->use_tep); v27ter_tx_set_get_bit(&t->v27ter_tx, get_bit_func, get_bit_user_data); set_tx_handler(s, (span_tx_handler_t *) &silence_gen, &t->silence_gen); set_next_tx_handler(s, (span_tx_handler_t *) &v27ter_tx, &t->v27ter_tx); t->transmit = TRUE; break; case T30_MODEM_V29: silence_gen_alter(&t->silence_gen, ms_to_samples(75)); /* For any fast modem, set 200ms of preamble flags */ hdlc_tx_flags(&t->hdlc_tx, bit_rate/(8*5)); v29_tx_restart(&t->v29_tx, bit_rate, t->use_tep); v29_tx_set_get_bit(&t->v29_tx, get_bit_func, get_bit_user_data); set_tx_handler(s, (span_tx_handler_t *) &silence_gen, &t->silence_gen); set_next_tx_handler(s, (span_tx_handler_t *) &v29_tx, &t->v29_tx); t->transmit = TRUE; break; case T30_MODEM_V17: silence_gen_alter(&t->silence_gen, ms_to_samples(75)); /* For any fast modem, set 200ms of preamble flags */ hdlc_tx_flags(&t->hdlc_tx, bit_rate/(8*5)); v17_tx_restart(&t->v17_tx, bit_rate, t->use_tep, short_train); v17_tx_set_get_bit(&t->v17_tx, get_bit_func, get_bit_user_data); set_tx_handler(s, (span_tx_handler_t *) &silence_gen, &t->silence_gen); set_next_tx_handler(s, (span_tx_handler_t *) &v17_tx, &t->v17_tx); t->transmit = TRUE; break; case T30_MODEM_DONE: span_log(&s->logging, SPAN_LOG_FLOW, "FAX exchange complete\n"); /* Fall through */ default: silence_gen_alter(&t->silence_gen, 0); set_tx_handler(s, (span_tx_handler_t *) &silence_gen, &t->silence_gen); set_next_tx_handler(s, (span_tx_handler_t *) NULL, NULL); t->transmit = FALSE; break; } t->tx_bit_rate = bit_rate; t->current_tx_type = type; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) fax_set_transmit_on_idle(fax_state_t *s, int transmit_on_idle) { s->modems.transmit_on_idle = transmit_on_idle; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) fax_set_tep_mode(fax_state_t *s, int use_tep) { s->modems.use_tep = use_tep; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(t30_state_t *) fax_get_t30_state(fax_state_t *s) { return &s->t30; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(logging_state_t *) fax_get_logging_state(fax_state_t *s) { return &s->logging; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) fax_restart(fax_state_t *s, int calling_party) { #if 0 v8_parms_t v8_parms; #endif fax_modems_restart(&s->modems); #if 0 v8_parms.modem_connect_tone = MODEM_CONNECT_TONES_ANSAM_PR; v8_parms.call_function = V8_CALL_T30_RX; v8_parms.modulations = V8_MOD_V21; if (s->t30.supported_modems & T30_SUPPORT_V27TER) v8_parms.modulations |= V8_MOD_V27TER; if (s->t30.supported_modems & T30_SUPPORT_V29) v8_parms.modulations |= V8_MOD_V29; if (s->t30.supported_modems & T30_SUPPORT_V17) v8_parms.modulations |= V8_MOD_V17; if (s->t30.supported_modems & T30_SUPPORT_V34HDX) v8_parms.modulations |= V8_MOD_V34HDX; v8_parms.protocol = V8_PROTOCOL_NONE; v8_parms.pcm_modem_availability = 0; v8_parms.pstn_access = 0; v8_parms.nsf = -1; v8_parms.t66 = -1; v8_restart(&s->v8, calling_party, &v8_parms); #endif t30_restart(&s->t30); #if defined(LOG_FAX_AUDIO) { char buf[100 + 1]; struct tm *tm; time_t now; time(&now); tm = localtime(&now); sprintf(buf, "/tmp/fax-rx-audio-%p-%02d%02d%02d%02d%02d%02d", s, tm->tm_year%100, tm->tm_mon + 1, tm->tm_mday, tm->tm_hour, tm->tm_min, tm->tm_sec); s->modems.audio_rx_log = open(buf, O_CREAT | O_TRUNC | O_WRONLY, 0666); sprintf(buf, "/tmp/fax-tx-audio-%p-%02d%02d%02d%02d%02d%02d", s, tm->tm_year%100, tm->tm_mon + 1, tm->tm_mday, tm->tm_hour, tm->tm_min, tm->tm_sec); s->modems.audio_tx_log = open(buf, O_CREAT | O_TRUNC | O_WRONLY, 0666); } #endif return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(fax_state_t *) fax_init(fax_state_t *s, int calling_party) { #if 0 v8_parms_t v8_parms; #endif if (s == NULL) { if ((s = (fax_state_t *) malloc(sizeof(*s))) == NULL) return NULL; } memset(s, 0, sizeof(*s)); span_log_init(&s->logging, SPAN_LOG_NONE, NULL); span_log_set_protocol(&s->logging, "FAX"); fax_modems_init(&s->modems, FALSE, t30_hdlc_accept, hdlc_underflow_handler, t30_non_ecm_put_bit, t30_non_ecm_get_bit, tone_detected, &s->t30); t30_init(&s->t30, calling_party, fax_set_rx_type, (void *) s, fax_set_tx_type, (void *) s, fax_send_hdlc, (void *) s); t30_set_supported_modems(&s->t30, T30_SUPPORT_V27TER | T30_SUPPORT_V29 | T30_SUPPORT_V17); #if 0 v8_parms.modem_connect_tone = MODEM_CONNECT_TONES_ANSAM_PR; v8_parms.call_function = V8_CALL_T30_RX; v8_parms.modulations = V8_MOD_V21; if (s->t30.supported_modems & T30_SUPPORT_V27TER) v8_parms.modulations |= V8_MOD_V27TER; if (s->t30.supported_modems & T30_SUPPORT_V29) v8_parms.modulations |= V8_MOD_V29; if (s->t30.supported_modems & T30_SUPPORT_V17) v8_parms.modulations |= V8_MOD_V17; if (s->t30.supported_modems & T30_SUPPORT_V34HDX) v8_parms.modulations |= V8_MOD_V34HDX; v8_parms.protocol = V8_PROTOCOL_NONE; v8_parms.pcm_modem_availability = 0; v8_parms.pstn_access = 0; v8_parms.nsf = -1; v8_parms.t66 = -1; v8_init(&s->v8, calling_party, &v8_parms, v8_handler, s); #endif fax_restart(s, calling_party); return s; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) fax_release(fax_state_t *s) { t30_release(&s->t30); return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) fax_free(fax_state_t *s) { t30_release(&s->t30); free(s); return 0; } /*- End of function --------------------------------------------------------*/ /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/t30.c0000664000175000017500000065631011510052404014143 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * t30.c - ITU T.30 FAX transfer processing * * Written by Steve Underwood * * Copyright (C) 2003, 2004, 2005, 2006, 2007, 2008, 2009 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \file */ #if defined(HAVE_CONFIG_H) #include "config.h" #endif #include #include #include #include #include #include #if defined(HAVE_TGMATH_H) #include #endif #if defined(HAVE_MATH_H) #include #endif #include "floating_fudge.h" #include #include "spandsp/telephony.h" #include "spandsp/logging.h" #include "spandsp/bit_operations.h" #include "spandsp/queue.h" #include "spandsp/power_meter.h" #include "spandsp/complex.h" #include "spandsp/tone_generate.h" #include "spandsp/async.h" #include "spandsp/hdlc.h" #include "spandsp/fsk.h" #include "spandsp/v29rx.h" #include "spandsp/v29tx.h" #include "spandsp/v27ter_rx.h" #include "spandsp/v27ter_tx.h" #include "spandsp/t4_rx.h" #include "spandsp/t4_tx.h" #if defined(SPANDSP_SUPPORT_T85) #include "spandsp/t81_t82_arith_coding.h" #include "spandsp/t85.h" #endif #include "spandsp/t4_t6_decode.h" #include "spandsp/t4_t6_encode.h" #include "spandsp/t30_fcf.h" #include "spandsp/t35.h" #include "spandsp/t30.h" #include "spandsp/t30_api.h" #include "spandsp/t30_logging.h" #include "spandsp/private/logging.h" #if defined(SPANDSP_SUPPORT_T85) #include "spandsp/private/t81_t82_arith_coding.h" #include "spandsp/private/t85.h" #endif #include "spandsp/private/t4_t6_decode.h" #include "spandsp/private/t4_t6_encode.h" #include "spandsp/private/t4_rx.h" #include "spandsp/private/t4_tx.h" #include "spandsp/private/t30.h" #include "spandsp/private/t30_dis_dtc_dcs_bits.h" #include "t30_local.h" /*! The maximum permitted number of retries of a single command allowed. */ #define MAX_COMMAND_TRIES 3 /*! The maximum permitted number of retries of a single response request allowed. This is not specified in T.30. However, if you don't apply some limit a messed up FAX terminal could keep you retrying all day. Its a backstop protection. */ #define MAX_RESPONSE_TRIES 6 /* T.30 defines the following call phases: Phase A: Call set-up. Exchange of CNG, CED and the called terminal identification. Phase B: Pre-message procedure for identifying and selecting the required facilities. Capabilities negotiation, and training, up the the confirmation to receive. Phase C: Message transmission (includes phasing and synchronization where appropriate). Transfer of the message at high speed. Phase D: Post-message procedure, including end-of-message and confirmation and multi-document procedures. End of message and acknowledgement. Phase E: Call release Final call disconnect. */ enum { T30_PHASE_IDLE = 0, /* Freshly initialised */ T30_PHASE_A_CED, /* Doing the CED (answer) sequence */ T30_PHASE_A_CNG, /* Doing the CNG (caller) sequence */ T30_PHASE_B_RX, /* Receiving pre-message control messages */ T30_PHASE_B_TX, /* Transmitting pre-message control messages */ T30_PHASE_C_NON_ECM_RX, /* Receiving a document message in non-ECM mode */ T30_PHASE_C_NON_ECM_TX, /* Transmitting a document message in non-ECM mode */ T30_PHASE_C_ECM_RX, /* Receiving a document message in ECM (HDLC) mode */ T30_PHASE_C_ECM_TX, /* Transmitting a document message in ECM (HDLC) mode */ T30_PHASE_D_RX, /* Receiving post-message control messages */ T30_PHASE_D_TX, /* Transmitting post-message control messages */ T30_PHASE_E, /* In phase E */ T30_PHASE_CALL_FINISHED /* Call completely finished */ }; static const char *phase_names[] = { "T30_PHASE_IDLE", "T30_PHASE_A_CED", "T30_PHASE_A_CNG", "T30_PHASE_B_RX", "T30_PHASE_B_TX", "T30_PHASE_C_NON_ECM_RX", "T30_PHASE_C_NON_ECM_TX", "T30_PHASE_C_ECM_RX", "T30_PHASE_C_ECM_TX", "T30_PHASE_D_RX", "T30_PHASE_D_TX", "T30_PHASE_E", "T30_PHASE_CALL_FINISHED" }; /* These state names are modelled after places in the T.30 flow charts. */ enum { T30_STATE_ANSWERING = 1, T30_STATE_B, T30_STATE_C, T30_STATE_D, T30_STATE_D_TCF, T30_STATE_D_POST_TCF, T30_STATE_F_TCF, T30_STATE_F_CFR, T30_STATE_F_FTT, T30_STATE_F_DOC_NON_ECM, T30_STATE_F_POST_DOC_NON_ECM, T30_STATE_F_DOC_ECM, T30_STATE_F_POST_DOC_ECM, T30_STATE_F_POST_RCP_MCF, T30_STATE_F_POST_RCP_PPR, T30_STATE_F_POST_RCP_RNR, T30_STATE_R, T30_STATE_T, T30_STATE_I, T30_STATE_II, T30_STATE_II_Q, T30_STATE_III_Q_MCF, T30_STATE_III_Q_RTP, T30_STATE_III_Q_RTN, T30_STATE_IV, T30_STATE_IV_PPS_NULL, T30_STATE_IV_PPS_Q, T30_STATE_IV_PPS_RNR, T30_STATE_IV_CTC, T30_STATE_IV_EOR, T30_STATE_IV_EOR_RNR, T30_STATE_CALL_FINISHED }; enum { T30_MIN_SCAN_20MS = 0, T30_MIN_SCAN_5MS = 1, T30_MIN_SCAN_10MS = 2, T30_MIN_SCAN_40MS = 4, T30_MIN_SCAN_0MS = 7, }; enum { T30_MODE_SEND_DOC = 1, T30_MODE_RECEIVE_DOC }; /*! These are internal assessments of received image quality, used to determine whether we continue, retrain, or abandon the call. This is only relevant to non-ECM operation. */ enum { T30_COPY_QUALITY_PERFECT = 0, T30_COPY_QUALITY_GOOD, T30_COPY_QUALITY_POOR, T30_COPY_QUALITY_BAD }; enum { DISBIT1 = 0x01, DISBIT2 = 0x02, DISBIT3 = 0x04, DISBIT4 = 0x08, DISBIT5 = 0x10, DISBIT6 = 0x20, DISBIT7 = 0x40, DISBIT8 = 0x80 }; /*! There are high level indications of what is happening at any instant, to guide the cleanup continue, retrain, or abandoning of the call. */ enum { OPERATION_IN_PROGRESS_NONE = 0, OPERATION_IN_PROGRESS_T4_RX, OPERATION_IN_PROGRESS_T4_TX, OPERATION_IN_PROGRESS_POST_T4_RX, OPERATION_IN_PROGRESS_POST_T4_TX }; /* All timers specified in milliseconds */ /*! Time-out T0 defines the amount of time an automatic calling terminal waits for the called terminal to answer the call. T0 begins after the dialling of the number is completed and is reset: a) when T0 times out; or b) when timer T1 is started; or c) if the terminal is capable of detecting any condition which indicates that the call will not be successful, when such a condition is detected. The recommended value of T0 is 60+-5s. However, when it is anticipated that a long call set-up time may be encountered, an alternative value of up to 120s may be used. NOTE - National regulations may require the use of other values for T0. */ #define DEFAULT_TIMER_T0 60000 /*! Time-out T1 defines the amount of time two terminals will continue to attempt to identify each other. T1 is 35+-5s, begins upon entering phase B, and is reset upon detecting a valid signal or when T1 times out. For operating methods 3 and 4 (see 3.1), the calling terminal starts time-out T1 upon reception of the V.21 modulation scheme. For operating method 4 bis a (see 3.1), the calling terminal starts time-out T1 upon starting transmission using the V.21 modulation scheme. Annex A says T1 is also the timeout to be used for the receipt of the first HDLC frame after the start of high speed flags in ECM mode. This seems a strange reuse of the T1 name, so we distinguish it here by calling it T1A. */ #define DEFAULT_TIMER_T1 35000 #define DEFAULT_TIMER_T1A 35000 /*! Time-out T2 makes use of the tight control between commands and responses to detect the loss of command/response synchronization. T2 is 6+-1s, and begins when initiating a command search (e.g., the first entrance into the "command received" subroutine, reference flow diagram in section 5.2). T2 is reset when an HDLC flag is received or when T2 times out. */ #define DEFAULT_TIMER_T2 7000 /*! Once HDLC flags begin, T2 is reset, and a 3s timer begins. This timer is unnamed in T.30. Here we term it T2A. No tolerance is specified for this timer. T2A specifies the maximum time to wait for the end of a frame, after the initial flag has been seen. */ #define DEFAULT_TIMER_T2A 3000 /*! If the HDLC carrier falls during reception, we need to apply a minimum time before continuing. If we don't, there are circumstances where we could continue and reply before the incoming signals have really finished. E.g. if a bad DCS is received in a DCS-TCF sequence, we need wait for the TCF carrier to pass, before continuing. This timer is specified as 200ms, but no tolerance is specified. It is unnamed in T.30. Here we term it T2B */ #define DEFAULT_TIMER_T2B 200 /*! Time-out T3 defines the amount of time a terminal will attempt to alert the local operator in response to a procedural interrupt. Failing to achieve operator intervention, the terminal will discontinue this attempt and shall issue other commands or responses. T3 is 10+-5s, begins on the first detection of a procedural interrupt command/response signal (i.e., PIN/PIP or PRI-Q) and is reset when T3 times out or when the operator initiates a line request. */ #define DEFAULT_TIMER_T3 15000 /*! Time-out T4 defines the amount of time a terminal will wait for flags to begin, when waiting for a response from a remote terminal. T2 is 3s +-15%, and begins when initiating a response search (e.g., the first entrance into the "response received" subroutine, reference flow diagram in section 5.2). T4 is reset when an HDLC flag is received or when T4 times out. NOTE - For manual FAX units, the value of timer T4 may be either 3.0s +-15% or 4.5s +-15%. If the value of 4.5s is used, then after detection of a valid response to the first DIS, it may be reduced to 3.0s +-15%. T4 = 3.0s +-15% for automatic units. */ #define DEFAULT_TIMER_T4 3450 /*! Once HDLC flags begin, T4 is reset, and a 3s timer begins. This timer is unnamed in T.30. Here we term it T4A. No tolerance is specified for this timer. T4A specifies the maximum time to wait for the end of a frame, after the initial flag has been seen. Note that a different timer is used for the fast HDLC in ECM mode, to provide time for physical paper handling. */ #define DEFAULT_TIMER_T4A 3000 /*! If the HDLC carrier falls during reception, we need to apply a minimum time before continuing. if we don't, there are circumstances where we could continue and reply before the incoming signals have really finished. E.g. if a bad DCS is received in a DCS-TCF sequence, we need wait for the TCF carrier to pass, before continuing. This timer is specified as 200ms, but no tolerance is specified. It is unnamed in T.30. Here we term it T4B */ #define DEFAULT_TIMER_T4B 200 /*! Time-out T5 is defined for the optional T.4 error correction mode. Time-out T5 defines the amount of time waiting for clearance of the busy condition of the receiving terminal. T5 is 60+-5s and begins on the first detection of the RNR response. T5 is reset when T5 times out or the MCF or PIP response is received or when the ERR or PIN response is received in the flow control process after transmitting the EOR command. If the timer T5 has expired, the DCN command is transmitted for call release. */ #define DEFAULT_TIMER_T5 65000 /*! (Annex C - ISDN) Time-out T6 defines the amount of time two terminals will continue to attempt to identify each other. T6 is 5+-0.5s. The timeout begins upon entering Phase B, and is reset upon detecting a valid signal, or when T6 times out. */ #define DEFAULT_TIMER_T6 5000 /*! (Annex C - ISDN) Time-out T7 is used to detect loss of command/response synchronization. T7 is 6+-1s. The timeout begins when initiating a command search (e.g., the first entrance into the "command received" subroutine - see flow diagram in C.5) and is reset upon detecting a valid signal or when T7 times out. */ #define DEFAULT_TIMER_T7 7000 /*! (Annex C - ISDN) Time-out T8 defines the amount of time waiting for clearance of the busy condition of the receiving terminal. T8 is 10+-1s. The timeout begins on the first detection of the combination of no outstanding corrections and the RNR response. T8 is reset when T8 times out or MCF response is received. If the timer T8 expires, a DCN command is transmitted for call release. */ #define DEFAULT_TIMER_T8 10000 /*! Final time we allow for things to flush through the system, before we disconnect, in milliseconds. 200ms should be fine for a PSTN call. For a T.38 call something longer is desirable. */ #define FINAL_FLUSH_TIME 1000 /*! The number of PPRs received before CTC or EOR is sent in ECM mode. T.30 defines this as 4, but it could be varied, and the Japanese spec, for example, does make this value a variable. */ #define PPR_LIMIT_BEFORE_CTC_OR_EOR 4 /* HDLC message header byte values */ #define ADDRESS_FIELD 0xFF #define CONTROL_FIELD_NON_FINAL_FRAME 0x03 #define CONTROL_FIELD_FINAL_FRAME 0x13 enum { TIMER_IS_IDLE = 0, TIMER_IS_T2, TIMER_IS_T1A, TIMER_IS_T2A, TIMER_IS_T2B, TIMER_IS_T2C, TIMER_IS_T4, TIMER_IS_T4A, TIMER_IS_T4B, TIMER_IS_T4C }; /* Start points in the fallback table for different capabilities */ /*! The starting point in the modem fallback sequence if V.17 is allowed */ #define T30_V17_FALLBACK_START 0 /*! The starting point in the modem fallback sequence if V.17 is not allowed */ #define T30_V29_FALLBACK_START 3 /*! The starting point in the modem fallback sequence if V.29 is not allowed */ #define T30_V27TER_FALLBACK_START 6 static const struct { int bit_rate; int modem_type; int which; uint8_t dcs_code; } fallback_sequence[] = { {14400, T30_MODEM_V17, T30_SUPPORT_V17, DISBIT6}, {12000, T30_MODEM_V17, T30_SUPPORT_V17, (DISBIT6 | DISBIT4)}, { 9600, T30_MODEM_V17, T30_SUPPORT_V17, (DISBIT6 | DISBIT3)}, { 9600, T30_MODEM_V29, T30_SUPPORT_V29, DISBIT3}, { 7200, T30_MODEM_V17, T30_SUPPORT_V17, (DISBIT6 | DISBIT4 | DISBIT3)}, { 7200, T30_MODEM_V29, T30_SUPPORT_V29, (DISBIT4 | DISBIT3)}, { 4800, T30_MODEM_V27TER, T30_SUPPORT_V27TER, DISBIT4}, { 2400, T30_MODEM_V27TER, T30_SUPPORT_V27TER, 0}, { 0, 0, 0, 0} }; static void queue_phase(t30_state_t *s, int phase); static void set_phase(t30_state_t *s, int phase); static void set_state(t30_state_t *s, int state); static void send_simple_frame(t30_state_t *s, int type); static void send_frame(t30_state_t *s, const uint8_t *fr, int frlen); static void send_dcn(t30_state_t *s); static void repeat_last_command(t30_state_t *s); static void disconnect(t30_state_t *s); static void decode_20digit_msg(t30_state_t *s, char *msg, const uint8_t *pkt, int len); static void decode_url_msg(t30_state_t *s, char *msg, const uint8_t *pkt, int len); static int set_min_scan_time_code(t30_state_t *s); static int send_cfr_sequence(t30_state_t *s, int start); static void timer_t2_start(t30_state_t *s); static void timer_t2a_start(t30_state_t *s); static void timer_t2b_start(t30_state_t *s); static void timer_t4_start(t30_state_t *s); static void timer_t4a_start(t30_state_t *s); static void timer_t4b_start(t30_state_t *s); static void timer_t2_t4_stop(t30_state_t *s); /*! Test a specified bit within a DIS, DTC or DCS frame */ #define test_ctrl_bit(s,bit) ((s)[3 + ((bit - 1)/8)] & (1 << ((bit - 1)%8))) /*! Set a specified bit within a DIS, DTC or DCS frame */ #define set_ctrl_bit(s,bit) (s)[3 + ((bit - 1)/8)] |= (1 << ((bit - 1)%8)) /*! Set a specified block of bits within a DIS, DTC or DCS frame */ #define set_ctrl_bits(s,val,bit) (s)[3 + ((bit - 1)/8)] |= ((val) << ((bit - 1)%8)) /*! Clear a specified bit within a DIS, DTC or DCS frame */ #define clr_ctrl_bit(s,bit) (s)[3 + ((bit - 1)/8)] &= ~(1 << ((bit - 1)%8)) static int terminate_operation_in_progress(t30_state_t *s) { /* Make sure any FAX in progress is tidied up. If the tidying up has already happened, repeating it here is harmless. */ switch (s->operation_in_progress) { case OPERATION_IN_PROGRESS_T4_TX: t4_tx_release(&s->t4.tx); s->operation_in_progress = OPERATION_IN_PROGRESS_POST_T4_TX; break; case OPERATION_IN_PROGRESS_T4_RX: t4_rx_release(&s->t4.rx); s->operation_in_progress = OPERATION_IN_PROGRESS_POST_T4_RX; break; } return 0; } /*- End of function --------------------------------------------------------*/ static int tx_start_page(t30_state_t *s) { if (t4_tx_start_page(&s->t4.tx)) { terminate_operation_in_progress(s); return -1; } s->ecm_block = 0; s->error_correcting_mode_retries = 0; span_log(&s->logging, SPAN_LOG_FLOW, "Starting page %d of transfer\n", s->tx_page_number + 1); return 0; } /*- End of function --------------------------------------------------------*/ static int tx_end_page(t30_state_t *s) { s->retries = 0; if (t4_tx_end_page(&s->t4.tx) == 0) { s->tx_page_number++; s->ecm_block = 0; } return 0; } /*- End of function --------------------------------------------------------*/ static int rx_start_page(t30_state_t *s) { int i; t4_rx_set_image_width(&s->t4.rx, s->image_width); t4_rx_set_sub_address(&s->t4.rx, s->rx_info.sub_address); t4_rx_set_dcs(&s->t4.rx, s->rx_dcs_string); t4_rx_set_far_ident(&s->t4.rx, s->rx_info.ident); t4_rx_set_vendor(&s->t4.rx, s->vendor); t4_rx_set_model(&s->t4.rx, s->model); t4_rx_set_rx_encoding(&s->t4.rx, s->line_encoding); t4_rx_set_x_resolution(&s->t4.rx, s->x_resolution); t4_rx_set_y_resolution(&s->t4.rx, s->y_resolution); if (t4_rx_start_page(&s->t4.rx)) return -1; /* Clear the ECM buffer */ for (i = 0; i < 256; i++) s->ecm_len[i] = -1; s->ecm_block = 0; s->ecm_frames = -1; s->ecm_frames_this_tx_burst = 0; s->error_correcting_mode_retries = 0; return 0; } /*- End of function --------------------------------------------------------*/ static int rx_end_page(t30_state_t *s) { if (t4_rx_end_page(&s->t4.rx) == 0) { s->rx_page_number++; s->ecm_block = 0; } return 0; } /*- End of function --------------------------------------------------------*/ static void report_rx_ecm_page_result(t30_state_t *s) { t4_stats_t stats; /* This is only used for ECM pages, as copy_quality() does a similar job for non-ECM pages as a byproduct of assessing copy quality. */ t4_rx_get_transfer_statistics(&s->t4.rx, &stats); span_log(&s->logging, SPAN_LOG_FLOW, "Page no = %d\n", stats.pages_transferred); span_log(&s->logging, SPAN_LOG_FLOW, "Image size = %d x %d pixels\n", stats.width, stats.length); span_log(&s->logging, SPAN_LOG_FLOW, "Image resolution = %d/m x %d/m\n", stats.x_resolution, stats.y_resolution); span_log(&s->logging, SPAN_LOG_FLOW, "Compression = %s (%d)\n", t4_encoding_to_str(stats.encoding), stats.encoding); span_log(&s->logging, SPAN_LOG_FLOW, "Compressed image size = %d bytes\n", stats.line_image_size); } /*- End of function --------------------------------------------------------*/ static int copy_quality(t30_state_t *s) { t4_stats_t stats; int quality; t4_rx_get_transfer_statistics(&s->t4.rx, &stats); /* There is no specification for judging copy quality. However, we need to classify it at three levels, to control what we do next: OK; tolerable, but retrain; intolerable. */ /* Based on the thresholds used in the TSB85 tests, we consider: <5% bad rows is OK <15% bad rows to be tolerable, but retrain >15% bad rows to be intolerable */ /* This is called before the page is confirmed, so we need to add one to get the page number right */ span_log(&s->logging, SPAN_LOG_FLOW, "Page no = %d\n", stats.pages_transferred + 1); span_log(&s->logging, SPAN_LOG_FLOW, "Image size = %d x %d pixels\n", stats.width, stats.length); span_log(&s->logging, SPAN_LOG_FLOW, "Image resolution = %d/m x %d/m\n", stats.x_resolution, stats.y_resolution); span_log(&s->logging, SPAN_LOG_FLOW, "Compression = %s (%d)\n", t4_encoding_to_str(stats.encoding), stats.encoding); span_log(&s->logging, SPAN_LOG_FLOW, "Compressed image size = %d bytes\n", stats.line_image_size); span_log(&s->logging, SPAN_LOG_FLOW, "Bad rows = %d\n", stats.bad_rows); span_log(&s->logging, SPAN_LOG_FLOW, "Longest bad row run = %d\n", stats.longest_bad_row_run); /* Don't treat a page as perfect because it has zero bad rows out of zero total rows. A zero row page has got to be some kind of total page failure. */ if (stats.bad_rows == 0 && stats.length != 0) { span_log(&s->logging, SPAN_LOG_FLOW, "Page quality is perfect\n"); quality = T30_COPY_QUALITY_PERFECT; } else if (stats.bad_rows*20 < stats.length) { span_log(&s->logging, SPAN_LOG_FLOW, "Page quality is good\n"); quality = T30_COPY_QUALITY_GOOD; } else if (stats.bad_rows*20 < stats.length*3) { span_log(&s->logging, SPAN_LOG_FLOW, "Page quality is poor\n"); quality = T30_COPY_QUALITY_POOR; } else { span_log(&s->logging, SPAN_LOG_FLOW, "Page quality is bad\n"); quality = T30_COPY_QUALITY_BAD; } return quality; } /*- End of function --------------------------------------------------------*/ static void report_tx_result(t30_state_t *s, int result) { t4_stats_t stats; if (span_log_test(&s->logging, SPAN_LOG_FLOW)) { t4_tx_get_transfer_statistics(&s->t4.tx, &stats); span_log(&s->logging, SPAN_LOG_FLOW, "%s - delivered %d pages\n", (result) ? "Success" : "Failure", stats.pages_transferred); } } /*- End of function --------------------------------------------------------*/ static void release_resources(t30_state_t *s) { if (s->tx_info.nsf) { free(s->tx_info.nsf); s->tx_info.nsf = NULL; } s->tx_info.nsf_len = 0; if (s->tx_info.nsc) { free(s->tx_info.nsc); s->tx_info.nsc = NULL; } s->tx_info.nsc_len = 0; if (s->tx_info.nss) { free(s->tx_info.nss); s->tx_info.nss = NULL; } s->tx_info.nss_len = 0; if (s->tx_info.tsa) { free(s->tx_info.tsa); s->tx_info.tsa = NULL; } if (s->tx_info.ira) { free(s->tx_info.ira); s->tx_info.ira = NULL; } if (s->tx_info.cia) { free(s->tx_info.cia); s->tx_info.cia = NULL; } if (s->tx_info.isp) { free(s->tx_info.isp); s->tx_info.isp = NULL; } if (s->tx_info.csa) { free(s->tx_info.csa); s->tx_info.csa = NULL; } if (s->rx_info.nsf) { free(s->rx_info.nsf); s->rx_info.nsf = NULL; } s->rx_info.nsf_len = 0; if (s->rx_info.nsc) { free(s->rx_info.nsc); s->rx_info.nsc = NULL; } s->rx_info.nsc_len = 0; if (s->rx_info.nss) { free(s->rx_info.nss); s->rx_info.nss = NULL; } s->rx_info.nss_len = 0; if (s->rx_info.tsa) { free(s->rx_info.tsa); s->rx_info.tsa = NULL; } if (s->rx_info.ira) { free(s->rx_info.ira); s->rx_info.ira = NULL; } if (s->rx_info.cia) { free(s->rx_info.cia); s->rx_info.cia = NULL; } if (s->rx_info.isp) { free(s->rx_info.isp); s->rx_info.isp = NULL; } if (s->rx_info.csa) { free(s->rx_info.csa); s->rx_info.csa = NULL; } } /*- End of function --------------------------------------------------------*/ static uint8_t check_next_tx_step(t30_state_t *s) { int res; int more; res = t4_tx_next_page_has_different_format(&s->t4.tx); if (res == 0) { span_log(&s->logging, SPAN_LOG_FLOW, "More pages to come with the same format\n"); return (s->local_interrupt_pending) ? T30_PRI_MPS : T30_MPS; } if (res > 0) { span_log(&s->logging, SPAN_LOG_FLOW, "More pages to come with a different format\n"); s->tx_start_page = t4_tx_get_current_page_in_file(&s->t4.tx) + 1; return (s->local_interrupt_pending) ? T30_PRI_EOM : T30_EOM; } /* Call a user handler, if one is set, to check if another document is to be sent. If so, we send an EOM, rather than an EOP. Then we will renegotiate, and the new document will begin. */ if (s->document_handler) more = s->document_handler(s, s->document_user_data, 0); else more = FALSE; if (more) { //if (test_ctrl_bit(s->far_dis_dtc_frame, T30_DIS_BIT_MULTIPLE_SELECTIVE_POLLING_CAPABLE)) // return T30_EOS; return (s->local_interrupt_pending) ? T30_PRI_EOM : T30_EOM; } return (s->local_interrupt_pending) ? T30_PRI_EOP : T30_EOP; } /*- End of function --------------------------------------------------------*/ static int get_partial_ecm_page(t30_state_t *s) { int i; int len; s->ppr_count = 0; s->ecm_progress = 0; /* Fill our partial page buffer with a partial page. Use the negotiated preferred frame size as the basis for the size of the frames produced. */ /* We fill the buffer with complete HDLC frames, ready to send out. */ /* The frames are all marked as not being final frames. When sent, the are followed by a partial page signal, which is marked as the final frame. */ for (i = 3; i < 32 + 3; i++) s->ecm_frame_map[i] = 0xFF; for (i = 0; i < 256; i++) { s->ecm_len[i] = -1; s->ecm_data[i][0] = ADDRESS_FIELD; s->ecm_data[i][1] = CONTROL_FIELD_NON_FINAL_FRAME; s->ecm_data[i][2] = T4_FCD; /* These frames contain a frame sequence number within the partial page (one octet) followed by some image data. */ s->ecm_data[i][3] = (uint8_t) i; if ((len = t4_tx_get_chunk(&s->t4.tx, &s->ecm_data[i][4], s->octets_per_ecm_frame)) < s->octets_per_ecm_frame) { /* The image is not big enough to fill the entire buffer */ /* We need to pad to a full frame, as most receivers expect that. */ if (len > 0) { memset(&s->ecm_data[i][4 + len], 0, s->octets_per_ecm_frame - len); s->ecm_len[i++] = (int16_t) (s->octets_per_ecm_frame + 4); } s->ecm_frames = i; span_log(&s->logging, SPAN_LOG_FLOW, "Partial page buffer contains %d frames (%d per frame)\n", i, s->octets_per_ecm_frame); s->ecm_at_page_end = TRUE; return i; } s->ecm_len[i] = (int16_t) (4 + len); } /* We filled the entire buffer */ s->ecm_frames = 256; span_log(&s->logging, SPAN_LOG_FLOW, "Partial page buffer full (%d per frame)\n", s->octets_per_ecm_frame); s->ecm_at_page_end = ((t4_tx_check_bit(&s->t4.tx) & 2) != 0); return 256; } /*- End of function --------------------------------------------------------*/ static int send_next_ecm_frame(t30_state_t *s) { int i; uint8_t frame[3]; if (s->ecm_current_tx_frame < s->ecm_frames) { /* Search for the next frame, within the current partial page, which has not been tagged as transferred OK. */ for (i = s->ecm_current_tx_frame; i < s->ecm_frames; i++) { if (s->ecm_len[i] >= 0) { send_frame(s, s->ecm_data[i], s->ecm_len[i]); s->ecm_current_tx_frame = i + 1; s->ecm_frames_this_tx_burst++; return 0; } } s->ecm_current_tx_frame = s->ecm_frames; } if (s->ecm_current_tx_frame <= s->ecm_frames + 3) { /* We have sent all the FCD frames. Send some RCP frames. Three seems to be a popular number, to minimise the risk of a bit error stopping the receiving end from recognising the RCP. */ s->ecm_current_tx_frame++; /* The RCP frame is an odd man out, as its a simple 1 byte control frame, but is specified to not have the final bit set. It doesn't seem to have the DIS received bit set, either. */ frame[0] = ADDRESS_FIELD; frame[1] = CONTROL_FIELD_NON_FINAL_FRAME; frame[2] = T4_RCP; send_frame(s, frame, 3); /* In case we are just after a CTC/CTR exchange, which kicked us back to long training */ s->short_train = TRUE; return 0; } return -1; } /*- End of function --------------------------------------------------------*/ static void send_rr(t30_state_t *s) { if (s->current_status != T30_ERR_TX_T5EXP) send_simple_frame(s, T30_RR); else send_dcn(s); } /*- End of function --------------------------------------------------------*/ static int send_first_ecm_frame(t30_state_t *s) { s->ecm_current_tx_frame = 0; s->ecm_frames_this_tx_burst = 0; return send_next_ecm_frame(s); } /*- End of function --------------------------------------------------------*/ static void print_frame(t30_state_t *s, const char *io, const uint8_t *msg, int len) { span_log(&s->logging, SPAN_LOG_FLOW, "%s %s with%s final frame tag\n", io, t30_frametype(msg[2]), (msg[1] & 0x10) ? "" : "out"); span_log_buf(&s->logging, SPAN_LOG_FLOW, io, msg, len); } /*- End of function --------------------------------------------------------*/ static void send_frame(t30_state_t *s, const uint8_t *msg, int len) { print_frame(s, "Tx: ", msg, len); if (s->real_time_frame_handler) s->real_time_frame_handler(s, s->real_time_frame_user_data, FALSE, msg, len); if (s->send_hdlc_handler) s->send_hdlc_handler(s->send_hdlc_user_data, msg, len); } /*- End of function --------------------------------------------------------*/ static void send_simple_frame(t30_state_t *s, int type) { uint8_t frame[3]; /* The simple command/response frames are always final frames */ frame[0] = ADDRESS_FIELD; frame[1] = CONTROL_FIELD_FINAL_FRAME; frame[2] = (uint8_t) (type | s->dis_received); send_frame(s, frame, 3); } /*- End of function --------------------------------------------------------*/ static void send_20digit_msg_frame(t30_state_t *s, int cmd, char *msg) { size_t len; int p; uint8_t frame[23]; len = strlen(msg); p = 0; frame[p++] = ADDRESS_FIELD; frame[p++] = CONTROL_FIELD_NON_FINAL_FRAME; frame[p++] = (uint8_t) (cmd | s->dis_received); while (len > 0) frame[p++] = msg[--len]; while (p < 23) frame[p++] = ' '; send_frame(s, frame, 23); } /*- End of function --------------------------------------------------------*/ static int send_nsf_frame(t30_state_t *s) { /* Only send if there is an NSF message to send. */ if (s->tx_info.nsf && s->tx_info.nsf_len) { span_log(&s->logging, SPAN_LOG_FLOW, "Sending user supplied NSF - %d octets\n", s->tx_info.nsf_len); s->tx_info.nsf[0] = ADDRESS_FIELD; s->tx_info.nsf[1] = CONTROL_FIELD_NON_FINAL_FRAME; s->tx_info.nsf[2] = (uint8_t) (T30_NSF | s->dis_received); send_frame(s, s->tx_info.nsf, s->tx_info.nsf_len + 3); return TRUE; } return FALSE; } /*- End of function --------------------------------------------------------*/ static int send_nss_frame(t30_state_t *s) { /* Only send if there is an NSF message to send. */ if (s->tx_info.nss && s->tx_info.nss_len) { span_log(&s->logging, SPAN_LOG_FLOW, "Sending user supplied NSS - %d octets\n", s->tx_info.nss_len); s->tx_info.nss[0] = ADDRESS_FIELD; s->tx_info.nss[1] = CONTROL_FIELD_NON_FINAL_FRAME; s->tx_info.nss[2] = (uint8_t) (T30_NSS | s->dis_received); send_frame(s, s->tx_info.nss, s->tx_info.nss_len + 3); return TRUE; } return FALSE; } /*- End of function --------------------------------------------------------*/ static int send_nsc_frame(t30_state_t *s) { /* Only send if there is an NSF message to send. */ if (s->tx_info.nsc && s->tx_info.nsc_len) { span_log(&s->logging, SPAN_LOG_FLOW, "Sending user supplied NSC - %d octets\n", s->tx_info.nsc_len); s->tx_info.nsc[0] = ADDRESS_FIELD; s->tx_info.nsc[1] = CONTROL_FIELD_NON_FINAL_FRAME; s->tx_info.nsc[2] = (uint8_t) (T30_NSC | s->dis_received); send_frame(s, s->tx_info.nsc, s->tx_info.nsc_len + 3); return TRUE; } return FALSE; } /*- End of function --------------------------------------------------------*/ static int send_ident_frame(t30_state_t *s, uint8_t cmd) { if (s->tx_info.ident[0]) { span_log(&s->logging, SPAN_LOG_FLOW, "Sending ident '%s'\n", s->tx_info.ident); /* 'cmd' should be T30_TSI, T30_CIG or T30_CSI */ send_20digit_msg_frame(s, cmd, s->tx_info.ident); return TRUE; } return FALSE; } /*- End of function --------------------------------------------------------*/ static int send_psa_frame(t30_state_t *s) { if (test_ctrl_bit(s->far_dis_dtc_frame, T30_DIS_BIT_POLLED_SUBADDRESSING_CAPABLE) && s->tx_info.polled_sub_address[0]) { span_log(&s->logging, SPAN_LOG_FLOW, "Sending polled sub-address '%s'\n", s->tx_info.polled_sub_address); send_20digit_msg_frame(s, T30_PSA, s->tx_info.polled_sub_address); set_ctrl_bit(s->local_dis_dtc_frame, T30_DIS_BIT_POLLED_SUBADDRESSING_CAPABLE); return TRUE; } clr_ctrl_bit(s->local_dis_dtc_frame, T30_DIS_BIT_POLLED_SUBADDRESSING_CAPABLE); return FALSE; } /*- End of function --------------------------------------------------------*/ static int send_sep_frame(t30_state_t *s) { if (test_ctrl_bit(s->far_dis_dtc_frame, T30_DIS_BIT_SELECTIVE_POLLING_CAPABLE) && s->tx_info.selective_polling_address[0]) { span_log(&s->logging, SPAN_LOG_FLOW, "Sending selective polling address '%s'\n", s->tx_info.selective_polling_address); send_20digit_msg_frame(s, T30_SEP, s->tx_info.selective_polling_address); set_ctrl_bit(s->local_dis_dtc_frame, T30_DIS_BIT_SELECTIVE_POLLING_CAPABLE); return TRUE; } clr_ctrl_bit(s->local_dis_dtc_frame, T30_DIS_BIT_SELECTIVE_POLLING_CAPABLE); return FALSE; } /*- End of function --------------------------------------------------------*/ static int send_sid_frame(t30_state_t *s) { /* Only send if there is an ID to send. */ if (test_ctrl_bit(s->far_dis_dtc_frame, T30_DIS_BIT_PASSWORD) && s->tx_info.sender_ident[0]) { span_log(&s->logging, SPAN_LOG_FLOW, "Sending sender identification '%s'\n", s->tx_info.sender_ident); send_20digit_msg_frame(s, T30_SID, s->tx_info.sender_ident); set_ctrl_bit(s->dcs_frame, T30_DCS_BIT_SENDER_ID_TRANSMISSION); return TRUE; } clr_ctrl_bit(s->dcs_frame, T30_DCS_BIT_SENDER_ID_TRANSMISSION); return FALSE; } /*- End of function --------------------------------------------------------*/ static int send_pwd_frame(t30_state_t *s) { /* Only send if there is a password to send. */ if (test_ctrl_bit(s->far_dis_dtc_frame, T30_DIS_BIT_PASSWORD) && s->tx_info.password[0]) { span_log(&s->logging, SPAN_LOG_FLOW, "Sending password '%s'\n", s->tx_info.password); send_20digit_msg_frame(s, T30_PWD, s->tx_info.password); set_ctrl_bit(s->local_dis_dtc_frame, T30_DIS_BIT_PASSWORD); return TRUE; } clr_ctrl_bit(s->local_dis_dtc_frame, T30_DIS_BIT_PASSWORD); return FALSE; } /*- End of function --------------------------------------------------------*/ static int send_sub_frame(t30_state_t *s) { /* Only send if there is a sub-address to send. */ if (test_ctrl_bit(s->far_dis_dtc_frame, T30_DIS_BIT_SUBADDRESSING_CAPABLE) && s->tx_info.sub_address[0]) { span_log(&s->logging, SPAN_LOG_FLOW, "Sending sub-address '%s'\n", s->tx_info.sub_address); send_20digit_msg_frame(s, T30_SUB, s->tx_info.sub_address); set_ctrl_bit(s->dcs_frame, T30_DCS_BIT_SUBADDRESS_TRANSMISSION); return TRUE; } clr_ctrl_bit(s->dcs_frame, T30_DCS_BIT_SUBADDRESS_TRANSMISSION); return FALSE; } /*- End of function --------------------------------------------------------*/ static int send_tsa_frame(t30_state_t *s) { if ((test_ctrl_bit(s->far_dis_dtc_frame, T30_DIS_BIT_T37) || test_ctrl_bit(s->far_dis_dtc_frame, T30_DIS_BIT_T38)) && 0) { span_log(&s->logging, SPAN_LOG_FLOW, "Sending transmitting subscriber internet address '%s'\n", ""); return TRUE; } return FALSE; } /*- End of function --------------------------------------------------------*/ static int send_ira_frame(t30_state_t *s) { if (test_ctrl_bit(s->far_dis_dtc_frame, T30_DIS_BIT_INTERNET_ROUTING_ADDRESS) && 0) { span_log(&s->logging, SPAN_LOG_FLOW, "Sending internet routing address '%s'\n", ""); set_ctrl_bit(s->dcs_frame, T30_DCS_BIT_INTERNET_ROUTING_ADDRESS_TRANSMISSION); return TRUE; } clr_ctrl_bit(s->dcs_frame, T30_DCS_BIT_INTERNET_ROUTING_ADDRESS_TRANSMISSION); return FALSE; } /*- End of function --------------------------------------------------------*/ static int send_cia_frame(t30_state_t *s) { if ((test_ctrl_bit(s->far_dis_dtc_frame, T30_DIS_BIT_T37) || test_ctrl_bit(s->far_dis_dtc_frame, T30_DIS_BIT_T38)) && 0) { span_log(&s->logging, SPAN_LOG_FLOW, "Sending calling subscriber internet address '%s'\n", ""); return TRUE; } return FALSE; } /*- End of function --------------------------------------------------------*/ static int send_isp_frame(t30_state_t *s) { if (test_ctrl_bit(s->far_dis_dtc_frame, T30_DIS_BIT_INTERNET_SELECTIVE_POLLING_ADDRESS) && 0) { span_log(&s->logging, SPAN_LOG_FLOW, "Sending internet selective polling address '%s'\n", ""); set_ctrl_bit(s->local_dis_dtc_frame, T30_DIS_BIT_INTERNET_SELECTIVE_POLLING_ADDRESS); return TRUE; } clr_ctrl_bit(s->local_dis_dtc_frame, T30_DIS_BIT_INTERNET_SELECTIVE_POLLING_ADDRESS); return FALSE; } /*- End of function --------------------------------------------------------*/ #if 0 static int send_csa_frame(t30_state_t *s) { #if 0 if (("in T.37 mode" || "in T.38 mode") && 0) { span_log(&s->logging, SPAN_LOG_FLOW, "Sending called subscriber internet address '%s'\n", ""); return TRUE; } #endif return FALSE; } /*- End of function --------------------------------------------------------*/ #endif static int send_pps_frame(t30_state_t *s) { uint8_t frame[7]; frame[0] = ADDRESS_FIELD; frame[1] = CONTROL_FIELD_FINAL_FRAME; frame[2] = (uint8_t) (T30_PPS | s->dis_received); frame[3] = (s->ecm_at_page_end) ? ((uint8_t) (s->next_tx_step | s->dis_received)) : T30_NULL; frame[4] = (uint8_t) (s->tx_page_number & 0xFF); frame[5] = (uint8_t) (s->ecm_block & 0xFF); frame[6] = (uint8_t) ((s->ecm_frames_this_tx_burst == 0) ? 0 : (s->ecm_frames_this_tx_burst - 1)); span_log(&s->logging, SPAN_LOG_FLOW, "Sending PPS + %s\n", t30_frametype(frame[3])); send_frame(s, frame, 7); return frame[3] & 0xFE; } /*- End of function --------------------------------------------------------*/ static int set_dis_or_dtc(t30_state_t *s) { /* Whether we use a DIS or a DTC is determined by whether we have received a DIS. We just need to edit the prebuilt message. */ s->local_dis_dtc_frame[2] = (uint8_t) (T30_DIS | s->dis_received); /* If we have a file name to receive into, then we are receive capable */ if (s->rx_file[0]) set_ctrl_bit(s->local_dis_dtc_frame, T30_DIS_BIT_READY_TO_RECEIVE_FAX_DOCUMENT); else clr_ctrl_bit(s->local_dis_dtc_frame, T30_DIS_BIT_READY_TO_RECEIVE_FAX_DOCUMENT); /* If we have a file name to transmit, then we are ready to transmit (polling) */ if (s->tx_file[0]) set_ctrl_bit(s->local_dis_dtc_frame, T30_DIS_BIT_READY_TO_TRANSMIT_FAX_DOCUMENT); else clr_ctrl_bit(s->local_dis_dtc_frame, T30_DIS_BIT_READY_TO_TRANSMIT_FAX_DOCUMENT); return 0; } /*- End of function --------------------------------------------------------*/ int t30_build_dis_or_dtc(t30_state_t *s) { int i; /* Build a skeleton for the DIS and DTC messages. This will be edited for the dynamically changing capabilities (e.g. can receive) just before it is sent. It might also be edited if the application changes our capabilities (e.g. disabling fine mode). Right now we set up all the unchanging stuff about what we are capable of doing. */ s->local_dis_dtc_frame[0] = ADDRESS_FIELD; s->local_dis_dtc_frame[1] = CONTROL_FIELD_FINAL_FRAME; s->local_dis_dtc_frame[2] = (uint8_t) (T30_DIS | s->dis_received); for (i = 3; i < 19; i++) s->local_dis_dtc_frame[i] = 0x00; /* Always say 256 octets per ECM frame preferred, as 64 is never used in the real world. */ if ((s->iaf & T30_IAF_MODE_T37)) set_ctrl_bit(s->local_dis_dtc_frame, T30_DIS_BIT_T37); if ((s->iaf & T30_IAF_MODE_T38)) set_ctrl_bit(s->local_dis_dtc_frame, T30_DIS_BIT_T38); /* No 3G mobile */ /* No V.8 */ /* 256 octets preferred - don't bother making this optional, as everything uses 256 */ /* Ready to transmit a fax (polling) will be determined separately, and this message edited. */ /* Ready to receive a fax will be determined separately, and this message edited. */ /* With no modems set we are actually selecting V.27ter fallback at 2400bps */ if ((s->supported_modems & T30_SUPPORT_V27TER)) set_ctrl_bit(s->local_dis_dtc_frame, 12); if ((s->supported_modems & T30_SUPPORT_V29)) set_ctrl_bit(s->local_dis_dtc_frame, 11); /* V.17 is only valid when combined with V.29 and V.27ter, so if we enable V.17 we force the others too. */ if ((s->supported_modems & T30_SUPPORT_V17)) s->local_dis_dtc_frame[4] |= (DISBIT6 | DISBIT4 | DISBIT3); if ((s->supported_resolutions & T30_SUPPORT_FINE_RESOLUTION)) set_ctrl_bit(s->local_dis_dtc_frame, 15); if ((s->supported_compressions & T30_SUPPORT_T4_2D_COMPRESSION)) set_ctrl_bit(s->local_dis_dtc_frame, 16); /* 215mm wide is always supported */ if ((s->supported_image_sizes & T30_SUPPORT_303MM_WIDTH)) set_ctrl_bit(s->local_dis_dtc_frame, 18); else if ((s->supported_image_sizes & T30_SUPPORT_255MM_WIDTH)) set_ctrl_bit(s->local_dis_dtc_frame, 17); /* A4 is always supported. */ if ((s->supported_image_sizes & T30_SUPPORT_UNLIMITED_LENGTH)) set_ctrl_bit(s->local_dis_dtc_frame, 20); else if ((s->supported_image_sizes & T30_SUPPORT_B4_LENGTH)) set_ctrl_bit(s->local_dis_dtc_frame, 19); /* No scan-line padding required, but some may be specified by the application. */ set_ctrl_bits(s->local_dis_dtc_frame, s->local_min_scan_time_code, 21); if ((s->supported_compressions & T30_SUPPORT_NO_COMPRESSION)) set_ctrl_bit(s->local_dis_dtc_frame, T30_DIS_BIT_UNCOMPRESSED_CAPABLE); if (s->ecm_allowed) { /* ECM allowed */ set_ctrl_bit(s->local_dis_dtc_frame, T30_DIS_BIT_ECM_CAPABLE); /* Only offer the option of fancy compression schemes, if we are also offering the ECM option needed to support them. */ if ((s->supported_compressions & T30_SUPPORT_T6_COMPRESSION)) set_ctrl_bit(s->local_dis_dtc_frame, T30_DIS_BIT_T6_CAPABLE); if ((s->supported_compressions & T30_SUPPORT_T43_COMPRESSION)) set_ctrl_bit(s->local_dis_dtc_frame, T30_DIS_BIT_T43_CAPABLE); if ((s->supported_compressions & T30_SUPPORT_T45_COMPRESSION)) set_ctrl_bit(s->local_dis_dtc_frame, T30_DIS_BIT_T45_CAPABLE); if ((s->supported_compressions & T30_SUPPORT_T81_COMPRESSION)) set_ctrl_bit(s->local_dis_dtc_frame, T30_DIS_BIT_T81_CAPABLE); if ((s->supported_compressions & T30_SUPPORT_SYCC_T81_COMPRESSION)) set_ctrl_bit(s->local_dis_dtc_frame, T30_DIS_BIT_SYCC_T81_CAPABLE); if ((s->supported_compressions & T30_SUPPORT_T85_COMPRESSION)) { set_ctrl_bit(s->local_dis_dtc_frame, T30_DIS_BIT_T85_CAPABLE); if ((s->supported_compressions & T30_SUPPORT_T85_L0_COMPRESSION)) set_ctrl_bit(s->local_dis_dtc_frame, T30_DIS_BIT_T85_L0_CAPABLE); } //if ((s->supported_compressions & T30_SUPPORT_T89_COMPRESSION)) // set_ctrl_bit(s->local_dis_dtc_frame, T30_DIS_BIT_T89_CAPABLE); } if ((s->supported_t30_features & T30_SUPPORT_FIELD_NOT_VALID)) set_ctrl_bit(s->local_dis_dtc_frame, T30_DIS_BIT_FNV_CAPABLE); if ((s->supported_t30_features & T30_SUPPORT_MULTIPLE_SELECTIVE_POLLING)) set_ctrl_bit(s->local_dis_dtc_frame, T30_DIS_BIT_MULTIPLE_SELECTIVE_POLLING_CAPABLE); if ((s->supported_t30_features & T30_SUPPORT_POLLED_SUB_ADDRESSING)) set_ctrl_bit(s->local_dis_dtc_frame, T30_DIS_BIT_POLLED_SUBADDRESSING_CAPABLE); /* No plane interleave */ /* No G.726 */ /* No extended voice coding */ if ((s->supported_resolutions & T30_SUPPORT_SUPERFINE_RESOLUTION)) set_ctrl_bit(s->local_dis_dtc_frame, T30_DIS_BIT_200_400_CAPABLE); if ((s->supported_resolutions & T30_SUPPORT_300_300_RESOLUTION)) set_ctrl_bit(s->local_dis_dtc_frame, T30_DIS_BIT_300_300_CAPABLE); if ((s->supported_resolutions & (T30_SUPPORT_400_400_RESOLUTION | T30_SUPPORT_R16_RESOLUTION))) set_ctrl_bit(s->local_dis_dtc_frame, T30_DIS_BIT_400_400_CAPABLE); /* Metric */ set_ctrl_bit(s->local_dis_dtc_frame, T30_DIS_BIT_METRIC_RESOLUTION_PREFERRED); /* Superfine minimum scan line time pattern follows fine */ if ((s->supported_t30_features & T30_SUPPORT_SELECTIVE_POLLING)) set_ctrl_bit(s->local_dis_dtc_frame, T30_DIS_BIT_SELECTIVE_POLLING_CAPABLE); if ((s->supported_t30_features & T30_SUPPORT_SUB_ADDRESSING)) set_ctrl_bit(s->local_dis_dtc_frame, T30_DIS_BIT_SUBADDRESSING_CAPABLE); if ((s->supported_t30_features & T30_SUPPORT_IDENTIFICATION)) set_ctrl_bit(s->local_dis_dtc_frame, T30_DIS_BIT_PASSWORD); /* Ready to transmit a data file (polling) */ if (s->tx_file[0]) set_ctrl_bit(s->local_dis_dtc_frame, T30_DIS_BIT_READY_TO_TRANSMIT_DATA_FILE); /* No Binary file transfer (BFT) */ /* No Document transfer mode (DTM) */ /* No Electronic data interchange (EDI) */ /* No Basic transfer mode (BTM) */ /* No mixed mode (polling) */ /* No character mode */ /* No mixed mode (T.4/Annex E) */ /* No mode 26 (T.505) */ /* No digital network capability */ /* No duplex operation */ /* No JPEG */ /* No full colour */ /* No 12bits/pel */ /* No sub-sampling (1:1:1) */ /* No custom illuminant */ /* No custom gamut range */ if ((s->supported_image_sizes & T30_SUPPORT_US_LETTER_LENGTH)) set_ctrl_bit(s->local_dis_dtc_frame, T30_DIS_BIT_NORTH_AMERICAN_LETTER_CAPABLE); if ((s->supported_image_sizes & T30_SUPPORT_US_LEGAL_LENGTH)) set_ctrl_bit(s->local_dis_dtc_frame, T30_DIS_BIT_NORTH_AMERICAN_LEGAL_CAPABLE); /* No HKM key management */ /* No RSA key management */ /* No override */ /* No HFX40 cipher */ /* No alternative cipher number 2 */ /* No alternative cipher number 3 */ /* No HFX40-I hashing */ /* No alternative hashing system number 2 */ /* No alternative hashing system number 3 */ /* No T.44 (mixed raster content) */ /* No page length maximum strip size for T.44 (mixed raster content) */ /* No colour/grey scale 300x300 or 400x400 */ /* No colour/grey scale 100x100 */ /* No simple phase C BFT negotiations */ /* No extended BFT negotiations */ if ((s->supported_t30_features & T30_SUPPORT_INTERNET_SELECTIVE_POLLING_ADDRESS)) set_ctrl_bit(s->local_dis_dtc_frame, T30_DIS_BIT_INTERNET_SELECTIVE_POLLING_ADDRESS); if ((s->supported_t30_features & T30_SUPPORT_INTERNET_ROUTING_ADDRESS)) set_ctrl_bit(s->local_dis_dtc_frame, T30_DIS_BIT_INTERNET_ROUTING_ADDRESS); if ((s->supported_resolutions & T30_SUPPORT_600_600_RESOLUTION)) set_ctrl_bit(s->local_dis_dtc_frame, T30_DIS_BIT_600_600_CAPABLE); if ((s->supported_resolutions & T30_SUPPORT_1200_1200_RESOLUTION)) set_ctrl_bit(s->local_dis_dtc_frame, T30_DIS_BIT_1200_1200_CAPABLE); if ((s->supported_resolutions & T30_SUPPORT_300_600_RESOLUTION)) set_ctrl_bit(s->local_dis_dtc_frame, T30_DIS_BIT_300_600_CAPABLE); if ((s->supported_resolutions & T30_SUPPORT_400_800_RESOLUTION)) set_ctrl_bit(s->local_dis_dtc_frame, T30_DIS_BIT_400_800_CAPABLE); if ((s->supported_resolutions & T30_SUPPORT_600_1200_RESOLUTION)) set_ctrl_bit(s->local_dis_dtc_frame, T30_DIS_BIT_600_1200_CAPABLE); /* No colour/grey scale 600x600 */ /* No colour/grey scale 1200x1200 */ /* No double sided printing (alternate mode) */ /* No double sided printing (continuous mode) */ /* No black and white mixed raster content profile */ /* No shared data memory */ /* No T.44 colour space */ if ((s->iaf & T30_IAF_MODE_FLOW_CONTROL)) set_ctrl_bit(s->local_dis_dtc_frame, T30_DIS_BIT_T38_FLOW_CONTROL_CAPABLE); /* No k > 4 */ if ((s->iaf & T30_IAF_MODE_CONTINUOUS_FLOW)) set_ctrl_bit(s->local_dis_dtc_frame, T30_DIS_BIT_T38_FAX_CAPABLE); /* No T.88/T.89 profile */ s->local_dis_dtc_len = 19; //t30_decode_dis_dtc_dcs(s, s->local_dis_dtc_frame, s->local_dis_dtc_len); return 0; } /*- End of function --------------------------------------------------------*/ static int prune_dis_dtc(t30_state_t *s) { int i; /* Find the last octet that is really needed, set the extension bits, and trim the message length */ for (i = 18; i >= 6; i--) { /* Strip the top bit */ s->local_dis_dtc_frame[i] &= (DISBIT1 | DISBIT2 | DISBIT3 | DISBIT4 | DISBIT5 | DISBIT6 | DISBIT7); /* Check if there is some real message content here */ if (s->local_dis_dtc_frame[i]) break; } s->local_dis_dtc_len = i + 1; /* Fill in any required extension bits */ s->local_dis_dtc_frame[i] &= ~DISBIT8; for (i--; i > 4; i--) s->local_dis_dtc_frame[i] |= DISBIT8; t30_decode_dis_dtc_dcs(s, s->local_dis_dtc_frame, s->local_dis_dtc_len); return s->local_dis_dtc_len; } /*- End of function --------------------------------------------------------*/ static int build_dcs(t30_state_t *s) { int i; int bad; /* Make a DCS frame based on local issues and the latest received DIS/DTC frame. Negotiate the result based on what both parties can do. */ s->dcs_frame[0] = ADDRESS_FIELD; s->dcs_frame[1] = CONTROL_FIELD_FINAL_FRAME; s->dcs_frame[2] = (uint8_t) (T30_DCS | s->dis_received); for (i = 3; i < 19; i++) s->dcs_frame[i] = 0x00; #if 0 /* Check for T.37 simple mode. */ if (test_ctrl_bit(s->far_dis_dtc_frame, T30_DIS_BIT_T37)) set_ctrl_bit(s->dcs_frame, T30_DCS_BIT_T37); /* Check for T.38 mode. */ if (test_ctrl_bit(s->far_dis_dtc_frame, T30_DIS_BIT_T38)) set_ctrl_bit(s->dcs_frame, T30_DCS_BIT_T38); #endif /* Set to required modem rate */ s->dcs_frame[4] |= fallback_sequence[s->current_fallback].dcs_code; /* Select the compression to use. */ switch (s->line_encoding) { case T4_COMPRESSION_ITU_T85: set_ctrl_bit(s->dcs_frame, T30_DCS_BIT_T85_MODE); clr_ctrl_bit(s->dcs_frame, T30_DCS_BIT_T85_L0_MODE); set_ctrl_bits(s->dcs_frame, T30_MIN_SCAN_0MS, 21); break; case T4_COMPRESSION_ITU_T85_L0: set_ctrl_bit(s->dcs_frame, T30_DCS_BIT_T85_MODE); set_ctrl_bit(s->dcs_frame, T30_DCS_BIT_T85_L0_MODE); set_ctrl_bits(s->dcs_frame, T30_MIN_SCAN_0MS, 21); break; case T4_COMPRESSION_ITU_T6: set_ctrl_bit(s->dcs_frame, T30_DCS_BIT_T6_MODE); set_ctrl_bits(s->dcs_frame, T30_MIN_SCAN_0MS, 21); break; case T4_COMPRESSION_ITU_T4_2D: set_ctrl_bit(s->dcs_frame, T30_DCS_BIT_2D_CODING); set_ctrl_bits(s->dcs_frame, s->min_scan_time_code, 21); break; case T4_COMPRESSION_ITU_T4_1D: set_ctrl_bits(s->dcs_frame, s->min_scan_time_code, 21); break; default: set_ctrl_bits(s->dcs_frame, T30_MIN_SCAN_0MS, 21); break; } /* We have a file to send, so tell the far end to go into receive mode. */ set_ctrl_bit(s->dcs_frame, T30_DCS_BIT_RECEIVE_FAX_DOCUMENT); /* Set the Y resolution bits */ bad = T30_ERR_OK; switch (s->y_resolution) { case T4_Y_RESOLUTION_1200: switch (s->x_resolution) { case T4_X_RESOLUTION_600: if (!(s->supported_resolutions & T30_SUPPORT_600_1200_RESOLUTION)) bad = T30_ERR_NORESSUPPORT; else set_ctrl_bit(s->dcs_frame, T30_DCS_BIT_600_1200); break; case T4_X_RESOLUTION_1200: if (!(s->supported_resolutions & T30_SUPPORT_1200_1200_RESOLUTION)) bad = T30_ERR_NORESSUPPORT; else set_ctrl_bit(s->dcs_frame, T30_DCS_BIT_1200_1200); break; default: bad = T30_ERR_NORESSUPPORT; break; } break; case T4_Y_RESOLUTION_800: switch (s->x_resolution) { case T4_X_RESOLUTION_R16: if (!(s->supported_resolutions & T30_SUPPORT_400_800_RESOLUTION)) bad = T30_ERR_NORESSUPPORT; else set_ctrl_bit(s->dcs_frame, T30_DCS_BIT_400_800); break; default: bad = T30_ERR_NORESSUPPORT; break; } break; case T4_Y_RESOLUTION_600: switch (s->x_resolution) { case T4_X_RESOLUTION_300: if (!(s->supported_resolutions & T30_SUPPORT_300_600_RESOLUTION)) bad = T30_ERR_NORESSUPPORT; else set_ctrl_bit(s->dcs_frame, T30_DCS_BIT_300_600); break; case T4_X_RESOLUTION_600: if (!(s->supported_resolutions & T30_SUPPORT_600_600_RESOLUTION)) bad = T30_ERR_NORESSUPPORT; else set_ctrl_bit(s->dcs_frame, T30_DCS_BIT_600_600); break; default: bad = T30_ERR_NORESSUPPORT; break; } break; case T4_Y_RESOLUTION_SUPERFINE: if (!(s->supported_resolutions & T30_SUPPORT_SUPERFINE_RESOLUTION)) { bad = T30_ERR_NORESSUPPORT; } else { switch (s->x_resolution) { case T4_X_RESOLUTION_R8: set_ctrl_bit(s->dcs_frame, T30_DCS_BIT_200_400); break; case T4_X_RESOLUTION_R16: set_ctrl_bit(s->dcs_frame, T30_DCS_BIT_400_400); break; default: bad = T30_ERR_NORESSUPPORT; break; } } break; case T4_Y_RESOLUTION_300: switch (s->x_resolution) { case T4_X_RESOLUTION_300: if (!(s->supported_resolutions & T30_SUPPORT_300_300_RESOLUTION)) bad = T30_ERR_NORESSUPPORT; else set_ctrl_bit(s->dcs_frame, T30_DCS_BIT_300_300); break; default: bad = T30_ERR_NORESSUPPORT; break; } break; case T4_Y_RESOLUTION_FINE: if (!(s->supported_resolutions & T30_SUPPORT_FINE_RESOLUTION)) { bad = T30_ERR_NORESSUPPORT; } else { switch (s->x_resolution) { case T4_X_RESOLUTION_R8: set_ctrl_bit(s->dcs_frame, T30_DCS_BIT_200_200); break; default: bad = T30_ERR_NORESSUPPORT; break; } } break; default: case T4_Y_RESOLUTION_STANDARD: switch (s->x_resolution) { case T4_X_RESOLUTION_R8: /* No bits to set for this */ break; default: bad = T30_ERR_NORESSUPPORT; break; } break; } if (bad != T30_ERR_OK) { s->current_status = bad; span_log(&s->logging, SPAN_LOG_FLOW, "Image resolution (%d x %d) not acceptable\n", s->x_resolution, s->y_resolution); return -1; } /* Deal with the image width. The X resolution will fall in line with any valid width. */ /* Low (R4) res widths are not supported in recent versions of T.30 */ bad = T30_ERR_OK; /* The following treats a width field of 11 like 10, which does what note 6 of Table 2/T.30 says we should do with the invalid value 11. */ switch (s->image_width) { case T4_WIDTH_R8_A4: case T4_WIDTH_300_A4: case T4_WIDTH_R16_A4: case T4_WIDTH_600_A4: case T4_WIDTH_1200_A4: /* No width related bits need to be set. */ break; case T4_WIDTH_R8_B4: case T4_WIDTH_300_B4: case T4_WIDTH_R16_B4: case T4_WIDTH_600_B4: case T4_WIDTH_1200_B4: if ((s->far_dis_dtc_frame[5] & (DISBIT2 | DISBIT1)) < 1) bad = T30_ERR_NOSIZESUPPORT; else if (!(s->supported_image_sizes & T30_SUPPORT_255MM_WIDTH)) bad = T30_ERR_NOSIZESUPPORT; else set_ctrl_bit(s->dcs_frame, 17); break; case T4_WIDTH_R8_A3: case T4_WIDTH_300_A3: case T4_WIDTH_R16_A3: case T4_WIDTH_600_A3: case T4_WIDTH_1200_A3: if ((s->far_dis_dtc_frame[5] & (DISBIT2 | DISBIT1)) < 2) bad = T30_ERR_NOSIZESUPPORT; else if (!(s->supported_image_sizes & T30_SUPPORT_303MM_WIDTH)) bad = T30_ERR_NOSIZESUPPORT; else set_ctrl_bit(s->dcs_frame, 18); break; default: /* T.30 does not support this width */ bad = T30_ERR_NOSIZESUPPORT; break; } if (bad != T30_ERR_OK) { s->current_status = bad; span_log(&s->logging, SPAN_LOG_FLOW, "Image width (%d pixels) not an acceptable FAX image width\n", s->image_width); return -1; } switch (s->image_width) { case T4_WIDTH_R8_A4: case T4_WIDTH_R8_B4: case T4_WIDTH_R8_A3: /* These are always OK */ break; case T4_WIDTH_300_A4: case T4_WIDTH_300_B4: case T4_WIDTH_300_A3: if (!test_ctrl_bit(s->far_dis_dtc_frame, T30_DIS_BIT_300_300_CAPABLE) && !test_ctrl_bit(s->far_dis_dtc_frame, T30_DIS_BIT_300_600_CAPABLE)) bad = T30_ERR_NOSIZESUPPORT; break; case T4_WIDTH_R16_A4: case T4_WIDTH_R16_B4: case T4_WIDTH_R16_A3: if (!test_ctrl_bit(s->far_dis_dtc_frame, T30_DIS_BIT_400_400_CAPABLE)) bad = T30_ERR_NOSIZESUPPORT; break; case T4_WIDTH_600_A4: case T4_WIDTH_600_B4: case T4_WIDTH_600_A3: if (!test_ctrl_bit(s->far_dis_dtc_frame, T30_DIS_BIT_600_600_CAPABLE) && !test_ctrl_bit(s->far_dis_dtc_frame, T30_DIS_BIT_600_1200_CAPABLE)) bad = T30_ERR_NOSIZESUPPORT; break; case T4_WIDTH_1200_A4: case T4_WIDTH_1200_B4: case T4_WIDTH_1200_A3: if (!test_ctrl_bit(s->far_dis_dtc_frame, T30_DIS_BIT_1200_1200_CAPABLE)) bad = T30_ERR_NOSIZESUPPORT; break; default: /* T.30 does not support this width */ bad = T30_ERR_NOSIZESUPPORT; break; } if (bad != T30_ERR_OK) { s->current_status = bad; span_log(&s->logging, SPAN_LOG_FLOW, "Image width (%d pixels) not an acceptable FAX image width\n", s->image_width); return -1; } /* Deal with the image length */ /* If the other end supports unlimited length, then use that. Otherwise, if the other end supports B4 use that, as its longer than the default A4 length. */ if (test_ctrl_bit(s->far_dis_dtc_frame, 20)) set_ctrl_bit(s->dcs_frame, 20); else if (test_ctrl_bit(s->far_dis_dtc_frame, 19)) set_ctrl_bit(s->dcs_frame, 19); if (s->error_correcting_mode) set_ctrl_bit(s->dcs_frame, T30_DCS_BIT_ECM); if ((s->iaf & T30_IAF_MODE_FLOW_CONTROL) && test_ctrl_bit(s->far_dis_dtc_frame, T30_DIS_BIT_T38_FLOW_CONTROL_CAPABLE)) set_ctrl_bit(s->dcs_frame, T30_DCS_BIT_T38_FLOW_CONTROL_CAPABLE); if ((s->iaf & T30_IAF_MODE_CONTINUOUS_FLOW) && test_ctrl_bit(s->far_dis_dtc_frame, T30_DIS_BIT_T38_FAX_CAPABLE)) { /* Clear the modem type bits, in accordance with note 77 of Table 2/T.30 */ clr_ctrl_bit(s->local_dis_dtc_frame, 11); clr_ctrl_bit(s->local_dis_dtc_frame, 12); clr_ctrl_bit(s->local_dis_dtc_frame, 13); clr_ctrl_bit(s->local_dis_dtc_frame, 14); set_ctrl_bit(s->dcs_frame, T30_DCS_BIT_T38_FAX_MODE); } s->dcs_len = 19; //t30_decode_dis_dtc_dcs(s, s->dcs_frame, s->dcs_len); return 0; } /*- End of function --------------------------------------------------------*/ static int prune_dcs(t30_state_t *s) { int i; /* Find the last octet that is really needed, set the extension bits, and trim the message length */ for (i = 18; i >= 6; i--) { /* Strip the top bit */ s->dcs_frame[i] &= (DISBIT1 | DISBIT2 | DISBIT3 | DISBIT4 | DISBIT5 | DISBIT6 | DISBIT7); /* Check if there is some real message content here */ if (s->dcs_frame[i]) break; } s->dcs_len = i + 1; /* Fill in any required extension bits */ s->local_dis_dtc_frame[i] &= ~DISBIT8; for (i-- ; i > 4; i--) s->dcs_frame[i] |= DISBIT8; t30_decode_dis_dtc_dcs(s, s->dcs_frame, s->dcs_len); return s->dcs_len; } /*- End of function --------------------------------------------------------*/ static int step_fallback_entry(t30_state_t *s) { int min_row_bits; while (fallback_sequence[++s->current_fallback].which) { if ((fallback_sequence[s->current_fallback].which & s->current_permitted_modems)) break; } if (fallback_sequence[s->current_fallback].which == 0) return -1; /* TODO: This only sets the minimum row time for future pages. It doesn't fix up the current page, though it is benign - fallback will only result in an excessive minimum. */ min_row_bits = set_min_scan_time_code(s); t4_tx_set_min_bits_per_row(&s->t4.tx, min_row_bits); /* We need to rebuild the DCS message we will send. */ build_dcs(s); return s->current_fallback; } /*- End of function --------------------------------------------------------*/ static int find_fallback_entry(int dcs_code) { int i; /* The table is short, and not searched often, so a brain-dead linear scan seems OK */ for (i = 0; fallback_sequence[i].bit_rate; i++) { if (fallback_sequence[i].dcs_code == dcs_code) break; } if (fallback_sequence[i].bit_rate == 0) return -1; return i; } /*- End of function --------------------------------------------------------*/ static void send_dcn(t30_state_t *s) { queue_phase(s, T30_PHASE_D_TX); set_state(s, T30_STATE_C); send_simple_frame(s, T30_DCN); } /*- End of function --------------------------------------------------------*/ static void return_to_phase_b(t30_state_t *s, int with_fallback) { /* This is what we do after things like T30_EOM is exchanged. */ #if 0 if (step_fallback_entry(s) < 0) { /* We have fallen back as far as we can go. Give up. */ s->current_fallback = 0; s->current_status = T30_ERR_CANNOT_TRAIN; send_dcn(s); } else { if (s->calling_party) set_state(s, T30_STATE_T); else set_state(s, T30_STATE_R); } #else if (s->calling_party) set_state(s, T30_STATE_T); else set_state(s, T30_STATE_R); #endif } /*- End of function --------------------------------------------------------*/ static int send_dis_or_dtc_sequence(t30_state_t *s, int start) { /* (NSF) (CSI) DIS */ /* (NSC) (CIG) (PWD) (SEP) (PSA) (CIA) (ISP) DTC */ if (start) { set_dis_or_dtc(s); set_state(s, T30_STATE_R); s->step = 0; } if (!s->dis_received) { /* DIS sequence */ switch (s->step) { case 0: s->step++; if (send_nsf_frame(s)) break; /* Fall through */ case 1: s->step++; if (send_ident_frame(s, T30_CSI)) break; /* Fall through */ case 2: s->step++; prune_dis_dtc(s); send_frame(s, s->local_dis_dtc_frame, s->local_dis_dtc_len); break; case 3: s->step++; /* Shut down HDLC transmission. */ if (s->send_hdlc_handler) s->send_hdlc_handler(s->send_hdlc_user_data, NULL, 0); break; default: return -1; } } else { /* DTC sequence */ switch (s->step) { case 0: s->step++; if (send_nsc_frame(s)) break; /* Fall through */ case 1: s->step++; if (send_ident_frame(s, T30_CIG)) break; /* Fall through */ case 2: s->step++; if (send_pwd_frame(s)) break; /* Fall through */ case 3: s->step++; if (send_sep_frame(s)) break; /* Fall through */ case 4: s->step++; if (send_psa_frame(s)) break; /* Fall through */ case 5: s->step++; if (send_cia_frame(s)) break; /* Fall through */ case 6: s->step++; if (send_isp_frame(s)) break; /* Fall through */ case 7: s->step++; prune_dis_dtc(s); send_frame(s, s->local_dis_dtc_frame, s->local_dis_dtc_len); break; case 8: s->step++; /* Shut down HDLC transmission. */ if (s->send_hdlc_handler) s->send_hdlc_handler(s->send_hdlc_user_data, NULL, 0); break; default: return -1; } } return 0; } /*- End of function --------------------------------------------------------*/ static int send_dcs_sequence(t30_state_t *s, int start) { /* (NSS) (TSI) (SUB) (SID) (TSA) (IRA) DCS */ /* Schedule training after the messages */ if (start) { prune_dcs(s); set_state(s, T30_STATE_D); s->step = 0; } switch (s->step) { case 0: s->step++; if (send_nss_frame(s)) break; /* Fall through */ case 1: s->step++; if (send_ident_frame(s, T30_TSI)) break; /* Fall through */ case 2: s->step++; if (send_sub_frame(s)) break; /* Fall through */ case 3: s->step++; if (send_sid_frame(s)) break; /* Fall through */ case 4: s->step++; if (send_tsa_frame(s)) break; /* Fall through */ case 5: s->step++; if (send_ira_frame(s)) break; /* Fall through */ case 6: s->step++; prune_dcs(s); send_frame(s, s->dcs_frame, s->dcs_len); break; case 7: s->step++; /* Shut down HDLC transmission. */ if (s->send_hdlc_handler) s->send_hdlc_handler(s->send_hdlc_user_data, NULL, 0); break; default: return -1; } return 0; } /*- End of function --------------------------------------------------------*/ static int send_cfr_sequence(t30_state_t *s, int start) { /* (CSA) CFR */ /* CFR is usually a simple frame, but can become a sequence with Internet FAXing. */ send_simple_frame(s, T30_CFR); return 0; } /*- End of function --------------------------------------------------------*/ static void disconnect(t30_state_t *s) { span_log(&s->logging, SPAN_LOG_FLOW, "Disconnecting\n"); /* Make sure any FAX in progress is tidied up. If the tidying up has already happened, repeating it here is harmless. */ terminate_operation_in_progress(s); s->timer_t0_t1 = 0; s->timer_t2_t4 = 0; s->timer_t3 = 0; s->timer_t5 = 0; set_phase(s, T30_PHASE_E); set_state(s, T30_STATE_B); } /*- End of function --------------------------------------------------------*/ static int set_min_scan_time_code(t30_state_t *s) { /* Translation between the codes for the minimum scan times the other end needs, and the codes for what we say will be used. We need 0 minimum. */ static const uint8_t translate_min_scan_time[3][8] = { {T30_MIN_SCAN_20MS, T30_MIN_SCAN_5MS, T30_MIN_SCAN_10MS, T30_MIN_SCAN_20MS, T30_MIN_SCAN_40MS, T30_MIN_SCAN_40MS, T30_MIN_SCAN_10MS, T30_MIN_SCAN_0MS}, /* normal */ {T30_MIN_SCAN_20MS, T30_MIN_SCAN_5MS, T30_MIN_SCAN_10MS, T30_MIN_SCAN_10MS, T30_MIN_SCAN_40MS, T30_MIN_SCAN_20MS, T30_MIN_SCAN_5MS, T30_MIN_SCAN_0MS}, /* fine */ {T30_MIN_SCAN_10MS, T30_MIN_SCAN_5MS, T30_MIN_SCAN_5MS, T30_MIN_SCAN_5MS, T30_MIN_SCAN_20MS, T30_MIN_SCAN_10MS, T30_MIN_SCAN_5MS, T30_MIN_SCAN_0MS} /* superfine, when half fine time is selected */ }; /* Translation between the codes for the minimum scan time we will use, and milliseconds. */ static const int min_scan_times[8] = { 20, 5, 10, 0, 40, 0, 0, 0 }; int min_bits_field; /* Set the minimum scan time bits */ if (s->error_correcting_mode) min_bits_field = T30_MIN_SCAN_0MS; else min_bits_field = (s->far_dis_dtc_frame[5] >> 4) & 7; switch (s->y_resolution) { case T4_Y_RESOLUTION_SUPERFINE: if (!test_ctrl_bit(s->far_dis_dtc_frame, T30_DIS_BIT_200_400_CAPABLE)) { s->current_status = T30_ERR_NORESSUPPORT; span_log(&s->logging, SPAN_LOG_FLOW, "Remote FAX does not support super-fine resolution.\n"); return -1; } s->min_scan_time_code = translate_min_scan_time[(test_ctrl_bit(s->far_dis_dtc_frame, T30_DIS_BIT_MIN_SCAN_TIME_HALVES)) ? 2 : 1][min_bits_field]; break; case T4_Y_RESOLUTION_FINE: if (!test_ctrl_bit(s->far_dis_dtc_frame, T30_DIS_BIT_200_200_CAPABLE)) { s->current_status = T30_ERR_NORESSUPPORT; span_log(&s->logging, SPAN_LOG_FLOW, "Remote FAX does not support fine resolution.\n"); return -1; } s->min_scan_time_code = translate_min_scan_time[1][min_bits_field]; break; default: case T4_Y_RESOLUTION_STANDARD: s->min_scan_time_code = translate_min_scan_time[0][min_bits_field]; break; } if (!s->error_correcting_mode && (s->iaf & T30_IAF_MODE_NO_FILL_BITS)) return 0; return fallback_sequence[s->current_fallback].bit_rate*min_scan_times[s->min_scan_time_code]/1000; } /*- End of function --------------------------------------------------------*/ static int start_sending_document(t30_state_t *s) { int min_row_bits; if (s->tx_file[0] == '\0') { /* There is nothing to send */ span_log(&s->logging, SPAN_LOG_FLOW, "No document to send\n"); return -1; } span_log(&s->logging, SPAN_LOG_FLOW, "Start sending document\n"); if (t4_tx_init(&s->t4.tx, s->tx_file, s->tx_start_page, s->tx_stop_page) == NULL) { span_log(&s->logging, SPAN_LOG_WARNING, "Cannot open source TIFF file '%s'\n", s->tx_file); s->current_status = T30_ERR_FILEERROR; return -1; } s->operation_in_progress = OPERATION_IN_PROGRESS_T4_TX; t4_tx_get_pages_in_file(&s->t4.tx); t4_tx_set_tx_encoding(&s->t4.tx, s->line_encoding); t4_tx_set_local_ident(&s->t4.tx, s->tx_info.ident); t4_tx_set_header_info(&s->t4.tx, s->header_info); s->x_resolution = t4_tx_get_x_resolution(&s->t4.tx); s->y_resolution = t4_tx_get_y_resolution(&s->t4.tx); /* The minimum scan time to be used can't be evaluated until we know the Y resolution, and must be evaluated before the minimum scan row bits can be evaluated. */ if ((min_row_bits = set_min_scan_time_code(s)) < 0) { terminate_operation_in_progress(s); return -1; } span_log(&s->logging, SPAN_LOG_FLOW, "Minimum bits per row will be %d\n", min_row_bits); t4_tx_set_min_bits_per_row(&s->t4.tx, min_row_bits); if (tx_start_page(s)) return -1; s->image_width = t4_tx_get_image_width(&s->t4.tx); if (s->error_correcting_mode) { if (get_partial_ecm_page(s) == 0) span_log(&s->logging, SPAN_LOG_WARNING, "No image data to send\n"); } return 0; } /*- End of function --------------------------------------------------------*/ static int restart_sending_document(t30_state_t *s) { t4_tx_restart_page(&s->t4.tx); s->retries = 0; s->ecm_block = 0; send_dcs_sequence(s, TRUE); return 0; } /*- End of function --------------------------------------------------------*/ static int start_receiving_document(t30_state_t *s) { if (s->rx_file[0] == '\0') { /* There is nothing to receive to */ span_log(&s->logging, SPAN_LOG_FLOW, "No document to receive\n"); return -1; } span_log(&s->logging, SPAN_LOG_FLOW, "Start receiving document\n"); queue_phase(s, T30_PHASE_B_TX); s->ecm_block = 0; send_dis_or_dtc_sequence(s, TRUE); return 0; } /*- End of function --------------------------------------------------------*/ static void unexpected_non_final_frame(t30_state_t *s, const uint8_t *msg, int len) { span_log(&s->logging, SPAN_LOG_FLOW, "Unexpected %s frame in state %d\n", t30_frametype(msg[2]), s->state); if (s->current_status == T30_ERR_OK) s->current_status = T30_ERR_UNEXPECTED; } /*- End of function --------------------------------------------------------*/ static void unexpected_final_frame(t30_state_t *s, const uint8_t *msg, int len) { span_log(&s->logging, SPAN_LOG_FLOW, "Unexpected %s frame in state %d\n", t30_frametype(msg[2]), s->state); if (s->current_status == T30_ERR_OK) s->current_status = T30_ERR_UNEXPECTED; send_dcn(s); } /*- End of function --------------------------------------------------------*/ static void unexpected_frame_length(t30_state_t *s, const uint8_t *msg, int len) { span_log(&s->logging, SPAN_LOG_FLOW, "Unexpected %s frame length - %d\n", t30_frametype(msg[0]), len); if (s->current_status == T30_ERR_OK) s->current_status = T30_ERR_UNEXPECTED; send_dcn(s); } /*- End of function --------------------------------------------------------*/ static int process_rx_dis_dtc(t30_state_t *s, const uint8_t *msg, int len) { int new_status; t30_decode_dis_dtc_dcs(s, msg, len); if (len < 6) { span_log(&s->logging, SPAN_LOG_FLOW, "Short DIS/DTC frame\n"); return -1; } if (msg[2] == T30_DIS) s->dis_received = TRUE; /* Make a local copy of the message, padded to the maximum possible length with zeros. This allows us to simply pick out the bits, without worrying about whether they were set from the remote side. */ s->far_dis_dtc_len = (len > T30_MAX_DIS_DTC_DCS_LEN) ? T30_MAX_DIS_DTC_DCS_LEN : len; memcpy(s->far_dis_dtc_frame, msg, s->far_dis_dtc_len); if (s->far_dis_dtc_len < T30_MAX_DIS_DTC_DCS_LEN) memset(s->far_dis_dtc_frame + s->far_dis_dtc_len, 0, T30_MAX_DIS_DTC_DCS_LEN - s->far_dis_dtc_len); s->error_correcting_mode = (s->ecm_allowed && (s->far_dis_dtc_frame[6] & DISBIT3) != 0); /* 256 octets per ECM frame */ s->octets_per_ecm_frame = 256; /* Select the compression to use. */ if (s->error_correcting_mode && (s->supported_compressions & T30_SUPPORT_T85_COMPRESSION) && test_ctrl_bit(s->far_dis_dtc_frame, T30_DIS_BIT_T85_CAPABLE)) { if (s->supported_compressions & T30_SUPPORT_T85_L0_COMPRESSION && test_ctrl_bit(s->far_dis_dtc_frame, T30_DIS_BIT_T85_L0_CAPABLE)) { s->line_encoding = T4_COMPRESSION_ITU_T85_L0; } else { s->line_encoding = T4_COMPRESSION_ITU_T85; } } else if (s->error_correcting_mode && (s->supported_compressions & T30_SUPPORT_T6_COMPRESSION) && test_ctrl_bit(s->far_dis_dtc_frame, T30_DIS_BIT_T6_CAPABLE)) { s->line_encoding = T4_COMPRESSION_ITU_T6; } else if ((s->supported_compressions & T30_SUPPORT_T4_2D_COMPRESSION) && test_ctrl_bit(s->far_dis_dtc_frame, T30_DIS_BIT_2D_CAPABLE)) { s->line_encoding = T4_COMPRESSION_ITU_T4_2D; } else { s->line_encoding = T4_COMPRESSION_ITU_T4_1D; } span_log(&s->logging, SPAN_LOG_FLOW, "Selected compression %s (%d)\n", t4_encoding_to_str(s->line_encoding), s->line_encoding); switch (s->far_dis_dtc_frame[4] & (DISBIT6 | DISBIT5 | DISBIT4 | DISBIT3)) { case (DISBIT6 | DISBIT4 | DISBIT3): if ((s->supported_modems & T30_SUPPORT_V17)) { s->current_permitted_modems = T30_SUPPORT_V17 | T30_SUPPORT_V29 | T30_SUPPORT_V27TER; s->current_fallback = T30_V17_FALLBACK_START; break; } /* Fall through */ case (DISBIT4 | DISBIT3): if ((s->supported_modems & T30_SUPPORT_V29)) { s->current_permitted_modems = T30_SUPPORT_V29 | T30_SUPPORT_V27TER; s->current_fallback = T30_V29_FALLBACK_START; break; } /* Fall through */ case DISBIT4: s->current_permitted_modems = T30_SUPPORT_V27TER; s->current_fallback = T30_V27TER_FALLBACK_START; break; case 0: s->current_permitted_modems = T30_SUPPORT_V27TER; s->current_fallback = T30_V27TER_FALLBACK_START + 1; break; case DISBIT3: if ((s->supported_modems & T30_SUPPORT_V29)) { /* TODO: this doesn't allow for skipping the V.27ter modes */ s->current_permitted_modems = T30_SUPPORT_V29; s->current_fallback = T30_V29_FALLBACK_START; break; } /* Fall through */ default: span_log(&s->logging, SPAN_LOG_FLOW, "Remote does not support a compatible modem\n"); /* We cannot talk to this machine! */ s->current_status = T30_ERR_INCOMPATIBLE; return -1; } if (s->phase_b_handler) { new_status = s->phase_b_handler(s, s->phase_b_user_data, msg[2]); if (new_status != T30_ERR_OK) { span_log(&s->logging, SPAN_LOG_FLOW, "Application rejected DIS/DTC - '%s'\n", t30_completion_code_to_str(new_status)); s->current_status = new_status; /* TODO: If FNV is allowed, process it here */ send_dcn(s); return -1; } } queue_phase(s, T30_PHASE_B_TX); /* Try to send something */ if (s->tx_file[0]) { span_log(&s->logging, SPAN_LOG_FLOW, "Trying to send file '%s'\n", s->tx_file); if (!test_ctrl_bit(s->far_dis_dtc_frame, T30_DIS_BIT_READY_TO_RECEIVE_FAX_DOCUMENT)) { span_log(&s->logging, SPAN_LOG_FLOW, "%s far end cannot receive\n", t30_frametype(msg[2])); s->current_status = T30_ERR_RX_INCAPABLE; send_dcn(s); } if (start_sending_document(s)) { send_dcn(s); return -1; } if (build_dcs(s)) { span_log(&s->logging, SPAN_LOG_FLOW, "The far end is incompatible\n", s->tx_file); send_dcn(s); return -1; } s->retries = 0; send_dcs_sequence(s, TRUE); return 0; } span_log(&s->logging, SPAN_LOG_FLOW, "%s nothing to send\n", t30_frametype(msg[2])); /* ... then try to receive something */ if (s->rx_file[0]) { span_log(&s->logging, SPAN_LOG_FLOW, "Trying to receive file '%s'\n", s->rx_file); if (!test_ctrl_bit(s->far_dis_dtc_frame, T30_DIS_BIT_READY_TO_TRANSMIT_FAX_DOCUMENT)) { span_log(&s->logging, SPAN_LOG_FLOW, "%s far end cannot transmit\n", t30_frametype(msg[2])); s->current_status = T30_ERR_TX_INCAPABLE; send_dcn(s); return -1; } if (start_receiving_document(s)) { send_dcn(s); return -1; } if (set_dis_or_dtc(s)) { s->current_status = T30_ERR_INCOMPATIBLE; send_dcn(s); return -1; } s->retries = 0; send_dis_or_dtc_sequence(s, TRUE); return 0; } span_log(&s->logging, SPAN_LOG_FLOW, "%s nothing to receive\n", t30_frametype(msg[2])); /* There is nothing to do, or nothing we are able to do. */ send_dcn(s); return -1; } /*- End of function --------------------------------------------------------*/ static int process_rx_dcs(t30_state_t *s, const uint8_t *msg, int len) { static const int widths[6][4] = { { T4_WIDTH_R4_A4, T4_WIDTH_R4_B4, T4_WIDTH_R4_A3, -1}, /* R4 resolution - no longer used in recent versions of T.30 */ { T4_WIDTH_R8_A4, T4_WIDTH_R8_B4, T4_WIDTH_R8_A3, -1}, /* R8 resolution */ { T4_WIDTH_300_A4, T4_WIDTH_300_B4, T4_WIDTH_300_A3, -1}, /* 300/inch resolution */ { T4_WIDTH_R16_A4, T4_WIDTH_R16_B4, T4_WIDTH_R16_A3, -1}, /* R16 resolution */ { T4_WIDTH_600_A4, T4_WIDTH_600_B4, T4_WIDTH_600_A3, -1}, /* 600/inch resolution */ {T4_WIDTH_1200_A4, T4_WIDTH_1200_B4, T4_WIDTH_1200_A3, -1} /* 1200/inch resolution */ }; uint8_t dcs_frame[T30_MAX_DIS_DTC_DCS_LEN]; int i; int new_status; t30_decode_dis_dtc_dcs(s, msg, len); /* Check DCS frame from remote */ if (len < 6) { span_log(&s->logging, SPAN_LOG_FLOW, "Short DCS frame\n"); return -1; } /* Make an ASCII string format copy of the message, for logging in the received file. This string does not include the frame header octets. */ sprintf(s->rx_dcs_string, "%02X", bit_reverse8(msg[3])); for (i = 4; i < len; i++) sprintf(s->rx_dcs_string + 3*i - 10, " %02X", bit_reverse8(msg[i])); /* Make a local copy of the message, padded to the maximum possible length with zeros. This allows us to simply pick out the bits, without worrying about whether they were set from the remote side. */ if (len > T30_MAX_DIS_DTC_DCS_LEN) { memcpy(dcs_frame, msg, T30_MAX_DIS_DTC_DCS_LEN); } else { memcpy(dcs_frame, msg, len); if (len < T30_MAX_DIS_DTC_DCS_LEN) memset(dcs_frame + len, 0, T30_MAX_DIS_DTC_DCS_LEN - len); } s->octets_per_ecm_frame = test_ctrl_bit(dcs_frame, T30_DCS_BIT_64_OCTET_ECM_FRAMES) ? 256 : 64; if (test_ctrl_bit(dcs_frame, T30_DCS_BIT_1200_1200)) s->x_resolution = T4_X_RESOLUTION_1200; else if (test_ctrl_bit(dcs_frame, T30_DCS_BIT_600_600) || test_ctrl_bit(dcs_frame, T30_DCS_BIT_600_1200)) s->x_resolution = T4_X_RESOLUTION_600; else if (test_ctrl_bit(dcs_frame, T30_DCS_BIT_400_400) || test_ctrl_bit(dcs_frame, T30_DCS_BIT_400_800)) s->x_resolution = T4_X_RESOLUTION_R16; else if (test_ctrl_bit(dcs_frame, T30_DCS_BIT_300_300) || test_ctrl_bit(dcs_frame, T30_DCS_BIT_300_600)) s->x_resolution = T4_X_RESOLUTION_300; else s->x_resolution = T4_X_RESOLUTION_R8; if (test_ctrl_bit(dcs_frame, T30_DCS_BIT_1200_1200) || test_ctrl_bit(dcs_frame, T30_DCS_BIT_600_1200)) s->y_resolution = T4_Y_RESOLUTION_1200; else if (test_ctrl_bit(dcs_frame, T30_DCS_BIT_400_800)) s->y_resolution = T4_Y_RESOLUTION_800; else if (test_ctrl_bit(dcs_frame, T30_DCS_BIT_600_600) || test_ctrl_bit(dcs_frame, T30_DCS_BIT_300_600)) s->y_resolution = T4_Y_RESOLUTION_600; else if (test_ctrl_bit(dcs_frame, T30_DCS_BIT_200_400) || test_ctrl_bit(dcs_frame, T30_DCS_BIT_400_400)) s->y_resolution = T4_Y_RESOLUTION_SUPERFINE; else if (test_ctrl_bit(dcs_frame, T30_DCS_BIT_300_300)) s->y_resolution = T4_Y_RESOLUTION_300; else if (test_ctrl_bit(dcs_frame, T30_DCS_BIT_200_200)) s->y_resolution = T4_Y_RESOLUTION_FINE; else s->y_resolution = T4_Y_RESOLUTION_STANDARD; if (s->x_resolution == T4_X_RESOLUTION_1200) i = 5; else if (s->x_resolution == T4_X_RESOLUTION_600) i = 4; else if (s->x_resolution == T4_X_RESOLUTION_R16) i = 3; else if (s->x_resolution == T4_X_RESOLUTION_300) i = 2; else if (s->x_resolution == T4_X_RESOLUTION_R4) i = 0; else i = 1; s->image_width = widths[i][dcs_frame[5] & (DISBIT2 | DISBIT1)]; /* Check which compression we will use. */ if (test_ctrl_bit(dcs_frame, T30_DCS_BIT_T85_MODE)) { if (test_ctrl_bit(dcs_frame, T30_DCS_BIT_T85_L0_MODE)) s->line_encoding = T4_COMPRESSION_ITU_T85_L0; else s->line_encoding = T4_COMPRESSION_ITU_T85; } else if (test_ctrl_bit(dcs_frame, T30_DCS_BIT_T6_MODE)) { s->line_encoding = T4_COMPRESSION_ITU_T6; } else if (test_ctrl_bit(dcs_frame, T30_DCS_BIT_2D_CODING)) { s->line_encoding = T4_COMPRESSION_ITU_T4_2D; } else { s->line_encoding = T4_COMPRESSION_ITU_T4_1D; } span_log(&s->logging, SPAN_LOG_FLOW, "Selected compression %s (%d)\n", t4_encoding_to_str(s->line_encoding), s->line_encoding); if (!test_ctrl_bit(dcs_frame, T30_DCS_BIT_RECEIVE_FAX_DOCUMENT)) span_log(&s->logging, SPAN_LOG_PROTOCOL_WARNING, "Remote is not requesting receive in DCS\n"); if ((s->current_fallback = find_fallback_entry(dcs_frame[4] & (DISBIT6 | DISBIT5 | DISBIT4 | DISBIT3))) < 0) { span_log(&s->logging, SPAN_LOG_FLOW, "Remote asked for a modem standard we do not support\n"); return -1; } s->error_correcting_mode = (test_ctrl_bit(dcs_frame, T30_DCS_BIT_ECM) != 0); if (s->phase_b_handler) { new_status = s->phase_b_handler(s, s->phase_b_user_data, msg[2]); if (new_status != T30_ERR_OK) { span_log(&s->logging, SPAN_LOG_FLOW, "Application rejected DCS - '%s'\n", t30_completion_code_to_str(new_status)); s->current_status = new_status; /* TODO: If FNV is allowed, process it here */ send_dcn(s); return -1; } } /* Start document reception */ span_log(&s->logging, SPAN_LOG_FLOW, "Get document at %dbps, modem %d\n", fallback_sequence[s->current_fallback].bit_rate, fallback_sequence[s->current_fallback].modem_type); if (s->rx_file[0] == '\0') { span_log(&s->logging, SPAN_LOG_FLOW, "No document to receive\n"); s->current_status = T30_ERR_FILEERROR; send_dcn(s); return -1; } if (s->operation_in_progress != OPERATION_IN_PROGRESS_T4_RX) { if (t4_rx_init(&s->t4.rx, s->rx_file, s->output_encoding) == NULL) { span_log(&s->logging, SPAN_LOG_WARNING, "Cannot open target TIFF file '%s'\n", s->rx_file); s->current_status = T30_ERR_FILEERROR; send_dcn(s); return -1; } s->operation_in_progress = OPERATION_IN_PROGRESS_T4_RX; } if (!(s->iaf & T30_IAF_MODE_NO_TCF)) { /* TCF is always sent with long training */ s->short_train = FALSE; set_state(s, T30_STATE_F_TCF); queue_phase(s, T30_PHASE_C_NON_ECM_RX); timer_t2_start(s); } return 0; } /*- End of function --------------------------------------------------------*/ static int send_response_to_pps(t30_state_t *s) { queue_phase(s, T30_PHASE_D_TX); if (s->rx_ecm_block_ok) { set_state(s, T30_STATE_F_POST_RCP_MCF); send_simple_frame(s, T30_MCF); } else { /* We need to send the PPR frame we have created, to try to fill in the missing/bad data. */ set_state(s, T30_STATE_F_POST_RCP_PPR); s->ecm_frame_map[0] = ADDRESS_FIELD; s->ecm_frame_map[1] = CONTROL_FIELD_FINAL_FRAME; s->ecm_frame_map[2] = (uint8_t) (T30_PPR | s->dis_received); send_frame(s, s->ecm_frame_map, 3 + 32); } return 0; } /*- End of function --------------------------------------------------------*/ #define VET_ALL_FCD_FRAMES static int process_rx_pps(t30_state_t *s, const uint8_t *msg, int len) { int page; int block; int frames; int i; int j; int frame_no; int first_bad_frame; int image_ended; #if defined(VET_ALL_FCD_FRAMES) int first; int expected_len; #endif if (len < 7) { span_log(&s->logging, SPAN_LOG_FLOW, "Bad PPS message length %d.\n", len); return -1; } s->last_pps_fcf2 = msg[3] & 0xFE; /* The frames count is not well specified in T.30. In practice it seems it might be the number of frames in the current block, or it might be the number of frames in the current burst of transmission. For a burst of resent frames this would make it smaller than the actual size of the block. If we only accept the number when it exceeds previous values, we should get the real number of frames in the block. */ frames = msg[6] + 1; block = msg[5]; page = msg[4]; if (s->ecm_frames < 0) { /* First time. Take the number and believe in it. */ s->ecm_frames = frames; } else { /* If things have gone wrong, the far end might try to send us zero FCD frames. It can't represent zero in the block count field, so it might put zero there, or it might simplistically insert (blocks - 1), and put 0xFF there. Beware of this. */ if (frames == 0xFF) { /* This is probably zero, erroneously rolled over to the maximum count */ frames = 0; } } span_log(&s->logging, SPAN_LOG_FLOW, "Received PPS + %s - page %d, block %d, %d frames\n", t30_frametype(msg[3]), page, block, frames); /* Check that we have received the page and block we expected. If the far end missed our last response, it might have repeated the previous chunk. */ if ((s->rx_page_number & 0xFF) != page || (s->ecm_block & 0xFF) != block) { span_log(&s->logging, SPAN_LOG_FLOW, "ECM rx page/block mismatch - expected %d/%d, but received %d/%d.\n", (s->rx_page_number & 0xFF), (s->ecm_block & 0xFF), page, block); /* Look for this being a repeat, because the other end missed the last response we sent - which would have been a T30_MCF - If the block is for the previous page, or the previous block of the current page, we can assume we have hit this condition. */ if (((s->rx_page_number & 0xFF) == page && (s->ecm_block & 0xFF) == block) || (((s->rx_page_number - 1) & 0xFF) == page && s->ecm_block == 0)) { /* This must be a repeat of the last thing the far end sent, while we are expecting the first transfer of a new block. */ span_log(&s->logging, SPAN_LOG_FLOW, "Looks like a repeat from the previous page/block - send MCF again.\n"); /* Clear the ECM buffer */ for (i = 0; i < 256; i++) s->ecm_len[i] = -1; s->ecm_frames = -1; queue_phase(s, T30_PHASE_D_TX); set_state(s, T30_STATE_F_POST_RCP_MCF); send_simple_frame(s, T30_MCF); } else { /* Give up */ s->current_status = T30_ERR_RX_ECMPHD; send_dcn(s); } return 0; } /* Build a bit map of which frames we now have stored OK */ first_bad_frame = 256; #if defined(VET_ALL_FCD_FRAMES) first = TRUE; expected_len = 256; #endif for (i = 0; i < 32; i++) { s->ecm_frame_map[i + 3] = 0; for (j = 0; j < 8; j++) { frame_no = (i << 3) + j; #if defined(VET_ALL_FCD_FRAMES) if (s->ecm_len[frame_no] >= 0) { if (frame_no < s->ecm_frames - 1) { if (first) { if (s->ecm_len[frame_no] == 64) expected_len = 64; first = FALSE; } if (s->ecm_len[frame_no] != expected_len) { span_log(&s->logging, SPAN_LOG_FLOW, "Bad length ECM frame - %d\n", s->ecm_len[frame_no]); s->ecm_len[frame_no] = -1; } } } #endif if (s->ecm_len[frame_no] < 0) { s->ecm_frame_map[i + 3] |= (1 << j); if (frame_no < first_bad_frame) first_bad_frame = frame_no; if (frame_no < s->ecm_frames) s->error_correcting_mode_retries++; } } } s->rx_ecm_block_ok = (first_bad_frame >= s->ecm_frames); if (s->rx_ecm_block_ok) { span_log(&s->logging, SPAN_LOG_FLOW, "Partial page OK - committing block %d, %d frames\n", s->ecm_block, s->ecm_frames); image_ended = FALSE; for (i = 0; i < s->ecm_frames; i++) { if (t4_rx_put_chunk(&s->t4.rx, s->ecm_data[i], s->ecm_len[i])) { /* This is the end of the document */ image_ended = TRUE; break; } } /* Clear the ECM buffer */ for (i = 0; i < 256; i++) s->ecm_len[i] = -1; s->ecm_block++; s->ecm_frames = -1; switch (s->last_pps_fcf2) { case T30_NULL: /* We can accept only this partial page. */ break; default: /* We can accept and confirm the whole page. */ s->next_rx_step = s->last_pps_fcf2; rx_end_page(s); report_rx_ecm_page_result(s); if (s->phase_d_handler) s->phase_d_handler(s, s->phase_d_user_data, s->last_pps_fcf2); rx_start_page(s); break; } } switch (s->last_pps_fcf2) { case T30_PRI_MPS: case T30_PRI_EOM: case T30_PRI_EOP: if (s->remote_interrupts_allowed) { } /* Fall through */ case T30_NULL: case T30_MPS: case T30_EOM: case T30_EOS: case T30_EOP: if (s->receiver_not_ready_count > 0) { s->receiver_not_ready_count--; queue_phase(s, T30_PHASE_D_TX); set_state(s, T30_STATE_F_POST_RCP_RNR); send_simple_frame(s, T30_RNR); } else { send_response_to_pps(s); } break; default: unexpected_final_frame(s, msg, len); break; } return 0; } /*- End of function --------------------------------------------------------*/ static void process_rx_ppr(t30_state_t *s, const uint8_t *msg, int len) { int i; int j; int frame_no; uint8_t frame[4]; if (len != 3 + 32) { span_log(&s->logging, SPAN_LOG_FLOW, "Bad length for PPR bits - %d\n", len); /* TODO: probably should send DCN */ return; } /* Check which frames are OK, and mark them as OK. */ for (i = 0; i < 32; i++) { for (j = 0; j < 8; j++) { frame_no = (i << 3) + j; /* Tick off the frames they are not complaining about as OK */ if ((msg[i + 3] & (1 << j)) == 0) { if (s->ecm_len[frame_no] >= 0) s->ecm_progress++; s->ecm_len[frame_no] = -1; } else { if (frame_no < s->ecm_frames) { span_log(&s->logging, SPAN_LOG_FLOW, "Frame %d to be resent\n", frame_no); s->error_correcting_mode_retries++; } #if 0 /* Diagnostic: See if the other end is complaining about something we didn't even send this time. */ if (s->ecm_len[frame_no] < 0) span_log(&s->logging, SPAN_LOG_FLOW, "PPR contains complaint about frame %d, which was not sent\n", frame_no); #endif } } } if (++s->ppr_count >= PPR_LIMIT_BEFORE_CTC_OR_EOR) { /* Continue to correct? */ /* Continue only if we have been making progress */ s->ppr_count = 0; if (s->ecm_progress) { s->ecm_progress = 0; queue_phase(s, T30_PHASE_D_TX); set_state(s, T30_STATE_IV_CTC); send_simple_frame(s, T30_CTC); } else { set_state(s, T30_STATE_IV_EOR); queue_phase(s, T30_PHASE_D_TX); frame[0] = ADDRESS_FIELD; frame[1] = CONTROL_FIELD_FINAL_FRAME; frame[2] = (uint8_t) (T30_EOR | s->dis_received); frame[3] = (s->ecm_at_page_end) ? ((uint8_t) (s->next_tx_step | s->dis_received)) : T30_NULL; span_log(&s->logging, SPAN_LOG_FLOW, "Sending EOR + %s\n", t30_frametype(frame[3])); send_frame(s, frame, 4); } } else { /* Initiate resending of the remainder of the frames. */ set_state(s, T30_STATE_IV); queue_phase(s, T30_PHASE_C_ECM_TX); send_first_ecm_frame(s); } } /*- End of function --------------------------------------------------------*/ static void process_rx_fcd(t30_state_t *s, const uint8_t *msg, int len) { int frame_no; /* Facsimile coded data */ switch (s->state) { case T30_STATE_F_DOC_ECM: if (len > 4 + 256) { /* For other frame types we kill the call on an unexpected frame length. For FCD frames it is better to just ignore the frame, and let retries sort things out. */ span_log(&s->logging, SPAN_LOG_FLOW, "Unexpected %s frame length - %d\n", t30_frametype(msg[0]), len); } else { frame_no = msg[3]; /* Just store the actual image data, and record its length */ span_log(&s->logging, SPAN_LOG_FLOW, "Storing ECM frame %d, length %d\n", frame_no, len - 4); memcpy(&s->ecm_data[frame_no][0], &msg[4], len - 4); s->ecm_len[frame_no] = (int16_t) (len - 4); /* In case we are just after a CTC/CTR exchange, which kicked us back to long training */ s->short_train = TRUE; } /* We have received something, so any missing carrier status is out of date */ if (s->current_status == T30_ERR_RX_NOCARRIER) s->current_status = T30_ERR_OK; break; default: unexpected_non_final_frame(s, msg, len); break; } } /*- End of function --------------------------------------------------------*/ static void process_rx_rcp(t30_state_t *s, const uint8_t *msg, int len) { /* Return to control for partial page. These might come through with or without the final frame tag. Here we deal with the "no final frame tag" case. */ switch (s->state) { case T30_STATE_F_DOC_ECM: set_state(s, T30_STATE_F_POST_DOC_ECM); queue_phase(s, T30_PHASE_D_RX); timer_t2_start(s); /* We have received something, so any missing carrier status is out of date */ if (s->current_status == T30_ERR_RX_NOCARRIER) s->current_status = T30_ERR_OK; break; case T30_STATE_F_POST_DOC_ECM: /* Just ignore this. It must be an extra RCP. Several are usually sent, to maximise the chance of receiving a correct one. */ timer_t2_start(s); break; default: unexpected_non_final_frame(s, msg, len); break; } } /*- End of function --------------------------------------------------------*/ static void process_rx_fnv(t30_state_t *s, const uint8_t *msg, int len) { logging_state_t *log; const char *x; /* Field not valid */ /* TODO: analyse the message, as per 5.3.6.2.13 */ if (!span_log_test(&s->logging, SPAN_LOG_FLOW)) return; log = &s->logging; if ((msg[3] & 0x01)) span_log(log, SPAN_LOG_FLOW, " Incorrect password (PWD).\n"); if ((msg[3] & 0x02)) span_log(log, SPAN_LOG_FLOW, " Selective polling reference (SEP) not known.\n"); if ((msg[3] & 0x04)) span_log(log, SPAN_LOG_FLOW, " Sub-address (SUB) not known.\n"); if ((msg[3] & 0x08)) span_log(log, SPAN_LOG_FLOW, " Sender identity (SID) not known.\n"); if ((msg[3] & 0x10)) span_log(log, SPAN_LOG_FLOW, " Secure fax error.\n"); if ((msg[3] & 0x20)) span_log(log, SPAN_LOG_FLOW, " Transmitting subscriber identity (TSI) not accepted.\n"); if ((msg[3] & 0x40)) span_log(log, SPAN_LOG_FLOW, " Polled sub-address (PSA) not known.\n"); if (len > 4 && (msg[3] & DISBIT8)) { if ((msg[4] & 0x01)) span_log(log, SPAN_LOG_FLOW, " BFT negotiations request not accepted.\n"); if ((msg[4] & 0x02)) span_log(log, SPAN_LOG_FLOW, " Internet routing address (IRA) not known.\n"); if ((msg[4] & 0x04)) span_log(log, SPAN_LOG_FLOW, " Internet selective polling address (ISP) not known.\n"); } if (len > 5) { span_log(log, SPAN_LOG_FLOW, " FNV sequence number %d.\n", msg[5]); } if (len > 6) { switch (msg[6]) { case T30_PWD: x = "Incorrect password (PWD)"; break; case T30_SEP: x = "Selective polling reference (SEP) not known"; break; case T30_SUB: case T30_SUB | 0x01: x = "Sub-address (SUB) not known"; break; case T30_SID: case T30_SID | 0x01: x = "Sender identity (SID) not known"; break; case T30_SPI: x = "Secure fax error"; break; case T30_TSI: case T30_TSI | 0x01: x = "Transmitting subscriber identity (TSI) not accepted"; break; case T30_PSA: x = "Polled sub-address (PSA) not known"; break; default: x = "???"; break; } span_log(log, SPAN_LOG_FLOW, " FNV diagnostic info type %s.\n", x); } if (len > 7) { span_log(log, SPAN_LOG_FLOW, " FNV length %d.\n", msg[7]); } /* We've decoded it, but we don't yet know how to deal with it, so treat it as unexpected */ unexpected_final_frame(s, msg, len); } /*- End of function --------------------------------------------------------*/ static void process_state_answering(t30_state_t *s, const uint8_t *msg, int len) { uint8_t fcf; /* We should be sending the TCF data right now */ fcf = msg[2] & 0xFE; switch (fcf) { case T30_DIS: /* TODO: This is a fudge to allow for starting up in T.38, where the other end has seen DIS by analogue modem means, and has immediately sent DIS/DTC. We might have missed useful info, like TSI, but just accept things and carry on form now. */ span_log(&s->logging, SPAN_LOG_FLOW, "DIS/DTC before DIS\n"); process_rx_dis_dtc(s, msg, len); break; case T30_DCS: /* TODO: This is a fudge to allow for starting up in T.38, where the other end has seen DIS by analogue modem means, and has immediately sent DCS. We might have missed useful info, like TSI, but just accept things and carry on form now. */ span_log(&s->logging, SPAN_LOG_FLOW, "DCS before DIS\n"); process_rx_dcs(s, msg, len); break; case T30_DCN: s->current_status = T30_ERR_TX_GOTDCN; disconnect(s); break; default: /* We don't know what to do with this. */ unexpected_final_frame(s, msg, len); break; } } /*- End of function --------------------------------------------------------*/ static void process_state_b(t30_state_t *s, const uint8_t *msg, int len) { uint8_t fcf; fcf = msg[2] & 0xFE; switch (fcf) { case T30_DCN: /* Just ignore any DCN's which appear at this stage. */ break; case T30_CRP: repeat_last_command(s); break; case T30_FNV: process_rx_fnv(s, msg, len); break; default: /* We don't know what to do with this. */ unexpected_final_frame(s, msg, len); break; } } /*- End of function --------------------------------------------------------*/ static void process_state_c(t30_state_t *s, const uint8_t *msg, int len) { uint8_t fcf; fcf = msg[2] & 0xFE; switch (fcf) { case T30_DCN: /* Just ignore any DCN's which appear at this stage. */ break; case T30_CRP: repeat_last_command(s); break; case T30_FNV: process_rx_fnv(s, msg, len); break; default: /* We don't know what to do with this. */ unexpected_final_frame(s, msg, len); break; } } /*- End of function --------------------------------------------------------*/ static void process_state_d(t30_state_t *s, const uint8_t *msg, int len) { uint8_t fcf; /* We should be sending the DCS sequence right now */ fcf = msg[2] & 0xFE; switch (fcf) { case T30_DCN: s->current_status = T30_ERR_TX_BADDCS; disconnect(s); break; case T30_CRP: repeat_last_command(s); break; case T30_FNV: process_rx_fnv(s, msg, len); break; default: /* We don't know what to do with this. */ unexpected_final_frame(s, msg, len); break; } } /*- End of function --------------------------------------------------------*/ static void process_state_d_tcf(t30_state_t *s, const uint8_t *msg, int len) { uint8_t fcf; /* We should be sending the TCF data right now */ fcf = msg[2] & 0xFE; switch (fcf) { case T30_DCN: s->current_status = T30_ERR_TX_BADDCS; disconnect(s); break; case T30_CRP: repeat_last_command(s); break; case T30_FNV: process_rx_fnv(s, msg, len); break; default: /* We don't know what to do with this. */ unexpected_final_frame(s, msg, len); break; } } /*- End of function --------------------------------------------------------*/ static void process_state_d_post_tcf(t30_state_t *s, const uint8_t *msg, int len) { uint8_t fcf; fcf = msg[2] & 0xFE; switch (fcf) { case T30_CFR: /* Trainability test succeeded. Send the document. */ span_log(&s->logging, SPAN_LOG_FLOW, "Trainability test succeeded\n"); s->retries = 0; s->short_train = TRUE; if (s->error_correcting_mode) { set_state(s, T30_STATE_IV); queue_phase(s, T30_PHASE_C_ECM_TX); send_first_ecm_frame(s); } else { set_state(s, T30_STATE_I); queue_phase(s, T30_PHASE_C_NON_ECM_TX); } break; case T30_FTT: /* Trainability test failed. Try again. */ span_log(&s->logging, SPAN_LOG_FLOW, "Trainability test failed\n"); s->retries = 0; s->short_train = FALSE; if (step_fallback_entry(s) < 0) { /* We have fallen back as far as we can go. Give up. */ s->current_fallback = 0; s->current_status = T30_ERR_CANNOT_TRAIN; send_dcn(s); break; } queue_phase(s, T30_PHASE_B_TX); send_dcs_sequence(s, TRUE); break; case T30_DIS: /* It appears they didn't see what we sent - retry the TCF */ if (++s->retries >= MAX_COMMAND_TRIES) { span_log(&s->logging, SPAN_LOG_FLOW, "Too many retries. Giving up.\n"); s->current_status = T30_ERR_RETRYDCN; send_dcn(s); break; } span_log(&s->logging, SPAN_LOG_FLOW, "Retry number %d\n", s->retries); queue_phase(s, T30_PHASE_B_TX); /* TODO: should we reassess the new DIS message, and possibly adjust the DCS we use? */ send_dcs_sequence(s, TRUE); break; case T30_DCN: s->current_status = T30_ERR_TX_BADDCS; disconnect(s); break; case T30_CRP: repeat_last_command(s); break; case T30_FNV: process_rx_fnv(s, msg, len); break; default: /* We don't know what to do with this. */ unexpected_final_frame(s, msg, len); break; } } /*- End of function --------------------------------------------------------*/ static void process_state_f_tcf(t30_state_t *s, const uint8_t *msg, int len) { uint8_t fcf; /* We should be receiving TCF right now, not HDLC messages */ fcf = msg[2] & 0xFE; switch (fcf) { case T30_CRP: repeat_last_command(s); break; case T30_FNV: process_rx_fnv(s, msg, len); break; default: /* We don't know what to do with this. */ unexpected_final_frame(s, msg, len); break; } } /*- End of function --------------------------------------------------------*/ static void process_state_f_cfr(t30_state_t *s, const uint8_t *msg, int len) { uint8_t fcf; /* We're waiting for a response to the CFR we sent */ fcf = msg[2] & 0xFE; switch (fcf) { case T30_DCS: /* If we received another DCS, they must have missed our CFR */ process_rx_dcs(s, msg, len); break; case T30_CRP: repeat_last_command(s); break; case T30_FNV: process_rx_fnv(s, msg, len); break; default: /* We don't know what to do with this. */ unexpected_final_frame(s, msg, len); break; } } /*- End of function --------------------------------------------------------*/ static void process_state_f_ftt(t30_state_t *s, const uint8_t *msg, int len) { uint8_t fcf; /* We're waiting for a response to the FTT we sent */ fcf = msg[2] & 0xFE; switch (fcf) { case T30_DCS: process_rx_dcs(s, msg, len); break; case T30_CRP: repeat_last_command(s); break; case T30_FNV: process_rx_fnv(s, msg, len); break; default: /* We don't know what to do with this. */ unexpected_final_frame(s, msg, len); break; } } /*- End of function --------------------------------------------------------*/ static void process_state_f_doc_non_ecm(t30_state_t *s, const uint8_t *msg, int len) { uint8_t fcf; /* If we are getting HDLC messages, and we have not moved to the _POST_DOC_NON_ECM state, it looks like either: - we didn't see the image data carrier properly, or - they didn't see our T30_CFR, and are repeating the DCS/TCF sequence. - they didn't see out T30_MCF, and are repeating the end of page message. */ fcf = msg[2] & 0xFE; switch (fcf) { case T30_DIS: process_rx_dis_dtc(s, msg, len); break; case T30_DCS: process_rx_dcs(s, msg, len); break; case T30_PRI_MPS: if (s->remote_interrupts_allowed) { } /* Fall through */ case T30_MPS: /* Treat this as a bad quality page. */ if (s->phase_d_handler) s->phase_d_handler(s, s->phase_d_user_data, fcf); s->next_rx_step = msg[2] & 0xFE; queue_phase(s, T30_PHASE_D_TX); set_state(s, T30_STATE_III_Q_RTN); send_simple_frame(s, T30_RTN); break; case T30_PRI_EOM: if (s->remote_interrupts_allowed) { } /* Fall through */ case T30_EOM: case T30_EOS: /* Treat this as a bad quality page. */ if (s->phase_d_handler) s->phase_d_handler(s, s->phase_d_user_data, fcf); s->next_rx_step = msg[2] & 0xFE; /* Return to phase B */ queue_phase(s, T30_PHASE_B_TX); set_state(s, T30_STATE_III_Q_RTN); send_simple_frame(s, T30_RTN); break; case T30_PRI_EOP: if (s->remote_interrupts_allowed) { } /* Fall through */ case T30_EOP: /* Treat this as a bad quality page. */ if (s->phase_d_handler) s->phase_d_handler(s, s->phase_d_user_data, fcf); s->next_rx_step = msg[2] & 0xFE; queue_phase(s, T30_PHASE_D_TX); set_state(s, T30_STATE_III_Q_RTN); send_simple_frame(s, T30_RTN); break; case T30_DCN: s->current_status = T30_ERR_RX_DCNDATA; disconnect(s); break; case T30_CRP: repeat_last_command(s); break; case T30_FNV: process_rx_fnv(s, msg, len); break; default: /* We don't know what to do with this. */ s->current_status = T30_ERR_RX_INVALCMD; unexpected_final_frame(s, msg, len); break; } } /*- End of function --------------------------------------------------------*/ static void process_state_f_post_doc_non_ecm(t30_state_t *s, const uint8_t *msg, int len) { uint8_t fcf; fcf = msg[2] & 0xFE; switch (fcf) { case T30_PRI_MPS: if (s->remote_interrupts_allowed) { } /* Fall through */ case T30_MPS: s->next_rx_step = fcf; queue_phase(s, T30_PHASE_D_TX); switch (copy_quality(s)) { case T30_COPY_QUALITY_PERFECT: case T30_COPY_QUALITY_GOOD: rx_end_page(s); if (s->phase_d_handler) s->phase_d_handler(s, s->phase_d_user_data, fcf); rx_start_page(s); set_state(s, T30_STATE_III_Q_MCF); send_simple_frame(s, T30_MCF); break; case T30_COPY_QUALITY_POOR: rx_end_page(s); if (s->phase_d_handler) s->phase_d_handler(s, s->phase_d_user_data, fcf); rx_start_page(s); set_state(s, T30_STATE_III_Q_RTP); send_simple_frame(s, T30_RTP); break; case T30_COPY_QUALITY_BAD: if (s->phase_d_handler) s->phase_d_handler(s, s->phase_d_user_data, fcf); rx_start_page(s); set_state(s, T30_STATE_III_Q_RTN); send_simple_frame(s, T30_RTN); break; } break; case T30_PRI_EOM: if (s->remote_interrupts_allowed) { } /* Fall through */ case T30_EOM: case T30_EOS: s->next_rx_step = fcf; /* Return to phase B */ queue_phase(s, T30_PHASE_B_TX); switch (copy_quality(s)) { case T30_COPY_QUALITY_PERFECT: case T30_COPY_QUALITY_GOOD: rx_end_page(s); if (s->phase_d_handler) s->phase_d_handler(s, s->phase_d_user_data, fcf); rx_start_page(s); set_state(s, T30_STATE_III_Q_MCF); send_simple_frame(s, T30_MCF); break; case T30_COPY_QUALITY_POOR: rx_end_page(s); if (s->phase_d_handler) s->phase_d_handler(s, s->phase_d_user_data, fcf); rx_start_page(s); set_state(s, T30_STATE_III_Q_RTP); send_simple_frame(s, T30_RTP); break; case T30_COPY_QUALITY_BAD: if (s->phase_d_handler) s->phase_d_handler(s, s->phase_d_user_data, fcf); rx_start_page(s); set_state(s, T30_STATE_III_Q_RTN); send_simple_frame(s, T30_RTN); break; } break; case T30_PRI_EOP: if (s->remote_interrupts_allowed) { } /* Fall through */ case T30_EOP: s->next_rx_step = fcf; queue_phase(s, T30_PHASE_D_TX); switch (copy_quality(s)) { case T30_COPY_QUALITY_PERFECT: case T30_COPY_QUALITY_GOOD: rx_end_page(s); if (s->phase_d_handler) s->phase_d_handler(s, s->phase_d_user_data, fcf); terminate_operation_in_progress(s); set_state(s, T30_STATE_III_Q_MCF); send_simple_frame(s, T30_MCF); break; case T30_COPY_QUALITY_POOR: rx_end_page(s); if (s->phase_d_handler) s->phase_d_handler(s, s->phase_d_user_data, fcf); terminate_operation_in_progress(s); set_state(s, T30_STATE_III_Q_RTP); send_simple_frame(s, T30_RTP); break; case T30_COPY_QUALITY_BAD: if (s->phase_d_handler) s->phase_d_handler(s, s->phase_d_user_data, fcf); set_state(s, T30_STATE_III_Q_RTN); send_simple_frame(s, T30_RTN); break; } break; case T30_DCN: s->current_status = T30_ERR_RX_DCNFAX; disconnect(s); break; case T30_CRP: repeat_last_command(s); break; case T30_FNV: process_rx_fnv(s, msg, len); break; default: /* We don't know what to do with this. */ s->current_status = T30_ERR_RX_INVALCMD; unexpected_final_frame(s, msg, len); break; } } /*- End of function --------------------------------------------------------*/ static void process_state_f_doc_and_post_doc_ecm(t30_state_t *s, const uint8_t *msg, int len) { uint8_t fcf; uint8_t fcf2; /* This actually handles 2 states - _DOC_ECM and _POST_DOC_ECM - as they are very similar */ fcf = msg[2] & 0xFE; switch (fcf) { case T30_DIS: process_rx_dis_dtc(s, msg, len); break; case T30_DCS: process_rx_dcs(s, msg, len); break; case T4_RCP: /* Return to control for partial page. These might come through with or without the final frame tag. Here we deal with the "final frame tag" case. */ process_rx_rcp(s, msg, len); break; case T30_EOR: if (len != 4) { unexpected_frame_length(s, msg, len); break; } fcf2 = msg[3] & 0xFE; span_log(&s->logging, SPAN_LOG_FLOW, "Received EOR + %s\n", t30_frametype(msg[3])); switch (fcf2) { case T30_PRI_EOP: case T30_PRI_EOM: case T30_PRI_MPS: if (s->remote_interrupts_allowed) { /* TODO: Alert operator */ } /* Fall through */ case T30_NULL: case T30_EOP: case T30_EOM: case T30_EOS: case T30_MPS: s->next_rx_step = fcf2; queue_phase(s, T30_PHASE_D_TX); set_state(s, T30_STATE_F_DOC_ECM); send_simple_frame(s, T30_ERR); break; default: unexpected_final_frame(s, msg, len); break; } break; case T30_PPS: process_rx_pps(s, msg, len); break; case T30_CTC: /* T.30 says we change back to long training here */ s->short_train = FALSE; queue_phase(s, T30_PHASE_D_TX); set_state(s, T30_STATE_F_DOC_ECM); send_simple_frame(s, T30_CTR); break; case T30_RR: break; case T30_DCN: s->current_status = T30_ERR_RX_DCNDATA; disconnect(s); break; case T30_CRP: repeat_last_command(s); break; case T30_FNV: process_rx_fnv(s, msg, len); break; default: /* We don't know what to do with this. */ s->current_status = T30_ERR_RX_INVALCMD; unexpected_final_frame(s, msg, len); break; } } /*- End of function --------------------------------------------------------*/ static void process_state_f_post_rcp_mcf(t30_state_t *s, const uint8_t *msg, int len) { uint8_t fcf; fcf = msg[2] & 0xFE; switch (fcf) { case T30_CRP: repeat_last_command(s); break; case T30_FNV: process_rx_fnv(s, msg, len); break; case T30_DCN: disconnect(s); break; default: /* We don't know what to do with this. */ unexpected_final_frame(s, msg, len); break; } } /*- End of function --------------------------------------------------------*/ static void process_state_f_post_rcp_ppr(t30_state_t *s, const uint8_t *msg, int len) { uint8_t fcf; fcf = msg[2] & 0xFE; switch (fcf) { case T30_CRP: repeat_last_command(s); break; case T30_FNV: process_rx_fnv(s, msg, len); break; default: /* We don't know what to do with this. */ unexpected_final_frame(s, msg, len); break; } } /*- End of function --------------------------------------------------------*/ static void process_state_f_post_rcp_rnr(t30_state_t *s, const uint8_t *msg, int len) { uint8_t fcf; fcf = msg[2] & 0xFE; switch (fcf) { case T30_RR: if (s->receiver_not_ready_count > 0) { s->receiver_not_ready_count--; queue_phase(s, T30_PHASE_D_TX); set_state(s, T30_STATE_F_POST_RCP_RNR); send_simple_frame(s, T30_RNR); } else { /* Now we send the deferred response */ send_response_to_pps(s); } break; case T30_CRP: repeat_last_command(s); break; case T30_FNV: process_rx_fnv(s, msg, len); break; default: /* We don't know what to do with this. */ unexpected_final_frame(s, msg, len); break; } } /*- End of function --------------------------------------------------------*/ static void process_state_r(t30_state_t *s, const uint8_t *msg, int len) { uint8_t fcf; fcf = msg[2] & 0xFE; switch (fcf) { case T30_DIS: process_rx_dis_dtc(s, msg, len); break; case T30_DCS: process_rx_dcs(s, msg, len); break; case T30_DCN: /* Received a DCN while waiting for a DIS */ s->current_status = T30_ERR_TX_GOTDCN; disconnect(s); break; case T30_CRP: repeat_last_command(s); break; case T30_FNV: process_rx_fnv(s, msg, len); break; default: /* We don't know what to do with this. */ unexpected_final_frame(s, msg, len); break; } } /*- End of function --------------------------------------------------------*/ static void process_state_t(t30_state_t *s, const uint8_t *msg, int len) { uint8_t fcf; fcf = msg[2] & 0xFE; switch (fcf) { case T30_DIS: process_rx_dis_dtc(s, msg, len); break; case T30_DCN: s->current_status = T30_ERR_RX_DCNWHY; disconnect(s); break; case T30_CRP: repeat_last_command(s); break; case T30_FNV: process_rx_fnv(s, msg, len); break; default: /* We don't know what to do with this. */ unexpected_final_frame(s, msg, len); s->current_status = T30_ERR_TX_NODIS; break; } } /*- End of function --------------------------------------------------------*/ static void process_state_i(t30_state_t *s, const uint8_t *msg, int len) { uint8_t fcf; fcf = msg[2] & 0xFE; switch (fcf) { case T30_CRP: repeat_last_command(s); break; case T30_FNV: process_rx_fnv(s, msg, len); break; default: /* We don't know what to do with this. */ unexpected_final_frame(s, msg, len); break; } } /*- End of function --------------------------------------------------------*/ static void process_state_ii(t30_state_t *s, const uint8_t *msg, int len) { uint8_t fcf; fcf = msg[2] & 0xFE; switch (fcf) { case T30_CRP: repeat_last_command(s); break; case T30_FNV: process_rx_fnv(s, msg, len); break; default: /* We don't know what to do with this. */ unexpected_final_frame(s, msg, len); break; } } /*- End of function --------------------------------------------------------*/ static void process_state_ii_q(t30_state_t *s, const uint8_t *msg, int len) { uint8_t fcf; fcf = msg[2] & 0xFE; switch (fcf) { case T30_PIP: if (s->remote_interrupts_allowed) { s->retries = 0; if (s->phase_d_handler) { s->phase_d_handler(s, s->phase_d_user_data, fcf); s->timer_t3 = ms_to_samples(DEFAULT_TIMER_T3); } } /* Fall through */ case T30_MCF: switch (s->next_tx_step) { case T30_PRI_MPS: case T30_MPS: tx_end_page(s); if (s->phase_d_handler) s->phase_d_handler(s, s->phase_d_user_data, fcf); /* Transmit the next page */ if (tx_start_page(s)) { /* TODO: recover */ break; } set_state(s, T30_STATE_I); queue_phase(s, T30_PHASE_C_NON_ECM_TX); break; case T30_PRI_EOM: case T30_EOM: case T30_EOS: tx_end_page(s); if (s->phase_d_handler) s->phase_d_handler(s, s->phase_d_user_data, fcf); terminate_operation_in_progress(s); report_tx_result(s, TRUE); return_to_phase_b(s, FALSE); break; case T30_PRI_EOP: case T30_EOP: tx_end_page(s); if (s->phase_d_handler) s->phase_d_handler(s, s->phase_d_user_data, fcf); terminate_operation_in_progress(s); send_dcn(s); report_tx_result(s, TRUE); break; } break; case T30_RTP: s->rtp_events++; switch (s->next_tx_step) { case T30_PRI_MPS: case T30_MPS: tx_end_page(s); if (s->phase_d_handler) s->phase_d_handler(s, s->phase_d_user_data, fcf); if (tx_start_page(s)) { /* TODO: recover */ break; } /* Send fresh training, and then the next page */ if (step_fallback_entry(s) < 0) { /* We have fallen back as far as we can go. Give up. */ s->current_fallback = 0; s->current_status = T30_ERR_CANNOT_TRAIN; send_dcn(s); break; } queue_phase(s, T30_PHASE_B_TX); restart_sending_document(s); break; case T30_PRI_EOM: case T30_EOM: case T30_EOS: tx_end_page(s); if (s->phase_d_handler) s->phase_d_handler(s, s->phase_d_user_data, fcf); t4_tx_release(&s->t4.tx); /* TODO: should go back to T, and resend */ return_to_phase_b(s, TRUE); break; case T30_PRI_EOP: case T30_EOP: tx_end_page(s); if (s->phase_d_handler) s->phase_d_handler(s, s->phase_d_user_data, fcf); t4_tx_release(&s->t4.tx); send_dcn(s); break; } break; case T30_PIN: if (s->remote_interrupts_allowed) { s->retries = 0; if (s->phase_d_handler) { s->phase_d_handler(s, s->phase_d_user_data, fcf); s->timer_t3 = ms_to_samples(DEFAULT_TIMER_T3); } } /* Fall through */ case T30_RTN: s->rtn_events++; switch (s->next_tx_step) { case T30_PRI_MPS: case T30_MPS: s->retries = 0; if (s->phase_d_handler) s->phase_d_handler(s, s->phase_d_user_data, fcf); if (!s->retransmit_capable) { /* Send the next page, regardless of the problem with the current one. */ if (tx_start_page(s)) { /* TODO: recover */ break; } } /* Send fresh training */ if (step_fallback_entry(s) < 0) { /* We have fallen back as far as we can go. Give up. */ s->current_fallback = 0; s->current_status = T30_ERR_CANNOT_TRAIN; send_dcn(s); break; } queue_phase(s, T30_PHASE_B_TX); restart_sending_document(s); break; case T30_PRI_EOM: case T30_EOM: case T30_EOS: s->retries = 0; if (s->phase_d_handler) s->phase_d_handler(s, s->phase_d_user_data, fcf); if (s->retransmit_capable) { /* Wait for DIS */ } else { return_to_phase_b(s, TRUE); } break; case T30_PRI_EOP: case T30_EOP: s->retries = 0; if (s->phase_d_handler) s->phase_d_handler(s, s->phase_d_user_data, fcf); if (s->retransmit_capable) { /* Send fresh training, and then repeat the last page */ if (step_fallback_entry(s) < 0) { /* We have fallen back as far as we can go. Give up. */ s->current_fallback = 0; s->current_status = T30_ERR_CANNOT_TRAIN; send_dcn(s); break; } queue_phase(s, T30_PHASE_B_TX); restart_sending_document(s); } else { send_dcn(s); } break; } break; case T30_DCN: switch (s->next_tx_step) { case T30_PRI_MPS: case T30_PRI_EOM: case T30_MPS: case T30_EOM: case T30_EOS: /* Unexpected DCN after EOM, EOS or MPS sequence */ s->current_status = T30_ERR_RX_DCNPHD; break; default: s->current_status = T30_ERR_TX_BADPG; break; } disconnect(s); break; case T30_CRP: repeat_last_command(s); break; case T30_FNV: process_rx_fnv(s, msg, len); break; default: /* We don't know what to do with this. */ s->current_status = T30_ERR_TX_INVALRSP; unexpected_final_frame(s, msg, len); break; } } /*- End of function --------------------------------------------------------*/ static void process_state_iii_q_mcf(t30_state_t *s, const uint8_t *msg, int len) { uint8_t fcf; fcf = msg[2] & 0xFE; switch (fcf) { case T30_EOP: case T30_EOM: case T30_EOS: case T30_MPS: /* Looks like they didn't see our signal. Repeat it */ queue_phase(s, T30_PHASE_D_TX); set_state(s, T30_STATE_III_Q_MCF); send_simple_frame(s, T30_MCF); break; case T30_DIS: if (msg[2] == T30_DTC) process_rx_dis_dtc(s, msg, len); break; case T30_CRP: repeat_last_command(s); break; case T30_FNV: process_rx_fnv(s, msg, len); break; case T30_DCN: disconnect(s); break; default: /* We don't know what to do with this. */ unexpected_final_frame(s, msg, len); break; } } /*- End of function --------------------------------------------------------*/ static void process_state_iii_q_rtp(t30_state_t *s, const uint8_t *msg, int len) { uint8_t fcf; fcf = msg[2] & 0xFE; switch (fcf) { case T30_EOP: case T30_EOM: case T30_EOS: case T30_MPS: /* Looks like they didn't see our signal. Repeat it */ queue_phase(s, T30_PHASE_D_TX); set_state(s, T30_STATE_III_Q_RTP); send_simple_frame(s, T30_RTP); break; case T30_DIS: if (msg[2] == T30_DTC) process_rx_dis_dtc(s, msg, len); break; case T30_CRP: repeat_last_command(s); break; case T30_FNV: process_rx_fnv(s, msg, len); break; default: /* We don't know what to do with this. */ unexpected_final_frame(s, msg, len); break; } } /*- End of function --------------------------------------------------------*/ static void process_state_iii_q_rtn(t30_state_t *s, const uint8_t *msg, int len) { uint8_t fcf; fcf = msg[2] & 0xFE; switch (fcf) { case T30_EOP: case T30_EOM: case T30_EOS: case T30_MPS: /* Looks like they didn't see our signal. Repeat it */ queue_phase(s, T30_PHASE_D_TX); set_state(s, T30_STATE_III_Q_RTN); send_simple_frame(s, T30_RTN); break; case T30_DIS: if (msg[2] == T30_DTC) process_rx_dis_dtc(s, msg, len); break; case T30_CRP: repeat_last_command(s); break; case T30_FNV: process_rx_fnv(s, msg, len); break; case T30_DCN: s->current_status = T30_ERR_RX_DCNNORTN; disconnect(s); break; default: /* We don't know what to do with this. */ unexpected_final_frame(s, msg, len); break; } } /*- End of function --------------------------------------------------------*/ static void process_state_iv(t30_state_t *s, const uint8_t *msg, int len) { uint8_t fcf; fcf = msg[2] & 0xFE; switch (fcf) { case T30_CRP: repeat_last_command(s); break; case T30_FNV: process_rx_fnv(s, msg, len); break; default: /* We don't know what to do with this. */ unexpected_final_frame(s, msg, len); break; } } /*- End of function --------------------------------------------------------*/ static void process_state_iv_pps_null(t30_state_t *s, const uint8_t *msg, int len) { uint8_t fcf; fcf = msg[2] & 0xFE; switch (fcf) { case T30_MCF: s->retries = 0; s->timer_t5 = 0; /* Is there more of the current page to get, or do we move on? */ span_log(&s->logging, SPAN_LOG_FLOW, "Is there more to send? - %d %d\n", s->ecm_frames, s->ecm_len[255]); if (!s->ecm_at_page_end && get_partial_ecm_page(s) > 0) { span_log(&s->logging, SPAN_LOG_FLOW, "Additional image data to send\n"); s->ecm_block++; set_state(s, T30_STATE_IV); queue_phase(s, T30_PHASE_C_ECM_TX); send_first_ecm_frame(s); } else { span_log(&s->logging, SPAN_LOG_FLOW, "Moving on to the next page\n"); switch (s->next_tx_step) { case T30_PRI_MPS: case T30_MPS: tx_end_page(s); if (s->phase_d_handler) s->phase_d_handler(s, s->phase_d_user_data, fcf); if (tx_start_page(s)) { /* TODO: recover */ break; } if (get_partial_ecm_page(s) > 0) { set_state(s, T30_STATE_IV); queue_phase(s, T30_PHASE_C_ECM_TX); send_first_ecm_frame(s); } break; case T30_PRI_EOM: case T30_EOM: case T30_EOS: tx_end_page(s); if (s->phase_d_handler) s->phase_d_handler(s, s->phase_d_user_data, fcf); terminate_operation_in_progress(s); report_tx_result(s, TRUE); return_to_phase_b(s, FALSE); break; case T30_PRI_EOP: case T30_EOP: tx_end_page(s); if (s->phase_d_handler) s->phase_d_handler(s, s->phase_d_user_data, fcf); terminate_operation_in_progress(s); send_dcn(s); report_tx_result(s, TRUE); break; } } break; case T30_PPR: process_rx_ppr(s, msg, len); break; case T30_RNR: if (s->timer_t5 == 0) s->timer_t5 = ms_to_samples(DEFAULT_TIMER_T5); queue_phase(s, T30_PHASE_D_TX); set_state(s, T30_STATE_IV_PPS_RNR); send_rr(s); break; case T30_DCN: s->current_status = T30_ERR_TX_BADPG; disconnect(s); break; case T30_CRP: repeat_last_command(s); break; case T30_FNV: process_rx_fnv(s, msg, len); break; default: /* We don't know what to do with this. */ unexpected_final_frame(s, msg, len); s->current_status = T30_ERR_TX_ECMPHD; break; } } /*- End of function --------------------------------------------------------*/ static void process_state_iv_pps_q(t30_state_t *s, const uint8_t *msg, int len) { uint8_t fcf; fcf = msg[2] & 0xFE; switch (fcf) { case T30_PIP: if (s->remote_interrupts_allowed) { s->retries = 0; if (s->phase_d_handler) { s->phase_d_handler(s, s->phase_d_user_data, fcf); s->timer_t3 = ms_to_samples(DEFAULT_TIMER_T3); } } /* Fall through */ case T30_MCF: s->retries = 0; s->timer_t5 = 0; /* Is there more of the current page to get, or do we move on? */ span_log(&s->logging, SPAN_LOG_FLOW, "Is there more to send? - %d %d\n", s->ecm_frames, s->ecm_len[255]); if (!s->ecm_at_page_end && get_partial_ecm_page(s) > 0) { span_log(&s->logging, SPAN_LOG_FLOW, "Additional image data to send\n"); s->ecm_block++; set_state(s, T30_STATE_IV); queue_phase(s, T30_PHASE_C_ECM_TX); send_first_ecm_frame(s); } else { span_log(&s->logging, SPAN_LOG_FLOW, "Moving on to the next page\n"); switch (s->next_tx_step) { case T30_PRI_MPS: case T30_MPS: tx_end_page(s); if (s->phase_d_handler) s->phase_d_handler(s, s->phase_d_user_data, fcf); if (tx_start_page(s)) { /* TODO: recover */ break; } if (get_partial_ecm_page(s) > 0) { set_state(s, T30_STATE_IV); queue_phase(s, T30_PHASE_C_ECM_TX); send_first_ecm_frame(s); } break; case T30_PRI_EOM: case T30_EOM: case T30_EOS: tx_end_page(s); if (s->phase_d_handler) s->phase_d_handler(s, s->phase_d_user_data, fcf); terminate_operation_in_progress(s); report_tx_result(s, TRUE); return_to_phase_b(s, FALSE); break; case T30_PRI_EOP: case T30_EOP: tx_end_page(s); if (s->phase_d_handler) s->phase_d_handler(s, s->phase_d_user_data, fcf); terminate_operation_in_progress(s); send_dcn(s); report_tx_result(s, TRUE); break; } } break; case T30_RNR: if (s->timer_t5 == 0) s->timer_t5 = ms_to_samples(DEFAULT_TIMER_T5); queue_phase(s, T30_PHASE_D_TX); set_state(s, T30_STATE_IV_PPS_RNR); send_rr(s); break; case T30_PPR: process_rx_ppr(s, msg, len); break; case T30_DCN: s->current_status = T30_ERR_TX_BADPG; disconnect(s); break; case T30_CRP: repeat_last_command(s); break; case T30_FNV: process_rx_fnv(s, msg, len); break; case T30_PIN: if (s->remote_interrupts_allowed) { s->retries = 0; if (s->phase_d_handler) { s->phase_d_handler(s, s->phase_d_user_data, fcf); s->timer_t3 = ms_to_samples(DEFAULT_TIMER_T3); } } /* Fall through */ default: /* We don't know what to do with this. */ unexpected_final_frame(s, msg, len); s->current_status = T30_ERR_TX_ECMPHD; break; } } /*- End of function --------------------------------------------------------*/ static void process_state_iv_pps_rnr(t30_state_t *s, const uint8_t *msg, int len) { uint8_t fcf; fcf = msg[2] & 0xFE; switch (fcf) { case T30_PIP: if (s->remote_interrupts_allowed) { s->retries = 0; if (s->phase_d_handler) { s->phase_d_handler(s, s->phase_d_user_data, fcf); s->timer_t3 = ms_to_samples(DEFAULT_TIMER_T3); } } /* Fall through */ case T30_MCF: s->retries = 0; s->timer_t5 = 0; /* Is there more of the current page to get, or do we move on? */ span_log(&s->logging, SPAN_LOG_FLOW, "Is there more to send? - %d %d\n", s->ecm_frames, s->ecm_len[255]); if (!s->ecm_at_page_end && get_partial_ecm_page(s) > 0) { span_log(&s->logging, SPAN_LOG_FLOW, "Additional image data to send\n"); s->ecm_block++; set_state(s, T30_STATE_IV); queue_phase(s, T30_PHASE_C_ECM_TX); send_first_ecm_frame(s); } else { span_log(&s->logging, SPAN_LOG_FLOW, "Moving on to the next page\n"); switch (s->next_tx_step) { case T30_PRI_MPS: case T30_MPS: tx_end_page(s); if (s->phase_d_handler) s->phase_d_handler(s, s->phase_d_user_data, fcf); if (tx_start_page(s)) { /* TODO: recover */ break; } if (get_partial_ecm_page(s) > 0) { set_state(s, T30_STATE_IV); queue_phase(s, T30_PHASE_C_ECM_TX); send_first_ecm_frame(s); } break; case T30_PRI_EOM: case T30_EOM: case T30_EOS: tx_end_page(s); if (s->phase_d_handler) s->phase_d_handler(s, s->phase_d_user_data, fcf); terminate_operation_in_progress(s); report_tx_result(s, TRUE); return_to_phase_b(s, FALSE); break; case T30_PRI_EOP: case T30_EOP: tx_end_page(s); if (s->phase_d_handler) s->phase_d_handler(s, s->phase_d_user_data, fcf); terminate_operation_in_progress(s); send_dcn(s); report_tx_result(s, TRUE); break; } } break; case T30_RNR: if (s->timer_t5 == 0) s->timer_t5 = ms_to_samples(DEFAULT_TIMER_T5); queue_phase(s, T30_PHASE_D_TX); set_state(s, T30_STATE_IV_PPS_RNR); send_rr(s); break; case T30_DCN: s->current_status = T30_ERR_RX_DCNRRD; disconnect(s); break; case T30_CRP: repeat_last_command(s); break; case T30_FNV: process_rx_fnv(s, msg, len); break; case T30_PIN: if (s->remote_interrupts_allowed) { s->retries = 0; if (s->phase_d_handler) { s->phase_d_handler(s, s->phase_d_user_data, fcf); s->timer_t3 = ms_to_samples(DEFAULT_TIMER_T3); } } /* Fall through */ default: /* We don't know what to do with this. */ unexpected_final_frame(s, msg, len); break; } } /*- End of function --------------------------------------------------------*/ static void process_state_iv_ctc(t30_state_t *s, const uint8_t *msg, int len) { uint8_t fcf; fcf = msg[2] & 0xFE; switch (fcf) { case T30_CTR: /* Valid response to a CTC received */ /* T.30 says we change back to long training here */ s->short_train = FALSE; /* Initiate resending of the remainder of the frames. */ set_state(s, T30_STATE_IV); queue_phase(s, T30_PHASE_C_ECM_TX); send_first_ecm_frame(s); break; case T30_CRP: repeat_last_command(s); break; case T30_FNV: process_rx_fnv(s, msg, len); break; default: /* We don't know what to do with this. */ unexpected_final_frame(s, msg, len); break; } } /*- End of function --------------------------------------------------------*/ static void process_state_iv_eor(t30_state_t *s, const uint8_t *msg, int len) { uint8_t fcf; fcf = msg[2] & 0xFE; switch (fcf) { case T30_RNR: if (s->timer_t5 == 0) s->timer_t5 = ms_to_samples(DEFAULT_TIMER_T5); queue_phase(s, T30_PHASE_D_TX); set_state(s, T30_STATE_IV_EOR_RNR); send_rr(s); break; case T30_ERR: /* TODO: Continue with the next message if MPS or EOM? */ s->current_status = T30_ERR_RETRYDCN; s->timer_t5 = 0; send_dcn(s); break; case T30_CRP: repeat_last_command(s); break; case T30_FNV: process_rx_fnv(s, msg, len); break; case T30_PIN: if (s->remote_interrupts_allowed) { s->retries = 0; if (s->phase_d_handler) { s->phase_d_handler(s, s->phase_d_user_data, fcf); s->timer_t3 = ms_to_samples(DEFAULT_TIMER_T3); } } /* Fall through */ default: /* We don't know what to do with this. */ unexpected_final_frame(s, msg, len); break; } } /*- End of function --------------------------------------------------------*/ static void process_state_iv_eor_rnr(t30_state_t *s, const uint8_t *msg, int len) { uint8_t fcf; fcf = msg[2] & 0xFE; switch (fcf) { case T30_RNR: if (s->timer_t5 == 0) s->timer_t5 = ms_to_samples(DEFAULT_TIMER_T5); queue_phase(s, T30_PHASE_D_TX); set_state(s, T30_STATE_IV_EOR_RNR); send_rr(s); break; case T30_ERR: /* TODO: Continue with the next message if MPS or EOM? */ s->current_status = T30_ERR_RETRYDCN; s->timer_t5 = 0; send_dcn(s); break; case T30_DCN: s->current_status = T30_ERR_RX_DCNRRD; disconnect(s); break; case T30_CRP: repeat_last_command(s); break; case T30_FNV: process_rx_fnv(s, msg, len); break; case T30_PIN: if (s->remote_interrupts_allowed) { s->retries = 0; if (s->phase_d_handler) { s->phase_d_handler(s, s->phase_d_user_data, fcf); s->timer_t3 = ms_to_samples(DEFAULT_TIMER_T3); } } /* Fall through */ default: /* We don't know what to do with this. */ unexpected_final_frame(s, msg, len); break; } } /*- End of function --------------------------------------------------------*/ static void process_state_call_finished(t30_state_t *s, const uint8_t *msg, int len) { /* Simply ignore anything which comes in when we have declared the call to have finished. */ } /*- End of function --------------------------------------------------------*/ static void process_rx_control_msg(t30_state_t *s, const uint8_t *msg, int len) { /* We should only get good frames here. */ print_frame(s, "Rx: ", msg, len); if (s->real_time_frame_handler) s->real_time_frame_handler(s, s->real_time_frame_user_data, TRUE, msg, len); if ((msg[1] & 0x10) == 0) { /* This is not a final frame */ /* It seems we should not restart the command or response timer when exchanging HDLC image data. If the modem looses sync in the middle of the image, we should just wait until the carrier goes away before proceeding. */ if (s->phase != T30_PHASE_C_ECM_RX) { /* Restart the command or response timer, T2 or T4 */ switch (s->timer_t2_t4_is) { case TIMER_IS_T1A: case TIMER_IS_T2: case TIMER_IS_T2A: case TIMER_IS_T2B: timer_t2a_start(s); break; case TIMER_IS_T4: case TIMER_IS_T4A: case TIMER_IS_T4B: timer_t4a_start(s); break; } } /* The following handles all the message types we expect to get without a final frame tag. If we get one that T.30 says we should not expect in a particular context, its pretty harmless, so don't worry. */ switch (msg[2] & 0xFE) { case (T30_CSI & 0xFE): /* Called subscriber identification or Calling subscriber identification (T30_CIG) */ /* OK in (NSF) (CSI) DIS */ /* OK in (NSC) (CIG) DTC */ /* OK in (PWD) (SEP) (CIG) DTC */ decode_20digit_msg(s, s->rx_info.ident, &msg[2], len - 2); break; case (T30_NSF & 0xFE): if (msg[2] == T30_NSF) { /* Non-standard facilities */ /* OK in (NSF) (CSI) DIS */ t35_decode(&msg[3], len - 3, &s->country, &s->vendor, &s->model); if (s->country) span_log(&s->logging, SPAN_LOG_FLOW, "The remote was made in '%s'\n", s->country); if (s->vendor) span_log(&s->logging, SPAN_LOG_FLOW, "The remote was made by '%s'\n", s->vendor); if (s->model) span_log(&s->logging, SPAN_LOG_FLOW, "The remote is a '%s'\n", s->model); } else { /* NSC - Non-standard facilities command */ /* OK in (NSC) (CIG) DTC */ } break; case (T30_PWD & 0xFE): if (msg[2] == T30_PWD) { /* Password */ /* OK in (SUB) (SID) (SEP) (PWD) (TSI) DCS */ /* OK in (SUB) (SID) (SEP) (PWD) (CIG) DTC */ decode_20digit_msg(s, s->rx_info.password, &msg[2], len - 2); } else { unexpected_non_final_frame(s, msg, len); } break; case (T30_SEP & 0xFE): if (msg[2] == T30_SEP) { /* Selective polling address */ /* OK in (PWD) (SEP) (CIG) DTC */ decode_20digit_msg(s, s->rx_info.selective_polling_address, &msg[2], len - 2); } else { unexpected_non_final_frame(s, msg, len); } break; case (T30_PSA & 0xFE): if (msg[2] == T30_PSA) { /* Polled sub-address */ decode_20digit_msg(s, s->rx_info.polled_sub_address, &msg[2], len - 2); } else { unexpected_non_final_frame(s, msg, len); } break; case (T30_CIA & 0xFE): if (msg[2] == T30_CIA) { /* Calling subscriber internet address */ decode_url_msg(s, NULL, &msg[2], len - 2); } else { unexpected_non_final_frame(s, msg, len); } break; case (T30_ISP & 0xFE): if (msg[2] == T30_ISP) { /* Internet selective polling address */ decode_url_msg(s, NULL, &msg[2], len - 2); } else { unexpected_non_final_frame(s, msg, len); } break; case (T30_TSI & 0xFE): /* Transmitting subscriber identity */ /* OK in (PWD) (SUB) (TSI) DCS */ decode_20digit_msg(s, s->rx_info.ident, &msg[2], len - 2); break; case (T30_NSS & 0xFE): /* Non-standard facilities set-up */ break; case (T30_SUB & 0xFE): /* Sub-address */ /* OK in (PWD) (SUB) (TSI) DCS */ decode_20digit_msg(s, s->rx_info.sub_address, &msg[2], len - 2); break; case (T30_SID & 0xFE): /* Sender Identification */ /* OK in (SUB) (SID) (SEP) (PWD) (TSI) DCS */ /* OK in (SUB) (SID) (SEP) (PWD) (CIG) DTC */ decode_20digit_msg(s, s->rx_info.sender_ident, &msg[2], len - 2); break; case (T30_CSA & 0xFE): /* Calling subscriber internet address */ decode_url_msg(s, NULL, &msg[2], len - 2); break; case (T30_TSA & 0xFE): /* Transmitting subscriber internet address */ decode_url_msg(s, NULL, &msg[2], len - 2); break; case (T30_IRA & 0xFE): /* Internet routing address */ decode_url_msg(s, NULL, &msg[2], len - 2); break; case T4_FCD: process_rx_fcd(s, msg, len); break; case T4_RCP: process_rx_rcp(s, msg, len); break; default: unexpected_non_final_frame(s, msg, len); break; } } else { /* This is a final frame */ /* Once we have any successful message from the far end, we cancel timer T1 */ s->timer_t0_t1 = 0; /* The following handles context sensitive message types, which should occur at the end of message sequences. They should, therefore have the final frame flag set. */ span_log(&s->logging, SPAN_LOG_FLOW, "Rx final frame in state %d\n", s->state); switch (s->state) { case T30_STATE_ANSWERING: process_state_answering(s, msg, len); break; case T30_STATE_B: process_state_b(s, msg, len); break; case T30_STATE_C: process_state_c(s, msg, len); break; case T30_STATE_D: process_state_d(s, msg, len); break; case T30_STATE_D_TCF: process_state_d_tcf(s, msg, len); break; case T30_STATE_D_POST_TCF: process_state_d_post_tcf(s, msg, len); break; case T30_STATE_F_TCF: process_state_f_tcf(s, msg, len); break; case T30_STATE_F_CFR: process_state_f_cfr(s, msg, len); break; case T30_STATE_F_FTT: process_state_f_ftt(s, msg, len); break; case T30_STATE_F_DOC_NON_ECM: process_state_f_doc_non_ecm(s, msg, len); break; case T30_STATE_F_POST_DOC_NON_ECM: process_state_f_post_doc_non_ecm(s, msg, len); break; case T30_STATE_F_DOC_ECM: case T30_STATE_F_POST_DOC_ECM: process_state_f_doc_and_post_doc_ecm(s, msg, len); break; case T30_STATE_F_POST_RCP_MCF: process_state_f_post_rcp_mcf(s, msg, len); break; case T30_STATE_F_POST_RCP_PPR: process_state_f_post_rcp_ppr(s, msg, len); break; case T30_STATE_F_POST_RCP_RNR: process_state_f_post_rcp_rnr(s, msg, len); break; case T30_STATE_R: process_state_r(s, msg, len); break; case T30_STATE_T: process_state_t(s, msg, len); break; case T30_STATE_I: process_state_i(s, msg, len); break; case T30_STATE_II: process_state_ii(s, msg, len); break; case T30_STATE_II_Q: process_state_ii_q(s, msg, len); break; case T30_STATE_III_Q_MCF: process_state_iii_q_mcf(s, msg, len); break; case T30_STATE_III_Q_RTP: process_state_iii_q_rtp(s, msg, len); break; case T30_STATE_III_Q_RTN: process_state_iii_q_rtn(s, msg, len); break; case T30_STATE_IV: process_state_iv(s, msg, len); break; case T30_STATE_IV_PPS_NULL: process_state_iv_pps_null(s, msg, len); break; case T30_STATE_IV_PPS_Q: process_state_iv_pps_q(s, msg, len); break; case T30_STATE_IV_PPS_RNR: process_state_iv_pps_rnr(s, msg, len); break; case T30_STATE_IV_CTC: process_state_iv_ctc(s, msg, len); break; case T30_STATE_IV_EOR: process_state_iv_eor(s, msg, len); break; case T30_STATE_IV_EOR_RNR: process_state_iv_eor_rnr(s, msg, len); break; case T30_STATE_CALL_FINISHED: process_state_call_finished(s, msg, len); break; default: /* We don't know what to do with this. */ unexpected_final_frame(s, msg, len); break; } } } /*- End of function --------------------------------------------------------*/ static void queue_phase(t30_state_t *s, int phase) { if (s->rx_signal_present) { /* We need to wait for that signal to go away */ s->next_phase = phase; } else { set_phase(s, phase); s->next_phase = T30_PHASE_IDLE; } } /*- End of function --------------------------------------------------------*/ static void set_phase(t30_state_t *s, int phase) { //if (phase = s->phase) // return; span_log(&s->logging, SPAN_LOG_FLOW, "Changing from phase %s to %s\n", phase_names[s->phase], phase_names[phase]); /* We may be killing a receiver before it has declared the end of the signal. Force the signal present indicator to off, because the receiver will never be able to. */ if (s->phase != T30_PHASE_A_CED && s->phase != T30_PHASE_A_CNG) s->rx_signal_present = FALSE; s->rx_trained = FALSE; s->rx_frame_received = FALSE; s->phase = phase; switch (phase) { case T30_PHASE_A_CED: if (s->set_rx_type_handler) s->set_rx_type_handler(s->set_rx_type_user_data, T30_MODEM_V21, 300, FALSE, TRUE); if (s->set_tx_type_handler) s->set_tx_type_handler(s->set_tx_type_user_data, T30_MODEM_CED, 0, FALSE, FALSE); break; case T30_PHASE_A_CNG: if (s->set_rx_type_handler) s->set_rx_type_handler(s->set_rx_type_user_data, T30_MODEM_V21, 300, FALSE, TRUE); if (s->set_tx_type_handler) s->set_tx_type_handler(s->set_tx_type_user_data, T30_MODEM_CNG, 0, FALSE, FALSE); break; case T30_PHASE_B_RX: case T30_PHASE_D_RX: if (s->set_rx_type_handler) s->set_rx_type_handler(s->set_rx_type_user_data, T30_MODEM_V21, 300, FALSE, TRUE); if (s->set_tx_type_handler) s->set_tx_type_handler(s->set_tx_type_user_data, T30_MODEM_NONE, 0, FALSE, FALSE); break; case T30_PHASE_B_TX: case T30_PHASE_D_TX: if (!s->far_end_detected && s->timer_t0_t1 > 0) { s->timer_t0_t1 = ms_to_samples(DEFAULT_TIMER_T1); s->far_end_detected = TRUE; } if (s->set_rx_type_handler) s->set_rx_type_handler(s->set_rx_type_user_data, T30_MODEM_NONE, 0, FALSE, FALSE); if (s->set_tx_type_handler) s->set_tx_type_handler(s->set_tx_type_user_data, T30_MODEM_V21, 300, FALSE, TRUE); break; case T30_PHASE_C_NON_ECM_RX: if (s->set_rx_type_handler) { /* Momentarily stop the receive modem, so the next change is forced to happen. If we don't do this an HDLC message on the slow modem, which has disabled the fast modem, will prevent the same fast modem from restarting. */ s->set_rx_type_handler(s->set_rx_type_user_data, T30_MODEM_NONE, 0, FALSE, FALSE); s->set_rx_type_handler(s->set_rx_type_user_data, fallback_sequence[s->current_fallback].modem_type, fallback_sequence[s->current_fallback].bit_rate, s->short_train, FALSE); } if (s->set_tx_type_handler) s->set_tx_type_handler(s->set_tx_type_user_data, T30_MODEM_NONE, 0, FALSE, FALSE); break; case T30_PHASE_C_NON_ECM_TX: /* Pause before switching from anything to phase C */ /* Always prime the training count for 1.5s of data at the current rate. Its harmless if we prime it and are not doing TCF. */ s->tcf_test_bits = (3*fallback_sequence[s->current_fallback].bit_rate)/2; if (s->set_rx_type_handler) { /* Momentarily stop the receive modem, so the next change is forced to happen. If we don't do this an HDLC message on the slow modem, which has disabled the fast modem, will prevent the same fast modem from restarting. */ s->set_rx_type_handler(s->set_rx_type_user_data, T30_MODEM_NONE, 0, FALSE, FALSE); s->set_rx_type_handler(s->set_rx_type_user_data, T30_MODEM_NONE, 0, FALSE, FALSE); } if (s->set_tx_type_handler) s->set_tx_type_handler(s->set_tx_type_user_data, fallback_sequence[s->current_fallback].modem_type, fallback_sequence[s->current_fallback].bit_rate, s->short_train, FALSE); break; case T30_PHASE_C_ECM_RX: if (s->set_rx_type_handler) s->set_rx_type_handler(s->set_rx_type_user_data, fallback_sequence[s->current_fallback].modem_type, fallback_sequence[s->current_fallback].bit_rate, s->short_train, TRUE); if (s->set_tx_type_handler) s->set_tx_type_handler(s->set_tx_type_user_data, T30_MODEM_NONE, 0, FALSE, FALSE); break; case T30_PHASE_C_ECM_TX: /* Pause before switching from anything to phase C */ if (s->set_rx_type_handler) s->set_rx_type_handler(s->set_rx_type_user_data, T30_MODEM_NONE, 0, FALSE, FALSE); if (s->set_tx_type_handler) s->set_tx_type_handler(s->set_tx_type_user_data, fallback_sequence[s->current_fallback].modem_type, fallback_sequence[s->current_fallback].bit_rate, s->short_train, TRUE); break; case T30_PHASE_E: /* Send a little silence before ending things, to ensure the buffers are all flushed through, and the far end has seen the last message we sent. */ s->tcf_test_bits = 0; s->tcf_current_zeros = 0; s->tcf_most_zeros = 0; if (s->set_rx_type_handler) s->set_rx_type_handler(s->set_rx_type_user_data, T30_MODEM_NONE, 0, FALSE, FALSE); if (s->set_tx_type_handler) s->set_tx_type_handler(s->set_tx_type_user_data, T30_MODEM_PAUSE, 0, FINAL_FLUSH_TIME, FALSE); break; case T30_PHASE_CALL_FINISHED: if (s->set_rx_type_handler) s->set_rx_type_handler(s->set_rx_type_user_data, T30_MODEM_DONE, 0, FALSE, FALSE); if (s->set_tx_type_handler) s->set_tx_type_handler(s->set_tx_type_user_data, T30_MODEM_DONE, 0, FALSE, FALSE); break; } } /*- End of function --------------------------------------------------------*/ static void set_state(t30_state_t *s, int state) { if (s->state != state) { span_log(&s->logging, SPAN_LOG_FLOW, "Changing from state %d to %d\n", s->state, state); s->state = state; } s->step = 0; } /*- End of function --------------------------------------------------------*/ static void repeat_last_command(t30_state_t *s) { s->step = 0; if (++s->retries >= MAX_COMMAND_TRIES) { span_log(&s->logging, SPAN_LOG_FLOW, "Too many retries. Giving up.\n"); switch (s->state) { case T30_STATE_D_POST_TCF: /* Received no response to DCS or TCF */ s->current_status = T30_ERR_TX_PHBDEAD; break; case T30_STATE_II_Q: case T30_STATE_IV_PPS_NULL: case T30_STATE_IV_PPS_Q: /* No response after sending a page */ s->current_status = T30_ERR_TX_PHDDEAD; break; default: /* Disconnected after permitted retries */ s->current_status = T30_ERR_RETRYDCN; break; } send_dcn(s); return; } span_log(&s->logging, SPAN_LOG_FLOW, "Retry number %d\n", s->retries); switch (s->state) { case T30_STATE_R: s->dis_received = FALSE; queue_phase(s, T30_PHASE_B_TX); send_dis_or_dtc_sequence(s, TRUE); break; case T30_STATE_III_Q_MCF: queue_phase(s, T30_PHASE_D_TX); send_simple_frame(s, T30_MCF); break; case T30_STATE_III_Q_RTP: queue_phase(s, T30_PHASE_D_TX); send_simple_frame(s, T30_RTP); break; case T30_STATE_III_Q_RTN: queue_phase(s, T30_PHASE_D_TX); send_simple_frame(s, T30_RTN); break; case T30_STATE_II_Q: queue_phase(s, T30_PHASE_D_TX); send_simple_frame(s, s->next_tx_step); break; case T30_STATE_IV_PPS_NULL: case T30_STATE_IV_PPS_Q: queue_phase(s, T30_PHASE_D_TX); send_pps_frame(s); break; case T30_STATE_IV_PPS_RNR: case T30_STATE_IV_EOR_RNR: queue_phase(s, T30_PHASE_D_TX); send_rr(s); break; case T30_STATE_D: queue_phase(s, T30_PHASE_B_TX); send_dcs_sequence(s, TRUE); break; case T30_STATE_F_FTT: queue_phase(s, T30_PHASE_B_TX); send_simple_frame(s, T30_FTT); break; case T30_STATE_F_CFR: queue_phase(s, T30_PHASE_B_TX); send_cfr_sequence(s, TRUE); break; case T30_STATE_D_POST_TCF: /* Need to send the whole training thing again */ s->short_train = FALSE; queue_phase(s, T30_PHASE_B_TX); send_dcs_sequence(s, TRUE); break; case T30_STATE_F_POST_RCP_RNR: /* Just ignore */ break; default: span_log(&s->logging, SPAN_LOG_FLOW, "Repeat command called with nothing to repeat - phase %s, state %d\n", phase_names[s->phase], s->state); break; } } /*- End of function --------------------------------------------------------*/ static void timer_t2_start(t30_state_t *s) { span_log(&s->logging, SPAN_LOG_FLOW, "Start T2\n"); s->timer_t2_t4 = ms_to_samples(DEFAULT_TIMER_T2); s->timer_t2_t4_is = TIMER_IS_T2; } /*- End of function --------------------------------------------------------*/ static void timer_t2a_start(t30_state_t *s) { /* T.30 Annex A says timeout T1 should be used in ECM phase C to time out the first frame after the flags start. This seems a strange reuse of the name T1 for a different purpose, but there it is. We distinguish it by calling it T1A. */ if (s->phase == T30_PHASE_C_ECM_RX) { span_log(&s->logging, SPAN_LOG_FLOW, "Start T1A\n"); s->timer_t2_t4 = ms_to_samples(DEFAULT_TIMER_T1A); s->timer_t2_t4_is = TIMER_IS_T1A; } else { span_log(&s->logging, SPAN_LOG_FLOW, "Start T2A\n"); s->timer_t2_t4 = ms_to_samples(DEFAULT_TIMER_T2A); s->timer_t2_t4_is = TIMER_IS_T2A; } } /*- End of function --------------------------------------------------------*/ static void timer_t2b_start(t30_state_t *s) { span_log(&s->logging, SPAN_LOG_FLOW, "Start T2B\n"); s->timer_t2_t4 = ms_to_samples(DEFAULT_TIMER_T2B); s->timer_t2_t4_is = TIMER_IS_T2B; } /*- End of function --------------------------------------------------------*/ static void timer_t4_start(t30_state_t *s) { span_log(&s->logging, SPAN_LOG_FLOW, "Start T4\n"); s->timer_t2_t4 = ms_to_samples(DEFAULT_TIMER_T4); s->timer_t2_t4_is = TIMER_IS_T4; } /*- End of function --------------------------------------------------------*/ static void timer_t4a_start(t30_state_t *s) { span_log(&s->logging, SPAN_LOG_FLOW, "Start T4A\n"); s->timer_t2_t4 = ms_to_samples(DEFAULT_TIMER_T4A); s->timer_t2_t4_is = TIMER_IS_T4A; } /*- End of function --------------------------------------------------------*/ static void timer_t4b_start(t30_state_t *s) { span_log(&s->logging, SPAN_LOG_FLOW, "Start T4B\n"); s->timer_t2_t4 = ms_to_samples(DEFAULT_TIMER_T4B); s->timer_t2_t4_is = TIMER_IS_T4B; } /*- End of function --------------------------------------------------------*/ static void timer_t2_t4_stop(t30_state_t *s) { const char *tag; switch (s->timer_t2_t4_is) { case TIMER_IS_IDLE: tag = "none"; break; case TIMER_IS_T1A: tag = "T1A"; break; case TIMER_IS_T2: tag = "T2"; break; case TIMER_IS_T2A: tag = "T2A"; break; case TIMER_IS_T2B: tag = "T2B"; break; case TIMER_IS_T2C: tag = "T2C"; break; case TIMER_IS_T4: tag = "T4"; break; case TIMER_IS_T4A: tag = "T4A"; break; case TIMER_IS_T4B: tag = "T4B"; break; case TIMER_IS_T4C: tag = "T4C"; break; default: tag = "T2/T4"; break; } span_log(&s->logging, SPAN_LOG_FLOW, "Stop %s (%d remaining)\n", tag, s->timer_t2_t4); s->timer_t2_t4 = 0; s->timer_t2_t4_is = TIMER_IS_IDLE; } /*- End of function --------------------------------------------------------*/ static void timer_t0_expired(t30_state_t *s) { span_log(&s->logging, SPAN_LOG_FLOW, "T0 expired in state %d\n", s->state); s->current_status = T30_ERR_T0_EXPIRED; /* Just end the call */ disconnect(s); } /*- End of function --------------------------------------------------------*/ static void timer_t1_expired(t30_state_t *s) { span_log(&s->logging, SPAN_LOG_FLOW, "T1 expired in state %d\n", s->state); /* The initial connection establishment has timeout out. In other words, we have been unable to communicate successfully with a remote machine. It is time to abandon the call. */ s->current_status = T30_ERR_T1_EXPIRED; switch (s->state) { case T30_STATE_T: /* Just end the call */ disconnect(s); break; case T30_STATE_R: /* Send disconnect, and then end the call. Since we have not successfully contacted the far end, it is unclear why we should send a disconnect message at this point. However, it is what T.30 says we should do. */ send_dcn(s); break; } } /*- End of function --------------------------------------------------------*/ static void timer_t2_expired(t30_state_t *s) { if (s->timer_t2_t4_is != TIMER_IS_T2B) span_log(&s->logging, SPAN_LOG_FLOW, "T2 expired in phase %s, state %d\n", phase_names[s->phase], s->state); switch (s->state) { case T30_STATE_III_Q_MCF: case T30_STATE_III_Q_RTP: case T30_STATE_III_Q_RTN: case T30_STATE_F_POST_RCP_PPR: case T30_STATE_F_POST_RCP_MCF: switch (s->next_rx_step) { case T30_PRI_EOM: case T30_EOM: case T30_EOS: /* We didn't receive a response to our T30_MCF after T30_EOM, so we must be OK to proceed to phase B, and pretty much act like its the beginning of a call. */ span_log(&s->logging, SPAN_LOG_FLOW, "Returning to phase B after %s\n", t30_frametype(s->next_rx_step)); set_phase(s, T30_PHASE_B_TX); timer_t2_start(s); s->dis_received = FALSE; send_dis_or_dtc_sequence(s, TRUE); return; } break; case T30_STATE_F_TCF: span_log(&s->logging, SPAN_LOG_FLOW, "No TCF data received\n"); set_phase(s, T30_PHASE_B_TX); set_state(s, T30_STATE_F_FTT); send_simple_frame(s, T30_FTT); return; case T30_STATE_F_DOC_ECM: case T30_STATE_F_DOC_NON_ECM: /* While waiting for FAX page */ s->current_status = T30_ERR_RX_T2EXPFAX; break; case T30_STATE_F_POST_DOC_ECM: case T30_STATE_F_POST_DOC_NON_ECM: /* While waiting for next FAX page */ /* Figure 5-2b/T.30 and note 7 says we should allow 1 to 3 tries at this point. The way we work now is effectively hard coding a 1 try limit */ s->current_status = T30_ERR_RX_T2EXPMPS; break; #if 0 case ??????: /* While waiting for DCN */ s->current_status = T30_ERR_RX_T2EXPDCN; break; case ??????: /* While waiting for phase D */ s->current_status = T30_ERR_RX_T2EXPD; break; #endif case T30_STATE_IV_PPS_RNR: case T30_STATE_IV_EOR_RNR: /* While waiting for RR command */ s->current_status = T30_ERR_RX_T2EXPRR; break; case T30_STATE_R: /* While waiting for NSS, DCS or MCF */ s->current_status = T30_ERR_RX_T2EXP; break; case T30_STATE_F_FTT: break; } queue_phase(s, T30_PHASE_B_TX); start_receiving_document(s); } /*- End of function --------------------------------------------------------*/ static void timer_t1a_expired(t30_state_t *s) { span_log(&s->logging, SPAN_LOG_FLOW, "T1A expired in phase %s, state %d. An HDLC frame lasted too long.\n", phase_names[s->phase], s->state); s->current_status = T30_ERR_HDLC_CARRIER; disconnect(s); } /*- End of function --------------------------------------------------------*/ static void timer_t2a_expired(t30_state_t *s) { span_log(&s->logging, SPAN_LOG_FLOW, "T2A expired in phase %s, state %d. An HDLC frame lasted too long.\n", phase_names[s->phase], s->state); s->current_status = T30_ERR_HDLC_CARRIER; disconnect(s); } /*- End of function --------------------------------------------------------*/ static void timer_t2b_expired(t30_state_t *s) { span_log(&s->logging, SPAN_LOG_FLOW, "T2B expired in phase %s, state %d. The line is now quiet.\n", phase_names[s->phase], s->state); timer_t2_expired(s); } /*- End of function --------------------------------------------------------*/ static void timer_t3_expired(t30_state_t *s) { span_log(&s->logging, SPAN_LOG_FLOW, "T3 expired in phase %s, state %d\n", phase_names[s->phase], s->state); s->current_status = T30_ERR_T3_EXPIRED; disconnect(s); } /*- End of function --------------------------------------------------------*/ static void timer_t4_expired(t30_state_t *s) { /* There was no response (or only a corrupt response) to a command, within the T4 timeout period. */ span_log(&s->logging, SPAN_LOG_FLOW, "T4 expired in phase %s, state %d\n", phase_names[s->phase], s->state); /* Of course, things might just be a little late, especially if there are T.38 links in the path. There is no point in simply timing out, and resending, if we are currently receiving something from the far end - its a half-duplex path, so the two transmissions will conflict. Our best strategy is to wait until there is nothing being received, or give up after a long backstop timeout. In the meantime, if we get a meaningful, if somewhat delayed, response, we should accept it and carry on. */ repeat_last_command(s); } /*- End of function --------------------------------------------------------*/ static void timer_t4a_expired(t30_state_t *s) { span_log(&s->logging, SPAN_LOG_FLOW, "T4A expired in phase %s, state %d. An HDLC frame lasted too long.\n", phase_names[s->phase], s->state); s->current_status = T30_ERR_HDLC_CARRIER; disconnect(s); } /*- End of function --------------------------------------------------------*/ static void timer_t4b_expired(t30_state_t *s) { span_log(&s->logging, SPAN_LOG_FLOW, "T4B expired in phase %s, state %d. The line is now quiet.\n", phase_names[s->phase], s->state); timer_t4_expired(s); } /*- End of function --------------------------------------------------------*/ static void timer_t5_expired(t30_state_t *s) { /* Give up waiting for the receiver to become ready in error correction mode */ span_log(&s->logging, SPAN_LOG_FLOW, "T5 expired in phase %s, state %d\n", phase_names[s->phase], s->state); s->current_status = T30_ERR_TX_T5EXP; } /*- End of function --------------------------------------------------------*/ static void decode_20digit_msg(t30_state_t *s, char *msg, const uint8_t *pkt, int len) { int p; int k; char text[T30_MAX_IDENT_LEN + 1]; if (msg == NULL) msg = text; if (len > T30_MAX_IDENT_LEN + 1) { unexpected_frame_length(s, pkt, len); msg[0] = '\0'; return; } p = len; /* Strip trailing spaces */ while (p > 1 && pkt[p - 1] == ' ') p--; /* The string is actually backwards in the message */ k = 0; while (p > 1) msg[k++] = pkt[--p]; msg[k] = '\0'; span_log(&s->logging, SPAN_LOG_FLOW, "Remote gave %s as: \"%s\"\n", t30_frametype(pkt[0]), msg); } /*- End of function --------------------------------------------------------*/ static void decode_url_msg(t30_state_t *s, char *msg, const uint8_t *pkt, int len) { char text[77 + 1]; /* TODO: decode properly, as per T.30 5.3.6.2.12 */ if (msg == NULL) msg = text; if (len < 3 || len > 77 + 3 || len != pkt[2] + 3) { unexpected_frame_length(s, pkt, len); msg[0] = '\0'; return; } /* First octet is the sequence number of the packet. Bit 7 = 1 for more follows, 0 for last packet in the sequence. Bits 6-0 = The sequence number, 0 to 0x7F Second octet is the type of internet address. Bits 7-4 = reserved Bits 3-0 = type: 0 = reserved 1 = e-mail address 2 = URL 3 = TCP/IP V4 4 = TCP/IP V6 5 = international phone number, in the usual +... format 6-15 = reserved Third octet is the length of the internet address Bit 7 = 1 for more follows, 0 for last packet in the sequence. Bits 6-0 = length */ memcpy(msg, &pkt[3], len - 3); msg[len - 3] = '\0'; span_log(&s->logging, SPAN_LOG_FLOW, "Remote fax gave %s as: %d, %d, \"%s\"\n", t30_frametype(pkt[0]), pkt[0], pkt[1], msg); } /*- End of function --------------------------------------------------------*/ static void t30_non_ecm_rx_status(void *user_data, int status) { t30_state_t *s; int was_trained; s = (t30_state_t *) user_data; span_log(&s->logging, SPAN_LOG_FLOW, "Non-ECM signal status is %s (%d) in state %d\n", signal_status_to_str(status), status, s->state); switch (status) { case SIG_STATUS_TRAINING_IN_PROGRESS: break; case SIG_STATUS_TRAINING_FAILED: s->rx_trained = FALSE; break; case SIG_STATUS_TRAINING_SUCCEEDED: /* The modem is now trained */ /* In case we are in trainability test mode... */ s->tcf_test_bits = 0; s->tcf_current_zeros = 0; s->tcf_most_zeros = 0; s->rx_signal_present = TRUE; s->rx_trained = TRUE; timer_t2_t4_stop(s); break; case SIG_STATUS_CARRIER_UP: break; case SIG_STATUS_CARRIER_DOWN: was_trained = s->rx_trained; s->rx_signal_present = FALSE; s->rx_trained = FALSE; switch (s->state) { case T30_STATE_F_TCF: /* Only respond if we managed to actually sync up with the source. We don't want to respond just because we saw a click. These often occur just before the real signal, with many modems. Presumably this is due to switching within the far end modem. We also want to avoid the possibility of responding to the tail end of any slow modem signal. If there was a genuine data signal which we failed to train on it should not matter. If things are that bad, we do not stand much chance of good quality communications. */ if (was_trained) { /* Although T.30 says the training test should be 1.5s of all 0's, some FAX machines send a burst of all 1's before the all 0's. Tolerate this. */ if (s->tcf_current_zeros > s->tcf_most_zeros) s->tcf_most_zeros = s->tcf_current_zeros; span_log(&s->logging, SPAN_LOG_FLOW, "Trainability (TCF) test result - %d total bits. longest run of zeros was %d\n", s->tcf_test_bits, s->tcf_most_zeros); if (s->tcf_most_zeros < fallback_sequence[s->current_fallback].bit_rate) { span_log(&s->logging, SPAN_LOG_FLOW, "Trainability (TCF) test failed - longest run of zeros was %d\n", s->tcf_most_zeros); set_phase(s, T30_PHASE_B_TX); set_state(s, T30_STATE_F_FTT); send_simple_frame(s, T30_FTT); } else { /* The training went OK */ s->short_train = TRUE; rx_start_page(s); set_phase(s, T30_PHASE_B_TX); set_state(s, T30_STATE_F_CFR); send_cfr_sequence(s, TRUE); } } break; case T30_STATE_F_POST_DOC_NON_ECM: /* Page ended cleanly */ if (s->current_status == T30_ERR_RX_NOCARRIER) s->current_status = T30_ERR_OK; break; default: /* We should be receiving a document right now, but it did not end cleanly. */ if (was_trained) { span_log(&s->logging, SPAN_LOG_WARNING, "Page did not end cleanly\n"); /* We trained OK, so we should have some kind of received page, even though it did not end cleanly. */ set_state(s, T30_STATE_F_POST_DOC_NON_ECM); set_phase(s, T30_PHASE_D_RX); timer_t2_start(s); if (s->current_status == T30_ERR_RX_NOCARRIER) s->current_status = T30_ERR_OK; } else { span_log(&s->logging, SPAN_LOG_WARNING, "Non-ECM carrier not found\n"); s->current_status = T30_ERR_RX_NOCARRIER; } break; } if (s->next_phase != T30_PHASE_IDLE) { set_phase(s, s->next_phase); s->next_phase = T30_PHASE_IDLE; } break; default: span_log(&s->logging, SPAN_LOG_WARNING, "Unexpected non-ECM rx status - %d!\n", status); break; } } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE_NONSTD(void) t30_non_ecm_put_bit(void *user_data, int bit) { t30_state_t *s; if (bit < 0) { t30_non_ecm_rx_status(user_data, bit); return; } s = (t30_state_t *) user_data; switch (s->state) { case T30_STATE_F_TCF: /* Trainability test */ s->tcf_test_bits++; if (bit) { if (s->tcf_current_zeros > s->tcf_most_zeros) s->tcf_most_zeros = s->tcf_current_zeros; s->tcf_current_zeros = 0; } else { s->tcf_current_zeros++; } break; case T30_STATE_F_DOC_NON_ECM: /* Document transfer */ if (t4_rx_put_bit(&s->t4.rx, bit)) { /* That is the end of the document */ set_state(s, T30_STATE_F_POST_DOC_NON_ECM); queue_phase(s, T30_PHASE_D_RX); timer_t2_start(s); } break; } } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) t30_non_ecm_put_byte(void *user_data, int byte) { t30_state_t *s; if (byte < 0) { t30_non_ecm_rx_status(user_data, byte); return; } s = (t30_state_t *) user_data; switch (s->state) { case T30_STATE_F_TCF: /* Trainability test */ /* This makes counting zeros fast, but approximate. That really doesn't matter */ s->tcf_test_bits += 8; if (byte) { if (s->tcf_current_zeros > s->tcf_most_zeros) s->tcf_most_zeros = s->tcf_current_zeros; s->tcf_current_zeros = 0; } else { s->tcf_current_zeros += 8; } break; case T30_STATE_F_DOC_NON_ECM: /* Document transfer */ if (t4_rx_put_byte(&s->t4.rx, (uint8_t) byte)) { /* That is the end of the document */ set_state(s, T30_STATE_F_POST_DOC_NON_ECM); queue_phase(s, T30_PHASE_D_RX); timer_t2_start(s); } break; } } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) t30_non_ecm_put_chunk(void *user_data, const uint8_t buf[], int len) { t30_state_t *s; int i; s = (t30_state_t *) user_data; switch (s->state) { case T30_STATE_F_TCF: /* Trainability test */ /* This makes counting zeros fast, but approximate. That really doesn't matter */ s->tcf_test_bits += 8*len; for (i = 0; i < len; i++) { if (buf[i]) { if (s->tcf_current_zeros > s->tcf_most_zeros) s->tcf_most_zeros = s->tcf_current_zeros; s->tcf_current_zeros = 0; } else { s->tcf_current_zeros += 8; } } break; case T30_STATE_F_DOC_NON_ECM: /* Document transfer */ if (t4_rx_put_chunk(&s->t4.rx, buf, len)) { /* That is the end of the document */ set_state(s, T30_STATE_F_POST_DOC_NON_ECM); queue_phase(s, T30_PHASE_D_RX); timer_t2_start(s); } break; } } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE_NONSTD(int) t30_non_ecm_get_bit(void *user_data) { int bit; t30_state_t *s; s = (t30_state_t *) user_data; switch (s->state) { case T30_STATE_D_TCF: /* Trainability test. */ bit = 0; if (s->tcf_test_bits-- < 0) { /* Finished sending training test. */ bit = SIG_STATUS_END_OF_DATA; } break; case T30_STATE_I: /* Transferring real data. */ bit = t4_tx_get_bit(&s->t4.tx); break; case T30_STATE_D_POST_TCF: case T30_STATE_II_Q: /* We should be padding out a block of samples if we are here */ bit = 0; break; default: span_log(&s->logging, SPAN_LOG_WARNING, "t30_non_ecm_get_bit in bad state %d\n", s->state); bit = SIG_STATUS_END_OF_DATA; break; } return bit; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) t30_non_ecm_get_byte(void *user_data) { int byte; t30_state_t *s; s = (t30_state_t *) user_data; switch (s->state) { case T30_STATE_D_TCF: /* Trainability test. */ byte = 0; if ((s->tcf_test_bits -= 8) < 0) { /* Finished sending training test. */ byte = 0x100; } break; case T30_STATE_I: /* Transferring real data. */ byte = t4_tx_get_byte(&s->t4.tx); break; case T30_STATE_D_POST_TCF: case T30_STATE_II_Q: /* We should be padding out a block of samples if we are here */ byte = 0; break; default: span_log(&s->logging, SPAN_LOG_WARNING, "t30_non_ecm_get_byte in bad state %d\n", s->state); byte = 0x100; break; } return byte; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) t30_non_ecm_get_chunk(void *user_data, uint8_t buf[], int max_len) { int len; t30_state_t *s; s = (t30_state_t *) user_data; switch (s->state) { case T30_STATE_D_TCF: /* Trainability test. */ for (len = 0; len < max_len; len++) { buf[len] = 0; if ((s->tcf_test_bits -= 8) < 0) break; } break; case T30_STATE_I: /* Transferring real data. */ len = t4_tx_get_chunk(&s->t4.tx, buf, max_len); break; case T30_STATE_D_POST_TCF: case T30_STATE_II_Q: /* We should be padding out a block of samples if we are here */ len = 0; break; default: span_log(&s->logging, SPAN_LOG_WARNING, "t30_non_ecm_get_chunk in bad state %d\n", s->state); len = 0; break; } return len; } /*- End of function --------------------------------------------------------*/ static void t30_hdlc_rx_status(void *user_data, int status) { t30_state_t *s; int was_trained; s = (t30_state_t *) user_data; span_log(&s->logging, SPAN_LOG_FLOW, "HDLC signal status is %s (%d) in state %d\n", signal_status_to_str(status), status, s->state); switch (status) { case SIG_STATUS_TRAINING_IN_PROGRESS: break; case SIG_STATUS_TRAINING_FAILED: s->rx_trained = FALSE; break; case SIG_STATUS_TRAINING_SUCCEEDED: /* The modem is now trained */ s->rx_signal_present = TRUE; s->rx_trained = TRUE; break; case SIG_STATUS_CARRIER_UP: s->rx_signal_present = TRUE; switch (s->timer_t2_t4_is) { case TIMER_IS_T2B: timer_t2_t4_stop(s); s->timer_t2_t4_is = TIMER_IS_T2C; break; case TIMER_IS_T4B: timer_t2_t4_stop(s); s->timer_t2_t4_is = TIMER_IS_T4C; break; } break; case SIG_STATUS_CARRIER_DOWN: was_trained = s->rx_trained; s->rx_signal_present = FALSE; s->rx_trained = FALSE; /* If a phase change has been queued to occur after the receive signal drops, its time to change. */ if (s->state == T30_STATE_F_DOC_ECM) { /* We should be receiving a document right now, but we haven't seen an RCP at the end of transmission. */ if (was_trained) { /* We trained OK, so we should have some kind of received page, possibly with zero good HDLC frames. It just did'nt end cleanly with an RCP. */ span_log(&s->logging, SPAN_LOG_WARNING, "ECM signal did not end cleanly\n"); /* Fake the existance of an RCP, and proceed */ set_state(s, T30_STATE_F_POST_DOC_ECM); queue_phase(s, T30_PHASE_D_RX); timer_t2_start(s); /* We at least trained, so any missing carrier status is out of date */ if (s->current_status == T30_ERR_RX_NOCARRIER) s->current_status = T30_ERR_OK; } else { /* Either there was no image carrier, or we failed to train to it. */ span_log(&s->logging, SPAN_LOG_WARNING, "ECM carrier not found\n"); s->current_status = T30_ERR_RX_NOCARRIER; } } if (s->next_phase != T30_PHASE_IDLE) { /* The appropriate timer for the next phase should already be in progress */ set_phase(s, s->next_phase); s->next_phase = T30_PHASE_IDLE; } else { switch (s->timer_t2_t4_is) { case TIMER_IS_T1A: case TIMER_IS_T2A: case TIMER_IS_T2C: timer_t2b_start(s); break; case TIMER_IS_T4A: case TIMER_IS_T4C: timer_t4b_start(s); break; } } break; case SIG_STATUS_FRAMING_OK: if (!s->far_end_detected && s->timer_t0_t1 > 0) { s->timer_t0_t1 = ms_to_samples(DEFAULT_TIMER_T1); s->far_end_detected = TRUE; if (s->phase == T30_PHASE_A_CED || s->phase == T30_PHASE_A_CNG) set_phase(s, T30_PHASE_B_RX); } /* 5.4.3.1 Timer T2 is reset if flag is received. Timer T2A must be started. */ /* Unstated, but implied, is that timer T4 and T4A are handled the same way. */ if (s->timer_t2_t4 > 0) { switch(s->timer_t2_t4_is) { case TIMER_IS_T1A: case TIMER_IS_T2: case TIMER_IS_T2A: timer_t2a_start(s); break; case TIMER_IS_T4: case TIMER_IS_T4A: timer_t4a_start(s); break; } } break; case SIG_STATUS_ABORT: /* Just ignore these */ break; default: span_log(&s->logging, SPAN_LOG_FLOW, "Unexpected HDLC special length - %d!\n", status); break; } } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE_NONSTD(void) t30_hdlc_accept(void *user_data, const uint8_t *msg, int len, int ok) { t30_state_t *s; if (len < 0) { t30_hdlc_rx_status(user_data, len); return; } s = (t30_state_t *) user_data; /* The spec. says a command or response is not valid if: - any of the frames, optional or mandatory, have an FCS error. - any single frame exceeds 3s +- 15% (i.e. no frame should exceed 2.55s) - the final frame is not tagged as a final frame - the final frame is not a recognised one. The first point seems benign. If we accept an optional frame, and a later frame is bad, having accepted the optional frame should be harmless. The 2.55s maximum seems to limit signalling frames to no more than 95 octets, including FCS, and flag octets (assuming the use of V.21). */ if (!ok) { span_log(&s->logging, SPAN_LOG_FLOW, "Bad HDLC CRC received\n"); if (s->phase != T30_PHASE_C_ECM_RX) { /* We either force a resend, or we wait until a resend occurs through a timeout. */ if ((s->supported_t30_features & T30_SUPPORT_COMMAND_REPEAT)) { s->step = 0; if (s->phase == T30_PHASE_B_RX) queue_phase(s, T30_PHASE_B_TX); else queue_phase(s, T30_PHASE_D_TX); send_simple_frame(s, T30_CRP); } else { /* Cancel the command or response timer (if one is running) */ span_log(&s->logging, SPAN_LOG_FLOW, "Bad CRC and timer is %d\n", s->timer_t2_t4_is); if (s->timer_t2_t4_is == TIMER_IS_T2A) timer_t2_t4_stop(s); } } return; } if (len < 3) { span_log(&s->logging, SPAN_LOG_FLOW, "Bad HDLC frame length - %d\n", len); /* Cancel the command or response timer (if one is running) */ timer_t2_t4_stop(s); return; } if (msg[0] != ADDRESS_FIELD || !(msg[1] == CONTROL_FIELD_NON_FINAL_FRAME || msg[1] == CONTROL_FIELD_FINAL_FRAME)) { span_log(&s->logging, SPAN_LOG_FLOW, "Bad HDLC frame header - %02x %02x\n", msg[0], msg[1]); /* Cancel the command or response timer (if one is running) */ timer_t2_t4_stop(s); return; } s->rx_frame_received = TRUE; /* Cancel the command or response timer (if one is running) */ timer_t2_t4_stop(s); process_rx_control_msg(s, msg, len); } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) t30_front_end_status(void *user_data, int status) { t30_state_t *s; s = (t30_state_t *) user_data; switch (status) { case T30_FRONT_END_SEND_STEP_COMPLETE: span_log(&s->logging, SPAN_LOG_FLOW, "Send complete in phase %s, state %d\n", phase_names[s->phase], s->state); /* We have finished sending our messages, so move on to the next operation. */ switch (s->state) { case T30_STATE_ANSWERING: span_log(&s->logging, SPAN_LOG_FLOW, "Starting answer mode\n"); set_phase(s, T30_PHASE_B_TX); timer_t2_start(s); s->dis_received = FALSE; send_dis_or_dtc_sequence(s, TRUE); break; case T30_STATE_R: if (send_dis_or_dtc_sequence(s, FALSE)) { /* Wait for an acknowledgement. */ set_phase(s, T30_PHASE_B_RX); timer_t4_start(s); } break; case T30_STATE_F_CFR: if (s->step == 0) { /* Shut down HDLC transmission. */ if (s->send_hdlc_handler) s->send_hdlc_handler(s->send_hdlc_user_data, NULL, 0); s->step++; } else { if (s->error_correcting_mode) { set_state(s, T30_STATE_F_DOC_ECM); queue_phase(s, T30_PHASE_C_ECM_RX); } else { set_state(s, T30_STATE_F_DOC_NON_ECM); queue_phase(s, T30_PHASE_C_NON_ECM_RX); } timer_t2_start(s); s->next_rx_step = T30_MPS; } break; case T30_STATE_F_FTT: if (s->step == 0) { /* Shut down HDLC transmission. */ if (s->send_hdlc_handler) s->send_hdlc_handler(s->send_hdlc_user_data, NULL, 0); s->step++; } else { set_phase(s, T30_PHASE_B_RX); timer_t2_start(s); } break; case T30_STATE_III_Q_MCF: case T30_STATE_III_Q_RTP: case T30_STATE_III_Q_RTN: case T30_STATE_F_POST_RCP_PPR: case T30_STATE_F_POST_RCP_MCF: if (s->step == 0) { /* Shut down HDLC transmission. */ if (s->send_hdlc_handler) s->send_hdlc_handler(s->send_hdlc_user_data, NULL, 0); s->step++; } else { switch (s->next_rx_step) { case T30_PRI_MPS: case T30_MPS: /* We should now start to get another page */ if (s->error_correcting_mode) { set_state(s, T30_STATE_F_DOC_ECM); queue_phase(s, T30_PHASE_C_ECM_RX); } else { set_state(s, T30_STATE_F_DOC_NON_ECM); queue_phase(s, T30_PHASE_C_NON_ECM_RX); } timer_t2_start(s); break; case T30_PRI_EOM: case T30_EOM: case T30_EOS: /* See if we get something back, before moving to phase B. */ timer_t2_start(s); set_phase(s, T30_PHASE_D_RX); break; case T30_PRI_EOP: case T30_EOP: /* Wait for a DCN. */ set_phase(s, T30_PHASE_D_RX); timer_t4_start(s); break; default: span_log(&s->logging, SPAN_LOG_FLOW, "Unknown next rx step - %d\n", s->next_rx_step); disconnect(s); break; } } break; case T30_STATE_II_Q: case T30_STATE_IV_PPS_NULL: case T30_STATE_IV_PPS_Q: case T30_STATE_IV_PPS_RNR: case T30_STATE_IV_EOR_RNR: case T30_STATE_F_POST_RCP_RNR: case T30_STATE_IV_EOR: case T30_STATE_IV_CTC: if (s->step == 0) { /* Shut down HDLC transmission. */ if (s->send_hdlc_handler) s->send_hdlc_handler(s->send_hdlc_user_data, NULL, 0); s->step++; } else { /* We have finished sending the post image message. Wait for an acknowledgement. */ set_phase(s, T30_PHASE_D_RX); timer_t4_start(s); } break; case T30_STATE_B: /* We have now allowed time for the last message to flush through the system, so it is safe to report the end of the call. */ if (s->phase_e_handler) s->phase_e_handler(s, s->phase_e_user_data, s->current_status); set_state(s, T30_STATE_CALL_FINISHED); set_phase(s, T30_PHASE_CALL_FINISHED); release_resources(s); break; case T30_STATE_C: if (s->step == 0) { /* Shut down HDLC transmission. */ if (s->send_hdlc_handler) s->send_hdlc_handler(s->send_hdlc_user_data, NULL, 0); s->step++; } else { /* We just sent the disconnect message. Now it is time to disconnect. */ disconnect(s); } break; case T30_STATE_D: if (send_dcs_sequence(s, FALSE)) { if ((s->iaf & T30_IAF_MODE_NO_TCF)) { /* Skip the trainability test */ s->retries = 0; s->short_train = TRUE; if (s->error_correcting_mode) { set_state(s, T30_STATE_IV); queue_phase(s, T30_PHASE_C_ECM_TX); } else { set_state(s, T30_STATE_I); queue_phase(s, T30_PHASE_C_NON_ECM_TX); } } else { /* Do the trainability test */ /* TCF is always sent with long training */ s->short_train = FALSE; set_state(s, T30_STATE_D_TCF); set_phase(s, T30_PHASE_C_NON_ECM_TX); } } break; case T30_STATE_D_TCF: /* Finished sending training test. Listen for the response. */ set_phase(s, T30_PHASE_B_RX); timer_t4_start(s); set_state(s, T30_STATE_D_POST_TCF); break; case T30_STATE_I: /* Send the end of page message */ set_phase(s, T30_PHASE_D_TX); set_state(s, T30_STATE_II_Q); /* We might need to resend the page we are on, but we need to check if there are any more pages to send, so we can send the correct signal right now. */ send_simple_frame(s, s->next_tx_step = check_next_tx_step(s)); break; case T30_STATE_IV: /* We have finished sending an FCD frame */ if (s->step == 0) { if (send_next_ecm_frame(s)) { /* Shut down HDLC transmission. */ if (s->send_hdlc_handler) s->send_hdlc_handler(s->send_hdlc_user_data, NULL, 0); s->step++; } } else { /* Send the end of page or partial page message */ set_phase(s, T30_PHASE_D_TX); s->next_tx_step = check_next_tx_step(s); if (send_pps_frame(s) == T30_NULL) set_state(s, T30_STATE_IV_PPS_NULL); else set_state(s, T30_STATE_IV_PPS_Q); } break; case T30_STATE_F_DOC_ECM: /* This should be the end of a CTR being sent. */ if (s->step == 0) { /* Shut down HDLC transmission. */ if (s->send_hdlc_handler) s->send_hdlc_handler(s->send_hdlc_user_data, NULL, 0); s->step++; } else { /* We have finished sending the CTR. Wait for image data again. */ queue_phase(s, T30_PHASE_C_ECM_RX); timer_t2_start(s); } break; case T30_STATE_CALL_FINISHED: /* Just ignore anything that happens now. We might get here if a premature disconnect from the far end overlaps something. */ break; default: span_log(&s->logging, SPAN_LOG_FLOW, "Bad state for send complete in t30_front_end_status - %d\n", s->state); break; } break; case T30_FRONT_END_RECEIVE_COMPLETE: span_log(&s->logging, SPAN_LOG_FLOW, "Receive complete in phase %s, state %d\n", phase_names[s->phase], s->state); /* Usually receive complete is notified by a carrier down signal. However, in cases like a T.38 packet stream dying in the middle of reception there needs to be a means to stop things. */ switch (s->phase) { case T30_PHASE_C_NON_ECM_RX: t30_non_ecm_rx_status(s, SIG_STATUS_CARRIER_DOWN); break; default: t30_hdlc_rx_status(s, SIG_STATUS_CARRIER_DOWN); break; } break; case T30_FRONT_END_SIGNAL_PRESENT: span_log(&s->logging, SPAN_LOG_FLOW, "A signal is present\n"); /* The front end is explicitly telling us the signal we expect is present. This might be a premature indication from a T.38 implementation, but we have to believe it. if we don't we can time out improperly. For example, we might get an image modem carrier signal, but the first HDLC frame might only occur several seconds later. Many ECM senders idle on HDLC flags while waiting for the paper or filing system to become ready. T.38 offers no specific indication of correct carrier training, so if we don't kill the timer on the initial carrier starting signal, we will surely time out quite often before the next thing we receive. */ switch (s->phase) { case T30_PHASE_A_CED: case T30_PHASE_A_CNG: case T30_PHASE_B_RX: case T30_PHASE_D_RX: /* We are running a V.21 receive modem, where an explicit training indication will not occur. */ t30_hdlc_rx_status(s, SIG_STATUS_CARRIER_UP); t30_hdlc_rx_status(s, SIG_STATUS_FRAMING_OK); break; default: /* Cancel any receive timeout, and declare that a receive signal is present, since the front end is explicitly telling us we have seen something. */ s->rx_signal_present = TRUE; timer_t2_t4_stop(s); break; } break; case T30_FRONT_END_SIGNAL_ABSENT: span_log(&s->logging, SPAN_LOG_FLOW, "No signal is present\n"); /* TODO: Should we do anything here? */ break; case T30_FRONT_END_CED_PRESENT: span_log(&s->logging, SPAN_LOG_FLOW, "CED tone is present\n"); /* TODO: Should we do anything here? */ break; case T30_FRONT_END_CNG_PRESENT: span_log(&s->logging, SPAN_LOG_FLOW, "CNG tone is present\n"); /* TODO: Should we do anything here? */ break; } } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) t30_timer_update(t30_state_t *s, int samples) { int previous; if (s->timer_t0_t1 > 0) { if ((s->timer_t0_t1 -= samples) <= 0) { s->timer_t0_t1 = 0; if (s->far_end_detected) timer_t1_expired(s); else timer_t0_expired(s); } } if (s->timer_t3 > 0) { if ((s->timer_t3 -= samples) <= 0) { s->timer_t3 = 0; timer_t3_expired(s); } } if (s->timer_t2_t4 > 0) { if ((s->timer_t2_t4 -= samples) <= 0) { previous = s->timer_t2_t4_is; /* Don't allow the count to be left at a small negative number. It looks cosmetically bad in the logs. */ s->timer_t2_t4 = 0; s->timer_t2_t4_is = TIMER_IS_IDLE; switch (previous) { case TIMER_IS_T1A: timer_t1a_expired(s); break; case TIMER_IS_T2: timer_t2_expired(s); break; case TIMER_IS_T2A: timer_t2a_expired(s); break; case TIMER_IS_T2B: timer_t2b_expired(s); break; case TIMER_IS_T4: timer_t4_expired(s); break; case TIMER_IS_T4A: timer_t4a_expired(s); break; case TIMER_IS_T4B: timer_t4b_expired(s); break; } } } if (s->timer_t5 > 0) { if ((s->timer_t5 -= samples) <= 0) { s->timer_t5 = 0; timer_t5_expired(s); } } } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) t30_terminate(t30_state_t *s) { if (s->phase != T30_PHASE_CALL_FINISHED) { /* The far end disconnected early, but was it just a tiny bit too early, as we were just tidying up, or seriously early as in a failure? */ switch (s->state) { case T30_STATE_C: /* We were sending the final disconnect, so just hussle things along. */ disconnect(s); break; case T30_STATE_B: /* We were in the final wait for everything to flush through, so just hussle things along. */ break; default: /* The call terminated prematurely. */ s->current_status = T30_ERR_CALLDROPPED; break; } if (s->phase_e_handler) s->phase_e_handler(s, s->phase_e_user_data, s->current_status); set_state(s, T30_STATE_CALL_FINISHED); set_phase(s, T30_PHASE_CALL_FINISHED); release_resources(s); } } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) t30_get_transfer_statistics(t30_state_t *s, t30_stats_t *t) { t4_stats_t stats; t->bit_rate = fallback_sequence[s->current_fallback].bit_rate; t->error_correcting_mode = s->error_correcting_mode; t->error_correcting_mode_retries = s->error_correcting_mode_retries; switch (s->operation_in_progress) { case OPERATION_IN_PROGRESS_T4_TX: case OPERATION_IN_PROGRESS_POST_T4_TX: t4_tx_get_transfer_statistics(&s->t4.tx, &stats); break; case OPERATION_IN_PROGRESS_T4_RX: case OPERATION_IN_PROGRESS_POST_T4_RX: t4_rx_get_transfer_statistics(&s->t4.rx, &stats); break; default: memset(&stats, 0, sizeof(stats)); break; } t->pages_tx = s->tx_page_number; t->pages_rx = s->rx_page_number; t->pages_in_file = stats.pages_in_file; t->width = stats.width; t->length = stats.length; t->bad_rows = stats.bad_rows; t->longest_bad_row_run = stats.longest_bad_row_run; t->x_resolution = stats.x_resolution; t->y_resolution = stats.y_resolution; t->encoding = stats.encoding; t->image_size = stats.line_image_size; t->current_status = s->current_status; #if 0 t->rtn_events = s->rtn_events; t->rtp_events = s->rtp_events; #endif } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) t30_local_interrupt_request(t30_state_t *s, int state) { if (s->timer_t3 > 0) { /* Accept the far end's outstanding request for interrupt. */ /* TODO: */ send_simple_frame(s, (state) ? T30_PIP : T30_PIN); } s->local_interrupt_pending = state; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) t30_remote_interrupts_allowed(t30_state_t *s, int state) { s->remote_interrupts_allowed = state; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) t30_restart(t30_state_t *s) { s->phase = T30_PHASE_IDLE; s->next_phase = T30_PHASE_IDLE; s->current_fallback = 0; s->rx_signal_present = FALSE; s->rx_trained = FALSE; s->rx_frame_received = FALSE; s->current_status = T30_ERR_OK; s->ppr_count = 0; s->ecm_progress = 0; s->receiver_not_ready_count = 0; s->far_dis_dtc_len = 0; memset(&s->far_dis_dtc_frame, 0, sizeof(s->far_dis_dtc_frame)); t30_build_dis_or_dtc(s); memset(&s->rx_info, 0, sizeof(s->rx_info)); release_resources(s); /* The page number is only reset at call establishment */ s->rx_page_number = 0; s->tx_page_number = 0; s->rtn_events = 0; s->rtp_events = 0; s->local_interrupt_pending = FALSE; s->far_end_detected = FALSE; s->timer_t0_t1 = ms_to_samples(DEFAULT_TIMER_T0); if (s->calling_party) { set_state(s, T30_STATE_T); set_phase(s, T30_PHASE_A_CNG); } else { set_state(s, T30_STATE_ANSWERING); set_phase(s, T30_PHASE_A_CED); } return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(t30_state_t *) t30_init(t30_state_t *s, int calling_party, t30_set_handler_t *set_rx_type_handler, void *set_rx_type_user_data, t30_set_handler_t *set_tx_type_handler, void *set_tx_type_user_data, t30_send_hdlc_handler_t *send_hdlc_handler, void *send_hdlc_user_data) { if (s == NULL) { if ((s = (t30_state_t *) malloc(sizeof(*s))) == NULL) return NULL; } memset(s, 0, sizeof(*s)); s->calling_party = calling_party; s->set_rx_type_handler = set_rx_type_handler; s->set_rx_type_user_data = set_rx_type_user_data; s->set_tx_type_handler = set_tx_type_handler; s->set_tx_type_user_data = set_tx_type_user_data; s->send_hdlc_handler = send_hdlc_handler; s->send_hdlc_user_data = send_hdlc_user_data; /* Default to the basic modems. */ s->supported_modems = T30_SUPPORT_V27TER | T30_SUPPORT_V29 | T30_SUPPORT_V17; s->supported_compressions = T30_SUPPORT_T4_1D_COMPRESSION | T30_SUPPORT_T4_2D_COMPRESSION; s->supported_resolutions = T30_SUPPORT_STANDARD_RESOLUTION | T30_SUPPORT_FINE_RESOLUTION | T30_SUPPORT_SUPERFINE_RESOLUTION | T30_SUPPORT_R8_RESOLUTION; s->supported_image_sizes = T30_SUPPORT_US_LETTER_LENGTH | T30_SUPPORT_US_LEGAL_LENGTH | T30_SUPPORT_UNLIMITED_LENGTH | T30_SUPPORT_215MM_WIDTH; /* Set the output encoding to something safe. Most things get 1D and 2D encoding right. Quite a lot get other things wrong. */ s->output_encoding = T4_COMPRESSION_ITU_T4_2D; s->local_min_scan_time_code = T30_MIN_SCAN_0MS; span_log_init(&s->logging, SPAN_LOG_NONE, NULL); span_log_set_protocol(&s->logging, "T.30"); t30_restart(s); return s; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) t30_release(t30_state_t *s) { /* Make sure any FAX in progress is tidied up. If the tidying up has already happened, repeating it here is harmless. */ terminate_operation_in_progress(s); return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) t30_free(t30_state_t *s) { t30_release(s); free(s); return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) t30_call_active(t30_state_t *s) { return (s->phase != T30_PHASE_CALL_FINISHED); } /*- End of function --------------------------------------------------------*/ /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/tone_generate.c0000664000175000017500000001767611422612263016371 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * tone_generate.c - General telephony tone generation. * * Written by Steve Underwood * * Copyright (C) 2001 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \file */ #if defined(HAVE_CONFIG_H) #include "config.h" #endif #include #include #include #include #include #include #if defined(HAVE_TGMATH_H) #include #endif #if defined(HAVE_MATH_H) #include #endif #include "floating_fudge.h" #include "spandsp/telephony.h" #include "spandsp/fast_convert.h" #include "spandsp/dc_restore.h" #include "spandsp/complex.h" #include "spandsp/dds.h" #include "spandsp/tone_generate.h" #include "spandsp/private/tone_generate.h" #if !defined(M_PI) /* C99 systems may not define M_PI */ #define M_PI 3.14159265358979323846264338327 #endif SPAN_DECLARE(tone_gen_descriptor_t *) tone_gen_descriptor_init(tone_gen_descriptor_t *s, int f1, int l1, int f2, int l2, int d1, int d2, int d3, int d4, int repeat) { if (s == NULL) { if ((s = (tone_gen_descriptor_t *) malloc(sizeof(*s))) == NULL) { return NULL; } } memset(s, 0, sizeof(*s)); if (f1) { #if defined(SPANDSP_USE_FIXED_POINT) s->tone[0].phase_rate = dds_phase_rate((float) f1); if (f2 < 0) s->tone[0].phase_rate = -s->tone[0].phase_rate; s->tone[0].gain = dds_scaling_dbm0((float) l1); #else s->tone[0].phase_rate = dds_phase_ratef((float) f1); if (f2 < 0) s->tone[0].phase_rate = -s->tone[0].phase_rate; s->tone[0].gain = dds_scaling_dbm0f((float) l1); #endif } if (f2) { #if defined(SPANDSP_USE_FIXED_POINT) s->tone[1].phase_rate = dds_phase_rate((float) abs(f2)); s->tone[1].gain = (f2 < 0) ? (float) 32767.0f*l2/100.0f : dds_scaling_dbm0((float) l2); #else s->tone[1].phase_rate = dds_phase_ratef((float) abs(f2)); s->tone[1].gain = (f2 < 0) ? (float) l2/100.0f : dds_scaling_dbm0f((float) l2); #endif } s->duration[0] = d1*SAMPLE_RATE/1000; s->duration[1] = d2*SAMPLE_RATE/1000; s->duration[2] = d3*SAMPLE_RATE/1000; s->duration[3] = d4*SAMPLE_RATE/1000; s->repeat = repeat; return s; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) tone_gen_descriptor_free(tone_gen_descriptor_t *s) { free(s); } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE_NONSTD(int) tone_gen(tone_gen_state_t *s, int16_t amp[], int max_samples) { int samples; int limit; #if defined(SPANDSP_USE_FIXED_POINT) int16_t xamp; #else float xamp; #endif int i; if (s->current_section < 0) return 0; for (samples = 0; samples < max_samples; ) { limit = samples + s->duration[s->current_section] - s->current_position; if (limit > max_samples) limit = max_samples; s->current_position += (limit - samples); if (s->current_section & 1) { /* A silent section */ for ( ; samples < limit; samples++) amp[samples] = 0; } else { if (s->tone[0].phase_rate < 0) { /* Modulated tone */ for ( ; samples < limit; samples++) { /* There must be two, and only two, tones */ #if defined(SPANDSP_USE_FIXED_POINT) xamp = ((int32_t) dds_mod(&s->phase[0], -s->tone[0].phase_rate, s->tone[0].gain, 0) *(32767 + (int32_t) dds_mod(&s->phase[1], s->tone[1].phase_rate, s->tone[1].gain, 0))) >> 15; amp[samples] = xamp; #else xamp = dds_modf(&s->phase[0], -s->tone[0].phase_rate, s->tone[0].gain, 0) *(1.0f + dds_modf(&s->phase[1], s->tone[1].phase_rate, s->tone[1].gain, 0)); amp[samples] = (int16_t) lfastrintf(xamp); #endif } } else { for ( ; samples < limit; samples++) { #if defined(SPANDSP_USE_FIXED_POINT) xamp = 0; #else xamp = 0.0f; #endif for (i = 0; i < 4; i++) { if (s->tone[i].phase_rate == 0) break; #if defined(SPANDSP_USE_FIXED_POINT) xamp += dds_mod(&s->phase[i], s->tone[i].phase_rate, s->tone[i].gain, 0); #else xamp += dds_modf(&s->phase[i], s->tone[i].phase_rate, s->tone[i].gain, 0); #endif } /* Saturation of the answer is the right thing at this point. However, we are normally generating well controlled tones, that cannot clip. So, the overhead of doing saturation is a waste of valuable time. */ #if defined(SPANDSP_USE_FIXED_POINT) amp[samples] = xamp; #else amp[samples] = (int16_t) lfastrintf(xamp); #endif } } } if (s->current_position >= s->duration[s->current_section]) { s->current_position = 0; if (++s->current_section > 3 || s->duration[s->current_section] == 0) { if (!s->repeat) { /* Force a quick exit */ s->current_section = -1; break; } s->current_section = 0; } } } return samples; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(tone_gen_state_t *) tone_gen_init(tone_gen_state_t *s, tone_gen_descriptor_t *t) { int i; if (s == NULL) { if ((s = (tone_gen_state_t *) malloc(sizeof(*s))) == NULL) { return NULL; } } memset(s, 0, sizeof(*s)); for (i = 0; i < 4; i++) { s->tone[i] = t->tone[i]; s->phase[i] = 0; } for (i = 0; i < 4; i++) s->duration[i] = t->duration[i]; s->repeat = t->repeat; s->current_section = 0; s->current_position = 0; return s; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) tone_gen_release(tone_gen_state_t *s) { return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) tone_gen_free(tone_gen_state_t *s) { if (s) free(s); return 0; } /*- End of function --------------------------------------------------------*/ /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/bit_operations.c0000664000175000017500000001325211422612261016553 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * bit_operations.c - Various bit level operations, such as bit reversal * * Written by Steve Underwood * * Copyright (C) 2006 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \file */ #if defined(HAVE_CONFIG_H) #include "config.h" #endif #include #include #include #include #include #include #include "spandsp/telephony.h" #include "spandsp/bit_operations.h" SPAN_DECLARE(uint16_t) bit_reverse16(uint16_t x) { x = (x >> 8) | (x << 8); x = ((x & 0xF0F0) >> 4) | ((x & 0x0F0F) << 4); x = ((x & 0xCCCC) >> 2) | ((x & 0x3333) << 2); return ((x & 0xAAAA) >> 1) | ((x & 0x5555) << 1); } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(uint32_t) bit_reverse32(uint32_t x) { x = (x >> 16) | (x << 16); x = ((x & 0xFF00FF00) >> 8) | ((x & 0x00FF00FF) << 8); x = ((x & 0xF0F0F0F0) >> 4) | ((x & 0x0F0F0F0F) << 4); x = ((x & 0xCCCCCCCC) >> 2) | ((x & 0x33333333) << 2); return ((x & 0xAAAAAAAA) >> 1) | ((x & 0x55555555) << 1); } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(uint32_t) bit_reverse_4bytes(uint32_t x) { x = ((x & 0xF0F0F0F0) >> 4) | ((x & 0x0F0F0F0F) << 4); x = ((x & 0xCCCCCCCC) >> 2) | ((x & 0x33333333) << 2); return ((x & 0xAAAAAAAA) >> 1) | ((x & 0x55555555) << 1); } /*- End of function --------------------------------------------------------*/ #if defined(__x86_64__) SPAN_DECLARE(uint64_t) bit_reverse_8bytes(uint64_t x) { x = ((x & 0xF0F0F0F0F0F0F0F0LLU) >> 4) | ((x & 0x0F0F0F0F0F0F0F0FLLU) << 4); x = ((x & 0xCCCCCCCCCCCCCCCCLLU) >> 2) | ((x & 0x3333333333333333LLU) << 2); return ((x & 0xAAAAAAAAAAAAAAAALLU) >> 1) | ((x & 0x5555555555555555LLU) << 1); } /*- End of function --------------------------------------------------------*/ #endif SPAN_DECLARE(void) bit_reverse(uint8_t to[], const uint8_t from[], int len) { #if defined(SPANDSP_MISALIGNED_ACCESS_FAILS) int i; #else const uint8_t *y1; uint8_t *z1; const uint32_t *y4; uint32_t *z4; uint32_t x4; #if defined(__x86_64__) const uint64_t *y8; uint64_t *z8; uint64_t x8; #endif #endif #if defined(SPANDSP_MISALIGNED_ACCESS_FAILS) /* This code works byte by byte, so it works on machines where misalignment is either desperately slow (its a bit slow on practically any machine, but some machines make it desparately slow) or fails. */ for (i = 0; i < len; i++) to[i] = bit_reverse8(from[i]); #else /* This code is this is based on the woolly assumption that the start of the buffers is memory aligned. If it isn't, the routine will be less efficient on some machines, but might not work at all on others. */ #if defined(__x86_64__) y8 = (const uint64_t *) from; z8 = (uint64_t *) to; while (len >= sizeof(uint64_t)) { x8 = *y8++; x8 = ((x8 & 0xF0F0F0F0F0F0F0F0LLU) >> 4) | ((x8 & 0x0F0F0F0F0F0F0F0FLLU) << 4); x8 = ((x8 & 0xCCCCCCCCCCCCCCCCLLU) >> 2) | ((x8 & 0x3333333333333333LLU) << 2); *z8++ = ((x8 & 0xAAAAAAAAAAAAAAAALLU) >> 1) | ((x8 & 0x5555555555555555LLU) << 1); len -= sizeof(uint64_t); } y4 = (const uint32_t *) y8; z4 = (uint32_t *) z8; #else y4 = (const uint32_t *) from; z4 = (uint32_t *) to; #endif while (len >= sizeof(uint32_t)) { x4 = *y4++; x4 = ((x4 & 0xF0F0F0F0) >> 4) | ((x4 & 0x0F0F0F0F) << 4); x4 = ((x4 & 0xCCCCCCCC) >> 2) | ((x4 & 0x33333333) << 2); *z4++ = ((x4 & 0xAAAAAAAA) >> 1) | ((x4 & 0x55555555) << 1); len -= sizeof(uint32_t); } y1 = (const uint8_t *) y4; z1 = (uint8_t *) z4; while (len-- > 0) *z1++ = bit_reverse8(*y1++); #endif } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) one_bits32(uint32_t x) { x = x - ((x >> 1) & 0x55555555); /* We now have 16 2-bit counts */ x = (x & 0x33333333) + ((x >> 2) & 0x33333333); /* We now have 8 4-bit counts */ x = (x + (x >> 4)) & 0x0F0F0F0F; /* We now have 4 8-bit counts */ #if defined(__i386__) || defined(__x86_64__) || defined(__ppc__) || defined(__powerpc__) /* If multiply is fast */ return (x*0x01010101) >> 24; #else /* If multiply is slow */ x += (x >> 8); x += (x >> 16); return (x & 0x0000003F); #endif } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(uint32_t) make_mask32(uint32_t x) { x |= (x >> 1); x |= (x >> 2); x |= (x >> 4); x |= (x >> 8); x |= (x >> 16); return x; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(uint16_t) make_mask16(uint16_t x) { x |= (x >> 1); x |= (x >> 2); x |= (x >> 4); x |= (x >> 8); return x; } /*- End of function --------------------------------------------------------*/ /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/bert.c0000664000175000017500000003545011422612261014472 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * bert.c - Bit error rate tests. * * Written by Steve Underwood * * Copyright (C) 2004 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #if defined(HAVE_CONFIG_H) #include "config.h" #endif #include #include #include #include #include #include #include "spandsp/telephony.h" #include "spandsp/logging.h" #include "spandsp/async.h" #include "spandsp/bert.h" #include "spandsp/private/logging.h" #include "spandsp/private/bert.h" #define MEASUREMENT_STEP 100 static const char *qbf = "VoyeZ Le BricK GeanT QuE J'ExaminE PreS Du WharF 123 456 7890 + - * : = $ % ( )" "ThE QuicK BrowN FoX JumpS OveR ThE LazY DoG 123 456 7890 + - * : = $ % ( )"; SPAN_DECLARE(const char *) bert_event_to_str(int event) { switch (event) { case BERT_REPORT_SYNCED: return "synced"; case BERT_REPORT_UNSYNCED: return "unsync'ed"; case BERT_REPORT_REGULAR: return "regular"; case BERT_REPORT_GT_10_2: return "error rate > 1 in 10^2"; case BERT_REPORT_LT_10_2: return "error rate < 1 in 10^2"; case BERT_REPORT_LT_10_3: return "error rate < 1 in 10^3"; case BERT_REPORT_LT_10_4: return "error rate < 1 in 10^4"; case BERT_REPORT_LT_10_5: return "error rate < 1 in 10^5"; case BERT_REPORT_LT_10_6: return "error rate < 1 in 10^6"; case BERT_REPORT_LT_10_7: return "error rate < 1 in 10^7"; } return "???"; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) bert_get_bit(bert_state_t *s) { int bit; if (s->limit && s->tx.bits >= s->limit) return SIG_STATUS_END_OF_DATA; bit = 0; switch (s->pattern_class) { case 0: bit = s->tx.reg & 1; s->tx.reg = (s->tx.reg >> 1) | ((s->tx.reg & 1) << s->shift2); break; case 1: bit = s->tx.reg & 1; s->tx.reg = (s->tx.reg >> 1) | (((s->tx.reg ^ (s->tx.reg >> s->shift)) & 1) << s->shift2); if (s->max_zeros) { /* This generator suppresses runs >s->max_zeros */ if (bit) { if (++s->tx.zeros > s->max_zeros) { s->tx.zeros = 0; bit ^= 1; } } else { s->tx.zeros = 0; } } bit ^= s->invert; break; case 2: if (s->tx.step_bit == 0) { s->tx.step_bit = 7; s->tx.reg = qbf[s->tx.step++]; if (s->tx.reg == 0) { s->tx.reg = 'V'; s->tx.step = 1; } } bit = s->tx.reg & 1; s->tx.reg >>= 1; s->tx.step_bit--; break; } s->tx.bits++; return bit; } /*- End of function --------------------------------------------------------*/ static void assess_error_rate(bert_state_t *s) { int i; int j; int sum; int test; /* We assess the error rate in decadic steps. For each decade we assess the error over 10 times the number of bits, to smooth the result. This means we assess the 1 in 100 rate based on 1000 bits (i.e. we look for >=10 errors in 1000 bits). We make an assessment every 100 bits, using a sliding window over the last 1000 bits. We assess the 1 in 1000 rate over 10000 bits in a similar way, and so on for the lower error rates. */ test = TRUE; for (i = 2; i <= 7; i++) { if (++s->decade_ptr[i] < 10) break; /* This decade has reached 10 snapshots, so we need to touch the next decade */ s->decade_ptr[i] = 0; /* Sum the last 10 snapshots from this decade, to see if we overflow into the next decade */ for (sum = 0, j = 0; j < 10; j++) sum += s->decade_bad[i][j]; if (test && sum > 10) { /* We overflow into the next decade */ test = FALSE; if (s->error_rate != i && s->reporter) s->reporter(s->user_data, BERT_REPORT_GT_10_2 + i - 2, &s->results); s->error_rate = i; } s->decade_bad[i][0] = 0; if (i < 7) s->decade_bad[i + 1][s->decade_ptr[i + 1]] = sum; } if (i > 7) { if (s->decade_ptr[i] >= 10) s->decade_ptr[i] = 0; if (test) { if (s->error_rate != i && s->reporter) s->reporter(s->user_data, BERT_REPORT_GT_10_2 + i - 2, &s->results); s->error_rate = i; } } else { s->decade_bad[i][s->decade_ptr[i]] = 0; } } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) bert_put_bit(bert_state_t *s, int bit) { if (bit < 0) { /* Special conditions */ printf("Status is %s (%d)\n", signal_status_to_str(bit), bit); return; } bit = (bit & 1) ^ s->invert; s->rx.bits++; switch (s->pattern_class) { case 0: if (s->rx.resync) { s->rx.reg = (s->rx.reg >> 1) | (bit << s->shift2); s->rx.ref_reg = (s->rx.ref_reg >> 1) | ((s->rx.ref_reg & 1) << s->shift2); if (s->rx.reg == s->rx.ref_reg) { if (++s->rx.resync > s->resync_time) { s->rx.resync = 0; if (s->reporter) s->reporter(s->user_data, BERT_REPORT_SYNCED, &s->results); } } else { s->rx.resync = 2; s->rx.ref_reg = s->rx.master_reg; } } else { s->results.total_bits++; if ((bit ^ s->rx.ref_reg) & 1) s->results.bad_bits++; s->rx.ref_reg = (s->rx.ref_reg >> 1) | ((s->rx.ref_reg & 1) << s->shift2); } break; case 1: if (s->rx.resync) { /* If we get a reasonable period for which we correctly predict the next bit, we must be in sync. */ /* Don't worry about max. zeros tests when resyncing. It might just extend the resync time a little. Trying to include the test might affect robustness. */ if (bit == (int) ((s->rx.reg >> s->shift) & 1)) { if (++s->rx.resync > s->resync_time) { s->rx.resync = 0; if (s->reporter) s->reporter(s->user_data, BERT_REPORT_SYNCED, &s->results); } } else { s->rx.resync = 2; s->rx.reg ^= s->mask; } } else { s->results.total_bits++; if (s->max_zeros) { /* This generator suppresses runs >s->max_zeros */ if ((s->rx.reg & s->mask)) { if (++s->rx.zeros > s->max_zeros) { s->rx.zeros = 0; bit ^= 1; } } else { s->rx.zeros = 0; } } if (bit != (int) ((s->rx.reg >> s->shift) & 1)) { s->results.bad_bits++; s->rx.resync_bad_bits++; s->decade_bad[2][s->decade_ptr[2]]++; } if (--s->rx.measurement_step <= 0) { /* Every hundred bits we need to do the error rate measurement */ s->rx.measurement_step = MEASUREMENT_STEP; assess_error_rate(s); } if (--s->rx.resync_cnt <= 0) { /* Check if there were enough bad bits during this period to justify a resync. */ if (s->rx.resync_bad_bits >= (s->rx.resync_len*s->rx.resync_percent)/100) { s->rx.resync = 1; s->results.resyncs++; if (s->reporter) s->reporter(s->user_data, BERT_REPORT_UNSYNCED, &s->results); } s->rx.resync_cnt = s->rx.resync_len; s->rx.resync_bad_bits = 0; } } s->rx.reg = (s->rx.reg >> 1) | (((s->rx.reg ^ (s->rx.reg >> s->shift)) & 1) << s->shift2); break; case 2: s->rx.reg = (s->rx.reg >> 1) | (bit << 6); /* TODO: There is no mechanism for synching yet. This only works if things start in sync. */ if (++s->rx.step_bit == 7) { s->rx.step_bit = 0; if ((int) s->rx.reg != qbf[s->rx.step]) { /* We need to work out the number of actual bad bits here. We need to look at the error rate, and see it a resync is needed. etc. */ s->results.bad_bits++; } if (qbf[++s->rx.step] == '\0') s->rx.step = 0; } s->results.total_bits++; break; } if (s->report_frequency > 0) { if (--s->rx.report_countdown <= 0) { if (s->reporter) s->reporter(s->user_data, BERT_REPORT_REGULAR, &s->results); s->rx.report_countdown = s->report_frequency; } } } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) bert_result(bert_state_t *s, bert_results_t *results) { results->total_bits = s->results.total_bits; results->bad_bits = s->results.bad_bits; results->resyncs = s->results.resyncs; return sizeof(*results); } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) bert_set_report(bert_state_t *s, int freq, bert_report_func_t reporter, void *user_data) { s->report_frequency = freq; s->reporter = reporter; s->user_data = user_data; s->rx.report_countdown = s->report_frequency; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(bert_state_t *) bert_init(bert_state_t *s, int limit, int pattern, int resync_len, int resync_percent) { int i; int j; if (s == NULL) { if ((s = (bert_state_t *) malloc(sizeof(*s))) == NULL) return NULL; } memset(s, 0, sizeof(*s)); s->pattern = pattern; s->limit = limit; s->reporter = NULL; s->user_data = NULL; s->report_frequency = 0; s->resync_time = 72; s->invert = 0; switch (s->pattern) { case BERT_PATTERN_ZEROS: s->tx.reg = 0; s->shift2 = 31; s->pattern_class = 0; break; case BERT_PATTERN_ONES: s->tx.reg = ~((uint32_t) 0); s->shift2 = 31; s->pattern_class = 0; break; case BERT_PATTERN_7_TO_1: s->tx.reg = 0xFEFEFEFE; s->shift2 = 31; s->pattern_class = 0; break; case BERT_PATTERN_3_TO_1: s->tx.reg = 0xEEEEEEEE; s->shift2 = 31; s->pattern_class = 0; break; case BERT_PATTERN_1_TO_1: s->tx.reg = 0xAAAAAAAA; s->shift2 = 31; s->pattern_class = 0; break; case BERT_PATTERN_1_TO_3: s->tx.reg = 0x11111111; s->shift2 = 31; s->pattern_class = 0; break; case BERT_PATTERN_1_TO_7: s->tx.reg = 0x01010101; s->shift2 = 31; s->pattern_class = 0; break; case BERT_PATTERN_QBF: s->tx.reg = 0; s->pattern_class = 2; break; case BERT_PATTERN_ITU_O151_23: s->pattern_class = 1; s->tx.reg = 0x7FFFFF; s->mask = 0x20; s->shift = 5; s->shift2 = 22; s->invert = 1; s->resync_time = 56; s->max_zeros = 0; break; case BERT_PATTERN_ITU_O151_20: s->pattern_class = 1; s->tx.reg = 0xFFFFF; s->mask = 0x8; s->shift = 3; s->shift2 = 19; s->invert = 1; s->resync_time = 50; s->max_zeros = 14; break; case BERT_PATTERN_ITU_O151_15: s->pattern_class = 1; s->tx.reg = 0x7FFF; s->mask = 0x2; s->shift = 1; s->shift2 = 14; s->invert = 1; s->resync_time = 40; s->max_zeros = 0; break; case BERT_PATTERN_ITU_O152_11: s->pattern_class = 1; s->tx.reg = 0x7FF; s->mask = 0x4; s->shift = 2; s->shift2 = 10; s->invert = 0; s->resync_time = 32; s->max_zeros = 0; break; case BERT_PATTERN_ITU_O153_9: s->pattern_class = 1; s->tx.reg = 0x1FF; s->mask = 0x10; s->shift = 4; s->shift2 = 8; s->invert = 0; s->resync_time = 28; s->max_zeros = 0; break; } s->tx.bits = 0; s->tx.step = 0; s->tx.step_bit = 0; s->tx.zeros = 0; s->rx.reg = s->tx.reg; s->rx.ref_reg = s->rx.reg; s->rx.master_reg = s->rx.ref_reg; s->rx.bits = 0; s->rx.step = 0; s->rx.step_bit = 0; s->rx.resync = 1; s->rx.resync_cnt = resync_len; s->rx.resync_bad_bits = 0; s->rx.resync_len = resync_len; s->rx.resync_percent = resync_percent; s->results.total_bits = 0; s->results.bad_bits = 0; s->results.resyncs = 0; s->rx.report_countdown = 0; for (i = 0; i < 8; i++) { for (j = 0; j < 10; j++) s->decade_bad[i][j] = 0; s->decade_ptr[i] = 0; } s->error_rate = 8; s->rx.measurement_step = MEASUREMENT_STEP; span_log_init(&s->logging, SPAN_LOG_NONE, NULL); span_log_set_protocol(&s->logging, "BERT"); return s; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) bert_release(bert_state_t *s) { return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) bert_free(bert_state_t *s) { free(s); return 0; } /*- End of function --------------------------------------------------------*/ /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/make_at_dictionary.c0000664000175000017500000007756511422612262017402 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * make_at_dictionary.c - Generate a trie based dictionary for the AT * commands supported by the AT interpreter. * * Written by Steve Underwood * * Copyright (C) 2006 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License version 2, as * published by the Free Software Foundation. * * 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., 675 Mass Ave, Cambridge, MA 02139, USA. */ #if defined(HAVE_CONFIG_H) #include "config.h" #endif #include #include #include #include #include #include const char *wordlist[] = { " ", /* Dummy to absorb spaces in commands */ "&C", /* V.250 6.2.8 - Circuit 109 (received line signal detector), behaviour */ "&D", /* V.250 6.2.9 - Circuit 108 (data terminal ready) behaviour */ "&F", /* V.250 6.1.2 - Set to factory-defined configuration */ "+A8A", /* V.251 6.3 - V.8 calling tone indication */ "+A8C", /* V.251 6.2 - V.8 answer signal indication */ "+A8E", /* V.251 5.1 - V.8 and V.8bis operation controls */ "+A8I", /* V.251 6.1 - V.8 CI signal indication */ "+A8J", /* V.251 6.4 - V.8 negotiation complete */ "+A8M", /* V.251 5.2 - Send V.8 menu signals */ "+A8R", /* V.251 6.6 - V.8bis signal and message reporting */ "+A8T", /* V.251 5.3 - Send V.8bis signal and/or message(s) */ "+ASTO", /* V.250 6.3.15 - Store telephone number */ "+CAAP", /* 3GPP TS 27.007 7.25 - Automatic answer for eMLPP Service */ "+CACM", /* 3GPP TS 27.007 8.25 - Accumulated call meter */ "+CACSP", /* 3GPP TS 27.007 11.1.7 - Voice Group or Voice Broadcast Call State Attribute Presentation */ "+CAD", /* IS-99 5.6.3 - Query analogue or digital service */ "+CAEMLPP", /* 3GPP TS 27.007 7.22 - eMLPP Priority Registration and Interrogation */ "+CAHLD", /* 3GPP TS 27.007 11.1.3 - Leave an ongoing Voice Group or Voice Broadcast Call */ "+CAJOIN", /* 3GPP TS 27.007 11.1.1 - Accept an incoming Voice Group or Voice Broadcast Call */ "+CALA", /* 3GPP TS 27.007 8.16 - Alarm */ "+CALCC", /* 3GPP TS 27.007 11.1.6 - List current Voice Group and Voice Broadcast Calls */ "+CALD", /* 3GPP TS 27.007 8.38 - Delete alar m */ "+CALM", /* 3GPP TS 27.007 8.20 - Alert sound mode */ "+CAMM", /* 3GPP TS 27.007 8.26 - Accumulated call meter maximum */ "+CANCHEV", /* 3GPP TS 27.007 11.1.8 - NCH Support Indication */ "+CAOC", /* 3GPP TS 27.007 7.16 - Advice of Charge */ "+CAPD", /* 3GPP TS 27.007 8.39 - Postpone or dismiss an alarm */ "+CAPTT", /* 3GPP TS 27.007 11.1.4 - Talker Access for Voice Group Call */ "+CAREJ", /* 3GPP TS 27.007 11.1.2 - Reject an incoming Voice Group or Voice Broadcast Call */ "+CAULEV", /* 3GPP TS 27.007 11.1.5 - Voice Group Call Uplink Status Presentation */ "+CBC", /* 3GPP TS 27.007 8.4 - Battery charge */ "+CBCS", /* 3GPP TS 27.007 11.3.2 - VBS subscriptions and GId status */ "+CBIP", /* IS-99 5.6 - Base station IP address */ "+CBST", /* 3GPP TS 27.007 6.7 - Select bearer service type */ "+CCFC", /* 3GPP TS 27.007 7.11 - Call forwarding number and conditions */ "+CCLK", /* 3GPP TS 27.007 8.15 - Clock */ "+CCS", /* IS-135 4.1.22 - Compression status */ "+CCUG", /* 3GPP TS 27.007 7.10 - Closed user group */ "+CCWA", /* 3GPP TS 27.007 7.12 - Call waiting */ "+CCWE", /* 3GPP TS 27.007 8.28 - Call Meter maximum event */ "+CDIP", /* 3GPP TS 27.007 7.9 - Called line identification presentation */ "+CDIS", /* 3GPP TS 27.007 8.8 - Display control */ "+CDV", /* IS-99 5.6 - Dial command for voice call */ "+CEER", /* 3GPP TS 27.007 6.10 - Extended error report */ "+CESP", /* GSM07.05 3.2.4 - Enter SMS block mode protocol */ "+CFCS", /* 3GPP TS 27.007 7.24 - Fast call setup conditions */ "+CFG", /* IS-99 5.6 - Configuration string */ "+CFUN", /* 3GPP TS 27.007 8.2 - Set phone functionality */ "+CGACT", /* 3GPP TS 27.007 10.1.10 - PDP context activate or deactivate */ "+CGANS", /* 3GPP TS 27.007 10.1.16 - Manual response to a network request for PDP context activation */ "+CGATT", /* 3GPP TS 27.007 10.1.9 - PS attach or detach */ "+CGAUTO", /* 3GPP TS 27.007 10.1.15 - Automatic response to a network request for PDP context activation */ "+CGCAP", /* IS-99 5.6 - Request complete capabilities list */ "+CGCLASS", /* 3GPP TS 27.007 10.1.17 - GPRS mobile station class (GPRS only) */ "+CGCLOSP", /* 3GPP TS 27.007 10.1.13 - Configure local octet stream PAD parameters (Obsolete) */ "+CGCLPAD", /* 3GPP TS 27.007 10.1.12 - Configure local triple-X PAD parameters (GPRS only) (Obsolete) */ "+CGCMOD", /* 3GPP TS 27.007 10.1.11 - PDP Context Modify */ "+CGCS", /* 3GPP TS 27.007 11.3.1 - VGCS subscriptions and GId status */ "+CGDATA", /* 3GPP TS 27.007 10.1.12 - Enter data state */ "+CGDCONT", /* 3GPP TS 27.007 10.1.1 - Define PDP Context */ "+CGDSCONT",/* 3GPP TS 27.007 10.1.2 - Define Secondary PDP Context */ "+CGEQMIN", /* 3GPP TS 27.007 10.1.7 - 3G Quality of Service Profile (Minimum acceptable) */ "+CGEQNEG", /* 3GPP TS 27.007 10.1.8 - 3G Quality of Service Profile (Negotiated) */ "+CGEQREQ", /* 3GPP TS 27.007 10.1.6 - 3G Quality of Service Profile (Requested) */ "+CGEREP", /* 3GPP TS 27.007 10.1.18 - Packet Domain event reporting */ "+CGMI", /* 3GPP TS 27.007 5.1 - Request manufacturer identification */ "+CGMM", /* 3GPP TS 27.007 5.2 - Request model identification */ "+CGMR", /* 3GPP TS 27.007 5.3 - Request revision identification */ "+CGOI", /* IS-99 5.6 - Request global object identification */ "+CGPADDR", /* 3GPP TS 27.007 10.1.14 - Show PDP address */ "+CGQMIN", /* 3GPP TS 27.007 10.1.5 - Quality of Service Profile (Minimum acceptable) */ "+CGQREQ", /* 3GPP TS 27.007 10.1.4 - Quality of Service Profile (Requested) */ "+CGREG", /* 3GPP TS 27.007 10.1.19 - GPRS network registration status */ "+CGSMS", /* 3GPP TS 27.007 10.1.20 - Select service for MO SMS messages */ "+CGSN", /* 3GPP TS 27.007 5.4 - Request product serial number identification */ "+CGTFT", /* 3GPP TS 27.007 10.1.3 - Traffic Flow Template */ "+CHLD", /* 3GPP TS 27.007 7.13 - Call related supplementary services */ "+CHSA", /* 3GPP TS 27.007 6.18 - HSCSD non-transparent asymmetry configuration */ "+CHSC", /* 3GPP TS 27.007 6.15 - HSCSD current call parameters */ "+CHSD", /* 3GPP TS 27.007 6.12 - HSCSD device parameters */ "+CHSN", /* 3GPP TS 27.007 6.14 - HSCSD non-transparent call configuration */ "+CHSR", /* 3GPP TS 27.007 6.16 - HSCSD parameters report */ "+CHST", /* 3GPP TS 27.007 6.13 - HSCSD transparent call configuration */ "+CHSU", /* 3GPP TS 27.007 6.17 - HSCSD automatic user initiated upgrading */ "+CHUP", /* 3GPP TS 27.007 6.5 - Hangup call */ "+CHV", /* IS-99 5.6 - Hang-up voice */ "+CIMI", /* 3GPP TS 27.007 5.6 - Request international mobile subscriber identity */ "+CIND", /* 3GPP TS 27.007 8.9 - Indicator control */ "+CIT", /* IS-99 5.6 - Command state inactivity timer */ "+CKPD", /* 3GPP TS 27.007 8.7 - Keypad control */ "+CLAC", /* 3GPP TS 27.007 8.37 - List all available AT commands */ "+CLAE", /* 3GPP TS 27.007 8.31 - Language Event */ "+CLAN", /* 3GPP TS 27.007 8.30 - Set Language */ "+CLCC", /* 3GPP TS 27.007 7.18 - List current calls */ "+CLCK", /* 3GPP TS 27.007 7.4 - Facility lock */ "+CLIP", /* 3GPP TS 27.007 7.6 - Calling line identification presentation */ "+CLIR", /* 3GPP TS 27.007 7.7 - Calling line identification restriction */ "+CLVL", /* 3GPP TS 27.007 8.23 - Loudspeaker volume level */ "+CMAR", /* 3GPP TS 27.007 8.36 - Master reset */ "+CMEC", /* 3GPP TS 27.007 8.6 - Mobile termination control mode */ "+CMEE", /* GSM07.07 9.1 - Report mobile equipment error */ "+CMER", /* 3GPP TS 27.007 8.10 - Mobile termination event reporting */ "+CMGC", /* GSM07.05 3.5.5/4.5 - Send command */ "+CMGD", /* GSM07.05 3.5.4 - Delete message */ "+CMGF", /* GSM07.05 3.2.3 - Message Format */ "+CMGL", /* GSM07.05 3.4.2/4.1 - List messages */ "+CMGR", /* GSM07.05 3.4.3/4.2 - Read message */ "+CMGS", /* GSM07.05 3.5.1/4.3 - Send message */ "+CMGW", /* GSM07.05 3.5.3/4.4 - Write message to memory */ "+CMIP", /* IS-99 5.6 - Mobile station IP address */ "+CMM", /* IS-135 4.1.23 - Menu map */ "+CMMS", /* GSM07.05 3.5.6 - More messages to send */ "+CMOD", /* 3GPP TS 27.007 6.4 - Call mode */ "+CMSS", /* GSM07.05 3.5.2/4.7 - Send message from storage */ "+CMUT", /* 3GPP TS 27.007 8.24 - Mute control */ "+CMUX", /* 3GPP TS 27.007 5.7 - Multiplexing mode */ "+CNMA", /* GSM07.05 3.4.4/4.6 - New message acknowledgement to terminal adapter */ "+CNMI", /* GSM07.05 3.4.1 - New message indications to terminal equipment */ "+CNUM", /* 3GPP TS 27.007 7.1 - Subscriber number */ "+COLP", /* 3GPP TS 27.007 7.8 - Connected line identification presentation */ "+COPN", /* 3GPP TS 27.007 7.21 - Read operator names */ "+COPS", /* 3GPP TS 27.007 7.3 - PLMN selection */ "+COS", /* IS-135 4.1.24 - Originating service */ "+COTDI", /* 3GPP TS 27.007 11.1.9 - Originator to Dispatcher Information */ "+CPAS", /* 3GPP TS 27.007 8.1 - Phone activity status */ "+CPBF", /* 3GPP TS 27.007 8.13 - Find phonebook entries */ "+CPBR", /* 3GPP TS 27.007 8.12 - Read phonebook entries */ "+CPBS", /* 3GPP TS 27.007 8.11 - Select phonebook memory storage */ "+CPBW", /* 3GPP TS 27.007 8.14 - Write phonebook entry */ "+CPIN", /* 3GPP TS 27.007 8.3 - Enter PIN */ "+CPLS", /* 3GPP TS 27.007 7.20 - Selection of preferred PLMN list */ "+CPMS", /* GSM07.05 3.2.2 - Preferred message storage */ "+CPOL", /* 3GPP TS 27.007 7.19 - Preferred PLMN list */ "+CPPS", /* 3GPP TS 27.007 7.23 - eMLPP subscriptions */ "+CPROT", /* 3GPP TS 27.007 8.42 - Enter protocol mode */ "+CPUC", /* 3GPP TS 27.007 8.27 - Price per unit and currency table */ "+CPWC", /* 3GPP TS 27.007 8.29 - Power class */ "+CPWD", /* 3GPP TS 27.007 7.5 - Change password */ "+CQD", /* IS-135 4.1.25 - Query disconnect timer */ "+CR", /* 3GPP TS 27.007 6.9 - Service reporting control */ "+CRC", /* 3GPP TS 27.007 6.11 - Cellular result codes */ "+CREG", /* 3GPP TS 27.007 7.2 - Network registration */ "+CRES", /* GSM07.05 3.3.6 - Restore Settings */ "+CRLP", /* 3GPP TS 27.007 6.8 - Radio link protocol */ "+CRM", /* IS-99 5.6 - Set rm interface protocol */ "+CRMC", /* 3GPP TS 27.007 8.34 - Ring Melody Control */ "+CRMP", /* 3GPP TS 27.007 8.35 - Ring Melody Playback */ "+CRSL", /* 3GPP TS 27.007 8.21 - Ringer sound level */ "+CRSM", /* 3GPP TS 27.007 8.18 - Restricted SIM access */ "+CSAS", /* GSM07.05 3.3.5 - Save settings */ "+CSCA", /* GSM07.05 3.3.1 - Service centre address */ "+CSCB", /* GSM07.05 3.3.4 - Select cell broadcast message types */ "+CSCC", /* 3GPP TS 27.007 8.19 - Secure control command */ "+CSCS", /* 3GPP TS 27.007 5.5 - Select TE character set */ "+CSDF", /* 3GPP TS 27.007 6.22 - Settings date format */ "+CSDH", /* GSM07.05 3.3.3 - Show text mode parameters */ "+CSGT", /* 3GPP TS 27.007 8.32 - Set Greeting Text */ "+CSIL", /* 3GPP TS 27.007 6.23 - Silence Command */ "+CSIM", /* 3GPP TS 27.007 8.17 - Generic SIM access */ "+CSMP", /* GSM07.05 3.3.2 - Set text mode parameters */ "+CSMS", /* GSM07.05 3.2.1 - Select Message Service */ "+CSNS", /* 3GPP TS 27.007 6.19 - Single numbering scheme */ "+CSQ", /* 3GPP TS 27.007 8.5 - Signal quality */ "+CSS", /* IS-135 4.1.28 - Serving system identification */ "+CSSN", /* 3GPP TS 27.007 7.17 - Supplementary service notifications */ "+CSTA", /* 3GPP TS 27.007 6.1 - Select type of address */ "+CSTF", /* 3GPP TS 27.007 6.24 - Settings time format */ "+CSVM", /* 3GPP TS 27.007 8.33 - Set Voice Mail Number */ "+CTA", /* IS-135 4.1.29 - MT-Terminated async. Data calls */ "+CTF", /* IS-135 4.1.30 - MT-Terminated FAX calls */ "+CTFR", /* 3GPP TS 27.007 7.14 - Call deflection */ "+CTZR", /* 3GPP TS 27.007 8.41 - Time Zone Reporting */ "+CTZU", /* 3GPP TS 27.007 8.40 - Automatic Time Zone Update */ "+CUSD", /* 3GPP TS 27.007 7.15 - Unstructured supplementary service data */ "+CUUS1", /* 3GPP TS 27.007 7.26 - User to User Signalling Service 1 */ "+CV120", /* 3GPP TS 27.007 6.21 - V.120 rate adaption protocol */ "+CVHU", /* 3GPP TS 27.007 6.20 - Voice Hangup Control */ "+CVIB", /* 3GPP TS 27.007 8.22 - Vibrator mode */ "+CXT", /* IS-99 5.6 - Cellular extension */ "+DR", /* V.250 6.6.2 - Data compression reporting */ "+DS", /* V.250 6.6.1 - Data compression */ "+DS44", /* V.250 6.6.2 - V.44 data compression */ "+EB", /* V.250 6.5.2 - Break handling in error control operation */ "+EFCS", /* V.250 6.5.4 - 32-bit frame check sequence */ "+EFRAM", /* V.250 6.5.8 - Frame length */ "+ER", /* V.250 6.5.5 - Error control reporting */ "+ES", /* V.250 6.5.1 - Error control selection */ "+ESA", /* V.80 8.2 - Synchronous access mode configuration */ "+ESR", /* V.250 6.5.3 - Selective repeat */ "+ETBM", /* V.250 6.5.6 - Call termination buffer management */ "+EWIND", /* V.250 6.5.7 - Window size */ "+F34", /* T.31 B.6.1 - Initial V.34 rate controls for FAX */ "+FAA", /* T.32 8.5.2.5 - Adaptive Answer parameter */ "+FAP", /* T.32 8.5.1.12 - Addressing and polling capabilities parameter */ "+FAR", /* T.31 8.5.1 - Adaptive reception control */ "+FBO", /* T.32 8.5.3.4 - Phase C data bit order */ "+FBS", /* T.32 8.5.3.2 - Buffer Size, read only parameter */ "+FBU", /* T.32 8.5.1.10 - HDLC Frame Reporting parameter */ "+FCC", /* T.32 8.5.1.1 - DCE capabilities parameters */ "+FCL", /* T.31 8.5.2 - Carrier loss timeout */ "+FCLASS", /* T.31 8.2 - Capabilities identification and control */ "+FCQ", /* T.32 8.5.2.3 - Copy quality checking parameter */ "+FCR", /* T.32 8.5.1.9 - Capability to receive parameter */ "+FCS", /* T.32 8.5.1.3 - Current Session Results parameters */ "+FCT", /* T.32 8.5.2.6 - DTE phase C timeout parameter */ "+FDD", /* T.31 8.5.3 - Double escape character replacement */ "+FDR", /* T.32 8.3.4 - Data reception command */ "+FDT", /* T.32 8.3.3 - Data transmission command */ "+FEA", /* T.32 8.5.3.5 - Phase C received EOL alignment parameter */ "+FFC", /* T.32 8.5.3.6 - Format conversion parameter */ "+FFD", /* T.32 8.5.1.14 - File diagnostic message parameter */ "+FHS", /* T.32 8.5.2.7 - Call termination status parameter */ "+FIE", /* T.32 8.5.2.1 - Procedure interrupt enable parameter */ "+FIP", /* T.32 8.3.6 - Initialize facsimile parameters */ "+FIS", /* T.32 8.5.1.2 - Current session parameters */ "+FIT", /* T.31 8.5.4 - DTE inactivity timeout */ "+FKS", /* T.32 8.3.5 - Session termination command */ "+FLI", /* T.32 8.5.1.5 - Local ID string parameter, TSI or CSI */ "+FLO", /* T.31 says to implement something similar to +IFC */ "+FLP", /* T.32 8.5.1.7 - Indicate document to poll parameter */ "+FMI", /* T.31 says to duplicate +GMI */ "+FMM", /* T.31 says to duplicate +GMM */ "+FMR", /* T.31 says to duplicate +GMR */ "+FMS", /* T.32 8.5.2.9 - Minimum phase C speed parameter */ "+FND", /* T.32 8.5.2.10 - Non-Standard Message Data Indication parameter */ "+FNR", /* T.32 8.5.1.11 - Negotiation message reporting control parameters */ "+FNS", /* T.32 8.5.1.6 - Non-Standard Frame FIF parameter */ "+FPA", /* T.32 8.5.1.13 - Selective polling address parameter */ "+FPI", /* T.32 8.5.1.5 - Local Polling ID String parameter */ "+FPP", /* T.32 8.5.3 - Facsimile packet protocol */ "+FPR", /* T.31 says to implement something similar to +IPR */ "+FPS", /* T.32 8.5.2.2 - Page Status parameter */ "+FPW", /* T.32 8.5.1.13 - PassWord parameter (Sending or Polling) */ "+FRH", /* T.31 8.3.6 - HDLC receive */ "+FRM", /* T.31 8.3.4 - Facsimile receive */ "+FRQ", /* T.32 8.5.2.4 - Receive Quality Thresholds parameters */ "+FRS", /* T.31 8.3.2 - Receive silence */ "+FRY", /* T.32 8.5.2.8 - ECM Retry Value parameter */ "+FSA", /* T.32 8.5.1.13 - Subaddress parameter */ "+FSP", /* T.32 8.5.1.8 - Request to poll parameter */ "+FTH", /* T.31 8.3.5 - HDLC transmit */ "+FTM", /* T.31 8.3.3 - Facsimile transmit */ "+FTS", /* T.31 8.3.1 - Transmit silence */ "+GCAP", /* V.250 6.1.9 - Request complete capabilities list */ "+GCI", /* V.250 6.1.10 - Country of installation, */ "+GMI", /* V.250 6.1.4 - Request manufacturer identification */ "+GMM", /* V.250 6.1.5 - Request model identification */ "+GMR", /* V.250 6.1.6 - Request revision identification */ "+GOI", /* V.250 6.1.8 - Request global object identification */ "+GSN", /* V.250 6.1.7 - Request product serial number identification */ "+IBC", /* V.80 7.9 - Control of in-band control */ "+IBM", /* V.80 7.10 - In-band MARK idle reporting control */ "+ICF", /* V.250 6.2.11 - DTE-DCE character framing */ "+ICLOK", /* V.250 6.2.14 - Select sync transmit clock source */ "+IDSR", /* V.250 6.2.16 - Select data set ready option */ "+IFC", /* V.250 6.2.12 - DTE-DCE local flow control */ "+ILRR", /* V.250 6.2.13 - DTE-DCE local rate reporting */ "+ILSD", /* V.250 6.2.15 - Select long space disconnect option */ "+IPR", /* V.250 6.2.10 - Fixed DTE rate */ "+IRTS", /* V.250 6.2.17 - Select synchronous mode RTS option */ "+ITF", /* V.80 8.4 - Transmit flow control thresholds */ "+MA", /* V.250 6.4.2 - Modulation automode control */ "+MR", /* V.250 6.4.3 - Modulation reporting control */ "+MS", /* V.250 6.4.1 - Modulation selection */ "+MSC", /* V.250 6.4.8 - Seamless rate change enable */ "+MV18AM", /* V.250 6.4.6 - V.18 answering message editing */ "+MV18P", /* V.250 6.4.7 - Order of probes */ "+MV18R", /* V.250 6.4.5 - V.18 reporting control */ "+MV18S", /* V.250 6.4.4 - V.18 selection */ "+PCW", /* V.250 6.8.1 - Call waiting enable (V.92 DCE) */ "+PIG", /* V.250 6.8.5 - PCM upstream ignore */ "+PMH", /* V.250 6.8.2 - Modem on hold enable */ "+PMHF", /* V.250 6.8.6 - V.92 Modem on hold hook flash */ "+PMHR", /* V.250 6.8.4 - Initiate modem on hold */ "+PMHT", /* V.250 6.8.3 - Modem on hold timer */ "+PQC", /* V.250 6.8.7 - V.92 Phase 1 and Phase 2 Control */ "+PSS", /* V.250 6.8.8 - V.92 Use Short Sequence */ "+SAC", /* V.252 3.4 - Audio transmit configuration */ "+SAM", /* V.252 3.5 - Audio receive mode */ "+SAR", /* V.252 5.3 - Audio receive channel indication */ "+SARR", /* V.252 3.9 - Audio indication reporting */ "+SAT", /* V.252 5.4 - Audio transmit channel indication */ "+SCRR", /* V.252 3.11 - Capabilities indication reporting */ "+SDC", /* V.252 3.3 - Data configuration */ "+SDI", /* V.252 5.2 - Data channel identification */ "+SDR", /* V.252 3.8 - Data indication reporting */ "+SRSC", /* V.252 5.1.2 - Remote terminal simultaneous capability indication */ "+STC", /* V.252 3.1 - Terminal configuration */ "+STH", /* V.252 3.2 - Close logical channel */ "+SVC", /* V.252 3.6 - Video transmit configuration */ "+SVM", /* V.252 3.7 - Video receive mode */ "+SVR", /* V.252 5.5 - Video receive channel indication */ "+SVRR", /* V.252 3.10 - Video indication reporting */ "+SVT", /* V.252 5.6 - Video transmit channel indication */ "+TADR", /* V.250 6.7.2.9 - Local V.54 address */ "+TAL", /* V.250 6.7.2.15 - Local analogue loop */ "+TALS", /* V.250 6.7.2.6 - Analogue loop status */ "+TDLS", /* V.250 6.7.2.7 - Local digital loop status */ "+TE140", /* V.250 6.7.2.1 - Enable ckt 140 */ "+TE141", /* V.250 6.7.2.2 - Enable ckt 141 */ "+TEPAL", /* V.250 6.7.2.5 - Enable front panel analogue loop */ "+TEPDL", /* V.250 6.7.2.4 - Enable front panel RDL */ "+TERDL", /* V.250 6.7.2.3 - Enable RDL from remote */ "+TLDL", /* V.250 6.7.2.13 - Local digital loop */ "+TMO", /* V.250 6.9 - V.59 command */ "+TMODE", /* V.250 6.7.2.10 - Set V.54 mode */ "+TNUM", /* V.250 6.7.2.12 - Errored bit and block counts */ "+TRDL", /* V.250 6.7.2.14 - Request remote digital loop */ "+TRDLS", /* V.250 6.7.2.8 - Remote digital loop status */ "+TRES", /* V.250 6.7.2.17 - Self test result */ "+TSELF", /* V.250 6.7.2.16 - Self test */ "+TTER", /* V.250 6.7.2.11 - Test error rate */ "+VAC", /* V.252 4.1 - Set audio code */ "+VACR", /* V.252 6.1 - Audio code report */ "+VBT", /* 3GPP TS 27.007 C.2.2 - Buffer threshold setting */ "+VCID", /* V.253 9.2.3 - Caller ID service */ "+VCIDR", /* V.252 6.2 - Caller ID report */ "+VDID", /* V.253 9.2.4 - DID service */ "+VDIDR", /* V.252 6.2 - DID report */ "+VDR", /* V.253 10.3.1 - Distinctive ring (ring cadence reporting) */ "+VDT", /* V.253 10.3.2 - Control tone cadence reporting */ "+VDX", /* V.253 10.5.6 - Speakerphone duplex mode */ "+VEM", /* V.253 10.5.7 - Deliver event reports */ "+VGM", /* V.253 10.5.2 - Microphone gain */ "+VGR", /* V.253 10.2.1 - Receive gain selection */ "+VGS", /* V.253 10.5.3 - Speaker gain */ "+VGT", /* V.253 10.2.2 - Volume selection */ "+VHC", /* V.252 4.12 - Telephony port hook control */ "+VIP", /* V.253 10.1.1 - Initialize voice parameters */ "+VIT", /* V.253 10.2.3 - DTE/DCE inactivity timer */ "+VLS", /* V.253 10.2.4 - Analogue source/destination selection */ "+VNH", /* V.253 9.2.5 - Automatic hangup control */ "+VPH", /* V.252 4.11 - Phone hookswitch status */ "+VPP", /* V.253 10.4.2 - Voice packet protocol */ "+VPR", /* IS-101 10.4.3 - Select DTE/DCE interface rate */ "+VRA", /* V.253 10.2.5 - Ringing tone goes away timer */ "+VRID", /* Extension - Find the originating and destination numbers */ "+VRL", /* V.253 10.1.2 - Ring local phone */ "+VRN", /* V.253 10.2.6 - Ringing tone never appeared timer */ "+VRX", /* V.253 10.1.3 - Voice receive state */ "+VSD", /* V.253 10.2.7 - Silence detection (QUIET and SILENCE) */ "+VSID", /* Extension - Set the originating number */ "+VSM", /* V.253 10.2.8 - Compression method selection */ "+VSP", /* V.253 10.5.1 - Voice speakerphone state */ "+VTA", /* V.253 10.5.4 - Train acoustic echo-canceller */ "+VTD", /* V.253 10.2.9 - Beep tone duration timer */ "+VTER", /* V.252 6.4 - Simple telephony event report */ "+VTH", /* V.253 10.5.5 - Train line echo-canceller */ "+VTR", /* V.253 10.1.4 - Voice duplex state */ "+VTS", /* V.253 10.1.5 - DTMF and tone generation in voice */ "+VTX", /* V.253 10.1.6 - Transmit data state */ "+VXT", /* IS-101 10.1.5 - Translate voice data */ "+W", /* TIA-678 5.2.4.1 - Compliance indication */ "+WBAG", /* TIA-678 C.5.6 Bias modem audio gain */ "+WCDA", /* TIA-678 B.3.2.5 Display data link address */ "+WCHG", /* TIA-678 B.3.2.4 Display battery charging status */ "+WCID", /* TIA-678 B.3.2.1 Display system ID (operator) */ "+WCLK", /* TIA-678 B.3.2.3 Lock/unlock DCE */ "+WCPN", /* TIA-678 B.3.2.2 Set personal identification number */ "+WCXF", /* TIA-678 B.3.2.6 Display supported annex B commands */ "+WDAC", /* TIA-678 C.5.1 Data over analogue cellular command query */ "+WDIR", /* TIA-678 C.5.8 Phone number directory selection */ "+WECR", /* TIA-678 C.5.3 Enable cellular result codes */ "+WFON", /* TIA-678 C.5.5 Phone specification */ "+WKPD", /* TIA-678 C.5.7 Keypad emulation */ "+WPBA", /* TIA-678 C.5.9 Phone battery query */ "+WPTH", /* TIA-678 C.5.10 Call path */ "+WRLK", /* TIA-678 C.5.4 Roam lockout */ "+WS45", /* TIA-678 5.2.4.2 DTE-side stack selection */ "+WS46", /* 3GPP TS 27.007 5.9 - PCCA STD-101 [17] select wireless network */ "+WS50", /* TIA-678 B.3.1.1 Normalized signal strength */ "+WS51", /* TIA-678 B.3.1.2 Carrier detect signal threshold */ "+WS52", /* TIA-678 B.3.1.3 Normalized battery level */ "+WS53", /* TIA-678 B.3.1.4 Normalized channel quality */ "+WS54", /* TIA-678 B.3.1.5 Carrier detect channel quality threshold */ "+WS57", /* TIA-678 B.3.1.7 Antenna preference */ "+WS58", /* TIA-678 B.3.1.8 Idle time-out value */ "+WSTL", /* TIA-678 C.5.2 Call session time limit */ ";", /* Dummy to absorb semi-colon delimiters in commands */ "A", /* V.250 6.3.5 - Answer */ "D", /* V.250 6.3.1 - Dial */ "E", /* V.250 6.2.4 - Command echo */ "H", /* V.250 6.3.6 - Hook control */ "I", /* V.250 6.1.3 - Request identification information */ "L", /* V.250 6.3.13 - Monitor speaker loudness */ "M", /* V.250 6.3.14 - Monitor speaker mode */ "O", /* V.250 6.3.7 - Return to online data state */ "P", /* V.250 6.3.3 - Select pulse dialling (command) */ "Q", /* V.250 6.2.5 - Result code suppression */ "S0", /* V.250 6.3.8 - Automatic answer */ "S10", /* V.250 6.3.12 - Automatic disconnect delay */ "S3", /* V.250 6.2.1 - Command line termination character */ "S4", /* V.250 6.2.2 - Response formatting character */ "S5", /* V.250 6.2.3 - Command line editing character */ "S6", /* V.250 6.3.9 - Pause before blind dialling */ "S7", /* V.250 6.3.10 - Connection completion timeout */ "S8", /* V.250 6.3.11 - Comma dial modifier time */ "T", /* V.250 6.3.2 - Select tone dialling (command) */ "V", /* V.250 6.2.6 - DCE response format */ "X", /* V.250 6.2.7 - Result code selection and call progress monitoring control */ "Z", /* V.250 6.1.1 - Reset to default configuration */ NULL }; int packed_ptr = 0; short int packed_trie[30000]; #define ALPHABET_SIZE 128 typedef struct trie_node_s { int first; int last; int node_no; int entry; /* Array of pointers to children */ struct trie_node_s *child_list[ALPHABET_SIZE]; } trie_node_t; typedef struct { int entries; /* The root of the trie */ trie_node_t *root; } trie_t; static trie_node_t *trie_node_create(void) { trie_node_t *s; if ((s = (trie_node_t *) malloc(sizeof(*s)))) { memset(s, 0, sizeof(*s)); s->first = ALPHABET_SIZE - 1; } return s; } /*- End of function --------------------------------------------------------*/ static trie_t *trie_create(void) { trie_t *s; if ((s = (trie_t *) malloc(sizeof(*s)))) { memset(s, 0, sizeof(*s)); s->root = trie_node_create(); } return s; } /*- End of function --------------------------------------------------------*/ static void trie_recursive_add_node_numbers(trie_node_t *t) { int index; if (t) { if (t->first <= t->last) { t->node_no = packed_ptr + 1; packed_ptr += (t->last - t->first + 1 + 3); for (index = 0; index < ALPHABET_SIZE; index++) trie_recursive_add_node_numbers(t->child_list[index]); } else { t->node_no = packed_ptr + 1; packed_ptr += 3; } } } /*- End of function --------------------------------------------------------*/ static void trie_recursive_build_packed_trie(trie_node_t *t) { int i; if (t) { if (t->first <= t->last) { packed_trie[packed_ptr++] = t->first; packed_trie[packed_ptr++] = t->last; packed_trie[packed_ptr++] = t->entry; for (i = t->first; i <= t->last; i++) packed_trie[packed_ptr++] = (t->child_list[i]) ? t->child_list[i]->node_no : 0; for (i = t->first; i <= t->last; i++) trie_recursive_build_packed_trie(t->child_list[i]); } else { packed_trie[packed_ptr++] = 1; packed_trie[packed_ptr++] = 0; packed_trie[packed_ptr++] = t->entry; } } } /*- End of function --------------------------------------------------------*/ static void trie_add(trie_t *s, const char *u, size_t len) { size_t i; int index; trie_node_t *t; s->entries++; /* Loop over the length of the string to add and traverse the trie... */ for (t = s->root, i = 0; i < len; i++) { /* The character in u we are processing... */ index = (unsigned char) u[i]; /* Is there a child node for this character? */ if (t->child_list[index] == NULL) { t->child_list[index] = trie_node_create(); if (index < t->first) t->first = index; if (index > t->last) t->last = index; } /* Move to the new node... and loop */ t = t->child_list[index]; } t->entry = s->entries; } /*- End of function --------------------------------------------------------*/ static void dump_trie(void) { int i; printf("\nstatic const at_cmd_service_t at_commands[] =\n{\n"); for (i = 0; wordlist[i]; i++) { switch (wordlist[i][0]) { case ' ': case ';': printf(" at_cmd_dummy,\n"); break; case '+': printf(" at_cmd_plus_%s,\n", wordlist[i] + 1); break; case '&': printf(" at_cmd_amp_%s,\n", wordlist[i] + 1); break; default: printf(" at_cmd_%s,\n", wordlist[i]); break; } } printf("};\n"); printf("\nstatic const uint16_t command_trie[] =\n{"); for (i = 0; i < packed_ptr; i++) { if ((i & 7) == 0) printf("\n "); printf("0x%04X, ", packed_trie[i]); } printf("\n};\n"); printf("\n#define COMMAND_TRIE_LEN %d\n", packed_ptr); } /*- End of function --------------------------------------------------------*/ int main(int argc, char *argv[]) { trie_t *s; int i; s = trie_create(); for (i = 0; wordlist[i]; i++) trie_add(s, wordlist[i], strlen(wordlist[i])); printf("// The trie contains %d entries\n", i); packed_ptr = 0; trie_recursive_add_node_numbers(s->root); packed_ptr = 0; trie_recursive_build_packed_trie(s->root); dump_trie(); return 0; } /*- End of function --------------------------------------------------------*/ /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/ima_adpcm.c0000664000175000017500000003375511422612262015457 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * ima_adpcm.c - Conversion routines between linear 16 bit PCM data and * IMA/DVI/Intel ADPCM format. * * Written by Steve Underwood * * Copyright (C) 2001, 2004 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \file */ #if defined(HAVE_CONFIG_H) #include "config.h" #endif #include #include #include #if defined(HAVE_TGMATH_H) #include #endif #if defined(HAVE_MATH_H) #include #endif #include "floating_fudge.h" #include "spandsp/telephony.h" #include "spandsp/fast_convert.h" #include "spandsp/saturated.h" #include "spandsp/ima_adpcm.h" #include "spandsp/private/ima_adpcm.h" /* * Intel/DVI ADPCM coder/decoder. * * The algorithm for this coder was taken from the IMA Compatability Project * proceedings, Vol 2, Number 2; May 1992. * * The RTP payload specs. reference a variant of DVI, called VDVI. This attempts to * further compress, in a variable bit rate manner, by expressing the 4 bit codes * from the DVI codec as: * * 0 00 * 1 010 * 2 1100 * 3 11100 * 4 111100 * 5 1111100 * 6 11111100 * 7 11111110 * 8 10 * 9 011 * 10 1101 * 11 11101 * 12 111101 * 13 1111101 * 14 11111101 * 15 11111111 * * Any left over bits in the last octet of an encoded burst are set to one. */ /* DVI4 uses an adaptive delta pulse code modulation (ADPCM) encoding scheme that was specified by the Interactive Multimedia Association (IMA) as the "IMA ADPCM wave type". However, the encoding defined here as DVI4 differs in three respects from the IMA specification: o The RTP DVI4 header contains the predicted value rather than the first sample value contained the IMA ADPCM block header. o IMA ADPCM blocks contain an odd number of samples, since the first sample of a block is contained just in the header (uncompressed), followed by an even number of compressed samples. DVI4 has an even number of compressed samples only, using the `predict' word from the header to decode the first sample. o For DVI4, the 4-bit samples are packed with the first sample in the four most significant bits and the second sample in the four least significant bits. In the IMA ADPCM codec, the samples are packed in the opposite order. Each packet contains a single DVI block. This profile only defines the 4-bit-per-sample version, while IMA also specified a 3-bit-per- sample encoding. The "header" word for each channel has the following structure: int16 predict; // predicted value of first sample // from the previous block (L16 format) u_int8 index; // current index into stepsize table u_int8 reserved; // set to zero by sender, ignored by receiver Each octet following the header contains two 4-bit samples, thus the number of samples per packet MUST be even because there is no means to indicate a partially filled last octet. */ /*! The number of ADPCM step sizes */ #define STEP_MAX 88 /* Intel ADPCM step variation table */ static const int step_size[STEP_MAX + 1] = { 7, 8, 9, 10, 11, 12, 13, 14, 16, 17, 19, 21, 23, 25, 28, 31, 34, 37, 41, 45, 50, 55, 60, 66, 73, 80, 88, 97, 107, 118, 130, 143, 157, 173, 190, 209, 230, 253, 279, 307, 337, 371, 408, 449, 494, 544, 598, 658, 724, 796, 876, 963, 1060, 1166, 1282, 1411, 1552, 1707, 1878, 2066, 2272, 2499, 2749, 3024, 3327, 3660, 4026, 4428, 4871, 5358, 5894, 6484, 7132, 7845, 8630, 9493, 10442, 11487, 12635, 13899, 15289, 16818, 18500, 20350, 22385, 24623, 27086, 29794, 32767 }; static const int step_adjustment[8] = { -1, -1, -1, -1, 2, 4, 6, 8 }; static const struct { uint8_t code; uint8_t bits; } vdvi_encode[] = { {0x00, 2}, {0x02, 3}, {0x0C, 4}, {0x1C, 5}, {0x3C, 6}, {0x7C, 7}, {0xFC, 8}, {0xFE, 8}, {0x02, 2}, {0x03, 3}, {0x0D, 4}, {0x1D, 5}, {0x3D, 6}, {0x7D, 7}, {0xFD, 8}, {0xFF, 8} }; static const struct { uint16_t code; uint16_t mask; uint8_t bits; } vdvi_decode[] = { {0x0000, 0xC000, 2}, {0x4000, 0xE000, 3}, {0xC000, 0xF000, 4}, {0xE000, 0xF800, 5}, {0xF000, 0xFC00, 6}, {0xF800, 0xFE00, 7}, {0xFC00, 0xFF00, 8}, {0xFE00, 0xFF00, 8}, {0x8000, 0xC000, 2}, {0x6000, 0xE000, 3}, {0xD000, 0xF000, 4}, {0xE800, 0xF800, 5}, {0xF400, 0xFC00, 6}, {0xFA00, 0xFE00, 7}, {0xFD00, 0xFF00, 8}, {0xFF00, 0xFF00, 8} }; static int16_t decode(ima_adpcm_state_t *s, uint8_t adpcm) { int e; int ss; int16_t linear; /* e = (adpcm+0.5)*step/4 */ ss = step_size[s->step_index]; e = ss >> 3; if (adpcm & 0x01) e += (ss >> 2); /*endif*/ if (adpcm & 0x02) e += (ss >> 1); /*endif*/ if (adpcm & 0x04) e += ss; /*endif*/ if (adpcm & 0x08) e = -e; /*endif*/ linear = saturate(s->last + e); s->last = linear; s->step_index += step_adjustment[adpcm & 0x07]; if (s->step_index < 0) s->step_index = 0; else if (s->step_index > STEP_MAX) s->step_index = STEP_MAX; /*endif*/ return linear; } /*- End of function --------------------------------------------------------*/ static uint8_t encode(ima_adpcm_state_t *s, int16_t linear) { int e; int ss; int adpcm; int diff; int initial_e; ss = step_size[s->step_index]; initial_e = e = linear - s->last; diff = ss >> 3; adpcm = (uint8_t) 0x00; if (e < 0) { adpcm = (uint8_t) 0x08; e = -e; } /*endif*/ if (e >= ss) { adpcm |= (uint8_t) 0x04; e -= ss; } /*endif*/ ss >>= 1; if (e >= ss) { adpcm |= (uint8_t) 0x02; e -= ss; } /*endif*/ ss >>= 1; if (e >= ss) { adpcm |= (uint8_t) 0x01; e -= ss; } /*endif*/ if (initial_e < 0) diff = -(diff - initial_e - e); else diff = diff + initial_e - e; /*endif*/ s->last = saturate(diff + s->last); s->step_index += step_adjustment[adpcm & 0x07]; if (s->step_index < 0) s->step_index = 0; else if (s->step_index > STEP_MAX) s->step_index = STEP_MAX; /*endif*/ return (uint8_t) adpcm; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(ima_adpcm_state_t *) ima_adpcm_init(ima_adpcm_state_t *s, int variant, int chunk_size) { if (s == NULL) { if ((s = (ima_adpcm_state_t *) malloc(sizeof(*s))) == NULL) return NULL; } /*endif*/ memset(s, 0, sizeof(*s)); s->variant = variant; s->chunk_size = chunk_size; return s; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) ima_adpcm_release(ima_adpcm_state_t *s) { return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) ima_adpcm_free(ima_adpcm_state_t *s) { free(s); return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) ima_adpcm_decode(ima_adpcm_state_t *s, int16_t amp[], const uint8_t ima_data[], int ima_bytes) { int i; int j; int samples; uint16_t code; samples = 0; switch (s->variant) { case IMA_ADPCM_IMA4: i = 0; if (s->chunk_size == 0) { amp[samples++] = (ima_data[1] << 8) | ima_data[0]; s->step_index = ima_data[2]; s->last = amp[0]; i = 4; } /*endif*/ for ( ; i < ima_bytes; i++) { amp[samples++] = decode(s, ima_data[i] & 0xF); amp[samples++] = decode(s, (ima_data[i] >> 4) & 0xF); } /*endfor*/ break; case IMA_ADPCM_DVI4: i = 0; if (s->chunk_size == 0) { s->last = (int16_t) ((ima_data[0] << 8) | ima_data[1]); s->step_index = ima_data[2]; i = 4; } /*endif*/ for ( ; i < ima_bytes; i++) { amp[samples++] = decode(s, (ima_data[i] >> 4) & 0xF); amp[samples++] = decode(s, ima_data[i] & 0xF); } /*endfor*/ break; case IMA_ADPCM_VDVI: i = 0; if (s->chunk_size == 0) { s->last = (int16_t) ((ima_data[0] << 8) | ima_data[1]); s->step_index = ima_data[2]; i = 4; } /*endif*/ code = 0; s->bits = 0; for (;;) { if (s->bits <= 8) { if (i >= ima_bytes) break; /*endif*/ code |= ((uint16_t) ima_data[i++] << (8 - s->bits)); s->bits += 8; } /*endif*/ for (j = 0; j < 8; j++) { if ((vdvi_decode[j].mask & code) == vdvi_decode[j].code) break; if ((vdvi_decode[j + 8].mask & code) == vdvi_decode[j + 8].code) { j += 8; break; } /*endif*/ } /*endfor*/ amp[samples++] = decode(s, (uint8_t) j); code <<= vdvi_decode[j].bits; s->bits -= vdvi_decode[j].bits; } /*endfor*/ /* Use up the remanents of the last octet */ while (s->bits > 0) { for (j = 0; j < 8; j++) { if ((vdvi_decode[j].mask & code) == vdvi_decode[j].code) break; /*endif*/ if ((vdvi_decode[j + 8].mask & code) == vdvi_decode[j + 8].code) { j += 8; break; } /*endif*/ } /*endfor*/ if (vdvi_decode[j].bits > s->bits) break; /*endif*/ amp[samples++] = decode(s, (uint8_t) j); code <<= vdvi_decode[j].bits; s->bits -= vdvi_decode[j].bits; } /*endwhile*/ break; } /*endswitch*/ return samples; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) ima_adpcm_encode(ima_adpcm_state_t *s, uint8_t ima_data[], const int16_t amp[], int len) { int i; int bytes; uint8_t code; bytes = 0; switch (s->variant) { case IMA_ADPCM_IMA4: i = 0; if (s->chunk_size == 0) { ima_data[bytes++] = (uint8_t) amp[0]; ima_data[bytes++] = (uint8_t) (amp[0] >> 8); ima_data[bytes++] = (uint8_t) s->step_index; ima_data[bytes++] = 0; s->last = amp[0]; s->bits = 0; i = 1; } /*endif*/ for ( ; i < len; i++) { s->ima_byte = (uint8_t) ((s->ima_byte >> 4) | (encode(s, amp[i]) << 4)); if ((s->bits++ & 1)) ima_data[bytes++] = (uint8_t) s->ima_byte; /*endif*/ } /*endfor*/ break; case IMA_ADPCM_DVI4: if (s->chunk_size == 0) { ima_data[bytes++] = (uint8_t) (s->last >> 8); ima_data[bytes++] = (uint8_t) s->last; ima_data[bytes++] = (uint8_t) s->step_index; ima_data[bytes++] = 0; } /*endif*/ for (i = 0; i < len; i++) { s->ima_byte = (uint8_t) ((s->ima_byte << 4) | encode(s, amp[i])); if ((s->bits++ & 1)) ima_data[bytes++] = (uint8_t) s->ima_byte; /*endif*/ } /*endfor*/ break; case IMA_ADPCM_VDVI: if (s->chunk_size == 0) { ima_data[bytes++] = (uint8_t) (s->last >> 8); ima_data[bytes++] = (uint8_t) s->last; ima_data[bytes++] = (uint8_t) s->step_index; ima_data[bytes++] = 0; } /*endif*/ s->bits = 0; for (i = 0; i < len; i++) { code = encode(s, amp[i]); s->ima_byte = (s->ima_byte << vdvi_encode[code].bits) | vdvi_encode[code].code; s->bits += vdvi_encode[code].bits; if (s->bits >= 8) { s->bits -= 8; ima_data[bytes++] = (uint8_t) (s->ima_byte >> s->bits); } /*endif*/ } /*endfor*/ if (s->bits) ima_data[bytes++] = (uint8_t) (((s->ima_byte << 8) | 0xFF) >> s->bits); /*endif*/ break; } /*endswitch*/ return bytes; } /*- End of function --------------------------------------------------------*/ /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/t4_rx.c0000664000175000017500000013143212007164127014576 0ustar steveusteveu//#define T4_STATE_DEBUGGING /* * SpanDSP - a series of DSP components for telephony * * t4_rx.c - ITU T.4 FAX image receive processing * * Written by Steve Underwood * * Copyright (C) 2003, 2007 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* * Much of this file is based on the T.4 and T.6 support in libtiff, which requires * the following notice in any derived source code: * * Copyright (c) 1990-1997 Sam Leffler * Copyright (c) 1991-1997 Silicon Graphics, Inc. * * Permission to use, copy, modify, distribute, and sell this software and * its documentation for any purpose is hereby granted without fee, provided * that (i) the above copyright notices and this permission notice appear in * all copies of the software and related documentation, and (ii) the names of * Sam Leffler and Silicon Graphics may not be used in any advertising or * publicity relating to the software without the specific, prior written * permission of Sam Leffler and Silicon Graphics. * * THE SOFTWARE IS PROVIDED "AS-IS" AND WITHOUT WARRANTY OF ANY KIND, * EXPRESS, IMPLIED OR OTHERWISE, INCLUDING WITHOUT LIMITATION, ANY * WARRANTY OF MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. * * IN NO EVENT SHALL SAM LEFFLER OR SILICON GRAPHICS BE LIABLE FOR * ANY SPECIAL, INCIDENTAL, INDIRECT OR CONSEQUENTIAL DAMAGES OF ANY KIND, * OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, * WHETHER OR NOT ADVISED OF THE POSSIBILITY OF DAMAGE, AND ON ANY THEORY OF * LIABILITY, ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE * OF THIS SOFTWARE. * * Decoder support is derived from code in Frank Cringle's viewfax program; * Copyright (C) 1990, 1995 Frank D. Cringle. */ /*! \file */ #if defined(HAVE_CONFIG_H) #include "config.h" #endif #include #include #include #include #include #include #include #include #include #if defined(HAVE_TGMATH_H) #include #endif #if defined(HAVE_MATH_H) #include #endif #include "floating_fudge.h" #include #include "spandsp/telephony.h" #include "spandsp/logging.h" #include "spandsp/bit_operations.h" #include "spandsp/async.h" #include "spandsp/timezone.h" #include "spandsp/t4_rx.h" #include "spandsp/t4_tx.h" #if defined(SPANDSP_SUPPORT_T85) #include "spandsp/t81_t82_arith_coding.h" #include "spandsp/t85.h" #endif #include "spandsp/t4_t6_decode.h" #include "spandsp/t4_t6_encode.h" #include "spandsp/version.h" #include "spandsp/private/logging.h" #if defined(SPANDSP_SUPPORT_T85) #include "spandsp/private/t81_t82_arith_coding.h" #include "spandsp/private/t85.h" #endif #include "spandsp/private/t4_t6_decode.h" #include "spandsp/private/t4_t6_encode.h" #include "spandsp/private/t4_rx.h" #include "spandsp/private/t4_tx.h" /*! The number of centimetres in one inch */ #define CM_PER_INCH 2.54f /*! The number of EOLs to expect at the end of a T.4 page */ #define EOLS_TO_END_ANY_RX_PAGE 6 /*! The number of EOLs to check at the end of a T.4 page */ #define EOLS_TO_END_T4_RX_PAGE 5 /*! The number of EOLs to check at the end of a T.6 page */ #define EOLS_TO_END_T6_RX_PAGE 2 #include "t4_t6_decode_states.h" #if defined(T4_STATE_DEBUGGING) static void STATE_TRACE(const char *format, ...) { va_list arg_ptr; va_start(arg_ptr, format); vprintf(format, arg_ptr); va_end(arg_ptr); } /*- End of function --------------------------------------------------------*/ #else #define STATE_TRACE(...) /**/ #endif #if defined(HAVE_LIBTIFF) static int set_tiff_directory_info(t4_state_t *s) { time_t now; struct tm *tm; char buf[256 + 1]; uint16_t resunit; float x_resolution; float y_resolution; t4_tiff_state_t *t; t = &s->tiff; /* Prepare the directory entry fully before writing the image, or libtiff complains */ TIFFSetField(t->tiff_file, TIFFTAG_COMPRESSION, t->output_compression); if (t->output_compression == COMPRESSION_CCITT_T4) { TIFFSetField(t->tiff_file, TIFFTAG_T4OPTIONS, t->output_t4_options); TIFFSetField(t->tiff_file, TIFFTAG_FAXMODE, FAXMODE_CLASSF); } TIFFSetField(t->tiff_file, TIFFTAG_IMAGEWIDTH, s->image_width); TIFFSetField(t->tiff_file, TIFFTAG_BITSPERSAMPLE, 1); TIFFSetField(t->tiff_file, TIFFTAG_ORIENTATION, ORIENTATION_TOPLEFT); TIFFSetField(t->tiff_file, TIFFTAG_SAMPLESPERPIXEL, 1); if (t->output_compression == COMPRESSION_CCITT_T4 || t->output_compression == COMPRESSION_CCITT_T6) { TIFFSetField(t->tiff_file, TIFFTAG_ROWSPERSTRIP, -1L); } else { TIFFSetField(t->tiff_file, TIFFTAG_ROWSPERSTRIP, TIFFDefaultStripSize(t->tiff_file, 0)); } TIFFSetField(t->tiff_file, TIFFTAG_PLANARCONFIG, PLANARCONFIG_CONTIG); TIFFSetField(t->tiff_file, TIFFTAG_PHOTOMETRIC, PHOTOMETRIC_MINISWHITE); TIFFSetField(t->tiff_file, TIFFTAG_FILLORDER, FILLORDER_LSB2MSB); x_resolution = s->x_resolution/100.0f; y_resolution = s->y_resolution/100.0f; /* Metric seems the sane thing to use in the 21st century, but a lot of lousy software gets FAX resolutions wrong, and more get it wrong using metric than using inches. */ #if 0 TIFFSetField(t->tiff_file, TIFFTAG_XRESOLUTION, x_resolution); TIFFSetField(t->tiff_file, TIFFTAG_YRESOLUTION, y_resolution); resunit = RESUNIT_CENTIMETER; TIFFSetField(t->tiff_file, TIFFTAG_RESOLUTIONUNIT, resunit); #else TIFFSetField(t->tiff_file, TIFFTAG_XRESOLUTION, floorf(x_resolution*CM_PER_INCH + 0.5f)); TIFFSetField(t->tiff_file, TIFFTAG_YRESOLUTION, floorf(y_resolution*CM_PER_INCH + 0.5f)); resunit = RESUNIT_INCH; TIFFSetField(t->tiff_file, TIFFTAG_RESOLUTIONUNIT, resunit); #endif /* TODO: add the version of spandsp */ TIFFSetField(t->tiff_file, TIFFTAG_SOFTWARE, "Spandsp " SPANDSP_RELEASE_DATETIME_STRING); if (gethostname(buf, sizeof(buf)) == 0) TIFFSetField(t->tiff_file, TIFFTAG_HOSTCOMPUTER, buf); #if defined(TIFFTAG_FAXDCS) if (t->dcs) TIFFSetField(t->tiff_file, TIFFTAG_FAXDCS, t->dcs); #endif if (t->sub_address) TIFFSetField(t->tiff_file, TIFFTAG_FAXSUBADDRESS, t->sub_address); if (t->far_ident) TIFFSetField(t->tiff_file, TIFFTAG_IMAGEDESCRIPTION, t->far_ident); if (t->vendor) TIFFSetField(t->tiff_file, TIFFTAG_MAKE, t->vendor); if (t->model) TIFFSetField(t->tiff_file, TIFFTAG_MODEL, t->model); time(&now); tm = localtime(&now); sprintf(buf, "%4d/%02d/%02d %02d:%02d:%02d", tm->tm_year + 1900, tm->tm_mon + 1, tm->tm_mday, tm->tm_hour, tm->tm_min, tm->tm_sec); TIFFSetField(t->tiff_file, TIFFTAG_DATETIME, buf); TIFFSetField(t->tiff_file, TIFFTAG_FAXRECVTIME, now - s->page_start_time); TIFFSetField(t->tiff_file, TIFFTAG_IMAGELENGTH, s->image_length); /* Set the total pages to 1. For any one page document we will get this right. For multi-page documents we will need to come back and fill in the right answer when we know it. */ TIFFSetField(t->tiff_file, TIFFTAG_PAGENUMBER, s->current_page++, 1); s->tiff.pages_in_file = s->current_page; if (t->output_compression == COMPRESSION_CCITT_T4) { if (s->t4_t6_rx.bad_rows) { TIFFSetField(t->tiff_file, TIFFTAG_BADFAXLINES, s->t4_t6_rx.bad_rows); TIFFSetField(t->tiff_file, TIFFTAG_CLEANFAXDATA, CLEANFAXDATA_REGENERATED); TIFFSetField(t->tiff_file, TIFFTAG_CONSECUTIVEBADFAXLINES, s->t4_t6_rx.longest_bad_row_run); } else { TIFFSetField(t->tiff_file, TIFFTAG_CLEANFAXDATA, CLEANFAXDATA_CLEAN); } } TIFFSetField(t->tiff_file, TIFFTAG_IMAGEWIDTH, s->image_width); return 0; } /*- End of function --------------------------------------------------------*/ static int open_tiff_output_file(t4_state_t *s, const char *file) { if ((s->tiff.tiff_file = TIFFOpen(file, "w")) == NULL) return -1; return 0; } /*- End of function --------------------------------------------------------*/ static void write_tiff_image(t4_state_t *s) { /* Set up the TIFF directory info... */ set_tiff_directory_info(s); /* ..and then write the image... */ if (TIFFWriteEncodedStrip(s->tiff.tiff_file, 0, s->image_buffer, s->image_length*s->bytes_per_row) < 0) span_log(&s->logging, SPAN_LOG_WARNING, "%s: Error writing TIFF strip.\n", s->tiff.file); /* ...then the directory entry, and libtiff is happy. */ TIFFWriteDirectory(s->tiff.tiff_file); } /*- End of function --------------------------------------------------------*/ static int close_tiff_output_file(t4_state_t *s) { int i; t4_tiff_state_t *t; t = &s->tiff; /* Perform any operations needed to tidy up a written TIFF file before closure. */ if (s->current_page > 1) { /* We need to edit the TIFF directories. Until now we did not know the total page count, so the TIFF file currently says one. Now we need to set the correct total page count associated with each page. */ for (i = 0; i < s->current_page; i++) { TIFFSetDirectory(t->tiff_file, (tdir_t) i); TIFFSetField(t->tiff_file, TIFFTAG_PAGENUMBER, i, s->current_page); TIFFWriteDirectory(t->tiff_file); } } TIFFClose(t->tiff_file); t->tiff_file = NULL; if (t->file) { /* Try not to leave a file behind, if we didn't receive any pages to put in it. */ if (s->current_page == 0) remove(t->file); free((char *) t->file); t->file = NULL; } return 0; } /*- End of function --------------------------------------------------------*/ #else static int set_tiff_directory_info(t4_state_t *s) { return 0; } /*- End of function --------------------------------------------------------*/ static int get_tiff_directory_info(t4_state_t *s) { return 0; } /*- End of function --------------------------------------------------------*/ static int test_tiff_directory_info(t4_state_t *s) { return 0; } /*- End of function --------------------------------------------------------*/ static int open_tiff_input_file(t4_state_t *s, const char *file) { return 0; } /*- End of function --------------------------------------------------------*/ static int read_tiff_image(t4_state_t *s) { return 0; } /*- End of function --------------------------------------------------------*/ static int close_tiff_input_file(t4_state_t *s) { return 0; } /*- End of function --------------------------------------------------------*/ static int open_tiff_output_file(t4_state_t *s, const char *file) { return 0; } /*- End of function --------------------------------------------------------*/ static void write_tiff_image(t4_state_t *s) { return 0; } /*- End of function --------------------------------------------------------*/ static int close_tiff_output_file(t4_state_t *s) { return 0; } /*- End of function --------------------------------------------------------*/ #endif static void update_row_bit_info(t4_state_t *s) { if (s->row_bits > s->max_row_bits) s->max_row_bits = s->row_bits; if (s->row_bits < s->min_row_bits) s->min_row_bits = s->row_bits; s->row_bits = 0; } /*- End of function --------------------------------------------------------*/ #if defined(__i386__) || defined(__x86_64__) || defined(__ppc__) || defined(__powerpc__) static __inline__ int run_length(unsigned int bits) { return 7 - top_bit(bits); } /*- End of function --------------------------------------------------------*/ #else static __inline__ int run_length(unsigned int bits) { static const uint8_t run_len[256] = { 8, 7, 6, 6, 5, 5, 5, 5, 4, 4, 4, 4, 4, 4, 4, 4, /* 0x00 - 0x0F */ 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, /* 0x10 - 0x1F */ 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, /* 0x20 - 0x2F */ 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, /* 0x30 - 0x3F */ 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, /* 0x40 - 0x4F */ 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, /* 0x50 - 0x5F */ 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, /* 0x60 - 0x6F */ 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, /* 0x70 - 0x7F */ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, /* 0x80 - 0x8F */ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, /* 0x90 - 0x9F */ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, /* 0xA0 - 0xAF */ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, /* 0xB0 - 0xBF */ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, /* 0xC0 - 0xCF */ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, /* 0xD0 - 0xDF */ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, /* 0xE0 - 0xEF */ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, /* 0xF0 - 0xFF */ }; return run_len[bits]; } /*- End of function --------------------------------------------------------*/ #endif static int free_buffers(t4_state_t *s) { if (s->image_buffer) { free(s->image_buffer); s->image_buffer = NULL; s->image_buffer_size = 0; } if (s->cur_runs) { free(s->cur_runs); s->cur_runs = NULL; } if (s->ref_runs) { free(s->ref_runs); s->ref_runs = NULL; } if (s->row_buf) { free(s->row_buf); s->row_buf = NULL; } return 0; } /*- End of function --------------------------------------------------------*/ static __inline__ void add_run_to_row(t4_state_t *s) { if (s->t4_t6_rx.run_length >= 0) { s->row_len += s->t4_t6_rx.run_length; /* Don't allow rows to grow too long, and overflow the buffers */ if (s->row_len <= s->image_width) s->cur_runs[s->t4_t6_rx.a_cursor++] = s->t4_t6_rx.run_length; } s->t4_t6_rx.run_length = 0; } /*- End of function --------------------------------------------------------*/ static int put_decoded_row(t4_state_t *s) { static const int msbmask[9] = { 0x00, 0x01, 0x03, 0x07, 0x0f, 0x1f, 0x3f, 0x7f, 0xff }; uint8_t *t; uint32_t i; uint32_t *p; int fudge; int row_starts_at; int x; int j; if (s->t4_t6_rx.run_length) add_run_to_row(s); #if defined(T4_STATE_DEBUGGING) /* Dump the runs of black and white for analysis */ { int total; total = 0; for (x = 0; x < s->t4_t6_rx.b_cursor; x++) total += s->ref_runs[x]; printf("Ref (%d)", total); for (x = 0; x < s->t4_t6_rx.b_cursor; x++) printf(" %" PRIu32, s->ref_runs[x]); printf("\n"); total = 0; for (x = 0; x < s->t4_t6_rx.a_cursor; x++) total += s->cur_runs[x]; printf("Cur (%d)", total); for (x = 0; x < s->t4_t6_rx.a_cursor; x++) printf(" %" PRIu32, s->cur_runs[x]); printf("\n"); } #endif row_starts_at = s->image_size; /* Make sure there is enough room for another row */ if (s->image_size + s->bytes_per_row >= s->image_buffer_size) { if ((t = realloc(s->image_buffer, s->image_buffer_size + 100*s->bytes_per_row)) == NULL) return -1; s->image_buffer_size += 100*s->bytes_per_row; s->image_buffer = t; } if (s->row_len == s->image_width) { STATE_TRACE("%d Good row - %d %s\n", s->image_length, s->row_len, (s->row_is_2d) ? "2D" : "1D"); if (s->t4_t6_rx.curr_bad_row_run) { if (s->t4_t6_rx.curr_bad_row_run > s->t4_t6_rx.longest_bad_row_run) s->t4_t6_rx.longest_bad_row_run = s->t4_t6_rx.curr_bad_row_run; s->t4_t6_rx.curr_bad_row_run = 0; } /* Convert the runs to a bit image of the row */ /* White/black/white... runs, always starting with white. That means the first run could be zero length. */ for (x = 0, fudge = 0; x < s->t4_t6_rx.a_cursor; x++, fudge ^= 0xFF) { i = s->cur_runs[x]; if ((int) i >= s->tx_bits) { s->tx_bitstream = (s->tx_bitstream << s->tx_bits) | (msbmask[s->tx_bits] & fudge); for (i += (8 - s->tx_bits); i >= 8; i -= 8) { s->tx_bits = 8; s->image_buffer[s->image_size++] = (uint8_t) s->tx_bitstream; s->tx_bitstream = fudge; } } s->tx_bitstream = (s->tx_bitstream << i) | (msbmask[i] & fudge); s->tx_bits -= i; } s->image_length++; } else { STATE_TRACE("%d Bad row - %d %s\n", s->image_length, s->row_len, (s->row_is_2d) ? "2D" : "1D"); /* Try to clean up the bad runs, and produce something reasonable as the reference row for the next row. Use a copy of the previous good row as the actual current row. If the row only fell apart near the end, reusing it might be the best solution. */ for (j = 0, fudge = 0; j < s->t4_t6_rx.a_cursor && fudge < s->image_width; j++) fudge += s->cur_runs[j]; if (fudge < s->image_width) { /* Try to pad with white, and avoid black, to minimise mess on the image. */ if ((s->t4_t6_rx.a_cursor & 1)) { /* We currently finish in white. We could extend that, but it is probably of the right length. Changing it would only further mess up what happens in the next row. It seems better to add a black spot, and an extra white run. */ s->cur_runs[s->t4_t6_rx.a_cursor++] = 1; fudge++; if (fudge < s->image_width) s->cur_runs[s->t4_t6_rx.a_cursor++] = s->image_width - fudge; } else { /* We currently finish on black, so we add an extra white run to fill out the line. */ s->cur_runs[s->t4_t6_rx.a_cursor++] = s->image_width - fudge; } } else { /* Trim the last element to align with the proper image width */ s->cur_runs[s->t4_t6_rx.a_cursor] += (s->image_width - fudge); } /* Ensure there is a previous line to copy from. */ if (s->image_size != s->t4_t6_rx.last_row_starts_at) { /* Copy the previous row over this one */ memcpy(s->image_buffer + s->image_size, s->image_buffer + s->t4_t6_rx.last_row_starts_at, s->bytes_per_row); s->image_size += s->bytes_per_row; s->image_length++; } s->t4_t6_rx.bad_rows++; s->t4_t6_rx.curr_bad_row_run++; } /* Pad the row as it becomes the reference row, so there are no odd runs to pick up if we step off the end of the list. */ s->cur_runs[s->t4_t6_rx.a_cursor] = 0; s->cur_runs[s->t4_t6_rx.a_cursor + 1] = 0; /* Prepare the buffers for the next row. */ s->t4_t6_rx.last_row_starts_at = row_starts_at; /* Swap the buffers */ p = s->cur_runs; s->cur_runs = s->ref_runs; s->ref_runs = p; s->t4_t6_rx.b_cursor = 1; s->t4_t6_rx.a_cursor = 0; s->t4_t6_rx.b1 = s->ref_runs[0]; s->t4_t6_rx.a0 = 0; s->t4_t6_rx.run_length = 0; return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) t4_rx_end_page(t4_state_t *s) { int row; int i; if (s->line_encoding == T4_COMPRESSION_ITU_T6) { /* Push enough zeros through the decoder to flush out any remaining codes */ for (i = 0; i < 13; i++) t4_rx_put_bit(s, 0); } if (s->t4_t6_rx.curr_bad_row_run) { if (s->t4_t6_rx.curr_bad_row_run > s->t4_t6_rx.longest_bad_row_run) s->t4_t6_rx.longest_bad_row_run = s->t4_t6_rx.curr_bad_row_run; s->t4_t6_rx.curr_bad_row_run = 0; } if (s->image_size == 0) return -1; if (s->t4_t6_rx.row_write_handler) { for (row = 0; row < s->image_length; row++) { if (s->t4_t6_rx.row_write_handler(s->t4_t6_rx.row_write_user_data, s->image_buffer + row*s->bytes_per_row, s->bytes_per_row) < 0) { span_log(&s->logging, SPAN_LOG_WARNING, "Write error at row %d.\n", row); break; } } /* Write a blank row to indicate the end of the image. */ if (s->t4_t6_rx.row_write_handler(s->t4_t6_rx.row_write_user_data, NULL, 0) < 0) span_log(&s->logging, SPAN_LOG_WARNING, "Write error at row %d.\n", row); } else { write_tiff_image(s); } s->t4_t6_rx.rx_bits = 0; s->t4_t6_rx.rx_skip_bits = 0; s->t4_t6_rx.rx_bitstream = 0; s->t4_t6_rx.consecutive_eols = EOLS_TO_END_ANY_RX_PAGE; s->image_size = 0; return 0; } /*- End of function --------------------------------------------------------*/ static __inline__ void drop_rx_bits(t4_state_t *s, int bits) { /* Only remove one bit right now. The rest need to be removed step by step, checking for a misaligned EOL along the way. This is time consuming, but if we don't do it a single bit error can severely damage an image. */ s->row_bits += bits; s->t4_t6_rx.rx_skip_bits += (bits - 1); s->t4_t6_rx.rx_bits--; s->t4_t6_rx.rx_bitstream >>= 1; } /*- End of function --------------------------------------------------------*/ static __inline__ void force_drop_rx_bits(t4_state_t *s, int bits) { /* This should only be called to drop the bits of an EOL, as that is the only place where it is safe to drop them all at once. */ s->row_bits += bits; s->t4_t6_rx.rx_skip_bits = 0; s->t4_t6_rx.rx_bits -= bits; s->t4_t6_rx.rx_bitstream >>= bits; } /*- End of function --------------------------------------------------------*/ static int rx_put_bits(t4_state_t *s, uint32_t bit_string, int quantity) { int bits; int old_a0; /* We decompress bit by bit, as the data stream is received. We need to scan continuously for EOLs, so we might as well work this way. */ s->line_image_size += quantity; s->t4_t6_rx.rx_bitstream |= (bit_string << s->t4_t6_rx.rx_bits); /* The longest item we need to scan for is 13 bits long (a 2D EOL), so we need a minimum of 13 bits in the buffer to proceed with any bit stream analysis. */ if ((s->t4_t6_rx.rx_bits += quantity) < 13) return FALSE; if (s->t4_t6_rx.consecutive_eols) { /* Check if the image has already terminated. */ if (s->t4_t6_rx.consecutive_eols >= EOLS_TO_END_ANY_RX_PAGE) return TRUE; /* Check if the image hasn't even started. */ if (s->t4_t6_rx.consecutive_eols < 0) { /* We are waiting for the very first EOL (1D or 2D only). */ /* We need to take this bit by bit, as the EOL could be anywhere, and any junk could preceed it. */ while ((s->t4_t6_rx.rx_bitstream & 0xFFF) != 0x800) { s->t4_t6_rx.rx_bitstream >>= 1; if (--s->t4_t6_rx.rx_bits < 13) return FALSE; } /* We have an EOL, so now the page begins and we can proceed to process the bit stream as image data. */ s->t4_t6_rx.consecutive_eols = 0; if (s->line_encoding == T4_COMPRESSION_ITU_T4_1D) { s->row_is_2d = FALSE; force_drop_rx_bits(s, 12); } else { s->row_is_2d = !(s->t4_t6_rx.rx_bitstream & 0x1000); force_drop_rx_bits(s, 13); } } } while (s->t4_t6_rx.rx_bits >= 13) { /* We need to check for EOLs bit by bit through the whole stream. If we just try looking between code words, we will miss an EOL when a bit error has throw the code words completely out of step. The can mean recovery takes many lines, and the image gets really messed up. */ /* Although EOLs are not inserted at the end of each row of a T.6 image, they are still perfectly valid, and can terminate an image. */ if ((s->t4_t6_rx.rx_bitstream & 0x0FFF) == 0x0800) { STATE_TRACE("EOL\n"); if (s->row_len == 0) { /* A zero length row - i.e. 2 consecutive EOLs - is distinctly the end of page condition. That's all we actually get on a T.6 page. However, there are a minimum of 6 EOLs at the end of any T.4 page. We can look for more than 2 EOLs in case bit errors simulate the end of page condition at the wrong point. Such robust checking is irrelevant for a T.6 page, as it should be error free. */ /* Note that for a T.6 page we should get here on the very first EOL, as the row length should be zero at that point. Therefore we should count up both EOLs, unless there is some bogus partial row ahead of them. */ s->t4_t6_rx.consecutive_eols++; if (s->line_encoding == T4_COMPRESSION_ITU_T6) { if (s->t4_t6_rx.consecutive_eols >= EOLS_TO_END_T6_RX_PAGE) { s->t4_t6_rx.consecutive_eols = EOLS_TO_END_ANY_RX_PAGE; return TRUE; } } else { if (s->t4_t6_rx.consecutive_eols >= EOLS_TO_END_T4_RX_PAGE) { s->t4_t6_rx.consecutive_eols = EOLS_TO_END_ANY_RX_PAGE; return TRUE; } } } else { /* The EOLs are not back-to-back, so they are not part of the end of page condition. */ if (s->t4_t6_rx.run_length > 0) add_run_to_row(s); s->t4_t6_rx.consecutive_eols = 0; if (put_decoded_row(s)) return TRUE; update_row_bit_info(s); } if (s->line_encoding == T4_COMPRESSION_ITU_T4_2D) { s->row_is_2d = !(s->t4_t6_rx.rx_bitstream & 0x1000); force_drop_rx_bits(s, 13); } else { force_drop_rx_bits(s, 12); } s->t4_t6_rx.its_black = FALSE; s->t4_t6_rx.black_white = 0; s->t4_t6_rx.run_length = 0; s->row_len = 0; continue; } if (s->t4_t6_rx.rx_skip_bits) { /* We are clearing out the remaining bits of the last code word we absorbed. */ s->t4_t6_rx.rx_skip_bits--; s->t4_t6_rx.rx_bits--; s->t4_t6_rx.rx_bitstream >>= 1; continue; } if (s->row_is_2d && s->t4_t6_rx.black_white == 0) { bits = s->t4_t6_rx.rx_bitstream & 0x7F; STATE_TRACE("State %d, %d - ", t4_2d_table[bits].state, t4_2d_table[bits].width); if (s->row_len >= s->image_width) { drop_rx_bits(s, t4_2d_table[bits].width); continue; } if (s->t4_t6_rx.a_cursor) { /* Move past a0, always staying on the current colour */ for ( ; s->t4_t6_rx.b1 <= s->t4_t6_rx.a0; s->t4_t6_rx.b_cursor += 2) s->t4_t6_rx.b1 += (s->ref_runs[s->t4_t6_rx.b_cursor] + s->ref_runs[s->t4_t6_rx.b_cursor + 1]); } switch (t4_2d_table[bits].state) { case S_Horiz: STATE_TRACE("Horiz %d %d %d\n", s->image_width, s->t4_t6_rx.a0, s->t4_t6_rx.a_cursor); /* We now need to extract a white/black or black/white pair of runs, using the 1D method. If the first of the pair takes us exactly to the end of the row, there should still be a zero length element for the second of the pair. */ s->t4_t6_rx.its_black = s->t4_t6_rx.a_cursor & 1; s->t4_t6_rx.black_white = 2; break; case S_Vert: STATE_TRACE("Vert[%d] %d %d %d %d\n", t4_2d_table[bits].param, s->image_width, s->t4_t6_rx.a0, s->t4_t6_rx.b1, s->t4_t6_rx.run_length); old_a0 = s->t4_t6_rx.a0; s->t4_t6_rx.a0 = s->t4_t6_rx.b1 + t4_2d_table[bits].param; /* We need to check if a bad or malicious image is failing to move forward along the row. Going back is obviously bad. We also need to avoid a stall on the spot, except for the special case of the start of the row. Zero movement as the very first element in the row is perfectly normal. */ if (s->t4_t6_rx.a0 <= old_a0) { if (s->t4_t6_rx.a0 < old_a0 || s->t4_t6_rx.b_cursor > 1) { /* Undo the update we just started, and carry on as if this code does not exist */ /* TODO: we really should record that something wasn't right at this point. */ s->t4_t6_rx.a0 = old_a0; break; } } s->t4_t6_rx.run_length += (s->t4_t6_rx.a0 - old_a0); add_run_to_row(s); /* We need to move one step in one direction or the other, to change to the opposite colour */ if (t4_2d_table[bits].param >= 0) { s->t4_t6_rx.b1 += s->ref_runs[s->t4_t6_rx.b_cursor++]; } else { if (s->t4_t6_rx.b_cursor) s->t4_t6_rx.b1 -= s->ref_runs[--s->t4_t6_rx.b_cursor]; } break; case S_Pass: STATE_TRACE("Pass %d %d %d %d %d\n", s->image_width, s->t4_t6_rx.a0, s->t4_t6_rx.b1, s->ref_runs[s->t4_t6_rx.b_cursor], s->ref_runs[s->t4_t6_rx.b_cursor + 1]); s->t4_t6_rx.b1 += s->ref_runs[s->t4_t6_rx.b_cursor++]; old_a0 = s->t4_t6_rx.a0; s->t4_t6_rx.a0 = s->t4_t6_rx.b1; s->t4_t6_rx.run_length += (s->t4_t6_rx.a0 - old_a0); s->t4_t6_rx.b1 += s->ref_runs[s->t4_t6_rx.b_cursor++]; break; case S_Ext: /* We do not currently handle any kind of extension */ STATE_TRACE("Ext %d %d %d 0x%x\n", s->image_width, s->t4_t6_rx.a0, ((s->t4_t6_rx.rx_bitstream >> t4_2d_table[bits].width) & 0x7), s->t4_t6_rx.rx_bitstream); /* TODO: The uncompressed option should be implemented. */ break; case S_Null: STATE_TRACE("Null\n"); break; default: STATE_TRACE("Unexpected T.4 state\n"); span_log(&s->logging, SPAN_LOG_WARNING, "Unexpected T.4 state %d\n", t4_2d_table[bits].state); break; } drop_rx_bits(s, t4_2d_table[bits].width); } else { if (s->t4_t6_rx.its_black) { bits = s->t4_t6_rx.rx_bitstream & 0x1FFF; STATE_TRACE("State %d, %d - Black %d %d %d\n", t4_1d_black_table[bits].state, t4_1d_black_table[bits].width, s->image_width, s->t4_t6_rx.a0, t4_1d_black_table[bits].param); switch (t4_1d_black_table[bits].state) { case S_MakeUpB: case S_MakeUp: s->t4_t6_rx.run_length += t4_1d_black_table[bits].param; s->t4_t6_rx.a0 += t4_1d_black_table[bits].param; break; case S_TermB: s->t4_t6_rx.its_black = FALSE; if (s->row_len < s->image_width) { s->t4_t6_rx.run_length += t4_1d_black_table[bits].param; s->t4_t6_rx.a0 += t4_1d_black_table[bits].param; add_run_to_row(s); } if (s->t4_t6_rx.black_white) s->t4_t6_rx.black_white--; break; default: /* Bad black */ s->t4_t6_rx.black_white = 0; break; } drop_rx_bits(s, t4_1d_black_table[bits].width); } else { bits = s->t4_t6_rx.rx_bitstream & 0xFFF; STATE_TRACE("State %d, %d - White %d %d %d\n", t4_1d_white_table[bits].state, t4_1d_white_table[bits].width, s->image_width, s->t4_t6_rx.a0, t4_1d_white_table[bits].param); switch (t4_1d_white_table[bits].state) { case S_MakeUpW: case S_MakeUp: s->t4_t6_rx.run_length += t4_1d_white_table[bits].param; s->t4_t6_rx.a0 += t4_1d_white_table[bits].param; break; case S_TermW: s->t4_t6_rx.its_black = TRUE; if (s->row_len < s->image_width) { s->t4_t6_rx.run_length += t4_1d_white_table[bits].param; s->t4_t6_rx.a0 += t4_1d_white_table[bits].param; add_run_to_row(s); } if (s->t4_t6_rx.black_white) s->t4_t6_rx.black_white--; break; default: /* Bad white */ s->t4_t6_rx.black_white = 0; break; } drop_rx_bits(s, t4_1d_white_table[bits].width); } } if (s->t4_t6_rx.a0 >= s->image_width) s->t4_t6_rx.a0 = s->image_width - 1; if (s->line_encoding == T4_COMPRESSION_ITU_T6) { /* T.6 has no EOL markers. We sense the end of a line by its length alone. */ /* The last test here is a backstop protection, so a corrupt image cannot cause us to do bad things. Bad encoders have actually been seen, which demand such protection. */ if (s->t4_t6_rx.black_white == 0 && s->row_len >= s->image_width) { STATE_TRACE("EOL T.6\n"); if (s->t4_t6_rx.run_length > 0) add_run_to_row(s); update_row_bit_info(s); if (put_decoded_row(s)) return TRUE; s->t4_t6_rx.its_black = FALSE; s->t4_t6_rx.black_white = 0; s->t4_t6_rx.run_length = 0; s->row_len = 0; } } } return FALSE; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) t4_rx_put_bit(t4_state_t *s, int bit) { return rx_put_bits(s, bit & 1, 1); } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) t4_rx_put_byte(t4_state_t *s, uint8_t byte) { return rx_put_bits(s, byte & 0xFF, 8); } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) t4_rx_put_chunk(t4_state_t *s, const uint8_t buf[], int len) { int i; uint8_t byte; for (i = 0; i < len; i++) { byte = buf[i]; if (rx_put_bits(s, byte & 0xFF, 8)) return TRUE; } return FALSE; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) t4_rx_set_row_write_handler(t4_state_t *s, t4_row_write_handler_t handler, void *user_data) { s->t4_t6_rx.row_write_handler = handler; s->t4_t6_rx.row_write_user_data = user_data; return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(t4_state_t *) t4_rx_init(t4_state_t *s, const char *file, int output_encoding) { if (s == NULL) { if ((s = (t4_state_t *) malloc(sizeof(*s))) == NULL) return NULL; } memset(s, 0, sizeof(*s)); span_log_init(&s->logging, SPAN_LOG_NONE, NULL); span_log_set_protocol(&s->logging, "T.4"); s->rx = TRUE; span_log(&s->logging, SPAN_LOG_FLOW, "Start rx document\n"); if (open_tiff_output_file(s, file) < 0) return NULL; /* Save the file name for logging reports. */ s->tiff.file = strdup(file); /* Only provide for one form of coding throughout the file, even though the coding on the wire could change between pages. */ switch (output_encoding) { case T4_COMPRESSION_ITU_T4_1D: s->tiff.output_compression = COMPRESSION_CCITT_T4; s->tiff.output_t4_options = GROUP3OPT_FILLBITS; break; case T4_COMPRESSION_ITU_T4_2D: s->tiff.output_compression = COMPRESSION_CCITT_T4; s->tiff.output_t4_options = GROUP3OPT_FILLBITS | GROUP3OPT_2DENCODING; break; case T4_COMPRESSION_ITU_T6: s->tiff.output_compression = COMPRESSION_CCITT_T6; s->tiff.output_t4_options = 0; break; } /* Until we have a valid figure for the bytes per row, we need it to be set to a suitable value to ensure it will be seen as changing when the real value is used. */ s->bytes_per_row = 0; s->current_page = 0; s->tiff.pages_in_file = 0; s->tiff.start_page = 0; s->tiff.stop_page = INT_MAX; s->image_buffer = NULL; s->image_buffer_size = 0; /* Set some default values */ s->x_resolution = T4_X_RESOLUTION_R8; s->y_resolution = T4_Y_RESOLUTION_FINE; s->image_width = T4_WIDTH_R8_A4; return s; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) t4_rx_start_page(t4_state_t *s) { int bytes_per_row; int run_space; uint32_t *bufptr; span_log(&s->logging, SPAN_LOG_FLOW, "Start rx page - compression %d\n", s->line_encoding); if (s->tiff.tiff_file == NULL) return -1; /* Calculate the scanline/tile width. */ bytes_per_row = (s->image_width + 7)/8; run_space = (s->image_width + 4)*sizeof(uint32_t); if (bytes_per_row != s->bytes_per_row) { /* Allocate the space required for decoding the new row length. */ s->bytes_per_row = bytes_per_row; if ((bufptr = (uint32_t *) realloc(s->cur_runs, run_space)) == NULL) return -1; s->cur_runs = bufptr; if ((bufptr = (uint32_t *) realloc(s->ref_runs, run_space)) == NULL) return -1; s->ref_runs = bufptr; } memset(s->cur_runs, 0, run_space); memset(s->ref_runs, 0, run_space); s->t4_t6_rx.rx_bits = 0; s->t4_t6_rx.rx_skip_bits = 0; s->t4_t6_rx.rx_bitstream = 0; s->row_bits = 0; s->min_row_bits = INT_MAX; s->max_row_bits = 0; s->row_is_2d = (s->line_encoding == T4_COMPRESSION_ITU_T6); /* We start at -1 EOLs for 1D and 2D decoding, as an indication we are waiting for the first EOL. T.6 coding starts without any preamble. */ s->t4_t6_rx.consecutive_eols = (s->line_encoding == T4_COMPRESSION_ITU_T6) ? 0 : -1; s->t4_t6_rx.bad_rows = 0; s->t4_t6_rx.longest_bad_row_run = 0; s->t4_t6_rx.curr_bad_row_run = 0; s->image_length = 0; s->tx_bitstream = 0; s->tx_bits = 8; s->image_size = 0; s->line_image_size = 0; s->t4_t6_rx.last_row_starts_at = 0; s->row_len = 0; s->t4_t6_rx.its_black = FALSE; s->t4_t6_rx.black_white = 0; /* Initialise the reference line to all white */ s->ref_runs[0] = s->image_width; s->t4_t6_rx.b_cursor = 1; s->t4_t6_rx.a_cursor = 0; s->t4_t6_rx.b1 = s->ref_runs[0]; s->t4_t6_rx.a0 = 0; s->t4_t6_rx.run_length = 0; time (&s->page_start_time); return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) t4_rx_release(t4_state_t *s) { if (!s->rx) return -1; if (s->tiff.tiff_file) close_tiff_output_file(s); free_buffers(s); return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) t4_rx_free(t4_state_t *s) { int ret; ret = t4_rx_release(s); free(s); return ret; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) t4_rx_set_rx_encoding(t4_state_t *s, int encoding) { s->line_encoding = encoding; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) t4_rx_set_image_width(t4_state_t *s, int width) { s->image_width = width; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) t4_rx_set_y_resolution(t4_state_t *s, int resolution) { s->y_resolution = resolution; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) t4_rx_set_x_resolution(t4_state_t *s, int resolution) { s->x_resolution = resolution; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) t4_rx_set_dcs(t4_state_t *s, const char *dcs) { s->tiff.dcs = (dcs && dcs[0]) ? dcs : NULL; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) t4_rx_set_sub_address(t4_state_t *s, const char *sub_address) { s->tiff.sub_address = (sub_address && sub_address[0]) ? sub_address : NULL; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) t4_rx_set_far_ident(t4_state_t *s, const char *ident) { s->tiff.far_ident = (ident && ident[0]) ? ident : NULL; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) t4_rx_set_vendor(t4_state_t *s, const char *vendor) { s->tiff.vendor = vendor; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) t4_rx_set_model(t4_state_t *s, const char *model) { s->tiff.model = model; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) t4_rx_get_transfer_statistics(t4_state_t *s, t4_stats_t *t) { t->pages_transferred = s->current_page - s->tiff.start_page; t->pages_in_file = s->tiff.pages_in_file; t->width = s->image_width; t->length = s->image_length; t->bad_rows = s->t4_t6_rx.bad_rows; t->longest_bad_row_run = s->t4_t6_rx.longest_bad_row_run; t->x_resolution = s->x_resolution; t->y_resolution = s->y_resolution; t->encoding = s->line_encoding; t->line_image_size = s->line_image_size/8; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(const char *) t4_encoding_to_str(int encoding) { switch (encoding) { case T4_COMPRESSION_NONE: return "None"; case T4_COMPRESSION_ITU_T4_1D: return "T.4 1-D"; case T4_COMPRESSION_ITU_T4_2D: return "T.4 2-D"; case T4_COMPRESSION_ITU_T6: return "T.6"; case T4_COMPRESSION_ITU_T42: return "T.42"; case T4_COMPRESSION_ITU_SYCC_T42: return "sYCC T.42"; case T4_COMPRESSION_ITU_T43: return "T.43"; case T4_COMPRESSION_ITU_T45: return "T.45"; case T4_COMPRESSION_ITU_T85: return "T.85"; case T4_COMPRESSION_ITU_T85_L0: return "T.85(L0)"; } return "???"; } /*- End of function --------------------------------------------------------*/ /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/time_scale.c0000664000175000017500000002061111422612263015636 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * time_scale.c - Time scaling for linear speech data * * Written by Steve Underwood * * Copyright (C) 2004 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \file */ #if defined(HAVE_CONFIG_H) #include "config.h" #endif #include #include #include #include #include #include #include #if defined(HAVE_TGMATH_H) #include #endif #if defined(HAVE_MATH_H) #include #endif #include "floating_fudge.h" #include "spandsp/telephony.h" #include "spandsp/fast_convert.h" #include "spandsp/time_scale.h" #include "spandsp/saturated.h" #include "spandsp/private/time_scale.h" /* Time scaling for speech, based on the Pointer Interval Controlled OverLap and Add (PICOLA) method, developed by Morita Naotaka. */ static __inline__ int amdf_pitch(int min_pitch, int max_pitch, int16_t amp[], int len) { int i; int j; int acc; int min_acc; int pitch; pitch = min_pitch; min_acc = INT_MAX; for (i = max_pitch; i <= min_pitch; i++) { acc = 0; for (j = 0; j < len; j++) acc += abs(amp[i + j] - amp[j]); if (acc < min_acc) { min_acc = acc; pitch = i; } } return pitch; } /*- End of function --------------------------------------------------------*/ static __inline__ void overlap_add(int16_t amp1[], int16_t amp2[], int len) { int i; float weight; float step; step = 1.0f/len; weight = 0.0f; for (i = 0; i < len; i++) { /* TODO: saturate */ amp2[i] = (int16_t) ((float) amp1[i]*(1.0f - weight) + (float) amp2[i]*weight); weight += step; } } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) time_scale_rate(time_scale_state_t *s, float playout_rate) { if (playout_rate <= 0.0f) return -1; /*endif*/ if (playout_rate >= 0.99f && playout_rate <= 1.01f) { /* Treat rate close to normal speed as exactly normal speed, and avoid divide by zero, and other numerical problems. */ playout_rate = 1.0f; } else if (playout_rate < 1.0f) { s->rcomp = playout_rate/(1.0f - playout_rate); } else { s->rcomp = 1.0f/(playout_rate - 1.0f); } /*endif*/ s->playout_rate = playout_rate; return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(time_scale_state_t *) time_scale_init(time_scale_state_t *s, int sample_rate, float playout_rate) { int alloced; if (sample_rate > TIME_SCALE_MAX_SAMPLE_RATE) return NULL; alloced = FALSE; if (s == NULL) { if ((s = (time_scale_state_t *) malloc(sizeof (*s))) == NULL) return NULL; /*endif*/ alloced = TRUE; } /*endif*/ s->sample_rate = sample_rate; s->min_pitch = sample_rate/TIME_SCALE_MIN_PITCH; s->max_pitch = sample_rate/TIME_SCALE_MAX_PITCH; s->buf_len = 2*sample_rate/TIME_SCALE_MIN_PITCH; if (time_scale_rate(s, playout_rate)) { if (alloced) free(s); return NULL; } /*endif*/ s->rate_nudge = 0.0f; s->fill = 0; s->lcp = 0; return s; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) time_scale_release(time_scale_state_t *s) { return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) time_scale_free(time_scale_state_t *s) { free(s); return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) time_scale(time_scale_state_t *s, int16_t out[], int16_t in[], int len) { double lcpf; int pitch; int out_len; int in_len; int k; out_len = 0; in_len = 0; /* Top up the buffer */ if (s->fill + len < s->buf_len) { /* Cannot continue without more samples */ memcpy(s->buf + s->fill, in, sizeof(int16_t)*len); s->fill += len; return out_len; } k = s->buf_len - s->fill; memcpy(s->buf + s->fill, in, sizeof(int16_t)*k); in_len += k; s->fill = s->buf_len; while (s->fill == s->buf_len) { while (s->lcp >= s->buf_len) { memcpy(out + out_len, s->buf, sizeof(int16_t)*s->buf_len); out_len += s->buf_len; if (len - in_len < s->buf_len) { /* Cannot continue without more samples */ memcpy(s->buf, in + in_len, sizeof(int16_t)*(len - in_len)); s->fill = len - in_len; s->lcp -= s->buf_len; return out_len; } memcpy(s->buf, in + in_len, sizeof(int16_t)*s->buf_len); in_len += s->buf_len; s->lcp -= s->buf_len; } if (s->lcp > 0) { memcpy(out + out_len, s->buf, sizeof(int16_t)*s->lcp); out_len += s->lcp; memcpy(s->buf, s->buf + s->lcp, sizeof(int16_t)*(s->buf_len - s->lcp)); if (len - in_len < s->lcp) { /* Cannot continue without more samples */ memcpy(s->buf + (s->buf_len - s->lcp), in + in_len, sizeof(int16_t)*(len - in_len)); s->fill = s->buf_len - s->lcp + len - in_len; s->lcp = 0; return out_len; } memcpy(s->buf + (s->buf_len - s->lcp), in + in_len, sizeof(int16_t)*s->lcp); in_len += s->lcp; s->lcp = 0; } if (s->playout_rate == 1.0f) { s->lcp = 0x7FFFFFFF; } else { pitch = amdf_pitch(s->min_pitch, s->max_pitch, s->buf, s->min_pitch); lcpf = (double) pitch*s->rcomp; /* Nudge around to compensate for fractional samples */ s->lcp = (int) lcpf; /* Note that s->lcp and lcpf are not the same, as lcpf has a fractional part, and s->lcp doesn't */ s->rate_nudge += s->lcp - lcpf; if (s->rate_nudge >= 0.5f) { s->lcp--; s->rate_nudge -= 1.0f; } else if (s->rate_nudge <= -0.5f) { s->lcp++; s->rate_nudge += 1.0f; } if (s->playout_rate < 1.0f) { /* Speed up - drop a chunk of data */ overlap_add(s->buf, s->buf + pitch, pitch); memcpy(&s->buf[pitch], &s->buf[2*pitch], sizeof(int16_t)*(s->buf_len - 2*pitch)); if (len - in_len < pitch) { /* Cannot continue without more samples */ memcpy(s->buf + s->buf_len - pitch, in + in_len, sizeof(int16_t)*(len - in_len)); s->fill += (len - in_len - pitch); return out_len; } memcpy(s->buf + s->buf_len - pitch, in + in_len, sizeof(int16_t)*pitch); in_len += pitch; } else { /* Slow down - insert a chunk of data */ memcpy(out + out_len, s->buf, sizeof(int16_t)*pitch); out_len += pitch; overlap_add(s->buf + pitch, s->buf, pitch); } } } return out_len; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) time_scale_max_output_len(time_scale_state_t *s, int input_len) { return (int) (input_len*s->playout_rate + s->min_pitch + 1); } /*- End of function --------------------------------------------------------*/ /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/libspandsp.2005.sln0000664000175000017500000001035311210514156016626 0ustar steveusteveu Microsoft Visual Studio Solution File, Format Version 9.00 # Visual Studio 2005 Project("{8BC9CEB8-8B4A-11D0-8D11-00A0C91BC942}") = "make_at_dictionary", "msvc\make_at_dictionary.2005.vcproj", "{DEE932AB-5911-4700-9EEB-8C7090A0A330}" EndProject Project("{8BC9CEB8-8B4A-11D0-8D11-00A0C91BC942}") = "make_modem_filter", "msvc\make_modem_filter.2005.vcproj", "{329A6FA0-0FCC-4435-A950-E670AEFA9838}" EndProject Project("{8BC9CEB8-8B4A-11D0-8D11-00A0C91BC942}") = "libspandsp", "libspandsp.2005.vcproj", "{1CBB0077-18C5-455F-801C-0A0CE7B0BBF5}" ProjectSection(ProjectDependencies) = postProject {329A6FA0-0FCC-4435-A950-E670AEFA9838} = {329A6FA0-0FCC-4435-A950-E670AEFA9838} {DEE932AB-5911-4700-9EEB-8C7090A0A330} = {DEE932AB-5911-4700-9EEB-8C7090A0A330} {401A40CD-5DB4-4E34-AC68-FA99E9FAC014} = {401A40CD-5DB4-4E34-AC68-FA99E9FAC014} EndProjectSection EndProject Project("{8BC9CEB8-8B4A-11D0-8D11-00A0C91BC942}") = "libspandsp_sim", "..\spandsp-sim\libspandsp_sim.2005.vcproj", "{1CBB0077-18C5-455F-801C-0A0CE7B0BBF5}" ProjectSection(ProjectDependencies) = postProject {329A6FA0-0FCC-4435-A950-E670AEFA9838} = {329A6FA0-0FCC-4435-A950-E670AEFA9838} {DEE932AB-5911-4700-9EEB-8C7090A0A330} = {DEE932AB-5911-4700-9EEB-8C7090A0A330} {401A40CD-5DB4-4E34-AC68-FA99E9FAC014} = {401A40CD-5DB4-4E34-AC68-FA99E9FAC014} EndProjectSection EndProject Project("{8BC9CEB8-8B4A-11D0-8D11-00A0C91BC942}") = "libtiff", "libtiff.2005.vcproj", "{401A40CD-5DB4-4E34-AC68-FA99E9FAC014}" ProjectSection(ProjectDependencies) = postProject {2B8A45C9-FEB4-4734-AB37-8DB9DB899917} = {2B8A45C9-FEB4-4734-AB37-8DB9DB899917} EndProjectSection EndProject Project("{8BC9CEB8-8B4A-11D0-8D11-00A0C91BC942}") = "Download TIFF", "msvc\Download_TIFF.2005.vcproj", "{2B8A45C9-FEB4-4734-AB37-8DB9DB899917}" EndProject Global GlobalSection(SolutionConfigurationPlatforms) = preSolution All|Win32 = All|Win32 Debug|Win32 = Debug|Win32 Release|Win32 = Release|Win32 EndGlobalSection GlobalSection(ProjectConfigurationPlatforms) = postSolution {DEE932AB-5911-4700-9EEB-8C7090A0A330}.All|Win32.ActiveCfg = All|Win32 {DEE932AB-5911-4700-9EEB-8C7090A0A330}.All|Win32.Build.0 = All|Win32 {DEE932AB-5911-4700-9EEB-8C7090A0A330}.Debug|Win32.ActiveCfg = All|Win32 {DEE932AB-5911-4700-9EEB-8C7090A0A330}.Debug|Win32.Build.0 = All|Win32 {DEE932AB-5911-4700-9EEB-8C7090A0A330}.Release|Win32.ActiveCfg = All|Win32 {329A6FA0-0FCC-4435-A950-E670AEFA9838}.All|Win32.ActiveCfg = All|Win32 {329A6FA0-0FCC-4435-A950-E670AEFA9838}.All|Win32.Build.0 = All|Win32 {329A6FA0-0FCC-4435-A950-E670AEFA9838}.Debug|Win32.ActiveCfg = All|Win32 {329A6FA0-0FCC-4435-A950-E670AEFA9838}.Debug|Win32.Build.0 = All|Win32 {329A6FA0-0FCC-4435-A950-E670AEFA9838}.Release|Win32.ActiveCfg = All|Win32 {1CBB0077-18C5-455F-801C-0A0CE7B0BBF5}.All|Win32.ActiveCfg = Release|Win32 {1CBB0077-18C5-455F-801C-0A0CE7B0BBF5}.All|Win32.Build.0 = Release|Win32 {1CBB0077-18C5-455F-801C-0A0CE7B0BBF5}.Debug|Win32.ActiveCfg = Debug|Win32 {1CBB0077-18C5-455F-801C-0A0CE7B0BBF5}.Debug|Win32.Build.0 = Debug|Win32 {1CBB0077-18C5-455F-801C-0A0CE7B0BBF5}.Release|Win32.ActiveCfg = Release|Win32 {1CBB0077-18C5-455F-801C-0A0CE7B0BBF5}.Release|Win32.Build.0 = Release|Win32 {401A40CD-5DB4-4E34-AC68-FA99E9FAC014}.All|Win32.ActiveCfg = Release|Win32 {401A40CD-5DB4-4E34-AC68-FA99E9FAC014}.All|Win32.Build.0 = Release|Win32 {401A40CD-5DB4-4E34-AC68-FA99E9FAC014}.Debug|Win32.ActiveCfg = Debug|Win32 {401A40CD-5DB4-4E34-AC68-FA99E9FAC014}.Debug|Win32.Build.0 = Debug|Win32 {401A40CD-5DB4-4E34-AC68-FA99E9FAC014}.Release|Win32.ActiveCfg = Release|Win32 {401A40CD-5DB4-4E34-AC68-FA99E9FAC014}.Release|Win32.Build.0 = Release|Win32 {2B8A45C9-FEB4-4734-AB37-8DB9DB899917}.All|Win32.ActiveCfg = All|Win32 {2B8A45C9-FEB4-4734-AB37-8DB9DB899917}.All|Win32.Build.0 = All|Win32 {2B8A45C9-FEB4-4734-AB37-8DB9DB899917}.Debug|Win32.ActiveCfg = All|Win32 {2B8A45C9-FEB4-4734-AB37-8DB9DB899917}.Debug|Win32.Build.0 = All|Win32 {2B8A45C9-FEB4-4734-AB37-8DB9DB899917}.Release|Win32.ActiveCfg = All|Win32 {2B8A45C9-FEB4-4734-AB37-8DB9DB899917}.Release|Win32.Build.0 = All|Win32 EndGlobalSection GlobalSection(SolutionProperties) = preSolution HideSolutionNode = FALSE EndGlobalSection EndGlobal spandsp-0.0.6/src/gsm0610_local.h0000664000175000017500000001533611422612262016014 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * gsm0610_local.h - GSM 06.10 full rate speech codec. * * Written by Steve Underwood * * Copyright (C) 2006 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. * * This code is based on the widely used GSM 06.10 code available from * http://kbs.cs.tu-berlin.de/~jutta/toast.html */ #if !defined(_GSM0610_LOCAL_H_) #define _GSM0610_LOCAL_H_ #define GSM0610_FRAME_LEN 160 #define GSM0610_MAGIC 0xD #include "spandsp/private/gsm0610.h" static __inline__ int16_t gsm_add(int16_t a, int16_t b) { #if defined(__GNUC__) && (defined(__i386__) || defined(__x86_64__)) __asm__ __volatile__( " addw %2,%0;\n" " jno 0f;\n" " movw $0x7fff,%0;\n" " adcw $0,%0;\n" "0:" : "=&r" (a) : "0" (a), "ir" (b) : "cc" ); return a; #else int32_t sum; sum = (int32_t) a + (int32_t) b; return saturate(sum); #endif } /*- End of function --------------------------------------------------------*/ static __inline__ int32_t gsm_l_add(int32_t a, int32_t b) { #if defined(__GNUC__) && (defined(__i386__) || defined(__x86_64__)) __asm__ __volatile__( " addl %2,%0;\n" " jno 0f;\n" " movl $0x7fffffff,%0;\n" " adcl $0,%0;\n" "0:" : "=&r" (a) : "0" (a), "ir" (b) : "cc" ); return a; #else uint32_t A; if (a < 0) { if (b >= 0) return a + b; /*endif*/ A = (uint32_t) -(a + 1) + (uint32_t) -(b + 1); return (A >= INT32_MAX) ? INT32_MIN : -(int32_t) A - 2; } /*endif*/ if (b <= 0) return a + b; /*endif*/ A = (uint32_t) a + (uint32_t) b; return (A > INT32_MAX) ? INT32_MAX : A; #endif } /*- End of function --------------------------------------------------------*/ static __inline__ int16_t gsm_sub(int16_t a, int16_t b) { int32_t diff; diff = (int32_t) a - (int32_t) b; return saturate(diff); } /*- End of function --------------------------------------------------------*/ static __inline__ int16_t gsm_mult(int16_t a, int16_t b) { if (a == INT16_MIN && b == INT16_MIN) return INT16_MAX; /*endif*/ return (int16_t) (((int32_t) a * (int32_t) b) >> 15); } /*- End of function --------------------------------------------------------*/ static __inline__ int32_t gsm_l_mult(int16_t a, int16_t b) { assert (a != INT16_MIN || b != INT16_MIN); return ((int32_t) a * (int32_t) b) << 1; } /*- End of function --------------------------------------------------------*/ static __inline__ int16_t gsm_mult_r(int16_t a, int16_t b) { int32_t prod; if (b == INT16_MIN && a == INT16_MIN) return INT16_MAX; /*endif*/ prod = (int32_t) a * (int32_t) b + 16384; prod >>= 15; return (int16_t) (prod & 0xFFFF); } /*- End of function --------------------------------------------------------*/ static __inline__ int16_t gsm_abs(int16_t a) { return (a == INT16_MIN) ? INT16_MAX : (int16_t) abs(a); } /*- End of function --------------------------------------------------------*/ static __inline__ int16_t gsm_asr(int16_t a, int n) { if (n >= 16) return (int16_t) (-(a < 0)); /*endif*/ if (n <= -16) return 0; /*endif*/ if (n < 0) return (int16_t) (a << -n); /*endif*/ return (int16_t) (a >> n); } /*- End of function --------------------------------------------------------*/ static __inline__ int16_t gsm_asl(int16_t a, int n) { if (n >= 16) return 0; /*endif*/ if (n <= -16) return (int16_t) (-(a < 0)); /*endif*/ if (n < 0) return gsm_asr(a, -n); /*endif*/ return (int16_t) (a << n); } /*- End of function --------------------------------------------------------*/ extern void gsm0610_long_term_predictor(gsm0610_state_t *s, int16_t d[40], int16_t *dp, /* [-120..-1] d' IN */ int16_t e[40], int16_t dpp[40], int16_t *Nc, int16_t *bc); extern void gsm0610_lpc_analysis(gsm0610_state_t *s, int16_t amp[160], int16_t LARc[8]); extern void gsm0610_preprocess(gsm0610_state_t *s, const int16_t amp[], int16_t so[]); extern void gsm0610_short_term_analysis_filter(gsm0610_state_t *s, int16_t LARc[8], int16_t amp[160]); extern void gsm0610_long_term_synthesis_filtering(gsm0610_state_t *s, int16_t Ncr, int16_t bcr, int16_t erp[40], int16_t *drp); /* [-120..-1] IN, [0..40] OUT */ extern void gsm0610_rpe_decoding(gsm0610_state_t *s, int16_t xmaxcr, int16_t Mcr, int16_t *xMcr, /* [0..12], 3 bits IN */ int16_t erp[40]); extern void gsm0610_rpe_encoding(gsm0610_state_t *s, int16_t *e, /* [-5..-1][0..39][40..44] IN/OUT */ int16_t *xmaxc, int16_t *Mc, int16_t xMc[13]); extern void gsm0610_short_term_synthesis_filter(gsm0610_state_t *s, int16_t LARcr[8], int16_t drp[40], int16_t amp[160]); extern int16_t gsm0610_norm(int32_t a); #endif /*- End of include ---------------------------------------------------------*/ spandsp-0.0.6/src/gsm0610_rpe.c0000664000175000017500000003721011422612262015476 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * gsm0610_rpe.c - GSM 06.10 full rate speech codec. * * Written by Steve Underwood * * Copyright (C) 2006 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. * * This code is based on the widely used GSM 06.10 code available from * http://kbs.cs.tu-berlin.de/~jutta/toast.html */ /*! \file */ #if defined(HAVE_CONFIG_H) #include "config.h" #endif #include #include #if defined(HAVE_TGMATH_H) #include #endif #if defined(HAVE_MATH_H) #include #endif #include "floating_fudge.h" #include #include "mmx_sse_decs.h" #include "spandsp/telephony.h" #include "spandsp/fast_convert.h" #include "spandsp/bitstream.h" #include "spandsp/saturated.h" #include "spandsp/gsm0610.h" #include "gsm0610_local.h" /* 4.2.13 .. 4.2.17 RPE ENCODING SECTION */ /* 4.2.13 */ static void weighting_filter(int16_t x[40], const int16_t *e) // signal [-5..0.39.44] IN) { #if defined(__GNUC__) && defined(SPANDSP_USE_MMX) && defined(__x86_64__) /* Table 4.4 Coefficients of the weighting filter */ /* This must be padded to a multiple of 4 for MMX to work */ static const union { int16_t gsm_H[12]; __m64 x[3]; } gsm_H = { { -134, -374, 0, 2054, 5741, 8192, 5741, 2054, 0, -374, -134, 0 } }; __asm__ __volatile__( " emms;\n" " addq $-10,%%rcx;\n" " leaq %[gsm_H],%%rax;\n" " movq (%%rax),%%mm1;\n" " movq 8(%%rax),%%mm2;\n" " movq 16(%%rax),%%mm3;\n" " movq $0x1000,%%rax;\n" " movq %%rax,%%mm5;\n" /* For rounding */ " xorq %%rsi,%%rsi;\n" " .p2align 2;\n" "1:\n" " movq (%%rcx,%%rsi,2),%%mm0;\n" " pmaddwd %%mm1,%%mm0;\n" " movq 8(%%rcx,%%rsi,2),%%mm4;\n" " pmaddwd %%mm2,%%mm4;\n" " paddd %%mm4,%%mm0;\n" " movq 16(%%rcx,%%rsi,2),%%mm4;\n" " pmaddwd %%mm3,%%mm4;\n" " paddd %%mm4,%%mm0;\n" " movq %%mm0,%%mm4;\n" " punpckhdq %%mm0,%%mm4;\n" /* mm4 has high int32 of mm0 dup'd */ " paddd %%mm4,%%mm0;\n" " paddd %%mm5,%%mm0;\n" /* Add for roundoff */ " psrad $13,%%mm0;\n" " packssdw %%mm0,%%mm0;\n" " movd %%mm0,%%eax;\n" /* eax has result */ " movw %%ax,(%%rdi,%%rsi,2);\n" " incq %%rsi;\n" " cmpq $39,%%rsi;\n" " jle 1b;\n" " emms;\n" : : "c" (e), "D" (x), [gsm_H] "X" (gsm_H) : "rax", "rdx", "rsi", "memory" ); #elif defined(__GNUC__) && defined(SPANDSP_USE_MMX) && defined(__i386__) /* Table 4.4 Coefficients of the weighting filter */ /* This must be padded to a multiple of 4 for MMX to work */ static const union { int16_t gsm_H[12]; __m64 x[3]; } gsm_H = { { -134, -374, 0, 2054, 5741, 8192, 5741, 2054, 0, -374, -134, 0 } }; __asm__ __volatile__( " emms;\n" " addl $-10,%%ecx;\n" " leal %[gsm_H],%%eax;\n" " movq (%%eax),%%mm1;\n" " movq 8(%%eax),%%mm2;\n" " movq 16(%%eax),%%mm3;\n" " movl $0x1000,%%eax;\n" " movd %%eax,%%mm5;\n" /* For rounding */ " xorl %%esi,%%esi;\n" " .p2align 2;\n" "1:\n" " movq (%%ecx,%%esi,2),%%mm0;\n" " pmaddwd %%mm1,%%mm0;\n" " movq 8(%%ecx,%%esi,2),%%mm4;\n" " pmaddwd %%mm2,%%mm4;\n" " paddd %%mm4,%%mm0;\n" " movq 16(%%ecx,%%esi,2),%%mm4;\n" " pmaddwd %%mm3,%%mm4;\n" " paddd %%mm4,%%mm0;\n" " movq %%mm0,%%mm4;\n" " punpckhdq %%mm0,%%mm4;\n" /* mm4 has high int32 of mm0 dup'd */ " paddd %%mm4,%%mm0;\n" " paddd %%mm5,%%mm0;\n" /* Add for roundoff */ " psrad $13,%%mm0;\n" " packssdw %%mm0,%%mm0;\n" " movd %%mm0,%%eax;\n" /* eax has result */ " movw %%ax,(%%edi,%%esi,2);\n" " incl %%esi;\n" " cmpl $39,%%esi;\n" " jle 1b;\n" " emms;\n" : : "c" (e), "D" (x), [gsm_H] "X" (gsm_H) : "eax", "edx", "esi", "memory" ); #else int32_t result; int k; /* The coefficients of the weighting filter are stored in a table (see table 4.4). The following scaling is used: H[0..10] = integer(real_H[0..10] * 8192); */ /* Initialization of a temporary working array wt[0...49] */ /* for (k = 0; k <= 4; k++) wt[k] = 0; * for (k = 5; k <= 44; k++) wt[k] = *e++; * for (k = 45; k <= 49; k++) wt[k] = 0; * * (e[-5..-1] and e[40..44] are allocated by the caller, * are initially zero and are not written anywhere.) */ e -= 5; /* Compute the signal x[0..39] */ for (k = 0; k < 40; k++) { result = 8192 >> 1; /* for (i = 0; i <= 10; i++) * { * temp = saturated_mul16_32(wt[k + i], gsm_H[i]); * result = saturated_add32(result, temp); * } */ #undef STEP #define STEP(i,H) (e[k + i] * (int32_t) H) /* Every one of these multiplications is done twice, but I don't see an elegant way to optimize this. Do you? */ result += STEP( 0, -134); result += STEP( 1, -374); /* += STEP( 2, 0 ); */ result += STEP( 3, 2054); result += STEP( 4, 5741); result += STEP( 5, 8192); result += STEP( 6, 5741); result += STEP( 7, 2054); /* += STEP( 8, 0 ); */ result += STEP( 9, -374); result += STEP(10, -134); /* 2 adds vs. >> 16 => 14, minus one shift to compensate for those we lost when replacing L_MULT by '*'. */ result >>= 13; x[k] = saturate(result); } /*endfor*/ #endif } /*- End of function --------------------------------------------------------*/ /* 4.2.14 */ static void rpe_grid_selection(int16_t x[40], int16_t xM[13], int16_t *Mc_out) { int i; int32_t L_result; int32_t L_temp; int32_t EM; /* xxx should be L_EM? */ int16_t Mc; int32_t L_common_0_3; /* The signal x[0..39] is used to select the RPE grid which is represented by Mc. */ EM = 0; Mc = 0; #undef STEP #define STEP(m,i) \ L_temp = x[m + 3*i] >> 2; \ L_result += L_temp*L_temp; /* Common part of 0 and 3 */ L_result = 0; STEP(0, 1); STEP(0, 2); STEP(0, 3); STEP(0, 4); STEP(0, 5); STEP(0, 6); STEP(0, 7); STEP(0, 8); STEP(0, 9); STEP(0, 10); STEP(0, 11); STEP(0, 12); L_common_0_3 = L_result; /* i = 0 */ STEP(0, 0); L_result <<= 1; /* implicit in L_MULT */ EM = L_result; /* i = 1 */ L_result = 0; STEP(1, 0); STEP(1, 1); STEP(1, 2); STEP(1, 3); STEP(1, 4); STEP(1, 5); STEP(1, 6); STEP(1, 7); STEP(1, 8); STEP(1, 9); STEP(1, 10); STEP(1, 11); STEP(1, 12); L_result <<= 1; if (L_result > EM) { Mc = 1; EM = L_result; } /*endif*/ /* i = 2 */ L_result = 0; STEP(2, 0); STEP(2, 1); STEP(2, 2); STEP(2, 3); STEP(2, 4); STEP(2, 5); STEP(2, 6); STEP(2, 7); STEP(2, 8); STEP(2, 9); STEP(2, 10); STEP(2, 11); STEP(2, 12); L_result <<= 1; if (L_result > EM) { Mc = 2; EM = L_result; } /*endif*/ /* i = 3 */ L_result = L_common_0_3; STEP(3, 12); L_result <<= 1; if (L_result > EM) { Mc = 3; EM = L_result; } /*endif*/ /* Down-sampling by a factor 3 to get the selected xM[0..12] RPE sequence. */ for (i = 0; i < 13; i++) xM[i] = x[Mc + 3*i]; /*endfor*/ *Mc_out = Mc; } /*- End of function --------------------------------------------------------*/ /* 4.12.15 */ static void apcm_quantization_xmaxc_to_exp_mant(int16_t xmaxc, int16_t *exp_out, int16_t *mant_out) { int16_t exp; int16_t mant; /* Compute exponent and mantissa of the decoded version of xmaxc */ exp = 0; if (xmaxc > 15) exp = (int16_t) ((xmaxc >> 3) - 1); /*endif*/ mant = xmaxc - (exp << 3); if (mant == 0) { exp = -4; mant = 7; } else { while (mant <= 7) { mant = (int16_t) (mant << 1 | 1); exp--; } /*endwhile*/ mant -= 8; } /*endif*/ assert(exp >= -4 && exp <= 6); assert(mant >= 0 && mant <= 7); *exp_out = exp; *mant_out = mant; } /*- End of function --------------------------------------------------------*/ static void apcm_quantization(int16_t xM[13], int16_t xMc[13], int16_t *mant_out, int16_t *exp_out, int16_t *xmaxc_out) { /* Table 4.5 Normalized inverse mantissa used to compute xM/xmax */ static const int16_t gsm_NRFAC[8] = { 29128, 26215, 23832, 21846, 20165, 18725, 17476, 16384 }; int i; int itest; int16_t xmax; int16_t xmaxc; int16_t temp; int16_t temp1; int16_t temp2; int16_t exp; int16_t mant; /* Find the maximum absolute value xmax of xM[0..12]. */ xmax = 0; for (i = 0; i < 13; i++) { temp = xM[i]; temp = saturated_abs16(temp); if (temp > xmax) xmax = temp; /*endif*/ } /*endfor*/ /* Quantizing and coding of xmax to get xmaxc. */ exp = 0; temp = xmax >> 9; itest = 0; for (i = 0; i <= 5; i++) { itest |= (temp <= 0); temp >>= 1; assert(exp <= 5); if (itest == 0) exp++; /*endif*/ } /*endfor*/ assert(exp <= 6 && exp >= 0); temp = (int16_t) (exp + 5); assert(temp <= 11 && temp >= 0); xmaxc = saturated_add16((xmax >> temp), exp << 3); /* Quantizing and coding of the xM[0..12] RPE sequence to get the xMc[0..12] */ apcm_quantization_xmaxc_to_exp_mant(xmaxc, &exp, &mant); /* This computation uses the fact that the decoded version of xmaxc can be calculated by using the exponent and the mantissa part of xmaxc (logarithmic table). So, this method avoids any division and uses only a scaling of the RPE samples by a function of the exponent. A direct multiplication by the inverse of the mantissa (NRFAC[0..7] found in table 4.5) gives the 3 bit coded version xMc[0..12] of the RPE samples. */ /* Direct computation of xMc[0..12] using table 4.5 */ assert(exp <= 4096 && exp >= -4096); assert(mant >= 0 && mant <= 7); temp1 = (int16_t) (6 - exp); /* Normalization by the exponent */ temp2 = gsm_NRFAC[mant]; /* Inverse mantissa */ for (i = 0; i < 13; i++) { assert(temp1 >= 0 && temp1 < 16); temp = xM[i] << temp1; temp = saturated_mul16(temp, temp2); temp >>= 12; xMc[i] = (int16_t) (temp + 4); /* See note below */ } /*endfor*/ /* NOTE: This equation is used to make all the xMc[i] positive. */ *mant_out = mant; *exp_out = exp; *xmaxc_out = xmaxc; } /*- End of function --------------------------------------------------------*/ /* 4.2.16 */ static void apcm_inverse_quantization(int16_t xMc[13], int16_t mant, int16_t exp, int16_t xMp[13]) { /* Table 4.6 Normalized direct mantissa used to compute xM/xmax */ static const int16_t gsm_FAC[8] = { 18431, 20479, 22527, 24575, 26623, 28671, 30719, 32767 }; int i; int16_t temp; int16_t temp1; int16_t temp2; int16_t temp3; /* This part is for decoding the RPE sequence of coded xMc[0..12] samples to obtain the xMp[0..12] array. Table 4.6 is used to get the mantissa of xmaxc (FAC[0..7]). */ #if 0 assert(mant >= 0 && mant <= 7); #endif temp1 = gsm_FAC[mant]; /* See 4.2-15 for mant */ temp2 = saturated_sub16(6, exp); /* See 4.2-15 for exp */ temp3 = gsm_asl(1, saturated_sub16(temp2, 1)); for (i = 0; i < 13; i++) { assert(xMc[i] >= 0 && xMc[i] <= 7); /* 3 bit unsigned */ temp = (int16_t) ((xMc[i] << 1) - 7); /* Restore sign */ assert(temp <= 7 && temp >= -7); /* 4 bit signed */ temp <<= 12; /* 16 bit signed */ temp = gsm_mult_r(temp1, temp); temp = saturated_add16(temp, temp3); xMp[i] = gsm_asr(temp, temp2); } /*endfor*/ } /*- End of function --------------------------------------------------------*/ /* 4.2.17 */ static void rpe_grid_positioning(int16_t Mc, int16_t xMp[13], int16_t ep[40]) { int i = 13; /* This procedure computes the reconstructed long term residual signal ep[0..39] for the LTP analysis filter. The inputs are the Mc which is the grid position selection and the xMp[0..12] decoded RPE samples which are upsampled by a factor of 3 by inserting zero values. */ assert(0 <= Mc && Mc <= 3); switch (Mc) { case 3: *ep++ = 0; case 2: do { *ep++ = 0; case 1: *ep++ = 0; case 0: *ep++ = *xMp++; } while (--i); } /*endswitch*/ while (++Mc < 4) *ep++ = 0; /*endwhile*/ } /*- End of function --------------------------------------------------------*/ void gsm0610_rpe_encoding(gsm0610_state_t *s, int16_t *e, // [-5..-1][0..39][40..44] int16_t *xmaxc, int16_t *Mc, int16_t xMc[13]) { int16_t x[40]; int16_t xM[13]; int16_t xMp[13]; int16_t mant; int16_t exp; weighting_filter(x, e); rpe_grid_selection(x, xM, Mc); apcm_quantization(xM, xMc, &mant, &exp, xmaxc); apcm_inverse_quantization(xMc, mant, exp, xMp); rpe_grid_positioning(*Mc, xMp, e); } /*- End of function --------------------------------------------------------*/ void gsm0610_rpe_decoding(gsm0610_state_t *s, int16_t xmaxc, int16_t Mcr, int16_t xMcr[13], int16_t erp[40]) { int16_t exp; int16_t mant; int16_t xMp[13]; apcm_quantization_xmaxc_to_exp_mant(xmaxc, &exp, &mant); apcm_inverse_quantization(xMcr, mant, exp, xMp); rpe_grid_positioning(Mcr, xMp, erp); } /*- End of function --------------------------------------------------------*/ /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/testcpuid.c0000664000175000017500000001307111422612263015537 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * testcpuid.c - Check the CPU type, to identify special features, like SSE. * * Written by Steve Underwood * Stitched together from bits of testing code found here and there * * Copyright (C) 2004 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \file */ #if defined(HAVE_CONFIG_H) #include "config.h" #endif #include /* Make this file just disappear if we are not on an x86 machine */ #if defined(__i386__) // || defined(__x86_64__) #define X86_EFLAGS_CF 0x00000001 /* Carry Flag */ #define X86_EFLAGS_PF 0x00000004 /* Parity Flag */ #define X86_EFLAGS_AF 0x00000010 /* Auxillary carry Flag */ #define X86_EFLAGS_ZF 0x00000040 /* Zero Flag */ #define X86_EFLAGS_SF 0x00000080 /* Sign Flag */ #define X86_EFLAGS_TF 0x00000100 /* Trap Flag */ #define X86_EFLAGS_IF 0x00000200 /* Interrupt Flag */ #define X86_EFLAGS_DF 0x00000400 /* Direction Flag */ #define X86_EFLAGS_OF 0x00000800 /* Overflow Flag */ #define X86_EFLAGS_IOPL 0x00003000 /* IOPL mask */ #define X86_EFLAGS_NT 0x00004000 /* Nested Task */ #define X86_EFLAGS_RF 0x00010000 /* Resume Flag */ #define X86_EFLAGS_VM 0x00020000 /* Virtual Mode */ #define X86_EFLAGS_AC 0x00040000 /* Alignment Check */ #define X86_EFLAGS_VIF 0x00080000 /* Virtual Interrupt Flag */ #define X86_EFLAGS_VIP 0x00100000 /* Virtual Interrupt Pending */ #define X86_EFLAGS_ID 0x00200000 /* CPUID detection flag */ /* Standard macro to see if a specific flag is changeable */ static __inline__ int flag_is_changeable_p(uint32_t flag) { uint32_t f1; uint32_t f2; __asm__ __volatile__ ( " pushfl\n" " pushfl\n" " popl %0\n" " movl %0,%1\n" " xorl %2,%0\n" " pushl %0\n" " popfl\n" " pushfl\n" " popl %0\n" " popfl\n" : "=&r" (f1), "=&r" (f2) : "ir" (flag)); return ((f1^f2) & flag) != 0; } /*- End of function --------------------------------------------------------*/ /* Probe for the CPUID instruction */ static int have_cpuid_p(void) { return flag_is_changeable_p(X86_EFLAGS_ID); } /*- End of function --------------------------------------------------------*/ int has_MMX(void) { int result; if (!have_cpuid_p()) return 0; /*endif*/ __asm__ __volatile__ ( " push %%ebx;\n" " mov $1,%%eax;\n" " cpuid;\n" " xor %%eax,%%eax;\n" " test $0x800000,%%edx;\n" " jz 1f;\n" /* no MMX support */ " inc %%eax;\n" /* MMX support */ "1:\n" " pop %%ebx;\n" : "=a" (result) : : "ecx", "edx"); return result; } /*- End of function --------------------------------------------------------*/ int has_SIMD(void) { int result; if (!have_cpuid_p()) return 0; /*endif*/ __asm__ __volatile__ ( " push %%ebx;\n" " mov $1,%%eax;\n" " cpuid;\n" " xor %%eax,%%eax;\n" " test $0x02000000,%%edx;\n" " jz 1f;\n" /* no SIMD support */ " inc %%eax;\n" /* SIMD support */ "1:\n" " pop %%ebx;\n" : "=a" (result) : : "ecx", "edx"); return result; } /*- End of function --------------------------------------------------------*/ int has_SIMD2(void) { int result; if (!have_cpuid_p()) return 0; /*endif*/ __asm__ __volatile__ ( " push %%ebx;\n" " mov $1,%%eax;\n" " cpuid;\n" " xor %%eax,%%eax;\n" " test $0x04000000,%%edx;\n" " jz 1f;\n" /* no SIMD2 support */ " inc %%eax;\n" /* SIMD2 support */ "1:\n" " pop %%ebx;\n" : "=a" (result) : : "ecx", "edx"); return result; } /*- End of function --------------------------------------------------------*/ int has_3DNow(void) { int result; if (!have_cpuid_p()) return 0; /*endif*/ __asm__ __volatile__ ( " push %%ebx;\n" " mov $0x80000000,%%eax;\n" " cpuid;\n" " xor %%ecx,%%ecx;\n" " cmp $0x80000000,%%eax;\n" " jbe 1f;\n" /* no extended MSR(1), so no 3DNow! */ " mov $0x80000001,%%eax;\n" " cpuid;\n" " xor %%ecx,%%ecx;\n" " test $0x80000000,%%edx;\n" " jz 1f;\n" /* no 3DNow! support */ " inc %%ecx;\n" /* 3DNow! support */ "1:\n" " pop %%ebx;\n" : "=c" (result) : : "eax", "edx"); return result; } /*- End of function --------------------------------------------------------*/ #if defined(TESTBED) int main(int argc, char *argv[]) { int result; result = has_MMX(); printf("MMX is %x\n", result); result = has_SIMD(); printf("SIMD is %x\n", result); result = has_SIMD2(); printf("SIMD2 is %x\n", result); result = has_3DNow(); printf("3DNow is %x\n", result); return 0; } /*- End of function --------------------------------------------------------*/ #endif #endif /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/dtmf.c0000664000175000017500000004565111422612261014474 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * dtmf.c - DTMF generation and detection. * * Written by Steve Underwood * * Copyright (C) 2001-2003, 2005, 2006 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \file */ #if defined(HAVE_CONFIG_H) #include "config.h" #endif #include #include #if defined(HAVE_TGMATH_H) #include #endif #if defined(HAVE_MATH_H) #include #endif #include "floating_fudge.h" #include #include #include #include #include "spandsp/telephony.h" #include "spandsp/fast_convert.h" #include "spandsp/queue.h" #include "spandsp/complex.h" #include "spandsp/dds.h" #include "spandsp/tone_detect.h" #include "spandsp/tone_generate.h" #include "spandsp/super_tone_rx.h" #include "spandsp/dtmf.h" #include "spandsp/private/queue.h" #include "spandsp/private/tone_generate.h" #include "spandsp/private/dtmf.h" #define DEFAULT_DTMF_TX_LEVEL -10 #define DEFAULT_DTMF_TX_ON_TIME 50 #define DEFAULT_DTMF_TX_OFF_TIME 55 #if defined(SPANDSP_USE_FIXED_POINT) #define DTMF_THRESHOLD 10438 /* -42dBm0 */ #define DTMF_NORMAL_TWIST 6.309f /* 8dB */ #define DTMF_REVERSE_TWIST 2.512f /* 4dB */ #define DTMF_RELATIVE_PEAK_ROW 6.309f /* 8dB */ #define DTMF_RELATIVE_PEAK_COL 6.309f /* 8dB */ #define DTMF_TO_TOTAL_ENERGY 83.868f /* -0.85dB */ #define DTMF_POWER_OFFSET 68.251f /* 10*log(256.0*256.0*DTMF_SAMPLES_PER_BLOCK) */ #define DTMF_SAMPLES_PER_BLOCK 102 #else #define DTMF_THRESHOLD 171032462.0f /* -42dBm0 [((DTMF_SAMPLES_PER_BLOCK*32768.0/1.4142)*10^((-42 - DBM0_MAX_SINE_POWER)/20.0))^2 => 171032462.0] */ #define DTMF_NORMAL_TWIST 6.309f /* 8dB [10^(8/10) => 6.309] */ #define DTMF_REVERSE_TWIST 2.512f /* 4dB */ #define DTMF_RELATIVE_PEAK_ROW 6.309f /* 8dB */ #define DTMF_RELATIVE_PEAK_COL 6.309f /* 8dB */ #define DTMF_TO_TOTAL_ENERGY 83.868f /* -0.85dB [DTMF_SAMPLES_PER_BLOCK*10^(-0.85/10.0)] */ #define DTMF_POWER_OFFSET 110.395f /* 10*log(32768.0*32768.0*DTMF_SAMPLES_PER_BLOCK) */ #define DTMF_SAMPLES_PER_BLOCK 102 #endif static const float dtmf_row[] = { 697.0f, 770.0f, 852.0f, 941.0f }; static const float dtmf_col[] = { 1209.0f, 1336.0f, 1477.0f, 1633.0f }; static const char dtmf_positions[] = "123A" "456B" "789C" "*0#D"; static goertzel_descriptor_t dtmf_detect_row[4]; static goertzel_descriptor_t dtmf_detect_col[4]; static int dtmf_tx_inited = FALSE; static tone_gen_descriptor_t dtmf_digit_tones[16]; SPAN_DECLARE(int) dtmf_rx(dtmf_rx_state_t *s, const int16_t amp[], int samples) { #if defined(SPANDSP_USE_FIXED_POINT) int32_t row_energy[4]; int32_t col_energy[4]; int16_t xamp; float famp; #else float row_energy[4]; float col_energy[4]; float xamp; float famp; #endif float v1; int i; int j; int sample; int best_row; int best_col; int limit; uint8_t hit; hit = 0; for (sample = 0; sample < samples; sample = limit) { /* The block length is optimised to meet the DTMF specs. */ if ((samples - sample) >= (DTMF_SAMPLES_PER_BLOCK - s->current_sample)) limit = sample + (DTMF_SAMPLES_PER_BLOCK - s->current_sample); else limit = samples; /* The following unrolled loop takes only 35% (rough estimate) of the time of a rolled loop on the machine on which it was developed */ for (j = sample; j < limit; j++) { xamp = amp[j]; if (s->filter_dialtone) { famp = xamp; /* Sharp notches applied at 350Hz and 440Hz - the two common dialtone frequencies. These are rather high Q, to achieve the required narrowness, without using lots of sections. */ v1 = 0.98356f*famp + 1.8954426f*s->z350[0] - 0.9691396f*s->z350[1]; famp = v1 - 1.9251480f*s->z350[0] + s->z350[1]; s->z350[1] = s->z350[0]; s->z350[0] = v1; v1 = 0.98456f*famp + 1.8529543f*s->z440[0] - 0.9691396f*s->z440[1]; famp = v1 - 1.8819938f*s->z440[0] + s->z440[1]; s->z440[1] = s->z440[0]; s->z440[0] = v1; xamp = famp; } xamp = goertzel_preadjust_amp(xamp); #if defined(SPANDSP_USE_FIXED_POINT) s->energy += ((int32_t) xamp*xamp); #else s->energy += xamp*xamp; #endif goertzel_samplex(&s->row_out[0], xamp); goertzel_samplex(&s->col_out[0], xamp); goertzel_samplex(&s->row_out[1], xamp); goertzel_samplex(&s->col_out[1], xamp); goertzel_samplex(&s->row_out[2], xamp); goertzel_samplex(&s->col_out[2], xamp); goertzel_samplex(&s->row_out[3], xamp); goertzel_samplex(&s->col_out[3], xamp); } s->current_sample += (limit - sample); if (s->current_sample < DTMF_SAMPLES_PER_BLOCK) continue; /* We are at the end of a DTMF detection block */ /* Find the peak row and the peak column */ row_energy[0] = goertzel_result(&s->row_out[0]); best_row = 0; col_energy[0] = goertzel_result(&s->col_out[0]); best_col = 0; for (i = 1; i < 4; i++) { row_energy[i] = goertzel_result(&s->row_out[i]); if (row_energy[i] > row_energy[best_row]) best_row = i; col_energy[i] = goertzel_result(&s->col_out[i]); if (col_energy[i] > col_energy[best_col]) best_col = i; } hit = 0; /* Basic signal level test and the twist test */ if (row_energy[best_row] >= s->threshold && col_energy[best_col] >= s->threshold && col_energy[best_col] < row_energy[best_row]*s->reverse_twist && col_energy[best_col]*s->normal_twist > row_energy[best_row]) { /* Relative peak test ... */ for (i = 0; i < 4; i++) { if ((i != best_col && col_energy[i]*DTMF_RELATIVE_PEAK_COL > col_energy[best_col]) || (i != best_row && row_energy[i]*DTMF_RELATIVE_PEAK_ROW > row_energy[best_row])) { break; } } /* ... and fraction of total energy test */ if (i >= 4 && (row_energy[best_row] + col_energy[best_col]) > DTMF_TO_TOTAL_ENERGY*s->energy) { /* Got a hit */ hit = dtmf_positions[(best_row << 2) + best_col]; } } /* The logic in the next test should ensure the following for different successive hit patterns: -----ABB = start of digit B. ----B-BB = start of digit B ----A-BB = start of digit B BBBBBABB = still in digit B. BBBBBB-- = end of digit B BBBBBBC- = end of digit B BBBBACBB = B ends, then B starts again. BBBBBBCC = B ends, then C starts. BBBBBCDD = B ends, then D starts. This can work with: - Back to back differing digits. Back-to-back digits should not happen. The spec. says there should be a gap between digits. However, many real phones do not impose a gap, and rolling across the keypad can produce little or no gap. - It tolerates nasty phones that give a very wobbly start to a digit. - VoIP can give sample slips. The phase jumps that produces will cause the block it is in to give no detection. This logic will ride over a single missed block, and not falsely declare a second digit. If the hiccup happens in the wrong place on a minimum length digit, however we would still fail to detect that digit. Could anything be done to deal with that? Packet loss is clearly a no-go zone. Note this is only relevant to VoIP using A-law, u-law or similar. Low bit rate codecs scramble DTMF too much for it to be recognised, and often slip in units larger than a sample. */ if (hit != s->in_digit) { if (s->last_hit != s->in_digit) { /* We have two successive indications that something has changed. */ /* To declare digit on, the hits must agree. Otherwise we declare tone off. */ hit = (hit && hit == s->last_hit) ? hit : 0; if (s->realtime_callback) { /* Avoid reporting multiple no digit conditions on flaky hits */ if (s->in_digit || hit) { i = (s->in_digit && !hit) ? -99 : lfastrintf(log10f(s->energy)*10.0f - DTMF_POWER_OFFSET + DBM0_MAX_POWER); s->realtime_callback(s->realtime_callback_data, hit, i, 0); } } else { if (hit) { if (s->current_digits < MAX_DTMF_DIGITS) { s->digits[s->current_digits++] = (char) hit; s->digits[s->current_digits] = '\0'; if (s->digits_callback) { s->digits_callback(s->digits_callback_data, s->digits, s->current_digits); s->current_digits = 0; } } else { s->lost_digits++; } } } s->in_digit = hit; } } s->last_hit = hit; #if defined(SPANDSP_USE_FIXED_POINT) s->energy = 0; #else s->energy = 0.0f; #endif s->current_sample = 0; } if (s->current_digits && s->digits_callback) { s->digits_callback(s->digits_callback_data, s->digits, s->current_digits); s->digits[0] = '\0'; s->current_digits = 0; } return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) dtmf_rx_status(dtmf_rx_state_t *s) { if (s->in_digit) return s->in_digit; if (s->last_hit) return 'x'; return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(size_t) dtmf_rx_get(dtmf_rx_state_t *s, char *buf, int max) { if (max > s->current_digits) max = s->current_digits; if (max > 0) { memcpy(buf, s->digits, max); memmove(s->digits, s->digits + max, s->current_digits - max); s->current_digits -= max; } buf[max] = '\0'; return max; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) dtmf_rx_set_realtime_callback(dtmf_rx_state_t *s, tone_report_func_t callback, void *user_data) { s->realtime_callback = callback; s->realtime_callback_data = user_data; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) dtmf_rx_parms(dtmf_rx_state_t *s, int filter_dialtone, int twist, int reverse_twist, int threshold) { float x; if (filter_dialtone >= 0) { s->z350[0] = 0.0f; s->z350[1] = 0.0f; s->z440[0] = 0.0f; s->z440[1] = 0.0f; s->filter_dialtone = filter_dialtone; } if (twist >= 0) s->normal_twist = powf(10.0f, twist/10.0f); if (reverse_twist >= 0) s->reverse_twist = powf(10.0f, reverse_twist/10.0f); if (threshold > -99) { x = (DTMF_SAMPLES_PER_BLOCK*32768.0f/1.4142f)*powf(10.0f, (threshold - DBM0_MAX_SINE_POWER)/20.0f); s->threshold = x*x; } } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(dtmf_rx_state_t *) dtmf_rx_init(dtmf_rx_state_t *s, digits_rx_callback_t callback, void *user_data) { int i; static int initialised = FALSE; if (s == NULL) { if ((s = (dtmf_rx_state_t *) malloc(sizeof (*s))) == NULL) return NULL; } s->digits_callback = callback; s->digits_callback_data = user_data; s->realtime_callback = NULL; s->realtime_callback_data = NULL; s->filter_dialtone = FALSE; s->normal_twist = DTMF_NORMAL_TWIST; s->reverse_twist = DTMF_REVERSE_TWIST; s->threshold = DTMF_THRESHOLD; s->in_digit = 0; s->last_hit = 0; if (!initialised) { for (i = 0; i < 4; i++) { make_goertzel_descriptor(&dtmf_detect_row[i], dtmf_row[i], DTMF_SAMPLES_PER_BLOCK); make_goertzel_descriptor(&dtmf_detect_col[i], dtmf_col[i], DTMF_SAMPLES_PER_BLOCK); } initialised = TRUE; } for (i = 0; i < 4; i++) { goertzel_init(&s->row_out[i], &dtmf_detect_row[i]); goertzel_init(&s->col_out[i], &dtmf_detect_col[i]); } #if defined(SPANDSP_USE_FIXED_POINT) s->energy = 0; #else s->energy = 0.0f; #endif s->current_sample = 0; s->lost_digits = 0; s->current_digits = 0; s->digits[0] = '\0'; return s; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) dtmf_rx_release(dtmf_rx_state_t *s) { return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) dtmf_rx_free(dtmf_rx_state_t *s) { free(s); return 0; } /*- End of function --------------------------------------------------------*/ static void dtmf_tx_initialise(void) { int row; int col; if (dtmf_tx_inited) return; for (row = 0; row < 4; row++) { for (col = 0; col < 4; col++) { tone_gen_descriptor_init(&dtmf_digit_tones[row*4 + col], (int) dtmf_row[row], DEFAULT_DTMF_TX_LEVEL, (int) dtmf_col[col], DEFAULT_DTMF_TX_LEVEL, DEFAULT_DTMF_TX_ON_TIME, DEFAULT_DTMF_TX_OFF_TIME, 0, 0, FALSE); } } dtmf_tx_inited = TRUE; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) dtmf_tx(dtmf_tx_state_t *s, int16_t amp[], int max_samples) { int len; const char *cp; int digit; len = 0; if (s->tones.current_section >= 0) { /* Deal with the fragment left over from last time */ len = tone_gen(&(s->tones), amp, max_samples); } while (len < max_samples && (digit = queue_read_byte(&s->queue.queue)) >= 0) { /* Step to the next digit */ if (digit == 0) continue; if ((cp = strchr(dtmf_positions, digit)) == NULL) continue; tone_gen_init(&(s->tones), &dtmf_digit_tones[cp - dtmf_positions]); s->tones.tone[0].gain = s->low_level; s->tones.tone[1].gain = s->high_level; s->tones.duration[0] = s->on_time; s->tones.duration[1] = s->off_time; len += tone_gen(&(s->tones), amp + len, max_samples - len); } return len; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) dtmf_tx_put(dtmf_tx_state_t *s, const char *digits, int len) { size_t space; /* This returns the number of characters that would not fit in the buffer. The buffer will only be loaded if the whole string of digits will fit, in which case zero is returned. */ if (len < 0) { if ((len = strlen(digits)) == 0) return 0; } if ((space = queue_free_space(&s->queue.queue)) < (size_t) len) return len - (int) space; if (queue_write(&s->queue.queue, (const uint8_t *) digits, len) >= 0) return 0; return -1; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) dtmf_tx_set_level(dtmf_tx_state_t *s, int level, int twist) { s->low_level = dds_scaling_dbm0f((float) level); s->high_level = dds_scaling_dbm0f((float) (level + twist)); } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) dtmf_tx_set_timing(dtmf_tx_state_t *s, int on_time, int off_time) { s->on_time = ((on_time >= 0) ? on_time : DEFAULT_DTMF_TX_ON_TIME)*SAMPLE_RATE/1000; s->off_time = ((off_time >= 0) ? off_time : DEFAULT_DTMF_TX_OFF_TIME)*SAMPLE_RATE/1000; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(dtmf_tx_state_t *) dtmf_tx_init(dtmf_tx_state_t *s) { if (s == NULL) { if ((s = (dtmf_tx_state_t *) malloc(sizeof (*s))) == NULL) return NULL; } if (!dtmf_tx_inited) dtmf_tx_initialise(); tone_gen_init(&(s->tones), &dtmf_digit_tones[0]); dtmf_tx_set_level(s, DEFAULT_DTMF_TX_LEVEL, 0); dtmf_tx_set_timing(s, -1, -1); queue_init(&s->queue.queue, MAX_DTMF_DIGITS, QUEUE_READ_ATOMIC | QUEUE_WRITE_ATOMIC); s->tones.current_section = -1; return s; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) dtmf_tx_release(dtmf_tx_state_t *s) { return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) dtmf_tx_free(dtmf_tx_state_t *s) { free(s); return 0; } /*- End of function --------------------------------------------------------*/ /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/gsm0610_decode.c0000664000175000017500000002256611422612261016142 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * gsm0610_decode.c - GSM 06.10 full rate speech codec. * * Written by Steve Underwood * * Copyright (C) 2006 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. * * This code is based on the widely used GSM 06.10 code available from * http://kbs.cs.tu-berlin.de/~jutta/toast.html */ /*! \file */ #if defined(HAVE_CONFIG_H) #include "config.h" #endif #include #include #if defined(HAVE_TGMATH_H) #include #endif #if defined(HAVE_MATH_H) #include #endif #include "floating_fudge.h" #include #include #include "spandsp/telephony.h" #include "spandsp/fast_convert.h" #include "spandsp/bitstream.h" #include "spandsp/saturated.h" #include "spandsp/gsm0610.h" #include "gsm0610_local.h" /* 4.3 FIXED POINT IMPLEMENTATION OF THE RPE-LTP DECODER */ static void postprocessing(gsm0610_state_t *s, int16_t amp[]) { int k; int16_t msr; int16_t tmp; msr = s->msr; for (k = 0; k < GSM0610_FRAME_LEN; k++) { tmp = gsm_mult_r(msr, 28180); /* De-emphasis */ msr = saturated_add16(amp[k], tmp); /* Truncation & upscaling */ amp[k] = (int16_t) (saturated_add16(msr, msr) & 0xFFF8); } /*endfor*/ s->msr = msr; } /*- End of function --------------------------------------------------------*/ static void decode_a_frame(gsm0610_state_t *s, int16_t amp[GSM0610_FRAME_LEN], gsm0610_frame_t *f) { int j; int k; int16_t erp[40]; int16_t wt[GSM0610_FRAME_LEN]; int16_t *drp; drp = s->dp0 + 120; for (j = 0; j < 4; j++) { gsm0610_rpe_decoding(s, f->xmaxc[j], f->Mc[j], f->xMc[j], erp); gsm0610_long_term_synthesis_filtering(s, f->Nc[j], f->bc[j], erp, drp); for (k = 0; k < 40; k++) wt[j*40 + k] = drp[k]; /*endfor*/ } /*endfor*/ gsm0610_short_term_synthesis_filter(s, f->LARc, wt, amp); postprocessing(s, amp); } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) gsm0610_unpack_none(gsm0610_frame_t *s, const uint8_t c[]) { int i; int j; int k; i = 0; for (j = 0; j < 8; j++) s->LARc[j] = c[i++]; for (j = 0; j < 4; j++) { s->Nc[j] = c[i++]; s->bc[j] = c[i++]; s->Mc[j] = c[i++]; s->xmaxc[j] = c[i++]; for (k = 0; k < 13; k++) s->xMc[j][k] = c[i++]; } return 76; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) gsm0610_unpack_wav49(gsm0610_frame_t *s, const uint8_t c[]) { uint16_t sr; int i; sr = *c++; s->LARc[0] = sr & 0x3F; sr >>= 6; sr |= (uint16_t) *c++ << 2; s->LARc[1] = sr & 0x3F; sr >>= 6; sr |= (uint16_t) *c++ << 4; s->LARc[2] = sr & 0x1F; sr >>= 5; s->LARc[3] = sr & 0x1F; sr >>= 5; sr |= (uint16_t) *c++ << 2; s->LARc[4] = sr & 0xF; sr >>= 4; s->LARc[5] = sr & 0xF; sr >>= 4; sr |= (uint16_t) *c++ << 2; s->LARc[6] = sr & 0x7; sr >>= 3; s->LARc[7] = sr & 0x7; sr >>= 3; for (i = 0; i < 4; i++) { sr |= (uint16_t) *c++ << 4; s->Nc[i] = sr & 0x7F; sr >>= 7; s->bc[i] = sr & 0x3; sr >>= 2; s->Mc[i] = sr & 0x3; sr >>= 2; sr |= (uint16_t) *c++ << 1; s->xmaxc[i] = sr & 0x3F; sr >>= 6; s->xMc[i][0] = sr & 0x7; sr >>= 3; sr = *c++; s->xMc[i][1] = sr & 0x7; sr >>= 3; s->xMc[i][2] = sr & 0x7; sr >>= 3; sr |= (uint16_t) *c++ << 2; s->xMc[i][3] = sr & 0x7; sr >>= 3; s->xMc[i][4] = sr & 0x7; sr >>= 3; s->xMc[i][5] = sr & 0x7; sr >>= 3; sr |= (uint16_t) *c++ << 1; s->xMc[i][6] = sr & 0x7; sr >>= 3; s->xMc[i][7] = sr & 0x7; sr >>= 3; s->xMc[i][8] = sr & 0x7; sr >>= 3; sr = *c++; s->xMc[i][9] = sr & 0x7; sr >>= 3; s->xMc[i][10] = sr & 0x7; sr >>= 3; sr |= (uint16_t) *c++ << 2; s->xMc[i][11] = sr & 0x7; sr >>= 3; s->xMc[i][12] = sr & 0x7; sr >>= 3; } s++; sr |= (uint16_t) *c++ << 4; s->LARc[0] = sr & 0x3F; sr >>= 6; s->LARc[1] = sr & 0x3F; sr >>= 6; sr = *c++; s->LARc[2] = sr & 0x1F; sr >>= 5; sr |= (uint16_t) *c++ << 3; s->LARc[3] = sr & 0x1F; sr >>= 5; s->LARc[4] = sr & 0xF; sr >>= 4; sr |= (uint16_t) *c++ << 2; s->LARc[5] = sr & 0xF; sr >>= 4; s->LARc[6] = sr & 0x7; sr >>= 3; s->LARc[7] = sr & 0x7; sr >>= 3; for (i = 0; i < 4; i++) { sr = *c++; s->Nc[i] = sr & 0x7F; sr >>= 7; sr |= (uint16_t) *c++ << 1; s->bc[i] = sr & 0x3; sr >>= 2; s->Mc[i] = sr & 0x3; sr >>= 2; sr |= (uint16_t) *c++ << 5; s->xmaxc[i] = sr & 0x3F; sr >>= 6; s->xMc[i][0] = sr & 0x7; sr >>= 3; s->xMc[i][1] = sr & 0x7; sr >>= 3; sr |= (uint16_t) *c++ << 1; s->xMc[i][2] = sr & 0x7; sr >>= 3; s->xMc[i][3] = sr & 0x7; sr >>= 3; s->xMc[i][4] = sr & 0x7; sr >>= 3; sr = *c++; s->xMc[i][5] = sr & 0x7; sr >>= 3; s->xMc[i][6] = sr & 0x7; sr >>= 3; sr |= (uint16_t) *c++ << 2; s->xMc[i][7] = sr & 0x7; sr >>= 3; s->xMc[i][8] = sr & 0x7; sr >>= 3; s->xMc[i][9] = sr & 0x7; sr >>= 3; sr |= (uint16_t) *c++ << 1; s->xMc[i][10] = sr & 0x7; sr >>= 3; s->xMc[i][11] = sr & 0x7; sr >>= 3; s->xMc[i][12] = sr & 0x7; sr >>= 3; } return 65; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) gsm0610_unpack_voip(gsm0610_frame_t *s, const uint8_t c[33]) { int i; s->LARc[0] = (*c++ & 0xF) << 2; s->LARc[0] |= (*c >> 6) & 0x3; s->LARc[1] = *c++ & 0x3F; s->LARc[2] = (*c >> 3) & 0x1F; s->LARc[3] = (*c++ & 0x7) << 2; s->LARc[3] |= (*c >> 6) & 0x3; s->LARc[4] = (*c >> 2) & 0xF; s->LARc[5] = (*c++ & 0x3) << 2; s->LARc[5] |= (*c >> 6) & 0x3; s->LARc[6] = (*c >> 3) & 0x7; s->LARc[7] = *c++ & 0x7; for (i = 0; i < 4; i++) { s->Nc[i] = (*c >> 1) & 0x7F; s->bc[i] = (*c++ & 0x1) << 1; s->bc[i] |= (*c >> 7) & 0x1; s->Mc[i] = (*c >> 5) & 0x3; s->xmaxc[i] = (*c++ & 0x1F) << 1; s->xmaxc[i] |= (*c >> 7) & 0x1; s->xMc[i][0] = (*c >> 4) & 0x7; s->xMc[i][1] = (*c >> 1) & 0x7; s->xMc[i][2] = (*c++ & 0x1) << 2; s->xMc[i][2] |= (*c >> 6) & 0x3; s->xMc[i][3] = (*c >> 3) & 0x7; s->xMc[i][4] = *c++ & 0x7; s->xMc[i][5] = (*c >> 5) & 0x7; s->xMc[i][6] = (*c >> 2) & 0x7; s->xMc[i][7] = (*c++ & 0x3) << 1; s->xMc[i][7] |= (*c >> 7) & 0x1; s->xMc[i][8] = (*c >> 4) & 0x7; s->xMc[i][9] = (*c >> 1) & 0x7; s->xMc[i][10] = (*c++ & 0x1) << 2; s->xMc[i][10] |= (*c >> 6) & 0x3; s->xMc[i][11] = (*c >> 3) & 0x7; s->xMc[i][12] = *c++ & 0x7; } return 33; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) gsm0610_decode(gsm0610_state_t *s, int16_t amp[], const uint8_t code[], int len) { gsm0610_frame_t frame[2]; int bytes; int samples; int i; samples = 0; for (i = 0; i < len; i += bytes) { switch (s->packing) { default: case GSM0610_PACKING_NONE: if ((bytes = gsm0610_unpack_none(frame, &code[i])) < 0) return 0; decode_a_frame(s, &[samples], frame); samples += GSM0610_FRAME_LEN; break; case GSM0610_PACKING_WAV49: if ((bytes = gsm0610_unpack_wav49(frame, &code[i])) < 0) return 0; decode_a_frame(s, &[samples], frame); samples += GSM0610_FRAME_LEN; decode_a_frame(s, &[samples], frame + 1); samples += GSM0610_FRAME_LEN; break; case GSM0610_PACKING_VOIP: if ((bytes = gsm0610_unpack_voip(frame, &code[i])) < 0) return 0; decode_a_frame(s, &[samples], frame); samples += GSM0610_FRAME_LEN; break; } /*endswitch*/ } /*endfor*/ return samples; } /*- End of function --------------------------------------------------------*/ /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/g711.c0000664000175000017500000001555511422612261014221 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * g711.c - A-law and u-law transcoding routines * * Written by Steve Underwood * * Copyright (C) 2006 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \file */ #if defined(HAVE_CONFIG_H) #include "config.h" #endif #include #include #include #include #include "spandsp/telephony.h" #include "spandsp/bit_operations.h" #include "spandsp/g711.h" #include "spandsp/private/g711.h" /* Copied from the CCITT G.711 specification */ static const uint8_t ulaw_to_alaw_table[256] = { 42, 43, 40, 41, 46, 47, 44, 45, 34, 35, 32, 33, 38, 39, 36, 37, 58, 59, 56, 57, 62, 63, 60, 61, 50, 51, 48, 49, 54, 55, 52, 53, 10, 11, 8, 9, 14, 15, 12, 13, 2, 3, 0, 1, 6, 7, 4, 26, 27, 24, 25, 30, 31, 28, 29, 18, 19, 16, 17, 22, 23, 20, 21, 106, 104, 105, 110, 111, 108, 109, 98, 99, 96, 97, 102, 103, 100, 101, 122, 120, 126, 127, 124, 125, 114, 115, 112, 113, 118, 119, 116, 117, 75, 73, 79, 77, 66, 67, 64, 65, 70, 71, 68, 69, 90, 91, 88, 89, 94, 95, 92, 93, 82, 82, 83, 83, 80, 80, 81, 81, 86, 86, 87, 87, 84, 84, 85, 85, 170, 171, 168, 169, 174, 175, 172, 173, 162, 163, 160, 161, 166, 167, 164, 165, 186, 187, 184, 185, 190, 191, 188, 189, 178, 179, 176, 177, 182, 183, 180, 181, 138, 139, 136, 137, 142, 143, 140, 141, 130, 131, 128, 129, 134, 135, 132, 154, 155, 152, 153, 158, 159, 156, 157, 146, 147, 144, 145, 150, 151, 148, 149, 234, 232, 233, 238, 239, 236, 237, 226, 227, 224, 225, 230, 231, 228, 229, 250, 248, 254, 255, 252, 253, 242, 243, 240, 241, 246, 247, 244, 245, 203, 201, 207, 205, 194, 195, 192, 193, 198, 199, 196, 197, 218, 219, 216, 217, 222, 223, 220, 221, 210, 210, 211, 211, 208, 208, 209, 209, 214, 214, 215, 215, 212, 212, 213, 213 }; /* These transcoding tables are copied from the CCITT G.711 specification. To achieve optimal results, do not change them. */ static const uint8_t alaw_to_ulaw_table[256] = { 42, 43, 40, 41, 46, 47, 44, 45, 34, 35, 32, 33, 38, 39, 36, 37, 57, 58, 55, 56, 61, 62, 59, 60, 49, 50, 47, 48, 53, 54, 51, 52, 10, 11, 8, 9, 14, 15, 12, 13, 2, 3, 0, 1, 6, 7, 4, 5, 26, 27, 24, 25, 30, 31, 28, 29, 18, 19, 16, 17, 22, 23, 20, 21, 98, 99, 96, 97, 102, 103, 100, 101, 93, 93, 92, 92, 95, 95, 94, 94, 116, 118, 112, 114, 124, 126, 120, 122, 106, 107, 104, 105, 110, 111, 108, 109, 72, 73, 70, 71, 76, 77, 74, 75, 64, 65, 63, 63, 68, 69, 66, 67, 86, 87, 84, 85, 90, 91, 88, 89, 79, 79, 78, 78, 82, 83, 80, 81, 170, 171, 168, 169, 174, 175, 172, 173, 162, 163, 160, 161, 166, 167, 164, 165, 185, 186, 183, 184, 189, 190, 187, 188, 177, 178, 175, 176, 181, 182, 179, 180, 138, 139, 136, 137, 142, 143, 140, 141, 130, 131, 128, 129, 134, 135, 132, 133, 154, 155, 152, 153, 158, 159, 156, 157, 146, 147, 144, 145, 150, 151, 148, 149, 226, 227, 224, 225, 230, 231, 228, 229, 221, 221, 220, 220, 223, 223, 222, 222, 244, 246, 240, 242, 252, 254, 248, 250, 234, 235, 232, 233, 238, 239, 236, 237, 200, 201, 198, 199, 204, 205, 202, 203, 192, 193, 191, 191, 196, 197, 194, 195, 214, 215, 212, 213, 218, 219, 216, 217, 207, 207, 206, 206, 210, 211, 208, 209 }; SPAN_DECLARE(uint8_t) alaw_to_ulaw(uint8_t alaw) { return alaw_to_ulaw_table[alaw]; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(uint8_t) ulaw_to_alaw(uint8_t ulaw) { return ulaw_to_alaw_table[ulaw]; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) g711_decode(g711_state_t *s, int16_t amp[], const uint8_t g711_data[], int g711_bytes) { int i; if (s->mode == G711_ALAW) { for (i = 0; i < g711_bytes; i++) amp[i] = alaw_to_linear(g711_data[i]); /*endfor*/ } else { for (i = 0; i < g711_bytes; i++) amp[i] = ulaw_to_linear(g711_data[i]); /*endfor*/ } /*endif*/ return g711_bytes; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) g711_encode(g711_state_t *s, uint8_t g711_data[], const int16_t amp[], int len) { int i; if (s->mode == G711_ALAW) { for (i = 0; i < len; i++) g711_data[i] = linear_to_alaw(amp[i]); /*endfor*/ } else { for (i = 0; i < len; i++) g711_data[i] = linear_to_ulaw(amp[i]); /*endfor*/ } /*endif*/ return len; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) g711_transcode(g711_state_t *s, uint8_t g711_out[], const uint8_t g711_in[], int g711_bytes) { int i; if (s->mode == G711_ALAW) { for (i = 0; i < g711_bytes; i++) g711_out[i] = alaw_to_ulaw_table[g711_in[i]]; /*endfor*/ } else { for (i = 0; i < g711_bytes; i++) g711_out[i] = ulaw_to_alaw_table[g711_in[i]]; /*endfor*/ } /*endif*/ return g711_bytes; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(g711_state_t *) g711_init(g711_state_t *s, int mode) { if (s == NULL) { if ((s = (g711_state_t *) malloc(sizeof(*s))) == NULL) return NULL; } s->mode = mode; return s; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) g711_release(g711_state_t *s) { return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) g711_free(g711_state_t *s) { free(s); return 0; } /*- End of function --------------------------------------------------------*/ /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/Makefile.in0000664000175000017500000013524711516506032015446 0ustar steveusteveu# Makefile.in generated by automake 1.9.6 from Makefile.am. # @configure_input@ # Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, # 2003, 2004, 2005 Free Software Foundation, Inc. # This Makefile.in is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY, to the extent permitted by law; without # even the implied warranty of MERCHANTABILITY or FITNESS FOR A # PARTICULAR PURPOSE. @SET_MAKE@ srcdir = @srcdir@ top_srcdir = @top_srcdir@ VPATH = @srcdir@ pkgdatadir = $(datadir)/@PACKAGE@ pkglibdir = $(libdir)/@PACKAGE@ pkgincludedir = $(includedir)/@PACKAGE@ top_builddir = .. am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd INSTALL = @INSTALL@ install_sh_DATA = $(install_sh) -c -m 644 install_sh_PROGRAM = $(install_sh) -c install_sh_SCRIPT = $(install_sh) -c INSTALL_HEADER = $(INSTALL_DATA) transform = $(program_transform_name) NORMAL_INSTALL = : PRE_INSTALL = : POST_INSTALL = : NORMAL_UNINSTALL = : PRE_UNINSTALL = : POST_UNINSTALL = : build_triplet = @build@ host_triplet = @host@ subdir = src DIST_COMMON = $(nobase_include_HEADERS) $(noinst_HEADERS) \ $(srcdir)/Makefile.am $(srcdir)/Makefile.in \ $(srcdir)/spandsp.h.in $(top_srcdir)/config-h.in ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 am__aclocal_m4_deps = $(top_srcdir)/config/ax_compiler_vendor.m4 \ $(top_srcdir)/config/ax_check_real_file.m4 \ $(top_srcdir)/config/ax_fixed_point_machine.m4 \ $(top_srcdir)/config/ax_misaligned_access_fails.m4 \ $(top_srcdir)/config/ax_c99_features.m4 \ $(top_srcdir)/config/ax_check_export_capability.m4 \ $(top_srcdir)/configure.ac am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \ $(ACLOCAL_M4) mkinstalldirs = $(install_sh) -d CONFIG_HEADER = config.h CONFIG_CLEAN_FILES = spandsp.h am__vpath_adj_setup = srcdirstrip=`echo "$(srcdir)" | sed 's|.|.|g'`; am__vpath_adj = case $$p in \ $(srcdir)/*) f=`echo "$$p" | sed "s|^$$srcdirstrip/||"`;; \ *) f=$$p;; \ esac; am__strip_dir = `echo $$p | sed -e 's|^.*/||'`; am__installdirs = "$(DESTDIR)$(libdir)" "$(DESTDIR)$(includedir)" \ "$(DESTDIR)$(includedir)" libLTLIBRARIES_INSTALL = $(INSTALL) LTLIBRARIES = $(lib_LTLIBRARIES) libspandsp_la_LIBADD = am_libspandsp_la_OBJECTS = adsi.lo async.lo at_interpreter.lo awgn.lo \ bell_r2_mf.lo bert.lo bit_operations.lo bitstream.lo \ complex_filters.lo complex_vector_float.lo \ complex_vector_int.lo crc.lo dds_float.lo dds_int.lo dtmf.lo \ echo.lo fax.lo fax_modems.lo fsk.lo g711.lo g722.lo g726.lo \ gsm0610_decode.lo gsm0610_encode.lo gsm0610_long_term.lo \ gsm0610_lpc.lo gsm0610_preprocess.lo gsm0610_rpe.lo \ gsm0610_short_term.lo hdlc.lo ima_adpcm.lo image_translate.lo \ logging.lo lpc10_analyse.lo lpc10_decode.lo lpc10_encode.lo \ lpc10_placev.lo lpc10_voicing.lo modem_echo.lo \ modem_connect_tones.lo noise.lo oki_adpcm.lo playout.lo plc.lo \ power_meter.lo queue.lo schedule.lo sig_tone.lo silence_gen.lo \ super_tone_rx.lo super_tone_tx.lo swept_tone.lo t4_rx.lo \ t4_tx.lo t30.lo t30_api.lo t30_logging.lo t31.lo t35.lo \ t38_core.lo t38_gateway.lo t38_non_ecm_buffer.lo \ t38_terminal.lo testcpuid.lo time_scale.lo timezone.lo \ tone_detect.lo tone_generate.lo v17rx.lo v17tx.lo v18.lo \ v22bis_rx.lo v22bis_tx.lo v27ter_rx.lo v27ter_tx.lo v29rx.lo \ v29tx.lo v42.lo v42bis.lo v8.lo vector_float.lo vector_int.lo libspandsp_la_OBJECTS = $(am_libspandsp_la_OBJECTS) DEFAULT_INCLUDES = -I. -I$(srcdir) -I. depcomp = $(SHELL) $(top_srcdir)/config/depcomp am__depfiles_maybe = depfiles COMPILE = $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) \ $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) LTCOMPILE = $(LIBTOOL) --tag=CC --mode=compile $(CC) $(DEFS) \ $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) \ $(AM_CFLAGS) $(CFLAGS) CCLD = $(CC) LINK = $(LIBTOOL) --tag=CC --mode=link $(CCLD) $(AM_CFLAGS) $(CFLAGS) \ $(AM_LDFLAGS) $(LDFLAGS) -o $@ SOURCES = $(libspandsp_la_SOURCES) DIST_SOURCES = $(libspandsp_la_SOURCES) nobase_includeHEADERS_INSTALL = $(install_sh_DATA) nodist_includeHEADERS_INSTALL = $(INSTALL_HEADER) HEADERS = $(nobase_include_HEADERS) $(nodist_include_HEADERS) \ $(noinst_HEADERS) ETAGS = etags CTAGS = ctags DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST) ACLOCAL = @ACLOCAL@ AMDEP_FALSE = @AMDEP_FALSE@ AMDEP_TRUE = @AMDEP_TRUE@ AMTAR = @AMTAR@ AR = @AR@ AUTOCONF = @AUTOCONF@ AUTOHEADER = @AUTOHEADER@ AUTOMAKE = @AUTOMAKE@ AWK = @AWK@ CC = @CC@ CCDEPMODE = @CCDEPMODE@ CC_FOR_BUILD = @CC_FOR_BUILD@ CFLAGS = @CFLAGS@ COMP_VENDOR_CFLAGS = @COMP_VENDOR_CFLAGS@ COMP_VENDOR_LDFLAGS = @COMP_VENDOR_LDFLAGS@ COND_DOC_FALSE = @COND_DOC_FALSE@ COND_DOC_TRUE = @COND_DOC_TRUE@ COND_MMX_FALSE = @COND_MMX_FALSE@ COND_MMX_TRUE = @COND_MMX_TRUE@ COND_SSE2_FALSE = @COND_SSE2_FALSE@ COND_SSE2_TRUE = @COND_SSE2_TRUE@ COND_SSE3_FALSE = @COND_SSE3_FALSE@ COND_SSE3_TRUE = @COND_SSE3_TRUE@ COND_SSE4A_FALSE = @COND_SSE4A_FALSE@ COND_SSE4A_TRUE = @COND_SSE4A_TRUE@ COND_SSE4_1_FALSE = @COND_SSE4_1_FALSE@ COND_SSE4_1_TRUE = @COND_SSE4_1_TRUE@ COND_SSE4_2_FALSE = @COND_SSE4_2_FALSE@ COND_SSE4_2_TRUE = @COND_SSE4_2_TRUE@ COND_SSE5_FALSE = @COND_SSE5_FALSE@ COND_SSE5_TRUE = @COND_SSE5_TRUE@ COND_SSE_FALSE = @COND_SSE_FALSE@ COND_SSE_TRUE = @COND_SSE_TRUE@ COND_SSSE3_FALSE = @COND_SSSE3_FALSE@ COND_SSSE3_TRUE = @COND_SSSE3_TRUE@ COND_TESTDATA_FALSE = @COND_TESTDATA_FALSE@ COND_TESTDATA_TRUE = @COND_TESTDATA_TRUE@ COND_TESTS_FALSE = @COND_TESTS_FALSE@ COND_TESTS_TRUE = @COND_TESTS_TRUE@ CPP = @CPP@ CPPFLAGS = @CPPFLAGS@ CPPFLAGS_FOR_BUILD = @CPPFLAGS_FOR_BUILD@ CXX = @CXX@ CXXCPP = @CXXCPP@ CXXDEPMODE = @CXXDEPMODE@ CXXFLAGS = @CXXFLAGS@ CYGPATH_W = @CYGPATH_W@ DEFS = @DEFS@ DEPDIR = @DEPDIR@ DSYMUTIL = @DSYMUTIL@ ECHO = @ECHO@ ECHO_C = @ECHO_C@ ECHO_N = @ECHO_N@ ECHO_T = @ECHO_T@ EGREP = @EGREP@ EXEEXT = @EXEEXT@ F77 = @F77@ FFLAGS = @FFLAGS@ INSERT_INTTYPES_HEADER = @INSERT_INTTYPES_HEADER@ INSERT_MATH_HEADER = @INSERT_MATH_HEADER@ INSERT_STDINT_HEADER = @INSERT_STDINT_HEADER@ INSERT_TGMATH_HEADER = @INSERT_TGMATH_HEADER@ INSTALL_DATA = @INSTALL_DATA@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ INSTALL_SCRIPT = @INSTALL_SCRIPT@ INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@ LDFLAGS = @LDFLAGS@ LIBOBJS = @LIBOBJS@ LIBS = @LIBS@ LIBTOOL = @LIBTOOL@ LN_S = @LN_S@ LTLIBOBJS = @LTLIBOBJS@ MAKEINFO = @MAKEINFO@ NMEDIT = @NMEDIT@ OBJEXT = @OBJEXT@ PACKAGE = @PACKAGE@ PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@ PACKAGE_NAME = @PACKAGE_NAME@ PACKAGE_STRING = @PACKAGE_STRING@ PACKAGE_TARNAME = @PACKAGE_TARNAME@ PACKAGE_VERSION = @PACKAGE_VERSION@ PATH_SEPARATOR = @PATH_SEPARATOR@ RANLIB = @RANLIB@ SED = @SED@ SET_MAKE = @SET_MAKE@ SHELL = @SHELL@ SIMLIBS = @SIMLIBS@ SPANDSP_LT_AGE = @SPANDSP_LT_AGE@ SPANDSP_LT_CURRENT = @SPANDSP_LT_CURRENT@ SPANDSP_LT_REVISION = @SPANDSP_LT_REVISION@ SPANDSP_MISALIGNED_ACCESS_FAILS = @SPANDSP_MISALIGNED_ACCESS_FAILS@ SPANDSP_SUPPORT_T85 = @SPANDSP_SUPPORT_T85@ SPANDSP_SUPPORT_V34 = @SPANDSP_SUPPORT_V34@ SPANDSP_USE_EXPORT_CAPABILITY = @SPANDSP_USE_EXPORT_CAPABILITY@ SPANDSP_USE_FIXED_POINT = @SPANDSP_USE_FIXED_POINT@ STRIP = @STRIP@ TESTLIBS = @TESTLIBS@ VERSION = @VERSION@ ac_ct_AR = @ac_ct_AR@ ac_ct_CC = @ac_ct_CC@ ac_ct_CXX = @ac_ct_CXX@ ac_ct_DSYMUTIL = @ac_ct_DSYMUTIL@ ac_ct_F77 = @ac_ct_F77@ ac_ct_NMEDIT = @ac_ct_NMEDIT@ ac_ct_RANLIB = @ac_ct_RANLIB@ ac_ct_STRIP = @ac_ct_STRIP@ am__fastdepCC_FALSE = @am__fastdepCC_FALSE@ am__fastdepCC_TRUE = @am__fastdepCC_TRUE@ am__fastdepCXX_FALSE = @am__fastdepCXX_FALSE@ am__fastdepCXX_TRUE = @am__fastdepCXX_TRUE@ am__include = @am__include@ am__leading_dot = @am__leading_dot@ am__quote = @am__quote@ am__tar = @am__tar@ am__untar = @am__untar@ bindir = @bindir@ build = @build@ build_alias = @build_alias@ build_cpu = @build_cpu@ build_os = @build_os@ build_vendor = @build_vendor@ datadir = @datadir@ exec_prefix = @exec_prefix@ host = @host@ host_alias = @host_alias@ host_cpu = @host_cpu@ host_os = @host_os@ host_vendor = @host_vendor@ includedir = @includedir@ infodir = @infodir@ install_sh = @install_sh@ libdir = @libdir@ libexecdir = @libexecdir@ localstatedir = @localstatedir@ mandir = @mandir@ mkdir_p = @mkdir_p@ oldincludedir = @oldincludedir@ prefix = @prefix@ program_transform_name = @program_transform_name@ sbindir = @sbindir@ sharedstatedir = @sharedstatedir@ sysconfdir = @sysconfdir@ target_alias = @target_alias@ AM_CFLAGS = $(COMP_VENDOR_CFLAGS) AM_LDFLAGS = $(COMP_VENDOR_LDFLAGS) MAINTAINERCLEANFILES = Makefile.in DISTCLEANFILES = $(srcdir)/at_interpreter_dictionary.h \ $(srcdir)/v17_v32bis_rx_fixed_rrc.h \ $(srcdir)/v17_v32bis_rx_floating_rrc.h \ $(srcdir)/v17_v32bis_tx_fixed_rrc.h \ $(srcdir)/v17_v32bis_tx_floating_rrc.h \ $(srcdir)/v22bis_rx_1200_fixed_rrc.h \ $(srcdir)/v22bis_rx_2400_fixed_rrc.h \ $(srcdir)/v22bis_rx_1200_floating_rrc.h \ $(srcdir)/v22bis_rx_2400_floating_rrc.h \ $(srcdir)/v22bis_tx_fixed_rrc.h \ $(srcdir)/v22bis_tx_floating_rrc.h \ $(srcdir)/v27ter_rx_2400_fixed_rrc.h \ $(srcdir)/v27ter_rx_4800_fixed_rrc.h \ $(srcdir)/v27ter_rx_2400_floating_rrc.h \ $(srcdir)/v27ter_rx_4800_floating_rrc.h \ $(srcdir)/v27ter_tx_2400_fixed_rrc.h \ $(srcdir)/v27ter_tx_4800_fixed_rrc.h \ $(srcdir)/v27ter_tx_2400_floating_rrc.h \ $(srcdir)/v27ter_tx_4800_floating_rrc.h \ $(srcdir)/v29rx_fixed_rrc.h \ $(srcdir)/v29rx_floating_rrc.h \ $(srcdir)/v29tx_fixed_rrc.h \ $(srcdir)/v29tx_floating_rrc.h EXTRA_DIST = floating_fudge.h \ libspandsp.dsp \ libspandsp.2005.sln \ libspandsp.2008.sln \ libspandsp.2005.vcproj \ libspandsp.2008.vcproj \ libtiff.2005.vcproj \ libtiff.2008.vcproj \ filter_tools.c \ make_at_dictionary.c \ make_modem_filter.c \ msvc/config.h \ msvc/Download_TIFF.2005.vcproj \ msvc/Download_TIFF.2008.vcproj \ msvc/getopt.c \ msvc/gettimeofday.c \ msvc/inttypes.h \ msvc/make_at_dictionary.2005.vcproj \ msvc/make_at_dictionary.2008.vcproj \ msvc/make_modem_filter.2005.vcproj \ msvc/make_modem_filter.2008.vcproj \ msvc/msvcproj.head \ msvc/msvcproj.foot \ msvc/spandsp.h \ msvc/tgmath.h \ msvc/tiff/cleancount \ msvc/unistd.h \ msvc/util.vbs \ msvc/vc8proj.foot \ msvc/vc8proj.head \ msvc/vc9proj.foot \ msvc/vc9proj.head \ msvc/sys/time.h \ spandsp/private/README \ spandsp/version.h.in INCLUDES = -I$(top_builddir) lib_LTLIBRARIES = libspandsp.la libspandsp_la_SOURCES = adsi.c \ async.c \ at_interpreter.c \ awgn.c \ bell_r2_mf.c \ bert.c \ bit_operations.c \ bitstream.c \ complex_filters.c \ complex_vector_float.c \ complex_vector_int.c \ crc.c \ dds_float.c \ dds_int.c \ dtmf.c \ echo.c \ fax.c \ fax_modems.c \ fsk.c \ g711.c \ g722.c \ g726.c \ gsm0610_decode.c \ gsm0610_encode.c \ gsm0610_long_term.c \ gsm0610_lpc.c \ gsm0610_preprocess.c \ gsm0610_rpe.c \ gsm0610_short_term.c \ hdlc.c \ ima_adpcm.c \ image_translate.c \ logging.c \ lpc10_analyse.c \ lpc10_decode.c \ lpc10_encode.c \ lpc10_placev.c \ lpc10_voicing.c \ modem_echo.c \ modem_connect_tones.c \ noise.c \ oki_adpcm.c \ playout.c \ plc.c \ power_meter.c \ queue.c \ schedule.c \ sig_tone.c \ silence_gen.c \ super_tone_rx.c \ super_tone_tx.c \ swept_tone.c \ t4_rx.c \ t4_tx.c \ t30.c \ t30_api.c \ t30_logging.c \ t31.c \ t35.c \ t38_core.c \ t38_gateway.c \ t38_non_ecm_buffer.c \ t38_terminal.c \ testcpuid.c \ time_scale.c \ timezone.c \ tone_detect.c \ tone_generate.c \ v17rx.c \ v17tx.c \ v18.c \ v22bis_rx.c \ v22bis_tx.c \ v27ter_rx.c \ v27ter_tx.c \ v29rx.c \ v29tx.c \ v42.c \ v42bis.c \ v8.c \ vector_float.c \ vector_int.c libspandsp_la_LDFLAGS = -version-info @SPANDSP_LT_CURRENT@:@SPANDSP_LT_REVISION@:@SPANDSP_LT_AGE@ $(COMP_VENDOR_LDFLAGS) nobase_include_HEADERS = spandsp/adsi.h \ spandsp/async.h \ spandsp/arctan2.h \ spandsp/at_interpreter.h \ spandsp/awgn.h \ spandsp/bell_r2_mf.h \ spandsp/bert.h \ spandsp/biquad.h \ spandsp/bit_operations.h \ spandsp/bitstream.h \ spandsp/crc.h \ spandsp/complex.h \ spandsp/complex_filters.h \ spandsp/complex_vector_float.h \ spandsp/complex_vector_int.h \ spandsp/dc_restore.h \ spandsp/dds.h \ spandsp/dtmf.h \ spandsp/echo.h \ spandsp/fast_convert.h \ spandsp/fax.h \ spandsp/fax_modems.h \ spandsp/fir.h \ spandsp/fsk.h \ spandsp/g168models.h \ spandsp/g711.h \ spandsp/g722.h \ spandsp/g726.h \ spandsp/gsm0610.h \ spandsp/hdlc.h \ spandsp/ima_adpcm.h \ spandsp/image_translate.h \ spandsp/logging.h \ spandsp/lpc10.h \ spandsp/modem_echo.h \ spandsp/modem_connect_tones.h \ spandsp/noise.h \ spandsp/oki_adpcm.h \ spandsp/playout.h \ spandsp/plc.h \ spandsp/power_meter.h \ spandsp/queue.h \ spandsp/saturated.h \ spandsp/schedule.h \ spandsp/sig_tone.h \ spandsp/silence_gen.h \ spandsp/super_tone_rx.h \ spandsp/super_tone_tx.h \ spandsp/swept_tone.h \ spandsp/t30.h \ spandsp/t30_api.h \ spandsp/t30_fcf.h \ spandsp/t30_logging.h \ spandsp/t31.h \ spandsp/t35.h \ spandsp/t38_core.h \ spandsp/t38_gateway.h \ spandsp/t38_non_ecm_buffer.h \ spandsp/t38_terminal.h \ spandsp/t4_rx.h \ spandsp/t4_tx.h \ spandsp/t4_t6_decode.h \ spandsp/t4_t6_encode.h \ spandsp/telephony.h \ spandsp/time_scale.h \ spandsp/timezone.h \ spandsp/timing.h \ spandsp/tone_detect.h \ spandsp/tone_generate.h \ spandsp/v17rx.h \ spandsp/v17tx.h \ spandsp/v18.h \ spandsp/v22bis.h \ spandsp/v27ter_rx.h \ spandsp/v27ter_tx.h \ spandsp/v29rx.h \ spandsp/v29tx.h \ spandsp/v42.h \ spandsp/v42bis.h \ spandsp/v8.h \ spandsp/vector_float.h \ spandsp/vector_int.h \ spandsp/version.h \ spandsp/private/adsi.h \ spandsp/private/async.h \ spandsp/private/at_interpreter.h \ spandsp/private/awgn.h \ spandsp/private/bell_r2_mf.h \ spandsp/private/bert.h \ spandsp/private/bitstream.h \ spandsp/private/dtmf.h \ spandsp/private/echo.h \ spandsp/private/fax.h \ spandsp/private/fax_modems.h \ spandsp/private/fsk.h \ spandsp/private/g711.h \ spandsp/private/g722.h \ spandsp/private/g726.h \ spandsp/private/gsm0610.h \ spandsp/private/hdlc.h \ spandsp/private/ima_adpcm.h \ spandsp/private/image_translate.h \ spandsp/private/logging.h \ spandsp/private/lpc10.h \ spandsp/private/modem_connect_tones.h \ spandsp/private/modem_echo.h \ spandsp/private/noise.h \ spandsp/private/oki_adpcm.h \ spandsp/private/queue.h \ spandsp/private/schedule.h \ spandsp/private/sig_tone.h \ spandsp/private/silence_gen.h \ spandsp/private/super_tone_rx.h \ spandsp/private/super_tone_tx.h \ spandsp/private/swept_tone.h \ spandsp/private/t30.h \ spandsp/private/t30_dis_dtc_dcs_bits.h \ spandsp/private/t31.h \ spandsp/private/t38_core.h \ spandsp/private/t38_gateway.h \ spandsp/private/t38_non_ecm_buffer.h \ spandsp/private/t38_terminal.h \ spandsp/private/t4_rx.h \ spandsp/private/t4_tx.h \ spandsp/private/t4_t6_decode.h \ spandsp/private/t4_t6_encode.h \ spandsp/private/time_scale.h \ spandsp/private/timezone.h \ spandsp/private/tone_detect.h \ spandsp/private/tone_generate.h \ spandsp/private/v17rx.h \ spandsp/private/v17tx.h \ spandsp/private/v18.h \ spandsp/private/v22bis.h \ spandsp/private/v27ter_rx.h \ spandsp/private/v27ter_tx.h \ spandsp/private/v29rx.h \ spandsp/private/v29tx.h \ spandsp/private/v42.h \ spandsp/private/v42bis.h \ spandsp/private/v8.h \ spandsp/expose.h nodist_include_HEADERS = spandsp.h noinst_HEADERS = faxfont.h \ filter_tools.h \ gsm0610_local.h \ lpc10_encdecs.h \ mmx_sse_decs.h \ t30_local.h \ t4_t6_decode_states.h \ v17_v32bis_rx_constellation_maps.h \ v17_v32bis_tx_constellation_maps.h \ v29tx_constellation_maps.h V17_V32BIS_RX_INCL = v17_v32bis_rx_fixed_rrc.h \ v17_v32bis_rx_floating_rrc.h V17_V32BIS_TX_INCL = v17_v32bis_tx_fixed_rrc.h \ v17_v32bis_tx_floating_rrc.h V22BIS_RX_INCL = v22bis_rx_1200_fixed_rrc.h \ v22bis_rx_2400_fixed_rrc.h \ v22bis_rx_1200_floating_rrc.h \ v22bis_rx_2400_floating_rrc.h V22BIS_TX_INCL = v22bis_tx_fixed_rrc.h \ v22bis_tx_floating_rrc.h V27_RX_INCL = v27ter_rx_2400_fixed_rrc.h \ v27ter_rx_4800_fixed_rrc.h \ v27ter_rx_2400_floating_rrc.h \ v27ter_rx_4800_floating_rrc.h V27TER_TX_INCL = v27ter_tx_2400_fixed_rrc.h \ v27ter_tx_4800_fixed_rrc.h \ v27ter_tx_2400_floating_rrc.h \ v27ter_tx_4800_floating_rrc.h V29_RX_INCL = v29rx_fixed_rrc.h \ v29rx_floating_rrc.h V29_TX_INCL = v29tx_fixed_rrc.h \ v29tx_floating_rrc.h DSP = libspandsp.dsp VCPROJ8 = libspandsp.2005.vcproj VCPROJ9 = libspandsp.2008.vcproj WIN32SOURCES = $(libspandsp_la_SOURCES) .\\msvc\\gettimeofday.c WIN32HEADERS = $(nobase_include_HEADERS) spandsp.h DSPOUT = | awk '{printf("%s\r\n", $$0)}' >> $(DSP) VCPROJOUT8 = | awk '{printf("%s\r\n", $$0)}' >> $(VCPROJ8) VCPROJOUT9 = | awk '{printf("%s\r\n", $$0)}' >> $(VCPROJ9) all: config.h $(MAKE) $(AM_MAKEFLAGS) all-am .SUFFIXES: .SUFFIXES: .c .lo .o .obj $(srcdir)/Makefile.in: $(srcdir)/Makefile.am $(am__configure_deps) @for dep in $?; do \ case '$(am__configure_deps)' in \ *$$dep*) \ cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh \ && exit 0; \ exit 1;; \ esac; \ done; \ echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu src/Makefile'; \ cd $(top_srcdir) && \ $(AUTOMAKE) --gnu src/Makefile .PRECIOUS: Makefile Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status @case '$?' in \ *config.status*) \ cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \ *) \ echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \ esac; $(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(top_srcdir)/configure: $(am__configure_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(ACLOCAL_M4): $(am__aclocal_m4_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh config.h: stamp-h1 @if test ! -f $@; then \ rm -f stamp-h1; \ $(MAKE) stamp-h1; \ else :; fi stamp-h1: $(top_srcdir)/config-h.in $(top_builddir)/config.status @rm -f stamp-h1 cd $(top_builddir) && $(SHELL) ./config.status src/config.h $(top_srcdir)/config-h.in: $(am__configure_deps) cd $(top_srcdir) && $(AUTOHEADER) rm -f stamp-h1 touch $@ distclean-hdr: -rm -f config.h stamp-h1 spandsp.h: $(top_builddir)/config.status $(srcdir)/spandsp.h.in cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ install-libLTLIBRARIES: $(lib_LTLIBRARIES) @$(NORMAL_INSTALL) test -z "$(libdir)" || $(mkdir_p) "$(DESTDIR)$(libdir)" @list='$(lib_LTLIBRARIES)'; for p in $$list; do \ if test -f $$p; then \ f=$(am__strip_dir) \ echo " $(LIBTOOL) --mode=install $(libLTLIBRARIES_INSTALL) $(INSTALL_STRIP_FLAG) '$$p' '$(DESTDIR)$(libdir)/$$f'"; \ $(LIBTOOL) --mode=install $(libLTLIBRARIES_INSTALL) $(INSTALL_STRIP_FLAG) "$$p" "$(DESTDIR)$(libdir)/$$f"; \ else :; fi; \ done uninstall-libLTLIBRARIES: @$(NORMAL_UNINSTALL) @set -x; list='$(lib_LTLIBRARIES)'; for p in $$list; do \ p=$(am__strip_dir) \ echo " $(LIBTOOL) --mode=uninstall rm -f '$(DESTDIR)$(libdir)/$$p'"; \ $(LIBTOOL) --mode=uninstall rm -f "$(DESTDIR)$(libdir)/$$p"; \ done clean-libLTLIBRARIES: -test -z "$(lib_LTLIBRARIES)" || rm -f $(lib_LTLIBRARIES) @list='$(lib_LTLIBRARIES)'; for p in $$list; do \ dir="`echo $$p | sed -e 's|/[^/]*$$||'`"; \ test "$$dir" != "$$p" || dir=.; \ echo "rm -f \"$${dir}/so_locations\""; \ rm -f "$${dir}/so_locations"; \ done libspandsp.la: $(libspandsp_la_OBJECTS) $(libspandsp_la_DEPENDENCIES) $(LINK) -rpath $(libdir) $(libspandsp_la_LDFLAGS) $(libspandsp_la_OBJECTS) $(libspandsp_la_LIBADD) $(LIBS) mostlyclean-compile: -rm -f *.$(OBJEXT) distclean-compile: -rm -f *.tab.c @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/adsi.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/async.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/at_interpreter.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/awgn.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/bell_r2_mf.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/bert.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/bit_operations.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/bitstream.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/complex_filters.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/complex_vector_float.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/complex_vector_int.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/crc.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/dds_float.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/dds_int.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/dtmf.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/echo.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/fax.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/fax_modems.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/fsk.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/g711.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/g722.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/g726.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/gsm0610_decode.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/gsm0610_encode.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/gsm0610_long_term.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/gsm0610_lpc.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/gsm0610_preprocess.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/gsm0610_rpe.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/gsm0610_short_term.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/hdlc.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/ima_adpcm.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/image_translate.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/logging.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/lpc10_analyse.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/lpc10_decode.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/lpc10_encode.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/lpc10_placev.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/lpc10_voicing.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/modem_connect_tones.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/modem_echo.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/noise.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/oki_adpcm.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/playout.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/plc.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/power_meter.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/queue.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/schedule.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/sig_tone.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/silence_gen.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/super_tone_rx.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/super_tone_tx.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/swept_tone.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/t30.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/t30_api.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/t30_logging.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/t31.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/t35.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/t38_core.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/t38_gateway.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/t38_non_ecm_buffer.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/t38_terminal.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/t4_rx.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/t4_tx.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/testcpuid.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/time_scale.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/timezone.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/tone_detect.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/tone_generate.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/v17rx.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/v17tx.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/v18.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/v22bis_rx.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/v22bis_tx.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/v27ter_rx.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/v27ter_tx.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/v29rx.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/v29tx.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/v42.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/v42bis.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/v8.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/vector_float.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/vector_int.Plo@am__quote@ .c.o: @am__fastdepCC_TRUE@ if $(COMPILE) -MT $@ -MD -MP -MF "$(DEPDIR)/$*.Tpo" -c -o $@ $<; \ @am__fastdepCC_TRUE@ then mv -f "$(DEPDIR)/$*.Tpo" "$(DEPDIR)/$*.Po"; else rm -f "$(DEPDIR)/$*.Tpo"; exit 1; fi @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='$<' object='$@' libtool=no @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(COMPILE) -c $< .c.obj: @am__fastdepCC_TRUE@ if $(COMPILE) -MT $@ -MD -MP -MF "$(DEPDIR)/$*.Tpo" -c -o $@ `$(CYGPATH_W) '$<'`; \ @am__fastdepCC_TRUE@ then mv -f "$(DEPDIR)/$*.Tpo" "$(DEPDIR)/$*.Po"; else rm -f "$(DEPDIR)/$*.Tpo"; exit 1; fi @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='$<' object='$@' libtool=no @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(COMPILE) -c `$(CYGPATH_W) '$<'` .c.lo: @am__fastdepCC_TRUE@ if $(LTCOMPILE) -MT $@ -MD -MP -MF "$(DEPDIR)/$*.Tpo" -c -o $@ $<; \ @am__fastdepCC_TRUE@ then mv -f "$(DEPDIR)/$*.Tpo" "$(DEPDIR)/$*.Plo"; else rm -f "$(DEPDIR)/$*.Tpo"; exit 1; fi @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='$<' object='$@' libtool=yes @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(LTCOMPILE) -c -o $@ $< mostlyclean-libtool: -rm -f *.lo clean-libtool: -rm -rf .libs _libs distclean-libtool: -rm -f libtool uninstall-info-am: install-nobase_includeHEADERS: $(nobase_include_HEADERS) @$(NORMAL_INSTALL) test -z "$(includedir)" || $(mkdir_p) "$(DESTDIR)$(includedir)" @$(am__vpath_adj_setup) \ list='$(nobase_include_HEADERS)'; for p in $$list; do \ if test -f "$$p"; then d=; else d="$(srcdir)/"; fi; \ $(am__vpath_adj) \ echo " $(nobase_includeHEADERS_INSTALL) '$$d$$p' '$(DESTDIR)$(includedir)/$$f'"; \ $(nobase_includeHEADERS_INSTALL) "$$d$$p" "$(DESTDIR)$(includedir)/$$f"; \ done uninstall-nobase_includeHEADERS: @$(NORMAL_UNINSTALL) @$(am__vpath_adj_setup) \ list='$(nobase_include_HEADERS)'; for p in $$list; do \ $(am__vpath_adj) \ echo " rm -f '$(DESTDIR)$(includedir)/$$f'"; \ rm -f "$(DESTDIR)$(includedir)/$$f"; \ done install-nodist_includeHEADERS: $(nodist_include_HEADERS) @$(NORMAL_INSTALL) test -z "$(includedir)" || $(mkdir_p) "$(DESTDIR)$(includedir)" @list='$(nodist_include_HEADERS)'; for p in $$list; do \ if test -f "$$p"; then d=; else d="$(srcdir)/"; fi; \ f=$(am__strip_dir) \ echo " $(nodist_includeHEADERS_INSTALL) '$$d$$p' '$(DESTDIR)$(includedir)/$$f'"; \ $(nodist_includeHEADERS_INSTALL) "$$d$$p" "$(DESTDIR)$(includedir)/$$f"; \ done uninstall-nodist_includeHEADERS: @$(NORMAL_UNINSTALL) @list='$(nodist_include_HEADERS)'; for p in $$list; do \ f=$(am__strip_dir) \ echo " rm -f '$(DESTDIR)$(includedir)/$$f'"; \ rm -f "$(DESTDIR)$(includedir)/$$f"; \ done ID: $(HEADERS) $(SOURCES) $(LISP) $(TAGS_FILES) list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) ' { files[$$0] = 1; } \ END { for (i in files) print i; }'`; \ mkid -fID $$unique tags: TAGS TAGS: $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \ $(TAGS_FILES) $(LISP) tags=; \ here=`pwd`; \ list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) ' { files[$$0] = 1; } \ END { for (i in files) print i; }'`; \ if test -z "$(ETAGS_ARGS)$$tags$$unique"; then :; else \ test -n "$$unique" || unique=$$empty_fix; \ $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ $$tags $$unique; \ fi ctags: CTAGS CTAGS: $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \ $(TAGS_FILES) $(LISP) tags=; \ here=`pwd`; \ list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) ' { files[$$0] = 1; } \ END { for (i in files) print i; }'`; \ test -z "$(CTAGS_ARGS)$$tags$$unique" \ || $(CTAGS) $(CTAGSFLAGS) $(AM_CTAGSFLAGS) $(CTAGS_ARGS) \ $$tags $$unique GTAGS: here=`$(am__cd) $(top_builddir) && pwd` \ && cd $(top_srcdir) \ && gtags -i $(GTAGS_ARGS) $$here distclean-tags: -rm -f TAGS ID GTAGS GRTAGS GSYMS GPATH tags distdir: $(DISTFILES) $(mkdir_p) $(distdir)/.. $(distdir)/msvc $(distdir)/msvc/sys $(distdir)/msvc/tiff $(distdir)/spandsp $(distdir)/spandsp/private @srcdirstrip=`echo "$(srcdir)" | sed 's|.|.|g'`; \ topsrcdirstrip=`echo "$(top_srcdir)" | sed 's|.|.|g'`; \ list='$(DISTFILES)'; for file in $$list; do \ case $$file in \ $(srcdir)/*) file=`echo "$$file" | sed "s|^$$srcdirstrip/||"`;; \ $(top_srcdir)/*) file=`echo "$$file" | sed "s|^$$topsrcdirstrip/|$(top_builddir)/|"`;; \ esac; \ if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \ dir=`echo "$$file" | sed -e 's,/[^/]*$$,,'`; \ if test "$$dir" != "$$file" && test "$$dir" != "."; then \ dir="/$$dir"; \ $(mkdir_p) "$(distdir)$$dir"; \ else \ dir=''; \ fi; \ if test -d $$d/$$file; then \ if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \ cp -pR $(srcdir)/$$file $(distdir)$$dir || exit 1; \ fi; \ cp -pR $$d/$$file $(distdir)$$dir || exit 1; \ else \ test -f $(distdir)/$$file \ || cp -p $$d/$$file $(distdir)/$$file \ || exit 1; \ fi; \ done $(MAKE) $(AM_MAKEFLAGS) \ top_distdir="$(top_distdir)" distdir="$(distdir)" \ dist-hook check-am: all-am check: check-am all-am: Makefile $(LTLIBRARIES) $(HEADERS) config.h installdirs: for dir in "$(DESTDIR)$(libdir)" "$(DESTDIR)$(includedir)" "$(DESTDIR)$(includedir)"; do \ test -z "$$dir" || $(mkdir_p) "$$dir"; \ done install: install-am install-exec: install-exec-am install-data: install-data-am uninstall: uninstall-am install-am: all-am @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am installcheck: installcheck-am install-strip: $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ `test -z '$(STRIP)' || \ echo "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'"` install mostlyclean-generic: clean-generic: distclean-generic: -test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES) -test -z "$(DISTCLEANFILES)" || rm -f $(DISTCLEANFILES) maintainer-clean-generic: @echo "This command is intended for maintainers to use" @echo "it deletes files that may require special tools to rebuild." -test -z "$(MAINTAINERCLEANFILES)" || rm -f $(MAINTAINERCLEANFILES) clean: clean-am clean-am: clean-generic clean-libLTLIBRARIES clean-libtool \ mostlyclean-am distclean: distclean-am -rm -rf ./$(DEPDIR) -rm -f Makefile distclean-am: clean-am distclean-compile distclean-generic \ distclean-hdr distclean-libtool distclean-tags dvi: dvi-am dvi-am: html: html-am info: info-am info-am: install-data-am: install-nobase_includeHEADERS \ install-nodist_includeHEADERS install-exec-am: install-libLTLIBRARIES install-info: install-info-am install-man: installcheck-am: maintainer-clean: maintainer-clean-am -rm -rf ./$(DEPDIR) -rm -f Makefile maintainer-clean-am: distclean-am maintainer-clean-generic mostlyclean: mostlyclean-am mostlyclean-am: mostlyclean-compile mostlyclean-generic \ mostlyclean-libtool pdf: pdf-am pdf-am: ps: ps-am ps-am: uninstall-am: uninstall-info-am uninstall-libLTLIBRARIES \ uninstall-nobase_includeHEADERS \ uninstall-nodist_includeHEADERS .PHONY: CTAGS GTAGS all all-am check check-am clean clean-generic \ clean-libLTLIBRARIES clean-libtool ctags dist-hook distclean \ distclean-compile distclean-generic distclean-hdr \ distclean-libtool distclean-tags distdir dvi dvi-am html \ html-am info info-am install install-am install-data \ install-data-am install-exec install-exec-am install-info \ install-info-am install-libLTLIBRARIES install-man \ install-nobase_includeHEADERS install-nodist_includeHEADERS \ install-strip installcheck installcheck-am installdirs \ maintainer-clean maintainer-clean-generic mostlyclean \ mostlyclean-compile mostlyclean-generic mostlyclean-libtool \ pdf pdf-am ps ps-am tags uninstall uninstall-am \ uninstall-info-am uninstall-libLTLIBRARIES \ uninstall-nobase_includeHEADERS \ uninstall-nodist_includeHEADERS make_at_dictionary$(EXEEXT): $(top_srcdir)/src/make_at_dictionary.c $(CC_FOR_BUILD) -o make_at_dictionary$(EXEEXT) $(top_srcdir)/src/make_at_dictionary.c -DHAVE_CONFIG_H -I$(top_builddir)/src make_modem_filter$(EXEEXT): $(top_srcdir)/src/make_modem_filter.c $(top_srcdir)/src/filter_tools.c $(CC_FOR_BUILD) -o make_modem_filter$(EXEEXT) $(top_srcdir)/src/make_modem_filter.c $(top_srcdir)/src/filter_tools.c -DHAVE_CONFIG_H -I$(top_builddir)/src -lm # We need to run make_at_dictionary, so it generates the # at_interpreter_dictionary.h file at_interpreter.$(OBJEXT): at_interpreter_dictionary.h at_interpreter.lo: at_interpreter_dictionary.h at_interpreter_dictionary.h: make_at_dictionary$(EXEEXT) ./make_at_dictionary$(EXEEXT) >at_interpreter_dictionary.h t4_rx.$(OBJEXT): spandsp/version.h t4_rx.lo: spandsp/version.h v17rx.$(OBJEXT): ${V17_V32BIS_RX_INCL} v17rx.lo: ${V17_V32BIS_RX_INCL} v17_v32bis_rx_fixed_rrc.h: make_modem_filter$(EXEEXT) ./make_modem_filter$(EXEEXT) -m V.17 -i -r >v17_v32bis_rx_fixed_rrc.h v17_v32bis_rx_floating_rrc.h: make_modem_filter$(EXEEXT) ./make_modem_filter$(EXEEXT) -m V.17 -r >v17_v32bis_rx_floating_rrc.h v17tx.$(OBJEXT): ${V17_V32BIS_TX_INCL} v17tx.lo: ${V17_V32BIS_TX_INCL} v17_v32bis_tx_fixed_rrc.h: make_modem_filter$(EXEEXT) ./make_modem_filter$(EXEEXT) -m V.17 -i -t >v17_v32bis_tx_fixed_rrc.h v17_v32bis_tx_floating_rrc.h: make_modem_filter$(EXEEXT) ./make_modem_filter$(EXEEXT) -m V.17 -t >v17_v32bis_tx_floating_rrc.h v22bis_rx.$(OBJEXT): ${V22BIS_RX_INCL} v22bis_rx.lo: ${V22BIS_RX_INCL} v22bis_rx_1200_fixed_rrc.h: make_modem_filter$(EXEEXT) ./make_modem_filter$(EXEEXT) -m V.22bis1200 -i -r >v22bis_rx_1200_fixed_rrc.h v22bis_rx_2400_fixed_rrc.h: make_modem_filter$(EXEEXT) ./make_modem_filter$(EXEEXT) -m V.22bis2400 -i -r >v22bis_rx_2400_fixed_rrc.h v22bis_rx_1200_floating_rrc.h: make_modem_filter$(EXEEXT) ./make_modem_filter$(EXEEXT) -m V.22bis1200 -r >v22bis_rx_1200_floating_rrc.h v22bis_rx_2400_floating_rrc.h: make_modem_filter$(EXEEXT) ./make_modem_filter$(EXEEXT) -m V.22bis2400 -r >v22bis_rx_2400_floating_rrc.h v22bis_tx.$(OBJEXT): ${V22BIS_TX_INCL} v22bis_tx.lo: ${V22BIS_TX_INCL} v22bis_tx_fixed_rrc.h: make_modem_filter$(EXEEXT) ./make_modem_filter$(EXEEXT) -m V.22bis -i -t >v22bis_tx_fixed_rrc.h v22bis_tx_floating_rrc.h: make_modem_filter$(EXEEXT) ./make_modem_filter$(EXEEXT) -m V.22bis -t >v22bis_tx_floating_rrc.h v27ter_rx.$(OBJEXT): ${V27_RX_INCL} v27ter_rx.lo: ${V27_RX_INCL} v27ter_rx_2400_fixed_rrc.h: make_modem_filter$(EXEEXT) ./make_modem_filter$(EXEEXT) -m V.27ter2400 -i -r >v27ter_rx_2400_fixed_rrc.h v27ter_rx_4800_fixed_rrc.h: make_modem_filter$(EXEEXT) ./make_modem_filter$(EXEEXT) -m V.27ter4800 -i -r >v27ter_rx_4800_fixed_rrc.h v27ter_rx_2400_floating_rrc.h: make_modem_filter$(EXEEXT) ./make_modem_filter$(EXEEXT) -m V.27ter2400 -r >v27ter_rx_2400_floating_rrc.h v27ter_rx_4800_floating_rrc.h: make_modem_filter$(EXEEXT) ./make_modem_filter$(EXEEXT) -m V.27ter4800 -r >v27ter_rx_4800_floating_rrc.h v27ter_tx_.$(OBJEXT): ${V27TER_TX_INCL} v27ter_tx.lo: ${V27TER_TX_INCL} v27ter_tx_2400_fixed_rrc.h: make_modem_filter$(EXEEXT) ./make_modem_filter$(EXEEXT) -m V.27ter2400 -i -t >v27ter_tx_2400_fixed_rrc.h v27ter_tx_4800_fixed_rrc.h: make_modem_filter$(EXEEXT) ./make_modem_filter$(EXEEXT) -m V.27ter4800 -i -t >v27ter_tx_4800_fixed_rrc.h v27ter_tx_2400_floating_rrc.h: make_modem_filter$(EXEEXT) ./make_modem_filter$(EXEEXT) -m V.27ter2400 -t >v27ter_tx_2400_floating_rrc.h v27ter_tx_4800_floating_rrc.h: make_modem_filter$(EXEEXT) ./make_modem_filter$(EXEEXT) -m V.27ter4800 -t >v27ter_tx_4800_floating_rrc.h v29rx.$(OBJEXT): ${V29_RX_INCL} v29rx.lo: ${V29_RX_INCL} v29rx_fixed_rrc.h: make_modem_filter$(EXEEXT) ./make_modem_filter$(EXEEXT) -m V.29 -i -r >v29rx_fixed_rrc.h v29rx_floating_rrc.h: make_modem_filter$(EXEEXT) ./make_modem_filter$(EXEEXT) -m V.29 -r >v29rx_floating_rrc.h v29tx.$(OBJEXT): ${V29_TX_INCL} v29tx.lo: ${V29_TX_INCL} v29tx_fixed_rrc.h: make_modem_filter$(EXEEXT) ./make_modem_filter$(EXEEXT) -m V.29 -i -t >v29tx_fixed_rrc.h v29tx_floating_rrc.h: make_modem_filter$(EXEEXT) ./make_modem_filter$(EXEEXT) -m V.29 -t >v29tx_floating_rrc.h $(DSP): msvc/msvcproj.head msvc/msvcproj.foot Makefile.am echo "creating $(DSP)" @(cp $(srcdir)/msvc/msvcproj.head $(DSP); \ echo "# Begin Group \"Source Files\"" $(DSPOUT); \ for file in $(WIN32SOURCES); do \ echo "# Begin Source File" $(DSPOUT); \ echo "" $(DSPOUT); \ echo "SOURCE=.\\"$$file $(DSPOUT); \ echo "# End Source File" $(DSPOUT); \ done; \ echo "# End Group" $(DSPOUT); \ echo "# Begin Group \"Header Files\"" $(DSPOUT); \ for file in $(WIN32HEADERS); do \ echo "# Begin Source File" $(DSPOUT); \ echo "" $(DSPOUT); \ echo "SOURCE=.\\"$$file $(DSPOUT); \ echo "# End Source File" $(DSPOUT); \ done; \ echo "# End Group" $(DSPOUT); \ cat $(srcdir)/msvc/msvcproj.foot $(DSPOUT) ) $(VCPROJ8): msvc/vc8proj.head msvc/vc8proj.foot Makefile.am echo "creating $(VCPROJ8)" @(cp $(srcdir)/msvc/vc8proj.head $(VCPROJ8); \ for file in $(WIN32SOURCES); do \ echo "" $(VCPROJOUT8); \ done; \ echo "" $(VCPROJOUT8); \ for file in $(WIN32HEADERS); do \ echo "" $(VCPROJOUT8); \ done; \ cat $(srcdir)/msvc/vc8proj.foot $(VCPROJOUT8) ) $(VCPROJ9): msvc/vc9proj.head msvc/vc9proj.foot Makefile.am echo "creating $(VCPROJ9)" @(cp $(srcdir)/msvc/vc9proj.head $(VCPROJ9); \ for file in $(WIN32SOURCES); do \ echo "" $(VCPROJOUT9); \ done; \ echo "" $(VCPROJOUT9); \ for file in $(WIN32HEADERS); do \ echo "" $(VCPROJOUT9); \ done; \ cat $(srcdir)/msvc/vc9proj.foot $(VCPROJOUT9) ) $(srcdir)/msvc/spandsp.h: spandsp.h.in echo "creating $(srcdir)/msvc/spandsp.h" @sed -e "s/#define _SPANDSP_H_/#define _SPANDSP_H_\n\n#define __inline__ __inline\n#pragma warning(disable:4200)/" \ -e "s/\@SPANDSP_USE_FIXED_POINT\@/#undef SPANDSP_USE_FIXED_POINT/" \ -e "s/\@SPANDSP_MISALIGNED_ACCESS_FAILS\@/#undef SPANDSP_MISALIGNED_ACCESS_FAILS/" \ -e "s/\@SPANDSP_USE_EXPORT_CAPABILITY\@/#define SPANDSP_USE_EXPORT_CAPABILITY 1/" \ -e "s/\@INSERT_INTTYPES_HEADER\@/#include /" \ -e "s/\@INSERT_MATH_HEADER\@/#include /" $(srcdir)/spandsp.h.in > $(srcdir)/msvc/spandsp.h dist-hook: spandsp/version.h spandsp/version.h: mkdir -p $(@D) NOWDATE=`date --utc +"%Y%m%d"` ; \ NOWTIME=`date --utc +"%H%M%S"` ; \ sed 's/$$SPANDSP_RELEASE_DATE/'$$NOWDATE'/;s/$$SPANDSP_RELEASE_TIME/'$$NOWTIME'/' \ <$(srcdir)/spandsp/version.h.in >$@ # Tell versions [3.59,3.63) of GNU make to not export all variables. # Otherwise a system limit (for SysV at least) may be exceeded. .NOEXPORT: spandsp-0.0.6/src/Makefile.am0000664000175000017500000005347511422612261015435 0ustar steveusteveu## ## SpanDSP - a series of DSP components for telephony ## ## Makefile.am - Process this file with automake to produce Makefile.in ## ## This program is free software; you can redistribute it and/or modify ## it under the terms of the GNU Lesser General Public License version 2.1, ## as published by the Free Software Foundation. ## ## 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 Lesser General Public License for more details. ## ## You should have received a copy of the GNU Lesser General Public ## License along with this program; if not, write to the Free Software ## Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. AM_CFLAGS = $(COMP_VENDOR_CFLAGS) AM_LDFLAGS = $(COMP_VENDOR_LDFLAGS) MAINTAINERCLEANFILES = Makefile.in DISTCLEANFILES = $(srcdir)/at_interpreter_dictionary.h \ $(srcdir)/v17_v32bis_rx_fixed_rrc.h \ $(srcdir)/v17_v32bis_rx_floating_rrc.h \ $(srcdir)/v17_v32bis_tx_fixed_rrc.h \ $(srcdir)/v17_v32bis_tx_floating_rrc.h \ $(srcdir)/v22bis_rx_1200_fixed_rrc.h \ $(srcdir)/v22bis_rx_2400_fixed_rrc.h \ $(srcdir)/v22bis_rx_1200_floating_rrc.h \ $(srcdir)/v22bis_rx_2400_floating_rrc.h \ $(srcdir)/v22bis_tx_fixed_rrc.h \ $(srcdir)/v22bis_tx_floating_rrc.h \ $(srcdir)/v27ter_rx_2400_fixed_rrc.h \ $(srcdir)/v27ter_rx_4800_fixed_rrc.h \ $(srcdir)/v27ter_rx_2400_floating_rrc.h \ $(srcdir)/v27ter_rx_4800_floating_rrc.h \ $(srcdir)/v27ter_tx_2400_fixed_rrc.h \ $(srcdir)/v27ter_tx_4800_fixed_rrc.h \ $(srcdir)/v27ter_tx_2400_floating_rrc.h \ $(srcdir)/v27ter_tx_4800_floating_rrc.h \ $(srcdir)/v29rx_fixed_rrc.h \ $(srcdir)/v29rx_floating_rrc.h \ $(srcdir)/v29tx_fixed_rrc.h \ $(srcdir)/v29tx_floating_rrc.h EXTRA_DIST = floating_fudge.h \ libspandsp.dsp \ libspandsp.2005.sln \ libspandsp.2008.sln \ libspandsp.2005.vcproj \ libspandsp.2008.vcproj \ libtiff.2005.vcproj \ libtiff.2008.vcproj \ filter_tools.c \ make_at_dictionary.c \ make_modem_filter.c \ msvc/config.h \ msvc/Download_TIFF.2005.vcproj \ msvc/Download_TIFF.2008.vcproj \ msvc/getopt.c \ msvc/gettimeofday.c \ msvc/inttypes.h \ msvc/make_at_dictionary.2005.vcproj \ msvc/make_at_dictionary.2008.vcproj \ msvc/make_modem_filter.2005.vcproj \ msvc/make_modem_filter.2008.vcproj \ msvc/msvcproj.head \ msvc/msvcproj.foot \ msvc/spandsp.h \ msvc/tgmath.h \ msvc/tiff/cleancount \ msvc/unistd.h \ msvc/util.vbs \ msvc/vc8proj.foot \ msvc/vc8proj.head \ msvc/vc9proj.foot \ msvc/vc9proj.head \ msvc/sys/time.h \ spandsp/private/README \ spandsp/version.h.in INCLUDES = -I$(top_builddir) lib_LTLIBRARIES = libspandsp.la libspandsp_la_SOURCES = adsi.c \ async.c \ at_interpreter.c \ awgn.c \ bell_r2_mf.c \ bert.c \ bit_operations.c \ bitstream.c \ complex_filters.c \ complex_vector_float.c \ complex_vector_int.c \ crc.c \ dds_float.c \ dds_int.c \ dtmf.c \ echo.c \ fax.c \ fax_modems.c \ fsk.c \ g711.c \ g722.c \ g726.c \ gsm0610_decode.c \ gsm0610_encode.c \ gsm0610_long_term.c \ gsm0610_lpc.c \ gsm0610_preprocess.c \ gsm0610_rpe.c \ gsm0610_short_term.c \ hdlc.c \ ima_adpcm.c \ image_translate.c \ logging.c \ lpc10_analyse.c \ lpc10_decode.c \ lpc10_encode.c \ lpc10_placev.c \ lpc10_voicing.c \ modem_echo.c \ modem_connect_tones.c \ noise.c \ oki_adpcm.c \ playout.c \ plc.c \ power_meter.c \ queue.c \ schedule.c \ sig_tone.c \ silence_gen.c \ super_tone_rx.c \ super_tone_tx.c \ swept_tone.c \ t4_rx.c \ t4_tx.c \ t30.c \ t30_api.c \ t30_logging.c \ t31.c \ t35.c \ t38_core.c \ t38_gateway.c \ t38_non_ecm_buffer.c \ t38_terminal.c \ testcpuid.c \ time_scale.c \ timezone.c \ tone_detect.c \ tone_generate.c \ v17rx.c \ v17tx.c \ v18.c \ v22bis_rx.c \ v22bis_tx.c \ v27ter_rx.c \ v27ter_tx.c \ v29rx.c \ v29tx.c \ v42.c \ v42bis.c \ v8.c \ vector_float.c \ vector_int.c libspandsp_la_LDFLAGS = -version-info @SPANDSP_LT_CURRENT@:@SPANDSP_LT_REVISION@:@SPANDSP_LT_AGE@ $(COMP_VENDOR_LDFLAGS) nobase_include_HEADERS = spandsp/adsi.h \ spandsp/async.h \ spandsp/arctan2.h \ spandsp/at_interpreter.h \ spandsp/awgn.h \ spandsp/bell_r2_mf.h \ spandsp/bert.h \ spandsp/biquad.h \ spandsp/bit_operations.h \ spandsp/bitstream.h \ spandsp/crc.h \ spandsp/complex.h \ spandsp/complex_filters.h \ spandsp/complex_vector_float.h \ spandsp/complex_vector_int.h \ spandsp/dc_restore.h \ spandsp/dds.h \ spandsp/dtmf.h \ spandsp/echo.h \ spandsp/fast_convert.h \ spandsp/fax.h \ spandsp/fax_modems.h \ spandsp/fir.h \ spandsp/fsk.h \ spandsp/g168models.h \ spandsp/g711.h \ spandsp/g722.h \ spandsp/g726.h \ spandsp/gsm0610.h \ spandsp/hdlc.h \ spandsp/ima_adpcm.h \ spandsp/image_translate.h \ spandsp/logging.h \ spandsp/lpc10.h \ spandsp/modem_echo.h \ spandsp/modem_connect_tones.h \ spandsp/noise.h \ spandsp/oki_adpcm.h \ spandsp/playout.h \ spandsp/plc.h \ spandsp/power_meter.h \ spandsp/queue.h \ spandsp/saturated.h \ spandsp/schedule.h \ spandsp/sig_tone.h \ spandsp/silence_gen.h \ spandsp/super_tone_rx.h \ spandsp/super_tone_tx.h \ spandsp/swept_tone.h \ spandsp/t30.h \ spandsp/t30_api.h \ spandsp/t30_fcf.h \ spandsp/t30_logging.h \ spandsp/t31.h \ spandsp/t35.h \ spandsp/t38_core.h \ spandsp/t38_gateway.h \ spandsp/t38_non_ecm_buffer.h \ spandsp/t38_terminal.h \ spandsp/t4_rx.h \ spandsp/t4_tx.h \ spandsp/t4_t6_decode.h \ spandsp/t4_t6_encode.h \ spandsp/telephony.h \ spandsp/time_scale.h \ spandsp/timezone.h \ spandsp/timing.h \ spandsp/tone_detect.h \ spandsp/tone_generate.h \ spandsp/v17rx.h \ spandsp/v17tx.h \ spandsp/v18.h \ spandsp/v22bis.h \ spandsp/v27ter_rx.h \ spandsp/v27ter_tx.h \ spandsp/v29rx.h \ spandsp/v29tx.h \ spandsp/v42.h \ spandsp/v42bis.h \ spandsp/v8.h \ spandsp/vector_float.h \ spandsp/vector_int.h \ spandsp/version.h \ spandsp/private/adsi.h \ spandsp/private/async.h \ spandsp/private/at_interpreter.h \ spandsp/private/awgn.h \ spandsp/private/bell_r2_mf.h \ spandsp/private/bert.h \ spandsp/private/bitstream.h \ spandsp/private/dtmf.h \ spandsp/private/echo.h \ spandsp/private/fax.h \ spandsp/private/fax_modems.h \ spandsp/private/fsk.h \ spandsp/private/g711.h \ spandsp/private/g722.h \ spandsp/private/g726.h \ spandsp/private/gsm0610.h \ spandsp/private/hdlc.h \ spandsp/private/ima_adpcm.h \ spandsp/private/image_translate.h \ spandsp/private/logging.h \ spandsp/private/lpc10.h \ spandsp/private/modem_connect_tones.h \ spandsp/private/modem_echo.h \ spandsp/private/noise.h \ spandsp/private/oki_adpcm.h \ spandsp/private/queue.h \ spandsp/private/schedule.h \ spandsp/private/sig_tone.h \ spandsp/private/silence_gen.h \ spandsp/private/super_tone_rx.h \ spandsp/private/super_tone_tx.h \ spandsp/private/swept_tone.h \ spandsp/private/t30.h \ spandsp/private/t30_dis_dtc_dcs_bits.h \ spandsp/private/t31.h \ spandsp/private/t38_core.h \ spandsp/private/t38_gateway.h \ spandsp/private/t38_non_ecm_buffer.h \ spandsp/private/t38_terminal.h \ spandsp/private/t4_rx.h \ spandsp/private/t4_tx.h \ spandsp/private/t4_t6_decode.h \ spandsp/private/t4_t6_encode.h \ spandsp/private/time_scale.h \ spandsp/private/timezone.h \ spandsp/private/tone_detect.h \ spandsp/private/tone_generate.h \ spandsp/private/v17rx.h \ spandsp/private/v17tx.h \ spandsp/private/v18.h \ spandsp/private/v22bis.h \ spandsp/private/v27ter_rx.h \ spandsp/private/v27ter_tx.h \ spandsp/private/v29rx.h \ spandsp/private/v29tx.h \ spandsp/private/v42.h \ spandsp/private/v42bis.h \ spandsp/private/v8.h \ spandsp/expose.h nodist_include_HEADERS = spandsp.h noinst_HEADERS = faxfont.h \ filter_tools.h \ gsm0610_local.h \ lpc10_encdecs.h \ mmx_sse_decs.h \ t30_local.h \ t4_t6_decode_states.h \ v17_v32bis_rx_constellation_maps.h \ v17_v32bis_tx_constellation_maps.h \ v29tx_constellation_maps.h make_at_dictionary$(EXEEXT): $(top_srcdir)/src/make_at_dictionary.c $(CC_FOR_BUILD) -o make_at_dictionary$(EXEEXT) $(top_srcdir)/src/make_at_dictionary.c -DHAVE_CONFIG_H -I$(top_builddir)/src make_modem_filter$(EXEEXT): $(top_srcdir)/src/make_modem_filter.c $(top_srcdir)/src/filter_tools.c $(CC_FOR_BUILD) -o make_modem_filter$(EXEEXT) $(top_srcdir)/src/make_modem_filter.c $(top_srcdir)/src/filter_tools.c -DHAVE_CONFIG_H -I$(top_builddir)/src -lm # We need to run make_at_dictionary, so it generates the # at_interpreter_dictionary.h file at_interpreter.$(OBJEXT): at_interpreter_dictionary.h at_interpreter.lo: at_interpreter_dictionary.h at_interpreter_dictionary.h: make_at_dictionary$(EXEEXT) ./make_at_dictionary$(EXEEXT) >at_interpreter_dictionary.h t4_rx.$(OBJEXT): spandsp/version.h t4_rx.lo: spandsp/version.h V17_V32BIS_RX_INCL = v17_v32bis_rx_fixed_rrc.h \ v17_v32bis_rx_floating_rrc.h v17rx.$(OBJEXT): ${V17_V32BIS_RX_INCL} v17rx.lo: ${V17_V32BIS_RX_INCL} v17_v32bis_rx_fixed_rrc.h: make_modem_filter$(EXEEXT) ./make_modem_filter$(EXEEXT) -m V.17 -i -r >v17_v32bis_rx_fixed_rrc.h v17_v32bis_rx_floating_rrc.h: make_modem_filter$(EXEEXT) ./make_modem_filter$(EXEEXT) -m V.17 -r >v17_v32bis_rx_floating_rrc.h V17_V32BIS_TX_INCL = v17_v32bis_tx_fixed_rrc.h \ v17_v32bis_tx_floating_rrc.h v17tx.$(OBJEXT): ${V17_V32BIS_TX_INCL} v17tx.lo: ${V17_V32BIS_TX_INCL} v17_v32bis_tx_fixed_rrc.h: make_modem_filter$(EXEEXT) ./make_modem_filter$(EXEEXT) -m V.17 -i -t >v17_v32bis_tx_fixed_rrc.h v17_v32bis_tx_floating_rrc.h: make_modem_filter$(EXEEXT) ./make_modem_filter$(EXEEXT) -m V.17 -t >v17_v32bis_tx_floating_rrc.h V22BIS_RX_INCL = v22bis_rx_1200_fixed_rrc.h \ v22bis_rx_2400_fixed_rrc.h \ v22bis_rx_1200_floating_rrc.h \ v22bis_rx_2400_floating_rrc.h v22bis_rx.$(OBJEXT): ${V22BIS_RX_INCL} v22bis_rx.lo: ${V22BIS_RX_INCL} v22bis_rx_1200_fixed_rrc.h: make_modem_filter$(EXEEXT) ./make_modem_filter$(EXEEXT) -m V.22bis1200 -i -r >v22bis_rx_1200_fixed_rrc.h v22bis_rx_2400_fixed_rrc.h: make_modem_filter$(EXEEXT) ./make_modem_filter$(EXEEXT) -m V.22bis2400 -i -r >v22bis_rx_2400_fixed_rrc.h v22bis_rx_1200_floating_rrc.h: make_modem_filter$(EXEEXT) ./make_modem_filter$(EXEEXT) -m V.22bis1200 -r >v22bis_rx_1200_floating_rrc.h v22bis_rx_2400_floating_rrc.h: make_modem_filter$(EXEEXT) ./make_modem_filter$(EXEEXT) -m V.22bis2400 -r >v22bis_rx_2400_floating_rrc.h V22BIS_TX_INCL = v22bis_tx_fixed_rrc.h \ v22bis_tx_floating_rrc.h v22bis_tx.$(OBJEXT): ${V22BIS_TX_INCL} v22bis_tx.lo: ${V22BIS_TX_INCL} v22bis_tx_fixed_rrc.h: make_modem_filter$(EXEEXT) ./make_modem_filter$(EXEEXT) -m V.22bis -i -t >v22bis_tx_fixed_rrc.h v22bis_tx_floating_rrc.h: make_modem_filter$(EXEEXT) ./make_modem_filter$(EXEEXT) -m V.22bis -t >v22bis_tx_floating_rrc.h V27_RX_INCL = v27ter_rx_2400_fixed_rrc.h \ v27ter_rx_4800_fixed_rrc.h \ v27ter_rx_2400_floating_rrc.h \ v27ter_rx_4800_floating_rrc.h v27ter_rx.$(OBJEXT): ${V27_RX_INCL} v27ter_rx.lo: ${V27_RX_INCL} v27ter_rx_2400_fixed_rrc.h: make_modem_filter$(EXEEXT) ./make_modem_filter$(EXEEXT) -m V.27ter2400 -i -r >v27ter_rx_2400_fixed_rrc.h v27ter_rx_4800_fixed_rrc.h: make_modem_filter$(EXEEXT) ./make_modem_filter$(EXEEXT) -m V.27ter4800 -i -r >v27ter_rx_4800_fixed_rrc.h v27ter_rx_2400_floating_rrc.h: make_modem_filter$(EXEEXT) ./make_modem_filter$(EXEEXT) -m V.27ter2400 -r >v27ter_rx_2400_floating_rrc.h v27ter_rx_4800_floating_rrc.h: make_modem_filter$(EXEEXT) ./make_modem_filter$(EXEEXT) -m V.27ter4800 -r >v27ter_rx_4800_floating_rrc.h V27TER_TX_INCL = v27ter_tx_2400_fixed_rrc.h \ v27ter_tx_4800_fixed_rrc.h \ v27ter_tx_2400_floating_rrc.h \ v27ter_tx_4800_floating_rrc.h v27ter_tx_.$(OBJEXT): ${V27TER_TX_INCL} v27ter_tx.lo: ${V27TER_TX_INCL} v27ter_tx_2400_fixed_rrc.h: make_modem_filter$(EXEEXT) ./make_modem_filter$(EXEEXT) -m V.27ter2400 -i -t >v27ter_tx_2400_fixed_rrc.h v27ter_tx_4800_fixed_rrc.h: make_modem_filter$(EXEEXT) ./make_modem_filter$(EXEEXT) -m V.27ter4800 -i -t >v27ter_tx_4800_fixed_rrc.h v27ter_tx_2400_floating_rrc.h: make_modem_filter$(EXEEXT) ./make_modem_filter$(EXEEXT) -m V.27ter2400 -t >v27ter_tx_2400_floating_rrc.h v27ter_tx_4800_floating_rrc.h: make_modem_filter$(EXEEXT) ./make_modem_filter$(EXEEXT) -m V.27ter4800 -t >v27ter_tx_4800_floating_rrc.h V29_RX_INCL = v29rx_fixed_rrc.h \ v29rx_floating_rrc.h v29rx.$(OBJEXT): ${V29_RX_INCL} v29rx.lo: ${V29_RX_INCL} v29rx_fixed_rrc.h: make_modem_filter$(EXEEXT) ./make_modem_filter$(EXEEXT) -m V.29 -i -r >v29rx_fixed_rrc.h v29rx_floating_rrc.h: make_modem_filter$(EXEEXT) ./make_modem_filter$(EXEEXT) -m V.29 -r >v29rx_floating_rrc.h V29_TX_INCL = v29tx_fixed_rrc.h \ v29tx_floating_rrc.h v29tx.$(OBJEXT): ${V29_TX_INCL} v29tx.lo: ${V29_TX_INCL} v29tx_fixed_rrc.h: make_modem_filter$(EXEEXT) ./make_modem_filter$(EXEEXT) -m V.29 -i -t >v29tx_fixed_rrc.h v29tx_floating_rrc.h: make_modem_filter$(EXEEXT) ./make_modem_filter$(EXEEXT) -m V.29 -t >v29tx_floating_rrc.h DSP = libspandsp.dsp VCPROJ8 = libspandsp.2005.vcproj VCPROJ9 = libspandsp.2008.vcproj WIN32SOURCES = $(libspandsp_la_SOURCES) .\\msvc\\gettimeofday.c WIN32HEADERS = $(nobase_include_HEADERS) spandsp.h DSPOUT = | awk '{printf("%s\r\n", $$0)}' >> $(DSP) VCPROJOUT8 = | awk '{printf("%s\r\n", $$0)}' >> $(VCPROJ8) VCPROJOUT9 = | awk '{printf("%s\r\n", $$0)}' >> $(VCPROJ9) $(DSP): msvc/msvcproj.head msvc/msvcproj.foot Makefile.am echo "creating $(DSP)" @(cp $(srcdir)/msvc/msvcproj.head $(DSP); \ echo "# Begin Group \"Source Files\"" $(DSPOUT); \ for file in $(WIN32SOURCES); do \ echo "# Begin Source File" $(DSPOUT); \ echo "" $(DSPOUT); \ echo "SOURCE=.\\"$$file $(DSPOUT); \ echo "# End Source File" $(DSPOUT); \ done; \ echo "# End Group" $(DSPOUT); \ echo "# Begin Group \"Header Files\"" $(DSPOUT); \ for file in $(WIN32HEADERS); do \ echo "# Begin Source File" $(DSPOUT); \ echo "" $(DSPOUT); \ echo "SOURCE=.\\"$$file $(DSPOUT); \ echo "# End Source File" $(DSPOUT); \ done; \ echo "# End Group" $(DSPOUT); \ cat $(srcdir)/msvc/msvcproj.foot $(DSPOUT) ) $(VCPROJ8): msvc/vc8proj.head msvc/vc8proj.foot Makefile.am echo "creating $(VCPROJ8)" @(cp $(srcdir)/msvc/vc8proj.head $(VCPROJ8); \ for file in $(WIN32SOURCES); do \ echo "" $(VCPROJOUT8); \ done; \ echo "" $(VCPROJOUT8); \ for file in $(WIN32HEADERS); do \ echo "" $(VCPROJOUT8); \ done; \ cat $(srcdir)/msvc/vc8proj.foot $(VCPROJOUT8) ) $(VCPROJ9): msvc/vc9proj.head msvc/vc9proj.foot Makefile.am echo "creating $(VCPROJ9)" @(cp $(srcdir)/msvc/vc9proj.head $(VCPROJ9); \ for file in $(WIN32SOURCES); do \ echo "" $(VCPROJOUT9); \ done; \ echo "" $(VCPROJOUT9); \ for file in $(WIN32HEADERS); do \ echo "" $(VCPROJOUT9); \ done; \ cat $(srcdir)/msvc/vc9proj.foot $(VCPROJOUT9) ) $(srcdir)/msvc/spandsp.h: spandsp.h.in echo "creating $(srcdir)/msvc/spandsp.h" @sed -e "s/#define _SPANDSP_H_/#define _SPANDSP_H_\n\n#define __inline__ __inline\n#pragma warning(disable:4200)/" \ -e "s/\@SPANDSP_USE_FIXED_POINT\@/#undef SPANDSP_USE_FIXED_POINT/" \ -e "s/\@SPANDSP_MISALIGNED_ACCESS_FAILS\@/#undef SPANDSP_MISALIGNED_ACCESS_FAILS/" \ -e "s/\@SPANDSP_USE_EXPORT_CAPABILITY\@/#define SPANDSP_USE_EXPORT_CAPABILITY 1/" \ -e "s/\@INSERT_INTTYPES_HEADER\@/#include /" \ -e "s/\@INSERT_MATH_HEADER\@/#include /" $(srcdir)/spandsp.h.in > $(srcdir)/msvc/spandsp.h dist-hook: spandsp/version.h spandsp/version.h: mkdir -p $(@D) NOWDATE=`date --utc +"%Y%m%d"` ; \ NOWTIME=`date --utc +"%H%M%S"` ; \ sed 's/$$SPANDSP_RELEASE_DATE/'$$NOWDATE'/;s/$$SPANDSP_RELEASE_TIME/'$$NOWTIME'/' \ <$(srcdir)/spandsp/version.h.in >$@ spandsp-0.0.6/src/t4_t6_decode_states.h0000664000175000017500000130261711422612262017375 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * t4_t6_decode_states.h - state tables for T.4/T.6 FAX image decoding * * Written by Steve Underwood * * Copyright (C) 2004 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* Legitimate runs of zero bits which are the tail end of one code plus the start of the next code do not exceed 10 bits. */ /* Finite state machine state codes */ enum { S_Null = 0, S_Pass = 1, S_Horiz = 2, S_Vert = 3, S_Ext = 4, S_TermW = 5, S_TermB = 6, S_MakeUpW = 7, S_MakeUpB = 8, S_MakeUp = 9, S_EOL = 10 }; /*! T.4 finite state machine state table entry */ typedef struct { /*! State */ uint8_t state; /*! Width of code in bits */ uint8_t width; /*! Run length in bits */ int16_t param; } t4_table_entry_t; static const t4_table_entry_t t4_2d_table[128] = { {S_Null, 1, 0}, {S_Vert, 1, 0}, {S_Vert, 3, -1}, {S_Vert, 1, 0}, {S_Horiz, 3, 0}, {S_Vert, 1, 0}, {S_Vert, 3, 1}, {S_Vert, 1, 0}, {S_Pass, 4, 0}, {S_Vert, 1, 0}, {S_Vert, 3, -1}, {S_Vert, 1, 0}, {S_Horiz, 3, 0}, {S_Vert, 1, 0}, {S_Vert, 3, 1}, {S_Vert, 1, 0}, {S_Vert, 6, -2}, {S_Vert, 1, 0}, {S_Vert, 3, -1}, {S_Vert, 1, 0}, {S_Horiz, 3, 0}, {S_Vert, 1, 0}, {S_Vert, 3, 1}, {S_Vert, 1, 0}, {S_Pass, 4, 0}, {S_Vert, 1, 0}, {S_Vert, 3, -1}, {S_Vert, 1, 0}, {S_Horiz, 3, 0}, {S_Vert, 1, 0}, {S_Vert, 3, 1}, {S_Vert, 1, 0}, {S_Vert, 7, -3}, {S_Vert, 1, 0}, {S_Vert, 3, -1}, {S_Vert, 1, 0}, {S_Horiz, 3, 0}, {S_Vert, 1, 0}, {S_Vert, 3, 1}, {S_Vert, 1, 0}, {S_Pass, 4, 0}, {S_Vert, 1, 0}, {S_Vert, 3, -1}, {S_Vert, 1, 0}, {S_Horiz, 3, 0}, {S_Vert, 1, 0}, {S_Vert, 3, 1}, {S_Vert, 1, 0}, {S_Vert, 6, 2}, {S_Vert, 1, 0}, {S_Vert, 3, -1}, {S_Vert, 1, 0}, {S_Horiz, 3, 0}, {S_Vert, 1, 0}, {S_Vert, 3, 1}, {S_Vert, 1, 0}, {S_Pass, 4, 0}, {S_Vert, 1, 0}, {S_Vert, 3, -1}, {S_Vert, 1, 0}, {S_Horiz, 3, 0}, {S_Vert, 1, 0}, {S_Vert, 3, 1}, {S_Vert, 1, 0}, {S_Ext, 7, 0}, {S_Vert, 1, 0}, {S_Vert, 3, -1}, {S_Vert, 1, 0}, {S_Horiz, 3, 0}, {S_Vert, 1, 0}, {S_Vert, 3, 1}, {S_Vert, 1, 0}, {S_Pass, 4, 0}, {S_Vert, 1, 0}, {S_Vert, 3, -1}, {S_Vert, 1, 0}, {S_Horiz, 3, 0}, {S_Vert, 1, 0}, {S_Vert, 3, 1}, {S_Vert, 1, 0}, {S_Vert, 6, -2}, {S_Vert, 1, 0}, {S_Vert, 3, -1}, {S_Vert, 1, 0}, {S_Horiz, 3, 0}, {S_Vert, 1, 0}, {S_Vert, 3, 1}, {S_Vert, 1, 0}, {S_Pass, 4, 0}, {S_Vert, 1, 0}, {S_Vert, 3, -1}, {S_Vert, 1, 0}, {S_Horiz, 3, 0}, {S_Vert, 1, 0}, {S_Vert, 3, 1}, {S_Vert, 1, 0}, {S_Vert, 7, 3}, {S_Vert, 1, 0}, {S_Vert, 3, -1}, {S_Vert, 1, 0}, {S_Horiz, 3, 0}, {S_Vert, 1, 0}, {S_Vert, 3, 1}, {S_Vert, 1, 0}, {S_Pass, 4, 0}, {S_Vert, 1, 0}, {S_Vert, 3, -1}, {S_Vert, 1, 0}, {S_Horiz, 3, 0}, {S_Vert, 1, 0}, {S_Vert, 3, 1}, {S_Vert, 1, 0}, {S_Vert, 6, 2}, {S_Vert, 1, 0}, {S_Vert, 3, -1}, {S_Vert, 1, 0}, {S_Horiz, 3, 0}, {S_Vert, 1, 0}, {S_Vert, 3, 1}, {S_Vert, 1, 0}, {S_Pass, 4, 0}, {S_Vert, 1, 0}, {S_Vert, 3, -1}, {S_Vert, 1, 0}, {S_Horiz, 3, 0}, {S_Vert, 1, 0}, {S_Vert, 3, 1}, {S_Vert, 1, 0} }; static const t4_table_entry_t t4_1d_white_table[4096] = { {S_Null, 1, 0}, {S_TermW, 4, 3}, {S_TermW, 5, 11}, {S_TermW, 4, 5}, {S_TermW, 6, 12}, {S_TermW, 5, 9}, {S_MakeUpW, 6, 1664}, {S_TermW, 4, 6}, {S_TermW, 7, 20}, {S_MakeUpW, 5, 128}, {S_TermW, 7, 24}, {S_TermW, 6, 14}, {S_TermW, 7, 28}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 7, 23}, {S_TermW, 4, 3}, {S_TermW, 7, 27}, {S_TermW, 4, 5}, {S_TermW, 8, 39}, {S_TermW, 6, 16}, {S_MakeUpW, 8, 576}, {S_TermW, 4, 6}, {S_TermW, 7, 19}, {S_TermW, 5, 8}, {S_TermW, 8, 55}, {S_MakeUpW, 5, 64}, {S_TermW, 5, 10}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 8, 45}, {S_TermW, 4, 3}, {S_TermW, 5, 11}, {S_TermW, 4, 5}, {S_TermW, 8, 53}, {S_TermW, 5, 9}, {S_MakeUpW, 8, 448}, {S_TermW, 4, 6}, {S_TermW, 8, 35}, {S_MakeUpW, 5, 128}, {S_TermW, 8, 51}, {S_TermW, 6, 15}, {S_TermW, 8, 63}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 6, 13}, {S_TermW, 4, 3}, {S_MakeUpW, 9, 1472}, {S_TermW, 4, 5}, {S_TermW, 8, 43}, {S_TermW, 6, 17}, {S_MakeUpW, 9, 1216}, {S_TermW, 4, 6}, {S_TermW, 6, 1}, {S_TermW, 5, 8}, {S_MakeUpW, 6, 192}, {S_MakeUpW, 5, 64}, {S_TermW, 5, 10}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 8, 29}, {S_TermW, 4, 3}, {S_TermW, 5, 11}, {S_TermW, 4, 5}, {S_TermW, 6, 12}, {S_TermW, 5, 9}, {S_MakeUpW, 6, 1664}, {S_TermW, 4, 6}, {S_TermW, 8, 33}, {S_MakeUpW, 5, 128}, {S_TermW, 8, 49}, {S_TermW, 6, 14}, {S_TermW, 8, 61}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 8, 47}, {S_TermW, 4, 3}, {S_TermW, 8, 59}, {S_TermW, 4, 5}, {S_TermW, 8, 41}, {S_TermW, 6, 16}, {S_MakeUpW, 9, 960}, {S_TermW, 4, 6}, {S_TermW, 8, 31}, {S_TermW, 5, 8}, {S_TermW, 8, 57}, {S_MakeUpW, 5, 64}, {S_TermW, 5, 10}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 7, 22}, {S_TermW, 4, 3}, {S_TermW, 5, 11}, {S_TermW, 4, 5}, {S_TermW, 7, 26}, {S_TermW, 5, 9}, {S_MakeUpW, 9, 704}, {S_TermW, 4, 6}, {S_TermW, 8, 37}, {S_MakeUpW, 5, 128}, {S_TermW, 7, 25}, {S_TermW, 6, 15}, {S_MakeUpW, 8, 320}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 6, 13}, {S_TermW, 4, 3}, {S_TermW, 7, 18}, {S_TermW, 4, 5}, {S_TermW, 7, 21}, {S_TermW, 6, 17}, {S_MakeUpW, 7, 256}, {S_TermW, 4, 6}, {S_TermW, 6, 1}, {S_TermW, 5, 8}, {S_MakeUpW, 6, 192}, {S_MakeUpW, 5, 64}, {S_TermW, 5, 10}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_MakeUp, 11, 1792}, {S_TermW, 4, 3}, {S_TermW, 5, 11}, {S_TermW, 4, 5}, {S_TermW, 6, 12}, {S_TermW, 5, 9}, {S_MakeUpW, 6, 1664}, {S_TermW, 4, 6}, {S_TermW, 7, 20}, {S_MakeUpW, 5, 128}, {S_TermW, 7, 24}, {S_TermW, 6, 14}, {S_TermW, 7, 28}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 7, 23}, {S_TermW, 4, 3}, {S_TermW, 7, 27}, {S_TermW, 4, 5}, {S_TermW, 8, 40}, {S_TermW, 6, 16}, {S_MakeUpW, 9, 832}, {S_TermW, 4, 6}, {S_TermW, 7, 19}, {S_TermW, 5, 8}, {S_TermW, 8, 56}, {S_MakeUpW, 5, 64}, {S_TermW, 5, 10}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 8, 46}, {S_TermW, 4, 3}, {S_TermW, 5, 11}, {S_TermW, 4, 5}, {S_TermW, 8, 54}, {S_TermW, 5, 9}, {S_MakeUpW, 8, 512}, {S_TermW, 4, 6}, {S_TermW, 8, 36}, {S_MakeUpW, 5, 128}, {S_TermW, 8, 52}, {S_TermW, 6, 15}, {S_TermW, 8, 0}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 6, 13}, {S_TermW, 4, 3}, {S_MakeUpW, 9, 1600}, {S_TermW, 4, 5}, {S_TermW, 8, 44}, {S_TermW, 6, 17}, {S_MakeUpW, 9, 1344}, {S_TermW, 4, 6}, {S_TermW, 6, 1}, {S_TermW, 5, 8}, {S_MakeUpW, 6, 192}, {S_MakeUpW, 5, 64}, {S_TermW, 5, 10}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 8, 30}, {S_TermW, 4, 3}, {S_TermW, 5, 11}, {S_TermW, 4, 5}, {S_TermW, 6, 12}, {S_TermW, 5, 9}, {S_MakeUpW, 6, 1664}, {S_TermW, 4, 6}, {S_TermW, 8, 34}, {S_MakeUpW, 5, 128}, {S_TermW, 8, 50}, {S_TermW, 6, 14}, {S_TermW, 8, 62}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 8, 48}, {S_TermW, 4, 3}, {S_TermW, 8, 60}, {S_TermW, 4, 5}, {S_TermW, 8, 42}, {S_TermW, 6, 16}, {S_MakeUpW, 9, 1088}, {S_TermW, 4, 6}, {S_TermW, 8, 32}, {S_TermW, 5, 8}, {S_TermW, 8, 58}, {S_MakeUpW, 5, 64}, {S_TermW, 5, 10}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 7, 22}, {S_TermW, 4, 3}, {S_TermW, 5, 11}, {S_TermW, 4, 5}, {S_TermW, 7, 26}, {S_TermW, 5, 9}, {S_MakeUpW, 8, 640}, {S_TermW, 4, 6}, {S_TermW, 8, 38}, {S_MakeUpW, 5, 128}, {S_TermW, 7, 25}, {S_TermW, 6, 15}, {S_MakeUpW, 8, 384}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 6, 13}, {S_TermW, 4, 3}, {S_TermW, 7, 18}, {S_TermW, 4, 5}, {S_TermW, 7, 21}, {S_TermW, 6, 17}, {S_MakeUpW, 7, 256}, {S_TermW, 4, 6}, {S_TermW, 6, 1}, {S_TermW, 5, 8}, {S_MakeUpW, 6, 192}, {S_MakeUpW, 5, 64}, {S_TermW, 5, 10}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_Null, 1, 0}, {S_TermW, 4, 3}, {S_TermW, 5, 11}, {S_TermW, 4, 5}, {S_TermW, 6, 12}, {S_TermW, 5, 9}, {S_MakeUpW, 6, 1664}, {S_TermW, 4, 6}, {S_TermW, 7, 20}, {S_MakeUpW, 5, 128}, {S_TermW, 7, 24}, {S_TermW, 6, 14}, {S_TermW, 7, 28}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 7, 23}, {S_TermW, 4, 3}, {S_TermW, 7, 27}, {S_TermW, 4, 5}, {S_TermW, 8, 39}, {S_TermW, 6, 16}, {S_MakeUpW, 8, 576}, {S_TermW, 4, 6}, {S_TermW, 7, 19}, {S_TermW, 5, 8}, {S_TermW, 8, 55}, {S_MakeUpW, 5, 64}, {S_TermW, 5, 10}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 8, 45}, {S_TermW, 4, 3}, {S_TermW, 5, 11}, {S_TermW, 4, 5}, {S_TermW, 8, 53}, {S_TermW, 5, 9}, {S_MakeUpW, 8, 448}, {S_TermW, 4, 6}, {S_TermW, 8, 35}, {S_MakeUpW, 5, 128}, {S_TermW, 8, 51}, {S_TermW, 6, 15}, {S_TermW, 8, 63}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 6, 13}, {S_TermW, 4, 3}, {S_MakeUpW, 9, 1536}, {S_TermW, 4, 5}, {S_TermW, 8, 43}, {S_TermW, 6, 17}, {S_MakeUpW, 9, 1280}, {S_TermW, 4, 6}, {S_TermW, 6, 1}, {S_TermW, 5, 8}, {S_MakeUpW, 6, 192}, {S_MakeUpW, 5, 64}, {S_TermW, 5, 10}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 8, 29}, {S_TermW, 4, 3}, {S_TermW, 5, 11}, {S_TermW, 4, 5}, {S_TermW, 6, 12}, {S_TermW, 5, 9}, {S_MakeUpW, 6, 1664}, {S_TermW, 4, 6}, {S_TermW, 8, 33}, {S_MakeUpW, 5, 128}, {S_TermW, 8, 49}, {S_TermW, 6, 14}, {S_TermW, 8, 61}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 8, 47}, {S_TermW, 4, 3}, {S_TermW, 8, 59}, {S_TermW, 4, 5}, {S_TermW, 8, 41}, {S_TermW, 6, 16}, {S_MakeUpW, 9, 1024}, {S_TermW, 4, 6}, {S_TermW, 8, 31}, {S_TermW, 5, 8}, {S_TermW, 8, 57}, {S_MakeUpW, 5, 64}, {S_TermW, 5, 10}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 7, 22}, {S_TermW, 4, 3}, {S_TermW, 5, 11}, {S_TermW, 4, 5}, {S_TermW, 7, 26}, {S_TermW, 5, 9}, {S_MakeUpW, 9, 768}, {S_TermW, 4, 6}, {S_TermW, 8, 37}, {S_MakeUpW, 5, 128}, {S_TermW, 7, 25}, {S_TermW, 6, 15}, {S_MakeUpW, 8, 320}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 6, 13}, {S_TermW, 4, 3}, {S_TermW, 7, 18}, {S_TermW, 4, 5}, {S_TermW, 7, 21}, {S_TermW, 6, 17}, {S_MakeUpW, 7, 256}, {S_TermW, 4, 6}, {S_TermW, 6, 1}, {S_TermW, 5, 8}, {S_MakeUpW, 6, 192}, {S_MakeUpW, 5, 64}, {S_TermW, 5, 10}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_MakeUp, 11, 1856}, {S_TermW, 4, 3}, {S_TermW, 5, 11}, {S_TermW, 4, 5}, {S_TermW, 6, 12}, {S_TermW, 5, 9}, {S_MakeUpW, 6, 1664}, {S_TermW, 4, 6}, {S_TermW, 7, 20}, {S_MakeUpW, 5, 128}, {S_TermW, 7, 24}, {S_TermW, 6, 14}, {S_TermW, 7, 28}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 7, 23}, {S_TermW, 4, 3}, {S_TermW, 7, 27}, {S_TermW, 4, 5}, {S_TermW, 8, 40}, {S_TermW, 6, 16}, {S_MakeUpW, 9, 896}, {S_TermW, 4, 6}, {S_TermW, 7, 19}, {S_TermW, 5, 8}, {S_TermW, 8, 56}, {S_MakeUpW, 5, 64}, {S_TermW, 5, 10}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 8, 46}, {S_TermW, 4, 3}, {S_TermW, 5, 11}, {S_TermW, 4, 5}, {S_TermW, 8, 54}, {S_TermW, 5, 9}, {S_MakeUpW, 8, 512}, {S_TermW, 4, 6}, {S_TermW, 8, 36}, {S_MakeUpW, 5, 128}, {S_TermW, 8, 52}, {S_TermW, 6, 15}, {S_TermW, 8, 0}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 6, 13}, {S_TermW, 4, 3}, {S_MakeUpW, 9, 1728}, {S_TermW, 4, 5}, {S_TermW, 8, 44}, {S_TermW, 6, 17}, {S_MakeUpW, 9, 1408}, {S_TermW, 4, 6}, {S_TermW, 6, 1}, {S_TermW, 5, 8}, {S_MakeUpW, 6, 192}, {S_MakeUpW, 5, 64}, {S_TermW, 5, 10}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 8, 30}, {S_TermW, 4, 3}, {S_TermW, 5, 11}, {S_TermW, 4, 5}, {S_TermW, 6, 12}, {S_TermW, 5, 9}, {S_MakeUpW, 6, 1664}, {S_TermW, 4, 6}, {S_TermW, 8, 34}, {S_MakeUpW, 5, 128}, {S_TermW, 8, 50}, {S_TermW, 6, 14}, {S_TermW, 8, 62}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 8, 48}, {S_TermW, 4, 3}, {S_TermW, 8, 60}, {S_TermW, 4, 5}, {S_TermW, 8, 42}, {S_TermW, 6, 16}, {S_MakeUpW, 9, 1152}, {S_TermW, 4, 6}, {S_TermW, 8, 32}, {S_TermW, 5, 8}, {S_TermW, 8, 58}, {S_MakeUpW, 5, 64}, {S_TermW, 5, 10}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 7, 22}, {S_TermW, 4, 3}, {S_TermW, 5, 11}, {S_TermW, 4, 5}, {S_TermW, 7, 26}, {S_TermW, 5, 9}, {S_MakeUpW, 8, 640}, {S_TermW, 4, 6}, {S_TermW, 8, 38}, {S_MakeUpW, 5, 128}, {S_TermW, 7, 25}, {S_TermW, 6, 15}, {S_MakeUpW, 8, 384}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 6, 13}, {S_TermW, 4, 3}, {S_TermW, 7, 18}, {S_TermW, 4, 5}, {S_TermW, 7, 21}, {S_TermW, 6, 17}, {S_MakeUpW, 7, 256}, {S_TermW, 4, 6}, {S_TermW, 6, 1}, {S_TermW, 5, 8}, {S_MakeUpW, 6, 192}, {S_MakeUpW, 5, 64}, {S_TermW, 5, 10}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_Null, 1, 0}, {S_TermW, 4, 3}, {S_TermW, 5, 11}, {S_TermW, 4, 5}, {S_TermW, 6, 12}, {S_TermW, 5, 9}, {S_MakeUpW, 6, 1664}, {S_TermW, 4, 6}, {S_TermW, 7, 20}, {S_MakeUpW, 5, 128}, {S_TermW, 7, 24}, {S_TermW, 6, 14}, {S_TermW, 7, 28}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 7, 23}, {S_TermW, 4, 3}, {S_TermW, 7, 27}, {S_TermW, 4, 5}, {S_TermW, 8, 39}, {S_TermW, 6, 16}, {S_MakeUpW, 8, 576}, {S_TermW, 4, 6}, {S_TermW, 7, 19}, {S_TermW, 5, 8}, {S_TermW, 8, 55}, {S_MakeUpW, 5, 64}, {S_TermW, 5, 10}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 8, 45}, {S_TermW, 4, 3}, {S_TermW, 5, 11}, {S_TermW, 4, 5}, {S_TermW, 8, 53}, {S_TermW, 5, 9}, {S_MakeUpW, 8, 448}, {S_TermW, 4, 6}, {S_TermW, 8, 35}, {S_MakeUpW, 5, 128}, {S_TermW, 8, 51}, {S_TermW, 6, 15}, {S_TermW, 8, 63}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 6, 13}, {S_TermW, 4, 3}, {S_MakeUpW, 9, 1472}, {S_TermW, 4, 5}, {S_TermW, 8, 43}, {S_TermW, 6, 17}, {S_MakeUpW, 9, 1216}, {S_TermW, 4, 6}, {S_TermW, 6, 1}, {S_TermW, 5, 8}, {S_MakeUpW, 6, 192}, {S_MakeUpW, 5, 64}, {S_TermW, 5, 10}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 8, 29}, {S_TermW, 4, 3}, {S_TermW, 5, 11}, {S_TermW, 4, 5}, {S_TermW, 6, 12}, {S_TermW, 5, 9}, {S_MakeUpW, 6, 1664}, {S_TermW, 4, 6}, {S_TermW, 8, 33}, {S_MakeUpW, 5, 128}, {S_TermW, 8, 49}, {S_TermW, 6, 14}, {S_TermW, 8, 61}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 8, 47}, {S_TermW, 4, 3}, {S_TermW, 8, 59}, {S_TermW, 4, 5}, {S_TermW, 8, 41}, {S_TermW, 6, 16}, {S_MakeUpW, 9, 960}, {S_TermW, 4, 6}, {S_TermW, 8, 31}, {S_TermW, 5, 8}, {S_TermW, 8, 57}, {S_MakeUpW, 5, 64}, {S_TermW, 5, 10}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 7, 22}, {S_TermW, 4, 3}, {S_TermW, 5, 11}, {S_TermW, 4, 5}, {S_TermW, 7, 26}, {S_TermW, 5, 9}, {S_MakeUpW, 9, 704}, {S_TermW, 4, 6}, {S_TermW, 8, 37}, {S_MakeUpW, 5, 128}, {S_TermW, 7, 25}, {S_TermW, 6, 15}, {S_MakeUpW, 8, 320}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 6, 13}, {S_TermW, 4, 3}, {S_TermW, 7, 18}, {S_TermW, 4, 5}, {S_TermW, 7, 21}, {S_TermW, 6, 17}, {S_MakeUpW, 7, 256}, {S_TermW, 4, 6}, {S_TermW, 6, 1}, {S_TermW, 5, 8}, {S_MakeUpW, 6, 192}, {S_MakeUpW, 5, 64}, {S_TermW, 5, 10}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_MakeUp, 12, 2112}, {S_TermW, 4, 3}, {S_TermW, 5, 11}, {S_TermW, 4, 5}, {S_TermW, 6, 12}, {S_TermW, 5, 9}, {S_MakeUpW, 6, 1664}, {S_TermW, 4, 6}, {S_TermW, 7, 20}, {S_MakeUpW, 5, 128}, {S_TermW, 7, 24}, {S_TermW, 6, 14}, {S_TermW, 7, 28}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 7, 23}, {S_TermW, 4, 3}, {S_TermW, 7, 27}, {S_TermW, 4, 5}, {S_TermW, 8, 40}, {S_TermW, 6, 16}, {S_MakeUpW, 9, 832}, {S_TermW, 4, 6}, {S_TermW, 7, 19}, {S_TermW, 5, 8}, {S_TermW, 8, 56}, {S_MakeUpW, 5, 64}, {S_TermW, 5, 10}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 8, 46}, {S_TermW, 4, 3}, {S_TermW, 5, 11}, {S_TermW, 4, 5}, {S_TermW, 8, 54}, {S_TermW, 5, 9}, {S_MakeUpW, 8, 512}, {S_TermW, 4, 6}, {S_TermW, 8, 36}, {S_MakeUpW, 5, 128}, {S_TermW, 8, 52}, {S_TermW, 6, 15}, {S_TermW, 8, 0}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 6, 13}, {S_TermW, 4, 3}, {S_MakeUpW, 9, 1600}, {S_TermW, 4, 5}, {S_TermW, 8, 44}, {S_TermW, 6, 17}, {S_MakeUpW, 9, 1344}, {S_TermW, 4, 6}, {S_TermW, 6, 1}, {S_TermW, 5, 8}, {S_MakeUpW, 6, 192}, {S_MakeUpW, 5, 64}, {S_TermW, 5, 10}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 8, 30}, {S_TermW, 4, 3}, {S_TermW, 5, 11}, {S_TermW, 4, 5}, {S_TermW, 6, 12}, {S_TermW, 5, 9}, {S_MakeUpW, 6, 1664}, {S_TermW, 4, 6}, {S_TermW, 8, 34}, {S_MakeUpW, 5, 128}, {S_TermW, 8, 50}, {S_TermW, 6, 14}, {S_TermW, 8, 62}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 8, 48}, {S_TermW, 4, 3}, {S_TermW, 8, 60}, {S_TermW, 4, 5}, {S_TermW, 8, 42}, {S_TermW, 6, 16}, {S_MakeUpW, 9, 1088}, {S_TermW, 4, 6}, {S_TermW, 8, 32}, {S_TermW, 5, 8}, {S_TermW, 8, 58}, {S_MakeUpW, 5, 64}, {S_TermW, 5, 10}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 7, 22}, {S_TermW, 4, 3}, {S_TermW, 5, 11}, {S_TermW, 4, 5}, {S_TermW, 7, 26}, {S_TermW, 5, 9}, {S_MakeUpW, 8, 640}, {S_TermW, 4, 6}, {S_TermW, 8, 38}, {S_MakeUpW, 5, 128}, {S_TermW, 7, 25}, {S_TermW, 6, 15}, {S_MakeUpW, 8, 384}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 6, 13}, {S_TermW, 4, 3}, {S_TermW, 7, 18}, {S_TermW, 4, 5}, {S_TermW, 7, 21}, {S_TermW, 6, 17}, {S_MakeUpW, 7, 256}, {S_TermW, 4, 6}, {S_TermW, 6, 1}, {S_TermW, 5, 8}, {S_MakeUpW, 6, 192}, {S_MakeUpW, 5, 64}, {S_TermW, 5, 10}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_Null, 1, 0}, {S_TermW, 4, 3}, {S_TermW, 5, 11}, {S_TermW, 4, 5}, {S_TermW, 6, 12}, {S_TermW, 5, 9}, {S_MakeUpW, 6, 1664}, {S_TermW, 4, 6}, {S_TermW, 7, 20}, {S_MakeUpW, 5, 128}, {S_TermW, 7, 24}, {S_TermW, 6, 14}, {S_TermW, 7, 28}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 7, 23}, {S_TermW, 4, 3}, {S_TermW, 7, 27}, {S_TermW, 4, 5}, {S_TermW, 8, 39}, {S_TermW, 6, 16}, {S_MakeUpW, 8, 576}, {S_TermW, 4, 6}, {S_TermW, 7, 19}, {S_TermW, 5, 8}, {S_TermW, 8, 55}, {S_MakeUpW, 5, 64}, {S_TermW, 5, 10}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 8, 45}, {S_TermW, 4, 3}, {S_TermW, 5, 11}, {S_TermW, 4, 5}, {S_TermW, 8, 53}, {S_TermW, 5, 9}, {S_MakeUpW, 8, 448}, {S_TermW, 4, 6}, {S_TermW, 8, 35}, {S_MakeUpW, 5, 128}, {S_TermW, 8, 51}, {S_TermW, 6, 15}, {S_TermW, 8, 63}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 6, 13}, {S_TermW, 4, 3}, {S_MakeUpW, 9, 1536}, {S_TermW, 4, 5}, {S_TermW, 8, 43}, {S_TermW, 6, 17}, {S_MakeUpW, 9, 1280}, {S_TermW, 4, 6}, {S_TermW, 6, 1}, {S_TermW, 5, 8}, {S_MakeUpW, 6, 192}, {S_MakeUpW, 5, 64}, {S_TermW, 5, 10}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 8, 29}, {S_TermW, 4, 3}, {S_TermW, 5, 11}, {S_TermW, 4, 5}, {S_TermW, 6, 12}, {S_TermW, 5, 9}, {S_MakeUpW, 6, 1664}, {S_TermW, 4, 6}, {S_TermW, 8, 33}, {S_MakeUpW, 5, 128}, {S_TermW, 8, 49}, {S_TermW, 6, 14}, {S_TermW, 8, 61}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 8, 47}, {S_TermW, 4, 3}, {S_TermW, 8, 59}, {S_TermW, 4, 5}, {S_TermW, 8, 41}, {S_TermW, 6, 16}, {S_MakeUpW, 9, 1024}, {S_TermW, 4, 6}, {S_TermW, 8, 31}, {S_TermW, 5, 8}, {S_TermW, 8, 57}, {S_MakeUpW, 5, 64}, {S_TermW, 5, 10}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 7, 22}, {S_TermW, 4, 3}, {S_TermW, 5, 11}, {S_TermW, 4, 5}, {S_TermW, 7, 26}, {S_TermW, 5, 9}, {S_MakeUpW, 9, 768}, {S_TermW, 4, 6}, {S_TermW, 8, 37}, {S_MakeUpW, 5, 128}, {S_TermW, 7, 25}, {S_TermW, 6, 15}, {S_MakeUpW, 8, 320}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 6, 13}, {S_TermW, 4, 3}, {S_TermW, 7, 18}, {S_TermW, 4, 5}, {S_TermW, 7, 21}, {S_TermW, 6, 17}, {S_MakeUpW, 7, 256}, {S_TermW, 4, 6}, {S_TermW, 6, 1}, {S_TermW, 5, 8}, {S_MakeUpW, 6, 192}, {S_MakeUpW, 5, 64}, {S_TermW, 5, 10}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_MakeUp, 12, 2368}, {S_TermW, 4, 3}, {S_TermW, 5, 11}, {S_TermW, 4, 5}, {S_TermW, 6, 12}, {S_TermW, 5, 9}, {S_MakeUpW, 6, 1664}, {S_TermW, 4, 6}, {S_TermW, 7, 20}, {S_MakeUpW, 5, 128}, {S_TermW, 7, 24}, {S_TermW, 6, 14}, {S_TermW, 7, 28}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 7, 23}, {S_TermW, 4, 3}, {S_TermW, 7, 27}, {S_TermW, 4, 5}, {S_TermW, 8, 40}, {S_TermW, 6, 16}, {S_MakeUpW, 9, 896}, {S_TermW, 4, 6}, {S_TermW, 7, 19}, {S_TermW, 5, 8}, {S_TermW, 8, 56}, {S_MakeUpW, 5, 64}, {S_TermW, 5, 10}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 8, 46}, {S_TermW, 4, 3}, {S_TermW, 5, 11}, {S_TermW, 4, 5}, {S_TermW, 8, 54}, {S_TermW, 5, 9}, {S_MakeUpW, 8, 512}, {S_TermW, 4, 6}, {S_TermW, 8, 36}, {S_MakeUpW, 5, 128}, {S_TermW, 8, 52}, {S_TermW, 6, 15}, {S_TermW, 8, 0}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 6, 13}, {S_TermW, 4, 3}, {S_MakeUpW, 9, 1728}, {S_TermW, 4, 5}, {S_TermW, 8, 44}, {S_TermW, 6, 17}, {S_MakeUpW, 9, 1408}, {S_TermW, 4, 6}, {S_TermW, 6, 1}, {S_TermW, 5, 8}, {S_MakeUpW, 6, 192}, {S_MakeUpW, 5, 64}, {S_TermW, 5, 10}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 8, 30}, {S_TermW, 4, 3}, {S_TermW, 5, 11}, {S_TermW, 4, 5}, {S_TermW, 6, 12}, {S_TermW, 5, 9}, {S_MakeUpW, 6, 1664}, {S_TermW, 4, 6}, {S_TermW, 8, 34}, {S_MakeUpW, 5, 128}, {S_TermW, 8, 50}, {S_TermW, 6, 14}, {S_TermW, 8, 62}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 8, 48}, {S_TermW, 4, 3}, {S_TermW, 8, 60}, {S_TermW, 4, 5}, {S_TermW, 8, 42}, {S_TermW, 6, 16}, {S_MakeUpW, 9, 1152}, {S_TermW, 4, 6}, {S_TermW, 8, 32}, {S_TermW, 5, 8}, {S_TermW, 8, 58}, {S_MakeUpW, 5, 64}, {S_TermW, 5, 10}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 7, 22}, {S_TermW, 4, 3}, {S_TermW, 5, 11}, {S_TermW, 4, 5}, {S_TermW, 7, 26}, {S_TermW, 5, 9}, {S_MakeUpW, 8, 640}, {S_TermW, 4, 6}, {S_TermW, 8, 38}, {S_MakeUpW, 5, 128}, {S_TermW, 7, 25}, {S_TermW, 6, 15}, {S_MakeUpW, 8, 384}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 6, 13}, {S_TermW, 4, 3}, {S_TermW, 7, 18}, {S_TermW, 4, 5}, {S_TermW, 7, 21}, {S_TermW, 6, 17}, {S_MakeUpW, 7, 256}, {S_TermW, 4, 6}, {S_TermW, 6, 1}, {S_TermW, 5, 8}, {S_MakeUpW, 6, 192}, {S_MakeUpW, 5, 64}, {S_TermW, 5, 10}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_Null, 1, 0}, {S_TermW, 4, 3}, {S_TermW, 5, 11}, {S_TermW, 4, 5}, {S_TermW, 6, 12}, {S_TermW, 5, 9}, {S_MakeUpW, 6, 1664}, {S_TermW, 4, 6}, {S_TermW, 7, 20}, {S_MakeUpW, 5, 128}, {S_TermW, 7, 24}, {S_TermW, 6, 14}, {S_TermW, 7, 28}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 7, 23}, {S_TermW, 4, 3}, {S_TermW, 7, 27}, {S_TermW, 4, 5}, {S_TermW, 8, 39}, {S_TermW, 6, 16}, {S_MakeUpW, 8, 576}, {S_TermW, 4, 6}, {S_TermW, 7, 19}, {S_TermW, 5, 8}, {S_TermW, 8, 55}, {S_MakeUpW, 5, 64}, {S_TermW, 5, 10}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 8, 45}, {S_TermW, 4, 3}, {S_TermW, 5, 11}, {S_TermW, 4, 5}, {S_TermW, 8, 53}, {S_TermW, 5, 9}, {S_MakeUpW, 8, 448}, {S_TermW, 4, 6}, {S_TermW, 8, 35}, {S_MakeUpW, 5, 128}, {S_TermW, 8, 51}, {S_TermW, 6, 15}, {S_TermW, 8, 63}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 6, 13}, {S_TermW, 4, 3}, {S_MakeUpW, 9, 1472}, {S_TermW, 4, 5}, {S_TermW, 8, 43}, {S_TermW, 6, 17}, {S_MakeUpW, 9, 1216}, {S_TermW, 4, 6}, {S_TermW, 6, 1}, {S_TermW, 5, 8}, {S_MakeUpW, 6, 192}, {S_MakeUpW, 5, 64}, {S_TermW, 5, 10}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 8, 29}, {S_TermW, 4, 3}, {S_TermW, 5, 11}, {S_TermW, 4, 5}, {S_TermW, 6, 12}, {S_TermW, 5, 9}, {S_MakeUpW, 6, 1664}, {S_TermW, 4, 6}, {S_TermW, 8, 33}, {S_MakeUpW, 5, 128}, {S_TermW, 8, 49}, {S_TermW, 6, 14}, {S_TermW, 8, 61}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 8, 47}, {S_TermW, 4, 3}, {S_TermW, 8, 59}, {S_TermW, 4, 5}, {S_TermW, 8, 41}, {S_TermW, 6, 16}, {S_MakeUpW, 9, 960}, {S_TermW, 4, 6}, {S_TermW, 8, 31}, {S_TermW, 5, 8}, {S_TermW, 8, 57}, {S_MakeUpW, 5, 64}, {S_TermW, 5, 10}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 7, 22}, {S_TermW, 4, 3}, {S_TermW, 5, 11}, {S_TermW, 4, 5}, {S_TermW, 7, 26}, {S_TermW, 5, 9}, {S_MakeUpW, 9, 704}, {S_TermW, 4, 6}, {S_TermW, 8, 37}, {S_MakeUpW, 5, 128}, {S_TermW, 7, 25}, {S_TermW, 6, 15}, {S_MakeUpW, 8, 320}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 6, 13}, {S_TermW, 4, 3}, {S_TermW, 7, 18}, {S_TermW, 4, 5}, {S_TermW, 7, 21}, {S_TermW, 6, 17}, {S_MakeUpW, 7, 256}, {S_TermW, 4, 6}, {S_TermW, 6, 1}, {S_TermW, 5, 8}, {S_MakeUpW, 6, 192}, {S_MakeUpW, 5, 64}, {S_TermW, 5, 10}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_MakeUp, 12, 1984}, {S_TermW, 4, 3}, {S_TermW, 5, 11}, {S_TermW, 4, 5}, {S_TermW, 6, 12}, {S_TermW, 5, 9}, {S_MakeUpW, 6, 1664}, {S_TermW, 4, 6}, {S_TermW, 7, 20}, {S_MakeUpW, 5, 128}, {S_TermW, 7, 24}, {S_TermW, 6, 14}, {S_TermW, 7, 28}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 7, 23}, {S_TermW, 4, 3}, {S_TermW, 7, 27}, {S_TermW, 4, 5}, {S_TermW, 8, 40}, {S_TermW, 6, 16}, {S_MakeUpW, 9, 832}, {S_TermW, 4, 6}, {S_TermW, 7, 19}, {S_TermW, 5, 8}, {S_TermW, 8, 56}, {S_MakeUpW, 5, 64}, {S_TermW, 5, 10}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 8, 46}, {S_TermW, 4, 3}, {S_TermW, 5, 11}, {S_TermW, 4, 5}, {S_TermW, 8, 54}, {S_TermW, 5, 9}, {S_MakeUpW, 8, 512}, {S_TermW, 4, 6}, {S_TermW, 8, 36}, {S_MakeUpW, 5, 128}, {S_TermW, 8, 52}, {S_TermW, 6, 15}, {S_TermW, 8, 0}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 6, 13}, {S_TermW, 4, 3}, {S_MakeUpW, 9, 1600}, {S_TermW, 4, 5}, {S_TermW, 8, 44}, {S_TermW, 6, 17}, {S_MakeUpW, 9, 1344}, {S_TermW, 4, 6}, {S_TermW, 6, 1}, {S_TermW, 5, 8}, {S_MakeUpW, 6, 192}, {S_MakeUpW, 5, 64}, {S_TermW, 5, 10}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 8, 30}, {S_TermW, 4, 3}, {S_TermW, 5, 11}, {S_TermW, 4, 5}, {S_TermW, 6, 12}, {S_TermW, 5, 9}, {S_MakeUpW, 6, 1664}, {S_TermW, 4, 6}, {S_TermW, 8, 34}, {S_MakeUpW, 5, 128}, {S_TermW, 8, 50}, {S_TermW, 6, 14}, {S_TermW, 8, 62}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 8, 48}, {S_TermW, 4, 3}, {S_TermW, 8, 60}, {S_TermW, 4, 5}, {S_TermW, 8, 42}, {S_TermW, 6, 16}, {S_MakeUpW, 9, 1088}, {S_TermW, 4, 6}, {S_TermW, 8, 32}, {S_TermW, 5, 8}, {S_TermW, 8, 58}, {S_MakeUpW, 5, 64}, {S_TermW, 5, 10}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 7, 22}, {S_TermW, 4, 3}, {S_TermW, 5, 11}, {S_TermW, 4, 5}, {S_TermW, 7, 26}, {S_TermW, 5, 9}, {S_MakeUpW, 8, 640}, {S_TermW, 4, 6}, {S_TermW, 8, 38}, {S_MakeUpW, 5, 128}, {S_TermW, 7, 25}, {S_TermW, 6, 15}, {S_MakeUpW, 8, 384}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 6, 13}, {S_TermW, 4, 3}, {S_TermW, 7, 18}, {S_TermW, 4, 5}, {S_TermW, 7, 21}, {S_TermW, 6, 17}, {S_MakeUpW, 7, 256}, {S_TermW, 4, 6}, {S_TermW, 6, 1}, {S_TermW, 5, 8}, {S_MakeUpW, 6, 192}, {S_MakeUpW, 5, 64}, {S_TermW, 5, 10}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_Null, 1, 0}, {S_TermW, 4, 3}, {S_TermW, 5, 11}, {S_TermW, 4, 5}, {S_TermW, 6, 12}, {S_TermW, 5, 9}, {S_MakeUpW, 6, 1664}, {S_TermW, 4, 6}, {S_TermW, 7, 20}, {S_MakeUpW, 5, 128}, {S_TermW, 7, 24}, {S_TermW, 6, 14}, {S_TermW, 7, 28}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 7, 23}, {S_TermW, 4, 3}, {S_TermW, 7, 27}, {S_TermW, 4, 5}, {S_TermW, 8, 39}, {S_TermW, 6, 16}, {S_MakeUpW, 8, 576}, {S_TermW, 4, 6}, {S_TermW, 7, 19}, {S_TermW, 5, 8}, {S_TermW, 8, 55}, {S_MakeUpW, 5, 64}, {S_TermW, 5, 10}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 8, 45}, {S_TermW, 4, 3}, {S_TermW, 5, 11}, {S_TermW, 4, 5}, {S_TermW, 8, 53}, {S_TermW, 5, 9}, {S_MakeUpW, 8, 448}, {S_TermW, 4, 6}, {S_TermW, 8, 35}, {S_MakeUpW, 5, 128}, {S_TermW, 8, 51}, {S_TermW, 6, 15}, {S_TermW, 8, 63}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 6, 13}, {S_TermW, 4, 3}, {S_MakeUpW, 9, 1536}, {S_TermW, 4, 5}, {S_TermW, 8, 43}, {S_TermW, 6, 17}, {S_MakeUpW, 9, 1280}, {S_TermW, 4, 6}, {S_TermW, 6, 1}, {S_TermW, 5, 8}, {S_MakeUpW, 6, 192}, {S_MakeUpW, 5, 64}, {S_TermW, 5, 10}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 8, 29}, {S_TermW, 4, 3}, {S_TermW, 5, 11}, {S_TermW, 4, 5}, {S_TermW, 6, 12}, {S_TermW, 5, 9}, {S_MakeUpW, 6, 1664}, {S_TermW, 4, 6}, {S_TermW, 8, 33}, {S_MakeUpW, 5, 128}, {S_TermW, 8, 49}, {S_TermW, 6, 14}, {S_TermW, 8, 61}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 8, 47}, {S_TermW, 4, 3}, {S_TermW, 8, 59}, {S_TermW, 4, 5}, {S_TermW, 8, 41}, {S_TermW, 6, 16}, {S_MakeUpW, 9, 1024}, {S_TermW, 4, 6}, {S_TermW, 8, 31}, {S_TermW, 5, 8}, {S_TermW, 8, 57}, {S_MakeUpW, 5, 64}, {S_TermW, 5, 10}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 7, 22}, {S_TermW, 4, 3}, {S_TermW, 5, 11}, {S_TermW, 4, 5}, {S_TermW, 7, 26}, {S_TermW, 5, 9}, {S_MakeUpW, 9, 768}, {S_TermW, 4, 6}, {S_TermW, 8, 37}, {S_MakeUpW, 5, 128}, {S_TermW, 7, 25}, {S_TermW, 6, 15}, {S_MakeUpW, 8, 320}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 6, 13}, {S_TermW, 4, 3}, {S_TermW, 7, 18}, {S_TermW, 4, 5}, {S_TermW, 7, 21}, {S_TermW, 6, 17}, {S_MakeUpW, 7, 256}, {S_TermW, 4, 6}, {S_TermW, 6, 1}, {S_TermW, 5, 8}, {S_MakeUpW, 6, 192}, {S_MakeUpW, 5, 64}, {S_TermW, 5, 10}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_MakeUp, 11, 1920}, {S_TermW, 4, 3}, {S_TermW, 5, 11}, {S_TermW, 4, 5}, {S_TermW, 6, 12}, {S_TermW, 5, 9}, {S_MakeUpW, 6, 1664}, {S_TermW, 4, 6}, {S_TermW, 7, 20}, {S_MakeUpW, 5, 128}, {S_TermW, 7, 24}, {S_TermW, 6, 14}, {S_TermW, 7, 28}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 7, 23}, {S_TermW, 4, 3}, {S_TermW, 7, 27}, {S_TermW, 4, 5}, {S_TermW, 8, 40}, {S_TermW, 6, 16}, {S_MakeUpW, 9, 896}, {S_TermW, 4, 6}, {S_TermW, 7, 19}, {S_TermW, 5, 8}, {S_TermW, 8, 56}, {S_MakeUpW, 5, 64}, {S_TermW, 5, 10}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 8, 46}, {S_TermW, 4, 3}, {S_TermW, 5, 11}, {S_TermW, 4, 5}, {S_TermW, 8, 54}, {S_TermW, 5, 9}, {S_MakeUpW, 8, 512}, {S_TermW, 4, 6}, {S_TermW, 8, 36}, {S_MakeUpW, 5, 128}, {S_TermW, 8, 52}, {S_TermW, 6, 15}, {S_TermW, 8, 0}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 6, 13}, {S_TermW, 4, 3}, {S_MakeUpW, 9, 1728}, {S_TermW, 4, 5}, {S_TermW, 8, 44}, {S_TermW, 6, 17}, {S_MakeUpW, 9, 1408}, {S_TermW, 4, 6}, {S_TermW, 6, 1}, {S_TermW, 5, 8}, {S_MakeUpW, 6, 192}, {S_MakeUpW, 5, 64}, {S_TermW, 5, 10}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 8, 30}, {S_TermW, 4, 3}, {S_TermW, 5, 11}, {S_TermW, 4, 5}, {S_TermW, 6, 12}, {S_TermW, 5, 9}, {S_MakeUpW, 6, 1664}, {S_TermW, 4, 6}, {S_TermW, 8, 34}, {S_MakeUpW, 5, 128}, {S_TermW, 8, 50}, {S_TermW, 6, 14}, {S_TermW, 8, 62}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 8, 48}, {S_TermW, 4, 3}, {S_TermW, 8, 60}, {S_TermW, 4, 5}, {S_TermW, 8, 42}, {S_TermW, 6, 16}, {S_MakeUpW, 9, 1152}, {S_TermW, 4, 6}, {S_TermW, 8, 32}, {S_TermW, 5, 8}, {S_TermW, 8, 58}, {S_MakeUpW, 5, 64}, {S_TermW, 5, 10}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 7, 22}, {S_TermW, 4, 3}, {S_TermW, 5, 11}, {S_TermW, 4, 5}, {S_TermW, 7, 26}, {S_TermW, 5, 9}, {S_MakeUpW, 8, 640}, {S_TermW, 4, 6}, {S_TermW, 8, 38}, {S_MakeUpW, 5, 128}, {S_TermW, 7, 25}, {S_TermW, 6, 15}, {S_MakeUpW, 8, 384}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 6, 13}, {S_TermW, 4, 3}, {S_TermW, 7, 18}, {S_TermW, 4, 5}, {S_TermW, 7, 21}, {S_TermW, 6, 17}, {S_MakeUpW, 7, 256}, {S_TermW, 4, 6}, {S_TermW, 6, 1}, {S_TermW, 5, 8}, {S_MakeUpW, 6, 192}, {S_MakeUpW, 5, 64}, {S_TermW, 5, 10}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_Null, 1, 0}, {S_TermW, 4, 3}, {S_TermW, 5, 11}, {S_TermW, 4, 5}, {S_TermW, 6, 12}, {S_TermW, 5, 9}, {S_MakeUpW, 6, 1664}, {S_TermW, 4, 6}, {S_TermW, 7, 20}, {S_MakeUpW, 5, 128}, {S_TermW, 7, 24}, {S_TermW, 6, 14}, {S_TermW, 7, 28}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 7, 23}, {S_TermW, 4, 3}, {S_TermW, 7, 27}, {S_TermW, 4, 5}, {S_TermW, 8, 39}, {S_TermW, 6, 16}, {S_MakeUpW, 8, 576}, {S_TermW, 4, 6}, {S_TermW, 7, 19}, {S_TermW, 5, 8}, {S_TermW, 8, 55}, {S_MakeUpW, 5, 64}, {S_TermW, 5, 10}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 8, 45}, {S_TermW, 4, 3}, {S_TermW, 5, 11}, {S_TermW, 4, 5}, {S_TermW, 8, 53}, {S_TermW, 5, 9}, {S_MakeUpW, 8, 448}, {S_TermW, 4, 6}, {S_TermW, 8, 35}, {S_MakeUpW, 5, 128}, {S_TermW, 8, 51}, {S_TermW, 6, 15}, {S_TermW, 8, 63}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 6, 13}, {S_TermW, 4, 3}, {S_MakeUpW, 9, 1472}, {S_TermW, 4, 5}, {S_TermW, 8, 43}, {S_TermW, 6, 17}, {S_MakeUpW, 9, 1216}, {S_TermW, 4, 6}, {S_TermW, 6, 1}, {S_TermW, 5, 8}, {S_MakeUpW, 6, 192}, {S_MakeUpW, 5, 64}, {S_TermW, 5, 10}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 8, 29}, {S_TermW, 4, 3}, {S_TermW, 5, 11}, {S_TermW, 4, 5}, {S_TermW, 6, 12}, {S_TermW, 5, 9}, {S_MakeUpW, 6, 1664}, {S_TermW, 4, 6}, {S_TermW, 8, 33}, {S_MakeUpW, 5, 128}, {S_TermW, 8, 49}, {S_TermW, 6, 14}, {S_TermW, 8, 61}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 8, 47}, {S_TermW, 4, 3}, {S_TermW, 8, 59}, {S_TermW, 4, 5}, {S_TermW, 8, 41}, {S_TermW, 6, 16}, {S_MakeUpW, 9, 960}, {S_TermW, 4, 6}, {S_TermW, 8, 31}, {S_TermW, 5, 8}, {S_TermW, 8, 57}, {S_MakeUpW, 5, 64}, {S_TermW, 5, 10}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 7, 22}, {S_TermW, 4, 3}, {S_TermW, 5, 11}, {S_TermW, 4, 5}, {S_TermW, 7, 26}, {S_TermW, 5, 9}, {S_MakeUpW, 9, 704}, {S_TermW, 4, 6}, {S_TermW, 8, 37}, {S_MakeUpW, 5, 128}, {S_TermW, 7, 25}, {S_TermW, 6, 15}, {S_MakeUpW, 8, 320}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 6, 13}, {S_TermW, 4, 3}, {S_TermW, 7, 18}, {S_TermW, 4, 5}, {S_TermW, 7, 21}, {S_TermW, 6, 17}, {S_MakeUpW, 7, 256}, {S_TermW, 4, 6}, {S_TermW, 6, 1}, {S_TermW, 5, 8}, {S_MakeUpW, 6, 192}, {S_MakeUpW, 5, 64}, {S_TermW, 5, 10}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_MakeUp, 12, 2240}, {S_TermW, 4, 3}, {S_TermW, 5, 11}, {S_TermW, 4, 5}, {S_TermW, 6, 12}, {S_TermW, 5, 9}, {S_MakeUpW, 6, 1664}, {S_TermW, 4, 6}, {S_TermW, 7, 20}, {S_MakeUpW, 5, 128}, {S_TermW, 7, 24}, {S_TermW, 6, 14}, {S_TermW, 7, 28}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 7, 23}, {S_TermW, 4, 3}, {S_TermW, 7, 27}, {S_TermW, 4, 5}, {S_TermW, 8, 40}, {S_TermW, 6, 16}, {S_MakeUpW, 9, 832}, {S_TermW, 4, 6}, {S_TermW, 7, 19}, {S_TermW, 5, 8}, {S_TermW, 8, 56}, {S_MakeUpW, 5, 64}, {S_TermW, 5, 10}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 8, 46}, {S_TermW, 4, 3}, {S_TermW, 5, 11}, {S_TermW, 4, 5}, {S_TermW, 8, 54}, {S_TermW, 5, 9}, {S_MakeUpW, 8, 512}, {S_TermW, 4, 6}, {S_TermW, 8, 36}, {S_MakeUpW, 5, 128}, {S_TermW, 8, 52}, {S_TermW, 6, 15}, {S_TermW, 8, 0}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 6, 13}, {S_TermW, 4, 3}, {S_MakeUpW, 9, 1600}, {S_TermW, 4, 5}, {S_TermW, 8, 44}, {S_TermW, 6, 17}, {S_MakeUpW, 9, 1344}, {S_TermW, 4, 6}, {S_TermW, 6, 1}, {S_TermW, 5, 8}, {S_MakeUpW, 6, 192}, {S_MakeUpW, 5, 64}, {S_TermW, 5, 10}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 8, 30}, {S_TermW, 4, 3}, {S_TermW, 5, 11}, {S_TermW, 4, 5}, {S_TermW, 6, 12}, {S_TermW, 5, 9}, {S_MakeUpW, 6, 1664}, {S_TermW, 4, 6}, {S_TermW, 8, 34}, {S_MakeUpW, 5, 128}, {S_TermW, 8, 50}, {S_TermW, 6, 14}, {S_TermW, 8, 62}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 8, 48}, {S_TermW, 4, 3}, {S_TermW, 8, 60}, {S_TermW, 4, 5}, {S_TermW, 8, 42}, {S_TermW, 6, 16}, {S_MakeUpW, 9, 1088}, {S_TermW, 4, 6}, {S_TermW, 8, 32}, {S_TermW, 5, 8}, {S_TermW, 8, 58}, {S_MakeUpW, 5, 64}, {S_TermW, 5, 10}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 7, 22}, {S_TermW, 4, 3}, {S_TermW, 5, 11}, {S_TermW, 4, 5}, {S_TermW, 7, 26}, {S_TermW, 5, 9}, {S_MakeUpW, 8, 640}, {S_TermW, 4, 6}, {S_TermW, 8, 38}, {S_MakeUpW, 5, 128}, {S_TermW, 7, 25}, {S_TermW, 6, 15}, {S_MakeUpW, 8, 384}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 6, 13}, {S_TermW, 4, 3}, {S_TermW, 7, 18}, {S_TermW, 4, 5}, {S_TermW, 7, 21}, {S_TermW, 6, 17}, {S_MakeUpW, 7, 256}, {S_TermW, 4, 6}, {S_TermW, 6, 1}, {S_TermW, 5, 8}, {S_MakeUpW, 6, 192}, {S_MakeUpW, 5, 64}, {S_TermW, 5, 10}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_Null, 1, 0}, {S_TermW, 4, 3}, {S_TermW, 5, 11}, {S_TermW, 4, 5}, {S_TermW, 6, 12}, {S_TermW, 5, 9}, {S_MakeUpW, 6, 1664}, {S_TermW, 4, 6}, {S_TermW, 7, 20}, {S_MakeUpW, 5, 128}, {S_TermW, 7, 24}, {S_TermW, 6, 14}, {S_TermW, 7, 28}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 7, 23}, {S_TermW, 4, 3}, {S_TermW, 7, 27}, {S_TermW, 4, 5}, {S_TermW, 8, 39}, {S_TermW, 6, 16}, {S_MakeUpW, 8, 576}, {S_TermW, 4, 6}, {S_TermW, 7, 19}, {S_TermW, 5, 8}, {S_TermW, 8, 55}, {S_MakeUpW, 5, 64}, {S_TermW, 5, 10}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 8, 45}, {S_TermW, 4, 3}, {S_TermW, 5, 11}, {S_TermW, 4, 5}, {S_TermW, 8, 53}, {S_TermW, 5, 9}, {S_MakeUpW, 8, 448}, {S_TermW, 4, 6}, {S_TermW, 8, 35}, {S_MakeUpW, 5, 128}, {S_TermW, 8, 51}, {S_TermW, 6, 15}, {S_TermW, 8, 63}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 6, 13}, {S_TermW, 4, 3}, {S_MakeUpW, 9, 1536}, {S_TermW, 4, 5}, {S_TermW, 8, 43}, {S_TermW, 6, 17}, {S_MakeUpW, 9, 1280}, {S_TermW, 4, 6}, {S_TermW, 6, 1}, {S_TermW, 5, 8}, {S_MakeUpW, 6, 192}, {S_MakeUpW, 5, 64}, {S_TermW, 5, 10}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 8, 29}, {S_TermW, 4, 3}, {S_TermW, 5, 11}, {S_TermW, 4, 5}, {S_TermW, 6, 12}, {S_TermW, 5, 9}, {S_MakeUpW, 6, 1664}, {S_TermW, 4, 6}, {S_TermW, 8, 33}, {S_MakeUpW, 5, 128}, {S_TermW, 8, 49}, {S_TermW, 6, 14}, {S_TermW, 8, 61}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 8, 47}, {S_TermW, 4, 3}, {S_TermW, 8, 59}, {S_TermW, 4, 5}, {S_TermW, 8, 41}, {S_TermW, 6, 16}, {S_MakeUpW, 9, 1024}, {S_TermW, 4, 6}, {S_TermW, 8, 31}, {S_TermW, 5, 8}, {S_TermW, 8, 57}, {S_MakeUpW, 5, 64}, {S_TermW, 5, 10}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 7, 22}, {S_TermW, 4, 3}, {S_TermW, 5, 11}, {S_TermW, 4, 5}, {S_TermW, 7, 26}, {S_TermW, 5, 9}, {S_MakeUpW, 9, 768}, {S_TermW, 4, 6}, {S_TermW, 8, 37}, {S_MakeUpW, 5, 128}, {S_TermW, 7, 25}, {S_TermW, 6, 15}, {S_MakeUpW, 8, 320}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 6, 13}, {S_TermW, 4, 3}, {S_TermW, 7, 18}, {S_TermW, 4, 5}, {S_TermW, 7, 21}, {S_TermW, 6, 17}, {S_MakeUpW, 7, 256}, {S_TermW, 4, 6}, {S_TermW, 6, 1}, {S_TermW, 5, 8}, {S_MakeUpW, 6, 192}, {S_MakeUpW, 5, 64}, {S_TermW, 5, 10}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_MakeUp, 12, 2496}, {S_TermW, 4, 3}, {S_TermW, 5, 11}, {S_TermW, 4, 5}, {S_TermW, 6, 12}, {S_TermW, 5, 9}, {S_MakeUpW, 6, 1664}, {S_TermW, 4, 6}, {S_TermW, 7, 20}, {S_MakeUpW, 5, 128}, {S_TermW, 7, 24}, {S_TermW, 6, 14}, {S_TermW, 7, 28}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 7, 23}, {S_TermW, 4, 3}, {S_TermW, 7, 27}, {S_TermW, 4, 5}, {S_TermW, 8, 40}, {S_TermW, 6, 16}, {S_MakeUpW, 9, 896}, {S_TermW, 4, 6}, {S_TermW, 7, 19}, {S_TermW, 5, 8}, {S_TermW, 8, 56}, {S_MakeUpW, 5, 64}, {S_TermW, 5, 10}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 8, 46}, {S_TermW, 4, 3}, {S_TermW, 5, 11}, {S_TermW, 4, 5}, {S_TermW, 8, 54}, {S_TermW, 5, 9}, {S_MakeUpW, 8, 512}, {S_TermW, 4, 6}, {S_TermW, 8, 36}, {S_MakeUpW, 5, 128}, {S_TermW, 8, 52}, {S_TermW, 6, 15}, {S_TermW, 8, 0}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 6, 13}, {S_TermW, 4, 3}, {S_MakeUpW, 9, 1728}, {S_TermW, 4, 5}, {S_TermW, 8, 44}, {S_TermW, 6, 17}, {S_MakeUpW, 9, 1408}, {S_TermW, 4, 6}, {S_TermW, 6, 1}, {S_TermW, 5, 8}, {S_MakeUpW, 6, 192}, {S_MakeUpW, 5, 64}, {S_TermW, 5, 10}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 8, 30}, {S_TermW, 4, 3}, {S_TermW, 5, 11}, {S_TermW, 4, 5}, {S_TermW, 6, 12}, {S_TermW, 5, 9}, {S_MakeUpW, 6, 1664}, {S_TermW, 4, 6}, {S_TermW, 8, 34}, {S_MakeUpW, 5, 128}, {S_TermW, 8, 50}, {S_TermW, 6, 14}, {S_TermW, 8, 62}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 8, 48}, {S_TermW, 4, 3}, {S_TermW, 8, 60}, {S_TermW, 4, 5}, {S_TermW, 8, 42}, {S_TermW, 6, 16}, {S_MakeUpW, 9, 1152}, {S_TermW, 4, 6}, {S_TermW, 8, 32}, {S_TermW, 5, 8}, {S_TermW, 8, 58}, {S_MakeUpW, 5, 64}, {S_TermW, 5, 10}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 7, 22}, {S_TermW, 4, 3}, {S_TermW, 5, 11}, {S_TermW, 4, 5}, {S_TermW, 7, 26}, {S_TermW, 5, 9}, {S_MakeUpW, 8, 640}, {S_TermW, 4, 6}, {S_TermW, 8, 38}, {S_MakeUpW, 5, 128}, {S_TermW, 7, 25}, {S_TermW, 6, 15}, {S_MakeUpW, 8, 384}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 6, 13}, {S_TermW, 4, 3}, {S_TermW, 7, 18}, {S_TermW, 4, 5}, {S_TermW, 7, 21}, {S_TermW, 6, 17}, {S_MakeUpW, 7, 256}, {S_TermW, 4, 6}, {S_TermW, 6, 1}, {S_TermW, 5, 8}, {S_MakeUpW, 6, 192}, {S_MakeUpW, 5, 64}, {S_TermW, 5, 10}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_EOL, 12, 0}, {S_TermW, 4, 3}, {S_TermW, 5, 11}, {S_TermW, 4, 5}, {S_TermW, 6, 12}, {S_TermW, 5, 9}, {S_MakeUpW, 6, 1664}, {S_TermW, 4, 6}, {S_TermW, 7, 20}, {S_MakeUpW, 5, 128}, {S_TermW, 7, 24}, {S_TermW, 6, 14}, {S_TermW, 7, 28}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 7, 23}, {S_TermW, 4, 3}, {S_TermW, 7, 27}, {S_TermW, 4, 5}, {S_TermW, 8, 39}, {S_TermW, 6, 16}, {S_MakeUpW, 8, 576}, {S_TermW, 4, 6}, {S_TermW, 7, 19}, {S_TermW, 5, 8}, {S_TermW, 8, 55}, {S_MakeUpW, 5, 64}, {S_TermW, 5, 10}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 8, 45}, {S_TermW, 4, 3}, {S_TermW, 5, 11}, {S_TermW, 4, 5}, {S_TermW, 8, 53}, {S_TermW, 5, 9}, {S_MakeUpW, 8, 448}, {S_TermW, 4, 6}, {S_TermW, 8, 35}, {S_MakeUpW, 5, 128}, {S_TermW, 8, 51}, {S_TermW, 6, 15}, {S_TermW, 8, 63}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 6, 13}, {S_TermW, 4, 3}, {S_MakeUpW, 9, 1472}, {S_TermW, 4, 5}, {S_TermW, 8, 43}, {S_TermW, 6, 17}, {S_MakeUpW, 9, 1216}, {S_TermW, 4, 6}, {S_TermW, 6, 1}, {S_TermW, 5, 8}, {S_MakeUpW, 6, 192}, {S_MakeUpW, 5, 64}, {S_TermW, 5, 10}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 8, 29}, {S_TermW, 4, 3}, {S_TermW, 5, 11}, {S_TermW, 4, 5}, {S_TermW, 6, 12}, {S_TermW, 5, 9}, {S_MakeUpW, 6, 1664}, {S_TermW, 4, 6}, {S_TermW, 8, 33}, {S_MakeUpW, 5, 128}, {S_TermW, 8, 49}, {S_TermW, 6, 14}, {S_TermW, 8, 61}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 8, 47}, {S_TermW, 4, 3}, {S_TermW, 8, 59}, {S_TermW, 4, 5}, {S_TermW, 8, 41}, {S_TermW, 6, 16}, {S_MakeUpW, 9, 960}, {S_TermW, 4, 6}, {S_TermW, 8, 31}, {S_TermW, 5, 8}, {S_TermW, 8, 57}, {S_MakeUpW, 5, 64}, {S_TermW, 5, 10}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 7, 22}, {S_TermW, 4, 3}, {S_TermW, 5, 11}, {S_TermW, 4, 5}, {S_TermW, 7, 26}, {S_TermW, 5, 9}, {S_MakeUpW, 9, 704}, {S_TermW, 4, 6}, {S_TermW, 8, 37}, {S_MakeUpW, 5, 128}, {S_TermW, 7, 25}, {S_TermW, 6, 15}, {S_MakeUpW, 8, 320}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 6, 13}, {S_TermW, 4, 3}, {S_TermW, 7, 18}, {S_TermW, 4, 5}, {S_TermW, 7, 21}, {S_TermW, 6, 17}, {S_MakeUpW, 7, 256}, {S_TermW, 4, 6}, {S_TermW, 6, 1}, {S_TermW, 5, 8}, {S_MakeUpW, 6, 192}, {S_MakeUpW, 5, 64}, {S_TermW, 5, 10}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_MakeUp, 11, 1792}, {S_TermW, 4, 3}, {S_TermW, 5, 11}, {S_TermW, 4, 5}, {S_TermW, 6, 12}, {S_TermW, 5, 9}, {S_MakeUpW, 6, 1664}, {S_TermW, 4, 6}, {S_TermW, 7, 20}, {S_MakeUpW, 5, 128}, {S_TermW, 7, 24}, {S_TermW, 6, 14}, {S_TermW, 7, 28}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 7, 23}, {S_TermW, 4, 3}, {S_TermW, 7, 27}, {S_TermW, 4, 5}, {S_TermW, 8, 40}, {S_TermW, 6, 16}, {S_MakeUpW, 9, 832}, {S_TermW, 4, 6}, {S_TermW, 7, 19}, {S_TermW, 5, 8}, {S_TermW, 8, 56}, {S_MakeUpW, 5, 64}, {S_TermW, 5, 10}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 8, 46}, {S_TermW, 4, 3}, {S_TermW, 5, 11}, {S_TermW, 4, 5}, {S_TermW, 8, 54}, {S_TermW, 5, 9}, {S_MakeUpW, 8, 512}, {S_TermW, 4, 6}, {S_TermW, 8, 36}, {S_MakeUpW, 5, 128}, {S_TermW, 8, 52}, {S_TermW, 6, 15}, {S_TermW, 8, 0}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 6, 13}, {S_TermW, 4, 3}, {S_MakeUpW, 9, 1600}, {S_TermW, 4, 5}, {S_TermW, 8, 44}, {S_TermW, 6, 17}, {S_MakeUpW, 9, 1344}, {S_TermW, 4, 6}, {S_TermW, 6, 1}, {S_TermW, 5, 8}, {S_MakeUpW, 6, 192}, {S_MakeUpW, 5, 64}, {S_TermW, 5, 10}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 8, 30}, {S_TermW, 4, 3}, {S_TermW, 5, 11}, {S_TermW, 4, 5}, {S_TermW, 6, 12}, {S_TermW, 5, 9}, {S_MakeUpW, 6, 1664}, {S_TermW, 4, 6}, {S_TermW, 8, 34}, {S_MakeUpW, 5, 128}, {S_TermW, 8, 50}, {S_TermW, 6, 14}, {S_TermW, 8, 62}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 8, 48}, {S_TermW, 4, 3}, {S_TermW, 8, 60}, {S_TermW, 4, 5}, {S_TermW, 8, 42}, {S_TermW, 6, 16}, {S_MakeUpW, 9, 1088}, {S_TermW, 4, 6}, {S_TermW, 8, 32}, {S_TermW, 5, 8}, {S_TermW, 8, 58}, {S_MakeUpW, 5, 64}, {S_TermW, 5, 10}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 7, 22}, {S_TermW, 4, 3}, {S_TermW, 5, 11}, {S_TermW, 4, 5}, {S_TermW, 7, 26}, {S_TermW, 5, 9}, {S_MakeUpW, 8, 640}, {S_TermW, 4, 6}, {S_TermW, 8, 38}, {S_MakeUpW, 5, 128}, {S_TermW, 7, 25}, {S_TermW, 6, 15}, {S_MakeUpW, 8, 384}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 6, 13}, {S_TermW, 4, 3}, {S_TermW, 7, 18}, {S_TermW, 4, 5}, {S_TermW, 7, 21}, {S_TermW, 6, 17}, {S_MakeUpW, 7, 256}, {S_TermW, 4, 6}, {S_TermW, 6, 1}, {S_TermW, 5, 8}, {S_MakeUpW, 6, 192}, {S_MakeUpW, 5, 64}, {S_TermW, 5, 10}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_Null, 1, 0}, {S_TermW, 4, 3}, {S_TermW, 5, 11}, {S_TermW, 4, 5}, {S_TermW, 6, 12}, {S_TermW, 5, 9}, {S_MakeUpW, 6, 1664}, {S_TermW, 4, 6}, {S_TermW, 7, 20}, {S_MakeUpW, 5, 128}, {S_TermW, 7, 24}, {S_TermW, 6, 14}, {S_TermW, 7, 28}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 7, 23}, {S_TermW, 4, 3}, {S_TermW, 7, 27}, {S_TermW, 4, 5}, {S_TermW, 8, 39}, {S_TermW, 6, 16}, {S_MakeUpW, 8, 576}, {S_TermW, 4, 6}, {S_TermW, 7, 19}, {S_TermW, 5, 8}, {S_TermW, 8, 55}, {S_MakeUpW, 5, 64}, {S_TermW, 5, 10}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 8, 45}, {S_TermW, 4, 3}, {S_TermW, 5, 11}, {S_TermW, 4, 5}, {S_TermW, 8, 53}, {S_TermW, 5, 9}, {S_MakeUpW, 8, 448}, {S_TermW, 4, 6}, {S_TermW, 8, 35}, {S_MakeUpW, 5, 128}, {S_TermW, 8, 51}, {S_TermW, 6, 15}, {S_TermW, 8, 63}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 6, 13}, {S_TermW, 4, 3}, {S_MakeUpW, 9, 1536}, {S_TermW, 4, 5}, {S_TermW, 8, 43}, {S_TermW, 6, 17}, {S_MakeUpW, 9, 1280}, {S_TermW, 4, 6}, {S_TermW, 6, 1}, {S_TermW, 5, 8}, {S_MakeUpW, 6, 192}, {S_MakeUpW, 5, 64}, {S_TermW, 5, 10}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 8, 29}, {S_TermW, 4, 3}, {S_TermW, 5, 11}, {S_TermW, 4, 5}, {S_TermW, 6, 12}, {S_TermW, 5, 9}, {S_MakeUpW, 6, 1664}, {S_TermW, 4, 6}, {S_TermW, 8, 33}, {S_MakeUpW, 5, 128}, {S_TermW, 8, 49}, {S_TermW, 6, 14}, {S_TermW, 8, 61}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 8, 47}, {S_TermW, 4, 3}, {S_TermW, 8, 59}, {S_TermW, 4, 5}, {S_TermW, 8, 41}, {S_TermW, 6, 16}, {S_MakeUpW, 9, 1024}, {S_TermW, 4, 6}, {S_TermW, 8, 31}, {S_TermW, 5, 8}, {S_TermW, 8, 57}, {S_MakeUpW, 5, 64}, {S_TermW, 5, 10}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 7, 22}, {S_TermW, 4, 3}, {S_TermW, 5, 11}, {S_TermW, 4, 5}, {S_TermW, 7, 26}, {S_TermW, 5, 9}, {S_MakeUpW, 9, 768}, {S_TermW, 4, 6}, {S_TermW, 8, 37}, {S_MakeUpW, 5, 128}, {S_TermW, 7, 25}, {S_TermW, 6, 15}, {S_MakeUpW, 8, 320}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 6, 13}, {S_TermW, 4, 3}, {S_TermW, 7, 18}, {S_TermW, 4, 5}, {S_TermW, 7, 21}, {S_TermW, 6, 17}, {S_MakeUpW, 7, 256}, {S_TermW, 4, 6}, {S_TermW, 6, 1}, {S_TermW, 5, 8}, {S_MakeUpW, 6, 192}, {S_MakeUpW, 5, 64}, {S_TermW, 5, 10}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_MakeUp, 11, 1856}, {S_TermW, 4, 3}, {S_TermW, 5, 11}, {S_TermW, 4, 5}, {S_TermW, 6, 12}, {S_TermW, 5, 9}, {S_MakeUpW, 6, 1664}, {S_TermW, 4, 6}, {S_TermW, 7, 20}, {S_MakeUpW, 5, 128}, {S_TermW, 7, 24}, {S_TermW, 6, 14}, {S_TermW, 7, 28}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 7, 23}, {S_TermW, 4, 3}, {S_TermW, 7, 27}, {S_TermW, 4, 5}, {S_TermW, 8, 40}, {S_TermW, 6, 16}, {S_MakeUpW, 9, 896}, {S_TermW, 4, 6}, {S_TermW, 7, 19}, {S_TermW, 5, 8}, {S_TermW, 8, 56}, {S_MakeUpW, 5, 64}, {S_TermW, 5, 10}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 8, 46}, {S_TermW, 4, 3}, {S_TermW, 5, 11}, {S_TermW, 4, 5}, {S_TermW, 8, 54}, {S_TermW, 5, 9}, {S_MakeUpW, 8, 512}, {S_TermW, 4, 6}, {S_TermW, 8, 36}, {S_MakeUpW, 5, 128}, {S_TermW, 8, 52}, {S_TermW, 6, 15}, {S_TermW, 8, 0}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 6, 13}, {S_TermW, 4, 3}, {S_MakeUpW, 9, 1728}, {S_TermW, 4, 5}, {S_TermW, 8, 44}, {S_TermW, 6, 17}, {S_MakeUpW, 9, 1408}, {S_TermW, 4, 6}, {S_TermW, 6, 1}, {S_TermW, 5, 8}, {S_MakeUpW, 6, 192}, {S_MakeUpW, 5, 64}, {S_TermW, 5, 10}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 8, 30}, {S_TermW, 4, 3}, {S_TermW, 5, 11}, {S_TermW, 4, 5}, {S_TermW, 6, 12}, {S_TermW, 5, 9}, {S_MakeUpW, 6, 1664}, {S_TermW, 4, 6}, {S_TermW, 8, 34}, {S_MakeUpW, 5, 128}, {S_TermW, 8, 50}, {S_TermW, 6, 14}, {S_TermW, 8, 62}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 8, 48}, {S_TermW, 4, 3}, {S_TermW, 8, 60}, {S_TermW, 4, 5}, {S_TermW, 8, 42}, {S_TermW, 6, 16}, {S_MakeUpW, 9, 1152}, {S_TermW, 4, 6}, {S_TermW, 8, 32}, {S_TermW, 5, 8}, {S_TermW, 8, 58}, {S_MakeUpW, 5, 64}, {S_TermW, 5, 10}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 7, 22}, {S_TermW, 4, 3}, {S_TermW, 5, 11}, {S_TermW, 4, 5}, {S_TermW, 7, 26}, {S_TermW, 5, 9}, {S_MakeUpW, 8, 640}, {S_TermW, 4, 6}, {S_TermW, 8, 38}, {S_MakeUpW, 5, 128}, {S_TermW, 7, 25}, {S_TermW, 6, 15}, {S_MakeUpW, 8, 384}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 6, 13}, {S_TermW, 4, 3}, {S_TermW, 7, 18}, {S_TermW, 4, 5}, {S_TermW, 7, 21}, {S_TermW, 6, 17}, {S_MakeUpW, 7, 256}, {S_TermW, 4, 6}, {S_TermW, 6, 1}, {S_TermW, 5, 8}, {S_MakeUpW, 6, 192}, {S_MakeUpW, 5, 64}, {S_TermW, 5, 10}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_Null, 1, 0}, {S_TermW, 4, 3}, {S_TermW, 5, 11}, {S_TermW, 4, 5}, {S_TermW, 6, 12}, {S_TermW, 5, 9}, {S_MakeUpW, 6, 1664}, {S_TermW, 4, 6}, {S_TermW, 7, 20}, {S_MakeUpW, 5, 128}, {S_TermW, 7, 24}, {S_TermW, 6, 14}, {S_TermW, 7, 28}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 7, 23}, {S_TermW, 4, 3}, {S_TermW, 7, 27}, {S_TermW, 4, 5}, {S_TermW, 8, 39}, {S_TermW, 6, 16}, {S_MakeUpW, 8, 576}, {S_TermW, 4, 6}, {S_TermW, 7, 19}, {S_TermW, 5, 8}, {S_TermW, 8, 55}, {S_MakeUpW, 5, 64}, {S_TermW, 5, 10}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 8, 45}, {S_TermW, 4, 3}, {S_TermW, 5, 11}, {S_TermW, 4, 5}, {S_TermW, 8, 53}, {S_TermW, 5, 9}, {S_MakeUpW, 8, 448}, {S_TermW, 4, 6}, {S_TermW, 8, 35}, {S_MakeUpW, 5, 128}, {S_TermW, 8, 51}, {S_TermW, 6, 15}, {S_TermW, 8, 63}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 6, 13}, {S_TermW, 4, 3}, {S_MakeUpW, 9, 1472}, {S_TermW, 4, 5}, {S_TermW, 8, 43}, {S_TermW, 6, 17}, {S_MakeUpW, 9, 1216}, {S_TermW, 4, 6}, {S_TermW, 6, 1}, {S_TermW, 5, 8}, {S_MakeUpW, 6, 192}, {S_MakeUpW, 5, 64}, {S_TermW, 5, 10}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 8, 29}, {S_TermW, 4, 3}, {S_TermW, 5, 11}, {S_TermW, 4, 5}, {S_TermW, 6, 12}, {S_TermW, 5, 9}, {S_MakeUpW, 6, 1664}, {S_TermW, 4, 6}, {S_TermW, 8, 33}, {S_MakeUpW, 5, 128}, {S_TermW, 8, 49}, {S_TermW, 6, 14}, {S_TermW, 8, 61}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 8, 47}, {S_TermW, 4, 3}, {S_TermW, 8, 59}, {S_TermW, 4, 5}, {S_TermW, 8, 41}, {S_TermW, 6, 16}, {S_MakeUpW, 9, 960}, {S_TermW, 4, 6}, {S_TermW, 8, 31}, {S_TermW, 5, 8}, {S_TermW, 8, 57}, {S_MakeUpW, 5, 64}, {S_TermW, 5, 10}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 7, 22}, {S_TermW, 4, 3}, {S_TermW, 5, 11}, {S_TermW, 4, 5}, {S_TermW, 7, 26}, {S_TermW, 5, 9}, {S_MakeUpW, 9, 704}, {S_TermW, 4, 6}, {S_TermW, 8, 37}, {S_MakeUpW, 5, 128}, {S_TermW, 7, 25}, {S_TermW, 6, 15}, {S_MakeUpW, 8, 320}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 6, 13}, {S_TermW, 4, 3}, {S_TermW, 7, 18}, {S_TermW, 4, 5}, {S_TermW, 7, 21}, {S_TermW, 6, 17}, {S_MakeUpW, 7, 256}, {S_TermW, 4, 6}, {S_TermW, 6, 1}, {S_TermW, 5, 8}, {S_MakeUpW, 6, 192}, {S_MakeUpW, 5, 64}, {S_TermW, 5, 10}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_MakeUp, 12, 2176}, {S_TermW, 4, 3}, {S_TermW, 5, 11}, {S_TermW, 4, 5}, {S_TermW, 6, 12}, {S_TermW, 5, 9}, {S_MakeUpW, 6, 1664}, {S_TermW, 4, 6}, {S_TermW, 7, 20}, {S_MakeUpW, 5, 128}, {S_TermW, 7, 24}, {S_TermW, 6, 14}, {S_TermW, 7, 28}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 7, 23}, {S_TermW, 4, 3}, {S_TermW, 7, 27}, {S_TermW, 4, 5}, {S_TermW, 8, 40}, {S_TermW, 6, 16}, {S_MakeUpW, 9, 832}, {S_TermW, 4, 6}, {S_TermW, 7, 19}, {S_TermW, 5, 8}, {S_TermW, 8, 56}, {S_MakeUpW, 5, 64}, {S_TermW, 5, 10}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 8, 46}, {S_TermW, 4, 3}, {S_TermW, 5, 11}, {S_TermW, 4, 5}, {S_TermW, 8, 54}, {S_TermW, 5, 9}, {S_MakeUpW, 8, 512}, {S_TermW, 4, 6}, {S_TermW, 8, 36}, {S_MakeUpW, 5, 128}, {S_TermW, 8, 52}, {S_TermW, 6, 15}, {S_TermW, 8, 0}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 6, 13}, {S_TermW, 4, 3}, {S_MakeUpW, 9, 1600}, {S_TermW, 4, 5}, {S_TermW, 8, 44}, {S_TermW, 6, 17}, {S_MakeUpW, 9, 1344}, {S_TermW, 4, 6}, {S_TermW, 6, 1}, {S_TermW, 5, 8}, {S_MakeUpW, 6, 192}, {S_MakeUpW, 5, 64}, {S_TermW, 5, 10}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 8, 30}, {S_TermW, 4, 3}, {S_TermW, 5, 11}, {S_TermW, 4, 5}, {S_TermW, 6, 12}, {S_TermW, 5, 9}, {S_MakeUpW, 6, 1664}, {S_TermW, 4, 6}, {S_TermW, 8, 34}, {S_MakeUpW, 5, 128}, {S_TermW, 8, 50}, {S_TermW, 6, 14}, {S_TermW, 8, 62}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 8, 48}, {S_TermW, 4, 3}, {S_TermW, 8, 60}, {S_TermW, 4, 5}, {S_TermW, 8, 42}, {S_TermW, 6, 16}, {S_MakeUpW, 9, 1088}, {S_TermW, 4, 6}, {S_TermW, 8, 32}, {S_TermW, 5, 8}, {S_TermW, 8, 58}, {S_MakeUpW, 5, 64}, {S_TermW, 5, 10}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 7, 22}, {S_TermW, 4, 3}, {S_TermW, 5, 11}, {S_TermW, 4, 5}, {S_TermW, 7, 26}, {S_TermW, 5, 9}, {S_MakeUpW, 8, 640}, {S_TermW, 4, 6}, {S_TermW, 8, 38}, {S_MakeUpW, 5, 128}, {S_TermW, 7, 25}, {S_TermW, 6, 15}, {S_MakeUpW, 8, 384}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 6, 13}, {S_TermW, 4, 3}, {S_TermW, 7, 18}, {S_TermW, 4, 5}, {S_TermW, 7, 21}, {S_TermW, 6, 17}, {S_MakeUpW, 7, 256}, {S_TermW, 4, 6}, {S_TermW, 6, 1}, {S_TermW, 5, 8}, {S_MakeUpW, 6, 192}, {S_MakeUpW, 5, 64}, {S_TermW, 5, 10}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_Null, 1, 0}, {S_TermW, 4, 3}, {S_TermW, 5, 11}, {S_TermW, 4, 5}, {S_TermW, 6, 12}, {S_TermW, 5, 9}, {S_MakeUpW, 6, 1664}, {S_TermW, 4, 6}, {S_TermW, 7, 20}, {S_MakeUpW, 5, 128}, {S_TermW, 7, 24}, {S_TermW, 6, 14}, {S_TermW, 7, 28}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 7, 23}, {S_TermW, 4, 3}, {S_TermW, 7, 27}, {S_TermW, 4, 5}, {S_TermW, 8, 39}, {S_TermW, 6, 16}, {S_MakeUpW, 8, 576}, {S_TermW, 4, 6}, {S_TermW, 7, 19}, {S_TermW, 5, 8}, {S_TermW, 8, 55}, {S_MakeUpW, 5, 64}, {S_TermW, 5, 10}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 8, 45}, {S_TermW, 4, 3}, {S_TermW, 5, 11}, {S_TermW, 4, 5}, {S_TermW, 8, 53}, {S_TermW, 5, 9}, {S_MakeUpW, 8, 448}, {S_TermW, 4, 6}, {S_TermW, 8, 35}, {S_MakeUpW, 5, 128}, {S_TermW, 8, 51}, {S_TermW, 6, 15}, {S_TermW, 8, 63}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 6, 13}, {S_TermW, 4, 3}, {S_MakeUpW, 9, 1536}, {S_TermW, 4, 5}, {S_TermW, 8, 43}, {S_TermW, 6, 17}, {S_MakeUpW, 9, 1280}, {S_TermW, 4, 6}, {S_TermW, 6, 1}, {S_TermW, 5, 8}, {S_MakeUpW, 6, 192}, {S_MakeUpW, 5, 64}, {S_TermW, 5, 10}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 8, 29}, {S_TermW, 4, 3}, {S_TermW, 5, 11}, {S_TermW, 4, 5}, {S_TermW, 6, 12}, {S_TermW, 5, 9}, {S_MakeUpW, 6, 1664}, {S_TermW, 4, 6}, {S_TermW, 8, 33}, {S_MakeUpW, 5, 128}, {S_TermW, 8, 49}, {S_TermW, 6, 14}, {S_TermW, 8, 61}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 8, 47}, {S_TermW, 4, 3}, {S_TermW, 8, 59}, {S_TermW, 4, 5}, {S_TermW, 8, 41}, {S_TermW, 6, 16}, {S_MakeUpW, 9, 1024}, {S_TermW, 4, 6}, {S_TermW, 8, 31}, {S_TermW, 5, 8}, {S_TermW, 8, 57}, {S_MakeUpW, 5, 64}, {S_TermW, 5, 10}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 7, 22}, {S_TermW, 4, 3}, {S_TermW, 5, 11}, {S_TermW, 4, 5}, {S_TermW, 7, 26}, {S_TermW, 5, 9}, {S_MakeUpW, 9, 768}, {S_TermW, 4, 6}, {S_TermW, 8, 37}, {S_MakeUpW, 5, 128}, {S_TermW, 7, 25}, {S_TermW, 6, 15}, {S_MakeUpW, 8, 320}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 6, 13}, {S_TermW, 4, 3}, {S_TermW, 7, 18}, {S_TermW, 4, 5}, {S_TermW, 7, 21}, {S_TermW, 6, 17}, {S_MakeUpW, 7, 256}, {S_TermW, 4, 6}, {S_TermW, 6, 1}, {S_TermW, 5, 8}, {S_MakeUpW, 6, 192}, {S_MakeUpW, 5, 64}, {S_TermW, 5, 10}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_MakeUp, 12, 2432}, {S_TermW, 4, 3}, {S_TermW, 5, 11}, {S_TermW, 4, 5}, {S_TermW, 6, 12}, {S_TermW, 5, 9}, {S_MakeUpW, 6, 1664}, {S_TermW, 4, 6}, {S_TermW, 7, 20}, {S_MakeUpW, 5, 128}, {S_TermW, 7, 24}, {S_TermW, 6, 14}, {S_TermW, 7, 28}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 7, 23}, {S_TermW, 4, 3}, {S_TermW, 7, 27}, {S_TermW, 4, 5}, {S_TermW, 8, 40}, {S_TermW, 6, 16}, {S_MakeUpW, 9, 896}, {S_TermW, 4, 6}, {S_TermW, 7, 19}, {S_TermW, 5, 8}, {S_TermW, 8, 56}, {S_MakeUpW, 5, 64}, {S_TermW, 5, 10}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 8, 46}, {S_TermW, 4, 3}, {S_TermW, 5, 11}, {S_TermW, 4, 5}, {S_TermW, 8, 54}, {S_TermW, 5, 9}, {S_MakeUpW, 8, 512}, {S_TermW, 4, 6}, {S_TermW, 8, 36}, {S_MakeUpW, 5, 128}, {S_TermW, 8, 52}, {S_TermW, 6, 15}, {S_TermW, 8, 0}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 6, 13}, {S_TermW, 4, 3}, {S_MakeUpW, 9, 1728}, {S_TermW, 4, 5}, {S_TermW, 8, 44}, {S_TermW, 6, 17}, {S_MakeUpW, 9, 1408}, {S_TermW, 4, 6}, {S_TermW, 6, 1}, {S_TermW, 5, 8}, {S_MakeUpW, 6, 192}, {S_MakeUpW, 5, 64}, {S_TermW, 5, 10}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 8, 30}, {S_TermW, 4, 3}, {S_TermW, 5, 11}, {S_TermW, 4, 5}, {S_TermW, 6, 12}, {S_TermW, 5, 9}, {S_MakeUpW, 6, 1664}, {S_TermW, 4, 6}, {S_TermW, 8, 34}, {S_MakeUpW, 5, 128}, {S_TermW, 8, 50}, {S_TermW, 6, 14}, {S_TermW, 8, 62}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 8, 48}, {S_TermW, 4, 3}, {S_TermW, 8, 60}, {S_TermW, 4, 5}, {S_TermW, 8, 42}, {S_TermW, 6, 16}, {S_MakeUpW, 9, 1152}, {S_TermW, 4, 6}, {S_TermW, 8, 32}, {S_TermW, 5, 8}, {S_TermW, 8, 58}, {S_MakeUpW, 5, 64}, {S_TermW, 5, 10}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 7, 22}, {S_TermW, 4, 3}, {S_TermW, 5, 11}, {S_TermW, 4, 5}, {S_TermW, 7, 26}, {S_TermW, 5, 9}, {S_MakeUpW, 8, 640}, {S_TermW, 4, 6}, {S_TermW, 8, 38}, {S_MakeUpW, 5, 128}, {S_TermW, 7, 25}, {S_TermW, 6, 15}, {S_MakeUpW, 8, 384}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 6, 13}, {S_TermW, 4, 3}, {S_TermW, 7, 18}, {S_TermW, 4, 5}, {S_TermW, 7, 21}, {S_TermW, 6, 17}, {S_MakeUpW, 7, 256}, {S_TermW, 4, 6}, {S_TermW, 6, 1}, {S_TermW, 5, 8}, {S_MakeUpW, 6, 192}, {S_MakeUpW, 5, 64}, {S_TermW, 5, 10}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_Null, 1, 0}, {S_TermW, 4, 3}, {S_TermW, 5, 11}, {S_TermW, 4, 5}, {S_TermW, 6, 12}, {S_TermW, 5, 9}, {S_MakeUpW, 6, 1664}, {S_TermW, 4, 6}, {S_TermW, 7, 20}, {S_MakeUpW, 5, 128}, {S_TermW, 7, 24}, {S_TermW, 6, 14}, {S_TermW, 7, 28}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 7, 23}, {S_TermW, 4, 3}, {S_TermW, 7, 27}, {S_TermW, 4, 5}, {S_TermW, 8, 39}, {S_TermW, 6, 16}, {S_MakeUpW, 8, 576}, {S_TermW, 4, 6}, {S_TermW, 7, 19}, {S_TermW, 5, 8}, {S_TermW, 8, 55}, {S_MakeUpW, 5, 64}, {S_TermW, 5, 10}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 8, 45}, {S_TermW, 4, 3}, {S_TermW, 5, 11}, {S_TermW, 4, 5}, {S_TermW, 8, 53}, {S_TermW, 5, 9}, {S_MakeUpW, 8, 448}, {S_TermW, 4, 6}, {S_TermW, 8, 35}, {S_MakeUpW, 5, 128}, {S_TermW, 8, 51}, {S_TermW, 6, 15}, {S_TermW, 8, 63}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 6, 13}, {S_TermW, 4, 3}, {S_MakeUpW, 9, 1472}, {S_TermW, 4, 5}, {S_TermW, 8, 43}, {S_TermW, 6, 17}, {S_MakeUpW, 9, 1216}, {S_TermW, 4, 6}, {S_TermW, 6, 1}, {S_TermW, 5, 8}, {S_MakeUpW, 6, 192}, {S_MakeUpW, 5, 64}, {S_TermW, 5, 10}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 8, 29}, {S_TermW, 4, 3}, {S_TermW, 5, 11}, {S_TermW, 4, 5}, {S_TermW, 6, 12}, {S_TermW, 5, 9}, {S_MakeUpW, 6, 1664}, {S_TermW, 4, 6}, {S_TermW, 8, 33}, {S_MakeUpW, 5, 128}, {S_TermW, 8, 49}, {S_TermW, 6, 14}, {S_TermW, 8, 61}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 8, 47}, {S_TermW, 4, 3}, {S_TermW, 8, 59}, {S_TermW, 4, 5}, {S_TermW, 8, 41}, {S_TermW, 6, 16}, {S_MakeUpW, 9, 960}, {S_TermW, 4, 6}, {S_TermW, 8, 31}, {S_TermW, 5, 8}, {S_TermW, 8, 57}, {S_MakeUpW, 5, 64}, {S_TermW, 5, 10}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 7, 22}, {S_TermW, 4, 3}, {S_TermW, 5, 11}, {S_TermW, 4, 5}, {S_TermW, 7, 26}, {S_TermW, 5, 9}, {S_MakeUpW, 9, 704}, {S_TermW, 4, 6}, {S_TermW, 8, 37}, {S_MakeUpW, 5, 128}, {S_TermW, 7, 25}, {S_TermW, 6, 15}, {S_MakeUpW, 8, 320}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 6, 13}, {S_TermW, 4, 3}, {S_TermW, 7, 18}, {S_TermW, 4, 5}, {S_TermW, 7, 21}, {S_TermW, 6, 17}, {S_MakeUpW, 7, 256}, {S_TermW, 4, 6}, {S_TermW, 6, 1}, {S_TermW, 5, 8}, {S_MakeUpW, 6, 192}, {S_MakeUpW, 5, 64}, {S_TermW, 5, 10}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_MakeUp, 12, 2048}, {S_TermW, 4, 3}, {S_TermW, 5, 11}, {S_TermW, 4, 5}, {S_TermW, 6, 12}, {S_TermW, 5, 9}, {S_MakeUpW, 6, 1664}, {S_TermW, 4, 6}, {S_TermW, 7, 20}, {S_MakeUpW, 5, 128}, {S_TermW, 7, 24}, {S_TermW, 6, 14}, {S_TermW, 7, 28}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 7, 23}, {S_TermW, 4, 3}, {S_TermW, 7, 27}, {S_TermW, 4, 5}, {S_TermW, 8, 40}, {S_TermW, 6, 16}, {S_MakeUpW, 9, 832}, {S_TermW, 4, 6}, {S_TermW, 7, 19}, {S_TermW, 5, 8}, {S_TermW, 8, 56}, {S_MakeUpW, 5, 64}, {S_TermW, 5, 10}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 8, 46}, {S_TermW, 4, 3}, {S_TermW, 5, 11}, {S_TermW, 4, 5}, {S_TermW, 8, 54}, {S_TermW, 5, 9}, {S_MakeUpW, 8, 512}, {S_TermW, 4, 6}, {S_TermW, 8, 36}, {S_MakeUpW, 5, 128}, {S_TermW, 8, 52}, {S_TermW, 6, 15}, {S_TermW, 8, 0}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 6, 13}, {S_TermW, 4, 3}, {S_MakeUpW, 9, 1600}, {S_TermW, 4, 5}, {S_TermW, 8, 44}, {S_TermW, 6, 17}, {S_MakeUpW, 9, 1344}, {S_TermW, 4, 6}, {S_TermW, 6, 1}, {S_TermW, 5, 8}, {S_MakeUpW, 6, 192}, {S_MakeUpW, 5, 64}, {S_TermW, 5, 10}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 8, 30}, {S_TermW, 4, 3}, {S_TermW, 5, 11}, {S_TermW, 4, 5}, {S_TermW, 6, 12}, {S_TermW, 5, 9}, {S_MakeUpW, 6, 1664}, {S_TermW, 4, 6}, {S_TermW, 8, 34}, {S_MakeUpW, 5, 128}, {S_TermW, 8, 50}, {S_TermW, 6, 14}, {S_TermW, 8, 62}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 8, 48}, {S_TermW, 4, 3}, {S_TermW, 8, 60}, {S_TermW, 4, 5}, {S_TermW, 8, 42}, {S_TermW, 6, 16}, {S_MakeUpW, 9, 1088}, {S_TermW, 4, 6}, {S_TermW, 8, 32}, {S_TermW, 5, 8}, {S_TermW, 8, 58}, {S_MakeUpW, 5, 64}, {S_TermW, 5, 10}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 7, 22}, {S_TermW, 4, 3}, {S_TermW, 5, 11}, {S_TermW, 4, 5}, {S_TermW, 7, 26}, {S_TermW, 5, 9}, {S_MakeUpW, 8, 640}, {S_TermW, 4, 6}, {S_TermW, 8, 38}, {S_MakeUpW, 5, 128}, {S_TermW, 7, 25}, {S_TermW, 6, 15}, {S_MakeUpW, 8, 384}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 6, 13}, {S_TermW, 4, 3}, {S_TermW, 7, 18}, {S_TermW, 4, 5}, {S_TermW, 7, 21}, {S_TermW, 6, 17}, {S_MakeUpW, 7, 256}, {S_TermW, 4, 6}, {S_TermW, 6, 1}, {S_TermW, 5, 8}, {S_MakeUpW, 6, 192}, {S_MakeUpW, 5, 64}, {S_TermW, 5, 10}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_Null, 1, 0}, {S_TermW, 4, 3}, {S_TermW, 5, 11}, {S_TermW, 4, 5}, {S_TermW, 6, 12}, {S_TermW, 5, 9}, {S_MakeUpW, 6, 1664}, {S_TermW, 4, 6}, {S_TermW, 7, 20}, {S_MakeUpW, 5, 128}, {S_TermW, 7, 24}, {S_TermW, 6, 14}, {S_TermW, 7, 28}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 7, 23}, {S_TermW, 4, 3}, {S_TermW, 7, 27}, {S_TermW, 4, 5}, {S_TermW, 8, 39}, {S_TermW, 6, 16}, {S_MakeUpW, 8, 576}, {S_TermW, 4, 6}, {S_TermW, 7, 19}, {S_TermW, 5, 8}, {S_TermW, 8, 55}, {S_MakeUpW, 5, 64}, {S_TermW, 5, 10}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 8, 45}, {S_TermW, 4, 3}, {S_TermW, 5, 11}, {S_TermW, 4, 5}, {S_TermW, 8, 53}, {S_TermW, 5, 9}, {S_MakeUpW, 8, 448}, {S_TermW, 4, 6}, {S_TermW, 8, 35}, {S_MakeUpW, 5, 128}, {S_TermW, 8, 51}, {S_TermW, 6, 15}, {S_TermW, 8, 63}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 6, 13}, {S_TermW, 4, 3}, {S_MakeUpW, 9, 1536}, {S_TermW, 4, 5}, {S_TermW, 8, 43}, {S_TermW, 6, 17}, {S_MakeUpW, 9, 1280}, {S_TermW, 4, 6}, {S_TermW, 6, 1}, {S_TermW, 5, 8}, {S_MakeUpW, 6, 192}, {S_MakeUpW, 5, 64}, {S_TermW, 5, 10}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 8, 29}, {S_TermW, 4, 3}, {S_TermW, 5, 11}, {S_TermW, 4, 5}, {S_TermW, 6, 12}, {S_TermW, 5, 9}, {S_MakeUpW, 6, 1664}, {S_TermW, 4, 6}, {S_TermW, 8, 33}, {S_MakeUpW, 5, 128}, {S_TermW, 8, 49}, {S_TermW, 6, 14}, {S_TermW, 8, 61}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 8, 47}, {S_TermW, 4, 3}, {S_TermW, 8, 59}, {S_TermW, 4, 5}, {S_TermW, 8, 41}, {S_TermW, 6, 16}, {S_MakeUpW, 9, 1024}, {S_TermW, 4, 6}, {S_TermW, 8, 31}, {S_TermW, 5, 8}, {S_TermW, 8, 57}, {S_MakeUpW, 5, 64}, {S_TermW, 5, 10}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 7, 22}, {S_TermW, 4, 3}, {S_TermW, 5, 11}, {S_TermW, 4, 5}, {S_TermW, 7, 26}, {S_TermW, 5, 9}, {S_MakeUpW, 9, 768}, {S_TermW, 4, 6}, {S_TermW, 8, 37}, {S_MakeUpW, 5, 128}, {S_TermW, 7, 25}, {S_TermW, 6, 15}, {S_MakeUpW, 8, 320}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 6, 13}, {S_TermW, 4, 3}, {S_TermW, 7, 18}, {S_TermW, 4, 5}, {S_TermW, 7, 21}, {S_TermW, 6, 17}, {S_MakeUpW, 7, 256}, {S_TermW, 4, 6}, {S_TermW, 6, 1}, {S_TermW, 5, 8}, {S_MakeUpW, 6, 192}, {S_MakeUpW, 5, 64}, {S_TermW, 5, 10}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_MakeUp, 11, 1920}, {S_TermW, 4, 3}, {S_TermW, 5, 11}, {S_TermW, 4, 5}, {S_TermW, 6, 12}, {S_TermW, 5, 9}, {S_MakeUpW, 6, 1664}, {S_TermW, 4, 6}, {S_TermW, 7, 20}, {S_MakeUpW, 5, 128}, {S_TermW, 7, 24}, {S_TermW, 6, 14}, {S_TermW, 7, 28}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 7, 23}, {S_TermW, 4, 3}, {S_TermW, 7, 27}, {S_TermW, 4, 5}, {S_TermW, 8, 40}, {S_TermW, 6, 16}, {S_MakeUpW, 9, 896}, {S_TermW, 4, 6}, {S_TermW, 7, 19}, {S_TermW, 5, 8}, {S_TermW, 8, 56}, {S_MakeUpW, 5, 64}, {S_TermW, 5, 10}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 8, 46}, {S_TermW, 4, 3}, {S_TermW, 5, 11}, {S_TermW, 4, 5}, {S_TermW, 8, 54}, {S_TermW, 5, 9}, {S_MakeUpW, 8, 512}, {S_TermW, 4, 6}, {S_TermW, 8, 36}, {S_MakeUpW, 5, 128}, {S_TermW, 8, 52}, {S_TermW, 6, 15}, {S_TermW, 8, 0}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 6, 13}, {S_TermW, 4, 3}, {S_MakeUpW, 9, 1728}, {S_TermW, 4, 5}, {S_TermW, 8, 44}, {S_TermW, 6, 17}, {S_MakeUpW, 9, 1408}, {S_TermW, 4, 6}, {S_TermW, 6, 1}, {S_TermW, 5, 8}, {S_MakeUpW, 6, 192}, {S_MakeUpW, 5, 64}, {S_TermW, 5, 10}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 8, 30}, {S_TermW, 4, 3}, {S_TermW, 5, 11}, {S_TermW, 4, 5}, {S_TermW, 6, 12}, {S_TermW, 5, 9}, {S_MakeUpW, 6, 1664}, {S_TermW, 4, 6}, {S_TermW, 8, 34}, {S_MakeUpW, 5, 128}, {S_TermW, 8, 50}, {S_TermW, 6, 14}, {S_TermW, 8, 62}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 8, 48}, {S_TermW, 4, 3}, {S_TermW, 8, 60}, {S_TermW, 4, 5}, {S_TermW, 8, 42}, {S_TermW, 6, 16}, {S_MakeUpW, 9, 1152}, {S_TermW, 4, 6}, {S_TermW, 8, 32}, {S_TermW, 5, 8}, {S_TermW, 8, 58}, {S_MakeUpW, 5, 64}, {S_TermW, 5, 10}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 7, 22}, {S_TermW, 4, 3}, {S_TermW, 5, 11}, {S_TermW, 4, 5}, {S_TermW, 7, 26}, {S_TermW, 5, 9}, {S_MakeUpW, 8, 640}, {S_TermW, 4, 6}, {S_TermW, 8, 38}, {S_MakeUpW, 5, 128}, {S_TermW, 7, 25}, {S_TermW, 6, 15}, {S_MakeUpW, 8, 384}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 6, 13}, {S_TermW, 4, 3}, {S_TermW, 7, 18}, {S_TermW, 4, 5}, {S_TermW, 7, 21}, {S_TermW, 6, 17}, {S_MakeUpW, 7, 256}, {S_TermW, 4, 6}, {S_TermW, 6, 1}, {S_TermW, 5, 8}, {S_MakeUpW, 6, 192}, {S_MakeUpW, 5, 64}, {S_TermW, 5, 10}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_Null, 1, 0}, {S_TermW, 4, 3}, {S_TermW, 5, 11}, {S_TermW, 4, 5}, {S_TermW, 6, 12}, {S_TermW, 5, 9}, {S_MakeUpW, 6, 1664}, {S_TermW, 4, 6}, {S_TermW, 7, 20}, {S_MakeUpW, 5, 128}, {S_TermW, 7, 24}, {S_TermW, 6, 14}, {S_TermW, 7, 28}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 7, 23}, {S_TermW, 4, 3}, {S_TermW, 7, 27}, {S_TermW, 4, 5}, {S_TermW, 8, 39}, {S_TermW, 6, 16}, {S_MakeUpW, 8, 576}, {S_TermW, 4, 6}, {S_TermW, 7, 19}, {S_TermW, 5, 8}, {S_TermW, 8, 55}, {S_MakeUpW, 5, 64}, {S_TermW, 5, 10}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 8, 45}, {S_TermW, 4, 3}, {S_TermW, 5, 11}, {S_TermW, 4, 5}, {S_TermW, 8, 53}, {S_TermW, 5, 9}, {S_MakeUpW, 8, 448}, {S_TermW, 4, 6}, {S_TermW, 8, 35}, {S_MakeUpW, 5, 128}, {S_TermW, 8, 51}, {S_TermW, 6, 15}, {S_TermW, 8, 63}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 6, 13}, {S_TermW, 4, 3}, {S_MakeUpW, 9, 1472}, {S_TermW, 4, 5}, {S_TermW, 8, 43}, {S_TermW, 6, 17}, {S_MakeUpW, 9, 1216}, {S_TermW, 4, 6}, {S_TermW, 6, 1}, {S_TermW, 5, 8}, {S_MakeUpW, 6, 192}, {S_MakeUpW, 5, 64}, {S_TermW, 5, 10}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 8, 29}, {S_TermW, 4, 3}, {S_TermW, 5, 11}, {S_TermW, 4, 5}, {S_TermW, 6, 12}, {S_TermW, 5, 9}, {S_MakeUpW, 6, 1664}, {S_TermW, 4, 6}, {S_TermW, 8, 33}, {S_MakeUpW, 5, 128}, {S_TermW, 8, 49}, {S_TermW, 6, 14}, {S_TermW, 8, 61}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 8, 47}, {S_TermW, 4, 3}, {S_TermW, 8, 59}, {S_TermW, 4, 5}, {S_TermW, 8, 41}, {S_TermW, 6, 16}, {S_MakeUpW, 9, 960}, {S_TermW, 4, 6}, {S_TermW, 8, 31}, {S_TermW, 5, 8}, {S_TermW, 8, 57}, {S_MakeUpW, 5, 64}, {S_TermW, 5, 10}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 7, 22}, {S_TermW, 4, 3}, {S_TermW, 5, 11}, {S_TermW, 4, 5}, {S_TermW, 7, 26}, {S_TermW, 5, 9}, {S_MakeUpW, 9, 704}, {S_TermW, 4, 6}, {S_TermW, 8, 37}, {S_MakeUpW, 5, 128}, {S_TermW, 7, 25}, {S_TermW, 6, 15}, {S_MakeUpW, 8, 320}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 6, 13}, {S_TermW, 4, 3}, {S_TermW, 7, 18}, {S_TermW, 4, 5}, {S_TermW, 7, 21}, {S_TermW, 6, 17}, {S_MakeUpW, 7, 256}, {S_TermW, 4, 6}, {S_TermW, 6, 1}, {S_TermW, 5, 8}, {S_MakeUpW, 6, 192}, {S_MakeUpW, 5, 64}, {S_TermW, 5, 10}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_MakeUp, 12, 2304}, {S_TermW, 4, 3}, {S_TermW, 5, 11}, {S_TermW, 4, 5}, {S_TermW, 6, 12}, {S_TermW, 5, 9}, {S_MakeUpW, 6, 1664}, {S_TermW, 4, 6}, {S_TermW, 7, 20}, {S_MakeUpW, 5, 128}, {S_TermW, 7, 24}, {S_TermW, 6, 14}, {S_TermW, 7, 28}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 7, 23}, {S_TermW, 4, 3}, {S_TermW, 7, 27}, {S_TermW, 4, 5}, {S_TermW, 8, 40}, {S_TermW, 6, 16}, {S_MakeUpW, 9, 832}, {S_TermW, 4, 6}, {S_TermW, 7, 19}, {S_TermW, 5, 8}, {S_TermW, 8, 56}, {S_MakeUpW, 5, 64}, {S_TermW, 5, 10}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 8, 46}, {S_TermW, 4, 3}, {S_TermW, 5, 11}, {S_TermW, 4, 5}, {S_TermW, 8, 54}, {S_TermW, 5, 9}, {S_MakeUpW, 8, 512}, {S_TermW, 4, 6}, {S_TermW, 8, 36}, {S_MakeUpW, 5, 128}, {S_TermW, 8, 52}, {S_TermW, 6, 15}, {S_TermW, 8, 0}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 6, 13}, {S_TermW, 4, 3}, {S_MakeUpW, 9, 1600}, {S_TermW, 4, 5}, {S_TermW, 8, 44}, {S_TermW, 6, 17}, {S_MakeUpW, 9, 1344}, {S_TermW, 4, 6}, {S_TermW, 6, 1}, {S_TermW, 5, 8}, {S_MakeUpW, 6, 192}, {S_MakeUpW, 5, 64}, {S_TermW, 5, 10}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 8, 30}, {S_TermW, 4, 3}, {S_TermW, 5, 11}, {S_TermW, 4, 5}, {S_TermW, 6, 12}, {S_TermW, 5, 9}, {S_MakeUpW, 6, 1664}, {S_TermW, 4, 6}, {S_TermW, 8, 34}, {S_MakeUpW, 5, 128}, {S_TermW, 8, 50}, {S_TermW, 6, 14}, {S_TermW, 8, 62}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 8, 48}, {S_TermW, 4, 3}, {S_TermW, 8, 60}, {S_TermW, 4, 5}, {S_TermW, 8, 42}, {S_TermW, 6, 16}, {S_MakeUpW, 9, 1088}, {S_TermW, 4, 6}, {S_TermW, 8, 32}, {S_TermW, 5, 8}, {S_TermW, 8, 58}, {S_MakeUpW, 5, 64}, {S_TermW, 5, 10}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 7, 22}, {S_TermW, 4, 3}, {S_TermW, 5, 11}, {S_TermW, 4, 5}, {S_TermW, 7, 26}, {S_TermW, 5, 9}, {S_MakeUpW, 8, 640}, {S_TermW, 4, 6}, {S_TermW, 8, 38}, {S_MakeUpW, 5, 128}, {S_TermW, 7, 25}, {S_TermW, 6, 15}, {S_MakeUpW, 8, 384}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 6, 13}, {S_TermW, 4, 3}, {S_TermW, 7, 18}, {S_TermW, 4, 5}, {S_TermW, 7, 21}, {S_TermW, 6, 17}, {S_MakeUpW, 7, 256}, {S_TermW, 4, 6}, {S_TermW, 6, 1}, {S_TermW, 5, 8}, {S_MakeUpW, 6, 192}, {S_MakeUpW, 5, 64}, {S_TermW, 5, 10}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_Null, 1, 0}, {S_TermW, 4, 3}, {S_TermW, 5, 11}, {S_TermW, 4, 5}, {S_TermW, 6, 12}, {S_TermW, 5, 9}, {S_MakeUpW, 6, 1664}, {S_TermW, 4, 6}, {S_TermW, 7, 20}, {S_MakeUpW, 5, 128}, {S_TermW, 7, 24}, {S_TermW, 6, 14}, {S_TermW, 7, 28}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 7, 23}, {S_TermW, 4, 3}, {S_TermW, 7, 27}, {S_TermW, 4, 5}, {S_TermW, 8, 39}, {S_TermW, 6, 16}, {S_MakeUpW, 8, 576}, {S_TermW, 4, 6}, {S_TermW, 7, 19}, {S_TermW, 5, 8}, {S_TermW, 8, 55}, {S_MakeUpW, 5, 64}, {S_TermW, 5, 10}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 8, 45}, {S_TermW, 4, 3}, {S_TermW, 5, 11}, {S_TermW, 4, 5}, {S_TermW, 8, 53}, {S_TermW, 5, 9}, {S_MakeUpW, 8, 448}, {S_TermW, 4, 6}, {S_TermW, 8, 35}, {S_MakeUpW, 5, 128}, {S_TermW, 8, 51}, {S_TermW, 6, 15}, {S_TermW, 8, 63}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 6, 13}, {S_TermW, 4, 3}, {S_MakeUpW, 9, 1536}, {S_TermW, 4, 5}, {S_TermW, 8, 43}, {S_TermW, 6, 17}, {S_MakeUpW, 9, 1280}, {S_TermW, 4, 6}, {S_TermW, 6, 1}, {S_TermW, 5, 8}, {S_MakeUpW, 6, 192}, {S_MakeUpW, 5, 64}, {S_TermW, 5, 10}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 8, 29}, {S_TermW, 4, 3}, {S_TermW, 5, 11}, {S_TermW, 4, 5}, {S_TermW, 6, 12}, {S_TermW, 5, 9}, {S_MakeUpW, 6, 1664}, {S_TermW, 4, 6}, {S_TermW, 8, 33}, {S_MakeUpW, 5, 128}, {S_TermW, 8, 49}, {S_TermW, 6, 14}, {S_TermW, 8, 61}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 8, 47}, {S_TermW, 4, 3}, {S_TermW, 8, 59}, {S_TermW, 4, 5}, {S_TermW, 8, 41}, {S_TermW, 6, 16}, {S_MakeUpW, 9, 1024}, {S_TermW, 4, 6}, {S_TermW, 8, 31}, {S_TermW, 5, 8}, {S_TermW, 8, 57}, {S_MakeUpW, 5, 64}, {S_TermW, 5, 10}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 7, 22}, {S_TermW, 4, 3}, {S_TermW, 5, 11}, {S_TermW, 4, 5}, {S_TermW, 7, 26}, {S_TermW, 5, 9}, {S_MakeUpW, 9, 768}, {S_TermW, 4, 6}, {S_TermW, 8, 37}, {S_MakeUpW, 5, 128}, {S_TermW, 7, 25}, {S_TermW, 6, 15}, {S_MakeUpW, 8, 320}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 6, 13}, {S_TermW, 4, 3}, {S_TermW, 7, 18}, {S_TermW, 4, 5}, {S_TermW, 7, 21}, {S_TermW, 6, 17}, {S_MakeUpW, 7, 256}, {S_TermW, 4, 6}, {S_TermW, 6, 1}, {S_TermW, 5, 8}, {S_MakeUpW, 6, 192}, {S_MakeUpW, 5, 64}, {S_TermW, 5, 10}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_MakeUp, 12, 2560}, {S_TermW, 4, 3}, {S_TermW, 5, 11}, {S_TermW, 4, 5}, {S_TermW, 6, 12}, {S_TermW, 5, 9}, {S_MakeUpW, 6, 1664}, {S_TermW, 4, 6}, {S_TermW, 7, 20}, {S_MakeUpW, 5, 128}, {S_TermW, 7, 24}, {S_TermW, 6, 14}, {S_TermW, 7, 28}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 7, 23}, {S_TermW, 4, 3}, {S_TermW, 7, 27}, {S_TermW, 4, 5}, {S_TermW, 8, 40}, {S_TermW, 6, 16}, {S_MakeUpW, 9, 896}, {S_TermW, 4, 6}, {S_TermW, 7, 19}, {S_TermW, 5, 8}, {S_TermW, 8, 56}, {S_MakeUpW, 5, 64}, {S_TermW, 5, 10}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 8, 46}, {S_TermW, 4, 3}, {S_TermW, 5, 11}, {S_TermW, 4, 5}, {S_TermW, 8, 54}, {S_TermW, 5, 9}, {S_MakeUpW, 8, 512}, {S_TermW, 4, 6}, {S_TermW, 8, 36}, {S_MakeUpW, 5, 128}, {S_TermW, 8, 52}, {S_TermW, 6, 15}, {S_TermW, 8, 0}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 6, 13}, {S_TermW, 4, 3}, {S_MakeUpW, 9, 1728}, {S_TermW, 4, 5}, {S_TermW, 8, 44}, {S_TermW, 6, 17}, {S_MakeUpW, 9, 1408}, {S_TermW, 4, 6}, {S_TermW, 6, 1}, {S_TermW, 5, 8}, {S_MakeUpW, 6, 192}, {S_MakeUpW, 5, 64}, {S_TermW, 5, 10}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 8, 30}, {S_TermW, 4, 3}, {S_TermW, 5, 11}, {S_TermW, 4, 5}, {S_TermW, 6, 12}, {S_TermW, 5, 9}, {S_MakeUpW, 6, 1664}, {S_TermW, 4, 6}, {S_TermW, 8, 34}, {S_MakeUpW, 5, 128}, {S_TermW, 8, 50}, {S_TermW, 6, 14}, {S_TermW, 8, 62}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 8, 48}, {S_TermW, 4, 3}, {S_TermW, 8, 60}, {S_TermW, 4, 5}, {S_TermW, 8, 42}, {S_TermW, 6, 16}, {S_MakeUpW, 9, 1152}, {S_TermW, 4, 6}, {S_TermW, 8, 32}, {S_TermW, 5, 8}, {S_TermW, 8, 58}, {S_MakeUpW, 5, 64}, {S_TermW, 5, 10}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 7, 22}, {S_TermW, 4, 3}, {S_TermW, 5, 11}, {S_TermW, 4, 5}, {S_TermW, 7, 26}, {S_TermW, 5, 9}, {S_MakeUpW, 8, 640}, {S_TermW, 4, 6}, {S_TermW, 8, 38}, {S_MakeUpW, 5, 128}, {S_TermW, 7, 25}, {S_TermW, 6, 15}, {S_MakeUpW, 8, 384}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7}, {S_TermW, 6, 13}, {S_TermW, 4, 3}, {S_TermW, 7, 18}, {S_TermW, 4, 5}, {S_TermW, 7, 21}, {S_TermW, 6, 17}, {S_MakeUpW, 7, 256}, {S_TermW, 4, 6}, {S_TermW, 6, 1}, {S_TermW, 5, 8}, {S_MakeUpW, 6, 192}, {S_MakeUpW, 5, 64}, {S_TermW, 5, 10}, {S_TermW, 4, 4}, {S_TermW, 4, 2}, {S_TermW, 4, 7} }; static const t4_table_entry_t t4_1d_black_table[8192] = { {S_Null, 1, 0}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 9}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 10}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 8, 13}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 8}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 9, 15}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 10, 18}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 9}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 11}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 10, 17}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 8}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 12}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_MakeUp, 11, 1792}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 9}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 10}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 11, 23}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 8}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 11, 20}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 11, 25}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 9}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 11}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 8, 14}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 8}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 12}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_Null, 1, 0}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 9}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 10}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 8, 13}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 8}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_MakeUpB, 12, 128}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 12, 56}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 9}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 11}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 12, 30}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 8}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 12}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_MakeUp, 11, 1856}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 9}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 10}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 12, 57}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 8}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 11, 21}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 12, 54}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 9}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 11}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 8, 14}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 8}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 12}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_Null, 1, 0}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 9}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 10}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 8, 13}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 8}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 9, 15}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 12, 52}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 9}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 11}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 12, 48}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 8}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 12}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_MakeUp, 12, 2112}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 9}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 10}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 12, 44}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 8}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 12, 36}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_MakeUpB, 12, 384}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 9}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 11}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 8, 14}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 8}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 12}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_Null, 1, 0}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 9}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 10}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 8, 13}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 8}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 12, 28}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 12, 60}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 9}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 11}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 12, 40}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 8}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 12}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_MakeUp, 12, 2368}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 9}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 10}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 10, 16}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 8}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 10, 0}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_MakeUpB, 10, 64}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 9}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 11}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 8, 14}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 8}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 12}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_Null, 1, 0}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 9}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 10}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 8, 13}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 8}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 9, 15}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 10, 18}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 9}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 11}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 10, 17}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 8}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 12}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_MakeUp, 12, 1984}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 9}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 10}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 12, 50}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 8}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 12, 34}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_MakeUpB, 13, 1664}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 9}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 11}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 8, 14}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 8}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 12}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_Null, 1, 0}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 9}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 10}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 8, 13}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 8}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 12, 26}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_MakeUpB, 13, 1408}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 9}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 11}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 12, 32}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 8}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 12}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_MakeUp, 11, 1920}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 9}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 10}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 12, 61}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 8}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 12, 42}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_MakeUpB, 13, 1024}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 9}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 11}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 8, 14}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 8}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 12}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_Null, 1, 0}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 9}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 10}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 8, 13}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 8}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 9, 15}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_MakeUpB, 13, 768}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 9}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 11}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 12, 62}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 8}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 12}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_MakeUp, 12, 2240}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 9}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 10}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 12, 46}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 8}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 12, 38}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_MakeUpB, 13, 512}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 9}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 11}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 8, 14}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 8}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 12}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_Null, 1, 0}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 9}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 10}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 8, 13}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 8}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 11, 19}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 11, 24}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 9}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 11}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 11, 22}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 8}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 12}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_MakeUp, 12, 2496}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 9}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 10}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 10, 16}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 8}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 10, 0}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_MakeUpB, 10, 64}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 9}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 11}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 8, 14}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 8}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 12}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_EOL, 12, 0}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 9}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 10}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 8, 13}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 8}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 9, 15}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 10, 18}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 9}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 11}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 10, 17}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 8}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 12}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_MakeUp, 11, 1792}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 9}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 10}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 11, 23}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 8}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 11, 20}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 11, 25}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 9}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 11}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 8, 14}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 8}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 12}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_Null, 1, 0}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 9}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 10}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 8, 13}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 8}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_MakeUpB, 12, 192}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_MakeUpB, 13, 1280}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 9}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 11}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 12, 31}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 8}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 12}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_MakeUp, 11, 1856}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 9}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 10}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 12, 58}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 8}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 11, 21}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_MakeUpB, 13, 896}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 9}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 11}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 8, 14}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 8}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 12}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_Null, 1, 0}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 9}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 10}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 8, 13}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 8}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 9, 15}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_MakeUpB, 13, 640}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 9}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 11}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 12, 49}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 8}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 12}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_MakeUp, 12, 2176}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 9}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 10}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 12, 45}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 8}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 12, 37}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_MakeUpB, 12, 448}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 9}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 11}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 8, 14}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 8}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 12}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_Null, 1, 0}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 9}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 10}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 8, 13}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 8}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 12, 29}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_MakeUpB, 13, 1536}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 9}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 11}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 12, 41}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 8}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 12}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_MakeUp, 12, 2432}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 9}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 10}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 10, 16}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 8}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 10, 0}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_MakeUpB, 10, 64}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 9}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 11}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 8, 14}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 8}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 12}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_Null, 1, 0}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 9}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 10}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 8, 13}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 8}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 9, 15}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 10, 18}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 9}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 11}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 10, 17}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 8}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 12}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_MakeUp, 12, 2048}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 9}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 10}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 12, 51}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 8}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 12, 35}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_MakeUpB, 12, 320}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 9}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 11}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 8, 14}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 8}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 12}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_Null, 1, 0}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 9}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 10}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 8, 13}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 8}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 12, 27}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 12, 59}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 9}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 11}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 12, 33}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 8}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 12}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_MakeUp, 11, 1920}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 9}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 10}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_MakeUpB, 12, 256}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 8}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 12, 43}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_MakeUpB, 13, 1152}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 9}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 11}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 8, 14}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 8}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 12}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_Null, 1, 0}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 9}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 10}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 8, 13}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 8}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 9, 15}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 12, 55}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 9}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 11}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 12, 63}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 8}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 12}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_MakeUp, 12, 2304}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 9}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 10}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 12, 47}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 8}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 12, 39}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 12, 53}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 9}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 11}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 8, 14}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 8}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 12}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_Null, 1, 0}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 9}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 10}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 8, 13}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 8}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 11, 19}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 11, 24}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 9}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 11}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 11, 22}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 8}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 12}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_MakeUp, 12, 2560}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 9}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 10}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 10, 16}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 8}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 10, 0}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_MakeUpB, 10, 64}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 9}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 11}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 8, 14}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 8}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 12}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_Null, 1, 0}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 9}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 10}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 8, 13}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 8}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 9, 15}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 10, 18}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 9}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 11}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 10, 17}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 8}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 12}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_MakeUp, 11, 1792}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 9}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 10}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 11, 23}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 8}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 11, 20}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 11, 25}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 9}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 11}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 8, 14}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 8}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 12}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_Null, 1, 0}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 9}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 10}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 8, 13}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 8}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_MakeUpB, 12, 128}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 12, 56}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 9}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 11}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 12, 30}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 8}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 12}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_MakeUp, 11, 1856}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 9}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 10}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 12, 57}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 8}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 11, 21}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 12, 54}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 9}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 11}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 8, 14}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 8}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 12}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_Null, 1, 0}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 9}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 10}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 8, 13}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 8}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 9, 15}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 12, 52}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 9}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 11}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 12, 48}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 8}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 12}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_MakeUp, 12, 2112}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 9}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 10}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 12, 44}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 8}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 12, 36}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_MakeUpB, 12, 384}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 9}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 11}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 8, 14}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 8}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 12}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_Null, 1, 0}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 9}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 10}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 8, 13}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 8}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 12, 28}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 12, 60}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 9}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 11}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 12, 40}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 8}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 12}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_MakeUp, 12, 2368}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 9}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 10}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 10, 16}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 8}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 10, 0}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_MakeUpB, 10, 64}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 9}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 11}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 8, 14}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 8}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 12}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_Null, 1, 0}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 9}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 10}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 8, 13}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 8}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 9, 15}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 10, 18}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 9}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 11}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 10, 17}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 8}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 12}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_MakeUp, 12, 1984}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 9}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 10}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 12, 50}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 8}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 12, 34}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_MakeUpB, 13, 1728}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 9}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 11}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 8, 14}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 8}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 12}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_Null, 1, 0}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 9}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 10}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 8, 13}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 8}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 12, 26}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_MakeUpB, 13, 1472}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 9}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 11}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 12, 32}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 8}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 12}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_MakeUp, 11, 1920}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 9}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 10}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 12, 61}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 8}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 12, 42}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_MakeUpB, 13, 1088}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 9}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 11}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 8, 14}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 8}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 12}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_Null, 1, 0}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 9}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 10}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 8, 13}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 8}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 9, 15}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_MakeUpB, 13, 832}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 9}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 11}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 12, 62}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 8}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 12}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_MakeUp, 12, 2240}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 9}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 10}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 12, 46}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 8}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 12, 38}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_MakeUpB, 13, 576}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 9}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 11}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 8, 14}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 8}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 12}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_Null, 1, 0}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 9}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 10}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 8, 13}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 8}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 11, 19}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 11, 24}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 9}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 11}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 11, 22}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 8}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 12}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_MakeUp, 12, 2496}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 9}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 10}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 10, 16}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 8}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 10, 0}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_MakeUpB, 10, 64}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 9}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 11}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 8, 14}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 8}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 12}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_EOL, 12, 0}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 9}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 10}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 8, 13}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 8}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 9, 15}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 10, 18}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 9}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 11}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 10, 17}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 8}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 12}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_MakeUp, 11, 1792}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 9}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 10}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 11, 23}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 8}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 11, 20}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 11, 25}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 9}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 11}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 8, 14}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 8}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 12}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_Null, 1, 0}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 9}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 10}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 8, 13}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 8}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_MakeUpB, 12, 192}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_MakeUpB, 13, 1344}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 9}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 11}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 12, 31}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 8}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 12}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_MakeUp, 11, 1856}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 9}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 10}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 12, 58}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 8}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 11, 21}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_MakeUpB, 13, 960}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 9}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 11}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 8, 14}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 8}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 12}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_Null, 1, 0}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 9}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 10}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 8, 13}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 8}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 9, 15}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_MakeUpB, 13, 704}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 9}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 11}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 12, 49}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 8}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 12}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_MakeUp, 12, 2176}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 9}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 10}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 12, 45}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 8}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 12, 37}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_MakeUpB, 12, 448}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 9}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 11}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 8, 14}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 8}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 12}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_Null, 1, 0}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 9}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 10}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 8, 13}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 8}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 12, 29}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_MakeUpB, 13, 1600}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 9}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 11}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 12, 41}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 8}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 12}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_MakeUp, 12, 2432}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 9}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 10}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 10, 16}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 8}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 10, 0}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_MakeUpB, 10, 64}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 9}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 11}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 8, 14}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 8}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 12}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_Null, 1, 0}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 9}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 10}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 8, 13}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 8}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 9, 15}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 10, 18}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 9}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 11}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 10, 17}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 8}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 12}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_MakeUp, 12, 2048}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 9}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 10}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 12, 51}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 8}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 12, 35}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_MakeUpB, 12, 320}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 9}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 11}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 8, 14}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 8}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 12}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_Null, 1, 0}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 9}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 10}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 8, 13}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 8}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 12, 27}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 12, 59}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 9}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 11}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 12, 33}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 8}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 12}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_MakeUp, 11, 1920}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 9}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 10}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_MakeUpB, 12, 256}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 8}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 12, 43}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_MakeUpB, 13, 1216}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 9}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 11}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 8, 14}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 8}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 12}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_Null, 1, 0}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 9}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 10}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 8, 13}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 8}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 9, 15}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 12, 55}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 9}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 11}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 12, 63}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 8}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 12}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_MakeUp, 12, 2304}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 9}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 10}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 12, 47}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 8}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 12, 39}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 12, 53}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 9}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 11}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 8, 14}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 8}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 12}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_Null, 1, 0}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 9}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 10}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 8, 13}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 8}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 11, 19}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 11, 24}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 9}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 11}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 11, 22}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 8}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 12}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_MakeUp, 12, 2560}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 9}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 10}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 10, 16}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 8}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 10, 0}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_MakeUpB, 10, 64}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 9}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 11}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 8, 14}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 6, 8}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 7, 12}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 6}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2}, {S_TermB, 5, 7}, {S_TermB, 2, 3}, {S_TermB, 3, 1}, {S_TermB, 2, 2}, {S_TermB, 4, 5}, {S_TermB, 2, 3}, {S_TermB, 3, 4}, {S_TermB, 2, 2} }; /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/v17rx.c0000664000175000017500000015700111422612263014524 0ustar steveusteveu#define IAXMODEM_STUFF /* * SpanDSP - a series of DSP components for telephony * * v17rx.c - ITU V.17 modem receive part * * Written by Steve Underwood * * Copyright (C) 2004, 2005, 2006, 2007 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \file */ #if defined(HAVE_CONFIG_H) #include "config.h" #endif #include #include #include #include #if defined(HAVE_TGMATH_H) #include #endif #if defined(HAVE_MATH_H) #include #endif #include "floating_fudge.h" #include "spandsp/telephony.h" #include "spandsp/logging.h" #include "spandsp/complex.h" #include "spandsp/vector_float.h" #include "spandsp/complex_vector_float.h" #include "spandsp/vector_int.h" #include "spandsp/complex_vector_int.h" #include "spandsp/async.h" #include "spandsp/power_meter.h" #include "spandsp/arctan2.h" #include "spandsp/dds.h" #include "spandsp/complex_filters.h" #include "spandsp/v29rx.h" #include "spandsp/v17tx.h" #include "spandsp/v17rx.h" #include "spandsp/private/logging.h" #include "spandsp/private/v17rx.h" #include "v17_v32bis_tx_constellation_maps.h" #include "v17_v32bis_rx_constellation_maps.h" #if defined(SPANDSP_USE_FIXED_POINT) #include "v17_v32bis_rx_fixed_rrc.h" #else #include "v17_v32bis_rx_floating_rrc.h" #endif /*! The nominal frequency of the carrier, in Hertz */ #define CARRIER_NOMINAL_FREQ 1800.0f /*! The nominal baud or symbol rate */ #define BAUD_RATE 2400 /*! The adaption rate coefficient for the equalizer during initial training */ #define EQUALIZER_DELTA 0.21f /*! The adaption rate coefficient for the equalizer during continuous fine tuning */ #define EQUALIZER_SLOW_ADAPT_RATIO 0.1f /* Segments of the training sequence */ /*! The length of training segment 1, in symbols */ #define V17_TRAINING_SEG_1_LEN 256 /*! The length of training segment 2 in long training mode, in symbols */ #define V17_TRAINING_SEG_2_LEN 2976 /*! The length of training segment 2 in short training mode, in symbols */ #define V17_TRAINING_SHORT_SEG_2_LEN 38 /*! The length of training segment 3, in symbols */ #define V17_TRAINING_SEG_3_LEN 64 /*! The length of training segment 4A, in symbols */ #define V17_TRAINING_SEG_4A_LEN 15 /*! The length of training segment 4, in symbols */ #define V17_TRAINING_SEG_4_LEN 48 /*! The 16 bit pattern used in the bridge section of the training sequence */ #define V17_BRIDGE_WORD 0x8880 enum { TRAINING_STAGE_NORMAL_OPERATION = 0, TRAINING_STAGE_SYMBOL_ACQUISITION, TRAINING_STAGE_LOG_PHASE, TRAINING_STAGE_SHORT_WAIT_FOR_CDBA, TRAINING_STAGE_WAIT_FOR_CDBA, TRAINING_STAGE_COARSE_TRAIN_ON_CDBA, TRAINING_STAGE_FINE_TRAIN_ON_CDBA, TRAINING_STAGE_SHORT_TRAIN_ON_CDBA_AND_TEST, TRAINING_STAGE_TRAIN_ON_CDBA_AND_TEST, TRAINING_STAGE_BRIDGE, TRAINING_STAGE_TCM_WINDUP, TRAINING_STAGE_TEST_ONES, TRAINING_STAGE_PARKED }; /* Coefficients for the band edge symbol timing synchroniser (alpha = 0.99) */ /* low_edge = 2.0f*M_PI*(CARRIER_NOMINAL_FREQ - BAUD_RATE/2.0f)/SAMPLE_RATE; */ /* high_edge = 2.0f*M_PI*(CARRIER_NOMINAL_FREQ + BAUD_RATE/2.0f)/SAMPLE_RATE; */ #define SIN_LOW_BAND_EDGE 0.453990499f #define COS_LOW_BAND_EDGE 0.891006542f #define SIN_HIGH_BAND_EDGE 0.707106781f #define COS_HIGH_BAND_EDGE -0.707106781f #define ALPHA 0.99f #if defined(SPANDSP_USE_FIXED_POINTx) #define SYNC_LOW_BAND_EDGE_COEFF_0 ((int)(FP_FACTOR*(2.0f*ALPHA*COS_LOW_BAND_EDGE))) #define SYNC_LOW_BAND_EDGE_COEFF_1 ((int)(FP_FACTOR*(-ALPHA*ALPHA))) #define SYNC_LOW_BAND_EDGE_COEFF_2 ((int)(FP_FACTOR*(-ALPHA*SIN_LOW_BAND_EDGE))) #define SYNC_HIGH_BAND_EDGE_COEFF_0 ((int)(FP_FACTOR*(2.0f*ALPHA*COS_HIGH_BAND_EDGE))) #define SYNC_HIGH_BAND_EDGE_COEFF_1 ((int)(FP_FACTOR*(-ALPHA*ALPHA))) #define SYNC_HIGH_BAND_EDGE_COEFF_2 ((int)(FP_FACTOR*(-ALPHA*SIN_HIGH_BAND_EDGE))) #define SYNC_MIXED_EDGES_COEFF_3 ((int)(FP_FACTOR*(-ALPHA*ALPHA*(SIN_HIGH_BAND_EDGE*COS_LOW_BAND_EDGE - SIN_LOW_BAND_EDGE*COS_HIGH_BAND_EDGE)))) #else #define SYNC_LOW_BAND_EDGE_COEFF_0 (2.0f*ALPHA*COS_LOW_BAND_EDGE) #define SYNC_LOW_BAND_EDGE_COEFF_1 (-ALPHA*ALPHA) #define SYNC_LOW_BAND_EDGE_COEFF_2 (-ALPHA*SIN_LOW_BAND_EDGE) #define SYNC_HIGH_BAND_EDGE_COEFF_0 (2.0f*ALPHA*COS_HIGH_BAND_EDGE) #define SYNC_HIGH_BAND_EDGE_COEFF_1 (-ALPHA*ALPHA) #define SYNC_HIGH_BAND_EDGE_COEFF_2 (-ALPHA*SIN_HIGH_BAND_EDGE) #define SYNC_MIXED_EDGES_COEFF_3 (-ALPHA*ALPHA*(SIN_HIGH_BAND_EDGE*COS_LOW_BAND_EDGE - SIN_LOW_BAND_EDGE*COS_HIGH_BAND_EDGE)) #endif #if defined(SPANDSP_USE_FIXED_POINTx) static const int constellation_spacing[4] = { ((int)(FP_FACTOR*1.414f), ((int)(FP_FACTOR*2.0f)}, ((int)(FP_FACTOR*2.828f)}, ((int)(FP_FACTOR*4.0f)}, }; #else static const float constellation_spacing[4] = { 1.414f, 2.0f, 2.828f, 4.0f }; #endif SPAN_DECLARE(float) v17_rx_carrier_frequency(v17_rx_state_t *s) { return dds_frequencyf(s->carrier_phase_rate); } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(float) v17_rx_symbol_timing_correction(v17_rx_state_t *s) { return (float) s->total_baud_timing_correction/((float) RX_PULSESHAPER_COEFF_SETS*10.0f/3.0f); } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(float) v17_rx_signal_power(v17_rx_state_t *s) { return power_meter_current_dbm0(&s->power) + 3.98f; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) v17_rx_signal_cutoff(v17_rx_state_t *s, float cutoff) { /* The 0.4 factor allows for the gain of the DC blocker */ s->carrier_on_power = (int32_t) (power_meter_level_dbm0(cutoff + 2.5f)*0.4f); s->carrier_off_power = (int32_t) (power_meter_level_dbm0(cutoff - 2.5f)*0.4f); } /*- End of function --------------------------------------------------------*/ static void report_status_change(v17_rx_state_t *s, int status) { if (s->status_handler) s->status_handler(s->status_user_data, status); else if (s->put_bit) s->put_bit(s->put_bit_user_data, status); } /*- End of function --------------------------------------------------------*/ #if defined(SPANDSP_USE_FIXED_POINTx) SPAN_DECLARE(int) v17_rx_equalizer_state(v17_rx_state_t *s, complexi16_t **coeffs) #else SPAN_DECLARE(int) v17_rx_equalizer_state(v17_rx_state_t *s, complexf_t **coeffs) #endif { *coeffs = s->eq_coeff; return V17_EQUALIZER_LEN; } /*- End of function --------------------------------------------------------*/ static void equalizer_save(v17_rx_state_t *s) { #if defined(SPANDSP_USE_FIXED_POINTx) cvec_copyi16(s->eq_coeff_save, s->eq_coeff, V17_EQUALIZER_LEN); #else cvec_copyf(s->eq_coeff_save, s->eq_coeff, V17_EQUALIZER_LEN); #endif } /*- End of function --------------------------------------------------------*/ static void equalizer_restore(v17_rx_state_t *s) { #if defined(SPANDSP_USE_FIXED_POINTx) cvec_copyi16(s->eq_coeff, s->eq_coeff_save, V17_EQUALIZER_LEN); cvec_zeroi16(s->eq_buf, V17_EQUALIZER_LEN); s->eq_delta = 32768.0f*EQUALIZER_SLOW_ADAPT_RATIO*EQUALIZER_DELTA/V17_EQUALIZER_LEN; #else cvec_copyf(s->eq_coeff, s->eq_coeff_save, V17_EQUALIZER_LEN); cvec_zerof(s->eq_buf, V17_EQUALIZER_LEN); s->eq_delta = EQUALIZER_SLOW_ADAPT_RATIO*EQUALIZER_DELTA/V17_EQUALIZER_LEN; #endif s->eq_put_step = RX_PULSESHAPER_COEFF_SETS*10/(3*2) - 1; s->eq_step = 0; s->eq_skip = 0; } /*- End of function --------------------------------------------------------*/ static void equalizer_reset(v17_rx_state_t *s) { /* Start with an equalizer based on everything being perfect */ #if defined(SPANDSP_USE_FIXED_POINTx) cvec_zeroi16(s->eq_coeff, V17_EQUALIZER_LEN); s->eq_coeff[V17_EQUALIZER_PRE_LEN] = complex_seti16(3*FP_FACTOR, 0); cvec_zeroi16(s->eq_buf, V17_EQUALIZER_LEN); s->eq_delta = 32768.0f*EQUALIZER_DELTA/V17_EQUALIZER_LEN; #else cvec_zerof(s->eq_coeff, V17_EQUALIZER_LEN); s->eq_coeff[V17_EQUALIZER_PRE_LEN] = complex_setf(3.0f, 0.0f); cvec_zerof(s->eq_buf, V17_EQUALIZER_LEN); s->eq_delta = EQUALIZER_DELTA/V17_EQUALIZER_LEN; #endif s->eq_put_step = RX_PULSESHAPER_COEFF_SETS*10/(3*2) - 1; s->eq_step = 0; s->eq_skip = 0; } /*- End of function --------------------------------------------------------*/ #if defined(SPANDSP_USE_FIXED_POINTx) static __inline__ complexi16_t equalizer_get(v17_rx_state_t *s) #else static __inline__ complexf_t equalizer_get(v17_rx_state_t *s) #endif { return cvec_circular_dot_prodf(s->eq_buf, s->eq_coeff, V17_EQUALIZER_LEN, s->eq_step); } /*- End of function --------------------------------------------------------*/ #if defined(SPANDSP_USE_FIXED_POINTx) static void tune_equalizer(v17_rx_state_t *s, const complexi16_t *z, const complexi16_t *target) { complexi16_t err; /* Find the x and y mismatch from the exact constellation position. */ err.re = target->re*FP_FACTOR - z->re; err.im = target->im*FP_FACTOR - z->im; //span_log(&s->logging, SPAN_LOG_FLOW, "Equalizer error %f\n", sqrt(err.re*err.re + err.im*err.im)); err.re = ((int32_t) err.re*(int32_t) s->eq_delta) >> 15; err.im = ((int32_t) err.im*(int32_t) s->eq_delta) >> 15; cvec_circular_lmsi16(s->eq_buf, s->eq_coeff, V17_EQUALIZER_LEN, s->eq_step, &err); } #else static void tune_equalizer(v17_rx_state_t *s, const complexf_t *z, const complexf_t *target) { complexf_t err; /* Find the x and y mismatch from the exact constellation position. */ err = complex_subf(target, z); //span_log(&s->logging, SPAN_LOG_FLOW, "Equalizer error %f\n", sqrt(err.re*err.re + err.im*err.im)); err.re *= s->eq_delta; err.im *= s->eq_delta; cvec_circular_lmsf(s->eq_buf, s->eq_coeff, V17_EQUALIZER_LEN, s->eq_step, &err); } #endif /*- End of function --------------------------------------------------------*/ static int descramble(v17_rx_state_t *s, int in_bit) { int out_bit; //out_bit = (in_bit ^ (s->scramble_reg >> s->scrambler_tap) ^ (s->scramble_reg >> (23 - 1))) & 1; out_bit = (in_bit ^ (s->scramble_reg >> (18 - 1)) ^ (s->scramble_reg >> (23 - 1))) & 1; s->scramble_reg <<= 1; if (s->training_stage > TRAINING_STAGE_NORMAL_OPERATION && s->training_stage < TRAINING_STAGE_TCM_WINDUP) s->scramble_reg |= out_bit; else s->scramble_reg |= (in_bit & 1); return out_bit; } /*- End of function --------------------------------------------------------*/ static void track_carrier(v17_rx_state_t *s, const complexf_t *z, const complexf_t *target) { float error; /* For small errors the imaginary part of the difference between the actual and the target positions is proportional to the phase error, for any particular target. However, the different amplitudes of the various target positions scale things. */ error = z->im*target->re - z->re*target->im; s->carrier_phase_rate += (int32_t) (s->carrier_track_i*error); s->carrier_phase += (int32_t) (s->carrier_track_p*error); //span_log(&s->logging, SPAN_LOG_FLOW, "Im = %15.5f f = %15.5f\n", error, dds_frequencyf(s->carrier_phase_rate)); //printf("XXX Im = %15.5f f = %15.5f %f %f %f %f (%f %f)\n", error, dds_frequencyf(s->carrier_phase_rate), target->re, target->im, z->re, z->im, s->carrier_track_i, s->carrier_track_p); } /*- End of function --------------------------------------------------------*/ static __inline__ void put_bit(v17_rx_state_t *s, int bit) { int out_bit; /* We need to strip the last part of the training - the test period of all 1s - before we let data go to the application. */ if (s->training_stage == TRAINING_STAGE_NORMAL_OPERATION) { out_bit = descramble(s, bit); s->put_bit(s->put_bit_user_data, out_bit); } else if (s->training_stage == TRAINING_STAGE_TEST_ONES) { /* The bits during the final stage of training should be all ones. However, buggy modems mean you cannot rely on this. Therefore we don't bother testing for ones, but just rely on a constellation mismatch measurement. */ out_bit = descramble(s, bit); //span_log(&s->logging, SPAN_LOG_FLOW, "A 1 is really %d\n", out_bit); } } /*- End of function --------------------------------------------------------*/ #if defined(SPANDSP_USE_FIXED_POINTx) static __inline__ uint32_t dist_sq(const complexi_t *x, const complexi_t *y) { return (x->re - y->re)*(x->re - y->re) + (x->im - y->im)*(x->im - y->im); } /*- End of function --------------------------------------------------------*/ #else static __inline__ float dist_sq(const complexf_t *x, const complexf_t *y) { return (x->re - y->re)*(x->re - y->re) + (x->im - y->im)*(x->im - y->im); } /*- End of function --------------------------------------------------------*/ #endif static int decode_baud(v17_rx_state_t *s, complexf_t *z) { static const uint8_t v32bis_4800_differential_decoder[4][4] = { {2, 3, 0, 1}, {0, 2, 1, 3}, {3, 1, 2, 0}, {1, 0, 3, 2} }; static const uint8_t v17_differential_decoder[4][4] = { {0, 1, 2, 3}, {3, 0, 1, 2}, {2, 3, 0, 1}, {1, 2, 3, 0} }; static const uint8_t tcm_paths[8][4] = { {0, 6, 2, 4}, {6, 0, 4, 2}, {2, 4, 0, 6}, {4, 2, 6, 0}, {1, 3, 7, 5}, {5, 7, 3, 1}, {7, 5, 1, 3}, {3, 1, 5, 7} }; int nearest; int i; int j; int k; int re; int im; int raw; int constellation_state; #if defined(SPANDSP_USE_FIXED_POINTx) #define DIST_FACTOR 2048 /* Something less than sqrt(0xFFFFFFFF/10)/10 */ complexi_t zi; uint32_t distances[8]; uint32_t new_distances[8]; uint32_t min; complexi_t ci; #else float distances[8]; float new_distances[8]; float min; #endif re = (int) ((z->re + 9.0f)*2.0f); if (re > 35) re = 35; else if (re < 0) re = 0; im = (int) ((z->im + 9.0f)*2.0f); if (im > 35) im = 35; else if (im < 0) im = 0; if (s->bits_per_symbol == 2) { /* 4800bps V.32bis mode, without trellis coding */ nearest = constel_map_4800[re][im]; raw = v32bis_4800_differential_decoder[s->diff][nearest]; s->diff = nearest; put_bit(s, raw); put_bit(s, raw >> 1); return nearest; } /* Find a set of 8 candidate constellation positions, that are the closest to the target, with different patterns in the last 3 bits. */ #if defined(SPANDSP_USE_FIXED_POINTx) min = 0xFFFFFFFF; zi = complex_seti(z->re*DIST_FACTOR, z->im*DIST_FACTOR); #else min = 9999999.0f; #endif j = 0; for (i = 0; i < 8; i++) { nearest = constel_maps[s->space_map][re][im][i]; #if defined(SPANDSP_USE_FIXED_POINTx) ci = complex_seti(s->constellation[nearest].re*DIST_FACTOR, s->constellation[nearest].im*DIST_FACTOR); distances[i] = dist_sq(&ci, &zi); #else distances[i] = dist_sq(&s->constellation[nearest], z); #endif if (min > distances[i]) { min = distances[i]; j = i; } } /* Use the nearest of these soft-decisions as the basis for DFE */ constellation_state = constel_maps[s->space_map][re][im][j]; /* Control the equalizer, carrier tracking, etc. based on the non-trellis corrected information. The trellis correct stuff comes out a bit late. */ track_carrier(s, z, &s->constellation[constellation_state]); //tune_equalizer(s, z, &s->constellation[constellation_state]); /* Now do the trellis decoding */ /* TODO: change to processing blocks of stored symbols here, instead of processing one symbol at a time, to speed up the processing. */ /* Update the minimum accumulated distance to each of the 8 states */ if (++s->trellis_ptr >= V17_TRELLIS_STORAGE_DEPTH) s->trellis_ptr = 0; for (i = 0; i < 4; i++) { min = distances[tcm_paths[i][0]] + s->distances[0]; k = 0; for (j = 1; j < 4; j++) { if (min > distances[tcm_paths[i][j]] + s->distances[j << 1]) { min = distances[tcm_paths[i][j]] + s->distances[j << 1]; k = j; } } /* Use an elementary IIR filter to track the distance to date. */ #if defined(SPANDSP_USE_FIXED_POINTx) new_distances[i] = s->distances[k << 1]*9/10 + distances[tcm_paths[i][k]]*1/10; #else new_distances[i] = s->distances[k << 1]*0.9f + distances[tcm_paths[i][k]]*0.1f; #endif s->full_path_to_past_state_locations[s->trellis_ptr][i] = constel_maps[s->space_map][re][im][tcm_paths[i][k]]; s->past_state_locations[s->trellis_ptr][i] = k << 1; } for (i = 4; i < 8; i++) { min = distances[tcm_paths[i][0]] + s->distances[1]; k = 0; for (j = 1; j < 4; j++) { if (min > distances[tcm_paths[i][j]] + s->distances[(j << 1) + 1]) { min = distances[tcm_paths[i][j]] + s->distances[(j << 1) + 1]; k = j; } } #if defined(SPANDSP_USE_FIXED_POINTx) new_distances[i] = s->distances[(k << 1) + 1]*9/10 + distances[tcm_paths[i][k]]*1/10; #else new_distances[i] = s->distances[(k << 1) + 1]*0.9f + distances[tcm_paths[i][k]]*0.1f; #endif s->full_path_to_past_state_locations[s->trellis_ptr][i] = constel_maps[s->space_map][re][im][tcm_paths[i][k]]; s->past_state_locations[s->trellis_ptr][i] = (k << 1) + 1; } memcpy(s->distances, new_distances, sizeof(s->distances)); /* Find the minimum distance to date. This is the start of the path back to the result. */ min = s->distances[0]; k = 0; for (i = 1; i < 8; i++) { if (min > s->distances[i]) { min = s->distances[i]; k = i; } } /* Trace back through every time step, starting with the current one, and find the state from which the path came one step before. At the end of this search, the last state found also points to the constellation point at that state. This is the output of the trellis. */ for (i = 0, j = s->trellis_ptr; i < V17_TRELLIS_LOOKBACK_DEPTH - 1; i++) { k = s->past_state_locations[j][k]; if (--j < 0) j = V17_TRELLIS_STORAGE_DEPTH - 1; } nearest = s->full_path_to_past_state_locations[j][k] >> 1; /* Differentially decode */ raw = (nearest & 0x3C) | v17_differential_decoder[s->diff][nearest & 0x03]; s->diff = nearest & 0x03; for (i = 0; i < s->bits_per_symbol; i++) { put_bit(s, raw); raw >>= 1; } return constellation_state; } /*- End of function --------------------------------------------------------*/ static __inline__ void symbol_sync(v17_rx_state_t *s) { int i; #if defined(SPANDSP_USE_FIXED_POINTx) int32_t v; int32_t p; #else float v; float p; #endif /* This routine adapts the position of the half baud samples entering the equalizer. */ /* This symbol sync scheme is based on the technique first described by Dominique Godard in Passband Timing Recovery in an All-Digital Modem Receiver IEEE TRANSACTIONS ON COMMUNICATIONS, VOL. COM-26, NO. 5, MAY 1978 */ /* This is slightly rearranged from figure 3b of the Godard paper, as this saves a couple of maths operations */ #if defined(SPANDSP_USE_FIXED_POINTx) /* TODO: The scalings used here need more thorough evaluation, to see if overflows are possible. */ /* Cross correlate */ v = (((s->symbol_sync_low[1] >> 5)*(s->symbol_sync_high[0] >> 4)) >> 15)*SYNC_LOW_BAND_EDGE_COEFF_2 - (((s->symbol_sync_low[0] >> 5)*(s->symbol_sync_high[1] >> 4)) >> 15)*SYNC_HIGH_BAND_EDGE_COEFF_2 + (((s->symbol_sync_low[1] >> 5)*(s->symbol_sync_high[1] >> 4)) >> 15)*SYNC_MIXED_EDGES_COEFF_3; /* Filter away any DC component */ p = v - s->symbol_sync_dc_filter[1]; s->symbol_sync_dc_filter[1] = s->symbol_sync_dc_filter[0]; s->symbol_sync_dc_filter[0] = v; /* A little integration will now filter away much of the HF noise */ s->baud_phase -= p; v = labs(s->baud_phase); if (v > 100*FP_FACTOR) { i = (v > 1000*FP_FACTOR) ? 15 : 1; if (s->baud_phase < 0) i = -i; //printf("v = %10.5f %5d - %f %f %d %d\n", v, i, p, s->baud_phase, s->total_baud_timing_correction); s->eq_put_step += i; s->total_baud_timing_correction += i; } #else /* Cross correlate */ v = s->symbol_sync_low[1]*s->symbol_sync_high[0]*SYNC_LOW_BAND_EDGE_COEFF_2 - s->symbol_sync_low[0]*s->symbol_sync_high[1]*SYNC_HIGH_BAND_EDGE_COEFF_2 + s->symbol_sync_low[1]*s->symbol_sync_high[1]*SYNC_MIXED_EDGES_COEFF_3; /* Filter away any DC component */ p = v - s->symbol_sync_dc_filter[1]; s->symbol_sync_dc_filter[1] = s->symbol_sync_dc_filter[0]; s->symbol_sync_dc_filter[0] = v; /* A little integration will now filter away much of the HF noise */ s->baud_phase -= p; v = fabsf(s->baud_phase); if (v > 100.0f) { i = (v > 1000.0f) ? 15 : 1; if (s->baud_phase < 0.0f) i = -i; //printf("v = %10.5f %5d - %f %f %d\n", v, i, p, s->baud_phase, s->total_baud_timing_correction); s->eq_put_step += i; s->total_baud_timing_correction += i; } #endif } /*- End of function --------------------------------------------------------*/ static void process_half_baud(v17_rx_state_t *s, const complexf_t *sample) { static const complexf_t cdba[4] = { { 6.0f, 2.0f}, {-2.0f, 6.0f}, { 2.0f, -6.0f}, {-6.0f, -2.0f} }; complexf_t z; complexf_t zz; #if defined(SPANDSP_USE_FIXED_POINTx) const complexi_t *target; static const complexi16_t zero = {0, 0}; #else const complexf_t *target; static const complexf_t zero = {0, 0}; #endif float p; int bit; int i; int j; int32_t angle; int32_t ang; int constellation_state; /* This routine processes every half a baud, as we put things into the equalizer at the T/2 rate. */ /* Add a sample to the equalizer's circular buffer, but don't calculate anything at this time. */ s->eq_buf[s->eq_step] = *sample; if (++s->eq_step >= V17_EQUALIZER_LEN) s->eq_step = 0; /* On alternate insertions we have a whole baud and must process it. */ if ((s->baud_half ^= 1)) return; /* Symbol timing synchronisation */ symbol_sync(s); z = equalizer_get(s); constellation_state = 0; switch (s->training_stage) { case TRAINING_STAGE_NORMAL_OPERATION: /* Normal operation. */ constellation_state = decode_baud(s, &z); target = &s->constellation[constellation_state]; break; case TRAINING_STAGE_SYMBOL_ACQUISITION: /* Allow time for the symbol synchronisation to settle the symbol timing. */ target = &zero; if (++s->training_count >= 100) { /* Record the current phase angle */ s->angles[0] = s->start_angles[0] = arctan2(z.im, z.re); s->training_stage = TRAINING_STAGE_LOG_PHASE; if (s->agc_scaling_save == 0.0f) s->agc_scaling_save = s->agc_scaling; } break; case TRAINING_STAGE_LOG_PHASE: /* Record the current alternate phase angle */ target = &zero; angle = arctan2(z.im, z.re); s->training_count = 1; if (s->short_train) { /* We should already know the accurate carrier frequency. All we need to sort out is the phase. */ /* Check if we just saw A or B */ if ((uint32_t) (angle - s->start_angles[0]) < 0x80000000U) { angle = s->start_angles[0]; s->angles[0] = 0xC0000000 + 219937506; s->angles[1] = 0x80000000 + 219937506; } else { s->angles[0] = 0x80000000 + 219937506; s->angles[1] = 0xC0000000 + 219937506; } /* Make a step shift in the phase, to pull it into line. We need to rotate the equalizer buffer, as well as the carrier phase, for this to play out nicely. */ /* angle is now the difference between where A is, and where it should be */ p = 3.14159f + angle*2.0f*3.14159f/(65536.0f*65536.0f) - 0.321751f; span_log(&s->logging, SPAN_LOG_FLOW, "Spin (short) by %.5f rads\n", p); zz = complex_setf(cosf(p), -sinf(p)); for (i = 0; i < V17_EQUALIZER_LEN; i++) s->eq_buf[i] = complex_mulf(&s->eq_buf[i], &zz); s->carrier_phase += (0x80000000 + angle - 219937506); s->carrier_track_p = 500000.0f; s->training_stage = TRAINING_STAGE_SHORT_WAIT_FOR_CDBA; } else { s->angles[1] = s->start_angles[1] = angle; s->training_stage = TRAINING_STAGE_WAIT_FOR_CDBA; } break; case TRAINING_STAGE_WAIT_FOR_CDBA: target = &zero; angle = arctan2(z.im, z.re); /* Look for the initial ABAB sequence to display a phase reversal, which will signal the start of the scrambled CDBA segment */ ang = angle - s->angles[(s->training_count - 1) & 0xF]; s->angles[(s->training_count + 1) & 0xF] = angle; /* Do a coarse frequency adjustment about half way through the reversals, as if we wait until the end, we might have rotated too far to correct properly. */ if (s->training_count == 100) { i = s->training_count; j = i & 0xF; ang = (s->angles[j] - s->start_angles[0])/i + (s->angles[j | 0x1] - s->start_angles[1])/i; s->carrier_phase_rate += 3*(ang/20); //span_log(&s->logging, SPAN_LOG_FLOW, "Angles %x, %x, %x, %x, dist %d\n", s->angles[j], s->start_angles[0], s->angles[j | 0x1], s->start_angles[1], i); s->start_angles[0] = s->angles[j]; s->start_angles[1] = s->angles[j | 0x1]; //span_log(&s->logging, SPAN_LOG_FLOW, "%d %d %d %d %d\n", s->angles[s->training_count & 0xF], s->start_angles[0], s->angles[(s->training_count | 0x1) & 0xF], s->start_angles[1], s->training_count); span_log(&s->logging, SPAN_LOG_FLOW, "First coarse carrier frequency %7.2f (%d)\n", dds_frequencyf(s->carrier_phase_rate), s->training_count); } if ((ang > 0x40000000 || ang < -0x40000000) && s->training_count >= 13) { span_log(&s->logging, SPAN_LOG_FLOW, "We seem to have a reversal at symbol %d\n", s->training_count); /* We seem to have a phase reversal */ /* Slam the carrier frequency into line, based on the total phase drift over the last section. Use the shift from the odd bits and the shift from the even bits to get better jitter suppression. */ /* TODO: We are supposed to deal with frequancy errors up to +-8Hz. Over 200+ symbols that is more than half a cycle. We get confused an do crazy things. We can only cope with errors up to 5Hz right now. We need to implement greater tolerance to be compliant, although it doesn't really matter much these days. */ /* Step back a few symbols so we don't get ISI distorting things. */ i = (s->training_count - 8) & ~1; /* Avoid the possibility of a divide by zero */ if (i - 100 + 8) { j = i & 0xF; ang = (s->angles[j] - s->start_angles[0])/(i - 100 + 8) + (s->angles[j | 0x1] - s->start_angles[1])/(i - 100 + 8); s->carrier_phase_rate += 3*(ang/20); span_log(&s->logging, SPAN_LOG_FLOW, "Angles %x, %x, %x, %x, dist %d\n", s->angles[j], s->start_angles[0], s->angles[j | 0x1], s->start_angles[1], i); } //span_log(&s->logging, SPAN_LOG_FLOW, "%d %d %d %d %d\n", s->angles[s->training_count & 0xF], s->start_angles[0], s->angles[(s->training_count | 0x1) & 0xF], s->start_angles[1], s->training_count); span_log(&s->logging, SPAN_LOG_FLOW, "Second coarse carrier frequency %7.2f (%d)\n", dds_frequencyf(s->carrier_phase_rate), s->training_count); /* Check if the carrier frequency is plausible */ if (s->carrier_phase_rate < dds_phase_ratef(CARRIER_NOMINAL_FREQ - 20.0f) || s->carrier_phase_rate > dds_phase_ratef(CARRIER_NOMINAL_FREQ + 20.0f)) { span_log(&s->logging, SPAN_LOG_FLOW, "Training failed (sequence failed)\n"); /* Park this modem */ s->agc_scaling_save = 0.0f; s->training_stage = TRAINING_STAGE_PARKED; report_status_change(s, SIG_STATUS_TRAINING_FAILED); break; } /* Make a step shift in the phase, to pull it into line. We need to rotate the equalizer buffer, as well as the carrier phase, for this to play out nicely. */ /* angle is now the difference between where C is, and where it should be */ p = angle*2.0f*3.14159f/(65536.0f*65536.0f) - 0.321751f; span_log(&s->logging, SPAN_LOG_FLOW, "Spin (long) by %.5f rads\n", p); zz = complex_setf(cosf(p), -sinf(p)); for (i = 0; i < V17_EQUALIZER_LEN; i++) s->eq_buf[i] = complex_mulf(&s->eq_buf[i], &zz); s->carrier_phase += (angle - 219937506); /* We have just seen the first symbol of the scrambled sequence, so skip it. */ bit = descramble(s, 1); bit = (bit << 1) | descramble(s, 1); target = &cdba[bit]; s->training_count = 1; s->training_stage = TRAINING_STAGE_COARSE_TRAIN_ON_CDBA; report_status_change(s, SIG_STATUS_TRAINING_IN_PROGRESS); break; } if (++s->training_count > V17_TRAINING_SEG_1_LEN) { /* This is bogus. There are not this many bits in this section of a real training sequence. Note that this might be TEP. */ span_log(&s->logging, SPAN_LOG_FLOW, "Training failed (sequence failed)\n"); /* Park this modem */ s->agc_scaling_save = 0.0f; s->training_stage = TRAINING_STAGE_PARKED; report_status_change(s, SIG_STATUS_TRAINING_FAILED); } break; case TRAINING_STAGE_COARSE_TRAIN_ON_CDBA: /* Train on the scrambled CDBA section. */ bit = descramble(s, 1); bit = (bit << 1) | descramble(s, 1); target = &cdba[bit]; track_carrier(s, &z, target); tune_equalizer(s, &z, target); #if defined(IAXMODEM_STUFF) zz = complex_subf(&z, target); s->training_error = powerf(&zz); if (++s->training_count == V17_TRAINING_SEG_2_LEN - 2000 || s->training_error < 1.0f || s->training_error > 200.0f) #else if (++s->training_count == V17_TRAINING_SEG_2_LEN - 2000) #endif { /* Now the equaliser adaption should be getting somewhere, slow it down, or it will never tune very well on a noisy signal. */ s->eq_delta *= EQUALIZER_SLOW_ADAPT_RATIO; s->carrier_track_i = 1000.0f; s->training_stage = TRAINING_STAGE_FINE_TRAIN_ON_CDBA; } break; case TRAINING_STAGE_FINE_TRAIN_ON_CDBA: /* Train on the scrambled CDBA section. */ bit = descramble(s, 1); bit = (bit << 1) | descramble(s, 1); target = &cdba[bit]; /* By this point the training should be comming into focus. */ track_carrier(s, &z, target); tune_equalizer(s, &z, target); if (++s->training_count >= V17_TRAINING_SEG_2_LEN - 48) { s->training_error = 0.0f; s->carrier_track_i = 100.0f; s->carrier_track_p = 500000.0f; s->training_stage = TRAINING_STAGE_TRAIN_ON_CDBA_AND_TEST; } break; case TRAINING_STAGE_TRAIN_ON_CDBA_AND_TEST: /* Continue training on the scrambled CDBA section, but measure the quality of training too. */ bit = descramble(s, 1); bit = (bit << 1) | descramble(s, 1); target = &cdba[bit]; //span_log(&s->logging, SPAN_LOG_FLOW, "%5d [%15.5f, %15.5f] [%15.5f, %15.5f]\n", s->training_count, z.re, z.im, cdba[bit].re, cdba[bit].im); /* We ignore the last few symbols because it seems some modems do not end this part properly, and it throws things off. */ if (++s->training_count < V17_TRAINING_SEG_2_LEN - 20) { track_carrier(s, &z, target); tune_equalizer(s, &z, target); /* Measure the training error */ zz = complex_subf(&z, &cdba[bit]); s->training_error += powerf(&zz); } else if (s->training_count >= V17_TRAINING_SEG_2_LEN) { span_log(&s->logging, SPAN_LOG_FLOW, "Long training error %f\n", s->training_error); if (s->training_error < 20.0f*1.414f*constellation_spacing[s->space_map]) { s->training_count = 0; s->training_error = 0.0f; s->training_stage = TRAINING_STAGE_BRIDGE; } else { span_log(&s->logging, SPAN_LOG_FLOW, "Training failed (convergence failed)\n"); /* Park this modem */ s->agc_scaling_save = 0.0f; s->training_stage = TRAINING_STAGE_PARKED; report_status_change(s, SIG_STATUS_TRAINING_FAILED); } } break; case TRAINING_STAGE_BRIDGE: descramble(s, V17_BRIDGE_WORD >> ((s->training_count & 0x7) << 1)); descramble(s, V17_BRIDGE_WORD >> (((s->training_count & 0x7) << 1) + 1)); target = &z; if (++s->training_count >= V17_TRAINING_SEG_3_LEN) { s->training_count = 0; s->training_error = 0.0f; if (s->bits_per_symbol == 2) { /* Restart the differential decoder */ /* There is no trellis, so go straight to processing decoded data */ s->diff = (s->short_train) ? 0 : 1; s->training_stage = TRAINING_STAGE_TEST_ONES; } else { /* Wait for the trellis to wind up */ s->training_stage = TRAINING_STAGE_TCM_WINDUP; } } break; case TRAINING_STAGE_SHORT_WAIT_FOR_CDBA: /* Look for the initial ABAB sequence to display a phase reversal, which will signal the start of the scrambled CDBA segment */ angle = arctan2(z.im, z.re); ang = angle - s->angles[s->training_count & 1]; if (ang > 0x40000000 || ang < -0x40000000) { /* We seem to have a phase reversal */ /* We have just seen the first symbol of the scrambled sequence, so skip it. */ bit = descramble(s, 1); bit = (bit << 1) | descramble(s, 1); target = &cdba[bit]; s->training_count = 1; s->training_error = 0.0f; s->training_stage = TRAINING_STAGE_SHORT_TRAIN_ON_CDBA_AND_TEST; break; } target = &cdba[(s->training_count & 1) + 2]; track_carrier(s, &z, target); if (++s->training_count > V17_TRAINING_SEG_1_LEN) { /* This is bogus. There are not this many bits in this section of a real training sequence. Note that this might be TEP. */ span_log(&s->logging, SPAN_LOG_FLOW, "Training failed (sequence failed)\n"); /* Park this modem */ s->training_stage = TRAINING_STAGE_PARKED; report_status_change(s, SIG_STATUS_TRAINING_FAILED); } break; case TRAINING_STAGE_SHORT_TRAIN_ON_CDBA_AND_TEST: /* Short retrain on the scrambled CDBA section, but measure the quality of training too. */ bit = descramble(s, 1); bit = (bit << 1) | descramble(s, 1); //span_log(&s->logging, SPAN_LOG_FLOW, "%5d [%15.5f, %15.5f] [%15.5f, %15.5f] %d\n", s->training_count, z.re, z.im, cdba[bit].re, cdba[bit].im, arctan2(z.im, z.re)); target = &cdba[bit]; track_carrier(s, &z, target); //tune_equalizer(s, &z, target); /* Measure the training error */ if (s->training_count > 8) { zz = complex_subf(&z, &cdba[bit]); s->training_error += powerf(&zz); } if (++s->training_count >= V17_TRAINING_SHORT_SEG_2_LEN) { span_log(&s->logging, SPAN_LOG_FLOW, "Short training error %f\n", s->training_error); s->carrier_track_i = 100.0f; s->carrier_track_p = 500000.0f; /* TODO: This was increased by a factor of 10 after studying real world failures. However, it is not clear why this is an improvement, If something gives a huge training error, surely it shouldn't decode too well? */ if (s->training_error < (V17_TRAINING_SHORT_SEG_2_LEN - 8)*4.0f*constellation_spacing[s->space_map]) { s->training_count = 0; if (s->bits_per_symbol == 2) { /* There is no trellis, so go straight to processing decoded data */ /* Restart the differential decoder */ s->diff = (s->short_train) ? 0 : 1; s->training_error = 0.0f; s->training_stage = TRAINING_STAGE_TEST_ONES; } else { /* Wait for the trellis to wind up */ s->training_stage = TRAINING_STAGE_TCM_WINDUP; } report_status_change(s, SIG_STATUS_TRAINING_IN_PROGRESS); } else { span_log(&s->logging, SPAN_LOG_FLOW, "Short training failed (convergence failed)\n"); /* Park this modem */ s->training_stage = TRAINING_STAGE_PARKED; report_status_change(s, SIG_STATUS_TRAINING_FAILED); } } break; case TRAINING_STAGE_TCM_WINDUP: /* We need to wait 15 bauds while the trellis fills up. */ //span_log(&s->logging, SPAN_LOG_FLOW, "%5d %15.5f, %15.5f\n", s->training_count, z.re, z.im); constellation_state = decode_baud(s, &z); target = &s->constellation[constellation_state]; /* Measure the training error */ zz = complex_subf(&z, target); s->training_error += powerf(&zz); if (++s->training_count >= V17_TRAINING_SEG_4A_LEN) { s->training_count = 0; s->training_error = 0.0f; /* Restart the differential decoder */ s->diff = (s->short_train) ? 0 : 1; s->training_stage = TRAINING_STAGE_TEST_ONES; } break; case TRAINING_STAGE_TEST_ONES: /* We are in the test phase, where we check that we can receive reliably. We should get a run of 1's, 48 symbols long. */ //span_log(&s->logging, SPAN_LOG_FLOW, "%5d %15.5f, %15.5f\n", s->training_count, z.re, z.im); constellation_state = decode_baud(s, &z); target = &s->constellation[constellation_state]; /* Measure the training error */ zz = complex_subf(&z, target); s->training_error += powerf(&zz); if (++s->training_count >= V17_TRAINING_SEG_4_LEN) { if (s->training_error < V17_TRAINING_SEG_4_LEN*constellation_spacing[s->space_map]) { /* We are up and running */ span_log(&s->logging, SPAN_LOG_FLOW, "Training succeeded at %dbps (constellation mismatch %f)\n", s->bit_rate, s->training_error); report_status_change(s, SIG_STATUS_TRAINING_SUCCEEDED); /* Apply some lag to the carrier off condition, to ensure the last few bits get pushed through the processing. */ s->signal_present = 60; equalizer_save(s); s->carrier_phase_rate_save = s->carrier_phase_rate; s->short_train = TRUE; s->training_stage = TRAINING_STAGE_NORMAL_OPERATION; } else { /* Training has failed */ span_log(&s->logging, SPAN_LOG_FLOW, "Training failed (constellation mismatch %f)\n", s->training_error); /* Park this modem */ if (!s->short_train) s->agc_scaling_save = 0.0f; s->training_stage = TRAINING_STAGE_PARKED; report_status_change(s, SIG_STATUS_TRAINING_FAILED); } } break; case TRAINING_STAGE_PARKED: default: /* We failed to train! */ /* Park here until the carrier drops. */ target = &zero; break; } if (s->qam_report) s->qam_report(s->qam_user_data, &z, target, constellation_state); } /*- End of function --------------------------------------------------------*/ static __inline__ int signal_detect(v17_rx_state_t *s, int16_t amp) { int16_t diff; int16_t x; int32_t power; /* There should be no DC in the signal, but sometimes there is. We need to measure the power with the DC blocked, but not using a slow to respond DC blocker. Use the most elementary HPF. */ x = amp >> 1; /* There could be overflow here, but it isn't a problem in practice */ diff = x - s->last_sample; s->last_sample = x; power = power_meter_update(&(s->power), diff); #if defined(IAXMODEM_STUFF) /* Quick power drop fudge */ diff = abs(diff); if (10*diff < s->high_sample) { if (++s->low_samples > 120) { power_meter_init(&(s->power), 4); s->high_sample = 0; s->low_samples = 0; } } else { s->low_samples = 0; if (diff > s->high_sample) s->high_sample = diff; } #endif if (s->signal_present > 0) { /* Look for power below turn-off threshold to turn the carrier off */ #if defined(IAXMODEM_STUFF) if (s->carrier_drop_pending || power < s->carrier_off_power) #else if (power < s->carrier_off_power) #endif { if (--s->signal_present <= 0) { /* Count down a short delay, to ensure we push the last few bits through the filters before stopping. */ v17_rx_restart(s, s->bit_rate, s->short_train); report_status_change(s, SIG_STATUS_CARRIER_DOWN); return 0; } #if defined(IAXMODEM_STUFF) /* Carrier has dropped, but the put_bit is pending the signal_present delay. */ s->carrier_drop_pending = TRUE; #endif } } else { /* Look for power exceeding turn-on threshold to turn the carrier on */ if (power < s->carrier_on_power) return 0; s->signal_present = 1; #if defined(IAXMODEM_STUFF) s->carrier_drop_pending = FALSE; #endif report_status_change(s, SIG_STATUS_CARRIER_UP); } return power; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE_NONSTD(int) v17_rx(v17_rx_state_t *s, const int16_t amp[], int len) { int i; int step; complexf_t z; complexf_t zz; complexf_t sample; #if defined(SPANDSP_USE_FIXED_POINT) int32_t vi; #endif #if defined(SPANDSP_USE_FIXED_POINTx) int32_t v; #else float v; #endif int32_t power; for (i = 0; i < len; i++) { s->rrc_filter[s->rrc_filter_step] = amp[i]; if (++s->rrc_filter_step >= V17_RX_FILTER_STEPS) s->rrc_filter_step = 0; if ((power = signal_detect(s, amp[i])) == 0) continue; if (s->training_stage == TRAINING_STAGE_PARKED) continue; /* Only spend effort processing this data if the modem is not parked, after training failure. */ s->eq_put_step -= RX_PULSESHAPER_COEFF_SETS; step = -s->eq_put_step; if (step > RX_PULSESHAPER_COEFF_SETS - 1) step = RX_PULSESHAPER_COEFF_SETS - 1; if (step < 0) step += RX_PULSESHAPER_COEFF_SETS; #if defined(SPANDSP_USE_FIXED_POINT) vi = vec_circular_dot_prodi16(s->rrc_filter, rx_pulseshaper_re[step], V17_RX_FILTER_STEPS, s->rrc_filter_step); //sample.re = (vi*(int32_t) s->agc_scaling) >> 15; sample.re = vi*s->agc_scaling; #else v = vec_circular_dot_prodf(s->rrc_filter, rx_pulseshaper_re[step], V17_RX_FILTER_STEPS, s->rrc_filter_step); sample.re = v*s->agc_scaling; #endif /* Symbol timing synchronisation band edge filters */ /* Low Nyquist band edge filter */ v = s->symbol_sync_low[0]*SYNC_LOW_BAND_EDGE_COEFF_0 + s->symbol_sync_low[1]*SYNC_LOW_BAND_EDGE_COEFF_1 + sample.re; s->symbol_sync_low[1] = s->symbol_sync_low[0]; s->symbol_sync_low[0] = v; /* High Nyquist band edge filter */ v = s->symbol_sync_high[0]*SYNC_HIGH_BAND_EDGE_COEFF_0 + s->symbol_sync_high[1]*SYNC_HIGH_BAND_EDGE_COEFF_1 + sample.re; s->symbol_sync_high[1] = s->symbol_sync_high[0]; s->symbol_sync_high[0] = v; /* Put things into the equalization buffer at T/2 rate. The symbol sync. will fiddle the step to align this with the symbols. */ if (s->eq_put_step <= 0) { /* Only AGC until we have locked down the setting. */ if (s->agc_scaling_save == 0.0f) s->agc_scaling = (1.0f/RX_PULSESHAPER_GAIN)*2.17f/sqrtf(power); /* Pulse shape while still at the carrier frequency, using a quadrature pair of filters. This results in a properly bandpass filtered complex signal, which can be brought directly to baseband by complex mixing. No further filtering, to remove mixer harmonics, is needed. */ step = -s->eq_put_step; if (step > RX_PULSESHAPER_COEFF_SETS - 1) step = RX_PULSESHAPER_COEFF_SETS - 1; s->eq_put_step += RX_PULSESHAPER_COEFF_SETS*10/(3*2); #if defined(SPANDSP_USE_FIXED_POINT) vi = vec_circular_dot_prodi16(s->rrc_filter, rx_pulseshaper_im[step], V17_RX_FILTER_STEPS, s->rrc_filter_step); //sample.im = (vi*(int32_t) s->agc_scaling) >> 15; sample.im = vi*s->agc_scaling; z = dds_lookup_complexf(s->carrier_phase); zz.re = sample.re*z.re - sample.im*z.im; zz.im = -sample.re*z.im - sample.im*z.re; #else v = vec_circular_dot_prodf(s->rrc_filter, rx_pulseshaper_im[step], V17_RX_FILTER_STEPS, s->rrc_filter_step); sample.im = v*s->agc_scaling; z = dds_lookup_complexf(s->carrier_phase); zz.re = sample.re*z.re - sample.im*z.im; zz.im = -sample.re*z.im - sample.im*z.re; #endif process_half_baud(s, &zz); } #if defined(SPANDSP_USE_FIXED_POINT) dds_advance(&s->carrier_phase, s->carrier_phase_rate); #else dds_advancef(&s->carrier_phase, s->carrier_phase_rate); #endif } return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE_NONSTD(int) v17_rx_fillin(v17_rx_state_t *s, int len) { int i; /* We want to sustain the current state (i.e carrier on<->carrier off), and try to sustain the carrier phase. We should probably push the filters, as well */ span_log(&s->logging, SPAN_LOG_FLOW, "Fill-in %d samples\n", len); if (s->signal_present <= 0) return 0; if (s->training_stage == TRAINING_STAGE_PARKED) return 0; for (i = 0; i < len; i++) { #if defined(SPANDSP_USE_FIXED_POINT) dds_advance(&s->carrier_phase, s->carrier_phase_rate); #else dds_advancef(&s->carrier_phase, s->carrier_phase_rate); #endif /* Advance the symbol phase the appropriate amount */ s->eq_put_step -= RX_PULSESHAPER_COEFF_SETS; if (s->eq_put_step <= 0) s->eq_put_step += RX_PULSESHAPER_COEFF_SETS*10/(3*2); /* TODO: Should we rotate any buffers */ } return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) v17_rx_set_put_bit(v17_rx_state_t *s, put_bit_func_t put_bit, void *user_data) { s->put_bit = put_bit; s->put_bit_user_data = user_data; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) v17_rx_set_modem_status_handler(v17_rx_state_t *s, modem_tx_status_func_t handler, void *user_data) { s->status_handler = handler; s->status_user_data = user_data; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(logging_state_t *) v17_rx_get_logging_state(v17_rx_state_t *s) { return &s->logging; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) v17_rx_restart(v17_rx_state_t *s, int bit_rate, int short_train) { int i; span_log(&s->logging, SPAN_LOG_FLOW, "Restarting V.17, %dbps, %s training\n", bit_rate, (short_train) ? "short" : "long"); switch (bit_rate) { case 14400: s->constellation = v17_v32bis_14400_constellation; s->space_map = 0; s->bits_per_symbol = 6; break; case 12000: s->constellation = v17_v32bis_12000_constellation; s->space_map = 1; s->bits_per_symbol = 5; break; case 9600: s->constellation = v17_v32bis_9600_constellation; s->space_map = 2; s->bits_per_symbol = 4; break; case 7200: s->constellation = v17_v32bis_7200_constellation; s->space_map = 3; s->bits_per_symbol = 3; break; case 4800: /* This does not exist in the V.17 spec as a valid mode of operation. However, it does exist in V.32bis, so it is here for completeness. */ s->constellation = v17_v32bis_4800_constellation; s->space_map = 0; s->bits_per_symbol = 2; break; default: return -1; } s->bit_rate = bit_rate; #if defined(SPANDSP_USE_FIXED_POINT) vec_zeroi16(s->rrc_filter, sizeof(s->rrc_filter)/sizeof(s->rrc_filter[0])); #else vec_zerof(s->rrc_filter, sizeof(s->rrc_filter)/sizeof(s->rrc_filter[0])); #endif s->rrc_filter_step = 0; s->diff = 1; s->scramble_reg = 0x2ECDD5; s->training_stage = TRAINING_STAGE_SYMBOL_ACQUISITION; s->training_count = 0; s->training_error = 0.0f; s->signal_present = 0; #if defined(IAXMODEM_STUFF) s->high_sample = 0; s->low_samples = 0; s->carrier_drop_pending = FALSE; #endif if (short_train != 2) s->short_train = short_train; memset(s->start_angles, 0, sizeof(s->start_angles)); memset(s->angles, 0, sizeof(s->angles)); /* Initialise the TCM decoder parameters. */ /* The accumulated distance vectors are set so state zero starts at a value of zero, and all others start larger. This forces the initial paths to merge at the zero states. */ for (i = 0; i < 8; i++) #if defined(SPANDSP_USE_FIXED_POINTx) s->distances[i] = 99*DIST_FACTOR*DIST_FACTOR; #else s->distances[i] = 99.0f; #endif memset(s->full_path_to_past_state_locations, 0, sizeof(s->full_path_to_past_state_locations)); memset(s->past_state_locations, 0, sizeof(s->past_state_locations)); s->distances[0] = 0; s->trellis_ptr = 14; s->carrier_phase = 0; power_meter_init(&(s->power), 4); if (s->short_train) { s->carrier_phase_rate = s->carrier_phase_rate_save; equalizer_restore(s); s->agc_scaling = s->agc_scaling_save; /* Don't allow any frequency correction at all, until we start to pull the phase in. */ #if defined(SPANDSP_USE_FIXED_POINTx) s->carrier_track_i = 0; s->carrier_track_p = 40000; #else s->carrier_track_i = 0.0f; s->carrier_track_p = 40000.0f; #endif } else { s->carrier_phase_rate = dds_phase_ratef(CARRIER_NOMINAL_FREQ); equalizer_reset(s); #if defined(SPANDSP_USE_FIXED_POINTx) s->agc_scaling_save = 0; s->agc_scaling = (float) FP_FACTOR*32768.0f*0.0017f/RX_PULSESHAPER_GAIN; s->carrier_track_i = 5000; s->carrier_track_p = 40000; #else s->agc_scaling_save = 0.0f; s->agc_scaling = 0.0017f/RX_PULSESHAPER_GAIN; s->carrier_track_i = 5000.0f; s->carrier_track_p = 40000.0f; #endif } s->last_sample = 0; span_log(&s->logging, SPAN_LOG_FLOW, "Gains %f %f\n", s->agc_scaling_save, s->agc_scaling); span_log(&s->logging, SPAN_LOG_FLOW, "Phase rates %f %f\n", dds_frequencyf(s->carrier_phase_rate), dds_frequencyf(s->carrier_phase_rate_save)); /* Initialise the working data for symbol timing synchronisation */ #if defined(SPANDSP_USE_FIXED_POINTx) for (i = 0; i < 2; i++) { s->symbol_sync_low[i] = 0; s->symbol_sync_high[i] = 0; s->symbol_sync_dc_filter[i] = 0; } s->baud_phase = 0; #else for (i = 0; i < 2; i++) { s->symbol_sync_low[i] = 0.0f; s->symbol_sync_high[i] = 0.0f; s->symbol_sync_dc_filter[i] = 0.0f; } s->baud_phase = 0.0f; #endif s->baud_half = 0; s->total_baud_timing_correction = 0; return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(v17_rx_state_t *) v17_rx_init(v17_rx_state_t *s, int bit_rate, put_bit_func_t put_bit, void *user_data) { switch (bit_rate) { case 14400: case 12000: case 9600: case 7200: case 4800: /* 4800 is an extension of V.17, to provide full coverage of the V.32bis modes */ break; default: return NULL; } if (s == NULL) { if ((s = (v17_rx_state_t *) malloc(sizeof(*s))) == NULL) return NULL; } memset(s, 0, sizeof(*s)); span_log_init(&s->logging, SPAN_LOG_NONE, NULL); span_log_set_protocol(&s->logging, "V.17 RX"); s->put_bit = put_bit; s->put_bit_user_data = user_data; s->short_train = FALSE; //s->scrambler_tap = 18 - 1; v17_rx_signal_cutoff(s, -45.5f); s->carrier_phase_rate_save = dds_phase_ratef(CARRIER_NOMINAL_FREQ); v17_rx_restart(s, bit_rate, s->short_train); return s; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) v17_rx_release(v17_rx_state_t *s) { return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) v17_rx_free(v17_rx_state_t *s) { free(s); return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(void) v17_rx_set_qam_report_handler(v17_rx_state_t *s, qam_report_handler_t handler, void *user_data) { s->qam_report = handler; s->qam_user_data = user_data; } /*- End of function --------------------------------------------------------*/ /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/src/libtiff.2008.vcproj0000664000175000017500000003107311203772526016633 0ustar steveusteveu spandsp-0.0.6/src/awgn.c0000664000175000017500000001117211422612261014465 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * awgn.c - An additive Gaussian white noise generator * * Written by Steve Underwood * * Copyright (C) 2001 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \file */ /* This code is based on some demonstration code in a research paper somewhere. I can't track down where I got the original from, so that due recognition can be given. The original had no explicit copyright notice, and I hope nobody objects to its use here. Having a reasonable Gaussian noise generator is pretty important for telephony testing (in fact, pretty much any DSP testing), and this one seems to have served me OK. Since the generation of Gaussian noise is only for test purposes, and not a core system component, I don't intend to worry excessively about copyright issues, unless someone worries me. The non-core nature of this code also explains why it is unlikely to ever be optimised. */ #if defined(HAVE_CONFIG_H) #include "config.h" #endif #include #include #if defined(HAVE_TGMATH_H) #include #endif #if defined(HAVE_MATH_H) #include #endif #include "floating_fudge.h" #include "spandsp/telephony.h" #include "spandsp/fast_convert.h" #include "spandsp/saturated.h" #include "spandsp/awgn.h" #include "spandsp/private/awgn.h" /* Gaussian noise generator constants */ #define M1 259200 #define IA1 7141 #define IC1 54773 #define RM1 (1.0/M1) #define M2 134456 #define IA2 8121 #define IC2 28411 #define RM2 (1.0/M2) #define M3 243000 #define IA3 4561 #define IC3 51349 static double ran1(awgn_state_t *s) { double temp; int j; s->ix1 = (IA1*s->ix1 + IC1)%M1; s->ix2 = (IA2*s->ix2 + IC2)%M2; s->ix3 = (IA3*s->ix3 + IC3)%M3; j = 1 + ((97*s->ix3)/M3); if (j > 97 || j < 1) { /* Error */ return -1; } temp = s->r[j]; s->r[j] = (s->ix1 + s->ix2*RM2)*RM1; return temp; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(awgn_state_t *) awgn_init_dbov(awgn_state_t *s, int idum, float level) { int j; if (s == NULL) { if ((s = (awgn_state_t *) malloc(sizeof(*s))) == NULL) return NULL; } if (idum < 0) idum = -idum; s->rms = pow(10.0, level/20.0)*32768.0; s->ix1 = (IC1 + idum)%M1; s->ix1 = (IA1*s->ix1 + IC1)%M1; s->ix2 = s->ix1%M2; s->ix1 = (IA1*s->ix1 + IC1)%M1; s->ix3 = s->ix1%M3; s->r[0] = 0.0; for (j = 1; j <= 97; j++) { s->ix1 = (IA1*s->ix1 + IC1)%M1; s->ix2 = (IA2*s->ix2 + IC2)%M2; s->r[j] = (s->ix1 + s->ix2*RM2)*RM1; } s->gset = 0.0; s->iset = 0; return s; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(awgn_state_t *) awgn_init_dbm0(awgn_state_t *s, int idum, float level) { return awgn_init_dbov(s, idum, level - DBM0_MAX_POWER); } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) awgn_release(awgn_state_t *s) { return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int) awgn_free(awgn_state_t *s) { free(s); return 0; } /*- End of function --------------------------------------------------------*/ SPAN_DECLARE(int16_t) awgn(awgn_state_t *s) { double fac; double r; double v1; double v2; double amp; if (s->iset == 0) { do { v1 = 2.0*ran1(s) - 1.0; v2 = 2.0*ran1(s) - 1.0; r = v1*v1 + v2*v2; } while (r >= 1.0); fac = sqrt(-2.0*log(r)/r); s->gset = v1*fac; s->iset = 1; amp = v2*fac*s->rms; } else { s->iset = 0; amp = s->gset*s->rms; } return fsaturate(amp); } /*- End of function --------------------------------------------------------*/ /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/wrapper.xsl0000664000175000017500000000040411376152335015013 0ustar steveusteveu css.css spandsp-0.0.6/spandsp.pc.in0000664000175000017500000000034211516464421015203 0ustar steveusteveuprefix=@prefix@ exec_prefix=@prefix@ libdir=@libdir@ includedir=@includedir@ Name: spandsp Description: A DSP library for telephony. Requires: Version: @VERSION@ Libs: -L${libdir} -lspandsp -ltiff -lm Cflags: -I${includedir} spandsp-0.0.6/README.testdata0000664000175000017500000000465210763521117015301 0ustar steveusteveuSetting up test data for the supplied suite of test programs. ------------------------------------------------------------- Some of the tests in the test suite for this package require test data files. These test data files fall into four categories: - Some data files, such as those for some of the FAX tests, are generated by programs in the package. - Some are freely distributable data files, from various sources. These are supplied with the package. - Some are test data files from a standards body. These are the copyright material of the standards body, and so cannot be distributed with this package. However, most of these files can currently be downloaded at no charge from the standards body's web site. This file describes which files are needed, and how they may be processed to produce the right files in the right places for the tests. - The two industry standard sources of test data for DTMF decoders are Bellcore/Telcordia and Mitel. Neither of these is either free, or supplied in a form directly usable with the test suite. These data sources are expected by several tests, and not just the DTMF decoder tests. Sad to say, you are on your own when trying to source data for these tests. For the G.722 tests, obtain the file T-REC-G.722-198703-I!AppII!ZPF-E.zip from the ITU web site, and place it in this directory. Then run ./unpack_g722_data.sh For the G.726 tests, obtain the file T-REC-G.726-199103-I!AppII!SOFT-ZST-E.zip from the ITU web site, and place it in this directory. Then run ./unpack_g726_data.sh For the GSM 06.10 tests, obtain the file en_300961v080101p0.zip from the ETSI web site, and place it in this directory. If you are able to run .exe (i.e. MS DOS or Windows) files you can simply run ./unpack_gsm0610_data.sh If you are unable to run .exe files on the machine you are using (e.e. you are not using Cygwin, Mingw, Wine, FreeDOS or something of that sort) you will need to find a machine which will. First, run ./unpack_gsm0610_data.sh --no-exe This will leave 6 .EXE files in the etsitetss/gsm0610 directory. Take these to a machine which can run .EXE files, and execute all of them. This should result in a number of files which end with .COD, INP and .OUT. Copy these to the etsitests/gsm0610 directory, and run ./unpack_gsm0610_data.sh --no-exe-continue The remainder of the extraction and repacking of files should then take place. spandsp-0.0.6/debian/0000775000175000017500000000000011516506100014014 5ustar steveusteveuspandsp-0.0.6/debian/libspandsp6.install0000664000175000017500000000011211156707324017636 0ustar steveusteveudebian/tmp/usr/lib*/libspandsp.so.2.* debian/tmp/usr/lib*/libspandsp.so.2 spandsp-0.0.6/debian/control0000664000175000017500000000344211156707324015435 0ustar steveusteveuSource: spandsp Section: libs Priority: optional Maintainer: Debian VoIP Team Uploaders: Jose Carlos Garcia Sogo , Kilian Krause , Santiago Garcia Mantinan , Mark Purcell , Tzafrir Cohen , Santiago Ruano Rincón Build-Depends: debhelper (>= 4.0.0), libtiff4-dev, libjpeg62-dev, dpatch, doxygen, autotools-dev, xsltproc Standards-Version: 3.7.2 XS-Vcs-Svn: svn://svn.debian.org/pkg-voip/ XS-Vcs-Browser: http://svn.debian.org/wsvn/pkg-voip/ Package: libspandsp6 Architecture: any Depends: ${shlibs:Depends} Conflicts: libspandsp0, libspandsp1, libspandsp2 Description: Telephony signal processing library This is a low-level signal processing library that modulate and demodulate signals commonly used in telephony, such as the "noise" generated by a fax modem or DTMF touchpad. . This package contains the shared library. Package: libspandsp-dev Section: libdevel Architecture: any Depends: libspandsp6 (= ${Source-Version}), libtiff4-dev, libjpeg62-dev Description: Telephony signal processing library This is a low-level signal processing library that modulate and demodulate signals commonly used in telephony, such as the "noise" generated by a fax modem or DTMF touchpad. . This package contains the static library and development headers. . Homepage: http://www.soft-switch.org/ Package: libspandsp-doc Section: doc Architecture: all Description: Documentation for the spandsp signal processing library This package contains the online API in HTML for the libspandsp, a low level signal processing library that modulate and demodulate siignals commonly used in telephony, such as the "noise" generated by a fax modem or DTMF touchpad. spandsp-0.0.6/debian/copyright0000664000175000017500000000176310644155273015772 0ustar steveusteveuThis package was debianized by Simon Richter on Sun, 2 Jan 2005 15:22:58 +0100. It was downloaded from http://soft-switch.org/downloads/spandsp/ Copyright: Steve Underwood License: This package 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; version 2 dated June, 1991. This package 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 package; if not, write to the Free Software Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA. On Debian systems, the complete text of the GNU General Public License can be found in `/usr/share/common-licenses/GPL'. spandsp-0.0.6/debian/libspandsp-dev.install0000664000175000017500000000017110644155273020332 0ustar steveusteveudebian/tmp/usr/include debian/tmp/usr/lib/libspandsp.so debian/tmp/usr/lib/libspandsp.la debian/tmp/usr/lib/libspandsp.a spandsp-0.0.6/debian/compat0000664000175000017500000000000210644155273015226 0ustar steveusteveu4 spandsp-0.0.6/debian/rules0000775000175000017500000000452310644155273015114 0ustar steveusteveu#!/usr/bin/make -f # Uncomment this to turn on verbose mode. #export DH_VERBOSE=1 DEB_HOST_GNU_TYPE ?= $(shell dpkg-architecture -qDEB_HOST_GNU_TYPE) DEB_BUILD_GNU_TYPE ?= $(shell dpkg-architecture -qDEB_BUILD_GNU_TYPE) DEBVERSION:=$(shell head -n 1 debian/changelog \ | sed -e 's/^[^(]*(\([^)]*\)).*/\1/') ORIGTARVER:=$(shell echo $(DEBVERSION) | sed -e 's/^.*://' -e 's/-[0-9.]*$$//')# -e 's/.dfsg$$//' -e 's/~//') UPVERSION:=$(shell echo $(ORIGTARVER) | tr -d '~') FILENAME := spandsp_$(ORIGTARVER).orig.tar.gz FULLNAME := spandsp-$(UPVERSION) URL := http://soft-switch.org/downloads/spandsp/spandsp-$(UPVERSION).tgz CFLAGS = -Wall -g ifneq (,$(findstring noopt,$(DEB_BUILD_OPTIONS))) CFLAGS += -O0 else CFLAGS += -O2 endif include /usr/share/dpatch/dpatch.make autotools: patch-stamp ln -s /usr/share/misc/config.sub config.sub ln -s /usr/share/misc/config.guess config.guess touch autotools config.status: autotools configure dh_testdir CFLAGS="$(CFLAGS)" ./configure \ --host=$(DEB_HOST_GNU_TYPE) \ --build=$(DEB_BUILD_GNU_TYPE) \ --prefix=/usr \ --mandir=\$${prefix}/share/man \ --infodir=\$${prefix}/share/info \ --enable-doc build: build-stamp build-stamp: config.status dh_testdir $(MAKE) touch build-stamp clean: clean-patched unpatch clean-patched: dh_testdir dh_testroot rm -f build-stamp autotools -$(MAKE) distclean -$(RM) -f config.sub -$(RM) -f config.guess dh_clean install: build-stamp dh_testdir dh_testroot dh_clean -k $(MAKE) install DESTDIR=$(CURDIR)/debian/tmp binary-indep: build-stamp install dh_testdir -i dh_testroot -i dh_installchangelogs -i ChangeLog dh_installdocs -i DueDiligence dh_install -i dh_compress -i dh_fixperms -i dh_installdeb -i dh_gencontrol -i dh_md5sums -i dh_builddeb -i binary-arch: build-stamp install dh_testdir -a dh_testroot -a dh_installchangelogs -a ChangeLog dh_installdocs -a DueDiligence dh_install -a dh_strip -a dh_compress -a dh_fixperms -a dh_makeshlibs -a dh_installdeb -a dh_shlibdeps -a dh_gencontrol -a dh_md5sums -a dh_builddeb -a get-orig-source: -@@dh_testdir @@[ -d ../tarballs/. ]||mkdir -p ../tarballs @@echo Downloading $(FILENAME) from $(URL) ... @@wget -N -nv -T10 -t3 -O ../tarballs/$(FILENAME) $(URL) binary: binary-indep binary-arch .PHONY: build clean binary-indep binary-arch binary install patch unpatch spandsp-0.0.6/debian/changelog0000664000175000017500000000707411156707324015711 0ustar steveusteveuspandsp (0.0.6~pre7-1) unstable; urgency=low [ Steve Underwood ] * New upstream release. * Fixed upstream file name for get-orig-source. * Updates to 64bit archs support * Removal of obsoleted files -- Steve Underwood Sat, 14 Mar 2009 09:23:36 +0100 spandsp (0.0.5~pre2-1) unstable; urgency=low [ Massimo Cetra ] * New upstream release. * Fixed upstream file name for get-orig-source. * Updates to 64bit archs support * Removal of obsoleted files -- Massimo Cetra Mon, 5 May 2008 09:23:36 +0100 spandsp (0.0.4~pre3-1) unstable; urgency=low [ Santiago Ruano Rincón ] * Added Conflicts: libspandsp2 * Fixed URL in debian/rules [ Tzafrir Cohen ] * New upstream release. * Fixed upstream file name for get-orig-source. * standards version updated to 3.7.2 . -- Tzafrir Cohen Mon, 18 Jun 2007 09:53:06 +0300 spandsp (0.0.4~pre1-1) experimental; urgency=low * New upstream release. -- Santiago Ruano Rincón Fri, 11 May 2007 15:24:41 -0500 spandsp (0.0.3pre27-2) experimental; urgency=low * Conflict with libspandsp1 due to /usr/share/spandsp/global-tones.xml -- Kilian Krause Thu, 4 Jan 2007 00:29:10 +0100 spandsp (0.0.3pre27-1) experimental; urgency=low * New upstream release. * Bump library name due to API incompatibility with 0.0.2 versions. -- Kilian Krause Wed, 3 Jan 2007 21:31:17 +0100 spandsp (0.0.3pre26-1) experimental; urgency=low * New upstream release - New version of spandsp available (Closes: #339293) - Remove src/spandsp/mmx.h is not GPL and has no license attached (Closes: #357813) * Lintian: outdated-autotools-helper-file - Build-Depends: autotools-dev * Add debian/watch -- Mark Purcell Sat, 9 Dec 2006 14:00:57 +0000 spandsp (0.0.2pre26-1) unstable; urgency=low * New upstream release. * Added get-orig-source target. * Removed unneeded and buggy nommx.dpatch (Closes: #376249, #377374) -- Tzafrir Cohen Tue, 1 Aug 2006 06:27:47 +0100 spandsp (0.0.2pre25-1) unstable; urgency=low * New upstream version. * debian/copyright: Source's URL in copyright file updated to the new author' site. * Added -doc package, with the API documentation. * Fixed package name to follow new upstream's version. -- Kilian Krause Sat, 18 Feb 2006 22:10:21 +0100 spandsp (0.0.2pre17-1) unstable; urgency=low * New upstream version. -- Kilian Krause Mon, 9 May 2005 21:56:53 +0200 spandsp (0.0.2pre10-3) unstable; urgency=low * debian/control: fixed overrides. again. (Back to the old optional) -- Kilian Krause Mon, 21 Mar 2005 10:39:30 +0100 spandsp (0.0.2pre10-2) unstable; urgency=low * debian/control: fixed overrides. * debian/patches/mmx.dpatch: Added compilation on non-i386 and non-amd64. -- Kilian Krause Sun, 20 Mar 2005 23:32:48 +0100 spandsp (0.0.2pre10-1) unstable; urgency=low * New upstream release. * Debian VoIP Team takes this package from Simon. Thanks! * debian/rules: fixed how config.[sub,guess] files are linked from autotools-dev and cleaned. -- Kilian Krause Sat, 22 Jan 2005 13:44:28 +0100 spandsp (0.0.2-2) unstable; urgency=low * Corrected build dependencies. -- Simon Richter Mon, 3 Jan 2005 13:33:33 +0100 spandsp (0.0.2-1) unstable; urgency=low * Initial Release (Closes: #262032). -- Simon Richter Sun, 2 Jan 2005 15:22:58 +0100 spandsp-0.0.6/debian/libspandsp-doc.install0000664000175000017500000000005710644155273020324 0ustar steveusteveudoc/api/html usr/share/doc/libspandsp-doc/api/ spandsp-0.0.6/debian/watch0000664000175000017500000000030010644155273015052 0ustar steveusteveu# See uscan(1) for format # Compulsory line, this is a version 3 file version=3 # http://soft-switch.org/downloads/spandsp/ spandsp-(.*)\.tgz debian svn-upgrade spandsp-0.0.6/AUTHORS0000664000175000017500000000004510346577443013663 0ustar steveusteveuSteve Underwood spandsp-0.0.6/spandsp/0000775000175000017500000000000011516506100014242 5ustar steveusteveuspandsp-0.0.6/spandsp/fax-tests.dtd0000664000175000017500000000242011253476123016664 0ustar steveusteveu spandsp-0.0.6/spandsp/global-tones.xml0000664000175000017500000067341611336546350017406 0ustar steveusteveu spandsp-0.0.6/spandsp/tones.dtd0000664000175000017500000001251211062232646016077 0ustar steveusteveu spandsp-0.0.6/spandsp/tsb85.xml0000664000175000017500000105566411422612261015754 0ustar steveusteveu spandsp-0.0.6/spandsp/fax-tests.xml0000664000175000017500000001042511422612261016706 0ustar steveusteveu spandsp-0.0.6/COPYING0000664000175000017500000012706311004627052013640 0ustar steveusteveuThe spandsp library is licenced under LGPL 2.1. The test suite, and some of the supporting code, are licenced under GPL 2. The full text of both licences may be found below. GNU LESSER GENERAL PUBLIC LICENSE Version 2.1, February 1999 Copyright (C) 1991, 1999 Free Software Foundation, Inc. 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA Everyone is permitted to copy and distribute verbatim copies of this license document, but changing it is not allowed. [This is the first released version of the Lesser GPL. It also counts as the successor of the GNU Library Public License, version 2, hence the version number 2.1.] Preamble The licenses for most software are designed to take away your freedom to share and change it. By contrast, the GNU General Public Licenses are intended to guarantee your freedom to share and change free software--to make sure the software is free for all its users. This license, the Lesser General Public License, applies to some specially designated software packages--typically libraries--of the Free Software Foundation and other authors who decide to use it. You can use it too, but we suggest you first think carefully about whether this license or the ordinary General Public License is the better strategy to use in any particular case, based on the explanations below. When we speak of free software, we are referring to freedom of use, not price. Our General Public Licenses are designed to make sure that you have the freedom to distribute copies of free software (and charge for this service if you wish); that you receive source code or can get it if you want it; that you can change the software and use pieces of it in new free programs; and that you are informed that you can do these things. To protect your rights, we need to make restrictions that forbid distributors to deny you these rights or to ask you to surrender these rights. These restrictions translate to certain responsibilities for you if you distribute copies of the library or if you modify it. For example, if you distribute copies of the library, whether gratis or for a fee, you must give the recipients all the rights that we gave you. You must make sure that they, too, receive or can get the source code. If you link other code with the library, you must provide complete object files to the recipients, so that they can relink them with the library after making changes to the library and recompiling it. And you must show them these terms so they know their rights. We protect your rights with a two-step method: (1) we copyright the library, and (2) we offer you this license, which gives you legal permission to copy, distribute and/or modify the library. To protect each distributor, we want to make it very clear that there is no warranty for the free library. Also, if the library is modified by someone else and passed on, the recipients should know that what they have is not the original version, so that the original author's reputation will not be affected by problems that might be introduced by others. Finally, software patents pose a constant threat to the existence of any free program. We wish to make sure that a company cannot effectively restrict the users of a free program by obtaining a restrictive license from a patent holder. Therefore, we insist that any patent license obtained for a version of the library must be consistent with the full freedom of use specified in this license. Most GNU software, including some libraries, is covered by the ordinary GNU General Public License. This license, the GNU Lesser General Public License, applies to certain designated libraries, and is quite different from the ordinary General Public License. We use this license for certain libraries in order to permit linking those libraries into non-free programs. When a program is linked with a library, whether statically or using a shared library, the combination of the two is legally speaking a combined work, a derivative of the original library. The ordinary General Public License therefore permits such linking only if the entire combination fits its criteria of freedom. The Lesser General Public License permits more lax criteria for linking other code with the library. We call this license the "Lesser" General Public License because it does Less to protect the user's freedom than the ordinary General Public License. It also provides other free software developers Less of an advantage over competing non-free programs. These disadvantages are the reason we use the ordinary General Public License for many libraries. However, the Lesser license provides advantages in certain special circumstances. For example, on rare occasions, there may be a special need to encourage the widest possible use of a certain library, so that it becomes a de-facto standard. To achieve this, non-free programs must be allowed to use the library. A more frequent case is that a free library does the same job as widely used non-free libraries. In this case, there is little to gain by limiting the free library to free software only, so we use the Lesser General Public License. In other cases, permission to use a particular library in non-free programs enables a greater number of people to use a large body of free software. For example, permission to use the GNU C Library in non-free programs enables many more people to use the whole GNU operating system, as well as its variant, the GNU/Linux operating system. Although the Lesser General Public License is Less protective of the users' freedom, it does ensure that the user of a program that is linked with the Library has the freedom and the wherewithal to run that program using a modified version of the Library. The precise terms and conditions for copying, distribution and modification follow. Pay close attention to the difference between a "work based on the library" and a "work that uses the library". The former contains code derived from the library, whereas the latter must be combined with the library in order to run. GNU LESSER GENERAL PUBLIC LICENSE TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION 0. This License Agreement applies to any software library or other program which contains a notice placed by the copyright holder or other authorized party saying it may be distributed under the terms of this Lesser General Public License (also called "this License"). Each licensee is addressed as "you". A "library" means a collection of software functions and/or data prepared so as to be conveniently linked with application programs (which use some of those functions and data) to form executables. The "Library", below, refers to any such software library or work which has been distributed under these terms. A "work based on the Library" means either the Library or any derivative work under copyright law: that is to say, a work containing the Library or a portion of it, either verbatim or with modifications and/or translated straightforwardly into another language. (Hereinafter, translation is included without limitation in the term "modification".) "Source code" for a work means the preferred form of the work for making modifications to it. For a library, complete source code means all the source code for all modules it contains, plus any associated interface definition files, plus the scripts used to control compilation and installation of the library. Activities other than copying, distribution and modification are not covered by this License; they are outside its scope. The act of running a program using the Library is not restricted, and output from such a program is covered only if its contents constitute a work based on the Library (independent of the use of the Library in a tool for writing it). Whether that is true depends on what the Library does and what the program that uses the Library does. 1. You may copy and distribute verbatim copies of the Library's complete source code as you receive it, in any medium, provided that you conspicuously and appropriately publish on each copy an appropriate copyright notice and disclaimer of warranty; keep intact all the notices that refer to this License and to the absence of any warranty; and distribute a copy of this License along with the Library. You may charge a fee for the physical act of transferring a copy, and you may at your option offer warranty protection in exchange for a fee. 2. You may modify your copy or copies of the Library or any portion of it, thus forming a work based on the Library, and copy and distribute such modifications or work under the terms of Section 1 above, provided that you also meet all of these conditions: a) The modified work must itself be a software library. b) You must cause the files modified to carry prominent notices stating that you changed the files and the date of any change. c) You must cause the whole of the work to be licensed at no charge to all third parties under the terms of this License. d) If a facility in the modified Library refers to a function or a table of data to be supplied by an application program that uses the facility, other than as an argument passed when the facility is invoked, then you must make a good faith effort to ensure that, in the event an application does not supply such function or table, the facility still operates, and performs whatever part of its purpose remains meaningful. (For example, a function in a library to compute square roots has a purpose that is entirely well-defined independent of the application. Therefore, Subsection 2d requires that any application-supplied function or table used by this function must be optional: if the application does not supply it, the square root function must still compute square roots.) These requirements apply to the modified work as a whole. If identifiable sections of that work are not derived from the Library, and can be reasonably considered independent and separate works in themselves, then this License, and its terms, do not apply to those sections when you distribute them as separate works. But when you distribute the same sections as part of a whole which is a work based on the Library, the distribution of the whole must be on the terms of this License, whose permissions for other licensees extend to the entire whole, and thus to each and every part regardless of who wrote it. Thus, it is not the intent of this section to claim rights or contest your rights to work written entirely by you; rather, the intent is to exercise the right to control the distribution of derivative or collective works based on the Library. In addition, mere aggregation of another work not based on the Library with the Library (or with a work based on the Library) on a volume of a storage or distribution medium does not bring the other work under the scope of this License. 3. You may opt to apply the terms of the ordinary GNU General Public License instead of this License to a given copy of the Library. To do this, you must alter all the notices that refer to this License, so that they refer to the ordinary GNU General Public License, version 2, instead of to this License. (If a newer version than version 2 of the ordinary GNU General Public License has appeared, then you can specify that version instead if you wish.) Do not make any other change in these notices. Once this change is made in a given copy, it is irreversible for that copy, so the ordinary GNU General Public License applies to all subsequent copies and derivative works made from that copy. This option is useful when you wish to copy part of the code of the Library into a program that is not a library. 4. You may copy and distribute the Library (or a portion or derivative of it, under Section 2) in object code or executable form under the terms of Sections 1 and 2 above provided that you accompany it with the complete corresponding machine-readable source code, which must be distributed under the terms of Sections 1 and 2 above on a medium customarily used for software interchange. If distribution of object code is made by offering access to copy from a designated place, then offering equivalent access to copy the source code from the same place satisfies the requirement to distribute the source code, even though third parties are not compelled to copy the source along with the object code. 5. A program that contains no derivative of any portion of the Library, but is designed to work with the Library by being compiled or linked with it, is called a "work that uses the Library". Such a work, in isolation, is not a derivative work of the Library, and therefore falls outside the scope of this License. However, linking a "work that uses the Library" with the Library creates an executable that is a derivative of the Library (because it contains portions of the Library), rather than a "work that uses the library". The executable is therefore covered by this License. Section 6 states terms for distribution of such executables. When a "work that uses the Library" uses material from a header file that is part of the Library, the object code for the work may be a derivative work of the Library even though the source code is not. Whether this is true is especially significant if the work can be linked without the Library, or if the work is itself a library. The threshold for this to be true is not precisely defined by law. If such an object file uses only numerical parameters, data structure layouts and accessors, and small macros and small inline functions (ten lines or less in length), then the use of the object file is unrestricted, regardless of whether it is legally a derivative work. (Executables containing this object code plus portions of the Library will still fall under Section 6.) Otherwise, if the work is a derivative of the Library, you may distribute the object code for the work under the terms of Section 6. Any executables containing that work also fall under Section 6, whether or not they are linked directly with the Library itself. 6. As an exception to the Sections above, you may also combine or link a "work that uses the Library" with the Library to produce a work containing portions of the Library, and distribute that work under terms of your choice, provided that the terms permit modification of the work for the customer's own use and reverse engineering for debugging such modifications. You must give prominent notice with each copy of the work that the Library is used in it and that the Library and its use are covered by this License. You must supply a copy of this License. If the work during execution displays copyright notices, you must include the copyright notice for the Library among them, as well as a reference directing the user to the copy of this License. Also, you must do one of these things: a) Accompany the work with the complete corresponding machine-readable source code for the Library including whatever changes were used in the work (which must be distributed under Sections 1 and 2 above); and, if the work is an executable linked with the Library, with the complete machine-readable "work that uses the Library", as object code and/or source code, so that the user can modify the Library and then relink to produce a modified executable containing the modified Library. (It is understood that the user who changes the contents of definitions files in the Library will not necessarily be able to recompile the application to use the modified definitions.) b) Use a suitable shared library mechanism for linking with the Library. A suitable mechanism is one that (1) uses at run time a copy of the library already present on the user's computer system, rather than copying library functions into the executable, and (2) will operate properly with a modified version of the library, if the user installs one, as long as the modified version is interface-compatible with the version that the work was made with. c) Accompany the work with a written offer, valid for at least three years, to give the same user the materials specified in Subsection 6a, above, for a charge no more than the cost of performing this distribution. d) If distribution of the work is made by offering access to copy from a designated place, offer equivalent access to copy the above specified materials from the same place. e) Verify that the user has already received a copy of these materials or that you have already sent this user a copy. For an executable, the required form of the "work that uses the Library" must include any data and utility programs needed for reproducing the executable from it. However, as a special exception, the materials to be distributed need not include anything that is normally distributed (in either source or binary form) with the major components (compiler, kernel, and so on) of the operating system on which the executable runs, unless that component itself accompanies the executable. It may happen that this requirement contradicts the license restrictions of other proprietary libraries that do not normally accompany the operating system. Such a contradiction means you cannot use both them and the Library together in an executable that you distribute. 7. You may place library facilities that are a work based on the Library side-by-side in a single library together with other library facilities not covered by this License, and distribute such a combined library, provided that the separate distribution of the work based on the Library and of the other library facilities is otherwise permitted, and provided that you do these two things: a) Accompany the combined library with a copy of the same work based on the Library, uncombined with any other library facilities. This must be distributed under the terms of the Sections above. b) Give prominent notice with the combined library of the fact that part of it is a work based on the Library, and explaining where to find the accompanying uncombined form of the same work. 8. You may not copy, modify, sublicense, link with, or distribute the Library except as expressly provided under this License. Any attempt otherwise to copy, modify, sublicense, link with, or distribute the Library is void, and will automatically terminate your rights under this License. However, parties who have received copies, or rights, from you under this License will not have their licenses terminated so long as such parties remain in full compliance. 9. You are not required to accept this License, since you have not signed it. However, nothing else grants you permission to modify or distribute the Library or its derivative works. These actions are prohibited by law if you do not accept this License. Therefore, by modifying or distributing the Library (or any work based on the Library), you indicate your acceptance of this License to do so, and all its terms and conditions for copying, distributing or modifying the Library or works based on it. 10. Each time you redistribute the Library (or any work based on the Library), the recipient automatically receives a license from the original licensor to copy, distribute, link with or modify the Library subject to these terms and conditions. You may not impose any further restrictions on the recipients' exercise of the rights granted herein. You are not responsible for enforcing compliance by third parties with this License. 11. If, as a consequence of a court judgment or allegation of patent infringement or for any other reason (not limited to patent issues), conditions are imposed on you (whether by court order, agreement or otherwise) that contradict the conditions of this License, they do not excuse you from the conditions of this License. If you cannot distribute so as to satisfy simultaneously your obligations under this License and any other pertinent obligations, then as a consequence you may not distribute the Library at all. For example, if a patent license would not permit royalty-free redistribution of the Library by all those who receive copies directly or indirectly through you, then the only way you could satisfy both it and this License would be to refrain entirely from distribution of the Library. If any portion of this section is held invalid or unenforceable under any particular circumstance, the balance of the section is intended to apply, and the section as a whole is intended to apply in other circumstances. It is not the purpose of this section to induce you to infringe any patents or other property right claims or to contest validity of any such claims; this section has the sole purpose of protecting the integrity of the free software distribution system which is implemented by public license practices. Many people have made generous contributions to the wide range of software distributed through that system in reliance on consistent application of that system; it is up to the author/donor to decide if he or she is willing to distribute software through any other system and a licensee cannot impose that choice. This section is intended to make thoroughly clear what is believed to be a consequence of the rest of this License. 12. If the distribution and/or use of the Library is restricted in certain countries either by patents or by copyrighted interfaces, the original copyright holder who places the Library under this License may add an explicit geographical distribution limitation excluding those countries, so that distribution is permitted only in or among countries not thus excluded. In such case, this License incorporates the limitation as if written in the body of this License. 13. The Free Software Foundation may publish revised and/or new versions of the Lesser General Public License from time to time. Such new versions will be similar in spirit to the present version, but may differ in detail to address new problems or concerns. Each version is given a distinguishing version number. If the Library specifies a version number of this License which applies to it and "any later version", you have the option of following the terms and conditions either of that version or of any later version published by the Free Software Foundation. If the Library does not specify a license version number, you may choose any version ever published by the Free Software Foundation. 14. If you wish to incorporate parts of the Library into other free programs whose distribution conditions are incompatible with these, write to the author to ask for permission. For software which is copyrighted by the Free Software Foundation, write to the Free Software Foundation; we sometimes make exceptions for this. Our decision will be guided by the two goals of preserving the free status of all derivatives of our free software and of promoting the sharing and reuse of software generally. NO WARRANTY 15. BECAUSE THE LIBRARY IS LICENSED FREE OF CHARGE, THERE IS NO WARRANTY FOR THE LIBRARY, TO THE EXTENT PERMITTED BY APPLICABLE LAW. EXCEPT WHEN OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR OTHER PARTIES PROVIDE THE LIBRARY "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. THE ENTIRE RISK AS TO THE QUALITY AND PERFORMANCE OF THE LIBRARY IS WITH YOU. SHOULD THE LIBRARY PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL NECESSARY SERVICING, REPAIR OR CORRECTION. 16. IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY AND/OR REDISTRIBUTE THE LIBRARY AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES, INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING OUT OF THE USE OR INABILITY TO USE THE LIBRARY (INCLUDING BUT NOT LIMITED TO LOSS OF DATA OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY YOU OR THIRD PARTIES OR A FAILURE OF THE LIBRARY TO OPERATE WITH ANY OTHER SOFTWARE), EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGES. END OF TERMS AND CONDITIONS How to Apply These Terms to Your New Libraries If you develop a new library, and you want it to be of the greatest possible use to the public, we recommend making it free software that everyone can redistribute and change. You can do so by permitting redistribution under these terms (or, alternatively, under the terms of the ordinary General Public License). To apply these terms, attach the following notices to the library. It is safest to attach them to the start of each source file to most effectively convey the exclusion of warranty; and each file should have at least the "copyright" line and a pointer to where the full notice is found. Copyright (C) This library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. This library 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 Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this library; if not, write to the Free Software Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA Also add information on how to contact you by electronic and paper mail. You should also get your employer (if you work as a programmer) or your school, if any, to sign a "copyright disclaimer" for the library, if necessary. Here is a sample; alter the names: Yoyodyne, Inc., hereby disclaims all copyright interest in the library `Frob' (a library for tweaking knobs) written by James Random Hacker. , 1 April 1990 Ty Coon, President of Vice That's all there is to it! GNU GENERAL PUBLIC LICENSE Version 2, June 1991 Copyright (C) 1989, 1991 Free Software Foundation, Inc. 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA Everyone is permitted to copy and distribute verbatim copies of this license document, but changing it is not allowed. Preamble The licenses for most software are designed to take away your freedom to share and change it. By contrast, the GNU General Public License is intended to guarantee your freedom to share and change free software--to make sure the software is free for all its users. This General Public License applies to most of the Free Software Foundation's software and to any other program whose authors commit to using it. (Some other Free Software Foundation software is covered by the GNU Library General Public License instead.) You can apply it to your programs, too. When we speak of free software, we are referring to freedom, not price. Our General Public Licenses are designed to make sure that you have the freedom to distribute copies of free software (and charge for this service if you wish), that you receive source code or can get it if you want it, that you can change the software or use pieces of it in new free programs; and that you know you can do these things. To protect your rights, we need to make restrictions that forbid anyone to deny you these rights or to ask you to surrender the rights. These restrictions translate to certain responsibilities for you if you distribute copies of the software, or if you modify it. For example, if you distribute copies of such a program, whether gratis or for a fee, you must give the recipients all the rights that you have. You must make sure that they, too, receive or can get the source code. And you must show them these terms so they know their rights. We protect your rights with two steps: (1) copyright the software, and (2) offer you this license which gives you legal permission to copy, distribute and/or modify the software. Also, for each author's protection and ours, we want to make certain that everyone understands that there is no warranty for this free software. If the software is modified by someone else and passed on, we want its recipients to know that what they have is not the original, so that any problems introduced by others will not reflect on the original authors' reputations. Finally, any free program is threatened constantly by software patents. We wish to avoid the danger that redistributors of a free program will individually obtain patent licenses, in effect making the program proprietary. To prevent this, we have made it clear that any patent must be licensed for everyone's free use or not licensed at all. The precise terms and conditions for copying, distribution and modification follow. GNU GENERAL PUBLIC LICENSE TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION 0. This License applies to any program or other work which contains a notice placed by the copyright holder saying it may be distributed under the terms of this General Public License. The "Program", below, refers to any such program or work, and a "work based on the Program" means either the Program or any derivative work under copyright law: that is to say, a work containing the Program or a portion of it, either verbatim or with modifications and/or translated into another language. (Hereinafter, translation is included without limitation in the term "modification".) Each licensee is addressed as "you". Activities other than copying, distribution and modification are not covered by this License; they are outside its scope. The act of running the Program is not restricted, and the output from the Program is covered only if its contents constitute a work based on the Program (independent of having been made by running the Program). Whether that is true depends on what the Program does. 1. You may copy and distribute verbatim copies of the Program's source code as you receive it, in any medium, provided that you conspicuously and appropriately publish on each copy an appropriate copyright notice and disclaimer of warranty; keep intact all the notices that refer to this License and to the absence of any warranty; and give any other recipients of the Program a copy of this License along with the Program. You may charge a fee for the physical act of transferring a copy, and you may at your option offer warranty protection in exchange for a fee. 2. You may modify your copy or copies of the Program or any portion of it, thus forming a work based on the Program, and copy and distribute such modifications or work under the terms of Section 1 above, provided that you also meet all of these conditions: a) You must cause the modified files to carry prominent notices stating that you changed the files and the date of any change. b) You must cause any work that you distribute or publish, that in whole or in part contains or is derived from the Program or any part thereof, to be licensed as a whole at no charge to all third parties under the terms of this License. c) If the modified program normally reads commands interactively when run, you must cause it, when started running for such interactive use in the most ordinary way, to print or display an announcement including an appropriate copyright notice and a notice that there is no warranty (or else, saying that you provide a warranty) and that users may redistribute the program under these conditions, and telling the user how to view a copy of this License. (Exception: if the Program itself is interactive but does not normally print such an announcement, your work based on the Program is not required to print an announcement.) These requirements apply to the modified work as a whole. If identifiable sections of that work are not derived from the Program, and can be reasonably considered independent and separate works in themselves, then this License, and its terms, do not apply to those sections when you distribute them as separate works. But when you distribute the same sections as part of a whole which is a work based on the Program, the distribution of the whole must be on the terms of this License, whose permissions for other licensees extend to the entire whole, and thus to each and every part regardless of who wrote it. Thus, it is not the intent of this section to claim rights or contest your rights to work written entirely by you; rather, the intent is to exercise the right to control the distribution of derivative or collective works based on the Program. In addition, mere aggregation of another work not based on the Program with the Program (or with a work based on the Program) on a volume of a storage or distribution medium does not bring the other work under the scope of this License. 3. You may copy and distribute the Program (or a work based on it, under Section 2) in object code or executable form under the terms of Sections 1 and 2 above provided that you also do one of the following: a) Accompany it with the complete corresponding machine-readable source code, which must be distributed under the terms of Sections 1 and 2 above on a medium customarily used for software interchange; or, b) Accompany it with a written offer, valid for at least three years, to give any third party, for a charge no more than your cost of physically performing source distribution, a complete machine-readable copy of the corresponding source code, to be distributed under the terms of Sections 1 and 2 above on a medium customarily used for software interchange; or, c) Accompany it with the information you received as to the offer to distribute corresponding source code. (This alternative is allowed only for noncommercial distribution and only if you received the program in object code or executable form with such an offer, in accord with Subsection b above.) The source code for a work means the preferred form of the work for making modifications to it. For an executable work, complete source code means all the source code for all modules it contains, plus any associated interface definition files, plus the scripts used to control compilation and installation of the executable. However, as a special exception, the source code distributed need not include anything that is normally distributed (in either source or binary form) with the major components (compiler, kernel, and so on) of the operating system on which the executable runs, unless that component itself accompanies the executable. If distribution of executable or object code is made by offering access to copy from a designated place, then offering equivalent access to copy the source code from the same place counts as distribution of the source code, even though third parties are not compelled to copy the source along with the object code. 4. You may not copy, modify, sublicense, or distribute the Program except as expressly provided under this License. Any attempt otherwise to copy, modify, sublicense or distribute the Program is void, and will automatically terminate your rights under this License. However, parties who have received copies, or rights, from you under this License will not have their licenses terminated so long as such parties remain in full compliance. 5. You are not required to accept this License, since you have not signed it. However, nothing else grants you permission to modify or distribute the Program or its derivative works. These actions are prohibited by law if you do not accept this License. Therefore, by modifying or distributing the Program (or any work based on the Program), you indicate your acceptance of this License to do so, and all its terms and conditions for copying, distributing or modifying the Program or works based on it. 6. Each time you redistribute the Program (or any work based on the Program), the recipient automatically receives a license from the original licensor to copy, distribute or modify the Program subject to these terms and conditions. You may not impose any further restrictions on the recipients' exercise of the rights granted herein. You are not responsible for enforcing compliance by third parties to this License. 7. If, as a consequence of a court judgment or allegation of patent infringement or for any other reason (not limited to patent issues), conditions are imposed on you (whether by court order, agreement or otherwise) that contradict the conditions of this License, they do not excuse you from the conditions of this License. If you cannot distribute so as to satisfy simultaneously your obligations under this License and any other pertinent obligations, then as a consequence you may not distribute the Program at all. For example, if a patent license would not permit royalty-free redistribution of the Program by all those who receive copies directly or indirectly through you, then the only way you could satisfy both it and this License would be to refrain entirely from distribution of the Program. If any portion of this section is held invalid or unenforceable under any particular circumstance, the balance of the section is intended to apply and the section as a whole is intended to apply in other circumstances. It is not the purpose of this section to induce you to infringe any patents or other property right claims or to contest validity of any such claims; this section has the sole purpose of protecting the integrity of the free software distribution system, which is implemented by public license practices. Many people have made generous contributions to the wide range of software distributed through that system in reliance on consistent application of that system; it is up to the author/donor to decide if he or she is willing to distribute software through any other system and a licensee cannot impose that choice. This section is intended to make thoroughly clear what is believed to be a consequence of the rest of this License. 8. If the distribution and/or use of the Program is restricted in certain countries either by patents or by copyrighted interfaces, the original copyright holder who places the Program under this License may add an explicit geographical distribution limitation excluding those countries, so that distribution is permitted only in or among countries not thus excluded. In such case, this License incorporates the limitation as if written in the body of this License. 9. The Free Software Foundation may publish revised and/or new versions of the General Public License from time to time. Such new versions will be similar in spirit to the present version, but may differ in detail to address new problems or concerns. Each version is given a distinguishing version number. If the Program specifies a version number of this License which applies to it and "any later version", you have the option of following the terms and conditions either of that version or of any later version published by the Free Software Foundation. If the Program does not specify a version number of this License, you may choose any version ever published by the Free Software Foundation. 10. If you wish to incorporate parts of the Program into other free programs whose distribution conditions are different, write to the author to ask for permission. For software which is copyrighted by the Free Software Foundation, write to the Free Software Foundation; we sometimes make exceptions for this. Our decision will be guided by the two goals of preserving the free status of all derivatives of our free software and of promoting the sharing and reuse of software generally. NO WARRANTY 11. BECAUSE THE PROGRAM IS LICENSED FREE OF CHARGE, THERE IS NO WARRANTY FOR THE PROGRAM, TO THE EXTENT PERMITTED BY APPLICABLE LAW. EXCEPT WHEN OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR OTHER PARTIES PROVIDE THE PROGRAM "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. THE ENTIRE RISK AS TO THE QUALITY AND PERFORMANCE OF THE PROGRAM IS WITH YOU. SHOULD THE PROGRAM PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL NECESSARY SERVICING, REPAIR OR CORRECTION. 12. IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY AND/OR REDISTRIBUTE THE PROGRAM AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES, INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING OUT OF THE USE OR INABILITY TO USE THE PROGRAM (INCLUDING BUT NOT LIMITED TO LOSS OF DATA OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY YOU OR THIRD PARTIES OR A FAILURE OF THE PROGRAM TO OPERATE WITH ANY OTHER PROGRAMS), EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGES. END OF TERMS AND CONDITIONS How to Apply These Terms to Your New Programs If you develop a new program, and you want it to be of the greatest possible use to the public, the best way to achieve this is to make it free software which everyone can redistribute and change under these terms. To do so, attach the following notices to the program. It is safest to attach them to the start of each source file to most effectively convey the exclusion of warranty; and each file should have at least the "copyright" line and a pointer to where the full notice is found. Copyright (C) This program 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 (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program; if not, write to the Free Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA Also add information on how to contact you by electronic and paper mail. If the program is interactive, make it output a short notice like this when it starts in an interactive mode: Gnomovision version 69, Copyright (C) year name of author Gnomovision comes with ABSOLUTELY NO WARRANTY; for details type `show w'. This is free software, and you are welcome to redistribute it under certain conditions; type `show c' for details. The hypothetical commands `show w' and `show c' should show the appropriate parts of the General Public License. Of course, the commands you use may be called something other than `show w' and `show c'; they could even be mouse-clicks or menu items--whatever suits your program. You should also get your employer (if you work as a programmer) or your school, if any, to sign a "copyright disclaimer" for the program, if necessary. Here is a sample; alter the names: Yoyodyne, Inc., hereby disclaims all copyright interest in the program `Gnomovision' (which makes passes at compilers) written by James Hacker. , 1 April 1989 Ty Coon, President of Vice This General Public License does not permit incorporating your program into proprietary programs. If your program is a subroutine library, you may consider it more useful to permit linking proprietary applications with the library. If this is what you want to do, use the GNU Library General Public License instead of this License. spandsp-0.0.6/NEWS0000664000175000017500000000002507741030033013270 0ustar steveusteveuNo news is good news!spandsp-0.0.6/INSTALL0000664000175000017500000002446311072610446013642 0ustar steveusteveuBuilding and installing spandsp =============================== A number of distributions include spandsp, but they usually use older versions of the library, which lack a lot of the features of the current version. Before installing spandsp, make sure there are no older versions already on your machine. Make sure libtiff is installed on your machine. Versions 3.5.7, 3.6.0, 3.7.1 and 3.8.2 seem to work OK. There have been several bugs related to FAX document handling in some versions of libtiff. Also, some people have had trouble using spandsp because they had more than one version of libtiff on their machine. Take care with this. If you are using an RPM based system, such as RedHat or Fedora, you will need the libtiff and libtiff-devel RPMs installed to be able to build spandsp. You can use the usual: ./configure make make install process to build the spandsp library. Note that if you use configure in this way, the software will be installed in /usr/local. In this case make sure your /etc/ld.so.conf file has an entry for /usr/local/lib. If you wish the software to be installed in /usr, you should build it with the commands. ./configure --prefix=/usr make make install Building the programming documentation ====================================== If you wish to build the programming documentation for spandsp, configure spandsp with: ./configure --enable-doc You need doxygen installed on your machine. Building the test suite ======================= Most sections of the spandsp library have an accompanying test program in the test directory. If you wish to build these test programs, configure spandsp with: ./configure --enable-tests To build these tests you will need libaudiofile installed on your machine. To build the modem tests, with the GUI monitoring feature you will need Fltk 1.1.4 or later, an audio meter module and a cartesian plotting module. Fltk may be obtained from http://www.fltk.org. The audio meter module may be obtained from http://www.soft-switch.org/downloads/Fl_Audio_Meter.tgz . The cartesian plotting module may be obtained from http://134.226.68.29/fltk. However, there is no suitable makefile supplied with that. You can find a version at http://www.soft-switch.org/downloads/Fl_Cartesian.tgz which will build as a Linux library. The actual code in both these versions is identical. You need to have Fltk 1.1.4 or later installed before building the plotting library. Applications ============ Applications support for spandsp is built into packages such as Callweaver, FreeSwitch and iaxmodem. Code to add spandsp based FAX support to Asterisk may be found at http://sourceforge.net/projects/agx-ast-addons. Basic Installation ================== These are generic installation instructions. The `configure' shell script attempts to guess correct values for various system-dependent variables used during compilation. It uses those values to create a `Makefile' in each directory of the package. It may also create one or more `.h' files containing system-dependent definitions. Finally, it creates a shell script `config.status' that you can run in the future to recreate the current configuration, a file `config.cache' that saves the results of its tests to speed up reconfiguring, and a file `config.log' containing compiler output (useful mainly for debugging `configure'). If you need to do unusual things to compile the package, please try to figure out how `configure' could check whether to do them, and mail diffs or instructions to the address given in the `README' so they can be considered for the next release. If at some point `config.cache' contains results you don't want to keep, you may remove or edit it. The file `configure.ac' is used to create `configure' by a program called `autoconf'. You only need `configure.ac' if you want to change it or regenerate `configure' using a newer version of `autoconf'. The simplest way to compile this package is: 1. `cd' to the directory containing the package's source code and type `./configure' to configure the package for your system. If you're using `csh' on an old version of System V, you might need to type `sh ./configure' instead to prevent `csh' from trying to execute `configure' itself. Running `configure' takes awhile. While running, it prints some messages telling which features it is checking for. 2. Type `make' to compile the package. 3. Optionally, type `make check' to run any self-tests that come with the package. 4. Type `make install' to install the programs and any data files and documentation. 5. You can remove the program binaries and object files from the source code directory by typing `make clean'. To also remove the files that `configure' created (so you can compile the package for a different kind of computer), type `make distclean'. There is also a `make maintainer-clean' target, but that is intended mainly for the package's developers. If you use it, you may have to get all sorts of other programs in order to regenerate files that came with the distribution. Compilers and Options ===================== Some systems require unusual options for compilation or linking that the `configure' script does not know about. You can give `configure' initial values for variables by setting them in the environment. Using a Bourne-compatible shell, you can do that on the command line like this: CC=c89 CFLAGS=-O2 LIBS=-lposix ./configure Or on systems that have the `env' program, you can do it like this: env CPPFLAGS=-I/usr/local/include LDFLAGS=-s ./configure Compiling For Multiple Architectures ==================================== You can compile the package for more than one kind of computer at the same time, by placing the object files for each architecture in their own directory. To do this, you must use a version of `make' that supports the `VPATH' variable, such as GNU `make'. `cd' to the directory where you want the object files and executables to go and run the `configure' script. `configure' automatically checks for the source code in the directory that `configure' is in and in `..'. If you have to use a `make' that does not supports the `VPATH' variable, you have to compile the package for one architecture at a time in the source code directory. After you have installed the package for one architecture, use `make distclean' before reconfiguring for another architecture. Installation Names ================== By default, `make install' will install the package's files in `/usr/local/bin', `/usr/local/man', etc. You can specify an installation prefix other than `/usr/local' by giving `configure' the option `--prefix=PATH'. You can specify separate installation prefixes for architecture-specific files and architecture-independent files. If you give `configure' the option `--exec-prefix=PATH', the package will use PATH as the prefix for installing programs and libraries. Documentation and other data files will still use the regular prefix. In addition, if you use an unusual directory layout you can give options like `--bindir=PATH' to specify different values for particular kinds of files. Run `configure --help' for a list of the directories you can set and what kinds of files go in them. If the package supports it, you can cause programs to be installed with an extra prefix or suffix on their names by giving `configure' the option `--program-prefix=PREFIX' or `--program-suffix=SUFFIX'. Optional Features ================= Some packages pay attention to `--enable-FEATURE' options to `configure', where FEATURE indicates an optional part of the package. They may also pay attention to `--with-PACKAGE' options, where PACKAGE is something like `gnu-as' or `x' (for the X Window System). The `README' should mention any `--enable-' and `--with-' options that the package recognizes. For packages that use the X Window System, `configure' can usually find the X include and library files automatically, but if it doesn't, you can use the `configure' options `--x-includes=DIR' and `--x-libraries=DIR' to specify their locations. Specifying the System Type ========================== There may be some features `configure' can not figure out automatically, but needs to determine by the type of host the package will run on. Usually `configure' can figure that out, but if it prints a message saying it can not guess the host type, give it the `--host=TYPE' option. TYPE can either be a short name for the system type, such as `sun4', or a canonical name with three fields: CPU-COMPANY-SYSTEM See the file `config.sub' for the possible values of each field. If `config.sub' isn't included in this package, then this package doesn't need to know the host type. If you are building compiler tools for cross-compiling, you can also use the `--target=TYPE' option to select the type of system they will produce code for and the `--build=TYPE' option to select the type of system on which you are compiling the package. Sharing Defaults ================ If you want to set default values for `configure' scripts to share, you can create a site shell script called `config.site' that gives default values for variables like `CC', `cache_file', and `prefix'. `configure' looks for `PREFIX/share/config.site' if it exists, then `PREFIX/etc/config.site' if it exists. Or, you can set the `CONFIG_SITE' environment variable to the location of the site script. A warning: not all `configure' scripts look for a site script. Operation Controls ================== `configure' recognizes the following options to control how it operates. `--cache-file=FILE' Use and save the results of the tests in FILE instead of `./config.cache'. Set FILE to `/dev/null' to disable caching, for debugging `configure'. `--help' Print a summary of the options to `configure', and exit. `--quiet' `--silent' `-q' Do not print messages saying which checks are being made. To suppress all normal output, redirect it to `/dev/null' (any error messages will still be shown). `--srcdir=DIR' Look for the package's source code in directory DIR. Usually `configure' can determine that directory automatically. `--version' Print the version of Autoconf used to generate the `configure' script, and exit. `configure' also accepts some other, not widely useful, options. spandsp-0.0.6/spandsp.spec0000664000175000017500000000445511516506075015141 0ustar steveusteveuSummary: A DSP library for telephony. Name: spandsp Version: 0.0.6 Release: 1 License: LGPL Group: System Environment/Libraries URL: http://www.soft-switch.org/spandsp BuildRoot: %{_tmppath}/%{name}-%{version}-root Source: http://www.soft-switch.org/downloads/spandsp/spandsp-0.0.6.tar.gz BuildRoot: %{_tmppath}/%{name}-%{version}-%{release}-root-%(%{__id_u} -n) BuildRequires: libtiff-devel BuildRequires: audiofile-devel BuildRequires: doxygen # for xsltproc: BuildRequires: libxslt %description SpanDSP is a library of DSP functions for telephony, in the 8000 sample per second world of E1s, T1s, and higher order PCM channels. It contains low level functions, such as basic filters. It also contains higher level functions, such as cadenced supervisory tone detection, and a complete software FAX machine. The software has been designed to avoid intellectual property issues, using mature techniques where all relevant patents have expired. See the file DueDiligence for important information about these intellectual property issues. %package devel Summary: SpanDSP development files Group: Development/Libraries Requires: spandsp = %{version} Requires: libtiff-devel PreReq: /sbin/install-info %description devel SpanDSP development files. %prep %setup -q %build %configure --enable-doc --disable-static --disable-rpath make %install rm -rf %{buildroot} make install DESTDIR=%{buildroot} rm %{buildroot}%{_libdir}/libspandsp.la %clean rm -rf %{buildroot} %files %defattr(-,root,root,-) %doc DueDiligence ChangeLog AUTHORS COPYING NEWS README %{_libdir}/libspandsp.so.* %files devel %defattr(-,root,root,-) %doc doc/api %{_includedir}/spandsp.h %{_includedir}/spandsp %{_libdir}/libspandsp.so %{_libdir}/pkgconfig/spandsp.pc %post -p /sbin/ldconfig %postun -p /sbin/ldconfig %changelog * Wed Sep 24 2008 Tzafrir Cohen 0.0.5-1 - Preparing for 0.0.5pre4 release - License: LGPL * Mon Jun 23 2008 Steve Underwood 0.0.5-1 - Cleared out the dependency on libxml2 * Sun Dec 31 2006 Steve Underwood 0.0.3-1 - Preparing for 0.0.3 release * Sat Oct 16 2004 Steve Underwood 0.0.2-1 - Preparing for 0.0.2 release * Thu Apr 15 2004 Steve Underwood 0.0.1-1 - Initial version spandsp-0.0.6/tests/0000775000175000017500000000000011516506113013740 5ustar steveusteveuspandsp-0.0.6/tests/bell_mf_rx_tests.c0000664000175000017500000004340711422612266017452 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * bell_mf_tests.c - Test the Bell MF detector against the spec., whatever the * spec. may be :) * * Written by Steve Underwood * * Copyright (C) 2003 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License version 2, as * published by the Free Software Foundation. * * 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., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \file */ /*! \page bell_mf_tests_page Bell MF tone generation and detection tests \section bell_mf_tests_page_sec_1 What does it do? These tests are fashioned after those on the CM7291 test tape from Mitel. Those tests are for DTMF, rather than Bell MF, but make a fair starting point for a set of meaningful tests of Bell MF. These tests include conversion to and from A-law. It is assumed the distortion this produces is comparable to u-law, so it should be a fair test of performance in a real PSTN channel. */ #if defined(HAVE_CONFIG_H) #include "config.h" #endif #include #include #include #include #include #include //#if defined(WITH_SPANDSP_INTERNALS) #define SPANDSP_EXPOSE_INTERNAL_STRUCTURES //#endif #include "spandsp.h" /* Basic Bell MF specs: * * Signal generation: * Tone on time = KP: 100+-7ms. All other signals: 68+-7ms * Tone off time (between digits) = 68+-7ms * Frequency tolerance +- 1.5% * Signal level -7+-1dBm per frequency * * Signal reception: * Frequency tolerance +- 1.5% +-10Hz * Signal level -14dBm to 0dBm * Perform a "two and only two tones present" test. * Twist <= 6dB accepted * Receiver sensitive to signals above -22dBm per frequency * Test for a minimum of 55ms if KP, or 30ms of other signals. * Signals to be recognised if the two tones arrive within 8ms of each other. * Invalid signals result in the return of the re-order tone. */ #define MF_DURATION (68*8) #define MF_PAUSE (68*8) #define MF_CYCLE (MF_DURATION + MF_PAUSE) /*! MF tone descriptor for tests. */ typedef struct { float f1; /* First freq */ float f2; /* Second freq */ int8_t level1; /* Level of the first freq (dB) */ int8_t level2; /* Level of the second freq (dB) */ uint8_t on_time; /* Tone on time (ms) */ uint8_t off_time; /* Minimum post tone silence (ms) */ } mf_digit_tones_t; static const mf_digit_tones_t bell_mf_tones[] = { { 700.0, 900.0, -7, -7, 68, 68}, { 700.0, 1100.0, -7, -7, 68, 68}, { 900.0, 1100.0, -7, -7, 68, 68}, { 700.0, 1300.0, -7, -7, 68, 68}, { 900.0, 1300.0, -7, -7, 68, 68}, {1100.0, 1300.0, -7, -7, 68, 68}, { 700.0, 1500.0, -7, -7, 68, 68}, { 900.0, 1500.0, -7, -7, 68, 68}, {1100.0, 1500.0, -7, -7, 68, 68}, {1300.0, 1500.0, -7, -7, 68, 68}, { 700.0, 1700.0, -7, -7, 68, 68}, /* ST''' - use 'C' */ { 900.0, 1700.0, -7, -7, 68, 68}, /* ST' - use 'A' */ {1100.0, 1700.0, -7, -7, 100, 68}, /* KP - use '*' */ {1300.0, 1700.0, -7, -7, 68, 68}, /* ST'' - use 'B' */ {1500.0, 1700.0, -7, -7, 68, 68}, /* ST - use '#' */ {0.0, 0.0, 0, 0, 0, 0} }; static tone_gen_descriptor_t my_mf_digit_tones[16]; static char bell_mf_tone_codes[] = "1234567890CA*B#"; int callback_ok; int callback_roll; static void my_mf_gen_init(float low_fudge, int low_level, float high_fudge, int high_level, int duration, int gap) { int i; /* The fiddle factor on the tone duration is to make KP consistently 50% longer than the other digits, as the digit durations are varied for the tests. This is an approximation, as the real scaling should be 100/68 */ for (i = 0; i < 15; i++) { tone_gen_descriptor_init(&my_mf_digit_tones[i], bell_mf_tones[i].f1*(1.0 + low_fudge), low_level, bell_mf_tones[i].f2*(1.0 + high_fudge), high_level, (i == 12) ? 3*duration/2 : duration, gap, 0, 0, FALSE); } } /*- End of function --------------------------------------------------------*/ static int my_mf_generate(int16_t amp[], const char *digits) { int len; char *cp; tone_gen_state_t tone; len = 0; while (*digits) { if ((cp = strchr(bell_mf_tone_codes, *digits))) { tone_gen_init(&tone, &my_mf_digit_tones[cp - bell_mf_tone_codes]); len += tone_gen(&tone, amp + len, 9999); } digits++; } return len; } /*- End of function --------------------------------------------------------*/ static void codec_munge(int16_t amp[], int len) { int i; uint8_t alaw; for (i = 0; i < len; i++) { alaw = linear_to_alaw (amp[i]); amp[i] = alaw_to_linear (alaw); } } /*- End of function --------------------------------------------------------*/ #define ALL_POSSIBLE_DIGITS "1234567890CA*B#" static void digit_delivery(void *data, const char *digits, int len) { int i; int seg; const char *s = ALL_POSSIBLE_DIGITS; const char *t; if (data != (void *) 0x12345678) { callback_ok = FALSE; return; } callback_ok = TRUE; t = s + callback_roll; seg = 15 - callback_roll; for (i = 0; i < len; i += seg, seg = 15) { if (i + seg > len) seg = len - i; if (memcmp(digits + i, t, seg)) { callback_ok = FALSE; printf("Fail at %d %d\n", i, seg); break; } t = s; callback_roll = (callback_roll + seg)%15; } } /*- End of function --------------------------------------------------------*/ static int16_t amp[1000000]; int main(int argc, char *argv[]) { int duration; int i; int j; int len; int sample; const char *s; char digit[2]; char buf[MAX_BELL_MF_DIGITS + 1]; int actual; int nplus; int nminus; float rrb; float rcfo; time_t now; bell_mf_rx_state_t *mf_state; awgn_state_t noise_source; time(&now); mf_state = bell_mf_rx_init(NULL, NULL, NULL); /* Test 1: Mitel's test 1 isn't really a test. Its a calibration step, which has no meaning here. */ printf ("Test 1: Calibration\n"); printf (" Passed\n"); /* Test 2: Decode check This is a sanity check, that all digits are reliably detected under ideal conditions. Each possible digit is repeated 10 times, with 68ms bursts. The level of each tone is about 6dB down from clip */ printf ("Test 2: Decode check\n"); my_mf_gen_init(0.0, -3, 0.0, -3, 68, 68); s = ALL_POSSIBLE_DIGITS; digit[1] = '\0'; while (*s) { digit[0] = *s++; for (i = 0; i < 10; i++) { len = my_mf_generate(amp, digit); codec_munge(amp, len); bell_mf_rx(mf_state, amp, len); actual = bell_mf_rx_get(mf_state, buf, 128); if (actual != 1 || buf[0] != digit[0]) { printf (" Sent '%s'\n", digit); printf (" Received '%s' [%d]\n", buf, actual); printf (" Failed\n"); exit (2); } } } printf (" Passed\n"); /* Test 3: Recognition bandwidth and channel centre frequency check. Use all digits. Each digit types requires four tests to complete the check. Each section contains 40 pulses of 68ms duration, with an amplitude of -20dB from clip per frequency. Four sections covering the tests for one tone (1 digit) are: a. H frequency at 0% deviation from center, L frequency at +0.1%. L frequency is then increments in +01.% steps up to +4%. The number of tone bursts is noted and designated N+. b. H frequency at 0% deviation, L frequency at -0.1%. L frequency is then incremental in -0.1% steps, up to -4%. The number of tone bursts is noted and designated N-. c. The test in (a) is repeated with the L frequency at 0% and the H frequency varied up to +4%. d. The test in (b) is repeated with the L frequency and 0% and the H frequency varied to -4%. Receiver Recognition Bandwidth (RRB) is calculated as follows: RRB% = (N+ + N-)/10 Receiver Center Frequency Offset (RCFO) is calculated as follows: RCFO% = X + (N+ - N-)/20 Note that this test doesn't test what it says it is testing at all, and the results are quite inaccurate, if not a downright lie! However, it follows the Mitel procedure, so how can it be bad? :) The spec calls for +-1.5% +-10Hz of bandwidth. */ printf ("Test 3: Recognition bandwidth and channel centre frequency check\n"); s = ALL_POSSIBLE_DIGITS; digit[1] = '\0'; j = 0; while (*s) { digit[0] = *s++; for (nplus = 0, i = 1; i <= 60; i++) { my_mf_gen_init((float) i/1000.0, -17, 0.0, -17, 68, 68); len = my_mf_generate(amp, digit); codec_munge(amp, len); bell_mf_rx(mf_state, amp, len); nplus += bell_mf_rx_get(mf_state, buf, 128); } for (nminus = 0, i = -1; i >= -60; i--) { my_mf_gen_init((float) i/1000.0, -17, 0.0, -17, 68, 68); len = my_mf_generate(amp, digit); codec_munge(amp, len); bell_mf_rx(mf_state, amp, len); nminus += bell_mf_rx_get(mf_state, buf, 128); } rrb = (float) (nplus + nminus)/10.0; rcfo = (float) (nplus - nminus)/10.0; printf (" %c (low) rrb = %5.2f%%, rcfo = %5.2f%%, max -ve = %5.2f, max +ve = %5.2f\n", digit[0], rrb, rcfo, (float) nminus/10.0, (float) nplus/10.0); if (rrb < 3.0 + rcfo + (2.0*100.0*10.0/bell_mf_tones[j].f1) || rrb >= 15.0 + rcfo) { printf (" Failed\n"); exit (2); } for (nplus = 0, i = 1; i <= 60; i++) { my_mf_gen_init(0.0, -17, (float) i/1000.0, -17, 68, 68); len = my_mf_generate(amp, digit); codec_munge(amp, len); bell_mf_rx(mf_state, amp, len); nplus += bell_mf_rx_get(mf_state, buf, 128); } for (nminus = 0, i = -1; i >= -60; i--) { my_mf_gen_init(0.0, -17, (float) i/1000.0, -17, 68, 68); len = my_mf_generate(amp, digit); codec_munge(amp, len); bell_mf_rx(mf_state, amp, len); nminus += bell_mf_rx_get(mf_state, buf, 128); } rrb = (float) (nplus + nminus)/10.0; rcfo = (float) (nplus - nminus)/10.0; printf (" %c (high) rrb = %5.2f%%, rcfo = %5.2f%%, max -ve = %5.2f, max +ve = %5.2f\n", digit[0], rrb, rcfo, (float) nminus/10.0, (float) nplus/10.0); if (rrb < 3.0 + rcfo + (2.0*100.0*10.0/bell_mf_tones[j].f2) || rrb >= 15.0 + rcfo) { printf (" Failed\n"); exit (2); } j++; } printf (" Passed\n"); /* Test 4: Acceptable amplitude ratio (twist). Twist all digits in both directions, and check the maximum twist we can accept. The way this is done is styled after the Mitel DTMF test, and has good and bad points. */ printf ("Test 4: Acceptable amplitude ratio (twist)\n"); s = ALL_POSSIBLE_DIGITS; digit[1] = '\0'; while (*s) { digit[0] = *s++; for (nplus = 0, i = -50; i >= -250; i--) { my_mf_gen_init(0.0, -5, 0.0, i/10, 68, 68); len = my_mf_generate(amp, digit); codec_munge(amp, len); bell_mf_rx(mf_state, amp, len); nplus += bell_mf_rx_get(mf_state, buf, 128); } printf(" %c normal twist = %.2fdB\n", digit[0], (float) nplus/10.0); if (nplus < 60) { printf(" Failed\n"); exit(2); } for (nminus = 0, i = -50; i >= -250; i--) { my_mf_gen_init(0.0, i/10, 0.0, -5, 68, 68); len = my_mf_generate(amp, digit); codec_munge(amp, len); bell_mf_rx(mf_state, amp, len); nminus += bell_mf_rx_get(mf_state, buf, 128); } printf(" %c reverse twist = %.2fdB\n", digit[0], (float) nminus/10.0); if (nminus < 60) { printf(" Failed\n"); exit(2); } } printf(" Passed\n"); /* Test 5: Dynamic range This test sends all possible digits, with gradually increasing amplitude. We determine the span over which we achieve reliable detection. The spec says we should detect between -14dBm and 0dBm, but the tones clip above -3dBm, so this cannot really work. */ printf("Test 5: Dynamic range\n"); for (nplus = nminus = -1000, i = -50; i <= 3; i++) { my_mf_gen_init(0.0, i, 0.0, i, 68, 68); for (j = 0; j < 100; j++) { len = my_mf_generate(amp, ALL_POSSIBLE_DIGITS); codec_munge(amp, len); bell_mf_rx(mf_state, amp, len); if (bell_mf_rx_get(mf_state, buf, 128) != 15) break; if (strcmp(buf, ALL_POSSIBLE_DIGITS) != 0) break; } if (j == 100) { if (nplus == -1000) nplus = i; } else { if (nplus != -1000 && nminus == -1000) nminus = i; } } printf(" Dynamic range = %ddB to %ddB\n", nplus, nminus - 1); if (nplus > -22 || nminus <= -3) { printf(" Failed\n"); exit(2); } printf(" Passed\n"); /* Test 6: Guard time This test sends all possible digits, with a gradually reducing duration. The spec defines a narrow range of tone duration times we can expect, so as long as we detect reliably at the specified minimum we should be OK. However, the spec also says we should detect on a minimum of 55ms of KP, or 30ms of other digits. */ printf("Test 6: Guard time\n"); for (i = 30; i < 62; i++) { my_mf_gen_init(0.0, -5, 0.0, -3, i, 68); for (j = 0; j < 500; j++) { len = my_mf_generate(amp, ALL_POSSIBLE_DIGITS); codec_munge(amp, len); bell_mf_rx(mf_state, amp, len); if (bell_mf_rx_get(mf_state, buf, 128) != 15) break; if (strcmp(buf, ALL_POSSIBLE_DIGITS) != 0) break; } if (j == 500) break; } printf(" Guard time = %dms\n", i); if (i > 61) { printf(" Failed\n"); exit(2); } printf(" Passed\n"); /* Test 7: Acceptable signal to noise ratio We send all possible digits at -6dBm from clip, mixed with AWGN. We gradually reduce the noise until we get clean detection. */ printf("Test 7: Acceptable signal to noise ratio\n"); my_mf_gen_init(0.0, -3, 0.0, -3, 68, 68); for (i = -10; i > -50; i--) { awgn_init_dbm0(&noise_source, 1234567, (float) i); for (j = 0; j < 500; j++) { len = my_mf_generate(amp, ALL_POSSIBLE_DIGITS); for (sample = 0; sample < len; sample++) amp[sample] = saturate(amp[sample] + awgn(&noise_source)); codec_munge(amp, len); bell_mf_rx(mf_state, amp, len); if (bell_mf_rx_get(mf_state, buf, 128) != 15) break; if (strcmp(buf, ALL_POSSIBLE_DIGITS) != 0) break; } if (j == 500) break; } printf(" Acceptable S/N ratio is %ddB\n", -3 - i); if (-3 - i > 26) { printf(" Failed\n"); exit(2); } printf(" Passed\n"); /* The remainder of the Mitel tape is the talk-off test. This is meaningless for Bell MF. However the decoder's tolerance of out of band noise is significant. */ /* TODO: add a OOB tolerance test. */ /* Test the callback mode for delivering detected digits */ printf("Test: Callback digit delivery mode.\n"); callback_ok = FALSE; callback_roll = 0; mf_state = bell_mf_rx_init(NULL, digit_delivery, (void *) 0x12345678); my_mf_gen_init(0.0, -10, 0.0, -10, 68, 68); for (i = 1; i < 10; i++) { len = 0; for (j = 0; j < i; j++) len += my_mf_generate(amp + len, ALL_POSSIBLE_DIGITS); bell_mf_rx(mf_state, amp, len); if (!callback_ok) break; } if (!callback_ok) { printf(" Failed\n"); exit (2); } printf(" Passed\n"); duration = time (NULL) - now; printf ("Tests passed in %ds\n", duration); return 0; } /*- End of function --------------------------------------------------------*/ /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/tests/swept_tone_tests.c0000664000175000017500000000532611422612267017527 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * swept_tone_tests.c * * Written by Steve Underwood * * Copyright (C) 2009 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License version 2, as * published by the Free Software Foundation. * * 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., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \file */ #if defined(HAVE_CONFIG_H) #include "config.h" #endif #include #include #include #include #include #include "spandsp.h" #include "spandsp-sim.h" #define OUTPUT_FILE_NAME "swept_tone.wav" #define BLOCK_LEN 160 int main(int argc, char *argv[]) { int i; int j; int outframes; int len; SNDFILE *outhandle; power_meter_t meter; swept_tone_state_t *s; int16_t buf[BLOCK_LEN]; power_meter_init(&meter, 10); if ((outhandle = sf_open_telephony_write(OUTPUT_FILE_NAME, 1)) == NULL) { fprintf(stderr, " Cannot create audio file '%s'\n", OUTPUT_FILE_NAME); exit(2); } printf("Test with swept tone.\n"); s = swept_tone_init(NULL, 200.0f, 3900.0f, -10.0f, 60*SAMPLE_RATE, 1); for (j = 0; j < 60*SAMPLE_RATE; j += BLOCK_LEN) { len = swept_tone(s, buf, BLOCK_LEN); for (i = 0; i < len; i++) power_meter_update(&meter, buf[i]); outframes = sf_writef_short(outhandle, buf, len); if (outframes != len) { fprintf(stderr, " Error writing audio file\n"); exit(2); } #if 0 printf("Current freq %.1fHz, Level is %fdBOv/%fdBm0\n", swept_tone_current_frequency(s), power_meter_current_dbov(&meter), power_meter_current_dbm0(&meter)); #else printf("%.1f %f\n", swept_tone_current_frequency(s), power_meter_current_dbm0(&meter)); #endif } if (sf_close(outhandle) != 0) { fprintf(stderr, " Cannot close audio file '%s'\n", OUTPUT_FILE_NAME); exit(2); } printf("Tests passed.\n"); return 0; } /*- End of function --------------------------------------------------------*/ /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/tests/schedule_tests.c0000664000175000017500000000626711422612267017141 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * schedule_tests.c * * Written by Steve Underwood * * Copyright (C) 2004 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License version 2, as * published by the Free Software Foundation. * * 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., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \page schedule_tests_page Event scheduler tests \section schedule_tests_page_sec_1 What does it do? ???. \section schedule_tests_page_sec_2 How does it work? ???. */ #if defined(HAVE_CONFIG_H) #include "config.h" #endif #include #include #include #define SPANDSP_EXPOSE_INTERNAL_STRUCTURES #include "spandsp.h" uint64_t when1; uint64_t when2; static void callback1(span_sched_state_t *s, void *user_data) { int id; uint64_t when; when = span_schedule_time(s); printf("1: Callback at %f %" PRId64 "\n", (float) when/1000000.0, when - when1); if ((when - when1)) { printf("Callback occured at the wrong time.\n"); exit(2); } id = span_schedule_event(s, 500000, callback1, NULL); when1 = when + 500000; when = span_schedule_next(s); printf("1: Event %d, earliest is %" PRId64 "\n", id, when); } static void callback2(span_sched_state_t *s, void *user_data) { int id; uint64_t when; when = span_schedule_time(s); printf("2: Callback at %f %" PRId64 "\n", (float) when/1000000.0, when - when2); id = span_schedule_event(s, 550000, callback2, NULL); if ((when - when2) != 10000) { printf("Callback occured at the wrong time.\n"); exit(2); } when2 = when + 550000; when = span_schedule_next(s); printf("2: Event %d, earliest is %" PRId64 "\n", id, when); } int main(int argc, char *argv[]) { int i; int id1; int id2; span_sched_state_t sched; uint64_t when; span_schedule_init(&sched); id1 = span_schedule_event(&sched, 500000, callback1, NULL); id2 = span_schedule_event(&sched, 550000, callback2, NULL); when1 = span_schedule_time(&sched) + 500000; when2 = span_schedule_time(&sched) + 550000; //span_schedule_del(&sched, id); for (i = 0; i < 100000000; i += 20000) { span_schedule_update(&sched, 20000); } when = span_schedule_time(&sched); if ((when1 - when) < 0 || (when1 - when) > 500000 || (when2 - when) < 0 || (when2 - when) > 550000) { printf("Callback failed to occur.\n"); exit(2); } span_schedule_release(&sched); printf("Tests passed.\n"); return 0; } /*- End of function --------------------------------------------------------*/ /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/tests/lpc10_tests.c0000664000175000017500000001743111422612266016256 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * lpc10_tests.c - Test the LPC10 low bit rate speech codec. * * Written by Steve Underwood * * Copyright (C) 2006 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License version 2, as * published by the Free Software Foundation. * * 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., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \file */ /*! \page lpc10_tests_page LPC10 codec tests \section lpc10_tests_page_sec_1 What does it do? \section lpc10_tests_page_sec_2 How is it used? To perform a general audio quality test, lpc10 should be run. The file ../test-data/local/short_nb_voice.wav will be compressed to LPC10 data, decompressed, and the resulting audio stored in post_lpc10.wav. */ #if defined(HAVE_CONFIG_H) #include "config.h" #endif #include #include #include #include #include #include #include #include //#if defined(WITH_SPANDSP_INTERNALS) #define SPANDSP_EXPOSE_INTERNAL_STRUCTURES //#endif #include "spandsp.h" #include "spandsp-sim.h" #define BLOCK_LEN 180 #define BLOCKS_PER_READ 5 #define IN_FILE_NAME "../test-data/local/dam9.wav" #define REF_FILE_NAME "../test-data/local/dam9_lpc55.wav" #define COMPRESS_FILE_NAME "lpc10_out.lpc10" #define DECOMPRESS_FILE_NAME "lpc10_in.lpc10" #define OUT_FILE_NAME "post_lpc10.wav" int main(int argc, char *argv[]) { SNDFILE *inhandle; SNDFILE *refhandle; SNDFILE *outhandle; int frames; int outframes; double pre_energy; double post_energy; double ref_energy; double diff_energy; int16_t pre_amp[BLOCKS_PER_READ*BLOCK_LEN]; int16_t post_amp[BLOCKS_PER_READ*BLOCK_LEN]; int16_t ref_amp[BLOCKS_PER_READ*BLOCK_LEN]; int16_t log_amp[BLOCKS_PER_READ*BLOCK_LEN*3]; uint8_t lpc10_data[BLOCKS_PER_READ*7]; double xx; lpc10_encode_state_t *lpc10_enc_state; lpc10_decode_state_t *lpc10_dec_state; int i; int block_no; int log_error; int compress; int decompress; const char *in_file_name; int compress_file; int decompress_file; int len; int opt; int enc_len; int dec_len; compress = FALSE; decompress = FALSE; log_error = TRUE; in_file_name = IN_FILE_NAME; while ((opt = getopt(argc, argv, "cdi:l")) != -1) { switch (opt) { case 'c': compress = TRUE; break; case 'd': decompress = TRUE; break; case 'i': in_file_name = optarg; break; case 'l': log_error = FALSE; break; default: //usage(); exit(2); } } compress_file = -1; decompress_file = -1; inhandle = NULL; refhandle = NULL; outhandle = NULL; if (!decompress) { if ((inhandle = sf_open_telephony_read(in_file_name, 1)) == NULL) { fprintf(stderr, " Cannot open audio file '%s'\n", in_file_name); exit(2); } if ((refhandle = sf_open_telephony_read(REF_FILE_NAME, 1)) == NULL) { fprintf(stderr, " Cannot open audio file '%s'\n", REF_FILE_NAME); exit(2); } } else { if ((decompress_file = open(DECOMPRESS_FILE_NAME, O_RDONLY)) < 0) { fprintf(stderr, " Cannot open decompressed data file '%s'\n", DECOMPRESS_FILE_NAME); exit(2); } } if ((outhandle = sf_open_telephony_write(OUT_FILE_NAME, 1)) == NULL) { fprintf(stderr, " Cannot create audio file '%s'\n", OUT_FILE_NAME); exit(2); } if ((lpc10_enc_state = lpc10_encode_init(NULL, TRUE)) == NULL) { fprintf(stderr, " Cannot create encoder\n"); exit(2); } if ((lpc10_dec_state = lpc10_decode_init(NULL, TRUE)) == NULL) { fprintf(stderr, " Cannot create decoder\n"); exit(2); } if (compress) { if ((compress_file = open(COMPRESS_FILE_NAME, O_WRONLY | O_CREAT | O_TRUNC, 0666)) < 0) { fprintf(stderr, " Cannot create compressed data file '%s'\n", COMPRESS_FILE_NAME); exit(2); } } pre_energy = 0.0; post_energy = 0.0; ref_energy = 0.0; diff_energy = 0.0; if (decompress) { while ((len = read(decompress_file, lpc10_data, BLOCKS_PER_READ*7)) > 0) { lpc10_decode(lpc10_dec_state, post_amp, lpc10_data, len/7); outframes = sf_writef_short(outhandle, post_amp, BLOCK_LEN*len/7); } } else { block_no = 0; while ((frames = sf_readf_short(inhandle, pre_amp, BLOCKS_PER_READ*BLOCK_LEN)) == BLOCKS_PER_READ*BLOCK_LEN && (frames = sf_readf_short(refhandle, ref_amp, BLOCKS_PER_READ*BLOCK_LEN)) == BLOCKS_PER_READ*BLOCK_LEN) { enc_len = lpc10_encode(lpc10_enc_state, lpc10_data, pre_amp, BLOCKS_PER_READ*BLOCK_LEN); if (compress) write(compress_file, lpc10_data, enc_len); dec_len = lpc10_decode(lpc10_dec_state, post_amp, lpc10_data, enc_len); for (i = 0; i < dec_len; i++) { pre_energy += (double) pre_amp[i]*(double) pre_amp[i]; post_energy += (double) post_amp[i]*(double) post_amp[i]; ref_energy += (double) ref_amp[i]*(double) ref_amp[i]; /* The reference file has some odd clipping, so eliminate this from the energy measurement. */ if (ref_amp[i] == 32767 || ref_amp[i] == -32768) xx = 0.0; else xx = post_amp[i] - ref_amp[i]; diff_energy += (double) xx*(double) xx; log_amp[i] = xx; } block_no++; if (log_error) outframes = sf_writef_short(outhandle, log_amp, dec_len); else outframes = sf_writef_short(outhandle, post_amp, dec_len); } if (sf_close(inhandle) != 0) { fprintf(stderr, " Cannot close audio file '%s'\n", in_file_name); exit(2); } if (sf_close(refhandle) != 0) { fprintf(stderr, " Cannot close audio file '%s'\n", REF_FILE_NAME); exit(2); } } if (sf_close(outhandle) != 0) { fprintf(stderr, " Cannot close audio file '%s'\n", OUT_FILE_NAME); exit(2); } if (compress) close(compress_file); if (decompress) close(decompress_file); lpc10_encode_release(lpc10_enc_state); lpc10_decode_release(lpc10_dec_state); if (!decompress) { printf("Output energy is %f%% of input energy.\n", 100.0*post_energy/pre_energy); printf("Difference energy is %f%% of the total.\n", 100.0*diff_energy/ref_energy); if (fabs(1.0 - post_energy/pre_energy) > 0.05 || fabs(diff_energy/post_energy) > 0.03) { printf("Tests failed.\n"); exit(2); } printf("Tests passed.\n"); } return 0; } /*- End of function --------------------------------------------------------*/ /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/tests/modem_monitor.cpp0000664000175000017500000004305611422612267017330 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * modem_monitor.cpp - Display QAM constellations, using the FLTK toolkit. * * Written by Steve Underwood * * Copyright (C) 2004 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License version 2, as * published by the Free Software Foundation. * * 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., 675 Mass Ave, Cambridge, MA 02139, USA. */ #ifdef HAVE_CONFIG_H #include "config.h" #endif #if defined(HAVE_FL_FL_H) && defined(HAVE_FL_FL_CARTESIAN_H) #define __STDC_LIMIT_MACROS #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include "spandsp.h" #define SYMBOL_TRACKER_POINTS 12000 #define CARRIER_TRACKER_POINTS 12000 #define FP_FACTOR 4096 struct qam_monitor_s { Fl_Double_Window *w; Fl_Group *c_const; Fl_Group *c_right; Fl_Group *c_eq; Fl_Group *c_symbol_track; /* Constellation stuff */ Ca_Canvas *canvas_const; Ca_X_Axis *sig_i; Ca_Y_Axis *sig_q; Ca_Point *constel_point[100000]; int constel_window; int next_constel_point; int skip; /* Equalizer stuff */ Ca_Canvas *canvas_eq; Ca_X_Axis *eq_x; Ca_Y_Axis *eq_y; Ca_Line *eq_re; Ca_Line *eq_im; double eq_re_plot[200]; double eq_im_plot[200]; /* Carrier and symbol tracking stuff */ Ca_Canvas *canvas_track; Ca_X_Axis *track_x; Ca_Y_Axis *symbol_track_y; Ca_Y_Axis *carrier_y; Ca_Line *symbol_track; Ca_Line *carrier; float symbol_tracker[SYMBOL_TRACKER_POINTS]; double symbol_track_plot[SYMBOL_TRACKER_POINTS*2]; int symbol_track_points; int symbol_track_ptr; int symbol_track_window; float carrier_tracker[CARRIER_TRACKER_POINTS]; double carrier_plot[CARRIER_TRACKER_POINTS*2]; int carrier_points; int carrier_ptr; int carrier_window; /* Audio meter stuff */ Fl_Audio_Meter *audio_meter; Fl_Output *audio_level; int32_t power_reading; }; #include "modem_monitor.h" int qam_monitor_clear_constel(qam_monitor_t *s) { int i; s->canvas_const->current(s->canvas_const); for (i = 0; i < s->constel_window; i++) { if (s->constel_point[i]) { delete s->constel_point[i]; s->constel_point[i] = NULL; } } s->next_constel_point = 0; Fl::check(); return 0; } /*- End of function --------------------------------------------------------*/ int qam_monitor_update_constel(qam_monitor_t *s, const complexf_t *pt) { int i; s->canvas_const->current(s->canvas_const); if (s->constel_point[s->next_constel_point]) delete s->constel_point[s->next_constel_point]; s->constel_point[s->next_constel_point++] = new Ca_Point(pt->re, pt->im, FL_BLACK); if (s->next_constel_point >= s->constel_window) s->next_constel_point = 0; if (++s->skip >= 100) { s->skip = 0; Fl::check(); } return 0; } /*- End of function --------------------------------------------------------*/ int qam_monitor_update_equalizer(qam_monitor_t *s, const complexf_t *coeffs, int len) { int i; float min; float max; /* Protect against screwy values */ for (i = 0; i < len; i++) { if (isnan(coeffs[i].re) || isinf(coeffs[i].re)) break; if (isnan(coeffs[i].im) || isinf(coeffs[i].im)) break; if (coeffs[i].re < -20.0f || coeffs[i].re > 20.0f) break; if (coeffs[i].im < -20.0f || coeffs[i].im > 20.0f) break; } if (i != len) return -1; if (s->eq_re) delete s->eq_re; if (s->eq_im) delete s->eq_im; s->canvas_eq->current(s->canvas_eq); i = 0; min = coeffs[i].re; if (min > coeffs[i].im) min = coeffs[i].im; max = coeffs[i].re; if (max < coeffs[i].im) max = coeffs[i].im; for (i = 0; i < len; i++) { s->eq_re_plot[2*i] = (i - len/2)/2.0; s->eq_re_plot[2*i + 1] = coeffs[i].re; if (min > coeffs[i].re) min = coeffs[i].re; if (max < coeffs[i].re) max = coeffs[i].re; s->eq_im_plot[2*i] = (i - len/2)/2.0; s->eq_im_plot[2*i + 1] = coeffs[i].im; if (min > coeffs[i].im) min = coeffs[i].im; if (max < coeffs[i].im) max = coeffs[i].im; } s->eq_x->minimum(-len/4.0); s->eq_x->maximum(len/4.0); s->eq_y->maximum((max == min) ? max + 0.2 : max); s->eq_y->minimum(min); s->eq_re = new Ca_Line(len, s->eq_re_plot, 0, 0, FL_BLUE, CA_NO_POINT); s->eq_im = new Ca_Line(len, s->eq_im_plot, 0, 0, FL_RED, CA_NO_POINT); Fl::check(); return 0; } /*- End of function --------------------------------------------------------*/ int qam_monitor_update_int_equalizer(qam_monitor_t *s, const complexi16_t *coeffs, int len) { int i; float min; float max; if (s->eq_re) delete s->eq_re; if (s->eq_im) delete s->eq_im; s->canvas_eq->current(s->canvas_eq); i = 0; min = coeffs[i].re; if (min > coeffs[i].im) min = coeffs[i].im; max = coeffs[i].re; if (max < coeffs[i].im) max = coeffs[i].im; for (i = 0; i < len; i++) { s->eq_re_plot[2*i] = (i - len/2)/2.0f; s->eq_re_plot[2*i + 1] = coeffs[i].re/(float) FP_FACTOR; if (min > coeffs[i].re) min = coeffs[i].re; if (max < coeffs[i].re) max = coeffs[i].re; s->eq_im_plot[2*i] = (i - len/2)/2.0f; s->eq_im_plot[2*i + 1] = coeffs[i].im/(float) FP_FACTOR; if (min > coeffs[i].im) min = coeffs[i].im; if (max < coeffs[i].im) max = coeffs[i].im; } min /= (float) FP_FACTOR; max /= (float) FP_FACTOR; s->eq_x->minimum(-len/4.0); s->eq_x->maximum(len/4.0); s->eq_y->maximum((max == min) ? max + 0.2 : max); s->eq_y->minimum(min); s->eq_re = new Ca_Line(len, s->eq_re_plot, 0, 0, FL_BLUE, CA_NO_POINT); s->eq_im = new Ca_Line(len, s->eq_im_plot, 0, 0, FL_RED, CA_NO_POINT); Fl::check(); return 0; } /*- End of function --------------------------------------------------------*/ int qam_monitor_update_symbol_tracking(qam_monitor_t *s, float total_correction) { int i; int j; float min; float max; s->symbol_tracker[s->symbol_track_ptr++] = total_correction; if (s->symbol_track_points < SYMBOL_TRACKER_POINTS) s->symbol_track_points++; if (s->symbol_track_ptr >= SYMBOL_TRACKER_POINTS) s->symbol_track_ptr = 0; s->canvas_track->current(s->canvas_track); if (s->symbol_track) delete s->symbol_track; s->track_x->current(); s->symbol_track_y->current(); min = max = s->symbol_tracker[0]; for (i = s->symbol_track_ptr, j = 0; i < s->symbol_track_points; i++, j++) { s->symbol_track_plot[2*j] = j; s->symbol_track_plot[2*j + 1] = s->symbol_tracker[i]; if (min > s->symbol_tracker[i]) min = s->symbol_tracker[i]; if (max < s->symbol_tracker[i]) max = s->symbol_tracker[i]; } for (i = 0; i < s->symbol_track_ptr; i++, j++) { s->symbol_track_plot[2*j] = j; s->symbol_track_plot[2*j + 1] = s->symbol_tracker[i]; if (min > s->symbol_tracker[i]) min = s->symbol_tracker[i]; if (max < s->symbol_tracker[i]) max = s->symbol_tracker[i]; } s->symbol_track_y->maximum((fabs(max - min) < 0.05) ? max + 0.05 : max); s->symbol_track_y->minimum(min); s->symbol_track = new Ca_Line(s->symbol_track_points, s->symbol_track_plot, 0, 0, FL_RED, CA_NO_POINT); //Fl::check(); return 0; } /*- End of function --------------------------------------------------------*/ int qam_monitor_update_audio_level(qam_monitor_t *s, const int16_t amp[], int len) { int i; char buf[11]; double val; for (i = 0; i < len; i++) { s->audio_meter->sample(amp[i]/32768.0); s->power_reading += ((amp[i]*amp[i] - s->power_reading) >> 10); } if (s->power_reading <= 0) val = -90.0; else val = log10((double) s->power_reading/(32767.0f*32767.0f))*10.0f + 3.14 + 3.02; snprintf(buf, sizeof(buf), "%5.1fdBm0", val); s->audio_level->value(buf); return 0; } /*- End of function --------------------------------------------------------*/ int qam_monitor_update_carrier_tracking(qam_monitor_t *s, float carrier_freq) { int i; int j; float min; float max; s->carrier_tracker[s->carrier_ptr++] = carrier_freq; if (s->carrier_points < CARRIER_TRACKER_POINTS) s->carrier_points++; if (s->carrier_ptr >= CARRIER_TRACKER_POINTS) s->carrier_ptr = 0; s->canvas_track->current(s->canvas_track); if (s->carrier) delete s->carrier; s->track_x->current(); s->carrier_y->current(); min = max = s->carrier_tracker[0]; for (i = s->carrier_ptr, j = 0; i < s->carrier_points; i++, j++) { s->carrier_plot[2*j] = j; s->carrier_plot[2*j + 1] = s->carrier_tracker[i]; if (min > s->carrier_tracker[i]) min = s->carrier_tracker[i]; if (max < s->carrier_tracker[i]) max = s->carrier_tracker[i]; } for (i = 0; i < s->carrier_ptr; i++, j++) { s->carrier_plot[2*j] = j; s->carrier_plot[2*j + 1] = s->carrier_tracker[i]; if (min > s->carrier_tracker[i]) min = s->carrier_tracker[i]; if (max < s->carrier_tracker[i]) max = s->carrier_tracker[i]; } s->carrier_y->maximum((fabs(max - min) < 0.05) ? max + 0.05 : max); s->carrier_y->minimum(min); s->carrier = new Ca_Line(s->carrier_points, s->carrier_plot, 0, 0, FL_BLUE, CA_NO_POINT); //Fl::check(); return 0; } /*- End of function --------------------------------------------------------*/ qam_monitor_t *qam_monitor_init(float constel_width, const char *tag) { char buf[132 + 1]; float x; float y; qam_monitor_t *s; if ((s = (qam_monitor_t *) malloc(sizeof(*s))) == NULL) return NULL; s->w = new Fl_Double_Window(905, 400, (tag) ? tag : "QAM monitor"); s->c_const = new Fl_Group(0, 0, 380, 400); s->c_const->box(FL_DOWN_BOX); s->c_const->align(FL_ALIGN_TOP | FL_ALIGN_INSIDE); s->canvas_const = new Ca_Canvas(60, 30, 300, 300, "Constellation"); s->canvas_const->box(FL_PLASTIC_DOWN_BOX); s->canvas_const->color(7); s->canvas_const->align(FL_ALIGN_TOP); s->canvas_const->border(15); s->sig_i = new Ca_X_Axis(65, 330, 290, 30, "I"); s->sig_i->align(FL_ALIGN_BOTTOM); s->sig_i->minimum(-constel_width); s->sig_i->maximum(constel_width); s->sig_i->label_format("%g"); s->sig_i->minor_grid_color(fl_gray_ramp(20)); s->sig_i->major_grid_color(fl_gray_ramp(15)); s->sig_i->label_grid_color(fl_gray_ramp(10)); s->sig_i->grid_visible(CA_LABEL_GRID | CA_ALWAYS_VISIBLE); s->sig_i->minor_grid_style(FL_DOT); s->sig_i->major_step(5); s->sig_i->label_step(1); s->sig_i->axis_color(FL_BLACK); s->sig_i->axis_align(CA_BOTTOM | CA_LINE); s->sig_q = new Ca_Y_Axis(20, 35, 40, 290, "Q"); s->sig_q->align(FL_ALIGN_LEFT); s->sig_q->minimum(-constel_width); s->sig_q->maximum(constel_width); s->sig_q->minor_grid_color(fl_gray_ramp(20)); s->sig_q->major_grid_color(fl_gray_ramp(15)); s->sig_q->label_grid_color(fl_gray_ramp(10)); //s->sig_q->grid_visible(CA_MINOR_TICK | CA_MAJOR_TICK | CA_LABEL_GRID | CA_ALWAYS_VISIBLE); s->sig_q->grid_visible(CA_LABEL_GRID | CA_ALWAYS_VISIBLE); s->sig_q->minor_grid_style(FL_DOT); s->sig_q->major_step(5); s->sig_q->label_step(1); s->sig_q->axis_color(FL_BLACK); s->sig_q->current(); s->c_const->end(); s->c_right = new Fl_Group(440, 0, 465, 405); s->c_eq = new Fl_Group(380, 0, 265, 200); s->c_eq->box(FL_DOWN_BOX); s->c_eq->align(FL_ALIGN_TOP | FL_ALIGN_INSIDE); s->c_eq->current(); s->canvas_eq = new Ca_Canvas(460, 35, 150, 100, "Equalizer"); s->canvas_eq->box(FL_PLASTIC_DOWN_BOX); s->canvas_eq->color(7); s->canvas_eq->align(FL_ALIGN_TOP); Fl_Group::current()->resizable(s->canvas_eq); s->canvas_eq->border(15); s->eq_x = new Ca_X_Axis(465, 135, 140, 30, "Symbol"); s->eq_x->align(FL_ALIGN_BOTTOM); s->eq_x->minimum(-8.0); s->eq_x->maximum(8.0); s->eq_x->label_format("%g"); s->eq_x->minor_grid_color(fl_gray_ramp(20)); s->eq_x->major_grid_color(fl_gray_ramp(15)); s->eq_x->label_grid_color(fl_gray_ramp(10)); s->eq_x->grid_visible(CA_LABEL_GRID | CA_ALWAYS_VISIBLE); s->eq_x->minor_grid_style(FL_DOT); s->eq_x->major_step(5); s->eq_x->label_step(1); s->eq_x->axis_align(CA_BOTTOM | CA_LINE); s->eq_x->axis_color(FL_BLACK); s->eq_x->current(); s->eq_y = new Ca_Y_Axis(420, 40, 40, 90, "Amp"); s->eq_y->align(FL_ALIGN_LEFT); s->eq_y->minimum(-0.1); s->eq_y->maximum(0.1); s->eq_y->minor_grid_color(fl_gray_ramp(20)); s->eq_y->major_grid_color(fl_gray_ramp(15)); s->eq_y->label_grid_color(fl_gray_ramp(10)); s->eq_y->grid_visible(CA_LABEL_GRID | CA_ALWAYS_VISIBLE); s->eq_y->minor_grid_style(FL_DOT); s->eq_y->major_step(5); s->eq_y->label_step(1); s->eq_y->axis_color(FL_BLACK); s->eq_y->current(); s->c_eq->end(); s->c_symbol_track = new Fl_Group(380, 200, 525, 200); s->c_symbol_track->box(FL_DOWN_BOX); s->c_symbol_track->align(FL_ALIGN_TOP | FL_ALIGN_INSIDE); s->c_symbol_track->current(); s->canvas_track = new Ca_Canvas(490, 235, 300, 100, "Symbol and carrier tracking"); s->canvas_track->box(FL_PLASTIC_DOWN_BOX); s->canvas_track->color(7); s->canvas_track->align(FL_ALIGN_TOP); Fl_Group::current()->resizable(s->canvas_track); s->canvas_track->border(15); s->track_x = new Ca_X_Axis(495, 335, 290, 30, "Time (symbols)"); s->track_x->align(FL_ALIGN_BOTTOM); s->track_x->minimum(0.0); s->track_x->maximum(2400.0*5.0); s->track_x->label_format("%g"); s->track_x->minor_grid_color(fl_gray_ramp(20)); s->track_x->major_grid_color(fl_gray_ramp(15)); s->track_x->label_grid_color(fl_gray_ramp(10)); s->track_x->grid_visible(CA_LABEL_GRID | CA_ALWAYS_VISIBLE); s->track_x->minor_grid_style(FL_DOT); s->track_x->major_step(5); s->track_x->label_step(1); s->track_x->axis_align(CA_BOTTOM | CA_LINE); s->track_x->axis_color(FL_BLACK); s->track_x->current(); s->symbol_track_y = new Ca_Y_Axis(420, 240, 70, 90, "Cor"); s->symbol_track_y->align(FL_ALIGN_LEFT); s->symbol_track_y->minimum(-0.1); s->symbol_track_y->maximum(0.1); s->symbol_track_y->minor_grid_color(fl_gray_ramp(20)); s->symbol_track_y->major_grid_color(fl_gray_ramp(15)); s->symbol_track_y->label_grid_color(fl_gray_ramp(10)); s->symbol_track_y->grid_visible(CA_LABEL_GRID | CA_ALWAYS_VISIBLE); s->symbol_track_y->minor_grid_style(FL_DOT); s->symbol_track_y->major_step(5); s->symbol_track_y->label_step(1); s->symbol_track_y->axis_color(FL_RED); s->symbol_track_y->current(); s->carrier_y = new Ca_Y_Axis(790, 240, 70, 90, "Freq"); s->carrier_y->align(FL_ALIGN_RIGHT); s->carrier_y->minimum(-0.1); s->carrier_y->maximum(0.1); s->carrier_y->minor_grid_color(fl_gray_ramp(20)); s->carrier_y->major_grid_color(fl_gray_ramp(15)); s->carrier_y->label_grid_color(fl_gray_ramp(10)); s->carrier_y->grid_visible(CA_LABEL_GRID | CA_ALWAYS_VISIBLE); s->carrier_y->minor_grid_style(FL_DOT); s->carrier_y->major_step(5); s->carrier_y->label_step(1); s->carrier_y->axis_align(CA_RIGHT); s->carrier_y->axis_color(FL_BLUE); s->carrier_y->current(); s->c_symbol_track->end(); s->audio_meter = new Fl_Audio_Meter(672, 10, 16, 150, ""); s->audio_meter->box(FL_PLASTIC_UP_BOX); s->audio_meter->type(FL_VERT_AUDIO_METER); s->audio_level = new Fl_Output(650, 170, 60, 20, ""); s->audio_level->textsize(10); s->c_right->end(); Fl_Group::current()->resizable(s->c_right); s->w->end(); s->w->show(); s->next_constel_point = 0; s->constel_window = 10000; s->carrier_points = 0; s->carrier_ptr = 0; s->carrier_window = 100; s->symbol_track_points = 0; s->symbol_track_window = 10000; Fl::check(); return s; } /*- End of function --------------------------------------------------------*/ void qam_wait_to_end(qam_monitor_t *s) { fd_set rfds; int res; struct timeval tv; fprintf(stderr, "Processing complete. Press the key to end\n"); do { usleep(100000); Fl::check(); FD_ZERO(&rfds); FD_SET(0, &rfds); tv.tv_usec = 100000; tv.tv_sec = 0; res = select(1, &rfds, NULL, NULL, &tv); } while (res <= 0); } /*- End of function --------------------------------------------------------*/ #endif /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/tests/testfax.c0000664000175000017500000005136611422612267015601 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * testfax.c * * Written by Steve Underwood * * Copyright (C) 2003 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License version 2, as * published by the Free Software Foundation. * * 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., 675 Mass Ave, Cambridge, MA 02139, USA. */ #if defined(HAVE_CONFIG_H) #include #endif #include #include #include #include #include #include #include #include #include #include #include #include #if defined(HAVE_LIBUNICALL) #include #include #include #include #include "unicall.h" //#include "../libmfcr2/libmfcr2.h" //#include "../libpri/libpri.h" //#include "../libpri/libfx.h" #include "spandsp.h" int caller_mode = FALSE; static SNDFILE *rxhandle; static SNDFILE *txhandle; typedef struct { pthread_t thread; int chan; int sig_fd; int fd; uc_call_t *call; uc_crn_t crn; int xxx; int cause; uc_t *uc; dtmf_rx_state_t dtmf_state; char dtmf[101]; int dtmf_ptr; char *tag; char originating_number[32]; char destination_number[32]; t30_state_t fax; } chan_stuff_t; chan_stuff_t chan_stuff[30]; tone_gen_descriptor_t tone_desc; tone_gen_state_t gen; pthread_mutex_t mutex; void channel_read_fax_channel(uc_t *uc, int chan, void *user_data, uint8_t *buf, int len); int channel_write_fax_channel(uc_t *uc, int chan, void *user_data, uint8_t *buf, int max_len); int channel_error(uc_t *uc, int chan, void *user_data, int cause); int signaling_error(uc_t *uc, void *user_data, int cause); void channel_read_fax_channel(uc_t *uc, int chan, void *user_data, uint8_t *buf, int len) { int i; int xlen; char *s; int outframes; #if 0 outframes = sf_writef_short(rxhandle, AF_DEFAULT_TRACK, buf, len >> 1); if (outframes != len) { printf("Failed to write %d samples\n", len); exit(2); } #endif dtmf_rx(&chan_stuff[chan].dtmf_state, (int16_t *) buf, len); xlen = dtmf_rx_get(&chan_stuff[chan].dtmf_state, chan_stuff[chan].dtmf + chan_stuff[chan].dtmf_ptr, 100 - chan_stuff[chan].dtmf_ptr); if (xlen > 0) { s = chan_stuff[chan].dtmf + chan_stuff[chan].dtmf_ptr; while (*s) { if (*s == '#') { uc_set_channel_read_callback(uc, 0, NULL, 0); uc_set_channel_write_callback(uc, 0, NULL, 0); if (uc_call_control(uc, UC_OP_DROPCALL, chan_stuff[chan].crn, (void *) UC_CAUSE_NORMAL_CLEARING)) printf ("A Drop Call failed\n"); /*endif*/ break; } /*endif*/ s++; } /*endwhile*/ printf("Got '%s'\n", chan_stuff[chan].dtmf); chan_stuff[chan].dtmf_ptr += xlen; } /*endif*/ t30_rx(&(chan_stuff[chan].fax), (int16_t *) buf, len); } /*- End of function --------------------------------------------------------*/ int channel_write_fax_channel(uc_t *uc, int chan, void *user_data, uint8_t *buf, int max_len) { int len; len = t30_tx(&(chan_stuff[chan].fax), (int16_t *) buf, max_len >> 1); sf_writef_short(txhandle, AF_DEFAULT_TRACK, buf, len); if (len > 0) len <<= 1; return len; } /*- End of function --------------------------------------------------------*/ int channel_error(uc_t *uc, int chan, void *user_data, int cause) { printf("Error %d\n", cause); return 0; } /*- End of function --------------------------------------------------------*/ int signaling_error(uc_t *uc, void *user_data, int cause) { printf("Error %d\n", cause); return 0; } /*- End of function --------------------------------------------------------*/ static void initiate_call(uc_t *uc, int chan, uc_event_t *e) { uc_makecall_t makecall; uc_callparms_t *callparms; int ret; printf ("Initiating call\n"); pthread_mutex_lock(&mutex); if ((callparms = uc_new_callparms(NULL)) == NULL) return; /*endif*/ pthread_mutex_unlock(&mutex); uc_callparm_originating_number(callparms, chan_stuff[chan].originating_number); uc_callparm_destination_number(callparms, chan_stuff[chan].destination_number); makecall.callparms = callparms; makecall.crn = 0; if (ret = uc_call_control(uc, UC_OP_MAKECALL, 0, (void *) &makecall) != UC_RET_OK) fprintf(stderr, "Make Call failed - %d\n", ret); /*endif*/ chan_stuff[chan].crn = makecall.crn; free(callparms); } /*- End of function --------------------------------------------------------*/ static void phase_b_handler(t30_state_t *s, void *user_data, int msg) { chan_stuff_t *t; t = (chan_stuff_t *) user_data; printf("Phase B - %d\n", msg); } /*- End of function --------------------------------------------------------*/ static void phase_d_handler(t30_state_t *s, void *user_data, int msg) { chan_stuff_t *t; t = (chan_stuff_t *) user_data; printf("Phase D - %d\n", msg); } /*- End of function --------------------------------------------------------*/ static void phase_e_handler(t30_state_t *s, void *user_data, int result) { chan_stuff_t *t; printf("Phase E - %d\n", result); t = (chan_stuff_t *) user_data; if (uc_call_control(t->uc, UC_OP_DROPCALL, t->crn, (void *) UC_CAUSE_NORMAL_CLEARING)) fprintf(stderr, "Phase E Drop Call failed\n"); /*endif*/ } /*- End of function --------------------------------------------------------*/ static void flush_handler(t30_state_t *s, void *user_data, int which) { chan_stuff_t *t; printf("Flush\n"); t = (chan_stuff_t *) user_data; } /*- End of function --------------------------------------------------------*/ static void handle_uc_event(uc_t *uc, void *user_data, uc_event_t *e) { int chan; chan = (int) user_data; printf ("-- %s (%d)\n", uc_event2str(e->e), chan); switch (e->e) { case UC_EVENT_DEVICEFAIL: break; case UC_EVENT_PROTOCOLFAIL: printf("-- Protocol failure on channel %d, cause %d\n", e->gen.channel, e->gen.data); break; case UC_EVENT_SIGCHANSTATUS: printf("-- Signalling channel status - %s\n", e->sigchanstatus.ok ? "Up" : "Down"); break; case UC_EVENT_ALARM: printf("-- Alarm - 0x%X 0x%X\n", e->alarm.raised, e->alarm.cleared); break; case UC_EVENT_FARBLOCKED: printf("-- Channel far end blocked! :-(\n"); chan_stuff[chan].xxx &= ~1; break; case UC_EVENT_FARUNBLOCKED: printf("-- Channel far end unblocked! :-)\n"); chan_stuff[chan].xxx |= 1; if (chan_stuff[chan].xxx == 3) { if (caller_mode) initiate_call(uc, chan, e); /*endif*/ } /*endif*/ break; case UC_EVENT_LOCALBLOCKED: printf("-- Channel local end blocked! :-(\n"); chan_stuff[chan].xxx &= ~2; break; case UC_EVENT_LOCALUNBLOCKED: printf("-- Channel local end unblocked! :-)\n"); chan_stuff[chan].xxx |= 2; if (chan_stuff[chan].xxx == 3) { if (caller_mode) initiate_call(uc, chan, e); /*endif*/ } /*endif*/ break; case UC_EVENT_DIALING: printf("-- Dialing on channel %d\n", e->gen.channel); break; case UC_EVENT_PROCEEDING: printf("-- Proceeding on channel %d\n", e->gen.channel); break; case UC_EVENT_ACCEPTED: printf("-- Accepted on channel %d\n", e->gen.channel); if (uc_call_control(uc, UC_OP_ANSWERCALL, e->gen.crn, (void *) -1)) fprintf(stderr, "Answer Call failed\n"); /*endif*/ break; case UC_EVENT_DETECTED: printf("-- Detected on channel %d\n", e->gen.channel); break; case UC_EVENT_MOREDIGITS: printf("-- More digits on channel %d, CRN %d (ANI: %s, DNIS: %s)\n", e->offered.channel, e->offered.crn, e->offered.parms.originating_number, e->offered.parms.destination_number); break; case UC_EVENT_ALERTING: printf("-- Alerting on channel %d\n", e->gen.channel); /* This is just a notification of call progress. We need take no action at this point. */ break; case UC_EVENT_FARDISCONNECTED: printf("-- Far end disconnected on channel %d\n", e->fardisconnected.channel); /* Kill any outstanding audio processing */ uc_set_channel_read_callback(uc, 0, NULL, 0); uc_set_channel_write_callback(uc, 0, NULL, 0); if (uc_call_control(uc, UC_OP_DROPCALL, e->fardisconnected.crn, (void *) UC_CAUSE_NORMAL_CLEARING)) fprintf(stderr, "C Drop Call failed\n"); /*endif*/ break; case UC_EVENT_DROPCALL: printf("-- Drop call on channel %d\n", e->gen.channel); if (uc_call_control(uc, UC_OP_RELEASECALL, e->gen.crn, NULL)) fprintf(stderr, "uc_ReleaseCall failed\n"); /*endif*/ break; case UC_EVENT_RELEASECALL: printf("-- Released on channel %d\n", e->gen.channel); if (caller_mode) initiate_call(uc, chan, e); /*endif*/ break; case UC_EVENT_OFFERED: printf("-- Offered on channel %d, CRN %d (ANI: %s, DNIS: %s)\n", e->offered.channel, e->offered.crn, e->offered.parms.originating_number, e->offered.parms.destination_number); if (!caller_mode) { switch (chan_stuff[chan].cause) { case 0: if (uc_call_control(uc, UC_OP_ACCEPTCALL, e->offered.crn, (void *) -1)) fprintf(stderr, "uc_AcceptCall failed\n"); /*endif*/ chan_stuff[chan].crn = e->offered.crn; break; case 1: if (uc_call_control(uc, UC_OP_ANSWERCALL, e->offered.crn, (void *) -1)) fprintf(stderr, "uc_AnswerCall failed\n"); /*endif*/ chan_stuff[chan].crn = e->offered.crn; break; case 2: if (uc_call_control(uc, UC_OP_DROPCALL, e->offered.crn, (void *) UC_CAUSE_USER_BUSY)) fprintf(stderr, "E Drop Call failed\n"); /*endif*/ break; case 3: if (uc_call_control(uc, UC_OP_DROPCALL, e->offered.crn, (void *) UC_CAUSE_UNASSIGNED_NUMBER)) fprintf(stderr, "F Drop Call failed\n"); /*endif*/ break; case 4: if (uc_call_control(uc, UC_OP_DROPCALL, e->offered.crn, (void *) UC_CAUSE_NETWORK_CONGESTION)) fprintf(stderr, "G Drop Call failed\n"); /*endif*/ break; case 5: if (uc_call_control(uc, UC_OP_DROPCALL, e->offered.crn, (void *) UC_CAUSE_DEST_OUT_OF_ORDER)) fprintf(stderr, "H Drop Call failed\n"); /*endif*/ break; } /*endswitch*/ if (++chan_stuff[chan].cause > 5) chan_stuff[chan].cause = 0; /*endif*/ } /*endif*/ break; case UC_EVENT_ANSWERED: printf("-- Answered on channel %d\n", e->gen.channel); uc_set_channel_read_callback(uc, 0, channel_read_fax_channel, (void *) chan); printf("XXX read callback set\n"); uc_set_channel_write_callback(uc, 0, channel_write_fax_channel, (void *) chan); printf("XXX write callback set\n"); t30_init(&(chan_stuff[chan].fax), FALSE, uc); t30_set_local_ident(&(chan_stuff[chan].fax), "12345678"); t30_set_tx_file(&(chan_stuff[chan].fax), "tx.tif"); //t30_set_rx_file(&(chan_stuff[chan].fax), "rx.tif"); t30_set_phase_b_handler(&(chan_stuff[chan].fax), phase_b_handler, &(chan_stuff[chan])); t30_set_phase_d_handler(&(chan_stuff[chan].fax), phase_d_handler, &(chan_stuff[chan])); t30_set_phase_e_handler(&(chan_stuff[chan].fax), phase_e_handler, &(chan_stuff[chan])); t30_set_flush_handler(&(chan_stuff[chan].fax), flush_handler, &(chan_stuff[chan])); printf("XXX FAX inited\n"); dtmf_rx_init(&chan_stuff[chan].dtmf_state, NULL, NULL); printf("XXX DTMF inited\n"); break; case UC_EVENT_CONNECTED: printf("-- Connected on channel %d\n", e->gen.channel); uc_set_channel_read_callback(uc, 0, channel_read_fax_channel, (void *) chan); printf("XXX read callback set\n"); uc_set_channel_write_callback(uc, 0, channel_write_fax_channel, (void *) chan); printf("XXX write callback set\n"); t30_init(&(chan_stuff[chan].fax), TRUE, uc); t30_set_local_ident(&(chan_stuff[chan].fax), "87654321"); t30_set_tx_file(&(chan_stuff[chan].fax), "tx.tif"); //t30_set_rx_file(&(chan_stuff[chan].fax), "rx.tif"); t30_set_phase_b_handler(&(chan_stuff[chan].fax), phase_b_handler, &(chan_stuff[chan])); t30_set_phase_d_handler(&(chan_stuff[chan].fax), phase_d_handler, &(chan_stuff[chan])); t30_set_phase_e_handler(&(chan_stuff[chan].fax), phase_e_handler, &(chan_stuff[chan])); printf("XXX FAX inited\n"); #if 0 if (uc_call_control(uc, UC_OP_DROPCALL, e->offered.crn, (void *) UC_CAUSE_NORMAL_CLEARING)) printf ("I Drop Call failed\n"); /*endif*/ #endif break; default: fprintf(stderr, "--!! Unknown signaling event %d\n", e->e); break; } /*endswitch*/ } /*- End of function --------------------------------------------------------*/ static void *run_uc(void *arg) { uc_t *uc; uc_event_t *e; struct timeval tv = {0,0}; struct timeval *next; fd_set rfds; fd_set wfds; fd_set efds; int res; int dfd; int chan; chan = *((int *) arg); dfd = chan_stuff[chan].fd; if (chan < 4) uc = uc_new(dfd, dfd, "fx", "ls,us", UC_MODE_CO, 1); else uc = uc_new(dfd, dfd, "fx", "ls", UC_MODE_CPE, 1); //uc = uc_new(dfd, dfd, "mfcr2", "cn", UC_MODE_CPE, 1); //uc = uc_new(dfd, dfd, "pri", "ctr4", UC_MODE_CPE, 1); if (uc == NULL) { fprintf(stderr, "Unable to create instance\n"); return NULL; } /*endif*/ uc_set_api_codec(uc, 0, UC_CODEC_LINEAR16); chan_stuff[chan].uc = uc; uc_set_signaling_callback(uc, handle_uc_event, (void *) chan); uc_set_signaling_error_callback(uc, signaling_error, (void *) chan); uc_set_channel_error_callback(uc, 0, channel_error, (void *) chan); uc_set_logging(uc, 0x7FFFFFFF, 0, chan_stuff[chan].tag); uc_call_control(uc, UC_OP_UNBLOCK, 0, (void *) -1); for (;;) { FD_ZERO(&rfds); FD_ZERO(&wfds); FD_ZERO(&efds); FD_SET(dfd, &rfds); FD_SET(dfd, &wfds); FD_SET(dfd, &efds); if ((next = uc_schedule_next(uc))) { gettimeofday(&tv, NULL); tv.tv_sec = next->tv_sec - tv.tv_sec; tv.tv_usec = next->tv_usec - tv.tv_usec; if (tv.tv_usec < 0) { tv.tv_usec += 1000000; tv.tv_sec -= 1; } /*endif*/ if (tv.tv_sec < 0) { tv.tv_sec = 0; tv.tv_usec = 0; } /*endif*/ } /*endif*/ res = select(dfd + 1, &rfds, NULL, &efds, next ? &tv : NULL); e = NULL; if (res == 0) { uc_schedule_run(uc); } else if (res > 0) { e = uc_check_event(uc); } else if (errno != EINTR) { fprintf(stderr, "Error (%d) on select: %s\n", errno, strerror(errno)); } /*endif*/ if (e) { printf("Non-callback signaling event\n"); handle_uc_event(uc, (void *) chan, e); } /*endif*/ } /*endfor*/ return NULL; } /*- End of function --------------------------------------------------------*/ int main(int argc, char *argv[]) { pthread_attr_t attr; struct zt_bufferinfo b; struct zt_gains g; int chan; int chanx; char dev_name[20]; AFfilesetup filesetup; int j; filesetup = afNewFileSetup(); if (filesetup == AF_NULL_FILESETUP) { fprintf(stderr, " Failed to create file setup\n"); exit(2); } afInitSampleFormat(filesetup, AF_DEFAULT_TRACK, AF_SAMPFMT_TWOSCOMP, 16); afInitRate(filesetup, AF_DEFAULT_TRACK, (float) SAMPLE_RATE); afInitFileFormat(filesetup, AF_FILE_WAVE); afInitChannels(filesetup, AF_DEFAULT_TRACK, 1); rxhandle = afOpenFile("rxfax.wav", "w", filesetup); if (rxhandle == NULL) { fprintf(stderr, " Failed to open fax audio file\n"); exit(2); } txhandle = afOpenFile("txfax.wav", "w", filesetup); if (txhandle == NULL) { fprintf(stderr, " Failed to open fax audio file\n"); exit(2); } if (argc < 1) { fprintf(stderr, "Usage: testcall [call]\n"); exit(1); } /*endif*/ uc_start(); pthread_attr_init(&attr); pthread_attr_setdetachstate(&attr, PTHREAD_CREATE_DETACHED); pthread_mutex_init(&mutex, NULL); for (chan = 0; chan < 5/*30*/; chan++) { chan_stuff[chan].sig_fd = open("/dev/zap/channel", O_RDWR | O_NONBLOCK); if (chan_stuff[chan].sig_fd < 0) { fprintf(stderr, "Failed to open channel: %s\n", strerror(errno)); exit(1); } /*endif*/ chan_stuff[chan].fd = chan_stuff[chan].sig_fd; /* Allow for the missing channel at TS16 */ chanx = chan + 1 + (chan + 15)%30; chanx = chan + 125; if (ioctl(chan_stuff[chan].fd, ZT_SPECIFY, &chanx)) { fprintf(stderr, "Failed to specify channel %d: %s\n", chanx, strerror(errno)); exit(1); } /*endif*/ if (ioctl(chan_stuff[chan].fd, ZT_GET_BUFINFO, &b)) { fprintf(stderr, "Unable to get buffer info on channel %d: %s\n", chanx, strerror(errno)); exit(1); } /*endif*/ printf ("%d %d %d %d %d %d\n", b.rxbufpolicy, b.txbufpolicy, b.numbufs, b.bufsize, b.readbufs, b.writebufs); b.rxbufpolicy = ZT_POLICY_IMMEDIATE; b.txbufpolicy = ZT_POLICY_IMMEDIATE; b.numbufs = 4; b.bufsize = 160; if (ioctl(chan_stuff[chan].fd, ZT_SET_BUFINFO, &b)) { fprintf(stderr, "Unable to set buffer info on channel %d: %s\n", chanx, strerror(errno)); exit(1); } /*endif*/ if (ioctl(chan_stuff[chan].fd, ZT_GET_BUFINFO, &b)) { fprintf(stderr, "Unable to get buffer info on channel %d: %s\n", chanx, strerror(errno)); exit(1); } /*endif*/ for (j = 0; j < 256; j++) { g.rxgain[j] = j; g.txgain[j] = j; } /*endif*/ ioctl(chan_stuff[chan].fd, ZT_SETGAINS, &g); printf("%d %d %d %d %d %d\n", b.rxbufpolicy, b.txbufpolicy, b.numbufs, b.bufsize, b.readbufs, b.writebufs); if (argc > 1) caller_mode = TRUE; /*endif*/ chan_stuff[chan].chan = chan; sprintf(dev_name, "Chan %2d:", chanx); chan_stuff[chan].tag = strdup(dev_name); sprintf(chan_stuff[chan].originating_number, "%d", 987654321 + chan); sprintf(chan_stuff[chan].destination_number, "%d", 1234 + chan); printf("Thread for channel %d\n", chan); if (pthread_create(&chan_stuff[chan].thread, &attr, run_uc, &chan_stuff[chan].chan)) exit(2); /*endif*/ } /*endfor*/ for (;;) { sleep(5); printf("Main thread\n"); } /*endfor*/ return 0; } /*- End of function --------------------------------------------------------*/ #else int main(int argc, char *argv[]) { printf("This program was not built with Unicall available\n"); } /*- End of function --------------------------------------------------------*/ #endif /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/tests/adsi_tests.c0000664000175000017500000007640511422612266016265 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * adsi_tests.c - tests for analogue display service handling. * * Written by Steve Underwood * * Copyright (C) 2003 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License version 2, as * published by the Free Software Foundation. * * 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., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \page adsi_tests_page ADSI tests \section adsi_tests_page_sec_1 What does it do? These tests exercise the ADSI module, for all supported standards. A transmit and a receive instance of the ADSI module are connected together. A quantity of messages is passed between these instances, and checked for accuracy at the receiver. Since the FSK modems used for this are exercised fully by other tests, these tests do not include line modelling. \section adsi_tests_page_sec_2 How does it work? */ /* Enable the following definition to enable direct probing into the FAX structures */ //#define WITH_SPANDSP_INTERNALS #if defined(HAVE_CONFIG_H) #include "config.h" #endif #include #include #include #include #include #include //#if defined(WITH_SPANDSP_INTERNALS) #define SPANDSP_EXPOSE_INTERNAL_STRUCTURES //#endif #include "spandsp.h" #include "spandsp-sim.h" #define OUTPUT_FILE_NAME "adsi.wav" #define BLOCK_LEN 160 #define MITEL_DIR "../test-data/mitel/" #define BELLCORE_DIR "../test-data/bellcore/" const char *bellcore_files[] = { MITEL_DIR "mitel-cm7291-talkoff.wav", BELLCORE_DIR "tr-tsy-00763-1.wav", BELLCORE_DIR "tr-tsy-00763-2.wav", BELLCORE_DIR "tr-tsy-00763-3.wav", BELLCORE_DIR "tr-tsy-00763-4.wav", BELLCORE_DIR "tr-tsy-00763-5.wav", BELLCORE_DIR "tr-tsy-00763-6.wav", "" }; char *decode_test_file = NULL; int errors = 0; int basic_testing = FALSE; adsi_rx_state_t *rx_adsi; adsi_tx_state_t *tx_adsi; int current_standard = 0; int good_message_received; int log_audio = FALSE; SNDFILE *outhandle = NULL; int short_preamble = FALSE; static int adsi_create_message(adsi_tx_state_t *s, uint8_t *msg) { const char *t; int len; static int cycle = 0; len = 0; switch (current_standard) { case ADSI_STANDARD_CLASS: if (cycle > 3) cycle = 0; switch (cycle) { case 0: len = adsi_add_field(s, msg, -1, CLASS_MDMF_CALLERID, NULL, 0); /* Date and time as MMDDHHMM */ len = adsi_add_field(s, msg, len, MCLASS_DATETIME, (uint8_t *) "10011750", 8); len = adsi_add_field(s, msg, len, MCLASS_CALLER_NUMBER, (uint8_t *) "12345678", 8); len = adsi_add_field(s, msg, len, MCLASS_DIALED_NUMBER, (uint8_t *) "87654321", 8); len = adsi_add_field(s, msg, len, MCLASS_CALLER_NAME, (uint8_t *) "Chan Dai Man", 15); break; case 1: len = adsi_add_field(s, msg, -1, CLASS_SDMF_MSG_WAITING, NULL, 0); /* Active */ len = adsi_add_field(s, msg, len, 0, (uint8_t *) "\x42", 1); len = adsi_add_field(s, msg, len, 0, (uint8_t *) "\x42", 1); len = adsi_add_field(s, msg, len, 0, (uint8_t *) "\x42", 1); break; case 2: len = adsi_add_field(s, msg, -1, CLASS_SDMF_MSG_WAITING, NULL, 0); /* Inactive */ len = adsi_add_field(s, msg, len, 0, (uint8_t *) "\x6F", 1); len = adsi_add_field(s, msg, len, 0, (uint8_t *) "\x6F", 1); len = adsi_add_field(s, msg, len, 0, (uint8_t *) "\x6F", 1); break; case 3: len = adsi_add_field(s, msg, -1, CLASS_SDMF_CALLERID, NULL, 0); /* Date and time as MMDDHHMM */ len = adsi_add_field(s, msg, len, 0, (uint8_t *) "10011750", 8); len = adsi_add_field(s, msg, len, 0, (uint8_t *) "6095551212", 10); break; } break; case ADSI_STANDARD_CLIP: if (cycle > 4) cycle = 0; switch (cycle) { case 0: len = adsi_add_field(s, msg, -1, CLIP_MDMF_CALLERID, NULL, 0); len = adsi_add_field(s, msg, len, CLIP_CALLTYPE, (uint8_t *) "\x81", 1); /* Date and time as MMDDHHMM */ len = adsi_add_field(s, msg, len, CLIP_DATETIME, (uint8_t *) "10011750", 8); len = adsi_add_field(s, msg, len, CLIP_DIALED_NUMBER, (uint8_t *) "12345678", 8); len = adsi_add_field(s, msg, len, CLIP_CALLER_NUMBER, (uint8_t *) "87654321", 8); len = adsi_add_field(s, msg, len, CLIP_CALLER_NAME, (uint8_t *) "Chan Dai Man", 15); break; case 1: len = adsi_add_field(s, msg, -1, CLIP_MDMF_MSG_WAITING, NULL, 0); /* Inactive */ len = adsi_add_field(s, msg, len, CLIP_VISUAL_INDICATOR, (uint8_t *) "\x00", 1); break; case 2: len = adsi_add_field(s, msg, -1, CLIP_MDMF_MSG_WAITING, NULL, 0); /* Active */ len = adsi_add_field(s, msg, len, CLIP_VISUAL_INDICATOR, (uint8_t *) "\xFF", 1); len = adsi_add_field(s, msg, len, CLIP_NUM_MSG, (uint8_t *) "\x05", 1); break; case 3: len = adsi_add_field(s, msg, -1, CLIP_MDMF_SMS, NULL, 0); /* Active */ len = adsi_add_field(s, msg, len, CLIP_DISPLAY_INFO, (uint8_t *) "\x00" "ABC", 4); break; case 4: len = adsi_add_field(s, msg, -1, CLIP_MDMF_CALLERID, NULL, 0); len = adsi_add_field(s, msg, len, CLIP_NUM_MSG, (uint8_t *) "\x03", 1); break; } break; case ADSI_STANDARD_ACLIP: if (cycle > 0) cycle = 0; switch (cycle) { case 0: len = adsi_add_field(s, msg, -1, ACLIP_MDMF_CALLERID, NULL, 0); /* Date and time as MMDDHHMM */ len = adsi_add_field(s, msg, len, ACLIP_DATETIME, (uint8_t *) "10011750", 8); len = adsi_add_field(s, msg, len, ACLIP_DIALED_NUMBER, (uint8_t *) "12345678", 8); len = adsi_add_field(s, msg, len, ACLIP_CALLER_NUMBER, (uint8_t *) "87654321", 8); len = adsi_add_field(s, msg, len, ACLIP_CALLER_NAME, (uint8_t *) "Chan Dai Man", 15); break; } break; case ADSI_STANDARD_JCLIP: len = adsi_add_field(s, msg, -1, JCLIP_MDMF_CALLERID, NULL, 0); len = adsi_add_field(s, msg, len, JCLIP_CALLER_NUMBER, (uint8_t *) "12345678", 8); len = adsi_add_field(s, msg, len, JCLIP_CALLER_NUM_DES, (uint8_t *) "215", 3); len = adsi_add_field(s, msg, len, JCLIP_DIALED_NUMBER, (uint8_t *) "87654321", 8); len = adsi_add_field(s, msg, len, JCLIP_DIALED_NUM_DES, (uint8_t *) "215", 3); break; case ADSI_STANDARD_CLIP_DTMF: if (cycle > 4) cycle = 0; switch (cycle) { case 0: len = adsi_add_field(s, msg, -1, CLIP_DTMF_C_TERMINATED, NULL, 0); len = adsi_add_field(s, msg, len, CLIP_DTMF_C_CALLER_NUMBER, (uint8_t *) "12345678", 8); len = adsi_add_field(s, msg, len, CLIP_DTMF_C_ABSENCE, (uint8_t *) "10", 2); len = adsi_add_field(s, msg, len, CLIP_DTMF_C_REDIRECT_NUMBER, (uint8_t *) "87654321", 8); break; case 1: len = adsi_add_field(s, msg, -1, CLIP_DTMF_HASH_TERMINATED, NULL, 0); len = adsi_add_field(s, msg, len, CLIP_DTMF_HASH_CALLER_NUMBER, (uint8_t *) "12345678", 8); break; case 2: len = adsi_add_field(s, msg, -1, CLIP_DTMF_HASH_TERMINATED, NULL, 0); len = adsi_add_field(s, msg, len, CLIP_DTMF_HASH_ABSENCE, (uint8_t *) "1", 1); break; case 3: /* Test the DC format, used in Taiwan and Kuwait */ len = adsi_add_field(s, msg, -1, CLIP_DTMF_HASH_TERMINATED, NULL, 0); len = adsi_add_field(s, msg, len, CLIP_DTMF_HASH_ABSENCE, (uint8_t *) "12345678", 8); break; case 4: /* Test the # format, with no header */ len = adsi_add_field(s, msg, -1, CLIP_DTMF_HASH_TERMINATED, NULL, 0); len = adsi_add_field(s, msg, len, CLIP_DTMF_HASH_UNSPECIFIED, (uint8_t *) "12345678", 8); break; } break; case ADSI_STANDARD_TDD: t = "The quick Brown Fox Jumps Over The Lazy dog 0123456789!@#$%^&*()"; len = adsi_add_field(s, msg, -1, 0, (uint8_t *) t, strlen(t)); break; } cycle++; return len; } /*- End of function --------------------------------------------------------*/ static void put_adsi_msg(void *user_data, const uint8_t *msg, int len) { int i; int l; uint8_t field_type; const uint8_t *field_body; int field_len; int message_type; uint8_t body[256]; printf("Good message received (%d bytes)\n", len); good_message_received = TRUE; for (i = 0; i < len; i++) { printf("%02x ", msg[i]); if ((i & 0xF) == 0xF) printf("\n"); } printf("\n"); l = -1; message_type = -1; printf("Message breakdown\n"); do { l = adsi_next_field(rx_adsi, msg, len, l, &field_type, &field_body, &field_len); if (l > 0) { if (field_body) { memcpy(body, field_body, field_len); body[field_len] = '\0'; printf("Field type 0x%x, len %d, '%s' - ", field_type, field_len, body); switch (current_standard) { case ADSI_STANDARD_CLASS: switch (message_type) { case CLASS_SDMF_CALLERID: break; case CLASS_MDMF_CALLERID: switch (field_type) { case MCLASS_DATETIME: printf("Date and time (MMDDHHMM)"); break; case MCLASS_CALLER_NUMBER: printf("Caller's number"); break; case MCLASS_DIALED_NUMBER: printf("Dialed number"); break; case MCLASS_ABSENCE1: printf("Caller's number absent: 'O' or 'P'"); break; case MCLASS_REDIRECT: printf("Call forward: universal ('0'), on busy ('1'), or on unanswered ('2')"); break; case MCLASS_QUALIFIER: printf("Long distance: 'L'"); break; case MCLASS_CALLER_NAME: printf("Caller's name"); break; case MCLASS_ABSENCE2: printf("Caller's name absent: 'O' or 'P'"); break; } break; case CLASS_SDMF_MSG_WAITING: break; case CLASS_MDMF_MSG_WAITING: switch (field_type) { case MCLASS_VISUAL_INDICATOR: printf("Message waiting/not waiting"); break; } break; } break; case ADSI_STANDARD_CLIP: switch (message_type) { case CLIP_MDMF_CALLERID: case CLIP_MDMF_MSG_WAITING: case CLIP_MDMF_CHARGE_INFO: case CLIP_MDMF_SMS: switch (field_type) { case CLIP_DATETIME: printf("Date and time (MMDDHHMM)"); break; case CLIP_CALLER_NUMBER: printf("Caller's number"); break; case CLIP_DIALED_NUMBER: printf("Dialed number"); break; case CLIP_ABSENCE1: printf("Caller's number absent"); break; case CLIP_CALLER_NAME: printf("Caller's name"); break; case CLIP_ABSENCE2: printf("Caller's name absent"); break; case CLIP_VISUAL_INDICATOR: printf("Visual indicator"); break; case CLIP_MESSAGE_ID: printf("Message ID"); break; case CLIP_CALLTYPE: printf("Voice call, ring-back-when-free call, or msg waiting call"); break; case CLIP_NUM_MSG: printf("Number of messages"); break; #if 0 case CLIP_REDIR_NUMBER: printf("Redirecting number"); break; #endif case CLIP_CHARGE: printf("Charge"); break; case CLIP_DURATION: printf("Duration of the call"); break; case CLIP_ADD_CHARGE: printf("Additional charge"); break; case CLIP_DISPLAY_INFO: printf("Display information"); break; case CLIP_SERVICE_INFO: printf("Service information"); break; } break; } break; case ADSI_STANDARD_ACLIP: switch (message_type) { case ACLIP_SDMF_CALLERID: break; case ACLIP_MDMF_CALLERID: switch (field_type) { case ACLIP_DATETIME: printf("Date and time (MMDDHHMM)"); break; case ACLIP_CALLER_NUMBER: printf("Caller's number"); break; case ACLIP_DIALED_NUMBER: printf("Dialed number"); break; case ACLIP_NUMBER_ABSENCE: printf("Caller's number absent: 'O' or 'P'"); break; case ACLIP_REDIRECT: printf("Call forward: universal, on busy, or on unanswered"); break; case ACLIP_QUALIFIER: printf("Long distance call: 'L'"); break; case ACLIP_CALLER_NAME: printf("Caller's name"); break; case ACLIP_NAME_ABSENCE: printf("Caller's name absent: 'O' or 'P'"); break; } break; } break; case ADSI_STANDARD_JCLIP: switch (message_type) { case JCLIP_MDMF_CALLERID: switch (field_type) { case JCLIP_CALLER_NUMBER: printf("Caller's number"); break; case JCLIP_CALLER_NUM_DES: printf("Caller's number data extension signal"); break; case JCLIP_DIALED_NUMBER: printf("Dialed number"); break; case JCLIP_DIALED_NUM_DES: printf("Dialed number data extension signal"); break; case JCLIP_ABSENCE: printf("Caller's number absent: 'C', 'O', 'P' or 'S'"); break; } break; } break; case ADSI_STANDARD_CLIP_DTMF: switch (message_type) { case CLIP_DTMF_HASH_TERMINATED: switch (field_type) { case CLIP_DTMF_HASH_CALLER_NUMBER: printf("Caller's number"); break; case CLIP_DTMF_HASH_ABSENCE: printf("Caller's number absent: private (1), overseas (2) or not available (3)"); break; case CLIP_DTMF_HASH_UNSPECIFIED: printf("Unspecified"); break; } break; case CLIP_DTMF_C_TERMINATED: switch (field_type) { case CLIP_DTMF_C_CALLER_NUMBER: printf("Caller's number"); break; case CLIP_DTMF_C_REDIRECT_NUMBER: printf("Redirect number"); break; case CLIP_DTMF_C_ABSENCE: printf("Caller's number absent"); break; } break; } break; case ADSI_STANDARD_TDD: if (basic_testing) { if (len != 59 || memcmp(msg, "THE QUICK BROWN FOX JUMPS OVER THE LAZY DOG 0123456789#$*()", 59)) { printf("\n"); printf("String error\n"); exit(2); } } break; } } else { printf("Message type 0x%x - ", field_type); message_type = field_type; switch (current_standard) { case ADSI_STANDARD_CLASS: switch (message_type) { case CLASS_SDMF_CALLERID: printf("Single data message caller ID"); break; case CLASS_MDMF_CALLERID: printf("Multiple data message caller ID"); break; case CLASS_SDMF_MSG_WAITING: printf("Single data message message waiting"); break; case CLASS_MDMF_MSG_WAITING: printf("Multiple data message message waiting"); break; default: printf("Unknown"); break; } break; case ADSI_STANDARD_CLIP: switch (message_type) { case CLIP_MDMF_CALLERID: printf("Multiple data message caller ID"); break; case CLIP_MDMF_MSG_WAITING: printf("Multiple data message message waiting"); break; case CLIP_MDMF_CHARGE_INFO: printf("Multiple data message charge info"); break; case CLIP_MDMF_SMS: printf("Multiple data message SMS"); break; default: printf("Unknown"); break; } break; case ADSI_STANDARD_ACLIP: switch (message_type) { case ACLIP_SDMF_CALLERID: printf("Single data message caller ID frame"); break; case ACLIP_MDMF_CALLERID: printf("Multiple data message caller ID frame"); break; default: printf("Unknown"); break; } break; case ADSI_STANDARD_JCLIP: switch (message_type) { case JCLIP_MDMF_CALLERID: printf("Multiple data message caller ID frame"); break; default: printf("Unknown"); break; } break; case ADSI_STANDARD_CLIP_DTMF: switch (message_type) { case CLIP_DTMF_HASH_TERMINATED: printf("# terminated"); break; case CLIP_DTMF_C_TERMINATED: printf("C terminated"); break; default: printf("Unknown"); break; } break; case ADSI_STANDARD_TDD: printf("Unknown"); break; } } printf("\n"); } } while (l > 0); if (l < -1) { /* This message appears corrupt */ printf("Bad message contents\n"); exit(2); } printf("\n"); } /*- End of function --------------------------------------------------------*/ static void tdd_character_set_tests(void) { #if 0 char *s; int ch; int xx; int yy; /* This part tests internal static routines in the ADSI module. It can only be run with a modified version of the ADSI module, which makes the routines visible. */ /* Check the character encode/decode cycle */ tx_adsi = adsi_tx_init(NULL, ADSI_STANDARD_TDD); rx_adsi = adsi_rx_init(NULL, ADSI_STANDARD_TDD, put_adsi_msg, NULL); s = "The quick Brown Fox Jumps Over The Lazy dog 0123456789!@#$%^&*()"; while ((ch = *s++)) { xx = adsi_encode_baudot(tx_adsi, ch); if ((xx & 0x3E0)) { yy = adsi_decode_baudot(rx_adsi, (xx >> 5) & 0x1F); if (yy) printf("%c", yy); } yy = adsi_decode_baudot(rx_adsi, xx & 0x1F); if (yy) printf("%c", yy); } adsi_tx_free(tx_adsi); adsi_rx_free(rx_adsi); printf("\n"); #endif } /*- End of function --------------------------------------------------------*/ static void basic_tests(int standard) { int16_t amp[BLOCK_LEN]; uint8_t adsi_msg[256 + 42]; int outframes; int len; int adsi_msg_len; int push; int i; basic_testing = TRUE; printf("Testing %s\n", adsi_standard_to_str(standard)); tx_adsi = adsi_tx_init(NULL, standard); if (short_preamble) adsi_tx_set_preamble(tx_adsi, 50, 20, 5, -1); rx_adsi = adsi_rx_init(NULL, standard, put_adsi_msg, NULL); /* Fake an OK condition for the first message test */ good_message_received = TRUE; push = 0; for (i = 0; i < 100000; i++) { if (push == 0) { if ((len = adsi_tx(tx_adsi, amp, BLOCK_LEN)) == 0) push = 10; } else { len = 0; /* Push a little silence through, to flush things out */ if (--push == 0) { if (!good_message_received) { printf("No message received %s (%d)\n", adsi_standard_to_str(standard), i); exit(2); } good_message_received = FALSE; adsi_msg_len = adsi_create_message(tx_adsi, adsi_msg); adsi_msg_len = adsi_tx_put_message(tx_adsi, adsi_msg, adsi_msg_len); } } if (len < BLOCK_LEN) { memset(&[len], 0, sizeof(int16_t)*(BLOCK_LEN - len)); len = BLOCK_LEN; } if (log_audio) { outframes = sf_writef_short(outhandle, amp, len); if (outframes != len) { fprintf(stderr, " Error writing audio file\n"); exit(2); } } adsi_rx(rx_adsi, amp, len); } adsi_rx_free(rx_adsi); adsi_tx_free(tx_adsi); basic_testing = FALSE; } /*- End of function --------------------------------------------------------*/ static void mitel_cm7291_side_2_and_bellcore_tests(int standard) { int j; int16_t amp[BLOCK_LEN]; SNDFILE *inhandle; int frames; /* The remainder of the Mitel tape is the talk-off test */ /* Here we use the Bellcore test tapes (much tougher), in six files - 1 from each side of the original 3 cassette tapes */ printf("Talk-off tests for %s\n", adsi_standard_to_str(standard)); rx_adsi = adsi_rx_init(NULL, standard, put_adsi_msg, NULL); for (j = 0; bellcore_files[j][0]; j++) { printf("Testing with %s\n", bellcore_files[j]); if ((inhandle = sf_open_telephony_read(bellcore_files[j], 1)) == NULL) { printf(" Cannot open speech file '%s'\n", bellcore_files[j]); exit(2); } while ((frames = sf_readf_short(inhandle, amp, BLOCK_LEN))) { adsi_rx(rx_adsi, amp, frames); } if (sf_close(inhandle) != 0) { printf(" Cannot close speech file '%s'\n", bellcore_files[j]); exit(2); } } adsi_rx_free(rx_adsi); if (j > 470) { printf(" Failed\n"); exit(2); } printf(" Passed\n"); } /*- End of function --------------------------------------------------------*/ int main(int argc, char *argv[]) { int16_t amp[BLOCK_LEN]; SNDFILE *inhandle; int len; int test_standard; int first_standard; int last_standard; int opt; int enable_basic_tests; int enable_talkoff_tests; log_audio = FALSE; decode_test_file = NULL; test_standard = -1; short_preamble = FALSE; enable_basic_tests = TRUE; enable_talkoff_tests = FALSE; while ((opt = getopt(argc, argv, "bd:lps:t")) != -1) { switch (opt) { case 'b': enable_basic_tests = TRUE; enable_talkoff_tests = FALSE; break; case 'd': decode_test_file = optarg; break; case 'l': log_audio = TRUE; break; case 'p': short_preamble = TRUE; break; case 's': if (strcasecmp("CLASS", optarg) == 0) test_standard = ADSI_STANDARD_CLASS; else if (strcasecmp("CLIP", optarg) == 0) test_standard = ADSI_STANDARD_CLIP; else if (strcasecmp("A-CLIP", optarg) == 0) test_standard = ADSI_STANDARD_ACLIP; else if (strcasecmp("J-CLIP", optarg) == 0) test_standard = ADSI_STANDARD_JCLIP; else if (strcasecmp("CLIP-DTMF", optarg) == 0) test_standard = ADSI_STANDARD_CLIP_DTMF; else if (strcasecmp("TDD", optarg) == 0) test_standard = ADSI_STANDARD_TDD; else test_standard = atoi(optarg); break; case 't': enable_basic_tests = FALSE; enable_talkoff_tests = TRUE; break; default: //usage(); exit(2); break; } } outhandle = NULL; tdd_character_set_tests(); if (decode_test_file) { /* We will decode the audio from a file. */ if ((inhandle = sf_open_telephony_read(decode_test_file, 1)) == NULL) { fprintf(stderr, " Cannot open audio file '%s'\n", decode_test_file); exit(2); } if (test_standard < 0) current_standard = ADSI_STANDARD_CLASS; else current_standard = test_standard; rx_adsi = adsi_rx_init(NULL, current_standard, put_adsi_msg, NULL); #if 0 span_log_set_level(rx_adsi.logging, SPAN_LOG_SHOW_SEVERITY | SPAN_LOG_SHOW_PROTOCOL | SPAN_LOG_FLOW); span_log_set_tag(rx_adsi.logging, "ADSI"); #endif for (;;) { len = sf_readf_short(inhandle, amp, BLOCK_LEN); if (len == 0) break; adsi_rx(rx_adsi, amp, len); } if (sf_close(inhandle) != 0) { fprintf(stderr, " Cannot close audio file '%s'\n", decode_test_file); exit(2); } adsi_rx_free(rx_adsi); } else { if (log_audio) { if ((outhandle = sf_open_telephony_write(OUTPUT_FILE_NAME, 1)) == NULL) { fprintf(stderr, " Cannot create audio file '%s'\n", OUTPUT_FILE_NAME); exit(2); } } /* Go through all the standards */ /* This assumes standard 0 is NULL, and TDD is the last in the list */ if (test_standard < 0) { first_standard = ADSI_STANDARD_CLASS; last_standard = ADSI_STANDARD_TDD; } else { first_standard = last_standard = test_standard; } for (current_standard = first_standard; current_standard <= last_standard; current_standard++) { if (enable_basic_tests) basic_tests(current_standard); if (enable_talkoff_tests) mitel_cm7291_side_2_and_bellcore_tests(current_standard); } if (log_audio) { if (sf_close(outhandle) != 0) { fprintf(stderr, " Cannot close audio file '%s'\n", OUTPUT_FILE_NAME); exit(2); } } printf("Tests passed.\n"); } return 0; } /*- End of function --------------------------------------------------------*/ /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/tests/fsk_tests.c0000664000175000017500000004644411422612266016130 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * fsk_tests.c - Tests for the low speed FSK modem code (V.21, V.23, etc.). * * Written by Steve Underwood * * Copyright (C) 2003 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License version 2, as * published by the Free Software Foundation. * * 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., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \page fsk_tests_page FSK modem tests \section fsk_tests_page_sec_1 What does it do? These tests allow either: - An FSK transmit modem to feed an FSK receive modem, of the same type, through a telephone line model. BER testing is then used to evaluate performance under various line conditions. This is effective for testing the basic performance of the receive modem. It is also the only test mode provided for evaluating the transmit modem. - An FSK receive modem is used to decode FSK audio, stored in a file. This is good way to evaluate performance with audio recorded from other models of modem, and with real world problematic telephone lines. \section fsk_tests_page_sec_2 How does it work? */ #if defined(HAVE_CONFIG_H) #include "config.h" #endif #include #include #include #include #include #include //#if defined(WITH_SPANDSP_INTERNALS) #define SPANDSP_EXPOSE_INTERNAL_STRUCTURES //#endif #include "spandsp.h" #include "spandsp-sim.h" #define BLOCK_LEN 160 #define OUTPUT_FILE_NAME "fsk.wav" char *decode_test_file = NULL; both_ways_line_model_state_t *model; int rx_bits = 0; int cutoff_test_carrier = FALSE; static void rx_status(void *user_data, int status) { printf("FSK rx status is %s (%d)\n", signal_status_to_str(status), status); } /*- End of function --------------------------------------------------------*/ static void tx_status(void *user_data, int status) { printf("FSK tx status is %s (%d)\n", signal_status_to_str(status), status); } /*- End of function --------------------------------------------------------*/ static void put_bit(void *user_data, int bit) { if (bit < 0) { rx_status(user_data, bit); return; } printf("Rx bit %d - %d\n", rx_bits++, bit); } /*- End of function --------------------------------------------------------*/ static void cutoff_test_rx_status(void *user_data, int status) { printf("FSK rx status is %s (%d)\n", signal_status_to_str(status), status); switch (status) { case SIG_STATUS_CARRIER_UP: cutoff_test_carrier = TRUE; break; case SIG_STATUS_CARRIER_DOWN: cutoff_test_carrier = FALSE; break; } } /*- End of function --------------------------------------------------------*/ static void cutoff_test_put_bit(void *user_data, int bit) { if (bit < 0) { cutoff_test_rx_status(user_data, bit); return; } } /*- End of function --------------------------------------------------------*/ static void reporter(void *user_data, int reason, bert_results_t *results) { int channel; channel = (int) (intptr_t) user_data; switch (reason) { case BERT_REPORT_SYNCED: fprintf(stderr, "%d: BERT report synced\n", channel); break; case BERT_REPORT_UNSYNCED: fprintf(stderr, "%d: BERT report unsync'ed\n", channel); break; case BERT_REPORT_REGULAR: fprintf(stderr, "%d: BERT report regular - %d bits, %d bad bits, %d resyncs\n", channel, results->total_bits, results->bad_bits, results->resyncs); break; case BERT_REPORT_GT_10_2: fprintf(stderr, "%d: BERT report > 1 in 10^2\n", channel); break; case BERT_REPORT_LT_10_2: fprintf(stderr, "%d: BERT report < 1 in 10^2\n", channel); break; case BERT_REPORT_LT_10_3: fprintf(stderr, "%d: BERT report < 1 in 10^3\n", channel); break; case BERT_REPORT_LT_10_4: fprintf(stderr, "%d: BERT report < 1 in 10^4\n", channel); break; case BERT_REPORT_LT_10_5: fprintf(stderr, "%d: BERT report < 1 in 10^5\n", channel); break; case BERT_REPORT_LT_10_6: fprintf(stderr, "%d: BERT report < 1 in 10^6\n", channel); break; case BERT_REPORT_LT_10_7: fprintf(stderr, "%d: BERT report < 1 in 10^7\n", channel); break; default: fprintf(stderr, "%d: BERT report reason %d\n", channel, reason); break; } } /*- End of function --------------------------------------------------------*/ int main(int argc, char *argv[]) { fsk_tx_state_t *caller_tx; fsk_rx_state_t *caller_rx; fsk_tx_state_t *answerer_tx; fsk_rx_state_t *answerer_rx; bert_state_t caller_bert; bert_state_t answerer_bert; bert_results_t bert_results; power_meter_t caller_meter; power_meter_t answerer_meter; int16_t caller_amp[BLOCK_LEN]; int16_t answerer_amp[BLOCK_LEN]; int16_t caller_model_amp[BLOCK_LEN]; int16_t answerer_model_amp[BLOCK_LEN]; int16_t out_amp[2*BLOCK_LEN]; SNDFILE *inhandle; SNDFILE *outhandle; int outframes; int i; int j; int samples; int test_bps; int noise_level; int noise_sweep; int bits_per_test; int line_model_no; int modem_under_test_1; int modem_under_test_2; int modems_set; int log_audio; int channel_codec; int rbs_pattern; int on_at; int off_at; tone_gen_descriptor_t tone_desc; tone_gen_state_t tone_tx; int opt; channel_codec = MUNGE_CODEC_NONE; rbs_pattern = 0; line_model_no = 0; decode_test_file = NULL; noise_sweep = FALSE; modem_under_test_1 = FSK_V21CH1; modem_under_test_2 = FSK_V21CH2; log_audio = FALSE; modems_set = 0; while ((opt = getopt(argc, argv, "c:d:lm:nr:s:")) != -1) { switch (opt) { case 'c': channel_codec = atoi(optarg); break; case 'd': decode_test_file = optarg; break; case 'l': log_audio = TRUE; break; case 'm': line_model_no = atoi(optarg); break; case 'n': noise_sweep = TRUE; break; case 'r': rbs_pattern = atoi(optarg); break; case 's': switch (modems_set++) { case 0: modem_under_test_1 = atoi(optarg); break; case 1: modem_under_test_2 = atoi(optarg); break; } break; default: //usage(); exit(2); break; } } if (modem_under_test_1 >= 0) printf("Modem channel 1 is '%s'\n", preset_fsk_specs[modem_under_test_1].name); if (modem_under_test_2 >= 0) printf("Modem channel 2 is '%s'\n", preset_fsk_specs[modem_under_test_2].name); outhandle = NULL; if (log_audio) { if ((outhandle = sf_open_telephony_write(OUTPUT_FILE_NAME, 2)) == NULL) { fprintf(stderr, " Cannot create audio file '%s'\n", OUTPUT_FILE_NAME); exit(2); } } noise_level = -200; bits_per_test = 0; inhandle = NULL; memset(caller_amp, 0, sizeof(*caller_amp)); memset(answerer_amp, 0, sizeof(*answerer_amp)); memset(caller_model_amp, 0, sizeof(*caller_model_amp)); memset(answerer_model_amp, 0, sizeof(*answerer_model_amp)); power_meter_init(&caller_meter, 7); power_meter_init(&answerer_meter, 7); if (decode_test_file) { if ((inhandle = sf_open_telephony_read(decode_test_file, 1)) == NULL) { fprintf(stderr, " Cannot open audio file '%s'\n", decode_test_file); exit(2); } caller_rx = fsk_rx_init(NULL, &preset_fsk_specs[modem_under_test_1], FSK_FRAME_MODE_SYNC, put_bit, NULL); fsk_rx_set_modem_status_handler(caller_rx, rx_status, (void *) &caller_rx); test_bps = preset_fsk_specs[modem_under_test_1].baud_rate; for (;;) { samples = sf_readf_short(inhandle, caller_model_amp, BLOCK_LEN); if (samples < BLOCK_LEN) break; for (i = 0; i < samples; i++) power_meter_update(&caller_meter, caller_model_amp[i]); fsk_rx(caller_rx, caller_model_amp, samples); } if (sf_close(inhandle) != 0) { fprintf(stderr, " Cannot close audio file '%s'\n", decode_test_file); exit(2); } } else { printf("Test cutoff level\n"); caller_rx = fsk_rx_init(NULL, &preset_fsk_specs[modem_under_test_1], FSK_FRAME_MODE_SYNC, cutoff_test_put_bit, NULL); fsk_rx_signal_cutoff(caller_rx, -30.0f); fsk_rx_set_modem_status_handler(caller_rx, cutoff_test_rx_status, (void *) &caller_rx); on_at = 0; for (i = -40; i < -25; i++) { tone_gen_descriptor_init(&tone_desc, 1500, i, 0, 0, 1, 0, 0, 0, TRUE); tone_gen_init(&tone_tx, &tone_desc); for (j = 0; j < 10; j++) { samples = tone_gen(&tone_tx, caller_model_amp, 160); fsk_rx(caller_rx, caller_model_amp, samples); } if (cutoff_test_carrier) break; } on_at = i; off_at = 0; for ( ; i > -40; i--) { tone_gen_descriptor_init(&tone_desc, 1500, i, 0, 0, 1, 0, 0, 0, TRUE); tone_gen_init(&tone_tx, &tone_desc); for (j = 0; j < 10; j++) { samples = tone_gen(&tone_tx, caller_model_amp, 160); fsk_rx(caller_rx, caller_model_amp, samples); } if (!cutoff_test_carrier) break; } off_at = i; printf("Carrier on at %d, off at %d\n", on_at, off_at); if (on_at < -29 || on_at > -26 || off_at < -35 || off_at > -31) { printf("Tests failed.\n"); exit(2); } printf("Test with BERT\n"); test_bps = preset_fsk_specs[modem_under_test_1].baud_rate; if (modem_under_test_1 >= 0) { caller_tx = fsk_tx_init(NULL, &preset_fsk_specs[modem_under_test_1], (get_bit_func_t) bert_get_bit, &caller_bert); fsk_tx_set_modem_status_handler(caller_tx, tx_status, (void *) &caller_tx); answerer_rx = fsk_rx_init(NULL, &preset_fsk_specs[modem_under_test_1], FSK_FRAME_MODE_SYNC, (put_bit_func_t) bert_put_bit, &answerer_bert); fsk_rx_set_modem_status_handler(answerer_rx, rx_status, (void *) &answerer_rx); } if (modem_under_test_2 >= 0) { answerer_tx = fsk_tx_init(NULL, &preset_fsk_specs[modem_under_test_2], (get_bit_func_t) bert_get_bit, &answerer_bert); fsk_tx_set_modem_status_handler(answerer_tx, tx_status, (void *) &answerer_tx); caller_rx = fsk_rx_init(NULL, &preset_fsk_specs[modem_under_test_2], FSK_FRAME_MODE_SYNC, (put_bit_func_t) bert_put_bit, &caller_bert); fsk_rx_set_modem_status_handler(caller_rx, rx_status, (void *) &caller_rx); } test_bps = preset_fsk_specs[modem_under_test_1].baud_rate; bits_per_test = 500000; noise_level = -24; bert_init(&caller_bert, bits_per_test, BERT_PATTERN_ITU_O152_11, test_bps, 20); bert_set_report(&caller_bert, 100000, reporter, (void *) (intptr_t) 1); bert_init(&answerer_bert, bits_per_test, BERT_PATTERN_ITU_O152_11, test_bps, 20); bert_set_report(&answerer_bert, 100000, reporter, (void *) (intptr_t) 2); if ((model = both_ways_line_model_init(line_model_no, (float) noise_level, -15.0f, -15.0f, line_model_no, (float) noise_level, -15.0f, -15.0f, channel_codec, rbs_pattern)) == NULL) { fprintf(stderr, " Failed to create line model\n"); exit(2); } for (;;) { samples = fsk_tx(caller_tx, caller_amp, BLOCK_LEN); for (i = 0; i < samples; i++) power_meter_update(&caller_meter, caller_amp[i]); samples = fsk_tx(answerer_tx, answerer_amp, BLOCK_LEN); for (i = 0; i < samples; i++) power_meter_update(&answerer_meter, answerer_amp[i]); both_ways_line_model(model, caller_model_amp, caller_amp, answerer_model_amp, answerer_amp, samples); //printf("Powers %10.5fdBm0 %10.5fdBm0\n", power_meter_current_dbm0(&caller_meter), power_meter_current_dbm0(&answerer_meter)); fsk_rx(answerer_rx, caller_model_amp, samples); for (i = 0; i < samples; i++) out_amp[2*i] = caller_model_amp[i]; for ( ; i < BLOCK_LEN; i++) out_amp[2*i] = 0; fsk_rx(caller_rx, answerer_model_amp, samples); for (i = 0; i < samples; i++) out_amp[2*i + 1] = answerer_model_amp[i]; for ( ; i < BLOCK_LEN; i++) out_amp[2*i + 1] = 0; if (log_audio) { outframes = sf_writef_short(outhandle, out_amp, BLOCK_LEN); if (outframes != BLOCK_LEN) { fprintf(stderr, " Error writing audio file\n"); exit(2); } } if (samples < BLOCK_LEN) { bert_result(&caller_bert, &bert_results); fprintf(stderr, "%ddB AWGN, %d bits, %d bad bits, %d resyncs\n", noise_level, bert_results.total_bits, bert_results.bad_bits, bert_results.resyncs); if (!noise_sweep) { if (bert_results.total_bits != bits_per_test - 43 || bert_results.bad_bits != 0 || bert_results.resyncs != 0) { printf("Tests failed.\n"); exit(2); } } bert_result(&answerer_bert, &bert_results); fprintf(stderr, "%ddB AWGN, %d bits, %d bad bits, %d resyncs\n", noise_level, bert_results.total_bits, bert_results.bad_bits, bert_results.resyncs); if (!noise_sweep) { if (bert_results.total_bits != bits_per_test - 43 || bert_results.bad_bits != 0 || bert_results.resyncs != 0) { printf("Tests failed.\n"); exit(2); } break; } /* Put a little silence between the chunks in the file. */ memset(out_amp, 0, sizeof(out_amp)); if (log_audio) { for (i = 0; i < 200; i++) outframes = sf_writef_short(outhandle, out_amp, BLOCK_LEN); } if (modem_under_test_1 >= 0) { caller_tx = fsk_tx_init(NULL, &preset_fsk_specs[modem_under_test_1], (get_bit_func_t) bert_get_bit, &caller_bert); fsk_tx_set_modem_status_handler(caller_tx, tx_status, (void *) &caller_tx); answerer_rx = fsk_rx_init(NULL, &preset_fsk_specs[modem_under_test_1], FSK_FRAME_MODE_SYNC, (put_bit_func_t) bert_put_bit, &answerer_bert); fsk_rx_set_modem_status_handler(answerer_rx, rx_status, (void *) &answerer_rx); } if (modem_under_test_2 >= 0) { answerer_tx = fsk_tx_init(NULL, &preset_fsk_specs[modem_under_test_2], (get_bit_func_t) bert_get_bit, &answerer_bert); fsk_tx_set_modem_status_handler(answerer_tx, tx_status, (void *) &answerer_tx); caller_rx = fsk_rx_init(NULL, &preset_fsk_specs[modem_under_test_2], FSK_FRAME_MODE_SYNC, (put_bit_func_t) bert_put_bit, &caller_bert); fsk_rx_set_modem_status_handler(caller_rx, rx_status, (void *) &caller_rx); } noise_level++; if ((model = both_ways_line_model_init(line_model_no, (float) noise_level, line_model_no, -15.0f, -15.0f, noise_level, channel_codec, -15.0f, -15.0f, 0)) == NULL) { fprintf(stderr, " Failed to create line model\n"); exit(2); } bert_init(&caller_bert, bits_per_test, BERT_PATTERN_ITU_O152_11, test_bps, 20); bert_set_report(&caller_bert, 100000, reporter, (void *) (intptr_t) 1); bert_init(&answerer_bert, bits_per_test, BERT_PATTERN_ITU_O152_11, test_bps, 20); bert_set_report(&answerer_bert, 100000, reporter, (void *) (intptr_t) 2); } } printf("Tests passed.\n"); } if (log_audio) { if (sf_close(outhandle) != 0) { fprintf(stderr, " Cannot close audio file '%s'\n", OUTPUT_FILE_NAME); exit(2); } } return 0; } /*- End of function --------------------------------------------------------*/ /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/tests/vector_int_tests.c0000664000175000017500000001023611422612267017510 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * complex_vector_int_tests.c * * Written by Steve Underwood * * Copyright (C) 2006 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License version 2, as * published by the Free Software Foundation. * * 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., 675 Mass Ave, Cambridge, MA 02139, USA. */ #if defined(HAVE_CONFIG_H) #include "config.h" #endif #include #include #include #include #include "spandsp.h" static int32_t vec_dot_prodi16_dumb(const int16_t x[], const int16_t y[], int n) { int32_t z; int i; z = 0; for (i = 0; i < n; i++) z += (int32_t) x[i]*(int32_t) y[i]; return z; } /*- End of function --------------------------------------------------------*/ static int test_vec_dot_prodi16(void) { int i; int32_t za; int32_t zb; int16_t x[99]; int16_t y[99]; for (i = 0; i < 99; i++) { x[i] = rand(); y[i] = rand(); } for (i = 1; i < 99; i++) { za = vec_dot_prodi16(x, y, i); zb = vec_dot_prodi16_dumb(x, y, i); if (za != zb) { printf("Tests failed\n"); exit(2); } } return 0; } /*- End of function --------------------------------------------------------*/ static int32_t vec_min_maxi16_dumb(const int16_t x[], int n, int16_t out[]) { int i; int16_t min; int16_t max; int16_t temp; int32_t z; max = INT16_MIN; min = INT16_MAX; for (i = 0; i < n; i++) { temp = x[i]; if (temp > max) max = temp; /*endif*/ if (temp < min) min = temp; /*endif*/ } /*endfor*/ out[0] = max; out[1] = min; z = abs(min); if (z > max) return z; return max; } /*- End of function --------------------------------------------------------*/ static int test_vec_min_maxi16(void) { int i; int32_t za; int32_t zb; int16_t x[99]; int16_t y[99]; int16_t outa[2]; int16_t outb[2]; for (i = 0; i < 99; i++) { x[i] = rand(); y[i] = rand(); } x[42] = -32768; za = vec_min_maxi16_dumb(x, 99, outa); zb = vec_min_maxi16(x, 99, outb); if (za != zb || outa[0] != outb[0] || outa[1] != outb[1]) { printf("Tests failed\n"); exit(2); } return 0; } /*- End of function --------------------------------------------------------*/ static int test_vec_circular_dot_prodi16(void) { int i; int j; int pos; int len; int32_t za; int32_t zb; int16_t x[99]; int16_t y[99]; /* Verify that we can do circular sample buffer "dot" linear coefficient buffer operations properly, by doing two sub-dot products. */ for (i = 0; i < 99; i++) { x[i] = rand(); y[i] = rand(); } len = 95; for (pos = 0; pos < len; pos++) { za = vec_circular_dot_prodi16(x, y, len, pos); zb = 0; for (i = 0; i < len; i++) { j = (pos + i) % len; zb += (int32_t) x[j]*(int32_t) y[i]; } if (za != zb) { printf("Tests failed\n"); exit(2); } } return 0; } /*- End of function --------------------------------------------------------*/ int main(int argc, char *argv[]) { test_vec_dot_prodi16(); test_vec_min_maxi16(); test_vec_circular_dot_prodi16(); printf("Tests passed.\n"); return 0; } /*- End of function --------------------------------------------------------*/ /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/tests/echo_tests.c0000664000175000017500000014777611422612266016275 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * echo_tests.c * * Written by Steve Underwood * * Copyright (C) 2001 Steve Underwood * * Based on a bit from here, a bit from there, eye of toad, * ear of bat, etc - plus, of course, my own 2 cents. * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License version 2, as * published by the Free Software Foundation. * * 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., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \page echo_can_tests_page Line echo cancellation for voice tests \section echo_can_tests_page_sec_1 What does it do? The echo cancellation tests test the echo cancellor against the G.168 spec. Not all the tests in G.168 are fully implemented at this time. \section echo_can_tests_page_sec_2 How does it work? \section echo_can_tests_page_sec_2 How do I use it? */ #if defined(HAVE_CONFIG_H) #include "config.h" #endif #if defined(HAVE_FL_FL_H) && defined(HAVE_FL_FL_CARTESIAN_H) && defined(HAVE_FL_FL_AUDIO_METER_H) #define ENABLE_GUI #endif #include #include #include #include #include #include #include #define GEN_CONST #include //#if defined(WITH_SPANDSP_INTERNALS) #define SPANDSP_EXPOSE_INTERNAL_STRUCTURES //#endif #include "spandsp.h" #include "spandsp/g168models.h" #include "spandsp-sim.h" #if defined(ENABLE_GUI) #include "echo_monitor.h" #endif #if !defined(NULL) #define NULL (void *) 0 #endif #define TEST_EC_TAPS 256 #define RESIDUE_FILE_NAME "residue_sound.wav" /* The key signal names, as defined in G.168 +--------------+ +------------+ | | Sin | | Sgen -->--| Echoey |--->---| Echo |-->-- Sout | | | | | World | Rout | Canceller | --<--| |---<---| |--<-- Rin | | | | +--------------+ +------------+ Echoey world model. Munge means linear->PCM->linear distortion. +-------------------------+ | | Sin Sgen -->--|-->munge--->sum-->munge--|--->--- | +--> | | FIR | Rout --<--|--------+--------munge<--|---<--- | | +-------------------------+ */ typedef struct { const char *name; int max; int cur; float gain; SNDFILE *handle; int16_t signal[SAMPLE_RATE]; } signal_source_t; /* Level measurement device, specified in G.168 section 6.4.1.2.1 */ typedef struct { int type; fir_float_state_t *fir; float history[35*8]; int pos; float factor; float power; float peak; } level_measurement_device_t; typedef struct { int model_no; float erl; fir32_state_t impulse; float gain; int munging_codec; } channel_model_state_t; channel_model_state_t chan_model; signal_source_t local_css; signal_source_t far_css; awgn_state_t local_noise_source; awgn_state_t far_noise_source; SNDFILE *residue_handle; int16_t residue_sound[SAMPLE_RATE]; int residue_cur = 0; level_measurement_device_t *power_meter_1; level_measurement_device_t *power_meter_2; int line_model_no; int supp_line_model_no; int munger; level_measurement_device_t *rin_power_meter; /* Also known as Lrin */ level_measurement_device_t *rout_power_meter; level_measurement_device_t *sin_power_meter; level_measurement_device_t *sout_power_meter; /* Also known as Lret (pre NLP value is known as Lres) */ level_measurement_device_t *sgen_power_meter; #define RESULT_CHANNELS 7 SNDFILE *result_handle; int16_t result_sound[SAMPLE_RATE*RESULT_CHANNELS]; int result_cur; const char *test_name; int quiet; int use_gui; float erl; /* Dump estimated echo response */ static void dump_ec_state(echo_can_state_t *ctx) { int i; FILE *f; if ((f = fopen("echo_tests_state.txt", "wt")) == NULL) return; for (i = 0; i < TEST_EC_TAPS; i++) fprintf(f, "%f\n", (float) ctx->fir_taps16[0][i]/(1 << 15)); fclose(f); } /*- End of function --------------------------------------------------------*/ static inline void put_residue(int16_t amp) { int outframes; residue_sound[residue_cur++] = amp; if (residue_cur >= SAMPLE_RATE) { outframes = sf_writef_short(residue_handle, residue_sound, residue_cur); if (outframes != residue_cur) { fprintf(stderr, " Error writing residue sound\n"); exit(2); } residue_cur = 0; } } /*- End of function --------------------------------------------------------*/ static void signal_load(signal_source_t *sig, const char *name) { sig->handle = sf_open_telephony_read(name, 1); sig->name = name; sig->max = sf_readf_short(sig->handle, sig->signal, SAMPLE_RATE); if (sig->max < 0) { fprintf(stderr, " Error reading sound file '%s'\n", sig->name); exit(2); } } /*- End of function --------------------------------------------------------*/ static void signal_free(signal_source_t *sig) { if (sf_close(sig->handle) != 0) { fprintf(stderr, " Cannot close sound file '%s'\n", sig->name); exit(2); } } /*- End of function --------------------------------------------------------*/ static void signal_restart(signal_source_t *sig, float gain) { sig->cur = 0; sig->gain = powf(10.0f, gain/20.0f); } /*- End of function --------------------------------------------------------*/ static int16_t signal_amp(signal_source_t *sig) { int16_t tx; tx = sig->signal[sig->cur++]*sig->gain; if (sig->cur >= sig->max) sig->cur = 0; return tx; } /*- End of function --------------------------------------------------------*/ static level_measurement_device_t *level_measurement_device_create(int type) { level_measurement_device_t *dev; int i; dev = (level_measurement_device_t *) malloc(sizeof(level_measurement_device_t)); dev->fir = (fir_float_state_t *) malloc(sizeof(fir_float_state_t)); fir_float_create(dev->fir, level_measurement_bp_coeffs, sizeof(level_measurement_bp_coeffs)/sizeof(float)); for (i = 0; i < 35*8; i++) dev->history[i] = 0.0f; dev->pos = 0; dev->factor = expf(-1.0f/((float) SAMPLE_RATE*0.035f)); dev->power = 0; dev->type = type; return dev; } /*- End of function --------------------------------------------------------*/ #if 0 static void level_measurement_device_reset(level_measurement_device_t *dev) { int i; for (i = 0; i < 35*8; i++) dev->history[i] = 0.0f; dev->pos = 0; dev->power = 0; dev->peak = 0.0f; } /*- End of function --------------------------------------------------------*/ static int level_measurement_device_release(level_measurement_device_t *s) { fir_float_free(s->fir); free(s->fir); free(s); return 0; } /*- End of function --------------------------------------------------------*/ #endif static float level_measurement_device_get_peak(level_measurement_device_t *dev) { return dev->peak; } /*- End of function --------------------------------------------------------*/ static float level_measurement_device_reset_peak(level_measurement_device_t *dev) { float power; power = dev->peak; dev->peak = -99.0f; return power; } /*- End of function --------------------------------------------------------*/ static float level_measurement_device(level_measurement_device_t *dev, int16_t amp) { float signal; float power; /* Level measurement device(s), specified in G.168 section 6.4.1.2.1 and 6.4.1.2.2 */ signal = fir_float(dev->fir, amp); signal *= signal; if (dev->type == 0) { /* Level measurement device, specified in G.168 section 6.4.1.2.1 - level measurement device. This version uses a single pole estimator.*/ dev->power = dev->power*dev->factor + signal*(1.0f - dev->factor); signal = sqrtf(dev->power); } else { /* Level measurement device, specified in G.168 section 6.4.1.2.2 - level measurement device for peaks. This version uses a sliding window estimator. */ dev->power += (signal - dev->history[dev->pos]); dev->history[dev->pos++] = signal; signal = sqrtf(dev->power/(35.8f*8.0f)); } if (signal <= 0.0f) return -99.0f; power = DBM0_MAX_POWER + 20.0f*log10f(signal/32767.0f); if (power > dev->peak) dev->peak = power; return power; } /*- End of function --------------------------------------------------------*/ static void level_measurements_create(int type) { rin_power_meter = level_measurement_device_create(type); rout_power_meter = level_measurement_device_create(type); sin_power_meter = level_measurement_device_create(type); sout_power_meter = level_measurement_device_create(type); sgen_power_meter = level_measurement_device_create(type); } /*- End of function --------------------------------------------------------*/ static void level_measurements_update(int16_t rin, int16_t sin, int16_t rout, int16_t sout, int16_t sgen) { level_measurement_device(rin_power_meter, rin); level_measurement_device(rout_power_meter, rout); level_measurement_device(sin_power_meter, sin); level_measurement_device(sout_power_meter, sout); level_measurement_device(sgen_power_meter, sgen); } /*- End of function --------------------------------------------------------*/ static void level_measurements_reset_peaks(void) { level_measurement_device_reset_peak(rin_power_meter); level_measurement_device_reset_peak(rout_power_meter); level_measurement_device_reset_peak(sin_power_meter); level_measurement_device_reset_peak(sout_power_meter); level_measurement_device_reset_peak(sgen_power_meter); } /*- End of function --------------------------------------------------------*/ static void print_results(void) { if (!quiet) printf("test model ERL time Max Rin Max Rout Max Sgen Max Sin Max Sout\n"); printf("%-4s %-1d %-5.1f%6.2fs%9.2f%9.2f%9.2f%9.2f%9.2f\n", test_name, chan_model.model_no, 20.0f*log10f(-chan_model.erl), 0.0f, //test_clock, level_measurement_device_get_peak(rin_power_meter), level_measurement_device_get_peak(rout_power_meter), level_measurement_device_get_peak(sgen_power_meter), level_measurement_device_get_peak(sin_power_meter), level_measurement_device_get_peak(sout_power_meter)); } /*- End of function --------------------------------------------------------*/ static int channel_model_create(channel_model_state_t *chan, int model, float erl, int codec) { static const int32_t line_model_clear_coeffs[] = { 32768 }; static const int32_t *line_models[] = { line_model_clear_coeffs, line_model_d2_coeffs, line_model_d3_coeffs, line_model_d4_coeffs, line_model_d5_coeffs, line_model_d6_coeffs, line_model_d7_coeffs, line_model_d8_coeffs, line_model_d9_coeffs }; static const int line_model_sizes[] = { sizeof(line_model_clear_coeffs)/sizeof(line_model_clear_coeffs[0]), sizeof(line_model_d2_coeffs)/sizeof(line_model_d2_coeffs[0]), sizeof(line_model_d3_coeffs)/sizeof(line_model_d3_coeffs[0]), sizeof(line_model_d4_coeffs)/sizeof(line_model_d4_coeffs[0]), sizeof(line_model_d5_coeffs)/sizeof(line_model_d5_coeffs[0]), sizeof(line_model_d6_coeffs)/sizeof(line_model_d6_coeffs[0]), sizeof(line_model_d7_coeffs)/sizeof(line_model_d7_coeffs[0]), sizeof(line_model_d8_coeffs)/sizeof(line_model_d8_coeffs[0]), sizeof(line_model_d9_coeffs)/sizeof(line_model_d9_coeffs[0]) }; static const float ki[] = { 3.05e-5f, LINE_MODEL_D2_GAIN, LINE_MODEL_D3_GAIN, LINE_MODEL_D4_GAIN, LINE_MODEL_D5_GAIN, LINE_MODEL_D6_GAIN, LINE_MODEL_D7_GAIN, LINE_MODEL_D8_GAIN, LINE_MODEL_D9_GAIN }; if (model < 0 || model >= (int) (sizeof(line_model_sizes)/sizeof(line_model_sizes[0]))) return -1; fir32_create(&chan->impulse, line_models[model], line_model_sizes[model]); chan->gain = 32768.0f*powf(10.0f, erl/20.0f)*ki[model]; chan->munging_codec = codec; chan->model_no = model; chan->erl = erl; return 0; } /*- End of function --------------------------------------------------------*/ static int16_t channel_model(channel_model_state_t *chan, int16_t rout, int16_t sgen) { int16_t echo; int16_t sin; /* Channel modelling is merely simulating the effects of A-law or u-law distortion and using one of the echo models from G.168. Simulating the codec is very important, as this is usually the limiting factor in how much echo reduction is achieved. */ /* The far end signal will have been through codec munging. */ switch (chan->munging_codec) { case G711_ALAW: sgen = alaw_to_linear(linear_to_alaw(sgen)); break; case G711_ULAW: sgen = ulaw_to_linear(linear_to_ulaw(sgen)); break; } /* The local tx signal will usually have gone through codec munging before it reached the line's analogue area, where the echo occurs. */ switch (chan->munging_codec) { case G711_ALAW: rout = alaw_to_linear(linear_to_alaw(rout)); break; case G711_ULAW: rout = ulaw_to_linear(linear_to_ulaw(rout)); break; } /* Now we need to model the echo. We only model a single analogue segment, as per the G.168 spec. However, there will generally be near end and far end analogue/echoey segments in the real world, unless an end is purely digital. */ echo = fir32(&chan->impulse, rout*chan->gain); sin = saturate(echo + sgen); /* This mixed echo and far end signal will have been through codec munging when it came back into the digital network. */ switch (chan->munging_codec) { case G711_ALAW: sin = alaw_to_linear(linear_to_alaw(sin)); break; case G711_ULAW: sin = ulaw_to_linear(linear_to_ulaw(sin)); break; } return sin; } /*- End of function --------------------------------------------------------*/ static void write_log_files(int16_t rout, int16_t sin) { #if 0 fprintf(flevel, "%f\t%f\t%f\t%f\n", LRin, LSin, LSout, LSgen); fprintf(fdump, "%d %d %d", ctx->tx, ctx->rx, ctx->clean); fprintf(fdump, " %d %d %d %d %d %d %d %d %d %d\n", ctx->clean_nlp, ctx->Ltx, ctx->Lrx, ctx->Lclean, (ctx->nonupdate_dwell > 0), ctx->adapt, ctx->Lclean_bg, ctx->Pstates, ctx->Lbgn_upper, ctx->Lbgn); #endif } /*- End of function --------------------------------------------------------*/ static int16_t silence(void) { return 0; } /*- End of function --------------------------------------------------------*/ static int16_t local_css_signal(void) { return signal_amp(&local_css); } /*- End of function --------------------------------------------------------*/ static int16_t far_css_signal(void) { return signal_amp(&far_css); } /*- End of function --------------------------------------------------------*/ static int16_t local_noise_signal(void) { return awgn(&local_noise_source); } /*- End of function --------------------------------------------------------*/ static int16_t far_noise_signal(void) { return awgn(&far_noise_source); } /*- End of function --------------------------------------------------------*/ #if 0 static int16_t local_hoth_noise_signal(void) { static float hoth_noise = 0.0; hoth_noise = hoth_noise*0.625 + awgn(&local_noise_source)*0.375; return (int16_t) hoth_noise; } /*- End of function --------------------------------------------------------*/ #endif static int16_t far_hoth_noise_signal(void) { static float hoth_noise = 0.0; hoth_noise = hoth_noise*0.625 + awgn(&far_noise_source)*0.375; return (int16_t) hoth_noise; } /*- End of function --------------------------------------------------------*/ static void run_test(echo_can_state_t *ctx, int16_t (*tx_source)(void), int16_t (*rx_source)(void), int period) { int i; int16_t rin; int16_t rout; int16_t sin; int16_t sout; int16_t sgen; int outframes; for (i = 0; i < period*SAMPLE_RATE/1000; i++) { rin = tx_source(); sgen = rx_source(); rout = echo_can_hpf_tx(ctx, rin); sin = channel_model(&chan_model, rout, sgen); sout = echo_can_update(ctx, rout, sin); level_measurements_update(rin, sin, rout, sout, sgen); //residue = 100.0f*pp1/pp2; //put_residue(residue); //put_residue(clean - rx); #if defined(ENABLE_GUI) if (use_gui) echo_can_monitor_can_update(ctx->fir_taps16[0], TEST_EC_TAPS); #endif result_sound[result_cur++] = rin; result_sound[result_cur++] = sgen; result_sound[result_cur++] = sin; result_sound[result_cur++] = rout; result_sound[result_cur++] = sout; result_sound[result_cur++] = sout - sgen; result_sound[result_cur++] = 0; // TODO: insert the EC's internal status here if (result_cur >= RESULT_CHANNELS*SAMPLE_RATE) { outframes = sf_writef_short(result_handle, result_sound, result_cur/RESULT_CHANNELS); if (outframes != result_cur/RESULT_CHANNELS) { fprintf(stderr, " Error writing result sound\n"); exit(2); } result_cur = 0; } } #if defined(ENABLE_GUI) if (use_gui) echo_can_monitor_can_update(ctx->fir_taps16[0], TEST_EC_TAPS); #endif if (result_cur >= 0) { outframes = sf_writef_short(result_handle, result_sound, result_cur/RESULT_CHANNELS); if (outframes != result_cur/RESULT_CHANNELS) { fprintf(stderr, " Error writing result sound\n"); exit(2); } result_cur = 0; } } /*- End of function --------------------------------------------------------*/ static void print_test_title(const char *title) { if (quiet == FALSE) printf(title); } /*- End of function --------------------------------------------------------*/ static int perform_test_sanity(void) { echo_can_state_t *ctx; int i; int16_t rx; int16_t tx; int16_t clean; int far_tx; int16_t far_sound[SAMPLE_RATE]; int16_t result_sound[64000]; int result_cur; int outframes; int local_cur; int far_cur; //int32_t coeffs[200][128]; //int coeff_index; print_test_title("Performing basic sanity test\n"); ctx = echo_can_init(TEST_EC_TAPS, 0); local_cur = 0; far_cur = 0; result_cur = 0; echo_can_flush(ctx); /* Converge the canceller */ signal_restart(&local_css, 0.0f); run_test(ctx, silence, silence, 200); run_test(ctx, local_css_signal, silence, 5000); echo_can_adaption_mode(ctx, ECHO_CAN_USE_ADAPTION | ECHO_CAN_USE_NLP | ECHO_CAN_USE_CNG); run_test(ctx, local_css_signal, silence, 5000); echo_can_adaption_mode(ctx, ECHO_CAN_USE_ADAPTION); for (i = 0; i < SAMPLE_RATE*10; i++) { tx = local_css_signal(); #if 0 if ((i/10000)%10 == 9) { /* Inject a burst of far sound */ if (far_cur >= far_max) { far_max = sf_readf_short(farhandle, far_sound, SAMPLE_RATE); if (far_max < 0) { fprintf(stderr, " Error reading far sound\n"); exit(2); } if (far_max == 0) break; far_cur = 0; } far_tx = far_sound[far_cur++]; } else { far_tx = 0; } #else far_sound[0] = 0; far_tx = 0; #endif rx = channel_model(&chan_model, tx, far_tx); //rx += awgn(&far_noise_source); //tx += awgn(&far_noise_source); clean = echo_can_update(ctx, tx, rx); #if defined(XYZZY) if (i%SAMPLE_RATE == 0) { if (coeff_index < 200) { for (j = 0; j < ctx->taps; j++) coeffs[coeff_index][j] = ctx->fir_taps32[j]; coeff_index++; } } #endif result_sound[result_cur++] = tx; result_sound[result_cur++] = rx; result_sound[result_cur++] = clean - far_tx; //result_sound[result_cur++] = ctx->tx_power[2]; //result_sound[result_cur++] = ctx->tx_power[1]; ////result_sound[result_cur++] = (ctx->tx_power[1] > 64) ? SAMPLE_RATE : -SAMPLE_RATE; //result_sound[result_cur++] = ctx->tap_set*SAMPLE_RATE; //result_sound[result_cur++] = (ctx->nonupdate_dwell > 0) ? SAMPLE_RATE : -SAMPLE_RATE; //result_sound[result_cur++] = ctx->latest_correction >> 8; //result_sound[result_cur++] = level_measurement_device(tx)/(16.0*65536.0); //result_sound[result_cur++] = level_measurement_device(tx)/4096.0; ////result_sound[result_cur++] = (ctx->tx_power[1] > ctx->rx_power[0]) ? SAMPLE_RATE : -SAMPLE_RATE; //result_sound[result_cur++] = (ctx->tx_power[1] > ctx->rx_power[0]) ? SAMPLE_RATE : -SAMPLE_RATE; //result_sound[result_cur++] = (ctx->narrowband_score)*5; // ? SAMPLE_RATE : -SAMPLE_RATE; //result_sound[result_cur++] = ctx->tap_rotate_counter*10; ////result_sound[result_cur++] = ctx->vad; put_residue(clean - far_tx); if (result_cur >= RESULT_CHANNELS*SAMPLE_RATE) { outframes = sf_writef_short(result_handle, result_sound, result_cur/RESULT_CHANNELS); if (outframes != result_cur/RESULT_CHANNELS) { fprintf(stderr, " Error writing result sound\n"); exit(2); } result_cur = 0; } } if (result_cur > 0) { outframes = sf_writef_short(result_handle, result_sound, result_cur/RESULT_CHANNELS); if (outframes != result_cur/RESULT_CHANNELS) { fprintf(stderr, " Error writing result sound\n"); exit(2); } } #if defined(XYZZY) for (j = 0; j < ctx->taps; j++) { for (i = 0; i < coeff_index; i++) fprintf(stderr, "%d ", coeffs[i][j]); fprintf(stderr, "\n"); } #endif echo_can_free(ctx); return 0; } /*- End of function --------------------------------------------------------*/ static int perform_test_2a(void) { echo_can_state_t *ctx; /* Test 2 - Convergence and steady state residual and returned echo level test */ /* Test 2A - Convergence and reconvergence test with NLP enabled */ print_test_title("Performing test 2A - Convergence and reconvergence test with NLP enabled\n"); ctx = echo_can_init(TEST_EC_TAPS, 0); echo_can_flush(ctx); echo_can_adaption_mode(ctx, ECHO_CAN_USE_ADAPTION | ECHO_CAN_USE_NLP); /* Test 2A (a) - Convergence test with NLP enabled */ /* Converge the canceller. */ run_test(ctx, silence, silence, 200); signal_restart(&local_css, 0.0f); run_test(ctx, local_css_signal, silence, 1000); level_measurements_reset_peaks(); run_test(ctx, local_css_signal, silence, 9000); print_results(); if (level_measurement_device_get_peak(sout_power_meter) > -65.0f) printf("Test failed\n"); else printf("Test passed\n"); /* Test 2A (b) - Reconvergence test with NLP enabled */ /* Make an abrupt change of channel characteristic, to another of the channel echo models. */ if (channel_model_create(&chan_model, supp_line_model_no, erl, munger)) { fprintf(stderr, " Failed to create line model\n"); exit(2); } signal_restart(&local_css, 0.0f); run_test(ctx, local_css_signal, silence, 1000); level_measurements_reset_peaks(); run_test(ctx, local_css_signal, silence, 9000); print_results(); if (level_measurement_device_get_peak(sout_power_meter) > -65.0f) printf("Test failed\n"); else printf("Test passed\n"); echo_can_free(ctx); return 0; } /*- End of function --------------------------------------------------------*/ static int perform_test_2b(void) { echo_can_state_t *ctx; /* Test 2 - Convergence and steady state residual and returned echo level test */ /* Test 2B - Convergence and reconverge with NLP disabled */ print_test_title("Performing test 2B - Convergence and reconverge with NLP disabled\n"); ctx = echo_can_init(TEST_EC_TAPS, 0); echo_can_flush(ctx); echo_can_adaption_mode(ctx, ECHO_CAN_USE_ADAPTION); signal_restart(&local_css, 0.0f); /* Test 2B (a) - Convergence test with NLP disabled */ /* Converge the canceller */ run_test(ctx, silence, silence, 200); run_test(ctx, local_css_signal, silence, 1000); level_measurements_reset_peaks(); run_test(ctx, local_css_signal, silence, 9000); print_results(); level_measurements_reset_peaks(); run_test(ctx, local_css_signal, silence, 170000); print_results(); if (level_measurement_device_get_peak(sout_power_meter) > -65.0) printf("Test failed\n"); else printf("Test passed\n"); /* Test 2B (b) - Reconvergence test with NLP disabled */ /* Make an abrupt change of channel characteristic, to another of the channel echo models. */ if (channel_model_create(&chan_model, supp_line_model_no, erl, munger)) { fprintf(stderr, " Failed to create line model\n"); exit(2); } run_test(ctx, local_css_signal, silence, 1000); level_measurements_reset_peaks(); run_test(ctx, local_css_signal, silence, 9000); print_results(); level_measurements_reset_peaks(); run_test(ctx, local_css_signal, silence, 170000); print_results(); if (level_measurement_device_get_peak(sout_power_meter) > -65.0) printf("Test failed\n"); else printf("Test passed\n"); echo_can_free(ctx); return 0; } /*- End of function --------------------------------------------------------*/ static int perform_test_2ca(void) { echo_can_state_t *ctx; /* Test 2 - Convergence and steady state residual and returned echo level test */ /* Test 2C(a) - Convergence with background noise present */ print_test_title("Performing test 2C(a) - Convergence with background noise present\n"); ctx = echo_can_init(TEST_EC_TAPS, 0); awgn_init_dbm0(&far_noise_source, 7162534, -50.0f); echo_can_flush(ctx); echo_can_adaption_mode(ctx, ECHO_CAN_USE_ADAPTION); /* Converge a canceller */ signal_restart(&local_css, 0.0f); run_test(ctx, silence, silence, 200); awgn_init_dbm0(&far_noise_source, 7162534, -40.0f); run_test(ctx, local_css_signal, far_hoth_noise_signal, 5000); /* Now freeze adaption, and measure the echo. */ echo_can_adaption_mode(ctx, 0); level_measurements_reset_peaks(); run_test(ctx, local_css_signal, silence, 5000); print_results(); if (level_measurement_device_get_peak(sout_power_meter) > level_measurement_device_get_peak(sgen_power_meter)) printf("Test failed\n"); else printf("Test passed\n"); echo_can_adaption_mode(ctx, ECHO_CAN_USE_ADAPTION); echo_can_free(ctx); return 0; } /*- End of function --------------------------------------------------------*/ static int perform_test_3a(void) { echo_can_state_t *ctx; /* Test 3 - Performance under double talk conditions */ /* Test 3A - Double talk test with low cancelled-end levels */ print_test_title("Performing test 3A - Double talk test with low cancelled-end levels\n"); ctx = echo_can_init(TEST_EC_TAPS, 0); echo_can_flush(ctx); echo_can_adaption_mode(ctx, ECHO_CAN_USE_ADAPTION); run_test(ctx, silence, silence, 200); signal_restart(&local_css, 0.0f); signal_restart(&far_css, -20.0f); /* Apply double talk, with a weak far end signal */ run_test(ctx, local_css_signal, far_css_signal, 5000); /* Now freeze adaption. */ echo_can_adaption_mode(ctx, 0); run_test(ctx, local_css_signal, silence, 500); /* Now measure the echo */ level_measurements_reset_peaks(); run_test(ctx, local_css_signal, silence, 5000); print_results(); if (level_measurement_device_get_peak(sout_power_meter) > level_measurement_device_get_peak(sgen_power_meter)) printf("Test failed\n"); else printf("Test passed\n"); echo_can_adaption_mode(ctx, ECHO_CAN_USE_ADAPTION); echo_can_free(ctx); return 0; } /*- End of function --------------------------------------------------------*/ static int perform_test_3ba(void) { echo_can_state_t *ctx; /* Test 3 - Performance under double talk conditions */ /* Test 3B(a) - Double talk stability test with high cancelled-end levels */ print_test_title("Performing test 3B(b) - Double talk stability test with high cancelled-end levels\n"); ctx = echo_can_init(TEST_EC_TAPS, 0); echo_can_flush(ctx); echo_can_adaption_mode(ctx, ECHO_CAN_USE_ADAPTION); run_test(ctx, silence, silence, 200); signal_restart(&local_css, 0.0f); signal_restart(&far_css, 0.0f); /* Converge the canceller */ run_test(ctx, local_css_signal, silence, 5000); /* Apply double talk */ run_test(ctx, local_css_signal, far_css_signal, 5000); /* Now freeze adaption. */ echo_can_adaption_mode(ctx, 0); run_test(ctx, local_css_signal, far_css_signal, 1000); /* Turn off the double talk. */ run_test(ctx, local_css_signal, silence, 500); /* Now measure the echo */ level_measurements_reset_peaks(); run_test(ctx, local_css_signal, silence, 5000); print_results(); echo_can_adaption_mode(ctx, ECHO_CAN_USE_ADAPTION); echo_can_free(ctx); return 0; } /*- End of function --------------------------------------------------------*/ static int perform_test_3bb(void) { echo_can_state_t *ctx; /* Test 3 - Performance under double talk conditions */ /* Test 3B(b) - Double talk stability test with low cancelled-end levels */ print_test_title("Performing test 3B(b) - Double talk stability test with low cancelled-end levels\n"); ctx = echo_can_init(TEST_EC_TAPS, 0); echo_can_flush(ctx); echo_can_adaption_mode(ctx, ECHO_CAN_USE_ADAPTION); run_test(ctx, silence, silence, 200); signal_restart(&local_css, 0.0f); signal_restart(&far_css, -15.0f); /* Converge the canceller */ run_test(ctx, local_css_signal, silence, 5000); /* Apply double talk */ run_test(ctx, local_css_signal, far_css_signal, 5000); /* Now freeze adaption. */ echo_can_adaption_mode(ctx, 0); run_test(ctx, local_css_signal, silence, 1000); /* Turn off the double talk. */ run_test(ctx, local_css_signal, silence, 500); /* Now measure the echo */ level_measurements_reset_peaks(); run_test(ctx, local_css_signal, silence, 5000); print_results(); echo_can_adaption_mode(ctx, ECHO_CAN_USE_ADAPTION); echo_can_free(ctx); return 0; } /*- End of function --------------------------------------------------------*/ static int perform_test_3c(void) { echo_can_state_t *ctx; /* Test 3 - Performance under double talk conditions */ /* Test 3C - Double talk test with simulated conversation */ print_test_title("Performing test 3C - Double talk test with simulated conversation\n"); ctx = echo_can_init(TEST_EC_TAPS, 0); echo_can_flush(ctx); echo_can_adaption_mode(ctx, ECHO_CAN_USE_ADAPTION); run_test(ctx, silence, silence, 200); signal_restart(&local_css, 0.0f); signal_restart(&far_css, -15.0f); /* Apply double talk */ run_test(ctx, local_css_signal, far_css_signal, 5600); /* Stop the far signal, and measure the echo. */ level_measurements_reset_peaks(); run_test(ctx, local_css_signal, silence, 1400); print_results(); /* Continue measuring the resulting echo */ run_test(ctx, local_css_signal, silence, 5000); /* Reapply double talk */ signal_restart(&far_css, 0.0f); run_test(ctx, local_css_signal, far_css_signal, 5600); /* Now the far signal only */ run_test(ctx, silence, far_css_signal, 5600); echo_can_free(ctx); return 0; } /*- End of function --------------------------------------------------------*/ static int perform_test_4(void) { echo_can_state_t *ctx; /* Test 4 - Leak rate test */ print_test_title("Performing test 4 - Leak rate test\n"); ctx = echo_can_init(TEST_EC_TAPS, 0); echo_can_flush(ctx); echo_can_adaption_mode(ctx, ECHO_CAN_USE_ADAPTION); run_test(ctx, silence, silence, 200); /* Converge the canceller */ signal_restart(&local_css, 0.0f); run_test(ctx, local_css_signal, silence, 5000); /* Put 2 minutes of silence through it */ run_test(ctx, silence, silence, 120000); /* Now freeze it, and check if it is still well adapted. */ echo_can_adaption_mode(ctx, 0); level_measurements_reset_peaks(); run_test(ctx, local_css_signal, silence, 5000); print_results(); echo_can_adaption_mode(ctx, ECHO_CAN_USE_ADAPTION); echo_can_free(ctx); return 0; } /*- End of function --------------------------------------------------------*/ static int perform_test_5(void) { echo_can_state_t *ctx; /* Test 5 - Infinite return loss convergence test */ print_test_title("Performing test 5 - Infinite return loss convergence test\n"); ctx = echo_can_init(TEST_EC_TAPS, 0); echo_can_flush(ctx); echo_can_adaption_mode(ctx, ECHO_CAN_USE_ADAPTION); /* Converge the canceller */ signal_restart(&local_css, 0.0f); run_test(ctx, local_css_signal, silence, 5000); /* Now stop echoing, and see we don't do anything unpleasant as the echo path is open looped. */ run_test(ctx, local_css_signal, silence, 5000); print_results(); echo_can_free(ctx); return 0; } /*- End of function --------------------------------------------------------*/ static int perform_test_6(void) { echo_can_state_t *ctx; int i; int j; int k; int16_t rx; int16_t tx; int16_t clean; int local_max; tone_gen_descriptor_t tone_desc; tone_gen_state_t tone_state; int16_t local_sound[40000]; /* Test 6 - Non-divergence on narrow-band signals */ print_test_title("Performing test 6 - Non-divergence on narrow-band signals\n"); ctx = echo_can_init(TEST_EC_TAPS, 0); echo_can_flush(ctx); echo_can_adaption_mode(ctx, ECHO_CAN_USE_ADAPTION); /* Converge the canceller */ signal_restart(&local_css, 0.0f); run_test(ctx, local_css_signal, silence, 5000); /* Now put 5s bursts of a list of tones through the converged canceller, and check that nothing unpleasant happens. */ for (k = 0; tones_6_4_2_7[k][0]; k++) { tone_gen_descriptor_init(&tone_desc, tones_6_4_2_7[k][0], -11, tones_6_4_2_7[k][1], -9, 1, 0, 0, 0, 1); tone_gen_init(&tone_state, &tone_desc); j = 0; for (i = 0; i < 5; i++) { local_max = tone_gen(&tone_state, local_sound, SAMPLE_RATE); for (j = 0; j < SAMPLE_RATE; j++) { tx = local_sound[j]; rx = channel_model(&chan_model, tx, 0); clean = echo_can_update(ctx, tx, rx); put_residue(clean); } #if defined(ENABLE_GUI) if (use_gui) { echo_can_monitor_can_update(ctx->fir_taps16[0], TEST_EC_TAPS); echo_can_monitor_update_display(); usleep(100000); } #endif } } #if defined(ENABLE_GUI) if (use_gui) echo_can_monitor_can_update(ctx->fir_taps16[0], TEST_EC_TAPS); #endif echo_can_free(ctx); return 0; } /*- End of function --------------------------------------------------------*/ static int perform_test_7(void) { echo_can_state_t *ctx; int i; int j; int16_t rx; int16_t tx; int16_t clean; int local_max; tone_gen_descriptor_t tone_desc; tone_gen_state_t tone_state; int16_t local_sound[40000]; /* Test 7 - Stability */ print_test_title("Performing test 7 - Stability\n"); ctx = echo_can_init(TEST_EC_TAPS, 0); /* Put tones through an unconverged canceller, and check nothing unpleasant happens. */ echo_can_flush(ctx); echo_can_adaption_mode(ctx, ECHO_CAN_USE_ADAPTION); tone_gen_descriptor_init(&tone_desc, tones_6_4_2_7[0][0], -11, tones_6_4_2_7[0][1], -9, 1, 0, 0, 0, 1); tone_gen_init(&tone_state, &tone_desc); j = 0; for (i = 0; i < 120; i++) { local_max = tone_gen(&tone_state, local_sound, SAMPLE_RATE); for (j = 0; j < SAMPLE_RATE; j++) { tx = local_sound[j]; rx = channel_model(&chan_model, tx, 0); clean = echo_can_update(ctx, tx, rx); put_residue(clean); } #if defined(ENABLE_GUI) if (use_gui) { echo_can_monitor_can_update(ctx->fir_taps16[0], TEST_EC_TAPS); echo_can_monitor_update_display(); usleep(100000); } #endif } #if defined(ENABLE_GUI) if (use_gui) echo_can_monitor_can_update(ctx->fir_taps16[0], TEST_EC_TAPS); #endif echo_can_free(ctx); return 0; } /*- End of function --------------------------------------------------------*/ static int perform_test_8(void) { echo_can_state_t *ctx; /* Test 8 - Non-convergence on No 5, 6, and 7 in-band signalling */ print_test_title("Performing test 8 - Non-convergence on No 5, 6, and 7 in-band signalling\n"); ctx = echo_can_init(TEST_EC_TAPS, 0); fprintf(stderr, "Test 8 not yet implemented\n"); echo_can_free(ctx); return 0; } /*- End of function --------------------------------------------------------*/ static int perform_test_9(void) { echo_can_state_t *ctx; awgn_state_t local_noise_source; awgn_state_t far_noise_source; /* Test 9 - Comfort noise test */ print_test_title("Performing test 9 - Comfort noise test\n"); ctx = echo_can_init(TEST_EC_TAPS, 0); awgn_init_dbm0(&far_noise_source, 7162534, -50.0f); echo_can_flush(ctx); echo_can_adaption_mode(ctx, ECHO_CAN_USE_ADAPTION | ECHO_CAN_USE_NLP | ECHO_CAN_USE_CNG); /* Test 9 part 1 - matching */ /* Converge the canceller */ signal_restart(&local_css, 0.0f); run_test(ctx, local_css_signal, silence, 5000); echo_can_adaption_mode(ctx, ECHO_CAN_USE_ADAPTION | ECHO_CAN_USE_NLP | ECHO_CAN_USE_CNG); awgn_init_dbm0(&far_noise_source, 7162534, -45.0f); run_test(ctx, silence, far_noise_signal, 30000); awgn_init_dbm0(&local_noise_source, 1234567, -10.0f); run_test(ctx, local_noise_signal, far_noise_signal, 2000); /* Test 9 part 2 - adjust down */ awgn_init_dbm0(&far_noise_source, 7162534, -55.0f); run_test(ctx, silence, far_noise_signal, 10000); run_test(ctx, local_noise_signal, far_noise_signal, 2000); echo_can_free(ctx); return 0; } /*- End of function --------------------------------------------------------*/ static int perform_test_10a(void) { echo_can_state_t *ctx; /* Test 10 - FAX test during call establishment phase */ /* Test 10A - Canceller operation on the calling station side */ print_test_title("Performing test 10A - Canceller operation on the calling station side\n"); ctx = echo_can_init(TEST_EC_TAPS, 0); fprintf(stderr, "Test 10A not yet implemented\n"); echo_can_free(ctx); return 0; } /*- End of function --------------------------------------------------------*/ static int perform_test_10b(void) { echo_can_state_t *ctx; /* Test 10 - FAX test during call establishment phase */ /* Test 10B - Canceller operation on the called station side */ print_test_title("Performing test 10B - Canceller operation on the called station side\n"); ctx = echo_can_init(TEST_EC_TAPS, 0); fprintf(stderr, "Test 10B not yet implemented\n"); echo_can_free(ctx); return 0; } /*- End of function --------------------------------------------------------*/ static int perform_test_10c(void) { echo_can_state_t *ctx; /* Test 10 - FAX test during call establishment phase */ /* Test 10C - Canceller operation on the calling station side during page transmission and page breaks (for further study) */ print_test_title("Performing test 10C - Canceller operation on the calling station side during page\n" "transmission and page breaks (for further study)\n"); ctx = echo_can_init(TEST_EC_TAPS, 0); fprintf(stderr, "Test 10C not yet implemented\n"); echo_can_free(ctx); return 0; } /*- End of function --------------------------------------------------------*/ static int perform_test_11(void) { echo_can_state_t *ctx; /* Test 11 - Tandem echo canceller test (for further study) */ print_test_title("Performing test 11 - Tandem echo canceller test (for further study)\n"); ctx = echo_can_init(TEST_EC_TAPS, 0); fprintf(stderr, "Test 11 not yet implemented\n"); echo_can_free(ctx); return 0; } /*- End of function --------------------------------------------------------*/ static int perform_test_12(void) { echo_can_state_t *ctx; /* Test 12 - Residual acoustic echo test (for further study) */ print_test_title("Performing test 12 - Residual acoustic echo test (for further study)\n"); ctx = echo_can_init(TEST_EC_TAPS, 0); fprintf(stderr, "Test 12 not yet implemented\n"); echo_can_free(ctx); return 0; } /*- End of function --------------------------------------------------------*/ static int perform_test_13(void) { echo_can_state_t *ctx; /* Test 13 - Performance with ITU-T low-bit rate coders in echo path (Optional, under study) */ print_test_title("Performing test 13 - Performance with ITU-T low-bit rate coders in echo path (Optional, under study)\n"); ctx = echo_can_init(TEST_EC_TAPS, 0); fprintf(stderr, "Test 13 not yet implemented\n"); echo_can_free(ctx); return 0; } /*- End of function --------------------------------------------------------*/ static int perform_test_14(void) { echo_can_state_t *ctx; /* Test 14 - Performance with V-series low-speed data modems */ print_test_title("Performing test 14 - Performance with V-series low-speed data modems\n"); ctx = echo_can_init(TEST_EC_TAPS, 0); fprintf(stderr, "Test 14 not yet implemented\n"); echo_can_free(ctx); return 0; } /*- End of function --------------------------------------------------------*/ static int perform_test_15(void) { echo_can_state_t *ctx; /* Test 15 - PCM offset test (Optional) */ print_test_title("Performing test 15 - PCM offset test (Optional)\n"); ctx = echo_can_init(TEST_EC_TAPS, 0); fprintf(stderr, "Test 15 not yet implemented\n"); echo_can_free(ctx); return 0; } /*- End of function --------------------------------------------------------*/ static int match_test_name(const char *name) { const struct { const char *name; int (*func)(void); } tests[] = { {"sanity", perform_test_sanity}, {"2a", perform_test_2a}, {"2b", perform_test_2b}, {"2ca", perform_test_2ca}, {"3a", perform_test_3a}, {"3ba", perform_test_3ba}, {"3bb", perform_test_3bb}, {"3c", perform_test_3c}, {"4", perform_test_4}, {"5", perform_test_5}, {"6", perform_test_6}, {"7", perform_test_7}, {"8", perform_test_8}, {"9", perform_test_9}, {"10a", perform_test_10a}, {"10b", perform_test_10b}, {"10c", perform_test_10c}, {"11", perform_test_11}, {"12", perform_test_12}, {"13", perform_test_13}, {"14", perform_test_14}, {"15", perform_test_15}, {NULL, NULL} }; int i; for (i = 0; tests[i].name; i++) { if (strcasecmp(name, tests[i].name) == 0) { test_name = name; tests[i].func(); return 0; } } printf("Unknown test name '%s' specified. The known test names are ", name); for (i = 0; tests[i].name; i++) { printf("%s", tests[i].name); if (tests[i + 1].name) printf(", "); } printf("\n"); return -1; } /*- End of function --------------------------------------------------------*/ static void simulate_ec(char *argv[], int two_channel_file, int mode) { echo_can_state_t *ctx; SNDFILE *txfile; SNDFILE *rxfile; SNDFILE *rxtxfile; SNDFILE *ecfile; int ntx; int nrx; int nec; int16_t buf[2]; int16_t rin; int16_t rout; int16_t sin; int16_t sout; int32_t samples; mode |= ECHO_CAN_USE_ADAPTION; txfile = NULL; rxfile = NULL; rxtxfile = NULL; ecfile = NULL; if (two_channel_file) { txfile = sf_open_telephony_read(argv[0], 1); rxfile = sf_open_telephony_read(argv[1], 1); ecfile = sf_open_telephony_write(argv[2], 1); } else { rxtxfile = sf_open_telephony_read(argv[0], 2); ecfile = sf_open_telephony_write(argv[1], 1); } ctx = echo_can_init(TEST_EC_TAPS, 0); echo_can_adaption_mode(ctx, mode); samples = 0; do { if (two_channel_file) { if ((ntx = sf_readf_short(rxtxfile, buf, 1)) < 0) { fprintf(stderr, " Error reading tx sound file\n"); exit(2); } rin = buf[0]; sin = buf[1]; nrx = ntx; } else { if ((ntx = sf_readf_short(txfile, &rin, 1)) < 0) { fprintf(stderr, " Error reading tx sound file\n"); exit(2); } if ((nrx = sf_readf_short(rxfile, &sin, 1)) < 0) { fprintf(stderr, " Error reading rx sound file\n"); exit(2); } } rout = echo_can_hpf_tx(ctx, rin); sout = echo_can_update(ctx, rout, sin); if ((nec = sf_writef_short(ecfile, &sout, 1)) != 1) { fprintf(stderr, " Error writing ec sound file\n"); exit(2); } level_measurements_update(rin, sin, rout, sout, 0); write_log_files(rin, sin); #if defined(ENABLE_GUI) if (use_gui) echo_can_monitor_can_update(ctx->fir_taps16[0], TEST_EC_TAPS); #endif } while (ntx && nrx); dump_ec_state(ctx); echo_can_free(ctx); if (two_channel_file) { sf_close(rxtxfile); } else { sf_close(txfile); sf_close(rxfile); } sf_close(ecfile); } /*- End of function --------------------------------------------------------*/ int main(int argc, char *argv[]) { int i; time_t now; int simulate; int cng; int hpf; int two_channel_file; int opt; int mode; /* Check which tests we should run */ if (argc < 2) fprintf(stderr, "Usage: echo tests [-g] [-m ] [-s] \n"); line_model_no = 0; supp_line_model_no = 0; cng = FALSE; hpf = FALSE; use_gui = FALSE; simulate = FALSE; munger = -1; two_channel_file = FALSE; erl = -12.0f; while ((opt = getopt(argc, argv, "2ace:ghm:M:su")) != -1) { switch (opt) { case '2': two_channel_file = TRUE; break; case 'a': munger = G711_ALAW; break; case 'c': cng = TRUE; break; case 'e': /* Allow for ERL being entered as x or -x */ erl = -fabs(atof(optarg)); break; case 'g': #if defined(ENABLE_GUI) use_gui = TRUE; #else fprintf(stderr, "Graphical monitoring not available\n"); exit(2); #endif break; case 'h': hpf = TRUE; break; case 'm': line_model_no = atoi(optarg); break; case 'M': supp_line_model_no = atoi(optarg); break; case 's': simulate = TRUE; break; case 'u': munger = G711_ULAW; break; default: //usage(); exit(2); break; } } argc -= optind; argv += optind; #if defined(ENABLE_GUI) if (use_gui) start_echo_can_monitor(TEST_EC_TAPS); #endif if (simulate) { /* Process a pair of transmitted and received audio files, and produce an echo cancelled audio file. */ if (argc < ((two_channel_file) ? 2 : 3)) { printf("not enough arguments for a simulation\n"); exit(2); } mode = ECHO_CAN_USE_NLP; mode |= ((cng) ? ECHO_CAN_USE_CNG : ECHO_CAN_USE_CLIP); if (hpf) { mode |= ECHO_CAN_USE_TX_HPF; mode |= ECHO_CAN_USE_RX_HPF; } simulate_ec(argv, two_channel_file, mode); } else { /* Run some G.168 tests */ #if defined(ENABLE_GUI) if (use_gui) echo_can_monitor_line_model_update(chan_model.impulse.coeffs, chan_model.impulse.taps); #endif signal_load(&local_css, "sound_c1_8k.wav"); signal_load(&far_css, "sound_c3_8k.wav"); if ((residue_handle = sf_open_telephony_write(RESIDUE_FILE_NAME, 1)) == NULL) { fprintf(stderr, " Failed to open '%s'\n", RESIDUE_FILE_NAME); exit(2); } if (argc <= 0) { printf("No tests specified\n"); } else { time(&now); if ((result_handle = sf_open_telephony_write("echo_tests_result.wav", RESULT_CHANNELS)) == NULL) { fprintf(stderr, " Failed to open result file\n"); exit(2); } result_cur = 0; level_measurements_create(0); for (i = 0; i < argc; i++) { if (channel_model_create(&chan_model, line_model_no, erl, munger)) { fprintf(stderr, " Failed to create line model\n"); exit(2); } match_test_name(argv[i]); } if (sf_close(result_handle) != 0) { fprintf(stderr, " Cannot close speech file '%s'\n", "result_sound.wav"); exit(2); } printf("Run time %lds\n", time(NULL) - now); } signal_free(&local_css); signal_free(&far_css); if (sf_close(residue_handle) != 0) { fprintf(stderr, " Cannot close speech file '%s'\n", RESIDUE_FILE_NAME); exit(2); } } #if defined(ENABLE_GUI) if (use_gui) echo_can_monitor_wait_to_end(); #endif printf("Tests passed.\n"); return 0; } /*- End of function --------------------------------------------------------*/ /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/tests/fax_tester.c0000664000175000017500000006006311422612266016260 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * fax_tester.c * * Written by Steve Underwood * * Copyright (C) 2008 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License version 2, as * published by the Free Software Foundation. * * 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., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \file */ #if defined(HAVE_CONFIG_H) #include #endif #include #include #include #include #if defined(HAVE_TGMATH_H) #include #endif #if defined(HAVE_MATH_H) #include #endif #include "floating_fudge.h" #include #include #include #include #if defined(HAVE_LIBXML_XMLMEMORY_H) #include #endif #if defined(HAVE_LIBXML_PARSER_H) #include #endif #if defined(HAVE_LIBXML_XINCLUDE_H) #include #endif //#if defined(WITH_SPANDSP_INTERNALS) #define SPANDSP_EXPOSE_INTERNAL_STRUCTURES //#endif #include "spandsp.h" #include "fax_tester.h" #define HDLC_FRAMING_OK_THRESHOLD 5 static void timer_update(faxtester_state_t *s, int len) { s->timer += len; if (s->timer > s->timeout) { s->timeout = 0x7FFFFFFFFFFFFFFFLL; if (s->front_end_step_timeout_handler) s->front_end_step_timeout_handler(s, s->front_end_step_timeout_user_data); } } /*- End of function --------------------------------------------------------*/ static void front_end_step_complete(faxtester_state_t *s) { if (s->front_end_step_complete_handler) s->front_end_step_complete_handler(s, s->front_end_step_complete_user_data); } /*- End of function --------------------------------------------------------*/ void faxtester_send_hdlc_flags(faxtester_state_t *s, int flags) { hdlc_tx_flags(&(s->modems.hdlc_tx), flags); } /*- End of function --------------------------------------------------------*/ void faxtester_send_hdlc_msg(faxtester_state_t *s, const uint8_t *msg, int len, int crc_ok) { hdlc_tx_frame(&(s->modems.hdlc_tx), msg, len); if (!crc_ok) hdlc_tx_corrupt_frame(&(s->modems.hdlc_tx)); } /*- End of function --------------------------------------------------------*/ static void hdlc_underflow_handler(void *user_data) { faxtester_state_t *s; uint8_t buf[400]; s = (faxtester_state_t *) user_data; if (s->image_buffer) { /* We are sending an ECM image */ if (s->image_ptr < s->image_len) { buf[0] = 0xFF; buf[1] = 0x03; buf[2] = 0x06; buf[3] = s->image_ptr/s->ecm_frame_size; memcpy(buf + 4, &s->image_buffer[s->image_ptr], s->ecm_frame_size); hdlc_tx_frame(&(s->modems.hdlc_tx), buf, 4 + s->ecm_frame_size); if (s->corrupt_crc >= 0 && s->corrupt_crc == s->image_ptr/s->ecm_frame_size) hdlc_tx_corrupt_frame(&(s->modems.hdlc_tx)); s->image_ptr += s->ecm_frame_size; return; } else { /* The actual image is over. We are sending the final RCP frames. */ if (s->image_bit_ptr > 2) { s->image_bit_ptr--; buf[0] = 0xFF; buf[1] = 0x03; buf[2] = 0x86; hdlc_tx_frame(&(s->modems.hdlc_tx), buf, 3); return; } else { /* All done. */ s->image_buffer = NULL; } } } front_end_step_complete(s); } /*- End of function --------------------------------------------------------*/ static void modem_tx_status(void *user_data, int status) { faxtester_state_t *s; s = (faxtester_state_t *) user_data; printf("Tx status is %s (%d)\n", signal_status_to_str(status), status); switch (status) { case SIG_STATUS_SHUTDOWN_COMPLETE: front_end_step_complete(s); break; } } /*- End of function --------------------------------------------------------*/ static void tone_detected(void *user_data, int tone, int level, int delay) { faxtester_state_t *s; s = (faxtester_state_t *) user_data; span_log(&s->logging, SPAN_LOG_FLOW, "%s (%d) declared (%ddBm0)\n", modem_connect_tone_to_str(tone), tone, level); if (tone != MODEM_CONNECT_TONES_NONE) { s->tone_on_time = s->timer; } else { span_log(&s->logging, SPAN_LOG_FLOW, "Tone was on for %fs\n", (float) (s->timer - s->tone_on_time)/SAMPLE_RATE + 0.55); } s->tone_state = tone; if (tone == MODEM_CONNECT_TONES_NONE) front_end_step_complete(s); } /*- End of function --------------------------------------------------------*/ static int non_ecm_get_bit(void *user_data) { faxtester_state_t *s; int bit; s = (faxtester_state_t *) user_data; if (s->image_bit_ptr == 0) { if (s->image_ptr >= s->image_len) { s->image_buffer = NULL; return SIG_STATUS_END_OF_DATA; } s->image_bit_ptr = 8; s->image_ptr++; } s->image_bit_ptr--; bit = (s->image_buffer[s->image_ptr] >> (7 - s->image_bit_ptr)) & 0x01; //printf("Rx bit - %d\n", bit); return bit; } /*- End of function --------------------------------------------------------*/ void faxtester_set_non_ecm_image_buffer(faxtester_state_t *s, const uint8_t *buf, int len) { s->image_ptr = 0; s->image_bit_ptr = 8; s->image_len = len; s->image_buffer = buf; } /*- End of function --------------------------------------------------------*/ void faxtester_set_ecm_image_buffer(faxtester_state_t *s, const uint8_t *buf, int len, int block, int frame_size, int crc_hit) { int start; start = 256*frame_size*block; if (len > start + 256*frame_size) len = start + 256*frame_size; s->ecm_frame_size = frame_size; s->image_ptr = start; s->image_bit_ptr = 8; s->image_len = len; s->image_buffer = buf; s->corrupt_crc = crc_hit; /* Send the first frame */ hdlc_underflow_handler(s); } /*- End of function --------------------------------------------------------*/ static void non_ecm_rx_status(void *user_data, int status) { faxtester_state_t *s; s = (faxtester_state_t *) user_data; span_log(&s->logging, SPAN_LOG_FLOW, "Non-ECM carrier status is %s (%d)\n", signal_status_to_str(status), status); switch (status) { case SIG_STATUS_TRAINING_FAILED: s->modems.rx_trained = FALSE; break; case SIG_STATUS_TRAINING_SUCCEEDED: /* The modem is now trained */ s->modems.rx_trained = TRUE; break; case SIG_STATUS_CARRIER_UP: s->modems.rx_signal_present = TRUE; break; case SIG_STATUS_CARRIER_DOWN: if (s->modems.rx_trained) { if (s->real_time_frame_handler) s->real_time_frame_handler(s, s->real_time_frame_user_data, TRUE, NULL, 0); } s->modems.rx_signal_present = FALSE; s->modems.rx_trained = FALSE; break; } } /*- End of function --------------------------------------------------------*/ static void non_ecm_put_bit(void *user_data, int bit) { faxtester_state_t *s; if (bit < 0) { non_ecm_rx_status(user_data, bit); return; } s = (faxtester_state_t *) user_data; } /*- End of function --------------------------------------------------------*/ static void hdlc_rx_status(void *user_data, int status) { faxtester_state_t *s; s = (faxtester_state_t *) user_data; fprintf(stderr, "HDLC carrier status is %s (%d)\n", signal_status_to_str(status), status); switch (status) { case SIG_STATUS_TRAINING_FAILED: s->modems.rx_trained = FALSE; break; case SIG_STATUS_TRAINING_SUCCEEDED: /* The modem is now trained */ s->modems.rx_trained = TRUE; break; case SIG_STATUS_CARRIER_UP: s->modems.rx_signal_present = TRUE; break; case SIG_STATUS_CARRIER_DOWN: s->modems.rx_signal_present = FALSE; s->modems.rx_trained = FALSE; break; } } /*- End of function --------------------------------------------------------*/ static void hdlc_accept(void *user_data, const uint8_t *msg, int len, int ok) { faxtester_state_t *s; if (len < 0) { hdlc_rx_status(user_data, len); return; } s = (faxtester_state_t *) user_data; if (s->real_time_frame_handler) s->real_time_frame_handler(s, s->real_time_frame_user_data, TRUE, msg, len); } /*- End of function --------------------------------------------------------*/ static int v17_v21_rx(void *user_data, const int16_t amp[], int len) { faxtester_state_t *t; fax_modems_state_t *s; t = (faxtester_state_t *) user_data; s = &t->modems; v17_rx(&s->v17_rx, amp, len); fsk_rx(&s->v21_rx, amp, len); if (s->rx_trained) { /* The fast modem has trained, so we no longer need to run the slow one in parallel. */ span_log(&t->logging, SPAN_LOG_FLOW, "Switching from V.17 + V.21 to V.17 (%.2fdBm0)\n", v17_rx_signal_power(&s->v17_rx)); s->rx_handler = (span_rx_handler_t *) &v17_rx; s->rx_user_data = &s->v17_rx; } return 0; } /*- End of function --------------------------------------------------------*/ static int v27ter_v21_rx(void *user_data, const int16_t amp[], int len) { faxtester_state_t *t; fax_modems_state_t *s; t = (faxtester_state_t *) user_data; s = &t->modems; v27ter_rx(&s->v27ter_rx, amp, len); fsk_rx(&s->v21_rx, amp, len); if (s->rx_trained) { /* The fast modem has trained, so we no longer need to run the slow one in parallel. */ span_log(&t->logging, SPAN_LOG_FLOW, "Switching from V.27ter + V.21 to V.27ter (%.2fdBm0)\n", v27ter_rx_signal_power(&s->v27ter_rx)); s->rx_handler = (span_rx_handler_t *) &v27ter_rx; s->rx_user_data = &s->v27ter_rx; } return 0; } /*- End of function --------------------------------------------------------*/ static int v29_v21_rx(void *user_data, const int16_t amp[], int len) { faxtester_state_t *t; fax_modems_state_t *s; t = (faxtester_state_t *) user_data; s = &t->modems; v29_rx(&s->v29_rx, amp, len); fsk_rx(&s->v21_rx, amp, len); if (s->rx_trained) { /* The fast modem has trained, so we no longer need to run the slow one in parallel. */ span_log(&t->logging, SPAN_LOG_FLOW, "Switching from V.29 + V.21 to V.29 (%.2fdBm0)\n", v29_rx_signal_power(&s->v29_rx)); s->rx_handler = (span_rx_handler_t *) &v29_rx; s->rx_user_data = &s->v29_rx; } return 0; } /*- End of function --------------------------------------------------------*/ int faxtester_rx(faxtester_state_t *s, int16_t *amp, int len) { int i; for (i = 0; i < len; i++) amp[i] = dc_restore(&(s->modems.dc_restore), amp[i]); s->modems.rx_handler(s->modems.rx_user_data, amp, len); timer_update(s, len); if (s->wait_for_silence) { if (!s->modems.rx_signal_present) { s->wait_for_silence = FALSE; front_end_step_complete(s); } } return 0; } /*- End of function --------------------------------------------------------*/ int faxtester_tx(faxtester_state_t *s, int16_t *amp, int max_len) { int len; int required_len; required_len = max_len; len = 0; if (s->transmit) { while ((len += s->modems.tx_handler(s->modems.tx_user_data, amp + len, max_len - len)) < max_len) { /* Allow for a change of tx handler within a block */ front_end_step_complete(s); if (!s->transmit) { if (s->modems.transmit_on_idle) { /* Pad to the requested length with silence */ memset(amp + len, 0, (max_len - len)*sizeof(int16_t)); len = max_len; } break; } } } else { if (s->modems.transmit_on_idle) { /* Pad to the requested length with silence */ memset(amp, 0, max_len*sizeof(int16_t)); len = max_len; } } return len; } /*- End of function --------------------------------------------------------*/ void faxtest_set_rx_silence(faxtester_state_t *s) { s->wait_for_silence = TRUE; } /*- End of function --------------------------------------------------------*/ void faxtester_set_rx_type(void *user_data, int type, int bit_rate, int short_train, int use_hdlc) { faxtester_state_t *s; put_bit_func_t put_bit_func; void *put_bit_user_data; fax_modems_state_t *t; int tone; s = (faxtester_state_t *) user_data; t = &s->modems; span_log(&s->logging, SPAN_LOG_FLOW, "Set rx type %d\n", type); if (s->current_rx_type == type) return; s->current_rx_type = type; if (use_hdlc) { put_bit_func = (put_bit_func_t) hdlc_rx_put_bit; put_bit_user_data = (void *) &t->hdlc_rx; hdlc_rx_init(&t->hdlc_rx, FALSE, FALSE, HDLC_FRAMING_OK_THRESHOLD, hdlc_accept, s); } else { put_bit_func = non_ecm_put_bit; put_bit_user_data = (void *) s; } switch (type) { case T30_MODEM_CED: case T30_MODEM_CNG: if (type == T30_MODEM_CED) tone = MODEM_CONNECT_TONES_FAX_CED; else tone = MODEM_CONNECT_TONES_FAX_CNG; modem_connect_tones_rx_init(&t->connect_rx, tone, tone_detected, (void *) s); t->rx_handler = (span_rx_handler_t *) &modem_connect_tones_rx; t->rx_user_data = &t->connect_rx; s->tone_state = MODEM_CONNECT_TONES_NONE; break; case T30_MODEM_V21: if (s->flush_handler) s->flush_handler(s, s->flush_user_data, 3); fsk_rx_init(&t->v21_rx, &preset_fsk_specs[FSK_V21CH2], FSK_FRAME_MODE_SYNC, (put_bit_func_t) hdlc_rx_put_bit, put_bit_user_data); fsk_rx_signal_cutoff(&t->v21_rx, -45.5); t->rx_handler = (span_rx_handler_t *) &fsk_rx; t->rx_user_data = &t->v21_rx; break; case T30_MODEM_V27TER: v27ter_rx_restart(&t->v27ter_rx, bit_rate, FALSE); v27ter_rx_set_put_bit(&t->v27ter_rx, put_bit_func, put_bit_user_data); t->rx_handler = (span_rx_handler_t *) &v27ter_v21_rx; t->rx_user_data = s; break; case T30_MODEM_V29: v29_rx_restart(&t->v29_rx, bit_rate, FALSE); v29_rx_set_put_bit(&t->v29_rx, put_bit_func, put_bit_user_data); t->rx_handler = (span_rx_handler_t *) &v29_v21_rx; t->rx_user_data = s; break; case T30_MODEM_V17: v17_rx_restart(&t->v17_rx, bit_rate, short_train); v17_rx_set_put_bit(&t->v17_rx, put_bit_func, put_bit_user_data); t->rx_handler = (span_rx_handler_t *) &v17_v21_rx; t->rx_user_data = s; break; case T30_MODEM_DONE: span_log(&s->logging, SPAN_LOG_FLOW, "FAX exchange complete\n"); default: t->rx_handler = (span_rx_handler_t *) &span_dummy_rx; t->rx_user_data = s; break; } } /*- End of function --------------------------------------------------------*/ void faxtester_set_tx_type(void *user_data, int type, int bit_rate, int short_train, int use_hdlc) { faxtester_state_t *s; get_bit_func_t get_bit_func; void *get_bit_user_data; fax_modems_state_t *t; int tone; s = (faxtester_state_t *) user_data; t = &s->modems; span_log(&s->logging, SPAN_LOG_FLOW, "Set tx type %d\n", type); if (s->current_tx_type == type) return; if (use_hdlc) { get_bit_func = (get_bit_func_t) hdlc_tx_get_bit; get_bit_user_data = (void *) &t->hdlc_tx; } else { get_bit_func = non_ecm_get_bit; get_bit_user_data = (void *) s; } switch (type) { case T30_MODEM_PAUSE: silence_gen_alter(&t->silence_gen, ms_to_samples(short_train)); t->tx_handler = (span_tx_handler_t *) &silence_gen; t->tx_user_data = &t->silence_gen; s->transmit = TRUE; break; case T30_MODEM_CED: case T30_MODEM_CNG: if (type == T30_MODEM_CED) tone = MODEM_CONNECT_TONES_FAX_CED; else tone = MODEM_CONNECT_TONES_FAX_CNG; modem_connect_tones_tx_init(&t->connect_tx, tone); t->tx_handler = (span_tx_handler_t *) &modem_connect_tones_tx; t->tx_user_data = &t->connect_tx; s->transmit = TRUE; break; case T30_MODEM_V21: fsk_tx_init(&t->v21_tx, &preset_fsk_specs[FSK_V21CH2], get_bit_func, get_bit_user_data); fsk_tx_set_modem_status_handler(&t->v21_tx, modem_tx_status, (void *) s); t->tx_handler = (span_tx_handler_t *) &fsk_tx; t->tx_user_data = &t->v21_tx; s->transmit = TRUE; break; case T30_MODEM_V27TER: v27ter_tx_restart(&t->v27ter_tx, bit_rate, t->use_tep); v27ter_tx_set_get_bit(&t->v27ter_tx, get_bit_func, get_bit_user_data); v27ter_tx_set_modem_status_handler(&t->v27ter_tx, modem_tx_status, (void *) s); t->tx_handler = (span_tx_handler_t *) &v27ter_tx; t->tx_user_data = &t->v27ter_tx; /* For any fast modem, set 200ms of preamble flags */ hdlc_tx_flags(&t->hdlc_tx, bit_rate/(8*5)); s->transmit = TRUE; break; case T30_MODEM_V29: v29_tx_restart(&t->v29_tx, bit_rate, t->use_tep); v29_tx_set_get_bit(&t->v29_tx, get_bit_func, get_bit_user_data); v29_tx_set_modem_status_handler(&t->v29_tx, modem_tx_status, (void *) s); t->tx_handler = (span_tx_handler_t *) &v29_tx; t->tx_user_data = &t->v29_tx; /* For any fast modem, set 200ms of preamble flags */ hdlc_tx_flags(&t->hdlc_tx, bit_rate/(8*5)); s->transmit = TRUE; break; case T30_MODEM_V17: v17_tx_restart(&t->v17_tx, bit_rate, t->use_tep, short_train); v17_tx_set_get_bit(&t->v17_tx, get_bit_func, get_bit_user_data); v17_tx_set_modem_status_handler(&t->v17_tx, modem_tx_status, (void *) s); t->tx_handler = (span_tx_handler_t *) &v17_tx; t->tx_user_data = &t->v17_tx; /* For any fast modem, set 200ms of preamble flags */ hdlc_tx_flags(&t->hdlc_tx, bit_rate/(8*5)); s->transmit = TRUE; break; case T30_MODEM_DONE: span_log(&s->logging, SPAN_LOG_FLOW, "FAX exchange complete\n"); /* Fall through */ default: silence_gen_alter(&t->silence_gen, 0); t->tx_handler = (span_tx_handler_t *) &silence_gen; t->tx_user_data = &t->silence_gen; s->transmit = FALSE; break; } s->current_tx_type = type; } /*- End of function --------------------------------------------------------*/ void faxtester_set_timeout(faxtester_state_t *s, int timeout) { if (timeout >= 0) s->timeout = s->timer + timeout*SAMPLE_RATE/1000; else s->timeout = 0x7FFFFFFFFFFFFFFFLL; } /*- End of function --------------------------------------------------------*/ void faxtester_set_transmit_on_idle(faxtester_state_t *s, int transmit_on_idle) { s->modems.transmit_on_idle = transmit_on_idle; } /*- End of function --------------------------------------------------------*/ void faxtester_set_tep_mode(faxtester_state_t *s, int use_tep) { s->modems.use_tep = use_tep; } /*- End of function --------------------------------------------------------*/ void faxtester_set_real_time_frame_handler(faxtester_state_t *s, faxtester_real_time_frame_handler_t *handler, void *user_data) { s->real_time_frame_handler = handler; s->real_time_frame_user_data = user_data; } /*- End of function --------------------------------------------------------*/ void faxtester_set_front_end_step_complete_handler(faxtester_state_t *s, faxtester_front_end_step_complete_handler_t *handler, void *user_data) { s->front_end_step_complete_handler = handler; s->front_end_step_complete_user_data = user_data; } /*- End of function --------------------------------------------------------*/ void faxtester_set_front_end_step_timeout_handler(faxtester_state_t *s, faxtester_front_end_step_complete_handler_t *handler, void *user_data) { s->front_end_step_timeout_handler = handler; s->front_end_step_timeout_user_data = user_data; } /*- End of function --------------------------------------------------------*/ static void faxtester_fax_modems_init(fax_modems_state_t *s, int use_tep, void *user_data) { s->use_tep = use_tep; hdlc_rx_init(&s->hdlc_rx, FALSE, FALSE, HDLC_FRAMING_OK_THRESHOLD, hdlc_accept, user_data); hdlc_tx_init(&s->hdlc_tx, FALSE, 2, FALSE, hdlc_underflow_handler, user_data); fsk_rx_init(&s->v21_rx, &preset_fsk_specs[FSK_V21CH2], FSK_FRAME_MODE_SYNC, (put_bit_func_t) hdlc_rx_put_bit, &s->hdlc_rx); fsk_rx_signal_cutoff(&s->v21_rx, -45.5); fsk_tx_init(&s->v21_tx, &preset_fsk_specs[FSK_V21CH2], (get_bit_func_t) hdlc_tx_get_bit, &s->hdlc_tx); fsk_tx_set_modem_status_handler(&s->v21_tx, modem_tx_status, user_data); v17_rx_init(&s->v17_rx, 14400, non_ecm_put_bit, user_data); v17_tx_init(&s->v17_tx, 14400, s->use_tep, non_ecm_get_bit, user_data); v17_tx_set_modem_status_handler(&s->v17_tx, modem_tx_status, user_data); v29_rx_init(&s->v29_rx, 9600, non_ecm_put_bit, user_data); v29_rx_signal_cutoff(&s->v29_rx, -45.5); v29_tx_init(&s->v29_tx, 9600, s->use_tep, non_ecm_get_bit, user_data); v29_tx_set_modem_status_handler(&s->v29_tx, modem_tx_status, user_data); v27ter_rx_init(&s->v27ter_rx, 4800, non_ecm_put_bit, user_data); v27ter_tx_init(&s->v27ter_tx, 4800, s->use_tep, non_ecm_get_bit, user_data); v27ter_tx_set_modem_status_handler(&s->v27ter_tx, modem_tx_status, user_data); silence_gen_init(&s->silence_gen, 0); modem_connect_tones_tx_init(&s->connect_tx, MODEM_CONNECT_TONES_FAX_CNG); modem_connect_tones_rx_init(&s->connect_rx, MODEM_CONNECT_TONES_FAX_CNG, tone_detected, user_data); dc_restore_init(&s->dc_restore); s->rx_signal_present = FALSE; s->rx_handler = (span_rx_handler_t *) &span_dummy_rx; s->rx_user_data = NULL; s->tx_handler = (span_tx_handler_t *) &silence_gen; s->tx_user_data = &s->silence_gen; } /*- End of function --------------------------------------------------------*/ faxtester_state_t *faxtester_init(faxtester_state_t *s, int calling_party) { if (s == NULL) { if ((s = (faxtester_state_t *) malloc(sizeof(*s))) == NULL) return NULL; } memset(s, 0, sizeof(*s)); span_log_init(&s->logging, SPAN_LOG_NONE, NULL); span_log_set_protocol(&s->logging, "TST"); faxtester_fax_modems_init(&s->modems, FALSE, s); faxtester_set_timeout(s, -1); faxtester_set_tx_type(s, T30_MODEM_NONE, 0, FALSE, FALSE); return s; } /*- End of function --------------------------------------------------------*/ int faxtester_release(faxtester_state_t *s) { return 0; } /*- End of function --------------------------------------------------------*/ int faxtester_free(faxtester_state_t *s) { free(s); return 0; } /*- End of function --------------------------------------------------------*/ void faxtester_set_flush_handler(faxtester_state_t *s, faxtester_flush_handler_t *handler, void *user_data) { s->flush_handler = handler; s->flush_user_data = user_data; } /*- End of function --------------------------------------------------------*/ /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/tests/g1050_tests.c0000664000175000017500000001616211422612266016073 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * g1050_tests.c - Tests for the G.1050/TIA-921 model. * * Written by Steve Underwood * * Copyright (C) 2007 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License version 2, as * published by the Free Software Foundation. * * 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., 675 Mass Ave, Cambridge, MA 02139, USA. */ #if defined(HAVE_CONFIG_H) #include "config.h" #endif #if defined(HAVE_FL_FL_H) && defined(HAVE_FL_FL_CARTESIAN_H) && defined(HAVE_FL_FL_AUDIO_METER_H) #define ENABLE_GUI #endif #include #include #include #include #include #include #include #if defined(HAVE_MATH_H) #define GEN_CONST #endif //#if defined(WITH_SPANDSP_INTERNALS) #define SPANDSP_EXPOSE_INTERNAL_STRUCTURES //#endif #include "spandsp.h" #include "spandsp-sim.h" #if defined(ENABLE_GUI) #include "media_monitor.h" #endif #define PACKET_SIZE 256 #define PACKET_INTERVAL 20 #define SIMULATION_TIME 300 #define MODEL_NO 8 #define SPEED_PATTERN_NO 133 int main(int argc, char *argv[]) { g1050_state_t *s; double *packet_arrival_times; int packets_per_sec; int num_packets; int model_no; int speed_pattern_no; int use_gui; int simulation_time; int i; int len; uint8_t put_pkt[256]; uint8_t get_pkt[256]; int put_pkt_len; int get_pkt_len; int get_seq_no; double get_departure_time; double get_arrival_time; int packets_put; int packets_really_put; int packets_got; int oos_packets_got; int missing_packets_got; int highest_seq_no_got; int opt; FILE *out_file; model_no = MODEL_NO; speed_pattern_no = SPEED_PATTERN_NO; simulation_time = SIMULATION_TIME; use_gui = FALSE; while ((opt = getopt(argc, argv, "gm:s:t:")) != -1) { switch (opt) { case 'g': #if defined(ENABLE_GUI) use_gui = TRUE; #else fprintf(stderr, "Graphical monitoring not available\n"); exit(2); #endif break; case 'm': model_no = optarg[0] - 'A' + 1; if (model_no < 0 || model_no > 8) { fprintf(stderr, "Bad model ID '%s'\n", optarg); exit(2); } break; case 's': speed_pattern_no = atoi(optarg); if (speed_pattern_no < 1 || speed_pattern_no > 133) { fprintf(stderr, "Bad link speed pattern %s\n", optarg); exit(2); } break; case 't': simulation_time = atoi(optarg); break; default: //usage(); exit(2); break; } } argc -= optind; argv += optind; if ((out_file = fopen("g1050_tests.txt", "w")) == NULL) { fprintf(stderr, "Can't open %s\n", "g1050_tests.txt"); return 2; } packets_per_sec = 1000/PACKET_INTERVAL; num_packets = packets_per_sec*simulation_time; if ((packet_arrival_times = calloc(num_packets, sizeof(double))) == NULL) { fprintf(stderr, "Can't allocate the data buffers\n"); return 2; } for (i = 0; i < num_packets; i++) packet_arrival_times[i] = 0.0; /* If we don't initialise this random number generator it gives endless zeros on some systems. */ /* Use a fixed seed to produce identical results in successive runs of the simulation, for debug purposes. */ srand48(0x1234567); if ((s = g1050_init(model_no, speed_pattern_no, PACKET_SIZE, packets_per_sec)) == NULL) { fprintf(stderr, "Failed to start the G.1050 model\n"); exit(2); } g1050_dump_parms(model_no, speed_pattern_no); #if defined(ENABLE_GUI) if (use_gui) start_media_monitor(); #endif for (i = 0; i < 256; i++) put_pkt[i] = i; put_pkt_len = 256; get_pkt_len = -1; get_seq_no = -1; get_arrival_time = -1; packets_put = 0; packets_really_put = 0; packets_got = 0; oos_packets_got = 0; missing_packets_got = 0; highest_seq_no_got = -1; for (i = 0; i < num_packets; i++) { if ((len = g1050_put(s, put_pkt, put_pkt_len, i, (double) i*0.001*PACKET_INTERVAL)) > 0) packets_really_put++; packets_put++; if (i == 5) g1050_queue_dump(s); if (i >= 5) { do { get_pkt_len = g1050_get(s, get_pkt, 256, (double) i*0.001*PACKET_INTERVAL, &get_seq_no, &get_departure_time, &get_arrival_time); if (get_pkt_len >= 0) { #if defined(ENABLE_GUI) if (use_gui) media_monitor_rx(get_seq_no, get_departure_time, get_arrival_time); #endif packets_got++; if (get_seq_no < highest_seq_no_got) oos_packets_got++; else if (get_seq_no > highest_seq_no_got + 1) missing_packets_got += (get_seq_no - highest_seq_no_got - 1); if (get_seq_no > highest_seq_no_got) highest_seq_no_got = get_seq_no; fprintf(out_file, "%d, %.3f, %.8f\n", get_seq_no, get_seq_no*0.001*PACKET_INTERVAL, get_arrival_time); } } while (get_pkt_len >= 0); } #if defined(ENABLE_GUI) if (use_gui) media_monitor_update_display(); #endif } /* Clear out anything remaining in the queue, by jumping forwards in time */ do { get_pkt_len = g1050_get(s, get_pkt, 256, (double) i*0.001*PACKET_INTERVAL + 5.0, &get_seq_no, &get_departure_time, &get_arrival_time); if (get_pkt_len >= 0) { packets_got++; fprintf(out_file, "%d, %.3f, %.8f\n", get_seq_no, get_seq_no*0.001*PACKET_INTERVAL, get_arrival_time); } } while (get_pkt_len >= 0); fclose(out_file); printf("Put %d packets. Really put %d packets. Got %d packets.\n", packets_put, packets_really_put, packets_got); printf("%d OOS packets, %d missing packets\n", oos_packets_got, missing_packets_got - oos_packets_got); if (packets_really_put != packets_got) { printf("%d packets queued, but only %d received\n", packets_really_put, packets_got); exit(2); } printf("%.3f%% of packets lost\n", 100.0*(packets_put - packets_really_put)/packets_put); return 0; } /*- End of function --------------------------------------------------------*/ /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/tests/fax_tests.sh0000775000175000017500000000734411422612266016312 0ustar steveusteveu#!/bin/sh # # spandsp fax tests # # This program is free software; you can redistribute it and/or modify # it under the terms of the GNU Lesser General Public License version 2.1, # as published by the Free Software Foundation. # # 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 Lesser General Public # License along with this program; if not, write to the Free Software # Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. run_fax_test() { rm -f fax_tests_1.tif echo -i ${FILE} ${OPTS} ./fax_tests -i ${FILE} ${OPTS} >xyzzy 2>xyzzy2 RETVAL=$? if [ $RETVAL != 0 ] then echo fax_tests failed! exit $RETVAL fi # Now use tiffcmp to check the results. It will return non-zero if any page images differ. The -t # option means the normal differences in tags will be ignored. tiffcmp -t ${FILE} fax_tests_1.tif #>/dev/null RETVAL=$? if [ $RETVAL != 0 ] then echo fax_tests failed! exit $RETVAL fi rm -f fax_tests_1.tif echo tested ${FILE} } OPTS="-e" FILE="../itutests/fax/R8_385_A4.tif" run_fax_test FILE="../itutests/fax/R8_385_B4.tif" run_fax_test FILE="../itutests/fax/R8_385_A3.tif" run_fax_test FILE="../itutests/fax/R8_77_A4.tif" run_fax_test FILE="../itutests/fax/R8_77_B4.tif" run_fax_test FILE="../itutests/fax/R8_77_A3.tif" run_fax_test FILE="../itutests/fax/R8_154_A4.tif" run_fax_test FILE="../itutests/fax/R8_154_B4.tif" run_fax_test FILE="../itutests/fax/R8_154_A3.tif" run_fax_test FILE="../itutests/fax/R300_300_A4.tif" run_fax_test FILE="../itutests/fax/R300_300_B4.tif" run_fax_test FILE="../itutests/fax/R300_300_A3.tif" run_fax_test FILE="../itutests/fax/R300_600_A4.tif" run_fax_test FILE="../itutests/fax/R300_600_B4.tif" run_fax_test FILE="../itutests/fax/R300_600_A3.tif" run_fax_test FILE="../itutests/fax/R16_154_A4.tif" run_fax_test FILE="../itutests/fax/R16_154_B4.tif" run_fax_test FILE="../itutests/fax/R16_154_A3.tif" run_fax_test FILE="../itutests/fax/R16_800_A4.tif" run_fax_test FILE="../itutests/fax/R16_800_B4.tif" run_fax_test FILE="../itutests/fax/R16_800_A3.tif" run_fax_test FILE="../itutests/fax/R600_600_A4.tif" run_fax_test FILE="../itutests/fax/R600_600_B4.tif" run_fax_test FILE="../itutests/fax/R600_600_A3.tif" run_fax_test FILE="../itutests/fax/R600_1200_A4.tif" run_fax_test FILE="../itutests/fax/R600_1200_B4.tif" run_fax_test FILE="../itutests/fax/R600_1200_A3.tif" run_fax_test FILE="../itutests/fax/R1200_1200_A4.tif" run_fax_test FILE="../itutests/fax/R1200_1200_B4.tif" run_fax_test FILE="../itutests/fax/R1200_1200_A3.tif" run_fax_test OPTS="" FILE="../itutests/fax/R8_385_A4.tif" run_fax_test FILE="../itutests/fax/R8_385_B4.tif" run_fax_test FILE="../itutests/fax/R8_385_A3.tif" run_fax_test FILE="../itutests/fax/R8_77_A4.tif" run_fax_test FILE="../itutests/fax/R8_77_B4.tif" run_fax_test FILE="../itutests/fax/R8_77_A3.tif" run_fax_test FILE="../itutests/fax/R8_154_A4.tif" run_fax_test FILE="../itutests/fax/R8_154_B4.tif" run_fax_test FILE="../itutests/fax/R8_154_A3.tif" run_fax_test FILE="../itutests/fax/R16_385_A4.tif" #run_fax_test FILE="../itutests/fax/R16_385_B4.tif" #run_fax_test FILE="../itutests/fax/R16_385_A3.tif" #run_fax_test FILE="../itutests/fax/R16_77_A4.tif" #run_fax_test FILE="../itutests/fax/R16_77_B4.tif" #run_fax_test FILE="../itutests/fax/R16_77_A3.tif" #run_fax_test FILE="../itutests/fax/R16_154_A4.tif" run_fax_test FILE="../itutests/fax/R16_154_B4.tif" run_fax_test FILE="../itutests/fax/R16_154_A3.tif" run_fax_test spandsp-0.0.6/tests/v17_tests.c0000664000175000017500000004441011430006315015740 0ustar steveusteveu//#define ADD_MAINS_INTERFERENCE /* * SpanDSP - a series of DSP components for telephony * * v17_tests.c * * Written by Steve Underwood * * Copyright (C) 2004 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License version 2, as * published by the Free Software Foundation. * * 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., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \page v17_tests_page V.17 modem tests \section v17_tests_page_sec_1 What does it do? These tests test one way paths, as V.17 is a half-duplex modem. They allow either: - A V.17 transmit modem to feed a V.17 receive modem through a telephone line model. BER testing is then used to evaluate performance under various line conditions. This is effective for testing the basic performance of the receive modem. It is also the only test mode provided for evaluating the transmit modem. - A V.17 receive modem is used to decode V.17 audio, stored in a audio file. This is good way to evaluate performance with audio recorded from other models of modem, and with real world problematic telephone lines. If the appropriate GUI environment exists, the tests are built such that a visual display of modem status is maintained. \section v17_tests_page_sec_2 How is it used? */ /* Enable the following definition to enable direct probing into the FAX structures */ #define WITH_SPANDSP_INTERNALS #if defined(HAVE_CONFIG_H) #include "config.h" #endif #if defined(HAVE_FL_FL_H) && defined(HAVE_FL_FL_CARTESIAN_H) && defined(HAVE_FL_FL_AUDIO_METER_H) #define ENABLE_GUI #endif #include #include #include #include #include #include #include #if defined(HAVE_FENV_H) #define __USE_GNU #include #endif //#if defined(WITH_SPANDSP_INTERNALS) #define SPANDSP_EXPOSE_INTERNAL_STRUCTURES //#endif #include "spandsp.h" #include "spandsp-sim.h" #if defined(ENABLE_GUI) #include "modem_monitor.h" #include "line_model_monitor.h" #endif #define BLOCK_LEN 160 #define OUT_FILE_NAME "v17.wav" char *decode_test_file = NULL; int use_gui = FALSE; int symbol_no = 0; int rx_bits = 0; int tx_bits = 0; int test_bps; bert_state_t bert; one_way_line_model_state_t *line_model; #if defined(ENABLE_GUI) qam_monitor_t *qam_monitor; #endif bert_results_t latest_results; static void reporter(void *user_data, int reason, bert_results_t *results) { switch (reason) { case BERT_REPORT_REGULAR: fprintf(stderr, "BERT report regular - %d bits, %d bad bits, %d resyncs\n", results->total_bits, results->bad_bits, results->resyncs); memcpy(&latest_results, results, sizeof(latest_results)); break; default: fprintf(stderr, "BERT report %s\n", bert_event_to_str(reason)); break; } } /*- End of function --------------------------------------------------------*/ static void v17_rx_status(void *user_data, int status) { v17_rx_state_t *rx; int i; int len; complexf_t *coeffs; printf("V.17 rx status is %s (%d)\n", signal_status_to_str(status), status); rx = (v17_rx_state_t *) user_data; switch (status) { case SIG_STATUS_TRAINING_SUCCEEDED: len = v17_rx_equalizer_state(rx, &coeffs); printf("Equalizer:\n"); for (i = 0; i < len; i++) printf("%3d (%15.5f, %15.5f) -> %15.5f\n", i, coeffs[i].re, coeffs[i].im, powerf(&coeffs[i])); break; } } /*- End of function --------------------------------------------------------*/ static void v17putbit(void *user_data, int bit) { v17_rx_state_t *rx; if (bit < 0) { v17_rx_status(user_data, bit); return; } rx = (v17_rx_state_t *) user_data; if (decode_test_file) printf("Rx bit %d - %d\n", rx_bits++, bit); else bert_put_bit(&bert, bit); } /*- End of function --------------------------------------------------------*/ static void v17_tx_status(void *user_data, int status) { printf("V.17 tx status is %s (%d)\n", signal_status_to_str(status), status); } /*- End of function --------------------------------------------------------*/ static int v17getbit(void *user_data) { return bert_get_bit(&bert); } /*- End of function --------------------------------------------------------*/ static void qam_report(void *user_data, const complexf_t *constel, const complexf_t *target, int symbol) { int i; int len; complexf_t *coeffs; float fpower; v17_rx_state_t *rx; static float smooth_power = 0.0f; static int update_interval = 100; rx = (v17_rx_state_t *) user_data; if (constel) { #if defined(ENABLE_GUI) if (use_gui) { qam_monitor_update_constel(qam_monitor, constel); qam_monitor_update_carrier_tracking(qam_monitor, v17_rx_carrier_frequency(rx)); qam_monitor_update_symbol_tracking(qam_monitor, v17_rx_symbol_timing_correction(rx)); } #endif fpower = (constel->re - target->re)*(constel->re - target->re) + (constel->im - target->im)*(constel->im - target->im); smooth_power = 0.95f*smooth_power + 0.05f*fpower; printf("%8d [%8.4f, %8.4f] [%8.4f, %8.4f] %2x %8.4f %8.4f %9.4f %7.3f %7.4f\n", symbol_no, constel->re, constel->im, target->re, target->im, symbol, fpower, smooth_power, v17_rx_carrier_frequency(rx), v17_rx_signal_power(rx), v17_rx_symbol_timing_correction(rx)); printf("Carrier %d %f %f\n", symbol_no, v17_rx_carrier_frequency(rx), v17_rx_symbol_timing_correction(rx)); symbol_no++; if (--update_interval <= 0) { len = v17_rx_equalizer_state(rx, &coeffs); printf("Equalizer A:\n"); for (i = 0; i < len; i++) printf("%3d (%15.5f, %15.5f) -> %15.5f\n", i, coeffs[i].re, coeffs[i].im, powerf(&coeffs[i])); #if defined(ENABLE_GUI) if (use_gui) qam_monitor_update_equalizer(qam_monitor, coeffs, len); #endif update_interval = 100; } } } /*- End of function --------------------------------------------------------*/ #if defined(HAVE_FENV_H) static void sigfpe_handler(int sig_num, siginfo_t *info, void *data) { switch (sig_num) { case SIGFPE: switch (info->si_code) { case FPE_INTDIV: fprintf(stderr, "integer divide by zero at %p\n", info->si_addr); break; case FPE_INTOVF: fprintf(stderr, "integer overflow at %p\n", info->si_addr); break; case FPE_FLTDIV: fprintf(stderr, "FP divide by zero at %p\n", info->si_addr); break; case FPE_FLTOVF: fprintf(stderr, "FP overflow at %p\n", info->si_addr); break; case FPE_FLTUND: fprintf(stderr, "FP underflow at %p\n", info->si_addr); break; case FPE_FLTRES: fprintf(stderr, "FP inexact result at %p\n", info->si_addr); break; case FPE_FLTINV: fprintf(stderr, "FP invalid operation at %p\n", info->si_addr); break; case FPE_FLTSUB: fprintf(stderr, "subscript out of range at %p\n", info->si_addr); break; } break; default: fprintf(stderr, "Unexpected signal %d\n", sig_num); break; } exit(2); } /*- End of function --------------------------------------------------------*/ static void fpe_trap_setup(void) { struct sigaction trap; sigemptyset(&trap.sa_mask); trap.sa_flags = SA_SIGINFO; trap.sa_sigaction = sigfpe_handler; sigaction(SIGFPE, &trap, NULL); //feenableexcept(FE_DIVBYZERO | FE_INEXACT | FE_INVALID | FE_OVERFLOW | FE_UNDERFLOW); //feenableexcept(FE_ALL_EXCEPT); feenableexcept(FE_DIVBYZERO | FE_INVALID | FE_OVERFLOW); } /*- End of function --------------------------------------------------------*/ #endif int main(int argc, char *argv[]) { v17_rx_state_t *rx; v17_tx_state_t *tx; bert_results_t bert_results; int16_t gen_amp[BLOCK_LEN]; int16_t amp[BLOCK_LEN]; SNDFILE *inhandle; SNDFILE *outhandle; int outframes; int samples; int tep; int block_no; int noise_level; int signal_level; int bits_per_test; int line_model_no; int log_audio; int channel_codec; int rbs_pattern; int opt; logging_state_t *logging; channel_codec = MUNGE_CODEC_NONE; rbs_pattern = 0; test_bps = 14400; tep = FALSE; line_model_no = 0; decode_test_file = NULL; use_gui = FALSE; noise_level = -70; signal_level = -13; bits_per_test = 50000; log_audio = FALSE; while ((opt = getopt(argc, argv, "b:B:c:d:glm:n:r:s:t")) != -1) { switch (opt) { case 'b': test_bps = atoi(optarg); if (test_bps != 14400 && test_bps != 12000 && test_bps != 9600 && test_bps != 7200 && test_bps != 4800) { /* 4800 is an extension of V.17, to provide full coverage of the V.32bis modes */ fprintf(stderr, "Invalid bit rate specified\n"); exit(2); } break; case 'B': bits_per_test = atoi(optarg); break; case 'c': channel_codec = atoi(optarg); break; case 'd': decode_test_file = optarg; break; case 'g': #if defined(ENABLE_GUI) use_gui = TRUE; #else fprintf(stderr, "Graphical monitoring not available\n"); exit(2); #endif break; case 'l': log_audio = TRUE; break; case 'm': line_model_no = atoi(optarg); break; case 'n': noise_level = atoi(optarg); break; case 'r': rbs_pattern = atoi(optarg); break; case 's': signal_level = atoi(optarg); break; case 't': tep = TRUE; break; default: //usage(); exit(2); break; } } inhandle = NULL; outhandle = NULL; #if defined(HAVE_FENV_H) fpe_trap_setup(); #endif if (log_audio) { if ((outhandle = sf_open_telephony_write(OUT_FILE_NAME, 1)) == NULL) { fprintf(stderr, " Cannot create audio file '%s'\n", OUT_FILE_NAME); exit(2); } } if (decode_test_file) { /* We will decode the audio from a file. */ tx = NULL; if ((inhandle = sf_open_telephony_read(decode_test_file, 1)) == NULL) { fprintf(stderr, " Cannot open audio file '%s'\n", decode_test_file); exit(2); } } else { /* We will generate V.17 audio, and add some noise to it. */ tx = v17_tx_init(NULL, test_bps, tep, v17getbit, NULL); logging = v17_tx_get_logging_state(tx); span_log_set_level(logging, SPAN_LOG_SHOW_SEVERITY | SPAN_LOG_SHOW_PROTOCOL | SPAN_LOG_FLOW); span_log_set_tag(logging, "V.17 tx"); v17_tx_power(tx, signal_level); v17_tx_set_modem_status_handler(tx, v17_tx_status, (void *) tx); #if defined(WITH_SPANDSP_INTERNALS) /* Move the carrier off a bit */ tx->carrier_phase_rate = dds_phase_ratef(1792.0f); tx->carrier_phase = 0x40000000; #endif bert_init(&bert, bits_per_test, BERT_PATTERN_ITU_O152_11, test_bps, 20); bert_set_report(&bert, 10000, reporter, NULL); if ((line_model = one_way_line_model_init(line_model_no, (float) noise_level, channel_codec, rbs_pattern)) == NULL) { fprintf(stderr, " Failed to create line model\n"); exit(2); } one_way_line_model_set_dc(line_model, 0.0f); #if defined(ADD_MAINS_INTERFERENCE) one_way_line_model_set_mains_pickup(line_model, 50, -40.0f); #endif } rx = v17_rx_init(NULL, test_bps, v17putbit, NULL); v17_rx_set_modem_status_handler(rx, v17_rx_status, (void *) rx); v17_rx_set_qam_report_handler(rx, qam_report, (void *) rx); logging = v17_rx_get_logging_state(rx); span_log_set_level(logging, SPAN_LOG_SHOW_SEVERITY | SPAN_LOG_SHOW_PROTOCOL | SPAN_LOG_FLOW); span_log_set_tag(logging, "V.17 rx"); #if defined(ENABLE_GUI) if (use_gui) { qam_monitor = qam_monitor_init(10.0f, NULL); if (!decode_test_file) { start_line_model_monitor(129); line_model_monitor_line_model_update(line_model->near_filter, line_model->near_filter_len); } } #endif memset(&latest_results, 0, sizeof(latest_results)); for (block_no = 0; block_no < 100000000; block_no++) { if (decode_test_file) { samples = sf_readf_short(inhandle, amp, BLOCK_LEN); #if defined(ENABLE_GUI) if (use_gui) qam_monitor_update_audio_level(qam_monitor, amp, samples); #endif if (samples == 0) break; } else { samples = v17_tx(tx, gen_amp, BLOCK_LEN); #if defined(ENABLE_GUI) if (use_gui) qam_monitor_update_audio_level(qam_monitor, gen_amp, samples); #endif if (samples == 0) { printf("Restarting on zero output\n"); /* Push a little silence through, to ensure all the data bits get out of the buffers */ vec_zeroi16(amp, BLOCK_LEN); v17_rx(rx, amp, BLOCK_LEN); /* Note that we might get a few bad bits as the carrier shuts down. */ bert_result(&bert, &bert_results); fprintf(stderr, "Final result %ddBm0/%ddBm0, %d bits, %d bad bits, %d resyncs\n", signal_level, noise_level, bert_results.total_bits, bert_results.bad_bits, bert_results.resyncs); fprintf(stderr, "Last report %ddBm0/%ddBm0, %d bits, %d bad bits, %d resyncs\n", signal_level, noise_level, latest_results.total_bits, latest_results.bad_bits, latest_results.resyncs); /* See if bit errors are appearing yet. Also check we are getting enough bits out of the receiver. The last regular report should be error free, though the final report will generally contain bits errors as the carrier was dying. The total number of bits out of the receiver should be at least the number we sent. Also, since BERT sync should have occurred rapidly at the start of transmission, the last report should have occurred at not much less than the total number of bits we sent. */ if (bert_results.total_bits < bits_per_test || latest_results.total_bits < bits_per_test - 100 || latest_results.bad_bits != 0) { break; } memset(&latest_results, 0, sizeof(latest_results)); #if defined(WITH_SPANDSP_INTERNALS) signal_level--; /* Bump the receiver AGC gain by 1dB, to compensate for the above */ rx->agc_scaling_save *= 1.122f; #endif v17_tx_restart(tx, test_bps, tep, TRUE); v17_tx_power(tx, signal_level); v17_rx_restart(rx, test_bps, TRUE); //rx.eq_put_step = rand()%(192*10/3); bert_init(&bert, bits_per_test, BERT_PATTERN_ITU_O152_11, test_bps, 20); bert_set_report(&bert, 10000, reporter, NULL); one_way_line_model_release(line_model); if ((line_model = one_way_line_model_init(line_model_no, (float) noise_level, channel_codec, 0)) == NULL) { fprintf(stderr, " Failed to create line model\n"); exit(2); } } if (log_audio) { outframes = sf_writef_short(outhandle, gen_amp, samples); if (outframes != samples) { fprintf(stderr, " Error writing audio file\n"); exit(2); } } one_way_line_model(line_model, amp, gen_amp, samples); } #if defined(ENABLE_GUI) if (use_gui && !decode_test_file) line_model_monitor_line_spectrum_update(amp, samples); #endif v17_rx(rx, amp, samples); } if (!decode_test_file) { bert_result(&bert, &bert_results); fprintf(stderr, "At completion:\n"); fprintf(stderr, "Final result %ddBm0/%ddBm0, %d bits, %d bad bits, %d resyncs\n", signal_level, noise_level, bert_results.total_bits, bert_results.bad_bits, bert_results.resyncs); fprintf(stderr, "Last report %ddBm0/%ddBm0, %d bits, %d bad bits, %d resyncs\n", signal_level, noise_level, latest_results.total_bits, latest_results.bad_bits, latest_results.resyncs); one_way_line_model_release(line_model); if (signal_level > -43) { printf("Tests failed.\n"); exit(2); } printf("Tests passed.\n"); } #if defined(ENABLE_GUI) if (use_gui) qam_wait_to_end(qam_monitor); #endif if (decode_test_file) { if (sf_close(inhandle)) { fprintf(stderr, " Cannot close audio file '%s'\n", decode_test_file); exit(2); } } if (log_audio) { if (sf_close(outhandle)) { fprintf(stderr, " Cannot close audio file '%s'\n", OUT_FILE_NAME); exit(2); } } return 0; } /*- End of function --------------------------------------------------------*/ /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/tests/pcap_parse.h0000664000175000017500000000311611422613736016235 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * pcap_parse.h * * Written by Steve Underwood * * Copyright (C) 2009 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License version 2, as * published by the Free Software Foundation. * * 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., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \file */ #if !defined(_SPANDSP_PCAP_PARSE_H_) #define _SPANDSP_PCAP_PARSE_H_ #if defined(__cplusplus) extern "C" { #endif typedef int (pcap_timing_update_handler_t)(void *user_data, struct timeval *ts); typedef int (pcap_packet_handler_t)(void *user_data, const uint8_t *pkt, int len); int pcap_scan_pkts(const char *file, uint32_t src_addr, uint16_t src_port, uint32_t dest_addr, uint16_t dest_port, pcap_timing_update_handler_t *timing_update_handler, pcap_packet_handler_t *packet_handler, void *user_data); #if defined(__cplusplus) } #endif #endif /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/tests/t38_gateway_to_terminal_tests.c0000664000175000017500000005671511430006315022072 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * t38_gateway_to_terminal_tests.c - Joint tests for the T.38 FoIP terminal and gateway modules. * * Written by Steve Underwood * * Copyright (C) 2005, 2006 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License version 2, as * published by the Free Software Foundation. * * 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., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \file */ /*! \page t38_gateway_to_terminal_tests_page T.38 mixed gateway and termination tests \section t38_gateway_to_terminal_tests_page_sec_1 What does it do? These tests exercise the path FAX machine -> T.38 gateway -> T.38 termination */ /* Enable the following definition to enable direct probing into the FAX structures */ //#define WITH_SPANDSP_INTERNALS #if defined(HAVE_CONFIG_H) #include #endif #if defined(HAVE_FL_FL_H) && defined(HAVE_FL_FL_CARTESIAN_H) && defined(HAVE_FL_FL_AUDIO_METER_H) #define ENABLE_GUI #endif #include #include #include #include #include #include #include #if !defined(_WIN32) #include #endif //#if defined(WITH_SPANDSP_INTERNALS) #define SPANDSP_EXPOSE_INTERNAL_STRUCTURES //#endif #include "spandsp.h" #include "spandsp-sim.h" #if defined(ENABLE_GUI) #include "media_monitor.h" #endif #include "fax_utils.h" #define SAMPLES_PER_CHUNK 160 #define INPUT_FILE_NAME "../test-data/itu/fax/itutests.tif" #define OUTPUT_FILE_NAME "t38.tif" #define OUTPUT_FILE_NAME_WAVE "t38_gateway_to_terminal.wav" fax_state_t *fax_state_a; t38_gateway_state_t *t38_state_a; t38_terminal_state_t *t38_state_b; g1050_state_t *path_a_to_b; g1050_state_t *path_b_to_a; double when = 0.0; int done[2] = {FALSE, FALSE}; int succeeded[2] = {FALSE, FALSE}; int simulate_incrementing_repeats = FALSE; int t38_version; int use_ecm; int use_tep; int use_transmit_on_idle; int supported_modems; int use_gui; int g1050_model_no; int g1050_speed_pattern_no; static int phase_b_handler(t30_state_t *s, void *user_data, int result) { int i; char tag[20]; i = (int) (intptr_t) user_data; snprintf(tag, sizeof(tag), "%c: Phase B", i); printf("%c: Phase B handler on channel %c - (0x%X) %s\n", i, i, result, t30_frametype(result)); log_rx_parameters(s, tag); return T30_ERR_OK; } /*- End of function --------------------------------------------------------*/ static int phase_d_handler(t30_state_t *s, void *user_data, int result) { int i; char tag[20]; i = (int) (intptr_t) user_data; snprintf(tag, sizeof(tag), "%c: Phase D", i); printf("%c: Phase D handler on channel %c - (0x%X) %s\n", i, i, result, t30_frametype(result)); log_transfer_statistics(s, tag); log_tx_parameters(s, tag); log_rx_parameters(s, tag); return T30_ERR_OK; } /*- End of function --------------------------------------------------------*/ static void phase_e_handler(t30_state_t *s, void *user_data, int result) { int i; t30_stats_t t; char tag[20]; i = (int) (intptr_t) user_data; snprintf(tag, sizeof(tag), "%c: Phase E", i); printf("%c: Phase E handler on channel %c - (%d) %s\n", i, i, result, t30_completion_code_to_str(result)); log_transfer_statistics(s, tag); log_tx_parameters(s, tag); log_rx_parameters(s, tag); t30_get_transfer_statistics(s, &t); succeeded[i - 'A'] = (result == T30_ERR_OK) && (t.pages_tx == 12 || t.pages_rx == 12); done[i - 'A'] = TRUE; } /*- End of function --------------------------------------------------------*/ static int tx_packet_handler_a(t38_core_state_t *s, void *user_data, const uint8_t *buf, int len, int count) { t38_terminal_state_t *t; int i; static int subst_seq = 0; /* This routine queues messages between two instances of T.38 processing */ t = (t38_terminal_state_t *) user_data; if (simulate_incrementing_repeats) { for (i = 0; i < count; i++) { span_log(&s->logging, SPAN_LOG_FLOW, "Send seq %d, len %d\n", subst_seq, len); g1050_put(path_a_to_b, buf, len, subst_seq, when); subst_seq = (subst_seq + 1) & 0xFFFF; } } else { span_log(&s->logging, SPAN_LOG_FLOW, "Send seq %d, len %d, count %d\n", s->tx_seq_no, len, count); for (i = 0; i < count; i++) g1050_put(path_a_to_b, buf, len, s->tx_seq_no, when); } return 0; } /*- End of function --------------------------------------------------------*/ static int tx_packet_handler_b(t38_core_state_t *s, void *user_data, const uint8_t *buf, int len, int count) { t38_terminal_state_t *t; int i; static int subst_seq = 0; /* This routine queues messages between two instances of T.38 processing */ t = (t38_terminal_state_t *) user_data; if (simulate_incrementing_repeats) { for (i = 0; i < count; i++) { span_log(&s->logging, SPAN_LOG_FLOW, "Send seq %d, len %d\n", subst_seq, len); g1050_put(path_b_to_a, buf, len, subst_seq, when); subst_seq = (subst_seq + 1) & 0xFFFF; } } else { span_log(&s->logging, SPAN_LOG_FLOW, "Send seq %d, len %d, count %d\n", s->tx_seq_no, len, count); for (i = 0; i < count; i++) g1050_put(path_b_to_a, buf, len, s->tx_seq_no, when); } return 0; } /*- End of function --------------------------------------------------------*/ static int decode_test(const char *decode_test_file) { int16_t t38_amp_a[SAMPLES_PER_CHUNK]; int16_t t30_amp_a[SAMPLES_PER_CHUNK]; SNDFILE *wave_handle; t30_state_t *t30; t38_core_state_t *t38_core; logging_state_t *logging; int t38_len_a; int t30_len_a; int msg_len; uint8_t msg[1024]; int seq_no; double tx_when; double rx_when; printf("Decode test data file '%s'\n", decode_test_file); if ((wave_handle = sf_open_telephony_read(decode_test_file, 1)) == NULL) { fprintf(stderr, " Cannot open audio file '%s'\n", decode_test_file); exit(2); } srand48(0x1234567); if ((path_a_to_b = g1050_init(g1050_model_no, g1050_speed_pattern_no, 100, 33)) == NULL) { fprintf(stderr, "Failed to start IP network path model\n"); exit(2); } if ((path_b_to_a = g1050_init(g1050_model_no, g1050_speed_pattern_no, 100, 33)) == NULL) { fprintf(stderr, "Failed to start IP network path model\n"); exit(2); } memset(t30_amp_a, 0, sizeof(t30_amp_a)); if ((t38_state_a = t38_gateway_init(NULL, tx_packet_handler_a, t38_state_b)) == NULL) { fprintf(stderr, "Cannot start the T.38 channel\n"); exit(2); } t38_core = t38_gateway_get_t38_core_state(t38_state_a); t38_gateway_set_transmit_on_idle(t38_state_a, use_transmit_on_idle); t38_set_t38_version(t38_core, t38_version); t38_gateway_set_ecm_capability(t38_state_a, use_ecm); logging = t38_gateway_get_logging_state(t38_state_a); span_log_set_level(logging, SPAN_LOG_DEBUG | SPAN_LOG_SHOW_TAG | SPAN_LOG_SHOW_SAMPLE_TIME); span_log_set_tag(logging, "T.38-A"); logging = t38_core_get_logging_state(t38_core); span_log_set_level(logging, SPAN_LOG_DEBUG | SPAN_LOG_SHOW_TAG | SPAN_LOG_SHOW_SAMPLE_TIME); span_log_set_tag(logging, "T.38-A"); logging = &t38_state_a->audio.modems.v17_rx.logging; span_log_set_level(logging, SPAN_LOG_DEBUG | SPAN_LOG_SHOW_TAG | SPAN_LOG_SHOW_SAMPLE_TIME); span_log_set_tag(logging, "V.17-A"); memset(t38_amp_a, 0, sizeof(t38_amp_a)); if ((t38_state_b = t38_terminal_init(NULL, FALSE, tx_packet_handler_b, t38_state_a)) == NULL) { fprintf(stderr, "Cannot start the T.38 channel\n"); exit(2); } t30 = t38_terminal_get_t30_state(t38_state_b); t38_core = t38_terminal_get_t38_core_state(t38_state_b); t38_set_t38_version(t38_core, t38_version); logging = t38_terminal_get_logging_state(t38_state_b); span_log_set_level(logging, SPAN_LOG_DEBUG | SPAN_LOG_SHOW_TAG | SPAN_LOG_SHOW_SAMPLE_TIME); span_log_set_tag(logging, "T.38-B"); logging = t38_core_get_logging_state(t38_core); span_log_set_level(logging, SPAN_LOG_DEBUG | SPAN_LOG_SHOW_TAG | SPAN_LOG_SHOW_SAMPLE_TIME); span_log_set_tag(logging, "T.38-B"); logging = t30_get_logging_state(t30); span_log_set_level(logging, SPAN_LOG_DEBUG | SPAN_LOG_SHOW_TAG | SPAN_LOG_SHOW_SAMPLE_TIME); span_log_set_tag(logging, "T.38-B"); t30_set_supported_modems(t30, supported_modems); t30_set_tx_ident(t30, "22222222"); t30_set_rx_file(t30, OUTPUT_FILE_NAME, -1); t30_set_phase_b_handler(t30, phase_b_handler, (void *) (intptr_t) 'B'); t30_set_phase_d_handler(t30, phase_d_handler, (void *) (intptr_t) 'B'); t30_set_phase_e_handler(t30, phase_e_handler, (void *) (intptr_t) 'B'); t30_set_ecm_capability(t30, use_ecm); if (use_ecm) t30_set_supported_compressions(t30, T30_SUPPORT_T4_1D_COMPRESSION | T30_SUPPORT_T4_2D_COMPRESSION | T30_SUPPORT_T6_COMPRESSION); #if defined(ENABLE_GUI) if (use_gui) start_media_monitor(); #endif for (;;) { t30_len_a = sf_readf_short(wave_handle, t30_amp_a, SAMPLES_PER_CHUNK); logging = t38_gateway_get_logging_state(t38_state_a); span_log_bump_samples(logging, t30_len_a); t38_core = t38_gateway_get_t38_core_state(t38_state_a); logging = t38_core_get_logging_state(t38_core); span_log_bump_samples(logging, t30_len_a); logging = &t38_state_a->audio.modems.v17_rx.logging; span_log_bump_samples(logging, t30_len_a); logging = t38_terminal_get_logging_state(t38_state_b); span_log_bump_samples(logging, t30_len_a); t38_core = t38_terminal_get_t38_core_state(t38_state_b); logging = t38_core_get_logging_state(t38_core); span_log_bump_samples(logging, t30_len_a); t30 = t38_terminal_get_t30_state(t38_state_b); logging = t30_get_logging_state(t30); span_log_bump_samples(logging, t30_len_a); t38_terminal_send_timeout(t38_state_b, t30_len_a); if (t38_gateway_rx(t38_state_a, t30_amp_a, t30_len_a)) break; t38_len_a = t38_gateway_tx(t38_state_a, t38_amp_a, t30_len_a); if (!use_transmit_on_idle) { if (t38_len_a < SAMPLES_PER_CHUNK) { memset(t38_amp_a + t38_len_a, 0, sizeof(int16_t)*(t30_len_a - t38_len_a)); t38_len_a = t30_len_a; } } when += (float) t30_len_a/(float) SAMPLE_RATE; while ((msg_len = g1050_get(path_a_to_b, msg, 1024, when, &seq_no, &tx_when, &rx_when)) >= 0) { #if defined(ENABLE_GUI) if (use_gui) media_monitor_rx(seq_no, tx_when, rx_when); #endif t38_core = t38_terminal_get_t38_core_state(t38_state_b); t38_core_rx_ifp_packet(t38_core, msg, msg_len, seq_no); } while ((msg_len = g1050_get(path_b_to_a, msg, 1024, when, &seq_no, &tx_when, &rx_when)) >= 0) { #if defined(ENABLE_GUI) if (use_gui) media_monitor_rx(seq_no, tx_when, rx_when); #endif t38_core = t38_gateway_get_t38_core_state(t38_state_a); t38_core_rx_ifp_packet(t38_core, msg, msg_len, seq_no); } if (done[0] && done[1]) break; #if defined(ENABLE_GUI) if (use_gui) media_monitor_update_display(); #endif } t38_gateway_release(t38_state_a); t38_terminal_release(t38_state_b); if (sf_close(wave_handle) != 0) { fprintf(stderr, " Cannot close audio file '%s'\n", decode_test_file); exit(2); } return 0; } /*- End of function --------------------------------------------------------*/ int main(int argc, char *argv[]) { int16_t t38_amp_a[SAMPLES_PER_CHUNK]; int16_t t30_amp_a[SAMPLES_PER_CHUNK]; int16_t out_amp[2*SAMPLES_PER_CHUNK]; int t38_len_a; int t30_len_a; int msg_len; uint8_t msg[1024]; int log_audio; int outframes; int feedback_audio; SNDFILE *wave_handle; const char *input_file_name; int i; int seq_no; double tx_when; double rx_when; int opt; t30_state_t *t30; t38_core_state_t *t38_core; logging_state_t *logging; char *decode_test_file; log_audio = FALSE; t38_version = 1; use_ecm = FALSE; input_file_name = INPUT_FILE_NAME; simulate_incrementing_repeats = FALSE; g1050_model_no = 0; g1050_speed_pattern_no = 1; use_gui = FALSE; use_tep = FALSE; feedback_audio = FALSE; use_transmit_on_idle = TRUE; supported_modems = T30_SUPPORT_V27TER | T30_SUPPORT_V29 | T30_SUPPORT_V17; decode_test_file = NULL; while ((opt = getopt(argc, argv, "d:efgi:Ilm:M:s:tv:")) != -1) { switch (opt) { case 'd': decode_test_file = optarg; break; case 'e': use_ecm = TRUE; break; case 'f': feedback_audio = TRUE; break; case 'g': #if defined(ENABLE_GUI) use_gui = TRUE; #else fprintf(stderr, "Graphical monitoring not available\n"); exit(2); #endif break; case 'i': input_file_name = optarg; break; case 'I': simulate_incrementing_repeats = TRUE; break; case 'l': log_audio = TRUE; break; case 'm': supported_modems = atoi(optarg); break; case 'M': g1050_model_no = optarg[0] - 'A' + 1; break; case 's': g1050_speed_pattern_no = atoi(optarg); break; case 't': use_tep = TRUE; break; case 'v': t38_version = atoi(optarg); break; default: //usage(); exit(2); break; } } printf("Using T.38 version %d\n", t38_version); if (use_ecm) printf("Using ECM\n"); if (decode_test_file) { decode_test(decode_test_file); return 0; } wave_handle = NULL; if (log_audio) { if ((wave_handle = sf_open_telephony_write(OUTPUT_FILE_NAME_WAVE, 2)) == NULL) { fprintf(stderr, " Cannot create audio file '%s'\n", OUTPUT_FILE_NAME_WAVE); exit(2); } } srand48(0x1234567); if ((path_a_to_b = g1050_init(g1050_model_no, g1050_speed_pattern_no, 100, 33)) == NULL) { fprintf(stderr, "Failed to start IP network path model\n"); exit(2); } if ((path_b_to_a = g1050_init(g1050_model_no, g1050_speed_pattern_no, 100, 33)) == NULL) { fprintf(stderr, "Failed to start IP network path model\n"); exit(2); } if ((fax_state_a = fax_init(NULL, TRUE)) == NULL) { fprintf(stderr, "Cannot start FAX\n"); exit(2); } t30 = fax_get_t30_state(fax_state_a); fax_set_transmit_on_idle(fax_state_a, use_transmit_on_idle); fax_set_tep_mode(fax_state_a, use_tep); t30_set_supported_modems(t30, supported_modems); t30_set_tx_ident(t30, "11111111"); t30_set_tx_nsf(t30, (const uint8_t *) "\x50\x00\x00\x00Spandsp\x00", 12); t30_set_tx_file(t30, input_file_name, -1, -1); t30_set_phase_b_handler(t30, phase_b_handler, (void *) (intptr_t) 'A'); t30_set_phase_d_handler(t30, phase_d_handler, (void *) (intptr_t) 'A'); t30_set_phase_e_handler(t30, phase_e_handler, (void *) (intptr_t) 'A'); t30_set_ecm_capability(t30, use_ecm); if (use_ecm) t30_set_supported_compressions(t30, T30_SUPPORT_T4_1D_COMPRESSION | T30_SUPPORT_T4_2D_COMPRESSION | T30_SUPPORT_T6_COMPRESSION); logging = fax_get_logging_state(fax_state_a); span_log_set_level(logging, SPAN_LOG_DEBUG | SPAN_LOG_SHOW_TAG | SPAN_LOG_SHOW_SAMPLE_TIME); span_log_set_tag(logging, "FAX-A "); logging = t30_get_logging_state(t30); span_log_set_level(logging, SPAN_LOG_DEBUG | SPAN_LOG_SHOW_TAG | SPAN_LOG_SHOW_SAMPLE_TIME); span_log_set_tag(logging, "FAX-A "); memset(t30_amp_a, 0, sizeof(t30_amp_a)); if ((t38_state_a = t38_gateway_init(NULL, tx_packet_handler_a, t38_state_b)) == NULL) { fprintf(stderr, "Cannot start the T.38 channel\n"); exit(2); } t38_core = t38_gateway_get_t38_core_state(t38_state_a); t38_gateway_set_transmit_on_idle(t38_state_a, use_transmit_on_idle); t38_set_t38_version(t38_core, t38_version); t38_gateway_set_ecm_capability(t38_state_a, use_ecm); logging = t38_gateway_get_logging_state(t38_state_a); span_log_set_level(logging, SPAN_LOG_DEBUG | SPAN_LOG_SHOW_TAG | SPAN_LOG_SHOW_SAMPLE_TIME); span_log_set_tag(logging, "T.38-A"); logging = t38_core_get_logging_state(t38_core); span_log_set_level(logging, SPAN_LOG_DEBUG | SPAN_LOG_SHOW_TAG | SPAN_LOG_SHOW_SAMPLE_TIME); span_log_set_tag(logging, "T.38-A"); logging = &t38_state_a->audio.modems.v17_rx.logging; span_log_set_level(logging, SPAN_LOG_DEBUG | SPAN_LOG_SHOW_TAG | SPAN_LOG_SHOW_SAMPLE_TIME); span_log_set_tag(logging, "V.17-A"); memset(t38_amp_a, 0, sizeof(t38_amp_a)); if ((t38_state_b = t38_terminal_init(NULL, FALSE, tx_packet_handler_b, t38_state_a)) == NULL) { fprintf(stderr, "Cannot start the T.38 channel\n"); exit(2); } t30 = t38_terminal_get_t30_state(t38_state_b); t38_core = t38_terminal_get_t38_core_state(t38_state_b); t38_set_t38_version(t38_core, t38_version); logging = t38_terminal_get_logging_state(t38_state_b); span_log_set_level(logging, SPAN_LOG_DEBUG | SPAN_LOG_SHOW_TAG | SPAN_LOG_SHOW_SAMPLE_TIME); span_log_set_tag(logging, "T.38-B"); logging = t38_core_get_logging_state(t38_core); span_log_set_level(logging, SPAN_LOG_DEBUG | SPAN_LOG_SHOW_TAG | SPAN_LOG_SHOW_SAMPLE_TIME); span_log_set_tag(logging, "T.38-B"); logging = t30_get_logging_state(t30); span_log_set_level(logging, SPAN_LOG_DEBUG | SPAN_LOG_SHOW_TAG | SPAN_LOG_SHOW_SAMPLE_TIME); span_log_set_tag(logging, "T.38-B"); t30_set_supported_modems(t30, supported_modems); t30_set_tx_ident(t30, "22222222"); t30_set_rx_file(t30, OUTPUT_FILE_NAME, -1); t30_set_phase_b_handler(t30, phase_b_handler, (void *) (intptr_t) 'B'); t30_set_phase_d_handler(t30, phase_d_handler, (void *) (intptr_t) 'B'); t30_set_phase_e_handler(t30, phase_e_handler, (void *) (intptr_t) 'B'); t30_set_ecm_capability(t30, use_ecm); if (use_ecm) t30_set_supported_compressions(t30, T30_SUPPORT_T4_1D_COMPRESSION | T30_SUPPORT_T4_2D_COMPRESSION | T30_SUPPORT_T6_COMPRESSION); #if defined(ENABLE_GUI) if (use_gui) start_media_monitor(); #endif for (;;) { logging = fax_get_logging_state(fax_state_a); span_log_bump_samples(logging, SAMPLES_PER_CHUNK); t30 = fax_get_t30_state(fax_state_a); logging = t30_get_logging_state(t30); span_log_bump_samples(logging, SAMPLES_PER_CHUNK); logging = t38_gateway_get_logging_state(t38_state_a); span_log_bump_samples(logging, SAMPLES_PER_CHUNK); t38_core = t38_gateway_get_t38_core_state(t38_state_a); logging = t38_core_get_logging_state(t38_core); span_log_bump_samples(logging, SAMPLES_PER_CHUNK); logging = &t38_state_a->audio.modems.v17_rx.logging; span_log_bump_samples(logging, SAMPLES_PER_CHUNK); logging = t38_terminal_get_logging_state(t38_state_b); span_log_bump_samples(logging, SAMPLES_PER_CHUNK); t38_core = t38_terminal_get_t38_core_state(t38_state_b); logging = t38_core_get_logging_state(t38_core); span_log_bump_samples(logging, SAMPLES_PER_CHUNK); t30 = t38_terminal_get_t30_state(t38_state_b); logging = t30_get_logging_state(t30); span_log_bump_samples(logging, SAMPLES_PER_CHUNK); memset(out_amp, 0, sizeof(out_amp)); t38_terminal_send_timeout(t38_state_b, SAMPLES_PER_CHUNK); t30_len_a = fax_tx(fax_state_a, t30_amp_a, SAMPLES_PER_CHUNK); if (!use_transmit_on_idle) { /* The receive side always expects a full block of samples, but the transmit side may not be sending any when it doesn't need to. We may need to pad with some silence. */ if (t30_len_a < SAMPLES_PER_CHUNK) { memset(t30_amp_a + t30_len_a, 0, sizeof(int16_t)*(SAMPLES_PER_CHUNK - t30_len_a)); t30_len_a = SAMPLES_PER_CHUNK; } } if (log_audio) { for (i = 0; i < t30_len_a; i++) out_amp[2*i] = t30_amp_a[i]; } if (feedback_audio) { for (i = 0; i < t30_len_a; i++) t30_amp_a[i] += t38_amp_a[i] >> 1; } if (t38_gateway_rx(t38_state_a, t30_amp_a, t30_len_a)) break; t38_len_a = t38_gateway_tx(t38_state_a, t38_amp_a, SAMPLES_PER_CHUNK); if (!use_transmit_on_idle) { if (t38_len_a < SAMPLES_PER_CHUNK) { memset(t38_amp_a + t38_len_a, 0, sizeof(int16_t)*(SAMPLES_PER_CHUNK - t38_len_a)); t38_len_a = SAMPLES_PER_CHUNK; } } if (log_audio) { for (i = 0; i < t38_len_a; i++) out_amp[2*i + 1] = t38_amp_a[i]; } if (fax_rx(fax_state_a, t38_amp_a, SAMPLES_PER_CHUNK)) break; when += (float) SAMPLES_PER_CHUNK/(float) SAMPLE_RATE; while ((msg_len = g1050_get(path_a_to_b, msg, 1024, when, &seq_no, &tx_when, &rx_when)) >= 0) { #if defined(ENABLE_GUI) if (use_gui) media_monitor_rx(seq_no, tx_when, rx_when); #endif t38_core = t38_terminal_get_t38_core_state(t38_state_b); t38_core_rx_ifp_packet(t38_core, msg, msg_len, seq_no); } while ((msg_len = g1050_get(path_b_to_a, msg, 1024, when, &seq_no, &tx_when, &rx_when)) >= 0) { #if defined(ENABLE_GUI) if (use_gui) media_monitor_rx(seq_no, tx_when, rx_when); #endif t38_core = t38_gateway_get_t38_core_state(t38_state_a); t38_core_rx_ifp_packet(t38_core, msg, msg_len, seq_no); } if (log_audio) { outframes = sf_writef_short(wave_handle, out_amp, SAMPLES_PER_CHUNK); if (outframes != SAMPLES_PER_CHUNK) break; } if (done[0] && done[1]) break; #if defined(ENABLE_GUI) if (use_gui) media_monitor_update_display(); #endif } fax_release(fax_state_a); t38_gateway_release(t38_state_a); t38_terminal_release(t38_state_b); if (log_audio) { if (sf_close(wave_handle) != 0) { fprintf(stderr, " Cannot close audio file '%s'\n", OUTPUT_FILE_NAME_WAVE); exit(2); } } if (!succeeded[0] || !succeeded[1]) { printf("Tests failed\n"); exit(2); } printf("Tests passed\n"); return 0; } /*- End of function --------------------------------------------------------*/ /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/tests/dtmf_tx_tests.c0000664000175000017500000001360511422612266017003 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * dtmf_tx_tests.c - Test the DTMF generator. * * Written by Steve Underwood * * Copyright (C) 2003 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License version 2, as * published by the Free Software Foundation. * * 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., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \file */ /*! \page dtmf_tx_tests_page DTMF generation tests \section dtmf_tx_tests_page_sec_1 What does it do? ???. \section dtmf_tx_tests_page_sec_2 How does it work? ???. */ #if defined(HAVE_CONFIG_H) #include "config.h" #endif #include #include #include #include #include #include //#if defined(WITH_SPANDSP_INTERNALS) #define SPANDSP_EXPOSE_INTERNAL_STRUCTURES //#endif #include "spandsp.h" #include "spandsp-sim.h" #define OUTPUT_FILE_NAME "dtmf.wav" int main(int argc, char *argv[]) { dtmf_tx_state_t *gen; int16_t amp[16384]; int len; SNDFILE *outhandle; int outframes; int add_digits; if ((outhandle = sf_open_telephony_write(OUTPUT_FILE_NAME, 1)) == NULL) { fprintf(stderr, " Cannot open audio file '%s'\n", OUTPUT_FILE_NAME); exit(2); } gen = dtmf_tx_init(NULL); len = dtmf_tx(gen, amp, 16384); printf("Generated %d samples\n", len); outframes = sf_writef_short(outhandle, amp, len); if (dtmf_tx_put(gen, "123", -1)) { printf("Ooops\n"); exit(2); } len = dtmf_tx(gen, amp, 16384); printf("Generated %d samples\n", len); outframes = sf_writef_short(outhandle, amp, len); if (dtmf_tx_put(gen, "456", -1)) { printf("Ooops\n"); exit(2); } len = dtmf_tx(gen, amp, 160); printf("Generated %d samples\n", len); outframes = sf_writef_short(outhandle, amp, len); if (dtmf_tx_put(gen, "789", -1)) { printf("Ooops\n"); exit(2); } len = dtmf_tx(gen, amp, 160); printf("Generated %d samples\n", len); outframes = sf_writef_short(outhandle, amp, len); if (dtmf_tx_put(gen, "*#", -1)) { printf("Ooops\n"); exit(2); } len = dtmf_tx(gen, amp, 160); printf("Generated %d samples\n", len); outframes = sf_writef_short(outhandle, amp, len); add_digits = 1; do { len = dtmf_tx(gen, amp, 160); printf("Generated %d samples\n", len); if (len > 0) { outframes = sf_writef_short(outhandle, amp, len); } if (add_digits) { if (dtmf_tx_put(gen, "1234567890", -1)) { printf("Digit buffer full\n"); add_digits = 0; } } } while (len > 0); dtmf_tx_init(gen); len = dtmf_tx(gen, amp, 16384); printf("Generated %d samples\n", len); outframes = sf_writef_short(outhandle, amp, len); if (dtmf_tx_put(gen, "123", -1)) { printf("Ooops\n"); exit(2); } len = dtmf_tx(gen, amp, 16384); printf("Generated %d samples\n", len); outframes = sf_writef_short(outhandle, amp, len); if (dtmf_tx_put(gen, "456", -1)) { printf("Ooops\n"); exit(2); } len = dtmf_tx(gen, amp, 160); printf("Generated %d samples\n", len); outframes = sf_writef_short(outhandle, amp, len); if (dtmf_tx_put(gen, "789", -1)) { printf("Ooops\n"); exit(2); } len = dtmf_tx(gen, amp, 160); printf("Generated %d samples\n", len); outframes = sf_writef_short(outhandle, amp, len); if (dtmf_tx_put(gen, "0*#", -1)) { printf("Ooops\n"); exit(2); } len = dtmf_tx(gen, amp, 160); printf("Generated %d samples\n", len); outframes = sf_writef_short(outhandle, amp, len); if (dtmf_tx_put(gen, "ABCD", -1)) { printf("Ooops\n"); exit(2); } len = dtmf_tx(gen, amp, 160); printf("Generated %d samples\n", len); outframes = sf_writef_short(outhandle, amp, len); /* Try modifying the level and length of the digits */ printf("Try different levels and timing\n"); dtmf_tx_set_level(gen, -20, 5); dtmf_tx_set_timing(gen, 100, 200); if (dtmf_tx_put(gen, "123", -1)) { printf("Ooops\n"); exit(2); } do { len = dtmf_tx(gen, amp, 160); printf("Generated %d samples\n", len); if (len > 0) outframes = sf_writef_short(outhandle, amp, len); } while (len > 0); printf("Restore normal levels and timing\n"); dtmf_tx_set_level(gen, -10, 0); dtmf_tx_set_timing(gen, 50, 55); if (dtmf_tx_put(gen, "A", -1)) { printf("Ooops\n"); exit(2); } add_digits = TRUE; do { len = dtmf_tx(gen, amp, 160); printf("Generated %d samples\n", len); if (len > 0) { outframes = sf_writef_short(outhandle, amp, len); } if (add_digits) { if (dtmf_tx_put(gen, "1234567890", -1)) { printf("Digit buffer full\n"); add_digits = FALSE; } } } while (len > 0); if (sf_close(outhandle) != 0) { fprintf(stderr, " Cannot close audio file '%s'\n", OUTPUT_FILE_NAME); exit(2); } return 0; } /*- End of function --------------------------------------------------------*/ /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/tests/testadsi.c0000664000175000017500000005126011422612267015734 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * testadsi.c * * Written by Steve Underwood * * Copyright (C) 2003 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License version 2, as * published by the Free Software Foundation. * * 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., 675 Mass Ave, Cambridge, MA 02139, USA. */ #if defined(HAVE_CONFIG_H) #include #endif #include #include #include #include #include #include #include #include #include #include #include #include #if defined(HAVE_LIBUNICALL) #include #include #include #include #include "unicall.h" //#include "../libmfcr2/libmfcr2.h" //#include "../libpri/libpri.h" #include "spandsp.h" #define FALSE 0 #define TRUE (!FALSE) int caller_mode = FALSE; static SNDFILE *rxhandle; static SNDFILE *txhandle; #if 0 int adsi_create_message(adsi_tx_state_t *s, uint8_t *msg) { int len; len = adsi_add_field(s, msg, -1, CLASS_SDMF_CALLERID, 0); len = adsi_add_field(s, msg, len, 0, "10011750", 8); len = adsi_add_field(s, msg, len, 0, "6095551212", 10); return len; } #endif #if 0 int adsi_create_message(adsi_tx_state_t *s, uint8_t *msg) { int len; len = adsi_add_field(s, msg, -1, CLIP_MDMF_CALLERID, 0); len = adsi_add_field(s, msg, len, CLIP_CALLTYPE, "\x81", 1); len = adsi_add_field(s, msg, len, CLIP_DATETIME, "10011750", 8); len = adsi_add_field(s, msg, len, CLIP_CALLER_NUMBER, "12345678", 8); len = adsi_add_field(s, msg, len, CLIP_DIALED_NUMBER, "87654321", 8); len = adsi_add_field(s, msg, len, CLIP_CALLER_NAME, "Steve Underwood", 15); return len; } #endif #if 0 int adsi_create_message(adsi_tx_state_t *s, uint8_t *msg) { int len; len = adsi_add_field(s, msg, -1, CLIP_MDMF_CALLERID, 0); len = adsi_add_field(s, msg, len, CLIP_NUM_MSG, "\x03", 1); return len; } #endif #if 0 int adsi_create_message(adsi_tx_state_t *s, uint8_t *msg) { int len; len = adsi_add_field(s, msg, -1, CLIP_MDMF_MSG_WAITING, NULL, 0); len = adsi_add_field(s, msg, len, CLIP_VISUAL_INDICATOR, "\x00", 1); return len; } #endif #if 0 int adsi_create_message(adsi_tx_state_t *s, uint8_t *msg) { int len; len = adsi_add_field(s, msg, -1, CLIP_MDMF_MSG_WAITING, NULL, 0); len = adsi_add_field(s, msg, len, CLIP_VISUAL_INDICATOR, "\xFF", 1); len = adsi_add_field(s, msg, len, CLIP_NUM_MSG, "\x05", 1); return len; } #endif #if 1 int adsi_create_message(adsi_tx_state_t *s, uint8_t *msg) { int len; len = adsi_add_field(s, msg, -1, CLASS_SDMF_MSG_WAITING, NULL, 0); len = adsi_add_field(s, msg, len, 0, "\x6F", 1); len = adsi_add_field(s, msg, len, 0, "\x6F", 1); len = adsi_add_field(s, msg, len, 0, "\x6F", 1); return len; } #endif #if 0 int adsi_create_message(adsi_tx_state_t *s, uint8_t *msg) { int len; len = adsi_add_field(s, msg, -1, CLASS_SDMF_MSG_WAITING, NULL, 0); len = adsi_add_field(s, msg, len, 0, "\x42", 1); len = adsi_add_field(s, msg, len, 0, "\x42", 1); len = adsi_add_field(s, msg, len, 0, "\x42", 1); return len; } #endif #if 0 int adsi_create_message(adsi_tx_state_t *s, uint8_t *msg) { int len; len = adsi_add_field(s, msg, -1, CLIP_MDMF_SMS, NULL, 0); len = adsi_add_field(s, msg, len, CLIP_DISPLAY_INFO, "\x00ABC", 4); return len; } #endif struct { pthread_t thread; int chan; int sig_fd; int fd; uc_call_t *call; uc_crn_t crn; int xxx; int cause; dtmf_rx_state_t dtmf_state; char dtmf[101]; int dtmf_ptr; char *tag; char originating_number[32]; char destination_number[32]; adsi_rx_state_t adsi_rx; adsi_tx_state_t adsi_tx; } chan_stuff[30]; tone_gen_descriptor_t tone_desc; tone_gen_state_t gen; void channel_read_adsi_channel(uc_t *uc, int chan, void *user_data, uint8_t *buf, int len); int channel_write_adsi_channel(uc_t *uc, int chan, void *user_data, uint8_t *buf, int max_len); int channel_error(uc_t *uc, int chan, void *user_data, int cause); int signaling_error(uc_t *uc, void *user_data, int cause); void channel_read_adsi_channel(uc_t *uc, int chan, void *user_data, uint8_t *buf, int len) { int i; int xlen; int16_t pcm_buf[1024]; char *s; int outframes; for (i = 0; i < len; i++) pcm_buf[i] = alaw_to_linear(buf[i]); /*endfor*/ outframes = sf_writef_short(rxhandle, AF_DEFAULT_TRACK, pcm_buf, len); if (outframes != len) { printf("Failed to write %d samples\n", len); exit(2); } dtmf_rx(&chan_stuff[chan].dtmf_state, pcm_buf, len); xlen = dtmf_rx_get(&chan_stuff[chan].dtmf_state, chan_stuff[chan].dtmf + chan_stuff[chan].dtmf_ptr, 100 - chan_stuff[chan].dtmf_ptr); if (xlen > 0) { s = chan_stuff[chan].dtmf + chan_stuff[chan].dtmf_ptr; while (*s) { if (*s == '#') { uc_set_channel_read_callback(uc, 0, NULL, 0); uc_set_channel_write_callback(uc, 0, NULL, 0); if (uc_call_control(uc, UC_OP_DROPCALL, chan_stuff[chan].crn, (void *) UC_CAUSE_NORMAL_CLEARING)) printf ("A Drop Call failed\n"); /*endif*/ break; } /*endif*/ s++; } /*endwhile*/ printf("Got '%s'\n", chan_stuff[chan].dtmf); chan_stuff[chan].dtmf_ptr += xlen; } /*endif*/ adsi_rx(&(chan_stuff[chan].adsi_rx), pcm_buf, len); } /*- End of function --------------------------------------------------------*/ int channel_write_adsi_channel(uc_t *uc, int chan, void *user_data, uint8_t *buf, int max_len) { int16_t pcm_buf[1024]; int len; int i; static int block = 0; uint8_t adsi_msg[256]; int adsi_msg_len; if (++block == 100) { adsi_send_alert_tone(&(chan_stuff[chan].adsi_tx)); printf("Alert tone sent\n"); adsi_msg_len = adsi_create_message(&(chan_stuff[chan].adsi_tx), adsi_msg); if ((len = adsi_put_message(&(chan_stuff[chan].adsi_tx), adsi_msg, adsi_msg_len)) > 0) printf("Message put - %d bytes\n", len); } len = adsi_tx(&(chan_stuff[chan].adsi_tx), pcm_buf, max_len); sf_writef_short(txhandle, AF_DEFAULT_TRACK, pcm_buf, len); for (i = 0; i < len; i++) buf[i] = linear_to_alaw(pcm_buf[i]); /*endfor*/ return len; } /*- End of function --------------------------------------------------------*/ int channel_error(uc_t *uc, int chan, void *user_data, int cause) { printf("Error %d\n", cause); return 0; } /*- End of function --------------------------------------------------------*/ int signaling_error(uc_t *uc, void *user_data, int cause) { printf("Error %d\n", cause); return 0; } /*- End of function --------------------------------------------------------*/ static void initiate_call(uc_t *uc, int chan, uc_event_t *e) { uc_makecall_t makecall; uc_callparms_t *callparms; int ret; printf ("Initiating call\n"); if ((callparms = uc_new_callparms(NULL)) == NULL) return; /*endif*/ uc_callparm_originating_number(callparms, chan_stuff[chan].originating_number); uc_callparm_destination_number(callparms, chan_stuff[chan].destination_number); makecall.callparms = callparms; makecall.crn = 0; if (ret = uc_call_control(uc, UC_OP_MAKECALL, 0, (void *) &makecall) != UC_RET_OK) fprintf(stderr, "Make Call failed - %d\n", ret); /*endif*/ chan_stuff[chan].crn = makecall.crn; free(callparms); } /*- End of function --------------------------------------------------------*/ static void handle_uc_event(uc_t *uc, void *user_data, uc_event_t *e) { int chan; chan = (int) user_data; printf ("-- %s (%d)\n", uc_event2str(e->e), chan); switch (e->e) { case UC_EVENT_DEVICEFAIL: break; case UC_EVENT_PROTOCOLFAIL: printf("-- Protocol failure on channel %d, cause %d\n", e->gen.channel, e->gen.data); break; case UC_EVENT_SIGCHANSTATUS: printf("-- Signalling channel status - %s\n", e->sigchanstatus.ok ? "Up" : "Down"); break; case UC_EVENT_ALARM: printf("-- Alarm - 0x%X 0x%X\n", e->alarm.raised, e->alarm.cleared); break; case UC_EVENT_FARBLOCKED: printf("-- Channel far end blocked! :-(\n"); chan_stuff[chan].xxx &= ~1; break; case UC_EVENT_FARUNBLOCKED: printf("-- Channel far end unblocked! :-)\n"); chan_stuff[chan].xxx |= 1; if (chan_stuff[chan].xxx == 3) { if (caller_mode) initiate_call(uc, chan, e); /*endif*/ } /*endif*/ break; case UC_EVENT_LOCALBLOCKED: printf("-- Channel local end blocked! :-(\n"); chan_stuff[chan].xxx &= ~2; break; case UC_EVENT_LOCALUNBLOCKED: printf("-- Channel local end unblocked! :-)\n"); chan_stuff[chan].xxx |= 2; if (chan_stuff[chan].xxx == 3) { if (caller_mode) initiate_call(uc, chan, e); /*endif*/ } /*endif*/ break; case UC_EVENT_DIALING: printf("-- Dialing on channel %d\n", e->gen.channel); break; case UC_EVENT_ACCEPTED: printf("-- Accepted on channel %d\n", e->gen.channel); if (uc_call_control(uc, UC_OP_ANSWERCALL, e->gen.crn, (void *) -1)) fprintf(stderr, "Answer Call failed\n"); /*endif*/ break; case UC_EVENT_DETECTED: printf("-- Detected on channel %d\n", e->gen.channel); break; case UC_EVENT_ALERTING: printf("-- Alerting on channel %d\n", e->gen.channel); /* This is just a notification of call progress. We need take no action at this point. */ break; case UC_EVENT_FARDISCONNECTED: printf("-- Far end disconnected on channel %d\n", e->fardisconnected.channel); /* Kill any outstanding audio processing */ uc_set_channel_read_callback(uc, 0, NULL, 0); uc_set_channel_write_callback(uc, 0, NULL, 0); if (uc_call_control(uc, UC_OP_DROPCALL, e->fardisconnected.crn, (void *) UC_CAUSE_NORMAL_CLEARING)) fprintf(stderr, "C Drop Call failed\n"); /*endif*/ break; case UC_EVENT_DROPCALL: printf("-- Drop call on channel %d\n", e->gen.channel); if (uc_call_control(uc, UC_OP_RELEASECALL, e->gen.crn, NULL)) fprintf(stderr, "uc_ReleaseCall failed\n"); /*endif*/ break; case UC_EVENT_RELEASECALL: printf("-- Released on channel %d\n", e->gen.channel); if (caller_mode) initiate_call(uc, chan, e); /*endif*/ break; case UC_EVENT_OFFERED: printf("-- Offered on channel %d, CRN %d (ANI: %s, DNIS: %s)\n", e->offered.channel, e->offered.crn, e->offered.parms.originating_number, e->offered.parms.destination_number); if (!caller_mode) { switch (chan_stuff[chan].cause) { case 0: if (uc_call_control(uc, UC_OP_ACCEPTCALL, e->offered.crn, (void *) -1)) fprintf(stderr, "uc_AcceptCall failed\n"); /*endif*/ break; case 1: if (uc_call_control(uc, UC_OP_ANSWERCALL, e->offered.crn, (void *) -1)) fprintf(stderr, "uc_AnswerCall failed\n"); /*endif*/ break; case 2: if (uc_call_control(uc, UC_OP_DROPCALL, e->offered.crn, (void *) UC_CAUSE_USER_BUSY)) fprintf(stderr, "E Drop Call failed\n"); /*endif*/ break; case 3: if (uc_call_control(uc, UC_OP_DROPCALL, e->offered.crn, (void *) UC_CAUSE_UNASSIGNED_NUMBER)) fprintf(stderr, "F Drop Call failed\n"); /*endif*/ break; case 4: if (uc_call_control(uc, UC_OP_DROPCALL, e->offered.crn, (void *) UC_CAUSE_NETWORK_CONGESTION)) fprintf(stderr, "G Drop Call failed\n"); /*endif*/ break; case 5: if (uc_call_control(uc, UC_OP_DROPCALL, e->offered.crn, (void *) UC_CAUSE_DEST_OUT_OF_ORDER)) fprintf(stderr, "H Drop Call failed\n"); /*endif*/ break; } /*endswitch*/ if (++chan_stuff[chan].cause > 5) chan_stuff[chan].cause = 0; /*endif*/ } /*endif*/ break; case UC_EVENT_ANSWERED: printf("-- Answered on channel %d\n", e->gen.channel); uc_set_channel_read_callback(uc, 0, channel_read_adsi_channel, (void *) chan); printf("XXX read callback set\n"); uc_set_channel_write_callback(uc, 0, channel_write_adsi_channel, (void *) chan); printf("XXX write callback set\n"); adsi_tx_init(&(chan_stuff[chan].adsi_tx), ADSI_STANDARD_CLASS); printf("XXX ADSI inited\n"); dtmf_rx_init(&chan_stuff[chan].dtmf_state, NULL, NULL); printf("XXX DTMF inited\n"); break; case UC_EVENT_CONNECTED: printf("-- Connected on channel %d\n", e->gen.channel); if (uc_call_control(uc, UC_OP_DROPCALL, e->offered.crn, (void *) UC_CAUSE_NORMAL_CLEARING)) printf ("I Drop Call failed\n"); /*endif*/ break; default: fprintf(stderr, "--!! Unknown signaling event %d\n", e->e); break; } /*endswitch*/ } /*- End of function --------------------------------------------------------*/ static void *run_uc(void *arg) { uc_t *uc; uc_event_t *e; struct timeval tv = {0,0}; struct timeval *next; fd_set rfds; fd_set wfds; fd_set efds; int res; int dfd; int chan; chan = *((int *) arg); dfd = chan_stuff[chan].fd; uc = uc_new(dfd, dfd, "mfcr2", "cn", UC_MODE_CPE, 1); //uc = uc_new(dfd, dfd, "pri", "ctr4", UC_MODE_CPE, 1); if (uc == NULL) { fprintf(stderr, "Unable to create instance\n"); return NULL; } /*endif*/ uc_set_signaling_callback(uc, handle_uc_event, (void *) chan); uc_set_signaling_error_callback(uc, signaling_error, (void *) chan); uc_set_channel_error_callback(uc, 0, channel_error, (void *) chan); uc_set_logging(uc, 0x7FFFFFFF, 0, chan_stuff[chan].tag); uc_call_control(uc, UC_OP_UNBLOCK, 0, (void *) -1); for (;;) { FD_ZERO(&rfds); FD_ZERO(&wfds); FD_ZERO(&efds); FD_SET(dfd, &rfds); FD_SET(dfd, &wfds); FD_SET(dfd, &efds); if ((next = uc_schedule_next(uc))) { gettimeofday(&tv, NULL); tv.tv_sec = next->tv_sec - tv.tv_sec; tv.tv_usec = next->tv_usec - tv.tv_usec; if (tv.tv_usec < 0) { tv.tv_usec += 1000000; tv.tv_sec -= 1; } /*endif*/ if (tv.tv_sec < 0) { tv.tv_sec = 0; tv.tv_usec = 0; } /*endif*/ } /*endif*/ res = select(dfd + 1, &rfds, NULL, &efds, next ? &tv : NULL); e = NULL; if (res == 0) { uc_schedule_run(uc); } else if (res > 0) { e = uc_check_event(uc); } else if (errno != EINTR) { fprintf(stderr, "Error (%d) on select: %s\n", errno, strerror(errno)); } /*endif*/ if (e) { printf("Non-callback signaling event\n"); handle_uc_event(uc, (void *) chan, e); } /*endif*/ } /*endfor*/ return NULL; } /*- End of function --------------------------------------------------------*/ int main(int argc, char *argv[]) { pthread_attr_t attr; struct zt_bufferinfo b; struct zt_gains g; int chan; int chanx; char dev_name[20]; AFfilesetup filesetup; int j; filesetup = afNewFileSetup(); if (filesetup == AF_NULL_FILESETUP) { fprintf(stderr, " Failed to create file setup\n"); exit(2); } afInitSampleFormat(filesetup, AF_DEFAULT_TRACK, AF_SAMPFMT_TWOSCOMP, 16); afInitRate(filesetup, AF_DEFAULT_TRACK, (float) SAMPLE_RATE); afInitFileFormat(filesetup, AF_FILE_WAVE); afInitChannels(filesetup, AF_DEFAULT_TRACK, 1); rxhandle = afOpenFile("rxadsi.wav", "w", filesetup); if (rxhandle == NULL) { fprintf(stderr, " Failed to open adsi audio file\n"); exit(2); } txhandle = afOpenFile("txadsi.wav", "w", filesetup); if (txhandle == NULL) { fprintf(stderr, " Failed to open adsi audio file\n"); exit(2); } uc_start(); pthread_attr_init(&attr); pthread_attr_setdetachstate(&attr, PTHREAD_CREATE_DETACHED); if (argc < 1) { fprintf(stderr, "Usage: testcall [call]\n"); exit(1); } /*endif*/ for (chan = 0; chan < 1/*30*/; chan++) { chan_stuff[chan].sig_fd = open("/dev/zap/channel", O_RDWR | O_NONBLOCK); if (chan_stuff[chan].sig_fd < 0) { fprintf(stderr, "Failed to open channel: %s\n", strerror(errno)); exit(1); } /*endif*/ chan_stuff[chan].fd = chan_stuff[chan].sig_fd; /* Allow for the missing channel at TS16 */ if (chan < 15) chanx = chan + 1; else chanx = chan + 2; /*endif*/ if (ioctl(chan_stuff[chan].fd, ZT_SPECIFY, &chanx)) { fprintf(stderr, "Failed to specify channel %d: %s\n", chanx, strerror(errno)); exit(1); } /*endif*/ if (ioctl(chan_stuff[chan].fd, ZT_GET_BUFINFO, &b)) { fprintf(stderr, "Unable to get buffer info on channel %d: %s\n", chanx, strerror(errno)); exit(1); } /*endif*/ printf ("%d %d %d %d %d %d\n", b.rxbufpolicy, b.txbufpolicy, b.numbufs, b.bufsize, b.readbufs, b.writebufs); b.rxbufpolicy = ZT_POLICY_IMMEDIATE; b.txbufpolicy = ZT_POLICY_IMMEDIATE; b.numbufs = 4; b.bufsize = 160; if (ioctl(chan_stuff[chan].fd, ZT_SET_BUFINFO, &b)) { fprintf(stderr, "Unable to set buffer info on channel %d: %s\n", chanx, strerror(errno)); exit(1); } /*endif*/ if (ioctl(chan_stuff[chan].fd, ZT_GET_BUFINFO, &b)) { fprintf(stderr, "Unable to get buffer info on channel %d: %s\n", chanx, strerror(errno)); exit(1); } /*endif*/ for (j = 0; j < 256; j++) { g.rxgain[j] = j; g.txgain[j] = j; } ioctl(chan_stuff[chan].fd, ZT_SETGAINS, &g); printf("%d %d %d %d %d %d\n", b.rxbufpolicy, b.txbufpolicy, b.numbufs, b.bufsize, b.readbufs, b.writebufs); if (argc > 1) caller_mode = TRUE; /*endif*/ chan_stuff[chan].chan = chan; sprintf(dev_name, "Chan %2d:", chanx); chan_stuff[chan].tag = strdup(dev_name); sprintf(chan_stuff[chan].originating_number, "%d", 987654321 + chan); sprintf(chan_stuff[chan].destination_number, "%d", 1234 + chan); printf("Thread for channel %d\n", chan); if (pthread_create(&chan_stuff[chan].thread, &attr, run_uc, &chan_stuff[chan].chan)) exit(2); /*endif*/ } /*endfor*/ for (;;) { sleep(5); printf("Main thread\n"); } /*endfor*/ exit(0); return 0; } /*- End of function --------------------------------------------------------*/ #else int main(int argc, char *argv[]) { printf("This program was not built with Unicall available\n"); } /*- End of function --------------------------------------------------------*/ #endif /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/tests/super_tone_tx_tests.c0000664000175000017500000002053211422612267020232 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * super_tone_generate_tests.c * * Written by Steve Underwood * * Copyright (C) 2003 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License version 2, as * published by the Free Software Foundation. * * 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., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \file */ /*! \page super_tone_tx_tests_page Supervisory tone generation tests \section super_tone_tx_tests_page_sec_1 What does it do? */ #if defined(HAVE_CONFIG_H) #include "config.h" #endif #include #include #include #include #include #include #include #include #include #include #if defined(HAVE_LIBXML_XMLMEMORY_H) #include #endif #if defined(HAVE_LIBXML_PARSER_H) #include #endif #if defined(HAVE_LIBXML_XINCLUDE_H) #include #endif //#if defined(WITH_SPANDSP_INTERNALS) #define SPANDSP_EXPOSE_INTERNAL_STRUCTURES //#endif #include "spandsp.h" #include "spandsp-sim.h" #define OUT_FILE_NAME "super_tone.wav" SNDFILE *outhandle; super_tone_tx_step_t *tone_tree = NULL; static void play_tones(super_tone_tx_state_t *tone, int max_samples) { int16_t amp[8000]; int len; int outframes; int i; int total_length; i = 500; total_length = 0; do { len = super_tone_tx(tone, amp, 160); outframes = sf_writef_short(outhandle, amp, len); if (outframes != len) { fprintf(stderr, " Error writing audio file\n"); exit(2); } total_length += len; } while (len > 0 && --i > 0); printf("Tone length = %d samples (%dms)\n", total_length, total_length/8); } /*- End of function --------------------------------------------------------*/ #if defined(HAVE_LIBXML2) static int parse_tone(super_tone_tx_step_t **tree, xmlDocPtr doc, xmlNsPtr ns, xmlNodePtr cur) { xmlChar *x; float f1; float f2; float f_tol; float l1; float l2; float length; float length_tol; int cycles; super_tone_tx_step_t *treep; cur = cur->xmlChildrenNode; while (cur) { if (xmlStrcmp(cur->name, (const xmlChar *) "step") == 0) { printf("Step - "); /* Set some defaults */ f1 = 0.0; f2 = 0.0; f_tol = 1.0; l1 = -11.0; l2 = -11.0; length = 0.0; length_tol = 10.0; cycles = 1; if ((x = xmlGetProp(cur, (const xmlChar *) "freq"))) { sscanf((char *) x, "%f [%f%%]", &f1, &f_tol); sscanf((char *) x, "%f+%f [%f%%]", &f1, &f2, &f_tol); printf("Frequency=%.2f+%.2f [%.2f%%]", f1, f2, f_tol); xmlFree(x); } if ((x = xmlGetProp(cur, (const xmlChar *) "level"))) { if (sscanf((char *) x, "%f+%f", &l1, &l2) < 2) l2 = l1; printf("Level=%.2f+%.2f", l1, l2); xmlFree(x); } if ((x = xmlGetProp(cur, (const xmlChar *) "length"))) { sscanf((char *) x, "%f [%f%%]", &length, &length_tol); printf("Length=%.2f [%.2f%%]", length, length_tol); xmlFree(x); } if ((x = xmlGetProp(cur, (const xmlChar *) "recognition-length"))) { printf("Recognition length='%s'", x); xmlFree(x); } if ((x = xmlGetProp(cur, (const xmlChar *) "cycles"))) { if (strcasecmp((char *) x, "endless") == 0) cycles = 0; else cycles = atoi((char *) x); printf("Cycles=%d ", cycles); xmlFree(x); } if ((x = xmlGetProp(cur, (const xmlChar *) "recorded-announcement"))) { printf("Recorded announcement='%s'", x); xmlFree(x); } printf("\n"); treep = super_tone_tx_make_step(NULL, f1, l1, f2, l2, length*1000.0 + 0.5, cycles); *tree = treep; tree = &(treep->next); parse_tone(&(treep->nest), doc, ns, cur); } /*endif*/ cur = cur->next; } /*endwhile*/ return 0; } /*- End of function --------------------------------------------------------*/ static void parse_tone_set(xmlDocPtr doc, xmlNsPtr ns, xmlNodePtr cur) { super_tone_tx_state_t tone; printf("Parsing tone set\n"); cur = cur->xmlChildrenNode; while (cur) { if (strcmp((char *) cur->name + strlen((char *) cur->name) - 5, "-tone") == 0) { printf("Hit %s\n", cur->name); tone_tree = NULL; parse_tone(&tone_tree, doc, ns, cur); super_tone_tx_init(&tone, tone_tree); //printf("Len %p %p %d %d\n", (void *) tone.levels[0], (void *) tone_tree, tone_tree->length, tone_tree->tone); play_tones(&tone, 99999999); super_tone_tx_free_tone(tone_tree); } /*endif*/ cur = cur->next; } /*endwhile*/ } /*- End of function --------------------------------------------------------*/ static void get_tone_set(const char *tone_file, const char *set_id) { xmlDocPtr doc; xmlNsPtr ns; xmlNodePtr cur; #if 0 xmlValidCtxt valid; #endif xmlChar *x; ns = NULL; xmlKeepBlanksDefault(0); xmlCleanupParser(); doc = xmlParseFile(tone_file); if (doc == NULL) { fprintf(stderr, "No document\n"); exit(2); } /*endif*/ xmlXIncludeProcess(doc); #if 0 if (!xmlValidateDocument(&valid, doc)) { fprintf(stderr, "Invalid document\n"); exit(2); } /*endif*/ #endif /* Check the document is of the right kind */ if ((cur = xmlDocGetRootElement(doc)) == NULL) { fprintf(stderr, "Empty document\n"); xmlFreeDoc(doc); exit(2); } /*endif*/ if (xmlStrcmp(cur->name, (const xmlChar *) "global-tones")) { fprintf(stderr, "Document of the wrong type, root node != global-tones"); xmlFreeDoc(doc); exit(2); } /*endif*/ cur = cur->xmlChildrenNode; while (cur && xmlIsBlankNode(cur)) cur = cur->next; /*endwhile*/ if (cur == NULL) exit(2); /*endif*/ while (cur) { if (xmlStrcmp(cur->name, (const xmlChar *) "tone-set") == 0) { if ((x = xmlGetProp(cur, (const xmlChar *) "uncode"))) { if (strcmp((char *) x, set_id) == 0) parse_tone_set(doc, ns, cur); /*endif*/ xmlFree(x); } /*endif*/ } /*endif*/ cur = cur->next; } /*endwhile*/ xmlFreeDoc(doc); } /*- End of function --------------------------------------------------------*/ #endif int main(int argc, char *argv[]) { if ((outhandle = sf_open_telephony_write(OUT_FILE_NAME, 1)) == NULL) { fprintf(stderr, " Cannot open audio file '%s'\n", OUT_FILE_NAME); exit(2); } #if defined(HAVE_LIBXML2) get_tone_set("../spandsp/global-tones.xml", (argc > 1) ? argv[1] : "hk"); #endif if (sf_close (outhandle) != 0) { fprintf(stderr, " Cannot close audio file '%s'\n", OUT_FILE_NAME); exit(2); } printf("Done\n"); return 0; } /*- End of function --------------------------------------------------------*/ /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/tests/fax_utils.h0000664000175000017500000000236211422612266016115 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * fax_utils.h * * Written by Steve Underwood * * Copyright (C) 2009 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License version 2, as * published by the Free Software Foundation. * * 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., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \file */ #if !defined(_SPANDSP_FAX_UTILS_H_) #define _SPANDSP_FAX_UTILS_H_ #if defined(__cplusplus) extern "C" { #endif void log_tx_parameters(t30_state_t *s, const char *tag); void log_rx_parameters(t30_state_t *s, const char *tag); void log_transfer_statistics(t30_state_t *s, const char *tag); #if defined(__cplusplus) } #endif #endif /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/tests/t38_core_tests.c0000664000175000017500000002120611422612267016761 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * t38_core_tests.c - Tests for the T.38 FoIP core module. * * Written by Steve Underwood * * Copyright (C) 2007 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License version 2, as * published by the Free Software Foundation. * * 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., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \file */ /*! \page t38_core_tests_page T.38 core tests \section t38_core_tests_page_sec_1 What does it do? These tests exercise the T.38 core ASN.1 processing code. */ #if defined(HAVE_CONFIG_H) #include #endif #include #include #include #include #include #include //#if defined(WITH_SPANDSP_INTERNALS) #define SPANDSP_EXPOSE_INTERNAL_STRUCTURES //#endif #include "spandsp.h" #define MAX_FIELDS 42 #define MAX_FIELD_LEN 8192 int t38_version; int succeeded = TRUE; int ok_indicator_packets; int bad_indicator_packets; int ok_data_packets; int bad_data_packets; int missing_packets; int current_indicator; int current_data_type; int current_field_type; int skip; uint8_t field_body[MAX_FIELDS][MAX_FIELD_LEN]; int field_len[MAX_FIELDS]; static int rx_missing_handler(t38_core_state_t *s, void *user_data, int rx_seq_no, int expected_seq_no) { missing_packets++; //printf("Hit missing\n"); return 0; } /*- End of function --------------------------------------------------------*/ static int rx_indicator_handler(t38_core_state_t *s, void *user_data, int indicator) { if (indicator == current_indicator) ok_indicator_packets++; else bad_indicator_packets++; //printf("Hit indicator %d\n", indicator); return 0; } /*- End of function --------------------------------------------------------*/ static int rx_data_handler(t38_core_state_t *s, void *user_data, int data_type, int field_type, const uint8_t *buf, int len) { if (--skip >= 0) { if (data_type == current_data_type && field_type == current_field_type) ok_data_packets++; else bad_data_packets++; } else { if (data_type == current_data_type && field_type == T38_FIELD_T4_NON_ECM_SIG_END) ok_data_packets++; else bad_data_packets++; } //printf("Hit data %d, field %d\n", data_type, field_type); return 0; } /*- End of function --------------------------------------------------------*/ static int tx_packet_handler(t38_core_state_t *s, void *user_data, const uint8_t *buf, int len, int count) { t38_core_state_t *t; static int seq_no = 0; t = (t38_core_state_t *) user_data; span_log(&s->logging, SPAN_LOG_FLOW, "Send seq %d, len %d, count %d\n", s->tx_seq_no, len, count); if (t38_core_rx_ifp_packet(t, buf, len, seq_no) < 0) succeeded = FALSE; seq_no++; return 0; } /*- End of function --------------------------------------------------------*/ static int encode_decode_tests(t38_core_state_t *a, t38_core_state_t *b) { t38_data_field_t field[MAX_FIELDS]; int i; int j; ok_indicator_packets = 0; bad_indicator_packets = 0; ok_data_packets = 0; bad_data_packets = 0; missing_packets = 0; /* Try all the indicator types */ for (i = 0; i < 100; i++) { current_indicator = i; if (t38_core_send_indicator(a, i) < 0) break; } /* Try all the data types, as single field messages with no data */ for (i = 0; i < 100; i++) { for (j = 0; j < 100; j++) { current_data_type = i; current_field_type = j; skip = 99; if (t38_core_send_data(a, i, j, (uint8_t *) "", 0, T38_PACKET_CATEGORY_CONTROL_DATA) < 0) break; } if (j == 0) break; } /* Try all the data types and field types, as single field messages with data */ for (i = 0; i < 100; i++) { for (j = 0; j < 100; j++) { current_data_type = i; current_field_type = j; skip = 99; if (t38_core_send_data(a, i, j, (uint8_t *) "ABCD", 4, T38_PACKET_CATEGORY_CONTROL_DATA) < 0) break; } if (j == 0) break; } /* Try all the data types and field types, as multi-field messages */ for (i = 0; i < 100; i++) { for (j = 0; j < 100; j++) { current_data_type = i; current_field_type = j; skip = 1; field_len[0] = 444; field_len[1] = 333; field[0].field_type = j; field[0].field = field_body[0]; field[0].field_len = field_len[0]; field[1].field_type = T38_FIELD_T4_NON_ECM_SIG_END; field[1].field = field_body[1]; field[1].field_len = field_len[1]; if (t38_core_send_data_multi_field(a, i, field, 2, T38_PACKET_CATEGORY_CONTROL_DATA) < 0) break; } if (j == 0) break; } printf("Indicator packets: OK = %d, bad = %d\n", ok_indicator_packets, bad_indicator_packets); printf("Data packets: OK = %d, bad = %d\n", ok_data_packets, bad_data_packets); printf("Missing packets = %d\n", missing_packets); if (t38_version == 0) { if (ok_indicator_packets != 16 || bad_indicator_packets != 0) { printf("Tests failed\n"); return -1; } if (ok_data_packets != 288 || bad_data_packets != 0) { printf("Tests failed\n"); return -1; } } else { if (ok_indicator_packets != 23 || bad_indicator_packets != 0) { printf("Tests failed\n"); return -1; } if (ok_data_packets != 720 || bad_data_packets != 0) { printf("Tests failed\n"); return -1; } } if (missing_packets > 0) { printf("Tests failed\n"); return -1; } return 0; } /*- End of function --------------------------------------------------------*/ static int attack_tests(t38_core_state_t *s) { return 0; } /*- End of function --------------------------------------------------------*/ int main(int argc, char *argv[]) { t38_core_state_t t38_core_a; t38_core_state_t t38_core_b; for (t38_version = 0; t38_version < 2; t38_version++) { printf("Using T.38 version %d\n", t38_version); if (t38_core_init(&t38_core_a, rx_indicator_handler, rx_data_handler, rx_missing_handler, &t38_core_b, tx_packet_handler, &t38_core_b) == NULL) { fprintf(stderr, "Cannot start the T.38 core\n"); exit(2); } if (t38_core_init(&t38_core_b, rx_indicator_handler, rx_data_handler, rx_missing_handler, &t38_core_a, tx_packet_handler, &t38_core_a) == NULL) { fprintf(stderr, "Cannot start the T.38 core\n"); exit(2); } t38_set_t38_version(&t38_core_a, t38_version); t38_set_t38_version(&t38_core_b, t38_version); span_log_set_level(&t38_core_a.logging, SPAN_LOG_DEBUG | SPAN_LOG_SHOW_TAG); span_log_set_tag(&t38_core_a.logging, "T.38-A"); span_log_set_level(&t38_core_b.logging, SPAN_LOG_DEBUG | SPAN_LOG_SHOW_TAG); span_log_set_tag(&t38_core_b.logging, "T.38-B"); if (encode_decode_tests(&t38_core_a, &t38_core_b)) { printf("Encode/decode tests failed\n"); exit(2); } if (attack_tests(&t38_core_a)) { printf("Attack tests failed\n"); exit(2); } } if (!succeeded) { printf("Tests failed\n"); exit(2); } printf("Tests passed\n"); return 0; } /*- End of function --------------------------------------------------------*/ /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/tests/async_tests.c0000664000175000017500000001643511422612266016457 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * async_tests.c - Tests for asynchronous serial processing. * * Written by Steve Underwood * * Copyright (C) 2004 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License version 2, as * published by the Free Software Foundation. * * 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., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \file */ /*! \page async_tests_page Asynchronous bit stream tests \section async_tests_page_sec_1 What does it do? */ #if defined(HAVE_CONFIG_H) #include "config.h" #endif #include #include #include #include //#if defined(WITH_SPANDSP_INTERNALS) #define SPANDSP_EXPOSE_INTERNAL_STRUCTURES //#endif #include "spandsp.h" async_rx_state_t rx_async; async_tx_state_t tx_async; int full_len; uint8_t old_buf[1000]; uint8_t new_buf[1000]; volatile int tx_async_chars; volatile int rx_async_chars; volatile int rx_async_char_mask; int v14_test_async_tx_get_bit(void *user_data); int v14_test_async_tx_get_bit(void *user_data) { async_tx_state_t *s; int bit; static int destuff = 0; /* Special routine to test V.14 rate adaption, by randomly skipping stop bits. */ s = (async_tx_state_t *) user_data; if (s->bitpos == 0) { /* Start bit */ bit = 0; s->byte_in_progress = s->get_byte(s->user_data); s->parity_bit = 0; s->bitpos++; } else if (s->bitpos <= s->data_bits) { bit = s->byte_in_progress & 1; s->byte_in_progress >>= 1; s->parity_bit ^= bit; s->bitpos++; if (!s->parity && s->bitpos == s->data_bits + 1) { /* Drop the stop bit on every fourth character for V.14 simulation*/ if ((++destuff & 3) == 0) s->bitpos = 0; } } else if (s->parity && s->bitpos == s->data_bits + 1) { if (s->parity == ASYNC_PARITY_ODD) s->parity_bit ^= 1; bit = s->parity_bit; s->bitpos++; /* Drop the stop bit on every fourth character for V.14 simulation */ if ((++destuff & 3) == 0) s->bitpos = 0; } else { /* Stop bit(s) */ bit = 1; s->bitpos++; if (s->bitpos > s->data_bits + s->stop_bits) s->bitpos = 0; } return bit; } /*- End of function --------------------------------------------------------*/ static int test_get_async_byte(void *user_data) { int byte; byte = tx_async_chars & 0xFF; tx_async_chars++; return byte; } /*- End of function --------------------------------------------------------*/ static void test_put_async_byte(void *user_data, int byte) { if ((rx_async_chars & rx_async_char_mask) != byte) printf("Received byte is 0x%X (expected 0x%X)\n", byte, rx_async_chars); rx_async_chars++; } /*- End of function --------------------------------------------------------*/ int main(int argc, char *argv[]) { int bit; printf("Test with async 8N1\n"); async_tx_init(&tx_async, 8, ASYNC_PARITY_NONE, 1, FALSE, test_get_async_byte, NULL); async_rx_init(&rx_async, 8, ASYNC_PARITY_NONE, 1, FALSE, test_put_async_byte, NULL); tx_async_chars = 0; rx_async_chars = 0; rx_async_char_mask = 0xFF; while (rx_async_chars < 1000) { bit = async_tx_get_bit(&tx_async); async_rx_put_bit(&rx_async, bit); } printf("Chars=%d/%d, PE=%d, FE=%d\n", tx_async_chars, rx_async_chars, rx_async.parity_errors, rx_async.framing_errors); if (tx_async_chars != rx_async_chars || rx_async.parity_errors || rx_async.framing_errors) { printf("Test failed.\n"); exit(2); } printf("Test with async 7E1\n"); async_tx_init(&tx_async, 7, ASYNC_PARITY_EVEN, 1, FALSE, test_get_async_byte, NULL); async_rx_init(&rx_async, 7, ASYNC_PARITY_EVEN, 1, FALSE, test_put_async_byte, NULL); tx_async_chars = 0; rx_async_chars = 0; rx_async_char_mask = 0x7F; while (rx_async_chars < 1000) { bit = async_tx_get_bit(&tx_async); async_rx_put_bit(&rx_async, bit); } printf("Chars=%d/%d, PE=%d, FE=%d\n", tx_async_chars, rx_async_chars, rx_async.parity_errors, rx_async.framing_errors); if (tx_async_chars != rx_async_chars || rx_async.parity_errors || rx_async.framing_errors) { printf("Test failed.\n"); exit(2); } printf("Test with async 8O1\n"); async_tx_init(&tx_async, 8, ASYNC_PARITY_ODD, 1, FALSE, test_get_async_byte, NULL); async_rx_init(&rx_async, 8, ASYNC_PARITY_ODD, 1, FALSE, test_put_async_byte, NULL); tx_async_chars = 0; rx_async_chars = 0; rx_async_char_mask = 0xFF; while (rx_async_chars < 1000) { bit = async_tx_get_bit(&tx_async); async_rx_put_bit(&rx_async, bit); } printf("Chars=%d/%d, PE=%d, FE=%d\n", tx_async_chars, rx_async_chars, rx_async.parity_errors, rx_async.framing_errors); if (tx_async_chars != rx_async_chars || rx_async.parity_errors || rx_async.framing_errors) { printf("Test failed.\n"); exit(2); } printf("Test with async 8O1 and V.14\n"); async_tx_init(&tx_async, 8, ASYNC_PARITY_ODD, 1, TRUE, test_get_async_byte, NULL); async_rx_init(&rx_async, 8, ASYNC_PARITY_ODD, 1, TRUE, test_put_async_byte, NULL); tx_async_chars = 0; rx_async_chars = 0; rx_async_char_mask = 0xFF; while (rx_async_chars < 1000) { bit = v14_test_async_tx_get_bit(&tx_async); async_rx_put_bit(&rx_async, bit); } printf("Chars=%d/%d, PE=%d, FE=%d\n", tx_async_chars, rx_async_chars, rx_async.parity_errors, rx_async.framing_errors); if (tx_async_chars != rx_async_chars + 1 || rx_async.parity_errors || rx_async.framing_errors) { printf("Test failed.\n"); exit(2); } printf("Test with async 5N2\n"); async_tx_init(&tx_async, 5, ASYNC_PARITY_NONE, 2, FALSE, test_get_async_byte, NULL); async_rx_init(&rx_async, 5, ASYNC_PARITY_NONE, 2, FALSE, test_put_async_byte, NULL); tx_async_chars = 0; rx_async_chars = 0; rx_async_char_mask = 0x1F; while (rx_async_chars < 1000) { bit = async_tx_get_bit(&tx_async); async_rx_put_bit(&rx_async, bit); } printf("Chars=%d/%d, PE=%d, FE=%d\n", tx_async_chars, rx_async_chars, rx_async.parity_errors, rx_async.framing_errors); if (tx_async_chars != rx_async_chars || rx_async.parity_errors || rx_async.framing_errors) { printf("Test failed.\n"); exit(2); } printf("Tests passed.\n"); return 0; } /*- End of function --------------------------------------------------------*/ /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/tests/t4_tests.c0000664000175000017500000007171311705556437015704 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * t4_tests.c - ITU T.4 FAX image to and from TIFF file tests * * Written by Steve Underwood * * Copyright (C) 2003 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License version 2, as * published by the Free Software Foundation. * * 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., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \file */ /*! \page t4_tests_page T.4 tests \section t4_tests_page_sec_1 What does it do These tests exercise the image compression and decompression methods defined in ITU specifications T.4 and T.6. */ #if defined(HAVE_CONFIG_H) #include "config.h" #endif #include #include #include #include #include //#if defined(WITH_SPANDSP_INTERNALS) #define SPANDSP_EXPOSE_INTERNAL_STRUCTURES //#endif #include "spandsp.h" #define IN_FILE_NAME "../test-data/itu/fax/itutests.tif" #define OUT_FILE_NAME "t4_tests_receive.tif" #define XSIZE 1728 t4_state_t send_state; t4_state_t receive_state; /* The following are some test cases from T.4 */ #define FILL_70 " " #define FILL_80 " " #define FILL_100 " " #define FILL_670 FILL_100 FILL_100 FILL_100 FILL_100 FILL_100 FILL_100 FILL_70 #define FILL_980 FILL_100 FILL_100 FILL_100 FILL_100 FILL_100 FILL_100 FILL_100 FILL_100 FILL_100 FILL_80 static const char t4_test_patterns[][1728 + 1] = { "XXXXXX " FILL_980 " XXX XXX X " FILL_670 " XXXX", "XXXXXX " FILL_980 " XXX X " FILL_670 " XXXX", /* Line start should code to V(0). Line middle codes to VR(3) VL(2) V(0). Line end should code to V(0) V(0). */ " XXXX " FILL_980 " XXXXXXX " FILL_670 " XX ", "XXXXX " FILL_980 "XX XX " FILL_670 " XXXX", /* Line start should code to VL(1). Line middle codes to H(7,2). Line end should code to V(0) VR(2) */ "XXX " FILL_980 " XX XX XX XXX " FILL_670 " X ", " " FILL_980 " X XXX XXXX " FILL_670 " X XX", /* Line start should code to P. Line middle codes to P VL(1) V(0) H(3,4) P. Line end codes to V(0) VL(2) V(0). */ "XXXXX " FILL_980 " " FILL_670 " XXXX", " XXX " FILL_980 " " FILL_670 " XX ", /* Line start should code to VR(2). Line end codes to V(0) VL(2) V(0). */ " XX " FILL_980 " " FILL_670 " X XXX", "XXX X " FILL_980 " " FILL_670 " X ", /* Line start should code to H(0,3) VR(1). Line end codes to V(0) VR(3). */ " " FILL_980 " " FILL_670 " XX ", " " FILL_980 " " FILL_670 " ", /* Line end codes to P V(0) a'0. */ " " FILL_980 " " FILL_670 " XXXXXXXXXX", " " FILL_980 " " FILL_670 " XXXXXX XXXXXX", /* Line end codes to H(2,6). */ " " FILL_980 " " FILL_670 " XX XXXXX", " " FILL_980 " " FILL_670 " XX ", /* Line end codes to V(0) H(7,0). */ }; int rows_written = 0; int rows_read = 0; static void dump_image_as_xxx(t4_state_t *state) { uint8_t *s; int i; int j; int k; /* Dump the entire image as text 'X's and spaces */ printf("Image (%d x %d):\n", receive_state.image_width, receive_state.image_length); s = state->image_buffer; for (i = 0; i < state->image_length; i++) { for (j = 0; j < state->bytes_per_row; j++) { for (k = 0; k < 8; k++) printf((state->image_buffer[i*state->bytes_per_row + j] & (0x80 >> k)) ? "X" : " "); } printf("\n"); } } /*- End of function --------------------------------------------------------*/ static void display_page_stats(t4_state_t *s) { t4_stats_t stats; t4_rx_get_transfer_statistics(s, &stats); printf("Pages = %d\n", stats.pages_transferred); printf("Compression = %s\n", t4_encoding_to_str(stats.encoding)); printf("Compressed size = %d\n", stats.line_image_size); printf("Image size = %d pels x %d pels\n", stats.width, stats.length); printf("Image resolution = %d pels/m x %d pels/m\n", stats.x_resolution, stats.y_resolution); printf("Bad rows = %d\n", stats.bad_rows); printf("Longest bad row run = %d\n", stats.longest_bad_row_run); printf("Bits per row - min %d, max %d\n", s->min_row_bits, s->max_row_bits); } /*- End of function --------------------------------------------------------*/ static int row_read_handler(void *user_data, uint8_t buf[], size_t len) { int i; int j; const char *s; /* Send the test pattern. */ if (rows_read >= 16) return 0; s = t4_test_patterns[rows_read++]; memset(buf, 0, len); for (i = 0; i < len; i++) { for (j = 0; j < 8; j++) { if (*s++ != ' ') buf[i] |= (0x80 >> j); } } if (*s) printf("Oops - '%c' at end of row %d\n", *s, rows_read); return len; } /*- End of function --------------------------------------------------------*/ static int row_write_handler(void *user_data, const uint8_t buf[], size_t len) { int i; int j; const char *s; uint8_t ref[8192]; /* Verify that what is received matches the test pattern. */ if (len == 0) return 0; s = t4_test_patterns[rows_written++]; memset(ref, 0, len); for (i = 0; i < len; i++) { for (j = 0; j < 8; j++) { if (*s++ != ' ') ref[i] |= (0x80 >> j); } } if (*s) printf("Oops - '%c' at end of row %d\n", *s, rows_written); if (memcmp(buf, ref, len)) { printf("Test failed at row %d\n", rows_written); exit(2); } return 0; } /*- End of function --------------------------------------------------------*/ static int detect_page_end(int bit, int page_ended) { static int consecutive_eols; static int max_consecutive_eols; static int consecutive_zeros; static int consecutive_ones; static int eol_zeros; static int eol_ones; static int expected_eols; static int end_marks; /* Check the EOLs are added properly to the end of an image. We can't rely on the decoder giving the right answer, as a full set of EOLs is not needed for the decoder to work. */ if (bit == -1000000) { /* Reset */ consecutive_eols = 0; max_consecutive_eols = 0; consecutive_zeros = 0; consecutive_ones = 0; end_marks = 0; eol_zeros = 11; eol_ones = (page_ended == T4_COMPRESSION_ITU_T4_2D) ? 2 : 1; expected_eols = (page_ended == T4_COMPRESSION_ITU_T6) ? 2 : 6; return 0; } /* Monitor whether the EOLs are there in the correct amount */ if (bit == 0) { consecutive_zeros++; consecutive_ones = 0; } else if (bit == 1) { if (++consecutive_ones == eol_ones) { if (consecutive_eols == 0 && consecutive_zeros >= eol_zeros) consecutive_eols++; else if (consecutive_zeros == eol_zeros) consecutive_eols++; else consecutive_eols = 0; consecutive_zeros = 0; consecutive_ones = 0; } if (max_consecutive_eols < consecutive_eols) max_consecutive_eols = consecutive_eols; } else if (bit == SIG_STATUS_END_OF_DATA) { if (end_marks == 0) { if (max_consecutive_eols != expected_eols) { printf("Only %d EOLs (should be %d)\n", max_consecutive_eols, expected_eols); return 2; } consecutive_zeros = 0; consecutive_eols = 0; max_consecutive_eols = 0; } if (!page_ended) { /* We might need to push a few bits to get the receiver to report the end of page condition (at least with T.6). */ if (++end_marks > 50) { printf("Receiver missed the end of page mark\n"); return 2; } return 0; } return 1; } return 0; } /*- End of function --------------------------------------------------------*/ int main(int argc, char *argv[]) { static const int compression_sequence[] = { //T4_COMPRESSION_NONE, T4_COMPRESSION_ITU_T4_1D, T4_COMPRESSION_ITU_T4_2D, T4_COMPRESSION_ITU_T6, #if defined(SPANDSP_SUPPORT_T85) T4_COMPRESSION_ITU_T85, T4_COMPRESSION_ITU_T85_L0, #endif //T4_COMPRESSION_ITU_T43, //T4_COMPRESSION_ITU_T45, //T4_COMPRESSION_ITU_T42, //T4_COMPRESSION_ITU_SYCC_T42, -1 }; int sends; int page_no; int bit; int end_of_page; int end_marks; int res; int compression; int compression_step; int add_page_headers; int overlay_page_headers; int min_row_bits; int restart_pages; int block_size; char buf[1024]; uint8_t block[1024]; const char *in_file_name; const char *decode_file_name; const char *page_header_tz; int opt; int i; int bit_error_rate; int dump_as_xxx; int tests_failed; unsigned int last_pkt_no; unsigned int pkt_no; int page_ended; FILE *file; tests_failed = 0; compression = -1; compression_step = 0; add_page_headers = FALSE; overlay_page_headers = FALSE; restart_pages = FALSE; in_file_name = IN_FILE_NAME; decode_file_name = NULL; page_header_tz = NULL; /* Use a non-zero default minimum row length to ensure we test the consecutive EOLs part properly. */ min_row_bits = 50; block_size = 1; bit_error_rate = 0; dump_as_xxx = FALSE; while ((opt = getopt(argc, argv, "1268b:d:ehHri:m:t:x")) != -1) { switch (opt) { case '1': compression = T4_COMPRESSION_ITU_T4_1D; compression_step = -1; break; case '2': compression = T4_COMPRESSION_ITU_T4_2D; compression_step = -1; break; case '6': compression = T4_COMPRESSION_ITU_T6; compression_step = -1; break; #if defined(SPANDSP_SUPPORT_T85) case '8': compression = T4_COMPRESSION_ITU_T85; compression_step = -1; break; #endif case 'b': block_size = atoi(optarg); if (block_size > 1024) block_size = 1024; break; case 'd': decode_file_name = optarg; break; case 'e': bit_error_rate = 0x3FF; break; case 'h': add_page_headers = TRUE; overlay_page_headers = FALSE; break; case 'H': add_page_headers = TRUE; overlay_page_headers = TRUE; break; case 'r': restart_pages = TRUE; break; case 'i': in_file_name = optarg; break; case 'm': min_row_bits = atoi(optarg); break; case 't': page_header_tz = optarg; break; case 'x': dump_as_xxx = TRUE; break; default: //usage(); exit(2); break; } } /* Create a send and a receive end */ memset(&send_state, 0, sizeof(send_state)); memset(&receive_state, 0, sizeof(receive_state)); end_of_page = FALSE; if (decode_file_name) { if (compression < 0) compression = T4_COMPRESSION_ITU_T4_1D; /* Receive end puts TIFF to a new file. We assume the receive width here. */ if (t4_rx_init(&receive_state, OUT_FILE_NAME, T4_COMPRESSION_ITU_T4_2D) == NULL) { printf("Failed to init T.4 rx\n"); exit(2); } span_log_set_level(&receive_state.logging, SPAN_LOG_SHOW_SEVERITY | SPAN_LOG_SHOW_PROTOCOL | SPAN_LOG_SHOW_TAG | SPAN_LOG_FLOW); t4_rx_set_rx_encoding(&receive_state, compression); t4_rx_set_x_resolution(&receive_state, T4_X_RESOLUTION_R8); //t4_rx_set_y_resolution(&receive_state, T4_Y_RESOLUTION_FINE); t4_rx_set_y_resolution(&receive_state, T4_Y_RESOLUTION_STANDARD); t4_rx_set_image_width(&receive_state, XSIZE); page_no = 1; t4_rx_start_page(&receive_state); last_pkt_no = 0; file = fopen(decode_file_name, "r"); while (fgets(buf, 1024, file)) { if (sscanf(buf, "HDLC: FCD: 06 %x", &pkt_no) == 1) { /* Useful for breaking up T.38 ECM logs */ for (i = 0; i < 256; i++) { if (sscanf(&buf[18 + 3*i], "%x", (unsigned int *) &bit) != 1) break; if ((end_of_page = t4_rx_put_byte(&receive_state, bit))) break; } } else if (sscanf(buf, "HDLC: %x", &pkt_no) == 1) { /* Useful for breaking up HDLC decodes of ECM logs */ for (i = 0; i < 256; i++) { if (sscanf(&buf[19 + 3*i], "%x", (unsigned int *) &bit) != 1) break; if ((end_of_page = t4_rx_put_byte(&receive_state, bit))) break; } } else if (strlen(buf) > 62 && sscanf(buf + 57, "Rx %d: IFP %x %x", &pkt_no, (unsigned int *) &bit, (unsigned int *) &bit) == 3) { /* Useful for breaking up T.38 non-ECM logs */ if (pkt_no != last_pkt_no + 1) printf("Packet %u\n", pkt_no); last_pkt_no = pkt_no; for (i = 0; i < 256; i++) { if (sscanf(&buf[57 + 29 + 3*i], "%x", (unsigned int *) &bit) != 1) break; bit = bit_reverse8(bit); if ((end_of_page = t4_rx_put_byte(&receive_state, bit))) break; } } else if (strlen(buf) > 2 && sscanf(buf, "T.30 Rx: %x %x", (unsigned int *) &bit, (unsigned int *) &bit) == 2) { /* Useful for breaking up ECM logs */ if (pkt_no != last_pkt_no + 1) printf("Packet %u\n", pkt_no); last_pkt_no = pkt_no; for (i = 0; i < 256; i++) { if (sscanf(&buf[22 + 3*i], "%x", (unsigned int *) &bit) != 1) break; bit = bit_reverse8(bit); if ((end_of_page = t4_rx_put_byte(&receive_state, bit))) break; } } else if (sscanf(buf, "%04x %02x %02x %02x", (unsigned int *) &bit, (unsigned int *) &bit, (unsigned int *) &bit, (unsigned int *) &bit) == 4) { for (i = 0; i < 16; i++) { if (sscanf(&buf[6 + 3*i], "%x", (unsigned int *) &bit) != 1) break; bit = bit_reverse8(bit); if ((end_of_page = t4_rx_put_byte(&receive_state, bit))) break; } } else if (sscanf(buf, "%08x %02x %02x %02x", (unsigned int *) &bit, (unsigned int *) &bit, (unsigned int *) &bit, (unsigned int *) &bit) == 4) { for (i = 0; i < 16; i++) { if (sscanf(&buf[10 + 3*i], "%x", (unsigned int *) &bit) != 1) break; bit = bit_reverse8(bit); if ((end_of_page = t4_rx_put_byte(&receive_state, bit))) break; } } else if (sscanf(buf, "Rx bit %*d - %d", &bit) == 1) { if ((end_of_page = t4_rx_put_bit(&receive_state, bit))) { printf("End of page detected\n"); break; } } } fclose(file); if (dump_as_xxx) dump_image_as_xxx(&receive_state); t4_rx_end_page(&receive_state); display_page_stats(&receive_state); t4_rx_release(&receive_state); } else { #if 1 printf("Testing image_function->compress->decompress->image_function\n"); /* Send end gets image from a function */ if (t4_tx_init(&send_state, in_file_name, -1, -1) == NULL) { printf("Failed to init T.4 tx\n"); exit(2); } span_log_set_level(&send_state.logging, SPAN_LOG_SHOW_SEVERITY | SPAN_LOG_SHOW_PROTOCOL | SPAN_LOG_SHOW_TAG | SPAN_LOG_FLOW); t4_tx_set_row_read_handler(&send_state, row_read_handler, NULL); t4_tx_set_min_bits_per_row(&send_state, min_row_bits); t4_tx_set_local_ident(&send_state, "111 2222 3333"); /* Receive end puts TIFF to a function. */ if (t4_rx_init(&receive_state, OUT_FILE_NAME, T4_COMPRESSION_ITU_T4_2D) == NULL) { printf("Failed to init T.4 rx\n"); exit(2); } span_log_set_level(&receive_state.logging, SPAN_LOG_SHOW_SEVERITY | SPAN_LOG_SHOW_PROTOCOL | SPAN_LOG_SHOW_TAG | SPAN_LOG_FLOW); t4_rx_set_row_write_handler(&receive_state, row_write_handler, NULL); t4_rx_set_image_width(&receive_state, t4_tx_get_image_width(&send_state)); t4_rx_set_x_resolution(&receive_state, t4_tx_get_x_resolution(&send_state)); t4_rx_set_y_resolution(&receive_state, t4_tx_get_y_resolution(&send_state)); /* Now send and receive the test data with all compression modes. */ page_no = 1; /* If we are stepping around the compression schemes, reset to the start of the sequence. */ if (compression_step > 0) compression_step = 0; for (;;) { end_marks = 0; if (compression_step >= 0) { compression = compression_sequence[compression_step++]; if (compression < 0) break; } t4_tx_set_tx_encoding(&send_state, compression); t4_rx_set_rx_encoding(&receive_state, compression); rows_read = 0; rows_written = 0; if (t4_tx_start_page(&send_state)) break; if (t4_rx_start_page(&receive_state)) break; switch (block_size) { case 0: do { bit = t4_tx_get_bit(&send_state); if (bit == SIG_STATUS_END_OF_DATA) { if (++end_marks > 50) { printf("Receiver missed the end of page mark\n"); tests_failed++; break; } } end_of_page = t4_rx_put_bit(&receive_state, bit & 1); } while (!end_of_page); break; case 1: do { bit = t4_tx_get_byte(&send_state); if ((bit & 0x100)) { if (++end_marks > 50) { printf("Receiver missed the end of page mark\n"); tests_failed++; break; } } end_of_page = t4_rx_put_byte(&receive_state, bit & 0xFF); } while (!end_of_page); if ((t4_tx_get_byte(&send_state) & 0x100) == 0) { printf("Page ended, but source is not reporting end of data\n"); tests_failed++; } break; default: do { bit = t4_tx_get_chunk(&send_state, block, block_size); if (bit > 0) end_of_page = t4_rx_put_chunk(&receive_state, block, bit); if (bit < block_size) { if (++end_marks > 50) { printf("Receiver missed the end of page mark\n"); tests_failed++; break; } } } while (!end_of_page); break; } display_page_stats(&receive_state); t4_tx_end_page(&send_state); t4_rx_end_page(&receive_state); if (rows_read != (15 + 1) || rows_written != (15 + 1)) { printf("Test failed: %d rows read, %d rows written\n", rows_read, rows_written); exit(2); } if (compression_step < 0) break; } t4_tx_release(&send_state); t4_rx_release(&receive_state); #endif #if 1 printf("Testing TIFF->compress->decompress->TIFF cycle\n"); /* Send end gets TIFF from a file */ if (t4_tx_init(&send_state, in_file_name, -1, -1) == NULL) { printf("Failed to init T.4 send\n"); exit(2); } span_log_set_level(&send_state.logging, SPAN_LOG_SHOW_SEVERITY | SPAN_LOG_SHOW_PROTOCOL | SPAN_LOG_SHOW_TAG | SPAN_LOG_FLOW); t4_tx_set_min_bits_per_row(&send_state, min_row_bits); t4_tx_set_local_ident(&send_state, "111 2222 3333"); /* Receive end puts TIFF to a new file. */ if (t4_rx_init(&receive_state, OUT_FILE_NAME, T4_COMPRESSION_ITU_T4_2D) == NULL) { printf("Failed to init T.4 rx for '%s'\n", OUT_FILE_NAME); exit(2); } span_log_set_level(&receive_state.logging, SPAN_LOG_SHOW_SEVERITY | SPAN_LOG_SHOW_PROTOCOL | SPAN_LOG_SHOW_TAG | SPAN_LOG_FLOW); t4_rx_set_x_resolution(&receive_state, t4_tx_get_x_resolution(&send_state)); t4_rx_set_y_resolution(&receive_state, t4_tx_get_y_resolution(&send_state)); t4_rx_set_image_width(&receive_state, t4_tx_get_image_width(&send_state)); /* Now send and receive all the pages in the source TIFF file */ page_no = 1; sends = 0; /* If we are stepping around the compression schemes, reset to the start of the sequence. */ if (compression_step > 0) compression_step = 0; for (;;) { end_marks = 0; /* Add a header line to alternate pages, if required */ if (add_page_headers && (sends & 2)) t4_tx_set_header_info(&send_state, "Header"); else t4_tx_set_header_info(&send_state, NULL); if (page_header_tz && page_header_tz[0]) t4_tx_set_header_tz(&send_state, page_header_tz); //t4_tx_set_header_overlays_image(&send_state, overlay_page_headers); if (restart_pages && (sends & 1)) { /* Use restart, to send the page a second time */ if (t4_tx_restart_page(&send_state)) break; } else { if (compression_step >= 0) { compression = compression_sequence[compression_step++]; if (compression < 0) { compression_step = 0; compression = compression_sequence[compression_step++]; } } t4_tx_set_tx_encoding(&send_state, compression); t4_rx_set_rx_encoding(&receive_state, compression); if (t4_tx_start_page(&send_state)) break; } t4_rx_start_page(&receive_state); detect_page_end(-1000000, compression); page_ended = FALSE; switch (block_size) { case 0: for (;;) { bit = t4_tx_get_bit(&send_state); /* Monitor whether the EOLs are there in the correct amount */ if ((res = detect_page_end(bit, page_ended))) { tests_failed += (res - 1); break; } if (!page_ended) { if (bit_error_rate) { if ((rand() % bit_error_rate) == 0) bit ^= 1; } if (t4_rx_put_bit(&receive_state, bit & 1)) page_ended = TRUE; } } /* Now throw junk at the receive context, to ensure stuff occuring after the end of page condition has no bad effect. */ for (i = 0; i < 1000; i++) { t4_rx_put_bit(&receive_state, (rand() >> 10) & 1); } break; case 1: do { bit = t4_tx_get_byte(&send_state); if ((bit & 0x100)) { if (++end_marks > 50) { printf("Receiver missed the end of page mark\n"); tests_failed++; break; } } end_of_page = t4_rx_put_byte(&receive_state, bit & 0xFF); } while (!end_of_page); if ((t4_tx_get_byte(&send_state) & 0x100) == 0) { printf("Page ended, but source is not reporting end of data\n"); tests_failed++; } break; default: do { bit = t4_tx_get_chunk(&send_state, block, block_size); if (bit > 0) end_of_page = t4_rx_put_chunk(&receive_state, block, bit); if (bit < block_size) { if (++end_marks > 50) { printf("Receiver missed the end of page mark\n"); tests_failed++; break; } } } while (!end_of_page); break; } if (dump_as_xxx) dump_image_as_xxx(&receive_state); display_page_stats(&receive_state); if (!restart_pages || (sends & 1)) t4_tx_end_page(&send_state); t4_rx_end_page(&receive_state); sends++; } t4_tx_release(&send_state); t4_rx_release(&receive_state); /* And we should now have a matching received TIFF file. Note this will only match at the image level. TIFF files allow a lot of ways to express the same thing, so bit matching of the files is not the normal case. */ fflush(stdout); sprintf(buf, "tiffcmp -t %s %s", in_file_name, OUT_FILE_NAME); if (tests_failed || system(buf)) { printf("Tests failed\n"); exit(2); } #endif printf("Tests passed\n"); } return 0; } /*- End of function --------------------------------------------------------*/ /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/tests/r2_mf_rx_tests.c0000664000175000017500000004534311422612267017061 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * r2_mf_tests.c - Test the R2 MF detector against the spec., whatever the * spec. may be :) * * Written by Steve Underwood * * Copyright (C) 2003 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License version 2, as * published by the Free Software Foundation. * * 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., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \file */ /*! \page r2_mf_tests_page R2 MF tone generation and detection tests \section r2_mf_tests_page_sec_1 What does it do? These tests are fashioned after those on the CM7291 test tape from Mitel. Those tests are for DTMF, rather than R2 MF, but make a fair starting point for a set of meaningful tests of R2 MF. These tests include conversion to and from A-law. It is assumed the distortion this produces is comparable to u-law, so it should be a fair test of performance in a real PSTN channel. */ /* Enable the following definition to enable direct probing into the FAX structures */ //#define WITH_SPANDSP_INTERNALS #if defined(HAVE_CONFIG_H) #include "config.h" #endif #include #include #include #include #include #include //#if defined(WITH_SPANDSP_INTERNALS) #define SPANDSP_EXPOSE_INTERNAL_STRUCTURES //#endif #include "spandsp.h" /* R2 tone generation specs. * Power: -11.5dBm +- 1dB * Frequency: within +-4Hz * Mismatch between the start time of a pair of tones: <=1ms. * Mismatch between the end time of a pair of tones: <=1ms. */ /* Basic MFC/R2 tone detection specs: * Receiver response range: -5dBm to -35dBm * Difference in level for a pair of frequencies * Adjacent tones: <5dB * Non-adjacent tones: <7dB * Receiver not to detect a signal of 2 frequencies of level -5dB and * duration <7ms. * Receiver not to recognise a signal of 2 frequencies having a difference * in level >=20dB. * Max received signal frequency error: +-10Hz * The sum of the operate and release times of a 2 frequency signal not to * exceed 80ms (there are no individual specs for the operate and release * times). * Receiver not to release for signal interruptions <=7ms. * System malfunction due to signal interruptions >7ms (typically 20ms) is * prevented by further logic elements. */ #define MF_DURATION (68*8) #define MF_PAUSE (68*8) #define MF_CYCLE (MF_DURATION + MF_PAUSE) /*! MF tone generator descriptor for tests. */ typedef struct { float f1; /* First freq */ float f2; /* Second freq */ int8_t level1; /* Level of the first freq (dB) */ int8_t level2; /* Level of the second freq (dB) */ uint8_t on_time; /* Tone on time (ms) */ uint8_t off_time; /* Minimum post tone silence (ms) */ } mf_digit_tones_t; static const mf_digit_tones_t r2_mf_fwd_tones[] = { {1380.0, 1500.0, -11, -11, 1, 0}, {1380.0, 1620.0, -11, -11, 1, 0}, {1500.0, 1620.0, -11, -11, 1, 0}, {1380.0, 1740.0, -11, -11, 1, 0}, {1500.0, 1740.0, -11, -11, 1, 0}, {1620.0, 1740.0, -11, -11, 1, 0}, {1380.0, 1860.0, -11, -11, 1, 0}, {1500.0, 1860.0, -11, -11, 1, 0}, {1620.0, 1860.0, -11, -11, 1, 0}, {1740.0, 1860.0, -11, -11, 1, 0}, {1380.0, 1980.0, -11, -11, 1, 0}, {1500.0, 1980.0, -11, -11, 1, 0}, {1620.0, 1980.0, -11, -11, 1, 0}, {1740.0, 1980.0, -11, -11, 1, 0}, {1860.0, 1980.0, -11, -11, 1, 0}, {0.0, 0.0, 0, 0, 0, 0} }; static const mf_digit_tones_t r2_mf_back_tones[] = { {1140.0, 1020.0, -11, -11, 1, 0}, {1140.0, 900.0, -11, -11, 1, 0}, {1020.0, 900.0, -11, -11, 1, 0}, {1140.0, 780.0, -11, -11, 1, 0}, {1020.0, 780.0, -11, -11, 1, 0}, { 900.0, 780.0, -11, -11, 1, 0}, {1140.0, 660.0, -11, -11, 1, 0}, {1020.0, 660.0, -11, -11, 1, 0}, { 900.0, 660.0, -11, -11, 1, 0}, { 780.0, 660.0, -11, -11, 1, 0}, {1140.0, 540.0, -11, -11, 1, 0}, {1020.0, 540.0, -11, -11, 1, 0}, { 900.0, 540.0, -11, -11, 1, 0}, { 780.0, 540.0, -11, -11, 1, 0}, { 660.0, 540.0, -11, -11, 1, 0}, {0.0, 0.0, 0, 0, 0, 0} }; static tone_gen_descriptor_t my_mf_digit_tones[16]; static char r2_mf_tone_codes[] = "1234567890BCDEF"; int callback_ok; int callback_roll; static void my_mf_gen_init(float low_fudge, int low_level, float high_fudge, int high_level, int duration, int fwd) { const mf_digit_tones_t *tone; int i; for (i = 0; i < 15; i++) { if (fwd) tone = &r2_mf_fwd_tones[i]; else tone = &r2_mf_back_tones[i]; tone_gen_descriptor_init(&my_mf_digit_tones[i], tone->f1*(1.0 + low_fudge), low_level, tone->f2*(1.0 + high_fudge), high_level, duration, 0, 0, 0, FALSE); } } /*- End of function --------------------------------------------------------*/ static int my_mf_generate(int16_t amp[], char digit) { int len; char *cp; tone_gen_state_t tone; len = 0; if ((cp = strchr(r2_mf_tone_codes, digit))) { tone_gen_init(&tone, &my_mf_digit_tones[cp - r2_mf_tone_codes]); len += tone_gen(&tone, amp + len, 9999); } return len; } /*- End of function --------------------------------------------------------*/ static void codec_munge(int16_t amp[], int len) { int i; uint8_t alaw; for (i = 0; i < len; i++) { alaw = linear_to_alaw (amp[i]); amp[i] = alaw_to_linear (alaw); } } /*- End of function --------------------------------------------------------*/ static void digit_delivery(void *data, int digit, int level, int delay) { char ch; if (data != (void *) 0x12345678) { callback_ok = FALSE; return; } if ((callback_roll & 1)) ch = 0; else ch = r2_mf_tone_codes[callback_roll >> 1]; if (ch == digit) callback_ok = TRUE; else callback_ok = FALSE; if (r2_mf_tone_codes[callback_roll >> 1]) callback_roll++; else callback_ok = FALSE; } /*- End of function --------------------------------------------------------*/ static int test_a_tone_set(int fwd) { int i; int j; int len; int sample; const char *s; char digit; int actual; int nplus; int nminus; float rrb; float rcfo; int16_t amp[100000]; r2_mf_rx_state_t mf_state; awgn_state_t noise_source; const mf_digit_tones_t *tone; if (fwd) tone = &r2_mf_fwd_tones[0]; else tone = &r2_mf_back_tones[0]; r2_mf_rx_init(&mf_state, fwd, NULL, NULL); /* Test 1: Mitel's test 1 isn't really a test. Its a calibration step, which has no meaning here. */ printf ("Test 1: Calibration\n"); printf (" Passed\n"); /* Test 2: Decode check This is a sanity check, that all digits are reliably detected under ideal conditions. Each possible digit is repeated 10 times, with 68ms bursts. The level of each tone is about 6dB down from clip */ printf ("Test 2: Decode check\n"); my_mf_gen_init(0.0, -3, 0.0, -3, 68, fwd); s = r2_mf_tone_codes; while (*s) { digit = *s++; for (i = 0; i < 10; i++) { len = my_mf_generate(amp, digit); codec_munge (amp, len); r2_mf_rx(&mf_state, amp, len); actual = r2_mf_rx_get(&mf_state); if (actual != digit) { printf (" Sent '%c'\n", digit); printf (" Received 0x%X\n", actual); printf (" Failed\n"); exit (2); } } } printf (" Passed\n"); /* Test 3: Recognition bandwidth and channel centre frequency check. Use all digits. Each digit types requires four tests to complete the check. Each section contains 40 pulses of 68ms duration, with an amplitude of -20dB from clip per frequency. Four sections covering the tests for one tone (1 digit) are: a. H frequency at 0% deviation from center, L frequency at +0.1%. L frequency is then increments in +01.% steps up to +4%. The number of tone bursts is noted and designated N+. b. H frequency at 0% deviation, L frequency at -0.1%. L frequency is then incremental in -0.1% steps, up to -4%. The number of tone bursts is noted and designated N-. c. The test in (a) is repeated with the L frequency at 0% and the H frequency varied up to +4%. d. The test in (b) is repeated with the L frequency and 0% and the H frequency varied to -4%. Receiver Recognition Bandwidth (RRB) is calculated as follows: RRB% = (N+ + N-)/10 Receiver Center Frequency Offset (RCFO) is calculated as follows: RCFO% = X + (N+ - N-)/20 Note that this test doesn't test what it says it is testing at all, and the results are quite inaccurate, if not a downright lie! However, it follows the Mitel procedure, so how can it be bad? :) The spec calls for +-4 +-10Hz (ie +-14Hz) of bandwidth. */ printf ("Test 3: Recognition bandwidth and channel centre frequency check\n"); s = r2_mf_tone_codes; j = 0; while (*s) { digit = *s++; for (nplus = 0, i = 1; i <= 60; i++) { my_mf_gen_init((float) i/1000.0, -17, 0.0, -17, 68, fwd); len = my_mf_generate(amp, digit); codec_munge(amp, len); r2_mf_rx(&mf_state, amp, len); if (r2_mf_rx_get(&mf_state) == digit) nplus++; } for (nminus = 0, i = -1; i >= -60; i--) { my_mf_gen_init((float) i/1000.0, -17, 0.0, -17, 68, fwd); len = my_mf_generate(amp, digit); codec_munge(amp, len); r2_mf_rx(&mf_state, amp, len); if (r2_mf_rx_get(&mf_state) == digit) nminus++; } rrb = (float) (nplus + nminus)/10.0; rcfo = (float) (nplus - nminus)/10.0; printf (" %c (low) rrb = %5.2f%%, rcfo = %5.2f%%, max -ve = %5.2f, max +ve = %5.2f\n", digit, rrb, rcfo, (float) nminus/10.0, (float) nplus/10.0); if (rrb < rcfo + (2.0*100.0*14.0/r2_mf_fwd_tones[j].f1) || rrb >= 15.0 + rcfo) { printf (" Failed\n"); exit (2); } for (nplus = 0, i = 1; i <= 60; i++) { my_mf_gen_init(0.0, -17, (float) i/1000.0, -17, 68, fwd); len = my_mf_generate(amp, digit); codec_munge(amp, len); r2_mf_rx(&mf_state, amp, len); if (r2_mf_rx_get(&mf_state) == digit) nplus++; } for (nminus = 0, i = -1; i >= -60; i--) { my_mf_gen_init(0.0, -17, (float) i/1000.0, -17, 68, fwd); len = my_mf_generate(amp, digit); codec_munge(amp, len); r2_mf_rx(&mf_state, amp, len); if (r2_mf_rx_get(&mf_state) == digit) nminus++; } rrb = (float) (nplus + nminus)/10.0; rcfo = (float) (nplus - nminus)/10.0; printf (" %c (high) rrb = %5.2f%%, rcfo = %5.2f%%, max -ve = %5.2f, max +ve = %5.2f\n", digit, rrb, rcfo, (float) nminus/10.0, (float) nplus/10.0); if (rrb < rcfo + (2.0*100.0*14.0/r2_mf_fwd_tones[j].f2) || rrb >= 15.0 + rcfo) { printf (" Failed\n"); exit (2); } j++; } printf (" Passed\n"); /* Test 4: Acceptable amplitude ratio (twist). Twist all digits in both directions, and check the maximum twist we can accept. The way this is done is styled after the Mitel DTMF test, and has good and bad points. */ printf ("Test 4: Acceptable amplitude ratio (twist)\n"); s = r2_mf_tone_codes; while (*s) { digit = *s++; for (nplus = 0, i = -50; i >= -250; i--) { my_mf_gen_init(0.0, -5, 0.0, i/10, 68, fwd); len = my_mf_generate(amp, digit); codec_munge (amp, len); r2_mf_rx(&mf_state, amp, len); if (r2_mf_rx_get(&mf_state) == digit) nplus++; } printf (" %c normal twist = %.2fdB\n", digit, (float) nplus/10.0); if (nplus < 70) { printf (" Failed\n"); exit (2); } for (nminus = 0, i = -50; i >= -250; i--) { my_mf_gen_init(0.0, i/10, 0.0, -5, 68, fwd); len = my_mf_generate(amp, digit); codec_munge(amp, len); r2_mf_rx(&mf_state, amp, len); if (r2_mf_rx_get(&mf_state) == digit) nminus++; } printf (" %c reverse twist = %.2fdB\n", digit, (float) nminus/10.0); if (nminus < 70) { printf (" Failed\n"); exit (2); } } printf (" Passed\n"); /* Test 5: Dynamic range This test sends all possible digits, with gradually increasing amplitude. We determine the span over which we achieve reliable detection. */ printf ("Test 5: Dynamic range\n"); for (nplus = nminus = -1000, i = -50; i <= 3; i++) { s = r2_mf_tone_codes; while (*s) { digit = *s++; my_mf_gen_init(0.0, i, 0.0, i, 68, fwd); for (j = 0; j < 100; j++) { len = my_mf_generate(amp, digit); codec_munge(amp, len); r2_mf_rx(&mf_state, amp, len); if (r2_mf_rx_get(&mf_state) != digit) break; } if (j < 100) break; } if (j == 100) { if (nplus == -1000) nplus = i; } else { if (nplus != -1000 && nminus == -1000) nminus = i; } } printf (" Dynamic range = %ddB to %ddB\n", nplus, nminus - 1); if (nplus > -35 || nminus <= -5) { printf(" Failed\n"); exit(2); } printf (" Passed\n"); /* Test 6: Guard time This test sends all possible digits, with a gradually reducing duration. */ printf ("Test 6: Guard time\n"); for (i = 30; i < 62; i++) { s = r2_mf_tone_codes; j = 0; while (*s) { digit = *s++; my_mf_gen_init(0.0, -5, 0.0, -3, i, fwd); for (j = 0; j < 500; j++) { len = my_mf_generate(amp, digit); codec_munge(amp, len); r2_mf_rx(&mf_state, amp, len); if (r2_mf_rx_get(&mf_state) != digit) break; } if (j < 500) break; } if (j == 500) break; } printf (" Guard time = %dms\n", i); if (i > 61) { printf(" Failed\n"); exit(2); } printf (" Passed\n"); /* Test 7: Acceptable signal to noise ratio We send all possible digits at -6dBm from clip, mixed with AWGN. We gradually reduce the noise until we get clean detection. */ printf ("Test 7: Acceptable signal to noise ratio\n"); my_mf_gen_init(0.0, -3, 0.0, -3, 68, fwd); for (i = -3; i > -50; i--) { s = r2_mf_tone_codes; while (*s) { digit = *s++; awgn_init_dbm0(&noise_source, 1234567, (float) i); for (j = 0; j < 500; j++) { len = my_mf_generate(amp, digit); for (sample = 0; sample < len; sample++) amp[sample] = saturate(amp[sample] + awgn(&noise_source)); codec_munge(amp, len); r2_mf_rx(&mf_state, amp, len); if (r2_mf_rx_get(&mf_state) != digit) break; } if (j < 500) break; } if (j == 500) break; } printf(" Acceptable S/N ratio is %ddB\n", -3 - i); if (-3 - i > 26) { printf(" Failed\n"); exit(2); } printf(" Passed\n"); printf("Test 8: Callback digit delivery mode.\n"); callback_ok = FALSE; callback_roll = 0; r2_mf_rx_init(&mf_state, fwd, digit_delivery, (void *) 0x12345678); my_mf_gen_init(0.0, -3, 0.0, -3, 68, fwd); s = r2_mf_tone_codes; awgn_init_dbm0(&noise_source, 1234567, -40.0f); while (*s) { digit = *s++; len = my_mf_generate(amp, digit); for (sample = 0; sample < len; sample++) amp[sample] = saturate(amp[sample] + awgn(&noise_source)); codec_munge(amp, len); r2_mf_rx(&mf_state, amp, len); len = 160; memset(amp, '\0', len*sizeof(int16_t)); for (sample = 0; sample < len; sample++) amp[sample] = saturate(amp[sample] + awgn(&noise_source)); codec_munge(amp, len); r2_mf_rx(&mf_state, amp, len); } if (!callback_ok) { printf(" Failed\n"); exit (2); } printf(" Passed\n"); /* The remainder of the Mitel tape is the talk-off test. This is meaningless for R2 MF. However the decoder's tolerance of out of band noise is significant. */ /* TODO: add a OOB tolerance test. */ return 0; } /*- End of function --------------------------------------------------------*/ int main(int argc, char *argv[]) { time_t now; time_t duration; now = time(NULL); printf("R2 forward tones\n"); test_a_tone_set(TRUE); printf("R2 backward tones\n"); test_a_tone_set(FALSE); duration = time(NULL) - now; printf ("Tests passed in %lds\n", duration); return 0; } /*- End of function --------------------------------------------------------*/ /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/tests/v22bis_tests.c0000664000175000017500000003174711422612267016455 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * v22bis_tests.c * * Written by Steve Underwood * * Copyright (C) 2004 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License version 2, as * published by the Free Software Foundation. * * 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., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \page v22bis_tests_page V.22bis modem tests \section v22bis_tests_page_sec_1 What does it do? These tests connect two V.22bis modems back to back, through a telephone line model. BER testing is then used to evaluate performance under various line conditions. If the appropriate GUI environment exists, the tests are built such that a visual display of modem status is maintained. \section v22bis_tests_page_sec_2 How is it used? */ #if defined(HAVE_CONFIG_H) #include "config.h" #endif #if defined(HAVE_FL_FL_H) && defined(HAVE_FL_FL_CARTESIAN_H) && defined(HAVE_FL_FL_AUDIO_METER_H) #define ENABLE_GUI #endif #include #include #include #include #include #include #define SPANDSP_EXPOSE_INTERNAL_STRUCTURES #include "spandsp.h" #include "spandsp-sim.h" #if defined(ENABLE_GUI) #include "modem_monitor.h" #endif #define BLOCK_LEN 160 #define OUT_FILE_NAME "v22bis.wav" char *decode_test_file = NULL; int use_gui = FALSE; int rx_bits = 0; both_ways_line_model_state_t *model; typedef struct { v22bis_state_t *v22bis; bert_state_t bert_tx; bert_state_t bert_rx; bert_results_t latest_results; #if defined(ENABLE_GUI) qam_monitor_t *qam_monitor; #endif float smooth_power; int symbol_no; } endpoint_t; endpoint_t endpoint[2]; static void reporter(void *user_data, int reason, bert_results_t *results) { endpoint_t *s; s = (endpoint_t *) user_data; switch (reason) { case BERT_REPORT_REGULAR: fprintf(stderr, "V.22bis rx %p BERT report regular - %d bits, %d bad bits, %d resyncs\n", user_data, results->total_bits, results->bad_bits, results->resyncs); memcpy(&s->latest_results, results, sizeof(s->latest_results)); break; default: fprintf(stderr, "V.22bis rx %p BERT report %s\n", user_data, bert_event_to_str(reason)); break; } } /*- End of function --------------------------------------------------------*/ static void v22bis_putbit(void *user_data, int bit) { endpoint_t *s; int i; int len; int bit_rate; complexf_t *coeffs; s = (endpoint_t *) user_data; if (bit < 0) { /* Special conditions */ printf("V.22bis rx %p status is %s (%d)\n", user_data, signal_status_to_str(bit), bit); switch (bit) { case SIG_STATUS_TRAINING_SUCCEEDED: bit_rate = v22bis_get_current_bit_rate(s->v22bis); printf("Negotiated bit rate: %d\n", bit_rate); len = v22bis_rx_equalizer_state(s->v22bis, &coeffs); printf("Equalizer:\n"); for (i = 0; i < len; i++) printf("%3d (%15.5f, %15.5f) -> %15.5f\n", i, coeffs[i].re, coeffs[i].im, powerf(&coeffs[i])); break; } return; } if (decode_test_file) printf("Rx bit %p-%d - %d\n", user_data, rx_bits++, bit); else bert_put_bit(&s->bert_rx, bit); } /*- End of function --------------------------------------------------------*/ static int v22bis_getbit(void *user_data) { endpoint_t *s; int bit; s = (endpoint_t *) user_data; bit = bert_get_bit(&s->bert_tx); return bit; } /*- End of function --------------------------------------------------------*/ static void qam_report(void *user_data, const complexf_t *constel, const complexf_t *target, int symbol) { int i; int len; complexf_t *coeffs; float fpower; endpoint_t *s; s = (endpoint_t *) user_data; if (constel) { #if defined(ENABLE_GUI) if (use_gui) { qam_monitor_update_constel(s->qam_monitor, constel); qam_monitor_update_carrier_tracking(s->qam_monitor, v22bis_rx_carrier_frequency(s->v22bis)); qam_monitor_update_symbol_tracking(s->qam_monitor, v22bis_rx_symbol_timing_correction(s->v22bis)); } #endif fpower = (constel->re - target->re)*(constel->re - target->re) + (constel->im - target->im)*(constel->im - target->im); s->smooth_power = 0.95f*s->smooth_power + 0.05f*fpower; printf("%8d [%8.4f, %8.4f] [%8.4f, %8.4f] %2x %8.4f %8.4f %8.4f\n", s->symbol_no, constel->re, constel->im, target->re, target->im, symbol, fpower, s->smooth_power, v22bis_rx_signal_power(s->v22bis)); s->symbol_no++; } else { printf("Gardner step %d\n", symbol); len = v22bis_rx_equalizer_state(s->v22bis, &coeffs); printf("Equalizer A:\n"); for (i = 0; i < len; i++) printf("%3d (%15.5f, %15.5f) -> %15.5f\n", i, coeffs[i].re, coeffs[i].im, powerf(&coeffs[i])); #if defined(ENABLE_GUI) if (use_gui) qam_monitor_update_equalizer(s->qam_monitor, coeffs, len); #endif } } /*- End of function --------------------------------------------------------*/ int main(int argc, char *argv[]) { int16_t amp[2][BLOCK_LEN]; int16_t model_amp[2][BLOCK_LEN]; int16_t out_amp[2*BLOCK_LEN]; SNDFILE *inhandle; SNDFILE *outhandle; int outframes; int samples; int samples2; int i; int j; int test_bps; int line_model_no; int bits_per_test; int noise_level; int signal_level; int log_audio; int channel_codec; int rbs_pattern; int opt; channel_codec = MUNGE_CODEC_NONE; rbs_pattern = 0; test_bps = 2400; line_model_no = 0; decode_test_file = NULL; noise_level = -70; signal_level = -13; bits_per_test = 50000; log_audio = FALSE; while ((opt = getopt(argc, argv, "b:B:c:d:glm:n:r:s:")) != -1) { switch (opt) { case 'b': test_bps = atoi(optarg); if (test_bps != 2400 && test_bps != 1200) { fprintf(stderr, "Invalid bit rate specified\n"); exit(2); } break; case 'B': bits_per_test = atoi(optarg); break; case 'c': channel_codec = atoi(optarg); break; case 'd': decode_test_file = optarg; break; case 'g': #if defined(ENABLE_GUI) use_gui = TRUE; #else fprintf(stderr, "Graphical monitoring not available\n"); exit(2); #endif break; case 'l': log_audio = TRUE; break; case 'm': line_model_no = atoi(optarg); break; case 'n': noise_level = atoi(optarg); break; case 'r': rbs_pattern = atoi(optarg); break; case 's': signal_level = atoi(optarg); break; default: //usage(); exit(2); break; } } inhandle = NULL; if (decode_test_file) { /* We will decode the audio from a file. */ if ((inhandle = sf_open_telephony_read(decode_test_file, 1)) == NULL) { fprintf(stderr, " Cannot open audio file '%s'\n", decode_test_file); exit(2); } } outhandle = NULL; if (log_audio) { if ((outhandle = sf_open_telephony_write(OUT_FILE_NAME, 2)) == NULL) { fprintf(stderr, " Cannot create audio file '%s'\n", OUT_FILE_NAME); exit(2); } } memset(endpoint, 0, sizeof(endpoint)); for (i = 0; i < 2; i++) { endpoint[i].v22bis = v22bis_init(NULL, test_bps, V22BIS_GUARD_TONE_1800HZ, (i == 0), v22bis_getbit, &endpoint[i], v22bis_putbit, &endpoint[i]); v22bis_tx_power(endpoint[i].v22bis, signal_level); /* Move the carrier off a bit */ endpoint[i].v22bis->tx.carrier_phase_rate = dds_phase_ratef((i == 0) ? 1207.0f : 2407.0f); v22bis_rx_set_qam_report_handler(endpoint[i].v22bis, qam_report, (void *) &endpoint[i]); span_log_set_level(&endpoint[i].v22bis->logging, SPAN_LOG_SHOW_SEVERITY | SPAN_LOG_SHOW_PROTOCOL | SPAN_LOG_SHOW_TAG | SPAN_LOG_SHOW_SAMPLE_TIME | SPAN_LOG_FLOW); span_log_set_tag(&endpoint[i].v22bis->logging, (i == 0) ? "caller" : "answerer"); endpoint[i].smooth_power = 0.0f; endpoint[i].symbol_no = 0; bert_init(&endpoint[i].bert_tx, bits_per_test, BERT_PATTERN_ITU_O152_11, test_bps, 20); bert_init(&endpoint[i].bert_rx, bits_per_test, BERT_PATTERN_ITU_O152_11, test_bps, 20); bert_set_report(&endpoint[i].bert_rx, 10000, reporter, &endpoint[i]); } #if defined(ENABLE_GUI) if (use_gui) { endpoint[0].qam_monitor = qam_monitor_init(6.0f, "Calling modem"); endpoint[1].qam_monitor = qam_monitor_init(6.0f, "Answering modem"); } #endif if ((model = both_ways_line_model_init(line_model_no, (float) noise_level, -15.0f, -15.0f, line_model_no, (float) noise_level, -15.0f, -15.0f, channel_codec, rbs_pattern)) == NULL) { fprintf(stderr, " Failed to create line model\n"); exit(2); } samples = 0; for (;;) { for (i = 0; i < 2; i++) { samples = v22bis_tx(endpoint[i].v22bis, amp[i], BLOCK_LEN); #if defined(ENABLE_GUI) if (use_gui) qam_monitor_update_audio_level(endpoint[i].qam_monitor, amp[i], samples); #endif if (samples == 0) { /* Note that we might get a few bad bits as the carrier shuts down. */ bert_result(&endpoint[i].bert_rx, &endpoint[i].latest_results); bert_init(&endpoint[i].bert_tx, bits_per_test, BERT_PATTERN_ITU_O152_11, test_bps, 20); bert_init(&endpoint[i].bert_rx, bits_per_test, BERT_PATTERN_ITU_O152_11, test_bps, 20); bert_set_report(&endpoint[i].bert_rx, 10000, reporter, &endpoint[i]); printf("Restarting on zero output\n"); v22bis_restart(endpoint[i].v22bis, test_bps); } } #if 1 both_ways_line_model(model, model_amp[0], amp[0], model_amp[1], amp[1], samples); #else vec_copyi16(model_amp[0], amp[0], samples); vec_copyi16(model_amp[1], amp[1], samples); #endif if (decode_test_file) { samples2 = sf_readf_short(inhandle, model_amp[0], samples); if (samples2 != samples) break; } for (i = 0; i < 2; i++) { span_log_bump_samples(&endpoint[i].v22bis->logging, samples); v22bis_rx(endpoint[i ^ 1].v22bis, model_amp[i], samples); for (j = 0; j < samples; j++) out_amp[2*j + i] = model_amp[i][j]; for ( ; j < BLOCK_LEN; j++) out_amp[2*j + i] = 0; } if (log_audio) { outframes = sf_writef_short(outhandle, out_amp, BLOCK_LEN); if (outframes != BLOCK_LEN) { fprintf(stderr, " Error writing audio file\n"); exit(2); } } } #if defined(ENABLE_GUI) if (use_gui) qam_wait_to_end(endpoint[0].qam_monitor); #endif if (decode_test_file) { if (sf_close(inhandle)) { fprintf(stderr, " Cannot close audio file '%s'\n", decode_test_file); exit(2); } } if (log_audio) { if (sf_close(outhandle) != 0) { fprintf(stderr, " Cannot close audio file '%s'\n", OUT_FILE_NAME); exit(2); } } return 0; } /*- End of function --------------------------------------------------------*/ /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/tests/queue_tests.c0000664000175000017500000004714011422612267016464 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * queue_tests.c * * Written by Steve Underwood * * Copyright (C) 2007 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License version 2, as * published by the Free Software Foundation. * * 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., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* THIS IS A WORK IN PROGRESS. IT IS NOT FINISHED. */ /*! \page queue_tests_page Queue tests \section queue_tests_page_sec_1 What does it do? */ #if defined(HAVE_CONFIG_H) #include #endif #include #include #include #include #include #include #include //#if defined(WITH_SPANDSP_INTERNALS) #define SPANDSP_EXPOSE_INTERNAL_STRUCTURES //#endif #include "spandsp.h" #define BUF_LEN 10000 #define MSG_LEN 17 pthread_t thread[2]; queue_state_t *queue; volatile int put_oks; volatile int put_misses; volatile int got_oks; volatile int got_misses; int total_in; int total_out; static void tests_failed(void) { printf("Tests failed\n"); exit(2); } /*- End of function --------------------------------------------------------*/ static void display_queue_pointers(void) { printf("Pointers %d %d %d\n", queue->iptr, queue->optr, queue->len); } /*- End of function --------------------------------------------------------*/ static void *run_stream_write(void *arg) { uint8_t buf[MSG_LEN]; int i; int next; printf("Write thread\n"); next = 0; for (i = 0; i < MSG_LEN; i++) buf[i] = next; next = (next + 1) & 0xFF; put_oks = 0; put_misses = 0; for (;;) { if (queue_write(queue, buf, MSG_LEN) == MSG_LEN) { for (i = 0; i < MSG_LEN; i++) buf[i] = next; next = (next + 1) & 0xFF; put_oks++; if (put_oks%1000000 == 0) printf("%d puts, %d misses\n", put_oks, put_misses); } else { sched_yield(); put_misses++; } } return NULL; } /*- End of function --------------------------------------------------------*/ static void *run_stream_read(void *arg) { uint8_t buf[MSG_LEN]; int i; int len; int next; printf("Read thread\n"); next = 0; got_oks = 0; got_misses = 0; for (;;) { if ((len = queue_read(queue, buf, MSG_LEN)) >= 0) { if (len != MSG_LEN) { printf("AHH! - len %d\n", len); tests_failed(); } for (i = 0; i < len; i++) { if (buf[i] != next) { printf("AHH! - 0x%X 0x%X\n", buf[i], next); tests_failed(); } } next = (next + 1) & 0xFF; got_oks++; if (got_oks%1000000 == 0) printf("%d gots, %d misses\n", got_oks, got_misses); } else { sched_yield(); got_misses++; } } return NULL; } /*- End of function --------------------------------------------------------*/ static void threaded_stream_tests(void) { pthread_attr_t attr; if ((queue = queue_init(NULL, BUF_LEN, QUEUE_READ_ATOMIC | QUEUE_WRITE_ATOMIC)) == NULL) { printf("Failed to create the queue\n"); tests_failed(); } pthread_attr_init(&attr); pthread_attr_setdetachstate(&attr, PTHREAD_CREATE_DETACHED); if (pthread_create(&thread[0], &attr, run_stream_write, NULL)) { printf("Failed to create thread\n"); tests_failed(); } if (pthread_create(&thread[1], &attr, run_stream_read, NULL)) { printf("Failed to create thread\n"); tests_failed(); } for (;;) { sleep(5); printf("Main thread - %d %d\n", put_oks, got_oks); } queue_free(queue); } /*- End of function --------------------------------------------------------*/ static void *run_message_write(void *arg) { uint8_t buf[MSG_LEN]; int i; int next; printf("Write thread\n"); next = 0; for (i = 0; i < MSG_LEN; i++) buf[i] = next; next = (next + 1) & 0xFF; put_oks = 0; put_misses = 0; for (;;) { if (queue_write_msg(queue, buf, MSG_LEN) == MSG_LEN) { for (i = 0; i < MSG_LEN; i++) buf[i] = next; next = (next + 1) & 0xFF; put_oks++; if (put_oks%1000000 == 0) printf("%d puts, %d misses\n", put_oks, put_misses); } else { sched_yield(); put_misses++; } } return NULL; } /*- End of function --------------------------------------------------------*/ static void *run_message_read(void *arg) { uint8_t buf[1024]; int i; int len; int next; printf("Read thread\n"); next = 0; got_oks = 0; got_misses = 0; for (;;) { if ((len = queue_read_msg(queue, buf, 1024)) >= 0) { if (len != MSG_LEN) { printf("AHH! - len %d\n", len); tests_failed(); } for (i = 0; i < len; i++) { if (buf[i] != next) { printf("AHH! - 0x%X 0x%X\n", buf[i], next); tests_failed(); } } next = (next + 1) & 0xFF; got_oks++; if (got_oks%1000000 == 0) printf("%d gots, %d misses\n", got_oks, got_misses); } else { sched_yield(); got_misses++; } } return NULL; } /*- End of function --------------------------------------------------------*/ static void threaded_message_tests(void) { pthread_attr_t attr; if ((queue = queue_init(NULL, BUF_LEN, QUEUE_READ_ATOMIC | QUEUE_WRITE_ATOMIC)) == NULL) { printf("Failed to create the queue\n"); tests_failed(); } pthread_attr_init(&attr); pthread_attr_setdetachstate(&attr, PTHREAD_CREATE_DETACHED); if (pthread_create(&thread[0], &attr, run_message_write, NULL)) { printf("Failed to create thread\n"); tests_failed(); } if (pthread_create(&thread[1], &attr, run_message_read, NULL)) { printf("Failed to create thread\n"); tests_failed(); } for (;;) { sleep(5); printf("Main thread - %d %d\n", put_oks, got_oks); } queue_free(queue); } /*- End of function --------------------------------------------------------*/ static void check_contents(int total_in, int total_out) { if (queue_contents(queue) != (total_in - total_out)) { printf("Contents = %d (%d)\n", queue_contents(queue), (total_in - total_out)); display_queue_pointers(); tests_failed(); } if (queue_free_space(queue) != BUF_LEN - (total_in - total_out)) { printf("Free space = %d (%d)\n", queue_free_space(queue), BUF_LEN - (total_in - total_out)); display_queue_pointers(); tests_failed(); } } /*- End of function --------------------------------------------------------*/ static int monitored_queue_write(const uint8_t buf[], int len) { int lenx; lenx = queue_write(queue, buf, len); if (lenx >= 0) total_in += lenx; check_contents(total_in, total_out); return lenx; } /*- End of function --------------------------------------------------------*/ static int monitored_queue_write_byte(const uint8_t buf) { int res; if ((res = queue_write_byte(queue, buf)) >= 0) total_in++; check_contents(total_in, total_out); return res; } /*- End of function --------------------------------------------------------*/ static int monitored_queue_read(uint8_t buf[], int len) { int lenx; lenx = queue_read(queue, buf, len); if (lenx >= 0) total_out += lenx; check_contents(total_in, total_out); return lenx; } /*- End of function --------------------------------------------------------*/ static int monitored_queue_read_byte(void) { int res; if ((res = queue_read_byte(queue)) >= 0) total_out++; check_contents(total_in, total_out); return res; } /*- End of function --------------------------------------------------------*/ static void functional_stream_tests(void) { uint8_t buf[MSG_LEN]; int i; int res; total_in = 0; total_out = 0; for (i = 0; i < MSG_LEN; i++) buf[i] = i; if ((queue = queue_init(NULL, BUF_LEN, QUEUE_READ_ATOMIC | QUEUE_WRITE_ATOMIC)) == NULL) { printf("Failed to create the queue\n"); tests_failed(); } check_contents(total_in, total_out); /* Half fill the buffer, and check we can get out what we put in. */ for (i = 1; i < 5000; i++) { if (monitored_queue_write_byte(i & 0xFF) != 1) { printf("Byte by byte full at %d/%d\n", i, BUF_LEN); tests_failed(); } } for (i = 1; i < 5001; i++) { if ((res = monitored_queue_read_byte()) != (i & 0xFF)) break; } printf("Byte by byte read breaks at %d (expected %d) - %d\n", i, 5000, res); if (i != 5000) tests_failed(); /* Now completely fill the buffer, and we should roll around the end. Check we can get out what we put in. */ for (i = 1; i < 20000; i++) { if (monitored_queue_write_byte(i & 0xFF) != 1) break; } printf("Byte by byte full at %d (expected %d)\n", i, 10001); if (i != 10001) tests_failed(); for (i = 1; i < 20000; i++) { if ((res = monitored_queue_read_byte()) != (i & 0xFF)) break; } printf("Byte by byte read breaks at %d (expected %d) - %d\n", i, 10001, res); if (i != 10001) tests_failed(); /* Fill the buffer, checking the contents grow correctly */ for (i = 1; i < 1000; i++) { if (monitored_queue_write(buf, MSG_LEN) != MSG_LEN) break; } printf("Full at chunk %d (expected %d)\n", i, BUF_LEN/MSG_LEN + 1); if (i != BUF_LEN/MSG_LEN + 1) tests_failed(); if (monitored_queue_write(buf, 5) == 5) { printf("Write of 5 succeeded\n"); tests_failed(); } if (monitored_queue_write(buf, 4) != 4) { printf("Write of 4 failed\n"); tests_failed(); } /* Now full. Empty a little, and refill around the end */ if (monitored_queue_read(buf, MSG_LEN) != MSG_LEN) { printf("Read failed\n"); tests_failed(); } if (monitored_queue_write(buf, MSG_LEN) != MSG_LEN) { printf("Write failed\n"); tests_failed(); } /* Empty completely, checking the contents shrink correctly */ for (;;) { if (monitored_queue_read(buf, MSG_LEN) != MSG_LEN) break; } if (monitored_queue_read(buf, 4) != 4) { printf("Read failed\n"); tests_failed(); } /* Nudge around the buffer */ for (i = 1; i < 588; i++) { if (monitored_queue_write(buf, MSG_LEN) != MSG_LEN) { printf("Write failed\n"); tests_failed(); } if (monitored_queue_read(buf, MSG_LEN) != MSG_LEN) { printf("Read failed\n"); tests_failed(); } } /* Fill the buffer, checking the contents grow correctly */ for (i = 1; i < 1000; i++) { if (monitored_queue_write(buf, MSG_LEN) != MSG_LEN) break; } printf("Full at chunk %d (expected %d)\n", i, BUF_LEN/MSG_LEN + 1); if (i != BUF_LEN/MSG_LEN + 1) tests_failed(); display_queue_pointers(); if (monitored_queue_read(buf, MSG_LEN) != MSG_LEN) { printf("Read failed\n"); tests_failed(); } if (monitored_queue_write(buf, MSG_LEN) != MSG_LEN) { printf("Write failed\n"); tests_failed(); } display_queue_pointers(); for (i = 1; i < 5000; i++) { if (monitored_queue_read(buf, MSG_LEN) != MSG_LEN) { printf("Read failed\n"); tests_failed(); } if (monitored_queue_write(buf, MSG_LEN) != MSG_LEN) { printf("Write failed\n"); tests_failed(); } } display_queue_pointers(); if (monitored_queue_write(buf, 5) == 5) { printf("Write of 5 succeeded\n"); tests_failed(); } if (monitored_queue_write(buf, 4) != 4) { printf("Write of 4 failed\n"); tests_failed(); } display_queue_pointers(); for (i = 1; i < 5000; i++) { if (monitored_queue_read(buf, MSG_LEN) != MSG_LEN) { printf("Read failed\n"); tests_failed(); } if (monitored_queue_write(buf, MSG_LEN) != MSG_LEN) { printf("Write failed\n"); tests_failed(); } } display_queue_pointers(); queue_free(queue); } /*- End of function --------------------------------------------------------*/ static int monitored_queue_write_msg(const uint8_t buf[], int len) { int lenx; lenx = queue_write_msg(queue, buf, len); if (lenx >= 0) total_in += lenx + sizeof(uint16_t); check_contents(total_in, total_out); return lenx; } /*- End of function --------------------------------------------------------*/ static int monitored_queue_read_msg(uint8_t buf[], int len) { int lenx; lenx = queue_read_msg(queue, buf, len); if (lenx >= 0) total_out += lenx + sizeof(uint16_t); check_contents(total_in, total_out); return lenx; } /*- End of function --------------------------------------------------------*/ static void functional_message_tests(void) { uint8_t buf[MSG_LEN]; int i; int len; total_in = 0; total_out = 0; for (i = 0; i < MSG_LEN; i++) buf[i] = i; if ((queue = queue_init(NULL, BUF_LEN, QUEUE_READ_ATOMIC | QUEUE_WRITE_ATOMIC)) == NULL) { printf("Failed to create the queue\n"); tests_failed(); } check_contents(total_in, total_out); /* Fill the buffer, checking the contents grow correctly */ for (i = 1; i < 1000; i++) { if (monitored_queue_write_msg(buf, MSG_LEN) != MSG_LEN) break; } printf("Full at chunk %d (expected %lu)\n", i, (unsigned long int) BUF_LEN/(MSG_LEN + sizeof(uint16_t)) + 1); if (i != BUF_LEN/(MSG_LEN + sizeof(uint16_t)) + 1) tests_failed(); if ((len = monitored_queue_write_msg(buf, 5)) == 5) { printf("Write of 5 succeeded\n"); tests_failed(); } if ((len = monitored_queue_write_msg(buf, 4)) != 4) { printf("Write of 4 failed\n"); tests_failed(); } /* Now full. Empty a little, and refill around the end */ if ((len = monitored_queue_read_msg(buf, MSG_LEN)) != MSG_LEN) { printf("Read failed - %d\n", len); tests_failed(); } if ((len = monitored_queue_write_msg(buf, MSG_LEN)) != MSG_LEN) { printf("Write failed - %d\n", len); tests_failed(); } /* Empty completely, checking the contents shrink correctly */ for (;;) { if ((len = monitored_queue_read_msg(buf, MSG_LEN)) != MSG_LEN) break; } if (len != 4) { printf("Read failed - %d\n", len); tests_failed(); } /* We should now have one MSG_LEN message in the buffer */ /* Nudge around the buffer */ for (i = 1; i < 527; i++) { if ((len = monitored_queue_write_msg(buf, MSG_LEN)) != MSG_LEN) { printf("Write failed - %d\n", len); tests_failed(); } if ((len = monitored_queue_read_msg(buf, MSG_LEN)) != MSG_LEN) { printf("Read failed - %d\n", len); tests_failed(); } } /* Fill the buffer, checking the contents grow correctly */ for (i = 1; i < 1000; i++) { if ((len = monitored_queue_write_msg(buf, MSG_LEN)) != MSG_LEN) break; } printf("Free space = %d (%d)\n", queue_free_space(queue), BUF_LEN - (total_in - total_out)); display_queue_pointers(); printf("Full at chunk %d (expected %lu)\n", i, (unsigned long int) BUF_LEN/(MSG_LEN + sizeof(uint16_t))); if (i != BUF_LEN/(MSG_LEN + sizeof(uint16_t))) tests_failed(); display_queue_pointers(); if ((len = monitored_queue_read_msg(buf, MSG_LEN)) != MSG_LEN) { printf("Read failed - %d\n", len); tests_failed(); } if ((len = monitored_queue_write_msg(buf, MSG_LEN)) != MSG_LEN) { printf("Write failed - %d\n", len); tests_failed(); } display_queue_pointers(); for (i = 1; i < 5000; i++) { if ((len = monitored_queue_read_msg(buf, MSG_LEN)) != MSG_LEN) { printf("Read failed - %d\n", len); tests_failed(); } if ((len = monitored_queue_write_msg(buf, MSG_LEN)) != MSG_LEN) { printf("Write failed - %d\n", len); tests_failed(); } } display_queue_pointers(); if ((len = monitored_queue_write_msg(buf, 5)) == 5) { printf("Write of 5 succeeded\n"); tests_failed(); } if ((len = monitored_queue_write_msg(buf, 4)) != 4) { printf("Write of 4 failed\n"); tests_failed(); } display_queue_pointers(); for (i = 1; i < 5000; i++) { if (i == 527) { if ((len = monitored_queue_read_msg(buf, MSG_LEN)) != 4) { printf("Read failed - %d\n", len); tests_failed(); } } if ((len = monitored_queue_read_msg(buf, MSG_LEN)) != MSG_LEN) { printf("Read failed - %d\n", len); tests_failed(); } if ((len = monitored_queue_write_msg(buf, MSG_LEN)) != MSG_LEN) { printf("Write failed - %d\n", len); tests_failed(); } } display_queue_pointers(); queue_free(queue); } /*- End of function --------------------------------------------------------*/ int main(int argc, char *argv[]) { int threaded_messages; int threaded_streams; int opt; threaded_messages = FALSE; threaded_streams = FALSE; while ((opt = getopt(argc, argv, "ms")) != -1) { switch (opt) { case 'm': threaded_messages = TRUE; break; case 's': threaded_streams = TRUE; break; } } /* Test the basic functionality of the queueing code in stream and message modes */ printf("Stream mode functional tests\n"); functional_stream_tests(); printf("Message mode functional tests\n"); functional_message_tests(); /* Run separate write and read threads for a while, to verify there are no locking issues. */ if (threaded_streams) { printf("Stream mode threaded tests\n"); threaded_stream_tests(); } if (threaded_messages) { printf("Message mode threaded tests\n"); threaded_message_tests(); } return 0; } /*- End of function --------------------------------------------------------*/ /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/tests/tsb85_tests.sh0000775000175000017500000000655211422612267016502 0ustar steveusteveu#!/bin/sh # # spandsp fax tests # # This program is free software; you can redistribute it and/or modify # it under the terms of the GNU Lesser General Public License version 2.1, # as published by the Free Software Foundation. # # 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 Lesser General Public # License along with this program; if not, write to the Free Software # Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. run_tsb85_test() { rm -f fax_tests_1.tif echo ./tsb85_tests ${TEST} ./tsb85_tests ${TEST} 2>xyzzy2 RETVAL=$? if [ $RETVAL != 0 ] then echo tsb85_tests ${TEST} failed! exit $RETVAL fi } for TEST in MRGN01 MRGN02 MRGN03 MRGN04 MRGN05 MRGN06a MRGN06b MRGN07 MRGN08 ; do run_tsb85_test done #MRGN14 fails because we don't adequately distinguish between receiving a #bad image signal and receiving none at all. #MRGN16 fails because we don't adequately distinguish between receiving a #bad image signal and receiving none at all. #for TEST in MRGN09 MRGN10 MRGN11 MRGN12 MRGN13 MRGN14 MRGN15 MRGN16 MRGN17 ; do for TEST in MRGN09 MRGN10 MRGN11 MRGN12 MRGN13 MRGN15 MRGN17 ; do run_tsb85_test done for TEST in ORGC01 ORGC02 ORGC03 ; do run_tsb85_test done for TEST in OREN01 OREN02 OREN03 OREN04 OREN05 OREN06 OREN07 OREN08 OREN09 OREN10 ; do run_tsb85_test done # MRGX03 is failing because the V.27ter modem says it trained on HDLC # MRGX05 is failing because we don't distinguish MPS immediately after MCF from MPS after # a corrupt image signal. #for TEST in MRGX01 MRGX02 MRGX03 MRGX04 MRGX05 MRGX06 MRGX07 MRGX08 ; do for TEST in MRGX01 MRGX02 MRGX04 MRGX06 MRGX07 MRGX08 ; do run_tsb85_test done for TEST in MRGX09 MRGX10 MRGX11 MRGX12 MRGX13 MRGX14 MRGX15 ; do run_tsb85_test done for TEST in MTGP01 MTGP02 OTGP03 ; do run_tsb85_test done for TEST in MTGN01 MTGN02 MTGN03 MTGN04 MTGN05 MTGN06 MTGN07 MTGN08 MTGN09 MTGN10 ; do run_tsb85_test done for TEST in MTGN11 MTGN12 MTGN13 MTGN14 MTGN15 MTGN16 MTGN17 MTGN18 MTGN19 MTGN20 ; do run_tsb85_test done for TEST in MTGN21 MTGN22 MTGN23 MTGN24 MTGN25 MTGN26 MTGN27 MTGN28 ; do run_tsb85_test done for TEST in OTGC01 OTGC02 OTGC03 OTGC04 OTGC05 OTGC06 OTGC07 OTGC08 ; do run_tsb85_test done for TEST in OTGC09-01 OTGC09-02 OTGC09-03 OTGC09-04 OTGC09-05 OTGC09-06 OTGC09-07 OTGC09-08 OTGC09-09 OTGC09-10 OTGC09-11 OTGC09-12 ; do run_tsb85_test done for TEST in OTGC10 OTGC11 ; do run_tsb85_test done #OTEN02 fails because ????? #for TEST in OTEN01 OTEN02 OTEN03 OTEN04 OTEN05 OTEN06 ; do for TEST in OTEN01 OTEN03 OTEN04 OTEN05 OTEN06 ; do run_tsb85_test done #MTGX02 fails because ????? #for TEST in MTGX01 MTGX02 MTGX03 MTGX04 MTGX05 MTGX06 MTGX07 MTGX08 ; do for TEST in MTGX01 MTGX03 MTGX04 MTGX05 MTGX06 MTGX07 MTGX08 ; do run_tsb85_test done for TEST in MTGX09 MTGX10 MTGX11 MTGX12 MTGX13 MTGX14 MTGX15 MTGX16 ; do run_tsb85_test done for TEST in MTGX17 MTGX18 MTGX19 MTGX20 MTGX21 MTGX22 MTGX23 ; do run_tsb85_test done for TEST in MRGP01 MRGP02 MRGP03 MRGP04 MRGP05 MRGP06 MRGP07 MRGP08 ; do run_tsb85_test done for TEST in ORGP09 ORGP10 ; do run_tsb85_test done spandsp-0.0.6/tests/v42_tests.c0000664000175000017500000001011411422612267015742 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * v42_tests.c * * Written by Steve Underwood * * Copyright (C) 2004 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License version 2, as * published by the Free Software Foundation. * * 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., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* THIS IS A WORK IN PROGRESS. IT IS NOT FINISHED. */ /*! \page v42_tests_page V.42 tests \section v42_tests_page_sec_1 What does it do? These tests connect two instances of V.42 back to back. V.42 frames are then exchanged between them. */ #if defined(HAVE_CONFIG_H) #include #endif #include #include #include #include //#if defined(WITH_SPANDSP_INTERNALS) #define SPANDSP_EXPOSE_INTERNAL_STRUCTURES //#endif #include "spandsp.h" v42_state_t caller; v42_state_t answerer; int rx_next[3] = {0}; int tx_next[3] = {0}; static void v42_status(void *user_data, int status) { int x; x = (intptr_t) user_data; printf("%d: Status is '%s' (%d)\n", x, lapm_status_to_str(status), status); //if (status == LAPM_DATA) // lapm_tx_iframe((x == 1) ? &caller.lapm : &answerer.lapm, "ABCDEFGHIJ", 10, 1); } static void v42_frames(void *user_data, const uint8_t *msg, int len) { int i; int x; x = (intptr_t) user_data; for (i = 0; i < len; i++) { if (msg[i] != (rx_next[x] & 0xFF)) printf("%d: Mismatch 0x%02X 0x%02X\n", x, msg[i], rx_next[x] & 0xFF); rx_next[x]++; } printf("%d: Got frame len %d\n", x, len); } int main(int argc, char *argv[]) { int i; int bit; uint8_t buf[1024]; v42_init(&caller, TRUE, TRUE, v42_frames, (void *) 1); v42_init(&answerer, FALSE, TRUE, v42_frames, (void *) 2); v42_set_status_callback(&caller, v42_status, (void *) 1); v42_set_status_callback(&answerer, v42_status, (void *) 2); span_log_set_level(&caller.logging, SPAN_LOG_SHOW_SEVERITY | SPAN_LOG_SHOW_PROTOCOL | SPAN_LOG_DEBUG); span_log_set_tag(&caller.logging, "caller"); span_log_set_level(&caller.lapm.logging, SPAN_LOG_SHOW_SEVERITY | SPAN_LOG_SHOW_PROTOCOL | SPAN_LOG_DEBUG); span_log_set_tag(&caller.lapm.logging, "caller"); span_log_set_level(&caller.lapm.sched.logging, SPAN_LOG_SHOW_SEVERITY | SPAN_LOG_SHOW_PROTOCOL | SPAN_LOG_DEBUG); span_log_set_tag(&caller.lapm.sched.logging, "caller"); span_log_set_level(&answerer.logging, SPAN_LOG_SHOW_SEVERITY | SPAN_LOG_SHOW_PROTOCOL | SPAN_LOG_DEBUG); span_log_set_tag(&answerer.logging, "answerer"); span_log_set_level(&answerer.lapm.logging, SPAN_LOG_SHOW_SEVERITY | SPAN_LOG_SHOW_PROTOCOL | SPAN_LOG_DEBUG); span_log_set_tag(&answerer.lapm.logging, "answerer"); span_log_set_level(&answerer.lapm.sched.logging, SPAN_LOG_SHOW_SEVERITY | SPAN_LOG_SHOW_PROTOCOL | SPAN_LOG_DEBUG); span_log_set_tag(&answerer.lapm.sched.logging, "answerer"); for (i = 0; i < 100000; i++) { bit = v42_tx_bit(&caller); v42_rx_bit(&answerer, bit); bit = v42_tx_bit(&answerer); //if (i%10000 == 0) // bit ^= 1; v42_rx_bit(&caller, bit); span_schedule_update(&caller.lapm.sched, 4); span_schedule_update(&answerer.lapm.sched, 4); buf[0] = tx_next[1]; if (lapm_tx(&caller.lapm, buf, 1) == 1) tx_next[1]++; buf[0] = tx_next[2]; if (lapm_tx(&answerer.lapm, buf, 1) == 1) tx_next[2]++; } return 0; } /*- End of function --------------------------------------------------------*/ /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/tests/tone_detect_tests.c0000664000175000017500000001054611422612267017635 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * tone_detect_tests.c * * Written by Steve Underwood * * Copyright (C) 2007 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License version 2, as * published by the Free Software Foundation. * * 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., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \page tone_detect_tests_page Tone detection tests \section tone_detect_tests_page_sec_1 What does it do? */ #if defined(HAVE_CONFIG_H) #include "config.h" #endif #include #include #include #include #include #include //#if defined(WITH_SPANDSP_INTERNALS) #define SPANDSP_EXPOSE_INTERNAL_STRUCTURES //#endif #include "spandsp.h" #define DEC_SAMPLE_RATE 800 #define DEC_RATIO 10 #define BLOCK_LEN 56 #define PG_WINDOW 56 #define FREQ1 440.0f #define FREQ2 480.0f static int periodogram_tests(void) { int i; int j; int k; int len; complexf_t coeffs[PG_WINDOW/2]; complexf_t camp[BLOCK_LEN]; complexf_t last_result; complexf_t result; complexf_t phase_offset; float freq_error; float pg_scale; float level; float scale1; float scale2; int32_t phase_rate1; int32_t phase_rate2; uint32_t phase_acc1; uint32_t phase_acc2; awgn_state_t noise_source_re; awgn_state_t noise_source_im; phase_rate1 = DEC_RATIO*dds_phase_ratef(FREQ1 - 5.0f); phase_rate2 = DEC_RATIO*dds_phase_ratef(FREQ2); phase_acc1 = 0; phase_acc2 = 0; len = periodogram_generate_coeffs(coeffs, FREQ1, DEC_SAMPLE_RATE, PG_WINDOW); if (len != PG_WINDOW/2) { printf("Test failed\n"); return -1; } pg_scale = periodogram_generate_phase_offset(&phase_offset, FREQ1, DEC_SAMPLE_RATE, PG_WINDOW); scale1 = dds_scaling_dbm0f(-6.0f); scale2 = dds_scaling_dbm0f(-6.0f); for (k = -50; k < 0; k++) { printf("Setting noise to %ddBm0\n", k); awgn_init_dbm0(&noise_source_re, 1234567, (float) k); awgn_init_dbm0(&noise_source_im, 7654321, (float) k); last_result = complex_setf(0.0f, 0.0f); for (i = 0; i < 100; i++) { for (j = 0; j < PG_WINDOW; j++) { result = dds_complexf(&phase_acc1, phase_rate1); camp[j].re = result.re*scale1; camp[j].im = result.im*scale1; result = dds_complexf(&phase_acc2, phase_rate2); camp[j].re += result.re*scale2; camp[j].im += result.im*scale2; camp[j].re += awgn(&noise_source_re); camp[j].im += awgn(&noise_source_im); } result = periodogram(coeffs, camp, PG_WINDOW); level = sqrtf(result.re*result.re + result.im*result.im); freq_error = periodogram_freq_error(&phase_offset, pg_scale, &last_result, &result); last_result = result; if (i == 0) continue; printf("Signal level = %.5f, freq error = %.5f\n", level, freq_error); if (level < scale1*0.8f || level > scale1*1.2f) { printf("Test failed - %ddBm0 of noise, signal is %f (%f)\n", k, level, scale1); return -1; } if (freq_error < -10.0f || freq_error > 10.0f) { printf("Test failed - %ddBm0 of noise, %fHz error\n", k, freq_error); return -1; } } } return 0; } /*- End of function --------------------------------------------------------*/ int main(int argc, char *argv[]) { if (periodogram_tests()) exit(2); printf("Tests passed\n"); return 0; } /*- End of function --------------------------------------------------------*/ /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/tests/oki_adpcm_tests.c0000664000175000017500000002314511430006315017253 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * oki_adpcm_tests.c - Test the Oki (Dialogic) ADPCM encode and decode * software at 24kbps and 32kbps. * * Written by Steve Underwood * * Copyright (C) 2004 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License version 2, as * published by the Free Software Foundation. * * 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., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \file */ /*! \page oki_adpcm_tests_page OKI (Dialogic) ADPCM tests \section oki_adpcm_tests_page_sec_1 What does it do? To perform a general audio quality test, oki_adpcm_tests should be run. The test file ../test-data/local/short_nb_voice.wav will be compressed to the specified bit rate, decompressed, and the resulting audio stored in post_oki_adpcm.wav. A simple SNR test is automatically performed. Listening tests may be used for a more detailed evaluation of the degradation in quality caused by the compression. Both 32k bps and 24k bps compression may be tested. \section oki_adpcm_tests_page_sec_2 How is it used? */ #if defined(HAVE_CONFIG_H) #include "config.h" #endif #include #include #include #include #include #include #include //#if defined(WITH_SPANDSP_INTERNALS) #define SPANDSP_EXPOSE_INTERNAL_STRUCTURES //#endif #include "spandsp.h" #include "spandsp-sim.h" #define IN_FILE_NAME "../test-data/local/short_nb_voice.wav" #define OUT_FILE_NAME "post_oki_adpcm.wav" #define HIST_LEN 1000 int main(int argc, char *argv[]) { int i; SNDFILE *inhandle; SNDFILE *outhandle; int frames; int dec_frames; int outframes; int oki_bytes; int bit_rate; double pre_energy; double post_energy; double diff_energy; int16_t pre_amp[HIST_LEN]; int16_t post_amp[HIST_LEN]; uint8_t oki_data[HIST_LEN]; int16_t history[HIST_LEN]; int hist_in; int hist_out; oki_adpcm_state_t *oki_enc_state; oki_adpcm_state_t *oki_dec_state; oki_adpcm_state_t *oki_dec_state2; int xx; int total_pre_samples; int total_compressed_bytes; int total_post_samples; int successive_08_bytes; int successive_80_bytes; int encoded_fd; const char *encoded_file_name; const char *in_file_name; int log_encoded_data; int opt; bit_rate = 32000; encoded_file_name = NULL; in_file_name = IN_FILE_NAME; log_encoded_data = FALSE; while ((opt = getopt(argc, argv, "2d:i:l")) != -1) { switch (opt) { case '2': bit_rate = 24000; break; case 'd': encoded_file_name = optarg; break; case 'i': in_file_name = optarg; break; case 'l': log_encoded_data = TRUE; break; default: //usage(); exit(2); break; } } encoded_fd = -1; inhandle = NULL; oki_enc_state = NULL; if (encoded_file_name) { if ((encoded_fd = open(encoded_file_name, O_RDONLY)) < 0) { fprintf(stderr, " Cannot open encoded file '%s'\n", encoded_file_name); exit(2); } } else { if ((inhandle = sf_open_telephony_read(in_file_name, 1)) == NULL) { fprintf(stderr, " Cannot open audio file '%s'\n", in_file_name); exit(2); } if ((oki_enc_state = oki_adpcm_init(NULL, bit_rate)) == NULL) { fprintf(stderr, " Cannot create encoder\n"); exit(2); } } if ((outhandle = sf_open_telephony_write(OUT_FILE_NAME, 1)) == NULL) { fprintf(stderr, " Cannot create audio file '%s'\n", OUT_FILE_NAME); exit(2); } if ((oki_dec_state = oki_adpcm_init(NULL, bit_rate)) == NULL) { fprintf(stderr, " Cannot create decoder\n"); exit(2); } if ((oki_dec_state2 = oki_adpcm_init(NULL, bit_rate)) == NULL) { fprintf(stderr, " Cannot create decoder\n"); exit(2); } hist_in = 0; if (bit_rate == 32000) hist_out = 0; else hist_out = HIST_LEN - 27; memset(history, 0, sizeof(history)); pre_energy = 0.0; post_energy = 0.0; diff_energy = 0.0; total_pre_samples = 0; total_compressed_bytes = 0; total_post_samples = 0; if (encoded_file_name) { /* Decode a file of OKI ADPCM code to a linear wave file */ while ((oki_bytes = read(encoded_fd, oki_data, 80)) > 0) { total_compressed_bytes += oki_bytes; dec_frames = oki_adpcm_decode(oki_dec_state, post_amp, oki_data, oki_bytes); total_post_samples += dec_frames; for (i = 0; i < dec_frames; i++) { post_energy += (double) post_amp[i] * (double) post_amp[i]; xx = post_amp[i] - history[hist_out++]; if (hist_out >= HIST_LEN) hist_out = 0; diff_energy += (double) xx * (double) xx; } outframes = sf_writef_short(outhandle, post_amp, dec_frames); } close(encoded_fd); } else { /* Perform a linear wave file -> OKI ADPCM -> linear wave file cycle. Along the way check the decoder resets on the sequence specified for this codec, and the gain and worst case sample distortion. */ successive_08_bytes = 0; successive_80_bytes = 0; while ((frames = sf_readf_short(inhandle, pre_amp, 159))) { total_pre_samples += frames; oki_bytes = oki_adpcm_encode(oki_enc_state, oki_data, pre_amp, frames); if (log_encoded_data) write(1, oki_data, oki_bytes); total_compressed_bytes += oki_bytes; /* Look for a condition which is defined as something which should cause a reset of the decoder (48 samples of 0, 8, 0, 8, etc.), and verify that it really does. Use a second decode, which we feed byte by byte, for this. */ for (i = 0; i < oki_bytes; i++) { oki_adpcm_decode(oki_dec_state2, post_amp, &oki_data[i], 1); if (oki_data[i] == 0x08) successive_08_bytes++; else successive_08_bytes = 0; if (oki_data[i] == 0x80) successive_80_bytes++; else successive_80_bytes = 0; if (successive_08_bytes == 24 || successive_80_bytes == 24) { if (oki_dec_state2->step_index != 0) { fprintf(stderr, "Decoder reset failure\n"); exit(2); } } } dec_frames = oki_adpcm_decode(oki_dec_state, post_amp, oki_data, oki_bytes); total_post_samples += dec_frames; for (i = 0; i < frames; i++) { history[hist_in++] = pre_amp[i]; if (hist_in >= HIST_LEN) hist_in = 0; pre_energy += (double) pre_amp[i] * (double) pre_amp[i]; } for (i = 0; i < dec_frames; i++) { post_energy += (double) post_amp[i] * (double) post_amp[i]; xx = post_amp[i] - history[hist_out++]; if (hist_out >= HIST_LEN) hist_out = 0; diff_energy += (double) xx * (double) xx; //post_amp[i] = xx; } outframes = sf_writef_short(outhandle, post_amp, dec_frames); } printf("Pre samples: %d\n", total_pre_samples); printf("Compressed bytes: %d\n", total_compressed_bytes); printf("Post samples: %d\n", total_post_samples); printf("Output energy is %f%% of input energy.\n", 100.0*post_energy/pre_energy); printf("Residual energy is %f%% of the total.\n", 100.0*diff_energy/post_energy); if (bit_rate == 32000) { if (fabs(1.0 - post_energy/pre_energy) > 0.01 || fabs(diff_energy/post_energy) > 0.01) { printf("Tests failed.\n"); exit(2); } } else { if (fabs(1.0 - post_energy/pre_energy) > 0.11 || fabs(diff_energy/post_energy) > 0.05) { printf("Tests failed.\n"); exit(2); } } oki_adpcm_release(oki_enc_state); if (sf_close(inhandle) != 0) { fprintf(stderr, " Cannot close audio file '%s'\n", in_file_name); exit(2); } } oki_adpcm_release(oki_dec_state); oki_adpcm_release(oki_dec_state2); if (sf_close(outhandle) != 0) { fprintf(stderr, " Cannot close audio file '%s'\n", OUT_FILE_NAME); exit(2); } printf("Tests passed.\n"); return 0; } /*- End of function --------------------------------------------------------*/ /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/tests/pcap_parse.c0000664000175000017500000001647011430006315016223 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * pcap_parse.c * * Written by Steve Underwood * * Copyright (C) 2009 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License version 2, as * published by the Free Software Foundation. * * 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., 675 Mass Ave, Cambridge, MA 02139, USA. * * Some code from SIPP (http://sf.net/projects/sipp) was used as a model * for how to work with PCAP files. That code was authored by Guillaume * TEISSIER from FTR&D 02/02/2006, and released under the GPL2 licence. */ #if defined(HAVE_CONFIG_H) #include "config.h" #endif #include #include #include #include #include #include #if defined(__HPUX) || defined(__CYGWIN) || defined(__FreeBSD__) #include #endif #include #ifndef __CYGWIN #include #endif #include #include #include #include #include #include "udptl.h" #include "spandsp.h" #include "pcap_parse.h" #if defined(__HPUX) || defined(__DARWIN) || defined(__CYGWIN) || defined(__FreeBSD__) struct iphdr { #ifdef _HPUX_LI unsigned int ihl:4; unsigned int version:4; #else unsigned int version:4; unsigned int ihl:4; #endif uint8_t tos; uint16_t tot_len; uint16_t id; uint16_t frag_off; uint8_t ttl; uint8_t protocol; uint16_t check; uint32_t saddr; uint32_t daddr; /*The options start here. */ }; #endif /* We define our own structures for Ethernet Header and IPv6 Header as they are not available on CYGWIN. * We only need the fields, which are necessary to determine the type of the next header. * we could also define our own structures for UDP and IPv4. We currently use the structures * made available by the platform, as we had no problems to get them on all supported platforms. */ typedef struct _ether_hdr { char ether_dst[6]; char ether_src[6]; u_int16_t ether_type; } ether_hdr; typedef struct _null_hdr { uint32_t pf_type; } null_hdr; typedef struct _ipv6_hdr { char dontcare[6]; u_int8_t nxt_header; /* we only need the next header, so we can determine, if the next header is UDP or not */ char dontcare2[33]; } ipv6_hdr; char errbuf[PCAP_ERRBUF_SIZE]; int pcap_scan_pkts(const char *file, uint32_t src_addr, uint16_t src_port, uint32_t dest_addr, uint16_t dest_port, pcap_timing_update_handler_t *timing_update_handler, pcap_packet_handler_t *packet_handler, void *user_data) { pcap_t *pcap; struct pcap_pkthdr *pkthdr; uint8_t *pktdata; const uint8_t *body; int body_len; int total_pkts; uint32_t pktlen; ether_hdr *ethhdr; null_hdr *nullhdr; struct iphdr *iphdr; ipv6_hdr *ip6hdr; struct udphdr *udphdr; int datalink; int packet_type; total_pkts = 0; if ((pcap = pcap_open_offline(file, errbuf)) == NULL) { fprintf(stderr, "Can't open PCAP file '%s'\n", file); return -1; } datalink = pcap_datalink(pcap); /* DLT_EN10MB seems to apply to all forms of ethernet, not just the 10MB kind. */ if (datalink != DLT_EN10MB && datalink != DLT_NULL) { fprintf(stderr, "Unsupported data link type %d\n", datalink); return -1; } printf("Datalink type %d\n", datalink); pkthdr = NULL; pktdata = NULL; #if defined(HAVE_PCAP_NEXT_EX) while (pcap_next_ex(pcap, &pkthdr, (const uint8_t **) &pktdata) == 1) { #else if ((pkthdr = (struct pcap_pkthdr *) malloc(sizeof(*pkthdr))) == NULL) { fprintf(stderr, "Can't allocate memory for pcap pkthdr\n"); return -1; } while ((pktdata = (uint8_t *) pcap_next(pcap, pkthdr)) != NULL) { #endif if (datalink == DLT_EN10MB) { ethhdr = (ether_hdr *) pktdata; packet_type = ntohs(ethhdr->ether_type); if (packet_type != 0x0800 /* IPv4 */ && packet_type != 0x86dd) /* IPv6 */ { continue; } iphdr = (struct iphdr *) ((uint8_t *) ethhdr + sizeof(*ethhdr)); } else if (datalink == DLT_NULL) { nullhdr = (null_hdr *) pktdata; if (nullhdr->pf_type != PF_INET && nullhdr->pf_type != PF_INET6) continue; iphdr = (struct iphdr *) ((uint8_t *) nullhdr + sizeof(*nullhdr)); } #if 0 { int i; printf("--- %d -", pkthdr->caplen); for (i = 0; i < pkthdr->caplen; i++) printf(" %02x", pktdata[i]); printf("\n"); } #endif if (iphdr && iphdr->version == 6) { /* ipv6 */ pktlen = (uint32_t) pkthdr->len - sizeof(*ethhdr) - sizeof(*ip6hdr); ip6hdr = (ipv6_hdr *) (void *) iphdr; if (ip6hdr->nxt_header != IPPROTO_UDP) continue; udphdr = (struct udphdr *) ((uint8_t *) ip6hdr + sizeof(*ip6hdr)); } else { /* ipv4 */ if (iphdr->protocol != IPPROTO_UDP) continue; #if defined(__DARWIN) || defined(__CYGWIN) || defined(__FreeBSD__) udphdr = (struct udphdr *) ((uint8_t *) iphdr + (iphdr->ihl << 2) + 4); pktlen = (uint32_t) ntohs(udphdr->uh_ulen); #elif defined ( __HPUX) udphdr = (struct udphdr *) ((uint8_t *) iphdr + (iphdr->ihl << 2)); pktlen = (uint32_t) pkthdr->len - sizeof(*ethhdr) - sizeof(*iphdr); #else udphdr = (struct udphdr *) ((uint8_t *) iphdr + (iphdr->ihl << 2)); pktlen = (uint32_t) ntohs(udphdr->len); #endif } timing_update_handler(user_data, &pkthdr->ts); if (src_addr && ntohl(iphdr->saddr) != src_addr) continue; if (src_port && ntohs(udphdr->source) != src_port) continue; if (dest_addr && ntohl(iphdr->daddr) != dest_addr) continue; if (dest_port && ntohs(udphdr->dest) != dest_port) continue; if (pkthdr->len != pkthdr->caplen) { fprintf(stderr, "Truncated packet - total len = %d, captured len = %d\n", pkthdr->len, pkthdr->caplen); exit(2); } body = (const uint8_t *) udphdr; body += sizeof(struct udphdr); body_len = pktlen - sizeof(struct udphdr); packet_handler(user_data, body, body_len); total_pkts++; } fprintf(stderr, "In pcap %s there were %d accepted packets\n", file, total_pkts); pcap_close(pcap); return 0; } /*- End of function --------------------------------------------------------*/ /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/tests/t38_non_ecm_buffer_tests.c0000664000175000017500000005025011422612267021001 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * t38_non_ecm_buffer_tests.c - Tests for the T.38 non-ECM image data buffer module. * * Written by Steve Underwood * * Copyright (C) 2008 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License version 2, as * published by the Free Software Foundation. * * 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., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \file */ /*! \page t38_non_ecm_buffer_tests_page T.38 non-ECM buffer tests \section t38_non_ecm_buffer_tests_page_sec_1 What does it do? These tests exercise the flow controlling non-ECM image data buffer module, used for T.38 gateways. */ #if defined(HAVE_CONFIG_H) #include #endif #include #include #include #include #include #include //#if defined(WITH_SPANDSP_INTERNALS) #define SPANDSP_EXPOSE_INTERNAL_STRUCTURES //#endif #include "spandsp.h" /* A pattern of widening gaps between ones, until at 11 apart an EOL should be registered */ static const uint8_t spreader[] = { 0x55, 0x55, 0x55, 0x55, 0x55, 0x55, 0x55, 0x55, /* 1 apart */ 0x22, /* 2 and 3 apart */ 0x10, /* 4 apart */ 0x40, /* 5 apart */ 0x80, /* 6 apart */ 0x80, /* 7 apart */ 0x40, /* 8 apart */ 0x10, /* 9 apart */ 0x02, /* 10 apart */ 0x00, 0x25 /* 11 apart */ }; static int bit_no; static int xxx(t38_non_ecm_buffer_state_t *s, logging_state_t *l, int log_bits, int n, int expected) { int i; int j; int bit; t38_non_ecm_buffer_inject(s, &spreader[n], 1); if (expected >= 0) { for (i = 0; i < 128; i++) { bit = t38_non_ecm_buffer_get_bit((void *) s); if (log_bits) printf("Rx bit %d - %d\n", bit_no, bit); if (bit != expected) { printf("Tests failed - %d %d %d\n", bit_no, bit, expected); exit(2); } bit_no++; } } else { j = -1; for (i = 0; i < 256; i++) { bit = t38_non_ecm_buffer_get_bit((void *) s); if (log_bits) printf("Rx bit %d - %d\n", bit_no, bit); if (j < 0) { if (bit == 1) j = 18*8 - 5; } else { expected = (spreader[j >> 3] >> (7 - (j & 7))) & 1; if (bit != expected) { printf("Tests failed - %d %d %d\n", bit_no, bit, expected); exit(2); } j++; if (j >= 18*8) j = 0; } bit_no++; if (j == 17*8) return 0; } } return 0; } /*- End of function --------------------------------------------------------*/ int main(int argc, char *argv[]) { t38_non_ecm_buffer_state_t buffer; logging_state_t logging; uint8_t buf[1024]; int bit; int n; int log_bits; int i; log_bits = (argc > 1); printf("T.38 non-ECM rate adapting buffer tests.\n"); span_log_init(&logging, SPAN_LOG_FLOW, NULL); span_log_set_protocol(&logging, "Buffer"); printf("1 - Impose no minimum for the bits per row\n"); t38_non_ecm_buffer_init(&buffer, TRUE, 0); n = 0; bit_no = 0; /* We should get ones until the buffers recognises an EOL */ printf(" We should get ones here\n"); for (i = 0; i < 17; i++) xxx(&buffer, &logging, log_bits, i, 1); printf(" We should change to zeros here\n"); xxx(&buffer, &logging, log_bits, i, 0); for (i = 0; i < 17; i++) xxx(&buffer, &logging, log_bits, i, 0); printf(" We should get the first row here\n"); xxx(&buffer, &logging, log_bits, i, -1); for (i = 0; i < 17; i++) xxx(&buffer, &logging, log_bits, i, 0); printf(" We should get the second row here\n"); xxx(&buffer, &logging, log_bits, i, -1); for (i = 0; i < 17; i++) xxx(&buffer, &logging, log_bits, i, 0); printf(" We should get the third row here\n"); xxx(&buffer, &logging, log_bits, i, -1); printf(" Done\n"); t38_non_ecm_buffer_report_input_status(&buffer, &logging); t38_non_ecm_buffer_report_output_status(&buffer, &logging); printf("2 - Impose no minimum for the bits per row, different alignment\n"); t38_non_ecm_buffer_init(&buffer, TRUE, 0); n = 0; memset(buf, 0, sizeof(buf)); /* The first one in this should be seen as the first EOL */ memset(buf + 10, 0x55, 10); /* EOL 2 */ buf[25] = 0x20; /* EOL 3 */ memset(buf + 30, 0x55, 10); /* EOL 4 */ buf[45] = 0x10; t38_non_ecm_buffer_inject(&buffer, buf, 50); t38_non_ecm_buffer_push(&buffer); for (;;) { bit = t38_non_ecm_buffer_get_bit((void *) &buffer); if (log_bits) printf("Rx bit %d - %d\n", n, bit); n++; if (bit == SIG_STATUS_END_OF_DATA) { if (n != 337) { printf("Tests failed\n"); exit(2); } break; } if (n >= 18 && n <= 96) { if (bit == (n & 1)) { printf("Tests failed\n"); exit(2); } } else if (n >= 178 && n <= 256) { if (bit == (n & 1)) { printf("Tests failed\n"); exit(2); } } else if (n == 139 || n == 300) { if (bit != 1) { printf("Tests failed\n"); exit(2); } } else { if (bit != 0) { printf("Tests failed\n"); exit(2); } } } t38_non_ecm_buffer_report_input_status(&buffer, &logging); t38_non_ecm_buffer_report_output_status(&buffer, &logging); printf("3 - Demand a fairly high minimum for the bits per row\n"); t38_non_ecm_buffer_init(&buffer, TRUE, 400); n = 0; memset(buf, 0, sizeof(buf)); /* The first one in this should be seen as the first EOL */ memset(buf + 10, 0x55, 10); /* EOL 2 */ buf[25] = 0x08; /* EOL 3 */ memset(buf + 30, 0x55, 10); /* EOL 4 */ buf[45] = 0x04; t38_non_ecm_buffer_inject(&buffer, buf, 50); t38_non_ecm_buffer_push(&buffer); for (;;) { bit = t38_non_ecm_buffer_get_bit((void *) &buffer); if (log_bits) printf("Rx bit %d - %d\n", n, bit); n++; if (bit == SIG_STATUS_END_OF_DATA) { if (n != 1273) { printf("Tests failed\n"); exit(2); } break; } if (n >= 18 && n <= 96) { if (bit == (n & 1)) { printf("Tests failed\n"); exit(2); } } else if (n >= 834 && n <= 912) { if (bit == (n & 1)) { printf("Tests failed\n"); exit(2); } } else if (n == 429 || n == 1238) { if (bit != 1) { printf("Tests failed\n"); exit(2); } } else { if (bit != 0) { printf("Tests failed\n"); exit(2); } } } t38_non_ecm_buffer_report_input_status(&buffer, &logging); t38_non_ecm_buffer_report_output_status(&buffer, &logging); printf("4 - Take some time to get to the first row of the image, output ahead\n"); t38_non_ecm_buffer_init(&buffer, TRUE, 400); n = 0; /* Get some initial bits from an empty buffer. These should be ones */ for (i = 0; i < 1000; i++) { bit = t38_non_ecm_buffer_get_bit((void *) &buffer); if (log_bits) printf("Rx bit %d - %d\n", n++, bit); if (bit != 1) { printf("Tests failed\n"); exit(2); } } printf(" Initial ones OK\n"); /* Now put some zeros into the buffer, but no EOL. We should continue getting ones out. */ memset(buf, 0, sizeof(buf)); t38_non_ecm_buffer_inject(&buffer, buf, 20); for (i = 0; i < 1000; i++) { bit = t38_non_ecm_buffer_get_bit((void *) &buffer); if (log_bits) printf("Rx bit %d - %d\n", n++, bit); if (bit != 1) { printf("Tests failed\n"); exit(2); } } printf(" Continuing initial ones OK\n"); /* Now add a one, to make an EOL. We should see the zeros come out. */ buf[0] = 0x01; t38_non_ecm_buffer_inject(&buffer, buf, 1); for (i = 0; i < 1000; i++) { bit = t38_non_ecm_buffer_get_bit((void *) &buffer); if (log_bits) printf("Rx bit %d - %d\n", n++, bit); if (bit != 0) { printf("Tests failed\n"); exit(2); } } printf(" First EOL caused zeros to output OK\n"); /* Now add another line. We should see the first line come out. This means just the 23rd bit from now will be a one. */ buf[0] = 0x00; buf[4] = 0x01; t38_non_ecm_buffer_inject(&buffer, buf, 5); for (i = 0; i < 1000; i++) { bit = t38_non_ecm_buffer_get_bit((void *) &buffer); if (log_bits) printf("Rx bit %d - %d\n", n++, bit); if ((i == 23 && bit == 0) || (i != 23 && bit != 0)) { printf("Tests failed (%d)\n", i); exit(2); } } printf(" Second EOL caused the first row to output OK\n"); /* Now inject an RTC - 6 EOLs */ memset(buf, 0, sizeof(buf)); /* T.4 1D style */ for (i = 10; i < 19; i += 3) { buf[i] = 0x00; buf[i + 1] = 0x10; buf[i + 2] = 0x01; } /* T.4 2D style */ buf[25 + 0] = 0x00; buf[25 + 1] = 0x18; buf[25 + 2] = 0x00; buf[25 + 3] = 0xC0; buf[25 + 4] = 0x06; buf[25 + 5] = 0x00; buf[25 + 6] = 0x30; buf[25 + 7] = 0x01; buf[25 + 8] = 0x80; buf[25 + 9] = 0x0C; t38_non_ecm_buffer_inject(&buffer, buf, 50); t38_non_ecm_buffer_push(&buffer); for (i = 0; i < 1000; i++) { bit = t38_non_ecm_buffer_get_bit((void *) &buffer); if (log_bits) printf("Rx bit %d - %d\n", n++, bit); if (i == 7 || i == 400 + 11 + 0*12 || i == 400 + 11 + 1*12 || i == 400 + 11 + 2*12 || i == 400 + 11 + 3*12 || i == 400 + 11 + 4*12 || i == 400 + 11 + 5*12 || i == 400 + 11 + 60 + 400 + 4 + 0*13 || i == 400 + 11 + 60 + 400 + 4 + 0*13 + 1 || i == 400 + 11 + 60 + 400 + 4 + 1*13 || i == 400 + 11 + 60 + 400 + 4 + 1*13 + 1 || i == 400 + 11 + 60 + 400 + 4 + 2*13 || i == 400 + 11 + 60 + 400 + 4 + 2*13 + 1 || i == 400 + 11 + 60 + 400 + 4 + 3*13 || i == 400 + 11 + 60 + 400 + 4 + 3*13 + 1 || i == 400 + 11 + 60 + 400 + 4 + 4*13 || i == 400 + 11 + 60 + 400 + 4 + 4*13 + 1 || i == 400 + 11 + 60 + 400 + 4 + 5*13 || i == 400 + 11 + 60 + 400 + 4 + 5*13 + 1) { if (bit == 0) { printf("Tests failed (%d)\n", i); exit(2); } } else { if (bit == 1) { printf("Tests failed (%d)\n", i); exit(2); } } } printf(" RTC output OK\n"); t38_non_ecm_buffer_report_input_status(&buffer, &logging); t38_non_ecm_buffer_report_output_status(&buffer, &logging); printf("5 - Take some time to get to the first row of the image, output behind\n"); t38_non_ecm_buffer_init(&buffer, TRUE, 400); n = 0; /* Inject some ones. */ memset(buf, 0xFF, 100); t38_non_ecm_buffer_inject(&buffer, buf, 100); /* Inject some zeros */ memset(buf, 0, sizeof(buf)); t38_non_ecm_buffer_inject(&buffer, buf, 100); for (i = 0; i < 1000; i++) { bit = t38_non_ecm_buffer_get_bit((void *) &buffer); if (log_bits) printf("Rx bit %d - %d\n", n++, bit); if (bit != 1) { printf("Tests failed\n"); exit(2); } } printf(" Initial ones OK\n"); /* Now add a one, to make an EOL. We should see the zeros come out. */ buf[0] = 0x01; t38_non_ecm_buffer_inject(&buffer, buf, 1); for (i = 0; i < 1000; i++) { bit = t38_non_ecm_buffer_get_bit((void *) &buffer); if (log_bits) printf("Rx bit %d - %d\n", n++, bit); if (bit != 0) { printf("Tests failed\n"); exit(2); } } printf(" First EOL caused zeros to output OK\n"); /* Now add another line. We should see the first line come out. This means just the 23rd bit from now will be a one. */ buf[0] = 0x00; buf[4] = 0x01; t38_non_ecm_buffer_inject(&buffer, buf, 5); for (i = 0; i < 1000; i++) { bit = t38_non_ecm_buffer_get_bit((void *) &buffer); if (log_bits) printf("Rx bit %d - %d\n", n++, bit); if ((i == 23 && bit == 0) || (i != 23 && bit != 0)) { printf("Tests failed (%d)\n", i); exit(2); } } printf(" Second EOL caused the first row to output OK\n"); /* Now inject an RTC - 6 EOLs */ memset(buf, 0, sizeof(buf)); /* T.4 1D style */ for (i = 10; i < 19; i += 3) { buf[i] = 0x00; buf[i + 1] = 0x10; buf[i + 2] = 0x01; } /* T.4 2D style */ buf[25 + 0] = 0x00; buf[25 + 1] = 0x18; buf[25 + 2] = 0x00; buf[25 + 3] = 0xC0; buf[25 + 4] = 0x06; buf[25 + 5] = 0x00; buf[25 + 6] = 0x30; buf[25 + 7] = 0x01; buf[25 + 8] = 0x80; buf[25 + 9] = 0x0C; t38_non_ecm_buffer_inject(&buffer, buf, 50); t38_non_ecm_buffer_push(&buffer); for (i = 0; i < 1000; i++) { bit = t38_non_ecm_buffer_get_bit((void *) &buffer); if (log_bits) printf("Rx bit %d - %d\n", n++, bit); if (i == 7 || i == 400 + 11 + 0*12 || i == 400 + 11 + 1*12 || i == 400 + 11 + 2*12 || i == 400 + 11 + 3*12 || i == 400 + 11 + 4*12 || i == 400 + 11 + 5*12 || i == 400 + 11 + 60 + 400 + 4 + 0*13 || i == 400 + 11 + 60 + 400 + 4 + 0*13 + 1 || i == 400 + 11 + 60 + 400 + 4 + 1*13 || i == 400 + 11 + 60 + 400 + 4 + 1*13 + 1 || i == 400 + 11 + 60 + 400 + 4 + 2*13 || i == 400 + 11 + 60 + 400 + 4 + 2*13 + 1 || i == 400 + 11 + 60 + 400 + 4 + 3*13 || i == 400 + 11 + 60 + 400 + 4 + 3*13 + 1 || i == 400 + 11 + 60 + 400 + 4 + 4*13 || i == 400 + 11 + 60 + 400 + 4 + 4*13 + 1 || i == 400 + 11 + 60 + 400 + 4 + 5*13 || i == 400 + 11 + 60 + 400 + 4 + 5*13 + 1) { if (bit == 0) { printf("Tests failed (%d)\n", i); exit(2); } } else { if (bit == 1) { printf("Tests failed (%d)\n", i); exit(2); } } } printf(" RTC output OK\n"); t38_non_ecm_buffer_report_input_status(&buffer, &logging); t38_non_ecm_buffer_report_output_status(&buffer, &logging); printf("6 - TCF without leading ones\n"); t38_non_ecm_buffer_init(&buffer, FALSE, 400); n = 0; /* Get some initial bits from an empty buffer. These should be ones */ for (i = 0; i < 1000; i++) { bit = t38_non_ecm_buffer_get_bit((void *) &buffer); if (log_bits) printf("Rx bit %d - %d\n", n++, bit); if (bit != 1) { printf("Tests failed\n"); exit(2); } } printf(" Initial ones from an empty TCF buffer OK\n"); /* Now send some TCF through, and see that it comes out */ memset(buf, 0x00, sizeof(buf)); t38_non_ecm_buffer_inject(&buffer, buf, 500); t38_non_ecm_buffer_push(&buffer); for (i = 0; i < 500*8; i++) { bit = t38_non_ecm_buffer_get_bit((void *) &buffer); if (log_bits) printf("Rx bit %d - %d\n", n++, bit); if (bit != 0) { printf("Tests failed\n"); exit(2); } } printf(" Passthrough of TCF OK\n"); /* Check the right number of bits was buffered */ bit = t38_non_ecm_buffer_get_bit((void *) &buffer); if (log_bits) printf("Rx bit %d - %d\n", n++, bit); if (bit != SIG_STATUS_END_OF_DATA) { printf("Tests failed\n"); exit(2); } printf(" End of data seen OK\n"); t38_non_ecm_buffer_report_input_status(&buffer, &logging); t38_non_ecm_buffer_report_output_status(&buffer, &logging); printf("7 - TCF with leading ones\n"); t38_non_ecm_buffer_init(&buffer, FALSE, 400); n = 0; /* Get some initial bits from an empty buffer. These should be ones */ for (i = 0; i < 1000; i++) { bit = t38_non_ecm_buffer_get_bit((void *) &buffer); if (log_bits) printf("Rx bit %d - %d\n", n++, bit); if (bit != 1) { printf("Tests failed\n"); exit(2); } } printf(" Initial ones from an empty TCF buffer OK\n"); /* Now send some initial ones, and see that we continue to get all ones as the stuffing. */ memset(buf, 0xFF, 500); t38_non_ecm_buffer_inject(&buffer, buf, 500); for (i = 0; i < 500*8; i++) { bit = t38_non_ecm_buffer_get_bit((void *) &buffer); if (log_bits) printf("Rx bit %d - %d\n", n++, bit); if (bit != 1) { printf("Tests failed\n"); exit(2); } } printf(" Sustaining ones OK\n"); /* Now send some initial ones, and some TCF through, and see that only the TCF comes out */ memset(buf, 0x00, sizeof(buf)); memset(buf, 0xFF, 100); /* End the ones mid byte */ buf[100] = 0xF0; t38_non_ecm_buffer_inject(&buffer, buf, 500); t38_non_ecm_buffer_push(&buffer); for (i = 0; i < 400*8; i++) { bit = t38_non_ecm_buffer_get_bit((void *) &buffer); if (log_bits) printf("Rx bit %d - %d\n", n++, bit); if ((i < 4 && bit == 0) || (i >= 4 && bit != 0)) { printf("Tests failed\n"); exit(2); } } printf(" Passthrough of TCF OK\n"); /* Check the right number of bits was buffered */ bit = t38_non_ecm_buffer_get_bit((void *) &buffer); if (log_bits) printf("Rx bit %d - %d\n", n++, bit); if (bit != SIG_STATUS_END_OF_DATA) { printf("Tests failed\n"); exit(2); } printf(" End of data seen OK\n"); t38_non_ecm_buffer_report_input_status(&buffer, &logging); t38_non_ecm_buffer_report_output_status(&buffer, &logging); printf("Tests passed\n"); return 0; } /*- End of function --------------------------------------------------------*/ /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/tests/v42bis_tests.sh0000775000175000017500000000522611422612267016643 0ustar steveusteveu#!/bin/sh # # V.42bis compression/decompression tests, as specified in V.56ter # # This program is free software; you can redistribute it and/or modify # it under the terms of the GNU Lesser General Public License version 2.1, # as published by the Free Software Foundation. # # 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 Lesser General Public # License along with this program; if not, write to the Free Software # Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. BASE=../test-data/itu/v56ter ./v42bis_tests ${BASE}/1.TST RETVAL=$? if [ $RETVAL != 0 ] then exit $RETVAL fi diff ${BASE}/1.TST v42bis_tests.out RETVAL=$? if [ $RETVAL != 0 ] then exit $RETVAL fi ./v42bis_tests ${BASE}/1X04.TST RETVAL=$? if [ $RETVAL != 0 ] then exit $RETVAL fi diff ${BASE}/1X04.TST v42bis_tests.out RETVAL=$? if [ $RETVAL != 0 ] then exit $RETVAL fi ./v42bis_tests ${BASE}/1X30.TST RETVAL=$? if [ $RETVAL != 0 ] then exit $RETVAL fi diff ${BASE}/1X30.TST v42bis_tests.out RETVAL=$? if [ $RETVAL != 0 ] then exit $RETVAL fi ./v42bis_tests ${BASE}/2.TST RETVAL=$? if [ $RETVAL != 0 ] then exit $RETVAL fi diff ${BASE}/2.TST v42bis_tests.out RETVAL=$? if [ $RETVAL != 0 ] then exit $RETVAL fi ./v42bis_tests ${BASE}/2X10.TST RETVAL=$? if [ $RETVAL != 0 ] then exit $RETVAL fi diff ${BASE}/2X10.TST v42bis_tests.out RETVAL=$? if [ $RETVAL != 0 ] then exit $RETVAL fi ./v42bis_tests ${BASE}/3.TST RETVAL=$? if [ $RETVAL != 0 ] then exit $RETVAL fi diff ${BASE}/3.TST v42bis_tests.out RETVAL=$? if [ $RETVAL != 0 ] then exit $RETVAL fi ./v42bis_tests ${BASE}/3X06.TST RETVAL=$? if [ $RETVAL != 0 ] then exit $RETVAL fi diff ${BASE}/3X06.TST v42bis_tests.out RETVAL=$? if [ $RETVAL != 0 ] then exit $RETVAL fi ./v42bis_tests ${BASE}/4.TST RETVAL=$? if [ $RETVAL != 0 ] then exit $RETVAL fi diff ${BASE}/4.TST v42bis_tests.out RETVAL=$? if [ $RETVAL != 0 ] then exit $RETVAL fi ./v42bis_tests ${BASE}/4X04.TST RETVAL=$? if [ $RETVAL != 0 ] then exit $RETVAL fi diff ${BASE}/4X04.TST v42bis_tests.out RETVAL=$? if [ $RETVAL != 0 ] then exit $RETVAL fi ./v42bis_tests ${BASE}/5.TST RETVAL=$? if [ $RETVAL != 0 ] then exit $RETVAL fi diff ${BASE}/5.TST v42bis_tests.out RETVAL=$? if [ $RETVAL != 0 ] then exit $RETVAL fi ./v42bis_tests ${BASE}/5X16.TST RETVAL=$? if [ $RETVAL != 0 ] then exit $RETVAL fi diff ${BASE}/5X16.TST v42bis_tests.out RETVAL=$? if [ $RETVAL != 0 ] then exit $RETVAL fi spandsp-0.0.6/tests/timezone_tests.c0000664000175000017500000000474411435757501017202 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * timezone_tests.c - Timezone handling for time interpretation * * Written by Steve Underwood * * Copyright (C) 2010 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \page timezone_tests_page Timezone handling tests \section timezone_tests_page_sec_1 What does it do? */ #if defined(HAVE_CONFIG_H) #include "config.h" #endif #include #include #include #include #include //#if defined(WITH_SPANDSP_INTERNALS) #define SPANDSP_EXPOSE_INTERNAL_STRUCTURES //#endif #include "spandsp.h" #ifndef FALSE #define FALSE 0 #endif #ifndef TRUE #define TRUE (!FALSE) #endif int main(int argc, char *argv[]) { struct tm tms; struct tm *tmp = &tms; time_t ltime; tz_t *tz; /* Get the current time */ ltime = time(NULL); /* Compute the local current time now for several localities, based on Posix tz strings */ tz = tz_init(NULL, "GMT0GMT0,M10.5.0,M3.5.0"); tz_localtime(tz, tmp, ltime); printf("Local time is %02d:%02d:%02d\n", tmp->tm_hour, tmp->tm_min, tmp->tm_sec); printf("Time zone is %s\n", tz_tzname(tz, tmp->tm_isdst)); tz_init(tz, "CST-8CST-8,M10.5.0,M3.5.0"); tz_localtime(tz, tmp, ltime); printf("Local time is %02d:%02d:%02d\n", tmp->tm_hour, tmp->tm_min, tmp->tm_sec); printf("Time zone is %s\n", tz_tzname(tz, tmp->tm_isdst)); tz_init(tz, "AEST-10AEDT-11,M10.5.0,M3.5.0"); tz_localtime(tz, tmp, ltime); printf("Local time is %02d:%02d:%02d\n", tmp->tm_hour, tmp->tm_min, tmp->tm_sec); printf("Time zone is %s\n", tz_tzname(tz, tmp->tm_isdst)); tz_free(tz); return 0; } /*- End of function --------------------------------------------------------*/ /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/tests/playout_tests.c0000664000175000017500000002503511422612267017034 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * playout_tests.c * * Written by Steve Underwood * * Copyright (C) 2005 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License version 2, as * published by the Free Software Foundation. * * 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., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \page playout_tests_page Playout (jitter buffering) tests \section playout_tests_page_sec_1 What does it do? These tests simulate timing jitter and packet loss in an audio stream, and see how well the playout module copes. */ #if defined(HAVE_CONFIG_H) #include "config.h" #endif #include #include #include #include #include "spandsp.h" #include "spandsp/private/time_scale.h" #include "spandsp-sim.h" #define INPUT_FILE_NAME "playout_in.wav" #define OUTPUT_FILE_NAME "playout_out.wav" #define BLOCK_LEN 160 static void dynamic_buffer_tests(void) { playout_state_t *s; playout_frame_t frame; playout_frame_t *p; plc_state_t plc; time_scale_state_t ts; int16_t *amp; int16_t fill[BLOCK_LEN]; int16_t buf[20*BLOCK_LEN]; int16_t out[10*BLOCK_LEN]; timestamp_t time_stamp; timestamp_t next_actual_receive; timestamp_t next_scheduled_receive; int near_far_time_offset; int rng; int i; int j; int ret; int len; int inframes; int outframes; SNDFILE *inhandle; SNDFILE *outhandle; if ((inhandle = sf_open_telephony_read(INPUT_FILE_NAME, 1)) == NULL) { fprintf(stderr, " Failed to open audio file '%s'\n", INPUT_FILE_NAME); exit(2); } if ((outhandle = sf_open_telephony_write(OUTPUT_FILE_NAME, 1)) == NULL) { fprintf(stderr, " Failed to create audio file '%s'\n", OUTPUT_FILE_NAME); exit(2); } near_far_time_offset = 54321; time_stamp = 12345; next_actual_receive = time_stamp + near_far_time_offset; next_scheduled_receive = 0; for (i = 0; i < BLOCK_LEN; i++) fill[i] = 32767; if ((s = playout_init(2*BLOCK_LEN, 15*BLOCK_LEN)) == NULL) return; plc_init(&plc); time_scale_init(&ts, SAMPLE_RATE, 1.0); for (i = 0; i < 1000000; i++) { if (i >= next_actual_receive) { amp = malloc(BLOCK_LEN*sizeof(int16_t)); inframes = sf_readf_short(inhandle, amp, BLOCK_LEN); if (inframes < BLOCK_LEN) break; ret = playout_put(s, amp, PLAYOUT_TYPE_SPEECH, inframes, time_stamp, next_actual_receive); #if 0 switch (ret) { case PLAYOUT_OK: printf("<< Record\n"); break; case PLAYOUT_ERROR: printf("<< Error\n"); break; default: printf("<< Eh?\n"); break; } #endif rng = rand() & 0xFF; if (i < 100000) rng = (rng*rng) >> 7; else if (i < 200000) rng = (rng*rng) >> 6; else if (i < 300000) rng = (rng*rng) >> 5; else if (i < 400000) rng = (rng*rng) >> 7; time_stamp += BLOCK_LEN; next_actual_receive = time_stamp + near_far_time_offset + rng; } if (i >= next_scheduled_receive) { do { ret = playout_get(s, &frame, next_scheduled_receive); if (ret == PLAYOUT_DROP) printf(">> Drop %d\n", next_scheduled_receive); } while (ret == PLAYOUT_DROP); switch (ret) { case PLAYOUT_OK: printf(">> Play %d\n", next_scheduled_receive); plc_rx(&plc, frame.data, frame.sender_len); len = time_scale(&ts, out, ((int16_t *) frame.data), frame.sender_len); printf("len = %d\n", len); for (j = 0; j < len; j++) { buf[2*j] = out[j]; buf[2*j + 1] = 10*playout_current_length(s); } outframes = sf_writef_short(outhandle, buf, len); if (outframes != len) { fprintf(stderr, " Error writing out sound\n"); exit(2); } free(frame.data); next_scheduled_receive += BLOCK_LEN; break; case PLAYOUT_FILLIN: printf(">> Fill %d\n", next_scheduled_receive); plc_fillin(&plc, fill, BLOCK_LEN); time_scale_rate(&ts, 0.5); len = time_scale(&ts, out, fill, BLOCK_LEN); time_scale_rate(&ts, 1.0); printf("len = %d\n", len); for (j = 0; j < len; j++) { buf[2*j] = out[j]; buf[2*j + 1] = 10*playout_current_length(s); } outframes = sf_writef_short(outhandle, buf, len); if (outframes != len) { fprintf(stderr, " Error writing out sound\n"); exit(2); } next_scheduled_receive += BLOCK_LEN; break; case PLAYOUT_DROP: printf(">> Drop %d\n", next_scheduled_receive); break; case PLAYOUT_NOFRAME: printf(">> No frame %d %d %d %d\n", next_scheduled_receive, playout_next_due(s), s->last_speech_sender_stamp, s->last_speech_sender_len); next_scheduled_receive += BLOCK_LEN; break; case PLAYOUT_EMPTY: printf(">> Empty %d\n", next_scheduled_receive); next_scheduled_receive += BLOCK_LEN; break; case PLAYOUT_ERROR: printf(">> Error %d\n", next_scheduled_receive); next_scheduled_receive += BLOCK_LEN; break; default: printf(">> Eh? %d\n", next_scheduled_receive); break; } } } if (sf_close(inhandle) != 0) { fprintf(stderr, " Cannot close audio file '%s'\n", INPUT_FILE_NAME); exit(2); } if (sf_close(outhandle) != 0) { fprintf(stderr, " Cannot close audio file '%s'\n", OUTPUT_FILE_NAME); exit(2); } printf("%10" PRId32 " %10" PRId32 " %10d\n", s->state_just_in_time, s->state_late, playout_current_length(s)); /* Clear everything from the queue */ while ((p = playout_get_unconditional(s))) /*free(p->data)*/; /* Now free the context itself */ playout_free(s); } /*- End of function --------------------------------------------------------*/ static void static_buffer_tests(void) { playout_state_t *s; playout_frame_t frame; playout_frame_t *p; int type; uint8_t fr[BLOCK_LEN]; timestamp_t next_scheduled_send; int transit_time; timestamp_t next_actual_receive; timestamp_t next_scheduled_receive; int len; int i; int ret; next_scheduled_send = 0; transit_time = 320; next_actual_receive = next_scheduled_send + transit_time; next_scheduled_receive = 960; memset(fr, 0, sizeof(fr)); type = PLAYOUT_TYPE_SPEECH; len = BLOCK_LEN; if ((s = playout_init(2*BLOCK_LEN, 2*BLOCK_LEN)) == NULL) return; for (i = 0; i < 1000000; i++) { if (i >= next_actual_receive) { ret = playout_put(s, fr, type, len, next_scheduled_send, next_actual_receive); switch (ret) { case PLAYOUT_OK: printf("<< Record\n"); break; case PLAYOUT_ERROR: printf("<< Error\n"); break; default: printf("<< Eh?\n"); break; } next_scheduled_send += BLOCK_LEN; ret = rand() & 0xFF; ret = (ret*ret) >> 7; transit_time = 320 + ret; next_actual_receive = next_scheduled_send + transit_time; } if (i >= next_scheduled_receive) { do { ret = playout_get(s, &frame, next_scheduled_receive); } while (ret == PLAYOUT_DROP); switch (ret) { case PLAYOUT_OK: printf(">> Play\n"); next_scheduled_receive += BLOCK_LEN; break; case PLAYOUT_FILLIN: printf(">> Fill\n"); next_scheduled_receive += BLOCK_LEN; break; case PLAYOUT_DROP: printf(">> Drop\n"); break; case PLAYOUT_NOFRAME: printf(">> No frame\n"); next_scheduled_receive += BLOCK_LEN; break; case PLAYOUT_EMPTY: printf(">> Empty\n"); next_scheduled_receive += BLOCK_LEN; break; case PLAYOUT_ERROR: printf(">> Error\n"); next_scheduled_receive += BLOCK_LEN; break; default: printf(">> Eh?\n"); break; } } } /* Clear everything from the queue */ while ((p = playout_get_unconditional(s))) /*free(p->data)*/; /* Now free the context itself */ playout_free(s); } /*- End of function --------------------------------------------------------*/ int main(int argc, char *argv[]) { printf("Dynamic buffering tests\n"); dynamic_buffer_tests(); printf("Static buffering tests\n"); static_buffer_tests(); } /*- End of function --------------------------------------------------------*/ /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/tests/fax_tests.c0000664000175000017500000004362711440176324016123 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * fax_tests.c * * Written by Steve Underwood * * Copyright (C) 2003 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License version 2, as * published by the Free Software Foundation. * * 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., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \page fax_tests_page FAX tests \section fax_tests_page_sec_1 What does it do? \section fax_tests_page_sec_2 How does it work? */ #if defined(HAVE_CONFIG_H) #include "config.h" #endif #include #include #include #include #include #include //#if defined(WITH_SPANDSP_INTERNALS) #define SPANDSP_EXPOSE_INTERNAL_STRUCTURES //#endif #include "spandsp.h" #include "spandsp-sim.h" #include "fax_utils.h" #define SAMPLES_PER_CHUNK 160 #define INPUT_TIFF_FILE_NAME "../test-data/itu/fax/itutests.tif" #define OUTPUT_FILE_NAME_WAVE "fax_tests.wav" #define FAX_MACHINES 2 struct machine_s { int chan; int16_t amp[SAMPLES_PER_CHUNK]; int len; fax_state_t *fax; awgn_state_t *awgn; int done; int succeeded; char tag[50]; int error_delay; int total_audio_time; } machines[FAX_MACHINES]; int use_receiver_not_ready = FALSE; int test_local_interrupt = FALSE; int t30_state_to_wreck = -1; static int phase_b_handler(t30_state_t *s, void *user_data, int result) { int i; char tag[20]; i = (int) (intptr_t) user_data; snprintf(tag, sizeof(tag), "%c: Phase B", i); printf("%c: Phase B handler on channel %c - (0x%X) %s\n", i, i, result, t30_frametype(result)); log_rx_parameters(s, tag); return T30_ERR_OK; } /*- End of function --------------------------------------------------------*/ static int phase_d_handler(t30_state_t *s, void *user_data, int result) { int i; char tag[20]; i = (int) (intptr_t) user_data; snprintf(tag, sizeof(tag), "%c: Phase D", i); printf("%c: Phase D handler on channel %c - (0x%X) %s\n", i, i, result, t30_frametype(result)); log_transfer_statistics(s, tag); log_tx_parameters(s, tag); log_rx_parameters(s, tag); if (use_receiver_not_ready) t30_set_receiver_not_ready(s, 3); if (test_local_interrupt) { if (i == 0) { printf("%d: Initiating interrupt request\n", i); t30_local_interrupt_request(s, TRUE); } else { switch (result) { case T30_PIP: case T30_PRI_MPS: case T30_PRI_EOM: case T30_PRI_EOP: printf("%d: Accepting interrupt request\n", i); t30_local_interrupt_request(s, TRUE); break; case T30_PIN: break; } } } return T30_ERR_OK; } /*- End of function --------------------------------------------------------*/ static void phase_e_handler(t30_state_t *s, void *user_data, int result) { int i; t30_stats_t t; char tag[20]; i = (intptr_t) user_data; snprintf(tag, sizeof(tag), "%c: Phase E", i); printf("%c: Phase E handler on channel %c - (%d) %s\n", i, i, result, t30_completion_code_to_str(result)); log_transfer_statistics(s, tag); log_tx_parameters(s, tag); log_rx_parameters(s, tag); t30_get_transfer_statistics(s, &t); machines[i - 'A'].succeeded = (result == T30_ERR_OK) && (t.pages_tx == 12 || t.pages_rx == 12); machines[i - 'A'].done = TRUE; } /*- End of function --------------------------------------------------------*/ static void real_time_frame_handler(t30_state_t *s, void *user_data, int direction, const uint8_t *msg, int len) { int i; i = (intptr_t) user_data; printf("%c: Real time frame handler on channel %c - %s, %s, length = %d\n", i, i, (direction) ? "line->T.30" : "T.30->line", t30_frametype(msg[2]), len); } /*- End of function --------------------------------------------------------*/ static int document_handler(t30_state_t *s, void *user_data, int event) { int i; i = (intptr_t) user_data; printf("%c: Document handler on channel %c - event %d\n", i, i, event); return FALSE; } /*- End of function --------------------------------------------------------*/ int main(int argc, char *argv[]) { SNDFILE *wave_handle; SNDFILE *input_wave_handle; int i; int j; int k; struct machine_s *mc; int outframes; char buf[128 + 1]; int16_t silence[SAMPLES_PER_CHUNK]; int16_t out_amp[2*SAMPLES_PER_CHUNK]; int alldone; const char *input_tiff_file_name; const char *input_audio_file_name; int log_audio; int use_ecm; int use_tep; int use_transmit_on_idle; int use_line_hits; int polled_mode; int reverse_flow; int use_page_limits; int supported_modems; int signal_level; int noise_level; float signal_scaling; time_t start_time; time_t end_time; int scan_line_time; char *page_header_info; int opt; t30_state_t *t30; logging_state_t *logging; log_audio = FALSE; input_tiff_file_name = INPUT_TIFF_FILE_NAME; input_audio_file_name = NULL; use_ecm = FALSE; use_line_hits = FALSE; use_tep = FALSE; polled_mode = FALSE; page_header_info = NULL; reverse_flow = FALSE; use_transmit_on_idle = TRUE; use_receiver_not_ready = FALSE; use_page_limits = FALSE; signal_level = 0; noise_level = -99; scan_line_time = 0; supported_modems = T30_SUPPORT_V27TER | T30_SUPPORT_V29 | T30_SUPPORT_V17; while ((opt = getopt(argc, argv, "ehH:i:I:lm:n:prRs:S:tTw:")) != -1) { switch (opt) { case 'e': use_ecm = TRUE; break; case 'h': use_line_hits = TRUE; break; case 'H': page_header_info = optarg; break; case 'i': input_tiff_file_name = optarg; break; case 'I': input_audio_file_name = optarg; break; case 'l': log_audio = TRUE; break; case 'm': supported_modems = atoi(optarg); break; case 'n': noise_level = atoi(optarg); break; case 'p': polled_mode = TRUE; break; case 'r': reverse_flow = TRUE; break; case 'R': use_receiver_not_ready = TRUE; break; case 's': signal_level = atoi(optarg); break; case 'S': scan_line_time = atoi(optarg); break; case 't': use_tep = TRUE; break; case 'T': use_page_limits = TRUE; break; case 'w': t30_state_to_wreck = atoi(optarg); break; default: //usage(); exit(2); break; } } input_wave_handle = NULL; if (input_audio_file_name) { if ((input_wave_handle = sf_open_telephony_read(input_audio_file_name, 1)) == NULL) { fprintf(stderr, " Cannot open audio file '%s'\n", input_audio_file_name); exit(2); } } wave_handle = NULL; if (log_audio) { if ((wave_handle = sf_open_telephony_write(OUTPUT_FILE_NAME_WAVE, 2)) == NULL) { fprintf(stderr, " Cannot create audio file '%s'\n", OUTPUT_FILE_NAME_WAVE); exit(2); } } memset(silence, 0, sizeof(silence)); for (j = 0; j < FAX_MACHINES; j++) { machines[j].chan = j; mc = &machines[j]; i = mc->chan + 1; sprintf(buf, "%d%d%d%d%d%d%d%d", i, i, i, i, i, i, i, i); if (reverse_flow) mc->fax = fax_init(NULL, (mc->chan & 1) ? TRUE : FALSE); else mc->fax = fax_init(NULL, (mc->chan & 1) ? FALSE : TRUE); mc->awgn = NULL; signal_scaling = 1.0f; if (noise_level > -99) { mc->awgn = awgn_init_dbm0(NULL, 1234567, noise_level); signal_scaling = powf(10.0f, signal_level/20.0f); printf("Signal scaling %f\n", signal_scaling); } fax_set_transmit_on_idle(mc->fax, use_transmit_on_idle); fax_set_tep_mode(mc->fax, use_tep); t30 = fax_get_t30_state(mc->fax); t30_set_tx_ident(t30, buf); t30_set_tx_sub_address(t30, "Sub-address"); t30_set_tx_sender_ident(t30, "Sender ID"); t30_set_tx_password(t30, "Password"); t30_set_tx_polled_sub_address(t30, "Polled sub-address"); t30_set_tx_selective_polling_address(t30, "Selective polling address"); t30_set_tx_page_header_info(t30, page_header_info); t30_set_tx_nsf(t30, (const uint8_t *) "\x50\x00\x00\x00Spandsp\x00", 12); t30_set_ecm_capability(t30, use_ecm); t30_set_supported_t30_features(t30, T30_SUPPORT_IDENTIFICATION | T30_SUPPORT_SELECTIVE_POLLING | T30_SUPPORT_SUB_ADDRESSING); if ((mc->chan & 1)) t30_set_minimum_scan_line_time(t30, scan_line_time); t30_set_supported_image_sizes(t30, T30_SUPPORT_US_LETTER_LENGTH | T30_SUPPORT_US_LEGAL_LENGTH | T30_SUPPORT_UNLIMITED_LENGTH | T30_SUPPORT_215MM_WIDTH | T30_SUPPORT_255MM_WIDTH | T30_SUPPORT_303MM_WIDTH); t30_set_supported_resolutions(t30, T30_SUPPORT_STANDARD_RESOLUTION | T30_SUPPORT_FINE_RESOLUTION | T30_SUPPORT_SUPERFINE_RESOLUTION | T30_SUPPORT_R8_RESOLUTION | T30_SUPPORT_R16_RESOLUTION | T30_SUPPORT_300_300_RESOLUTION | T30_SUPPORT_400_400_RESOLUTION | T30_SUPPORT_600_600_RESOLUTION | T30_SUPPORT_1200_1200_RESOLUTION | T30_SUPPORT_300_600_RESOLUTION | T30_SUPPORT_400_800_RESOLUTION | T30_SUPPORT_600_1200_RESOLUTION); t30_set_supported_modems(t30, supported_modems); if (use_ecm) #if defined(SPANDSP_SUPPORT_T85) t30_set_supported_compressions(t30, T30_SUPPORT_T4_1D_COMPRESSION | T30_SUPPORT_T4_2D_COMPRESSION | T30_SUPPORT_T6_COMPRESSION | T30_SUPPORT_T85_COMPRESSION); #else t30_set_supported_compressions(t30, T30_SUPPORT_T4_1D_COMPRESSION | T30_SUPPORT_T4_2D_COMPRESSION | T30_SUPPORT_T6_COMPRESSION); #endif if ((mc->chan & 1)) { if (polled_mode) { if (use_page_limits) t30_set_tx_file(t30, input_tiff_file_name, 3, 6); else t30_set_tx_file(t30, input_tiff_file_name, -1, -1); } else { sprintf(buf, "fax_tests_%d.tif", (mc->chan + 1)/2); t30_set_rx_file(t30, buf, -1); t30_set_rx_encoding(t30, T4_COMPRESSION_ITU_T6); } } else { if (polled_mode) { sprintf(buf, "fax_tests_%d.tif", (mc->chan + 1)/2); t30_set_rx_file(t30, buf, -1); t30_set_rx_encoding(t30, T4_COMPRESSION_ITU_T6); } else { if (use_page_limits) t30_set_tx_file(t30, input_tiff_file_name, 3, 6); else t30_set_tx_file(t30, input_tiff_file_name, -1, -1); } } t30_set_phase_b_handler(t30, phase_b_handler, (void *) (intptr_t) mc->chan + 'A'); t30_set_phase_d_handler(t30, phase_d_handler, (void *) (intptr_t) mc->chan + 'A'); t30_set_phase_e_handler(t30, phase_e_handler, (void *) (intptr_t) mc->chan + 'A'); t30_set_real_time_frame_handler(t30, real_time_frame_handler, (void *) (intptr_t) mc->chan + 'A'); t30_set_document_handler(t30, document_handler, (void *) (intptr_t) mc->chan + 'A'); sprintf(mc->tag, "FAX-%d", j + 1); logging = t30_get_logging_state(t30); span_log_set_level(logging, SPAN_LOG_SHOW_SEVERITY | SPAN_LOG_SHOW_PROTOCOL | SPAN_LOG_SHOW_TAG | SPAN_LOG_SHOW_SAMPLE_TIME | SPAN_LOG_FLOW); span_log_set_tag(logging, mc->tag); if ((j & 1)) { span_log_set_level(&t30->t4.rx.logging, SPAN_LOG_SHOW_SEVERITY | SPAN_LOG_SHOW_PROTOCOL | SPAN_LOG_SHOW_TAG | SPAN_LOG_SHOW_SAMPLE_TIME | SPAN_LOG_FLOW); span_log_set_tag(&t30->t4.rx.logging, mc->tag); } else { span_log_set_level(&t30->t4.tx.logging, SPAN_LOG_SHOW_SEVERITY | SPAN_LOG_SHOW_PROTOCOL | SPAN_LOG_SHOW_TAG | SPAN_LOG_SHOW_SAMPLE_TIME | SPAN_LOG_FLOW); span_log_set_tag(&t30->t4.tx.logging, mc->tag); } logging = fax_get_logging_state(mc->fax); span_log_set_level(logging, SPAN_LOG_SHOW_SEVERITY | SPAN_LOG_SHOW_PROTOCOL | SPAN_LOG_SHOW_TAG | SPAN_LOG_SHOW_SAMPLE_TIME | SPAN_LOG_FLOW); span_log_set_tag(logging, mc->tag); memset(mc->amp, 0, sizeof(mc->amp)); mc->total_audio_time = 0; mc->done = FALSE; } time(&start_time); for (;;) { alldone = TRUE; for (j = 0; j < FAX_MACHINES; j++) { mc = &machines[j]; if ((j & 1) == 0 && input_audio_file_name) { mc->len = sf_readf_short(input_wave_handle, mc->amp, SAMPLES_PER_CHUNK); if (mc->len == 0) break; } else { mc->len = fax_tx(mc->fax, mc->amp, SAMPLES_PER_CHUNK); if (mc->awgn) { for (k = 0; k < mc->len; k++) mc->amp[k] = ((int16_t) (mc->amp[k]*signal_scaling)) + awgn(mc->awgn); } } mc->total_audio_time += SAMPLES_PER_CHUNK; if (!use_transmit_on_idle) { /* The receive side always expects a full block of samples, but the transmit side may not be sending any when it doesn't need to. We may need to pad with some silence. */ if (mc->len < SAMPLES_PER_CHUNK) { memset(mc->amp + mc->len, 0, sizeof(int16_t)*(SAMPLES_PER_CHUNK - mc->len)); mc->len = SAMPLES_PER_CHUNK; } } t30 = fax_get_t30_state(mc->fax); logging = t30_get_logging_state(t30); span_log_bump_samples(logging, mc->len); logging = fax_get_logging_state(mc->fax); span_log_bump_samples(logging, mc->len); if (log_audio) { for (k = 0; k < mc->len; k++) out_amp[2*k + j] = mc->amp[k]; } if (machines[j ^ 1].len < SAMPLES_PER_CHUNK) memset(machines[j ^ 1].amp + machines[j ^ 1].len, 0, sizeof(int16_t)*(SAMPLES_PER_CHUNK - machines[j ^ 1].len)); t30 = fax_get_t30_state(mc->fax); #if defined(WITH_SPANDSP_INTERNALS) if (use_line_hits) { /* TODO: This applies very crude line hits. improve it */ if (t30->state == 22) { if (++mc->error_delay == 100) { fprintf(stderr, "HIT %d!\n", j); mc->error_delay = 0; for (k = 0; k < 5; k++) mc->amp[k] = 0; } } } if (t30->state == t30_state_to_wreck) memset(machines[j ^ 1].amp, 0, sizeof(int16_t)*SAMPLES_PER_CHUNK); #endif if (fax_rx(mc->fax, machines[j ^ 1].amp, SAMPLES_PER_CHUNK)) break; if (!mc->done) alldone = FALSE; } if (log_audio) { outframes = sf_writef_short(wave_handle, out_amp, SAMPLES_PER_CHUNK); if (outframes != SAMPLES_PER_CHUNK) break; } if (alldone || j < FAX_MACHINES) break; } time(&end_time); for (j = 0; j < FAX_MACHINES; j++) { mc = &machines[j]; fax_release(mc->fax); } if (log_audio) { if (sf_close(wave_handle)) { fprintf(stderr, " Cannot close audio file '%s'\n", OUTPUT_FILE_NAME_WAVE); exit(2); } } if (input_audio_file_name) { if (sf_close(input_wave_handle)) { fprintf(stderr, " Cannot close audio file '%s'\n", input_audio_file_name); exit(2); } } printf("Total audio time = %ds (wall time %ds)\n", machines[0].total_audio_time/8000, (int) (end_time - start_time)); return 0; } /*- End of function --------------------------------------------------------*/ /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/tests/echo_monitor.h0000664000175000017500000000405211422612266016602 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * echo_monitor.h - Display echo canceller status, using the FLTK toolkit. * * Written by Steve Underwood * * Copyright (C) 2004 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License version 2, as * published by the Free Software Foundation. * * 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., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \page echo_monitor_page Echo canceller performance monitoring \section echo_monitor_page_sec_1 What does it do? This code controls a GUI window, which provides monitoring of the internal status of a time domain echo canceller. It shows, graphically: - the spectrum of the received signal. - the line model in use (when a known line model is being used). - the adapted coefficients of the canceller. \section echo_monitor_page_sec_2 How does it work? This code uses the FLTK cross platform GUI toolkit. It works on X11 and Windows platforms. In addition to the basic FLTK toolkit, fltk_cartesian is also required. */ #if !defined(_ECHO_MONITOR_H_) #define _ECHO_MONITOR_H_ #if defined(__cplusplus) extern "C" { #endif int start_echo_can_monitor(int len); int echo_can_monitor_can_update(const int16_t *coeffs, int len); int echo_can_monitor_line_model_update(const int32_t *coeffs, int len); int echo_can_monitor_line_spectrum_update(const int16_t amp[], int len); void echo_can_monitor_wait_to_end(void); void echo_can_monitor_update_display(void); #if defined(__cplusplus) } #endif #endif /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/tests/line_model_monitor.cpp0000664000175000017500000003170611422612266020334 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * line_model_monitor.cpp - Model activity in a telephone line model, using the FLTK toolkit. * * Written by Steve Underwood * * Copyright (C) 2006 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License version 2, as * published by the Free Software Foundation. * * 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., 675 Mass Ave, Cambridge, MA 02139, USA. */ #ifdef HAVE_CONFIG_H #include "config.h" #endif #if defined(HAVE_FL_FL_H) && defined(HAVE_FL_FL_CARTESIAN_H) #define __STDC_LIMIT_MACROS #include #include #include #include #include #include #include #if defined(HAVE_FFTW3_H) #include #else #include #endif #include #include #include #include #include #include #include "spandsp.h" #include "line_model_monitor.h" struct line_model_monitor_s { Fl_Double_Window *w; Fl_Audio_Meter *audio_meter; Fl_Group *c_spec; Fl_Group *c_right; Fl_Group *c_can; Fl_Group *c_line_model; Ca_Canvas *canvas_spec; Ca_X_Axis *spec_freq; Ca_Y_Axis *spec_amp; Ca_Line *spec_re; double spec_re_plot[2*512]; Ca_Canvas *canvas_can; Ca_X_Axis *can_x; Ca_Y_Axis *can_y; Ca_Line *can_re; double can_re_plot[512]; Ca_Canvas *canvas_line_model; Ca_X_Axis *line_model_x; Ca_Y_Axis *line_model_y; Ca_Line *line_model_re; double line_model_re_plot[512]; int in_ptr; #if defined(HAVE_FFTW3_H) double in[1024][2]; double out[1024][2]; #else fftw_complex in[1024]; fftw_complex out[1024]; #endif fftw_plan p; }; static int skip = 0; static struct line_model_monitor_s model; static struct line_model_monitor_s *s = &model; int line_model_monitor_can_update(const float *coeffs, int len) { int i; float min; float max; if (s->can_re) delete s->can_re; s->canvas_can->current(s->canvas_can); i = 0; min = coeffs[i]; max = coeffs[i]; for (i = 0; i < len; i++) { s->can_re_plot[2*i] = i; s->can_re_plot[2*i + 1] = coeffs[i]; if (min > coeffs[i]) min = coeffs[i]; if (max < coeffs[i]) max = coeffs[i]; } s->can_y->maximum((max == min) ? max + 0.2 : max); s->can_y->minimum(min); s->can_re = new Ca_Line(len, s->can_re_plot, 0, 0, FL_BLUE, CA_NO_POINT); if (++skip >= 100) { skip = 0; Fl::check(); } return 0; } /*- End of function --------------------------------------------------------*/ int line_model_monitor_line_model_update(const float *coeffs, int len) { int i; float min; float max; if (s->line_model_re) delete s->line_model_re; s->canvas_line_model->current(s->canvas_line_model); i = 0; min = coeffs[i]; max = coeffs[i]; for (i = 0; i < len; i++) { s->line_model_re_plot[2*i] = i; s->line_model_re_plot[2*i + 1] = coeffs[i]; if (min > coeffs[i]) min = coeffs[i]; if (max < coeffs[i]) max = coeffs[i]; } s->line_model_y->maximum((max == min) ? max + 0.2 : max); s->line_model_y->minimum(min); s->line_model_re = new Ca_Line(len, s->line_model_re_plot, 0, 0, FL_BLUE, CA_NO_POINT); if (++skip >= 100) { skip = 0; Fl::check(); } return 0; } /*- End of function --------------------------------------------------------*/ int line_model_monitor_line_spectrum_update(const int16_t amp[], int len) { int i; int x; for (i = 0; i < len; i++) s->audio_meter->sample(amp[i]/32768.0); if (s->in_ptr + len < 512) { /* Just add this fragment to the buffer. */ for (i = 0; i < len; i++) #if defined(HAVE_FFTW3_H) s->in[s->in_ptr + i][0] = amp[i]; #else s->in[s->in_ptr + i].re = amp[i]; #endif s->in_ptr += len; return 0; } if (len >= 512) { /* We have enough for a whole block. Use the last 512 samples we have. */ x = len - 512; for (i = 0; i < 512; i++) #if defined(HAVE_FFTW3_H) s->in[i][0] = amp[x + i]; #else s->in[i].re = amp[x + i]; #endif } else { /* We want the last 512 samples. */ x = 512 - len; for (i = 0; i < x; i++) #if defined(HAVE_FFTW3_H) s->in[i][0] = s->in[s->in_ptr - x + i][0]; #else s->in[i].re = s->in[s->in_ptr - x + i].re; #endif for (i = x; i < 512; i++) #if defined(HAVE_FFTW3_H) s->in[i][0] = amp[i - x]; #else s->in[i].re = amp[i - x]; #endif } s->in_ptr = 0; #if defined(HAVE_FFTW3_H) fftw_execute(s->p); #else fftw_one(s->p, s->in, s->out); #endif if (s->spec_re) delete s->spec_re; s->canvas_spec->current(s->canvas_spec); for (i = 0; i < 512; i++) { s->spec_re_plot[2*i] = i*4000.0/512.0; #if defined(HAVE_FFTW3_H) s->spec_re_plot[2*i + 1] = 20.0*log10(sqrt(s->out[i][0]*s->out[i][0] + s->out[i][1]*s->out[i][1])/(256.0*32768)) + 3.14; #else s->spec_re_plot[2*i + 1] = 20.0*log10(sqrt(s->out[i].re*s->out[i].re + s->out[i].im*s->out[i].im)/(256.0*32768)) + 3.14; #endif } s->spec_re = new Ca_Line(512, s->spec_re_plot, 0, 0, FL_BLUE, CA_NO_POINT); Fl::check(); return 0; } /*- End of function --------------------------------------------------------*/ int start_line_model_monitor(int len) { char buf[132 + 1]; float x; float y; int i; s->w = new Fl_Double_Window(850, 400, "Telephone line model monitor"); s->c_spec = new Fl_Group(0, 0, 380, 400); s->c_spec->box(FL_DOWN_BOX); s->c_spec->align(FL_ALIGN_TOP | FL_ALIGN_INSIDE); s->canvas_spec = new Ca_Canvas(60, 30, 300, 300, "Spectrum"); s->canvas_spec->box(FL_PLASTIC_DOWN_BOX); s->canvas_spec->color(7); s->canvas_spec->align(FL_ALIGN_TOP); s->canvas_spec->border(15); s->spec_freq = new Ca_X_Axis(65, 330, 290, 30, "Freq (Hz)"); s->spec_freq->align(FL_ALIGN_BOTTOM); s->spec_freq->minimum(0); s->spec_freq->maximum(4000); s->spec_freq->label_format("%g"); s->spec_freq->minor_grid_color(fl_gray_ramp(20)); s->spec_freq->major_grid_color(fl_gray_ramp(15)); s->spec_freq->label_grid_color(fl_gray_ramp(10)); s->spec_freq->grid_visible(CA_LABEL_GRID | CA_ALWAYS_VISIBLE); s->spec_freq->minor_grid_style(FL_DOT); s->spec_freq->major_step(5); s->spec_freq->label_step(1); s->spec_freq->axis_color(FL_BLACK); s->spec_freq->axis_align(CA_BOTTOM | CA_LINE); s->spec_amp = new Ca_Y_Axis(20, 35, 40, 290, "Amp (dBmO)"); s->spec_amp->align(FL_ALIGN_LEFT); s->spec_amp->minimum(-80.0); s->spec_amp->maximum(10.0); s->spec_amp->minor_grid_color(fl_gray_ramp(20)); s->spec_amp->major_grid_color(fl_gray_ramp(15)); s->spec_amp->label_grid_color(fl_gray_ramp(10)); //s->spec_amp->grid_visible(CA_MINOR_TICK | CA_MAJOR_TICK | CA_LABEL_GRID | CA_ALWAYS_VISIBLE); s->spec_amp->grid_visible(CA_LABEL_GRID | CA_ALWAYS_VISIBLE); s->spec_amp->minor_grid_style(FL_DOT); s->spec_amp->major_step(5); s->spec_amp->label_step(1); s->spec_amp->axis_color(FL_BLACK); s->spec_amp->current(); s->spec_re = NULL; s->c_spec->end(); s->c_right = new Fl_Group(440, 0, 465, 405); s->c_can = new Fl_Group(380, 0, 415, 200); s->c_can->box(FL_DOWN_BOX); s->c_can->align(FL_ALIGN_TOP | FL_ALIGN_INSIDE); s->c_can->current(); s->canvas_can = new Ca_Canvas(460, 35, 300, 100, "??? coefficients"); s->canvas_can->box(FL_PLASTIC_DOWN_BOX); s->canvas_can->color(7); s->canvas_can->align(FL_ALIGN_TOP); Fl_Group::current()->resizable(s->canvas_can); s->canvas_can->border(15); s->can_x = new Ca_X_Axis(465, 135, 290, 30, "Tap"); s->can_x->align(FL_ALIGN_BOTTOM); s->can_x->minimum(0.0); s->can_x->maximum((float) len); s->can_x->label_format("%g"); s->can_x->minor_grid_color(fl_gray_ramp(20)); s->can_x->major_grid_color(fl_gray_ramp(15)); s->can_x->label_grid_color(fl_gray_ramp(10)); s->can_x->grid_visible(CA_LABEL_GRID | CA_ALWAYS_VISIBLE); s->can_x->minor_grid_style(FL_DOT); s->can_x->major_step(5); s->can_x->label_step(1); s->can_x->axis_align(CA_BOTTOM | CA_LINE); s->can_x->axis_color(FL_BLACK); s->can_x->current(); s->can_y = new Ca_Y_Axis(420, 40, 40, 90, "Amp"); s->can_y->align(FL_ALIGN_LEFT); s->can_y->minimum(-0.1); s->can_y->maximum(0.1); s->can_y->minor_grid_color(fl_gray_ramp(20)); s->can_y->major_grid_color(fl_gray_ramp(15)); s->can_y->label_grid_color(fl_gray_ramp(10)); s->can_y->grid_visible(CA_LABEL_GRID | CA_ALWAYS_VISIBLE); s->can_y->minor_grid_style(FL_DOT); s->can_y->major_step(5); s->can_y->label_step(1); s->can_y->axis_color(FL_BLACK); s->can_y->current(); s->c_can->end(); s->can_re = NULL; s->c_line_model = new Fl_Group(380, 200, 415, 200); s->c_line_model->box(FL_DOWN_BOX); s->c_line_model->align(FL_ALIGN_TOP | FL_ALIGN_INSIDE); s->c_line_model->current(); s->canvas_line_model = new Ca_Canvas(460, 235, 300, 100, "Line impulse response model"); s->canvas_line_model->box(FL_PLASTIC_DOWN_BOX); s->canvas_line_model->color(7); s->canvas_line_model->align(FL_ALIGN_TOP); Fl_Group::current()->resizable(s->canvas_line_model); s->canvas_line_model->border(15); s->line_model_x = new Ca_X_Axis(465, 335, 290, 30, "Tap"); s->line_model_x->align(FL_ALIGN_BOTTOM); s->line_model_x->minimum(0.0); s->line_model_x->maximum((float) len); s->line_model_x->label_format("%g"); s->line_model_x->minor_grid_color(fl_gray_ramp(20)); s->line_model_x->major_grid_color(fl_gray_ramp(15)); s->line_model_x->label_grid_color(fl_gray_ramp(10)); s->line_model_x->grid_visible(CA_LABEL_GRID | CA_ALWAYS_VISIBLE); s->line_model_x->minor_grid_style(FL_DOT); s->line_model_x->major_step(5); s->line_model_x->label_step(1); s->line_model_x->axis_align(CA_BOTTOM | CA_LINE); s->line_model_x->axis_color(FL_BLACK); s->line_model_x->current(); s->line_model_y = new Ca_Y_Axis(420, 240, 40, 90, "Amp"); s->line_model_y->align(FL_ALIGN_LEFT); s->line_model_y->minimum(-0.1); s->line_model_y->maximum(0.1); s->line_model_y->minor_grid_color(fl_gray_ramp(20)); s->line_model_y->major_grid_color(fl_gray_ramp(15)); s->line_model_y->label_grid_color(fl_gray_ramp(10)); s->line_model_y->grid_visible(CA_LABEL_GRID | CA_ALWAYS_VISIBLE); s->line_model_y->minor_grid_style(FL_DOT); s->line_model_y->major_step(5); s->line_model_y->label_step(1); s->line_model_y->axis_color(FL_BLACK); s->line_model_y->current(); s->line_model_re = NULL; s->c_line_model->end(); s->audio_meter = new Fl_Audio_Meter(810, 40, 10, 250, ""); s->audio_meter->box(FL_PLASTIC_UP_BOX); s->audio_meter->type(FL_VERT_AUDIO_METER); s->c_right->end(); Fl_Group::current()->resizable(s->c_right); s->w->end(); s->w->show(); #if defined(HAVE_FFTW3_H) s->p = fftw_plan_dft_1d(1024, s->in, s->out, FFTW_BACKWARD, FFTW_ESTIMATE); for (i = 0; i < 1024; i++) { s->in[i][0] = 0.0; s->in[i][1] = 0.0; } #else s->p = fftw_create_plan(1024, FFTW_BACKWARD, FFTW_ESTIMATE); for (i = 0; i < 1024; i++) { s->in[i].re = 0.0; s->in[i].im = 0.0; } #endif s->in_ptr = 0; Fl::check(); return 0; } /*- End of function --------------------------------------------------------*/ void line_model_monitor_wait_to_end(void) { fd_set rfds; int res; struct timeval tv; fprintf(stderr, "Processing complete. Press the key to end\n"); do { usleep(100000); Fl::check(); FD_ZERO(&rfds); FD_SET(0, &rfds); tv.tv_usec = 100000; tv.tv_sec = 0; res = select(1, &rfds, NULL, NULL, &tv); } while (res <= 0); } /*- End of function --------------------------------------------------------*/ void line_model_monitor_update_display(void) { Fl::check(); Fl::check(); Fl::check(); Fl::check(); Fl::check(); Fl::check(); Fl::check(); Fl::check(); Fl::check(); Fl::check(); Fl::check(); Fl::check(); } /*- End of function --------------------------------------------------------*/ #endif /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/tests/line_model_monitor.h0000664000175000017500000000412511422612266017774 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * line_model_monitor.h - Model activity in a telephone line model, using the FLTK toolkit. * * Written by Steve Underwood * * Copyright (C) 2004 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License version 2, as * published by the Free Software Foundation. * * 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., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \page line_model_monitor_page Telephone line model monitoring \section line_model_monitor_page_sec_1 What does it do? This code controls a GUI window, which provides monitoring of the internal status of a telephone line modem. It shows, graphically: - the spectrum of the received signal. - the line model in use (when a known line model is being used). - the adapted coefficients of the canceller. \section line_model_monitor_page_sec_2 How does it work? This code uses the FLTK cross platform GUI toolkit. It works on X11 and Windows platforms. In addition to the basic FLTK toolkit, fltk_cartesian is also required. */ #if !defined(_LINE_MODEL_MONITOR_H_) #define _LINE_MODEL_MONITOR_H_ #if defined(__cplusplus) extern "C" { #endif int start_line_model_monitor(int len); int line_model_monitor_can_update(const float *coeffs, int len); int line_model_monitor_line_model_update(const float *coeffs, int len); int line_model_monitor_line_spectrum_update(const int16_t amp[], int len); void line_model_monitor_wait_to_end(void); void line_model_monitor_update_display(void); #if defined(__cplusplus) } #endif #endif /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/tests/gsm0610_tests.c0000664000175000017500000004436011422612266016435 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * gsm0610_tests.c - Test the GSM 06.10 FR codec. * * Written by Steve Underwood * * Copyright (C) 2006 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License version 2, as * published by the Free Software Foundation. * * 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., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \file */ /*! \page gsm0610_tests_page GSM 06.10 full rate codec tests \section gsm0610_tests_page_sec_1 What does it do? Two sets of tests are performed: - The tests defined in the GSM 06.10 specification, using the test data files supplied with the specification. - A generally audio quality test, consisting of compressing and decompressing a speeech file for audible comparison. \section gsm0610_tests_page_sec_2 How is it used? To perform the tests in the GSM 06.10 specification you need to obtain the test data files from the specification. These are copyright material, and so cannot be distributed with this test software. They can, however, be freely downloaded from the ETSI web site. The files, containing test vectors, which are supplied with the GSM 06.10 specification, should be copied to etsitests/gsm0610/unpacked so the files are arranged in the following directories. ./fr_A: Seq01-A.cod Seq01-A.inp Seq01-A.out Seq02-A.cod Seq02-A.inp Seq02-A.out Seq03-A.cod Seq03-A.inp Seq03-A.out Seq04-A.cod Seq04-A.inp Seq04-A.out Seq05-A.out ./fr_L: Seq01.cod Seq01.inp Seq01.out Seq02.cod Seq02.inp Seq02.out Seq03.cod Seq03.inp Seq03.out Seq04.cod Seq04.inp Seq04.out Seq05.cod Seq05.out ./fr_U: Seq01-U.cod Seq01-U.inp Seq01-U.out Seq02-U.cod Seq02-U.inp Seq02-U.out Seq03-U.cod Seq03-U.inp Seq03-U.out Seq04-U.cod Seq04-U.inp Seq04-U.out Seq05-U.out ./fr_homing_A: Homing01_A.out Seq01H_A.cod Seq01H_A.inp Seq01H_A.out Seq02H_A.cod Seq02H_A.inp Seq02H_A.out Seq03H_A.cod Seq03H_A.inp Seq03H_A.out Seq04H_A.cod Seq04H_A.inp Seq04H_A.out Seq05H_A.out Seq06H_A.cod Seq06H_A.inp ./fr_homing_L: Homing01.cod Homing01.out Seq01h.cod Seq01h.inp Seq01h.out Seq02h.cod Seq02h.inp Seq02h.out Seq03h.cod Seq03h.inp Seq03h.out Seq04h.cod Seq04h.inp Seq04h.out Seq05h.cod Seq05h.out Seq06h.cod Seq06h.inp ./fr_homing_U: Homing01_U.out Seq01H_U.cod Seq01H_U.inp Seq01H_U.out Seq02H_U.cod Seq02H_U.inp Seq02H_U.out Seq03H_U.cod Seq03H_U.inp Seq03H_U.out Seq04H_U.cod Seq04H_U.inp Seq04H_U.out Seq05H_U.out Seq06H_U.cod Seq06H_U.inp ./fr_sync_A: Seqsync_A.inp Sync000_A.cod --to-- Sync159_A.cod ./fr_sync_L: Bitsync.inp Seqsync.inp Sync000.cod --to-- Sync159.cod ./fr_sync_U: Seqsync_U.inp Sync000_U.cod --to-- Sync159_U.cod This is different from the directory structure in which they are supplied. Also, the files names are a little different. The supplied names are messy, and inconsistent across the sets. The names required by these tests just clean up these inconsistencies. Note that you will need a Windows machine to unpack some of the supplied files. To perform a general audio quality test, gsm0610_tests should be run. The file ../test-data/local/short_nb_voice.wav will be compressed to GSM 06.10 data, decompressed, and the resulting audio stored in post_gsm0610.wav. */ #if defined(HAVE_CONFIG_H) #include "config.h" #endif #include #include #include #include #include #include #include //#if defined(WITH_SPANDSP_INTERNALS) #define SPANDSP_EXPOSE_INTERNAL_STRUCTURES //#endif #include "spandsp.h" #include "spandsp-sim.h" #define BLOCK_LEN 160 #define TESTDATA_DIR "../test-data/etsi/gsm0610/unpacked/fr_" #define IN_FILE_NAME "../test-data/local/short_nb_voice.wav" #define OUT_FILE_NAME "post_gsm0610.wav" #define HIST_LEN 1000 uint8_t law_in_vector[1000000]; int16_t in_vector[1000000]; uint16_t code_vector_buf[1000000]; uint8_t code_vector[1000000]; uint8_t ref_code_vector[1000000]; uint8_t decoder_code_vector[1000000]; uint8_t law_out_vector[1000000]; int16_t out_vector[1000000]; int16_t ref_out_vector[1000000]; uint8_t ref_law_out_vector[1000000]; int vector_len; static int get_test_vector(int full, int disk, const char *name) { char buf[500]; int in; int len; int i; if (full) { sprintf(buf, "%s%c/%s.inp", TESTDATA_DIR, 'L', name); if ((in = open(buf, O_RDONLY)) < 0) { fprintf(stderr, "Cannot open %s\n", buf); exit(2); } len = read(in, in_vector, 1000000); close(in); len /= sizeof(int16_t); vector_len = len; } sprintf(buf, "%s%c/%s.out", TESTDATA_DIR, 'L', name); if ((in = open(buf, O_RDONLY)) < 0) { fprintf(stderr, "Cannot open %s\n", buf); exit(2); } len = read(in, ref_out_vector, 1000000); close(in); len /= sizeof(int16_t); if (full) { if (len != vector_len) { fprintf(stderr, "Input and reference vector lengths do not match - %d %d\n", vector_len, len); exit(2); } } else { vector_len = len; } sprintf(buf, "%s%c/%s.cod", TESTDATA_DIR, 'L', name); if ((in = open(buf, O_RDONLY)) < 0) { fprintf(stderr, "Cannot open %s\n", buf); exit(2); } len = read(in, code_vector_buf, 1000000); close(in); len /= sizeof(int16_t); for (i = 0; i < len; i++) { ref_code_vector[i] = code_vector_buf[i]; decoder_code_vector[i] = code_vector_buf[i]; } if (len*BLOCK_LEN != vector_len*76) { fprintf(stderr, "Input and code vector lengths do not match - %d %d\n", vector_len, len); exit(2); } return len; } /*- End of function --------------------------------------------------------*/ static int get_law_test_vector(int full, int law, const char *name) { char buf[500]; int in; int len; int i; int law_uc; law_uc = toupper(law); if (full) { sprintf(buf, "%s%c/%s-%c.inp", TESTDATA_DIR, law_uc, name, law_uc); if ((in = open(buf, O_RDONLY)) < 0) { fprintf(stderr, "Cannot open %s\n", buf); exit(2); } len = read(in, law_in_vector, 1000000); close(in); vector_len = len; sprintf(buf, "%s%c/%s-%c.cod", TESTDATA_DIR, law_uc, name, law_uc); if ((in = open(buf, O_RDONLY)) < 0) { fprintf(stderr, "Cannot open %s\n", buf); exit(2); } len = read(in, code_vector_buf, 1000000); close(in); len /= sizeof(int16_t); for (i = 0; i < len; i++) ref_code_vector[i] = code_vector_buf[i]; if (len*BLOCK_LEN != vector_len*76) { fprintf(stderr, "Input and code vector lengths do not match - %d %d\n", vector_len, len); exit(2); } } sprintf(buf, "%s%c/%s-%c.out", TESTDATA_DIR, law_uc, name, law_uc); if ((in = open(buf, O_RDONLY)) < 0) { fprintf(stderr, "Cannot open %s\n", buf); exit(2); } len = read(in, ref_law_out_vector, 1000000); close(in); if (full) { if (len != vector_len) { fprintf(stderr, "Input and reference vector lengths do not match - %d %d\n", vector_len, len); exit(2); } } else { vector_len = len; } sprintf(buf, "%s%c/%s.cod", TESTDATA_DIR, 'L', name); if ((in = open(buf, O_RDONLY)) < 0) { fprintf(stderr, "Cannot open %s\n", buf); exit(2); } len = read(in, code_vector_buf, 1000000); close(in); len /= sizeof(int16_t); for (i = 0; i < len; i++) decoder_code_vector[i] = code_vector_buf[i]; return len; } /*- End of function --------------------------------------------------------*/ static int perform_linear_test(int full, int disk, const char *name) { gsm0610_state_t *gsm0610_enc_state; gsm0610_state_t *gsm0610_dec_state; int i; int xxx; int mismatches; printf("Performing linear test '%s' from disk %d\n", name, disk); get_test_vector(full, disk, name); if (full) { if ((gsm0610_enc_state = gsm0610_init(NULL, GSM0610_PACKING_NONE)) == NULL) { fprintf(stderr, " Cannot create encoder\n"); exit(2); } xxx = gsm0610_encode(gsm0610_enc_state, code_vector, in_vector, vector_len); printf("Check code vector of length %d\n", xxx); for (i = 0, mismatches = 0; i < xxx; i++) { if (code_vector[i] != ref_code_vector[i]) { printf("%8d/%3d: %6d %6d\n", i/76, i%76, code_vector[i], ref_code_vector[i]); mismatches++; } } gsm0610_release(gsm0610_enc_state); if (mismatches) { printf("Test failed: %d of %d samples mismatch\n", mismatches, xxx); exit(2); } printf("Test passed\n"); } if ((gsm0610_dec_state = gsm0610_init(NULL, GSM0610_PACKING_NONE)) == NULL) { fprintf(stderr, " Cannot create decoder\n"); exit(2); } xxx = gsm0610_decode(gsm0610_dec_state, out_vector, decoder_code_vector, vector_len); printf("Check output vector of length %d\n", vector_len); for (i = 0, mismatches = 0; i < vector_len; i++) { if (out_vector[i] != ref_out_vector[i]) { printf("%8d: %6d %6d\n", i, out_vector[i], ref_out_vector[i]); mismatches++; } } if (mismatches) { printf("Test failed: %d of %d samples mismatch\n", mismatches, vector_len); exit(2); } gsm0610_release(gsm0610_dec_state); printf("Test passed\n"); return 0; } /*- End of function --------------------------------------------------------*/ static int perform_law_test(int full, int law, const char *name) { gsm0610_state_t *gsm0610_enc_state; gsm0610_state_t *gsm0610_dec_state; int i; int xxx; int mismatches; if (law == 'a') printf("Performing A-law test '%s'\n", name); else printf("Performing u-law test '%s'\n", name); get_law_test_vector(full, law, name); if (full) { if ((gsm0610_enc_state = gsm0610_init(NULL, GSM0610_PACKING_NONE)) == NULL) { fprintf(stderr, " Cannot create encoder\n"); exit(2); } if (law == 'a') { for (i = 0; i < vector_len; i++) in_vector[i] = alaw_to_linear(law_in_vector[i]); } else { for (i = 0; i < vector_len; i++) in_vector[i] = ulaw_to_linear(law_in_vector[i]); } xxx = gsm0610_encode(gsm0610_enc_state, code_vector, in_vector, vector_len); printf("Check code vector of length %d\n", xxx); for (i = 0, mismatches = 0; i < xxx; i++) { if (code_vector[i] != ref_code_vector[i]) { printf("%8d/%3d: %6d %6d %6d\n", i/76, i%76, code_vector[i], ref_code_vector[i], decoder_code_vector[i]); mismatches++; } } if (mismatches) { printf("Test failed: %d of %d samples mismatch\n", mismatches, xxx); exit(2); } printf("Test passed\n"); gsm0610_release(gsm0610_enc_state); } if ((gsm0610_dec_state = gsm0610_init(NULL, GSM0610_PACKING_NONE)) == NULL) { fprintf(stderr, " Cannot create decoder\n"); exit(2); } xxx = gsm0610_decode(gsm0610_dec_state, out_vector, decoder_code_vector, vector_len); if (law == 'a') { for (i = 0; i < vector_len; i++) law_out_vector[i] = linear_to_alaw(out_vector[i]); } else { for (i = 0; i < vector_len; i++) law_out_vector[i] = linear_to_ulaw(out_vector[i]); } printf("Check output vector of length %d\n", vector_len); for (i = 0, mismatches = 0; i < vector_len; i++) { if (law_out_vector[i] != ref_law_out_vector[i]) { printf("%8d: %6d %6d\n", i, law_out_vector[i], ref_law_out_vector[i]); mismatches++; } } if (mismatches) { printf("Test failed: %d of %d samples mismatch\n", mismatches, vector_len); exit(2); } gsm0610_release(gsm0610_dec_state); printf("Test passed\n"); return 0; } /*- End of function --------------------------------------------------------*/ static int repack_gsm0610_voip_to_wav49(uint8_t c[], const uint8_t d[]) { gsm0610_frame_t frame[2]; int n; n = gsm0610_unpack_voip(&frame[0], d); gsm0610_unpack_voip(&frame[1], d + n); n = gsm0610_pack_wav49(c, frame); return n; } /*- End of function --------------------------------------------------------*/ static int repack_gsm0610_wav49_to_voip(uint8_t d[], const uint8_t c[]) { gsm0610_frame_t frame[2]; int n[2]; gsm0610_unpack_wav49(frame, c); n[0] = gsm0610_pack_voip(d, &frame[0]); n[1] = gsm0610_pack_voip(d + n[0], &frame[1]); return n[0] + n[1]; } /*- End of function --------------------------------------------------------*/ static int perform_pack_unpack_test(void) { uint8_t a[66]; uint8_t b[66]; uint8_t c[66]; int i; int j; printf("Performing packing/unpacking tests (not part of the ETSI conformance tests).\n"); /* Try trans-packing a lot of random data looking for before/after mismatch. */ for (j = 0; j < 1000; j++) { for (i = 0; i < 65; i++) a[i] = rand(); repack_gsm0610_wav49_to_voip(b, a); repack_gsm0610_voip_to_wav49(c, b); if (memcmp(a, c, 65)) { printf("Test failed: data mismatch\n"); exit(2); } for (i = 0; i < 66; i++) a[i] = rand(); /* Insert the magic code */ a[0] = (a[0] & 0xF) | 0xD0; a[33] = (a[33] & 0xF) | 0xD0; repack_gsm0610_voip_to_wav49(b, a); repack_gsm0610_wav49_to_voip(c, b); //for (i = 0; i < 66; i++) // printf("%2d: 0x%02X 0x%02X\n", i, a[i], c[i]); if (memcmp(a, c, 66)) { printf("Test failed: data mismatch\n"); exit(2); } } printf("Test passed\n"); return 0; } /*- End of function --------------------------------------------------------*/ static void etsi_compliance_tests(void) { perform_linear_test(TRUE, 1, "Seq01"); perform_linear_test(TRUE, 1, "Seq02"); perform_linear_test(TRUE, 1, "Seq03"); perform_linear_test(TRUE, 1, "Seq04"); perform_linear_test(FALSE, 1, "Seq05"); perform_law_test(TRUE, 'a', "Seq01"); perform_law_test(TRUE, 'a', "Seq02"); perform_law_test(TRUE, 'a', "Seq03"); perform_law_test(TRUE, 'a', "Seq04"); perform_law_test(FALSE, 'a', "Seq05"); perform_law_test(TRUE, 'u', "Seq01"); perform_law_test(TRUE, 'u', "Seq02"); perform_law_test(TRUE, 'u', "Seq03"); perform_law_test(TRUE, 'u', "Seq04"); perform_law_test(FALSE, 'u', "Seq05"); /* This is not actually an ETSI test */ perform_pack_unpack_test(); printf("Tests passed.\n"); } /*- End of function --------------------------------------------------------*/ int main(int argc, char *argv[]) { SNDFILE *inhandle; SNDFILE *outhandle; int frames; int outframes; int bytes; int16_t pre_amp[HIST_LEN]; int16_t post_amp[HIST_LEN]; uint8_t gsm0610_data[HIST_LEN]; gsm0610_state_t *gsm0610_enc_state; gsm0610_state_t *gsm0610_dec_state; int opt; int etsitests; int packing; etsitests = TRUE; packing = GSM0610_PACKING_NONE; while ((opt = getopt(argc, argv, "lp:")) != -1) { switch (opt) { case 'l': etsitests = FALSE; break; case 'p': packing = atoi(optarg); break; default: //usage(); exit(2); } } if (etsitests) { etsi_compliance_tests(); } else { if ((inhandle = sf_open_telephony_read(IN_FILE_NAME, 1)) == NULL) { fprintf(stderr, " Cannot open audio file '%s'\n", IN_FILE_NAME); exit(2); } if ((outhandle = sf_open_telephony_write(OUT_FILE_NAME, 1)) == NULL) { fprintf(stderr, " Cannot create audio file '%s'\n", OUT_FILE_NAME); exit(2); } if ((gsm0610_enc_state = gsm0610_init(NULL, packing)) == NULL) { fprintf(stderr, " Cannot create encoder\n"); exit(2); } if ((gsm0610_dec_state = gsm0610_init(NULL, packing)) == NULL) { fprintf(stderr, " Cannot create decoder\n"); exit(2); } while ((frames = sf_readf_short(inhandle, pre_amp, 2*BLOCK_LEN))) { bytes = gsm0610_encode(gsm0610_enc_state, gsm0610_data, pre_amp, frames); gsm0610_decode(gsm0610_dec_state, post_amp, gsm0610_data, bytes); outframes = sf_writef_short(outhandle, post_amp, frames); } if (sf_close(inhandle) != 0) { fprintf(stderr, " Cannot close audio file '%s'\n", IN_FILE_NAME); exit(2); } if (sf_close(outhandle) != 0) { fprintf(stderr, " Cannot close audio file '%s'\n", OUT_FILE_NAME); exit(2); } gsm0610_release(gsm0610_enc_state); gsm0610_release(gsm0610_dec_state); } return 0; } /*- End of function --------------------------------------------------------*/ /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/tests/complex_vector_int_tests.c0000664000175000017500000000700711422612266021240 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * complex_vector_int_tests.c * * Written by Steve Underwood * * Copyright (C) 2006 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License version 2, as * published by the Free Software Foundation. * * 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., 675 Mass Ave, Cambridge, MA 02139, USA. */ #if defined(HAVE_CONFIG_H) #include "config.h" #endif #include #include #include #include #include "spandsp.h" static complexi32_t cvec_dot_prodi16_dumb(const complexi16_t x[], const complexi16_t y[], int n) { complexi32_t z; int i; z = complex_seti32(0, 0); for (i = 0; i < n; i++) { z.re += ((int32_t) x[i].re*(int32_t) y[i].re - (int32_t) x[i].im*(int32_t) y[i].im); z.im += ((int32_t) x[i].re*(int32_t) y[i].im + (int32_t) x[i].im*(int32_t) y[i].re); } return z; } /*- End of function --------------------------------------------------------*/ static int test_cvec_dot_prodi16(void) { int i; complexi32_t za; complexi32_t zb; complexi16_t x[99]; complexi16_t y[99]; for (i = 0; i < 99; i++) { x[i].re = rand(); x[i].im = rand(); y[i].re = rand(); y[i].im = rand(); } for (i = 1; i < 99; i++) { za = cvec_dot_prodi16(x, y, i); zb = cvec_dot_prodi16_dumb(x, y, i); if (za.re != zb.re || za.im != zb.im) { printf("Tests failed\n"); exit(2); } } return 0; } /*- End of function --------------------------------------------------------*/ static int test_cvec_circular_dot_prodi16(void) { int i; int j; int pos; int len; complexi32_t za; complexi32_t zb; complexi16_t x[99]; complexi16_t y[99]; /* Verify that we can do circular sample buffer "dot" linear coefficient buffer operations properly, by doing two sub-dot products. */ for (i = 0; i < 99; i++) { x[i].re = rand(); x[i].im = rand(); y[i].re = rand(); y[i].im = rand(); } len = 95; for (pos = 0; pos < len; pos++) { za = cvec_circular_dot_prodi16(x, y, len, pos); zb = complex_seti32(0, 0); for (i = 0; i < len; i++) { j = (pos + i) % len; zb.re += ((int32_t) x[j].re*(int32_t) y[i].re - (int32_t) x[j].im*(int32_t) y[i].im); zb.im += ((int32_t) x[j].re*(int32_t) y[i].im + (int32_t) x[j].im*(int32_t) y[i].re); } if (za.re != zb.re || za.im != zb.im) { printf("Tests failed\n"); exit(2); } } return 0; } /*- End of function --------------------------------------------------------*/ int main(int argc, char *argv[]) { test_cvec_dot_prodi16(); test_cvec_circular_dot_prodi16(); printf("Tests passed.\n"); return 0; } /*- End of function --------------------------------------------------------*/ /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/tests/ima_adpcm_tests.c0000664000175000017500000001444611422612266017254 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * ima_adpcm_tests.c - Test the IMA/DVI/Intel ADPCM encode and decode * software. * * Written by Steve Underwood * * Copyright (C) 2004 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License version 2, as * published by the Free Software Foundation. * * 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., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \file */ /*! \page ima_adpcm_tests_page IMA ADPCM tests \section ima_adpcm_tests_page_sec_1 What does it do? To perform a general audio quality test, ima_adpcm_tests should be run. The test file ../test-data/local/short_nb_voice.wav will be compressed to the specified bit rate, decompressed, and the resulting audio stored in post_ima_adpcm.wav. A simple SNR test is automatically performed. Listening tests may be used for a more detailed evaluation of the degradation in quality caused by the compression. \section ima_adpcm_tests_page_sec_2 How is it used? */ #if defined(HAVE_CONFIG_H) #include "config.h" #endif #include #include #include #include #include #include #include //#if defined(WITH_SPANDSP_INTERNALS) #define SPANDSP_EXPOSE_INTERNAL_STRUCTURES //#endif #include "spandsp.h" #include "spandsp-sim.h" #define IN_FILE_NAME "../test-data/local/short_nb_voice.wav" #define OUT_FILE_NAME "post_ima_adpcm.wav" #define HIST_LEN 2000 int main(int argc, char *argv[]) { int i; SNDFILE *inhandle; SNDFILE *outhandle; int frames; int dec_frames; int outframes; int ima_bytes; double pre_energy; double post_energy; double diff_energy; int16_t pre_amp[HIST_LEN]; int16_t post_amp[HIST_LEN]; uint8_t ima_data[HIST_LEN]; int16_t history[HIST_LEN]; int hist_in; int hist_out; ima_adpcm_state_t *ima_enc_state; ima_adpcm_state_t *ima_dec_state; int xx; int total_pre_samples; int total_compressed_bytes; int total_post_samples; const char *in_file_name; int variant; int chunk_size; int enc_chunk_size; int log_encoded_data; int opt; variant = IMA_ADPCM_DVI4; in_file_name = IN_FILE_NAME; chunk_size = 160; enc_chunk_size = 0; log_encoded_data = FALSE; while ((opt = getopt(argc, argv, "ac:i:lv")) != -1) { switch (opt) { case 'a': variant = IMA_ADPCM_IMA4; chunk_size = 505; break; case 'c': enc_chunk_size = atoi(optarg); break; case 'i': in_file_name = optarg; break; case 'l': log_encoded_data = TRUE; break; case 'v': variant = IMA_ADPCM_VDVI; break; default: //usage(); exit(2); break; } } if ((inhandle = sf_open_telephony_read(in_file_name, 1)) == NULL) { fprintf(stderr, " Cannot open audio file '%s'\n", in_file_name); exit(2); } if ((outhandle = sf_open_telephony_write(OUT_FILE_NAME, 1)) == NULL) { fprintf(stderr, " Cannot create audio file '%s'\n", OUT_FILE_NAME); exit(2); } if ((ima_enc_state = ima_adpcm_init(NULL, variant, enc_chunk_size)) == NULL) { fprintf(stderr, " Cannot create encoder\n"); exit(2); } if ((ima_dec_state = ima_adpcm_init(NULL, variant, enc_chunk_size)) == NULL) { fprintf(stderr, " Cannot create decoder\n"); exit(2); } hist_in = 0; hist_out = 0; pre_energy = 0.0; post_energy = 0.0; diff_energy = 0.0; total_pre_samples = 0; total_compressed_bytes = 0; total_post_samples = 0; while ((frames = sf_readf_short(inhandle, pre_amp, chunk_size))) { total_pre_samples += frames; ima_bytes = ima_adpcm_encode(ima_enc_state, ima_data, pre_amp, frames); if (log_encoded_data) write(1, ima_data, ima_bytes); total_compressed_bytes += ima_bytes; dec_frames = ima_adpcm_decode(ima_dec_state, post_amp, ima_data, ima_bytes); total_post_samples += dec_frames; for (i = 0; i < frames; i++) { history[hist_in++] = pre_amp[i]; if (hist_in >= HIST_LEN) hist_in = 0; pre_energy += (double) pre_amp[i] * (double) pre_amp[i]; } for (i = 0; i < dec_frames; i++) { post_energy += (double) post_amp[i] * (double) post_amp[i]; xx = post_amp[i] - history[hist_out++]; if (hist_out >= HIST_LEN) hist_out = 0; diff_energy += (double) xx * (double) xx; } outframes = sf_writef_short(outhandle, post_amp, dec_frames); } if (sf_close(inhandle) != 0) { fprintf(stderr, " Cannot close audio file '%s'\n", in_file_name); exit(2); } if (sf_close(outhandle) != 0) { fprintf(stderr, " Cannot close audio file '%s'\n", OUT_FILE_NAME); exit(2); } ima_adpcm_release(ima_enc_state); ima_adpcm_release(ima_dec_state); printf("Pre samples: %d\n", total_pre_samples); printf("Compressed bytes: %d\n", total_compressed_bytes); printf("Post samples: %d\n", total_post_samples); printf("Output energy is %f%% of input energy.\n", 100.0*post_energy/pre_energy); printf("Residual energy is %f%% of the total.\n", 100.0*diff_energy/post_energy); if (fabs(1.0 - post_energy/pre_energy) > 0.05 || fabs(diff_energy/post_energy) > 0.03) { printf("Tests failed.\n"); exit(2); } printf("Tests passed.\n"); return 0; } /*- End of function --------------------------------------------------------*/ /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/tests/hdlc_tests.c0000664000175000017500000006111711422612266016251 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * hdlc_tests.c * * Written by Steve Underwood * * Copyright (C) 2003 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License version 2, as * published by the Free Software Foundation. * * 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., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \file */ /*! \page hdlc_tests_page HDLC tests \section hdlc_tests_page_sec_1 What does it do? The HDLC tests exercise the HDLC module, and verifies correct operation using both 16 and 32 bit CRCs. */ #if defined(HAVE_CONFIG_H) #include "config.h" #endif #include #include #include #include #include "spandsp.h" #include "spandsp/private/hdlc.h" int ref_len; uint8_t buf[1000]; int abort_reported; int frame_handled; int frame_failed; int frame_len_errors; int frame_data_errors; int underflow_reported; int framing_ok_reported; int framing_ok_reports; hdlc_rx_state_t rx; hdlc_tx_state_t tx; int frames_sent; int bytes_sent; uint64_t start; uint64_t end; /* Use a local random generator, so the results are consistent across platforms. We have hard coded correct results for a message sequence generated by this particular PRNG. */ static int my_rand(void) { static int rndnum = 1234567; return (rndnum = 1664525U*rndnum + 1013904223U) >> 8; } /*- End of function --------------------------------------------------------*/ static int cook_up_msg(uint8_t *buf) { int i; int len; /* Use medium length messages, with some randomised length variation. */ /* TODO: this doesn't exercise extremely short or long messages. */ len = (my_rand() & 0x3F) + 100; for (i = 0; i < len; i++) buf[i] = my_rand(); return len; } /*- End of function --------------------------------------------------------*/ static void frame_handler(void *user_data, const uint8_t *pkt, int len, int ok) { if (len < 0) { /* Special conditions */ printf("HDLC rx status is %s (%d)\n", signal_status_to_str(len), len); switch (len) { case SIG_STATUS_FRAMING_OK: framing_ok_reported = TRUE; framing_ok_reports++; break; case SIG_STATUS_ABORT: abort_reported = TRUE; break; } return; } if (ok) { if (len != ref_len) { printf("Len error - %d %d\n", len, ref_len); frame_len_errors++; return; } if (memcmp(pkt, buf, len)) { printf("Frame data error\n"); frame_data_errors++; return; } frame_handled = TRUE; } else { frame_failed = TRUE; } } /*- End of function --------------------------------------------------------*/ static void underflow_handler(void *user_data) { //printf("Underflow reported\n"); underflow_reported = TRUE; } /*- End of function --------------------------------------------------------*/ static void check_result(void) { hdlc_rx_stats_t rx_stats; hdlc_rx_get_stats(&rx, &rx_stats); printf("%lu bytes\n", rx_stats.bytes); printf("%lu good frames\n", rx_stats.good_frames); printf("%lu CRC errors\n", rx_stats.crc_errors); printf("%lu length errors\n", rx_stats.length_errors); printf("%lu aborts\n", rx_stats.aborts); printf("%d frame length errors\n", frame_len_errors); printf("%d frame data errors\n", frame_data_errors); printf("Test duration %" PRIu64 " ticks\n", end - start); if (rx_stats.bytes != bytes_sent || rx_stats.good_frames != frames_sent || rx_stats.crc_errors != 0 || rx_stats.length_errors != 0 || rx_stats.aborts != 0 || frame_len_errors != 0 || frame_data_errors != 0) { printf("Tests failed.\n"); exit(2); } printf("Test passed.\n\n"); } /*- End of function --------------------------------------------------------*/ static int test_hdlc_modes(void) { int i; int j; int len; int nextbyte; int progress; int progress_delay; uint8_t bufx[100]; /* Try sending HDLC messages with CRC-16 */ printf("Testing with CRC-16 (byte by byte)\n"); frame_len_errors = 0; frame_data_errors = 0; hdlc_tx_init(&tx, FALSE, 1, FALSE, underflow_handler, NULL); hdlc_rx_init(&rx, FALSE, FALSE, 5, frame_handler, NULL); underflow_reported = FALSE; start = rdtscll(); hdlc_tx_flags(&tx, 40); /* Push an initial message so we should NOT get an underflow after the preamble. */ ref_len = cook_up_msg(buf); hdlc_tx_frame(&tx, buf, ref_len); frame_handled = FALSE; frame_failed = FALSE; frames_sent = 0; bytes_sent = 0; for (i = 0; i < 1000000; i++) { nextbyte = hdlc_tx_get_byte(&tx); hdlc_rx_put_byte(&rx, nextbyte); if (underflow_reported) { underflow_reported = FALSE; nextbyte = hdlc_tx_get_byte(&tx); hdlc_rx_put_byte(&rx, nextbyte); frames_sent++; bytes_sent += ref_len; if (!frame_handled) { printf("Frame not received.\n"); return -1; } ref_len = cook_up_msg(buf); hdlc_tx_frame(&tx, buf, ref_len); frame_handled = FALSE; } } end = rdtscll(); check_result(); /* Now try sending HDLC messages with CRC-16 */ printf("Testing with CRC-16 (chunk by chunk)\n"); frame_len_errors = 0; frame_data_errors = 0; hdlc_tx_init(&tx, FALSE, 1, FALSE, underflow_handler, NULL); hdlc_rx_init(&rx, FALSE, FALSE, 5, frame_handler, NULL); underflow_reported = FALSE; start = rdtscll(); hdlc_tx_flags(&tx, 40); /* Push an initial message so we should NOT get an underflow after the preamble. */ ref_len = cook_up_msg(buf); hdlc_tx_frame(&tx, buf, ref_len); frame_handled = FALSE; frame_failed = FALSE; frames_sent = 0; bytes_sent = 0; for (i = 0; i < 10000; i++) { len = hdlc_tx_get(&tx, bufx, 100); hdlc_rx_put(&rx, bufx, len); if (underflow_reported) { underflow_reported = FALSE; len = hdlc_tx_get(&tx, bufx, 100); hdlc_rx_put(&rx, bufx, len); frames_sent++; bytes_sent += ref_len; if (!frame_handled) { printf("Frame not received.\n"); return -1; } ref_len = cook_up_msg(buf); hdlc_tx_frame(&tx, buf, ref_len); frame_handled = FALSE; } } end = rdtscll(); check_result(); /* Now try sending HDLC messages with CRC-16 bit by bit */ printf("Testing with CRC-16 (bit by bit)\n"); frame_len_errors = 0; frame_data_errors = 0; hdlc_tx_init(&tx, FALSE, 2, FALSE, underflow_handler, NULL); hdlc_rx_init(&rx, FALSE, FALSE, 5, frame_handler, NULL); underflow_reported = FALSE; start = rdtscll(); hdlc_tx_flags(&tx, 40); /* Don't push an initial message so we should get an underflow after the preamble. */ /* Lie for the first message, as there isn't really one */ frame_handled = TRUE; frame_failed = FALSE; frames_sent = 0; bytes_sent = 0; ref_len = 0; for (i = 0; i < 8*1000000; i++) { nextbyte = hdlc_tx_get_bit(&tx); hdlc_rx_put_bit(&rx, nextbyte); if (underflow_reported) { underflow_reported = FALSE; for (j = 0; j < 20; j++) { nextbyte = hdlc_tx_get_bit(&tx); hdlc_rx_put_bit(&rx, nextbyte); } if (ref_len) { frames_sent++; bytes_sent += ref_len; } if (!frame_handled) { printf("Frame not received.\n"); return -1; } ref_len = cook_up_msg(buf); hdlc_tx_frame(&tx, buf, ref_len); frame_handled = FALSE; } } end = rdtscll(); check_result(); /* Now try sending HDLC messages with CRC-32 */ printf("Testing with CRC-32 (byte by byte)\n"); frame_len_errors = 0; frame_data_errors = 0; hdlc_tx_init(&tx, TRUE, 1, FALSE, underflow_handler, NULL); hdlc_rx_init(&rx, TRUE, FALSE, 1, frame_handler, NULL); underflow_reported = FALSE; start = rdtscll(); hdlc_tx_flags(&tx, 40); /* Don't push an initial message so we should get an underflow after the preamble. */ /* Lie for the first message, as there isn't really one */ frame_handled = TRUE; frame_failed = FALSE; frames_sent = 0; bytes_sent = 0; ref_len = 0; for (i = 0; i < 1000000; i++) { nextbyte = hdlc_tx_get_byte(&tx); hdlc_rx_put_byte(&rx, nextbyte); if (underflow_reported) { underflow_reported = FALSE; nextbyte = hdlc_tx_get_byte(&tx); hdlc_rx_put_byte(&rx, nextbyte); if (ref_len) { frames_sent++; bytes_sent += ref_len; } if (!frame_handled) { printf("Frame not received.\n"); return -1; } ref_len = cook_up_msg(buf); hdlc_tx_frame(&tx, buf, ref_len); frame_handled = FALSE; } } end = rdtscll(); check_result(); /* Now try progressive mode with CRC-16 */ printf("Testing progressive mode with CRC-16 (byte by byte)\n"); frame_len_errors = 0; frame_data_errors = 0; hdlc_tx_init(&tx, TRUE, 1, TRUE, underflow_handler, NULL); hdlc_rx_init(&rx, TRUE, FALSE, 1, frame_handler, NULL); underflow_reported = FALSE; start = rdtscll(); hdlc_tx_flags(&tx, 40); /* Don't push an initial message so we should get an underflow after the preamble. */ /* Lie for the first message, as there isn't really one */ frame_handled = TRUE; frame_failed = FALSE; progress = 9999; progress_delay = 9999; frames_sent = 0; bytes_sent = 0; ref_len = 0; for (i = 0; i < 1000000; i++) { nextbyte = hdlc_tx_get_byte(&tx); hdlc_rx_put_byte(&rx, nextbyte); if (underflow_reported) { underflow_reported = FALSE; nextbyte = hdlc_tx_get_byte(&tx); hdlc_rx_put_byte(&rx, nextbyte); if (ref_len) { frames_sent++; bytes_sent += ref_len; } if (!frame_handled) { printf("Frame not received.\n"); return -1; } ref_len = cook_up_msg(buf); hdlc_tx_frame(&tx, buf, 10); progress = 10; progress_delay = 8; frame_handled = FALSE; } if (progress < ref_len && progress_delay-- <= 0) { if (hdlc_tx_frame(&tx, buf + progress, (progress + 10 <= ref_len) ? 10 : ref_len - progress) < 0) { printf("Failed to add progressively\n"); return -1; } progress += 10; progress_delay = 8; } } end = rdtscll(); check_result(); printf("Tests passed.\n"); return 0; } /*- End of function --------------------------------------------------------*/ static int test_hdlc_frame_length_error_handling(void) { int i; int j; int nextbyte; printf("Testing frame length error handling using CRC-16 (bit by bit)\n"); frame_len_errors = 0; frame_data_errors = 0; hdlc_tx_init(&tx, FALSE, 2, FALSE, underflow_handler, NULL); hdlc_rx_init(&rx, FALSE, TRUE, 5, frame_handler, NULL); hdlc_rx_set_max_frame_len(&rx, 100); underflow_reported = FALSE; framing_ok_reported = FALSE; framing_ok_reports = 0; hdlc_tx_flags(&tx, 10); /* Don't push an initial message so we should get an underflow after the preamble. */ /* Lie for the first message, as there isn't really one */ frame_handled = TRUE; frame_failed = FALSE; frames_sent = 0; bytes_sent = 0; ref_len = 0; for (i = 0; i < 8*1000000; i++) { nextbyte = hdlc_tx_get_bit(&tx); hdlc_rx_put_bit(&rx, nextbyte); if (framing_ok_reported) { printf("Framing OK reported at bit %d (%d)\n", i, framing_ok_reports); framing_ok_reported = FALSE; } if (underflow_reported) { underflow_reported = FALSE; for (j = 0; j < 20; j++) { nextbyte = hdlc_tx_get_bit(&tx); hdlc_rx_put_bit(&rx, nextbyte); if (framing_ok_reported) { printf("Framing OK reported at bit %d (%d) - %d\n", i, framing_ok_reports, frame_handled); framing_ok_reported = FALSE; } } if (ref_len) { frames_sent++; bytes_sent += ref_len; } if (!frame_handled) { /* We should get a failure when the length reaches 101 */ if (ref_len == 101) { printf("Tests passed.\n"); return 0; } if (frame_failed) printf("Frame failed.\n"); printf("Frame not received at length %d.\n", ref_len); return -1; } else { /* We should get a failure when the length reaches 101 */ if (ref_len > 100) { printf("Tests failed.\n"); return -1; } } ref_len++; hdlc_tx_frame(&tx, buf, ref_len); frame_handled = FALSE; } } /* We shouldn't reach here */ printf("Tests failed.\n"); return -1; } /*- End of function --------------------------------------------------------*/ static int test_hdlc_crc_error_handling(void) { int i; int j; int nextbyte; int corrupt; printf("Testing CRC error handling using CRC-16 (bit by bit)\n"); frame_len_errors = 0; frame_data_errors = 0; hdlc_tx_init(&tx, FALSE, 2, FALSE, underflow_handler, NULL); hdlc_rx_init(&rx, FALSE, TRUE, 5, frame_handler, NULL); underflow_reported = FALSE; framing_ok_reported = FALSE; framing_ok_reports = 0; hdlc_tx_flags(&tx, 10); /* Don't push an initial message so we should get an underflow after the preamble. */ /* Lie for the first message, as there isn't really one */ frame_handled = TRUE; frame_failed = FALSE; frames_sent = 0; bytes_sent = 0; ref_len = 100; corrupt = FALSE; for (i = 0; i < 8*1000000; i++) { nextbyte = hdlc_tx_get_bit(&tx); hdlc_rx_put_bit(&rx, nextbyte); if (framing_ok_reported) { printf("Framing OK reported at bit %d (%d)\n", i, framing_ok_reports); framing_ok_reported = FALSE; } if (underflow_reported) { underflow_reported = FALSE; for (j = 0; j < 20; j++) { nextbyte = hdlc_tx_get_bit(&tx); hdlc_rx_put_bit(&rx, nextbyte); if (framing_ok_reported) { printf("Framing OK reported at bit %d (%d) - %d\n", i, framing_ok_reports, frame_handled); framing_ok_reported = FALSE; } } if (ref_len) { frames_sent++; bytes_sent += ref_len; } if (!frame_handled) { if (!corrupt) { printf("Frame not received when it should be correct.\n"); return -1; } } else { if (corrupt) { printf("Frame received when it should be corrupt.\n"); return -1; } } ref_len = cook_up_msg(buf); hdlc_tx_frame(&tx, buf, ref_len); if ((corrupt = rand() & 1)) hdlc_tx_corrupt_frame(&tx); frame_handled = FALSE; } } printf("Tests passed.\n"); return 0; } /*- End of function --------------------------------------------------------*/ static int test_hdlc_abort_handling(void) { int i; int j; int nextbyte; int abort; printf("Testing abort handling using CRC-16 (bit by bit)\n"); frame_len_errors = 0; frame_data_errors = 0; hdlc_tx_init(&tx, FALSE, 2, FALSE, underflow_handler, NULL); hdlc_rx_init(&rx, FALSE, TRUE, 0, frame_handler, NULL); underflow_reported = FALSE; framing_ok_reported = FALSE; framing_ok_reports = 0; hdlc_tx_flags(&tx, 10); /* Don't push an initial message so we should get an underflow after the preamble. */ /* Lie for the first message, as there isn't really one */ frame_handled = TRUE; frame_failed = FALSE; frames_sent = 0; bytes_sent = 0; ref_len = 0; abort = FALSE; abort_reported = FALSE; for (i = 0; i < 8*1000000; i++) { nextbyte = hdlc_tx_get_bit(&tx); hdlc_rx_put_bit(&rx, nextbyte); if (framing_ok_reported) { printf("Framing OK reported at bit %d (%d)\n", i, framing_ok_reports); framing_ok_reported = FALSE; } if (underflow_reported) { underflow_reported = FALSE; for (j = 0; j < 20; j++) { nextbyte = hdlc_tx_get_bit(&tx); hdlc_rx_put_bit(&rx, nextbyte); if (framing_ok_reported) { printf("Framing OK reported at bit %d (%d) - %d\n", i, framing_ok_reports, frame_handled); framing_ok_reported = FALSE; } } if (ref_len) { frames_sent++; bytes_sent += ref_len; } if (abort) { if (abort && !abort_reported) { printf("Abort not received when sent\n"); return -1; } if (frame_handled) { if (frame_failed) printf("Frame failed.\n"); printf("Frame received when abort sent.\n"); return -1; } } else { if (abort_reported) { printf("Abort received when not sent\n"); return -1; } if (!frame_handled) { if (frame_failed) printf("Frame failed.\n"); printf("Frame not received.\n"); return -1; } } ref_len = cook_up_msg(buf); hdlc_tx_frame(&tx, buf, ref_len); if ((abort = rand() & 1)) hdlc_tx_abort(&tx); frame_handled = FALSE; abort_reported = FALSE; } } printf("Tests passed.\n"); return 0; } /*- End of function --------------------------------------------------------*/ #if 0 static int test_hdlc_octet_count_handling(void) { int i; int j; int nextbyte; printf("Testing the octet_counting handling using CRC-16 (bit by bit)\n"); frame_len_errors = 0; frame_data_errors = 0; hdlc_tx_init(&tx, FALSE, 2, FALSE, underflow_handler, NULL); hdlc_rx_init(&rx, FALSE, TRUE, 0, frame_handler, NULL); //hdlc_rx_set_max_frame_len(&rx, 50); hdlc_rx_set_octet_counting_report_interval(&rx, 16); underflow_reported = FALSE; framing_ok_reported = FALSE; framing_ok_reports = 0; hdlc_tx_flags(&tx, 10); /* Don't push an initial message so we should get an underflow after the preamble. */ /* Lie for the first message, as there isn't really one */ frame_handled = TRUE; frame_failed = FALSE; frames_sent = 0; bytes_sent = 0; ref_len = 0; for (i = 0; i < 8*1000000; i++) { nextbyte = hdlc_tx_get_bit(&tx); hdlc_rx_put_bit(&rx, nextbyte); if (framing_ok_reported) { printf("Framing OK reported at bit %d (%d)\n", i, framing_ok_reports); framing_ok_reported = FALSE; } if (underflow_reported) { underflow_reported = FALSE; for (j = 0; j < 20; j++) { nextbyte = hdlc_tx_get_bit(&tx); hdlc_rx_put_bit(&rx, nextbyte); if (framing_ok_reported) { printf("Framing OK reported at bit %d (%d) - %d\n", i, framing_ok_reports, frame_handled); framing_ok_reported = FALSE; } } if (ref_len) { frames_sent++; bytes_sent += ref_len; } if (!frame_handled) { if (frame_failed) printf("Frame failed.\n"); printf("Frame not received.\n"); return -1; } ref_len = cook_up_msg(buf); hdlc_tx_frame(&tx, buf, ref_len); hdlc_tx_abort(&tx); //hdlc_tx_corrupt_frame(&tx); frame_handled = FALSE; } } printf("Tests passed.\n"); return 0; } /*- End of function --------------------------------------------------------*/ #endif static void hdlc_tests(void) { printf("HDLC module tests\n"); if (test_hdlc_modes()) { printf("Tests failed\n"); exit(2); } if (test_hdlc_frame_length_error_handling()) { printf("Tests failed\n"); exit(2); } if (test_hdlc_crc_error_handling()) { printf("Tests failed\n"); exit(2); } if (test_hdlc_abort_handling()) { printf("Tests failed\n"); exit(2); } #if 0 if (test_hdlc_octet_count_handling()) { printf("Tests failed\n"); exit(2); } #endif printf("Tests passed.\n"); } /*- End of function --------------------------------------------------------*/ static void decode_handler(void *user_data, const uint8_t *pkt, int len, int ok) { int i; if (len < 0) { /* Special conditions */ printf("HDLC rx status is %s (%d)\n", signal_status_to_str(len), len); return; } if (ok) { printf("Good frame, len = %d\n", len); printf("HDLC: "); for (i = 0; i < len; i++) printf("%02X ", pkt[i]); printf("\n"); } else { printf("Bad frame, len = %d\n", len); } } /*- End of function --------------------------------------------------------*/ static void decode_bitstream(const char *in_file_name) { char buf[1024]; int bit; int num; hdlc_rx_state_t rx; FILE *in; if ((in = fopen(in_file_name, "r")) == NULL) { fprintf(stderr, "Failed to open '%s'\n", in_file_name); exit(2); } hdlc_rx_init(&rx, FALSE, TRUE, 2, decode_handler, NULL); while (fgets(buf, 1024, in)) { if (sscanf(buf, "Rx bit %d - %d", &num, &bit) == 2) { //printf("Rx bit %d - %d\n", num, bit); //printf("Rx bit %d\n", bit); hdlc_rx_put_bit(&rx, bit); } } fclose(in); } /*- End of function --------------------------------------------------------*/ int main(int argc, char *argv[]) { int opt; const char *in_file_name; in_file_name = NULL; while ((opt = getopt(argc, argv, "d:")) != -1) { switch (opt) { case 'd': in_file_name = optarg; break; default: //usage(); exit(2); break; } } if (in_file_name) decode_bitstream(in_file_name); else hdlc_tests(); return 0; } /*- End of function --------------------------------------------------------*/ /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/tests/saturated_tests.c0000664000175000017500000002024611422612267017332 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * saturated_tests.c * * Written by Steve Underwood * * Copyright (C) 2004 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License version 2, as * published by the Free Software Foundation. * * 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., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \page saturated_tests_page Saturated arithmetic function tests \section saturated_tests_page_sec_1 What does it do? ???. \section saturated_tests_page_sec_2 How does it work? ???. */ #if defined(HAVE_CONFIG_H) #include "config.h" #endif #include #include #include #define SPANDSP_EXPOSE_INTERNAL_STRUCTURES #include "spandsp.h" int main(int argc, char *argv[]) { printf("Testing 16 bit saturation\n"); if (saturate16(10000) != 10000 || saturate16(-10000) != -10000 || saturate16(32767) != 32767 || saturate16(-32768) != -32768 || saturate16(32768) != 32767 || saturate16(-32769) != -32768) { printf("Test failed.\n"); exit(2); } printf("Testing 15 bit saturation\n"); if (saturate15(10000) != 10000 || saturate15(-10000) != -10000 || saturate15(16383) != 16383 || saturate15(-16384) != -16384 || saturate15(16384) != 16383 || saturate15(-16385) != -16384) { printf("Test failed.\n"); exit(2); } printf("Testing 16 bit unsigned saturation\n"); if (saturateu16(10000) != 10000 || saturateu16(32767) != 32767 || saturateu16(65535) != 65535 || saturateu16(65536) != 65535) { printf("Test failed.\n"); exit(2); } printf("Testing 8 bit unsigned saturation\n"); if (saturateu8(100) != 100 || saturateu8(127) != 127 || saturateu8(255) != 255 || saturateu8(256) != 255) { printf("Test failed.\n"); exit(2); } printf("Testing 16 bit saturation from float\n"); if (fsaturatef(10000.0f) != 10000 || fsaturatef(-10000.0f) != -10000 || fsaturatef(32767.0f) != 32767 || fsaturatef(-32768.0f) != -32768 || fsaturatef(32768.0f) != 32767 || fsaturatef(-32769.0f) != -32768) { printf("Test failed.\n"); exit(2); } printf("Testing 16 bit saturation from double\n"); if (fsaturate(10000.0) != 10000 || fsaturate(-10000.0) != -10000 || fsaturate(32767.0) != 32767 || fsaturate(-32768.0) != -32768 || fsaturate(32768.0) != 32767 || fsaturate(-32769.0) != -32768) { printf("Test failed.\n"); exit(2); } printf("Testing 16 bit fast saturation from float\n"); if (ffastsaturatef(10000.0f) != 10000 || ffastsaturatef(-10000.0f) != -10000 || ffastsaturatef(32767.0f) != 32767 || ffastsaturatef(-32768.0f) != -32768 || ffastsaturatef(32768.0f) != 32767 || ffastsaturatef(-32769.0f) != -32768) { printf("Test failed.\n"); exit(2); } printf("Testing 16 bit fast saturation from double\n"); if (ffastsaturate(10000.0) != 10000 || ffastsaturate(-10000.0) != -10000 || ffastsaturate(32767.0) != 32767 || ffastsaturate(-32768.0) != -32768 || ffastsaturate(32768.0) != 32767 || ffastsaturate(-32769.0) != -32768) { printf("Test failed.\n"); exit(2); } printf("Testing 16 bit float saturation from float\n"); if (ffsaturatef(10000.0f) != 10000.0f || ffsaturatef(-10000.0f) != -10000.0f || ffsaturatef(32767.0f) != 32767.0f || ffsaturatef(-32768.0f) != -32768.0f || ffsaturatef(32768.0f) != 32767.0f || ffsaturatef(-32769.0f) != -32768.0f) { printf("Test failed.\n"); exit(2); } printf("Testing 16 bit double saturation from double\n"); if (ffsaturate(10000.0) != 10000.0 || ffsaturate(-10000.0) != -10000.0 || ffsaturate(32767.0) != 32767.0 || ffsaturate(-32768.0) != -32768.0 || ffsaturate(32768.0) != 32767.0 || ffsaturate(-32769.0) != -32768.0) { printf("Test failed.\n"); exit(2); } printf("Testing 16 bit add\n"); if (saturated_add16(10000, 10000) != 20000 || saturated_add16(10000, -10000) != 0 || saturated_add16(-10000, 10000) != 0 || saturated_add16(-10000, -10000) != -20000 || saturated_add16(-30000, -30000) != INT16_MIN || saturated_add16(30000, 30000) != INT16_MAX) { printf("Test failed.\n"); exit(2); } printf("Testing 32 bit add\n"); if (saturated_add32(10000, 10000) != 20000 || saturated_add32(10000, -10000) != 0 || saturated_add32(-10000, 10000) != 0 || saturated_add32(-10000, -10000) != -20000 || saturated_add32(-2000000000, -2000000000) != INT32_MIN || saturated_add32(2000000000, 2000000000) != INT32_MAX) { printf("Test failed.\n"); exit(2); } printf("Testing 16 bit subtract\n"); if (saturated_sub16(10000, 10000) != 0 || saturated_sub16(10000, -10000) != 20000 || saturated_sub16(-10000, 10000) != -20000 || saturated_sub16(-10000, -10000) != 0 || saturated_sub16(-30000, 30000) != INT16_MIN || saturated_sub16(30000, -30000) != INT16_MAX) { printf("Test failed.\n"); exit(2); } printf("Testing 32 bit subtract\n"); if (saturated_sub32(10000, 10000) != 0 || saturated_sub32(10000, -10000) != 20000 || saturated_sub32(-10000, 10000) != -20000 || saturated_sub32(-10000, -10000) != 0 || saturated_sub32(-2000000000, 2000000000) != INT32_MIN || saturated_sub32(2000000000, -2000000000) != INT32_MAX) { printf("Test failed.\n"); exit(2); } printf("Testing 16 x 16 => 16 bit multiply\n"); if (saturated_mul16(100, 100) != 0 || saturated_mul16(255, 255) != 1 || saturated_mul16(32767, -32768) != -32767 || saturated_mul16(-32768, 32767) != -32767 || saturated_mul16(32767, 32767) != 32766 || saturated_mul16(-32768, -32768) != 32767) { printf("Test failed.\n"); exit(2); } printf("Testing 16 x 16 => 32 bit multiply\n"); if (saturated_mul16_32(100, 100) != 20000 || saturated_mul16_32(-100, 100) != -20000 || saturated_mul16_32(32767, -32768) != -2147418112 || saturated_mul16_32(-32768, 32767) != -2147418112 || saturated_mul16_32(32767, 32767) != 2147352578 || saturated_mul16_32(-32768, -32768) != -2147483648) { printf("Test failed.\n"); exit(2); } printf("Testing 16 bit absolute\n"); if (saturated_abs16(10000) != 10000 || saturated_abs16(-10000) != 10000 || saturated_abs16(32767) != 32767 || saturated_abs16(-32768) != 32767) { printf("Test failed.\n"); exit(2); } printf("Tests passed.\n"); return 0; } /*- End of function --------------------------------------------------------*/ /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/tests/v42bis_tests.c0000664000175000017500000001213711422612267016447 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * v42bis_tests.c * * Written by Steve Underwood * * Copyright (C) 2005 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License version 2, as * published by the Free Software Foundation. * * 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., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* THIS IS A WORK IN PROGRESS. IT IS NOT FINISHED. */ /*! \page v42bis_tests_page V.42bis tests \section v42bis_tests_page_sec_1 What does it do? These tests compress the contents of a file specified on the command line, writing the compressed data to v42bis_tests.v42bis. They then read back the contents of the compressed file, decompress, and write the results to v42bis_tests.out. The contents of this file should exactly match the original file. */ #if defined(HAVE_CONFIG_H) #include #endif #include #include #include #include #include #include #include #include #include "spandsp.h" #include "spandsp/private/v42bis.h" #define COMPRESSED_FILE_NAME "v42bis_tests.v42bis" #define OUTPUT_FILE_NAME "v42bis_tests.out" int in_octets_to_date = 0; int out_octets_to_date = 0; static void frame_handler(void *user_data, const uint8_t *buf, int len) { int ret; if ((ret = write((intptr_t) user_data, buf, len)) != len) fprintf(stderr, "Write error %d/%d\n", ret, errno); out_octets_to_date += len; } static void data_handler(void *user_data, const uint8_t *buf, int len) { int ret; if ((ret = write((intptr_t) user_data, buf, len)) != len) fprintf(stderr, "Write error %d/%d\n", ret, errno); out_octets_to_date += len; } int main(int argc, char *argv[]) { int len; v42bis_state_t state_a; v42bis_state_t state_b; uint8_t buf[1024]; int in_fd; int v42bis_fd; int out_fd; int do_compression; int do_decompression; time_t now; do_compression = TRUE; do_decompression = TRUE; if (argc < 2) { fprintf(stderr, "Usage: %s \n", argv[0]); exit(2); } if (do_compression) { if ((in_fd = open(argv[1], O_RDONLY)) < 0) { fprintf(stderr, "Error opening file '%s'.\n", argv[1]); exit(2); } if ((v42bis_fd = open(COMPRESSED_FILE_NAME, O_WRONLY | O_CREAT | O_TRUNC, 0666)) < 0) { fprintf(stderr, "Error opening file '%s'.\n", COMPRESSED_FILE_NAME); exit(2); } time(&now); v42bis_init(&state_a, 3, 512, 6, frame_handler, (void *) (intptr_t) v42bis_fd, 512, data_handler, NULL, 512); v42bis_compression_control(&state_a, V42BIS_COMPRESSION_MODE_ALWAYS); in_octets_to_date = 0; out_octets_to_date = 0; while ((len = read(in_fd, buf, 1024)) > 0) { if (v42bis_compress(&state_a, buf, len)) { fprintf(stderr, "Bad return code from compression\n"); exit(2); } in_octets_to_date += len; } v42bis_compress_flush(&state_a); printf("%d bytes compressed to %d bytes in %lds\n", in_octets_to_date, out_octets_to_date, time(NULL) - now); close(in_fd); close(v42bis_fd); } if (do_decompression) { /* Now open the files for the decompression. */ if ((v42bis_fd = open(COMPRESSED_FILE_NAME, O_RDONLY)) < 0) { fprintf(stderr, "Error opening file '%s'.\n", COMPRESSED_FILE_NAME); exit(2); } if ((out_fd = open(OUTPUT_FILE_NAME, O_WRONLY | O_CREAT | O_TRUNC, 0666)) < 0) { fprintf(stderr, "Error opening file '%s'.\n", OUTPUT_FILE_NAME); exit(2); } time(&now); v42bis_init(&state_b, 3, 512, 6, frame_handler, (void *) (intptr_t) v42bis_fd, 512, data_handler, (void *) (intptr_t) out_fd, 512); in_octets_to_date = 0; out_octets_to_date = 0; while ((len = read(v42bis_fd, buf, 1024)) > 0) { if (v42bis_decompress(&state_b, buf, len)) { fprintf(stderr, "Bad return code from decompression\n"); exit(2); } in_octets_to_date += len; } v42bis_decompress_flush(&state_b); printf("%d bytes decompressed to %d bytes in %lds\n", in_octets_to_date, out_octets_to_date, time(NULL) - now); close(v42bis_fd); close(out_fd); } return 0; } /*- End of function --------------------------------------------------------*/ /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/tests/g722_tests.c0000664000175000017500000004543411422612266016024 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * g722_tests.c - Test G.722 encode and decode. * * Written by Steve Underwood * * Copyright (C) 2005 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License version 2, as * published by the Free Software Foundation. * * 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., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \file */ /*! \page g722_tests_page G.722 tests \section g722_tests_page_sec_1 What does it do? This modules implements two sets of tests: - The tests defined in the G.722 specification, using the test data files supplied with the specification. - A generally audio quality test, consisting of compressing and decompressing a speeech file for audible comparison. The speech file should be recorded at 16 bits/sample, 16000 samples/second, and named "pre_g722.wav". The ITU tests use the codec in a special mode, in which the QMFs, which split and recombine the sub-bands, are disabled. This means they do not test 100% of the codec. This is the reason for including the additional listening test. \section g722_tests_page_sec_2 How is it used? To perform the tests in the G.722 specification you need to obtain the test data files from the specification. These are copyright material, and so cannot be distributed with this test software. The files, containing test vectors, which are supplied with the G.722 specification, should be copied to itutests/g722. The ITU tests can then be run by executing g722_tests without any parameters. To perform a general audio quality test, g722_tests should be run with a parameter specifying the required bit rate for compression. The valid parameters are "-48", "-56", and "-64". The file ../test-data/local/short_wb_voice.wav will be compressed to the specified bit rate, decompressed, and the resulting audio stored in post_g722.wav. */ /* Enable the following definition to enable direct probing into the FAX structures */ //#define WITH_SPANDSP_INTERNALS #if defined(HAVE_CONFIG_H) #include #endif #include #include #include #include #include #include #include #include "spandsp.h" #if 1 //defined(WITH_SPANDSP_INTERNALS) #include "spandsp/private/g722.h" #endif #define G722_SAMPLE_RATE 16000 #define BLOCK_LEN 320 #define MAX_TEST_VECTOR_LEN 40000 #define TESTDATA_DIR "../test-data/itu/g722/" #define EIGHTK_IN_FILE_NAME "../test-data/local/short_nb_voice.wav" #define IN_FILE_NAME "../test-data/local/short_wb_voice.wav" #define ENCODED_FILE_NAME "g722.g722" #define OUT_FILE_NAME "post_g722.wav" #if 0 static const char *itu_test_files[] = { TESTDATA_DIR "T1C1.XMT", /* 69973 bytes */ TESTDATA_DIR "T1C2.XMT", /* 3605 bytes */ TESTDATA_DIR "T1D3.COD", /* 69973 bytes */ TESTDATA_DIR "T2R1.COD", /* 69973 bytes */ TESTDATA_DIR "T2R2.COD", /* 3605 bytes */ TESTDATA_DIR "T3L1.RC1", /* 69973 bytes */ TESTDATA_DIR "T3L1.RC2", /* 69973 bytes */ TESTDATA_DIR "T3L1.RC3", /* 69973 bytes */ TESTDATA_DIR "T3H1.RC0", /* 69973 bytes */ TESTDATA_DIR "T3L2.RC1", /* 3605 bytes */ TESTDATA_DIR "T3L2.RC2", /* 3605 bytes */ TESTDATA_DIR "T3L2.RC3", /* 3605 bytes */ TESTDATA_DIR "T3H2.RC0", /* 3605 bytes */ TESTDATA_DIR "T3L3.RC1", /* 69973 bytes */ TESTDATA_DIR "T3L3.RC2", /* 69973 bytes */ TESTDATA_DIR "T3L3.RC3", /* 69973 bytes */ TESTDATA_DIR "T3H3.RC0" /* 69973 bytes */ }; #endif static const char *encode_test_files[] = { TESTDATA_DIR "T1C1.XMT", TESTDATA_DIR "T2R1.COD", TESTDATA_DIR "T1C2.XMT", TESTDATA_DIR "T2R2.COD", NULL }; static const char *decode_test_files[] = { TESTDATA_DIR "T2R1.COD", TESTDATA_DIR "T3L1.RC1", TESTDATA_DIR "T3L1.RC2", TESTDATA_DIR "T3L1.RC3", TESTDATA_DIR "T3H1.RC0", TESTDATA_DIR "T2R2.COD", TESTDATA_DIR "T3L2.RC1", TESTDATA_DIR "T3L2.RC2", TESTDATA_DIR "T3L2.RC3", TESTDATA_DIR "T3H2.RC0", TESTDATA_DIR "T1D3.COD", TESTDATA_DIR "T3L3.RC1", TESTDATA_DIR "T3L3.RC2", TESTDATA_DIR "T3L3.RC3", TESTDATA_DIR "T3H3.RC0", NULL }; int16_t itu_data[MAX_TEST_VECTOR_LEN]; uint16_t itu_ref[MAX_TEST_VECTOR_LEN]; uint16_t itu_ref_upper[MAX_TEST_VECTOR_LEN]; uint8_t compressed[MAX_TEST_VECTOR_LEN]; int16_t decompressed[MAX_TEST_VECTOR_LEN]; static int hex_get(char *s) { int i; int value; int x; for (value = i = 0; i < 4; i++) { x = *s++ - 0x30; if (x > 9) x -= 0x07; if (x > 15) x -= 0x20; if (x < 0 || x > 15) return -1; value <<= 4; value |= x; } return value; } /*- End of function --------------------------------------------------------*/ static int get_vector(FILE *file, uint16_t vec[]) { char buf[132 + 1]; char *s; int i; int value; while (fgets(buf, 133, file)) { if (buf[0] == '/' && buf[1] == '*') continue; s = buf; i = 0; while ((value = hex_get(s)) >= 0) { vec[i++] = value; s += 4; } return i; } return 0; } /*- End of function --------------------------------------------------------*/ static int get_test_vector(const char *file, uint16_t buf[], int max_len) { int octets; int i; FILE *infile; if ((infile = fopen(file, "r")) == NULL) { fprintf(stderr, " Failed to open '%s'\n", file); exit(2); } octets = 0; while ((i = get_vector(infile, buf + octets)) > 0) octets += i; fclose(infile); return octets; } /*- End of function --------------------------------------------------------*/ static void itu_compliance_tests(void) { g722_encode_state_t enc_state; g722_decode_state_t dec_state; int i; int j; int k; int len_comp; int len_comp_upper; int len_data; int len; int len2; int mode; int file; #if 1 /* ITU G.722 encode tests, using configuration 1. The QMF is bypassed */ for (file = 0; encode_test_files[file]; file += 2) { printf("Testing %s -> %s\n", encode_test_files[file], encode_test_files[file + 1]); /* Get the input data */ len_data = get_test_vector(encode_test_files[file], (uint16_t *) itu_data, MAX_TEST_VECTOR_LEN); /* Get the reference output data */ len_comp = get_test_vector(encode_test_files[file + 1], itu_ref, MAX_TEST_VECTOR_LEN); /* Process the input data */ /* Skip the reset stuff at each end of the data */ for (i = 0; i < len_data; i++) { if ((itu_data[i] & 1) == 0) break; } for (j = i; j < len_data; j++) { if ((itu_data[j] & 1)) break; } len = j - i; g722_encode_init(&enc_state, 64000, 0); enc_state.itu_test_mode = TRUE; len2 = g722_encode(&enc_state, compressed, itu_data + i, len); /* Check the result against the ITU's reference output data */ j = 0; for (k = 0; k < len2; k++) { if ((compressed[k] & 0xFF) != ((itu_ref[k + i] >> 8) & 0xFF)) { printf(">>> %6d %4x %4x\n", k, compressed[k] & 0xFF, itu_ref[k + i] & 0xFFFF); j++; } } printf("%d bad samples, out of %d/%d samples\n", j, len, len_data); if (j) { printf("Test failed\n"); exit(2); } printf("Test passed\n"); } #endif #if 1 /* ITU G.722 decode tests, using configuration 2. The QMF is bypassed */ /* Run each of the tests for each of the modes - 48kbps, 56kbps and 64kbps. */ for (mode = 1; mode <= 3; mode++) { for (file = 0; decode_test_files[file]; file += 5) { printf("Testing mode %d, %s -> %s + %s\n", mode, decode_test_files[file], decode_test_files[file + mode], decode_test_files[file + 4]); /* Get the input data */ len_data = get_test_vector(decode_test_files[file], (uint16_t *) itu_data, MAX_TEST_VECTOR_LEN); /* Get the lower reference output data */ len_comp = get_test_vector(decode_test_files[file + mode], itu_ref, MAX_TEST_VECTOR_LEN); /* Get the upper reference output data */ len_comp_upper = get_test_vector(decode_test_files[file + 4], itu_ref_upper, MAX_TEST_VECTOR_LEN); /* Process the input data */ /* Skip the reset stuff at each end of the data */ for (i = 0; i < len_data; i++) { if ((itu_data[i] & 1) == 0) break; } for (j = i; j < len_data; j++) { if ((itu_data[j] & 1)) break; } len = j - i; for (k = 0; k < len; k++) compressed[k] = itu_data[k + i] >> ((mode == 3) ? 10 : (mode == 2) ? 9 : 8); g722_decode_init(&dec_state, (mode == 3) ? 48000 : (mode == 2) ? 56000 : 64000, 0); dec_state.itu_test_mode = TRUE; len2 = g722_decode(&dec_state, decompressed, compressed, len); /* Check the result against the ITU's reference output data */ j = 0; for (k = 0; k < len2; k += 2) { if ((decompressed[k] & 0xFFFF) != (itu_ref[(k >> 1) + i] & 0xFFFF) || (decompressed[k + 1] & 0xFFFF) != (itu_ref_upper[(k >> 1) + i] & 0xFFFF)) { printf(">>> %6d %4x %4x %4x %4x\n", k >> 1, decompressed[k] & 0xFFFF, decompressed[k + 1] & 0xFFFF, itu_ref[(k >> 1) + i] & 0xFFFF, itu_ref_upper[(k >> 1) + i] & 0xFFFF); j++; } } printf("%d bad samples, out of %d/%d samples\n", j, len, len_data); if (j) { printf("Test failed\n"); exit(2); } printf("Test passed\n"); } } #endif printf("Tests passed.\n"); } /*- End of function --------------------------------------------------------*/ int main(int argc, char *argv[]) { g722_encode_state_t enc_state; g722_decode_state_t dec_state; int len2; int len3; int i; int file; SNDFILE *inhandle; SNDFILE *outhandle; SF_INFO info; int outframes; int samples; int opt; int itutests; int bit_rate; int eight_k_in; int eight_k_out; int encode; int decode; int tone_test; const char *in_file; const char *out_file; int16_t indata[BLOCK_LEN]; int16_t outdata[BLOCK_LEN]; uint8_t adpcmdata[BLOCK_LEN]; float tone_level; uint32_t tone_phase; int32_t tone_phase_rate; bit_rate = 64000; eight_k_in = FALSE; eight_k_out = FALSE; itutests = TRUE; encode = FALSE; decode = FALSE; tone_test = FALSE; in_file = NULL; out_file = NULL; while ((opt = getopt(argc, argv, "b:d:e:i:l:o:t")) != -1) { switch (opt) { case 'b': bit_rate = atoi(optarg); if (bit_rate != 48000 && bit_rate != 56000 && bit_rate != 64000) { fprintf(stderr, "Invalid bit rate selected. Only 48000, 56000 and 64000 are valid.\n"); exit(2); } itutests = FALSE; break; case 'd': in_file = optarg; decode = TRUE; itutests = FALSE; break; case 'e': in_file = optarg; encode = TRUE; itutests = FALSE; break; case 'i': i = atoi(optarg); if (i != 8000 && i != 16000) { fprintf(stderr, "Invalid incoming sample rate. Only 8000 and 16000 are valid.\n"); exit(2); } eight_k_in = (i == 8000); if (eight_k_in) in_file = EIGHTK_IN_FILE_NAME; break; case 'l': out_file = optarg; break; case 'o': i = atoi(optarg); if (i != 8000 && i != 16000) { fprintf(stderr, "Invalid outgoing sample rate. Only 8000 and 16000 are valid.\n"); exit(2); } eight_k_out = (i == 8000); break; case 't': tone_test = TRUE; itutests = FALSE; break; default: //usage(); exit(2); } } if (itutests) { itu_compliance_tests(); } else { tone_level = dds_scaling_dbm0f(2.5f); tone_phase = 0; tone_phase_rate = dds_phase_ratef(1500.0f/2.0f); if (!decode && !encode) { decode = encode = TRUE; } if (in_file == NULL) { if (encode) { if (eight_k_in) in_file = EIGHTK_IN_FILE_NAME; else in_file = IN_FILE_NAME; } else { in_file = ENCODED_FILE_NAME; } } if (out_file == NULL) { out_file = (decode) ? OUT_FILE_NAME : ENCODED_FILE_NAME; } inhandle = NULL; outhandle = NULL; file = -1; if (encode) { if (eight_k_in) { if ((inhandle = sf_open(in_file, SFM_READ, &info)) == NULL) { fprintf(stderr, " Cannot open audio file '%s'\n", in_file); exit(2); } if (info.samplerate != SAMPLE_RATE) { fprintf(stderr, " Unexpected sample rate %d in audio file '%s'\n", info.samplerate, in_file); exit(2); } if (info.channels != 1) { fprintf(stderr, " Unexpected number of channels in audio file '%s'\n", in_file); exit(2); } } else { if ((inhandle = sf_open(in_file, SFM_READ, &info)) == NULL) { fprintf(stderr, " Cannot open audio file '%s'\n", in_file); exit(2); } if (info.samplerate != G722_SAMPLE_RATE) { fprintf(stderr, " Unexpected sample rate %d in audio file '%s'\n", info.samplerate, in_file); exit(2); } if (info.channels != 1) { fprintf(stderr, " Unexpected number of channels in audio file '%s'\n", in_file); exit(2); } } if (eight_k_in) g722_encode_init(&enc_state, bit_rate, G722_PACKED | G722_SAMPLE_RATE_8000); else g722_encode_init(&enc_state, bit_rate, G722_PACKED); } else { if ((file = open(in_file, O_RDONLY)) < 0) { fprintf(stderr, " Failed to open '%s'\n", in_file); exit(2); } } if (decode) { memset(&info, 0, sizeof(info)); info.frames = 0; info.samplerate = (eight_k_out) ? SAMPLE_RATE : G722_SAMPLE_RATE; info.channels = 1; info.format = SF_FORMAT_WAV | SF_FORMAT_PCM_16; info.sections = 1; info.seekable = 1; if ((outhandle = sf_open(out_file, SFM_WRITE, &info)) == NULL) { fprintf(stderr, " Cannot create audio file '%s'\n", out_file); exit(2); } if (eight_k_out) g722_decode_init(&dec_state, bit_rate, G722_PACKED | G722_SAMPLE_RATE_8000); else g722_decode_init(&dec_state, bit_rate, G722_PACKED); } else { if ((file = open(out_file, O_WRONLY | O_CREAT | O_TRUNC, 0666)) < 0) { fprintf(stderr, " Failed to open '%s'\n", out_file); exit(2); } } for (;;) { if (encode) { samples = sf_readf_short(inhandle, indata, BLOCK_LEN); if (samples <= 0) break; if (tone_test) { for (i = 0; i < samples; i++) indata[i] = dds_modf(&tone_phase, tone_phase_rate, tone_level, 0); } len2 = g722_encode(&enc_state, adpcmdata, indata, samples); } else { len2 = read(file, adpcmdata, BLOCK_LEN); if (len2 <= 0) break; } if (decode) { len3 = g722_decode(&dec_state, outdata, adpcmdata, len2); outframes = sf_writef_short(outhandle, outdata, len3); if (outframes != len3) { fprintf(stderr, " Error writing audio file\n"); exit(2); } } else { len3 = write(file, adpcmdata, len2); if (len3 <= 0) break; } } if (encode) { if (sf_close(inhandle)) { fprintf(stderr, " Cannot close audio file '%s'\n", IN_FILE_NAME); exit(2); } } else { close(file); } if (decode) { if (sf_close(outhandle)) { fprintf(stderr, " Cannot close audio file '%s'\n", OUT_FILE_NAME); exit(2); } } else { close(file); } printf("'%s' translated to '%s' at %dbps.\n", in_file, out_file, bit_rate); } return 0; } /*- End of function --------------------------------------------------------*/ /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/tests/v27ter_tests.c0000664000175000017500000004346511430006315016465 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * v27ter_tests.c * * Written by Steve Underwood * * Copyright (C) 2003 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License version 2, as * published by the Free Software Foundation. * * 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., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \page v27ter_tests_page V.27ter modem tests \section v27ter_tests_page_sec_1 What does it do? These tests test one way paths, as V.27ter is a half-duplex modem. They allow either: - A V.27ter transmit modem to feed a V.27ter receive modem through a telephone line model. BER testing is then used to evaluate performance under various line conditions. This is effective for testing the basic performance of the receive modem. It is also the only test mode provided for evaluating the transmit modem. - A V.27ter receive modem is used to decode V.27ter audio, stored in an audio file. This is good way to evaluate performance with audio recorded from other models of modem, and with real world problematic telephone lines. If the appropriate GUI environment exists, the tests are built such that a visual display of modem status is maintained. \section v27ter_tests_page_sec_2 How is it used? */ /* Enable the following definition to enable direct probing into the FAX structures */ #define WITH_SPANDSP_INTERNALS #if defined(HAVE_CONFIG_H) #include "config.h" #endif #if defined(HAVE_FL_FL_H) && defined(HAVE_FL_FL_CARTESIAN_H) && defined(HAVE_FL_FL_AUDIO_METER_H) #define ENABLE_GUI #endif #include #include #include #include #include #include #include #if defined(HAVE_FENV_H) #define __USE_GNU #include #endif //#if defined(WITH_SPANDSP_INTERNALS) #define SPANDSP_EXPOSE_INTERNAL_STRUCTURES //#endif #include "spandsp.h" #include "spandsp-sim.h" #if defined(ENABLE_GUI) #include "modem_monitor.h" #include "line_model_monitor.h" #endif #define BLOCK_LEN 160 #define OUT_FILE_NAME "v27ter.wav" char *decode_test_file = NULL; int use_gui = FALSE; int symbol_no = 0; int rx_bits = 0; bert_state_t bert; one_way_line_model_state_t *line_model; #if defined(ENABLE_GUI) qam_monitor_t *qam_monitor; #endif bert_results_t latest_results; static void reporter(void *user_data, int reason, bert_results_t *results) { switch (reason) { case BERT_REPORT_REGULAR: fprintf(stderr, "BERT report regular - %d bits, %d bad bits, %d resyncs\n", results->total_bits, results->bad_bits, results->resyncs); memcpy(&latest_results, results, sizeof(latest_results)); break; default: fprintf(stderr, "BERT report %s\n", bert_event_to_str(reason)); break; } } /*- End of function --------------------------------------------------------*/ static void v27ter_rx_status(void *user_data, int status) { printf("V.27ter rx status is %s (%d)\n", signal_status_to_str(status), status); } /*- End of function --------------------------------------------------------*/ static void v27terputbit(void *user_data, int bit) { if (bit < 0) { v27ter_rx_status(user_data, bit); return; } if (decode_test_file) printf("Rx bit %d - %d\n", rx_bits++, bit); else bert_put_bit(&bert, bit); } /*- End of function --------------------------------------------------------*/ static void v27ter_tx_status(void *user_data, int status) { printf("V.27ter tx status is %s (%d)\n", signal_status_to_str(status), status); } /*- End of function --------------------------------------------------------*/ static int v27tergetbit(void *user_data) { return bert_get_bit(&bert); } /*- End of function --------------------------------------------------------*/ static void qam_report(void *user_data, const complexf_t *constel, const complexf_t *target, int symbol) { int i; int len; complexf_t *coeffs; float fpower; float error; v27ter_rx_state_t *rx; static float smooth_power = 0.0f; #if defined(ENABLE_GUI) static int reports = 0; #endif rx = (v27ter_rx_state_t *) user_data; if (constel) { fpower = (constel->re - target->re)*(constel->re - target->re) + (constel->im - target->im)*(constel->im - target->im); smooth_power = 0.95f*smooth_power + 0.05f*fpower; #if defined(ENABLE_GUI) if (use_gui) { qam_monitor_update_constel(qam_monitor, constel); qam_monitor_update_carrier_tracking(qam_monitor, v27ter_rx_carrier_frequency(rx)); qam_monitor_update_symbol_tracking(qam_monitor, v27ter_rx_symbol_timing_correction(rx)); } #endif error = constel->im*target->re - constel->re*target->im; printf("Tracking error %f %f %f %f %f %f\n", error, v27ter_rx_carrier_frequency(rx), constel->re, constel->im, target->re, target->im); printf("%8d [%8.4f, %8.4f] [%8.4f, %8.4f] %2x %8.4f %8.4f %9.4f %7.3f %7.4f\n", symbol_no, constel->re, constel->im, target->re, target->im, symbol, fpower, smooth_power, v27ter_rx_carrier_frequency(rx), v27ter_rx_signal_power(rx), v27ter_rx_symbol_timing_correction(rx)); len = v27ter_rx_equalizer_state(rx, &coeffs); printf("Equalizer B:\n"); for (i = 0; i < len; i++) printf("%3d (%15.5f, %15.5f) -> %15.5f\n", i, coeffs[i].re, coeffs[i].im, powerf(&coeffs[i])); #if defined(WITH_SPANDSP_INTERNALS) printf("Gardtest %d %f %d\n", symbol_no, v27ter_rx_symbol_timing_correction(rx), rx->gardner_integrate); #endif printf("Carcar %d %f\n", symbol_no, v27ter_rx_carrier_frequency(rx)); #if defined(ENABLE_GUI) if (use_gui) { if (++reports >= 1000) { qam_monitor_update_equalizer(qam_monitor, coeffs, len); reports = 0; } } #endif symbol_no++; } else { printf("Gardner step %d\n", symbol); len = v27ter_rx_equalizer_state(rx, &coeffs); printf("Equalizer A:\n"); for (i = 0; i < len; i++) printf("%3d (%15.5f, %15.5f) -> %15.5f\n", i, coeffs[i].re, coeffs[i].im, powerf(&coeffs[i])); #if defined(ENABLE_GUI) if (use_gui) qam_monitor_update_equalizer(qam_monitor, coeffs, len); #endif } } /*- End of function --------------------------------------------------------*/ #if defined(HAVE_FENV_H) static void sigfpe_handler(int sig_num, siginfo_t *info, void *data) { switch (sig_num) { case SIGFPE: switch (info->si_code) { case FPE_INTDIV: fprintf(stderr, "integer divide by zero at %p\n", info->si_addr); break; case FPE_INTOVF: fprintf(stderr, "integer overflow at %p\n", info->si_addr); break; case FPE_FLTDIV: fprintf(stderr, "FP divide by zero at %p\n", info->si_addr); break; case FPE_FLTOVF: fprintf(stderr, "FP overflow at %p\n", info->si_addr); break; case FPE_FLTUND: fprintf(stderr, "FP underflow at %p\n", info->si_addr); break; case FPE_FLTRES: fprintf(stderr, "FP inexact result at %p\n", info->si_addr); break; case FPE_FLTINV: fprintf(stderr, "FP invalid operation at %p\n", info->si_addr); break; case FPE_FLTSUB: fprintf(stderr, "subscript out of range at %p\n", info->si_addr); break; } break; default: fprintf(stderr, "Unexpected signal %d\n", sig_num); break; } exit(2); } /*- End of function --------------------------------------------------------*/ static void fpe_trap_setup(void) { struct sigaction trap; sigemptyset(&trap.sa_mask); trap.sa_flags = SA_SIGINFO; trap.sa_sigaction = sigfpe_handler; sigaction(SIGFPE, &trap, NULL); //feenableexcept(FE_DIVBYZERO | FE_INEXACT | FE_INVALID | FE_OVERFLOW | FE_UNDERFLOW); //feenableexcept(FE_ALL_EXCEPT); feenableexcept(FE_DIVBYZERO | FE_INVALID | FE_OVERFLOW); } /*- End of function --------------------------------------------------------*/ #endif int main(int argc, char *argv[]) { v27ter_rx_state_t *rx; v27ter_tx_state_t *tx; bert_results_t bert_results; int16_t gen_amp[BLOCK_LEN]; int16_t amp[BLOCK_LEN]; SNDFILE *inhandle; SNDFILE *outhandle; int outframes; int samples; int tep; int test_bps; int noise_level; int signal_level; int bits_per_test; int line_model_no; int block_no; int log_audio; int channel_codec; int rbs_pattern; int opt; logging_state_t *logging; channel_codec = MUNGE_CODEC_NONE; rbs_pattern = 0; test_bps = 4800; tep = FALSE; line_model_no = 0; decode_test_file = NULL; use_gui = FALSE; noise_level = -70; signal_level = -13; bits_per_test = 50000; log_audio = FALSE; while ((opt = getopt(argc, argv, "b:B:c:d:glm:n:r:s:t")) != -1) { switch (opt) { case 'b': test_bps = atoi(optarg); if (test_bps != 4800 && test_bps != 2400) { fprintf(stderr, "Invalid bit rate specified\n"); exit(2); } break; case 'B': bits_per_test = atoi(optarg); break; case 'c': channel_codec = atoi(optarg); break; case 'd': decode_test_file = optarg; break; case 'g': #if defined(ENABLE_GUI) use_gui = TRUE; #else fprintf(stderr, "Graphical monitoring not available\n"); exit(2); #endif break; case 'l': log_audio = TRUE; break; case 'm': line_model_no = atoi(optarg); break; case 'n': noise_level = atoi(optarg); break; case 'r': rbs_pattern = atoi(optarg); break; case 's': signal_level = atoi(optarg); break; case 't': tep = TRUE; break; default: //usage(); exit(2); break; } } inhandle = NULL; outhandle = NULL; #if defined(HAVE_FENV_H) fpe_trap_setup(); #endif if (log_audio) { if ((outhandle = sf_open_telephony_write(OUT_FILE_NAME, 1)) == NULL) { fprintf(stderr, " Cannot create audio file '%s'\n", OUT_FILE_NAME); exit(2); } } if (decode_test_file) { /* We will decode the audio from a file. */ tx = NULL; if ((inhandle = sf_open_telephony_read(decode_test_file, 1)) == NULL) { fprintf(stderr, " Cannot open audio file '%s'\n", decode_test_file); exit(2); } } else { /* We will generate V.27ter audio, and add some noise to it. */ tx = v27ter_tx_init(NULL, test_bps, tep, v27tergetbit, NULL); v27ter_tx_power(tx, signal_level); v27ter_tx_set_modem_status_handler(tx, v27ter_tx_status, (void *) tx); /* Move the carrier off a bit */ #if defined(WITH_SPANDSP_INTERNALS) tx->carrier_phase_rate = dds_phase_ratef(1810.0f); #endif bert_init(&bert, bits_per_test, BERT_PATTERN_ITU_O152_11, test_bps, 20); bert_set_report(&bert, 10000, reporter, NULL); if ((line_model = one_way_line_model_init(line_model_no, (float) noise_level, channel_codec, rbs_pattern)) == NULL) { fprintf(stderr, " Failed to create line model\n"); exit(2); } } rx = v27ter_rx_init(NULL, test_bps, v27terputbit, NULL); v27ter_rx_set_modem_status_handler(rx, v27ter_rx_status, (void *) rx); v27ter_rx_set_qam_report_handler(rx, qam_report, (void *) rx); logging = v27ter_rx_get_logging_state(rx); span_log_set_level(logging, SPAN_LOG_SHOW_SEVERITY | SPAN_LOG_SHOW_PROTOCOL | SPAN_LOG_FLOW); span_log_set_tag(logging, "V.27ter-rx"); #if defined(ENABLE_GUI) if (use_gui) { qam_monitor = qam_monitor_init(2.0f, NULL); if (!decode_test_file) { start_line_model_monitor(129); line_model_monitor_line_model_update(line_model->near_filter, line_model->near_filter_len); } } #endif memset(&latest_results, 0, sizeof(latest_results)); for (block_no = 0; ; block_no++) { if (decode_test_file) { samples = sf_readf_short(inhandle, amp, BLOCK_LEN); #if defined(ENABLE_GUI) if (use_gui) qam_monitor_update_audio_level(qam_monitor, amp, samples); #endif if (samples == 0) break; } else { samples = v27ter_tx(tx, gen_amp, BLOCK_LEN); #if defined(ENABLE_GUI) if (use_gui) qam_monitor_update_audio_level(qam_monitor, gen_amp, samples); #endif if (samples == 0) { printf("Restarting on zero output\n"); /* Push a little silence through, to ensure all the data bits get out of the buffers */ vec_zeroi16(amp, BLOCK_LEN); v27ter_rx(rx, amp, BLOCK_LEN); v27ter_rx(rx, amp, BLOCK_LEN); v27ter_rx(rx, amp, BLOCK_LEN); /* Note that we might get a few bad bits as the carrier shuts down. */ bert_result(&bert, &bert_results); fprintf(stderr, "Final result %ddBm0/%ddBm0, %d bits, %d bad bits, %d resyncs\n", signal_level, noise_level, bert_results.total_bits, bert_results.bad_bits, bert_results.resyncs); fprintf(stderr, "Last report %ddBm0/%ddBm0, %d bits, %d bad bits, %d resyncs\n", signal_level, noise_level, latest_results.total_bits, latest_results.bad_bits, latest_results.resyncs); /* See if bit errors are appearing yet. Also check we are getting enough bits out of the receiver. The last regular report should be error free, though the final report will generally contain bits errors as the carrier was dying. The total number of bits out of the receiver should be at least the number we sent. Also, since BERT sync should have occurred rapidly at the start of transmission, the last report should have occurred at not much less than the total number of bits we sent. */ if (bert_results.total_bits < bits_per_test || latest_results.total_bits < bits_per_test - 100 || latest_results.bad_bits != 0) { break; } memset(&latest_results, 0, sizeof(latest_results)); signal_level--; v27ter_tx_restart(tx, test_bps, tep); v27ter_tx_power(tx, signal_level); v27ter_rx_restart(rx, test_bps, FALSE); bert_init(&bert, bits_per_test, BERT_PATTERN_ITU_O152_11, test_bps, 20); bert_set_report(&bert, 10000, reporter, NULL); one_way_line_model_release(line_model); if ((line_model = one_way_line_model_init(line_model_no, (float) noise_level, channel_codec, 0)) == NULL) { fprintf(stderr, " Failed to create line model\n"); exit(2); } } if (log_audio) { outframes = sf_writef_short(outhandle, gen_amp, samples); if (outframes != samples) { fprintf(stderr, " Error writing audio file\n"); exit(2); } } one_way_line_model(line_model, amp, gen_amp, samples); } #if defined(ENABLE_GUI) if (use_gui && !decode_test_file) line_model_monitor_line_spectrum_update(amp, samples); #endif v27ter_rx(rx, amp, samples); } if (!decode_test_file) { bert_result(&bert, &bert_results); fprintf(stderr, "At completion:\n"); fprintf(stderr, "Final result %ddBm0/%ddBm0, %d bits, %d bad bits, %d resyncs\n", signal_level, noise_level, bert_results.total_bits, bert_results.bad_bits, bert_results.resyncs); fprintf(stderr, "Last report %ddBm0/%ddBm0, %d bits, %d bad bits, %d resyncs\n", signal_level, noise_level, latest_results.total_bits, latest_results.bad_bits, latest_results.resyncs); one_way_line_model_release(line_model); if (signal_level > -43) { printf("Tests failed.\n"); exit(2); } printf("Tests passed.\n"); } #if defined(ENABLE_GUI) if (use_gui) qam_wait_to_end(qam_monitor); #endif if (decode_test_file) { if (sf_close(inhandle)) { fprintf(stderr, " Cannot close audio file '%s'\n", decode_test_file); exit(2); } } if (log_audio) { if (sf_close(outhandle)) { fprintf(stderr, " Cannot close audio file '%s'\n", OUT_FILE_NAME); exit(2); } } return 0; } /*- End of function --------------------------------------------------------*/ /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/tests/v8_tests.c0000664000175000017500000005515711422612267015704 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * v8_tests.c * * Written by Steve Underwood * * Copyright (C) 2004 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License version 2, as * published by the Free Software Foundation. * * 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., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \page v8_tests_page V.8 tests \section v8_tests_page_sec_1 What does it do? */ #if defined(HAVE_CONFIG_H) #include "config.h" #endif #include #include #include #include #include #include //#if defined(WITH_SPANDSP_INTERNALS) #define SPANDSP_EXPOSE_INTERNAL_STRUCTURES //#endif #include "spandsp.h" #include "spandsp-sim.h" #define FALSE 0 #define TRUE (!FALSE) #define SAMPLES_PER_CHUNK 160 #define OUTPUT_FILE_NAME "v8.wav" int negotiations_ok = 0; #if 0 static int select_modulation(int mask) { /* Select the fastest data modem available */ if (mask & V8_MOD_V90) return V8_MOD_V90; /*endif*/ if (mask & V8_MOD_V34) return V8_MOD_V34; /*endif*/ if (mask & V8_MOD_V32) return V8_MOD_V32; /*endif*/ if (mask & V8_MOD_V23) return V8_MOD_V23; /*endif*/ if (mask & V8_MOD_V21) return V8_MOD_V21; /*endif*/ return -1; } /*- End of function --------------------------------------------------------*/ #endif static void handler(void *user_data, v8_parms_t *result) { const char *s; s = (const char *) user_data; printf("%s ", s); switch (result->status) { case V8_STATUS_IN_PROGRESS: printf("V.8 negotiation in progress\n"); return; break; case V8_STATUS_V8_OFFERED: printf("V.8 offered by the other party\n"); break; case V8_STATUS_V8_CALL: printf("V.8 call negotiation successful\n"); break; case V8_STATUS_NON_V8_CALL: printf("Non-V.8 call negotiation successful\n"); break; case V8_STATUS_FAILED: printf("V.8 call negotiation failed\n"); return; default: printf("Unexpected V.8 status %d\n", result->status); break; } /*endswitch*/ printf(" Modem connect tone '%s' (%d)\n", modem_connect_tone_to_str(result->modem_connect_tone), result->modem_connect_tone); printf(" Call function '%s' (%d)\n", v8_call_function_to_str(result->call_function), result->call_function); printf(" Far end modulations 0x%X\n", result->modulations); printf(" Protocol '%s' (%d)\n", v8_protocol_to_str(result->protocol), result->protocol); printf(" PSTN access '%s' (%d)\n", v8_pstn_access_to_str(result->pstn_access), result->pstn_access); printf(" PCM modem availability '%s' (%d)\n", v8_pcm_modem_availability_to_str(result->pcm_modem_availability), result->pcm_modem_availability); if (result->t66 >= 0) printf(" T.66 '%s' (%d)\n", v8_t66_to_str(result->t66), result->t66); /*endif*/ if (result->nsf >= 0) printf(" NSF %d\n", result->nsf); /*endif*/ switch (result->status) { case V8_STATUS_V8_OFFERED: /* Edit the result information appropriately */ //result->call_function = V8_CALL_T30_TX; result->modulations &= (V8_MOD_V17 | V8_MOD_V21 //| V8_MOD_V22 //| V8_MOD_V23HDX //| V8_MOD_V23 //| V8_MOD_V26BIS //| V8_MOD_V26TER | V8_MOD_V27TER | V8_MOD_V29 //| V8_MOD_V32 | V8_MOD_V34HDX //| V8_MOD_V34 //| V8_MOD_V90 | V8_MOD_V92); break; case V8_STATUS_V8_CALL: if (result->call_function == V8_CALL_V_SERIES && result->protocol == V8_PROTOCOL_LAPM_V42) { negotiations_ok++; } /*endif*/ break; case V8_STATUS_NON_V8_CALL: negotiations_ok = 42; break; } /*endswitch*/ } /*- End of function --------------------------------------------------------*/ static int v8_calls_v8_tests(SNDFILE *outhandle) { v8_state_t *v8_caller; v8_state_t *v8_answerer; logging_state_t *caller_logging; logging_state_t *answerer_logging; int caller_available_modulations; int answerer_available_modulations; int i; int samples; int remnant; int outframes; int16_t amp[SAMPLES_PER_CHUNK]; int16_t out_amp[2*SAMPLES_PER_CHUNK]; v8_parms_t v8_call_parms; v8_parms_t v8_answer_parms; caller_available_modulations = V8_MOD_V17 | V8_MOD_V21 | V8_MOD_V22 | V8_MOD_V23HDX | V8_MOD_V23 | V8_MOD_V26BIS | V8_MOD_V26TER | V8_MOD_V27TER | V8_MOD_V29 | V8_MOD_V32 | V8_MOD_V34HDX | V8_MOD_V34 | V8_MOD_V90 | V8_MOD_V92; answerer_available_modulations = V8_MOD_V17 | V8_MOD_V21 | V8_MOD_V22 | V8_MOD_V23HDX | V8_MOD_V23 | V8_MOD_V26BIS | V8_MOD_V26TER | V8_MOD_V27TER | V8_MOD_V29 | V8_MOD_V32 | V8_MOD_V34HDX | V8_MOD_V34 | V8_MOD_V90 | V8_MOD_V92; negotiations_ok = 0; v8_call_parms.modem_connect_tone = MODEM_CONNECT_TONES_NONE; v8_call_parms.call_function = V8_CALL_V_SERIES; v8_call_parms.modulations = caller_available_modulations; v8_call_parms.protocol = V8_PROTOCOL_LAPM_V42; v8_call_parms.pcm_modem_availability = 0; v8_call_parms.pstn_access = 0; v8_call_parms.nsf = -1; v8_call_parms.t66 = -1; v8_caller = v8_init(NULL, TRUE, &v8_call_parms, handler, (void *) "caller"); v8_answer_parms.modem_connect_tone = MODEM_CONNECT_TONES_ANSAM_PR; v8_answer_parms.call_function = V8_CALL_V_SERIES; v8_answer_parms.modulations = answerer_available_modulations; v8_answer_parms.protocol = V8_PROTOCOL_LAPM_V42; v8_answer_parms.pcm_modem_availability = 0; v8_answer_parms.pstn_access = 0; v8_answer_parms.nsf = -1; v8_answer_parms.t66 = -1; v8_answerer = v8_init(NULL, FALSE, &v8_answer_parms, handler, (void *) "answerer"); caller_logging = v8_get_logging_state(v8_caller); span_log_set_level(caller_logging, SPAN_LOG_FLOW | SPAN_LOG_SHOW_TAG | SPAN_LOG_SHOW_SAMPLE_TIME); span_log_set_tag(caller_logging, "caller"); answerer_logging = v8_get_logging_state(v8_answerer); span_log_set_level(answerer_logging, SPAN_LOG_FLOW | SPAN_LOG_SHOW_TAG | SPAN_LOG_SHOW_SAMPLE_TIME); span_log_set_tag(answerer_logging, "answerer"); for (i = 0; i < 1000; i++) { samples = v8_tx(v8_caller, amp, SAMPLES_PER_CHUNK); if (samples < SAMPLES_PER_CHUNK) { vec_zeroi16(amp + samples, SAMPLES_PER_CHUNK - samples); samples = SAMPLES_PER_CHUNK; } /*endif*/ span_log_bump_samples(caller_logging, samples); remnant = v8_rx(v8_answerer, amp, samples); for (i = 0; i < samples; i++) out_amp[2*i] = amp[i]; /*endfor*/ samples = v8_tx(v8_answerer, amp, SAMPLES_PER_CHUNK); if (samples < SAMPLES_PER_CHUNK) { vec_zeroi16(amp + samples, SAMPLES_PER_CHUNK - samples); samples = SAMPLES_PER_CHUNK; } /*endif*/ span_log_bump_samples(answerer_logging, samples); if (v8_rx(v8_caller, amp, samples) && remnant) break; /*endif*/ for (i = 0; i < samples; i++) out_amp[2*i + 1] = amp[i]; /*endfor*/ if (outhandle) { outframes = sf_writef_short(outhandle, out_amp, samples); if (outframes != samples) { fprintf(stderr, " Error writing audio file\n"); exit(2); } /*endif*/ } /*endif*/ } /*endfor*/ v8_free(v8_caller); v8_free(v8_answerer); if (negotiations_ok != 2) { printf("Tests failed.\n"); exit(2); } /*endif*/ return 0; } /*- End of function --------------------------------------------------------*/ static int non_v8_calls_v8_tests(SNDFILE *outhandle) { silence_gen_state_t *non_v8_caller_tx; modem_connect_tones_rx_state_t *non_v8_caller_rx; v8_state_t *v8_answerer; logging_state_t *answerer_logging; int answerer_available_modulations; int i; int samples; int remnant; int outframes; int tone; int16_t amp[SAMPLES_PER_CHUNK]; int16_t out_amp[2*SAMPLES_PER_CHUNK]; v8_parms_t v8_answer_parms; answerer_available_modulations = V8_MOD_V17 | V8_MOD_V21 | V8_MOD_V22 | V8_MOD_V23HDX | V8_MOD_V23 | V8_MOD_V26BIS | V8_MOD_V26TER | V8_MOD_V27TER | V8_MOD_V29 | V8_MOD_V32 | V8_MOD_V34HDX | V8_MOD_V34 | V8_MOD_V90 | V8_MOD_V92; negotiations_ok = 0; non_v8_caller_tx = silence_gen_init(NULL, 10*SAMPLE_RATE); non_v8_caller_rx = modem_connect_tones_rx_init(NULL, MODEM_CONNECT_TONES_ANS_PR, NULL, NULL); v8_answer_parms.modem_connect_tone = MODEM_CONNECT_TONES_ANSAM_PR; v8_answer_parms.call_function = V8_CALL_V_SERIES; v8_answer_parms.modulations = answerer_available_modulations; v8_answer_parms.protocol = V8_PROTOCOL_LAPM_V42; v8_answer_parms.pcm_modem_availability = 0; v8_answer_parms.pstn_access = 0; v8_answer_parms.nsf = -1; v8_answer_parms.t66 = -1; v8_answerer = v8_init(NULL, FALSE, &v8_answer_parms, handler, (void *) "answerer"); answerer_logging = v8_get_logging_state(v8_answerer); span_log_set_level(answerer_logging, SPAN_LOG_FLOW | SPAN_LOG_SHOW_TAG | SPAN_LOG_SHOW_SAMPLE_TIME); span_log_set_tag(answerer_logging, "answerer"); for (i = 0; i < 1000; i++) { samples = silence_gen(non_v8_caller_tx, amp, SAMPLES_PER_CHUNK); if (samples < SAMPLES_PER_CHUNK) { vec_zeroi16(amp + samples, SAMPLES_PER_CHUNK - samples); samples = SAMPLES_PER_CHUNK; } /*endif*/ remnant = v8_rx(v8_answerer, amp, samples); if (remnant) break; /*endif*/ for (i = 0; i < samples; i++) out_amp[2*i] = amp[i]; /*endfor*/ samples = v8_tx(v8_answerer, amp, SAMPLES_PER_CHUNK); if (samples < SAMPLES_PER_CHUNK) { vec_zeroi16(amp + samples, SAMPLES_PER_CHUNK - samples); samples = SAMPLES_PER_CHUNK; } /*endif*/ span_log_bump_samples(answerer_logging, samples); modem_connect_tones_rx(non_v8_caller_rx, amp, samples); if ((tone = modem_connect_tones_rx_get(non_v8_caller_rx)) != MODEM_CONNECT_TONES_NONE) { printf("Detected %s (%d)\n", modem_connect_tone_to_str(tone), tone); if (tone == MODEM_CONNECT_TONES_ANSAM_PR) negotiations_ok++; /*endif*/ } /*endif*/ for (i = 0; i < samples; i++) out_amp[2*i + 1] = amp[i]; /*endfor*/ if (outhandle) { outframes = sf_writef_short(outhandle, out_amp, samples); if (outframes != samples) { fprintf(stderr, " Error writing audio file\n"); exit(2); } /*endif*/ } /*endif*/ } /*endfor*/ silence_gen_free(non_v8_caller_tx); modem_connect_tones_rx_free(non_v8_caller_rx); v8_free(v8_answerer); if (negotiations_ok != 1) { printf("Tests failed.\n"); exit(2); } /*endif*/ return 0; } /*- End of function --------------------------------------------------------*/ static int v8_calls_non_v8_tests(SNDFILE *outhandle) { v8_state_t *v8_caller; modem_connect_tones_tx_state_t *non_v8_answerer_tx; logging_state_t *caller_logging; int caller_available_modulations; int i; int samples; int outframes; int16_t amp[SAMPLES_PER_CHUNK]; int16_t out_amp[2*SAMPLES_PER_CHUNK]; v8_parms_t v8_call_parms; caller_available_modulations = V8_MOD_V17 | V8_MOD_V21 | V8_MOD_V22 | V8_MOD_V23HDX | V8_MOD_V23 | V8_MOD_V26BIS | V8_MOD_V26TER | V8_MOD_V27TER | V8_MOD_V29 | V8_MOD_V32 | V8_MOD_V34HDX | V8_MOD_V34 | V8_MOD_V90 | V8_MOD_V92; negotiations_ok = 0; v8_call_parms.modem_connect_tone = MODEM_CONNECT_TONES_NONE; v8_call_parms.call_function = V8_CALL_V_SERIES; v8_call_parms.modulations = caller_available_modulations; v8_call_parms.protocol = V8_PROTOCOL_LAPM_V42; v8_call_parms.pcm_modem_availability = 0; v8_call_parms.pstn_access = 0; v8_call_parms.nsf = -1; v8_call_parms.t66 = -1; v8_caller = v8_init(NULL, TRUE, &v8_call_parms, handler, (void *) "caller"); non_v8_answerer_tx = modem_connect_tones_tx_init(NULL, MODEM_CONNECT_TONES_ANS_PR); caller_logging = v8_get_logging_state(v8_caller); span_log_set_level(caller_logging, SPAN_LOG_FLOW | SPAN_LOG_SHOW_TAG | SPAN_LOG_SHOW_SAMPLE_TIME); span_log_set_tag(caller_logging, "caller"); for (i = 0; i < 1000; i++) { samples = v8_tx(v8_caller, amp, SAMPLES_PER_CHUNK); if (samples < SAMPLES_PER_CHUNK) { vec_zeroi16(amp + samples, SAMPLES_PER_CHUNK - samples); samples = SAMPLES_PER_CHUNK; } /*endif*/ span_log_bump_samples(caller_logging, samples); for (i = 0; i < samples; i++) out_amp[2*i] = amp[i]; /*endfor*/ samples = modem_connect_tones_tx(non_v8_answerer_tx, amp, SAMPLES_PER_CHUNK); if (samples < SAMPLES_PER_CHUNK) { vec_zeroi16(amp + samples, SAMPLES_PER_CHUNK - samples); samples = SAMPLES_PER_CHUNK; } /*endif*/ if (v8_rx(v8_caller, amp, samples)) break; /*endif*/ for (i = 0; i < samples; i++) out_amp[2*i + 1] = amp[i]; /*endfor*/ if (outhandle) { outframes = sf_writef_short(outhandle, out_amp, samples); if (outframes != samples) { fprintf(stderr, " Error writing audio file\n"); exit(2); } /*endif*/ } /*endif*/ } /*endfor*/ v8_free(v8_caller); modem_connect_tones_tx_free(non_v8_answerer_tx); if (negotiations_ok != 42) { printf("Tests failed.\n"); exit(2); } /*endif*/ return 0; } /*- End of function --------------------------------------------------------*/ int main(int argc, char *argv[]) { int16_t amp[SAMPLES_PER_CHUNK]; int samples; int remnant; int caller_available_modulations; int answerer_available_modulations; SNDFILE *inhandle; SNDFILE *outhandle; int opt; int log_audio; char *decode_test_file; v8_state_t *v8_caller; v8_state_t *v8_answerer; v8_parms_t v8_call_parms; v8_parms_t v8_answer_parms; logging_state_t *logging; decode_test_file = NULL; log_audio = FALSE; while ((opt = getopt(argc, argv, "d:l")) != -1) { switch (opt) { case 'd': decode_test_file = optarg; break; case 'l': log_audio = TRUE; break; default: //usage(); exit(2); break; } } if (decode_test_file) { caller_available_modulations = V8_MOD_V17 | V8_MOD_V21 | V8_MOD_V22 | V8_MOD_V23HDX | V8_MOD_V23 | V8_MOD_V26BIS | V8_MOD_V26TER | V8_MOD_V27TER | V8_MOD_V29 | V8_MOD_V32 | V8_MOD_V34HDX | V8_MOD_V34 | V8_MOD_V90 | V8_MOD_V92; answerer_available_modulations = V8_MOD_V17 | V8_MOD_V21 | V8_MOD_V22 | V8_MOD_V23HDX | V8_MOD_V23 | V8_MOD_V26BIS | V8_MOD_V26TER | V8_MOD_V27TER | V8_MOD_V29 | V8_MOD_V32 | V8_MOD_V34HDX | V8_MOD_V34 | V8_MOD_V90 | V8_MOD_V92; printf("Decode file '%s'\n", decode_test_file); v8_call_parms.modem_connect_tone = MODEM_CONNECT_TONES_NONE; v8_call_parms.call_function = V8_CALL_V_SERIES; v8_call_parms.modulations = caller_available_modulations; v8_call_parms.protocol = V8_PROTOCOL_LAPM_V42; v8_call_parms.pcm_modem_availability = 0; v8_call_parms.pstn_access = 0; v8_call_parms.nsf = -1; v8_call_parms.t66 = -1; v8_caller = v8_init(NULL, TRUE, &v8_call_parms, handler, (void *) "caller"); logging = v8_get_logging_state(v8_caller); span_log_set_level(logging, SPAN_LOG_FLOW | SPAN_LOG_SHOW_TAG); span_log_set_tag(logging, "caller"); v8_answer_parms.modem_connect_tone = MODEM_CONNECT_TONES_ANSAM_PR; v8_answer_parms.call_function = V8_CALL_V_SERIES; v8_answer_parms.modulations = answerer_available_modulations; v8_answer_parms.protocol = V8_PROTOCOL_LAPM_V42; v8_answer_parms.pcm_modem_availability = 0; v8_answer_parms.pstn_access = 0; v8_answer_parms.nsf = -1; v8_answer_parms.t66 = -1; v8_answerer = v8_init(NULL, FALSE, &v8_answer_parms, handler, (void *) "answerer"); logging = v8_get_logging_state(v8_answerer); span_log_set_level(logging, SPAN_LOG_FLOW | SPAN_LOG_SHOW_TAG); span_log_set_tag(logging, "answerer"); if ((inhandle = sf_open_telephony_read(decode_test_file, 1)) == NULL) { fprintf(stderr, " Cannot open speech file '%s'\n", decode_test_file); exit (2); } /*endif*/ while ((samples = sf_readf_short(inhandle, amp, SAMPLES_PER_CHUNK))) { remnant = v8_rx(v8_caller, amp, samples); remnant = v8_rx(v8_answerer, amp, samples); remnant = v8_tx(v8_caller, amp, samples); remnant = v8_tx(v8_answerer, amp, samples); } /*endwhile*/ v8_free(v8_caller); v8_free(v8_answerer); if (sf_close(inhandle) != 0) { fprintf(stderr, " Cannot close speech file '%s'\n", decode_test_file); exit(2); } /*endif*/ } else { outhandle = NULL; if (log_audio) { if ((outhandle = sf_open_telephony_write(OUTPUT_FILE_NAME, 2)) == NULL) { fprintf(stderr, " Cannot create audio file '%s'\n", OUTPUT_FILE_NAME); exit(2); } /*endif*/ } /*endif*/ printf("Test 1: V.8 terminal calls V.8 terminal\n"); v8_calls_v8_tests(outhandle); printf("Test 2: non-V.8 terminal calls V.8 terminal\n"); non_v8_calls_v8_tests(outhandle); printf("Test 3: V.8 terminal calls non-V.8 terminal\n"); v8_calls_non_v8_tests(outhandle); if (outhandle) { if (sf_close(outhandle)) { fprintf(stderr, " Cannot close audio file '%s'\n", OUTPUT_FILE_NAME); exit(2); } /*endif*/ } /*endif*/ printf("Tests passed.\n"); } return 0; } /*- End of function --------------------------------------------------------*/ /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/tests/dtmf_rx_tests.c0000664000175000017500000007311711422612266017005 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * dtmf_rx_tests.c - Test the DTMF detector against the spec., whatever the spec. * may be :) * * Written by Steve Underwood * * Copyright (C) 2001, 2006 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License version 2, as * published by the Free Software Foundation. * * 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., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* * These tests include conversion to and from A-law. I assume the * distortion this produces is comparable to u-law, so it should be * a fair test. * * These tests mirror those on the CM7291 test tape from Mitel. * Many of these tests are highly questionable, but they are a * well accepted industry standard. * * However standard these tests might be, Mitel appears to have stopped * selling copies of their tape. * * For the talk-off test the Bellcore tapes may be used. However, they are * copyright material, so the test data files produced from the Bellcore * tapes cannot be distributed as a part of this package. * */ /*! \page dtmf_rx_tests_page DTMF receiver tests \section dtmf_rx_tests_page_sec_1 What does it do? The DTMF detection test suite performs similar tests to the Mitel test tape, traditionally used for testing DTMF receivers. Mitel seem to have discontinued this product, but all it not lost. The first side of the Mitel tape consists of a number of tone and tone+noise based tests. The test suite synthesizes equivalent test data. Being digitally generated, this data is rather more predictable than the test data on the nasty old stretchy cassette tapes which Mitel sold. The second side of the Mitel tape contains fragments of real speech from real phone calls captured from the North American telephone network. These are considered troublesome for DTMF detectors. A good detector is expected to achieve a reasonably low number of false detections on this data. Fresh clean copies of this seem to be unobtainable. However, Bellcore produce a much more aggressive set of three cassette tapes. All six side (about 30 minutes each) are filled with much tougher fragments of real speech from the North American telephone network. If you can do well in this test, nobody cares about your results against the Mitel test tape. A fresh set of tapes was purchased for these tests, and digitised, producing 6 wave files of 16 bit signed PCM data, sampled at 8kHz. They were transcribed using a speed adjustable cassette player. The test tone at the start of the tapes is pretty accurate, and the new tapes should not have had much opportunity to stretch. It is believed these transcriptions are about as good as the source material permits. PLEASE NOTE These transcriptions may be freely used by anyone who has a legitimate copy of the original tapes. However, if you don't have a legitimate copy of those tapes, you also have no right to use this data. The original tapes are the copyright material of BellCore, and they charge over US$200 for a set. I doubt they sell enough copies to consider this much of a business. However, it is their data, and it is their right to do as they wish with it. Currently I see no indication they wish to give it away for free. */ #if defined(HAVE_CONFIG_H) #include "config.h" #endif #include #include #include #include #include #include #include //#if defined(WITH_SPANDSP_INTERNALS) #define SPANDSP_EXPOSE_INTERNAL_STRUCTURES //#endif #include "spandsp.h" #include "spandsp-sim.h" /* Basic DTMF specs: * * Minimum tone on = 40ms * Minimum tone off = 50ms * Maximum digit rate = 10 per second * Normal twist <= 8dB accepted * Reverse twist <= 4dB accepted * S/N >= 15dB will detect OK * Attenuation <= 26dB will detect OK * Frequency tolerance +- 1.5% will detect, +-3.5% will reject */ #define DEFAULT_DTMF_TX_LEVEL -10 #define DEFAULT_DTMF_TX_ON_TIME 50 #define DEFAULT_DTMF_TX_OFF_TIME 50 #define SAMPLES_PER_CHUNK 160 #define ALL_POSSIBLE_DIGITS "123A456B789C*0#D" #define MITEL_DIR "../test-data/mitel/" #define BELLCORE_DIR "../test-data/bellcore/" const char *bellcore_files[] = { MITEL_DIR "mitel-cm7291-talkoff.wav", BELLCORE_DIR "tr-tsy-00763-1.wav", BELLCORE_DIR "tr-tsy-00763-2.wav", BELLCORE_DIR "tr-tsy-00763-3.wav", BELLCORE_DIR "tr-tsy-00763-4.wav", BELLCORE_DIR "tr-tsy-00763-5.wav", BELLCORE_DIR "tr-tsy-00763-6.wav", "" }; static tone_gen_descriptor_t my_dtmf_digit_tones[16]; float dtmf_row[] = { 697.0f, 770.0f, 852.0f, 941.0f }; float dtmf_col[] = { 1209.0f, 1336.0f, 1477.0f, 1633.0f }; char dtmf_positions[] = "123A" "456B" "789C" "*0#D"; int callback_hit; int callback_ok; int callback_roll; int step; int max_forward_twist; int max_reverse_twist; int use_dialtone_filter = FALSE; char *decode_test_file = NULL; static int16_t amp[1000000]; static int16_t amp2[1000000]; codec_munge_state_t *munge = NULL; static void my_dtmf_gen_init(float low_fudge, int low_level, float high_fudge, int high_level, int duration, int gap) { int row; int col; for (row = 0; row < 4; row++) { for (col = 0; col < 4; col++) { tone_gen_descriptor_init(&my_dtmf_digit_tones[row*4 + col], dtmf_row[row]*(1.0f + low_fudge), low_level, dtmf_col[col]*(1.0f + high_fudge), high_level, duration, gap, 0, 0, FALSE); } } } /*- End of function --------------------------------------------------------*/ static int my_dtmf_generate(int16_t amp[], const char *digits) { int len; char *cp; tone_gen_state_t tone; len = 0; while (*digits) { cp = strchr(dtmf_positions, *digits); if (cp) { tone_gen_init(&tone, &my_dtmf_digit_tones[cp - dtmf_positions]); len += tone_gen(&tone, amp + len, 1000); } digits++; } return len; } /*- End of function --------------------------------------------------------*/ static void digit_delivery(void *data, const char *digits, int len) { int i; int seg; const char *s = ALL_POSSIBLE_DIGITS; const char *t; callback_hit = TRUE; if (data == (void *) 0x12345678) { t = s + callback_roll; seg = 16 - callback_roll; for (i = 0; i < len; i += seg, seg = 16) { if (i + seg > len) seg = len - i; if (memcmp(digits + i, t, seg)) { callback_ok = FALSE; printf("Fail at %d %d\n", i, seg); break; } t = s; callback_roll = (callback_roll + seg)%16; } } else { callback_ok = FALSE; } } /*- End of function --------------------------------------------------------*/ static void digit_status(void *data, int signal, int level, int delay) { const char *s = ALL_POSSIBLE_DIGITS; int len; static int last_step = 0; static int first = TRUE; callback_hit = TRUE; len = step - last_step; if (data == (void *) 0x12345678) { if (len < 320 || len > 480) { if (first) { /* At the beginning the apparent duration is expected to be wrong */ first = FALSE; } else { printf("Failed for signal %s length %d at %d\n", (callback_roll & 1) ? "on" : "off", len, step); callback_ok = FALSE; } } if (callback_roll & 1) { if (signal != 0) { printf("Failed for signal 0x%X instead of 0\n", signal); callback_ok = FALSE; } } else { if (signal != s[callback_roll >> 1]) { printf("Failed for signal 0x%X instead of 0x%X\n", signal, s[callback_roll >> 1]); callback_ok = FALSE; } if (level < DEFAULT_DTMF_TX_LEVEL + 3 - 1 || level > DEFAULT_DTMF_TX_LEVEL + 3 + 1) { printf("Failed for level %d instead of %d\n", level, DEFAULT_DTMF_TX_LEVEL + 3); callback_ok = FALSE; } } if (++callback_roll >= 32) callback_roll = 0; } else { callback_ok = FALSE; } last_step = step; } /*- End of function --------------------------------------------------------*/ static void mitel_cm7291_side_1_tests(void) { int i; int j; int len; int sample; const char *s; char digit[2]; char buf[128 + 1]; int actual; int nplus; int nminus; float rrb; float rcfo; dtmf_rx_state_t *dtmf_state; awgn_state_t noise_source; dtmf_state = dtmf_rx_init(NULL, NULL, NULL); if (use_dialtone_filter || max_forward_twist >= 0 || max_reverse_twist >= 0) dtmf_rx_parms(dtmf_state, use_dialtone_filter, max_forward_twist, max_reverse_twist, -99); /* Test 1: Mitel's test 1 isn't really a test. Its a calibration step, which has no meaning here. */ printf("Test 1: Calibration\n"); printf(" Passed\n"); /* Test 2: Decode check This is a sanity check, that all digits are reliably detected under ideal conditions. Each possible digit repeated 10 times, with 50ms bursts. The level of each tone is about 6dB down from clip. 6dB down actually causes trouble with G.726, so we use 7dB down. */ printf("Test 2: Decode check\n"); my_dtmf_gen_init(0.0f, -4, 0.0f, -4, 50, 50); s = ALL_POSSIBLE_DIGITS; digit[1] = '\0'; while (*s) { digit[0] = *s++; for (i = 0; i < 10; i++) { len = my_dtmf_generate(amp, digit); codec_munge(munge, amp, len); dtmf_rx(dtmf_state, amp, len); actual = dtmf_rx_get(dtmf_state, buf, 128); if (actual != 1 || buf[0] != digit[0]) { printf(" Sent '%s'\n", digit); printf(" Received '%s'\n", buf); printf(" Failed\n"); exit(2); } } } printf(" Passed\n"); /* Test 3: Recognition bandwidth and channel centre frequency check. Use only the diagonal pairs of tones (digits 1, 5, 9 and D). Each tone pair requires four test to complete the check, making 16 sections overall. Each section contains 40 pulses of 50ms duration, with an amplitude of -20dB from clip per frequency. Four sections covering the tests for one tone (1 digit) are: a. H frequency at 0% deviation from center, L frequency at +0.1%. L frequency is then increments in +01.% steps up to +4%. The number of tone bursts is noted and designated N+. b. H frequency at 0% deviation, L frequency at -0.1%. L frequency is then incremental in -0.1% steps, up to -4%. The number of tone bursts is noted and designated N-. c. The test in (a) is repeated with the L frequency at 0% and the H frequency varied up to +4%. d. The test in (b) is repeated with the L frequency and 0% and the H frequency varied to -4%. Receiver Recognition Bandwidth (RRB) is calculated as follows: RRB% = (N+ + N-)/10 Receiver Center Frequency Offset (RCFO) is calculated as follows: RCFO% = X + (N+ - N-)/20 Note that this test doesn't test what it says it is testing at all, and the results are quite inaccurate, if not a downright lie! However, it follows the Mitel procedure, so how can it be bad? :) */ printf("Test 3: Recognition bandwidth and channel centre frequency check\n"); s = "159D"; digit[1] = '\0'; while (*s) { digit[0] = *s++; for (nplus = 0, i = 1; i <= 60; i++) { my_dtmf_gen_init((float) i/1000.0f, -17, 0.0f, -17, 50, 50); len = my_dtmf_generate(amp, digit); codec_munge(munge, amp, len); dtmf_rx(dtmf_state, amp, len); nplus += dtmf_rx_get(dtmf_state, buf, 128); } for (nminus = 0, i = -1; i >= -60; i--) { my_dtmf_gen_init((float) i/1000.0f, -17, 0.0f, -17, 50, 50); len = my_dtmf_generate(amp, digit); codec_munge(munge, amp, len); dtmf_rx(dtmf_state, amp, len); nminus += dtmf_rx_get(dtmf_state, buf, 128); } rrb = (float) (nplus + nminus)/10.0f; rcfo = (float) (nplus - nminus)/10.0f; printf(" %c (low) rrb = %5.2f%%, rcfo = %5.2f%%, max -ve = %5.2f, max +ve = %5.2f\n", digit[0], rrb, rcfo, (float) nminus/10.0f, (float) nplus/10.0f); if (rrb < 3.0f + rcfo || rrb >= 15.0f + rcfo) { printf(" Failed\n"); exit(2); } for (nplus = 0, i = 1; i <= 60; i++) { my_dtmf_gen_init(0.0f, -17, (float) i/1000.0f, -17, 50, 50); len = my_dtmf_generate(amp, digit); codec_munge(munge, amp, len); dtmf_rx(dtmf_state, amp, len); nplus += dtmf_rx_get(dtmf_state, buf, 128); } for (nminus = 0, i = -1; i >= -60; i--) { my_dtmf_gen_init(0.0f, -17, (float) i/1000.0f, -17, 50, 50); len = my_dtmf_generate(amp, digit); codec_munge(munge, amp, len); dtmf_rx(dtmf_state, amp, len); nminus += dtmf_rx_get(dtmf_state, buf, 128); } rrb = (float) (nplus + nminus)/10.0f; rcfo = (float) (nplus - nminus)/10.0f; printf(" %c (high) rrb = %5.2f%%, rcfo = %5.2f%%, max -ve = %5.2f, max +ve = %5.2f\n", digit[0], rrb, rcfo, (float) nminus/10.0f, (float) nplus/10.0f); if (rrb < 3.0f + rcfo || rrb >= 15.0f + rcfo) { printf(" Failed\n"); exit(2); } } printf(" Passed\n"); /* Test 4: Acceptable amplitude ratio (twist). Use only the diagonal pairs of tones (digits 1, 5, 9 and D). There are eight sections to the test. Each section contains 200 pulses with a 50ms duration for each pulse. Initially the amplitude of both tones is 6dB down from clip. The two sections to test one tone pair are: a. Standard Twist: H tone amplitude is maintained at -6dB from clip, L tone amplitude is attenuated gradually until the amplitude ratio L/H is -20dB. Note the number of responses from the receiver. b. Reverse Twist: L tone amplitude is maintained at -6dB from clip, H tone amplitude is attenuated gradually until the amplitude ratio is 20dB. Note the number of responses from the receiver. All tone bursts are of 50ms duration. The Acceptable Amplitude Ratio in dB is equal to the number of responses registered in (a) or (b), divided by 10. TODO: This is supposed to work in 1/10dB steps, but here I used 1dB steps, as the current tone generator has its amplitude set in 1dB steps. */ printf("Test 4: Acceptable amplitude ratio (twist)\n"); s = "159D"; digit[1] = '\0'; while (*s) { digit[0] = *s++; for (nplus = 0, i = -30; i >= -230; i--) { my_dtmf_gen_init(0.0f, -3, 0.0f, i/10, 50, 50); len = my_dtmf_generate(amp, digit); codec_munge(munge, amp, len); dtmf_rx(dtmf_state, amp, len); nplus += dtmf_rx_get(dtmf_state, buf, 128); } printf(" %c normal twist = %.2fdB\n", digit[0], (float) nplus/10.0); if (nplus < 80) { printf(" Failed\n"); exit(2); } for (nminus = 0, i = -30; i >= -230; i--) { my_dtmf_gen_init(0.0f, i/10, 0.0f, -3, 50, 50); len = my_dtmf_generate(amp, digit); codec_munge(munge, amp, len); dtmf_rx(dtmf_state, amp, len); nminus += dtmf_rx_get(dtmf_state, buf, 128); } printf(" %c reverse twist = %.2fdB\n", digit[0], (float) nminus/10.0); if (nminus < 40) { printf(" Failed\n"); exit(2); } } printf(" Passed\n"); /* Test 5: Dynamic range This test utilizes tone pair L1 H1 (digit 1). Thirty-five tone pair pulses are transmitted, with both frequencies stating at -6dB from clip. The amplitude of each is gradually attenuated by -35dB at a rate of 1dB per pulse. The Dynamic Range in dB is equal to the number of responses from the receiver during the test. Well not really, but that is the Mitel test. Lets sweep a bit further, and see what the real range is */ printf("Test 5: Dynamic range\n"); for (nplus = 0, i = +3; i >= -50; i--) { my_dtmf_gen_init(0.0f, i, 0.0f, i, 50, 50); len = my_dtmf_generate(amp, "1"); codec_munge(munge, amp, len); dtmf_rx(dtmf_state, amp, len); nplus += dtmf_rx_get(dtmf_state, buf, 128); } printf(" Dynamic range = %ddB\n", nplus); /* We ought to set some pass/fail condition, even if Mitel did not. If we don't, regression testing is weakened. */ if (nplus < 35) { printf(" Failed\n"); exit(2); } printf(" Passed\n"); /* Test 6: Guard time This test utilizes tone pair L1 H1 (digit 1). Four hundred pulses are transmitted at an amplitude of -6dB from clip per frequency. Pulse duration starts at 49ms and is gradually reduced to 10ms. Guard time in ms is equal to (500 - number of responses)/10. That is the Mitel test, and we will follow it. Its totally bogus, though. Just what the heck is a pass or fail here? */ printf("Test 6: Guard time\n"); for (nplus = 0, i = 490; i >= 100; i--) { my_dtmf_gen_init(0.0f, -3, 0.0f, -3, i/10, 50); len = my_dtmf_generate(amp, "1"); codec_munge(munge, amp, len); dtmf_rx(dtmf_state, amp, len); nplus += dtmf_rx_get(dtmf_state, buf, 128); } printf(" Guard time = %dms\n", (500 - nplus)/10); printf(" Passed\n"); /* Test 7: Acceptable signal to noise ratio This test utilizes tone pair L1 H1, transmitted on a noise background. The test consists of three sections in which the tone pair is transmitted 1000 times at an amplitude -6dB from clip per frequency, but with a different white noise level for each section. The first level is -24dBV, the second -18dBV and the third -12dBV.. The acceptable signal to noise ratio is the lowest ratio of signal to noise in the test where the receiver responds to all 1000 pulses. Well, that is the Mitel test, but it doesn't tell you what the decoder can really do. Lets do a more comprehensive test */ printf("Test 7: Acceptable signal to noise ratio\n"); my_dtmf_gen_init(0.0f, -4, 0.0f, -4, 50, 50); for (j = -13; j > -50; j--) { awgn_init_dbm0(&noise_source, 1234567, (float) j); for (i = 0; i < 1000; i++) { len = my_dtmf_generate(amp, "1"); // TODO: Clip for (sample = 0; sample < len; sample++) amp[sample] = saturate(amp[sample] + awgn(&noise_source)); codec_munge(munge, amp, len); dtmf_rx(dtmf_state, amp, len); if (dtmf_rx_get(dtmf_state, buf, 128) != 1) break; } if (i == 1000) break; } printf(" Acceptable S/N ratio is %ddB\n", -4 - j); if (-4 - j > 26) { printf(" Failed\n"); exit(2); } printf(" Passed\n"); } /*- End of function --------------------------------------------------------*/ static void mitel_cm7291_side_2_and_bellcore_tests(void) { int i; int j; int len; int hits; int hit_types[256]; char buf[128 + 1]; SNDFILE *inhandle; int frames; dtmf_rx_state_t *dtmf_state; dtmf_state = dtmf_rx_init(NULL, NULL, NULL); if (use_dialtone_filter || max_forward_twist >= 0 || max_reverse_twist >= 0) dtmf_rx_parms(dtmf_state, use_dialtone_filter, max_forward_twist, max_reverse_twist, -99); /* The remainder of the Mitel tape is the talk-off test */ /* Here we use the Bellcore test tapes (much tougher), in six files - 1 from each side of the original 3 cassette tapes */ /* Bellcore say you should get no more than 470 false detections with a good receiver. Dialogic claim 20. Of course, we can do better than that, eh? */ printf("Test 8: Talk-off test\n"); memset(hit_types, '\0', sizeof(hit_types)); for (j = 0; bellcore_files[j][0]; j++) { if ((inhandle = sf_open_telephony_read(bellcore_files[j], 1)) == NULL) { printf(" Cannot open speech file '%s'\n", bellcore_files[j]); exit(2); } hits = 0; while ((frames = sf_readf_short(inhandle, amp, SAMPLE_RATE))) { dtmf_rx(dtmf_state, amp, frames); len = dtmf_rx_get(dtmf_state, buf, 128); if (len > 0) { for (i = 0; i < len; i++) hit_types[(int) buf[i]]++; hits += len; } } if (sf_close(inhandle) != 0) { printf(" Cannot close speech file '%s'\n", bellcore_files[j]); exit(2); } printf(" File %d gave %d false hits.\n", j + 1, hits); } for (i = 0, j = 0; i < 256; i++) { if (hit_types[i]) { printf(" Digit %c had %d false hits\n", i, hit_types[i]); j += hit_types[i]; } } printf(" %d hits in total\n", j); if (j > 470) { printf(" Failed\n"); exit(2); } printf(" Passed\n"); } /*- End of function --------------------------------------------------------*/ static void dial_tone_tolerance_tests(void) { int i; int j; int len; int sample; char buf[128 + 1]; dtmf_rx_state_t *dtmf_state; tone_gen_descriptor_t dial_tone_desc; tone_gen_state_t dial_tone; dtmf_state = dtmf_rx_init(NULL, NULL, NULL); if (use_dialtone_filter || max_forward_twist >= 0 || max_reverse_twist >= 0) dtmf_rx_parms(dtmf_state, use_dialtone_filter, max_forward_twist, max_reverse_twist, -99); /* Test dial tone tolerance */ printf("Test: Dial tone tolerance.\n"); my_dtmf_gen_init(0.0f, -15, 0.0f, -15, DEFAULT_DTMF_TX_ON_TIME, DEFAULT_DTMF_TX_OFF_TIME); for (j = -30; j < -3; j++) { tone_gen_descriptor_init(&dial_tone_desc, 350, j, 440, j, 1, 0, 0, 0, TRUE); tone_gen_init(&dial_tone, &dial_tone_desc); for (i = 0; i < 10; i++) { len = my_dtmf_generate(amp, ALL_POSSIBLE_DIGITS); tone_gen(&dial_tone, amp2, len); for (sample = 0; sample < len; sample++) amp[sample] = saturate(amp[sample] + amp2[sample]); codec_munge(munge, amp, len); dtmf_rx(dtmf_state, amp, len); if (dtmf_rx_get(dtmf_state, buf, 128) != strlen(ALL_POSSIBLE_DIGITS)) break; } if (i != 10) break; } printf(" Acceptable signal to dial tone ratio is %ddB\n", -15 - j); if ((use_dialtone_filter && (-15 - j) > -12) || (!use_dialtone_filter && (-15 - j) > 10)) { printf(" Failed\n"); exit(2); } printf(" Passed\n"); } /*- End of function --------------------------------------------------------*/ static void callback_function_tests(void) { int i; int j; int len; int sample; dtmf_rx_state_t *dtmf_state; /* Test the callback mode for delivering detected digits */ printf("Test: Callback digit delivery mode.\n"); callback_hit = FALSE; callback_ok = TRUE; callback_roll = 0; dtmf_state = dtmf_rx_init(NULL, digit_delivery, (void *) 0x12345678); if (use_dialtone_filter || max_forward_twist >= 0 || max_reverse_twist >= 0) dtmf_rx_parms(dtmf_state, use_dialtone_filter, max_forward_twist, max_reverse_twist, -99); my_dtmf_gen_init(0.0f, DEFAULT_DTMF_TX_LEVEL, 0.0f, DEFAULT_DTMF_TX_LEVEL, DEFAULT_DTMF_TX_ON_TIME, DEFAULT_DTMF_TX_OFF_TIME); for (i = 1; i < 10; i++) { len = 0; for (j = 0; j < i; j++) len += my_dtmf_generate(amp + len, ALL_POSSIBLE_DIGITS); dtmf_rx(dtmf_state, amp, len); if (!callback_hit || !callback_ok) break; } if (!callback_hit || !callback_ok) { printf(" Failed\n"); exit(2); } printf(" Passed\n"); /* Test the realtime callback mode for reporting detected digits */ printf("Test: Realtime callback digit delivery mode.\n"); callback_hit = FALSE; callback_ok = TRUE; callback_roll = 0; dtmf_rx_init(dtmf_state, NULL, NULL); dtmf_rx_set_realtime_callback(dtmf_state, digit_status, (void *) 0x12345678); if (use_dialtone_filter || max_forward_twist >= 0 || max_reverse_twist >= 0) dtmf_rx_parms(dtmf_state, use_dialtone_filter, max_forward_twist, max_reverse_twist, -99); my_dtmf_gen_init(0.0f, DEFAULT_DTMF_TX_LEVEL, 0.0f, DEFAULT_DTMF_TX_LEVEL, DEFAULT_DTMF_TX_ON_TIME, DEFAULT_DTMF_TX_OFF_TIME); step = 0; for (i = 1; i < 10; i++) { len = 0; for (j = 0; j < i; j++) len += my_dtmf_generate(amp + len, ALL_POSSIBLE_DIGITS); for (sample = 0, j = SAMPLES_PER_CHUNK; sample < len; sample += SAMPLES_PER_CHUNK, j = ((len - sample) >= SAMPLES_PER_CHUNK) ? SAMPLES_PER_CHUNK : (len - sample)) { dtmf_rx(dtmf_state, &[sample], j); if (!callback_ok) break; step += j; } if (!callback_hit || !callback_ok) break; } if (!callback_hit || !callback_ok) { printf(" Failed\n"); exit(2); } } /*- End of function --------------------------------------------------------*/ static void decode_test(const char *test_file) { int16_t amp[SAMPLES_PER_CHUNK]; SNDFILE *inhandle; dtmf_rx_state_t *dtmf_state; char buf[128 + 1]; int actual; int samples; int total; dtmf_state = dtmf_rx_init(NULL, NULL, NULL); if (use_dialtone_filter || max_forward_twist >= 0 || max_reverse_twist >= 0) dtmf_rx_parms(dtmf_state, use_dialtone_filter, max_forward_twist, max_reverse_twist, -99); /* We will decode the audio from a file. */ if ((inhandle = sf_open_telephony_read(decode_test_file, 1)) == NULL) { fprintf(stderr, " Cannot open audio file '%s'\n", decode_test_file); exit(2); } total = 0; while ((samples = sf_readf_short(inhandle, amp, SAMPLES_PER_CHUNK)) > 0) { codec_munge(munge, amp, samples); dtmf_rx(dtmf_state, amp, samples); //printf("Status 0x%X\n", dtmf_rx_status(dtmf_state)); if ((actual = dtmf_rx_get(dtmf_state, buf, 128)) > 0) printf("Received '%s'\n", buf); total += actual; } printf("%d digits received\n", total); } /*- End of function --------------------------------------------------------*/ int main(int argc, char *argv[]) { int duration; time_t now; int channel_codec; int opt; use_dialtone_filter = FALSE; channel_codec = MUNGE_CODEC_NONE; decode_test_file = NULL; max_forward_twist = -1; max_reverse_twist = -1; while ((opt = getopt(argc, argv, "c:d:F:fR:")) != -1) { switch (opt) { case 'c': channel_codec = atoi(optarg); break; case 'd': decode_test_file = optarg; break; case 'F': max_forward_twist = atoi(optarg); break; case 'f': use_dialtone_filter = TRUE; break; case 'R': max_reverse_twist = atoi(optarg); break; default: //usage(); exit(2); break; } } munge = codec_munge_init(channel_codec, 0); if (decode_test_file) { decode_test(decode_test_file); } else { time(&now); mitel_cm7291_side_1_tests(); mitel_cm7291_side_2_and_bellcore_tests(); dial_tone_tolerance_tests(); callback_function_tests(); printf(" Passed\n"); duration = time(NULL) - now; printf("Tests passed in %ds\n", duration); } return 0; } /*- End of function --------------------------------------------------------*/ /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/tests/media_monitor.cpp0000664000175000017500000002170611422612267017304 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * media_monitor.cpp - Display IP streaming media status, using the FLTK toolkit. * * Written by Steve Underwood * * Copyright (C) 2007 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License version 2, as * published by the Free Software Foundation. * * 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., 675 Mass Ave, Cambridge, MA 02139, USA. */ #ifdef HAVE_CONFIG_H #include "config.h" #endif #if defined(HAVE_FL_FL_H) && defined(HAVE_FL_FL_CARTESIAN_H) #define __STDC_LIMIT_MACROS #include #include #include #include #include #include #include #include #include #include #include #include #include "spandsp.h" #include "media_monitor.h" struct line_model_monitor_s { Fl_Double_Window *w; Fl_Group *c_right; Fl_Group *c_sent; Fl_Group *c_received; Ca_Canvas *canvas_sent; Ca_X_Axis *sent_x; Ca_Y_Axis *sent_y; Ca_Line *sent_re; double sent_re_plot[1000]; double sent_re_plot_min; double sent_re_plot_max; Ca_Canvas *canvas_received; Ca_X_Axis *received_x; Ca_Y_Axis *received_y; Ca_Line *received_delays; double received_delays_plot[4000]; double received_delays_plot_max; int min_diff; int max_diff; int highest_seq_no_seen; }; static int skip = 0; static struct line_model_monitor_s media; static struct line_model_monitor_s *s = &media; void media_monitor_rx(int seq_no, double departure_time, double arrival_time) { double fdiff; int diff; int i; if (s->received_delays) delete s->received_delays; s->canvas_received->current(s->canvas_received); fdiff = (arrival_time - departure_time)*1000.0; diff = (int) fdiff; if (diff < 0) diff = 0; else if (diff > 1999) diff = 1999; s->received_delays_plot[2*diff + 1]++; if (s->received_delays_plot[2*diff + 1] > s->received_delays_plot_max) { s->received_delays_plot_max = s->received_delays_plot[2*diff + 1]; s->received_y->maximum(s->received_delays_plot_max); } if (diff > s->max_diff) { s->max_diff = diff; s->received_x->maximum((double) s->max_diff); } if (diff < s->min_diff) { s->min_diff = diff - 1; s->received_x->minimum((double) s->min_diff); } s->received_delays = new Ca_Line(2000, s->received_delays_plot, 0, 0, FL_BLUE, CA_NO_POINT); if (s->sent_re) delete s->sent_re; s->canvas_sent->current(s->canvas_sent); if (seq_no > s->highest_seq_no_seen + 1) { for (i = s->highest_seq_no_seen + 1; i < seq_no; i++) s->sent_re_plot[2*(i%500) + 1] = 0.0; } s->sent_re_plot[2*(seq_no%500) + 1] = fdiff; if (fdiff > s->sent_re_plot_max) { s->sent_re_plot_max = fdiff; s->sent_y->maximum(s->sent_re_plot_max); } if (fdiff < s->sent_re_plot_min) { s->sent_re_plot_min = fdiff - 1.0; s->sent_y->minimum(s->sent_re_plot_min); } s->sent_re = new Ca_Line(500, s->sent_re_plot, 0, 0, FL_BLUE, CA_NO_POINT); if (seq_no > s->highest_seq_no_seen) s->highest_seq_no_seen = seq_no; if (++skip >= 100) { skip = 0; Fl::check(); } } /*- End of function --------------------------------------------------------*/ int start_media_monitor(void) { char buf[132 + 1]; float x; float y; int i; int len; len = 128; s->w = new Fl_Double_Window(465, 400, "IP streaming media monitor"); s->c_right = new Fl_Group(0, 0, 465, 405); s->c_sent = new Fl_Group(0, 0, 465, 200); s->c_sent->box(FL_DOWN_BOX); s->c_sent->align(FL_ALIGN_TOP | FL_ALIGN_INSIDE); s->c_sent->current(); s->canvas_sent = new Ca_Canvas(110, 35, 300, 100, "Packet delays"); s->canvas_sent->box(FL_PLASTIC_DOWN_BOX); s->canvas_sent->color(7); s->canvas_sent->align(FL_ALIGN_TOP); Fl_Group::current()->resizable(s->canvas_sent); s->canvas_sent->border(15); s->sent_x = new Ca_X_Axis(115, 135, 290, 30, "Packet"); s->sent_x->align(FL_ALIGN_BOTTOM); s->sent_x->minimum(0.0); s->sent_x->maximum(500.0); s->sent_x->label_format("%g"); s->sent_x->minor_grid_color(fl_gray_ramp(20)); s->sent_x->major_grid_color(fl_gray_ramp(15)); s->sent_x->label_grid_color(fl_gray_ramp(10)); s->sent_x->grid_visible(CA_LABEL_GRID | CA_ALWAYS_VISIBLE); s->sent_x->minor_grid_style(FL_DOT); s->sent_x->major_step(5); s->sent_x->label_step(1); s->sent_x->axis_align(CA_BOTTOM | CA_LINE); s->sent_x->axis_color(FL_BLACK); s->sent_x->current(); s->sent_y = new Ca_Y_Axis(60, 40, 50, 90, "Delay\n(ms)"); s->sent_y->align(FL_ALIGN_LEFT); s->sent_y->minimum(0.0); s->sent_y->maximum(2000.0); s->sent_y->minor_grid_color(fl_gray_ramp(20)); s->sent_y->major_grid_color(fl_gray_ramp(15)); s->sent_y->label_grid_color(fl_gray_ramp(10)); s->sent_y->grid_visible(CA_LABEL_GRID | CA_ALWAYS_VISIBLE); s->sent_y->minor_grid_style(FL_DOT); s->sent_y->major_step(5); s->sent_y->label_step(1); s->sent_y->axis_color(FL_BLACK); s->sent_y->current(); s->c_sent->end(); s->c_received = new Fl_Group(0, 200, 465, 200); s->c_received->box(FL_DOWN_BOX); s->c_received->align(FL_ALIGN_TOP | FL_ALIGN_INSIDE); s->c_received->current(); s->canvas_received = new Ca_Canvas(110, 235, 300, 100, "Delay spread"); s->canvas_received->box(FL_PLASTIC_DOWN_BOX); s->canvas_received->color(7); s->canvas_received->align(FL_ALIGN_TOP); Fl_Group::current()->resizable(s->canvas_received); s->canvas_received->border(15); s->received_x = new Ca_X_Axis(115, 335, 290, 30, "Delay (ms)"); s->received_x->align(FL_ALIGN_BOTTOM); s->received_x->minimum(0.0); s->received_x->maximum(2000.0); s->received_x->label_format("%g"); s->received_x->minor_grid_color(fl_gray_ramp(20)); s->received_x->major_grid_color(fl_gray_ramp(15)); s->received_x->label_grid_color(fl_gray_ramp(10)); s->received_x->grid_visible(CA_LABEL_GRID | CA_ALWAYS_VISIBLE); s->received_x->minor_grid_style(FL_DOT); s->received_x->major_step(5); s->received_x->label_step(1); s->received_x->axis_align(CA_BOTTOM | CA_LINE); s->received_x->axis_color(FL_BLACK); s->received_x->current(); s->received_y = new Ca_Y_Axis(60, 240, 50, 90, "Freq"); s->received_y->align(FL_ALIGN_LEFT); s->received_y->minimum(0.0); s->received_y->maximum(50.0); s->received_y->minor_grid_color(fl_gray_ramp(20)); s->received_y->major_grid_color(fl_gray_ramp(15)); s->received_y->label_grid_color(fl_gray_ramp(10)); s->received_y->grid_visible(CA_LABEL_GRID | CA_ALWAYS_VISIBLE); s->received_y->minor_grid_style(FL_DOT); s->received_y->major_step(5); s->received_y->label_step(1); s->received_y->axis_color(FL_BLACK); s->received_y->current(); for (i = 0; i < 2000; i++) s->received_delays_plot[2*i] = i; s->received_delays_plot_max = 0.0; s->min_diff = 2000; s->max_diff = 0; s->received_delays = NULL; s->highest_seq_no_seen = -1; for (i = 0; i < 500; i++) s->sent_re_plot[2*i] = i; s->sent_re_plot_min = 99999.0; s->sent_re_plot_max = 0.0; s->sent_re = NULL; s->c_received->end(); s->c_right->end(); Fl_Group::current()->resizable(s->c_right); s->w->end(); s->w->show(); Fl::check(); return 0; } /*- End of function --------------------------------------------------------*/ void media_monitor_wait_to_end(void) { fd_set rfds; int res; struct timeval tv; fprintf(stderr, "Processing complete. Press the key to end\n"); do { usleep(100000); Fl::check(); FD_ZERO(&rfds); FD_SET(0, &rfds); tv.tv_usec = 100000; tv.tv_sec = 0; res = select(1, &rfds, NULL, NULL, &tv); } while (res <= 0); } /*- End of function --------------------------------------------------------*/ void media_monitor_update_display(void) { Fl::check(); Fl::check(); Fl::check(); Fl::check(); Fl::check(); Fl::check(); Fl::check(); Fl::check(); Fl::check(); Fl::check(); Fl::check(); Fl::check(); } /*- End of function --------------------------------------------------------*/ #endif /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/tests/tsb85_extra_tests.sh0000775000175000017500000000173411422613737017705 0ustar steveusteveu#!/bin/sh # # spandsp fax tests # # This program is free software; you can redistribute it and/or modify # it under the terms of the GNU Lesser General Public License version 2.1, # as published by the Free Software Foundation. # # 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 Lesser General Public # License along with this program; if not, write to the Free Software # Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. run_tsb85_test() { rm -f fax_tests_1.tif echo ./tsb85_tests ${TEST} ./tsb85_tests -x ../spandsp/fax-tests.xml ${TEST} 2>xyzzy2 RETVAL=$? if [ $RETVAL != 0 ] then echo tsb85_tests ${TEST} failed! exit $RETVAL fi } for TEST in PPS-MPS-lost-PPS ; do run_tsb85_test done spandsp-0.0.6/tests/plc_tests.c0000664000175000017500000001220011422612267016103 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * plc_tests.c * * Written by Steve Underwood * * Copyright (C) 2004 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License version 2, as * published by the Free Software Foundation. * * 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., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \page plc_tests_page Packet loss concealment tests \section plc_tests_page_sec_1 What does it do? These tests run a speech file through the packet loss concealment routines. The loss rate, in percent, and the packet size, in samples, may be specified on the command line. \section plc_tests_page_sec_2 How are the tests run? These tests process a speech file called pre_plc.wav. This file should contain 8000 sample/second 16 bits/sample linear audio. The tests read this file in blocks, of a size specified on the command line. Some of these blocks are dropped, to simulate packet loss. The rate of loss is also specified on the command line. The PLC module is then used to reconstruct an acceptable approximation to the original signal. The resulting audio is written to a new audio file, called post_plc.wav. This file contains 8000 sample/second 16 bits/sample linear audio. */ #if defined(HAVE_CONFIG_H) #include "config.h" #endif #include #include #include #include #include #include "spandsp.h" #include "spandsp-sim.h" #define INPUT_FILE_NAME "../test-data/local/short_nb_voice.wav" #define OUTPUT_FILE_NAME "post_plc.wav" int main(int argc, char *argv[]) { SNDFILE *inhandle; SNDFILE *outhandle; plc_state_t plc; int inframes; int outframes; int16_t amp[1024]; int block_no; int lost_blocks; int block_len; int loss_rate; int dropit; int block_real; int block_synthetic; int tone; int i; uint32_t phase_acc; int32_t phase_rate; int opt; loss_rate = 25; block_len = 160; block_real = FALSE; block_synthetic = FALSE; tone = -1; while ((opt = getopt(argc, argv, "b:l:rst:")) != -1) { switch (opt) { case 'b': block_len = atoi(optarg); break; case 'l': loss_rate = atoi(optarg); break; case 'r': block_real = TRUE; break; case 's': block_synthetic = TRUE; break; case 't': tone = atoi(optarg); break; } } phase_rate = 0; inhandle = NULL; if (tone < 0) { if ((inhandle = sf_open_telephony_read(INPUT_FILE_NAME, 1)) == NULL) { fprintf(stderr, " Failed to open audio file '%s'\n", INPUT_FILE_NAME); exit(2); } } else { phase_rate = dds_phase_ratef((float) tone); } if ((outhandle = sf_open_telephony_write(OUTPUT_FILE_NAME, 1)) == NULL) { fprintf(stderr, " Failed to open audio file '%s'\n", OUTPUT_FILE_NAME); exit(2); } plc_init(&plc); lost_blocks = 0; for (block_no = 0; ; block_no++) { if (tone < 0) { inframes = sf_readf_short(inhandle, amp, block_len); if (inframes != block_len) break; } else { if (block_no > 10000) break; for (i = 0; i < block_len; i++) amp[i] = (int16_t) dds_modf(&phase_acc, phase_rate, 10000.0, 0); inframes = block_len; } dropit = rand()/(RAND_MAX/100); if (dropit > loss_rate) { plc_rx(&plc, amp, inframes); if (block_real) memset(amp, 0, sizeof(int16_t)*inframes); } else { lost_blocks++; plc_fillin(&plc, amp, inframes); if (block_synthetic) memset(amp, 0, sizeof(int16_t)*inframes); } outframes = sf_writef_short(outhandle, amp, inframes); if (outframes != inframes) { fprintf(stderr, " Error writing out sound\n"); exit(2); } } printf("Dropped %d of %d blocks\n", lost_blocks, block_no); if (tone < 0) { if (sf_close(inhandle) != 0) { fprintf(stderr, " Cannot close audio file '%s'\n", INPUT_FILE_NAME); exit(2); } } if (sf_close(outhandle) != 0) { fprintf(stderr, " Cannot close audio file '%s'\n", OUTPUT_FILE_NAME); exit(2); } return 0; } /*- End of function --------------------------------------------------------*/ /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/tests/image_translate_tests.c0000664000175000017500000003577011422612266020504 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * image_translate_tests.c - Tests for the image translation routines. * * Written by Steve Underwood * * Copyright (C) 2009 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License version 2, as * published by the Free Software Foundation. * * 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., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \file */ /*! \page image_translate_tests_page Image translation tests \section image_translate_tests_page_sec_1 What does it do? */ #if defined(HAVE_CONFIG_H) #include "config.h" #endif #include #include #include #include #include #include #include #include //#if defined(WITH_SPANDSP_INTERNALS) #define SPANDSP_EXPOSE_INTERNAL_STRUCTURES //#endif #include "spandsp.h" #define INPUT_TIFF_FILE_NAME "../test-data/local/lenna-colour.tif" typedef struct { const uint8_t *image; int width; int length; int current_row; int bytes_per_pixel; } image_descriptor_t; static void display_row(int row, int width, uint8_t buf[]) { int i; int test_pixel; printf("%3d: ", row); for (i = 0; i < width; i++) { test_pixel = (buf[i >> 3] >> (7 - (i & 7))) & 0x01; printf("%c", (test_pixel) ? ' ' : '@'); } printf("\n"); } /*- End of function --------------------------------------------------------*/ static int test_dithered_50_by_50(int row, int width, uint8_t buf[]) { static const char *image[50] = { " 0: @ @ @ @ @ @ @ @@ @@@@@@@@@@@@@@", " 1: @ @ @ @ @ @ @ @ @ @@ @@ @ @ @ @ @@@@", " 2: @ @ @ @ @ @ @ @@ @ @ @@@ @@@@@@ @@", " 3: @ @ @ @ @ @ @ @ @ @ @@@ @@@@ @@@@@@", " 4: @ @ @ @ @ @ @ @ @ @@@ @ @@ @@@@ @@@@", " 5: @ @ @ @ @ @ @ @ @ @ @ @ @@ @@@ @@@@@@", " 6: @ @ @ @ @ @ @@ @@@@ @@@ @@@ @@ @", " 7: @ @ @ @ @ @ @ @ @ @@ @@ @ @@ @@@@@@", " 8: @ @ @ @ @ @ @ @ @@@ @@@@@@@@@ @@@", " 9: @ @ @ @ @ @ @ @ @ @ @ @ @ @@ @ @ @ @@@@@", " 10: @ @ @ @ @ @@ @ @@ @@@@@@@@@@@@@", " 11: @ @ @ @ @ @ @ @ @ @@ @@ @ @ @@ @@ @@", " 12: @ @ @ @ @ @ @ @ @ @@ @@@@@@ @@@@@@@", " 13: @ @ @ @ @ @ @ @ @@ @ @ @ @ @@@@@ @@@", " 14: @ @ @ @ @ @ @ @@ @@@ @@@ @ @@@@@@", " 15: @ @ @ @ @ @ @ @ @ @ @ @ @@ @@@@@@@ @@", " 16: @ @ @ @ @ @ @ @ @@ @@ @@ @@ @@@@@", " 17: @ @ @ @ @ @ @ @ @ @@ @@ @@ @@ @@@@@@@", " 18: @ @ @ @ @ @ @ @ @ @ @ @@ @@@@@ @ @@@", " 19: @ @ @ @ @ @ @ @ @@@ @@@ @ @@@@@@@", " 20: @ @ @ @ @ @ @ @ @ @@ @ @@ @@@@@@ @@@ @", " 21: @ @ @ @ @ @ @ @@ @@ @ @ @@@@@@@", " 22: @ @ @ @ @ @@ @ @ @ @ @@ @@@@@@@ @@ @@", " 23: @ @ @ @ @ @ @ @@ @@ @@ @ @ @@@@@@@", " 24: @ @ @ @ @@ @ @ @@ @ @ @@@@@@ @@@@@", " 25: @ @ @ @ @ @ @ @ @ @ @@@@@ @ @@@@ @@", " 26: @ @ @ @ @ @ @ @ @ @@ @ @ @@@@ @@@@@", " 27: @ @ @ @ @ @ @ @ @ @@ @ @@ @@@ @@@@@@@", " 28: @ @ @ @ @ @ @ @ @@@ @@@ @@@ @@ @@", " 29: @ @ @ @ @ @ @ @ @@ @ @@ @ @@ @@@@@@@", " 30: @ @ @ @ @ @ @ @ @ @ @ @@@@@@@ @@@@@", " 31: @ @ @ @ @ @ @ @ @ @@@@ @ @ @@@@ @@", " 32: @ @ @ @ @ @ @ @ @ @@ @ @ @@@@@@@ @@@@@", " 33: @ @ @ @ @ @ @ @@@ @@ @ @ @@@@@@@", " 34: @ @ @ @ @ @ @ @ @ @ @ @ @@ @@@@@@ @ @@@", " 35: @ @ @ @ @ @ @ @ @ @@ @ @ @@@@@@@", " 36: @ @ @ @ @ @ @ @ @@ @@@ @@@@@@@ @@@ @", " 37: @ @ @ @ @ @ @ @ @ @ @@ @ @ @@@@@@@", " 38: @ @ @ @ @ @ @ @ @@ @@ @@@@@@@ @@ @@", " 39: @ @ @ @ @ @ @ @ @ @ @@ @@ @ @ @@@@@@@", " 40: @ @ @ @ @ @ @ @ @ @@ @@ @@@@ @@@@@", " 41: @ @ @ @ @ @ @ @ @ @@ @ @@ @@@ @@@@ @@", " 42: @ @ @ @ @ @ @@ @@ @@ @@ @@@ @@@@@", " 43: @ @ @ @ @ @ @ @ @ @ @@ @@@ @@@@@@@", " 44: @ @ @ @ @ @ @ @ @ @ @@@ @@@ @@@ @@ @@", " 45: @ @ @ @ @ @ @@ @ @ @ @@ @@@@@@@", " 46: @ @ @ @ @ @ @ @ @ @ @ @@ @@@@@@@@@ @@@@@", " 47: @ @ @ @ @ @ @ @ @ @@ @ @ @ @@@@ @@", " 48: @ @ @ @ @ @ @@ @ @@ @@@@@@ @@@@@", " 49: @ @ @ @ @ @ @ @ @ @ @ @@ @@ @ @ @@@@@@@" }; int i; int match; int ref_pixel; int test_pixel; match = 0; for (i = 0; i < width; i++) { ref_pixel = (image[row][i + 5] == ' '); test_pixel = (buf[i >> 3] >> (7 - (i & 7))) & 0x01; if (ref_pixel != test_pixel) match = -1; } return match; } /*- End of function --------------------------------------------------------*/ static int row_read(void *user_data, uint8_t buf[], size_t len) { image_descriptor_t *im; im = (image_descriptor_t *) user_data; if (im->current_row >= im->length) return 0; memcpy(buf, &im->image[im->current_row*im->width*im->bytes_per_pixel], len); im->current_row++; return len; } /*- End of function --------------------------------------------------------*/ static void get_flattened_image(image_translate_state_t *s, int compare) { int i; int len; uint8_t row_buf[5000]; for (i = 0; i < s->output_length; i++) { if ((len = image_translate_row(s, row_buf, (s->output_width + 7)/8)) != (s->output_width + 7)/8) { printf("Image finished early - %d %d\n", len, (s->output_width + 7)/8); exit(2); } display_row(i, s->output_width, row_buf); if (compare) { if (test_dithered_50_by_50(i, s->output_width, row_buf)) { printf("Dithered image mismatch at row %d\n", i); printf("Test failed\n"); exit(2); } } } if ((len = image_translate_row(s, row_buf, (s->output_width + 7)/8)) != 0) { printf("Image finished late - %d %d\n", len, (s->output_width + 7)/8); exit(2); } } /*- End of function --------------------------------------------------------*/ static void dither_tests_gray16(void) { int i; int j; image_translate_state_t bw; image_translate_state_t *s = &bw; uint16_t image[50*50]; image_descriptor_t im; printf("Dithering from a 16 bit per sample gray scale to bi-level\n"); im.image = (const uint8_t *) image; im.width = 50; im.length = 50; im.bytes_per_pixel = 2; im.current_row = 0; for (i = 0; i < im.length; i++) { for (j = 0; j < im.width; j++) image[i*im.width + j] = j*1200; } s = image_translate_init(s, IMAGE_TRANSLATE_FROM_GRAY_16, im.width, im.length, -1, row_read, &im); get_flattened_image(s, TRUE); } /*- End of function --------------------------------------------------------*/ static void dither_tests_gray8(void) { int i; int j; image_translate_state_t bw; image_translate_state_t *s = &bw; uint8_t image[50*50]; image_descriptor_t im; printf("Dithering from a 8 bit per sample gray scale to bi-level\n"); im.image = image; im.width = 50; im.length = 50; im.bytes_per_pixel = 1; im.current_row = 0; for (i = 0; i < im.length; i++) { for (j = 0; j < im.width; j++) image[i*im.width + j] = j*1200/256; } s = image_translate_init(s, IMAGE_TRANSLATE_FROM_GRAY_8, im.width, im.length, -1, row_read, &im); get_flattened_image(s, TRUE); } /*- End of function --------------------------------------------------------*/ static void dither_tests_colour16(void) { int i; int j; image_translate_state_t bw; image_translate_state_t *s = &bw; uint16_t image[50*50*3]; image_descriptor_t im; printf("Dithering from a 3x16 bit per sample colour to bi-level\n"); im.image = (const uint8_t *) image; im.width = 50; im.length = 50; im.bytes_per_pixel = 6; im.current_row = 0; for (i = 0; i < im.length; i++) { for (j = 0; j < im.width; j++) { image[i*3*im.width + 3*j + 0] = j*1200; image[i*3*im.width + 3*j + 1] = j*1200; image[i*3*im.width + 3*j + 2] = j*1200; } } s = image_translate_init(s, IMAGE_TRANSLATE_FROM_COLOUR_16, im.width, im.length, -1, row_read, &im); get_flattened_image(s, TRUE); } /*- End of function --------------------------------------------------------*/ static void dither_tests_colour8(void) { int i; int j; image_translate_state_t bw; image_translate_state_t *s = &bw; uint8_t image[50*50*3]; image_descriptor_t im; printf("Dithering from a 3x8 bit per sample colour to bi-level\n"); im.image = image; im.width = 50; im.length = 50; im.bytes_per_pixel = 3; im.current_row = 0; for (i = 0; i < im.length; i++) { for (j = 0; j < im.width; j++) { image[i*3*im.width + 3*j + 0] = j*1200/256; image[i*3*im.width + 3*j + 1] = j*1200/256; image[i*3*im.width + 3*j + 2] = j*1200/256; } } s = image_translate_init(s, IMAGE_TRANSLATE_FROM_COLOUR_8, im.width, im.length, -1, row_read, &im); get_flattened_image(s, TRUE); } /*- End of function --------------------------------------------------------*/ static void grow_tests_colour8(void) { int i; int j; image_translate_state_t resize; image_translate_state_t *s1 = &resize; uint8_t image[50*50*3]; image_descriptor_t im; printf("Image growth tests\n"); im.image = image; im.width = 50; im.length = 50; im.bytes_per_pixel = 3; im.current_row = 0; for (i = 0; i < im.length; i++) { for (j = 0; j < im.width; j++) { image[i*3*im.width + 3*j + 0] = j*1200/256; image[i*3*im.width + 3*j + 1] = j*1200/256; image[i*3*im.width + 3*j + 2] = j*1200/256; } } s1 = image_translate_init(s1, IMAGE_TRANSLATE_FROM_COLOUR_8, im.width, im.length, 200, row_read, &im); get_flattened_image(s1, FALSE); } /*- End of function --------------------------------------------------------*/ static void lenna_tests(int output_width, const char *file) { TIFF *in_file; TIFF *out_file; int image_width; int image_length; int output_length; uint8_t *image; uint8_t *image2; int len; int total; int16_t bits_per_sample; int16_t samples_per_pixel; int i; int n; image_translate_state_t bw; image_translate_state_t *s = &bw; image_descriptor_t im; printf("Dithering Lenna from colour to bi-level test\n"); if ((in_file = TIFFOpen(INPUT_TIFF_FILE_NAME, "r")) == NULL) return; image_width = 0; TIFFGetField(in_file, TIFFTAG_IMAGEWIDTH, &image_width); if (image_width <= 0) return; image_length = 0; TIFFGetField(in_file, TIFFTAG_IMAGELENGTH, &image_length); if (image_length <= 0) return; bits_per_sample = 0; TIFFGetField(in_file, TIFFTAG_BITSPERSAMPLE, &bits_per_sample); samples_per_pixel = 0; TIFFGetField(in_file, TIFFTAG_SAMPLESPERPIXEL, &samples_per_pixel); printf("Original image is %d x %d, %d bits per sample, %d samples per pixel\n", image_width, image_length, bits_per_sample, samples_per_pixel); if ((image = malloc(image_width*image_length*samples_per_pixel)) == NULL) return; for (total = 0, i = 0; i < 1000; i++) { len = TIFFReadEncodedStrip(in_file, i, &image[total], image_width*image_length*samples_per_pixel - total); if (len <= 0) break; total += len; if (total == image_width*image_length*samples_per_pixel) { printf("Done\n"); break; } } printf("Image size %d %d\n", total, image_width*image_length*samples_per_pixel); TIFFClose(in_file); im.image = image; im.width = image_width; im.length = image_length; im.current_row = 0; im.bytes_per_pixel = samples_per_pixel; s = image_translate_init(s, IMAGE_TRANSLATE_FROM_COLOUR_8, image_width, image_length, output_width, row_read, &im); output_width = image_translate_get_output_width(s); output_length = image_translate_get_output_length(s); if ((out_file = TIFFOpen(file, "w")) == NULL) return; TIFFSetField(out_file, TIFFTAG_IMAGEWIDTH, output_width); TIFFSetField(out_file, TIFFTAG_IMAGELENGTH, output_length); TIFFSetField(out_file, TIFFTAG_BITSPERSAMPLE, 1); TIFFSetField(out_file, TIFFTAG_ORIENTATION, ORIENTATION_TOPLEFT); TIFFSetField(out_file, TIFFTAG_SAMPLESPERPIXEL, 1); TIFFSetField(out_file, TIFFTAG_ROWSPERSTRIP, -1); TIFFSetField(out_file, TIFFTAG_PLANARCONFIG, PLANARCONFIG_CONTIG); TIFFSetField(out_file, TIFFTAG_PHOTOMETRIC, PHOTOMETRIC_MINISWHITE); TIFFSetField(out_file, TIFFTAG_FILLORDER, FILLORDER_LSB2MSB); TIFFSetField(out_file, TIFFTAG_PAGENUMBER, 0, 1); TIFFSetField(out_file, TIFFTAG_PHOTOMETRIC, PHOTOMETRIC_MINISWHITE); TIFFSetField(out_file, TIFFTAG_FILLORDER, FILLORDER_LSB2MSB); printf("Input %d x %d, output %d x %d\n", image_width, image_length, output_width, output_length); if ((image2 = malloc(output_width*output_length/8)) == NULL) return; memset(image2, 0, output_width*output_length/8); n = 0; for (i = 0; i < output_length; i++) n += image_translate_row(s, &image2[n], output_width/8); TIFFWriteEncodedStrip(out_file, 0, image2, output_width*output_length/8); TIFFWriteDirectory(out_file); TIFFClose(out_file); } /*- End of function --------------------------------------------------------*/ int main(int argc, char **argv) { #if 1 dither_tests_gray16(); dither_tests_gray8(); dither_tests_colour16(); dither_tests_colour8(); #endif #if 1 grow_tests_colour8(); #endif #if 1 lenna_tests(0, "lenna-bw.tif"); lenna_tests(1728, "lenna-bw-1728.tif"); lenna_tests(200, "lenna-bw-200.tif"); #endif printf("Tests passed.\n"); return 0; } /*- End of function --------------------------------------------------------*/ /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/tests/make_g168_css.c0000664000175000017500000002600711422612266016446 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * makecss.c - Create the composite source signal (CSS) for G.168 testing. * * Written by Steve Underwood * * Copyright (C) 2003 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License version 2, as * published by the Free Software Foundation. * * 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., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \page makecss_page CSS construction for G.168 testing \section makecss_page_sec_1 What does it do? ???. \section makecss_page_sec_2 How does it work? ???. */ #if defined(HAVE_CONFIG_H) #include "config.h" #endif #include #include #include #include #include #include #include #if defined(HAVE_FFTW3_H) #include #else #include #endif //#if defined(WITH_SPANDSP_INTERNALS) #define SPANDSP_EXPOSE_INTERNAL_STRUCTURES //#endif #include "spandsp.h" #include "spandsp/g168models.h" #if !defined(NULL) #define NULL (void *) 0 #endif #define FAST_SAMPLE_RATE 44100.0 #define C1_VOICED_SAMPLES 2144 /* 48.62ms at 44100 samples/second => 2144.142 */ #define C1_NOISE_SAMPLES 8820 /* 200ms at 44100 samples/second => 8820.0 */ #define C1_SILENCE_SAMPLES 4471 /* 101.38ms at 44100 samples/second => 4470.858 */ #define C3_VOICED_SAMPLES 3206 /* 72.69ms at 44100 samples/second => 3205.629 */ #define C3_NOISE_SAMPLES 8820 /* 200ms at 44100 samples/second => 8820.0 */ #define C3_SILENCE_SAMPLES 5614 /* 127.31ms at 44100 samples/second => 5614.371 */ static double scaling(double f, double start, double end, double start_gain, double end_gain) { double scale; scale = start_gain + (f - start)*(end_gain - start_gain)/(end - start); return scale; } /*- End of function --------------------------------------------------------*/ static double peak(const int16_t amp[], int len) { int16_t peak; int i; peak = 0; for (i = 0; i < len; i++) { if (abs(amp[i]) > peak) peak = abs(amp[i]); } return peak/32767.0; } /*- End of function --------------------------------------------------------*/ static double rms(const int16_t amp[], int len) { double ms; int i; ms = 0.0; for (i = 0; i < len; i++) ms += amp[i]*amp[i]; return sqrt(ms/len)/32767.0; } /*- End of function --------------------------------------------------------*/ static double rms_to_dbm0(double rms) { return 20.0*log10(rms) + DBM0_MAX_POWER; } /*- End of function --------------------------------------------------------*/ static double rms_to_db(double rms) { return 20.0*log10(rms); } /*- End of function --------------------------------------------------------*/ int main(int argc, char *argv[]) { #if defined(HAVE_FFTW3_H) double in[8192][2]; double out[8192][2]; #else fftw_complex in[8192]; fftw_complex out[8192]; #endif fftw_plan p; int16_t voiced_sound[8192]; int16_t noise_sound[8830]; int16_t silence_sound[8192]; int i; int outframes; int voiced_length; double f; double pk; double ms; double scale; SNDFILE *filehandle; SF_INFO info; awgn_state_t noise_source; memset(&info, 0, sizeof(info)); info.frames = 0; info.samplerate = FAST_SAMPLE_RATE; info.channels = 1; info.format = SF_FORMAT_WAV | SF_FORMAT_PCM_16; info.sections = 1; info.seekable = 1; if ((filehandle = sf_open("sound_c1.wav", SFM_WRITE, &info)) == NULL) { fprintf(stderr, " Failed to open result file\n"); exit(2); } printf("Generate C1\n"); /* The set of C1 voice samples is ready for use in the output file. */ voiced_length = sizeof(css_c1)/sizeof(css_c1[0]); for (i = 0; i < voiced_length; i++) voiced_sound[i] = css_c1[i]; pk = peak(voiced_sound, voiced_length); ms = rms(voiced_sound, voiced_length); printf("Voiced level = %.2fdB, crest factor = %.2fdB\n", rms_to_dbm0(ms), rms_to_db(pk/ms)); #if defined(HAVE_FFTW3_H) p = fftw_plan_dft_1d(8192, in, out, FFTW_BACKWARD, FFTW_ESTIMATE); #else p = fftw_create_plan(8192, FFTW_BACKWARD, FFTW_ESTIMATE); #endif for (i = 0; i < 8192; i++) { #if defined(HAVE_FFTW3_H) in[i][0] = 0.0; in[i][1] = 0.0; #else in[i].re = 0.0; in[i].im = 0.0; #endif } for (i = 1; i <= 3715; i++) { f = FAST_SAMPLE_RATE*i/8192.0; #if 1 if (f < 50.0) scale = -60.0; else if (f < 100.0) scale = scaling(f, 50.0, 100.0, -25.8, -12.8); else if (f < 200.0) scale = scaling(f, 100.0, 200.0, -12.8, 17.4); else if (f < 215.0) scale = scaling(f, 200.0, 215.0, 17.4, 17.8); else if (f < 500.0) scale = scaling(f, 215.0, 500.0, 17.8, 12.2); else if (f < 1000.0) scale = scaling(f, 500.0, 1000.0, 12.2, 7.2); else if (f < 2850.0) scale = scaling(f, 1000.0, 2850.0, 7.2, 0.0); else if (f < 3600.0) scale = scaling(f, 2850.0, 3600.0, 0.0, -2.0); else if (f < 3660.0) scale = scaling(f, 3600.0, 3660.0, -2.0, -20.0); else if (f < 3680.0) scale = scaling(f, 3600.0, 3680.0, -20.0, -30.0); else scale = -60.0; #else scale = 0.0; #endif #if defined(HAVE_FFTW3_H) in[i][0] = ((rand() >> 10) & 0x1) ? 1.0 : -1.0; in[i][0] *= pow(10.0, scale/20.0)*35.0; //305360 in[8192 - i][0] = -in[i][0]; #else in[i].re = ((rand() >> 10) & 0x1) ? 1.0 : -1.0; in[i].re *= pow(10.0, scale/20.0)*35.0; //305360 in[8192 - i].re = -in[i].re; #endif } #if defined(HAVE_FFTW3_H) fftw_execute(p); #else fftw_one(p, in, out); #endif for (i = 0; i < 8192; i++) { #if defined(HAVE_FFTW3_H) noise_sound[i] = out[i][1]; #else noise_sound[i] = out[i].im; #endif } pk = peak(noise_sound, 8192); ms = rms(noise_sound, 8192); printf("Noise level = %.2fdB, crest factor = %.2fdB\n", rms_to_dbm0(ms), rms_to_db(pk/ms)); for (i = 0; i < 8192; i++) silence_sound[i] = 0.0; for (i = 0; i < 16; i++) outframes = sf_writef_short(filehandle, voiced_sound, voiced_length); printf("%d samples of voice\n", 16*voiced_length); outframes = sf_writef_short(filehandle, noise_sound, 8192); outframes = sf_writef_short(filehandle, noise_sound, C1_NOISE_SAMPLES - 8192); printf("%d samples of noise\n", C1_NOISE_SAMPLES); outframes = sf_writef_short(filehandle, silence_sound, C1_SILENCE_SAMPLES); printf("%d samples of silence\n", C1_SILENCE_SAMPLES); /* Now phase invert the C1 set of voice samples. */ voiced_length = sizeof(css_c1)/sizeof(css_c1[0]); for (i = 0; i < voiced_length; i++) voiced_sound[i] = -css_c1[i]; pk = peak(voiced_sound, voiced_length); ms = rms(voiced_sound, voiced_length); printf("Voiced level = %.2fdB, crest factor = %.2fdB\n", rms_to_dbm0(ms), rms_to_db(pk/ms)); for (i = 0; i < 8192; i++) noise_sound[i] = -noise_sound[i]; for (i = 0; i < 16; i++) outframes = sf_writef_short(filehandle, voiced_sound, voiced_length); printf("%d samples of voice\n", 16*voiced_length); outframes = sf_writef_short(filehandle, noise_sound, 8192); outframes = sf_writef_short(filehandle, noise_sound, C1_NOISE_SAMPLES - 8192); printf("%d samples of noise\n", C1_NOISE_SAMPLES); outframes = sf_writef_short(filehandle, silence_sound, C1_SILENCE_SAMPLES); printf("%d samples of silence\n", C1_SILENCE_SAMPLES); if (sf_close(filehandle) != 0) { fprintf(stderr, " Cannot close speech file '%s'\n", "sound_c1.wav"); exit(2); } memset(&info, 0, sizeof(info)); info.frames = 0; info.samplerate = FAST_SAMPLE_RATE; info.channels = 1; info.format = SF_FORMAT_WAV | SF_FORMAT_PCM_16; info.sections = 1; info.seekable = 1; if ((filehandle = sf_open("sound_c3.wav", SFM_WRITE, &info)) == NULL) { fprintf(stderr, " Failed to open result file\n"); exit(2); } printf("Generate C3\n"); /* Take the supplied set of C3 voice samples. */ voiced_length = (sizeof(css_c3)/sizeof(css_c3[0])); for (i = 0; i < voiced_length; i++) voiced_sound[i] = css_c3[i]; pk = peak(voiced_sound, voiced_length); ms = rms(voiced_sound, voiced_length); printf("Voiced level = %.2fdB, crest factor = %.2fdB\n", rms_to_dbm0(ms), rms_to_db(pk/ms)); awgn_init_dbm0(&noise_source, 7162534, rms_to_dbm0(ms)); for (i = 0; i < 8192; i++) noise_sound[i] = awgn(&noise_source); pk = peak(noise_sound, 8192); ms = rms(noise_sound, 8192); printf("Noise level = %.2fdB, crest factor = %.2fdB\n", rms_to_dbm0(ms), rms_to_db(pk/ms)); for (i = 0; i < 14; i++) outframes = sf_writef_short(filehandle, voiced_sound, voiced_length); printf("%d samples of voice\n", 14*voiced_length); outframes = sf_writef_short(filehandle, noise_sound, 8192); outframes = sf_writef_short(filehandle, noise_sound, C3_NOISE_SAMPLES - 8192); printf("%d samples of noise\n", C3_NOISE_SAMPLES); outframes = sf_writef_short(filehandle, silence_sound, C3_SILENCE_SAMPLES); printf("%d samples of silence\n", C3_SILENCE_SAMPLES); /* Now phase invert the set of voice samples. */ voiced_length = (sizeof(css_c3)/sizeof(css_c3[0])); for (i = 0; i < voiced_length; i++) voiced_sound[i] = -css_c3[i]; pk = peak(voiced_sound, voiced_length); ms = rms(voiced_sound, voiced_length); printf("Voiced level = %.2fdB, crest factor = %.2fdB\n", rms_to_dbm0(ms), rms_to_db(pk/ms)); /* Now phase invert the set of noise samples. */ for (i = 0; i < 8192; i++) noise_sound[i] = -noise_sound[i]; for (i = 0; i < 14; i++) outframes = sf_writef_short(filehandle, voiced_sound, voiced_length); printf("%d samples of voice\n", 14*i); outframes = sf_writef_short(filehandle, noise_sound, 8192); outframes = sf_writef_short(filehandle, noise_sound, C3_NOISE_SAMPLES - 8192); printf("%d samples of noise\n", C3_NOISE_SAMPLES); outframes = sf_writef_short(filehandle, silence_sound, C3_SILENCE_SAMPLES); printf("%d samples of silence\n", C3_SILENCE_SAMPLES); if (sf_close(filehandle) != 0) { fprintf(stderr, " Cannot close speech file '%s'\n", "sound_c3.wav"); exit(2); } fftw_destroy_plan(p); return 0; } /*- End of function --------------------------------------------------------*/ /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/tests/vector_float_tests.c0000664000175000017500000003650311422612267020030 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * vector_float_tests.c * * Written by Steve Underwood * * Copyright (C) 2006 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License version 2, as * published by the Free Software Foundation. * * 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., 675 Mass Ave, Cambridge, MA 02139, USA. */ #if defined(HAVE_CONFIG_H) #include "config.h" #endif #include #include #include #include #include "spandsp.h" static void vec_copyf_dumb(float z[], const float x[], int n) { int i; for (i = 0; i < n; i++) z[i] = x[i]; } /*- End of function --------------------------------------------------------*/ static int test_vec_copyf(void) { int i; float x[100]; float za[100]; float zb[100]; printf("Testing vec_copyf()\n"); for (i = 0; i < 99; i++) { x[i] = i; za[i] = -1.0f; zb[i] = -1.0f; } vec_copyf_dumb(za + 3, x + 1, 0); vec_copyf(zb + 3, x + 1, 0); for (i = 0; i < 99; i++) { if (za[i] != zb[i]) { printf("vec_copyf() - %d %f %f\n", i, za[i], zb[i]); printf("Tests failed\n"); exit(2); } } vec_copyf_dumb(za + 3, x + 1, 1); vec_copyf(zb + 3, x + 1, 1); for (i = 0; i < 99; i++) { if (za[i] != zb[i]) { printf("vec_copyf() - %d %f %f\n", i, za[i], zb[i]); printf("Tests failed\n"); exit(2); } } vec_copyf_dumb(za + 3, x + 1, 29); vec_copyf(zb + 3, x + 1, 29); for (i = 0; i < 99; i++) { if (za[i] != zb[i]) { printf("vec_copyf() - %d %f %f\n", i, za[i], zb[i]); printf("Tests failed\n"); exit(2); } } return 0; } /*- End of function --------------------------------------------------------*/ static void vec_negatef_dumb(float z[], const float x[], int n) { int i; for (i = 0; i < n; i++) z[i] = -x[i]; } /*- End of function --------------------------------------------------------*/ static int test_vec_negatef(void) { int i; float x[100]; float za[100]; float zb[100]; printf("Testing vec_negatef()\n"); for (i = 0; i < 99; i++) { x[i] = i; za[i] = -1.0f; zb[i] = -1.0f; } vec_negatef_dumb(za + 3, x + 1, 0); vec_negatef(zb + 3, x + 1, 0); for (i = 0; i < 99; i++) { if (za[i] != zb[i]) { printf("vec_negatef() - %d %f %f\n", i, za[i], zb[i]); printf("Tests failed\n"); exit(2); } } vec_negatef_dumb(za + 3, x + 1, 1); vec_negatef(zb + 3, x + 1, 1); for (i = 0; i < 99; i++) { if (za[i] != zb[i]) { printf("vec_megatef() - %d %f %f\n", i, za[i], zb[i]); printf("Tests failed\n"); exit(2); } } vec_negatef_dumb(za + 3, x + 1, 29); vec_negatef(zb + 3, x + 1, 29); for (i = 0; i < 99; i++) { if (za[i] != zb[i]) { printf("vec_negatef() - %d %f %f\n", i, za[i], zb[i]); printf("Tests failed\n"); exit(2); } } return 0; } /*- End of function --------------------------------------------------------*/ static void vec_zerof_dumb(float z[], int n) { int i; for (i = 0; i < n; i++) z[i] = 0.0f; } /*- End of function --------------------------------------------------------*/ static int test_vec_zerof(void) { int i; float za[100]; float zb[100]; printf("Testing vec_zerof()\n"); for (i = 0; i < 99; i++) { za[i] = -1.0f; zb[i] = -1.0f; } vec_zerof_dumb(za + 3, 0); vec_zerof(zb + 3, 0); for (i = 0; i < 99; i++) { if (za[i] != zb[i]) { printf("vec_zerof() - %d %f %f\n", i, za[i], zb[i]); printf("Tests failed\n"); exit(2); } } vec_zerof_dumb(za + 3, 1); vec_zerof(zb + 3, 1); for (i = 0; i < 99; i++) { if (za[i] != zb[i]) { printf("vec_zerof() - %d %f %f\n", i, za[i], zb[i]); printf("Tests failed\n"); exit(2); } } vec_zerof_dumb(za + 3, 29); vec_zerof(zb + 3, 29); for (i = 0; i < 99; i++) { if (za[i] != zb[i]) { printf("vec_zerof() - %d %f %f\n", i, za[i], zb[i]); printf("Tests failed\n"); exit(2); } } return 0; } /*- End of function --------------------------------------------------------*/ static void vec_setf_dumb(float z[], float x, int n) { int i; for (i = 0; i < n; i++) z[i] = x; } /*- End of function --------------------------------------------------------*/ static int test_vec_setf(void) { int i; float za[100]; float zb[100]; printf("Testing vec_setf()\n"); for (i = 0; i < 99; i++) { za[i] = -1.0f; zb[i] = -1.0f; } vec_setf_dumb(za + 3, 42.0f, 0); vec_setf(zb + 3, 42.0f, 0); for (i = 0; i < 99; i++) { if (za[i] != zb[i]) { printf("vec_setf() - %d %f %f\n", i, za[i], zb[i]); printf("Tests failed\n"); exit(2); } } vec_setf_dumb(za + 3, 42.0f, 1); vec_setf(zb + 3, 42.0f, 1); for (i = 0; i < 99; i++) { if (za[i] != zb[i]) { printf("vec_setf() - %d %f %f\n", i, za[i], zb[i]); printf("Tests failed\n"); exit(2); } } vec_setf_dumb(za + 3, 42.0f, 29); vec_setf(zb + 3, 42.0f, 29); for (i = 0; i < 99; i++) { if (za[i] != zb[i]) { printf("vec_setf() - %d %f %f\n", i, za[i], zb[i]); printf("Tests failed\n"); exit(2); } } return 0; } /*- End of function --------------------------------------------------------*/ static double vec_dot_prod_dumb(const double x[], const double y[], int n) { int i; double z; z = 0.0; for (i = 0; i < n; i++) z += x[i]*y[i]; return z; } /*- End of function --------------------------------------------------------*/ static int test_vec_dot_prod(void) { int i; double x[100]; double y[100]; double zsa; double zsb; double ratio; printf("Testing vec_dot_prod()\n"); for (i = 0; i < 99; i++) { x[i] = rand(); y[i] = rand(); } for (i = 1; i < 99; i++) { zsa = vec_dot_prod(x, y, i); zsb = vec_dot_prod_dumb(x, y, i); ratio = zsa/zsb; if (ratio < 0.9999 || ratio > 1.0001) { printf("vec_dot_prod() - %f %f\n", zsa, zsb); printf("Tests failed\n"); exit(2); } } return 0; } /*- End of function --------------------------------------------------------*/ static float vec_dot_prodf_dumb(const float x[], const float y[], int n) { int i; float z; z = 0.0; for (i = 0; i < n; i++) z += x[i]*y[i]; return z; } /*- End of function --------------------------------------------------------*/ static int test_vec_dot_prodf(void) { int i; float x[100]; float y[100]; float zsa; float zsb; float ratio; printf("Testing vec_dot_prodf()\n"); for (i = 0; i < 99; i++) { x[i] = rand(); y[i] = rand(); } for (i = 1; i < 99; i++) { zsa = vec_dot_prodf(x, y, i); zsb = vec_dot_prodf_dumb(x, y, i); ratio = zsa/zsb; if (ratio < 0.9999f || ratio > 1.0001f) { printf("vec_dot_prodf() - %e %e\n", zsa, zsb); printf("Tests failed\n"); exit(2); } } return 0; } /*- End of function --------------------------------------------------------*/ static void vec_addf_dumb(float z[], const float x[], const float y[], int n) { int i; for (i = 0; i < n; i++) z[i] = x[i] + y[i]; } /*- End of function --------------------------------------------------------*/ static int test_vec_addf(void) { int i; int j; float x[100]; float y[100]; float zsa[100]; float zsb[100]; float ratio; printf("Testing vec_addf()\n"); for (i = 0; i < 99; i++) { x[i] = rand(); y[i] = rand(); } for (i = 1; i < 90; i++) { /* Force address misalignment, to check this works OK */ vec_addf(zsa + 1, x + 1, y + 1, i); vec_addf_dumb(zsb + 1, x + 1, y + 1, i); for (j = 1; j <= i; j++) { ratio = zsa[j]/zsb[j]; if (ratio < 0.9999f || ratio > 1.0001f) { printf("vec_mulf() - %d %e %e\n", j, zsa[j], zsb[j]); printf("Tests failed\n"); exit(2); } } } return 0; } /*- End of function --------------------------------------------------------*/ static void vec_subf_dumb(float z[], const float x[], const float y[], int n) { int i; for (i = 0; i < n; i++) z[i] = x[i] - y[i]; } /*- End of function --------------------------------------------------------*/ static int test_vec_subf(void) { int i; int j; float x[100]; float y[100]; float zsa[100]; float zsb[100]; float ratio; printf("Testing vec_subf()\n"); for (i = 0; i < 99; i++) { x[i] = rand(); y[i] = rand(); } for (i = 1; i < 90; i++) { /* Force address misalignment, to check this works OK */ vec_subf(zsa + 1, x + 1, y + 1, i); vec_subf_dumb(zsb + 1, x + 1, y + 1, i); for (j = 1; j <= i; j++) { ratio = zsa[j]/zsb[j]; if (ratio < 0.9999f || ratio > 1.0001f) { printf("vec_mulf() - %d %e %e\n", j, zsa[j], zsb[j]); printf("Tests failed\n"); exit(2); } } } return 0; } /*- End of function --------------------------------------------------------*/ static void vec_mulf_dumb(float z[], const float x[], const float y[], int n) { int i; for (i = 0; i < n; i++) z[i] = x[i]*y[i]; } /*- End of function --------------------------------------------------------*/ static int test_vec_mulf(void) { int i; int j; float x[100]; float y[100]; float zsa[100]; float zsb[100]; float ratio; printf("Testing vec_mulf()\n"); for (i = 0; i < 99; i++) { x[i] = rand(); y[i] = rand(); } for (i = 1; i < 90; i++) { /* Force address misalignment, to check this works OK */ vec_mulf(zsa + 1, x + 1, y + 1, i); vec_mulf_dumb(zsb + 1, x + 1, y + 1, i); for (j = 1; j <= i; j++) { ratio = zsa[j]/zsb[j]; if (ratio < 0.9999f || ratio > 1.0001f) { printf("vec_mulf() - %d %e %e\n", j, zsa[j], zsb[j]); printf("Tests failed\n"); exit(2); } } } return 0; } /*- End of function --------------------------------------------------------*/ #define LMS_LEAK_RATE 0.9999f static void vec_lmsf_dumb(const float x[], float y[], int n, float error) { int i; for (i = 0; i < n; i++) { /* Leak a little to tame uncontrolled wandering */ y[i] = y[i]*LMS_LEAK_RATE + x[i]*error; } } /*- End of function --------------------------------------------------------*/ static int test_vec_lmsf(void) { int i; int j; float x[100]; float ya[100]; float yb[100]; float ratio; printf("Testing vec_lmsf()\n"); for (i = 0; i < 99; i++) { x[i] = rand(); ya[i] = yb[i] = rand(); } for (i = 1; i < 99; i++) { vec_lmsf(x, ya, i, 0.1f); vec_lmsf_dumb(x, yb, i, 0.1f); for (j = 0; j < i; j++) { ratio = ya[j]/yb[j]; if (ratio < 0.9999f || ratio > 1.0001f) { printf("vec_lmsf() - %d %e %e\n", j, ya[j], yb[j]); printf("Tests failed\n"); exit(2); } } } return 0; } /*- End of function --------------------------------------------------------*/ static void vec_scaledxy_addf_dumb(float z[], const float x[], float x_scale, const float y[], float y_scale, int n) { int i; for (i = 0; i < n; i++) z[i] = x[i]*x_scale + y[i]*y_scale; } /*- End of function --------------------------------------------------------*/ static int test_vec_scaledxy_addf(void) { int i; int j; float x[100]; float y[100]; float za[100]; float zb[100]; float ratio; printf("Testing vec_scaledxy_addf()\n"); for (i = 0; i < 99; i++) { x[i] = rand(); y[i] = rand(); } for (i = 1; i < 99; i++) { vec_scaledxy_addf(za, x, 2.5f, y, 1.5f, i); vec_scaledxy_addf_dumb(zb, x, 2.5f, y, 1.5f, i); for (j = 0; j < i; j++) { ratio = za[j]/zb[j]; if (ratio < 0.9999f || ratio > 1.0001f) { printf("vec_scaledxy_addf() - %d %e %e\n", j, za[j], zb[j]); printf("Tests failed\n"); exit(2); } } } return 0; } /*- End of function --------------------------------------------------------*/ static void vec_scaledy_addf_dumb(float z[], const float x[], const float y[], float y_scale, int n) { int i; for (i = 0; i < n; i++) z[i] = x[i] + y[i]*y_scale; } /*- End of function --------------------------------------------------------*/ static int test_vec_scaledy_addf(void) { int i; int j; float x[100]; float y[100]; float za[100]; float zb[100]; float ratio; printf("Testing vec_scaledy_addf()\n"); for (i = 0; i < 99; i++) { x[i] = rand(); y[i] = rand(); } for (i = 1; i < 99; i++) { vec_scaledy_addf(za, x, y, 1.5f, i); vec_scaledy_addf_dumb(zb, x, y, 1.5f, i); for (j = 0; j < i; j++) { ratio = za[j]/zb[j]; if (ratio < 0.9999f || ratio > 1.0001f) { printf("vec_scaledy_addf() - %d %e %e\n", j, za[j], zb[j]); printf("Tests failed\n"); exit(2); } } } return 0; } /*- End of function --------------------------------------------------------*/ int main(int argc, char *argv[]) { test_vec_copyf(); test_vec_negatef(); test_vec_zerof(); test_vec_setf(); test_vec_addf(); test_vec_subf(); test_vec_mulf(); test_vec_scaledxy_addf(); test_vec_scaledy_addf(); test_vec_dot_prod(); test_vec_dot_prodf(); test_vec_lmsf(); printf("Tests passed.\n"); return 0; } /*- End of function --------------------------------------------------------*/ /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/tests/media_monitor.h0000664000175000017500000000336411422612267016751 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * media_monitor.h - Display IP streaming media status, using the FLTK toolkit. * * Written by Steve Underwood * * Copyright (C) 2007 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License version 2, as * published by the Free Software Foundation. * * 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., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \page media_monitor_page IP streaming media performance monitoring \section media_monitor_page_sec_1 What does it do? This code controls a GUI window, which provides monitoring of the status of an IP media stream. It shows, graphically: \section media_monitor_page_sec_2 How does it work? This code uses the FLTK cross platform GUI toolkit. It works on X11 and Windows platforms. In addition to the basic FLTK toolkit, fltk_cartesian is also required. */ #if !defined(_MEDIA_MONITOR_H_) #define _MEDIA_MONITOR_H_ #if defined(__cplusplus) extern "C" { #endif int start_media_monitor(void); void media_monitor_rx(int seq_no, double departure_time, double arrival_time); void media_monitor_wait_to_end(void); void media_monitor_update_display(void); #if defined(__cplusplus) } #endif #endif /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/tests/t38_terminal_tests.c0000664000175000017500000003327711422612267017657 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * t38_terminal_tests.c - Tests for the T.38 FoIP terminal module. * * Written by Steve Underwood * * Copyright (C) 2005, 2006 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License version 2, as * published by the Free Software Foundation. * * 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., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \file */ /*! \page t38_terminal_tests_page T.38 termination tests \section t38_terminal_tests_page_sec_1 What does it do? These tests exercise the path T.38 termination <-> T.38 termination */ //#define WITH_SPANDSP_INTERNALS #if defined(HAVE_CONFIG_H) #include #endif #if defined(HAVE_FL_FL_H) && defined(HAVE_FL_FL_CARTESIAN_H) && defined(HAVE_FL_FL_AUDIO_METER_H) #define ENABLE_GUI #endif #include #include #include #include #include #include #if !defined(_WIN32) #include #endif //#if defined(WITH_SPANDSP_INTERNALS) #define SPANDSP_EXPOSE_INTERNAL_STRUCTURES //#endif #include "spandsp.h" #include "spandsp-sim.h" #if defined(ENABLE_GUI) #include "media_monitor.h" #endif #include "fax_utils.h" #define SAMPLES_PER_CHUNK 160 #define INPUT_FILE_NAME "../test-data/itu/fax/itutests.tif" #define OUTPUT_FILE_NAME "t38.tif" t38_terminal_state_t *t38_state_a; t38_terminal_state_t *t38_state_b; g1050_state_t *path_a_to_b; g1050_state_t *path_b_to_a; double when = 0.0; int done[2] = {FALSE, FALSE}; int succeeded[2] = {FALSE, FALSE}; int simulate_incrementing_repeats = FALSE; static int phase_b_handler(t30_state_t *s, void *user_data, int result) { int i; char tag[20]; i = (int) (intptr_t) user_data; snprintf(tag, sizeof(tag), "%c: Phase B", i); printf("%c: Phase B handler on channel %c - (0x%X) %s\n", i, i, result, t30_frametype(result)); log_rx_parameters(s, tag); return T30_ERR_OK; } /*- End of function --------------------------------------------------------*/ static int phase_d_handler(t30_state_t *s, void *user_data, int result) { int i; char tag[20]; i = (int) (intptr_t) user_data; snprintf(tag, sizeof(tag), "%c: Phase D", i); printf("%c: Phase D handler on channel %c - (0x%X) %s\n", i, i, result, t30_frametype(result)); log_transfer_statistics(s, tag); log_tx_parameters(s, tag); log_rx_parameters(s, tag); return T30_ERR_OK; } /*- End of function --------------------------------------------------------*/ static void phase_e_handler(t30_state_t *s, void *user_data, int result) { int i; t30_stats_t t; char tag[20]; i = (int) (intptr_t) user_data; snprintf(tag, sizeof(tag), "%c: Phase E", i); printf("%c: Phase E handler on channel %c - (%d) %s\n", i, i, result, t30_completion_code_to_str(result)); log_transfer_statistics(s, tag); log_tx_parameters(s, tag); log_rx_parameters(s, tag); t30_get_transfer_statistics(s, &t); succeeded[i - 'A'] = (result == T30_ERR_OK) && (t.pages_tx == 12 || t.pages_rx == 12); //done[i - 'A'] = TRUE; } /*- End of function --------------------------------------------------------*/ static int tx_packet_handler_a(t38_core_state_t *s, void *user_data, const uint8_t *buf, int len, int count) { t38_terminal_state_t *t; int i; static int subst_seq = 0; /* This routine queues messages between two instances of T.38 processing */ t = (t38_terminal_state_t *) user_data; if (simulate_incrementing_repeats) { for (i = 0; i < count; i++) { span_log(&s->logging, SPAN_LOG_FLOW, "Send seq %d, len %d\n", subst_seq, len); if (g1050_put(path_a_to_b, buf, len, subst_seq, when) < 0) printf("Lost packet %d\n", subst_seq); subst_seq = (subst_seq + 1) & 0xFFFF; } } else { span_log(&s->logging, SPAN_LOG_FLOW, "Send seq %d, len %d, count %d\n", s->tx_seq_no, len, count); for (i = 0; i < count; i++) { if (g1050_put(path_a_to_b, buf, len, s->tx_seq_no, when) < 0) printf("Lost packet %d\n", s->tx_seq_no); } } return 0; } /*- End of function --------------------------------------------------------*/ static int tx_packet_handler_b(t38_core_state_t *s, void *user_data, const uint8_t *buf, int len, int count) { t38_terminal_state_t *t; int i; static int subst_seq = 0; /* This routine queues messages between two instances of T.38 processing */ t = (t38_terminal_state_t *) user_data; if (simulate_incrementing_repeats) { for (i = 0; i < count; i++) { span_log(&s->logging, SPAN_LOG_FLOW, "Send seq %d, len %d\n", subst_seq, len); g1050_put(path_b_to_a, buf, len, subst_seq, when); subst_seq = (subst_seq + 1) & 0xFFFF; } } else { span_log(&s->logging, SPAN_LOG_FLOW, "Send seq %d, len %d, count %d\n", s->tx_seq_no, len, count); for (i = 0; i < count; i++) g1050_put(path_b_to_a, buf, len, s->tx_seq_no, when); } return 0; } /*- End of function --------------------------------------------------------*/ int main(int argc, char *argv[]) { int msg_len; uint8_t msg[1024]; int t38_version; int seq_no; int use_ecm; int options; int use_tep; int g1050_model_no; int g1050_speed_pattern_no; const char *input_file_name; double tx_when; double rx_when; int use_gui; int supported_modems; int opt; t30_state_t *t30; t38_core_state_t *t38_core; logging_state_t *logging; t38_version = 1; options = 0; use_tep = FALSE; input_file_name = INPUT_FILE_NAME; use_ecm = FALSE; simulate_incrementing_repeats = FALSE; g1050_model_no = 0; g1050_speed_pattern_no = 1; use_gui = FALSE; supported_modems = T30_SUPPORT_V27TER | T30_SUPPORT_V29 | T30_SUPPORT_V17; while ((opt = getopt(argc, argv, "efgi:Im:M:o:s:tv:")) != -1) { switch (opt) { case 'e': use_ecm = TRUE; break; case 'g': #if defined(ENABLE_GUI) use_gui = TRUE; #else fprintf(stderr, "Graphical monitoring not available\n"); exit(2); #endif break; case 'i': input_file_name = optarg; break; case 'I': simulate_incrementing_repeats = TRUE; break; case 'm': supported_modems = atoi(optarg); break; case 'M': g1050_model_no = optarg[0] - 'A' + 1; break; case 'o': options = atoi(optarg); break; case 's': g1050_speed_pattern_no = atoi(optarg); break; case 't': use_tep = TRUE; break; case 'v': t38_version = atoi(optarg); break; default: //usage(); exit(2); break; } } printf("Using T.38 version %d\n", t38_version); if (use_ecm) printf("Using ECM\n"); srand48(0x1234567); if ((path_a_to_b = g1050_init(g1050_model_no, g1050_speed_pattern_no, 100, 33)) == NULL) { fprintf(stderr, "Failed to start IP network path model\n"); exit(2); } if ((path_b_to_a = g1050_init(g1050_model_no, g1050_speed_pattern_no, 100, 33)) == NULL) { fprintf(stderr, "Failed to start IP network path model\n"); exit(2); } if ((t38_state_a = t38_terminal_init(NULL, TRUE, tx_packet_handler_a, t38_state_b)) == NULL) { fprintf(stderr, "Cannot start the T.38 channel\n"); exit(2); } t30 = t38_terminal_get_t30_state(t38_state_a); t38_core = t38_terminal_get_t38_core_state(t38_state_a); t38_set_t38_version(t38_core, t38_version); t38_terminal_set_config(t38_state_a, options); t38_terminal_set_tep_mode(t38_state_a, use_tep); logging = t38_terminal_get_logging_state(t38_state_a); span_log_set_level(logging, SPAN_LOG_DEBUG | SPAN_LOG_SHOW_TAG | SPAN_LOG_SHOW_SAMPLE_TIME); span_log_set_tag(logging, "T.38-A"); logging = t38_core_get_logging_state(t38_core); span_log_set_level(logging, SPAN_LOG_DEBUG | SPAN_LOG_SHOW_TAG | SPAN_LOG_SHOW_SAMPLE_TIME); span_log_set_tag(logging, "T.38-A"); logging = t30_get_logging_state(t30); span_log_set_level(logging, SPAN_LOG_DEBUG | SPAN_LOG_SHOW_TAG | SPAN_LOG_SHOW_SAMPLE_TIME); span_log_set_tag(logging, "T.38-A"); t30_set_supported_modems(t30, supported_modems); t30_set_tx_ident(t30, "11111111"); t30_set_tx_nsf(t30, (const uint8_t *) "\x50\x00\x00\x00Spandsp\x00", 12); t30_set_tx_file(t30, input_file_name, -1, -1); t30_set_phase_b_handler(t30, phase_b_handler, (void *) (intptr_t) 'A'); t30_set_phase_d_handler(t30, phase_d_handler, (void *) (intptr_t) 'A'); t30_set_phase_e_handler(t30, phase_e_handler, (void *) (intptr_t) 'A'); t30_set_ecm_capability(t30, use_ecm); if (use_ecm) t30_set_supported_compressions(t30, T30_SUPPORT_T4_1D_COMPRESSION | T30_SUPPORT_T4_2D_COMPRESSION | T30_SUPPORT_T6_COMPRESSION | T30_SUPPORT_T85_COMPRESSION); if ((t38_state_b = t38_terminal_init(NULL, FALSE, tx_packet_handler_b, t38_state_a)) == NULL) { fprintf(stderr, "Cannot start the T.38 channel\n"); exit(2); } t30 = t38_terminal_get_t30_state(t38_state_b); t38_core = t38_terminal_get_t38_core_state(t38_state_b); t38_set_t38_version(t38_core, t38_version); t38_terminal_set_config(t38_state_b, options); t38_terminal_set_tep_mode(t38_state_b, use_tep); logging = t38_terminal_get_logging_state(t38_state_b); span_log_set_level(logging, SPAN_LOG_DEBUG | SPAN_LOG_SHOW_TAG | SPAN_LOG_SHOW_SAMPLE_TIME); span_log_set_tag(logging, "T.38-B"); logging = t38_core_get_logging_state(t38_core); span_log_set_level(logging, SPAN_LOG_DEBUG | SPAN_LOG_SHOW_TAG | SPAN_LOG_SHOW_SAMPLE_TIME); span_log_set_tag(logging, "T.38-B"); logging = t30_get_logging_state(t30); span_log_set_level(logging, SPAN_LOG_DEBUG | SPAN_LOG_SHOW_TAG | SPAN_LOG_SHOW_SAMPLE_TIME); span_log_set_tag(logging, "T.38-B"); t30_set_supported_modems(t30, supported_modems); t30_set_tx_ident(t30, "22222222"); t30_set_tx_nsf(t30, (const uint8_t *) "\x50\x00\x00\x00Spandsp\x00", 12); t30_set_rx_file(t30, OUTPUT_FILE_NAME, -1); t30_set_phase_b_handler(t30, phase_b_handler, (void *) (intptr_t) 'B'); t30_set_phase_d_handler(t30, phase_d_handler, (void *) (intptr_t) 'B'); t30_set_phase_e_handler(t30, phase_e_handler, (void *) (intptr_t) 'B'); t30_set_ecm_capability(t30, use_ecm); if (use_ecm) t30_set_supported_compressions(t30, T30_SUPPORT_T4_1D_COMPRESSION | T30_SUPPORT_T4_2D_COMPRESSION | T30_SUPPORT_T6_COMPRESSION | T30_SUPPORT_T85_COMPRESSION); #if defined(ENABLE_GUI) if (use_gui) start_media_monitor(); #endif for (;;) { logging = t38_terminal_get_logging_state(t38_state_a); span_log_bump_samples(logging, SAMPLES_PER_CHUNK); t38_core = t38_terminal_get_t38_core_state(t38_state_a); logging = t38_core_get_logging_state(t38_core); span_log_bump_samples(logging, SAMPLES_PER_CHUNK); t30 = t38_terminal_get_t30_state(t38_state_a); logging = t30_get_logging_state(t30); span_log_bump_samples(logging, SAMPLES_PER_CHUNK); logging = t38_terminal_get_logging_state(t38_state_b); span_log_bump_samples(logging, SAMPLES_PER_CHUNK); t38_core = t38_terminal_get_t38_core_state(t38_state_b); logging = t38_core_get_logging_state(t38_core); span_log_bump_samples(logging, SAMPLES_PER_CHUNK); t30 = t38_terminal_get_t30_state(t38_state_b); logging = t30_get_logging_state(t30); span_log_bump_samples(logging, SAMPLES_PER_CHUNK); done[0] = t38_terminal_send_timeout(t38_state_a, SAMPLES_PER_CHUNK); done[1] = t38_terminal_send_timeout(t38_state_b, SAMPLES_PER_CHUNK); when += (float) SAMPLES_PER_CHUNK/(float) SAMPLE_RATE; while ((msg_len = g1050_get(path_a_to_b, msg, 1024, when, &seq_no, &tx_when, &rx_when)) >= 0) { #if defined(ENABLE_GUI) if (use_gui) media_monitor_rx(seq_no, tx_when, rx_when); #endif t38_core = t38_terminal_get_t38_core_state(t38_state_b); t38_core_rx_ifp_packet(t38_core, msg, msg_len, seq_no); } while ((msg_len = g1050_get(path_b_to_a, msg, 1024, when, &seq_no, &tx_when, &rx_when)) >= 0) { #if defined(ENABLE_GUI) if (use_gui) media_monitor_rx(seq_no, tx_when, rx_when); #endif t38_core = t38_terminal_get_t38_core_state(t38_state_a); t38_core_rx_ifp_packet(t38_core, msg, msg_len, seq_no); } if (done[0] && done[1]) break; #if defined(ENABLE_GUI) if (use_gui) media_monitor_update_display(); #endif } t38_terminal_release(t38_state_a); t38_terminal_release(t38_state_b); if (!succeeded[0] || !succeeded[1]) { printf("Tests failed\n"); exit(2); } printf("Tests passed\n"); return 0; } /*- End of function --------------------------------------------------------*/ /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/tests/tone_generate_tests.c0000664000175000017500000001642311422612267020157 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * tone_generate_tests.c * * Written by Steve Underwood * * Copyright (C) 2001 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License version 2, as * published by the Free Software Foundation. * * 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., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \page tone_generate_tests_page Tone generation tests \section tone_generate_tests_page_sec_1 What does it do? */ #if defined(HAVE_CONFIG_H) #include "config.h" #endif #include #include #include #include #include #include //#if defined(WITH_SPANDSP_INTERNALS) #define SPANDSP_EXPOSE_INTERNAL_STRUCTURES //#endif #include "spandsp.h" #include "spandsp-sim.h" #define OUTPUT_FILE_NAME "tone_generate.wav" int main(int argc, char *argv[]) { tone_gen_descriptor_t tone_desc; tone_gen_state_t tone_state; int i; int16_t amp[16384]; int len; SNDFILE *outhandle; int outframes; if ((outhandle = sf_open_telephony_write(OUTPUT_FILE_NAME, 1)) == NULL) { fprintf(stderr, " Cannot open audio file '%s'\n", OUTPUT_FILE_NAME); exit(2); } /* Try a tone pair */ tone_gen_descriptor_init(&tone_desc, 440, -10, 620, -15, 100, 200, 300, 400, FALSE); tone_gen_init(&tone_state, &tone_desc); for (i = 0; i < 1000; i++) { len = tone_gen(&tone_state, amp, 160); printf("Generated %d samples\n", len); if (len <= 0) break; outframes = sf_writef_short(outhandle, amp, len); } /* Try a different tone pair */ tone_gen_descriptor_init(&tone_desc, 350, -10, 440, -15, 400, 300, 200, 100, TRUE); tone_gen_init(&tone_state, &tone_desc); for (i = 0; i < 1000; i++) { len = tone_gen(&tone_state, amp, 160); printf("Generated %d samples\n", len); if (len <= 0) break; outframes = sf_writef_short(outhandle, amp, len); } /* Try a different tone pair */ tone_gen_descriptor_init(&tone_desc, 400, -10, 450, -10, 100, 200, 300, 400, TRUE); tone_gen_init(&tone_state, &tone_desc); for (i = 0; i < 1000; i++) { len = tone_gen(&tone_state, amp, 160); printf("Generated %d samples\n", len); if (len <= 0) break; outframes = sf_writef_short(outhandle, amp, len); } /* Try a single tone */ tone_gen_descriptor_init(&tone_desc, 400, -10, 0, 0, 100, 200, 300, 400, TRUE); tone_gen_init(&tone_state, &tone_desc); for (i = 0; i < 1000; i++) { len = tone_gen(&tone_state, amp, 160); printf("Generated %d samples\n", len); if (len <= 0) break; outframes = sf_writef_short(outhandle, amp, len); } /* Try a single non-repeating tone */ tone_gen_descriptor_init(&tone_desc, 820, -10, 0, 0, 2000, 0, 0, 0, FALSE); tone_gen_init(&tone_state, &tone_desc); for (i = 0; i < 1000; i++) { len = tone_gen(&tone_state, amp, 160); printf("Generated %d samples\n", len); if (len <= 0) break; outframes = sf_writef_short(outhandle, amp, len); } /* Try a single non-repeating tone at 0dBm0 */ tone_gen_descriptor_init(&tone_desc, 820, 0, 0, 0, 2000, 0, 0, 0, FALSE); tone_gen_init(&tone_state, &tone_desc); for (i = 0; i < 1000; i++) { len = tone_gen(&tone_state, amp, 160); printf("Generated %d samples\n", len); if (len <= 0) break; outframes = sf_writef_short(outhandle, amp, len); } /* Try an AM modulated tone at a modest modulation level (25%) */ tone_gen_descriptor_init(&tone_desc, 425, -10, -50, 25, 100, 200, 300, 400, TRUE); tone_gen_init(&tone_state, &tone_desc); for (i = 0; i < 1000; i++) { len = tone_gen(&tone_state, amp, 160); printf("Generated %d samples\n", len); if (len <= 0) break; outframes = sf_writef_short(outhandle, amp, len); } /* Try an AM modulated tone at maximum modulation level (100%) */ tone_gen_descriptor_init(&tone_desc, 425, -10, -50, 100, 100, 200, 300, 400, TRUE); tone_gen_init(&tone_state, &tone_desc); for (i = 0; i < 1000; i++) { len = tone_gen(&tone_state, amp, 160); printf("Generated %d samples\n", len); if (len <= 0) break; outframes = sf_writef_short(outhandle, amp, len); } if (sf_close(outhandle) != 0) { fprintf(stderr, " Cannot close audio file '%s'\n", OUTPUT_FILE_NAME); exit (2); } return 0; } /*- End of function --------------------------------------------------------*/ /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/tests/echo_monitor.cpp0000664000175000017500000003164411422612266017144 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * echo_monitor.cpp - Display echo canceller status, using the FLTK toolkit. * * Written by Steve Underwood * * Copyright (C) 2004 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License version 2, as * published by the Free Software Foundation. * * 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., 675 Mass Ave, Cambridge, MA 02139, USA. */ #ifdef HAVE_CONFIG_H #include "config.h" #endif #if defined(HAVE_FL_FL_H) && defined(HAVE_FL_FL_CARTESIAN_H) #define __STDC_LIMIT_MACROS #include #include #include #include #include #include #include #if defined(HAVE_FFTW3_H) #include #else #include #endif #include #include #include #include #include #include #include "spandsp.h" #include "echo_monitor.h" struct line_model_monitor_s { Fl_Double_Window *w; Fl_Audio_Meter *audio_meter; Fl_Group *c_spec; Fl_Group *c_right; Fl_Group *c_can; Fl_Group *c_line_model; Ca_Canvas *canvas_spec; Ca_X_Axis *spec_freq; Ca_Y_Axis *spec_amp; Ca_Line *spec_re; double spec_re_plot[2*512]; Ca_Canvas *canvas_can; Ca_X_Axis *can_x; Ca_Y_Axis *can_y; Ca_Line *can_re; double can_re_plot[512]; Ca_Canvas *canvas_line_model; Ca_X_Axis *line_model_x; Ca_Y_Axis *line_model_y; Ca_Line *line_model_re; double line_model_re_plot[512]; int in_ptr; #if defined(HAVE_FFTW3_H) double in[1024][2]; double out[1024][2]; #else fftw_complex in[1024]; fftw_complex out[1024]; #endif fftw_plan p; }; static int skip = 0; static struct line_model_monitor_s echo; static struct line_model_monitor_s *s = &echo; int echo_can_monitor_can_update(const int16_t *coeffs, int len) { int i; float min; float max; if (s->can_re) delete s->can_re; s->canvas_can->current(s->canvas_can); i = 0; min = coeffs[i]; max = coeffs[i]; for (i = 0; i < len; i++) { s->can_re_plot[2*i] = i; s->can_re_plot[2*i + 1] = coeffs[i]; if (min > coeffs[i]) min = coeffs[i]; if (max < coeffs[i]) max = coeffs[i]; } s->can_y->maximum((max == min) ? max + 0.2 : max); s->can_y->minimum(min); s->can_re = new Ca_Line(len, s->can_re_plot, 0, 0, FL_BLUE, CA_NO_POINT); if (++skip >= 100) { skip = 0; Fl::check(); } return 0; } /*- End of function --------------------------------------------------------*/ int echo_can_monitor_line_model_update(const int32_t *coeffs, int len) { int i; float min; float max; if (s->line_model_re) delete s->line_model_re; s->canvas_line_model->current(s->canvas_line_model); i = 0; min = coeffs[i]; max = coeffs[i]; for (i = 0; i < len; i++) { s->line_model_re_plot[2*i] = i; s->line_model_re_plot[2*i + 1] = coeffs[i]; if (min > coeffs[i]) min = coeffs[i]; if (max < coeffs[i]) max = coeffs[i]; } s->line_model_y->maximum((max == min) ? max + 0.2 : max); s->line_model_y->minimum(min); s->line_model_re = new Ca_Line(len, s->line_model_re_plot, 0, 0, FL_BLUE, CA_NO_POINT); if (++skip >= 100) { skip = 0; Fl::check(); } return 0; } /*- End of function --------------------------------------------------------*/ int echo_can_monitor_line_spectrum_update(const int16_t amp[], int len) { int i; int x; for (i = 0; i < len; i++) s->audio_meter->sample(amp[i]/32768.0); if (s->in_ptr + len < 512) { /* Just add this fragment to the buffer. */ for (i = 0; i < len; i++) #if defined(HAVE_FFTW3_H) s->in[s->in_ptr + i][0] = amp[i]; #else s->in[s->in_ptr + i].re = amp[i]; #endif s->in_ptr += len; return 0; } if (len >= 512) { /* We have enough for a whole block. Use the last 512 samples we have. */ x = len - 512; for (i = 0; i < 512; i++) #if defined(HAVE_FFTW3_H) s->in[i][0] = amp[x + i]; #else s->in[i].re = amp[x + i]; #endif } else { /* We want the last 512 samples. */ x = 512 - len; for (i = 0; i < x; i++) #if defined(HAVE_FFTW3_H) s->in[i][0] = s->in[s->in_ptr - x + i][0]; #else s->in[i].re = s->in[s->in_ptr - x + i].re; #endif for (i = x; i < 512; i++) #if defined(HAVE_FFTW3_H) s->in[i][0] = amp[i - x]; #else s->in[i].re = amp[i - x]; #endif } s->in_ptr = 0; #if defined(HAVE_FFTW3_H) fftw_execute(s->p); #else fftw_one(s->p, s->in, s->out); #endif if (s->spec_re) delete s->spec_re; s->canvas_spec->current(s->canvas_spec); for (i = 0; i < 512; i++) { s->spec_re_plot[2*i] = i*4000.0/512.0; #if defined(HAVE_FFTW3_H) s->spec_re_plot[2*i + 1] = 20.0*log10(sqrt(s->out[i][0]*s->out[i][0] + s->out[i][1]*s->out[i][1])/(256.0*32768)) + 3.14; #else s->spec_re_plot[2*i + 1] = 20.0*log10(sqrt(s->out[i].re*s->out[i].re + s->out[i].im*s->out[i].im)/(256.0*32768)) + 3.14; #endif } s->spec_re = new Ca_Line(512, s->spec_re_plot, 0, 0, FL_BLUE, CA_NO_POINT); Fl::check(); return 0; } /*- End of function --------------------------------------------------------*/ int start_echo_can_monitor(int len) { char buf[132 + 1]; float x; float y; int i; s->w = new Fl_Double_Window(850, 400, "Echo canceller monitor"); s->c_spec = new Fl_Group(0, 0, 380, 400); s->c_spec->box(FL_DOWN_BOX); s->c_spec->align(FL_ALIGN_TOP | FL_ALIGN_INSIDE); s->canvas_spec = new Ca_Canvas(60, 30, 300, 300, "Spectrum"); s->canvas_spec->box(FL_PLASTIC_DOWN_BOX); s->canvas_spec->color(7); s->canvas_spec->align(FL_ALIGN_TOP); s->canvas_spec->border(15); s->spec_freq = new Ca_X_Axis(65, 330, 290, 30, "Freq (Hz)"); s->spec_freq->align(FL_ALIGN_BOTTOM); s->spec_freq->minimum(0); s->spec_freq->maximum(4000); s->spec_freq->label_format("%g"); s->spec_freq->minor_grid_color(fl_gray_ramp(20)); s->spec_freq->major_grid_color(fl_gray_ramp(15)); s->spec_freq->label_grid_color(fl_gray_ramp(10)); s->spec_freq->grid_visible(CA_LABEL_GRID | CA_ALWAYS_VISIBLE); s->spec_freq->minor_grid_style(FL_DOT); s->spec_freq->major_step(5); s->spec_freq->label_step(1); s->spec_freq->axis_color(FL_BLACK); s->spec_freq->axis_align(CA_BOTTOM | CA_LINE); s->spec_amp = new Ca_Y_Axis(20, 35, 40, 290, "Amp (dBmO)"); s->spec_amp->align(FL_ALIGN_LEFT); s->spec_amp->minimum(-80.0); s->spec_amp->maximum(10.0); s->spec_amp->minor_grid_color(fl_gray_ramp(20)); s->spec_amp->major_grid_color(fl_gray_ramp(15)); s->spec_amp->label_grid_color(fl_gray_ramp(10)); //s->spec_amp->grid_visible(CA_MINOR_TICK | CA_MAJOR_TICK | CA_LABEL_GRID | CA_ALWAYS_VISIBLE); s->spec_amp->grid_visible(CA_LABEL_GRID | CA_ALWAYS_VISIBLE); s->spec_amp->minor_grid_style(FL_DOT); s->spec_amp->major_step(5); s->spec_amp->label_step(1); s->spec_amp->axis_color(FL_BLACK); s->spec_amp->current(); s->spec_re = NULL; s->c_spec->end(); s->c_right = new Fl_Group(440, 0, 465, 405); s->c_can = new Fl_Group(380, 0, 415, 200); s->c_can->box(FL_DOWN_BOX); s->c_can->align(FL_ALIGN_TOP | FL_ALIGN_INSIDE); s->c_can->current(); s->canvas_can = new Ca_Canvas(460, 35, 300, 100, "Canceller coefficients"); s->canvas_can->box(FL_PLASTIC_DOWN_BOX); s->canvas_can->color(7); s->canvas_can->align(FL_ALIGN_TOP); Fl_Group::current()->resizable(s->canvas_can); s->canvas_can->border(15); s->can_x = new Ca_X_Axis(465, 135, 290, 30, "Tap"); s->can_x->align(FL_ALIGN_BOTTOM); s->can_x->minimum(0.0); s->can_x->maximum((float) len); s->can_x->label_format("%g"); s->can_x->minor_grid_color(fl_gray_ramp(20)); s->can_x->major_grid_color(fl_gray_ramp(15)); s->can_x->label_grid_color(fl_gray_ramp(10)); s->can_x->grid_visible(CA_LABEL_GRID | CA_ALWAYS_VISIBLE); s->can_x->minor_grid_style(FL_DOT); s->can_x->major_step(5); s->can_x->label_step(1); s->can_x->axis_align(CA_BOTTOM | CA_LINE); s->can_x->axis_color(FL_BLACK); s->can_x->current(); s->can_y = new Ca_Y_Axis(420, 40, 40, 90, "Amp"); s->can_y->align(FL_ALIGN_LEFT); s->can_y->minimum(-0.1); s->can_y->maximum(0.1); s->can_y->minor_grid_color(fl_gray_ramp(20)); s->can_y->major_grid_color(fl_gray_ramp(15)); s->can_y->label_grid_color(fl_gray_ramp(10)); s->can_y->grid_visible(CA_LABEL_GRID | CA_ALWAYS_VISIBLE); s->can_y->minor_grid_style(FL_DOT); s->can_y->major_step(5); s->can_y->label_step(1); s->can_y->axis_color(FL_BLACK); s->can_y->current(); s->c_can->end(); s->can_re = NULL; s->c_line_model = new Fl_Group(380, 200, 415, 200); s->c_line_model->box(FL_DOWN_BOX); s->c_line_model->align(FL_ALIGN_TOP | FL_ALIGN_INSIDE); s->c_line_model->current(); s->canvas_line_model = new Ca_Canvas(460, 235, 300, 100, "Line impulse response model"); s->canvas_line_model->box(FL_PLASTIC_DOWN_BOX); s->canvas_line_model->color(7); s->canvas_line_model->align(FL_ALIGN_TOP); Fl_Group::current()->resizable(s->canvas_line_model); s->canvas_line_model->border(15); s->line_model_x = new Ca_X_Axis(465, 335, 290, 30, "Tap"); s->line_model_x->align(FL_ALIGN_BOTTOM); s->line_model_x->minimum(0.0); s->line_model_x->maximum((float) len); s->line_model_x->label_format("%g"); s->line_model_x->minor_grid_color(fl_gray_ramp(20)); s->line_model_x->major_grid_color(fl_gray_ramp(15)); s->line_model_x->label_grid_color(fl_gray_ramp(10)); s->line_model_x->grid_visible(CA_LABEL_GRID | CA_ALWAYS_VISIBLE); s->line_model_x->minor_grid_style(FL_DOT); s->line_model_x->major_step(5); s->line_model_x->label_step(1); s->line_model_x->axis_align(CA_BOTTOM | CA_LINE); s->line_model_x->axis_color(FL_BLACK); s->line_model_x->current(); s->line_model_y = new Ca_Y_Axis(420, 240, 40, 90, "Amp"); s->line_model_y->align(FL_ALIGN_LEFT); s->line_model_y->minimum(-0.1); s->line_model_y->maximum(0.1); s->line_model_y->minor_grid_color(fl_gray_ramp(20)); s->line_model_y->major_grid_color(fl_gray_ramp(15)); s->line_model_y->label_grid_color(fl_gray_ramp(10)); s->line_model_y->grid_visible(CA_LABEL_GRID | CA_ALWAYS_VISIBLE); s->line_model_y->minor_grid_style(FL_DOT); s->line_model_y->major_step(5); s->line_model_y->label_step(1); s->line_model_y->axis_color(FL_BLACK); s->line_model_y->current(); s->c_line_model->end(); s->line_model_re = NULL; s->audio_meter = new Fl_Audio_Meter(810, 40, 10, 250, ""); s->audio_meter->box(FL_PLASTIC_UP_BOX); s->audio_meter->type(FL_VERT_AUDIO_METER); s->c_right->end(); Fl_Group::current()->resizable(s->c_right); s->w->end(); s->w->show(); #if defined(HAVE_FFTW3_H) s->p = fftw_plan_dft_1d(1024, s->in, s->out, FFTW_BACKWARD, FFTW_ESTIMATE); for (i = 0; i < 1024; i++) { s->in[i][0] = 0.0; s->in[i][1] = 0.0; } #else s->p = fftw_create_plan(1024, FFTW_BACKWARD, FFTW_ESTIMATE); for (i = 0; i < 1024; i++) { s->in[i].re = 0.0; s->in[i].im = 0.0; } #endif s->in_ptr = 0; Fl::check(); return 0; } /*- End of function --------------------------------------------------------*/ void echo_can_monitor_wait_to_end(void) { fd_set rfds; int res; struct timeval tv; fprintf(stderr, "Processing complete. Press the key to end\n"); do { usleep(100000); Fl::check(); FD_ZERO(&rfds); FD_SET(0, &rfds); tv.tv_usec = 100000; tv.tv_sec = 0; res = select(1, &rfds, NULL, NULL, &tv); } while (res <= 0); } /*- End of function --------------------------------------------------------*/ void echo_can_monitor_update_display(void) { Fl::check(); Fl::check(); Fl::check(); Fl::check(); Fl::check(); Fl::check(); Fl::check(); Fl::check(); Fl::check(); Fl::check(); Fl::check(); Fl::check(); } /*- End of function --------------------------------------------------------*/ #endif /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/tests/udptl.c0000664000175000017500000004512211422613737015247 0ustar steveusteveu//#define UDPTL_DEBUG /* * SpanDSP - a series of DSP components for telephony * * udptl.c * * Written by Steve Underwood * * Copyright (C) 2009 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License version 2, as * published by the Free Software Foundation. * * 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., 675 Mass Ave, Cambridge, MA 02139, USA. */ #if defined(HAVE_CONFIG_H) #include "config.h" #endif #include #include #include #include #include #include "udptl.h" #define FALSE 0 #define TRUE (!FALSE) static int decode_length(const uint8_t *buf, int limit, int *len, int *pvalue) { if (*len >= limit) return -1; if ((buf[*len] & 0x80) == 0) { *pvalue = buf[(*len)++]; return 0; } if ((buf[*len] & 0x40) == 0) { if (*len >= limit - 1) return -1; *pvalue = (buf[(*len)++] & 0x3F) << 8; *pvalue |= buf[(*len)++]; return 0; } *pvalue = (buf[(*len)++] & 0x3F) << 14; /* Indicate we have a fragment */ return 1; } /*- End of function --------------------------------------------------------*/ static int decode_open_type(const uint8_t *buf, int limit, int *len, const uint8_t ** p_object, int *p_num_octets) { int octet_cnt; int octet_idx; int stat; int i; const uint8_t **pbuf; for (octet_idx = 0, *p_num_octets = 0;; octet_idx += octet_cnt) { if ((stat = decode_length(buf, limit, len, &octet_cnt)) < 0) return -1; if (octet_cnt > 0) { *p_num_octets += octet_cnt; pbuf = &p_object[octet_idx]; i = 0; /* Make sure the buffer contains at least the number of bits requested */ if ((*len + octet_cnt) > limit) return -1; *pbuf = &buf[*len]; *len += octet_cnt; } if (stat == 0) break; } return 0; } /*- End of function --------------------------------------------------------*/ static int encode_length(uint8_t *buf, int *len, int value) { int multiplier; if (value < 0x80) { /* 1 octet */ buf[(*len)++] = value; return value; } if (value < 0x4000) { /* 2 octets */ /* Set the first bit of the first octet */ buf[(*len)++] = ((0x8000 | value) >> 8) & 0xFF; buf[(*len)++] = value & 0xFF; return value; } /* Fragmentation */ multiplier = (value < 0x10000) ? (value >> 14) : 4; /* Set the first 2 bits of the octet */ buf[(*len)++] = 0xC0 | multiplier; return multiplier << 14; } /*- End of function --------------------------------------------------------*/ static int encode_open_type(uint8_t *buf, int *len, const uint8_t *data, int num_octets) { int enclen; int octet_idx; uint8_t zero_byte; /* If open type is of zero length, add a single zero byte (10.1) */ if (num_octets == 0) { zero_byte = 0; data = &zero_byte; num_octets = 1; } /* Encode the open type */ for (octet_idx = 0;; num_octets -= enclen, octet_idx += enclen) { if ((enclen = encode_length(buf, len, num_octets)) < 0) return -1; if (enclen > 0) { memcpy(&buf[*len], &data[octet_idx], enclen); *len += enclen; } if (enclen >= num_octets) break; } return 0; } /*- End of function --------------------------------------------------------*/ int udptl_rx_packet(udptl_state_t *s, const uint8_t buf[], int len) { int stat; int stat2; int i; int j; int k; int l; int m; int x; int limit; int which; int ptr; int count; int total_count; int seq_no; const uint8_t *msg; const uint8_t *data; int msg_len; int repaired[16]; const uint8_t *bufs[16]; int lengths[16]; int span; int entries; ptr = 0; /* Decode seq_number */ if (ptr + 2 > len) return -1; seq_no = (buf[0] << 8) | buf[1]; ptr += 2; /* Break out the primary packet */ if ((stat = decode_open_type(buf, len, &ptr, &msg, &msg_len)) != 0) return -1; /* Decode error_recovery */ if (ptr + 1 > len) return -1; /* Our buffers cannot tolerate overlength packets */ if (msg_len > LOCAL_FAX_MAX_DATAGRAM) return -1; /* Update any missed slots in the buffer */ for (i = s->rx_seq_no; seq_no > i; i++) { x = i & UDPTL_BUF_MASK; s->rx[x].buf_len = -1; s->rx[x].fec_len[0] = 0; s->rx[x].fec_span = 0; s->rx[x].fec_entries = 0; } /* Save the new packet. Pure redundancy mode won't use this, but some systems will switch into FEC mode after sending some redundant packets. */ x = seq_no & UDPTL_BUF_MASK; memcpy(s->rx[x].buf, msg, msg_len); s->rx[x].buf_len = msg_len; s->rx[x].fec_len[0] = 0; s->rx[x].fec_span = 0; s->rx[x].fec_entries = 0; if ((buf[ptr++] & 0x80) == 0) { /* Secondary packet mode for error recovery */ /* We might have the packet we want, but we need to check through the redundant stuff, and verify the integrity of the UDPTL. This greatly reduces our chances of accepting garbage. */ total_count = 0; do { if ((stat2 = decode_length(buf, len, &ptr, &count)) < 0) return -1; for (i = 0; i < count; i++) { if ((stat = decode_open_type(buf, len, &ptr, &bufs[total_count + i], &lengths[total_count + i])) != 0) return -1; } total_count += count; } while (stat2 > 0); /* We should now be exactly at the end of the packet. If not, this is a fault. */ if (ptr != len) return -1; if (seq_no > s->rx_seq_no) { /* We received a later packet than we expected, so we need to check if we can fill in the gap from the secondary packets. */ /* Step through in reverse order, so we go oldest to newest */ for (i = total_count; i > 0; i--) { if (seq_no - i >= s->rx_seq_no) { /* This one wasn't seen before */ /* Decode the secondary packet */ #if defined(UDPTL_DEBUG) fprintf(stderr, "Secondary %d, len %d\n", seq_no - i, lengths[i - 1]); #endif /* Save the new packet. Redundancy mode won't use this, but some systems will switch into FEC mode after sending some redundant packets, and this may then be important. */ x = (seq_no - i) & UDPTL_BUF_MASK; memcpy(s->rx[x].buf, bufs[i - 1], lengths[i - 1]); s->rx[x].buf_len = lengths[i - 1]; s->rx[x].fec_len[0] = 0; s->rx[x].fec_span = 0; s->rx[x].fec_entries = 0; if (s->rx_packet_handler(s->user_data, bufs[i - 1], lengths[i - 1], seq_no - i) < 0) fprintf(stderr, "Bad IFP\n"); } } } } else { /* FEC mode for error recovery */ /* Decode the FEC packets */ /* The span is defined as an unconstrained integer, but will never be more than a small value. */ if (ptr + 2 > len) return -1; if (buf[ptr++] != 1) return -1; span = buf[ptr++]; x = seq_no & UDPTL_BUF_MASK; s->rx[x].fec_span = span; memset(repaired, 0, sizeof(repaired)); repaired[x] = TRUE; /* The number of entries is defined as a length, but will only ever be a small value. Treat it as such. */ if (ptr + 1 > len) return -1; entries = buf[ptr++]; s->rx[x].fec_entries = entries; /* Decode the elements */ for (i = 0; i < entries; i++) { if ((stat = decode_open_type(buf, len, &ptr, &data, &s->rx[x].fec_len[i])) != 0) return -1; if (s->rx[x].fec_len[i] > LOCAL_FAX_MAX_DATAGRAM) return -1; /* Save the new FEC data */ memcpy(s->rx[x].fec[i], data, s->rx[x].fec_len[i]); #if 0 fprintf(stderr, "FEC: "); for (j = 0; j < s->rx[x].fec_len[i]; j++) fprintf(stderr, "%02X ", data[j]); fprintf(stderr, "\n"); #endif } /* We should now be exactly at the end of the packet. If not, this is a fault. */ if (ptr != len) return -1; /* See if we can reconstruct anything which is missing */ /* TODO: this does not comprehensively hunt back and repair everything that is possible */ for (l = x; l != ((x - (16 - span * entries)) & UDPTL_BUF_MASK); l = (l - 1) & UDPTL_BUF_MASK) { if (s->rx[l].fec_len[0] <= 0) continue; for (m = 0; m < s->rx[l].fec_entries; m++) { limit = (l + m) & UDPTL_BUF_MASK; for (which = -1, k = (limit - s->rx[l].fec_span * s->rx[l].fec_entries) & UDPTL_BUF_MASK; k != limit; k = (k + s->rx[l].fec_entries) & UDPTL_BUF_MASK) { if (s->rx[k].buf_len <= 0) which = (which == -1) ? k : -2; } if (which >= 0) { /* Repairable */ for (j = 0; j < s->rx[l].fec_len[m]; j++) { s->rx[which].buf[j] = s->rx[l].fec[m][j]; for (k = (limit - s->rx[l].fec_span * s->rx[l].fec_entries) & UDPTL_BUF_MASK; k != limit; k = (k + s->rx[l].fec_entries) & UDPTL_BUF_MASK) s->rx[which].buf[j] ^= (s->rx[k].buf_len > j) ? s->rx[k].buf[j] : 0; } s->rx[which].buf_len = s->rx[l].fec_len[m]; repaired[which] = TRUE; } } } /* Now play any new packets forwards in time */ for (l = (x + 1) & UDPTL_BUF_MASK, j = seq_no - UDPTL_BUF_MASK; l != x; l = (l + 1) & UDPTL_BUF_MASK, j++) { if (repaired[l]) { #if defined(UDPTL_DEBUG) fprintf(stderr, "Fixed packet %d, len %d\n", j, l); #endif if (s->rx_packet_handler(s->user_data, s->rx[l].buf, s->rx[l].buf_len, j) < 0) fprintf(stderr, "Bad IFP\n"); } } } /* If packets are received out of sequence, we may have already processed this packet from the error recovery information in a packet already received. */ if (seq_no >= s->rx_seq_no) { /* Decode the primary packet */ #if defined(UDPTL_DEBUG) fprintf(stderr, "Primary packet %d, len %d\n", seq_no, msg_len); #endif if (s->rx_packet_handler(s->user_data, msg, msg_len, seq_no) < 0) fprintf(stderr, "Bad IFP\n"); } s->rx_seq_no = (seq_no + 1) & 0xFFFF; return 0; } /*- End of function --------------------------------------------------------*/ int udptl_build_packet(udptl_state_t *s, uint8_t buf[], const uint8_t msg[], int msg_len) { uint8_t fec[LOCAL_FAX_MAX_DATAGRAM]; int i; int j; int seq; int entry; int entries; int span; int m; int len; int limit; int high_tide; /* UDPTL cannot cope with zero length messages, and our buffering for redundancy limits their maximum length. */ if (msg_len < 1 || msg_len > LOCAL_FAX_MAX_DATAGRAM) return -1; seq = s->tx_seq_no & 0xFFFF; /* Map the sequence number to an entry in the circular buffer */ entry = seq & UDPTL_BUF_MASK; /* We save the message in a circular buffer, for generating FEC or redundancy sets later on. */ s->tx[entry].buf_len = msg_len; memcpy(s->tx[entry].buf, msg, msg_len); /* Build the UDPTL packet */ len = 0; /* Encode the sequence number */ buf[len++] = (seq >> 8) & 0xFF; buf[len++] = seq & 0xFF; /* Encode the primary packet */ if (encode_open_type(buf, &len, msg, msg_len) < 0) return -1; /* Encode the appropriate type of error recovery information */ switch (s->error_correction_scheme) { case UDPTL_ERROR_CORRECTION_NONE: /* Encode the error recovery type */ buf[len++] = 0x00; /* The number of entries will always be zero, so it is pointless allowing for the fragmented case here. */ if (encode_length(buf, &len, 0) < 0) return -1; break; case UDPTL_ERROR_CORRECTION_REDUNDANCY: /* Encode the error recovery type */ buf[len++] = 0x00; if (s->tx_seq_no > s->error_correction_entries) entries = s->error_correction_entries; else entries = s->tx_seq_no; /* The number of entries will always be small, so it is pointless allowing for the fragmented case here. */ if (encode_length(buf, &len, entries) < 0) return -1; /* Encode the elements */ for (i = 0; i < entries; i++) { j = (entry - i - 1) & UDPTL_BUF_MASK; if (encode_open_type(buf, &len, s->tx[j].buf, s->tx[j].buf_len) < 0) return -1; } break; case UDPTL_ERROR_CORRECTION_FEC: span = s->error_correction_span; entries = s->error_correction_entries; if (seq < s->error_correction_span * s->error_correction_entries) { /* In the initial stages, wind up the FEC smoothly */ entries = seq / s->error_correction_span; if (seq < s->error_correction_span) span = 0; } /* Encode the error recovery type */ buf[len++] = 0x80; /* Span is defined as an inconstrained integer, which it dumb. It will only ever be a small value. Treat it as such. */ buf[len++] = 1; buf[len++] = span; /* The number of entries is defined as a length, but will only ever be a small value. Treat it as such. */ buf[len++] = entries; for (m = 0; m < entries; m++) { /* Make an XOR'ed entry the maximum length */ limit = (entry + m) & UDPTL_BUF_MASK; high_tide = 0; for (i = (limit - span * entries) & UDPTL_BUF_MASK; i != limit; i = (i + entries) & UDPTL_BUF_MASK) { if (high_tide < s->tx[i].buf_len) { for (j = 0; j < high_tide; j++) fec[j] ^= s->tx[i].buf[j]; for (; j < s->tx[i].buf_len; j++) fec[j] = s->tx[i].buf[j]; high_tide = s->tx[i].buf_len; } else { for (j = 0; j < s->tx[i].buf_len; j++) fec[j] ^= s->tx[i].buf[j]; } } if (encode_open_type(buf, &len, fec, high_tide) < 0) return -1; } break; } if (s->verbose) fprintf(stderr, "\n"); s->tx_seq_no++; return len; } /*- End of function --------------------------------------------------------*/ int udptl_set_error_correction(udptl_state_t *s, int ec_scheme, int span, int entries) { switch (ec_scheme) { case UDPTL_ERROR_CORRECTION_FEC: case UDPTL_ERROR_CORRECTION_REDUNDANCY: case UDPTL_ERROR_CORRECTION_NONE: s->error_correction_scheme = ec_scheme; break; case -1: /* Just don't change the scheme */ break; default: return -1; } if (span >= 0) s->error_correction_span = span; if (entries >= 0) s->error_correction_entries = entries; return 0; } /*- End of function --------------------------------------------------------*/ int udptl_get_error_correction(udptl_state_t *s, int *ec_scheme, int *span, int *entries) { if (ec_scheme) *ec_scheme = s->error_correction_scheme; if (span) *span = s->error_correction_span; if (entries) *entries = s->error_correction_entries; return 0; } /*- End of function --------------------------------------------------------*/ int udptl_set_local_max_datagram(udptl_state_t *s, int max_datagram) { s->local_max_datagram_size = max_datagram; return 0; } /*- End of function --------------------------------------------------------*/ int udptl_get_local_max_datagram(udptl_state_t *s) { return s->local_max_datagram_size; } /*- End of function --------------------------------------------------------*/ int udptl_set_far_max_datagram(udptl_state_t *s, int max_datagram) { s->far_max_datagram_size = max_datagram; return 0; } /*- End of function --------------------------------------------------------*/ int udptl_get_far_max_datagram(udptl_state_t *s) { return s->far_max_datagram_size; } /*- End of function --------------------------------------------------------*/ udptl_state_t *udptl_init(udptl_state_t *s, int ec_scheme, int span, int entries, udptl_rx_packet_handler_t rx_packet_handler, void *user_data) { int i; if (rx_packet_handler == NULL) return NULL; if (s == NULL) { if ((s = (udptl_state_t *) malloc(sizeof(*s))) == NULL) return NULL; } memset(s, 0, sizeof(*s)); s->error_correction_scheme = ec_scheme; s->error_correction_span = span; s->error_correction_entries = entries; s->far_max_datagram_size = LOCAL_FAX_MAX_DATAGRAM; s->local_max_datagram_size = LOCAL_FAX_MAX_DATAGRAM; memset(&s->rx, 0, sizeof(s->rx)); memset(&s->tx, 0, sizeof(s->tx)); for (i = 0; i <= UDPTL_BUF_MASK; i++) { s->rx[i].buf_len = -1; s->tx[i].buf_len = -1; } s->rx_packet_handler = rx_packet_handler; s->user_data = user_data; return s; } /*- End of function --------------------------------------------------------*/ int udptl_release(udptl_state_t *s) { return 0; } /*- End of function --------------------------------------------------------*/ /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/tests/v29_tests.c0000664000175000017500000004457011430006315015752 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * v29_tests.c * * Written by Steve Underwood * * Copyright (C) 2003 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License version 2, as * published by the Free Software Foundation. * * 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., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \page v29_tests_page V.29 modem tests \section v29_tests_page_sec_1 What does it do? These tests test one way paths, as V.29 is a half-duplex modem. They allow either: - A V.29 transmit modem to feed a V.29 receive modem through a telephone line model. BER testing is then used to evaluate performance under various line conditions. This is effective for testing the basic performance of the receive modem. It is also the only test mode provided for evaluating the transmit modem. - A V.29 receive modem is used to decode V.29 audio, stored in an audio file. This is good way to evaluate performance with audio recorded from other models of modem, and with real world problematic telephone lines. If the appropriate GUI environment exists, the tests are built such that a visual display of modem status is maintained. \section v29_tests_page_sec_2 How is it used? */ /* Enable the following definition to enable direct probing into the FAX structures */ #define WITH_SPANDSP_INTERNALS #if defined(HAVE_CONFIG_H) #include "config.h" #endif #if defined(HAVE_FL_FL_H) && defined(HAVE_FL_FL_CARTESIAN_H) && defined(HAVE_FL_FL_AUDIO_METER_H) #define ENABLE_GUI #endif #include #include #include #include #include #include #include #if defined(HAVE_FENV_H) #define __USE_GNU #include #endif //#if defined(WITH_SPANDSP_INTERNALS) #define SPANDSP_EXPOSE_INTERNAL_STRUCTURES //#endif #include "spandsp.h" #include "spandsp-sim.h" #if defined(ENABLE_GUI) #include "modem_monitor.h" #include "line_model_monitor.h" #endif #define BLOCK_LEN 160 #define OUT_FILE_NAME "v29.wav" char *decode_test_file = NULL; int use_gui = FALSE; int symbol_no = 0; int rx_bits = 0; bert_state_t bert; one_way_line_model_state_t *line_model; #if defined(ENABLE_GUI) qam_monitor_t *qam_monitor; #endif bert_results_t latest_results; static void reporter(void *user_data, int reason, bert_results_t *results) { switch (reason) { case BERT_REPORT_REGULAR: fprintf(stderr, "BERT report regular - %d bits, %d bad bits, %d resyncs\n", results->total_bits, results->bad_bits, results->resyncs); memcpy(&latest_results, results, sizeof(latest_results)); break; default: fprintf(stderr, "BERT report %s\n", bert_event_to_str(reason)); break; } } /*- End of function --------------------------------------------------------*/ static void v29_rx_status(void *user_data, int status) { v29_rx_state_t *rx; int i; int len; #if defined(SPANDSP_USE_FIXED_POINT) complexi16_t *coeffs; #else complexf_t *coeffs; #endif printf("V.29 rx status is %s (%d)\n", signal_status_to_str(status), status); rx = (v29_rx_state_t *) user_data; switch (status) { case SIG_STATUS_TRAINING_SUCCEEDED: printf("Training succeeded\n"); #if defined(SPANDSP_USE_FIXED_POINT) len = v29_rx_equalizer_state(rx, &coeffs); printf("Equalizer:\n"); for (i = 0; i < len; i++) printf("%3d (%15.5f, %15.5f)\n", i, coeffs[i].re/4096.0f, coeffs[i].im/4096.0f); #else len = v29_rx_equalizer_state(rx, &coeffs); printf("Equalizer:\n"); for (i = 0; i < len; i++) printf("%3d (%15.5f, %15.5f) -> %15.5f\n", i, coeffs[i].re, coeffs[i].im, powerf(&coeffs[i])); #endif break; } } /*- End of function --------------------------------------------------------*/ static void v29putbit(void *user_data, int bit) { v29_rx_state_t *rx; if (bit < 0) { v29_rx_status(user_data, bit); return; } rx = (v29_rx_state_t *) user_data; if (decode_test_file) printf("Rx bit %d - %d\n", rx_bits++, bit); else bert_put_bit(&bert, bit); } /*- End of function --------------------------------------------------------*/ static void v29_tx_status(void *user_data, int status) { printf("V.29 tx status is %s (%d)\n", signal_status_to_str(status), status); } /*- End of function --------------------------------------------------------*/ static int v29getbit(void *user_data) { return bert_get_bit(&bert); } /*- End of function --------------------------------------------------------*/ static void qam_report(void *user_data, const complexf_t *constel, const complexf_t *target, int symbol) { int i; int len; #if defined(SPANDSP_USE_FIXED_POINT) complexi16_t *coeffs; #else complexf_t *coeffs; #endif float fpower; v29_rx_state_t *rx; static float smooth_power = 0.0f; static int update_interval = 100; rx = (v29_rx_state_t *) user_data; if (constel) { fpower = (constel->re - target->re)*(constel->re - target->re) + (constel->im - target->im)*(constel->im - target->im); smooth_power = 0.95f*smooth_power + 0.05f*fpower; #if defined(ENABLE_GUI) if (use_gui) { qam_monitor_update_constel(qam_monitor, constel); qam_monitor_update_carrier_tracking(qam_monitor, v29_rx_carrier_frequency(rx)); //qam_monitor_update_carrier_tracking(qam_monitor, (fpower) ? fpower : 0.001f); qam_monitor_update_symbol_tracking(qam_monitor, v29_rx_symbol_timing_correction(rx)); } #endif printf("%8d [%8.4f, %8.4f] [%8.4f, %8.4f] %2x %8.4f %8.4f %9.4f %7.3f %7.4f\n", symbol_no, constel->re, constel->im, target->re, target->im, symbol, fpower, smooth_power, v29_rx_carrier_frequency(rx), v29_rx_signal_power(rx), v29_rx_symbol_timing_correction(rx)); symbol_no++; if (--update_interval <= 0) { #if defined(SPANDSP_USE_FIXED_POINT) len = v29_rx_equalizer_state(rx, &coeffs); printf("Equalizer A:\n"); for (i = 0; i < len; i++) printf("%3d (%15.5f, %15.5f)\n", i, coeffs[i].re/4096.0f, coeffs[i].im/4096.0f); #if defined(ENABLE_GUI) if (use_gui) qam_monitor_update_int_equalizer(qam_monitor, coeffs, len); #endif #else len = v29_rx_equalizer_state(rx, &coeffs); printf("Equalizer A:\n"); for (i = 0; i < len; i++) printf("%3d (%15.5f, %15.5f) -> %15.5f\n", i, coeffs[i].re, coeffs[i].im, powerf(&coeffs[i])); #if defined(ENABLE_GUI) if (use_gui) qam_monitor_update_equalizer(qam_monitor, coeffs, len); #endif #endif update_interval = 100; } } } /*- End of function --------------------------------------------------------*/ #if defined(HAVE_FENV_H) static void sigfpe_handler(int sig_num, siginfo_t *info, void *data) { switch (sig_num) { case SIGFPE: switch (info->si_code) { case FPE_INTDIV: fprintf(stderr, "integer divide by zero at %p\n", info->si_addr); break; case FPE_INTOVF: fprintf(stderr, "integer overflow at %p\n", info->si_addr); break; case FPE_FLTDIV: fprintf(stderr, "FP divide by zero at %p\n", info->si_addr); break; case FPE_FLTOVF: fprintf(stderr, "FP overflow at %p\n", info->si_addr); break; case FPE_FLTUND: fprintf(stderr, "FP underflow at %p\n", info->si_addr); break; case FPE_FLTRES: fprintf(stderr, "FP inexact result at %p\n", info->si_addr); break; case FPE_FLTINV: fprintf(stderr, "FP invalid operation at %p\n", info->si_addr); break; case FPE_FLTSUB: fprintf(stderr, "subscript out of range at %p\n", info->si_addr); break; } break; default: fprintf(stderr, "Unexpected signal %d\n", sig_num); break; } exit(2); } /*- End of function --------------------------------------------------------*/ static void fpe_trap_setup(void) { struct sigaction trap; sigemptyset(&trap.sa_mask); trap.sa_flags = SA_SIGINFO; trap.sa_sigaction = sigfpe_handler; sigaction(SIGFPE, &trap, NULL); //feenableexcept(FE_DIVBYZERO | FE_INEXACT | FE_INVALID | FE_OVERFLOW | FE_UNDERFLOW); //feenableexcept(FE_ALL_EXCEPT); feenableexcept(FE_DIVBYZERO | FE_INVALID | FE_OVERFLOW); } /*- End of function --------------------------------------------------------*/ #endif int main(int argc, char *argv[]) { v29_rx_state_t *rx; v29_tx_state_t *tx; bert_results_t bert_results; int16_t gen_amp[BLOCK_LEN]; int16_t amp[BLOCK_LEN]; SNDFILE *inhandle; SNDFILE *outhandle; int outframes; int samples; int tep; int test_bps; int noise_level; int signal_level; int bits_per_test; int line_model_no; int block_no; int log_audio; int channel_codec; int rbs_pattern; int opt; logging_state_t *logging; channel_codec = MUNGE_CODEC_NONE; rbs_pattern = 0; test_bps = 9600; tep = FALSE; line_model_no = 0; decode_test_file = NULL; use_gui = FALSE; noise_level = -70; signal_level = -13; bits_per_test = 50000; log_audio = FALSE; while ((opt = getopt(argc, argv, "b:B:c:d:glm:n:r:s:t")) != -1) { switch (opt) { case 'b': test_bps = atoi(optarg); if (test_bps != 9600 && test_bps != 7200 && test_bps != 4800) { fprintf(stderr, "Invalid bit rate specified\n"); exit(2); } break; case 'B': bits_per_test = atoi(optarg); break; case 'c': channel_codec = atoi(optarg); break; case 'd': decode_test_file = optarg; break; case 'g': #if defined(ENABLE_GUI) use_gui = TRUE; #else fprintf(stderr, "Graphical monitoring not available\n"); exit(2); #endif break; case 'l': log_audio = TRUE; break; case 'm': line_model_no = atoi(optarg); break; case 'n': noise_level = atoi(optarg); break; case 'r': rbs_pattern = atoi(optarg); break; case 's': signal_level = atoi(optarg); break; case 't': tep = TRUE; break; default: //usage(); exit(2); break; } } inhandle = NULL; outhandle = NULL; #if defined(HAVE_FENV_H) fpe_trap_setup(); #endif if (log_audio) { if ((outhandle = sf_open_telephony_write(OUT_FILE_NAME, 1)) == NULL) { fprintf(stderr, " Cannot create audio file '%s'\n", OUT_FILE_NAME); exit(2); } } if (decode_test_file) { /* We will decode the audio from a file. */ tx = NULL; if ((inhandle = sf_open_telephony_read(decode_test_file, 1)) == NULL) { fprintf(stderr, " Cannot open audio file '%s'\n", decode_test_file); exit(2); } } else { /* We will generate V.29 audio, and add some noise to it. */ tx = v29_tx_init(NULL, test_bps, tep, v29getbit, NULL); v29_tx_power(tx, signal_level); v29_tx_set_modem_status_handler(tx, v29_tx_status, (void *) tx); #if defined(WITH_SPANDSP_INTERNALS) /* Move the carrier off a bit */ tx->carrier_phase_rate = dds_phase_ratef(1710.0f); tx->carrier_phase = 0; #endif bert_init(&bert, bits_per_test, BERT_PATTERN_ITU_O152_11, test_bps, 20); bert_set_report(&bert, 10000, reporter, NULL); if ((line_model = one_way_line_model_init(line_model_no, (float) noise_level, channel_codec, rbs_pattern)) == NULL) { fprintf(stderr, " Failed to create line model\n"); exit(2); } } rx = v29_rx_init(NULL, test_bps, v29putbit, NULL); v29_rx_signal_cutoff(rx, -45.5f); v29_rx_set_modem_status_handler(rx, v29_rx_status, (void *) rx); v29_rx_set_qam_report_handler(rx, qam_report, (void *) rx); #if defined(WITH_SPANDSP_INTERNALS) /* Rotate the starting phase */ rx->carrier_phase = 0x80000000; #endif logging = v29_rx_get_logging_state(rx); span_log_set_level(logging, SPAN_LOG_SHOW_SEVERITY | SPAN_LOG_SHOW_PROTOCOL | SPAN_LOG_FLOW); span_log_set_tag(logging, "V.29-rx"); #if defined(ENABLE_GUI) if (use_gui) { qam_monitor = qam_monitor_init(6.0f, NULL); if (!decode_test_file) { start_line_model_monitor(129); line_model_monitor_line_model_update(line_model->near_filter, line_model->near_filter_len); } } #endif memset(&latest_results, 0, sizeof(latest_results)); for (block_no = 0; ; block_no++) { if (decode_test_file) { samples = sf_readf_short(inhandle, amp, BLOCK_LEN); #if defined(ENABLE_GUI) if (use_gui) qam_monitor_update_audio_level(qam_monitor, amp, samples); #endif if (samples == 0) break; } else { samples = v29_tx(tx, gen_amp, BLOCK_LEN); #if defined(ENABLE_GUI) if (use_gui) qam_monitor_update_audio_level(qam_monitor, gen_amp, samples); #endif if (samples == 0) { /* Push a little silence through, to ensure all the data bits get out of the buffers */ vec_zeroi16(amp, BLOCK_LEN); v29_rx(rx, amp, BLOCK_LEN); /* Note that we might get a few bad bits as the carrier shuts down. */ bert_result(&bert, &bert_results); fprintf(stderr, "Final result %ddBm0/%ddBm0, %d bits, %d bad bits, %d resyncs\n", signal_level, noise_level, bert_results.total_bits, bert_results.bad_bits, bert_results.resyncs); fprintf(stderr, "Last report %ddBm0/%ddBm0, %d bits, %d bad bits, %d resyncs\n", signal_level, noise_level, latest_results.total_bits, latest_results.bad_bits, latest_results.resyncs); /* See if bit errors are appearing yet. Also check we are getting enough bits out of the receiver. The last regular report should be error free, though the final report will generally contain bits errors as the carrier was dying. The total number of bits out of the receiver should be at least the number we sent. Also, since BERT sync should have occurred rapidly at the start of transmission, the last report should have occurred at not much less than the total number of bits we sent. */ if (bert_results.total_bits < bits_per_test || latest_results.total_bits < bits_per_test - 100 || latest_results.bad_bits != 0) { break; } memset(&latest_results, 0, sizeof(latest_results)); signal_level--; v29_tx_restart(tx, test_bps, tep); v29_tx_power(tx, signal_level); v29_rx_restart(rx, test_bps, FALSE); #if defined(WITH_SPANDSP_INTERNALS) rx->eq_put_step = rand()%(48*10/3); #endif bert_init(&bert, bits_per_test, BERT_PATTERN_ITU_O152_11, test_bps, 20); bert_set_report(&bert, 10000, reporter, NULL); one_way_line_model_release(line_model); if ((line_model = one_way_line_model_init(line_model_no, (float) noise_level, channel_codec, 0)) == NULL) { fprintf(stderr, " Failed to create line model\n"); exit(2); } } if (log_audio) { outframes = sf_writef_short(outhandle, gen_amp, samples); if (outframes != samples) { fprintf(stderr, " Error writing audio file\n"); exit(2); } } one_way_line_model(line_model, amp, gen_amp, samples); } #if defined(ENABLE_GUI) if (use_gui && !decode_test_file) line_model_monitor_line_spectrum_update(amp, samples); #endif v29_rx(rx, amp, samples); } if (!decode_test_file) { bert_result(&bert, &bert_results); fprintf(stderr, "At completion:\n"); fprintf(stderr, "Final result %ddBm0/%ddBm0, %d bits, %d bad bits, %d resyncs\n", signal_level, noise_level, bert_results.total_bits, bert_results.bad_bits, bert_results.resyncs); fprintf(stderr, "Last report %ddBm0/%ddBm0, %d bits, %d bad bits, %d resyncs\n", signal_level, noise_level, latest_results.total_bits, latest_results.bad_bits, latest_results.resyncs); one_way_line_model_release(line_model); if (signal_level > -43) { printf("Tests failed.\n"); exit(2); } printf("Tests passed.\n"); } #if defined(ENABLE_GUI) if (use_gui) qam_wait_to_end(qam_monitor); #endif if (decode_test_file) { if (sf_close(inhandle)) { fprintf(stderr, " Cannot close audio file '%s'\n", decode_test_file); exit(2); } } if (log_audio) { if (sf_close(outhandle)) { fprintf(stderr, " Cannot close audio file '%s'\n", OUT_FILE_NAME); exit(2); } } return 0; } /*- End of function --------------------------------------------------------*/ /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/tests/fax_utils.c0000664000175000017500000001022311422612266016103 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * fax_utils.c * * Written by Steve Underwood * * Copyright (C) 2009 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License version 2, as * published by the Free Software Foundation. * * 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., 675 Mass Ave, Cambridge, MA 02139, USA. */ #if defined(HAVE_CONFIG_H) #include "config.h" #endif #include #include #include #include //#if defined(WITH_SPANDSP_INTERNALS) #define SPANDSP_EXPOSE_INTERNAL_STRUCTURES //#endif #include "spandsp.h" #include "spandsp-sim.h" #include "fax_utils.h" void log_tx_parameters(t30_state_t *s, const char *tag) { const char *u; if ((u = t30_get_tx_ident(s))) printf("%s: Local ident '%s'\n", tag, u); if ((u = t30_get_tx_sub_address(s))) printf("%s: Local sub-address '%s'\n", tag, u); if ((u = t30_get_tx_polled_sub_address(s))) printf("%s: Local polled sub-address '%s'\n", tag, u); if ((u = t30_get_tx_selective_polling_address(s))) printf("%s: Local selective polling address '%s'\n", tag, u); if ((u = t30_get_tx_sender_ident(s))) printf("%s: Local sender ident '%s'\n", tag, u); if ((u = t30_get_tx_password(s))) printf("%s: Local password '%s'\n", tag, u); } /*- End of function --------------------------------------------------------*/ void log_rx_parameters(t30_state_t *s, const char *tag) { const char *u; if ((u = t30_get_rx_ident(s))) printf("%s: Remote ident '%s'\n", tag, u); if ((u = t30_get_rx_sub_address(s))) printf("%s: Remote sub-address '%s'\n", tag, u); if ((u = t30_get_rx_polled_sub_address(s))) printf("%s: Remote polled sub-address '%s'\n", tag, u); if ((u = t30_get_rx_selective_polling_address(s))) printf("%s: Remote selective polling address '%s'\n", tag, u); if ((u = t30_get_rx_sender_ident(s))) printf("%s: Remote sender ident '%s'\n", tag, u); if ((u = t30_get_rx_password(s))) printf("%s: Remote password '%s'\n", tag, u); if ((u = t30_get_rx_country(s))) printf("%s: Remote was made in '%s'\n", tag, u); if ((u = t30_get_rx_vendor(s))) printf("%s: Remote was made by '%s'\n", tag, u); if ((u = t30_get_rx_model(s))) printf("%s: Remote is model '%s'\n", tag, u); } /*- End of function --------------------------------------------------------*/ void log_transfer_statistics(t30_state_t *s, const char *tag) { t30_stats_t t; t30_get_transfer_statistics(s, &t); printf("%s: tx pages %d, rx pages %d\n", tag, t.pages_tx, t.pages_rx); printf("%s: pages in the file %d\n", tag, t.pages_in_file); printf("%s: compression type %s (%d)\n", tag, t4_encoding_to_str(t.encoding), t.encoding); printf("%s: compressed image size %d bytes\n", tag, t.image_size); printf("%s: image size %d pels x %d pels\n", tag, t.width, t.length); printf("%s: image resolution %d pels/m x %d pels/m\n", tag, t.x_resolution, t.y_resolution); printf("%s: bit rate %d\n", tag, t.bit_rate); printf("%s: ECM %s\n", tag, (t.error_correcting_mode) ? "on" : "off"); printf("%s: bad rows %d, longest bad row run %d\n", tag, t.bad_rows, t.longest_bad_row_run); printf("%s: bad ECM frames %d\n", tag, t.error_correcting_mode_retries); //printf("%s: RTP events %d. RTN events %d\n", tag, t.rtp_events, t.rtn_events); #if defined(WITH_SPANDSP_INTERNALS) printf("%s: bits per row - min %d, max %d\n", tag, s->t4.min_row_bits, s->t4.max_row_bits); #endif } /*- End of function --------------------------------------------------------*/ /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/tests/crc_tests.c0000664000175000017500000000700611422612266016103 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * crc_tests.c * * Written by Steve Underwood * * Copyright (C) 2003 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License version 2, as * published by the Free Software Foundation. * * 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., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \file */ /*! \page crc_tests_page CRC tests \section crc_tests_page_sec_1 What does it do? The CRC tests exercise the ITU-16 and ITU-32 CRC module, and verifies correct operation. */ #if defined(HAVE_CONFIG_H) #include "config.h" #endif #include #include #include #include "spandsp.h" int ref_len; uint8_t buf[1000]; /* Use a local random generator, so the results are consistent across platforms. We have hard coded correct results for a message sequence generated by this particular PRNG. */ static int my_rand(void) { static int rndnum = 1234567; return (rndnum = 1664525U*rndnum + 1013904223U) >> 8; } /*- End of function --------------------------------------------------------*/ static int cook_up_msg(uint8_t *buf) { int i; int len; /* Use medium length messages, with some randomised length variation. */ /* TODO: this doesn't exercise extremely short or long messages. */ len = (my_rand() & 0x3F) + 100; for (i = 0; i < len; i++) buf[i] = my_rand(); return len; } /*- End of function --------------------------------------------------------*/ int main(int argc, char *argv[]) { int i; int j; int len; uint16_t crc16a; uint16_t crc16b; printf("CRC module tests\n"); /* TODO: This doesn't check every function in the module */ /* Try a few random messages through the CRC logic. */ printf("Testing the CRC-16 routines\n"); for (i = 0; i < 100; i++) { ref_len = cook_up_msg(buf); len = crc_itu16_append(buf, ref_len); if (!crc_itu16_check(buf, len)) { printf("CRC-16 failure\n"); exit(2); } } printf("Test passed.\n\n"); printf("Testing the CRC-16 byte by byte and bit by bit routines\n"); for (i = 0; i < 100; i++) { ref_len = cook_up_msg(buf); crc16a = 0xFFFF; crc16a = crc_itu16_calc(buf, ref_len, crc16a); crc16b = 0xFFFF; for (j = 0; j < ref_len; j++) crc16b = crc_itu16_bits(buf[j], 8, crc16b); if (crc16a != crc16b) { printf("CRC-16 failure\n"); exit(2); } } printf("Test passed.\n\n"); printf("Testing the CRC-32 routines\n"); for (i = 0; i < 100; i++) { ref_len = cook_up_msg(buf); len = crc_itu32_append(buf, ref_len); if (!crc_itu32_check(buf, len)) { printf("CRC-32 failure\n"); exit(2); } } printf("Test passed.\n"); return 0; } /*- End of function --------------------------------------------------------*/ /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/tests/msvc/0000775000175000017500000000000011516506113014710 5ustar steveusteveuspandsp-0.0.6/tests/msvc/dtmf_tx_tests.vcproj0000664000175000017500000001047111175014343021027 0ustar steveusteveu spandsp-0.0.6/tests/msvc/vector_int_tests.vcproj0000664000175000017500000001050211175014343021531 0ustar steveusteveu spandsp-0.0.6/tests/msvc/v8_tests.vcproj0000664000175000017500000001045211175014343017716 0ustar steveusteveu spandsp-0.0.6/tests/msvc/t38_terminal_tests.vcproj0000664000175000017500000001010011175003227021657 0ustar steveusteveu spandsp-0.0.6/tests/msvc/t38_core_tests.vcproj0000664000175000017500000001047411175014343021013 0ustar steveusteveu spandsp-0.0.6/tests/msvc/complex_tests.vcproj0000664000175000017500000001047111175014343021031 0ustar steveusteveu spandsp-0.0.6/tests/msvc/v22bis_tests.vcproj0000664000175000017500000001046611175014343020475 0ustar steveusteveu spandsp-0.0.6/tests/msvc/dtmf_rx_tests.vcproj0000664000175000017500000001047111175014343021025 0ustar steveusteveu spandsp-0.0.6/tests/msvc/t38_non_ecm_buffer_tests.vcproj0000664000175000017500000001053211175003227023024 0ustar steveusteveu spandsp-0.0.6/tests/msvc/adsi_tests.vcproj0000664000175000017500000001055711175003227020306 0ustar steveusteveu spandsp-0.0.6/tests/msvc/queue_tests.vcproj0000664000175000017500000001046311175003227020506 0ustar steveusteveu spandsp-0.0.6/tests/msvc/vector_float_tests.vcproj0000664000175000017500000001051011175014343022043 0ustar steveusteveu spandsp-0.0.6/tests/msvc/complex_vector_float_tests.vcproj0000664000175000017500000001054011175014343023575 0ustar steveusteveu spandsp-0.0.6/tests/msvc/complex_vector_int_tests.vcproj0000664000175000017500000001053211175014343023263 0ustar steveusteveu spandsp-0.0.6/tests/msvc/v80_tests.vcproj0000664000175000017500000001045511175014343020001 0ustar steveusteveu spandsp-0.0.6/tests/msvc/v29_tests.vcproj0000664000175000017500000001045511175014343020004 0ustar steveusteveu spandsp-0.0.6/tests/g168_tests.c0000664000175000017500000002700211422612266016017 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * g168tests.c - Tests of the "test equipment" (filters, etc.) specified * in G.168. This code is only for checking out the tools, * not for testing an echo cancellor. * * Written by Steve Underwood * * Copyright (C) 2001 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License version 2, as * published by the Free Software Foundation. * * 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., 675 Mass Ave, Cambridge, MA 02139, USA. */ #if defined(HAVE_CONFIG_H) #include "config.h" #endif #include #include #include #include //#if defined(WITH_SPANDSP_INTERNALS) #define SPANDSP_EXPOSE_INTERNAL_STRUCTURES //#endif #include "spandsp.h" #include "spandsp/g168models.h" #include "spandsp-sim.h" #define FALSE 0 #define TRUE (!FALSE) typedef struct { const char *name; int max; int cur; float gain; SNDFILE *handle; int16_t signal[SAMPLE_RATE]; } signal_source_t; signal_source_t local_css; signal_source_t far_css; static void signal_load(signal_source_t *sig, const char *name) { sig->handle = sf_open_telephony_read(name, 1); sig->name = name; sig->max = sf_readf_short(sig->handle, sig->signal, SAMPLE_RATE); if (sig->max < 0) { fprintf(stderr, " Error reading sound file '%s'\n", sig->name); exit(2); } } /*- End of function --------------------------------------------------------*/ static void signal_free(signal_source_t *sig) { if (sf_close(sig->handle) != 0) { fprintf(stderr, " Cannot close sound file '%s'\n", sig->name); exit(2); } } /*- End of function --------------------------------------------------------*/ static void signal_restart(signal_source_t *sig, float gain) { sig->cur = 0; sig->gain = powf(10.0f, gain/20.0f); } /*- End of function --------------------------------------------------------*/ static int16_t signal_amp(signal_source_t *sig) { int16_t tx; tx = sig->signal[sig->cur++]*sig->gain; if (sig->cur >= sig->max) sig->cur = 0; return tx; } /*- End of function --------------------------------------------------------*/ int main(int argc, char *argv[]) { int f; int i; int16_t amp[8000]; int16_t value; int signal; float power[10]; tone_gen_descriptor_t tone_desc; tone_gen_state_t tone_state; awgn_state_t noise_source; fir32_state_t line_model_d2; fir32_state_t line_model_d3; fir32_state_t line_model_d4; fir32_state_t line_model_d5; fir32_state_t line_model_d6; fir32_state_t line_model_d7; fir32_state_t line_model_d8; fir32_state_t line_model_d9; fir_float_state_t level_measurement_bp; signal_load(&local_css, "sound_c1_8k.wav"); signal_load(&far_css, "sound_c3_8k.wav"); fir32_create(&line_model_d2, line_model_d2_coeffs, sizeof(line_model_d2_coeffs)/sizeof(int32_t)); fir32_create(&line_model_d3, line_model_d3_coeffs, sizeof(line_model_d3_coeffs)/sizeof(int32_t)); fir32_create(&line_model_d4, line_model_d4_coeffs, sizeof(line_model_d4_coeffs)/sizeof(int32_t)); fir32_create(&line_model_d5, line_model_d5_coeffs, sizeof(line_model_d5_coeffs)/sizeof(int32_t)); fir32_create(&line_model_d6, line_model_d6_coeffs, sizeof(line_model_d6_coeffs)/sizeof(int32_t)); fir32_create(&line_model_d7, line_model_d7_coeffs, sizeof(line_model_d7_coeffs)/sizeof(int32_t)); fir32_create(&line_model_d8, line_model_d8_coeffs, sizeof(line_model_d8_coeffs)/sizeof(int32_t)); fir32_create(&line_model_d9, line_model_d9_coeffs, sizeof(line_model_d9_coeffs)/sizeof(int32_t)); fir_float_create(&level_measurement_bp, level_measurement_bp_coeffs, sizeof(level_measurement_bp_coeffs)/sizeof(float)); for (f = 10; f < 4000; f++) { tone_gen_descriptor_init(&tone_desc, f, -10, 0, 0, 1, 0, 0, 0, TRUE); tone_gen_init(&tone_state, &tone_desc); tone_gen(&tone_state, amp, 8000); for (i = 0; i < 10; i++) power[i] = 0.0f; for (i = 0; i < 800; i++) { signal = fir32(&line_model_d2, amp[i]); power[0] += ((signal*signal - power[0])/32.0f); signal = fir32(&line_model_d3, amp[i]); power[1] += ((signal*signal - power[1])/32.0f); signal = fir32(&line_model_d4, amp[i]); power[2] += ((signal*signal - power[2])/32.0f); signal = fir32(&line_model_d5, amp[i]); power[3] += ((signal*signal - power[3])/32.0f); signal = fir32(&line_model_d6, amp[i]); power[4] += ((signal*signal - power[4])/32.0f); signal = fir32(&line_model_d7, amp[i]); power[5] += ((signal*signal - power[5])/32.0f); signal = fir32(&line_model_d8, amp[i]); power[6] += ((signal*signal - power[6])/32.0f); signal = fir32(&line_model_d9, amp[i]); power[7] += ((signal*signal - power[7])/32.0f); signal = fir_float(&level_measurement_bp, amp[i]); power[8] += ((signal*signal - power[8])/32.0f); signal = amp[i]; power[9] += ((signal*signal - power[9])/32.0f); } printf("%d %f %f %f %f %f %f %f %f %f %f\n", f, sqrt(power[0])*LINE_MODEL_D2_GAIN, sqrt(power[1])*LINE_MODEL_D3_GAIN, sqrt(power[2])*LINE_MODEL_D4_GAIN, sqrt(power[3])*LINE_MODEL_D5_GAIN, sqrt(power[4])*LINE_MODEL_D6_GAIN, sqrt(power[5])*LINE_MODEL_D7_GAIN, sqrt(power[6])*LINE_MODEL_D8_GAIN, sqrt(power[7])*LINE_MODEL_D9_GAIN, sqrt(power[8]), sqrt(power[9])); } awgn_init_dbm0(&noise_source, 1234567, -20.0f); for (i = 0; i < 10; i++) power[i] = 0.0f; signal_restart(&local_css, 0.0f); signal_restart(&far_css, 0.0f); for (i = 0; i < SAMPLE_RATE; i++) { value = signal_amp(&local_css); //value = awgn(&noise_source); signal = fir32(&line_model_d2, value); power[0] += ((signal*signal - power[0])/32.0f); signal = fir32(&line_model_d3, value); power[1] += ((signal*signal - power[1])/32.0f); signal = fir32(&line_model_d4, value); power[2] += ((signal*signal - power[2])/32.0f); signal = fir32(&line_model_d5, value); power[3] += ((signal*signal - power[3])/32.0f); signal = fir32(&line_model_d6, value); power[4] += ((signal*signal - power[4])/32.0f); signal = fir32(&line_model_d7, value); power[5] += ((signal*signal - power[5])/32.0f); signal = fir32(&line_model_d8, value); power[6] += ((signal*signal - power[6])/32.0f); signal = fir32(&line_model_d9, value); power[7] += ((signal*signal - power[7])/32.0f); signal = fir_float(&level_measurement_bp, value); power[8] += ((signal*signal - power[8])/32.0f); signal = value; power[9] += ((signal*signal - power[9])/32.0f); } for (i = 0; i < 10; i++) power[i] = 0.0f; for (i = 0; i < SAMPLE_RATE; i++) { value = signal_amp(&local_css); //value = awgn(&noise_source); signal = fir32(&line_model_d2, value); power[0] += ((signal*signal - power[0])/32.0f); signal = fir32(&line_model_d3, value); power[1] += ((signal*signal - power[1])/32.0f); signal = fir32(&line_model_d4, value); power[2] += ((signal*signal - power[2])/32.0f); signal = fir32(&line_model_d5, value); power[3] += ((signal*signal - power[3])/32.0f); signal = fir32(&line_model_d6, value); power[4] += ((signal*signal - power[4])/32.0f); signal = fir32(&line_model_d7, value); power[5] += ((signal*signal - power[5])/32.0f); signal = fir32(&line_model_d8, value); power[6] += ((signal*signal - power[6])/32.0f); signal = fir32(&line_model_d9, value); power[7] += ((signal*signal - power[7])/32.0f); signal = fir_float(&level_measurement_bp, value); power[8] += ((signal*signal - power[8])/32.0f); signal = value; power[9] += ((signal*signal - power[9])/32.0f); } printf("%d %f %f %f %f %f %f %f %f %f %f\n", 0, sqrt(power[0])*LINE_MODEL_D2_GAIN, sqrt(power[1])*LINE_MODEL_D3_GAIN, sqrt(power[2])*LINE_MODEL_D4_GAIN, sqrt(power[3])*LINE_MODEL_D5_GAIN, sqrt(power[4])*LINE_MODEL_D6_GAIN, sqrt(power[5])*LINE_MODEL_D7_GAIN, sqrt(power[6])*LINE_MODEL_D8_GAIN, sqrt(power[7])*LINE_MODEL_D9_GAIN, sqrt(power[8]), sqrt(power[9])); printf("%d %f %f %f %f %f %f %f %f %f %f\n", 0, sqrt(power[0]), sqrt(power[1]), sqrt(power[2]), sqrt(power[3]), sqrt(power[4]), sqrt(power[5]), sqrt(power[6]), sqrt(power[7]), sqrt(power[8]), sqrt(power[9])); printf("%d %f %f %f %f %f %f %f %f %f %f\n", 0, sqrt(power[0])/sqrt(power[9]), sqrt(power[1])/sqrt(power[9]), sqrt(power[2])/sqrt(power[9]), sqrt(power[3])/sqrt(power[9]), sqrt(power[4])/sqrt(power[9]), sqrt(power[5])/sqrt(power[9]), sqrt(power[6])/sqrt(power[9]), sqrt(power[7])/sqrt(power[9]), sqrt(power[8]), sqrt(power[9])); printf("%d %f %f %f %f %f %f %f %f %f %f\n", 0, sqrt(power[0])*LINE_MODEL_D2_GAIN/sqrt(power[9]), sqrt(power[1])*LINE_MODEL_D3_GAIN/sqrt(power[9]), sqrt(power[2])*LINE_MODEL_D4_GAIN/sqrt(power[9]), sqrt(power[3])*LINE_MODEL_D5_GAIN/sqrt(power[9]), sqrt(power[4])*LINE_MODEL_D6_GAIN/sqrt(power[9]), sqrt(power[5])*LINE_MODEL_D7_GAIN/sqrt(power[9]), sqrt(power[6])*LINE_MODEL_D8_GAIN/sqrt(power[9]), sqrt(power[7])*LINE_MODEL_D9_GAIN/sqrt(power[9]), sqrt(power[8]), sqrt(power[9])); for (i = 0; i < (int) (sizeof(css_c1)/sizeof(css_c1[0])); i++) printf("%d\n", css_c1[i]); printf("\n"); for (i = 0; i < (int) (sizeof(css_c1)/sizeof(css_c3[0])); i++) printf("%d\n", css_c3[i]); signal_free(&local_css); signal_free(&far_css); return 0; } /*- End of function --------------------------------------------------------*/ /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/tests/r2_mf_tx_tests.c0000664000175000017500000000633711422612267017063 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * r2_mf_tx_tests.c - Test the Bell MF generator. * * Written by Steve Underwood * * Copyright (C) 2003 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License version 2, as * published by the Free Software Foundation. * * 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., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \file */ /*! \page r2_mf_tx_tests_page R2 MF generation tests \section r2_mf_tx_tests_page_sec_1 What does it do? ???. \section r2_mf_tx_tests_page_sec_2 How does it work? ???. */ /* Enable the following definition to enable direct probing into the FAX structures */ //#define WITH_SPANDSP_INTERNALS #if defined(HAVE_CONFIG_H) #include "config.h" #endif #include #include #include #include #include #include //#if defined(WITH_SPANDSP_INTERNALS) #define SPANDSP_EXPOSE_INTERNAL_STRUCTURES //#endif #include "spandsp.h" #include "spandsp-sim.h" #define OUTPUT_FILE_NAME "r2_mf.wav" int main(int argc, char *argv[]) { r2_mf_tx_state_t gen; int16_t amp[1000]; int len; SNDFILE *outhandle; int outframes; int digit; const char *digits = "0123456789BCDEF"; if ((outhandle = sf_open_telephony_write(OUTPUT_FILE_NAME, 1)) == NULL) { fprintf(stderr, " Cannot open audio file '%s'\n", OUTPUT_FILE_NAME); exit(2); } r2_mf_tx_init(&gen, FALSE); for (digit = 0; digits[digit]; digit++) { r2_mf_tx_put(&gen, digits[digit]); len = r2_mf_tx(&gen, amp, 1000); printf("Generated %d samples of %c\n", len, digits[digit]); if (len > 0) outframes = sf_writef_short(outhandle, amp, len); r2_mf_tx_put(&gen, 0); len = r2_mf_tx(&gen, amp, 1000); printf("Generated %d samples\n", len); if (len > 0) outframes = sf_writef_short(outhandle, amp, len); } r2_mf_tx_init(&gen, TRUE); for (digit = 0; digits[digit]; digit++) { r2_mf_tx_put(&gen, digits[digit]); len = r2_mf_tx(&gen, amp, 1000); printf("Generated %d samples of %c\n", len, digits[digit]); if (len > 0) outframes = sf_writef_short(outhandle, amp, len); r2_mf_tx_put(&gen, 0); len = r2_mf_tx(&gen, amp, 1000); printf("Generated %d samples\n", len); if (len > 0) outframes = sf_writef_short(outhandle, amp, len); } if (sf_close(outhandle) != 0) { fprintf(stderr, " Cannot close audio file '%s'\n", OUTPUT_FILE_NAME); exit (2); } return 0; } /*- End of function --------------------------------------------------------*/ /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/tests/dds_tests.c0000664000175000017500000001504211422612266016105 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * dds_tests.c * * Written by Steve Underwood * * Copyright (C) 2003 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License version 2, as * published by the Free Software Foundation. * * 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., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \file */ /*! \page dds_tests_page Direct digital synthesis tests \section dds_tests_page_sec_1 What does it do? ???. \section dds_tests_page_sec_2 How does it work? ???. */ #if defined(HAVE_CONFIG_H) #include "config.h" #endif #include #include #include #include #include #include "spandsp.h" #include "spandsp-sim.h" #define OUTPUT_FILE_NAME "dds.wav" #define OUTPUT_FILE_NAME_COMPLEX "complex_dds.wav" #define SAMPLES_PER_CHUNK 8000 int main(int argc, char *argv[]) { int i; uint32_t phase; int32_t phase_inc; int outframes; complexf_t camp; int16_t buf[2*SAMPLES_PER_CHUNK]; SNDFILE *outhandle; power_meter_t meter; power_meter_t meter_i; power_meter_t meter_q; int scale; power_meter_init(&meter, 10); printf("Non-complex DDS tests.\n"); if ((outhandle = sf_open_telephony_write(OUTPUT_FILE_NAME, 1)) == NULL) { fprintf(stderr, " Cannot create audio file '%s'\n", OUTPUT_FILE_NAME); exit(2); } phase = 0; printf("Test with 123.456789Hz.\n"); phase_inc = dds_phase_rate(123.456789f); scale = dds_scaling_dbm0(-10.0f); for (i = 0; i < SAMPLES_PER_CHUNK; i++) { buf[i] = alaw_to_linear(linear_to_alaw((dds(&phase, phase_inc)*scale) >> 15)); power_meter_update(&meter, buf[i]); } outframes = sf_writef_short(outhandle, buf, SAMPLES_PER_CHUNK); if (outframes != SAMPLES_PER_CHUNK) { fprintf(stderr, " Error writing audio file\n"); exit(2); } printf("Level is %fdBOv/%fdBm0\n", power_meter_current_dbov(&meter), power_meter_current_dbm0(&meter)); if (fabs(power_meter_current_dbm0(&meter) + 10.0f) > 0.05f) { printf("Test failed.\n"); exit(2); } printf("Test with 12.3456789Hz.\n"); phase_inc = dds_phase_rate(12.3456789f); for (i = 0; i < SAMPLES_PER_CHUNK; i++) { buf[i] = alaw_to_linear(linear_to_alaw(dds(&phase, phase_inc))); power_meter_update(&meter, buf[i]); } outframes = sf_writef_short(outhandle, buf, SAMPLES_PER_CHUNK); if (outframes != SAMPLES_PER_CHUNK) { fprintf(stderr, " Error writing audio file\n"); exit(2); } printf("Level is %fdBOv/%fdBm0\n", power_meter_current_dbov(&meter), power_meter_current_dbm0(&meter)); /* Use a wider tolerance for this very low frequency - the power meter will ripple */ if (fabs(power_meter_current_dbov(&meter) + 3.02f) > 0.2f) { printf("Test failed.\n"); exit(2); } printf("Test with 2345.6789Hz.\n"); phase_inc = dds_phase_rate(2345.6789f); scale = dds_scaling_dbov(-10.0f); for (i = 0; i < SAMPLES_PER_CHUNK; i++) { buf[i] = alaw_to_linear(linear_to_alaw((dds(&phase, phase_inc)*scale) >> 15)); power_meter_update(&meter, buf[i]); } outframes = sf_writef_short(outhandle, buf, SAMPLES_PER_CHUNK); if (outframes != SAMPLES_PER_CHUNK) { fprintf(stderr, " Error writing audio file\n"); exit(2); } printf("Level is %fdBOv/%fdBm0\n", power_meter_current_dbov(&meter), power_meter_current_dbm0(&meter)); if (fabs(power_meter_current_dbov(&meter) + 10.0f) > 0.05f) { printf("Test failed.\n"); exit(2); } printf("Test with 3456.789Hz.\n"); phase_inc = dds_phase_rate(3456.789f); for (i = 0; i < SAMPLES_PER_CHUNK; i++) { buf[i] = alaw_to_linear(linear_to_alaw(dds(&phase, phase_inc))); power_meter_update(&meter, buf[i]); } outframes = sf_writef_short(outhandle, buf, SAMPLES_PER_CHUNK); if (outframes != SAMPLES_PER_CHUNK) { fprintf(stderr, " Error writing audio file\n"); exit(2); } printf("Level is %fdBOv/%fdBm0\n", power_meter_current_dbov(&meter), power_meter_current_dbm0(&meter)); if (fabs(power_meter_current_dbov(&meter) + 3.02f) > 0.05f) { printf("Test failed.\n"); exit(2); } if (sf_close(outhandle) != 0) { fprintf(stderr, " Cannot close audio file '%s'\n", OUTPUT_FILE_NAME); exit(2); } printf("Complex DDS tests,\n"); if ((outhandle = sf_open_telephony_write(OUTPUT_FILE_NAME_COMPLEX, 2)) == NULL) { fprintf(stderr, " Cannot create audio file '%s'\n", OUTPUT_FILE_NAME_COMPLEX); exit(2); } power_meter_init(&meter_i, 7); power_meter_init(&meter_q, 7); phase = 0; phase_inc = dds_phase_ratef(123.456789f); for (i = 0; i < SAMPLES_PER_CHUNK; i++) { camp = dds_complexf(&phase, phase_inc); buf[2*i] = camp.re*10000.0f; buf[2*i + 1] = camp.im*10000.0f; power_meter_update(&meter_i, buf[2*i]); power_meter_update(&meter_q, buf[2*i]); } outframes = sf_writef_short(outhandle, buf, SAMPLES_PER_CHUNK); if (outframes != SAMPLES_PER_CHUNK) { fprintf(stderr, " Error writing audio file\n"); exit(2); } printf("Level is %fdBOv/%fdBm0, %fdBOv/%fdBm0\n", power_meter_current_dbov(&meter_i), power_meter_current_dbm0(&meter_i), power_meter_current_dbov(&meter_q), power_meter_current_dbm0(&meter_q)); if (fabs(power_meter_current_dbov(&meter_i) + 13.42f) > 0.05f || fabs(power_meter_current_dbov(&meter_q) + 13.42f) > 0.05f) { printf("Test failed.\n"); exit(2); } if (sf_close(outhandle) != 0) { fprintf(stderr, " Cannot close audio file '%s'\n", OUTPUT_FILE_NAME_COMPLEX); exit(2); } printf("Tests passed.\n"); return 0; } /*- End of function --------------------------------------------------------*/ /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/tests/power_meter_tests.c0000664000175000017500000002713011422612267017665 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * power_meter_tests.c * * Written by Steve Underwood * * Copyright (C) 2003 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License version 2, as * published by the Free Software Foundation. * * 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., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \page power_meter_tests_page Power meter tests \section power_meter_tests_page_sec_1 What does it do? These tests assess the accuracy of power meters built from the power meter module. Both tones and noise are used to check the meter's behaviour. \section power_meter_tests_page_sec_2 How does it work? ???. */ #if defined(HAVE_CONFIG_H) #include #endif #include #include #include #include #include #include #include //#if defined(WITH_SPANDSP_INTERNALS) #define SPANDSP_EXPOSE_INTERNAL_STRUCTURES //#endif #include "spandsp.h" #include "spandsp-sim.h" #define IN_FILE_NAME "../test-data/local/short_nb_voice.wav" #define OUT_FILE_NAME "power_meter_tests.wav" static int power_surge_detector_tests(void) { SNDFILE *outhandle; power_surge_detector_state_t *sig; int i; int sample; int16_t amp[8000]; int16_t amp_out[2*8000]; awgn_state_t *awgnx; int32_t phase_rate; uint32_t phase_acc; int16_t phase_scale; float signal_power; int32_t signal_level; int signal_present; int prev_signal_present; int ok; int extremes[4]; if ((outhandle = sf_open_telephony_write(OUT_FILE_NAME, 2)) == NULL) { fprintf(stderr, " Cannot create audio file '%s'\n", OUT_FILE_NAME); exit(2); } sig = power_surge_detector_init(NULL, -50.0f, 5.0f); prev_signal_present = FALSE; phase_rate = dds_phase_rate(450.0f); phase_acc = 0; phase_scale = dds_scaling_dbm0(-33.0f); awgnx = awgn_init_dbm0(NULL, 1234567, -45.0f); extremes[0] = 8001; extremes[1] = -1; extremes[2] = 8001; extremes[3] = -1; for (sample = 0; sample < 800000; sample += 8000) { ok = 0; for (i = 0; i < 8000; i++) { amp[i] = awgn(awgnx); if (i < 4000) amp[i] += dds_mod(&phase_acc, phase_rate, phase_scale, 0); signal_level = power_surge_detector(sig, amp[i]); signal_present = (signal_level != 0); if (prev_signal_present != signal_present) { signal_power = power_surge_detector_current_dbm0(sig); if (signal_present) { if (ok == 0 && i >= 0 && i < 25) ok = 1; if (extremes[0] > i) extremes[0] = i; if (extremes[1] < i) extremes[1] = i; printf("On at %f (%fdBm0)\n", (sample + i)/8000.0, signal_power); } else { if (ok == 1 && i >= 4000 + 0 && i < 4000 + 35) ok = 2; if (extremes[2] > i) extremes[2] = i; if (extremes[3] < i) extremes[3] = i; printf("Off at %f (%fdBm0)\n", (sample + i)/8000.0, signal_power); } prev_signal_present = signal_present; } amp_out[2*i] = amp[i]; amp_out[2*i + 1] = signal_present*5000; } sf_writef_short(outhandle, amp_out, 8000); if (ok != 2 || extremes[0] < 1 || extremes[1] > 30 || extremes[2] < 4001 || extremes[3] > 4030) { printf(" Surge not detected correctly (%d)\n", ok); exit(2); } } sf_close(outhandle); printf("Min on %d, max on %d, min off %d, max off %d\n", extremes[0], extremes[1], extremes[2], extremes[3]); return 0; } /*- End of function --------------------------------------------------------*/ static int power_surge_detector_file_test(const char *file) { SNDFILE *inhandle; SNDFILE *outhandle; int inframes; power_surge_detector_state_t *sig; int i; int16_t amp[8000]; int16_t amp_out[2*8000]; int sample; float signal_power; int32_t signal_level; int signal_present; int prev_signal_present; if ((inhandle = sf_open_telephony_read(file, 1)) == NULL) { printf(" Cannot open speech file '%s'\n", file); exit(2); } if ((outhandle = sf_open_telephony_write(OUT_FILE_NAME, 1)) == NULL) { fprintf(stderr, " Cannot create audio file '%s'\n", OUT_FILE_NAME); exit(2); } sig = power_surge_detector_init(NULL, -50.0f, 6.0f); prev_signal_present = FALSE; sample = 0; while ((inframes = sf_readf_short(inhandle, amp, 8000))) { for (i = 0; i < inframes; i++) { signal_level = power_surge_detector(sig, amp[i]); signal_present = (signal_level != 0); if (prev_signal_present != signal_present) { signal_power = power_surge_detector_current_dbm0(sig); if (signal_present) printf("On at %f (%fdBm0)\n", (sample + i)/8000.0, signal_power); else printf("Off at %f (%fdBm0)\n", (sample + i)/8000.0, signal_power); prev_signal_present = signal_present; } amp_out[2*i] = amp[i]; amp_out[2*i + 1] = signal_present*5000; } sf_writef_short(outhandle, amp_out, inframes); sample += inframes; } sf_close(inhandle); sf_close(outhandle); return 0; } /*- End of function --------------------------------------------------------*/ static int power_meter_tests(void) { awgn_state_t noise_source; power_meter_t meter; tone_gen_descriptor_t tone_desc; tone_gen_state_t gen; int i; int idum = 1234567; int16_t amp[1000]; int len; int32_t level; power_meter_init(&meter, 7); printf("Testing with zero in the power register\n"); printf("Power: expected %fdBm0, got %fdBm0\n", -90.169f, power_meter_current_dbm0(&meter)); printf("Power: expected %fdBOv, got %fdBOv\n", -96.329f, power_meter_current_dbov(&meter)); printf("Testing with a square wave 10dB from maximum\n"); for (i = 0; i < 1000; i++) { amp[i] = (i & 1) ? 10362 : -10362; level = power_meter_update(&meter, amp[i]); //printf("%12d %fdBm0 %fdBov\n", level, power_meter_current_dbm0(&meter), power_meter_current_dbov(&meter)); } printf("Level: expected %" PRId32 "/%" PRId32 ", got %" PRId32 "\n", power_meter_level_dbov(-10.0f), power_meter_level_dbm0(-10.0f + DBM0_MAX_POWER), level); printf("Power: expected %fdBm0, got %fdBm0\n", -10.0f + DBM0_MAX_POWER, power_meter_current_dbm0(&meter)); printf("Power: expected %fdBOv, got %fdBOv\n", -10.0f, power_meter_current_dbov(&meter)); if (level < power_meter_level_dbov(-10.0f)*0.99f || level > power_meter_level_dbov(-10.0f)*1.01f) { printf("Test failed (level)\n"); exit(2); } if (0.1f < fabsf(power_meter_current_dbm0(&meter) + 10.0f - DBM0_MAX_POWER)) { printf("Test failed (dBm0)\n"); exit(2); } if (0.1f < fabsf(power_meter_current_dbov(&meter) + 10.0)) { printf("Test failed (dBOv)\n"); exit(2); } printf("Testing with a sine wave tone 10dB from maximum\n"); tone_gen_descriptor_init(&tone_desc, 1000, -4, 0, 1, 1, 0, 0, 0, TRUE); tone_gen_init(&gen, &tone_desc); len = tone_gen(&gen, amp, 1000); for (i = 0; i < len; i++) { level = power_meter_update(&meter, amp[i]); //printf("%12d %fdBm0 %fdBov\n", level, power_meter_current_dbm0(&meter), power_meter_current_dbov(&meter)); } printf("Level: expected %" PRId32 "/%" PRId32 ", got %" PRId32 "\n", power_meter_level_dbov(-10.0f), power_meter_level_dbm0(-10.0f + DBM0_MAX_POWER), level); printf("Power: expected %fdBm0, got %fdBm0\n", -10.0f + DBM0_MAX_POWER, power_meter_current_dbm0(&meter)); printf("Power: expected %fdBOv, got %fdBOv\n", -10.0f, power_meter_current_dbov(&meter)); if (level < power_meter_level_dbov(-10.0f)*0.95f || level > power_meter_level_dbov(-10.0f)*1.05f) { printf("Test failed (level)\n"); exit(2); } if (0.2f < fabsf(power_meter_current_dbm0(&meter) + 10.0f - DBM0_MAX_POWER)) { printf("Test failed (dBm0)\n"); exit(2); } if (0.2f < fabsf(power_meter_current_dbov(&meter) + 10.0)) { printf("Test failed (dBOv)\n"); exit(2); } printf("Testing with AWGN 10dB from maximum\n"); awgn_init_dbov(&noise_source, idum, -10.0f); for (i = 0; i < 1000; i++) amp[i] = awgn(&noise_source); for (i = 0; i < 1000; i++) { level = power_meter_update(&meter, amp[i]); //printf("%12d %fdBm0 %fdBov\n", level, power_meter_current_dbm0(&meter), power_meter_current_dbov(&meter)); } printf("Level: expected %" PRId32 "/%" PRId32 ", got %" PRId32 "\n", power_meter_level_dbov(-10.0f), power_meter_level_dbm0(-10.0f + DBM0_MAX_POWER), level); printf("Power: expected %fdBm0, got %fdBm0\n", -10.0f + DBM0_MAX_POWER, power_meter_current_dbm0(&meter)); printf("Power: expected %fdBOv, got %fdBOv\n", -10.0f, power_meter_current_dbov(&meter)); if (level < power_meter_level_dbov(-10.0f)*0.95f || level > power_meter_level_dbov(-10.0f)*1.05f) { printf("Test failed (level)\n"); exit(2); } if (0.2f < fabsf(power_meter_current_dbm0(&meter) + 10.0f - DBM0_MAX_POWER)) { printf("Test failed (dBm0)\n"); exit(2); } if (0.2f < fabsf(power_meter_current_dbov(&meter) + 10.0f)) { printf("Test failed (dBOv)\n"); exit(2); } return 0; } /*- End of function --------------------------------------------------------*/ int main(int argc, char *argv[]) { int basic_tests; int decode; int opt; const char *in_file; basic_tests = TRUE; decode = FALSE; in_file = IN_FILE_NAME; while ((opt = getopt(argc, argv, "d:")) != -1) { switch (opt) { case 'd': in_file = optarg; basic_tests = FALSE; decode = TRUE; break; default: //usage(); exit(2); } } if (basic_tests) { power_meter_tests(); power_surge_detector_tests(); } if (decode) { power_surge_detector_file_test(in_file); } printf("Tests passed\n"); return 0; } /*- End of function --------------------------------------------------------*/ /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/tests/t38_gateway_tests.c0000664000175000017500000005374311422612267017505 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * t38_gateway_tests.c - Tests for the T.38 FoIP gateway module. * * Written by Steve Underwood * * Copyright (C) 2005, 2006 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License version 2, as * published by the Free Software Foundation. * * 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., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \file */ /*! \page t38_gateway_tests_page T.38 gateway tests \section t38_gateway_tests_page_sec_1 What does it do? These tests exercise the path FAX machine <-> T.38 gateway <-> T.38 gateway <-> FAX machine */ /* Enable the following definition to enable direct probing into the FAX structures */ //#define WITH_SPANDSP_INTERNALS #if defined(HAVE_CONFIG_H) #include #endif #if defined(HAVE_FL_FL_H) && defined(HAVE_FL_FL_CARTESIAN_H) && defined(HAVE_FL_FL_AUDIO_METER_H) #define ENABLE_GUI #endif #include #include #include #include #include #include #include #if !defined(_WIN32) #include #endif //#if defined(WITH_SPANDSP_INTERNALS) #define SPANDSP_EXPOSE_INTERNAL_STRUCTURES //#endif #include "spandsp.h" #include "spandsp-sim.h" #if defined(ENABLE_GUI) #include "media_monitor.h" #endif #include "fax_utils.h" #define SAMPLES_PER_CHUNK 160 #define INPUT_FILE_NAME "../test-data/itu/fax/itutests.tif" #define OUTPUT_FILE_NAME "t38.tif" #define OUTPUT_FILE_NAME_WAVE "t38_gateway.wav" fax_state_t *fax_state_a; t38_gateway_state_t *t38_state_a; t38_gateway_state_t *t38_state_b; fax_state_t *fax_state_b; g1050_state_t *path_a_to_b; g1050_state_t *path_b_to_a; double when = 0.0; int done[2] = {FALSE, FALSE}; int succeeded[2] = {FALSE, FALSE}; int simulate_incrementing_repeats = FALSE; static int phase_b_handler(t30_state_t *s, void *user_data, int result) { int i; char tag[20]; i = (int) (intptr_t) user_data; snprintf(tag, sizeof(tag), "%c: Phase B", i); printf("%c: Phase B handler on channel %c - (0x%X) %s\n", i, i, result, t30_frametype(result)); log_rx_parameters(s, tag); return T30_ERR_OK; } /*- End of function --------------------------------------------------------*/ static int phase_d_handler(t30_state_t *s, void *user_data, int result) { int i; char tag[20]; i = (int) (intptr_t) user_data; snprintf(tag, sizeof(tag), "%c: Phase D", i); printf("%c: Phase D handler on channel %c - (0x%X) %s\n", i, i, result, t30_frametype(result)); log_transfer_statistics(s, tag); log_tx_parameters(s, tag); log_rx_parameters(s, tag); return T30_ERR_OK; } /*- End of function --------------------------------------------------------*/ static void phase_e_handler(t30_state_t *s, void *user_data, int result) { int i; t30_stats_t t; char tag[20]; i = (int) (intptr_t) user_data; snprintf(tag, sizeof(tag), "%c: Phase E", i); printf("%c: Phase E handler on channel %c - (%d) %s\n", i, i, result, t30_completion_code_to_str(result)); log_transfer_statistics(s, tag); log_tx_parameters(s, tag); log_rx_parameters(s, tag); t30_get_transfer_statistics(s, &t); succeeded[i - 'A'] = (result == T30_ERR_OK) && (t.pages_tx == 12 || t.pages_rx == 12); done[i - 'A'] = TRUE; } /*- End of function --------------------------------------------------------*/ static void real_time_frame_handler(t38_gateway_state_t *s, void *user_data, int direction, const uint8_t *msg, int len) { int i; i = (intptr_t) user_data; printf("%d: Real time frame handler on channel %d - %s, %s, length = %d\n", i, i, (direction) ? "PSTN->T.38" : "T.38->PSTN", t30_frametype(msg[2]), len); } /*- End of function --------------------------------------------------------*/ static int tx_packet_handler_a(t38_core_state_t *s, void *user_data, const uint8_t *buf, int len, int count) { t38_terminal_state_t *t; int i; static int subst_seq = 0; /* This routine queues messages between two instances of T.38 processing */ t = (t38_terminal_state_t *) user_data; if (simulate_incrementing_repeats) { for (i = 0; i < count; i++) { span_log(&s->logging, SPAN_LOG_FLOW, "Send seq %d, len %d\n", subst_seq, len); g1050_put(path_a_to_b, buf, len, subst_seq, when); subst_seq = (subst_seq + 1) & 0xFFFF; } } else { span_log(&s->logging, SPAN_LOG_FLOW, "Send seq %d, len %d, count %d\n", s->tx_seq_no, len, count); for (i = 0; i < count; i++) g1050_put(path_a_to_b, buf, len, s->tx_seq_no, when); } return 0; } /*- End of function --------------------------------------------------------*/ static int tx_packet_handler_b(t38_core_state_t *s, void *user_data, const uint8_t *buf, int len, int count) { t38_terminal_state_t *t; int i; static int subst_seq = 0; /* This routine queues messages between two instances of T.38 processing */ t = (t38_terminal_state_t *) user_data; if (simulate_incrementing_repeats) { for (i = 0; i < count; i++) { span_log(&s->logging, SPAN_LOG_FLOW, "Send seq %d, len %d\n", subst_seq, len); g1050_put(path_b_to_a, buf, len, subst_seq, when); subst_seq = (subst_seq + 1) & 0xFFFF; } } else { span_log(&s->logging, SPAN_LOG_FLOW, "Send seq %d, len %d, count %d\n", s->tx_seq_no, len, count); for (i = 0; i < count; i++) g1050_put(path_b_to_a, buf, len, s->tx_seq_no, when); } return 0; } /*- End of function --------------------------------------------------------*/ int main(int argc, char *argv[]) { int16_t silence[SAMPLES_PER_CHUNK]; int16_t t30_amp_a[SAMPLES_PER_CHUNK]; int16_t t38_amp_a[SAMPLES_PER_CHUNK]; int16_t t38_amp_hist_a[8][SAMPLES_PER_CHUNK]; int16_t t38_amp_b[SAMPLES_PER_CHUNK]; int16_t t38_amp_hist_b[8][SAMPLES_PER_CHUNK]; int16_t t30_amp_b[SAMPLES_PER_CHUNK]; int16_t out_amp[SAMPLES_PER_CHUNK*4]; int t30_len_a; int t38_len_a; int t38_len_b; int t30_len_b; int hist_ptr; int log_audio; int msg_len; uint8_t msg[1024]; int outframes; SNDFILE *wave_handle; int use_ecm; int use_tep; int feedback_audio; int use_transmit_on_idle; int t38_version; const char *input_file_name; int i; int seq_no; int g1050_model_no; int g1050_speed_pattern_no; double tx_when; double rx_when; int supported_modems; int fill_removal; int use_gui; int opt; int drop_frame; int drop_frame_rate; t38_stats_t stats; fax_state_t *fax; t30_state_t *t30; t38_gateway_state_t *t38; t38_core_state_t *t38_core; logging_state_t *logging; log_audio = FALSE; use_ecm = FALSE; t38_version = 1; input_file_name = INPUT_FILE_NAME; simulate_incrementing_repeats = FALSE; g1050_model_no = 0; g1050_speed_pattern_no = 1; fill_removal = FALSE; use_gui = FALSE; use_tep = FALSE; feedback_audio = FALSE; use_transmit_on_idle = TRUE; supported_modems = T30_SUPPORT_V27TER | T30_SUPPORT_V29 | T30_SUPPORT_V17; drop_frame = 0; drop_frame_rate = 0; while ((opt = getopt(argc, argv, "D:efFgi:Ilm:M:s:tv:")) != -1) { switch (opt) { case 'D': drop_frame_rate = drop_frame = atoi(optarg); break; case 'e': use_ecm = TRUE; break; case 'f': feedback_audio = TRUE; break; case 'F': fill_removal = TRUE; break; case 'g': #if defined(ENABLE_GUI) use_gui = TRUE; #else fprintf(stderr, "Graphical monitoring not available\n"); exit(2); #endif break; case 'i': input_file_name = optarg; break; case 'I': simulate_incrementing_repeats = TRUE; break; case 'l': log_audio = TRUE; break; case 'm': supported_modems = atoi(optarg); break; case 'M': g1050_model_no = optarg[0] - 'A' + 1; break; case 's': g1050_speed_pattern_no = atoi(optarg); break; case 't': use_tep = TRUE; break; case 'v': t38_version = atoi(optarg); break; default: //usage(); exit(2); break; } } printf("Using T.38 version %d\n", t38_version); if (use_ecm) printf("Using ECM\n"); wave_handle = NULL; if (log_audio) { if ((wave_handle = sf_open_telephony_write(OUTPUT_FILE_NAME_WAVE, 4)) == NULL) { fprintf(stderr, " Cannot create audio file '%s'\n", OUTPUT_FILE_NAME_WAVE); exit(2); } } memset(silence, 0, sizeof(silence)); srand48(0x1234567); if ((path_a_to_b = g1050_init(g1050_model_no, g1050_speed_pattern_no, 100, 33)) == NULL) { fprintf(stderr, "Failed to start IP network path model\n"); exit(2); } if ((path_b_to_a = g1050_init(g1050_model_no, g1050_speed_pattern_no, 100, 33)) == NULL) { fprintf(stderr, "Failed to start IP network path model\n"); exit(2); } if ((fax_state_a = fax_init(NULL, TRUE)) == NULL) { fprintf(stderr, "Cannot start FAX\n"); exit(2); } fax = fax_state_a; t30 = fax_get_t30_state(fax); fax_set_transmit_on_idle(fax, use_transmit_on_idle); fax_set_tep_mode(fax, use_tep); t30_set_supported_modems(t30, supported_modems); t30_set_tx_ident(t30, "11111111"); t30_set_tx_nsf(t30, (const uint8_t *) "\x50\x00\x00\x00Spandsp\x00", 12); t30_set_tx_file(t30, input_file_name, -1, -1); t30_set_phase_b_handler(t30, phase_b_handler, (void *) (intptr_t) 'A'); t30_set_phase_d_handler(t30, phase_d_handler, (void *) (intptr_t) 'A'); t30_set_phase_e_handler(t30, phase_e_handler, (void *) (intptr_t) 'A'); t30_set_ecm_capability(t30, use_ecm); if (use_ecm) t30_set_supported_compressions(t30, T30_SUPPORT_T4_1D_COMPRESSION | T30_SUPPORT_T4_2D_COMPRESSION | T30_SUPPORT_T6_COMPRESSION); t30_set_minimum_scan_line_time(t30, 40); //t30_set_iaf_mode(t30, T30_IAF_MODE_NO_FILL_BITS); logging = fax_get_logging_state(fax); span_log_set_level(logging, SPAN_LOG_DEBUG | SPAN_LOG_SHOW_TAG | SPAN_LOG_SHOW_SAMPLE_TIME); span_log_set_tag(logging, "FAX-A "); logging = t30_get_logging_state(t30); span_log_set_level(logging, SPAN_LOG_DEBUG | SPAN_LOG_SHOW_TAG | SPAN_LOG_SHOW_SAMPLE_TIME); span_log_set_tag(logging, "FAX-A "); memset(t30_amp_a, 0, sizeof(t30_amp_a)); memset(t38_amp_hist_a, 0, sizeof(t38_amp_hist_a)); memset(t38_amp_hist_b, 0, sizeof(t38_amp_hist_b)); if ((t38_state_a = t38_gateway_init(NULL, tx_packet_handler_a, t38_state_b)) == NULL) { fprintf(stderr, "Cannot start the T.38 channel\n"); exit(2); } t38 = t38_state_a; t38_core = t38_gateway_get_t38_core_state(t38); t38_gateway_set_transmit_on_idle(t38, use_transmit_on_idle); t38_gateway_set_supported_modems(t38, supported_modems); //t38_gateway_set_nsx_suppression(t38, NULL, 0, NULL, 0); t38_gateway_set_fill_bit_removal(t38, fill_removal); t38_gateway_set_real_time_frame_handler(t38, real_time_frame_handler, NULL); t38_set_t38_version(t38_core, t38_version); t38_gateway_set_ecm_capability(t38, use_ecm); logging = t38_gateway_get_logging_state(t38); span_log_set_level(logging, SPAN_LOG_DEBUG | SPAN_LOG_SHOW_TAG | SPAN_LOG_SHOW_SAMPLE_TIME); span_log_set_tag(logging, "T.38-A"); logging = t38_core_get_logging_state(t38_core); span_log_set_level(logging, SPAN_LOG_DEBUG | SPAN_LOG_SHOW_TAG | SPAN_LOG_SHOW_SAMPLE_TIME); span_log_set_tag(logging, "T.38-A"); memset(t38_amp_a, 0, sizeof(t38_amp_a)); if ((t38_state_b = t38_gateway_init(NULL, tx_packet_handler_b, t38_state_a)) == NULL) { fprintf(stderr, "Cannot start the T.38 channel\n"); exit(2); } t38 = t38_state_b; t38_core = t38_gateway_get_t38_core_state(t38); t38_gateway_set_transmit_on_idle(t38, use_transmit_on_idle); t38_gateway_set_supported_modems(t38, supported_modems); //t38_gateway_set_nsx_suppression(t38, FALSE); t38_gateway_set_fill_bit_removal(t38, fill_removal); t38_set_t38_version(t38_core, t38_version); t38_gateway_set_ecm_capability(t38, use_ecm); logging = t38_gateway_get_logging_state(t38); span_log_set_level(logging, SPAN_LOG_DEBUG | SPAN_LOG_SHOW_TAG | SPAN_LOG_SHOW_SAMPLE_TIME); span_log_set_tag(logging, "T.38-B"); logging = t38_core_get_logging_state(t38_core); span_log_set_level(logging, SPAN_LOG_DEBUG | SPAN_LOG_SHOW_TAG | SPAN_LOG_SHOW_SAMPLE_TIME); span_log_set_tag(logging, "T.38-B"); memset(t38_amp_b, 0, sizeof(t38_amp_b)); if ((fax_state_b = fax_init(NULL, FALSE)) == NULL) { fprintf(stderr, "Cannot start FAX\n"); exit(2); } fax = fax_state_b; t30 = fax_get_t30_state(fax); fax_set_transmit_on_idle(fax, use_transmit_on_idle); fax_set_tep_mode(fax, use_tep); t30_set_supported_modems(t30, supported_modems); t30_set_tx_ident(t30, "22222222"); t30_set_tx_nsf(t30, (const uint8_t *) "\x50\x00\x00\x00Spandsp\x00", 12); t30_set_rx_file(t30, OUTPUT_FILE_NAME, -1); t30_set_phase_b_handler(t30, phase_b_handler, (void *) (intptr_t) 'B'); t30_set_phase_d_handler(t30, phase_d_handler, (void *) (intptr_t) 'B'); t30_set_phase_e_handler(t30, phase_e_handler, (void *) (intptr_t) 'B'); t30_set_ecm_capability(t30, use_ecm); if (use_ecm) t30_set_supported_compressions(t30, T30_SUPPORT_T4_1D_COMPRESSION | T30_SUPPORT_T4_2D_COMPRESSION | T30_SUPPORT_T6_COMPRESSION); t30_set_minimum_scan_line_time(t30, 40); logging = fax_get_logging_state(fax); span_log_set_level(logging, SPAN_LOG_DEBUG | SPAN_LOG_SHOW_TAG | SPAN_LOG_SHOW_SAMPLE_TIME); span_log_set_tag(logging, "FAX-B "); logging = t30_get_logging_state(t30); span_log_set_level(logging, SPAN_LOG_DEBUG | SPAN_LOG_SHOW_TAG | SPAN_LOG_SHOW_SAMPLE_TIME); span_log_set_tag(logging, "FAX-B "); memset(t30_amp_b, 0, sizeof(t30_amp_b)); #if defined(ENABLE_GUI) if (use_gui) start_media_monitor(); #endif hist_ptr = 0; for (;;) { logging = fax_get_logging_state(fax_state_a); span_log_bump_samples(logging, SAMPLES_PER_CHUNK); t30 = fax_get_t30_state(fax_state_a); logging = t30_get_logging_state(t30); span_log_bump_samples(logging, SAMPLES_PER_CHUNK); logging = t38_gateway_get_logging_state(t38_state_a); span_log_bump_samples(logging, SAMPLES_PER_CHUNK); t38_core = t38_gateway_get_t38_core_state(t38_state_a); logging = t38_core_get_logging_state(t38_core); span_log_bump_samples(logging, SAMPLES_PER_CHUNK); logging = t38_gateway_get_logging_state(t38_state_b); span_log_bump_samples(logging, SAMPLES_PER_CHUNK); t38_core = t38_gateway_get_t38_core_state(t38_state_b); logging = t38_core_get_logging_state(t38_core); span_log_bump_samples(logging, SAMPLES_PER_CHUNK); logging = fax_get_logging_state(fax_state_b); span_log_bump_samples(logging, SAMPLES_PER_CHUNK); t30 = fax_get_t30_state(fax_state_b); logging = t30_get_logging_state(t30); span_log_bump_samples(logging, SAMPLES_PER_CHUNK); memset(out_amp, 0, sizeof(out_amp)); t30_len_a = fax_tx(fax_state_a, t30_amp_a, SAMPLES_PER_CHUNK); if (!use_transmit_on_idle) { /* The receive side always expects a full block of samples, but the transmit side may not be sending any when it doesn't need to. We may need to pad with some silence. */ if (t30_len_a < SAMPLES_PER_CHUNK) { memset(t30_amp_a + t30_len_a, 0, sizeof(int16_t)*(SAMPLES_PER_CHUNK - t30_len_a)); t30_len_a = SAMPLES_PER_CHUNK; } } if (log_audio) { for (i = 0; i < t30_len_a; i++) out_amp[i*4] = t30_amp_a[i]; } if (feedback_audio) { for (i = 0; i < t30_len_a; i++) t30_amp_a[i] += t38_amp_hist_a[hist_ptr][i] >> 1; memcpy(t38_amp_hist_a[hist_ptr], t38_amp_a, sizeof(int16_t)*SAMPLES_PER_CHUNK); } if (drop_frame_rate && --drop_frame == 0) { drop_frame = drop_frame_rate; if (t38_gateway_rx_fillin(t38_state_a, t30_len_a)) break; } else { if (t38_gateway_rx(t38_state_a, t30_amp_a, t30_len_a)) break; } t38_len_a = t38_gateway_tx(t38_state_a, t38_amp_a, SAMPLES_PER_CHUNK); if (!use_transmit_on_idle) { if (t38_len_a < SAMPLES_PER_CHUNK) { memset(t38_amp_a + t38_len_a, 0, sizeof(int16_t)*(SAMPLES_PER_CHUNK - t38_len_a)); t38_len_a = SAMPLES_PER_CHUNK; } } if (log_audio) { for (i = 0; i < t38_len_a; i++) out_amp[i*4 + 1] = t38_amp_a[i]; } if (fax_rx(fax_state_a, t38_amp_a, SAMPLES_PER_CHUNK)) break; t30_len_b = fax_tx(fax_state_b, t30_amp_b, SAMPLES_PER_CHUNK); if (!use_transmit_on_idle) { /* The receive side always expects a full block of samples, but the transmit side may not be sending any when it doesn't need to. We may need to pad with some silence. */ if (t30_len_b < SAMPLES_PER_CHUNK) { memset(t30_amp_b + t30_len_b, 0, sizeof(int16_t)*(SAMPLES_PER_CHUNK - t30_len_b)); t30_len_b = SAMPLES_PER_CHUNK; } } if (log_audio) { for (i = 0; i < t30_len_b; i++) out_amp[i*4 + 3] = t30_amp_b[i]; } if (feedback_audio) { for (i = 0; i < t30_len_b; i++) t30_amp_b[i] += t38_amp_hist_b[hist_ptr][i] >> 1; memcpy(t38_amp_hist_b[hist_ptr], t38_amp_b, sizeof(int16_t)*SAMPLES_PER_CHUNK); } if (drop_frame_rate && --drop_frame == 0) { drop_frame = drop_frame_rate; if (t38_gateway_rx_fillin(t38_state_b, t30_len_b)) break; } else { if (t38_gateway_rx(t38_state_b, t30_amp_b, t30_len_b)) break; } t38_len_b = t38_gateway_tx(t38_state_b, t38_amp_b, SAMPLES_PER_CHUNK); if (!use_transmit_on_idle) { if (t38_len_b < SAMPLES_PER_CHUNK) { memset(t38_amp_b + t38_len_b, 0, sizeof(int16_t)*(SAMPLES_PER_CHUNK - t38_len_b)); t38_len_b = SAMPLES_PER_CHUNK; } } if (log_audio) { for (i = 0; i < t38_len_b; i++) out_amp[i*4 + 2] = t38_amp_b[i]; } if (fax_rx(fax_state_b, t38_amp_b, SAMPLES_PER_CHUNK)) break; when += (float) SAMPLES_PER_CHUNK/(float) SAMPLE_RATE; while ((msg_len = g1050_get(path_a_to_b, msg, 1024, when, &seq_no, &tx_when, &rx_when)) >= 0) { #if defined(ENABLE_GUI) if (use_gui) media_monitor_rx(seq_no, tx_when, rx_when); #endif t38_core = t38_gateway_get_t38_core_state(t38_state_b); t38_core_rx_ifp_packet(t38_core, msg, msg_len, seq_no); } while ((msg_len = g1050_get(path_b_to_a, msg, 1024, when, &seq_no, &tx_when, &rx_when)) >= 0) { #if defined(ENABLE_GUI) if (use_gui) media_monitor_rx(seq_no, tx_when, rx_when); #endif t38_core = t38_gateway_get_t38_core_state(t38_state_a); t38_core_rx_ifp_packet(t38_core, msg, msg_len, seq_no); } if (log_audio) { outframes = sf_writef_short(wave_handle, out_amp, SAMPLES_PER_CHUNK); if (outframes != SAMPLES_PER_CHUNK) break; } if (done[0] && done[1]) break; #if defined(ENABLE_GUI) if (use_gui) media_monitor_update_display(); #endif if (++hist_ptr > 3) hist_ptr = 0; } t38_gateway_get_transfer_statistics(t38_state_a, &stats); printf("A side exchanged %d pages at %dbps, in %s mode\n", stats.pages_transferred, stats.bit_rate, (stats.error_correcting_mode) ? "ECM" : "non-ECM"); t38_gateway_get_transfer_statistics(t38_state_a, &stats); printf("B side exchanged %d pages at %dbps, in %s mode\n", stats.pages_transferred, stats.bit_rate, (stats.error_correcting_mode) ? "ECM" : "non-ECM"); fax_release(fax_state_a); fax_release(fax_state_b); if (log_audio) { if (sf_close(wave_handle) != 0) { fprintf(stderr, " Cannot close audio file '%s'\n", OUTPUT_FILE_NAME_WAVE); exit(2); } } if (!succeeded[0] || !succeeded[1]) { printf("Tests failed\n"); exit(2); } printf("Tests passed\n"); return 0; } /*- End of function --------------------------------------------------------*/ /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/tests/dc_restore_tests.c0000664000175000017500000000530411422612266017464 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * dc_restore_tests.c - Tests for the dc_restore functions. * * Written by Steve Underwood * * Copyright (C) 2001 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License version 2, as * published by the Free Software Foundation. * * 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., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \page dc_restore_tests_page DC restoration tests \section dc_restore_tests_page_sec_1 What does it do? */ #if defined(HAVE_CONFIG_H) #include "config.h" #endif #include #include #include #include //#if defined(WITH_SPANDSP_INTERNALS) #define SPANDSP_EXPOSE_INTERNAL_STRUCTURES //#endif #include "spandsp.h" int main (int argc, char *argv[]) { awgn_state_t noise_source; dc_restore_state_t dc_state; int i; int idum = 1234567; int16_t dirty; int16_t clean; int estimate; int min; int max; int dc_offset; dc_offset = 5000; awgn_init_dbm0(&noise_source, idum, -10.0); dc_restore_init(&dc_state); for (i = 0; i < 100000; i++) { dirty = awgn(&noise_source) + dc_offset; clean = dc_restore(&dc_state, dirty); if ((i % 1000) == 0) { printf("Sample %6d: %d (expect %d)\n", i, dc_restore_estimate(&dc_state), dc_offset); } } /* We should have settled by now. Look at the variation we get */ min = 99999; max = -99999; for (i = 0; i < 100000; i++) { dirty = awgn(&noise_source) + dc_offset; clean = dc_restore(&dc_state, dirty); estimate = dc_restore_estimate(&dc_state); if (estimate < min) min = estimate; if (estimate > max) max = estimate; } printf("Spread of DC estimate for an offset of %d was %d to %d\n", dc_offset, min, max); if (min < dc_offset - 50 || max > dc_offset + 50) { printf("Test failed.\n"); exit(2); } printf("Test passed.\n"); return 0; } /*- End of function --------------------------------------------------------*/ /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/tests/t31_tests.c0000664000175000017500000010166311440176324015747 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * t31_tests.c - Tests for the T.31 modem. * * Written by Steve Underwood * * Copyright (C) 2004 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License version 2, as * published by the Free Software Foundation. * * 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., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \file */ /*! \page t31_tests_page T.31 tests \section t31_tests_page_sec_1 What does it do? */ /* Enable the following definition to enable direct probing into the FAX structures */ //#define WITH_SPANDSP_INTERNALS #if defined(HAVE_CONFIG_H) #include "config.h" #endif #if defined(HAVE_FL_FL_H) && defined(HAVE_FL_FL_CARTESIAN_H) && defined(HAVE_FL_FL_AUDIO_METER_H) #define ENABLE_GUI #endif #include #include #include #include #include #include #include //#if defined(WITH_SPANDSP_INTERNALS) #define SPANDSP_EXPOSE_INTERNAL_STRUCTURES //#endif #include "spandsp.h" #include "spandsp/t30_fcf.h" #include "spandsp-sim.h" #if defined(ENABLE_GUI) #include "media_monitor.h" #endif #include "fax_utils.h" #define INPUT_FILE_NAME "../test-data/itu/fax/itu1.tif" #define OUTPUT_FILE_NAME "t31.tif" #define OUTPUT_WAVE_FILE_NAME "t31_tests.wav" enum { ETX = 0x03, DLE = 0x10, SUB = 0x1A }; #define MANUFACTURER "www.soft-switch.org" #define SAMPLES_PER_CHUNK 160 struct command_response_s { const char *command; int len_command; const char *response; int len_response; }; g1050_state_t *path_a_to_b; g1050_state_t *path_b_to_a; double when = 0.0; #define EXCHANGE(a,b) {a, sizeof(a) - 1, b, sizeof(b) - 1} #define RESPONSE(b) {"", 0, b, sizeof(b) - 1} #define FAST_RESPONSE(b) {NULL, -1, b, sizeof(b) - 1} #define FAST_SEND(b) {(const char *) 1, -2, b, sizeof(b) - 1} #define FAST_SEND_TCF(b) {(const char *) 2, -2, b, sizeof(b) - 1} static const struct command_response_s fax_send_test_seq[] = { EXCHANGE("ATE0\r", "ATE0\r\r\nOK\r\n"), EXCHANGE("AT+FCLASS=1\r", "\r\nOK\r\n"), EXCHANGE("ATD123456789\r", "\r\nCONNECT\r\n"), // AT+FRH=3 is implied when dialing in the AT+FCLASS=1 state //RESPONSE("\xFF\x03\x10\x03"), //RESPONSE("\r\nOK\r\n"), //EXCHANGE("AT+FRH=3\r", "\r\nCONNECT\r\n"), // RESPONSE("\xFF\x03\x40\x31\x31\x31\x31\x31\x31\x31\x31\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20\x1e\x46\x10\x03"), RESPONSE("\r\nOK\r\n"), EXCHANGE("AT+FRH=3\r", "\r\nCONNECT\r\n"), // RESPONSE("\xFF\x13\x80\x00\xEE\xF8\x80\x80\x91\x80\x80\x80\x18\x78\x57\x10\x03"), // For audio FAXing //RESPONSE("\xFF\x13\x80\x04\xEE\xF8\x80\x80\x91\x80\x80\x80\x18\xE4\xE7\x10\x03"), // For T.38 FAXing RESPONSE("\r\nOK\r\n"), //EXCHANGE("AT+FRH=3\r", "\r\nNO CARRIER\r\n"), EXCHANGE("AT+FTH=3\r", "\r\nCONNECT\r\n"), // EXCHANGE("\xFF\x03\x43\x32\x32\x32\x32\x32\x32\x32\x32\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20\x10\x03", "\r\nCONNECT\r\n"), // EXCHANGE("\xFF\x13\x83\x01\xC6\x80\x80\x80\x80\x01\xFD\x13\x10\x03", "\r\nOK\r\n"), //Do a wait for timed silence at this point, or there won't be one in the tests EXCHANGE("AT+FRS=7\r", "\r\nOK\r\n"), //EXCHANGE("AT+FTS=8;+FTM=96\r", "\r\nCONNECT\r\n"), EXCHANGE("AT+FTS=8\r", "\r\nOK\r\n"), EXCHANGE("AT+FTM=96\r", "\r\nCONNECT\r\n"), // FAST_SEND_TCF("\r\nOK\r\n"), EXCHANGE("AT+FRH=3\r", "\r\nCONNECT\r\n"), // RESPONSE("\xFF\x13\x84\xEA\x7D\x10\x03"), RESPONSE("\r\nOK\r\n"), EXCHANGE("AT+FTM=96\r", "\r\nCONNECT\r\n"), // FAST_SEND("\r\nOK\r\n"), //EXCHANGE("AT+FTS=8;+FTH=3\r", "\r\nCONNECT\r\n"), EXCHANGE("AT+FTS=8\r", "\r\nOK\r\n"), EXCHANGE("AT+FTH=3\r", "\r\nCONNECT\r\n"), // EXCHANGE("\xFF\x13\x2E\x10\x03", "\r\nOK\r\n"), EXCHANGE("AT+FRH=3\r", "\r\nCONNECT\r\n"), // RESPONSE("\xFF\x13\x8C\xA2\xF1\x10\x03"), RESPONSE("\r\nOK\r\n"), EXCHANGE("AT+FTH=3\r", "\r\nCONNECT\r\n"), // EXCHANGE("\xFF\x13\xFB\x10\x03", "\r\nOK\r\n"), EXCHANGE("ATH0\r", "\r\nOK\r\n") }; static const struct command_response_s fax_receive_test_seq[] = { EXCHANGE("ATE0\r", "ATE0\r\r\nOK\r\n"), EXCHANGE("AT+FCLASS=1\r", "\r\nOK\r\n"), RESPONSE("\r\nRING\r\n"), EXCHANGE("ATA\r", "\r\nCONNECT\r\n"), // EXCHANGE("\xFF\x03\x40\x32\x32\x32\x32\x32\x32\x32\x32\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20\x10\x03", "\r\nCONNECT\r\n"), // EXCHANGE("\xFF\x13\x80\x01\xCE\xF4\x80\x80\x81\x80\x80\x80\x18\x10\x03", "\r\nOK\r\n"), EXCHANGE("AT+FRH=3\r", "\r\nCONNECT\r\n"), // RESPONSE("\xFF\x03\x43\x31\x31\x31\x31\x31\x31\x31\x31\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20\xAA\x1F\x10\x03"), RESPONSE("\r\nOK\r\n"), EXCHANGE("AT+FRH=3\r", "\r\nCONNECT\r\n"), // RESPONSE("\xFF\x13\x83\x00\xC6\x74\x53\x00\x10\x03"), RESPONSE("\r\nOK\r\n"), EXCHANGE("AT+FRM=96\r", "\r\nCONNECT\r\n"), // FAST_RESPONSE(NULL), RESPONSE("\r\nNO CARRIER\r\n"), EXCHANGE("AT+FTH=3\r", "\r\nCONNECT\r\n"), // EXCHANGE("\xFF\x13\x84\x10\x03", "\r\nOK\r\n"), EXCHANGE("AT+FRM=96\r", "\r\nCONNECT\r\n"), // FAST_RESPONSE(NULL), RESPONSE("\r\nNO CARRIER\r\n"), EXCHANGE("AT+FRH=3\r", "\r\nCONNECT\r\n"), // RESPONSE("\xFF\x13\x2F\x33\x66\x10\x03"), RESPONSE("\r\nOK\r\n"), EXCHANGE("AT+FTH=3\r", "\r\nCONNECT\r\n"), // EXCHANGE("\xFF\x13\x8C\x10\x03", "\r\nOK\r\n"), EXCHANGE("AT+FRH=3\r", "\r\nCONNECT\r\n"), // RESPONSE("\xFF\x13\xfb\x9a\xf6\x10\x03"), RESPONSE("\r\nOK\r\n"), EXCHANGE("ATH0\r", "\r\nOK\r\n") }; static const struct command_response_s v34_fax_send_test_seq[] = { EXCHANGE("ATE0\r", "ATE0\r\r\nOK\r\n"), EXCHANGE("AT+A8E=3,,\r", "\r\nOK\r\n"), EXCHANGE("AT+FCLASS=1.0\r", "\r\nOK\r\n"), EXCHANGE("AT+F34=14,4,2\r", "\r\nOK\r\n"), EXCHANGE("ATD123456789\r", "\r\n+A8A:1\r\nOK\r\n"), EXCHANGE("AT+A8M=8185D490\r", "\r\n+A8M:8185D490\r\nOK\r\n"), EXCHANGE("ATO\r", "\r\n+A8J:1\r\n+F34=14,2\r\nCONNECT\r\n"), // RESPONSE("\x10\x6B\x10\x7D\x10\x6F" "\xFF\x13\x80\x00\xEE\xF8\x80\x80\x91\x80\x80\x80\x18\x78\x57\x10\x03"), // For audio FAXing //RESPONSE("\x10\x6B\x10\x7D\x10\x6F" ""\xFF\x13\x80\x04\xEE\xF8\x80\x80\x91\x80\x80\x80\x18\xE4\xE7\x10\x03"), // For T.38 FAXing // // EXCHANGE("\xFF\x13\x83\x01\xC6\x80\x80\x80\x80\x01\xFD\x13\x10\x03", "\xFF\x13\x84\xEA\x7D\x10\x03"), EXCHANGE("\x10\x04", "\x10\x04\x10\x7D"), // EXCHANGE("\x10\x6B", "\x10\x6B\x10\x79\x10\x6F"), // // // EXCHANGE("\x10\x03", "\xFF\x13\x8C\xA2\xF1\x10\x03"), // EXCHANGE("\xFF\x13\xFB\x10\x03\x10\x04", "\r\nOK\r\n"), EXCHANGE("ATH\r", "\r\nOK\r\n") }; static const struct command_response_s v34_fax_receive_test_seq[] = { EXCHANGE("ATE0\r", "ATE0\r\r\nOK\r\n"), EXCHANGE("AT+A8E=,2,\r", "\r\nOK\r\n"), EXCHANGE("AT+FCLASS=1.0\r", "\r\nOK\r\n"), EXCHANGE("AT+F34=10\r", "\r\nOK\r\n"), RESPONSE("\r\nRING\r\n"), EXCHANGE("ATA\r", "\r\n+A8M:8185D490\r\nOK\r\n"), EXCHANGE("AT+A8M=8185D490;O\r", "\r\n+A8J:1\r\n+F34:10,1\r\nCONNECT\r\n"), RESPONSE("\x10\x10\x10"), EXCHANGE("ATH\r", "\r\nOK\r\n") }; static const struct command_response_s v34_fax_receive_a_test_seq[] = { EXCHANGE("ATE0\r", "ATE0\r\r\nOK\r\n"), EXCHANGE("AT+A8E=,3,\r", "\r\nOK\r\n"), EXCHANGE("AT+FCLASS=1.0\r", "\r\nOK\r\n"), EXCHANGE("AT+F34=10\r", "\r\nOK\r\n"), RESPONSE("\r\nRING\r\n"), EXCHANGE("ATA\r", "\r\n+A8C:1\r\n+A8C:1\r\n"), EXCHANGE("X", "\r\nOK\r\n"), EXCHANGE("AT+A8E=,2,\r", "\r\n+A8M:8185D490\r\nOK\r\n"), EXCHANGE("AT+A8M=8185D490\r", "\r\n+A8J:1\r\n+F34:10,1\r\nCONNECT\r\n"), RESPONSE("\x10\x10\x10"), EXCHANGE("ATH\r", "\r\nOK\r\n") }; static const struct command_response_s v34_fax_receive_b_test_seq[] = { EXCHANGE("ATE0\r", "ATE0\r\r\nOK\r\n"), EXCHANGE("AT+A8E=,3,\r", "\r\nOK\r\n"), EXCHANGE("AT+FCLASS=1.0\r", "\r\nOK\r\n"), EXCHANGE("AT+F34=10\r", "\r\nOK\r\n"), RESPONSE("\r\nRING\r\n"), EXCHANGE("ATA\r", "\r\nA8I:81\r\n"), RESPONSE("A8I:81\r\n"), EXCHANGE("X", "\r\nOK\r\n"), EXCHANGE("AT+A8E=,2,\r", "\r\n+A8M:8185D490\r\nOK\r\n") }; char *decode_test_file = NULL; int countdown = 0; int command_response_test_step = -1; char response_buf[1000]; int response_buf_ptr = 0; int answered = FALSE; int kick = FALSE; int dled = FALSE; int done = FALSE; static const struct command_response_s *fax_test_seq; int test_seq_ptr = 0; t31_state_t *t31_state; static int phase_b_handler(t30_state_t *s, void *user_data, int result) { int i; char tag[20]; i = (int) (intptr_t) user_data; snprintf(tag, sizeof(tag), "%c: Phase B", i); printf("%c: Phase B handler on channel %c - (0x%X) %s\n", i, i, result, t30_frametype(result)); log_rx_parameters(s, tag); return T30_ERR_OK; } /*- End of function --------------------------------------------------------*/ static int phase_d_handler(t30_state_t *s, void *user_data, int result) { int i; char tag[20]; i = (int) (intptr_t) user_data; snprintf(tag, sizeof(tag), "%c: Phase D", i); printf("%c: Phase D handler on channel %c - (0x%X) %s\n", i, i, result, t30_frametype(result)); log_transfer_statistics(s, tag); log_tx_parameters(s, tag); log_rx_parameters(s, tag); return T30_ERR_OK; } /*- End of function --------------------------------------------------------*/ static void phase_e_handler(t30_state_t *s, void *user_data, int result) { int i; char tag[20]; i = (intptr_t) user_data; snprintf(tag, sizeof(tag), "%c: Phase E", i); printf("Phase E handler on channel %c\n", i); log_transfer_statistics(s, tag); log_tx_parameters(s, tag); log_rx_parameters(s, tag); //exit(0); } /*- End of function --------------------------------------------------------*/ static int modem_call_control(t31_state_t *s, void *user_data, int op, const char *num) { switch (op) { case AT_MODEM_CONTROL_ANSWER: printf("\nModem control - Answering\n"); answered = TRUE; break; case AT_MODEM_CONTROL_CALL: printf("\nModem control - Dialing '%s'\n", num); t31_call_event(t31_state, AT_CALL_EVENT_CONNECTED); break; case AT_MODEM_CONTROL_HANGUP: printf("\nModem control - Hanging up\n"); done = TRUE; break; case AT_MODEM_CONTROL_OFFHOOK: printf("\nModem control - Going off hook\n"); break; case AT_MODEM_CONTROL_DTR: printf("\nModem control - DTR %d\n", (int) (intptr_t) num); break; case AT_MODEM_CONTROL_RTS: printf("\nModem control - RTS %d\n", (int) (intptr_t) num); break; case AT_MODEM_CONTROL_CTS: printf("\nModem control - CTS %d\n", (int) (intptr_t) num); break; case AT_MODEM_CONTROL_CAR: printf("\nModem control - CAR %d\n", (int) (intptr_t) num); break; case AT_MODEM_CONTROL_RNG: printf("\nModem control - RNG %d\n", (int) (intptr_t) num); break; case AT_MODEM_CONTROL_DSR: printf("\nModem control - DSR %d\n", (int) (intptr_t) num); break; default: printf("\nModem control - operation %d\n", op); break; } /*endswitch*/ return 0; } /*- End of function --------------------------------------------------------*/ static int at_tx_handler(at_state_t *s, void *user_data, const uint8_t *buf, size_t len) { size_t i; i = 0; if (fax_test_seq[test_seq_ptr].command == NULL) { /* TCF or non-ECM image data expected */ for ( ; i < len; i++) { if (dled) { if (buf[i] == ETX) { printf("\nFast data ended\n"); response_buf_ptr = 0; response_buf[response_buf_ptr] = '\0'; test_seq_ptr++; if (fax_test_seq[test_seq_ptr].command) kick = TRUE; break; } dled = FALSE; } else { if (buf[i] == DLE) dled = TRUE; } } i++; if (i >= len) return 0; } for ( ; i < len; i++) { response_buf[response_buf_ptr++] = buf[i]; putchar(buf[i]); } response_buf[response_buf_ptr] = '\0'; printf("Expected "); for (i = 0; i < response_buf_ptr; i++) printf("%02x ", fax_test_seq[test_seq_ptr].response[i] & 0xFF); printf("\n"); printf("Response "); for (i = 0; i < response_buf_ptr; i++) printf("%02x ", response_buf[i] & 0xFF); printf("\n"); printf("Match %d against %d\n", response_buf_ptr, fax_test_seq[test_seq_ptr].len_response); if (response_buf_ptr >= fax_test_seq[test_seq_ptr].len_response && memcmp(fax_test_seq[test_seq_ptr].response, response_buf, fax_test_seq[test_seq_ptr].len_response) == 0) { printf("\nMatched\n"); test_seq_ptr++; response_buf_ptr = 0; response_buf[response_buf_ptr] = '\0'; if (fax_test_seq[test_seq_ptr].command) kick = TRUE; else dled = FALSE; } return 0; } /*- End of function --------------------------------------------------------*/ static int t38_tx_packet_handler(t38_core_state_t *s, void *user_data, const uint8_t *buf, int len, int count) { t31_state_t *t; int i; /* This routine queues messages between two instances of T.38 processing */ t = (t31_state_t *) user_data; span_log(&s->logging, SPAN_LOG_FLOW, "Send seq %d, len %d, count %d\n", s->tx_seq_no, len, count); for (i = 0; i < count; i++) { if (g1050_put(path_a_to_b, buf, len, s->tx_seq_no, when) < 0) printf("Lost packet %d\n", s->tx_seq_no); } return 0; } /*- End of function --------------------------------------------------------*/ static int t31_tx_packet_handler(t38_core_state_t *s, void *user_data, const uint8_t *buf, int len, int count) { //t38_terminal_state_t *t; int i; /* This routine queues messages between two instances of T.38 processing */ //t = (t38_terminal_state_t *) user_data; span_log(&s->logging, SPAN_LOG_FLOW, "Send seq %d, len %d, count %d\n", s->tx_seq_no, len, count); for (i = 0; i < count; i++) { if (g1050_put(path_b_to_a, buf, len, s->tx_seq_no, when) < 0) printf("Lost packet %d\n", s->tx_seq_no); } return 0; } /*- End of function --------------------------------------------------------*/ static int t38_tests(int use_gui, int test_sending, int model_no, int speed_pattern_no) { t38_terminal_state_t *t38_state; int fast_send; int fast_send_tcf; int fast_blocks; uint8_t fast_buf[1000]; int msg_len; uint8_t msg[1024]; int t38_version; int without_pacing; int use_tep; int seq_no; double tx_when; double rx_when; t30_state_t *t30; t38_core_state_t *t38_core; logging_state_t *logging; int i; t38_version = 1; without_pacing = FALSE; use_tep = FALSE; srand48(0x1234567); if ((path_a_to_b = g1050_init(model_no, speed_pattern_no, 100, 33)) == NULL) { fprintf(stderr, "Failed to start IP network path model\n"); exit(2); } if ((path_b_to_a = g1050_init(model_no, speed_pattern_no, 100, 33)) == NULL) { fprintf(stderr, "Failed to start IP network path model\n"); exit(2); } if ((t31_state = t31_init(NULL, at_tx_handler, NULL, modem_call_control, NULL, t31_tx_packet_handler, NULL)) == NULL) { fprintf(stderr, " Cannot start the T.31 T.38 modem\n"); exit(2); } logging = t31_get_logging_state(t31_state); span_log_set_level(logging, SPAN_LOG_DEBUG | SPAN_LOG_SHOW_TAG | SPAN_LOG_SHOW_SAMPLE_TIME); span_log_set_tag(logging, "T.31"); t38_core = t31_get_t38_core_state(t31_state); logging = t38_core_get_logging_state(t38_core); span_log_set_level(logging, SPAN_LOG_DEBUG | SPAN_LOG_SHOW_TAG | SPAN_LOG_SHOW_SAMPLE_TIME); span_log_set_tag(logging, "T.31"); span_log_set_level(&t31_state->at_state.logging, SPAN_LOG_DEBUG | SPAN_LOG_SHOW_TAG | SPAN_LOG_SHOW_SAMPLE_TIME); span_log_set_tag(&t31_state->at_state.logging, "T.31"); t31_set_mode(t31_state, TRUE); t38_set_t38_version(t38_core, t38_version); if (test_sending) { if ((t38_state = t38_terminal_init(NULL, FALSE, t38_tx_packet_handler, t31_state)) == NULL) { fprintf(stderr, "Cannot start the T.38 channel\n"); exit(2); } t30 = t38_terminal_get_t30_state(t38_state); t30_set_rx_file(t30, OUTPUT_FILE_NAME, -1); fax_test_seq = fax_send_test_seq; countdown = 0; } else { if ((t38_state = t38_terminal_init(NULL, TRUE, t38_tx_packet_handler, t31_state)) == NULL) { fprintf(stderr, "Cannot start the T.38 channel\n"); exit(2); } t30 = t38_terminal_get_t30_state(t38_state); t30_set_tx_file(t30, INPUT_FILE_NAME, -1, -1); fax_test_seq = fax_receive_test_seq; countdown = 250; } t30 = t38_terminal_get_t30_state(t38_state); t38_core = t38_terminal_get_t38_core_state(t38_state); t38_set_t38_version(t38_core, t38_version); t38_terminal_set_config(t38_state, without_pacing); t38_terminal_set_tep_mode(t38_state, use_tep); t30_set_tx_ident(t30, "11111111"); t30_set_supported_modems(t30, T30_SUPPORT_V27TER | T30_SUPPORT_V29 | T30_SUPPORT_V17); //t30_set_tx_nsf(t30, (const uint8_t *) "\x50\x00\x00\x00Spandsp\x00", 12); t30_set_phase_b_handler(t30, phase_b_handler, (void *) 'A'); t30_set_phase_d_handler(t30, phase_d_handler, (void *) 'A'); t30_set_phase_e_handler(t30, phase_e_handler, (void *) 'A'); logging = t38_terminal_get_logging_state(t38_state); span_log_set_level(logging, SPAN_LOG_DEBUG | SPAN_LOG_SHOW_TAG | SPAN_LOG_SHOW_SAMPLE_TIME); span_log_set_tag(logging, "T.38"); t38_core = t38_terminal_get_t38_core_state(t38_state); span_log_set_level(&t38_core->logging, SPAN_LOG_DEBUG | SPAN_LOG_SHOW_TAG | SPAN_LOG_SHOW_SAMPLE_TIME); span_log_set_tag(&t38_core->logging, "T.38"); logging = t30_get_logging_state(t30); span_log_set_level(logging, SPAN_LOG_DEBUG | SPAN_LOG_SHOW_TAG | SPAN_LOG_SHOW_SAMPLE_TIME); span_log_set_tag(logging, "T.38"); fast_send = FALSE; fast_send_tcf = TRUE; fast_blocks = 0; kick = TRUE; #if defined(ENABLE_GUI) if (use_gui) start_media_monitor(); #endif while (!done) { logging = t38_terminal_get_logging_state(t38_state); span_log_bump_samples(logging, SAMPLES_PER_CHUNK); t38_core = t38_terminal_get_t38_core_state(t38_state); logging = t38_core_get_logging_state(t38_core); span_log_bump_samples(logging, SAMPLES_PER_CHUNK); t30 = t38_terminal_get_t30_state(t38_state); logging = t30_get_logging_state(t30); span_log_bump_samples(logging, SAMPLES_PER_CHUNK); logging = t31_get_logging_state(t31_state); span_log_bump_samples(logging, SAMPLES_PER_CHUNK); t38_core = t31_get_t38_core_state(t31_state); logging = t38_core_get_logging_state(t38_core); span_log_bump_samples(logging, SAMPLES_PER_CHUNK); span_log_bump_samples(&t31_state->at_state.logging, SAMPLES_PER_CHUNK); t38_terminal_send_timeout(t38_state, SAMPLES_PER_CHUNK); t31_t38_send_timeout(t31_state, SAMPLES_PER_CHUNK); when += (float) SAMPLES_PER_CHUNK/(float) SAMPLE_RATE; if (kick) { kick = FALSE; if (fax_test_seq[test_seq_ptr].command > (const char *) 2) { if (fax_test_seq[test_seq_ptr].command[0]) { printf("%s\n", fax_test_seq[test_seq_ptr].command); t31_at_rx(t31_state, fax_test_seq[test_seq_ptr].command, fax_test_seq[test_seq_ptr].len_command); } } else { if (fax_test_seq[test_seq_ptr].command == (const char *) 2) { printf("Fast send TCF\n"); fast_send = TRUE; fast_send_tcf = TRUE; fast_blocks = 100; } else { printf("Fast send image\n"); fast_send = TRUE; fast_send_tcf = FALSE; fast_blocks = 100; } } } if (fast_send) { /* Send fast modem data */ if (fast_send_tcf) { memset(fast_buf, 0, 36); } else { if (fast_blocks == 1) { /* Create the end of page condition */ for (i = 0; i < 36; i += 2) { fast_buf[i] = 0x00; fast_buf[i + 1] = 0x80; } } else { /* Create a chunk of white page */ for (i = 0; i < 36; i += 4) { fast_buf[i] = 0x00; fast_buf[i + 1] = 0x80; fast_buf[i + 2] = 0xB2; fast_buf[i + 3] = 0x01; } } } if (fast_blocks == 1) { /* Insert EOLs */ fast_buf[35] = ETX; fast_buf[34] = DLE; fast_buf[31] = fast_buf[28] = fast_buf[25] = fast_buf[22] = fast_buf[19] = fast_buf[16] = 1; } t31_at_rx(t31_state, (char *) fast_buf, 36); if (--fast_blocks == 0) fast_send = FALSE; } if (countdown) { if (answered) { countdown = 0; t31_call_event(t31_state, AT_CALL_EVENT_ANSWERED); } else if (--countdown == 0) { t31_call_event(t31_state, AT_CALL_EVENT_ALERTING); countdown = 250; } } while ((msg_len = g1050_get(path_a_to_b, msg, 1024, when, &seq_no, &tx_when, &rx_when)) >= 0) { #if defined(ENABLE_GUI) if (use_gui) media_monitor_rx(seq_no, tx_when, rx_when); #endif t38_core = t31_get_t38_core_state(t31_state); t38_core_rx_ifp_packet(t38_core, msg, msg_len, seq_no); } while ((msg_len = g1050_get(path_b_to_a, msg, 1024, when, &seq_no, &tx_when, &rx_when)) >= 0) { #if defined(ENABLE_GUI) if (use_gui) media_monitor_rx(seq_no, tx_when, rx_when); #endif t38_core = t38_terminal_get_t38_core_state(t38_state); t38_core_rx_ifp_packet(t38_core, msg, msg_len, seq_no); } #if defined(ENABLE_GUI) if (use_gui) media_monitor_update_display(); #endif } t38_terminal_release(t38_state); return 0; } /*- End of function --------------------------------------------------------*/ static int t30_tests(int log_audio, int test_sending) { int k; int outframes; fax_state_t *fax_state; int16_t t30_amp[SAMPLES_PER_CHUNK]; int16_t t31_amp[SAMPLES_PER_CHUNK]; int16_t silence[SAMPLES_PER_CHUNK]; int16_t out_amp[2*SAMPLES_PER_CHUNK]; int t30_len; int t31_len; SNDFILE *wave_handle; SNDFILE *in_handle; int fast_send; int fast_send_tcf; int fast_blocks; uint8_t fast_buf[1000]; t30_state_t *t30; logging_state_t *logging; int i; wave_handle = NULL; if (log_audio) { if ((wave_handle = sf_open_telephony_write(OUTPUT_WAVE_FILE_NAME, 2)) == NULL) { fprintf(stderr, " Cannot create audio file '%s'\n", OUTPUT_WAVE_FILE_NAME); exit(2); } } memset(silence, 0, sizeof(silence)); in_handle = NULL; if (decode_test_file) { if ((in_handle = sf_open_telephony_read(decode_test_file, 1)) == NULL) { fprintf(stderr, " Cannot create audio file '%s'\n", decode_test_file); exit(2); } } if ((t31_state = t31_init(NULL, at_tx_handler, NULL, modem_call_control, NULL, NULL, NULL)) == NULL) { fprintf(stderr, " Cannot start the T.31 FAX modem\n"); exit(2); } logging = t31_get_logging_state(t31_state); span_log_set_level(logging, SPAN_LOG_DEBUG | SPAN_LOG_SHOW_TAG | SPAN_LOG_SHOW_SAMPLE_TIME); span_log_set_tag(logging, "T.31"); if (test_sending) { fax_state = fax_init(NULL, FALSE); t30 = fax_get_t30_state(fax_state); t30_set_rx_file(t30, OUTPUT_FILE_NAME, -1); fax_test_seq = fax_send_test_seq; countdown = 0; } else { fax_state = fax_init(NULL, TRUE); t30 = fax_get_t30_state(fax_state); t30_set_tx_file(t30, INPUT_FILE_NAME, -1, -1); fax_test_seq = fax_receive_test_seq; countdown = 250; } t30_set_tx_ident(t30, "11111111"); t30_set_supported_modems(t30, T30_SUPPORT_V27TER | T30_SUPPORT_V29 | T30_SUPPORT_V17); t30_set_phase_b_handler(t30, phase_b_handler, (void *) 'A'); t30_set_phase_d_handler(t30, phase_d_handler, (void *) 'A'); t30_set_phase_e_handler(t30, phase_e_handler, (void *) 'A'); memset(t30_amp, 0, sizeof(t30_amp)); logging = t30_get_logging_state(t30); span_log_set_level(logging, SPAN_LOG_DEBUG | SPAN_LOG_SHOW_TAG | SPAN_LOG_SHOW_SAMPLE_TIME); span_log_set_tag(logging, "FAX"); logging = fax_get_logging_state(fax_state); span_log_set_level(logging, SPAN_LOG_DEBUG | SPAN_LOG_SHOW_TAG | SPAN_LOG_SHOW_SAMPLE_TIME); span_log_set_tag(logging, "FAX"); fast_send = FALSE; fast_send_tcf = TRUE; fast_blocks = 0; kick = TRUE; while (!done) { if (kick) { kick = FALSE; if (fax_test_seq[test_seq_ptr].command > (const char *) 2) { if (fax_test_seq[test_seq_ptr].command[0]) { printf("%s\n", fax_test_seq[test_seq_ptr].command); t31_at_rx(t31_state, fax_test_seq[test_seq_ptr].command, fax_test_seq[test_seq_ptr].len_command); } } else { if (fax_test_seq[test_seq_ptr].command == (const char *) 2) { printf("Fast send TCF\n"); fast_send = TRUE; fast_send_tcf = TRUE; fast_blocks = 100; } else { printf("Fast send image\n"); fast_send = TRUE; fast_send_tcf = FALSE; fast_blocks = 100; } } } if (fast_send) { /* Send fast modem data */ if (fast_send_tcf) { memset(fast_buf, 0, 36); } else { if (fast_blocks == 1) { /* Create the end of page condition */ for (i = 0; i < 36; i += 2) { fast_buf[i] = 0x00; fast_buf[i + 1] = 0x80; } } else { /* Create a chunk of white page */ for (i = 0; i < 36; i += 4) { fast_buf[i] = 0x00; fast_buf[i + 1] = 0x80; fast_buf[i + 2] = 0xB2; fast_buf[i + 3] = 0x01; } } } if (fast_blocks == 1) { /* Insert EOLs */ fast_buf[35] = ETX; fast_buf[34] = DLE; fast_buf[31] = fast_buf[28] = fast_buf[25] = fast_buf[22] = fast_buf[19] = fast_buf[16] = 1; } t31_at_rx(t31_state, (char *) fast_buf, 36); if (--fast_blocks == 0) fast_send = FALSE; } t30_len = fax_tx(fax_state, t30_amp, SAMPLES_PER_CHUNK); /* The receive side always expects a full block of samples, but the transmit side may not be sending any when it doesn't need to. We may need to pad with some silence. */ if (t30_len < SAMPLES_PER_CHUNK) { memset(t30_amp + t30_len, 0, sizeof(int16_t)*(SAMPLES_PER_CHUNK - t30_len)); t30_len = SAMPLES_PER_CHUNK; } if (log_audio) { for (k = 0; k < t30_len; k++) out_amp[2*k] = t30_amp[k]; } if (t31_rx(t31_state, t30_amp, t30_len)) break; if (countdown) { if (answered) { countdown = 0; t31_call_event(t31_state, AT_CALL_EVENT_ANSWERED); } else if (--countdown == 0) { t31_call_event(t31_state, AT_CALL_EVENT_ALERTING); countdown = 250; } } t31_len = t31_tx(t31_state, t31_amp, SAMPLES_PER_CHUNK); if (t31_len < SAMPLES_PER_CHUNK) { memset(t31_amp + t31_len, 0, sizeof(int16_t)*(SAMPLES_PER_CHUNK - t31_len)); t31_len = SAMPLES_PER_CHUNK; } if (log_audio) { for (k = 0; k < t31_len; k++) out_amp[2*k + 1] = t31_amp[k]; } if (fax_rx(fax_state, t31_amp, SAMPLES_PER_CHUNK)) break; logging = fax_get_logging_state(fax_state); span_log_bump_samples(logging, SAMPLES_PER_CHUNK); logging = t30_get_logging_state(t30); span_log_bump_samples(logging, SAMPLES_PER_CHUNK); logging = t31_get_logging_state(t31_state); span_log_bump_samples(logging, SAMPLES_PER_CHUNK); if (log_audio) { outframes = sf_writef_short(wave_handle, out_amp, SAMPLES_PER_CHUNK); if (outframes != SAMPLES_PER_CHUNK) break; } } if (decode_test_file) { if (sf_close(in_handle) != 0) { fprintf(stderr, " Cannot close audio file '%s'\n", decode_test_file); exit(2); } } if (log_audio) { if (sf_close(wave_handle) != 0) { fprintf(stderr, " Cannot close audio file '%s'\n", OUTPUT_WAVE_FILE_NAME); exit(2); } } return 0; } /*- End of function --------------------------------------------------------*/ int main(int argc, char *argv[]) { int log_audio; int t38_mode; int test_sending; int use_gui; int opt; decode_test_file = NULL; log_audio = FALSE; test_sending = FALSE; t38_mode = FALSE; use_gui = FALSE; while ((opt = getopt(argc, argv, "d:glrst")) != -1) { switch (opt) { case 'd': decode_test_file = optarg; break; case 'g': #if defined(ENABLE_GUI) use_gui = TRUE; #else fprintf(stderr, "Graphical monitoring not available\n"); exit(2); #endif break; case 'l': log_audio = TRUE; break; case 'r': test_sending = FALSE; break; case 's': test_sending = TRUE; break; case 't': t38_mode = TRUE; break; default: //usage(); exit(2); break; } } if (t38_mode) t38_tests(use_gui, test_sending, 0, 1); else t30_tests(log_audio, test_sending); if (done) { printf("Tests passed\n"); } return 0; } /*- End of function --------------------------------------------------------*/ /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/tests/g726_tests.c0000664000175000017500000011525711422612266016031 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * g726_tests.c - Test G.726 encode and decode. * * Written by Steve Underwood * * Copyright (C) 2006 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License version 2, as * published by the Free Software Foundation. * * 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., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \file */ /*! \page g726_tests_page G.726 tests \section g726_tests_page_sec_1 What does it do? Two sets of tests are performed: - The tests defined in the G.726 specification, using the test data files supplied with the specification. - A generally audio quality test, consisting of compressing and decompressing a speeech file for audible comparison. The speech file should be recorded at 16 bits/sample, 8000 samples/second, and named "pre_g726.wav". \section g726_tests_page_sec_2 How is it used? To perform the tests in the G.726 specification you need to obtain the test data files from the specification. These are copyright material, and so cannot be distributed with this test software. The files, containing test vectors, which are supplied with the G.726 specification, should be copied to itutests/g726 so the files are arranged in the same directory heirarchy in which they are supplied. That is, you should have file names like - itutests/g726/DISK1/INPUT/NRM.M - itutests/g726/DISK1/INPUT/OVR.M - itutests/g726/DISK2/INPUT/NRM.A - itutests/g726/DISK2/INPUT/OVR.A in your source tree. The ITU tests can then be run by executing g726_tests without any parameters. To perform a general audio quality test, g726_tests should be run with a parameter specifying the required bit rate for compression. The valid parameters are "-16", "-24", "-32", and "-40". The test file ../test-data/local/short_nb_voice.wav will be compressed to the specified bit rate, decompressed, and the resulting audio stored in post_g726.wav. */ /* Enable the following definition to enable direct probing into the FAX structures */ //#define WITH_SPANDSP_INTERNALS #if defined(HAVE_CONFIG_H) #include #endif #include #include #include #include #include #include #include //#if defined(WITH_SPANDSP_INTERNALS) #define SPANDSP_EXPOSE_INTERNAL_STRUCTURES //#endif #include "spandsp.h" #include "spandsp-sim.h" #define BLOCK_LEN 320 #define MAX_TEST_VECTOR_LEN 40000 #define TESTDATA_DIR "../test-data/itu/g726/" #define IN_FILE_NAME "../test-data/local/short_nb_voice.wav" #define OUT_FILE_NAME "post_g726.wav" int16_t outdata[MAX_TEST_VECTOR_LEN]; uint8_t adpcmdata[MAX_TEST_VECTOR_LEN]; int16_t itudata[MAX_TEST_VECTOR_LEN]; uint8_t itu_ref[MAX_TEST_VECTOR_LEN]; uint8_t unpacked[MAX_TEST_VECTOR_LEN]; uint8_t xlaw[MAX_TEST_VECTOR_LEN]; /* Table 4 - V Reset and homing sequences for u-law Normal I-input Overload Algorithm Input Intermediate Output Input Output Input Intermediate Output (PCM) (ADPCM) (PCM) (ADPCM) (PCM) (PCM) (ADPCM) (PCM) 16F NRM.M RN16FM.I RN16FM.O I16 RI16FM.O OVR.M RV16FM.I RV16FM.O HN16FM.I HN16FM.O HI16FM.O HV16FM.I HV16FM.O 24F NRM.M RN24FM.I RN24FM.O I24 RI24FM.O OVR.M RV24FM.I RV24FM.O HN24FM.I HN24FM.O HI24FM.O HV24FM.I HV24FM.O 32F NRM.M RN32FM.I RN32FM.O I32 RI32FM.O OVR.M RV32FM.I RV32FM.O HN32FM.I HN32FM.O HI32FM.O HV32FM.I HV32FM.O 40F NRM.M RN40FM.I RN40FM.O I40 RI40FM.O OVR.M RV40FM.I RV40FM.O HN40FM.I HN40FM.O HI40FM.O HV40FM.I HV40FM.O Table 5 - V Reset and homing sequences for A-law Normal I-input Overload Algorithm Input Intermediate Output Input Output Input Intermediate Output (PCM) (ADPCM) (PCM) (ADPCM) (PCM) (PCM) (ADPCM) (PCM) 16F NRM.A RN16FA.I RN16FA.O I16 RI16FA.O OVR.A RV16FA.I RV16FA.O HN16FA.I HN16FA.O HI16FA.O HV16FA.I HV16FA.O 24F NRM.A RN24FA.I RN24FA.O I24 RI24FA.O OVR.A RV24FA.I RV24FA.O HN24FA.I HN24FA.O HI24FA.O HV24FA.I HV24FA.O 32F NRM.A RN32FA.I RN32FA.O I32 RI32FA.O OVR.A RV32FA.I RV32FA.O HN32FA.I HN32FA.O HI32FA.O HV32FA.I HV32FA.O 40F NRM.A RN40FA.I RN40FA.O I40 RI40FA.O OVR.A RV40FA.I RV40FA.O HN40FA.I HN40FA.O HI40FA.O HV40FA.I HV40FA.O Table 6 ¡V Reset and homing cross sequences for u-law -> A-law Normal Overload Algorithm Input Intermediate Output Input Intermediate Output (PCM) (ADPCM) (PCM) (PCM) (ADPCM) (PCM) 16F NRM.M RN16FM.I RN16FC.O OVR.M RV16FM.I RV16FC.O HN16FM.I HN16FC.O HV16FM.I HV16FC.O 24F NRM.M RN24FM.I RN24FC.O OVR.M RV24FM.I RV24FC.O HN24FM.I HN24FC.O HV24FM.I HV24FC.O 32F NRM.M RN32FM.I RN32FC.O OVR.M RV32FM.I RV32FC.O HN32FM.I HN32FC.O HV32FM.I HV32FC.O 40F NRM.M RN40FM.I RN40FC.O OVR.M RV40FM.I RV40FC.O HN40FM.I HN40FC.O HV40FM.I HV40FC.O Table 7 ¡V Reset and homing cross sequences for A-law -> u-law Normal Overload Algorithm Input Intermediate Output Input Intermediate Output (PCM) (ADPCM) (PCM) (PCM) (ADPCM) (PCM) 16F NRM.A RN16FA.I RN16FX.O OVR.A RV16FA.I RV16FX.O HN16FA.I HN16FX.O HV16FA.I HV16FX.O 24F NRM.A RN24FA.I RN24FX.O OVR.A RV24FA.I RV24FX.O HN24FA.I HN24FX.O HV24FA.I HV24FX.O 32F NRM.A RN32FA.I RN32FX.O OVR.A RV32FA.I RV32FX.O HN32FA.I HN32FX.O HV32FA.I HV32FX.O 40F NRM.A RN40FA.I RN40FX.O OVR.A RV40FA.I RV40FX.O HN40FA.I HN40FX.O HV40FA.I HV40FX.O */ #define G726_ENCODING_NONE 9999 typedef struct { const char *conditioning_pcm_file; const char *pcm_file; const char *conditioning_adpcm_file; const char *adpcm_file; const char *output_file; int rate; int compression_law; int decompression_law; } test_set_t; static test_set_t itu_test_sets[] = { /* u-law to u-law tests */ { "", TESTDATA_DIR "DISK1/INPUT/NRM.M", "", TESTDATA_DIR "DISK1/RESET/16/RN16FM.I", TESTDATA_DIR "DISK1/RESET/16/RN16FM.O", 16000, G726_ENCODING_ULAW, G726_ENCODING_ULAW }, { "", "", "", TESTDATA_DIR "DISK1/INPUT/I16", TESTDATA_DIR "DISK1/RESET/16/RI16FM.O", 16000, G726_ENCODING_NONE, G726_ENCODING_ULAW }, { "", TESTDATA_DIR "DISK1/INPUT/OVR.M", "", TESTDATA_DIR "DISK1/RESET/16/RV16FM.I", TESTDATA_DIR "DISK1/RESET/16/RV16FM.O", 16000, G726_ENCODING_ULAW, G726_ENCODING_ULAW }, { "", TESTDATA_DIR "DISK1/INPUT/NRM.M", "", TESTDATA_DIR "DISK1/RESET/24/RN24FM.I", TESTDATA_DIR "DISK1/RESET/24/RN24FM.O", 24000, G726_ENCODING_ULAW, G726_ENCODING_ULAW }, { "", "", "", TESTDATA_DIR "DISK1/INPUT/I24", TESTDATA_DIR "DISK1/RESET/24/RI24FM.O", 24000, G726_ENCODING_NONE, G726_ENCODING_ULAW }, { "", TESTDATA_DIR "DISK1/INPUT/OVR.M", "", TESTDATA_DIR "DISK1/RESET/24/RV24FM.I", TESTDATA_DIR "DISK1/RESET/24/RV24FM.O", 24000, G726_ENCODING_ULAW, G726_ENCODING_ULAW }, { "", TESTDATA_DIR "DISK1/INPUT/NRM.M", "", TESTDATA_DIR "DISK1/RESET/32/RN32FM.I", TESTDATA_DIR "DISK1/RESET/32/RN32FM.O", 32000, G726_ENCODING_ULAW, G726_ENCODING_ULAW }, { "", "", "", TESTDATA_DIR "DISK1/INPUT/I32", TESTDATA_DIR "DISK1/RESET/32/RI32FM.O", 32000, G726_ENCODING_NONE, G726_ENCODING_ULAW }, { "", TESTDATA_DIR "DISK1/INPUT/OVR.M", "", TESTDATA_DIR "DISK1/RESET/32/RV32FM.I", TESTDATA_DIR "DISK1/RESET/32/RV32FM.O", 32000, G726_ENCODING_ULAW, G726_ENCODING_ULAW }, { "", TESTDATA_DIR "DISK1/INPUT/NRM.M", "", TESTDATA_DIR "DISK1/RESET/40/RN40FM.I", TESTDATA_DIR "DISK1/RESET/40/RN40FM.O", 40000, G726_ENCODING_ULAW, G726_ENCODING_ULAW }, { "", "", "", TESTDATA_DIR "DISK1/INPUT/I40", TESTDATA_DIR "DISK1/RESET/40/RI40FM.O", 40000, G726_ENCODING_NONE, G726_ENCODING_ULAW }, { "", TESTDATA_DIR "DISK1/INPUT/OVR.M", "", TESTDATA_DIR "DISK1/RESET/40/RV40FM.I", TESTDATA_DIR "DISK1/RESET/40/RV40FM.O", 40000, G726_ENCODING_ULAW, G726_ENCODING_ULAW }, /* A-law to A-law tests */ { "", TESTDATA_DIR "DISK2/INPUT/NRM.A", "", TESTDATA_DIR "DISK2/RESET/16/RN16FA.I", TESTDATA_DIR "DISK2/RESET/16/RN16FA.O", 16000, G726_ENCODING_ALAW, G726_ENCODING_ALAW }, { "", "", "", TESTDATA_DIR "DISK2/INPUT/I16", TESTDATA_DIR "DISK2/RESET/16/RI16FA.O", 16000, G726_ENCODING_NONE, G726_ENCODING_ALAW }, { "", TESTDATA_DIR "DISK2/INPUT/OVR.A", "", TESTDATA_DIR "DISK2/RESET/16/RV16FA.I", TESTDATA_DIR "DISK2/RESET/16/RV16FA.O", 16000, G726_ENCODING_ALAW, G726_ENCODING_ALAW }, { "", TESTDATA_DIR "DISK2/INPUT/NRM.A", "", TESTDATA_DIR "DISK2/RESET/24/RN24FA.I", TESTDATA_DIR "DISK2/RESET/24/RN24FA.O", 24000, G726_ENCODING_ALAW, G726_ENCODING_ALAW }, { "", "", "", TESTDATA_DIR "DISK2/INPUT/I24", TESTDATA_DIR "DISK2/RESET/24/RI24FA.O", 24000, G726_ENCODING_NONE, G726_ENCODING_ALAW }, { "", TESTDATA_DIR "DISK2/INPUT/OVR.A", "", TESTDATA_DIR "DISK2/RESET/24/RV24FA.I", TESTDATA_DIR "DISK2/RESET/24/RV24FA.O", 24000, G726_ENCODING_ALAW, G726_ENCODING_ALAW }, { "", TESTDATA_DIR "DISK2/INPUT/NRM.A", "", TESTDATA_DIR "DISK2/RESET/32/RN32FA.I", TESTDATA_DIR "DISK2/RESET/32/RN32FA.O", 32000, G726_ENCODING_ALAW, G726_ENCODING_ALAW }, { "", "", "", TESTDATA_DIR "DISK2/INPUT/I32", TESTDATA_DIR "DISK2/RESET/32/RI32FA.O", 32000, G726_ENCODING_NONE, G726_ENCODING_ALAW }, { "", TESTDATA_DIR "DISK2/INPUT/OVR.A", "", TESTDATA_DIR "DISK2/RESET/32/RV32FA.I", TESTDATA_DIR "DISK2/RESET/32/RV32FA.O", 32000, G726_ENCODING_ALAW, G726_ENCODING_ALAW }, { "", TESTDATA_DIR "DISK2/INPUT/NRM.A", "", TESTDATA_DIR "DISK2/RESET/40/RN40FA.I", TESTDATA_DIR "DISK2/RESET/40/RN40FA.O", 40000, G726_ENCODING_ALAW, G726_ENCODING_ALAW }, { "", "", "", TESTDATA_DIR "DISK2/INPUT/I40", TESTDATA_DIR "DISK2/RESET/40/RI40FA.O", 40000, G726_ENCODING_NONE, G726_ENCODING_ALAW }, { "", TESTDATA_DIR "DISK2/INPUT/OVR.A", "", TESTDATA_DIR "DISK2/RESET/40/RV40FA.I", TESTDATA_DIR "DISK2/RESET/40/RV40FA.O", 40000, G726_ENCODING_ALAW, G726_ENCODING_ALAW }, /* u-law to A-law tests */ { "", TESTDATA_DIR "DISK1/INPUT/NRM.M", "", TESTDATA_DIR "DISK1/RESET/16/RN16FM.I", TESTDATA_DIR "DISK1/RESET/16/RN16FC.O", 16000, G726_ENCODING_ULAW, G726_ENCODING_ALAW }, { "", TESTDATA_DIR "DISK1/INPUT/OVR.M", "", TESTDATA_DIR "DISK1/RESET/16/RV16FM.I", TESTDATA_DIR "DISK1/RESET/16/RV16FC.O", 16000, G726_ENCODING_ULAW, G726_ENCODING_ALAW }, { "", TESTDATA_DIR "DISK1/INPUT/NRM.M", "", TESTDATA_DIR "DISK1/RESET/24/RN24FM.I", TESTDATA_DIR "DISK1/RESET/24/RN24FC.O", 24000, G726_ENCODING_ULAW, G726_ENCODING_ALAW }, { "", TESTDATA_DIR "DISK1/INPUT/OVR.M", "", TESTDATA_DIR "DISK1/RESET/24/RV24FM.I", TESTDATA_DIR "DISK1/RESET/24/RV24FC.O", 24000, G726_ENCODING_ULAW, G726_ENCODING_ALAW }, { "", TESTDATA_DIR "DISK1/INPUT/NRM.M", "", TESTDATA_DIR "DISK1/RESET/32/RN32FM.I", TESTDATA_DIR "DISK1/RESET/32/RN32FC.O", 32000, G726_ENCODING_ULAW, G726_ENCODING_ALAW }, { "", TESTDATA_DIR "DISK1/INPUT/OVR.M", "", TESTDATA_DIR "DISK1/RESET/32/RV32FM.I", TESTDATA_DIR "DISK1/RESET/32/RV32FC.O", 32000, G726_ENCODING_ULAW, G726_ENCODING_ALAW }, { "", TESTDATA_DIR "DISK1/INPUT/NRM.M", "", TESTDATA_DIR "DISK1/RESET/40/RN40FM.I", TESTDATA_DIR "DISK1/RESET/40/RN40FC.O", 40000, G726_ENCODING_ULAW, G726_ENCODING_ALAW }, { "", TESTDATA_DIR "DISK1/INPUT/OVR.M", "", TESTDATA_DIR "DISK1/RESET/40/RV40FM.I", TESTDATA_DIR "DISK1/RESET/40/RV40FC.O", 40000, G726_ENCODING_ULAW, G726_ENCODING_ALAW }, /* A-law to u-law tests */ { "", TESTDATA_DIR "DISK2/INPUT/NRM.A", "", TESTDATA_DIR "DISK2/RESET/16/RN16FA.I", TESTDATA_DIR "DISK2/RESET/16/RN16FX.O", 16000, G726_ENCODING_ALAW, G726_ENCODING_ULAW }, { "", TESTDATA_DIR "DISK2/INPUT/OVR.A", "", TESTDATA_DIR "DISK2/RESET/16/RV16FA.I", TESTDATA_DIR "DISK2/RESET/16/RV16FX.O", 16000, G726_ENCODING_ALAW, G726_ENCODING_ULAW }, { "", TESTDATA_DIR "DISK2/INPUT/NRM.A", "", TESTDATA_DIR "DISK2/RESET/24/RN24FA.I", TESTDATA_DIR "DISK2/RESET/24/RN24FX.O", 24000, G726_ENCODING_ALAW, G726_ENCODING_ULAW }, { "", TESTDATA_DIR "DISK2/INPUT/OVR.A", "", TESTDATA_DIR "DISK2/RESET/24/RV24FA.I", TESTDATA_DIR "DISK2/RESET/24/RV24FX.O", 24000, G726_ENCODING_ALAW, G726_ENCODING_ULAW }, { "", TESTDATA_DIR "DISK2/INPUT/NRM.A", "", TESTDATA_DIR "DISK2/RESET/32/RN32FA.I", TESTDATA_DIR "DISK2/RESET/32/RN32FX.O", 32000, G726_ENCODING_ALAW, G726_ENCODING_ULAW }, { "", TESTDATA_DIR "DISK2/INPUT/OVR.A", "", TESTDATA_DIR "DISK2/RESET/32/RV32FA.I", TESTDATA_DIR "DISK2/RESET/32/RV32FX.O", 32000, G726_ENCODING_ALAW, G726_ENCODING_ULAW }, { "", TESTDATA_DIR "DISK2/INPUT/NRM.A", "", TESTDATA_DIR "DISK2/RESET/40/RN40FA.I", TESTDATA_DIR "DISK2/RESET/40/RN40FX.O", 40000, G726_ENCODING_ALAW, G726_ENCODING_ULAW }, { "", TESTDATA_DIR "DISK2/INPUT/OVR.A", "", TESTDATA_DIR "DISK2/RESET/40/RV40FA.I", TESTDATA_DIR "DISK2/RESET/40/RV40FX.O", 40000, G726_ENCODING_ALAW, G726_ENCODING_ULAW }, /* u-law to u-law tests */ { TESTDATA_DIR "DISK1/PCM_INIT.M", TESTDATA_DIR "DISK1/INPUT/NRM.M", TESTDATA_DIR "DISK1/HOMING/16/I_INI_16.M", TESTDATA_DIR "DISK1/HOMING/16/HN16FM.I", TESTDATA_DIR "DISK1/HOMING/16/HN16FM.O", 16000, G726_ENCODING_ULAW, G726_ENCODING_ULAW }, { "", "", TESTDATA_DIR "DISK1/HOMING/16/I_INI_16.M", TESTDATA_DIR "DISK1/INPUT/I16", TESTDATA_DIR "DISK1/HOMING/16/HI16FM.O", 16000, G726_ENCODING_NONE, G726_ENCODING_ULAW }, { TESTDATA_DIR "DISK1/PCM_INIT.M", TESTDATA_DIR "DISK1/INPUT/OVR.M", TESTDATA_DIR "DISK1/HOMING/16/I_INI_16.M", TESTDATA_DIR "DISK1/HOMING/16/HV16FM.I", TESTDATA_DIR "DISK1/HOMING/16/HV16FM.O", 16000, G726_ENCODING_ULAW, G726_ENCODING_ULAW }, { TESTDATA_DIR "DISK1/PCM_INIT.M", TESTDATA_DIR "DISK1/INPUT/NRM.M", TESTDATA_DIR "DISK1/HOMING/24/I_INI_24.M", TESTDATA_DIR "DISK1/HOMING/24/HN24FM.I", TESTDATA_DIR "DISK1/HOMING/24/HN24FM.O", 24000, G726_ENCODING_ULAW, G726_ENCODING_ULAW }, { "", "", TESTDATA_DIR "DISK1/HOMING/24/I_INI_24.M", TESTDATA_DIR "DISK1/INPUT/I24", TESTDATA_DIR "DISK1/HOMING/24/HI24FM.O", 24000, G726_ENCODING_NONE, G726_ENCODING_ULAW }, { TESTDATA_DIR "DISK1/PCM_INIT.M", TESTDATA_DIR "DISK1/INPUT/OVR.M", TESTDATA_DIR "DISK1/HOMING/24/I_INI_24.M", TESTDATA_DIR "DISK1/HOMING/24/HV24FM.I", TESTDATA_DIR "DISK1/HOMING/24/HV24FM.O", 24000, G726_ENCODING_ULAW, G726_ENCODING_ULAW }, { TESTDATA_DIR "DISK1/PCM_INIT.M", TESTDATA_DIR "DISK1/INPUT/NRM.M", TESTDATA_DIR "DISK1/HOMING/32/I_INI_32.M", TESTDATA_DIR "DISK1/HOMING/32/HN32FM.I", TESTDATA_DIR "DISK1/HOMING/32/HN32FM.O", 32000, G726_ENCODING_ULAW, G726_ENCODING_ULAW }, { "", "", TESTDATA_DIR "DISK1/HOMING/32/I_INI_32.M", TESTDATA_DIR "DISK1/INPUT/I32", TESTDATA_DIR "DISK1/HOMING/32/HI32FM.O", 32000, G726_ENCODING_NONE, G726_ENCODING_ULAW }, { TESTDATA_DIR "DISK1/PCM_INIT.M", TESTDATA_DIR "DISK1/INPUT/OVR.M", TESTDATA_DIR "DISK1/HOMING/32/I_INI_32.M", TESTDATA_DIR "DISK1/HOMING/32/HV32FM.I", TESTDATA_DIR "DISK1/HOMING/32/HV32FM.O", 32000, G726_ENCODING_ULAW, G726_ENCODING_ULAW }, { TESTDATA_DIR "DISK1/PCM_INIT.M", TESTDATA_DIR "DISK1/INPUT/NRM.M", TESTDATA_DIR "DISK1/HOMING/40/I_INI_40.M", TESTDATA_DIR "DISK1/HOMING/40/HN40FM.I", TESTDATA_DIR "DISK1/HOMING/40/HN40FM.O", 40000, G726_ENCODING_ULAW, G726_ENCODING_ULAW }, { "", "", TESTDATA_DIR "DISK1/HOMING/40/I_INI_40.M", TESTDATA_DIR "DISK1/INPUT/I40", TESTDATA_DIR "DISK1/HOMING/40/HI40FM.O", 40000, G726_ENCODING_NONE, G726_ENCODING_ULAW }, { TESTDATA_DIR "DISK1/PCM_INIT.M", TESTDATA_DIR "DISK1/INPUT/OVR.M", TESTDATA_DIR "DISK1/HOMING/40/I_INI_40.M", TESTDATA_DIR "DISK1/HOMING/40/HV40FM.I", TESTDATA_DIR "DISK1/HOMING/40/HV40FM.O", 40000, G726_ENCODING_ULAW, G726_ENCODING_ULAW }, /* A-law to A-law tests */ { TESTDATA_DIR "DISK2/PCM_INIT.A", TESTDATA_DIR "DISK2/INPUT/NRM.A", TESTDATA_DIR "DISK2/HOMING/16/I_INI_16.A", TESTDATA_DIR "DISK2/HOMING/16/HN16FA.I", TESTDATA_DIR "DISK2/HOMING/16/HN16FA.O", 16000, G726_ENCODING_ALAW, G726_ENCODING_ALAW }, { "", "", TESTDATA_DIR "DISK2/HOMING/16/I_INI_16.A", TESTDATA_DIR "DISK2/INPUT/I16", TESTDATA_DIR "DISK2/HOMING/16/HI16FA.O", 16000, G726_ENCODING_NONE, G726_ENCODING_ALAW }, { TESTDATA_DIR "DISK2/PCM_INIT.A", TESTDATA_DIR "DISK2/INPUT/OVR.A", TESTDATA_DIR "DISK2/HOMING/16/I_INI_16.A", TESTDATA_DIR "DISK2/HOMING/16/HV16FA.I", TESTDATA_DIR "DISK2/HOMING/16/HV16FA.O", 16000, G726_ENCODING_ALAW, G726_ENCODING_ALAW }, { TESTDATA_DIR "DISK2/PCM_INIT.A", TESTDATA_DIR "DISK2/INPUT/NRM.A", TESTDATA_DIR "DISK2/HOMING/24/I_INI_24.A", TESTDATA_DIR "DISK2/HOMING/24/HN24FA.I", TESTDATA_DIR "DISK2/HOMING/24/HN24FA.O", 24000, G726_ENCODING_ALAW, G726_ENCODING_ALAW }, { "", "", TESTDATA_DIR "DISK2/HOMING/24/I_INI_24.A", TESTDATA_DIR "DISK2/INPUT/I24", TESTDATA_DIR "DISK2/HOMING/24/HI24FA.O", 24000, G726_ENCODING_NONE, G726_ENCODING_ALAW }, { TESTDATA_DIR "DISK2/PCM_INIT.A", TESTDATA_DIR "DISK2/INPUT/OVR.A", TESTDATA_DIR "DISK2/HOMING/24/I_INI_24.A", TESTDATA_DIR "DISK2/HOMING/24/HV24FA.I", TESTDATA_DIR "DISK2/HOMING/24/HV24FA.O", 24000, G726_ENCODING_ALAW, G726_ENCODING_ALAW }, { TESTDATA_DIR "DISK2/PCM_INIT.A", TESTDATA_DIR "DISK2/INPUT/NRM.A", TESTDATA_DIR "DISK2/HOMING/32/I_INI_32.A", TESTDATA_DIR "DISK2/HOMING/32/HN32FA.I", TESTDATA_DIR "DISK2/HOMING/32/HN32FA.O", 32000, G726_ENCODING_ALAW, G726_ENCODING_ALAW }, { "", "", TESTDATA_DIR "DISK2/HOMING/32/I_INI_32.A", TESTDATA_DIR "DISK2/INPUT/I32", TESTDATA_DIR "DISK2/HOMING/32/HI32FA.O", 32000, G726_ENCODING_NONE, G726_ENCODING_ALAW }, { TESTDATA_DIR "DISK2/PCM_INIT.A", TESTDATA_DIR "DISK2/INPUT/OVR.A", TESTDATA_DIR "DISK2/HOMING/32/I_INI_32.A", TESTDATA_DIR "DISK2/HOMING/32/HV32FA.I", TESTDATA_DIR "DISK2/HOMING/32/HV32FA.O", 32000, G726_ENCODING_ALAW, G726_ENCODING_ALAW }, { TESTDATA_DIR "DISK2/PCM_INIT.A", TESTDATA_DIR "DISK2/INPUT/NRM.A", TESTDATA_DIR "DISK2/HOMING/40/I_INI_40.A", TESTDATA_DIR "DISK2/HOMING/40/HN40FA.I", TESTDATA_DIR "DISK2/HOMING/40/HN40FA.O", 40000, G726_ENCODING_ALAW, G726_ENCODING_ALAW }, { "", "", TESTDATA_DIR "DISK2/HOMING/40/I_INI_40.A", TESTDATA_DIR "DISK2/INPUT/I40", TESTDATA_DIR "DISK2/HOMING/40/HI40FA.O", 40000, G726_ENCODING_NONE, G726_ENCODING_ALAW }, { TESTDATA_DIR "DISK2/PCM_INIT.A", TESTDATA_DIR "DISK2/INPUT/OVR.A", TESTDATA_DIR "DISK2/HOMING/40/I_INI_40.A", TESTDATA_DIR "DISK2/HOMING/40/HV40FA.I", TESTDATA_DIR "DISK2/HOMING/40/HV40FA.O", 40000, G726_ENCODING_ALAW, G726_ENCODING_ALAW }, /* u-law to A-law tests */ { TESTDATA_DIR "DISK1/PCM_INIT.M", TESTDATA_DIR "DISK1/INPUT/NRM.M", TESTDATA_DIR "DISK2/HOMING/16/I_INI_16.A", TESTDATA_DIR "DISK1/HOMING/16/HN16FM.I", TESTDATA_DIR "DISK1/HOMING/16/HN16FC.O", 16000, G726_ENCODING_ULAW, G726_ENCODING_ALAW }, { TESTDATA_DIR "DISK1/PCM_INIT.M", TESTDATA_DIR "DISK1/INPUT/OVR.M", TESTDATA_DIR "DISK2/HOMING/16/I_INI_16.A", TESTDATA_DIR "DISK1/HOMING/16/HV16FM.I", TESTDATA_DIR "DISK1/HOMING/16/HV16FC.O", 16000, G726_ENCODING_ULAW, G726_ENCODING_ALAW }, { TESTDATA_DIR "DISK1/PCM_INIT.M", TESTDATA_DIR "DISK1/INPUT/NRM.M", TESTDATA_DIR "DISK2/HOMING/24/I_INI_24.A", TESTDATA_DIR "DISK1/HOMING/24/HN24FM.I", TESTDATA_DIR "DISK1/HOMING/24/HN24FC.O", 24000, G726_ENCODING_ULAW, G726_ENCODING_ALAW }, { TESTDATA_DIR "DISK1/PCM_INIT.M", TESTDATA_DIR "DISK1/INPUT/OVR.M", TESTDATA_DIR "DISK2/HOMING/24/I_INI_24.A", TESTDATA_DIR "DISK1/HOMING/24/HV24FM.I", TESTDATA_DIR "DISK1/HOMING/24/HV24FC.O", 24000, G726_ENCODING_ULAW, G726_ENCODING_ALAW }, { TESTDATA_DIR "DISK1/PCM_INIT.M", TESTDATA_DIR "DISK1/INPUT/NRM.M", TESTDATA_DIR "DISK2/HOMING/32/I_INI_32.A", TESTDATA_DIR "DISK1/HOMING/32/HN32FM.I", TESTDATA_DIR "DISK1/HOMING/32/HN32FC.O", 32000, G726_ENCODING_ULAW, G726_ENCODING_ALAW }, { TESTDATA_DIR "DISK1/PCM_INIT.M", TESTDATA_DIR "DISK1/INPUT/OVR.M", TESTDATA_DIR "DISK2/HOMING/32/I_INI_32.A", TESTDATA_DIR "DISK1/HOMING/32/HV32FM.I", TESTDATA_DIR "DISK1/HOMING/32/HV32FC.O", 32000, G726_ENCODING_ULAW, G726_ENCODING_ALAW }, { TESTDATA_DIR "DISK1/PCM_INIT.M", TESTDATA_DIR "DISK1/INPUT/NRM.M", TESTDATA_DIR "DISK2/HOMING/40/I_INI_40.A", TESTDATA_DIR "DISK1/HOMING/40/HN40FM.I", TESTDATA_DIR "DISK1/HOMING/40/HN40FC.O", 40000, G726_ENCODING_ULAW, G726_ENCODING_ALAW }, { TESTDATA_DIR "DISK1/PCM_INIT.M", TESTDATA_DIR "DISK1/INPUT/OVR.M", TESTDATA_DIR "DISK2/HOMING/40/I_INI_40.A", TESTDATA_DIR "DISK1/HOMING/40/HV40FM.I", TESTDATA_DIR "DISK1/HOMING/40/HV40FC.O", 40000, G726_ENCODING_ULAW, G726_ENCODING_ALAW }, /* A-law to u-law tests */ { TESTDATA_DIR "DISK2/PCM_INIT.A", TESTDATA_DIR "DISK2/INPUT/NRM.A", TESTDATA_DIR "DISK1/HOMING/16/I_INI_16.M", TESTDATA_DIR "DISK2/HOMING/16/HN16FA.I", TESTDATA_DIR "DISK2/HOMING/16/HN16FX.O", 16000, G726_ENCODING_ALAW, G726_ENCODING_ULAW }, { TESTDATA_DIR "DISK2/PCM_INIT.A", TESTDATA_DIR "DISK2/INPUT/OVR.A", TESTDATA_DIR "DISK1/HOMING/16/I_INI_16.M", TESTDATA_DIR "DISK2/HOMING/16/HV16FA.I", TESTDATA_DIR "DISK2/HOMING/16/HV16FX.O", 16000, G726_ENCODING_ALAW, G726_ENCODING_ULAW }, { TESTDATA_DIR "DISK2/PCM_INIT.A", TESTDATA_DIR "DISK2/INPUT/NRM.A", TESTDATA_DIR "DISK1/HOMING/24/I_INI_24.M", TESTDATA_DIR "DISK2/HOMING/24/HN24FA.I", TESTDATA_DIR "DISK2/HOMING/24/HN24FX.O", 24000, G726_ENCODING_ALAW, G726_ENCODING_ULAW }, { TESTDATA_DIR "DISK2/PCM_INIT.A", TESTDATA_DIR "DISK2/INPUT/OVR.A", TESTDATA_DIR "DISK1/HOMING/24/I_INI_24.M", TESTDATA_DIR "DISK2/HOMING/24/HV24FA.I", TESTDATA_DIR "DISK2/HOMING/24/HV24FX.O", 24000, G726_ENCODING_ALAW, G726_ENCODING_ULAW }, { TESTDATA_DIR "DISK2/PCM_INIT.A", TESTDATA_DIR "DISK2/INPUT/NRM.A", TESTDATA_DIR "DISK1/HOMING/32/I_INI_32.M", TESTDATA_DIR "DISK2/HOMING/32/HN32FA.I", TESTDATA_DIR "DISK2/HOMING/32/HN32FX.O", 32000, G726_ENCODING_ALAW, G726_ENCODING_ULAW }, { TESTDATA_DIR "DISK2/PCM_INIT.A", TESTDATA_DIR "DISK2/INPUT/OVR.A", TESTDATA_DIR "DISK1/HOMING/32/I_INI_32.M", TESTDATA_DIR "DISK2/HOMING/32/HV32FA.I", TESTDATA_DIR "DISK2/HOMING/32/HV32FX.O", 32000, G726_ENCODING_ALAW, G726_ENCODING_ULAW }, { TESTDATA_DIR "DISK2/PCM_INIT.A", TESTDATA_DIR "DISK2/INPUT/NRM.A", TESTDATA_DIR "DISK1/HOMING/40/I_INI_40.M", TESTDATA_DIR "DISK2/HOMING/40/HN40FA.I", TESTDATA_DIR "DISK2/HOMING/40/HN40FX.O", 40000, G726_ENCODING_ALAW, G726_ENCODING_ULAW }, { TESTDATA_DIR "DISK2/PCM_INIT.A", TESTDATA_DIR "DISK2/INPUT/OVR.A", TESTDATA_DIR "DISK1/HOMING/40/I_INI_40.M", TESTDATA_DIR "DISK2/HOMING/40/HV40FA.I", TESTDATA_DIR "DISK2/HOMING/40/HV40FX.O", 40000, G726_ENCODING_ALAW, G726_ENCODING_ULAW }, { NULL, NULL, NULL, NULL, NULL, 0, 0, 0 } }; static int hex_get(char *s) { int i; int value; int x; for (value = i = 0; i < 2; i++) { x = *s++ - 0x30; if (x > 9) x -= 0x07; if (x > 15) x -= 0x20; if (x < 0 || x > 15) return -1; value <<= 4; value |= x; } return value; } /*- End of function --------------------------------------------------------*/ static int get_vector(FILE *file, uint8_t vec[]) { char buf[132 + 1]; char *s; int i; int value; while (fgets(buf, 133, file)) { s = buf; i = 0; while ((value = hex_get(s)) >= 0) { vec[i++] = value; s += 2; } return i; } return 0; } /*- End of function --------------------------------------------------------*/ static int get_test_vector(const char *file, uint8_t buf[], int max_len) { int octets; int i; int sum; FILE *infile; if ((infile = fopen(file, "r")) == NULL) { fprintf(stderr, " Failed to open '%s'\n", file); exit(2); } octets = 0; while ((i = get_vector(infile, buf + octets)) > 0) octets += i; fclose(infile); /* The last octet is a sumcheck, so the real data octets are one less than the total we have */ octets--; /* Test the checksum */ for (sum = i = 0; i < octets; i++) sum += buf[i]; if (sum%255 != (int) buf[i]) { fprintf(stderr, " Sumcheck failed in '%s' - %x %x\n", file, sum%255, buf[i]); exit(2); } return octets; } /*- End of function --------------------------------------------------------*/ static void itu_compliance_tests(void) { g726_state_t enc_state; g726_state_t dec_state; int len2; int len3; int i; int test; int bits_per_code; int bad_samples; int conditioning_samples; int samples; int conditioning_adpcm; int adpcm; len2 = 0; conditioning_samples = 0; for (test = 0; itu_test_sets[test].rate; test++) { printf("Test %2d: '%s' + '%s'\n" " -> '%s' + '%s'\n" " -> '%s' [%d, %d, %d]\n", test, itu_test_sets[test].conditioning_pcm_file, itu_test_sets[test].pcm_file, itu_test_sets[test].conditioning_adpcm_file, itu_test_sets[test].adpcm_file, itu_test_sets[test].output_file, itu_test_sets[test].rate, itu_test_sets[test].compression_law, itu_test_sets[test].decompression_law); switch (itu_test_sets[test].rate) { case 16000: bits_per_code = 2; break; case 24000: bits_per_code = 3; break; case 32000: default: bits_per_code = 4; break; case 40000: bits_per_code = 5; break; } if (itu_test_sets[test].compression_law != G726_ENCODING_NONE) { /* Test the encode side */ g726_init(&enc_state, itu_test_sets[test].rate, itu_test_sets[test].compression_law, G726_PACKING_NONE); if (itu_test_sets[test].conditioning_pcm_file[0]) { conditioning_samples = get_test_vector(itu_test_sets[test].conditioning_pcm_file, xlaw, MAX_TEST_VECTOR_LEN); printf("Test %d: Homing %d samples at %dbps\n", test, conditioning_samples, itu_test_sets[test].rate); } else { conditioning_samples = 0; } samples = get_test_vector(itu_test_sets[test].pcm_file, xlaw + conditioning_samples, MAX_TEST_VECTOR_LEN); memcpy(itudata, xlaw, samples + conditioning_samples); printf("Test %d: Compressing %d samples at %dbps\n", test, samples, itu_test_sets[test].rate); len2 = g726_encode(&enc_state, adpcmdata, itudata, conditioning_samples + samples); } /* Test the decode side */ g726_init(&dec_state, itu_test_sets[test].rate, itu_test_sets[test].decompression_law, G726_PACKING_NONE); if (itu_test_sets[test].conditioning_adpcm_file[0]) { conditioning_adpcm = get_test_vector(itu_test_sets[test].conditioning_adpcm_file, unpacked, MAX_TEST_VECTOR_LEN); printf("Test %d: Homing %d octets at %dbps\n", test, conditioning_adpcm, itu_test_sets[test].rate); } else { conditioning_adpcm = 0; } adpcm = get_test_vector(itu_test_sets[test].adpcm_file, unpacked + conditioning_adpcm, MAX_TEST_VECTOR_LEN); if (itu_test_sets[test].compression_law != G726_ENCODING_NONE) { /* Test our compressed version against the reference compressed version */ printf("Test %d: Compressed data check - %d/%d octets\n", test, conditioning_adpcm + adpcm, len2); if (conditioning_adpcm + adpcm == len2) { for (bad_samples = 0, i = conditioning_samples; i < len2; i++) { if (adpcmdata[i] != unpacked[i]) { bad_samples++; printf("Test %d: Compressed mismatch %d %x %x\n", test, i, adpcmdata[i], unpacked[i]); } } if (bad_samples > 0) { printf("Test failed\n"); exit(2); } printf("Test passed\n"); } else { printf("Test %d: Length mismatch - ref = %d, processed = %d\n", test, conditioning_adpcm + adpcm, len2); exit(2); } } len3 = g726_decode(&dec_state, outdata, unpacked, conditioning_adpcm + adpcm); /* Get the output reference data */ samples = get_test_vector(itu_test_sets[test].output_file, xlaw, MAX_TEST_VECTOR_LEN); memcpy(itu_ref, xlaw, samples); /* Test our decompressed version against the reference decompressed version */ printf("Test %d: Decompressed data check - %d/%d samples\n", test, samples, len3 - conditioning_adpcm); if (samples == len3 - conditioning_adpcm) { for (bad_samples = 0, i = 0; i < len3; i++) { if (itu_ref[i] != ((uint8_t *) outdata)[i + conditioning_adpcm]) { bad_samples++; printf("Test %d: Decompressed mismatch %d %x %x\n", test, i, itu_ref[i], ((uint8_t *) outdata)[i + conditioning_adpcm]); } } if (bad_samples > 0) { printf("Test failed\n"); exit(2); } printf("Test passed\n"); } else { printf("Test %d: Length mismatch - ref = %d, processed = %d\n", test, samples, len3 - conditioning_adpcm); exit(2); } } printf("Tests passed.\n"); } /*- End of function --------------------------------------------------------*/ int main(int argc, char *argv[]) { g726_state_t enc_state; g726_state_t dec_state; int opt; int itutests; int bit_rate; SNDFILE *inhandle; SNDFILE *outhandle; int16_t amp[1024]; int frames; int outframes; int adpcm; int packing; bit_rate = 32000; itutests = TRUE; packing = G726_PACKING_NONE; while ((opt = getopt(argc, argv, "b:LR")) != -1) { switch (opt) { case 'b': bit_rate = atoi(optarg); if (bit_rate != 16000 && bit_rate != 24000 && bit_rate != 32000 && bit_rate != 40000) { fprintf(stderr, "Invalid bit rate selected. Only 16000, 24000, 32000 and 40000 are valid.\n"); exit(2); } itutests = FALSE; break; case 'L': packing = G726_PACKING_LEFT; break; case 'R': packing = G726_PACKING_RIGHT; break; default: //usage(); exit(2); } } if (itutests) { itu_compliance_tests(); } else { if ((inhandle = sf_open_telephony_read(IN_FILE_NAME, 1)) == NULL) { fprintf(stderr, " Cannot open audio file '%s'\n", IN_FILE_NAME); exit(2); } if ((outhandle = sf_open_telephony_write(OUT_FILE_NAME, 1)) == NULL) { fprintf(stderr, " Cannot create audio file '%s'\n", OUT_FILE_NAME); exit(2); } printf("ADPCM packing is %d\n", packing); g726_init(&enc_state, bit_rate, G726_ENCODING_LINEAR, packing); g726_init(&dec_state, bit_rate, G726_ENCODING_LINEAR, packing); while ((frames = sf_readf_short(inhandle, amp, 159))) { adpcm = g726_encode(&enc_state, adpcmdata, amp, frames); frames = g726_decode(&dec_state, amp, adpcmdata, adpcm); outframes = sf_writef_short(outhandle, amp, frames); } if (sf_close(inhandle) != 0) { printf(" Cannot close audio file '%s'\n", IN_FILE_NAME); exit(2); } if (sf_close(outhandle) != 0) { printf(" Cannot close audio file '%s'\n", OUT_FILE_NAME); exit(2); } printf("'%s' transcoded to '%s' at %dbps.\n", IN_FILE_NAME, OUT_FILE_NAME, bit_rate); } return 0; } /*- End of function --------------------------------------------------------*/ /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/tests/logging_tests.c0000664000175000017500000002054511422612266016765 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * logging_tests.c - Tests for the logging functions. * * Written by Steve Underwood * * Copyright (C) 2006 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License version 2, as * published by the Free Software Foundation. * * 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., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \page logging_tests_page Logging tests \section logging_tests_page_sec_1 What does it do? */ #if defined(HAVE_CONFIG_H) #include "config.h" #endif #define _POSIX_SOURCE #define _POSIX_C_SOURCE 200112L #include #include #include #include #include //#if defined(WITH_SPANDSP_INTERNALS) #define SPANDSP_EXPOSE_INTERNAL_STRUCTURES //#endif #include "spandsp.h" static int tests_failed = FALSE; static int msg_step = 0; static int msg2_step = 0; static int error_step = 0; static int msg_done = FALSE; static int msg2_done = FALSE; static int error_done = FALSE; static void message_handler(int level, const char *text) { const char *ref[] = { "TAG Log with tag 1 2 3\n", "Log with protocol 1 2 3\n", "FLOW NewTag Log with new tag 1 2 3\n", "FLOW Protocol NewTag Log with protocol 1 2 3\n", "FLOW Protocol NewTag Buf 00 01 02 03 04 05 06 07 08 09\n", "FLOW Protocol NewTag Buf 00 01 02 03 04 05 06 07 08 09 0a 0b 0c 0d 0e 0f 10 11 12 13 14 15 16 17 18 19 1a 1b 1c 1d 1e 1f 20 21 22 23 24 25 26 27 28 29 2a 2b 2c 2d 2e 2f 30 31 32 33 34 35 36 37 38 39 3a 3b 3c 3d 3e 3f 40 41 42 43 44 45 46 47 48 49 4a 4b 4c 4d 4e 4f 50 51 52 53 54 55 56 57 58 59 5a 5b 5c 5d 5e 5f 60 61 62 63 64 65 66 67 68 69 6a 6b 6c 6d 6e 6f 70 71 72 73 74 75 76 77 78 79 7a 7b 7c 7d 7e 7f 80 81 82 83 84 85 86 87 88 89 8a 8b 8c 8d 8e 8f 90 91 92 93 94 95 96 97 98 99 9a 9b 9c 9d 9e 9f a0 a1 a2 a3 a4 a5 a6 a7 a8 a9 aa ab ac ad ae af b0 b1 b2 b3 b4 b5 b6 b7 b8 b9 ba bb bc bd be bf c0 c1 c2 c3 c4 c5 c6 c7 c8 c9 ca cb cc cd ce cf d0 d1 d2 d3 d4 d5 d6 d7 d8 d9 da db dc dd de df e0 e1 e2 e3 e4 e5 e6 e7 e8 e9 ea eb ec ed ee ef f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 fa fb fc fd fe ff 00 01 02 03 04 05 06 07 08 09\n", "00:00:00.000 FLOW Protocol NewTag Time tagged log 1 2 3\n", "00:00:00.020 FLOW Protocol NewTag Time tagged log 1 2 3\n", "00:00:00.040 FLOW Protocol NewTag Time tagged log 1 2 3\n", "00:00:00.060 FLOW Protocol NewTag Time tagged log 1 2 3\n", "00:00:00.080 FLOW Protocol NewTag Time tagged log 1 2 3\n", "00:00:00.100 FLOW Protocol NewTag Time tagged log 1 2 3\n", "00:00:00.120 FLOW Protocol NewTag Time tagged log 1 2 3\n", "00:00:00.140 FLOW Protocol NewTag Time tagged log 1 2 3\n", "00:00:00.160 FLOW Protocol NewTag Time tagged log 1 2 3\n", "00:00:00.180 FLOW Protocol NewTag Time tagged log 1 2 3\n", "" }; if (strcmp(ref[msg_step], text)) { printf(">>>: %s", ref[msg_step]); tests_failed = TRUE; } if (ref[++msg_step][0] == '\0') msg_done = TRUE; printf("MSG: %s", text); } /*- End of function --------------------------------------------------------*/ static void message_handler2(int level, const char *text) { /* TODO: This doesn't check if the date/time field makes sense */ if (strcmp(" FLOW Protocol NewTag Date/time tagged log 1 2 3\n", text + 23)) { printf(">>>: %s", text + 23); tests_failed = TRUE; } if (++msg2_step == 10) msg2_done = TRUE; printf("MSG: %s", text); } /*- End of function --------------------------------------------------------*/ static void error_handler(const char *text) { const char *ref[] = { "ERROR Log with severity log 1 2 3\n", "" }; if (strcmp(ref[error_step], text)) { printf(">>>: %s", ref[error_step]); tests_failed = TRUE; } if (ref[++error_step][0] == '\0') error_done = TRUE; printf("ERR: %s", text); } /*- End of function --------------------------------------------------------*/ int main(int argc, char *argv[]) { logging_state_t log; int i; uint8_t buf[1000]; struct timespec delay; /* Set up a logger */ if (span_log_init(&log, 123, "TAG") == NULL) { fprintf(stderr, "Failed to initialise log.\n"); exit(2); } /* Try it */ span_log_set_level(&log, SPAN_LOG_SHOW_SEVERITY | SPAN_LOG_SHOW_PROTOCOL | SPAN_LOG_SHOW_TAG | SPAN_LOG_FLOW); if (span_log(&log, SPAN_LOG_FLOW, "Logging to fprintf, as simple as %d %d %d\n", 1, 2, 3)) fprintf(stderr, "Logged.\n"); else fprintf(stderr, "Not logged.\n"); /* Now set a custom log handler */ span_log_set_message_handler(&log, &message_handler); span_log_set_error_handler(&log, &error_handler); span_log_set_sample_rate(&log, 44100); /* Try the different logging elements */ span_log_set_level(&log, SPAN_LOG_SHOW_TAG | SPAN_LOG_FLOW); if (span_log(&log, SPAN_LOG_FLOW, "Log with tag %d %d %d\n", 1, 2, 3)) fprintf(stderr, "Logged.\n"); else fprintf(stderr, "Not logged.\n"); span_log_set_level(&log, SPAN_LOG_SHOW_PROTOCOL | SPAN_LOG_FLOW); if (span_log(&log, SPAN_LOG_FLOW, "Log with protocol %d %d %d\n", 1, 2, 3)) fprintf(stderr, "Logged.\n"); else fprintf(stderr, "Not logged.\n"); span_log_set_level(&log, SPAN_LOG_SHOW_SEVERITY | SPAN_LOG_FLOW); if (span_log(&log, SPAN_LOG_ERROR, "Log with severity log %d %d %d\n", 1, 2, 3)) fprintf(stderr, "Logged.\n"); else fprintf(stderr, "Not logged.\n"); span_log_set_level(&log, SPAN_LOG_SHOW_SEVERITY | SPAN_LOG_SHOW_PROTOCOL | SPAN_LOG_SHOW_TAG | SPAN_LOG_FLOW); span_log_set_tag(&log, "NewTag"); if (span_log(&log, SPAN_LOG_FLOW, "Log with new tag %d %d %d\n", 1, 2, 3)) fprintf(stderr, "Logged.\n"); else fprintf(stderr, "Not logged.\n"); span_log_set_protocol(&log, "Protocol"); if (span_log(&log, SPAN_LOG_FLOW, "Log with protocol %d %d %d\n", 1, 2, 3)) fprintf(stderr, "Logged.\n"); else fprintf(stderr, "Not logged.\n"); /* Test logging of buffer contents */ for (i = 0; i < 1000; i++) buf[i] = i; if (span_log_buf(&log, SPAN_LOG_FLOW, "Buf", buf, 10)) fprintf(stderr, "Logged.\n"); else fprintf(stderr, "Not logged.\n"); if (span_log_buf(&log, SPAN_LOG_FLOW, "Buf", buf, 1000)) fprintf(stderr, "Logged.\n"); else fprintf(stderr, "Not logged.\n"); /* Test the correct severities will be logged */ for (i = 0; i < 10; i++) { if (!span_log_test(&log, i)) { if (i != 6) tests_failed = TRUE; break; } } /* Check timestamping by samples */ span_log_set_level(&log, SPAN_LOG_SHOW_SEVERITY | SPAN_LOG_SHOW_PROTOCOL | SPAN_LOG_SHOW_TAG | SPAN_LOG_FLOW | SPAN_LOG_SHOW_SAMPLE_TIME); for (i = 0; i < 10; i++) { span_log(&log, SPAN_LOG_FLOW, "Time tagged log %d %d %d\n", 1, 2, 3); span_log_bump_samples(&log, 441*2); } /* Check timestamping by current date and time */ span_log_set_message_handler(&log, &message_handler2); span_log_set_level(&log, SPAN_LOG_SHOW_SEVERITY | SPAN_LOG_SHOW_PROTOCOL | SPAN_LOG_SHOW_TAG | SPAN_LOG_FLOW | SPAN_LOG_SHOW_DATE); for (i = 0; i < 10; i++) { span_log(&log, SPAN_LOG_FLOW, "Date/time tagged log %d %d %d\n", 1, 2, 3); delay.tv_sec = 0; delay.tv_nsec = 20000000; nanosleep(&delay, NULL); } if (tests_failed || !msg_done || !error_done) { printf("Tests failed - %d %d %d.\n", tests_failed, msg_done, error_done); return 2; } span_log_set_message_handler(&log, &message_handler); printf("Tests passed.\n"); return 0; } /*- End of function --------------------------------------------------------*/ /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/tests/bitstream_tests.c0000664000175000017500000001205511422612266017326 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * bitstream_tests.c * * Written by Steve Underwood * * Copyright (C) 2007 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License version 2, as * published by the Free Software Foundation. * * 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., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \page bitstream_tests_page Bitstream tests \section bitstream_tests_page_sec_1 What does it do? \section bitstream_tests_page_sec_2 How is it used? */ #if defined(HAVE_CONFIG_H) #include "config.h" #endif #include #include #include #include #include //#if defined(WITH_SPANDSP_INTERNALS) #define SPANDSP_EXPOSE_INTERNAL_STRUCTURES //#endif #include "spandsp.h" uint8_t buffer[256]; #define PATTERN 0x11111111 #define SEQUENCE_LENGTH 17 uint8_t left[] = { 0x28, /* 2 of 4, 3, 2, 1 */ 0xC8, /* 1 of 6, 5, 2 of 4 */ 0xAE, /* 3 of 7, 5 of 6 */ 0x67, /* 4 of 8, 4 of 7 */ 0x74, /* 4 of 9, 4 of 8 */ 0x43, /* 3 of 10, 5 of 9 */ 0x32, /* 1 of 11, 7 of 10 */ 0xAA, /* 8 of 11 */ 0xAE, /* 6 of 12, 2 of 11 */ 0xED, /* 2 of 13, 6 of 12 */ 0x99, /* 8 of 13 */ 0x8E, /* 5 of 14, 3 of 13 */ 0xEE, /* 8 of 14 */ 0xEE, /* 7 of 15, 1 of 14 */ 0xEE, /* 8 of 15 */ 0xFF, /* 8 of 16 */ 0xFF, /* 8 of 16 */ 0x88, /* 8 of 17 */ 0x88, /* 8 of 17 */ 0x00 /* 1 of 17 */ }; uint8_t right[] = { 0xD2, /* 1, 2, 3, 2 of 4 */ 0x90, /* 2 of 4, 5, 1 of 6 */ 0xCA, /* 5 of 6, 3 of 7 */ 0x7C, /* 4 of 7, 4 of 8 */ 0x87, /* 4 of 8, 4 of 9 */ 0x28, /* 5 of 9, 3 of 10 */ 0x33, /* 7 of 10, 1 of 11 */ 0x55, /* 8 of 11 */ 0xED, /* 2 of 11, 6 of 12 */ 0x2E, /* 6 of 12, 2 of 13 */ 0x33, /* 8 of 13 */ 0xEB, /* 3 of 13, 5 of 14 */ 0xEE, /* 8 of 14 */ 0xDC, /* 1 of 14, 7 of 15 */ 0xDD, /* 8 of 15 */ 0xFF, /* 8 of 16 */ 0xFF, /* 8 of 16 */ 0x10, /* 8 of 17 */ 0x11, /* 8 of 17 */ 0x01 /* 1 of 17 */ }; int main(int argc, char *argv[]) { int i; bitstream_state_t state; bitstream_state_t *s; const uint8_t *r; uint8_t *w; uint8_t *cc; unsigned int x; int total_bits; s = bitstream_init(&state, TRUE); w = buffer; total_bits = 0; for (i = 0; i < SEQUENCE_LENGTH; i++) { bitstream_put(s, &w, PATTERN*i, i + 1); total_bits += (i + 1); } bitstream_flush(s, &w); printf("%d bits written\n", total_bits); for (cc = buffer; cc < w; cc++) printf("%02X ", *cc); printf("\n"); for (cc = right; cc < right + sizeof(right); cc++) printf("%02X ", *cc); printf("\n"); if ((w - buffer) != sizeof(right) || memcmp(buffer, right, sizeof(right))) { printf("Test failed\n"); exit(2); } s = bitstream_init(&state, TRUE); r = buffer; for (i = 0; i < SEQUENCE_LENGTH; i++) { x = bitstream_get(s, &r, i + 1); if (x != ((PATTERN*i) & ((1 << (i + 1)) - 1))) { printf("Error 0x%X 0x%X\n", x, ((PATTERN*i) & ((1 << (i + 1)) - 1))); printf("Test failed\n"); exit(2); } } s = bitstream_init(&state, FALSE); w = buffer; total_bits = 0; for (i = 0; i < SEQUENCE_LENGTH; i++) { bitstream_put(s, &w, PATTERN*i, i + 1); total_bits += (i + 1); } bitstream_flush(s, &w); printf("%d bits written\n", total_bits); for (cc = buffer; cc < w; cc++) printf("%02X ", *cc); printf("\n"); for (cc = left; cc < left + sizeof(left); cc++) printf("%02X ", *cc); printf("\n"); if ((w - buffer) != sizeof(left) || memcmp(buffer, left, sizeof(left))) { printf("Test failed\n"); exit(2); } s = bitstream_init(&state, FALSE); r = buffer; for (i = 0; i < SEQUENCE_LENGTH; i++) { x = bitstream_get(s, &r, i + 1); if (x != ((PATTERN*i) & ((1 << (i + 1)) - 1))) { printf("Error 0x%X 0x%X\n", x, ((PATTERN*i) & ((1 << (i + 1)) - 1))); printf("Test failed\n"); exit(2); } } printf("Tests passed.\n"); return 0; } /*- End of function --------------------------------------------------------*/ /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/tests/line_model_tests.c0000664000175000017500000002567511422612266017457 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * line_model_tests.c - Tests for the telephone line model. * * Written by Steve Underwood * * Copyright (C) 2004 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License version 2, as * published by the Free Software Foundation. * * 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., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \page line_model_tests_page Telephony line model tests \section line_model_tests_page_sec_1 What does it do? ???. \section line_model_tests_page_sec_2 How does it work? ???. */ #if defined(HAVE_CONFIG_H) #include "config.h" #endif #include #include #include #include #include #include #include //#if defined(WITH_SPANDSP_INTERNALS) #define SPANDSP_EXPOSE_INTERNAL_STRUCTURES //#endif #include "spandsp.h" #include "spandsp-sim.h" #if !defined(NULL) #define NULL (void *) 0 #endif #define BLOCK_LEN 160 #define OUT_FILE_COMPLEXIFY "complexify.wav" #define IN_FILE_NAME1 "line_model_test_in1.wav" #define IN_FILE_NAME2 "line_model_test_in2.wav" #define OUT_FILE_NAME1 "line_model_one_way_test_out.wav" #define OUT_FILE_NAME2 "line_model_two_way_test_out.wav" int channel_codec; int rbs_pattern; static void complexify_tests(void) { complexify_state_t *s; complexf_t cc; int16_t amp; int i; SNDFILE *outhandle; int outframes; int16_t out[40000]; awgn_state_t noise1; if ((outhandle = sf_open_telephony_write(OUT_FILE_COMPLEXIFY, 2)) == NULL) { fprintf(stderr, " Cannot create audio file '%s'\n", OUT_FILE_COMPLEXIFY); exit(2); } awgn_init_dbm0(&noise1, 1234567, -10.0f); s = complexify_init(); for (i = 0; i < 20000; i++) { amp = awgn(&noise1); cc = complexify(s, amp); out[2*i] = cc.re; out[2*i + 1] = cc.im; } outframes = sf_writef_short(outhandle, out, 20000); if (outframes != 20000) { fprintf(stderr, " Error writing audio file\n"); exit(2); } if (sf_close(outhandle)) { fprintf(stderr, " Cannot close audio file '%s'\n", OUT_FILE_COMPLEXIFY); exit(2); } } /*- End of function --------------------------------------------------------*/ static void test_one_way_model(int line_model_no, int speech_test) { one_way_line_model_state_t *model; int16_t input1[BLOCK_LEN]; int16_t output1[BLOCK_LEN]; int16_t amp[2*BLOCK_LEN]; SNDFILE *inhandle1; SNDFILE *outhandle; int outframes; int samples; int i; int j; awgn_state_t noise1; if ((model = one_way_line_model_init(line_model_no, -50, channel_codec, rbs_pattern)) == NULL) { fprintf(stderr, " Failed to create line model\n"); exit(2); } awgn_init_dbm0(&noise1, 1234567, -10.0f); if (speech_test) { if ((inhandle1 = sf_open_telephony_read(IN_FILE_NAME1, 1)) == NULL) { fprintf(stderr, " Cannot open audio file '%s'\n", IN_FILE_NAME1); exit(2); } } else { inhandle1 = NULL; } if ((outhandle = sf_open_telephony_write(OUT_FILE_NAME1, 1)) == NULL) { fprintf(stderr, " Cannot create audio file '%s'\n", OUT_FILE_NAME1); exit(2); } for (i = 0; i < 10000; i++) { if (speech_test) { samples = sf_readf_short(inhandle1, input1, BLOCK_LEN); if (samples == 0) break; } else { for (j = 0; j < BLOCK_LEN; j++) input1[j] = awgn(&noise1); samples = BLOCK_LEN; } for (j = 0; j < samples; j++) { one_way_line_model(model, &output1[j], &input1[j], 1); amp[j] = output1[j]; } outframes = sf_writef_short(outhandle, amp, samples); if (outframes != samples) { fprintf(stderr, " Error writing audio file\n"); exit(2); } } if (speech_test) { if (sf_close(inhandle1)) { fprintf(stderr, " Cannot close audio file '%s'\n", IN_FILE_NAME1); exit(2); } } if (sf_close(outhandle)) { fprintf(stderr, " Cannot close audio file '%s'\n", OUT_FILE_NAME1); exit(2); } one_way_line_model_release(model); } /*- End of function --------------------------------------------------------*/ static void test_both_ways_model(int line_model_no, int speech_test) { both_ways_line_model_state_t *model; int16_t input1[BLOCK_LEN]; int16_t input2[BLOCK_LEN]; int16_t output1[BLOCK_LEN]; int16_t output2[BLOCK_LEN]; int16_t amp[2*BLOCK_LEN]; SNDFILE *inhandle1; SNDFILE *inhandle2; SNDFILE *outhandle; int outframes; int samples; int i; int j; awgn_state_t noise1; awgn_state_t noise2; if ((model = both_ways_line_model_init(line_model_no, -50, -15.0f, -15.0f, line_model_no + 1, -35, -15.0f, -15.0f, channel_codec, rbs_pattern)) == NULL) { fprintf(stderr, " Failed to create line model\n"); exit(2); } awgn_init_dbm0(&noise1, 1234567, -10.0f); awgn_init_dbm0(&noise2, 1234567, -10.0f); if (speech_test) { if ((inhandle1 = sf_open_telephony_read(IN_FILE_NAME1, 1)) == NULL) { fprintf(stderr, " Cannot open audio file '%s'\n", IN_FILE_NAME1); exit(2); } if ((inhandle2 = sf_open_telephony_read(IN_FILE_NAME2, 1)) == NULL) { fprintf(stderr, " Cannot open audio file '%s'\n", IN_FILE_NAME2); exit(2); } } else { inhandle1 = inhandle2 = NULL; } if ((outhandle = sf_open_telephony_write(OUT_FILE_NAME2, 2)) == NULL) { fprintf(stderr, " Cannot create audio file '%s'\n", OUT_FILE_NAME2); exit(2); } for (i = 0; i < 10000; i++) { if (speech_test) { samples = sf_readf_short(inhandle1, input1, BLOCK_LEN); if (samples == 0) break; samples = sf_readf_short(inhandle2, input2, samples); if (samples == 0) break; } else { for (j = 0; j < BLOCK_LEN; j++) { input1[j] = awgn(&noise1); input2[j] = awgn(&noise2); } samples = BLOCK_LEN; } for (j = 0; j < samples; j++) { both_ways_line_model(model, &output1[j], &input1[j], &output2[j], &input2[j], 1); amp[2*j] = output1[j]; amp[2*j + 1] = output2[j]; } outframes = sf_writef_short(outhandle, amp, samples); if (outframes != samples) { fprintf(stderr, " Error writing audio file\n"); exit(2); } } if (speech_test) { if (sf_close(inhandle1)) { fprintf(stderr, " Cannot close audio file '%s'\n", IN_FILE_NAME1); exit(2); } if (sf_close(inhandle2)) { fprintf(stderr, " Cannot close audio file '%s'\n", IN_FILE_NAME2); exit(2); } } if (sf_close(outhandle)) { fprintf(stderr, " Cannot close audio file '%s'\n", OUT_FILE_NAME2); exit(2); } both_ways_line_model_release(model); } /*- End of function --------------------------------------------------------*/ static void test_line_filter(int line_model_no) { float out; double sumin; double sumout; int i; int j; int p; int ptr; int len; swept_tone_state_t *s; float filter[129]; int16_t buf[BLOCK_LEN]; s = swept_tone_init(NULL, 200.0f, 3900.0f, -10.0f, 120*SAMPLE_RATE, 0); for (j = 0; j < 129; j++) filter[j] = 0.0f; ptr = 0; for (;;) { if ((len = swept_tone(s, buf, BLOCK_LEN)) <= 0) break; sumin = 0.0; sumout = 0.0; for (i = 0; i < len; i++) { /* Add the sample in the filter buffer */ p = ptr; filter[p] = buf[i]; if (++p == 129) p = 0; ptr = p; /* Apply the filter */ out = 0.0f; for (j = 0; j < 129; j++) { out += line_models[line_model_no][128 - j]*filter[p]; if (++p >= 129) p = 0; } sumin += buf[i]*buf[i]; sumout += out*out; } /*endfor*/ printf("%7.1f %f\n", swept_tone_current_frequency(s), 10.0*log10(sumout/sumin)); } /*endfor*/ swept_tone_free(s); } /*- End of function --------------------------------------------------------*/ int main(int argc, char *argv[]) { int line_model_no; int speech_test; int log_audio; int opt; channel_codec = MUNGE_CODEC_NONE; log_audio = FALSE; line_model_no = 0; rbs_pattern = 0; speech_test = FALSE; while ((opt = getopt(argc, argv, "c:lm:r:s:")) != -1) { switch (opt) { case 'c': channel_codec = atoi(optarg); break; case 'l': log_audio = TRUE; break; case 'm': line_model_no = atoi(optarg); break; case 'r': rbs_pattern = atoi(optarg); break; case 's': speech_test = atoi(optarg); break; default: //usage(); exit(2); } } complexify_tests(); test_one_way_model(line_model_no, speech_test); test_both_ways_model(line_model_no, speech_test); test_line_filter(line_model_no); } /*- End of function --------------------------------------------------------*/ /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/tests/modem_monitor.h0000664000175000017500000000464111422612267016772 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * constel.h - Display QAM constellations, using the FLTK toolkit. * * Written by Steve Underwood * * Copyright (C) 2004 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License version 2, as * published by the Free Software Foundation. * * 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., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \page constel_page Modem performance monitoring \section constel_page_sec_1 What does it do? This code controls a GUI window, which provides monitoring of the internal status of a modem. It shows, graphically: - the constellation, for PSK, QAM and other similar modulations. - the equalizer status, for modems with adaptive equalizers. - the carrier frequency. - the symbol timing correction. \section constel_page_sec_2 How does it work? This code uses the FLTK cross platform GUI toolkit. It works on X11 and Windows platforms. In addition to the basic FLTK toolkit, fltk_cartesian is also required. */ #if !defined(_MODEM_MONITOR_H_) #define _MODEM_MONITOR_H_ struct qam_monitor_s; typedef struct qam_monitor_s qam_monitor_t; #if defined(__cplusplus) extern "C" { #endif qam_monitor_t *qam_monitor_init(float constel_width, const char *tag); int qam_monitor_clear_constel(qam_monitor_t *s); int qam_monitor_update_constel(qam_monitor_t *s, const complexf_t *pt); int qam_monitor_update_equalizer(qam_monitor_t *s, const complexf_t *coeffs, int len); int qam_monitor_update_int_equalizer(qam_monitor_t *s, const complexi16_t *coeffs, int len); int qam_monitor_update_symbol_tracking(qam_monitor_t *s, float total_correction); int qam_monitor_update_carrier_tracking(qam_monitor_t *s, float carrier); int qam_monitor_update_audio_level(qam_monitor_t *s, const int16_t amp[], int len); void qam_wait_to_end(qam_monitor_t *s); #if defined(__cplusplus) } #endif #endif /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/tests/fax_decode.c0000664000175000017500000004013511422612266016173 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * fax_decode.c - a simple FAX audio decoder * * Written by Steve Underwood * * Copyright (C) 2005 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License version 2, as * published by the Free Software Foundation. * * 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., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \page fax_decode_page FAX decoder \section fax_decode_page_sec_1 What does it do? ???. \section fax_decode_tests_page_sec_2 How does it work? ???. */ #if defined(HAVE_CONFIG_H) #include "config.h" #endif #include #include #include #include #include //#if defined(WITH_SPANDSP_INTERNALS) #define SPANDSP_EXPOSE_INTERNAL_STRUCTURES //#endif #include "spandsp.h" #define SAMPLES_PER_CHUNK 160 #define DISBIT1 0x01 #define DISBIT2 0x02 #define DISBIT3 0x04 #define DISBIT4 0x08 #define DISBIT5 0x10 #define DISBIT6 0x20 #define DISBIT7 0x40 #define DISBIT8 0x80 enum { FAX_NONE, FAX_V27TER_RX, FAX_V29_RX, FAX_V17_RX }; static const struct { int bit_rate; int modem_type; int which; uint8_t dcs_code; } fallback_sequence[] = { {14400, T30_MODEM_V17, T30_SUPPORT_V17, DISBIT6}, {12000, T30_MODEM_V17, T30_SUPPORT_V17, (DISBIT6 | DISBIT4)}, { 9600, T30_MODEM_V17, T30_SUPPORT_V17, (DISBIT6 | DISBIT3)}, { 9600, T30_MODEM_V29, T30_SUPPORT_V29, DISBIT3}, { 7200, T30_MODEM_V17, T30_SUPPORT_V17, (DISBIT6 | DISBIT4 | DISBIT3)}, { 7200, T30_MODEM_V29, T30_SUPPORT_V29, (DISBIT4 | DISBIT3)}, { 4800, T30_MODEM_V27TER, T30_SUPPORT_V27TER, DISBIT4}, { 2400, T30_MODEM_V27TER, T30_SUPPORT_V27TER, 0}, { 0, 0, 0, 0} }; int decode_test = FALSE; int rx_bits = 0; t30_state_t t30_dummy; t4_state_t t4_state; int t4_up = FALSE; hdlc_rx_state_t hdlcrx; int fast_trained = FAX_NONE; uint8_t ecm_data[256][260]; int16_t ecm_len[256]; int line_encoding = T4_COMPRESSION_ITU_T4_1D; int x_resolution = T4_X_RESOLUTION_R8; int y_resolution = T4_Y_RESOLUTION_STANDARD; int image_width = 1728; int octets_per_ecm_frame = 256; int error_correcting_mode = FALSE; int current_fallback = 0; static void decode_20digit_msg(const uint8_t *pkt, int len) { int p; int k; char msg[T30_MAX_IDENT_LEN + 1]; if (len > T30_MAX_IDENT_LEN + 3) { fprintf(stderr, "XXX %d %d\n", len, T30_MAX_IDENT_LEN + 1); msg[0] = '\0'; return; } pkt += 2; p = len - 2; /* Strip trailing spaces */ while (p > 1 && pkt[p - 1] == ' ') p--; /* The string is actually backwards in the message */ k = 0; while (p > 1) msg[k++] = pkt[--p]; msg[k] = '\0'; fprintf(stderr, "%s is: \"%s\"\n", t30_frametype(pkt[0]), msg); } /*- End of function --------------------------------------------------------*/ static void print_frame(const char *io, const uint8_t *fr, int frlen) { int i; int type; const char *country; const char *vendor; const char *model; fprintf(stderr, "%s %s:", io, t30_frametype(fr[2])); for (i = 2; i < frlen; i++) fprintf(stderr, " %02x", fr[i]); fprintf(stderr, "\n"); type = fr[2] & 0xFE; if (type == T30_DIS || type == T30_DTC || type == T30_DCS) t30_decode_dis_dtc_dcs(&t30_dummy, fr, frlen); if (type == T30_CSI || type == T30_TSI || type == T30_PWD || type == T30_SEP || type == T30_SUB || type == T30_SID) decode_20digit_msg(fr, frlen); if (type == T30_NSF || type == T30_NSS || type == T30_NSC) { if (t35_decode(&fr[3], frlen - 3, &country, &vendor, &model)) { if (country) fprintf(stderr, "The remote was made in '%s'\n", country); if (vendor) fprintf(stderr, "The remote was made by '%s'\n", vendor); if (model) fprintf(stderr, "The remote is a '%s'\n", model); } } } /*- End of function --------------------------------------------------------*/ static int find_fallback_entry(int dcs_code) { int i; /* The table is short, and not searched often, so a brain-dead linear scan seems OK */ for (i = 0; fallback_sequence[i].bit_rate; i++) { if (fallback_sequence[i].dcs_code == dcs_code) break; } if (fallback_sequence[i].bit_rate == 0) return -1; return i; } /*- End of function --------------------------------------------------------*/ static int check_rx_dcs(const uint8_t *msg, int len) { static const int widths[3][4] = { { 864, 1024, 1216, -1}, /* R4 resolution - no longer used in recent versions of T.30 */ {1728, 2048, 2432, -1}, /* R8 resolution */ {3456, 4096, 4864, -1} /* R16 resolution */ }; uint8_t dcs_frame[T30_MAX_DIS_DTC_DCS_LEN]; /* Check DCS frame from remote */ if (len < 6) { printf("Short DCS frame\n"); return -1; } /* Make a local copy of the message, padded to the maximum possible length with zeros. This allows us to simply pick out the bits, without worrying about whether they were set from the remote side. */ if (len > T30_MAX_DIS_DTC_DCS_LEN) { memcpy(dcs_frame, msg, T30_MAX_DIS_DTC_DCS_LEN); } else { memcpy(dcs_frame, msg, len); if (len < T30_MAX_DIS_DTC_DCS_LEN) memset(dcs_frame + len, 0, T30_MAX_DIS_DTC_DCS_LEN - len); } octets_per_ecm_frame = (dcs_frame[6] & DISBIT4) ? 256 : 64; if ((dcs_frame[8] & DISBIT1)) y_resolution = T4_Y_RESOLUTION_SUPERFINE; else if (dcs_frame[4] & DISBIT7) y_resolution = T4_Y_RESOLUTION_FINE; else y_resolution = T4_Y_RESOLUTION_STANDARD; image_width = widths[(dcs_frame[8] & DISBIT3) ? 2 : 1][dcs_frame[5] & (DISBIT2 | DISBIT1)]; /* Check which compression we will use. */ if ((dcs_frame[6] & DISBIT7)) line_encoding = T4_COMPRESSION_ITU_T6; else if ((dcs_frame[4] & DISBIT8)) line_encoding = T4_COMPRESSION_ITU_T4_2D; else line_encoding = T4_COMPRESSION_ITU_T4_1D; fprintf(stderr, "Selected compression %d\n", line_encoding); if ((current_fallback = find_fallback_entry(dcs_frame[4] & (DISBIT6 | DISBIT5 | DISBIT4 | DISBIT3))) < 0) printf("Remote asked for a modem standard we do not support\n"); error_correcting_mode = ((dcs_frame[6] & DISBIT3) != 0); //v17_rx_restart(&v17, fallback_sequence[fallback_entry].bit_rate, FALSE); return 0; } /*- End of function --------------------------------------------------------*/ static void hdlc_accept(void *user_data, const uint8_t *msg, int len, int ok) { int type; int frame_no; int i; if (len < 0) { /* Special conditions */ fprintf(stderr, "HDLC status is %s (%d)\n", signal_status_to_str(len), len); return; } if (ok) { if (msg[0] != 0xFF || !(msg[1] == 0x03 || msg[1] == 0x13)) { fprintf(stderr, "Bad frame header - %02x %02x\n", msg[0], msg[1]); return; } print_frame("HDLC: ", msg, len); type = msg[2] & 0xFE; switch (type) { case T4_FCD: if (len <= 4 + 256) { frame_no = msg[3]; /* Just store the actual image data, and record its length */ memcpy(&ecm_data[frame_no][0], &msg[4], len - 4); ecm_len[frame_no] = (int16_t) (len - 4); } break; case T30_DCS: check_rx_dcs(msg, len); break; } } else { fprintf(stderr, "Bad HDLC frame "); for (i = 0; i < len; i++) fprintf(stderr, " %02x", msg[i]); fprintf(stderr, "\n"); } } /*- End of function --------------------------------------------------------*/ static void t4_begin(void) { int i; //printf("Begin T.4 - %d %d %d %d\n", line_encoding, x_resolution, y_resolution, image_width); t4_rx_set_rx_encoding(&t4_state, line_encoding); t4_rx_set_x_resolution(&t4_state, x_resolution); t4_rx_set_y_resolution(&t4_state, y_resolution); t4_rx_set_image_width(&t4_state, image_width); t4_rx_start_page(&t4_state); t4_up = TRUE; for (i = 0; i < 256; i++) ecm_len[i] = -1; } /*- End of function --------------------------------------------------------*/ static void t4_end(void) { t4_stats_t stats; int i; if (!t4_up) return; if (error_correcting_mode) { for (i = 0; i < 256; i++) { if (ecm_len[i] > 0) t4_rx_put_chunk(&t4_state, ecm_data[i], ecm_len[i]); fprintf(stderr, "%d", (ecm_len[i] <= 0) ? 0 : 1); } fprintf(stderr, "\n"); } t4_rx_end_page(&t4_state); t4_rx_get_transfer_statistics(&t4_state, &stats); fprintf(stderr, "Pages = %d\n", stats.pages_transferred); fprintf(stderr, "Image size = %dx%d\n", stats.width, stats.length); fprintf(stderr, "Image resolution = %dx%d\n", stats.x_resolution, stats.y_resolution); fprintf(stderr, "Bad rows = %d\n", stats.bad_rows); fprintf(stderr, "Longest bad row run = %d\n", stats.longest_bad_row_run); t4_up = FALSE; } /*- End of function --------------------------------------------------------*/ static void v21_put_bit(void *user_data, int bit) { if (bit < 0) { /* Special conditions */ fprintf(stderr, "V.21 rx status is %s (%d)\n", signal_status_to_str(bit), bit); switch (bit) { case SIG_STATUS_CARRIER_DOWN: //t4_end(); break; } return; } if (fast_trained == FAX_NONE) hdlc_rx_put_bit(&hdlcrx, bit); //printf("V.21 Rx bit %d - %d\n", rx_bits++, bit); } /*- End of function --------------------------------------------------------*/ static void v17_put_bit(void *user_data, int bit) { if (bit < 0) { /* Special conditions */ fprintf(stderr, "V.17 rx status is %s (%d)\n", signal_status_to_str(bit), bit); switch (bit) { case SIG_STATUS_TRAINING_SUCCEEDED: fast_trained = FAX_V17_RX; t4_begin(); break; case SIG_STATUS_CARRIER_DOWN: t4_end(); if (fast_trained == FAX_V17_RX) fast_trained = FAX_NONE; break; } return; } if (error_correcting_mode) { hdlc_rx_put_bit(&hdlcrx, bit); } else { if (t4_rx_put_bit(&t4_state, bit)) { t4_end(); fprintf(stderr, "End of page detected\n"); } } //printf("V.17 Rx bit %d - %d\n", rx_bits++, bit); } /*- End of function --------------------------------------------------------*/ static void v29_put_bit(void *user_data, int bit) { if (bit < 0) { /* Special conditions */ fprintf(stderr, "V.29 rx status is %s (%d)\n", signal_status_to_str(bit), bit); switch (bit) { case SIG_STATUS_TRAINING_SUCCEEDED: fast_trained = FAX_V29_RX; t4_begin(); break; case SIG_STATUS_CARRIER_DOWN: t4_end(); if (fast_trained == FAX_V29_RX) fast_trained = FAX_NONE; break; } return; } if (error_correcting_mode) { hdlc_rx_put_bit(&hdlcrx, bit); } else { if (t4_rx_put_bit(&t4_state, bit)) { t4_end(); fprintf(stderr, "End of page detected\n"); } } //printf("V.29 Rx bit %d - %d\n", rx_bits++, bit); } /*- End of function --------------------------------------------------------*/ static void v27ter_put_bit(void *user_data, int bit) { if (bit < 0) { /* Special conditions */ fprintf(stderr, "V.27ter rx status is %s (%d)\n", signal_status_to_str(bit), bit); switch (bit) { case SIG_STATUS_TRAINING_SUCCEEDED: fast_trained = FAX_V27TER_RX; t4_begin(); break; case SIG_STATUS_CARRIER_DOWN: t4_end(); if (fast_trained == FAX_V27TER_RX) fast_trained = FAX_NONE; break; } return; } if (error_correcting_mode) { hdlc_rx_put_bit(&hdlcrx, bit); } else { if (t4_rx_put_bit(&t4_state, bit)) { t4_end(); fprintf(stderr, "End of page detected\n"); } } //printf("V.27ter Rx bit %d - %d\n", rx_bits++, bit); } /*- End of function --------------------------------------------------------*/ int main(int argc, char *argv[]) { fsk_rx_state_t *fsk; v17_rx_state_t *v17; v29_rx_state_t *v29; v27ter_rx_state_t *v27ter; int16_t amp[SAMPLES_PER_CHUNK]; SNDFILE *inhandle; SF_INFO info; int len; const char *filename; logging_state_t *logging; filename = "fax_samp.wav"; if (argc > 1) filename = argv[1]; memset(&info, 0, sizeof(info)); if ((inhandle = sf_open(filename, SFM_READ, &info)) == NULL) { fprintf(stderr, " Cannot open audio file '%s' for reading\n", filename); exit(2); } if (info.samplerate != SAMPLE_RATE) { fprintf(stderr, " Unexpected sample rate in audio file '%s'\n", filename); exit(2); } if (info.channels != 1) { fprintf(stderr, " Unexpected number of channels in audio file '%s'\n", filename); exit(2); } memset(&t30_dummy, 0, sizeof(t30_dummy)); span_log_init(&t30_dummy.logging, SPAN_LOG_FLOW, NULL); span_log_set_protocol(&t30_dummy.logging, "T.30"); hdlc_rx_init(&hdlcrx, FALSE, TRUE, 5, hdlc_accept, NULL); fsk = fsk_rx_init(NULL, &preset_fsk_specs[FSK_V21CH2], FSK_FRAME_MODE_SYNC, v21_put_bit, NULL); v17 = v17_rx_init(NULL, 14400, v17_put_bit, NULL); v29 = v29_rx_init(NULL, 9600, v29_put_bit, NULL); //v29 = v29_rx_init(NULL, 7200, v29_put_bit, NULL); v27ter = v27ter_rx_init(NULL, 4800, v27ter_put_bit, NULL); fsk_rx_signal_cutoff(fsk, -45.5); v17_rx_signal_cutoff(v17, -45.5); v29_rx_signal_cutoff(v29, -45.5); v27ter_rx_signal_cutoff(v27ter, -40.0); #if 1 logging = v17_rx_get_logging_state(v17); span_log_init(logging, SPAN_LOG_FLOW, NULL); span_log_set_protocol(logging, "V.17"); span_log_set_level(logging, SPAN_LOG_SHOW_SEVERITY | SPAN_LOG_SHOW_PROTOCOL | SPAN_LOG_SHOW_TAG | SPAN_LOG_FLOW); logging = v29_rx_get_logging_state(v29); span_log_init(logging, SPAN_LOG_FLOW, NULL); span_log_set_protocol(logging, "V.29"); span_log_set_level(logging, SPAN_LOG_SHOW_SEVERITY | SPAN_LOG_SHOW_PROTOCOL | SPAN_LOG_SHOW_TAG | SPAN_LOG_FLOW); logging = v27ter_rx_get_logging_state(v27ter); span_log_init(logging, SPAN_LOG_FLOW, NULL); span_log_set_protocol(logging, "V.27ter"); span_log_set_level(logging, SPAN_LOG_SHOW_SEVERITY | SPAN_LOG_SHOW_PROTOCOL | SPAN_LOG_SHOW_TAG | SPAN_LOG_FLOW); #endif if (t4_rx_init(&t4_state, "fax_decode.tif", T4_COMPRESSION_ITU_T4_2D) == NULL) { fprintf(stderr, "Failed to init\n"); exit(0); } for (;;) { len = sf_readf_short(inhandle, amp, SAMPLES_PER_CHUNK); if (len < SAMPLES_PER_CHUNK) break; fsk_rx(fsk, amp, len); v17_rx(v17, amp, len); v29_rx(v29, amp, len); //v27ter_rx(v27ter, amp, len); } t4_rx_release(&t4_state); if (sf_close(inhandle) != 0) { fprintf(stderr, " Cannot close audio file '%s'\n", filename); exit(2); } return 0; } /*- End of function --------------------------------------------------------*/ /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/tests/complex_vector_float_tests.c0000664000175000017500000000755011422612266021556 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * complex_vector_float_tests.c * * Written by Steve Underwood * * Copyright (C) 2006,2008 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License version 2, as * published by the Free Software Foundation. * * 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., 675 Mass Ave, Cambridge, MA 02139, USA. */ #if defined(HAVE_CONFIG_H) #include "config.h" #endif #include #include #include #include #include "spandsp.h" static void cvec_mulf_dumb(complexf_t z[], const complexf_t x[], const complexf_t y[], int n) { int i; for (i = 0; i < n; i++) { z[i].re = x[i].re*y[i].re - x[i].im*y[i].im; z[i].im = x[i].re*y[i].im + x[i].im*y[i].re; } } /*- End of function --------------------------------------------------------*/ static int test_cvec_mulf(void) { int i; complexf_t x[100]; complexf_t y[100]; complexf_t za[100]; complexf_t zb[100]; complexf_t ratio; for (i = 0; i < 99; i++) { x[i].re = rand(); x[i].im = rand(); y[i].re = rand(); y[i].im = rand(); } cvec_mulf(za, x, y, 99); cvec_mulf_dumb(zb, x, y, 99); for (i = 0; i < 99; i++) printf("(%f,%f) (%f,%f) (%f,%f)\n", za[i].re, za[i].im, x[i].re, x[i].im, y[i].re, y[i].im); for (i = 0; i < 99; i++) { ratio.re = za[i].re/zb[i].re; ratio.im = za[i].im/zb[i].im; if ((ratio.re < 0.9999 || ratio.re > 1.0001) || (ratio.im < 0.9999 || ratio.im > 1.0001)) { printf("cvec_mulf() - (%f,%f) (%f,%f)\n", za[i].re, za[i].im, zb[i].re, zb[i].im); printf("Tests failed\n"); exit(2); } } return 0; } /*- End of function --------------------------------------------------------*/ static complexf_t cvec_dot_prodf_dumb(const complexf_t x[], const complexf_t y[], int n) { int i; complexf_t z; complexf_t z1; z = complex_setf(0.0f, 0.0f); for (i = 0; i < n; i++) { z1 = complex_mulf(&x[i], &y[i]); z = complex_addf(&z, &z1); } return z; } /*- End of function --------------------------------------------------------*/ static int test_cvec_dot_prodf(void) { int i; complexf_t x[100]; complexf_t y[100]; complexf_t zsa; complexf_t zsb; complexf_t ratio; for (i = 0; i < 99; i++) { x[i].re = rand(); x[i].im = rand(); y[i].re = rand(); y[i].im = rand(); } for (i = 1; i < 99; i++) { zsa = cvec_dot_prodf(x, y, i); zsb = cvec_dot_prodf_dumb(x, y, i); ratio.re = zsa.re/zsb.re; ratio.im = zsa.im/zsb.im; if ((ratio.re < 0.9999 || ratio.re > 1.0001) || (ratio.im < 0.9999 || ratio.im > 1.0001)) { printf("cvec_dot_prodf() - (%f,%f) (%f,%f)\n", zsa.re, zsa.im, zsb.re, zsb.im); printf("Tests failed\n"); exit(2); } } return 0; } /*- End of function --------------------------------------------------------*/ int main(int argc, char *argv[]) { test_cvec_mulf(); test_cvec_dot_prodf(); printf("Tests passed.\n"); return 0; } /*- End of function --------------------------------------------------------*/ /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/tests/modem_echo_tests.c0000664000175000017500000003135411422612267017437 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * modem_echo_tests.c * * Written by Steve Underwood * * Copyright (C) 2004 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License version 2, as * published by the Free Software Foundation. * * 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., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \page modem_echo_can_tests_page Line echo cancellation for modems tests \section modem_echo_can_tests_page_sec_1 What does it do? Currently the echo cancellation tests only provide simple exercising of the cancellor in the way it might be used for line echo cancellation. The test code is in echotests.c. The goal is to test the echo cancellor again the G.16X specs. Clearly, that also means the goal for the cancellor itself is to comply with those specs. Right now, the only aspect of these tests implemented is the line impulse response models in g168tests.c. \section modem_echo_can_tests_page_sec_2 How does it work? The current test consists of feeding an audio file of real speech to the echo cancellor as the transmit signal. A very simple model of a telephone line is used to simulate a simple echo from the transmit signal. A second audio file of real speech is also used to simulate a signal received form the far end of the line. This is gated so it is only placed for one second every 10 seconds, simulating the double talk condition. The resulting echo cancelled signal can either be store in a file for further analysis, or played back as the data is processed. A number of modified versions of this test have been performed. The signal level of the two speech sources has been varied. Several simple models of the telephone line have been used. Although the current cancellor design has known limitations, it seems stable for all these test conditions. No instability has been observed in the current version due to arithmetic overflow when the speech is very loud (with earlier versions, well, ....:) ). The lack of saturating arithmetic in general purpose CPUs is a huge disadvantage here, as software saturation logic would cause a major slow down. Floating point would be good, but is not usable in the Linux kernel. Anyway, the bottom line seems to be the current design is genuinely useful, if imperfect. \section modem_echo_can_tests_page_sec_2 How do I use it? Build the tests with the command "./build". Currently there is no proper make setup, or way to build individual tests. "./build" will built all the tests which currently exist for the DSP functions. The echo cancellation test assumes there are two audio files containing mono, 16 bit signed PCM speech data, sampled at 8kHz. These should be called local_sound.wav and far_sound.wav. A third wave file will be produced. This very crudely starts with the first 256 bytes from the local_sound.wav file, followed by the results of the echo cancellation. The resulting audio is also played to the /dev/dsp device. A printf near the end of echo_tests.c is commented out with a \#if. If this is enabled, detailed information about the results of the echo cancellation will be written to stdout. By saving this into a file, Grace (recommended), GnuPlot, or some other plotting package may be used to graphically display the functioning of the cancellor. */ #if defined(HAVE_CONFIG_H) #include "config.h" #endif #if defined(HAVE_FL_FL_H) && defined(HAVE_FL_FL_CARTESIAN_H) && defined(HAVE_FL_FL_AUDIO_METER_H) #define ENABLE_GUI #endif #include #include #include #include #include #include #if defined(HAVE_MATH_H) #define GEN_CONST #endif //#if defined(WITH_SPANDSP_INTERNALS) #define SPANDSP_EXPOSE_INTERNAL_STRUCTURES //#endif #include "spandsp.h" #include "spandsp/g168models.h" #include "spandsp-sim.h" #if defined(ENABLE_GUI) #include "echo_monitor.h" #endif #if !defined(NULL) #define NULL (void *) 0 #endif typedef struct { const char *name; int max; int cur; SNDFILE *handle; int16_t signal[8000]; } signal_source_t; signal_source_t local_css; fir32_state_t line_model; SNDFILE *resulthandle; int16_t residue_sound[8000]; int residue_cur = 0; int do_codec_munge = TRUE; int use_gui = FALSE; static const int16_t tone_1khz[] = {10362, 7327, 0, -7327, -10362, -7327, 0, 7327}; static inline void put_residue(int16_t tx, int16_t residue) { int outframes; residue_sound[residue_cur++] = tx; residue_sound[residue_cur++] = residue; if (residue_cur >= 8000) { residue_cur >>= 1; outframes = sf_writef_short(resulthandle, residue_sound, residue_cur); if (outframes != residue_cur) { fprintf(stderr, " Error writing residue sound\n"); exit(2); } residue_cur = 0; } } /*- End of function --------------------------------------------------------*/ static void signal_load(signal_source_t *sig, const char *name) { sig->name = name; if ((sig->handle = sf_open_telephony_read(sig->name, 1)) == NULL) { fprintf(stderr, " Cannot open sound file '%s'\n", sig->name); exit(2); } sig->max = sf_readf_short(sig->handle, sig->signal, 8000); if (sig->max < 0) { fprintf(stderr, " Error reading sound file '%s'\n", sig->name); exit(2); } } /*- End of function --------------------------------------------------------*/ static void signal_free(signal_source_t *sig) { if (sf_close(sig->handle) != 0) { fprintf(stderr, " Cannot close sound file '%s'\n", sig->name); exit(2); } } /*- End of function --------------------------------------------------------*/ static void signal_restart(signal_source_t *sig) { sig->cur = 0; } /*- End of function --------------------------------------------------------*/ static int16_t signal_amp(signal_source_t *sig) { int16_t tx; tx = sig->signal[sig->cur++]; if (sig->cur >= sig->max) sig->cur = 0; return tx; } /*- End of function --------------------------------------------------------*/ static inline int16_t codec_munger(int16_t amp) { if (do_codec_munge) return alaw_to_linear(linear_to_alaw(amp)); return amp; } /*- End of function --------------------------------------------------------*/ static void channel_model_create(int model) { static const int32_t *line_models[] = { line_model_d2_coeffs, line_model_d3_coeffs, line_model_d4_coeffs, line_model_d5_coeffs, line_model_d6_coeffs, line_model_d7_coeffs, line_model_d8_coeffs, line_model_d9_coeffs }; static int line_model_sizes[] = { sizeof(line_model_d2_coeffs)/sizeof(int32_t), sizeof(line_model_d3_coeffs)/sizeof(int32_t), sizeof(line_model_d4_coeffs)/sizeof(int32_t), sizeof(line_model_d5_coeffs)/sizeof(int32_t), sizeof(line_model_d6_coeffs)/sizeof(int32_t), sizeof(line_model_d7_coeffs)/sizeof(int32_t), sizeof(line_model_d8_coeffs)/sizeof(int32_t), sizeof(line_model_d9_coeffs)/sizeof(int32_t) }; fir32_create(&line_model, line_models[model], line_model_sizes[model]); } /*- End of function --------------------------------------------------------*/ static int16_t channel_model(int16_t local, int16_t far) { int16_t echo; int16_t rx; /* Channel modelling is merely simulating the effects of A-law distortion and using one of the echo models from G.168 */ /* The local tx signal will have gone through an A-law munging before it reached the line's analogue area where the echo occurs. */ echo = fir32(&line_model, codec_munger(local/8)); /* The far end signal will have been through an A-law munging, although this should not affect things. */ rx = echo + codec_munger(far); /* This mixed echo and far end signal will have been through an A-law munging when it came back into the digital network. */ rx = codec_munger(rx); return rx; } /*- End of function --------------------------------------------------------*/ int main(int argc, char *argv[]) { modem_echo_can_state_t *ctx; //awgn_state_t local_noise_source; awgn_state_t far_noise_source; int i; int clean; int16_t rx; int16_t tx; int local_cur; int far_cur; int result_cur; int line_model_no; time_t now; power_meter_t power_before; power_meter_t power_after; float unadapted_output_power; float unadapted_echo_power; float adapted_output_power; float adapted_echo_power; #if defined(ENABLE_GUI) int16_t amp[2]; #endif line_model_no = 0; use_gui = FALSE; for (i = 1; i < argc; i++) { if (strcmp(argv[i], "-g") == 0) { use_gui = TRUE; continue; } line_model_no = atoi(argv[1]); } time(&now); ctx = modem_echo_can_init(256); awgn_init_dbm0(&far_noise_source, 7162534, -50.0f); signal_load(&local_css, "sound_c1_8k.wav"); if ((resulthandle = sf_open_telephony_write("modem_echo.wav", 2)) == NULL) { fprintf(stderr, " Failed to open result file\n"); exit(2); } #if defined(ENABLE_GUI) if (use_gui) start_echo_can_monitor(256); #endif local_cur = 0; far_cur = 0; result_cur = 0; channel_model_create(line_model_no); #if defined(ENABLE_GUI) if (use_gui) echo_can_monitor_line_model_update(line_model.coeffs, line_model.taps); #endif modem_echo_can_flush(ctx); power_meter_init(&power_before, 5); power_meter_init(&power_after, 5); /* Measure the echo power before adaption */ modem_echo_can_adaption_mode(ctx, FALSE); for (i = 0; i < 8000*5; i++) { tx = tone_1khz[i & 7]; rx = channel_model(tx, 0); clean = modem_echo_can_update(ctx, tx, rx); power_meter_update(&power_before, rx); power_meter_update(&power_after, clean); } unadapted_output_power = power_meter_current_dbm0(&power_before); unadapted_echo_power = power_meter_current_dbm0(&power_after); printf("Pre-adaption: output power %10.5fdBm0, echo power %10.5fdBm0\n", unadapted_output_power, unadapted_echo_power); /* Converge the canceller */ signal_restart(&local_css); modem_echo_can_adaption_mode(ctx, TRUE); for (i = 0; i < 800*2; i++) { clean = modem_echo_can_update(ctx, 0, 0); put_residue(0, clean); } for (i = 0; i < 8000*50; i++) { tx = signal_amp(&local_css); rx = channel_model(tx, 0); clean = modem_echo_can_update(ctx, tx, rx); power_meter_update(&power_before, rx); power_meter_update(&power_after, clean); #if 0 if (i%800 == 0) printf("Powers %10.5fdBm0 %10.5fdBm0\n", power_meter_current_dbm0(&power_before), power_meter_current_dbm0(&power_after)); #endif put_residue(tx, clean); #if defined(ENABLE_GUI) if (use_gui) { echo_can_monitor_can_update(ctx->fir_taps16, 256); amp[0] = tx; echo_can_monitor_line_spectrum_update(amp, 1); } #endif } /* Now lets see how well adapted we are */ modem_echo_can_adaption_mode(ctx, FALSE); for (i = 0; i < 8000*5; i++) { tx = tone_1khz[i & 7]; rx = channel_model(tx, 0); clean = modem_echo_can_update(ctx, tx, rx); power_meter_update(&power_before, rx); power_meter_update(&power_after, clean); } adapted_output_power = power_meter_current_dbm0(&power_before); adapted_echo_power = power_meter_current_dbm0(&power_after); printf("Post-adaption: output power %10.5fdBm0, echo power %10.5fdBm0\n", adapted_output_power, adapted_echo_power); if (fabsf(adapted_output_power - unadapted_output_power) > 0.1f || adapted_echo_power > unadapted_echo_power - 30.0f) { printf("Tests failed.\n"); exit(2); } modem_echo_can_free(ctx); signal_free(&local_css); if (sf_close(resulthandle) != 0) { fprintf(stderr, " Cannot close speech file '%s'\n", "result_sound.wav"); exit(2); } #if defined(ENABLE_GUI) if (use_gui) echo_can_monitor_wait_to_end(); #endif printf("Tests passed.\n"); return 0; } /*- End of function --------------------------------------------------------*/ /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/tests/t38_decode.c0000664000175000017500000002152511430006315016024 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * pcap-parse.c * * Written by Steve Underwood * * Copyright (C) 2009 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License version 2, as * published by the Free Software Foundation. * * 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., 675 Mass Ave, Cambridge, MA 02139, USA. * * Some code from SIPP (http://sf.net/projects/sipp) was used as a model * for how to work with PCAP files. That code was authored by Guillaume * TEISSIER from FTR&D 02/02/2006, and released under the GPL2 licence. */ #if defined(HAVE_CONFIG_H) #include "config.h" #endif #include #include #include #include #include #include #include #include #if !defined(_WIN32) #include #endif #include "udptl.h" #include "spandsp.h" #include "fax_utils.h" #include "pcap_parse.h" #define INPUT_FILE_NAME "t38.pcap" #define OUTPUT_FILE_NAME "t38pcap.tif" t38_terminal_state_t *t38_state; struct timeval now; static int phase_b_handler(t30_state_t *s, void *user_data, int result) { int i; char tag[20]; i = (int) (intptr_t) user_data; snprintf(tag, sizeof(tag), "%c: Phase B", i); printf("%c: Phase B handler on channel %c - (0x%X) %s\n", i, i, result, t30_frametype(result)); log_rx_parameters(s, tag); return T30_ERR_OK; } /*- End of function --------------------------------------------------------*/ static int phase_d_handler(t30_state_t *s, void *user_data, int result) { int i; char tag[20]; i = (int) (intptr_t) user_data; snprintf(tag, sizeof(tag), "%c: Phase D", i); printf("%c: Phase D handler on channel %c - (0x%X) %s\n", i, i, result, t30_frametype(result)); log_transfer_statistics(s, tag); log_tx_parameters(s, tag); log_rx_parameters(s, tag); return T30_ERR_OK; } /*- End of function --------------------------------------------------------*/ static void phase_e_handler(t30_state_t *s, void *user_data, int result) { int i; t30_stats_t t; char tag[20]; i = (int) (intptr_t) user_data; snprintf(tag, sizeof(tag), "%c: Phase E", i); printf("%c: Phase E handler on channel %c - (%d) %s\n", i, i, result, t30_completion_code_to_str(result)); log_transfer_statistics(s, tag); log_tx_parameters(s, tag); log_rx_parameters(s, tag); t30_get_transfer_statistics(s, &t); } /*- End of function --------------------------------------------------------*/ static int tx_packet_handler(t38_core_state_t *s, void *user_data, const uint8_t *buf, int len, int count) { return 0; } /*- End of function --------------------------------------------------------*/ static int timing_update(void *user_data, struct timeval *ts) { t30_state_t *t30; t38_core_state_t *t38_core; logging_state_t *logging; int samples; int partial; static int64_t current = 0; int64_t when; int64_t diff; memcpy(&now, ts, sizeof(now)); when = ts->tv_sec*1000000LL + ts->tv_usec; if (current == 0) current = when; diff = when - current; samples = diff/125LL; while (samples > 0) { partial = (samples > 160) ? 160 : samples; //fprintf(stderr, "Update time by %d samples\n", partial); logging = t38_terminal_get_logging_state(t38_state); span_log_bump_samples(logging, partial); t38_core = t38_terminal_get_t38_core_state(t38_state); logging = t38_core_get_logging_state(t38_core); span_log_bump_samples(logging, partial); t30 = t38_terminal_get_t30_state(t38_state); logging = t30_get_logging_state(t30); span_log_bump_samples(logging, partial); t38_terminal_send_timeout(t38_state, partial); current = when; samples -= partial; } return 0; } /*- End of function --------------------------------------------------------*/ static int ifp_handler(void *user_data, const uint8_t msg[], int len, int seq_no) { t38_core_state_t *t38_core; int i; printf("%5d >>> ", seq_no); for (i = 0; i < len; i++) printf("%02X ", msg[i]); printf("\n"); t38_core = t38_terminal_get_t38_core_state(t38_state); t38_core_rx_ifp_packet(t38_core, msg, len, seq_no); return 0; } /*- End of function --------------------------------------------------------*/ static int process_packet(void *user_data, const uint8_t *pkt, int len) { static udptl_state_t *state = NULL; if (state == NULL) state = udptl_init(NULL, UDPTL_ERROR_CORRECTION_REDUNDANCY, 3, 3, ifp_handler, NULL); udptl_rx_packet(state, pkt, len); return 0; } /*- End of function --------------------------------------------------------*/ int main(int argc, char *argv[]) { t30_state_t *t30; t38_core_state_t *t38_core; logging_state_t *logging; const char *input_file_name; int t38_version; int use_ecm; int use_tep; int options; int supported_modems; int fill_removal; int opt; uint32_t src_addr; uint16_t src_port; uint32_t dest_addr; uint16_t dest_port; use_ecm = FALSE; t38_version = 1; options = 0; input_file_name = INPUT_FILE_NAME; fill_removal = FALSE; use_tep = FALSE; supported_modems = T30_SUPPORT_V27TER | T30_SUPPORT_V29 | T30_SUPPORT_V17; src_addr = 0; src_port = 0; dest_addr = 0; dest_port = 0; while ((opt = getopt(argc, argv, "D:d:eFi:m:oS:s:tv:")) != -1) { switch (opt) { case 'D': dest_addr = atoi(optarg); break; case 'd': dest_port = atoi(optarg); break; case 'e': use_ecm = TRUE; break; case 'F': fill_removal = TRUE; break; case 'i': input_file_name = optarg; break; case 'm': supported_modems = atoi(optarg); break; case 'o': options = atoi(optarg); break; case 'S': src_addr = atoi(optarg); break; case 's': src_port = atoi(optarg); break; case 't': use_tep = TRUE; break; case 'v': t38_version = atoi(optarg); break; default: //usage(); exit(2); break; } } if ((t38_state = t38_terminal_init(NULL, FALSE, tx_packet_handler, NULL)) == NULL) { fprintf(stderr, "Cannot start the T.38 channel\n"); exit(2); } t30 = t38_terminal_get_t30_state(t38_state); t38_core = t38_terminal_get_t38_core_state(t38_state); t38_set_t38_version(t38_core, t38_version); t38_terminal_set_config(t38_state, options); t38_terminal_set_tep_mode(t38_state, use_tep); logging = t38_terminal_get_logging_state(t38_state); span_log_set_level(logging, SPAN_LOG_DEBUG | SPAN_LOG_SHOW_TAG | SPAN_LOG_SHOW_SAMPLE_TIME); span_log_set_tag(logging, "T.38"); logging = t38_core_get_logging_state(t38_core); span_log_set_level(logging, SPAN_LOG_DEBUG | SPAN_LOG_SHOW_TAG | SPAN_LOG_SHOW_SAMPLE_TIME); span_log_set_tag(logging, "T.38"); logging = t30_get_logging_state(t30); span_log_set_level(logging, SPAN_LOG_DEBUG | SPAN_LOG_SHOW_TAG | SPAN_LOG_SHOW_SAMPLE_TIME); span_log_set_tag(logging, "T.38"); t30_set_supported_modems(t30, supported_modems); t30_set_tx_ident(t30, "11111111"); t30_set_tx_nsf(t30, (const uint8_t *) "\x50\x00\x00\x00Spandsp\x00", 12); t30_set_rx_file(t30, OUTPUT_FILE_NAME, -1); t30_set_phase_b_handler(t30, phase_b_handler, (void *) (intptr_t) 'A'); t30_set_phase_d_handler(t30, phase_d_handler, (void *) (intptr_t) 'A'); t30_set_phase_e_handler(t30, phase_e_handler, (void *) (intptr_t) 'A'); t30_set_ecm_capability(t30, TRUE); t30_set_supported_compressions(t30, T30_SUPPORT_T4_1D_COMPRESSION | T30_SUPPORT_T4_2D_COMPRESSION | T30_SUPPORT_T6_COMPRESSION | T30_SUPPORT_T85_COMPRESSION); if (pcap_scan_pkts(input_file_name, src_addr, src_port, dest_addr, dest_port, timing_update, process_packet, NULL)) exit(2); /* Push the time along, to flush out any remaining activity from the application. */ now.tv_sec += 60; timing_update(NULL, &now); } /*- End of function --------------------------------------------------------*/ /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/tests/bit_operations_tests.c0000664000175000017500000001617011422612266020357 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * bit_operations_tests.c * * Written by Steve Underwood * * Copyright (C) 2006 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License version 2, as * published by the Free Software Foundation. * * 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., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \page bit_operations_tests_page Bit operations tests \section bit_operations_tests_page_sec_1 What does it do? These tests check the operation of efficient bit manipulation routines, by comparing their operation with very dumb brute force versions of the same functionality. \section bit_operations_tests_page_sec_2 How is it used? */ #if defined(HAVE_CONFIG_H) #include "config.h" #endif #include #include #include #include #include #include "spandsp.h" uint8_t from[1000000]; uint8_t to[1000000]; static __inline__ int top_bit_dumb(unsigned int data) { int i; if (data == 0) return -1; for (i = 31; i >= 0; i--) { if ((data & (1 << i))) return i; } return -1; } /*- End of function --------------------------------------------------------*/ static __inline__ int bottom_bit_dumb(unsigned int data) { int i; if (data == 0) return -1; for (i = 0; i < 32; i++) { if ((data & (1 << i))) return i; } return -1; } /*- End of function --------------------------------------------------------*/ static __inline__ uint8_t bit_reverse8_dumb(uint8_t data) { int i; int result; result = 0; for (i = 0; i < 8; i++) { result = (result << 1) | (data & 1); data >>= 1; } return result; } /*- End of function --------------------------------------------------------*/ static __inline__ uint32_t bit_reverse_4bytes_dumb(uint32_t data) { int i; uint32_t result; result = 0; for (i = 0; i < 8; i++) { result = (result << 1) | (data & 0x01010101); data >>= 1; } return result; } /*- End of function --------------------------------------------------------*/ static __inline__ uint16_t bit_reverse16_dumb(uint16_t data) { int i; uint16_t result; result = 0; for (i = 0; i < 16; i++) { result = (result << 1) | (data & 1); data >>= 1; } return result; } /*- End of function --------------------------------------------------------*/ static __inline__ uint32_t bit_reverse32_dumb(uint32_t data) { int i; uint32_t result; result = 0; for (i = 0; i < 32; i++) { result = (result << 1) | (data & 1); data >>= 1; } return result; } /*- End of function --------------------------------------------------------*/ static __inline__ int parity8_dumb(uint8_t x) { uint8_t y; int i; for (y = 0, i = 0; i < 8; i++) { y ^= (x & 1); x >>= 1; } return y; } /*- End of function --------------------------------------------------------*/ static __inline__ int one_bits32_dumb(uint32_t x) { int i; int bits; bits = 0; for (i = 0; i < 32; i++) { if (x & 1) bits++; x >>= 1; } return bits; } /*- End of function --------------------------------------------------------*/ int main(int argc, char *argv[]) { int i; uint32_t x; uint8_t ax; uint8_t bx; uint16_t ax16; uint16_t bx16; uint32_t ax32; uint32_t bx32; for (i = 0, x = 0; i < 100000; i++) { ax = top_bit_dumb(x); bx = top_bit(x); if (ax != bx) { printf("Test failed: top bit mismatch 0x%" PRIx32 " -> %u %u\n", x, ax, bx); exit(2); } ax = bottom_bit_dumb(x); bx = bottom_bit(x); if (ax != bx) { printf("Test failed: bottom bit mismatch 0x%" PRIx32 " -> %u %u\n", x, ax, bx); exit(2); } x = rand(); } for (i = 0; i < 256; i++) { ax = bit_reverse8_dumb(i); bx = bit_reverse8(i); if (ax != bx) { printf("Test failed: bit reverse 8 - %02x %02x %02x\n", i, ax, bx); exit(2); } } for (i = 0; i < 1000000; i++) from[i] = rand(); bit_reverse(to, from, 1000000); for (i = 0; i < 1000000; i++) { if (bit_reverse8_dumb(from[i]) != to[i]) { printf("Test failed: bit reverse - at %d, %02x %02x %02x\n", i, from[i], bit_reverse8(from[i]), to[i]); exit(2); } } for (i = 0; i < 256; i++) { x = i | (((i + 1) & 0xFF) << 8) | (((i + 2) & 0xFF) << 16) | (((i + 3) & 0xFF) << 24); ax32 = bit_reverse_4bytes_dumb(x); bx32 = bit_reverse_4bytes(x); if (ax32 != bx32) { printf("Test failed: bit reverse 4 bytes - %" PRIx32 " %" PRIx32 " %" PRIx32 "\n", x, ax32, bx32); exit(2); } } for (i = 0; i < 65536; i++) { ax16 = bit_reverse16_dumb(i); bx16 = bit_reverse16(i); if (ax16 != bx16) { printf("Test failed: bit reverse 16 - %x %x %x\n", i, ax16, bx16); exit(2); } } for (i = 0; i < 0x7FFFFF00; i += 127) { ax32 = bit_reverse32_dumb(i); bx32 = bit_reverse32(i); if (ax32 != bx32) { printf("Test failed: bit reverse 32 - %d %" PRIx32 " %" PRIx32 "\n", i, ax32, bx32); exit(2); } } for (i = 0; i < 256; i++) { ax = parity8(i); bx = parity8_dumb(i); if (ax != bx) { printf("Test failed: parity 8 - %x %x %x\n", i, ax, bx); exit(2); } } for (i = -1; i < 32; i++) { ax32 = most_significant_one32(1 << i); if (ax32 != (1 << i)) { printf("Test failed: most significant one 32 - %x %" PRIx32 " %x\n", i, ax32, (1 << i)); exit(2); } ax32 = least_significant_one32(1 << i); if (ax32 != (1 << i)) { printf("Test failed: least significant one 32 - %x %" PRIx32 " %x\n", i, ax32, (1 << i)); exit(2); } } for (i = 0x80000000; i < 0x800FFFFF; i++) { ax = one_bits32_dumb(i); bx = one_bits32(i); if (ax != bx) { printf("Test failed: one bits - %d, %x %x\n", i, ax, bx); exit(2); } } printf("Tests passed.\n"); return 0; } /*- End of function --------------------------------------------------------*/ /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/tests/super_tone_rx_tests.c0000664000175000017500000003372611422612267020241 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * super_tone_detect_tests.c * * Written by Steve Underwood * * Copyright (C) 2003 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License version 2, as * published by the Free Software Foundation. * * 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., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \file */ /*! \page super_tone_rx_tests_page Supervisory tone detection tests \section super_tone_rx_tests_page_sec_1 What does it do? */ #if defined(HAVE_CONFIG_H) #include "config.h" #endif #include #include #include #include #include #include #include #include #if defined(HAVE_LIBXML_XMLMEMORY_H) #include #endif #if defined(HAVE_LIBXML_PARSER_H) #include #endif #if defined(HAVE_LIBXML_XINCLUDE_H) #include #endif //#if defined(WITH_SPANDSP_INTERNALS) #define SPANDSP_EXPOSE_INTERNAL_STRUCTURES //#endif #include "spandsp.h" #include "spandsp-sim.h" #define IN_FILE_NAME "super_tone.wav" #define MITEL_DIR "../test-data/mitel/" #define BELLCORE_DIR "../test-data/bellcore/" const char *bellcore_files[] = { MITEL_DIR "mitel-cm7291-talkoff.wav", BELLCORE_DIR "tr-tsy-00763-1.wav", BELLCORE_DIR "tr-tsy-00763-2.wav", BELLCORE_DIR "tr-tsy-00763-3.wav", BELLCORE_DIR "tr-tsy-00763-4.wav", BELLCORE_DIR "tr-tsy-00763-5.wav", BELLCORE_DIR "tr-tsy-00763-6.wav", "" }; const char *tone_names[20] = {NULL}; SNDFILE *inhandle; super_tone_rx_segment_t tone_segments[20][10]; super_tone_tx_step_t *dialtone_tree = NULL; super_tone_tx_step_t *ringback_tree = NULL; super_tone_tx_step_t *busytone_tree = NULL; super_tone_tx_step_t *nutone_tree = NULL; super_tone_tx_step_t *congestiontone_tree = NULL; super_tone_tx_step_t *waitingtone_tree = NULL; #if defined(HAVE_LIBXML2) static int parse_tone(super_tone_rx_descriptor_t *desc, int tone_id, super_tone_tx_step_t **tree, xmlDocPtr doc, xmlNsPtr ns, xmlNodePtr cur) { xmlChar *x; float f1; float f2; float f_tol; float l1; float l2; float length; float length_tol; float recognition_length; float recognition_length_tol; int cycles; super_tone_tx_step_t *treep; int min_duration; int max_duration; cur = cur->xmlChildrenNode; while (cur) { if (xmlStrcmp(cur->name, (const xmlChar *) "step") == 0) { printf("Step - "); /* Set some defaults */ f1 = 0.0; f2 = 0.0; f_tol = 1.0; l1 = -11.0; l2 = -11.0; length = 0.0; length_tol = 10.0; recognition_length = 0.0; recognition_length_tol = 10.0; cycles = 1; if ((x = xmlGetProp(cur, (const xmlChar *) "freq"))) { sscanf((char *) x, "%f [%f%%]", &f1, &f_tol); sscanf((char *) x, "%f+%f [%f%%]", &f1, &f2, &f_tol); printf(" Frequency=%.2f+%.2f [%.2f%%]", f1, f2, f_tol); } if ((x = xmlGetProp(cur, (const xmlChar *) "level"))) { if (sscanf((char *) x, "%f+%f", &l1, &l2) < 2) l2 = l1; printf(" Level=%.2f+%.2f", l1, l2); } if ((x = xmlGetProp(cur, (const xmlChar *) "length"))) { sscanf((char *) x, "%f [%f%%]", &length, &length_tol); printf(" Length=%.2f [%.2f%%]", length, length_tol); } if ((x = xmlGetProp(cur, (const xmlChar *) "recognition-length"))) { sscanf((char *) x, "%f [%f%%]", &recognition_length, &recognition_length_tol); printf(" Recognition length=%.2f [%.2f%%]", recognition_length, recognition_length_tol); } if ((x = xmlGetProp(cur, (const xmlChar *) "cycles"))) { if (strcasecmp((char *) x, "endless") == 0) cycles = 0; else cycles = atoi((char *) x); printf(" Cycles='%d' ", cycles); } if ((x = xmlGetProp(cur, (const xmlChar *) "recorded-announcement"))) printf(" Recorded announcement='%s'", x); printf("\n"); if (f1 || f2 || length) { /* TODO: This cannot handle cycling patterns */ if (length == 0.0) { if (recognition_length) min_duration = recognition_length*1000.0 + 0.5; else min_duration = 700; max_duration = 0; } else { if (recognition_length) min_duration = recognition_length*1000.0 + 0.5; else min_duration = (length*1000.0 + 0.5)*(1.0 - length_tol/100.0) - 30; max_duration = (length*1000.0 + 0.5)*(1.0 + length_tol/100.0) + 30; } printf(">>>Detector element %10d %10d %10d %10d\n", (int) (f1 + 0.5), (int) (f2 + 0.5), min_duration, max_duration); super_tone_rx_add_element(desc, tone_id, f1 + 0.5, f2 + 0.5, min_duration, max_duration); } treep = super_tone_tx_make_step(NULL, f1, l1, f2, l2, length*1000.0 + 0.5, cycles); *tree = treep; tree = &(treep->next); parse_tone(desc, tone_id, &(treep->nest), doc, ns, cur); } /*endif*/ cur = cur->next; } /*endwhile*/ return 0; } /*- End of function --------------------------------------------------------*/ static void parse_tone_set(super_tone_rx_descriptor_t *desc, xmlDocPtr doc, xmlNsPtr ns, xmlNodePtr cur) { int tone_id; printf("Parsing tone set\n"); cur = cur->xmlChildrenNode; while (cur) { if (strcmp((char *) cur->name, "dial-tone") == 0) { printf("Hit %s\n", cur->name); tone_id = super_tone_rx_add_tone(desc); dialtone_tree = NULL; parse_tone(desc, tone_id, &dialtone_tree, doc, ns, cur); tone_names[tone_id] = "Dial tone"; } else if (strcmp((char *) cur->name, "ringback-tone") == 0) { printf("Hit %s\n", cur->name); tone_id = super_tone_rx_add_tone(desc); ringback_tree = NULL; parse_tone(desc, tone_id, &ringback_tree, doc, ns, cur); tone_names[tone_id] = "Ringback tone"; } else if (strcmp((char *) cur->name, "busy-tone") == 0) { printf("Hit %s\n", cur->name); tone_id = super_tone_rx_add_tone(desc); busytone_tree = NULL; parse_tone(desc, tone_id, &busytone_tree, doc, ns, cur); tone_names[tone_id] = "Busy tone"; } else if (strcmp((char *) cur->name, "number-unobtainable-tone") == 0) { printf("Hit %s\n", cur->name); tone_id = super_tone_rx_add_tone(desc); nutone_tree = NULL; parse_tone(desc, tone_id, &nutone_tree, doc, ns, cur); tone_names[tone_id] = "NU tone"; } else if (strcmp((char *) cur->name, "congestion-tone") == 0) { printf("Hit %s\n", cur->name); tone_id = super_tone_rx_add_tone(desc); congestiontone_tree = NULL; parse_tone(desc, tone_id, &congestiontone_tree, doc, ns, cur); tone_names[tone_id] = "Congestion tone"; } else if (strcmp((char *) cur->name, "waiting-tone") == 0) { printf("Hit %s\n", cur->name); tone_id = super_tone_rx_add_tone(desc); waitingtone_tree = NULL; parse_tone(desc, tone_id, &waitingtone_tree, doc, ns, cur); tone_names[tone_id] = "Waiting tone"; } /*endif*/ cur = cur->next; } /*endwhile*/ } /*- End of function --------------------------------------------------------*/ static void get_tone_set(super_tone_rx_descriptor_t *desc, const char *tone_file, const char *set_id) { xmlDocPtr doc; xmlNsPtr ns; xmlNodePtr cur; #if 1 xmlValidCtxt valid; #endif xmlChar *x; ns = NULL; xmlKeepBlanksDefault(0); xmlCleanupParser(); if ((doc = xmlParseFile(tone_file)) == NULL) { fprintf(stderr, "No document\n"); exit(2); } /*endif*/ xmlXIncludeProcess(doc); #if 1 if (!xmlValidateDocument(&valid, doc)) { fprintf(stderr, "Invalid document\n"); exit(2); } /*endif*/ #endif /* Check the document is of the right kind */ if ((cur = xmlDocGetRootElement(doc)) == NULL) { fprintf(stderr, "Empty document\n"); xmlFreeDoc(doc); exit(2); } /*endif*/ if (xmlStrcmp(cur->name, (const xmlChar *) "global-tones")) { fprintf(stderr, "Document of the wrong type, root node != global-tones"); xmlFreeDoc(doc); exit(2); } /*endif*/ cur = cur->xmlChildrenNode; while (cur && xmlIsBlankNode (cur)) cur = cur->next; /*endwhile*/ if (cur == NULL) exit(2); /*endif*/ while (cur) { if (xmlStrcmp(cur->name, (const xmlChar *) "tone-set") == 0) { if ((x = xmlGetProp(cur, (const xmlChar *) "uncode"))) { if (strcmp((char *) x, set_id) == 0) parse_tone_set(desc, doc, ns, cur); } /*endif*/ } /*endif*/ cur = cur->next; } /*endwhile*/ xmlFreeDoc(doc); } /*- End of function --------------------------------------------------------*/ #endif static void super_tone_rx_fill_descriptor(super_tone_rx_descriptor_t *desc) { int tone_id; tone_id = super_tone_rx_add_tone(desc); super_tone_rx_add_element(desc, tone_id, 400, 0, 700, 0); tone_names[tone_id] = "XXX"; tone_id = super_tone_rx_add_tone(desc); super_tone_rx_add_element(desc, tone_id, 1100, 0, 400, 600); super_tone_rx_add_element(desc, tone_id, 0, 0, 2800, 3200); tone_names[tone_id] = "FAX tone"; } /*- End of function --------------------------------------------------------*/ static void wakeup(void *data, int code, int level, int delay) { if (code >= 0) printf("Current tone is %d '%s' '%s'\n", code, (tone_names[code]) ? tone_names[code] : "???", (char *) data); else printf("Tone off '%s'\n", (char *) data); } /*- End of function --------------------------------------------------------*/ static void tone_segment(void *data, int f1, int f2, int duration) { if (f1 < 0) printf("Result %5d silence\n", duration); else if (f2 < 0) printf("Result %5d %4d\n", duration, f1); else printf("Result %5d %4d + %4d\n", duration, f1, f2); } /*- End of function --------------------------------------------------------*/ int main(int argc, char *argv[]) { int x; int16_t amp[8000]; int sample; int frames; awgn_state_t noise_source; super_tone_rx_state_t *super; super_tone_rx_descriptor_t desc; if ((inhandle = sf_open_telephony_read(IN_FILE_NAME, 1)) == NULL) { fprintf(stderr, " Cannot open audio file '%s'\n", IN_FILE_NAME); exit(2); } super_tone_rx_make_descriptor(&desc); #if defined(HAVE_LIBXML2) get_tone_set(&desc, "../spandsp/global-tones.xml", (argc > 1) ? argv[1] : "hk"); #endif super_tone_rx_fill_descriptor(&desc); if ((super = super_tone_rx_init(NULL, &desc, wakeup, (void *) "test")) == NULL) { printf(" Failed to create detector.\n"); exit(2); } super_tone_rx_segment_callback(super, tone_segment); awgn_init_dbm0(&noise_source, 1234567, -30.0f); printf("Processing file\n"); while ((frames = sf_readf_short(inhandle, amp, 8000))) { /* Add some noise to the signal for a more meaningful test. */ //for (sample = 0; sample < frames; sample++) // amp[sample] += saturate(amp[sample] + awgn (&noise_source)); for (sample = 0; sample < frames; ) { x = super_tone_rx(super, amp + sample, frames - sample); sample += x; } } if (sf_close(inhandle)) { fprintf(stderr, " Cannot close audio file '%s'\n", IN_FILE_NAME); exit(2); } #if 0 /* Test for voice immunity */ for (j = 0; bellcore_files[j][0]; j++) { if ((inhandle = sf_open_telephony_read(bellcore_files[j], 1)) == NULL) { printf(" Cannot open audio file '%s'\n", bellcore_files[j]); exit(2); } while ((frames = sf_readf_short(inhandle, amp, 8000))) { for (sample = 0; sample < frames; ) { x = super_tone_rx(super, amp + sample, frames - sample); sample += x; } } if (sf_close(inhandle) != 0) { printf(" Cannot close speech file '%s'\n", bellcore_files[j]); exit(2); } } #endif super_tone_rx_free(super); printf("Done\n"); return 0; } /*- End of function --------------------------------------------------------*/ /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/tests/tsb85_tests.c0000664000175000017500000013000611440176324016276 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * tsb85_tests.c * * Written by Steve Underwood * * Copyright (C) 2008 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 2.1, * as published by the Free Software Foundation. * * 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 Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \file */ #if defined(HAVE_CONFIG_H) #include #endif #include #include #include #include #include #if defined(HAVE_TGMATH_H) #include #endif #if defined(HAVE_MATH_H) #include #endif #include "floating_fudge.h" #include #include #include #include #include #if defined(HAVE_LIBXML_XMLMEMORY_H) #include #endif #if defined(HAVE_LIBXML_PARSER_H) #include #endif #if defined(HAVE_LIBXML_XINCLUDE_H) #include #endif //#if defined(WITH_SPANDSP_INTERNALS) #define SPANDSP_EXPOSE_INTERNAL_STRUCTURES //#endif #include "spandsp.h" #include "spandsp-sim.h" #include "fax_tester.h" #include "fax_utils.h" #define OUTPUT_TIFF_FILE_NAME "tsb85.tif" #define OUTPUT_FILE_NAME_WAVE "tsb85.wav" #define SAMPLES_PER_CHUNK 160 SNDFILE *out_handle; int use_receiver_not_ready = FALSE; int test_local_interrupt = FALSE; const char *output_tiff_file_name; fax_state_t *fax; faxtester_state_t state; uint8_t image[1000000]; uint8_t awaited[1000]; int awaited_len = 0; char image_path[1024]; t30_exchanged_info_t expected_rx_info; char next_tx_file[1000]; static int next_step(faxtester_state_t *s); static int phase_b_handler(t30_state_t *s, void *user_data, int result) { int i; int status; const char *u; i = (intptr_t) user_data; status = T30_ERR_OK; if ((u = t30_get_rx_ident(s))) { printf("%c: Phase B: remote ident '%s'\n", i, u); if (expected_rx_info.ident[0] && strcmp(expected_rx_info.ident, u)) { printf("%c: Phase B: remote ident incorrect! - expected '%s'\n", i, expected_rx_info.ident); status = T30_ERR_IDENT_UNACCEPTABLE; } } else { if (expected_rx_info.ident[0]) { printf("%c: Phase B: remote ident missing!\n", i); status = T30_ERR_IDENT_UNACCEPTABLE; } } if ((u = t30_get_rx_sub_address(s))) { printf("%c: Phase B: remote sub-address '%s'\n", i, u); if (expected_rx_info.sub_address[0] && strcmp(expected_rx_info.sub_address, u)) { printf("%c: Phase B: remote sub-address incorrect! - expected '%s'\n", i, expected_rx_info.sub_address); status = T30_ERR_SUB_UNACCEPTABLE; } } else { if (expected_rx_info.sub_address[0]) { printf("%c: Phase B: remote sub-address missing!\n", i); status = T30_ERR_SUB_UNACCEPTABLE; } } if ((u = t30_get_rx_polled_sub_address(s))) { printf("%c: Phase B: remote polled sub-address '%s'\n", i, u); if (expected_rx_info.polled_sub_address[0] && strcmp(expected_rx_info.polled_sub_address, u)) { printf("%c: Phase B: remote polled sub-address incorrect! - expected '%s'\n", i, expected_rx_info.polled_sub_address); status = T30_ERR_PSA_UNACCEPTABLE; } } else { if (expected_rx_info.polled_sub_address[0]) { printf("%c: Phase B: remote polled sub-address missing!\n", i); status = T30_ERR_PSA_UNACCEPTABLE; } } if ((u = t30_get_rx_selective_polling_address(s))) { printf("%c: Phase B: remote selective polling address '%s'\n", i, u); if (expected_rx_info.selective_polling_address[0] && strcmp(expected_rx_info.selective_polling_address, u)) { printf("%c: Phase B: remote selective polling address incorrect! - expected '%s'\n", i, expected_rx_info.selective_polling_address); status = T30_ERR_SEP_UNACCEPTABLE; } } else { if (expected_rx_info.selective_polling_address[0]) { printf("%c: Phase B: remote selective polling address missing!\n", i); status = T30_ERR_SEP_UNACCEPTABLE; } } if ((u = t30_get_rx_sender_ident(s))) { printf("%c: Phase B: remote sender ident '%s'\n", i, u); if (expected_rx_info.sender_ident[0] && strcmp(expected_rx_info.sender_ident, u)) { printf("%c: Phase B: remote sender ident incorrect! - expected '%s'\n", i, expected_rx_info.sender_ident); status = T30_ERR_SID_UNACCEPTABLE; } } else { if (expected_rx_info.sender_ident[0]) { printf("%c: Phase B: remote sender ident missing!\n", i); status = T30_ERR_SID_UNACCEPTABLE; } } if ((u = t30_get_rx_password(s))) { printf("%c: Phase B: remote password '%s'\n", i, u); if (expected_rx_info.password[0] && strcmp(expected_rx_info.password, u)) { printf("%c: Phase B: remote password incorrect! - expected '%s'\n", i, expected_rx_info.password); status = T30_ERR_PWD_UNACCEPTABLE; } } else { if (expected_rx_info.password[0]) { printf("%c: Phase B: remote password missing!\n", i); status = T30_ERR_PWD_UNACCEPTABLE; } } printf("%c: Phase B handler on channel %d - (0x%X) %s\n", i, i, result, t30_frametype(result)); return status; } /*- End of function --------------------------------------------------------*/ static int phase_d_handler(t30_state_t *s, void *user_data, int result) { int i; char tag[20]; i = (intptr_t) user_data; snprintf(tag, sizeof(tag), "%c: Phase D", i); printf("%c: Phase D handler on channel %c - (0x%X) %s\n", i, i, result, t30_frametype(result)); log_transfer_statistics(s, tag); log_tx_parameters(s, tag); log_rx_parameters(s, tag); if (use_receiver_not_ready) t30_set_receiver_not_ready(s, 3); if (test_local_interrupt) { if (i == 'A') { printf("%c: Initiating interrupt request\n", i); t30_local_interrupt_request(s, TRUE); } else { switch (result) { case T30_PIP: case T30_PRI_MPS: case T30_PRI_EOM: case T30_PRI_EOP: printf("%c: Accepting interrupt request\n", i); t30_local_interrupt_request(s, TRUE); break; case T30_PIN: break; } } } return T30_ERR_OK; } /*- End of function --------------------------------------------------------*/ static void phase_e_handler(t30_state_t *s, void *user_data, int result) { int i; char tag[20]; i = (intptr_t) user_data; snprintf(tag, sizeof(tag), "%c: Phase E", i); printf("%c: Phase E handler on channel %c - (%d) %s\n", i, i, result, t30_completion_code_to_str(result)); log_transfer_statistics(s, tag); log_tx_parameters(s, tag); log_rx_parameters(s, tag); } /*- End of function --------------------------------------------------------*/ static void t30_real_time_frame_handler(t30_state_t *s, void *user_data, int direction, const uint8_t *msg, int len) { if (msg == NULL) { } else { fprintf(stderr, "T.30: Real time frame handler - %s, %s, length = %d\n", (direction) ? "line->T.30" : "T.30->line", t30_frametype(msg[2]), len); } } /*- End of function --------------------------------------------------------*/ static int document_handler(t30_state_t *s, void *user_data, int event) { int i; i = (intptr_t) user_data; fprintf(stderr, "%d: Document handler on channel %d - event %d\n", i, i, event); if (next_tx_file[0]) { t30_set_tx_file(s, next_tx_file, -1, -1); next_tx_file[0] = '\0'; return TRUE; } return FALSE; } /*- End of function --------------------------------------------------------*/ static void faxtester_real_time_frame_handler(faxtester_state_t *s, void *user_data, int direction, const uint8_t *msg, int len) { if (msg == NULL) { while (next_step(s) == 0) ; /*endwhile*/ } else { fprintf(stderr, "TST: Real time frame handler - %s, %s, length = %d\n", (direction) ? "line->tester" : "tester->line", t30_frametype(msg[2]), len); if (direction && msg[1] == awaited[1]) { if ((awaited_len >= 0 && len != abs(awaited_len)) || (awaited_len < 0 && len < abs(awaited_len)) || memcmp(msg, awaited, abs(awaited_len)) != 0) { span_log_buf(&s->logging, SPAN_LOG_FLOW, "Expected", awaited, abs(awaited_len)); span_log_buf(&s->logging, SPAN_LOG_FLOW, "Received", msg, len); printf("Test failed\n"); exit(2); } } if (msg[1] == awaited[1]) { while (next_step(s) == 0) ; /*endwhile*/ } } } /*- End of function --------------------------------------------------------*/ static void faxtester_front_end_step_complete_handler(faxtester_state_t *s, void *user_data) { while (next_step(s) == 0) ; /*endwhile*/ } /*- End of function --------------------------------------------------------*/ static void faxtester_front_end_step_timeout_handler(faxtester_state_t *s, void *user_data) { span_log(&s->logging, SPAN_LOG_FLOW, "FAX tester step timed out\n"); printf("Test failed\n"); exit(2); } /*- End of function --------------------------------------------------------*/ static void fax_prepare(void) { t30_state_t *t30; logging_state_t *logging; t30 = fax_get_t30_state(fax); fax_set_transmit_on_idle(fax, TRUE); fax_set_tep_mode(fax, TRUE); #if 0 t30_set_tx_ident(t30, "1234567890"); t30_set_tx_sub_address(t30, "Sub-address"); t30_set_tx_sender_ident(t30, "Sender ID"); t30_set_tx_password(t30, "Password"); t30_set_tx_polled_sub_address(t30, "Polled sub-address"); t30_set_tx_selective_polling_address(t30, "Sel polling address"); #endif t30_set_tx_nsf(t30, (const uint8_t *) "\x50\x00\x00\x00Spandsp NSF\x00", 16); //t30_set_tx_nss(t30, (const uint8_t *) "\x50\x00\x00\x00Spandsp NSS\x00", 16); t30_set_tx_nsc(t30, (const uint8_t *) "\x50\x00\x00\x00Spandsp NSC\x00", 16); t30_set_ecm_capability(t30, TRUE); t30_set_supported_t30_features(t30, T30_SUPPORT_IDENTIFICATION | T30_SUPPORT_SELECTIVE_POLLING | T30_SUPPORT_SUB_ADDRESSING); t30_set_supported_image_sizes(t30, T30_SUPPORT_US_LETTER_LENGTH | T30_SUPPORT_US_LEGAL_LENGTH | T30_SUPPORT_UNLIMITED_LENGTH | T30_SUPPORT_215MM_WIDTH | T30_SUPPORT_255MM_WIDTH | T30_SUPPORT_303MM_WIDTH); t30_set_supported_resolutions(t30, T30_SUPPORT_STANDARD_RESOLUTION | T30_SUPPORT_FINE_RESOLUTION | T30_SUPPORT_SUPERFINE_RESOLUTION | T30_SUPPORT_R8_RESOLUTION | T30_SUPPORT_R16_RESOLUTION | T30_SUPPORT_300_300_RESOLUTION | T30_SUPPORT_400_400_RESOLUTION | T30_SUPPORT_600_600_RESOLUTION | T30_SUPPORT_1200_1200_RESOLUTION | T30_SUPPORT_300_600_RESOLUTION | T30_SUPPORT_400_800_RESOLUTION | T30_SUPPORT_600_1200_RESOLUTION); t30_set_supported_modems(t30, T30_SUPPORT_V27TER | T30_SUPPORT_V29 | T30_SUPPORT_V17); t30_set_supported_compressions(t30, T30_SUPPORT_T4_1D_COMPRESSION | T30_SUPPORT_T4_2D_COMPRESSION | T30_SUPPORT_T6_COMPRESSION); t30_set_phase_b_handler(t30, phase_b_handler, (void *) (intptr_t) 'A'); t30_set_phase_d_handler(t30, phase_d_handler, (void *) (intptr_t) 'A'); t30_set_phase_e_handler(t30, phase_e_handler, (void *) (intptr_t) 'A'); t30_set_real_time_frame_handler(t30, t30_real_time_frame_handler, (void *) (intptr_t) 'A'); t30_set_document_handler(t30, document_handler, (void *) (intptr_t) 'A'); logging = fax_get_logging_state(fax); span_log_set_level(logging, SPAN_LOG_SHOW_SEVERITY | SPAN_LOG_SHOW_PROTOCOL | SPAN_LOG_SHOW_TAG | SPAN_LOG_SHOW_SAMPLE_TIME | SPAN_LOG_FLOW); span_log_set_tag(logging, "A"); logging = t30_get_logging_state(t30); span_log_set_level(logging, SPAN_LOG_SHOW_SEVERITY | SPAN_LOG_SHOW_PROTOCOL | SPAN_LOG_SHOW_TAG | SPAN_LOG_SHOW_SAMPLE_TIME | SPAN_LOG_FLOW); span_log_set_tag(logging, "A"); #if 0 span_log_set_level(&fax.modems.v27ter_rx.logging, SPAN_LOG_SHOW_SEVERITY | SPAN_LOG_SHOW_PROTOCOL | SPAN_LOG_SHOW_TAG | SPAN_LOG_SHOW_SAMPLE_TIME | SPAN_LOG_FLOW); span_log_set_tag(&fax.modems.v27ter_rx.logging, "A"); span_log_set_level(&fax.modems.v29_rx.logging, SPAN_LOG_SHOW_SEVERITY | SPAN_LOG_SHOW_PROTOCOL | SPAN_LOG_SHOW_TAG | SPAN_LOG_SHOW_SAMPLE_TIME | SPAN_LOG_FLOW); span_log_set_tag(&fax.modems.v29_rx.logging, "A"); span_log_set_level(&fax.modems.v17_rx.logging, SPAN_LOG_SHOW_SEVERITY | SPAN_LOG_SHOW_PROTOCOL | SPAN_LOG_SHOW_TAG | SPAN_LOG_SHOW_SAMPLE_TIME | SPAN_LOG_FLOW); span_log_set_tag(&fax.modems.v17_rx.logging, "A"); #endif } /*- End of function --------------------------------------------------------*/ static int string_to_msg(uint8_t msg[], uint8_t mask[], const char buf[]) { int i; int x; const char *t; msg[0] = 0; mask[0] = 0xFF; i = 0; t = (char *) buf; while (*t) { /* Skip white space */ while (isspace((int) *t)) t++; /* If we find ... we allow arbitrary addition info beyond this point in the message */ if (t[0] == '.' && t[1] == '.' && t[2] == '.') { return -i; } else if (isxdigit((int) *t)) { for ( ; isxdigit((int) *t); t++) { x = *t; if (x >= 'a') x -= 0x20; if (x >= 'A') x -= ('A' - 10); else x -= '0'; msg[i] = (msg[i] << 4) | x; } mask[i] = 0xFF; if (*t == '/') { /* There is a mask following the byte */ mask[i] = 0; for (t++; isxdigit((int) *t); t++) { x = *t; if (x >= 'a') x -= 0x20; if (x >= 'A') x -= ('A' - 10); else x -= '0'; mask[i] = (mask[i] << 4) | x; } } if (*t && !isspace((int) *t)) { /* Bad string */ return 0; } i++; } } return i; } /*- End of function --------------------------------------------------------*/ #if 0 static void string_test2(const uint8_t msg[], int len) { int i; if (len > 0) { for (i = 0; i < len - 1; i++) printf("%02X ", msg[i]); printf("%02X", msg[i]); } } /*- End of function --------------------------------------------------------*/ static void string_test3(const char buf[]) { uint8_t msg[1000]; uint8_t mask[1000]; int len; int i; len = string_to_msg(msg, mask, buf); printf("Len = %d: ", len); string_test2(msg, abs(len)); printf("/"); string_test2(mask, abs(len)); printf("\n"); } /*- End of function --------------------------------------------------------*/ static int string_test(void) { string_test3("FF C8 12 34 56 78"); string_test3("FF C8 12/55 34 56/aA 78 "); string_test3("FF C8 12/55 34 56/aA 78 ..."); string_test3("FF C8 12/55 34 56/aA 78..."); string_test3("FF C8 12/55 34 56/aA 78 ... 99 88 77"); exit(0); } /*- End of function --------------------------------------------------------*/ #endif static void corrupt_image(faxtester_state_t *s, uint8_t image[], int len, const char *bad_rows) { int i; int j; int k; uint32_t bits; uint32_t bitsx; int list[1000]; int x; int row; const char *t; /* Form the list of rows to be hit */ x = 0; t = bad_rows; while (*t) { while (isspace((int) *t)) t++; if (sscanf(t, "%d", &list[x]) < 1) break; x++; while (isdigit((int) *t)) t++; if (*t == ',') t++; } /* Go through the image, and corrupt the first bit of every listed row */ bits = 0x7FF; bitsx = 0x7FF; row = 0; for (i = 0; i < len; i++) { bits ^= (image[i] << 11); bitsx ^= (image[i] << 11); for (j = 0; j < 8; j++) { if ((bits & 0xFFF) == 0x800) { /* We are at an EOL. Is this row in the list of rows to be corrupted? */ row++; for (k = 0; k < x; k++) { if (list[k] == row) { /* Corrupt this row. TSB85 says to hit the first bit after the EOL */ bitsx ^= 0x1000; } } } bits >>= 1; bitsx >>= 1; } image[i] = (bitsx >> 3) & 0xFF; } span_log(&s->logging, SPAN_LOG_FLOW, "%d rows found. %d corrupted\n", row, x); } /*- End of function --------------------------------------------------------*/ static int next_step(faxtester_state_t *s) { int delay; int flags; xmlChar *dir; xmlChar *type; xmlChar *modem; xmlChar *value; xmlChar *tag; xmlChar *bad_rows; xmlChar *crc_error; xmlChar *pattern; xmlChar *timeout; xmlChar *min_bits; xmlChar *frame_size; xmlChar *block; xmlChar *compression; uint8_t buf[1000]; uint8_t mask[1000]; char path[1024]; int i; int j; int hdlc; int short_train; int min_row_bits; int ecm_frame_size; int ecm_block; int compression_type; int timer; int len; t4_state_t t4_tx_state; t30_state_t *t30; if (s->cur == NULL) { if (!s->final_delayed) { /* Add a bit of waiting at the end, to ensure everything gets flushed through, any timers can expire, etc. */ faxtester_set_timeout(s, -1); faxtester_set_rx_type(s, T30_MODEM_NONE, 0, FALSE, FALSE); faxtester_set_tx_type(s, T30_MODEM_PAUSE, 0, 120000, FALSE); s->final_delayed = TRUE; return 1; } /* Finished */ printf("Test passed\n"); exit(0); } while (s->cur && xmlStrcmp(s->cur->name, (const xmlChar *) "step") != 0) s->cur = s->cur->next; if (s->cur == NULL) { /* Finished */ printf("Test passed\n"); exit(0); } dir = xmlGetProp(s->cur, (const xmlChar *) "dir"); type = xmlGetProp(s->cur, (const xmlChar *) "type"); modem = xmlGetProp(s->cur, (const xmlChar *) "modem"); value = xmlGetProp(s->cur, (const xmlChar *) "value"); tag = xmlGetProp(s->cur, (const xmlChar *) "tag"); bad_rows = xmlGetProp(s->cur, (const xmlChar *) "bad_rows"); crc_error = xmlGetProp(s->cur, (const xmlChar *) "crc_error"); pattern = xmlGetProp(s->cur, (const xmlChar *) "pattern"); timeout = xmlGetProp(s->cur, (const xmlChar *) "timeout"); min_bits = xmlGetProp(s->cur, (const xmlChar *) "min_bits"); frame_size = xmlGetProp(s->cur, (const xmlChar *) "frame_size"); block = xmlGetProp(s->cur, (const xmlChar *) "block"); compression = xmlGetProp(s->cur, (const xmlChar *) "compression"); s->cur = s->cur->next; span_log(&s->logging, SPAN_LOG_FLOW, "Dir - %s, type - %s, modem - %s, value - %s, timeout - %s, tag - %s\n", (dir) ? (const char *) dir : "", (type) ? (const char *) type : "", (modem) ? (const char *) modem : "", (value) ? (const char *) value : "", (timeout) ? (const char *) timeout : "", (tag) ? (const char *) tag : ""); if (type == NULL) return 1; if (timeout) timer = atoi((const char *) timeout); else timer = -1; if (dir && strcasecmp((const char *) dir, "R") == 0) { /* Receive always has a timeout applied. */ if (timer < 0) timer = 7000; faxtester_set_timeout(s, timer); if (modem) { hdlc = (strcasecmp((const char *) type, "PREAMBLE") == 0); short_train = (strcasecmp((const char *) type, "TCF") != 0); faxtester_set_tx_type(s, T30_MODEM_NONE, 0, FALSE, FALSE); if (strcasecmp((const char *) modem, "V.21") == 0) { faxtester_set_rx_type(s, T30_MODEM_V21, 300, FALSE, TRUE); } else if (strcasecmp((const char *) modem, "V.17/14400") == 0) { faxtester_set_rx_type(s, T30_MODEM_V17, 14400, short_train, hdlc); } else if (strcasecmp((const char *) modem, "V.17/12000") == 0) { faxtester_set_rx_type(s, T30_MODEM_V17, 12000, short_train, hdlc); } else if (strcasecmp((const char *) modem, "V.17/9600") == 0) { faxtester_set_rx_type(s, T30_MODEM_V17, 9600, short_train, hdlc); } else if (strcasecmp((const char *) modem, "V.17/7200") == 0) { faxtester_set_rx_type(s, T30_MODEM_V17, 7200, short_train, hdlc); } else if (strcasecmp((const char *) modem, "V.29/9600") == 0) { faxtester_set_rx_type(s, T30_MODEM_V29, 9600, FALSE, hdlc); } else if (strcasecmp((const char *) modem, "V.29/7200") == 0) { faxtester_set_rx_type(s, T30_MODEM_V29, 7200, FALSE, hdlc); } else if (strcasecmp((const char *) modem, "V.27ter/4800") == 0) { faxtester_set_rx_type(s, T30_MODEM_V27TER, 4800, FALSE, hdlc); } else if (strcasecmp((const char *) modem, "V.27ter/2400") == 0) { faxtester_set_rx_type(s, T30_MODEM_V27TER, 2400, FALSE, hdlc); } else { span_log(&s->logging, SPAN_LOG_FLOW, "Unrecognised modem\n"); } } if (strcasecmp((const char *) type, "SET") == 0) { if (strcasecmp((const char *) tag, "IDENT") == 0) strcpy(expected_rx_info.ident, (const char *) value); else if (strcasecmp((const char *) tag, "SUB") == 0) strcpy(expected_rx_info.sub_address, (const char *) value); else if (strcasecmp((const char *) tag, "SEP") == 0) strcpy(expected_rx_info.selective_polling_address, (const char *) value); else if (strcasecmp((const char *) tag, "PSA") == 0) strcpy(expected_rx_info.polled_sub_address, (const char *) value); else if (strcasecmp((const char *) tag, "SID") == 0) strcpy(expected_rx_info.sender_ident, (const char *) value); else if (strcasecmp((const char *) tag, "PWD") == 0) strcpy(expected_rx_info.password, (const char *) value); return 0; } else if (strcasecmp((const char *) type, "CNG") == 0) { /* Look for CNG */ faxtester_set_rx_type(s, T30_MODEM_CNG, 0, FALSE, FALSE); faxtester_set_tx_type(s, T30_MODEM_NONE, 0, FALSE, FALSE); } else if (strcasecmp((const char *) type, "CED") == 0) { /* Look for CED */ faxtester_set_rx_type(s, T30_MODEM_CED, 0, FALSE, FALSE); faxtester_set_tx_type(s, T30_MODEM_NONE, 0, FALSE, FALSE); } else if (strcasecmp((const char *) type, "HDLC") == 0) { i = string_to_msg(buf, mask, (const char *) value); bit_reverse(awaited, buf, abs(i)); awaited_len = i; } else if (strcasecmp((const char *) type, "TCF") == 0) { } else if (strcasecmp((const char *) type, "MSG") == 0) { } else if (strcasecmp((const char *) type, "PP") == 0) { } else if (strcasecmp((const char *) type, "SILENCE") == 0) { faxtest_set_rx_silence(s); } else { span_log(&s->logging, SPAN_LOG_FLOW, "Unrecognised type '%s'\n", (const char *) type); return 0; } } else { faxtester_set_timeout(s, timer); if (modem) { hdlc = (strcasecmp((const char *) type, "PREAMBLE") == 0); short_train = (strcasecmp((const char *) type, "TCF") != 0); faxtester_set_rx_type(s, T30_MODEM_NONE, 0, FALSE, FALSE); if (strcasecmp((const char *) modem, "V.21") == 0) { faxtester_set_tx_type(s, T30_MODEM_V21, 300, FALSE, TRUE); } else if (strcasecmp((const char *) modem, "V.17/14400") == 0) { faxtester_set_tx_type(s, T30_MODEM_V17, 14400, short_train, hdlc); } else if (strcasecmp((const char *) modem, "V.17/12000") == 0) { faxtester_set_tx_type(s, T30_MODEM_V17, 12000, short_train, hdlc); } else if (strcasecmp((const char *) modem, "V.17/9600") == 0) { faxtester_set_tx_type(s, T30_MODEM_V17, 9600, short_train, hdlc); } else if (strcasecmp((const char *) modem, "V.17/7200") == 0) { faxtester_set_tx_type(s, T30_MODEM_V17, 7200, short_train, hdlc); } else if (strcasecmp((const char *) modem, "V.29/9600") == 0) { faxtester_set_tx_type(s, T30_MODEM_V29, 9600, FALSE, hdlc); } else if (strcasecmp((const char *) modem, "V.29/7200") == 0) { faxtester_set_tx_type(s, T30_MODEM_V29, 7200, FALSE, hdlc); } else if (strcasecmp((const char *) modem, "V.27ter/4800") == 0) { faxtester_set_tx_type(s, T30_MODEM_V27TER, 4800, FALSE, hdlc); } else if (strcasecmp((const char *) modem, "V.27ter/2400") == 0) { faxtester_set_tx_type(s, T30_MODEM_V27TER, 2400, FALSE, hdlc); } else { span_log(&s->logging, SPAN_LOG_FLOW, "Unrecognised modem\n"); } } if (strcasecmp((const char *) type, "SET") == 0) { t30 = fax_get_t30_state(fax); if (strcasecmp((const char *) tag, "IDENT") == 0) t30_set_tx_ident(t30, (const char *) value); else if (strcasecmp((const char *) tag, "SUB") == 0) t30_set_tx_sub_address(t30, (const char *) value); else if (strcasecmp((const char *) tag, "SEP") == 0) t30_set_tx_selective_polling_address(t30, (const char *) value); else if (strcasecmp((const char *) tag, "PSA") == 0) t30_set_tx_polled_sub_address(t30, (const char *) value); else if (strcasecmp((const char *) tag, "SID") == 0) t30_set_tx_sender_ident(t30, (const char *) value); else if (strcasecmp((const char *) tag, "PWD") == 0) t30_set_tx_password(t30, (const char *) value); else if (strcasecmp((const char *) tag, "RXFILE") == 0) { if (value) t30_set_rx_file(t30, (const char *) value, -1); else t30_set_rx_file(t30, output_tiff_file_name, -1); } else if (strcasecmp((const char *) tag, "TXFILE") == 0) { sprintf(next_tx_file, "%s/%s", image_path, (const char *) value); printf("Push '%s'\n", next_tx_file); } return 0; } else if (strcasecmp((const char *) type, "CALL") == 0) { fax = fax_init(NULL, FALSE); fax_prepare(); next_tx_file[0] = '\0'; t30 = fax_get_t30_state(fax); t30_set_rx_file(t30, output_tiff_file_name, -1); /* Avoid libtiff 3.8.2 and earlier bug on complex 2D lines. */ t30_set_rx_encoding(t30, T4_COMPRESSION_ITU_T4_1D); if (value) { sprintf(path, "%s/%s", image_path, (const char *) value); t30_set_tx_file(t30, path, -1, -1); } return 0; } else if (strcasecmp((const char *) type, "ANSWER") == 0) { fax = fax_init(NULL, TRUE); fax_prepare(); next_tx_file[0] = '\0'; t30 = fax_get_t30_state(fax); /* Avoid libtiff 3.8.2 and earlier bug on complex 2D lines. */ t30_set_rx_encoding(t30, T4_COMPRESSION_ITU_T4_1D); if (value) { sprintf(path, "%s/%s", image_path, (const char *) value); t30_set_tx_file(t30, path, -1, -1); } return 0; } else if (strcasecmp((const char *) type, "CNG") == 0) { faxtester_set_rx_type(s, T30_MODEM_NONE, 0, FALSE, FALSE); faxtester_set_tx_type(s, T30_MODEM_CNG, 0, FALSE, FALSE); } else if (strcasecmp((const char *) type, "CED") == 0) { faxtester_set_rx_type(s, T30_MODEM_NONE, 0, FALSE, FALSE); faxtester_set_tx_type(s, T30_MODEM_CED, 0, FALSE, FALSE); } else if (strcasecmp((const char *) type, "WAIT") == 0) { delay = (value) ? atoi((const char *) value) : 1; faxtester_set_rx_type(s, T30_MODEM_NONE, 0, FALSE, FALSE); faxtester_set_tx_type(s, T30_MODEM_PAUSE, 0, delay, FALSE); } else if (strcasecmp((const char *) type, "PREAMBLE") == 0) { flags = (value) ? atoi((const char *) value) : 37; faxtester_send_hdlc_flags(s, flags); } else if (strcasecmp((const char *) type, "POSTAMBLE") == 0) { flags = (value) ? atoi((const char *) value) : 5; faxtester_send_hdlc_flags(s, flags); } else if (strcasecmp((const char *) type, "HDLC") == 0) { i = string_to_msg(buf, mask, (const char *) value); bit_reverse(buf, buf, abs(i)); if (crc_error && strcasecmp((const char *) crc_error, "0") == 0) faxtester_send_hdlc_msg(s, buf, abs(i), FALSE); else faxtester_send_hdlc_msg(s, buf, abs(i), TRUE); } else if (strcasecmp((const char *) type, "TCF") == 0) { if (value) i = atoi((const char *) value); else i = 450; if (pattern) { /* TODO: implement proper patterns */ j = atoi((const char *) pattern); memset(image, 0x55, j); if (i > j) memset(image + j, 0, i - j); } else { memset(image, 0, i); } faxtester_set_non_ecm_image_buffer(s, image, i); } else if (strcasecmp((const char *) type, "MSG") == 0) { /* A non-ECM page */ min_row_bits = (min_bits) ? atoi((const char *) min_bits) : 0; sprintf(path, "%s/%s", image_path, (const char *) value); if (t4_tx_init(&t4_tx_state, path, -1, -1) == NULL) { span_log(&s->logging, SPAN_LOG_FLOW, "Failed to init T.4 send\n"); printf("Test failed\n"); exit(2); } t4_tx_set_min_bits_per_row(&t4_tx_state, min_row_bits); t4_tx_set_header_info(&t4_tx_state, NULL); compression_type = T4_COMPRESSION_ITU_T4_1D; if (compression) { if (strcasecmp((const char *) compression, "T.4 2D") == 0) compression_type = T4_COMPRESSION_ITU_T4_2D; else if (strcasecmp((const char *) compression, "T.6") == 0) compression_type = T4_COMPRESSION_ITU_T6; } t4_tx_set_tx_encoding(&t4_tx_state, compression_type); if (t4_tx_start_page(&t4_tx_state)) { span_log(&s->logging, SPAN_LOG_FLOW, "Failed to start T.4 send\n"); printf("Test failed\n"); exit(2); } len = t4_tx_get_chunk(&t4_tx_state, image, sizeof(image)); if (bad_rows) { span_log(&s->logging, SPAN_LOG_FLOW, "We need to corrupt the image\n"); corrupt_image(s, image, len, (const char *) bad_rows); } t4_tx_release(&t4_tx_state); span_log(&s->logging, SPAN_LOG_FLOW, "Non-ECM image is %d bytes\n", len); faxtester_set_non_ecm_image_buffer(s, image, len); } else if (strcasecmp((const char *) type, "PP") == 0) { min_row_bits = (min_bits) ? atoi((const char *) min_bits) : 0; ecm_block = (block) ? atoi((const char *) block) : 0; ecm_frame_size = (frame_size) ? atoi((const char *) frame_size) : 64; i = (crc_error) ? atoi((const char *) crc_error) : -1; sprintf(path, "%s/%s", image_path, (const char *) value); if (t4_tx_init(&t4_tx_state, path, -1, -1) == NULL) { span_log(&s->logging, SPAN_LOG_FLOW, "Failed to init T.4 send\n"); printf("Test failed\n"); exit(2); } t4_tx_set_min_bits_per_row(&t4_tx_state, min_row_bits); t4_tx_set_header_info(&t4_tx_state, NULL); compression_type = T4_COMPRESSION_ITU_T4_1D; if (compression) { if (strcasecmp((const char *) compression, "T.4 2D") == 0) compression_type = T4_COMPRESSION_ITU_T4_2D; else if (strcasecmp((const char *) compression, "T.6") == 0) compression_type = T4_COMPRESSION_ITU_T6; } t4_tx_set_tx_encoding(&t4_tx_state, compression_type); if (t4_tx_start_page(&t4_tx_state)) { span_log(&s->logging, SPAN_LOG_FLOW, "Failed to start T.4 send\n"); printf("Test failed\n"); exit(2); } /*endif*/ len = t4_tx_get_chunk(&t4_tx_state, image, sizeof(image)); if (bad_rows) { span_log(&s->logging, SPAN_LOG_FLOW, "We need to corrupt the image\n"); corrupt_image(s, image, len, (const char *) bad_rows); } /*endif*/ t4_tx_release(&t4_tx_state); span_log(&s->logging, SPAN_LOG_FLOW, "ECM image is %d bytes\n", len); faxtester_set_ecm_image_buffer(s, image, len, ecm_block, ecm_frame_size, i); } else { span_log(&s->logging, SPAN_LOG_FLOW, "Unrecognised type '%s'\n", (const char *) type); return 0; } /*endif*/ } /*endif*/ return 1; } /*- End of function --------------------------------------------------------*/ static void exchange(faxtester_state_t *s) { int16_t amp[SAMPLES_PER_CHUNK]; int16_t out_amp[2*SAMPLES_PER_CHUNK]; int len; int i; int total_audio_time; int log_audio; logging_state_t *logging; log_audio = TRUE; output_tiff_file_name = OUTPUT_TIFF_FILE_NAME; if (log_audio) { if ((out_handle = sf_open_telephony_write(OUTPUT_FILE_NAME_WAVE, 2)) == NULL) { fprintf(stderr, " Cannot create audio file '%s'\n", OUTPUT_FILE_NAME_WAVE); printf("Test failed\n"); exit(2); } /*endif*/ } /*endif*/ total_audio_time = 0; faxtester_set_transmit_on_idle(&state, TRUE); faxtester_set_real_time_frame_handler(&state, faxtester_real_time_frame_handler, NULL); faxtester_set_front_end_step_complete_handler(&state, faxtester_front_end_step_complete_handler, NULL); faxtester_set_front_end_step_timeout_handler(&state, faxtester_front_end_step_timeout_handler, NULL); fax = fax_init(NULL, FALSE); fax_prepare(); next_tx_file[0] = '\0'; while (next_step(s) == 0) ; /*endwhile*/ for (;;) { len = fax_tx(fax, amp, SAMPLES_PER_CHUNK); faxtester_rx(s, amp, len); if (log_audio) { for (i = 0; i < len; i++) out_amp[2*i + 0] = amp[i]; /*endfor*/ } /*endif*/ total_audio_time += SAMPLES_PER_CHUNK; logging = t30_get_logging_state(fax_get_t30_state(fax)); span_log_bump_samples(logging, len); #if 0 span_log_bump_samples(&fax.modems.v27ter_rx.logging, len); span_log_bump_samples(&fax.modems.v29_rx.logging, len); span_log_bump_samples(&fax.modems.v17_rx.logging, len); #endif logging = fax_get_logging_state(fax); span_log_bump_samples(logging, len); span_log_bump_samples(&s->logging, len); len = faxtester_tx(s, amp, 160); if (fax_rx(fax, amp, len)) break; /*endif*/ if (log_audio) { for (i = 0; i < len; i++) out_amp[2*i + 1] = amp[i]; /*endfor*/ if (sf_writef_short(out_handle, out_amp, SAMPLES_PER_CHUNK) != SAMPLES_PER_CHUNK) break; /*endif*/ } /*endif*/ } /*endfor*/ if (log_audio) { if (sf_close(out_handle)) { fprintf(stderr, " Cannot close audio file '%s'\n", OUTPUT_FILE_NAME_WAVE); printf("Test failed\n"); exit(2); } /*endif*/ } /*endif*/ } /*- End of function --------------------------------------------------------*/ static int parse_config(faxtester_state_t *s, xmlDocPtr doc, xmlNsPtr ns, xmlNodePtr cur) { xmlChar *x; xmlChar *y; while (cur) { if (xmlStrcmp(cur->name, (const xmlChar *) "path") == 0) { if ((x = xmlGetProp(cur, (const xmlChar *) "type")) && (y = xmlGetProp(cur, (const xmlChar *) "value"))) { if (strcasecmp((const char *) x, "IMAGE") == 0) { span_log(&s->logging, SPAN_LOG_FLOW, "Found '%s' '%s'\n", (char *) x, (char *) y); strcpy(image_path, (const char *) y); } /*endif*/ } /*endif*/ } /*endif*/ cur = cur->next; } /*endwhile*/ return -1; } /*- End of function --------------------------------------------------------*/ static int parse_test_group(faxtester_state_t *s, xmlDocPtr doc, xmlNsPtr ns, xmlNodePtr cur, const char *test) { xmlChar *x; while (cur) { if (xmlStrcmp(cur->name, (const xmlChar *) "test") == 0) { if ((x = xmlGetProp(cur, (const xmlChar *) "name"))) { if (xmlStrcmp(x, (const xmlChar *) test) == 0) { span_log(&s->logging, SPAN_LOG_FLOW, "Found '%s'\n", (char *) x); s->cur = cur->xmlChildrenNode; return 0; } /*endif*/ } /*endif*/ } /*endif*/ cur = cur->next; } /*endwhile*/ return -1; } /*- End of function --------------------------------------------------------*/ static int get_test_set(faxtester_state_t *s, const char *test_file, const char *test) { xmlDocPtr doc; xmlNsPtr ns; xmlNodePtr cur; xmlValidCtxt valid; ns = NULL; xmlKeepBlanksDefault(0); xmlCleanupParser(); if ((doc = xmlParseFile(test_file)) == NULL) { fprintf(stderr, "No document\n"); printf("Test failed\n"); exit(2); } /*endif*/ xmlXIncludeProcess(doc); if (!xmlValidateDocument(&valid, doc)) { fprintf(stderr, "Invalid document\n"); printf("Test failed\n"); exit(2); } /*endif*/ /* Check the document is of the right kind */ if ((cur = xmlDocGetRootElement(doc)) == NULL) { xmlFreeDoc(doc); fprintf(stderr, "Empty document\n"); printf("Test failed\n"); exit(2); } /*endif*/ if (xmlStrcmp(cur->name, (const xmlChar *) "fax-tests")) { xmlFreeDoc(doc); fprintf(stderr, "Document of the wrong type, root node != fax-tests"); printf("Test failed\n"); exit(2); } /*endif*/ cur = cur->xmlChildrenNode; while (cur && xmlIsBlankNode(cur)) cur = cur->next; /*endwhile*/ if (cur == NULL) { printf("Test failed\n"); exit(2); } /*endif*/ while (cur) { if (xmlStrcmp(cur->name, (const xmlChar *) "config") == 0) { parse_config(s, doc, ns, cur->xmlChildrenNode); } /*endif*/ if (xmlStrcmp(cur->name, (const xmlChar *) "test-group") == 0) { if (parse_test_group(s, doc, ns, cur->xmlChildrenNode, test) == 0) { /* We found the test we want, so run it. */ exchange(s); break; } /*endif*/ } /*endif*/ cur = cur->next; } /*endwhile*/ xmlFreeDoc(doc); return 0; } /*- End of function --------------------------------------------------------*/ int main(int argc, char *argv[]) { const char *xml_file_name; const char *test_name; int opt; #if 0 string_test(); #endif xml_file_name = "../spandsp/tsb85.xml"; test_name = "MRGN01"; while ((opt = getopt(argc, argv, "x:")) != -1) { switch (opt) { case 'x': xml_file_name = optarg; break; default: //usage(); exit(2); break; } } argc -= optind; argv += optind; if (argc > 0) test_name = argv[0]; strcpy(image_path, "."); faxtester_init(&state, TRUE); memset(&expected_rx_info, 0, sizeof(expected_rx_info)); span_log_set_level(&state.logging, SPAN_LOG_SHOW_SEVERITY | SPAN_LOG_SHOW_PROTOCOL | SPAN_LOG_SHOW_TAG | SPAN_LOG_SHOW_SAMPLE_TIME | SPAN_LOG_FLOW); span_log_set_tag(&state.logging, "B"); get_test_set(&state, xml_file_name, test_name); printf("Done\n"); return 0; } /*- End of function --------------------------------------------------------*/ /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/tests/v18_tests.c0000664000175000017500000004305111422612267015753 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * v18_tests.c * * Written by Steve Underwood * * Copyright (C) 2004-2009 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License version 2, as * published by the Free Software Foundation. * * 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., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \page v18_tests_page V.18 tests \section v18_tests_page_sec_1 What does it do? */ /* Enable the following definition to enable direct probing into the spandsp structures */ //#define WITH_SPANDSP_INTERNALS #if defined(HAVE_CONFIG_H) #include "config.h" #endif #include #include #include #include #include #include //#if defined(WITH_SPANDSP_INTERNALS) #define SPANDSP_EXPOSE_INTERNAL_STRUCTURES //#endif #include "spandsp.h" #include "spandsp-sim.h" #define FALSE 0 #define TRUE (!FALSE) #define OUTPUT_FILE_NAME "v18.wav" #define SAMPLES_PER_CHUNK 160 int log_audio = FALSE; SNDFILE *outhandle = NULL; char *decode_test_file = NULL; int good_message_received; const char *qbf_tx = "The quick Brown Fox Jumps Over The Lazy dog 0123456789!@#$%^&*()'"; const char *qbf_rx = "THE QUICK BROWN FOX JUMPS OVER THE LAZY DOG 0123456789!X$$/'+.()'"; const char *full_baudot_rx = "\b \n\n\n\r?\n\n\n !\"$$/+'().+,-./" "0123456789:;(=)?" "XABCDEFGHIJKLMNOPQRSTUVWXYZ(/)' " "'ABCDEFGHIJKLMNOPQRSTUVWXYZ(!) "; #if 1 static void put_text_msg(void *user_data, const uint8_t *msg, int len) { if (strcmp((const char *) msg, qbf_rx)) { printf("Result:\n%s\n", msg); printf("Reference result:\n%s\n", qbf_rx); } else { good_message_received = TRUE; } } /*- End of function --------------------------------------------------------*/ static void basic_tests(int mode) { int16_t amp[SAMPLES_PER_CHUNK]; int outframes; int len; int push; int i; v18_state_t *v18_a; v18_state_t *v18_b; printf("Testing %s\n", v18_mode_to_str(mode)); v18_a = v18_init(NULL, TRUE, mode, put_text_msg, NULL); v18_b = v18_init(NULL, FALSE, mode, put_text_msg, NULL); /* Fake an OK condition for the first message test */ good_message_received = TRUE; push = 0; if (v18_put(v18_a, qbf_tx, -1) != strlen(qbf_tx)) { printf("V.18 put failed\n"); exit(2); } for (i = 0; i < 100000; i++) { if (push == 0) { if ((len = v18_tx(v18_a, amp, SAMPLES_PER_CHUNK)) == 0) push = 10; } else { len = 0; /* Push a little silence through, to flush things out */ if (--push == 0) { if (!good_message_received) { printf("No message received\n"); exit(2); } good_message_received = FALSE; if (v18_put(v18_a, qbf_tx, -1) != strlen(qbf_tx)) { printf("V.18 put failed\n"); exit(2); } } } if (len < SAMPLES_PER_CHUNK) { memset(&[len], 0, sizeof(int16_t)*(SAMPLES_PER_CHUNK - len)); len = SAMPLES_PER_CHUNK; } if (log_audio) { outframes = sf_writef_short(outhandle, amp, len); if (outframes != len) { fprintf(stderr, " Error writing audio file\n"); exit(2); } } v18_rx(v18_b, amp, len); } v18_free(v18_a); v18_free(v18_b); } /*- End of function --------------------------------------------------------*/ #endif static int test_x_01(void) { /* III.5.4.5.1 Baudot carrier timing and receiver disabling */ printf("Test not yet implemented\n"); return 1; } /*- End of function --------------------------------------------------------*/ static int test_x_02(void) { /* III.5.4.5.2 Baudot bit rate confirmation */ printf("Test not yet implemented\n"); return 1; } /*- End of function --------------------------------------------------------*/ static int test_x_03(void) { /* III.5.4.5.3 Baudot probe bit rate confirmation */ printf("Test not yet implemented\n"); return 1; } /*- End of function --------------------------------------------------------*/ static int test_x_04(void) { char result[1024]; char *t; int ch; int xx; int yy; int i; v18_state_t *v18_state; /* III.5.4.5.4 5 Bit to T.50 character conversion */ v18_state = v18_init(NULL, TRUE, V18_MODE_5BIT_45, NULL, NULL); printf("Original:\n"); t = result; for (i = 0; i < 127; i++) { ch = i; printf("%c", ch); xx = v18_encode_baudot(v18_state, ch); if (xx) { if ((xx & 0x3E0)) { yy = v18_decode_baudot(v18_state, (xx >> 5) & 0x1F); if (yy) *t++ = yy; } yy = v18_decode_baudot(v18_state, xx & 0x1F); if (yy) *t++ = yy; } } printf("\n"); *t = '\0'; v18_free(v18_state); printf("Result:\n%s\n", result); printf("Reference result:\n%s\n", full_baudot_rx); if (strcmp(result, full_baudot_rx) != 0) return -1; return 0; } /*- End of function --------------------------------------------------------*/ static int test_x_06(void) { char msg[128]; char dtmf[1024]; char result[1024]; const char *ref; int len; int i; /* III.5.4.5.6 DTMF character conversion */ for (i = 0; i < 127; i++) msg[i] = i + 1; msg[127] = '\0'; printf("%s\n", msg); len = v18_encode_dtmf(NULL, dtmf, msg); printf("%s\n", dtmf); len = v18_decode_dtmf(NULL, result, dtmf); ref = "\b \n\n\n?\n\n\n %+().+,-.0123456789:;(=)" "?XABCDEFGHIJKLMNOPQRSTUVWXYZÆØÅ" " abcdefghijklmnopqrstuvwxyzæøå \b"; printf("Result:\n%s\n", result); printf("Reference result:\n%s\n", ref); if (strcmp(result, ref) != 0) return -1; return 0; } /*- End of function --------------------------------------------------------*/ static int test_unimplemented(void) { printf("Test not yet implemented\n"); return 1; } /*- End of function --------------------------------------------------------*/ static void put_v18_msg(void *user_data, const uint8_t *msg, int len) { char buf[1024]; memcpy(buf, msg, len); buf[len] = '\0'; printf("Received (%d bytes) '%s'\n", len, buf); } /*- End of function --------------------------------------------------------*/ static int decode_test_data_file(int mode, const char *filename) { v18_state_t *v18_state; int16_t amp[SAMPLES_PER_CHUNK]; SNDFILE *inhandle; int len; printf("Decoding as '%s'\n", v18_mode_to_str(mode)); /* We will decode the audio from a file. */ if ((inhandle = sf_open_telephony_read(decode_test_file, 1)) == NULL) { fprintf(stderr, " Cannot open audio file '%s'\n", decode_test_file); exit(2); } v18_state = v18_init(NULL, FALSE, mode, put_v18_msg, NULL); for (;;) { len = sf_readf_short(inhandle, amp, SAMPLES_PER_CHUNK); if (len == 0) break; v18_rx(v18_state, amp, len); } if (sf_close(inhandle) != 0) { fprintf(stderr, " Cannot close audio file '%s'\n", decode_test_file); exit(2); } v18_free(v18_state); return 0; } /*- End of function --------------------------------------------------------*/ const struct { const char *title; int (*func)(void); } test_list[] = { {"III.3.2.1 Operational requirements tests", NULL}, {"MISC-01 4 (1) No Disconnection Test", test_unimplemented}, {"MISC-02 4 (2) Automatic resumption of automoding", test_unimplemented}, {"MISC-03 4 (2) Retention of selected mode on loss of signal", test_unimplemented}, {"MISC-04 4 (4) Detection of BUSY tone", test_unimplemented}, {"MISC-05 4 (4) Detection of RINGING", test_unimplemented}, {"MISC-06 4 (4) LOSS OF CARRIER indication", test_unimplemented}, {"MISC-07 4 (4) Call progress indication", test_unimplemented}, {"MISC-08 4 (5) Circuit 135 test", test_unimplemented}, {"MISC-09 Connection Procedures", test_unimplemented}, {"III.3.2.2 Automode originate tests", NULL}, {"ORG-01 5.1.1 CI & XCI Signal coding and cadence", test_unimplemented}, {"ORG-02 5.1.3 ANS Signal Detection", test_unimplemented}, {"ORG-03 5.2.3.1 End of ANS signal detection", test_unimplemented}, {"ORG-04 5.1.3.2 ANS tone followed by TXP", test_unimplemented}, {"ORG-05 5.1.3.3 ANS tone followed by 1650Hz", test_unimplemented}, {"ORG-06 5.1.3.4 ANS tone followed by 1300Hz", test_unimplemented}, {"ORG-07 5.1.3 ANS tone followed by no tone", test_unimplemented}, {"ORG-08 5.1.4 Bell 103 (2225Hz Signal) Detection", test_unimplemented}, {"ORG-09 5.1.5 V.21 (1650Hz Signal) Detection", test_unimplemented}, {"ORG-10 5.1.6 V.23 (1300Hz Signal) Detection", test_unimplemented}, {"ORG-11 5.1.7 V.23 (390Hz Signal) Detection", test_unimplemented}, {"ORG-12a to d 5.1.8 5 Bit Mode (Baudot) Detection Tests", test_unimplemented}, {"ORG-13 5.1.9 DTMF signal detection", test_unimplemented}, {"ORG-14 5.1.10 EDT Rate Detection", test_unimplemented}, {"ORG-15 5.1.10.1 Rate Detection Test", test_unimplemented}, {"ORG-16 5.1.10.2 980Hz Detection", test_unimplemented}, {"ORG-17 5.1.10.3 Loss of signal after 980Hz", test_unimplemented}, {"ORG-18 5.1.10.3 Tr Timer", test_unimplemented}, {"ORG-19 5.1.11 Bell 103 (1270Hz Signal) Detection", test_unimplemented}, {"ORG-20 Immunity to Network Tones", test_unimplemented}, {"ORG-21a to b Immunity to other non-textphone modems", test_unimplemented}, {"ORG-22 Immunity to Fax Tones", test_unimplemented}, {"ORG-23 Immunity to Voice", test_unimplemented}, {"ORG-24 5.1.2 ANSam detection", test_unimplemented}, {"ORG-25 6.1 V.8 originate call", test_unimplemented}, {"III.3.2.3 Automode answer tests", NULL}, {"ANS-01 5.2.1 Ta timer", test_unimplemented}, {"ANS-02 5.2.2 CI Signal Detection", test_unimplemented}, {"ANS-03 5.2.2.1 Early Termination of ANS tone", test_unimplemented}, {"ANS-04 5.2.2.2 Tt Timer", test_unimplemented}, {"ANS-05 5.2.3.2 ANS tone followed by 980Hz", test_unimplemented}, {"ANS-06 5.2.3.2 ANS tone followed by 1300Hz", test_unimplemented}, {"ANS-07 5.2.3.3 ANS tone followed by 1650Hz", test_unimplemented}, {"ANS-08 5.2.4.1 980Hz followed by 1650Hz", test_unimplemented}, {"ANS-09a to d 5.2.4.2 980Hz calling tone detection", test_unimplemented}, {"ANS-10 5.2.4.3 V.21 Detection by Timer", test_unimplemented}, {"ANS-11 5.2.4.4.1 EDT Detection by Rate", test_unimplemented}, {"ANS-12 5.2.4.4.2 V.21 Detection by Rate", test_unimplemented}, {"ANS-13 5.2.4.4.3 Tr Timer", test_unimplemented}, {"ANS-14 5.2.4.5 Te Timer", test_unimplemented}, {"ANS-15a to d 5.2.5 5 Bit Mode (Baudot) Detection Tests", test_unimplemented}, {"ANS-16 5.2.6 DTMF Signal Detection", test_unimplemented}, {"ANS-17 5.2.7 Bell 103 (1270Hz signal) detection", test_unimplemented}, {"ANS-18 5.2.8 Bell 103 (2225Hz signal) detection", test_unimplemented}, {"ANS-19 5.2.9 V.21 Reverse Mode (1650Hz) Detection", test_unimplemented}, {"ANS-20a to d 5.2.10 1300Hz Calling Tone Discrimination", test_unimplemented}, {"ANS-21 5.2.11 V.23 Reverse Mode (1300Hz) Detection", test_unimplemented}, {"ANS-22 1300Hz with XCI Test", test_unimplemented}, {"ANS-23 5.2.12 Stimulate Mode Country Settings", test_unimplemented}, {"ANS-24 5.2.12.1 Stimulate Carrierless Mode Probe Message", test_unimplemented}, {"ANS-25 5.2.12.1.1 Interrupted Carrierless Mode Probe", test_unimplemented}, {"ANS-26 5.2.12.2 Stimulate Carrier Mode Probe Time", test_unimplemented}, {"ANS-27 5.2.12.2.1 V.23 Mode (390Hz) Detection", test_unimplemented}, {"ANS-28 5.2.12.2.2 Interrupted Carrier Mode Probe", test_unimplemented}, {"ANS-29 5.2.12.2.2 Stimulate Mode Response During Probe", test_unimplemented}, {"ANS-30 Immunity to Network Tones", test_unimplemented}, {"ANS-31 Immunity to Fax Calling Tones", test_unimplemented}, {"ANS-32 Immunity to Voice", test_unimplemented}, {"ANS-33 5.2.2.1 V.8 CM detection and V.8 Answering", test_unimplemented}, {"III.3.2.4 Automode monitor tests", NULL}, {"MON-01 to -20 5.3 Repeat all answer mode tests excluding tests ANS-01, ANS-20 and ANS-23 to ANS-29", test_unimplemented}, {"MON-21 5.3 Automode Monitor Ta timer", test_unimplemented}, {"MON-22a to d 5.3 Automode Monitor 1300Hz Calling Tone Discrimination", test_unimplemented}, {"MON-23a to d 5.3 Automode Monitor 980Hz Calling Tone Discrimination", test_unimplemented}, {"III.3.2.5 ITU-T V.18 annexes tests", NULL}, {"X-01 A.1 Baudot carrier timing and receiver disabling", test_x_01}, {"X-02 A.2 Baudot bit rate confirmation", test_x_02}, {"X-03 A.3 Baudot probe bit rate confirmation", test_x_03}, {"X-04 A.4 5 Bit to T.50 Character Conversion", test_x_04}, {"X-05 B.1 DTMF receiver disabling", test_unimplemented}, {"X-06 B.2 DTMF character conversion", test_x_06}, {"X-07 C.1 EDT carrier timing and receiver disabling", test_unimplemented}, {"X-08 C.2-3 EDT bit rate and character structure", test_unimplemented}, {"X-09 E V.23 calling mode character format", test_unimplemented}, {"X-10 E V.23 answer mode character format", test_unimplemented}, {"X-11 F.4-5 V.21 character structure", test_unimplemented}, {"X-12 G.1-3 V.18 mode", test_unimplemented}, {"", NULL} }; int main(int argc, char *argv[]) { int i; int res; int hit; const char *match; int test_standard; int opt; match = NULL; test_standard = -1; while ((opt = getopt(argc, argv, "d:ls:")) != -1) { switch (opt) { case 'd': decode_test_file = optarg; break; case 'l': log_audio = TRUE; break; case 's': test_standard = atoi(optarg); break; default: //usage(); exit(2); break; } } if (decode_test_file) { decode_test_data_file(test_standard, decode_test_file); exit(0); } argc -= optind; argv += optind; if (argc > 0) match = argv[0]; outhandle = NULL; if (log_audio) { if ((outhandle = sf_open_telephony_write(OUTPUT_FILE_NAME, 1)) == NULL) { fprintf(stderr, " Cannot create audio file '%s'\n", OUTPUT_FILE_NAME); exit(2); } } hit = FALSE; for (i = 0; test_list[i].title[0]; i++) { if (test_list[i].func && (match == NULL || (strncmp(match, test_list[i].title, strlen(match)) == 0 && test_list[i].title[strlen(match)] == ' '))) { hit = TRUE; printf("%s\n", test_list[i].title); res = test_list[i].func(); if (res < 0) { printf(" Test failed\n"); exit(2); } if (res == 0) { printf(" Test passed\n"); } } else { if (match == NULL) printf("%s\n", test_list[i].title); } } if (!hit) { printf("Test not found\n"); exit(2); } basic_tests(V18_MODE_5BIT_45); if (log_audio) { if (sf_close(outhandle) != 0) { fprintf(stderr, " Cannot close audio file '%s'\n", OUTPUT_FILE_NAME); exit(2); } } printf("Tests passed\n"); return 0; return 0; } /*- End of function --------------------------------------------------------*/ /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/tests/g711_tests.c0000664000175000017500000003461511422612266016021 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * g711_tests.c * * Written by Steve Underwood * * Copyright (C) 2006 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License version 2, as * published by the Free Software Foundation. * * 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., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \page g711_tests_page A-law and u-law conversion tests \section g711_tests_page_sec_1 What does it do? \section g711_tests_page_sec_2 How is it used? */ #if defined(HAVE_CONFIG_H) #include "config.h" #endif #include #include #include #include #include #include //#if defined(WITH_SPANDSP_INTERNALS) #define SPANDSP_EXPOSE_INTERNAL_STRUCTURES //#endif #include "spandsp.h" #include "spandsp-sim.h" #define BLOCK_LEN 160 #define IN_FILE_NAME "../test-data/local/short_nb_voice.wav" #define ENCODED_FILE_NAME "g711.g711" #define OUT_FILE_NAME "post_g711.wav" int16_t amp[65536]; uint8_t ulaw_data[65536]; uint8_t alaw_data[65536]; const uint8_t alaw_1khz_sine[] = {0x34, 0x21, 0x21, 0x34, 0xB4, 0xA1, 0xA1, 0xB4}; const uint8_t ulaw_1khz_sine[] = {0x1E, 0x0B, 0x0B, 0x1E, 0x9E, 0x8B, 0x8B, 0x9E}; static void compliance_tests(int log_audio) { SNDFILE *outhandle; power_meter_t power_meter; int outframes; int i; int block; int pre; int post; int post_post; int alaw_failures; int ulaw_failures; float worst_alaw; float worst_ulaw; float tmp; int len; g711_state_t *enc_state; g711_state_t *transcode; g711_state_t *dec_state; outhandle = NULL; if (log_audio) { if ((outhandle = sf_open_telephony_write(OUT_FILE_NAME, 1)) == NULL) { fprintf(stderr, " Cannot create audio file '%s'\n", OUT_FILE_NAME); exit(2); } } printf("Conversion accuracy tests.\n"); alaw_failures = 0; ulaw_failures = 0; worst_alaw = 0.0; worst_ulaw = 0.0; for (block = 0; block < 1; block++) { for (i = 0; i < 65536; i++) { pre = i - 32768; post = alaw_to_linear(linear_to_alaw(pre)); if (abs(pre) > 140) { tmp = (float) abs(post - pre)/(float) abs(pre); if (tmp > 0.10) { printf("A-law: Excessive error at %d (%d)\n", pre, post); alaw_failures++; } if (tmp > worst_alaw) worst_alaw = tmp; } else { /* Small values need different handling for sensible measurement */ if (abs(post - pre) > 15) { printf("A-law: Excessive error at %d (%d)\n", pre, post); alaw_failures++; } } amp[i] = post; } if (log_audio) { outframes = sf_writef_short(outhandle, amp, 65536); if (outframes != 65536) { fprintf(stderr, " Error writing audio file\n"); exit(2); } } for (i = 0; i < 65536; i++) { pre = i - 32768; post = ulaw_to_linear(linear_to_ulaw(pre)); if (abs(pre) > 40) { tmp = (float) abs(post - pre)/(float) abs(pre); if (tmp > 0.10) { printf("u-law: Excessive error at %d (%d)\n", pre, post); ulaw_failures++; } if (tmp > worst_ulaw) worst_ulaw = tmp; } else { /* Small values need different handling for sensible measurement */ if (abs(post - pre) > 4) { printf("u-law: Excessive error at %d (%d)\n", pre, post); ulaw_failures++; } } amp[i] = post; } if (log_audio) { outframes = sf_writef_short(outhandle, amp, 65536); if (outframes != 65536) { fprintf(stderr, " Error writing audio file\n"); exit(2); } } } printf("Worst A-law error (ignoring small values) %f%%\n", worst_alaw*100.0); printf("Worst u-law error (ignoring small values) %f%%\n", worst_ulaw*100.0); if (alaw_failures || ulaw_failures) { printf("%d A-law values with excessive error\n", alaw_failures); printf("%d u-law values with excessive error\n", ulaw_failures); printf("Tests failed\n"); exit(2); } printf("Cyclic conversion repeatability tests.\n"); /* Find what happens to every possible linear value after a round trip. */ for (i = 0; i < 65536; i++) { pre = i - 32768; /* Make a round trip */ post = alaw_to_linear(linear_to_alaw(pre)); /* A second round trip should cause no further change */ post_post = alaw_to_linear(linear_to_alaw(post)); if (post_post != post) { printf("A-law second round trip mismatch - at %d, %d != %d\n", pre, post, post_post); printf("Tests failed\n"); exit(2); } /* Make a round trip */ post = ulaw_to_linear(linear_to_ulaw(pre)); /* A second round trip should cause no further change */ post_post = ulaw_to_linear(linear_to_ulaw(post)); if (post_post != post) { printf("u-law round trip mismatch - at %d, %d != %d\n", pre, post, post_post); printf("Tests failed\n"); exit(2); } } printf("Reference power level tests.\n"); power_meter_init(&power_meter, 7); for (i = 0; i < 8000; i++) { amp[i] = ulaw_to_linear(ulaw_1khz_sine[i & 7]); power_meter_update(&power_meter, amp[i]); } printf("Reference u-law 1kHz tone is %fdBm0\n", power_meter_current_dbm0(&power_meter)); if (log_audio) { outframes = sf_writef_short(outhandle, amp, 8000); if (outframes != 8000) { fprintf(stderr, " Error writing audio file\n"); exit(2); } } if (0.1f < fabs(power_meter_current_dbm0(&power_meter))) { printf("Test failed.\n"); exit(2); } for (i = 0; i < 8000; i++) { amp[i] = alaw_to_linear(alaw_1khz_sine[i & 7]); power_meter_update(&power_meter, amp[i]); } printf("Reference A-law 1kHz tone is %fdBm0\n", power_meter_current_dbm0(&power_meter)); if (log_audio) { outframes = sf_writef_short(outhandle, amp, 8000); if (outframes != 8000) { fprintf(stderr, " Error writing audio file\n"); exit(2); } } if (0.1f < fabs(power_meter_current_dbm0(&power_meter))) { printf("Test failed.\n"); exit(2); } /* Check the transcoding functions. */ printf("Testing transcoding A-law -> u-law -> A-law\n"); for (i = 0; i < 256; i++) { if (alaw_to_ulaw(ulaw_to_alaw(i)) != i) { if (abs(alaw_to_ulaw(ulaw_to_alaw(i)) - i) > 1) { printf("u-law -> A-law -> u-law gave %d -> %d\n", i, alaw_to_ulaw(ulaw_to_alaw(i))); printf("Test failed\n"); exit(2); } } } printf("Testing transcoding u-law -> A-law -> u-law\n"); for (i = 0; i < 256; i++) { if (ulaw_to_alaw(alaw_to_ulaw(i)) != i) { if (abs(alaw_to_ulaw(ulaw_to_alaw(i)) - i) > 1) { printf("A-law -> u-law -> A-law gave %d -> %d\n", i, ulaw_to_alaw(alaw_to_ulaw(i))); printf("Test failed\n"); exit(2); } } } enc_state = g711_init(NULL, G711_ALAW); transcode = g711_init(NULL, G711_ALAW); dec_state = g711_init(NULL, G711_ULAW); len = 65536; for (i = 0; i < len; i++) amp[i] = i - 32768; len = g711_encode(enc_state, alaw_data, amp, len); len = g711_transcode(transcode, ulaw_data, alaw_data, len); len = g711_decode(dec_state, amp, ulaw_data, len); if (len != 65536) { printf("Block coding gave the wrong length - %d instead of %d\n", len, 65536); printf("Test failed\n"); exit(2); } for (i = 0; i < len; i++) { pre = i - 32768; post = amp[i]; if (abs(pre) > 140) { tmp = (float) abs(post - pre)/(float) abs(pre); if (tmp > 0.10) { printf("Block: Excessive error at %d (%d)\n", pre, post); exit(2); } } else { /* Small values need different handling for sensible measurement */ if (abs(post - pre) > 15) { printf("Block: Excessive error at %d (%d)\n", pre, post); exit(2); } } } g711_release(enc_state); g711_release(transcode); g711_release(dec_state); if (log_audio) { if (sf_close(outhandle)) { fprintf(stderr, " Cannot close audio file '%s'\n", OUT_FILE_NAME); exit(2); } } printf("Tests passed.\n"); } /*- End of function --------------------------------------------------------*/ int main(int argc, char *argv[]) { SNDFILE *inhandle; SNDFILE *outhandle; int outframes; int opt; int samples; int len2; int len3; int basic_tests; int law; int encode; int decode; int file; const char *in_file; const char *out_file; g711_state_t *enc_state; g711_state_t *dec_state; int16_t indata[BLOCK_LEN]; int16_t outdata[BLOCK_LEN]; uint8_t g711data[BLOCK_LEN]; basic_tests = TRUE; law = G711_ALAW; encode = FALSE; decode = FALSE; in_file = NULL; out_file = NULL; while ((opt = getopt(argc, argv, "ad:e:l:u")) != -1) { switch (opt) { case 'a': law = G711_ALAW; basic_tests = FALSE; break; case 'd': in_file = optarg; basic_tests = FALSE; decode = TRUE; break; case 'e': in_file = optarg; basic_tests = FALSE; encode = TRUE; break; case 'l': out_file = optarg; break; case 'u': law = G711_ULAW; basic_tests = FALSE; break; default: //usage(); exit(2); } } if (basic_tests) { compliance_tests(TRUE); } else { if (!decode && !encode) { decode = encode = TRUE; } if (in_file == NULL) { in_file = (encode) ? IN_FILE_NAME : ENCODED_FILE_NAME; } if (out_file == NULL) { out_file = (decode) ? OUT_FILE_NAME : ENCODED_FILE_NAME; } inhandle = NULL; outhandle = NULL; file = -1; enc_state = NULL; dec_state = NULL; if (encode) { if ((inhandle = sf_open_telephony_read(in_file, 1)) == NULL) { fprintf(stderr, " Cannot open audio file '%s'\n", in_file); exit(2); } enc_state = g711_init(NULL, law); } else { if ((file = open(in_file, O_RDONLY)) < 0) { fprintf(stderr, " Failed to open '%s'\n", in_file); exit(2); } } if (decode) { if ((outhandle = sf_open_telephony_write(out_file, 1)) == NULL) { fprintf(stderr, " Cannot create audio file '%s'\n", out_file); exit(2); } dec_state = g711_init(NULL, law); } else { if ((file = open(out_file, O_WRONLY | O_CREAT | O_TRUNC, 0666)) < 0) { fprintf(stderr, " Failed to open '%s'\n", out_file); exit(2); } } for (;;) { if (encode) { samples = sf_readf_short(inhandle, indata, BLOCK_LEN); if (samples <= 0) break; len2 = g711_encode(enc_state, g711data, indata, samples); } else { len2 = read(file, g711data, BLOCK_LEN); if (len2 <= 0) break; } if (decode) { len3 = g711_decode(dec_state, outdata, g711data, len2); outframes = sf_writef_short(outhandle, outdata, len3); if (outframes != len3) { fprintf(stderr, " Error writing audio file\n"); exit(2); } } else { len3 = write(file, g711data, len2); if (len3 <= 0) break; } } if (encode) { if (sf_close(inhandle)) { fprintf(stderr, " Cannot close audio file '%s'\n", IN_FILE_NAME); exit(2); } } else { close(file); } if (decode) { if (sf_close(outhandle)) { fprintf(stderr, " Cannot close audio file '%s'\n", OUT_FILE_NAME); exit(2); } } else { close(file); } printf("'%s' translated to '%s' using %s.\n", in_file, out_file, (law == G711_ALAW) ? "A-law" : "u-law"); } return 0; } /*- End of function --------------------------------------------------------*/ /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/tests/rfc2198_sim_tests.c0000664000175000017500000001653511422612267017312 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * rfc2198_sim_tests.c - Tests for the G.1050/TIA-921 model * with redundant transmission in the * style of UDPTL or RFC2198.. * * Written by Steve Underwood * * Copyright (C) 2007 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License version 2, as * published by the Free Software Foundation. * * 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., 675 Mass Ave, Cambridge, MA 02139, USA. */ #if defined(HAVE_CONFIG_H) #include "config.h" #endif #if defined(HAVE_FL_FL_H) && defined(HAVE_FL_FL_CARTESIAN_H) && defined(HAVE_FL_FL_AUDIO_METER_H) #define ENABLE_GUI #endif #include #include #include #include #include #include #include #if defined(HAVE_MATH_H) #define GEN_CONST #endif //#if defined(WITH_SPANDSP_INTERNALS) #define SPANDSP_EXPOSE_INTERNAL_STRUCTURES //#endif #include "spandsp.h" #include "spandsp-sim.h" #if defined(ENABLE_GUI) #include "media_monitor.h" #endif #define PACKET_SIZE 256 #define PACKET_INTERVAL 20 #define SIMULATION_TIME 300 #define MODEL_NO 8 #define SPEED_PATTERN_NO 133 int main(int argc, char *argv[]) { rfc2198_sim_state_t *s; double *packet_arrival_times; int packets_per_sec; int num_packets; int model_no; int speed_pattern_no; int use_gui; int simulation_time; int i; int len; uint8_t put_pkt[256]; uint8_t get_pkt[256]; int put_pkt_len; int get_pkt_len; int get_seq_no; double get_departure_time; double get_arrival_time; int packets_put; int packets_really_put; int packets_got; int oos_packets_got; int missing_packets_got; int highest_seq_no_got; int opt; FILE *out_file; model_no = MODEL_NO; speed_pattern_no = SPEED_PATTERN_NO; simulation_time = SIMULATION_TIME; use_gui = FALSE; while ((opt = getopt(argc, argv, "gm:s:t:")) != -1) { switch (opt) { case 'g': #if defined(ENABLE_GUI) use_gui = TRUE; #else fprintf(stderr, "Graphical monitoring not available\n"); exit(2); #endif break; case 'm': model_no = optarg[0] - 'A' + 1; if (model_no < 0 || model_no > 8) { fprintf(stderr, "Bad model ID '%s'\n", optarg); exit(2); } break; case 's': speed_pattern_no = atoi(optarg); if (speed_pattern_no < 1 || speed_pattern_no > 133) { fprintf(stderr, "Bad link speed pattern %s\n", optarg); exit(2); } break; case 't': simulation_time = atoi(optarg); break; default: //usage(); exit(2); break; } } argc -= optind; argv += optind; if ((out_file = fopen("rfc2198_sim_tests.txt", "w")) == NULL) { fprintf(stderr, "Can't open %s\n", "rfc2198_sim_tests.txt"); return 2; } packets_per_sec = 1000/PACKET_INTERVAL; num_packets = packets_per_sec*simulation_time; if ((packet_arrival_times = calloc(num_packets, sizeof(double))) == NULL) { fprintf(stderr, "Can't allocate the data buffers\n"); return 2; } for (i = 0; i < num_packets; i++) packet_arrival_times[i] = 0.0; /* If we don't initialise this random number generator it gives endless zeros on some systems. */ /* Use a fixed seed to produce identical results in successive runs of the simulation, for debug purposes. */ srand48(0x1234567); if ((s = rfc2198_sim_init(model_no, speed_pattern_no, PACKET_SIZE, packets_per_sec, 3)) == NULL) { fprintf(stderr, "Failed to start the G.1050 model\n"); exit(2); } //rfc2198_sim_dump_parms(model_no, speed_pattern_no); #if defined(ENABLE_GUI) if (use_gui) start_media_monitor(); #endif for (i = 0; i < 256; i++) put_pkt[i] = i; put_pkt_len = 256; get_pkt_len = -1; get_seq_no = -1; get_arrival_time = -1; packets_put = 0; packets_really_put = 0; packets_got = 0; oos_packets_got = 0; missing_packets_got = 0; highest_seq_no_got = -1; for (i = 0; i < num_packets; i++) { if ((len = rfc2198_sim_put(s, put_pkt, put_pkt_len, i, (double) i*0.001*PACKET_INTERVAL)) > 0) packets_really_put++; packets_put++; #if 0 if (i == 5) rfc2198_sim_queue_dump(s); #endif if (i >= 5) { do { get_pkt_len = rfc2198_sim_get(s, get_pkt, 256, (double) i*0.001*PACKET_INTERVAL, &get_seq_no, &get_departure_time, &get_arrival_time); if (get_pkt_len >= 0) { #if defined(ENABLE_GUI) if (use_gui) media_monitor_rx(get_seq_no, get_departure_time, get_arrival_time); #endif packets_got++; if (get_seq_no < highest_seq_no_got) oos_packets_got++; else if (get_seq_no > highest_seq_no_got + 1) missing_packets_got += (get_seq_no - highest_seq_no_got - 1); if (get_seq_no > highest_seq_no_got) highest_seq_no_got = get_seq_no; fprintf(out_file, "%d, %.3f, %.8f\n", get_seq_no, get_seq_no*0.001*PACKET_INTERVAL, get_arrival_time); } } while (get_pkt_len >= 0); } #if defined(ENABLE_GUI) if (use_gui) media_monitor_update_display(); #endif } /* Clear out anything remaining in the queue, by jumping forwards in time */ do { get_pkt_len = rfc2198_sim_get(s, get_pkt, 256, (double) i*0.001*PACKET_INTERVAL + 5.0, &get_seq_no, &get_departure_time, &get_arrival_time); if (get_pkt_len >= 0) { packets_got++; fprintf(out_file, "%d, %.3f, %.8f\n", get_seq_no, get_seq_no*0.001*PACKET_INTERVAL, get_arrival_time); } } while (get_pkt_len >= 0); fclose(out_file); printf("Put %d packets. Really put %d packets. Got %d packets.\n", packets_put, packets_really_put, packets_got); printf("%d OOS packets, %d missing packets\n", oos_packets_got, missing_packets_got - oos_packets_got); printf("%d packets queued, %d received\n", packets_really_put, packets_got); printf("%.3f%% of packets lost before redundancy\n", 100.0*(packets_put - packets_really_put)/packets_put); printf("%.3f%% of packets lost after redundancy\n", 100.0*(packets_put - packets_got)/packets_put); return 0; } /*- End of function --------------------------------------------------------*/ /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/tests/sig_tone_tests.c0000664000175000017500000004761711422612267017160 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * sig_tone_tests.c * * Written by Steve Underwood * * Copyright (C) 2004 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License version 2, as * published by the Free Software Foundation. * * 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., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \file */ /*! \page sig_tone_tests_page The 2280/2400/2600Hz signalling tone Rx/Tx tests \section sig_tone_tests_sec_1 What does it do? ???. \section sig_tone_tests_sec_2 How does it work? ???. */ #if defined(HAVE_CONFIG_H) #include "config.h" #endif #include #include #include #include #include //#if defined(WITH_SPANDSP_INTERNALS) #define SPANDSP_EXPOSE_INTERNAL_STRUCTURES //#endif #include "spandsp.h" #include "spandsp-sim.h" #define OUT_FILE_NAME "sig_tone.wav" #define SAMPLES_PER_CHUNK 160 #define MITEL_DIR "../test-data/mitel/" #define BELLCORE_DIR "../test-data/bellcore/" const char *bellcore_files[] = { MITEL_DIR "mitel-cm7291-talkoff.wav", BELLCORE_DIR "tr-tsy-00763-1.wav", BELLCORE_DIR "tr-tsy-00763-2.wav", BELLCORE_DIR "tr-tsy-00763-3.wav", BELLCORE_DIR "tr-tsy-00763-4.wav", BELLCORE_DIR "tr-tsy-00763-5.wav", BELLCORE_DIR "tr-tsy-00763-6.wav", "" }; typedef struct { double freq; double min_level; double max_level; } template_t; static int number_of_tones = 1; static int sampleno = 0; static int tone_1_present = 0; static int tone_2_present = 0; static int tx_section = 0; static int dial_pulses = 0; static int rx_handler_callbacks = 0; static int tx_handler_callbacks = 0; static int use_gui = FALSE; static void plot_frequency_response(void) { FILE *gnucmd; if ((gnucmd = popen("gnuplot", "w")) == NULL) { exit(2); } fprintf(gnucmd, "set autoscale\n"); fprintf(gnucmd, "unset log\n"); fprintf(gnucmd, "unset label\n"); fprintf(gnucmd, "set xtic auto\n"); fprintf(gnucmd, "set ytic auto\n"); fprintf(gnucmd, "set title 'Notch filter frequency response'\n"); fprintf(gnucmd, "set xlabel 'Frequency (Hz)'\n"); fprintf(gnucmd, "set ylabel 'Gain (dB)'\n"); fprintf(gnucmd, "plot 'sig_tone_notch' using 1:3 title 'min' with lines," "'sig_tone_notch' using 1:6 title 'actual' with lines," "'sig_tone_notch' using 1:9 title 'max' with lines\n"); fflush(gnucmd); getchar(); if (pclose(gnucmd) == -1) { exit(2); } } /*- End of function --------------------------------------------------------*/ static void tx_handler(void *user_data, int what, int level, int duration) { sig_tone_tx_state_t *s; int tone; int time; static const int pattern_1_tone[][2] = { {33, SIG_TONE_1_PRESENT}, {67, 0}, {33, SIG_TONE_1_PRESENT}, {67, 0}, {33, SIG_TONE_1_PRESENT}, {67, 0}, {33, SIG_TONE_1_PRESENT}, {67, 0}, {33, SIG_TONE_1_PRESENT}, {67, 0}, {33, SIG_TONE_1_PRESENT}, {67, 0}, {33, SIG_TONE_1_PRESENT}, {67, 0}, {33, SIG_TONE_1_PRESENT}, {67, 0}, {33, SIG_TONE_1_PRESENT}, {67, 0}, {600, SIG_TONE_1_PRESENT}, {0, 0} }; static const int pattern_2_tones[][2] = { #if 0 {33, SIG_TONE_1_PRESENT}, {67, 0}, {33, SIG_TONE_1_PRESENT}, {67, 0}, {33, SIG_TONE_1_PRESENT}, {67, 0}, {33, SIG_TONE_1_PRESENT}, {67, 0}, {33, SIG_TONE_1_PRESENT}, {67, 0}, {33, SIG_TONE_1_PRESENT}, {67, 0}, {33, SIG_TONE_1_PRESENT}, {67, 0}, {33, SIG_TONE_1_PRESENT}, {67, 0}, {33, SIG_TONE_1_PRESENT}, {67, 0}, #endif {100, SIG_TONE_1_PRESENT}, {100, SIG_TONE_1_PRESENT | SIG_TONE_2_PRESENT}, {100, SIG_TONE_2_PRESENT}, #if 0 {100, 0}, {100, SIG_TONE_2_PRESENT}, {100, SIG_TONE_1_PRESENT | SIG_TONE_2_PRESENT}, {100, SIG_TONE_1_PRESENT}, #endif {0, 0} }; s = (sig_tone_tx_state_t *) user_data; tx_handler_callbacks++; //printf("What - %d, duration - %d\n", what, duration); if ((what & SIG_TONE_TX_UPDATE_REQUEST)) { /* The sig tone transmit side wants to know what to do next */ printf("Tx: update request\n"); if (number_of_tones == 1) { time = pattern_1_tone[tx_section][0]; tone = pattern_1_tone[tx_section][1]; } else { time = pattern_2_tones[tx_section][0]; tone = pattern_2_tones[tx_section][1]; } if (time) { printf("Tx: [%04x] %s %s for %d samples (%dms)\n", tone, (tone & SIG_TONE_1_PRESENT) ? "on " : "off", (tone & SIG_TONE_2_PRESENT) ? "on " : "off", ms_to_samples(time), time); sig_tone_tx_set_mode(s, tone, ms_to_samples(time)); tx_section++; } else { printf("End of sequence\n"); } } /*endif*/ } /*- End of function --------------------------------------------------------*/ static void rx_handler(void *user_data, int what, int level, int duration) { float ms; int x; rx_handler_callbacks++; ms = 1000.0f*(float) duration/(float) SAMPLE_RATE; printf("Rx: [%04x]", what); x = what & SIG_TONE_1_PRESENT; if ((what & SIG_TONE_1_CHANGE)) { printf(" %s", (x) ? "on " : "off"); if (x == tone_1_present) exit(2); tone_1_present = x; } else { printf(" ---"); if (x != tone_1_present) exit(2); } /*endif*/ x = what & SIG_TONE_2_PRESENT; if ((what & SIG_TONE_2_CHANGE)) { printf(" %s", (x) ? "on " : "off"); if (x == tone_2_present) exit(2); tone_2_present = x; } else { if (x != tone_2_present) exit(2); printf(" ---"); } /*endif*/ printf(" after %d samples (%.3fms)\n", duration, ms); } /*- End of function --------------------------------------------------------*/ static void map_frequency_response(sig_tone_rx_state_t *s, template_t template[]) { int16_t buf[SAMPLES_PER_CHUNK]; int i; int len; double sumin; double sumout; swept_tone_state_t *swept; double freq; double gain; int template_entry; FILE *file; /* Things like noise don't highlight the frequency response of the high Q notch very well. We use a slowly swept frequency to check it. */ printf("Frequency response test\n"); sig_tone_rx_set_mode(s, SIG_TONE_RX_PASSTHROUGH | SIG_TONE_RX_FILTER_TONE, 0); swept = swept_tone_init(NULL, 200.0f, 3900.0f, -10.0f, 120*SAMPLE_RATE, 0); template_entry = 0; file = fopen("sig_tone_notch", "wb"); for (;;) { if ((len = swept_tone(swept, buf, SAMPLES_PER_CHUNK)) <= 0) break; /*endif*/ sumin = 0.0; for (i = 0; i < len; i++) sumin += (double) buf[i]*(double) buf[i]; /*endfor*/ sig_tone_rx(s, buf, len); sumout = 0.0; for (i = 0; i < len; i++) sumout += (double) buf[i]*(double) buf[i]; /*endfor*/ freq = swept_tone_current_frequency(swept); if (sumin) gain = 10.0*log10(sumout/sumin); else gain = 0.0; printf("%7.1f Hz %.3f dBm0 < %.3f dBm0 < %.3f dBm0\n", freq, template[template_entry].min_level, gain, template[template_entry].max_level); if (file) { fprintf(file, "%7.1f Hz %.3f dBm0 < %.3f dBm0 < %.3f dBm0\n", freq, template[template_entry].min_level, gain, template[template_entry].max_level); } /*endif*/ if (gain < template[template_entry].min_level || gain > template[template_entry].max_level) { printf("Expected: %.3f dBm0 to %.3f dBm0\n", template[template_entry].min_level, template[template_entry].max_level); printf(" Failed\n"); exit(2); } /*endif*/ if (freq > template[template_entry].freq) template_entry++; } /*endfor*/ swept_tone_free(swept); if (file) { fclose(file); if (use_gui) plot_frequency_response(); /*endif*/ } /*endif*/ printf(" Passed\n"); } /*- End of function --------------------------------------------------------*/ static void speech_immunity_tests(sig_tone_rx_state_t *s) { int j; int total_hits; SNDFILE *inhandle; int16_t amp[SAMPLE_RATE]; int frames; printf("Speech immunity test\n"); total_hits = 0; for (j = 0; bellcore_files[j][0]; j++) { /* Push some silence through, so we should be in the tone off state */ vec_zeroi16(amp, SAMPLE_RATE); sig_tone_rx(s, amp, SAMPLE_RATE); rx_handler_callbacks = 0; if ((inhandle = sf_open_telephony_read(bellcore_files[j], 1)) == NULL) { printf(" Cannot open speech file '%s'\n", bellcore_files[j]); exit(2); } /*endif*/ while ((frames = sf_readf_short(inhandle, amp, SAMPLE_RATE))) { sig_tone_rx(s, amp, frames); } /*endwhile*/ if (sf_close(inhandle) != 0) { printf(" Cannot close speech file '%s'\n", bellcore_files[j]); exit(2); } /*endif*/ printf(" File %d gave %d false hits.\n", j + 1, rx_handler_callbacks); total_hits += rx_handler_callbacks; } /*endfor*/ printf(" %d hits in total\n", total_hits); if (total_hits > 0) { printf(" Failed\n"); exit(2); } /*endif*/ printf(" Passed\n"); } /*- End of function --------------------------------------------------------*/ static void level_and_ratio_tests(sig_tone_rx_state_t *s, double pitch[2]) { awgn_state_t noise_source; int32_t phase_rate[2]; uint32_t phase[2]; int16_t gain; int16_t amp[SAMPLE_RATE]; int i; int j; int k; int l; float noise_level; float tone_level; power_meter_t noise_meter; power_meter_t tone_meter; int16_t noise; int16_t tone; printf("Acceptable level and ratio test - %.2f Hz + %.2f Hz\n", pitch[0], pitch[1]); for (l = 0; l < 2; l++) { phase[l] = 0; phase_rate[l] = (pitch[l] != 0.0) ? dds_phase_rate(pitch[l]) : 0; } for (k = -25; k > -60; k--) { noise_level = k; awgn_init_dbm0(&noise_source, 1234567, noise_level); tone_level = noise_level; /* Push some silence through, so we should be in the tone off state */ vec_zeroi16(amp, SAMPLE_RATE); sig_tone_rx(s, amp, SAMPLE_RATE); power_meter_init(&noise_meter, 6); power_meter_init(&tone_meter, 6); for (j = 0; j < 20; j++) { rx_handler_callbacks = 0; gain = dds_scaling_dbm0(tone_level); for (i = 0; i < SAMPLES_PER_CHUNK; i++) { noise = awgn(&noise_source); tone = dds_mod(&phase[0], phase_rate[0], gain, 0); if (phase_rate[1]) tone += dds_mod(&phase[1], phase_rate[1], gain, 0); power_meter_update(&noise_meter, noise); power_meter_update(&tone_meter, tone); amp[i] = noise + tone; } /*endfor*/ sig_tone_rx(s, amp, SAMPLES_PER_CHUNK); if (rx_handler_callbacks) { printf("Hit at tone = %.2fdBm0, noise = %.2fdBm0\n", tone_level, noise_level); printf("Measured tone = %.2fdBm0, noise = %.2fdBm0\n", power_meter_current_dbm0(&tone_meter), power_meter_current_dbm0(&noise_meter)); if (rx_handler_callbacks != 1) printf("Callbacks = %d\n", rx_handler_callbacks); } /*endif*/ tone_level += 1.0f; } /*endfor*/ } /*endfor*/ printf(" Passed\n"); } /*- End of function --------------------------------------------------------*/ static void sequence_tests(sig_tone_tx_state_t *tx_state, sig_tone_rx_state_t *rx_state, codec_munge_state_t *munge) { int i; awgn_state_t noise_source; SNDFILE *outhandle; int16_t amp[SAMPLES_PER_CHUNK]; int16_t out_amp[2*SAMPLES_PER_CHUNK]; int outframes; int rx_samples; int tx_samples; printf("Signalling sequence test\n"); tx_section = 0; if ((outhandle = sf_open_telephony_write(OUT_FILE_NAME, 2)) == NULL) { fprintf(stderr, " Cannot create audio file '%s'\n", OUT_FILE_NAME); exit(2); } /*endif*/ awgn_init_dbm0(&noise_source, 1234567, -20.0f); sig_tone_tx_set_mode(tx_state, SIG_TONE_1_PRESENT | SIG_TONE_2_PRESENT | SIG_TONE_TX_PASSTHROUGH, 0); sig_tone_rx_set_mode(rx_state, SIG_TONE_RX_PASSTHROUGH, 0); for (sampleno = 0; sampleno < 4000; sampleno += SAMPLES_PER_CHUNK) { if (sampleno == 800) { /* 100ms seize */ printf("Tx: [0000] off off for %d samples (%dms)\n", ms_to_samples(100), 100); dial_pulses = 0; sig_tone_tx_set_mode(tx_state, 0, ms_to_samples(100)); } /*endif*/ for (i = 0; i < SAMPLES_PER_CHUNK; i++) amp[i] = awgn(&noise_source); /*endfor*/ tx_samples = sig_tone_tx(tx_state, amp, SAMPLES_PER_CHUNK); for (i = 0; i < tx_samples; i++) out_amp[2*i] = amp[i]; /*endfor*/ codec_munge(munge, amp, tx_samples); rx_samples = sig_tone_rx(rx_state, amp, tx_samples); for (i = 0; i < rx_samples; i++) out_amp[2*i + 1] = amp[i]; /*endfor*/ outframes = sf_writef_short(outhandle, out_amp, rx_samples); if (outframes != rx_samples) { fprintf(stderr, " Error writing audio file\n"); exit(2); } /*endif*/ } /*endfor*/ if (sf_close(outhandle) != 0) { fprintf(stderr, " Cannot close audio file '%s'\n", OUT_FILE_NAME); exit(2); } /*endif*/ } /*- End of function --------------------------------------------------------*/ int main(int argc, char *argv[]) { int type; sig_tone_tx_state_t tx_state; sig_tone_rx_state_t rx_state; codec_munge_state_t *munge; double fc[2]; int i; template_t template[10]; int opt; use_gui = FALSE; while ((opt = getopt(argc, argv, "g")) != -1) { switch (opt) { case 'g': use_gui = TRUE; break; default: //usage(); exit(2); break; } } for (type = 1; type <= 3; type++) { sampleno = 0; tone_1_present = 0; tone_2_present = 0; munge = NULL; for (i = 0; i < 10; i++) { template[i].freq = 0.0; template[i].min_level = 0.0; template[i].max_level = 0.0; } fc[0] = fc[1] = 0.0; switch (type) { case 1: printf("2280Hz tests.\n"); munge = codec_munge_init(MUNGE_CODEC_ALAW, 0); sig_tone_tx_init(&tx_state, SIG_TONE_2280HZ, tx_handler, &tx_state); sig_tone_rx_init(&rx_state, SIG_TONE_2280HZ, rx_handler, &rx_state); number_of_tones = 1; fc[0] = 2280.0; /* From BTNR 181 2.3.3.1 */ template[0].freq = 1150.0; template[0].min_level = -0.2; template[0].max_level = 0.0; template[1].freq = 1880.0; template[1].min_level = -0.5; template[1].max_level = 0.0; template[2].freq = 2080.0; template[2].min_level = -5.0; template[2].max_level = 0.0; template[3].freq = 2280.0 - 20.0; template[3].min_level = -99.0; template[3].max_level = 0.0; template[4].freq = 2280.0 + 20.0; template[4].min_level = -99.0; template[4].max_level = -30.0; template[5].freq = 2480.0; template[5].min_level = -99.0; template[5].max_level = 0.0; template[6].freq = 2680.0; template[6].min_level = -5.0; template[6].max_level = 0.0; template[7].freq = 4000.0; template[7].min_level = -0.5; template[7].max_level = 0.0; break; case 2: printf("2600Hz tests.\n"); munge = codec_munge_init(MUNGE_CODEC_ULAW, 0); sig_tone_tx_init(&tx_state, SIG_TONE_2600HZ, tx_handler, &tx_state); sig_tone_rx_init(&rx_state, SIG_TONE_2600HZ, rx_handler, &rx_state); number_of_tones = 1; fc[0] = 2600.0; template[0].freq = 2600.0 - 200.0; template[0].min_level = -1.0; template[0].max_level = 0.0; template[1].freq = 2600.0 - 20.0; template[1].min_level = -99.0; template[1].max_level = 0.0; template[2].freq = 2600.0 + 20.0; template[2].min_level = -99.0; template[2].max_level = -30.0; template[3].freq = 2600.0 + 200.0; template[3].min_level = -99.0; template[3].max_level = 0.0; template[4].freq = 4000.0; template[4].min_level = -1.0; template[4].max_level = 0.0; break; case 3: printf("2400Hz/2600Hz tests.\n"); munge = codec_munge_init(MUNGE_CODEC_ULAW, 0); sig_tone_tx_init(&tx_state, SIG_TONE_2400HZ_2600HZ, tx_handler, &tx_state); sig_tone_rx_init(&rx_state, SIG_TONE_2400HZ_2600HZ, rx_handler, &rx_state); number_of_tones = 2; fc[0] = 2400.0; fc[1] = 2600.0; template[0].freq = 2400.0 - 200.0; template[0].min_level = -1.0; template[0].max_level = 0.0; template[1].freq = 2400.0 - 20.0; template[1].min_level = -99.0; template[1].max_level = 0.0; template[2].freq = 2400.0 + 20.0; template[2].min_level = -99.0; template[2].max_level = -30.0; template[3].freq = 2600.0 - 20.0; template[3].min_level = -99.0; template[3].max_level = 0.0; template[4].freq = 2600.0 + 20.0; template[4].min_level = -99.0; template[4].max_level = -30.0; template[5].freq = 2600.0 + 200.0; template[5].min_level = -99.0; template[5].max_level = 0.0; template[6].freq = 4000.0; template[6].min_level = -1.0; template[6].max_level = 0.0; break; } /*endswitch*/ map_frequency_response(&rx_state, template); speech_immunity_tests(&rx_state); level_and_ratio_tests(&rx_state, fc); sequence_tests(&tx_state, &rx_state, munge); } /*endfor*/ printf("Tests completed.\n"); return 0; } /*- End of function --------------------------------------------------------*/ /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/tests/at_interpreter_tests.c0000664000175000017500000012026011422612266020361 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * at_interpreter_tests.c - Tests for the AT interpreter. * * Written by Steve Underwood * * Copyright (C) 2004, 2005, 2006 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License version 2, as * published by the Free Software Foundation. * * 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., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \file */ /*! \page at_interpreter_tests_page AT interpreter tests \section at_interpreter_tests_page_sec_1 What does it do? These tests exercise all the commands which should be understood by the AT interpreter. */ #if defined(HAVE_CONFIG_H) #include "config.h" #endif #include #include #include #include #include #include #include #define SPANDSP_EXPOSE_INTERNAL_STRUCTURES #include "spandsp.h" #define DLE 0x10 #define ETX 0x03 #define SUB 0x1A #define MANUFACTURER "www.soft-switch.org" struct command_response_s { const char *command; const char *response; }; static const struct command_response_s general_test_seq[] = { /* Try the various cases for "AT" */ {"atE1\r", "atE1\r\r\nOK\r\n"}, {"AtE1\r", "AtE1\r\r\nOK\r\n"}, {"aTE1\r", "aTE1\r\r\nOK\r\n"}, {"ATE1\r", "ATE1\r\r\nOK\r\n"}, {"ATE0\r", "ATE0\r\r\nOK\r\n"}, /* Try the various command formats */ {"ATS8?\r", "\r\n005\r\n\r\nOK\r\n"}, {"ATS8=1\r", "\r\nOK\r\n"}, {"ATS8.5?\r", "\r\n0\r\n\r\nOK\r\n"}, {"ATS8.5=1\r", "\r\nOK\r\n"}, {"ATS8.5?\r", "\r\n1\r\n\r\nOK\r\n"}, {"ATS8?\r", "\r\n033\r\n\r\nOK\r\n"}, {"AT+FCLASS=1\r", "\r\nOK\r\n"}, {"AT+FCLASS?\r", "\r\n1\r\n\r\nOK\r\n"}, {"AT+FCLASS=?\r", "\r\n0,1,1.0\r\n\r\nOK\r\n"}, /* Try all the commands */ {"AT&C\r", "\r\nOK\r\n"}, /* V.250 6.2.8 - Circuit 109 (received line signal detector), behaviour */ {"AT&D\r", "\r\nOK\r\n"}, /* V.250 6.2.9 - Circuit 108 (data terminal ready) behaviour */ {"AT&F\r", "\r\nOK\r\n"}, /* V.250 6.1.2 - Set to factory-defined configuration */ {"ATE0\r", "ATE0\r\r\nOK\r\n"}, /* Counteract the effects of the above */ {"AT+A8E=?\r", "\r\n+A8E:(0-6),(0-5),(00-FF)\r\n\r\nOK\r\n"}, /* V.251 5.1 - V.8 and V.8bis operation controls */ {"AT+A8M\r", "\r\nOK\r\n"}, /* V.251 5.2 - Send V.8 menu signals */ {"AT+A8T=?\r", "\r\n+A8T:(0-10)\r\n\r\nOK\r\n"}, /* V.251 5.3 - Send V.8bis signal and/or message(s) */ {"AT+ASTO=?\r", "\r\n+ASTO:\r\n\r\nOK\r\n"}, /* V.250 6.3.15 - Store telephone number */ {"AT+CAAP=?\r", "\r\n+CAAP:\r\n\r\nOK\r\n"}, /* 3GPP TS 27.007 7.25 - Automatic answer for eMLPP Service */ {"AT+CACM=?\r", "\r\n+CACM:\r\n\r\nOK\r\n"}, /* 3GPP TS 27.007 8.25 - Accumulated call meter */ {"AT+CACSP=?\r", "\r\n+CACSP:\r\n\r\nOK\r\n"}, /* 3GPP TS 27.007 11.1.7 - Voice Group or Voice Broadcast Call State Attribute Presentation */ {"AT+CAEMLPP=?\r", "\r\n+CAEMLPP:\r\n\r\nOK\r\n"}, /* 3GPP TS 27.007 7.22 - eMLPP Priority Registration and Interrogation */ {"AT+CAHLD=?\r", "\r\n+CAHLD:\r\n\r\nOK\r\n"}, /* 3GPP TS 27.007 11.1.3 - Leave an ongoing Voice Group or Voice Broadcast Call */ {"AT+CAJOIN=?\r", "\r\n+CAJOIN:\r\n\r\nOK\r\n"}, /* 3GPP TS 27.007 11.1.1 - Accept an incoming Voice Group or Voice Broadcast Call */ {"AT+CALA=?\r", "\r\n+CALA:\r\n\r\nOK\r\n"}, /* 3GPP TS 27.007 8.16 - Alarm */ {"AT+CALCC=?\r", "\r\n+CALCC:\r\n\r\nOK\r\n"}, /* 3GPP TS 27.007 11.1.6 - List current Voice Group and Voice Broadcast Calls */ {"AT+CALD=?\r", "\r\n+CALD:\r\n\r\nOK\r\n"}, /* 3GPP TS 27.007 8.38 - Delete alar m */ {"AT+CALM=?\r", "\r\n+CALM:\r\n\r\nOK\r\n"}, /* 3GPP TS 27.007 8.20 - Alert sound mode */ {"AT+CAMM=?\r", "\r\n+CAMM:\r\n\r\nOK\r\n"}, /* 3GPP TS 27.007 8.26 - Accumulated call meter maximum */ {"AT+CANCHEV=?\r", "\r\n+CANCHEV:\r\n\r\nOK\r\n"}, /* 3GPP TS 27.007 11.1.8 - NCH Support Indication */ {"AT+CAOC=?\r", "\r\n+CAOC:\r\n\r\nOK\r\n"}, /* 3GPP TS 27.007 7.16 - Advice of Charge */ {"AT+CAPD=?\r", "\r\n+CAPD:\r\n\r\nOK\r\n"}, /* 3GPP TS 27.007 8.39 - Postpone or dismiss an alarm */ {"AT+CAPTT=?\r", "\r\n+CAPTT:\r\n\r\nOK\r\n"}, /* 3GPP TS 27.007 11.1.4 - Talker Access for Voice Group Call */ {"AT+CAREJ=?\r", "\r\n+CAREJ:\r\n\r\nOK\r\n"}, /* 3GPP TS 27.007 11.1.2 - Reject an incoming Voice Group or Voice Broadcast Call */ {"AT+CAULEV=?\r", "\r\n+CAULEV:\r\n\r\nOK\r\n"}, /* 3GPP TS 27.007 11.1.5 - Voice Group Call Uplink Status Presentation */ {"AT+CBC=?\r", "\r\n+CBC:\r\n\r\nOK\r\n"}, /* 3GPP TS 27.007 8.4 - Battery charge */ {"AT+CBCS=?\r", "\r\n+CBCS:\r\n\r\nOK\r\n"}, /* 3GPP TS 27.007 11.3.2 - VBS subscriptions and GId status */ {"AT+CBST=?\r", "\r\n+CBST:\r\n\r\nOK\r\n"}, /* 3GPP TS 27.007 6.7 - Select bearer service type */ {"AT+CCFC=?\r", "\r\n+CCFC:\r\n\r\nOK\r\n"}, /* 3GPP TS 27.007 7.11 - Call forwarding number and conditions */ {"AT+CCLK=?\r", "\r\n+CCLK:\r\n\r\nOK\r\n"}, /* 3GPP TS 27.007 8.15 - Clock */ {"AT+CCUG=?\r", "\r\n+CCUG:\r\n\r\nOK\r\n"}, /* 3GPP TS 27.007 7.10 - Closed user group */ {"AT+CCWA=?\r", "\r\n+CCWA:\r\n\r\nOK\r\n"}, /* 3GPP TS 27.007 7.12 - Call waiting */ {"AT+CCWE=?\r", "\r\n+CCWE:\r\n\r\nOK\r\n"}, /* 3GPP TS 27.007 8.28 - Call Meter maximum event */ {"AT+CDIP=?\r", "\r\n+CDIP:\r\n\r\nOK\r\n"}, /* 3GPP TS 27.007 7.9 - Called line identification presentation */ {"AT+CDIS=?\r", "\r\n+CDIS:\r\n\r\nOK\r\n"}, /* 3GPP TS 27.007 8.8 - Display control */ {"AT+CEER=?\r", "\r\n+CEER:\r\n\r\nOK\r\n"}, /* 3GPP TS 27.007 6.10 - Extended error report */ {"AT+CFCS=?\r", "\r\n+CFCS:\r\n\r\nOK\r\n"}, /* 3GPP TS 27.007 7.24 - Fast call setup conditions */ {"AT+CFUN=?\r", "\r\n+CFUN:\r\n\r\nOK\r\n"}, /* 3GPP TS 27.007 8.2 - Set phone functionality */ {"AT+CGACT=?\r", "\r\n+CGACT:\r\n\r\nOK\r\n"}, /* 3GPP TS 27.007 10.1.10 - PDP context activate or deactivate */ {"AT+CGANS=?\r", "\r\n+CGANS:\r\n\r\nOK\r\n"}, /* 3GPP TS 27.007 10.1.16 - Manual response to a network request for PDP context activation */ {"AT+CGATT=?\r", "\r\n+CGATT:\r\n\r\nOK\r\n"}, /* 3GPP TS 27.007 10.1.9 - PS attach or detach */ {"AT+CGAUTO=?\r", "\r\n+CGAUTO:\r\n\r\nOK\r\n"}, /* 3GPP TS 27.007 10.1.15 - Automatic response to a network request for PDP context activation */ {"AT+CGCLASS=?\r", "\r\n+CGCLASS:\r\n\r\nOK\r\n"}, /* 3GPP TS 27.007 10.1.17 - GPRS mobile station class (GPRS only) */ {"AT+CGCLOSP=?\r", "\r\n+CGCLOSP:\r\n\r\nOK\r\n"}, /* 3GPP TS 27.007 10.1.13 - Configure local octet stream PAD parameters (Obsolete) */ {"AT+CGCLPAD=?\r", "\r\n+CGCLPAD:\r\n\r\nOK\r\n"}, /* 3GPP TS 27.007 10.1.12 - Configure local triple-X PAD parameters (GPRS only) (Obsolete) */ {"AT+CGCMOD=?\r", "\r\n+CGCMOD:\r\n\r\nOK\r\n"}, /* 3GPP TS 27.007 10.1.11 - PDP Context Modify */ {"AT+CGCS=?\r", "\r\n+CGCS:\r\n\r\nOK\r\n"}, /* 3GPP TS 27.007 11.3.1 - VGCS subscriptions and GId status */ {"AT+CGDATA=?\r", "\r\n+CGDATA:\r\n\r\nOK\r\n"}, /* 3GPP TS 27.007 10.1.12 - Enter data state */ {"AT+CGDCONT=?\r", "\r\n+CGDCONT:\r\n\r\nOK\r\n"}, /* 3GPP TS 27.007 10.1.1 - Define PDP Context */ {"AT+CGDSCONT=?\r", "\r\n+CGDSCONT:\r\n\r\nOK\r\n"}, /* 3GPP TS 27.007 10.1.2 - Define Secondary PDP Context */ {"AT+CGEQMIN=?\r", "\r\n+CGEQMIN:\r\n\r\nOK\r\n"}, /* 3GPP TS 27.007 10.1.7 - 3G Quality of Service Profile (Minimum acceptable) */ {"AT+CGEQNEG=?\r", "\r\n+CGEQNEG:\r\n\r\nOK\r\n"}, /* 3GPP TS 27.007 10.1.8 - 3G Quality of Service Profile (Negotiated) */ {"AT+CGEQREQ=?\r", "\r\n+CGEQREQ:\r\n\r\nOK\r\n"}, /* 3GPP TS 27.007 10.1.6 - 3G Quality of Service Profile (Requested) */ {"AT+CGEREP=?\r", "\r\n+CGEREP:\r\n\r\nOK\r\n"}, /* 3GPP TS 27.007 10.1.18 - Packet Domain event reporting */ {"AT+CGMI=?\r", "\r\n+CGMI:\r\n\r\nOK\r\n"}, /* 3GPP TS 27.007 5.1 - Request manufacturer identification */ {"AT+CGMM=?\r", "\r\n+CGMM:\r\n\r\nOK\r\n"}, /* 3GPP TS 27.007 5.2 - Request model identification */ {"AT+CGMR=?\r", "\r\n+CGMR:\r\n\r\nOK\r\n"}, /* 3GPP TS 27.007 5.3 - Request revision identification */ {"AT+CGPADDR=?\r", "\r\n+CGPADDR:\r\n\r\nOK\r\n"}, /* 3GPP TS 27.007 10.1.14 - Show PDP address */ {"AT+CGQMIN=?\r", "\r\n+CGQMIN:\r\n\r\nOK\r\n"}, /* 3GPP TS 27.007 10.1.5 - Quality of Service Profile (Minimum acceptable) */ {"AT+CGQREQ=?\r", "\r\n+CGQREQ:\r\n\r\nOK\r\n"}, /* 3GPP TS 27.007 10.1.4 - Quality of Service Profile (Requested) */ {"AT+CGREG=?\r", "\r\n+CGREG:\r\n\r\nOK\r\n"}, /* 3GPP TS 27.007 10.1.19 - GPRS network registration status */ {"AT+CGSMS=?\r", "\r\n+CGSMS:\r\n\r\nOK\r\n"}, /* 3GPP TS 27.007 10.1.20 - Select service for MO SMS messages */ {"AT+CGSN=?\r", "\r\n+CGSN:\r\n\r\nOK\r\n"}, /* 3GPP TS 27.007 5.4 - Request product serial number identification */ {"AT+CGTFT=?\r", "\r\n+CGTFT:\r\n\r\nOK\r\n"}, /* 3GPP TS 27.007 10.1.3 - Traffic Flow Template */ {"AT+CHLD=?\r", "\r\n+CHLD:\r\n\r\nOK\r\n"}, /* 3GPP TS 27.007 7.13 - Call related supplementary services */ {"AT+CHSA=?\r", "\r\n+CHSA:\r\n\r\nOK\r\n"}, /* 3GPP TS 27.007 6.18 - HSCSD non-transparent asymmetry configuration */ {"AT+CHSC=?\r", "\r\n+CHSC:\r\n\r\nOK\r\n"}, /* 3GPP TS 27.007 6.15 - HSCSD current call parameters */ {"AT+CHSD=?\r", "\r\n+CHSD:\r\n\r\nOK\r\n"}, /* 3GPP TS 27.007 6.12 - HSCSD device parameters */ {"AT+CHSN=?\r", "\r\n+CHSN:\r\n\r\nOK\r\n"}, /* 3GPP TS 27.007 6.14 - HSCSD non-transparent call configuration */ {"AT+CHSR=?\r", "\r\n+CHSR:\r\n\r\nOK\r\n"}, /* 3GPP TS 27.007 6.16 - HSCSD parameters report */ {"AT+CHST=?\r", "\r\n+CHST:\r\n\r\nOK\r\n"}, /* 3GPP TS 27.007 6.13 - HSCSD transparent call configuration */ {"AT+CHSU=?\r", "\r\n+CHSU:\r\n\r\nOK\r\n"}, /* 3GPP TS 27.007 6.17 - HSCSD automatic user initiated upgrading */ {"AT+CHUP=?\r", "\r\n+CHUP:\r\n\r\nOK\r\n"}, /* 3GPP TS 27.007 6.5 - Hangup call */ {"AT+CIMI=?\r", "\r\n+CIMI:\r\n\r\nOK\r\n"}, /* 3GPP TS 27.007 5.6 - Request international mobile subscriber identity */ {"AT+CIND=?\r", "\r\n+CIND:\r\n\r\nOK\r\n"}, /* 3GPP TS 27.007 8.9 - Indicator control */ {"AT+CKPD=?\r", "\r\n+CKPD:\r\n\r\nOK\r\n"}, /* 3GPP TS 27.007 8.7 - Keypad control */ {"AT+CLAC=?\r", "\r\n+CLAC:\r\n\r\nOK\r\n"}, /* 3GPP TS 27.007 8.37 - List all available AT commands */ {"AT+CLAE=?\r", "\r\n+CLAE:\r\n\r\nOK\r\n"}, /* 3GPP TS 27.007 8.31 - Language Event */ {"AT+CLAN=?\r", "\r\n+CLAN:\r\n\r\nOK\r\n"}, /* 3GPP TS 27.007 8.30 - Set Language */ {"AT+CLCC=?\r", "\r\n+CLCC:\r\n\r\nOK\r\n"}, /* 3GPP TS 27.007 7.18 - List current calls */ {"AT+CLCK=?\r", "\r\n+CLCK:\r\n\r\nOK\r\n"}, /* 3GPP TS 27.007 7.4 - Facility lock */ {"AT+CLIP=?\r", "\r\n+CLIP:\r\n\r\nOK\r\n"}, /* 3GPP TS 27.007 7.6 - Calling line identification presentation */ {"AT+CLIR=?\r", "\r\n+CLIR:\r\n\r\nOK\r\n"}, /* 3GPP TS 27.007 7.7 - Calling line identification restriction */ {"AT+CLVL=?\r", "\r\n+CLVL:\r\n\r\nOK\r\n"}, /* 3GPP TS 27.007 8.23 - Loudspeaker volume level */ {"AT+CMAR=?\r", "\r\n+CMAR:\r\n\r\nOK\r\n"}, /* 3GPP TS 27.007 8.36 - Master Reset */ {"AT+CMEC=?\r", "\r\n+CMEC:\r\n\r\nOK\r\n"}, /* 3GPP TS 27.007 8.6 - Mobile Termination control mode */ {"AT+CMER=?\r", "\r\n+CMER:\r\n\r\nOK\r\n"}, /* 3GPP TS 27.007 8.10 - Mobile Termination event reporting */ {"AT+CMOD=?\r", "\r\n+CMOD:\r\n\r\nOK\r\n"}, /* 3GPP TS 27.007 6.4 - Call mode */ {"AT+CMUT=?\r", "\r\n+CMUT:\r\n\r\nOK\r\n"}, /* 3GPP TS 27.007 8.24 - Mute control */ {"AT+CMUX=?\r", "\r\n+CMUX:\r\n\r\nOK\r\n"}, /* 3GPP TS 27.007 5.7 - Multiplexing mode */ {"AT+CNUM=?\r", "\r\n+CNUM:\r\n\r\nOK\r\n"}, /* 3GPP TS 27.007 7.1 - Subscriber number */ {"AT+COLP=?\r", "\r\n+COLP:\r\n\r\nOK\r\n"}, /* 3GPP TS 27.007 7.8 - Connected line identification presentation */ {"AT+COPN=?\r", "\r\n+COPN:\r\n\r\nOK\r\n"}, /* 3GPP TS 27.007 7.21 - Read operator names */ {"AT+COPS=?\r", "\r\n+COPS:\r\n\r\nOK\r\n"}, /* 3GPP TS 27.007 7.3 - PLMN selection */ {"AT+COTDI=?\r", "\r\n+COTDI:\r\n\r\nOK\r\n"}, /* 3GPP TS 27.007 11.1.9 - Originator to Dispatcher Information */ {"AT+CPAS=?\r", "\r\n+CPAS:\r\n\r\nOK\r\n"}, /* 3GPP TS 27.007 8.1 - Phone activity status */ {"AT+CPBF=?\r", "\r\n+CPBF:\r\n\r\nOK\r\n"}, /* 3GPP TS 27.007 8.13 - Find phonebook entries */ {"AT+CPBR=?\r", "\r\n+CPBR:\r\n\r\nOK\r\n"}, /* 3GPP TS 27.007 8.12 - Read phonebook entries */ {"AT+CPBS=?\r", "\r\n+CPBS:\r\n\r\nOK\r\n"}, /* 3GPP TS 27.007 8.11 - Select phonebook memory storage */ {"AT+CPBW=?\r", "\r\n+CPBW:\r\n\r\nOK\r\n"}, /* 3GPP TS 27.007 8.14 - Write phonebook entry */ {"AT+CPIN=?\r", "\r\n+CPIN:\r\n\r\nOK\r\n"}, /* 3GPP TS 27.007 8.3 - Enter PIN */ {"AT+CPLS=?\r", "\r\n+CPLS:\r\n\r\nOK\r\n"}, /* 3GPP TS 27.007 7.20 - Selection of preferred PLMN list */ {"AT+CPOL=?\r", "\r\n+CPOL:\r\n\r\nOK\r\n"}, /* 3GPP TS 27.007 7.19 - Preferred PLMN list */ {"AT+CPPS=?\r", "\r\n+CPPS:\r\n\r\nOK\r\n"}, /* 3GPP TS 27.007 7.23 - eMLPP subscriptions */ {"AT+CPROT=?\r", "\r\n+CPROT:\r\n\r\nOK\r\n"}, /* 3GPP TS 27.007 8.42 - Enter protocol mode */ {"AT+CPUC=?\r", "\r\n+CPUC:\r\n\r\nOK\r\n"}, /* 3GPP TS 27.007 8.27 - Price per unit and currency table */ {"AT+CPWC=?\r", "\r\n+CPWC:\r\n\r\nOK\r\n"}, /* 3GPP TS 27.007 8.29 - Power class */ {"AT+CPWD=?\r", "\r\n+CPWD:\r\n\r\nOK\r\n"}, /* 3GPP TS 27.007 7.5 - Change password */ {"AT+CR=?\r", "\r\n+CR:\r\n\r\nOK\r\n"}, /* 3GPP TS 27.007 6.9 - Service reporting control */ {"AT+CRC=?\r", "\r\n+CRC:\r\n\r\nOK\r\n"}, /* 3GPP TS 27.007 6.11 - Cellular result codes */ {"AT+CREG=?\r", "\r\n+CREG:\r\n\r\nOK\r\n"}, /* 3GPP TS 27.007 7.2 - Network registration */ {"AT+CRLP=?\r", "\r\n+CRLP:\r\n\r\nOK\r\n"}, /* 3GPP TS 27.007 6.8 - Radio link protocol */ {"AT+CRMC=?\r", "\r\n+CRMC:\r\n\r\nOK\r\n"}, /* 3GPP TS 27.007 8.34 - Ring Melody Control */ {"AT+CRMP=?\r", "\r\n+CRMP:\r\n\r\nOK\r\n"}, /* 3GPP TS 27.007 8.35 - Ring Melody Playback */ {"AT+CRSL=?\r", "\r\n+CRSL:\r\n\r\nOK\r\n"}, /* 3GPP TS 27.007 8.21 - Ringer sound level */ {"AT+CRSM=?\r", "\r\n+CRSM:\r\n\r\nOK\r\n"}, /* 3GPP TS 27.007 8.18 - Restricted SIM access */ {"AT+CSCC=?\r", "\r\n+CSCC:\r\n\r\nOK\r\n"}, /* 3GPP TS 27.007 8.19 - Secure control command */ {"AT+CSCS=?\r", "\r\n+CSCS:\r\n\r\nOK\r\n"}, /* 3GPP TS 27.007 5.5 - Select TE character set */ {"AT+CSDF=?\r", "\r\n+CSDF:\r\n\r\nOK\r\n"}, /* 3GPP TS 27.007 6.22 - Settings date format */ {"AT+CSGT=?\r", "\r\n+CSGT:\r\n\r\nOK\r\n"}, /* 3GPP TS 27.007 8.32 - Set Greeting Text */ {"AT+CSIL=?\r", "\r\n+CSIL:\r\n\r\nOK\r\n"}, /* 3GPP TS 27.007 6.23 - Silence Command */ {"AT+CSIM=?\r", "\r\n+CSIM:\r\n\r\nOK\r\n"}, /* 3GPP TS 27.007 8.17 - Generic SIM access */ {"AT+CSNS=?\r", "\r\n+CSNS:\r\n\r\nOK\r\n"}, /* 3GPP TS 27.007 6.19 - Single numbering scheme */ {"AT+CSQ=?\r", "\r\n+CSQ:\r\n\r\nOK\r\n"}, /* 3GPP TS 27.007 8.5 - Signal quality */ {"AT+CSSN=?\r", "\r\n+CSSN:\r\n\r\nOK\r\n"}, /* 3GPP TS 27.007 7.17 - Supplementary service notifications */ {"AT+CSTA=?\r", "\r\n+CSTA:\r\n\r\nOK\r\n"}, /* 3GPP TS 27.007 6.1 - Select type of address */ {"AT+CSTF=?\r", "\r\n+CSTF:\r\n\r\nOK\r\n"}, /* 3GPP TS 27.007 6.24 - Settings time format */ {"AT+CSVM=?\r", "\r\n+CSVM:\r\n\r\nOK\r\n"}, /* 3GPP TS 27.007 8.33 - Set Voice Mail Number */ {"AT+CTFR=?\r", "\r\n+CTFR:\r\n\r\nOK\r\n"}, /* 3GPP TS 27.007 7.14 - Call deflection */ {"AT+CTZR=?\r", "\r\n+CTZR:\r\n\r\nOK\r\n"}, /* 3GPP TS 27.007 8.41 - Time Zone Reporting */ {"AT+CTZU=?\r", "\r\n+CTZU:\r\n\r\nOK\r\n"}, /* 3GPP TS 27.007 8.40 - Automatic Time Zone Update */ {"AT+CUSD=?\r", "\r\n+CUSD:\r\n\r\nOK\r\n"}, /* 3GPP TS 27.007 7.15 - Unstructured supplementary service data */ {"AT+CUUS1=?\r", "\r\n+CUUS1:\r\n\r\nOK\r\n"}, /* 3GPP TS 27.007 7.26 - User to User Signalling Service 1 */ {"AT+CV120=?\r", "\r\n+CV120:\r\n\r\nOK\r\n"}, /* 3GPP TS 27.007 6.21 - V.120 rate adaption protocol */ {"AT+CVHU=?\r", "\r\n+CVHU:\r\n\r\nOK\r\n"}, /* 3GPP TS 27.007 6.20 - Voice Hangup Control */ {"AT+CVIB=?\r", "\r\n+CVIB:\r\n\r\nOK\r\n"}, /* 3GPP TS 27.007 8.22 - Vibrator mode */ {"AT+DR=?\r", "\r\n+DR:\r\n\r\nOK\r\n"}, /* V.250 6.6.2 - Data compression reporting */ {"AT+DS=?\r", "\r\n+DS:\r\n\r\nOK\r\n"}, /* V.250 6.6.1 - Data compression */ {"AT+EB=?\r", "\r\n+EB:\r\n\r\nOK\r\n"}, /* V.250 6.5.2 - Break handling in error control operation */ {"AT+EFCS=?\r", "\r\n+EFCS:(0-2)\r\n\r\nOK\r\n"}, /* V.250 6.5.4 - 32-bit frame check sequence */ {"AT+EFCS?\r", "\r\n+EFCS:0\r\n\r\nOK\r\n"}, {"AT+EFRAM=?\r", "\r\n+EFRAM:(1-65535),(1-65535)\r\n\r\nOK\r\n"}, /* V.250 6.5.8 - Frame length */ {"AT+ER=?\r", "\r\n+ER:(0,1)\r\n\r\nOK\r\n"}, /* V.250 6.5.5 - Error control reporting */ {"AT+ES=?\r", "\r\n+ES:(0-7),(0-4),(0-9)\r\n\r\nOK\r\n"}, /* V.250 6.5.1 - Error control selection */ {"AT+ES?\r", "\r\n+ES:0,0,0\r\n\r\nOK\r\n"}, {"AT+ESA=?\r", "\r\n+ESA:(0-2),(0-1),(0-1),(0-1),(0-2),(0-1),(0-255),(0-255)\r\n\r\nOK\r\n"}, /* V.80 8.2 - Synchronous access mode configuration */ {"AT+ESA?\r", "\r\n+ESA:0,0,0,0,0,0,0,0\r\n\r\nOK\r\n"}, {"AT+ESR\r", "\r\nOK\r\n"}, /* V.250 6.5.3 - Selective repeat */ {"AT+ETBM=?\r", "\r\n+ETBM:(0-2),(0-2),(0-30)\r\n\r\nOK\r\n"}, /* T.31 8.5.1 - Adaptive reception control */ {"AT+ETBM?\r", "\r\n+ETBM:0,0\r\n\r\nOK\r\n"}, {"AT+EWIND=?\r", "\r\n+EWIND:(1-127),(1-127)\r\n\r\nOK\r\n"}, /* V.250 6.5.7 - Window size */ {"AT+EWIND?\r", "\r\n+EWIND:0,0\r\n\r\nOK\r\n"}, {"AT+F34=?\r", "\r\n+F34:(0-14),(0-14),(0-2),(0-14),(0-14)\r\n\r\nOK\r\n"}, /* T.31 B.6.1 - Initial V.34 rate controls for FAX */ {"AT+F34?\r", "\r\n+F34:0,0,0,0,0\r\n\r\nOK\r\n"}, {"AT+FAR=?\r", "\r\n0,1\r\n\r\nOK\r\n"}, /* T.31 8.5.1 - Adaptive reception control */ {"AT+FAR?\r", "\r\n0\r\n\r\nOK\r\n"}, {"AT+FCL=?\r", "\r\n(0-255)\r\n\r\nOK\r\n"}, /* T.31 8.5.2 - Carrier loss timeout */ {"AT+FCLASS=?\r", "\r\n0,1,1.0\r\n\r\nOK\r\n"}, /* T.31 8.2 - Capabilities identification and control */ {"AT+FCLASS?\r", "\r\n1\r\n\r\nOK\r\n"}, {"AT+FDD=?\r", "\r\n(0,1)\r\n\r\nOK\r\n"}, /* T.31 8.5.3 - Double escape character replacement */ {"AT+FDD?\r", "\r\n0\r\n\r\nOK\r\n"}, {"AT+FIT=?\r", "\r\n+FIT:(0-255),(0-1)\r\n\r\nOK\r\n"}, /* T.31 8.5.4 - DTE inactivity timeout */ {"AT+FIT?\r", "\r\n+FIT:0,0\r\n\r\nOK\r\n"}, {"AT+FLO\r", "\r\nOK\r\n"}, /* T.31 says to implement something similar to +IFC */ {"AT+FMI?\r", "\r\n" MANUFACTURER "\r\n\r\nOK\r\n"}, /* T.31 says to duplicate +GMI */ {"AT+FMM?\r", "\r\n" PACKAGE "\r\n\r\nOK\r\n"}, /* T.31 says to duplicate +GMM */ {"AT+FMR?\r", "\r\n" VERSION "\r\n\r\nOK\r\n"}, /* T.31 says to duplicate +GMR */ {"AT+FPR=?\r", "\r\n115200\r\n\r\nOK\r\n"}, /* T.31 says to implement something similar to +IPR */ {"AT+FPR?\r", "\r\n0\r\n\r\nOK\r\n"}, {"AT+FRH=?\r", "\r\n3\r\n\r\nOK\r\n"}, /* T.31 8.3.6 - HDLC receive */ {"AT+FRH?\r", "\r\n-1\r\n\r\nOK\r\n"}, {"AT+FRM=?\r", "\r\n24,48,72,73,74,96,97,98,121,122,145,146\r\n\r\nOK\r\n"}, /* T.31 8.3.4 - Facsimile receive */ {"AT+FRM?\r", "\r\n-1\r\n\r\nOK\r\n"}, {"AT+FRS=?\r", "\r\n0-255\r\n\r\nOK\r\n"}, /* T.31 8.3.2 - Receive silence */ {"AT+FRS?\r", "\r\n-1\r\n\r\nOK\r\n"}, {"AT+FTH=?\r", "\r\n3\r\n\r\nOK\r\n"}, /* T.31 8.3.5 - HDLC transmit */ {"AT+FTH?\r", "\r\n-1\r\n\r\nOK\r\n"}, {"AT+FTM=?\r", "\r\n24,48,72,73,74,96,97,98,121,122,145,146\r\n\r\nOK\r\n"}, /* T.31 8.3.3 - Facsimile transmit */ {"AT+FTM?\r", "\r\n-1\r\n\r\nOK\r\n"}, {"AT+FTS=?\r", "\r\n0-255\r\n\r\nOK\r\n"}, /* T.31 8.3.1 - Transmit silence */ {"AT+FTS?\r", "\r\n-1\r\n\r\nOK\r\n"}, {"AT+GCAP\r", "\r\nOK\r\n"}, /* V.250 6.1.9 - Request complete capabilities list */ {"AT+GCI=?\r", "\r\n+GCI:(00-FF)\r\n\r\nOK\r\n"}, /* V.250 6.1.10 - Country of installation, */ {"AT+GCI?\r", "\r\n+GCI:00\r\n\r\nOK\r\n"}, {"AT+GMI?\r", "\r\n" MANUFACTURER "\r\n\r\nOK\r\n"}, /* V.250 6.1.4 - Request manufacturer identification */ {"AT+GMM?\r", "\r\n" PACKAGE "\r\n\r\nOK\r\n"}, /* V.250 6.1.5 - Request model identification */ {"AT+GMR?\r", "\r\n" VERSION "\r\n\r\nOK\r\n"}, /* V.250 6.1.6 - Request revision identification */ {"AT+GOI\r", "\r\nOK\r\n"}, /* V.250 6.1.8 - Request global object identification */ {"AT+GSN?\r", "\r\n42\r\n\r\nOK\r\n"}, /* V.250 6.1.7 - Request product serial number identification */ {"AT+IBC=?\r", "\r\n+IBC:(0-2),(0,1),(0,1),(0,1),(0,1),(0,1),(0,1),(0,1),(0,1),(0,1),(0,1),(0.1),(0,1)\r\n\r\nOK\r\n"}, /* V.80 7.9 - Control of in-band control */ {"AT+IBC?\r", "\r\n+IBC:0,0,0,0,0,0,0,0,0,0,0,0,0\r\n\r\nOK\r\n"}, {"AT+IBM=?\r", "\r\n+IBM:(0-7),(0-255),(0-255)\r\n\r\nOK\r\n"}, /* V.80 7.10 - In-band MARK idle reporting control */ {"AT+IBM?\r", "\r\n+IBM:0,0,0\r\n\r\nOK\r\n"}, {"AT+ICF?\r", "\r\n+ICF:0,0\r\n\r\nOK\r\n"}, /* V.250 6.2.11 - DTE-DCE character framing */ {"AT+ICLOK?\r", "\r\n+ICLOK:0\r\n\r\nOK\r\n"}, /* V.250 6.2.14 - Select sync transmit clock source */ {"AT+IDSR?\r", "\r\n+IDSR:0\r\n\r\nOK\r\n"}, /* V.250 6.2.16 - Select data set ready option */ {"AT+IFC\r", "\r\nOK\r\n"}, /* V.250 6.2.12 - DTE-DCE local flow control */ {"AT+ILRR\r", "\r\nOK\r\n"}, /* V.250 6.2.13 - DTE-DCE local rate reporting */ {"AT+ILSD=?\r", "\r\n+ILSD:(0,1)\r\n\r\nOK\r\n"}, /* V.250 6.2.15 - Select long space disconnect option */ {"AT+ILSD?\r", "\r\n+ILSD:0\r\n\r\nOK\r\n"}, {"AT+IPR=?\r", "\r\n+IPR:(115200),(115200)\r\n\r\nOK\r\n"}, /* V.250 6.2.10 - Fixed DTE rate */ {"AT+IPR?\r", "\r\n+IPR:0\r\n\r\nOK\r\n"}, {"AT+IRTS=?\r", "\r\n+IRTS:(0,1)\r\n\r\nOK\r\n"}, /* V.250 6.2.17 - Select synchronous mode RTS option */ {"AT+IRTS?\r", "\r\n+IRTS:0\r\n\r\nOK\r\n"}, {"AT+MA\r", "\r\nOK\r\n"}, /* V.250 6.4.2 - Modulation automode control */ {"AT+MR=?\r", "\r\n+MR:(0,1)\r\n\r\nOK\r\n"}, /* V.250 6.4.3 - Modulation reporting control */ {"AT+MR?\r", "\r\n+MR:0\r\n\r\nOK\r\n"}, {"AT+MS\r", "\r\nOK\r\n"}, /* V.250 6.4.1 - Modulation selection */ {"AT+MSC=?\r", "\r\n+MSC:(0,1)\r\n\r\nOK\r\n"}, /* V.250 6.4.8 - Seamless rate change enable */ {"AT+MSC?\r", "\r\n+MSC:0\r\n\r\nOK\r\n"}, {"AT+MV18AM\r", "\r\nOK\r\n"}, /* V.250 6.4.6 - V.18 answering message editing */ {"AT+MV18P=?\r", "\r\n+MV18P:(2-7)\r\n\r\nOK\r\n"}, /* V.250 6.4.7 - Order of probes */ {"AT+MV18P?\r", "\r\n+MV18P:0\r\n\r\nOK\r\n"}, {"AT+MV18R=?\r", "\r\n+MV18R:(0,1)\r\n\r\nOK\r\n"}, /* V.250 6.4.5 - V.18 reporting control */ {"AT+MV18R?\r", "\r\n+MV18R:0\r\n\r\nOK\r\n"}, {"AT+MV18S\r", "\r\nOK\r\n"}, /* V.250 6.4.4 - V.18 selection */ {"AT+TADR\r", "\r\nOK\r\n"}, /* V.250 6.7.2.9 - Local V.54 address */ {"AT+TAL=?\r", "\r\n+TAL:(0,1),(0,1)\r\n\r\nOK\r\n"}, /* V.250 6.7.2.15 - Local analogue loop */ {"AT+TAL?\r", "\r\n+TAL:0,0\r\n\r\nOK\r\n"}, {"AT+TALS=?\r", "\r\n+TALS:(0-3)\r\n\r\nOK\r\n"}, /* V.250 6.7.2.6 - Analogue loop status */ {"AT+TALS?\r", "\r\n+TALS:0\r\n\r\nOK\r\n"}, {"AT+TDLS=?\r", "\r\n+TDLS:(0-4)\r\n\r\nOK\r\n"}, /* V.250 6.7.2.7 - Local digital loop status */ {"AT+TDLS?\r", "\r\n+TDLS:0\r\n\r\nOK\r\n"}, {"AT+TE140=?\r", "\r\n+TE140:(0,1)\r\n\r\nOK\r\n"}, /* V.250 6.7.2.1 - Enable ckt 140 */ {"AT+TE140?\r", "\r\n+TE140:0\r\n\r\nOK\r\n"}, {"AT+TE141=?\r", "\r\n+TE141:(0,1)\r\n\r\nOK\r\n"}, /* V.250 6.7.2.2 - Enable ckt 141 */ {"AT+TE141?\r", "\r\n+TE141:0\r\n\r\nOK\r\n"}, {"AT+TEPAL=?\r", "\r\n+TEPAL:(0,1)\r\n\r\nOK\r\n"}, /* V.250 6.7.2.5 - Enable front panel analogue loop */ {"AT+TEPAL?\r", "\r\n+TEPAL:0\r\n\r\nOK\r\n"}, {"AT+TEPDL=?\r", "\r\n+TEPDL:(0,1)\r\n\r\nOK\r\n"}, /* V.250 6.7.2.4 - Enable front panel RDL */ {"AT+TEPDL?\r", "\r\n+TEPDL:0\r\n\r\nOK\r\n"}, {"AT+TERDL=?\r", "\r\n+TERDL:(0,1)\r\n\r\nOK\r\n"}, /* V.250 6.7.2.3 - Enable RDL from remote */ {"AT+TERDL?\r", "\r\n+TERDL:0\r\n\r\nOK\r\n"}, {"AT+TLDL=?\r", "\r\n+TLDL:(0,1)\r\n\r\nOK\r\n"}, /* V.250 6.7.2.13 - Local digital loop */ {"AT+TLDL?\r", "\r\n+TLDL:0\r\n\r\nOK\r\n"}, {"AT+TMODE=?\r", "\r\n+TMODE:(0,1)\r\n\r\nOK\r\n"}, /* V.250 6.7.2.10 - Set V.54 mode */ {"AT+TMODE?\r", "\r\n+TMODE:0\r\n\r\nOK\r\n"}, {"AT+TNUM\r", "\r\nOK\r\n"}, /* V.250 6.7.2.12 - Errored bit and block counts */ {"AT+TRDL=?\r", "\r\n+TRDL:(0,1)\r\n\r\nOK\r\n"}, /* V.250 6.7.2.14 - Request remote digital loop */ {"AT+TRDL?\r", "\r\n+TRDL:0\r\n\r\nOK\r\n"}, {"AT+TRDLS\r", "\r\nOK\r\n"}, /* V.250 6.7.2.8 - Remote digital loop status */ {"AT+TRES=?\r", "\r\n+TRES:(0-2)\r\n\r\nOK\r\n"}, /* V.250 6.7.2.17 - Self test result */ {"AT+TRES?\r", "\r\n+TRES:0\r\n\r\nOK\r\n"}, {"AT+TSELF=?\r", "\r\n+TSELF:(0,1)\r\n\r\nOK\r\n"}, /* V.250 6.7.2.16 - Self test */ {"AT+TSELF?\r", "\r\n+TSELF:0\r\n\r\nOK\r\n"}, {"AT+TTER=?\r", "\r\n+TTER:(0-65535),(0-65535)\r\n\r\nOK\r\n"}, /* V.250 6.7.2.11 - Test error rate */ {"AT+TTER?\r", "\r\n+TTER:0,0\r\n\r\nOK\r\n"}, {"AT+VBT\r", "\r\nOK\r\n"}, /* 3GPP TS 27.007 C.2.2 - Buffer threshold setting */ {"AT+VCID=?\r", "\r\n0,1\r\n\r\nOK\r\n"}, /* 3GPP TS 27.007 C.2.3 - Calling number ID presentation */ {"AT+VCID?\r", "\r\n0\r\n\r\nOK\r\n"}, {"AT+VDR\r", "\r\nOK\r\n"}, /* V.253 10.3.1 - Distinctive ring (ring cadence reporting) */ {"AT+VDT\r", "\r\nOK\r\n"}, /* V.253 10.3.2 - Control tone cadence reporting */ {"AT+VDX\r", "\r\nOK\r\n"}, /* V.253 10.5.6 - Speakerphone duplex mode */ {"AT+VEM\r", "\r\nOK\r\n"}, /* V.253 10.5.7 - Deliver event reports */ {"AT+VGM\r", "\r\nOK\r\n"}, /* V.253 10.5.2 - Microphone gain */ {"AT+VGR\r", "\r\nOK\r\n"}, /* V.253 10.2.1 - Receive gain selection */ {"AT+VGS\r", "\r\nOK\r\n"}, /* V.253 10.5.3 - Speaker gain */ {"AT+VGT\r", "\r\nOK\r\n"}, /* V.253 10.2.2 - Volume selection */ {"AT+VIP\r", "\r\nOK\r\n"}, /* V.253 10.1.1 - Initialize voice parameters */ {"AT+VIT\r", "\r\nOK\r\n"}, /* V.253 10.2.3 - DTE/DCE inactivity timer */ {"AT+VLS\r", "\r\nOK\r\n"}, /* V.253 10.2.4 - Analogue source/destination selection */ {"AT+VPP\r", "\r\nOK\r\n"}, /* V.253 10.4.2 - Voice packet protocol */ {"AT+VRA\r", "\r\nOK\r\n"}, /* V.253 10.2.5 - Ringing tone goes away timer */ {"AT+VRID?\r", "\r\n0\r\n\r\nOK\r\n"}, /* Extension - Find the originating and destination numbers */ {"AT+VRL\r", "\r\nOK\r\n"}, /* V.253 10.1.2 - Ring local phone */ {"AT+VRN\r", "\r\nOK\r\n"}, /* V.253 10.2.6 - Ringing tone never appeared timer */ {"AT+VRX\r", "\r\nOK\r\n"}, /* V.253 10.1.3 - Voice receive state */ {"AT+VSD\r", "\r\nOK\r\n"}, /* V.253 10.2.7 - Silence detection (QUIET and SILENCE) */ {"AT+VSID=12345\r", "\r\nOK\r\n"}, /* Extension - Set the originating number */ {"AT+VSID?\r", "\r\n12345\r\n\r\nOK\r\n"}, {"AT+VSM\r", "\r\nOK\r\n"}, /* V.253 10.2.8 - Compression method selection */ {"AT+VSP\r", "\r\nOK\r\n"}, /* V.253 10.5.1 - Voice speakerphone state */ {"AT+VTA\r", "\r\nOK\r\n"}, /* V.253 10.5.4 - Train acoustic echo-canceller */ {"AT+VTD\r", "\r\nOK\r\n"}, /* V.253 10.2.9 - Beep tone duration timer */ {"AT+VTH\r", "\r\nOK\r\n"}, /* V.253 10.5.5 - Train line echo-canceller */ {"AT+VTR\r", "\r\nOK\r\n"}, /* V.253 10.1.4 - Voice duplex state */ {"AT+VTS\r", "\r\nOK\r\n"}, /* V.253 10.1.5 - DTMF and tone generation in voice */ {"AT+VTX\r", "\r\nOK\r\n"}, /* V.253 10.1.6 - Transmit data state */ {"AT+WS46\r", "\r\nOK\r\n"}, /* 3GPP TS 27.007 5.9 - PCCA STD-101 [17] select wireless network */ {"ATA\r", "\r\nERROR\r\n"}, /* V.250 6.3.5 - Answer */ {"ATDT -1234567890ABCDPSTW*#+,!@\r;", ""}, /* V.250 6.3.1 - Dial */ {"ATE1\r", "\r\nOK\r\n"}, /* V.250 6.2.4 - Command echo */ {"ATE0\r", "ATE0\r\r\nOK\r\n"}, /* V.250 6.2.4 - Command echo */ {"ATH\r", "\r\nOK\r\n"}, /* V.250 6.3.6 - Hook control */ {"ATI\r", "\r\n" PACKAGE "\r\n\r\nOK\r\n"}, /* V.250 6.1.3 - Request identification information */ {"ATL\r", "\r\nOK\r\n"}, /* V.250 6.3.13 - Monitor speaker loudness */ {"ATM\r", "\r\nOK\r\n"}, /* V.250 6.3.14 - Monitor speaker mode */ {"ATO\r", "\r\nCONNECT\r\n\r\nOK\r\n"}, /* V.250 6.3.7 - Return to online data state */ {"ATP\r", "\r\nOK\r\n"}, /* V.250 6.3.3 - Select pulse dialling (command) */ {"ATQ\r", "\r\nOK\r\n"}, /* V.250 6.2.5 - Result code suppression */ {"ATS0=?\r", "\r\n000\r\n\r\nOK\r\n"}, /* V.250 6.3.8 - Automatic answer */ {"ATS0?\r", "\r\n000\r\n\r\nOK\r\n"}, {"ATS10=?\r", "\r\n000\r\n\r\nOK\r\n"}, /* V.250 6.3.12 - Automatic disconnect delay */ {"ATS10?\r", "\r\n000\r\n\r\nOK\r\n"}, {"ATS3=?\r", "\r\n000\r\n\r\nOK\r\n"}, /* V.250 6.2.1 - Command line termination character */ {"ATS3?\r", "\r\n013\r\n\r\nOK\r\n"}, {"ATS4=?\r", "\r\n000\r\n\r\nOK\r\n"}, /* V.250 6.2.2 - Response formatting character */ {"ATS4?\r", "\r\n010\r\n\r\nOK\r\n"}, {"ATS5=?\r", "\r\n000\r\n\r\nOK\r\n"}, /* V.250 6.2.3 - Command line editing character */ {"ATS5?\r", "\r\n008\r\n\r\nOK\r\n"}, {"ATS6=?\r", "\r\n000\r\n\r\nOK\r\n"}, /* V.250 6.3.9 - Pause before blind dialling */ {"ATS6?\r", "\r\n001\r\n\r\nOK\r\n"}, {"ATS7=?\r", "\r\n000\r\n\r\nOK\r\n"}, /* V.250 6.3.10 - Connection completion timeout */ {"ATS7?\r", "\r\n060\r\n\r\nOK\r\n"}, {"ATS8=?\r", "\r\n000\r\n\r\nOK\r\n"}, /* V.250 6.3.11 - Comma dial modifier time */ {"ATS8?\r", "\r\n005\r\n\r\nOK\r\n"}, {"ATT\r", "\r\nOK\r\n"}, /* V.250 6.3.2 - Select tone dialling (command) */ {"ATV0\r", "0\r"}, /* V.250 6.2.6 - DCE response format */ {"ATV1\r", "\r\nOK\r\n"}, {"ATX4\r", "\r\nOK\r\n"}, /* V.250 6.2.7 - Result code selection and call progress monitoring control */ {"ATZ\r", "\r\nOK\r\n"}, /* V.250 6.1.1 - Reset to default configuration */ {"", ""} }; char *decode_test_file = NULL; int countdown = 0; int command_response_test_step = -1; char response_buf[1000]; int response_buf_ptr = 0; static int at_rx(at_state_t *s, const char *t, int len) { at_interpreter(s, t, len); return 0; } /*- End of function --------------------------------------------------------*/ static int at_send(at_state_t *s, const char *t) { printf("%s", t); at_rx(s, t, strlen(t)); return 0; } /*- End of function --------------------------------------------------------*/ #if 0 static int at_send_at(at_state_t *s, const char *t) { uint8_t buf[500]; sprintf((char *) buf, "AT%s\r", t); printf("%s", t); at_rx(s, t, strlen(t)); return 0; } /*- End of function --------------------------------------------------------*/ static int at_expect(at_state_t *s, const char *t) { return 0; } /*- End of function --------------------------------------------------------*/ static int at_send_hdlc(at_state_t *s, uint8_t *t, int len) { uint8_t buf[100]; int i; int j; for (i = 0, j = 0; i < len; i++) { if (*t == DLE) buf[j++] = DLE; buf[j++] = *t++; } buf[j++] = DLE; buf[j++] = ETX; at_rx(s, (char *) buf, j); return 0; } /*- End of function --------------------------------------------------------*/ #endif static int general_test(at_state_t *s) { int i; for (i = 0; general_test_seq[i].command[0]; i++) { response_buf_ptr = 0; response_buf[0] = '\0'; command_response_test_step = i; at_send(s, general_test_seq[i].command); if (strcmp(general_test_seq[command_response_test_step].response, response_buf) != 0) { printf("Incorrect response\n"); printf("Expected: '%s'\n", general_test_seq[command_response_test_step].response); printf("Received: '%s'\n", response_buf); return -1; } } return 0; } /*- End of function --------------------------------------------------------*/ static int modem_call_control(at_state_t *s, void *user_data, int op, const char *num) { switch (op) { case AT_MODEM_CONTROL_CALL: printf("\nModem control - Dialing '%s'\n", num); break; case AT_MODEM_CONTROL_ANSWER: printf("\nModem control - Answering\n"); /* Force an error response, so we get something well defined for the test. */ return -1; case AT_MODEM_CONTROL_HANGUP: printf("\nModem control - Hanging up\n"); break; case AT_MODEM_CONTROL_OFFHOOK: printf("\nModem control - Going off hook\n"); break; case AT_MODEM_CONTROL_ONHOOK: printf("\nModem control - Going on hook\n"); break; case AT_MODEM_CONTROL_DTR: printf("\nModem control - DTR %d\n", (int) (intptr_t) num); break; case AT_MODEM_CONTROL_RTS: printf("\nModem control - RTS %d\n", (int) (intptr_t) num); break; case AT_MODEM_CONTROL_CTS: printf("\nModem control - CTS %d\n", (int) (intptr_t) num); break; case AT_MODEM_CONTROL_CAR: printf("\nModem control - CAR %d\n", (int) (intptr_t) num); break; case AT_MODEM_CONTROL_RNG: printf("\nModem control - RNG %d\n", (int) (intptr_t) num); break; case AT_MODEM_CONTROL_DSR: printf("\nModem control - DSR %d\n", (int) (intptr_t) num); break; case AT_MODEM_CONTROL_SETID: printf("\nModem control - Set ID '%s'\n", num); break; case AT_MODEM_CONTROL_RESTART: printf("\nModem control - Restart %d\n", (int) (intptr_t) num); break; case AT_MODEM_CONTROL_DTE_TIMEOUT: printf("\nModem control - Set DTE timeout %d\n", (int) (intptr_t) num); break; default: printf("\nModem control - operation %d\n", op); break; } /*endswitch*/ return 0; } /*- End of function --------------------------------------------------------*/ static int at_tx_handler(at_state_t *s, void *user_data, const uint8_t *buf, size_t len) { int i; for (i = 0; i < len; i++) { response_buf[response_buf_ptr++] = buf[i]; putchar(buf[i]); } response_buf[response_buf_ptr] = '\0'; return 0; } /*- End of function --------------------------------------------------------*/ int main(int argc, char *argv[]) { at_state_t at_state; if (at_init(&at_state, at_tx_handler, NULL, modem_call_control, NULL) == NULL) { fprintf(stderr, "Cannot start the AT interpreter\n"); exit(2); } if (general_test(&at_state)) { printf("Tests failed.\n"); exit(2); } printf("Tests passed.\n"); return 0; } /*- End of function --------------------------------------------------------*/ /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/tests/time_scale_tests.c0000664000175000017500000001152311422612267017441 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * time_scale_tests.c * * Written by Steve Underwood * * Copyright (C) 2004 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License version 2, as * published by the Free Software Foundation. * * 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., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \page time_scale_tests_page Time scaling tests \section time_scale_tests_page_sec_1 What does it do? These tests run a speech file through the time scaling routines. \section time_scale_tests_page_sec_2 How are the tests run? These tests process a speech file called pre_time_scale.wav. This file should contain 8000 sample/second 16 bits/sample linear audio. The tests read this file, change the time scale of its contents, and write the resulting audio to post_time_scale.wav. This file also contains 8000 sample/second 16 bits/sample linear audio. */ #if defined(HAVE_CONFIG_H) #include "config.h" #endif #include #include #include #include #include #include "spandsp.h" #include "spandsp/private/time_scale.h" #define BLOCK_LEN 160 #define IN_FILE_NAME "../test-data/local/short_nb_voice.wav" #define OUT_FILE_NAME "time_scale_result.wav" int main(int argc, char *argv[]) { SNDFILE *inhandle; SNDFILE *outhandle; SF_INFO info; int16_t in[BLOCK_LEN]; int16_t out[5*(BLOCK_LEN + TIME_SCALE_MAX_SAMPLE_RATE/TIME_SCALE_MIN_PITCH)]; int frames; int new_frames; int out_frames; int count; int max; time_scale_state_t state; float rate; float sample_rate; const char *in_file_name; int sweep_rate; int opt; rate = 1.8f; sweep_rate = FALSE; in_file_name = IN_FILE_NAME; while ((opt = getopt(argc, argv, "i:r:s")) != -1) { switch (opt) { case 'i': in_file_name = optarg; break; case 'r': rate = atof(optarg); break; case 's': sweep_rate = TRUE; break; default: //usage(); exit(2); break; } } if ((inhandle = sf_open(in_file_name, SFM_READ, &info)) == NULL) { printf(" Cannot open audio file '%s'\n", in_file_name); exit(2); } if (info.channels != 1) { printf(" Unexpected number of channels in audio file '%s'\n", in_file_name); exit(2); } sample_rate = info.samplerate; memset(&info, 0, sizeof(info)); info.frames = 0; info.samplerate = sample_rate; info.channels = 1; info.format = SF_FORMAT_WAV | SF_FORMAT_PCM_16; info.sections = 1; info.seekable = 1; if ((outhandle = sf_open(OUT_FILE_NAME, SFM_WRITE, &info)) == NULL) { fprintf(stderr, " Cannot create audio file '%s'\n", OUT_FILE_NAME); exit(2); } if ((time_scale_init(&state, (int) sample_rate, rate)) == NULL) { fprintf(stderr, " Cannot start the time scaler\n"); exit(2); } max = time_scale_max_output_len(&state, BLOCK_LEN); printf("Rate is %f, longest output block is %d\n", rate, max); count = 0; while ((frames = sf_readf_short(inhandle, in, BLOCK_LEN))) { new_frames = time_scale(&state, out, in, frames); out_frames = sf_writef_short(outhandle, out, new_frames); if (out_frames != new_frames) { fprintf(stderr, " Error writing audio file\n"); exit(2); } if (sweep_rate && ++count > 100) { if (rate > 0.5f) { rate -= 0.1f; if (rate >= 0.99f && rate <= 1.01f) rate -= 0.1f; time_scale_init(&state, SAMPLE_RATE, rate); max = time_scale_max_output_len(&state, BLOCK_LEN); printf("Rate is %f, longest output block is %d\n", rate, max); } count = 0; } } if (sf_close(inhandle) != 0) { printf(" Cannot close audio file '%s'\n", in_file_name); exit(2); } if (sf_close(outhandle) != 0) { printf(" Cannot close audio file '%s'\n", OUT_FILE_NAME); exit(2); } return 0; } /*- End of function --------------------------------------------------------*/ /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/tests/complex_tests.c0000664000175000017500000000426611422612266017010 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * complex.c * * Written by Steve Underwood * * Copyright (C) 2008 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License version 2, as * published by the Free Software Foundation. * * 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., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \page complex_tests_page Complex arithmetic tests \section complex_tests_page_sec_1 What does it do? \section complex_tests_page_sec_2 How is it used? */ #if defined(HAVE_CONFIG_H) #include "config.h" #endif #include #include #include #include #if defined(HAVE_TGMATH_H) #include #endif #if defined(HAVE_MATH_H) #include #endif #include "floating_fudge.h" #include #include "spandsp.h" int main(int argc, char *argv[]) { complexf_t fa; complexf_t fb; complexf_t fz; complexi16_t i16a; complexi16_t i16b; complexi16_t i16z; #if 0 complexi32_t i32a; complexi32_t i32b; complexi32_t i32z; #endif fa = complex_setf(0.5f, 0.25f); fb = complex_setf(0.25f, 0.5f); fz = complex_mulf(&fa, &fb); printf("(%f, %f) * (%f, %f) => (%f, %f)\n", fa.re, fa.im, fb.re, fb.im, fz.re, fz.im); i16a = complex_seti16(16383, 8191); i16b = complex_seti16(8191, 16383); i16z = complex_mul_q1_15(&i16a, &i16b); printf("(%f, %f) * (%f, %f) => (%f, %f)\n", i16a.re/32768.0, i16a.im/32768.0, i16b.re/32768.0, i16b.im/32768.0, i16z.re/32768.0, i16z.im/32768.0); printf("Tests passed.\n"); return 0; } /*- End of function --------------------------------------------------------*/ /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/tests/t38_terminal_to_gateway_tests.c0000664000175000017500000004125411422612267022074 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * t38_terminal_to_gateway_tests.c - Joint tests for the T.38 FoIP terminal and gateway modules. * * Written by Steve Underwood * * Copyright (C) 2005, 2006 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License version 2, as * published by the Free Software Foundation. * * 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., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \file */ /*! \page t38_terminal_to_gateway_tests_page T.38 mixed gateway and termination tests \section t38_terminal_to_gateway_tests_page_sec_1 What does it do? These tests exercise the path T.38 termination -> T.38 gateway -> FAX machine */ /* Enable the following definition to enable direct probing into the FAX structures */ //#define WITH_SPANDSP_INTERNALS #if defined(HAVE_CONFIG_H) #include #endif #if defined(HAVE_FL_FL_H) && defined(HAVE_FL_FL_CARTESIAN_H) && defined(HAVE_FL_FL_AUDIO_METER_H) #define ENABLE_GUI #endif #include #include #include #include #include #include #include #if !defined(_WIN32) #include #endif //#if defined(WITH_SPANDSP_INTERNALS) #define SPANDSP_EXPOSE_INTERNAL_STRUCTURES //#endif #include "spandsp.h" #include "spandsp-sim.h" #if defined(ENABLE_GUI) #include "media_monitor.h" #endif #include "fax_utils.h" #define SAMPLES_PER_CHUNK 160 #define INPUT_FILE_NAME "../test-data/itu/fax/itutests.tif" #define OUTPUT_FILE_NAME "t38.tif" #define OUTPUT_FILE_NAME_WAVE "t38_terminal_to_gateway.wav" t38_terminal_state_t *t38_state_a; t38_gateway_state_t *t38_state_b; fax_state_t *fax_state_b; g1050_state_t *path_a_to_b; g1050_state_t *path_b_to_a; double when = 0.0; int done[2] = {FALSE, FALSE}; int succeeded[2] = {FALSE, FALSE}; int simulate_incrementing_repeats = FALSE; static int phase_b_handler(t30_state_t *s, void *user_data, int result) { int i; char tag[20]; i = (int) (intptr_t) user_data; snprintf(tag, sizeof(tag), "%c: Phase B", i); printf("%c: Phase B handler on channel %c - (0x%X) %s\n", i, i, result, t30_frametype(result)); log_rx_parameters(s, tag); return T30_ERR_OK; } /*- End of function --------------------------------------------------------*/ static int phase_d_handler(t30_state_t *s, void *user_data, int result) { int i; char tag[20]; i = (int) (intptr_t) user_data; snprintf(tag, sizeof(tag), "%c: Phase D", i); printf("%c: Phase D handler on channel %c - (0x%X) %s\n", i, i, result, t30_frametype(result)); log_transfer_statistics(s, tag); log_tx_parameters(s, tag); log_rx_parameters(s, tag); return T30_ERR_OK; } /*- End of function --------------------------------------------------------*/ static void phase_e_handler(t30_state_t *s, void *user_data, int result) { int i; t30_stats_t t; char tag[20]; i = (int) (intptr_t) user_data; snprintf(tag, sizeof(tag), "%c: Phase E", i); printf("%c: Phase E handler on channel %c - (%d) %s\n", i, i, result, t30_completion_code_to_str(result)); log_transfer_statistics(s, tag); log_tx_parameters(s, tag); log_rx_parameters(s, tag); t30_get_transfer_statistics(s, &t); succeeded[i - 'A'] = (result == T30_ERR_OK) && (t.pages_tx == 12 || t.pages_rx == 12); done[i - 'A'] = TRUE; } /*- End of function --------------------------------------------------------*/ static int tx_packet_handler_a(t38_core_state_t *s, void *user_data, const uint8_t *buf, int len, int count) { t38_terminal_state_t *t; int i; static int subst_seq = 0; /* This routine queues messages between two instances of T.38 processing */ t = (t38_terminal_state_t *) user_data; if (simulate_incrementing_repeats) { for (i = 0; i < count; i++) { span_log(&s->logging, SPAN_LOG_FLOW, "Send seq %d, len %d\n", subst_seq, len); g1050_put(path_a_to_b, buf, len, subst_seq, when); subst_seq = (subst_seq + 1) & 0xFFFF; } } else { span_log(&s->logging, SPAN_LOG_FLOW, "Send seq %d, len %d, count %d\n", s->tx_seq_no, len, count); for (i = 0; i < count; i++) g1050_put(path_a_to_b, buf, len, s->tx_seq_no, when); } return 0; } /*- End of function --------------------------------------------------------*/ static int tx_packet_handler_b(t38_core_state_t *s, void *user_data, const uint8_t *buf, int len, int count) { t38_terminal_state_t *t; int i; static int subst_seq = 0; /* This routine queues messages between two instances of T.38 processing */ t = (t38_terminal_state_t *) user_data; if (simulate_incrementing_repeats) { for (i = 0; i < count; i++) { span_log(&s->logging, SPAN_LOG_FLOW, "Send seq %d, len %d\n", subst_seq, len); g1050_put(path_b_to_a, buf, len, subst_seq, when); subst_seq = (subst_seq + 1) & 0xFFFF; } } else { span_log(&s->logging, SPAN_LOG_FLOW, "Send seq %d, len %d, count %d\n", s->tx_seq_no, len, count); for (i = 0; i < count; i++) g1050_put(path_b_to_a, buf, len, s->tx_seq_no, when); } return 0; } /*- End of function --------------------------------------------------------*/ int main(int argc, char *argv[]) { int16_t t38_amp_b[SAMPLES_PER_CHUNK]; int16_t t30_amp_b[SAMPLES_PER_CHUNK]; int16_t out_amp[2*SAMPLES_PER_CHUNK]; int t38_len_b; int t30_len_b; int msg_len; uint8_t msg[1024]; int log_audio; int outframes; SNDFILE *wave_handle; int t38_version; int use_ecm; int use_tep; int feedback_audio; int use_transmit_on_idle; const char *input_file_name; int i; int seq_no; int g1050_model_no; int g1050_speed_pattern_no; double tx_when; double rx_when; int use_gui; int supported_modems; int opt; t30_state_t *t30; t38_core_state_t *t38_core; logging_state_t *logging; log_audio = FALSE; t38_version = 1; use_ecm = FALSE; input_file_name = INPUT_FILE_NAME; simulate_incrementing_repeats = FALSE; g1050_model_no = 0; g1050_speed_pattern_no = 1; use_gui = FALSE; use_tep = FALSE; feedback_audio = FALSE; use_transmit_on_idle = TRUE; supported_modems = T30_SUPPORT_V27TER | T30_SUPPORT_V29 | T30_SUPPORT_V17; while ((opt = getopt(argc, argv, "efgi:Ilm:M:s:tv:")) != -1) { switch (opt) { case 'e': use_ecm = TRUE; break; case 'f': feedback_audio = TRUE; break; case 'g': #if defined(ENABLE_GUI) use_gui = TRUE; #else fprintf(stderr, "Graphical monitoring not available\n"); exit(2); #endif break; case 'i': input_file_name = optarg; break; case 'I': simulate_incrementing_repeats = TRUE; break; case 'l': log_audio = TRUE; break; case 'm': supported_modems = atoi(optarg); break; case 'M': g1050_model_no = optarg[0] - 'A' + 1; break; case 's': g1050_speed_pattern_no = atoi(optarg); break; case 't': use_tep = TRUE; break; case 'v': t38_version = atoi(optarg); break; default: //usage(); exit(2); break; } } printf("Using T.38 version %d\n", t38_version); if (use_ecm) printf("Using ECM\n"); wave_handle = NULL; if (log_audio) { if ((wave_handle = sf_open_telephony_write(OUTPUT_FILE_NAME_WAVE, 2)) == NULL) { fprintf(stderr, " Cannot create audio file '%s'\n", OUTPUT_FILE_NAME_WAVE); exit(2); } } srand48(0x1234567); if ((path_a_to_b = g1050_init(g1050_model_no, g1050_speed_pattern_no, 100, 33)) == NULL) { fprintf(stderr, "Failed to start IP network path model\n"); exit(2); } if ((path_b_to_a = g1050_init(g1050_model_no, g1050_speed_pattern_no, 100, 33)) == NULL) { fprintf(stderr, "Failed to start IP network path model\n"); exit(2); } if ((t38_state_a = t38_terminal_init(NULL, TRUE, tx_packet_handler_a, &t38_state_b)) == NULL) { fprintf(stderr, "Cannot start the T.38 channel\n"); exit(2); } t30 = t38_terminal_get_t30_state(t38_state_a); t38_core = t38_terminal_get_t38_core_state(t38_state_a); t38_set_t38_version(t38_core, t38_version); logging = t38_terminal_get_logging_state(t38_state_a); span_log_set_level(logging, SPAN_LOG_DEBUG | SPAN_LOG_SHOW_TAG | SPAN_LOG_SHOW_SAMPLE_TIME); span_log_set_tag(logging, "T.38-A"); logging = t38_core_get_logging_state(t38_core); span_log_set_level(logging, SPAN_LOG_DEBUG | SPAN_LOG_SHOW_TAG | SPAN_LOG_SHOW_SAMPLE_TIME); span_log_set_tag(logging, "T.38-A"); logging = t30_get_logging_state(t30); span_log_set_level(logging, SPAN_LOG_DEBUG | SPAN_LOG_SHOW_TAG | SPAN_LOG_SHOW_SAMPLE_TIME); span_log_set_tag(logging, "T.38-A"); t30_set_supported_modems(t30, supported_modems); t30_set_tx_ident(t30, "11111111"); t30_set_tx_file(t30, input_file_name, -1, -1); t30_set_phase_b_handler(t30, phase_b_handler, (void *) (intptr_t) 'A'); t30_set_phase_d_handler(t30, phase_d_handler, (void *) (intptr_t) 'A'); t30_set_phase_e_handler(t30, phase_e_handler, (void *) (intptr_t) 'A'); t30_set_ecm_capability(t30, use_ecm); if (use_ecm) t30_set_supported_compressions(t30, T30_SUPPORT_T4_1D_COMPRESSION | T30_SUPPORT_T4_2D_COMPRESSION | T30_SUPPORT_T6_COMPRESSION); if ((t38_state_b = t38_gateway_init(NULL, tx_packet_handler_b, &t38_state_a)) == NULL) { fprintf(stderr, "Cannot start the T.38 channel\n"); exit(2); } t38_core = t38_gateway_get_t38_core_state(t38_state_b); t38_gateway_set_transmit_on_idle(t38_state_b, use_transmit_on_idle); t38_set_t38_version(t38_core, t38_version); t38_gateway_set_ecm_capability(t38_state_b, use_ecm); logging = t38_gateway_get_logging_state(t38_state_b); span_log_set_level(logging, SPAN_LOG_DEBUG | SPAN_LOG_SHOW_TAG | SPAN_LOG_SHOW_SAMPLE_TIME); span_log_set_tag(logging, "T.38-B"); logging = t38_core_get_logging_state(t38_core); span_log_set_level(logging, SPAN_LOG_DEBUG | SPAN_LOG_SHOW_TAG | SPAN_LOG_SHOW_SAMPLE_TIME); span_log_set_tag(logging, "T.38-B"); memset(t38_amp_b, 0, sizeof(t38_amp_b)); if ((fax_state_b = fax_init(NULL, FALSE)) == NULL) { fprintf(stderr, "Cannot start FAX\n"); exit(2); } t30 = fax_get_t30_state(fax_state_b); fax_set_transmit_on_idle(fax_state_b, use_transmit_on_idle); fax_set_tep_mode(fax_state_b, use_tep); t30_set_supported_modems(t30, supported_modems); t30_set_tx_ident(t30, "22222222"); t30_set_tx_nsf(t30, (const uint8_t *) "\x50\x00\x00\x00Spandsp\x00", 12); t30_set_rx_file(t30, OUTPUT_FILE_NAME, -1); t30_set_phase_b_handler(t30, phase_b_handler, (void *) (intptr_t) 'B'); t30_set_phase_d_handler(t30, phase_d_handler, (void *) (intptr_t) 'B'); t30_set_phase_e_handler(t30, phase_e_handler, (void *) (intptr_t) 'B'); t30_set_ecm_capability(t30, use_ecm); if (use_ecm) t30_set_supported_compressions(t30, T30_SUPPORT_T4_1D_COMPRESSION | T30_SUPPORT_T4_2D_COMPRESSION | T30_SUPPORT_T6_COMPRESSION); logging = fax_get_logging_state(fax_state_b); span_log_set_level(logging, SPAN_LOG_DEBUG | SPAN_LOG_SHOW_TAG | SPAN_LOG_SHOW_SAMPLE_TIME); span_log_set_tag(logging, "FAX-B "); logging = t30_get_logging_state(t30); span_log_set_level(logging, SPAN_LOG_DEBUG | SPAN_LOG_SHOW_TAG | SPAN_LOG_SHOW_SAMPLE_TIME); span_log_set_tag(logging, "FAX-B "); memset(t30_amp_b, 0, sizeof(t30_amp_b)); #if defined(ENABLE_GUI) if (use_gui) start_media_monitor(); #endif for (;;) { logging = t38_terminal_get_logging_state(t38_state_a); span_log_bump_samples(logging, SAMPLES_PER_CHUNK); t38_core = t38_terminal_get_t38_core_state(t38_state_a); logging = t38_core_get_logging_state(t38_core); span_log_bump_samples(logging, SAMPLES_PER_CHUNK); t30 = t38_terminal_get_t30_state(t38_state_a); logging = t30_get_logging_state(t30); span_log_bump_samples(logging, SAMPLES_PER_CHUNK); logging = t38_gateway_get_logging_state(t38_state_b); span_log_bump_samples(logging, SAMPLES_PER_CHUNK); t38_core = t38_gateway_get_t38_core_state(t38_state_b); logging = t38_core_get_logging_state(t38_core); span_log_bump_samples(logging, SAMPLES_PER_CHUNK); logging = fax_get_logging_state(fax_state_b); span_log_bump_samples(logging, SAMPLES_PER_CHUNK); t30 = fax_get_t30_state(fax_state_b); logging = t30_get_logging_state(t30); span_log_bump_samples(logging, SAMPLES_PER_CHUNK); memset(out_amp, 0, sizeof(out_amp)); t38_terminal_send_timeout(t38_state_a, SAMPLES_PER_CHUNK); t30_len_b = fax_tx(fax_state_b, t30_amp_b, SAMPLES_PER_CHUNK); if (!use_transmit_on_idle) { /* The receive side always expects a full block of samples, but the transmit side may not be sending any when it doesn't need to. We may need to pad with some silence. */ if (t30_len_b < SAMPLES_PER_CHUNK) { memset(t30_amp_b + t30_len_b, 0, sizeof(int16_t)*(SAMPLES_PER_CHUNK - t30_len_b)); t30_len_b = SAMPLES_PER_CHUNK; } } if (feedback_audio) { for (i = 0; i < t30_len_b; i++) t30_amp_b[i] += t38_amp_b[i] >> 1; } if (log_audio) { for (i = 0; i < t30_len_b; i++) out_amp[2*i + 1] = t30_amp_b[i]; } if (t38_gateway_rx(t38_state_b, t30_amp_b, t30_len_b)) break; t38_len_b = t38_gateway_tx(t38_state_b, t38_amp_b, SAMPLES_PER_CHUNK); if (!use_transmit_on_idle) { if (t38_len_b < SAMPLES_PER_CHUNK) { memset(t38_amp_b + t38_len_b, 0, sizeof(int16_t)*(SAMPLES_PER_CHUNK - t38_len_b)); t38_len_b = SAMPLES_PER_CHUNK; } } if (log_audio) { for (i = 0; i < t38_len_b; i++) out_amp[2*i] = t38_amp_b[i]; } if (fax_rx(fax_state_b, t38_amp_b, SAMPLES_PER_CHUNK)) break; when += (float) SAMPLES_PER_CHUNK/(float) SAMPLE_RATE; while ((msg_len = g1050_get(path_a_to_b, msg, 1024, when, &seq_no, &tx_when, &rx_when)) >= 0) { #if defined(ENABLE_GUI) if (use_gui) media_monitor_rx(seq_no, tx_when, rx_when); #endif t38_core = t38_gateway_get_t38_core_state(t38_state_b); t38_core_rx_ifp_packet(t38_core, msg, msg_len, seq_no); } while ((msg_len = g1050_get(path_b_to_a, msg, 1024, when, &seq_no, &tx_when, &rx_when)) >= 0) { #if defined(ENABLE_GUI) if (use_gui) media_monitor_rx(seq_no, tx_when, rx_when); #endif t38_core = t38_terminal_get_t38_core_state(t38_state_a); t38_core_rx_ifp_packet(t38_core, msg, msg_len, seq_no); } if (log_audio) { outframes = sf_writef_short(wave_handle, out_amp, SAMPLES_PER_CHUNK); if (outframes != SAMPLES_PER_CHUNK) break; } if (done[0] && done[1]) break; #if defined(ENABLE_GUI) if (use_gui) media_monitor_update_display(); #endif } t38_terminal_release(t38_state_a); fax_release(fax_state_b); if (log_audio) { if (sf_close(wave_handle) != 0) { fprintf(stderr, " Cannot close audio file '%s'\n", OUTPUT_FILE_NAME_WAVE); exit(2); } } if (!succeeded[0] || !succeeded[1]) { printf("Tests failed\n"); exit(2); } printf("Tests passed\n"); return 0; } /*- End of function --------------------------------------------------------*/ /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/tests/awgn_tests.c0000664000175000017500000001066411422612266016274 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * awgn_tests.c * * Written by Steve Underwood * * Copyright (C) 2001 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License version 2, as * published by the Free Software Foundation. * * 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., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \page awgn_tests_page AWGN tests \section awgn_tests_page_sec_1 What does it do? */ #if defined(HAVE_CONFIG_H) #include "config.h" #endif #include #include #include //#if defined(WITH_SPANDSP_INTERNALS) #define SPANDSP_EXPOSE_INTERNAL_STRUCTURES //#endif #include "spandsp.h" #if !defined(M_PI) # define M_PI 3.14159265358979323846 /* pi */ #endif #define OUT_FILE_NAME "awgn.wav" /* Some simple sanity tests for the Gaussian noise generation routines */ int main(int argc, char *argv[]) { int i; int j; int clip_high; int clip_low; int total_samples; int idum = 1234567; int16_t value; double total; double x; double p; double o; double error; int bins[65536]; awgn_state_t noise_source; /* Generate noise at several RMS levels between -50dBm and 0dBm. Noise is generated for a large number of samples (1,000,000), and the RMS value of the noise is calculated along the way. If the resulting level is close to the requested RMS level, at least the scaling of the noise should be Ok. At high level some clipping may distort the result a little. */ for (j = -50; j <= 0; j += 5) { clip_high = 0; clip_low = 0; total = 0.0; awgn_init_dbm0(&noise_source, idum, (float) j); total_samples = 1000000; for (i = 0; i < total_samples; i++) { value = awgn(&noise_source); if (value == 32767) clip_high++; else if (value == -32768) clip_low++; total += ((double) value)*((double) value); } error = 100.0*(1.0 - sqrt(total/total_samples)/noise_source.rms); printf("RMS = %.3f (expected %d) %.2f%% error [clipped samples %d+%d]\n", log10(sqrt(total/total_samples)/32768.0)*20.0 + DBM0_MAX_POWER, j, error, clip_low, clip_high); /* We don't check the result at 0dBm0, as there will definitely be a lot of error due to clipping */ if (j < 0 && fabs(error) > 0.2) { printf("Test failed.\n"); exit(2); } } /* Now look at the statistical spread of the results, by collecting data in bins from a large number of samples. Use a fairly high noise level, but low enough to avoid significant clipping. Use the Gaussian model to predict the real probability, and present the results for graphing. */ memset(bins, 0, sizeof(bins)); clip_high = 0; clip_low = 0; awgn_init_dbm0(&noise_source, idum, -15); total_samples = 10000000; for (i = 0; i < total_samples; i++) { value = awgn(&noise_source); if (value == 32767) clip_high++; else if (value == -32768) clip_low++; bins[value + 32768]++; } o = noise_source.rms; for (i = 0; i < 65536 - 10; i++) { x = i - 32768; /* Find the real probability for this bin */ p = (1.0/(o*sqrt(2.0*M_PI)))*exp(-(x*x)/(2.0*o*o)); /* Now do a little smoothing on the real data to get a reasonably steady answer */ x = 0; for (j = 0; j < 10; j++) x += bins[i + j]; x /= 10.0; x /= total_samples; /* Now send it out for graphing. */ printf("%6d %.7f %.7f\n", i - 32768, x, p); } printf("Tests passed.\n"); return 0; } /*- End of function --------------------------------------------------------*/ /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/tests/udptl.h0000664000175000017500000001235411422613737015255 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * udptl.c * * Written by Steve Underwood * * Copyright (C) 2009 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License version 2, as * published by the Free Software Foundation. * * 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., 675 Mass Ave, Cambridge, MA 02139, USA. */ #if !defined(_SPANDSP_UDPTL_H_) #define _SPANDSP_UDPTL_H_ #define LOCAL_FAX_MAX_DATAGRAM 400 #define LOCAL_FAX_MAX_FEC_PACKETS 5 #define UDPTL_BUF_MASK 15 typedef int (udptl_rx_packet_handler_t) (void *user_data, const uint8_t msg[], int len, int seq_no); typedef struct { int buf_len; uint8_t buf[LOCAL_FAX_MAX_DATAGRAM]; } udptl_fec_tx_buffer_t; typedef struct { int buf_len; uint8_t buf[LOCAL_FAX_MAX_DATAGRAM]; int fec_len[LOCAL_FAX_MAX_FEC_PACKETS]; uint8_t fec[LOCAL_FAX_MAX_FEC_PACKETS][LOCAL_FAX_MAX_DATAGRAM]; int fec_span; int fec_entries; } udptl_fec_rx_buffer_t; struct udptl_state_s { udptl_rx_packet_handler_t *rx_packet_handler; void *user_data; /*! This option indicates the error correction scheme used in transmitted UDPTL packets. */ int error_correction_scheme; /*! This option indicates the number of error correction entries transmitted in UDPTL packets. */ int error_correction_entries; /*! This option indicates the span of the error correction entries in transmitted UDPTL packets (FEC only). */ int error_correction_span; /*! This option indicates the maximum size of a datagram that can be accepted by the remote device. */ int far_max_datagram_size; /*! This option indicates the maximum size of a datagram that we are prepared to accept. */ int local_max_datagram_size; int verbose; int tx_seq_no; int rx_seq_no; int rx_expected_seq_no; udptl_fec_tx_buffer_t tx[UDPTL_BUF_MASK + 1]; udptl_fec_rx_buffer_t rx[UDPTL_BUF_MASK + 1]; }; enum { UDPTL_ERROR_CORRECTION_NONE, UDPTL_ERROR_CORRECTION_FEC, UDPTL_ERROR_CORRECTION_REDUNDANCY }; typedef struct udptl_state_s udptl_state_t; #if defined(__cplusplus) extern "C" { #endif /*! \brief Process an arriving UDPTL packet. \param s The UDPTL context. \param buf The UDPTL packet buffer. \param len The length of the packet. \return 0 for OK. */ int udptl_rx_packet(udptl_state_t *s, const uint8_t buf[], int len); /*! \brief Construct a UDPTL packet, ready for transmission. \param s The UDPTL context. \param buf The UDPTL packet buffer. \param msg The primary packet. \param len The length of the primary packet. \return The length of the constructed UDPTL packet. */ int udptl_build_packet(udptl_state_t *s, uint8_t buf[], const uint8_t msg[], int msg_len); /*! \brief Change the error correction settings of a UDPTL context. \param s The UDPTL context. \param ec_scheme One of the optional error correction schemes. \param span The packet span over which error correction should be applied. \param entries The number of error correction entries to include in packets. \return 0 for OK. */ int udptl_set_error_correction(udptl_state_t *s, int ec_scheme, int span, int entries); /*! \brief Check the error correction settings of a UDPTL context. \param s The UDPTL context. \param ec_scheme One of the optional error correction schemes. \param span The packet span over which error correction is being applied. \param entries The number of error correction being included in packets. \return 0 for OK. */ int udptl_get_error_correction(udptl_state_t *s, int *ec_scheme, int *span, int *entries); int udptl_set_local_max_datagram(udptl_state_t *s, int max_datagram); int udptl_get_local_max_datagram(udptl_state_t *s); int udptl_set_far_max_datagram(udptl_state_t *s, int max_datagram); int udptl_get_far_max_datagram(udptl_state_t *s); /*! \brief Initialise a UDPTL context. \param s The UDPTL context. \param ec_scheme One of the optional error correction schemes. \param span The packet span over which error correction should be applied. \param entries The number of error correction entries to include in packets. \param rx_packet_handler The callback function, used to report arriving IFP packets. \param user_data An opaque pointer supplied to rx_packet_handler. \return A pointer to the UDPTL context, or NULL if there was a problem. */ udptl_state_t *udptl_init(udptl_state_t *s, int ec_scheme, int span, int entries, udptl_rx_packet_handler_t rx_packet_handler, void *user_data); /*! \brief Release a UDPTL context. \param s The UDPTL context. \return 0 for OK. */ int udptl_release(udptl_state_t *s); #if defined(__cplusplus) } #endif #endif /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/tests/Makefile.in0000664000175000017500000020624611516506035016022 0ustar steveusteveu# Makefile.in generated by automake 1.9.6 from Makefile.am. # @configure_input@ # Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, # 2003, 2004, 2005 Free Software Foundation, Inc. # This Makefile.in is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY, to the extent permitted by law; without # even the implied warranty of MERCHANTABILITY or FITNESS FOR A # PARTICULAR PURPOSE. @SET_MAKE@ srcdir = @srcdir@ top_srcdir = @top_srcdir@ VPATH = @srcdir@ pkgdatadir = $(datadir)/@PACKAGE@ pkglibdir = $(libdir)/@PACKAGE@ pkgincludedir = $(includedir)/@PACKAGE@ top_builddir = .. am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd INSTALL = @INSTALL@ install_sh_DATA = $(install_sh) -c -m 644 install_sh_PROGRAM = $(install_sh) -c install_sh_SCRIPT = $(install_sh) -c INSTALL_HEADER = $(INSTALL_DATA) transform = $(program_transform_name) NORMAL_INSTALL = : PRE_INSTALL = : POST_INSTALL = : NORMAL_UNINSTALL = : PRE_UNINSTALL = : POST_UNINSTALL = : build_triplet = @build@ host_triplet = @host@ noinst_PROGRAMS = adsi_tests$(EXEEXT) async_tests$(EXEEXT) \ at_interpreter_tests$(EXEEXT) awgn_tests$(EXEEXT) \ bell_mf_rx_tests$(EXEEXT) bell_mf_tx_tests$(EXEEXT) \ bert_tests$(EXEEXT) bit_operations_tests$(EXEEXT) \ bitstream_tests$(EXEEXT) complex_tests$(EXEEXT) \ complex_vector_float_tests$(EXEEXT) \ complex_vector_int_tests$(EXEEXT) crc_tests$(EXEEXT) \ dc_restore_tests$(EXEEXT) dds_tests$(EXEEXT) \ dtmf_rx_tests$(EXEEXT) dtmf_tx_tests$(EXEEXT) \ echo_tests$(EXEEXT) fax_decode$(EXEEXT) fax_tests$(EXEEXT) \ fsk_tests$(EXEEXT) g1050_tests$(EXEEXT) g168_tests$(EXEEXT) \ g711_tests$(EXEEXT) g722_tests$(EXEEXT) g726_tests$(EXEEXT) \ gsm0610_tests$(EXEEXT) hdlc_tests$(EXEEXT) \ ima_adpcm_tests$(EXEEXT) image_translate_tests$(EXEEXT) \ line_model_tests$(EXEEXT) logging_tests$(EXEEXT) \ lpc10_tests$(EXEEXT) make_g168_css$(EXEEXT) \ modem_connect_tones_tests$(EXEEXT) modem_echo_tests$(EXEEXT) \ noise_tests$(EXEEXT) oki_adpcm_tests$(EXEEXT) \ playout_tests$(EXEEXT) plc_tests$(EXEEXT) \ power_meter_tests$(EXEEXT) queue_tests$(EXEEXT) \ r2_mf_rx_tests$(EXEEXT) r2_mf_tx_tests$(EXEEXT) \ rfc2198_sim_tests$(EXEEXT) saturated_tests$(EXEEXT) \ schedule_tests$(EXEEXT) sig_tone_tests$(EXEEXT) \ super_tone_rx_tests$(EXEEXT) super_tone_tx_tests$(EXEEXT) \ swept_tone_tests$(EXEEXT) t4_tests$(EXEEXT) t31_tests$(EXEEXT) \ t38_core_tests$(EXEEXT) t38_decode$(EXEEXT) \ t38_gateway_tests$(EXEEXT) \ t38_gateway_to_terminal_tests$(EXEEXT) \ t38_non_ecm_buffer_tests$(EXEEXT) t38_terminal_tests$(EXEEXT) \ t38_terminal_to_gateway_tests$(EXEEXT) \ time_scale_tests$(EXEEXT) timezone_tests$(EXEEXT) \ tone_detect_tests$(EXEEXT) tone_generate_tests$(EXEEXT) \ tsb85_tests$(EXEEXT) v17_tests$(EXEEXT) v18_tests$(EXEEXT) \ v22bis_tests$(EXEEXT) v27ter_tests$(EXEEXT) v29_tests$(EXEEXT) \ v42_tests$(EXEEXT) v42bis_tests$(EXEEXT) v8_tests$(EXEEXT) \ vector_float_tests$(EXEEXT) vector_int_tests$(EXEEXT) \ testadsi$(EXEEXT) testfax$(EXEEXT) tsb85_tests$(EXEEXT) subdir = tests DIST_COMMON = $(noinst_HEADERS) $(srcdir)/Makefile.am \ $(srcdir)/Makefile.in ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 am__aclocal_m4_deps = $(top_srcdir)/config/ax_compiler_vendor.m4 \ $(top_srcdir)/config/ax_check_real_file.m4 \ $(top_srcdir)/config/ax_fixed_point_machine.m4 \ $(top_srcdir)/config/ax_misaligned_access_fails.m4 \ $(top_srcdir)/config/ax_c99_features.m4 \ $(top_srcdir)/config/ax_check_export_capability.m4 \ $(top_srcdir)/configure.ac am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \ $(ACLOCAL_M4) mkinstalldirs = $(install_sh) -d CONFIG_HEADER = $(top_builddir)/src/config.h CONFIG_CLEAN_FILES = PROGRAMS = $(noinst_PROGRAMS) am_adsi_tests_OBJECTS = adsi_tests.$(OBJEXT) adsi_tests_OBJECTS = $(am_adsi_tests_OBJECTS) am__DEPENDENCIES_1 = adsi_tests_DEPENDENCIES = $(am__DEPENDENCIES_1) am_async_tests_OBJECTS = async_tests.$(OBJEXT) async_tests_OBJECTS = $(am_async_tests_OBJECTS) async_tests_DEPENDENCIES = $(am__DEPENDENCIES_1) am_at_interpreter_tests_OBJECTS = at_interpreter_tests.$(OBJEXT) at_interpreter_tests_OBJECTS = $(am_at_interpreter_tests_OBJECTS) at_interpreter_tests_DEPENDENCIES = $(am__DEPENDENCIES_1) am_awgn_tests_OBJECTS = awgn_tests.$(OBJEXT) awgn_tests_OBJECTS = $(am_awgn_tests_OBJECTS) awgn_tests_DEPENDENCIES = $(am__DEPENDENCIES_1) am_bell_mf_rx_tests_OBJECTS = bell_mf_rx_tests.$(OBJEXT) bell_mf_rx_tests_OBJECTS = $(am_bell_mf_rx_tests_OBJECTS) bell_mf_rx_tests_DEPENDENCIES = $(am__DEPENDENCIES_1) am_bell_mf_tx_tests_OBJECTS = bell_mf_tx_tests.$(OBJEXT) bell_mf_tx_tests_OBJECTS = $(am_bell_mf_tx_tests_OBJECTS) bell_mf_tx_tests_DEPENDENCIES = $(am__DEPENDENCIES_1) am_bert_tests_OBJECTS = bert_tests.$(OBJEXT) bert_tests_OBJECTS = $(am_bert_tests_OBJECTS) bert_tests_DEPENDENCIES = $(am__DEPENDENCIES_1) am_bit_operations_tests_OBJECTS = bit_operations_tests.$(OBJEXT) bit_operations_tests_OBJECTS = $(am_bit_operations_tests_OBJECTS) bit_operations_tests_DEPENDENCIES = $(am__DEPENDENCIES_1) am_bitstream_tests_OBJECTS = bitstream_tests.$(OBJEXT) bitstream_tests_OBJECTS = $(am_bitstream_tests_OBJECTS) bitstream_tests_DEPENDENCIES = $(am__DEPENDENCIES_1) am_complex_tests_OBJECTS = complex_tests.$(OBJEXT) complex_tests_OBJECTS = $(am_complex_tests_OBJECTS) complex_tests_DEPENDENCIES = $(am__DEPENDENCIES_1) am_complex_vector_float_tests_OBJECTS = \ complex_vector_float_tests.$(OBJEXT) complex_vector_float_tests_OBJECTS = \ $(am_complex_vector_float_tests_OBJECTS) complex_vector_float_tests_DEPENDENCIES = $(am__DEPENDENCIES_1) am_complex_vector_int_tests_OBJECTS = \ complex_vector_int_tests.$(OBJEXT) complex_vector_int_tests_OBJECTS = \ $(am_complex_vector_int_tests_OBJECTS) complex_vector_int_tests_DEPENDENCIES = $(am__DEPENDENCIES_1) am_crc_tests_OBJECTS = crc_tests.$(OBJEXT) crc_tests_OBJECTS = $(am_crc_tests_OBJECTS) crc_tests_DEPENDENCIES = $(am__DEPENDENCIES_1) am_dc_restore_tests_OBJECTS = dc_restore_tests.$(OBJEXT) dc_restore_tests_OBJECTS = $(am_dc_restore_tests_OBJECTS) dc_restore_tests_DEPENDENCIES = $(am__DEPENDENCIES_1) am_dds_tests_OBJECTS = dds_tests.$(OBJEXT) dds_tests_OBJECTS = $(am_dds_tests_OBJECTS) dds_tests_DEPENDENCIES = $(am__DEPENDENCIES_1) am_dtmf_rx_tests_OBJECTS = dtmf_rx_tests.$(OBJEXT) dtmf_rx_tests_OBJECTS = $(am_dtmf_rx_tests_OBJECTS) dtmf_rx_tests_DEPENDENCIES = $(am__DEPENDENCIES_1) am_dtmf_tx_tests_OBJECTS = dtmf_tx_tests.$(OBJEXT) dtmf_tx_tests_OBJECTS = $(am_dtmf_tx_tests_OBJECTS) dtmf_tx_tests_DEPENDENCIES = $(am__DEPENDENCIES_1) am_echo_tests_OBJECTS = echo_tests.$(OBJEXT) echo_monitor.$(OBJEXT) echo_tests_OBJECTS = $(am_echo_tests_OBJECTS) echo_tests_DEPENDENCIES = $(am__DEPENDENCIES_1) am_fax_decode_OBJECTS = fax_decode.$(OBJEXT) fax_decode_OBJECTS = $(am_fax_decode_OBJECTS) fax_decode_DEPENDENCIES = $(am__DEPENDENCIES_1) am_fax_tests_OBJECTS = fax_tests.$(OBJEXT) fax_utils.$(OBJEXT) fax_tests_OBJECTS = $(am_fax_tests_OBJECTS) fax_tests_DEPENDENCIES = $(am__DEPENDENCIES_1) am_fsk_tests_OBJECTS = fsk_tests.$(OBJEXT) fsk_tests_OBJECTS = $(am_fsk_tests_OBJECTS) fsk_tests_DEPENDENCIES = $(am__DEPENDENCIES_1) am_g1050_tests_OBJECTS = g1050_tests.$(OBJEXT) media_monitor.$(OBJEXT) g1050_tests_OBJECTS = $(am_g1050_tests_OBJECTS) g1050_tests_DEPENDENCIES = $(am__DEPENDENCIES_1) am_g168_tests_OBJECTS = g168_tests.$(OBJEXT) g168_tests_OBJECTS = $(am_g168_tests_OBJECTS) g168_tests_DEPENDENCIES = $(am__DEPENDENCIES_1) am_g711_tests_OBJECTS = g711_tests.$(OBJEXT) g711_tests_OBJECTS = $(am_g711_tests_OBJECTS) g711_tests_DEPENDENCIES = $(am__DEPENDENCIES_1) am_g722_tests_OBJECTS = g722_tests.$(OBJEXT) g722_tests_OBJECTS = $(am_g722_tests_OBJECTS) g722_tests_DEPENDENCIES = $(am__DEPENDENCIES_1) am_g726_tests_OBJECTS = g726_tests.$(OBJEXT) g726_tests_OBJECTS = $(am_g726_tests_OBJECTS) g726_tests_DEPENDENCIES = $(am__DEPENDENCIES_1) am_gsm0610_tests_OBJECTS = gsm0610_tests.$(OBJEXT) gsm0610_tests_OBJECTS = $(am_gsm0610_tests_OBJECTS) gsm0610_tests_DEPENDENCIES = $(am__DEPENDENCIES_1) am_hdlc_tests_OBJECTS = hdlc_tests.$(OBJEXT) hdlc_tests_OBJECTS = $(am_hdlc_tests_OBJECTS) hdlc_tests_DEPENDENCIES = $(am__DEPENDENCIES_1) am_ima_adpcm_tests_OBJECTS = ima_adpcm_tests.$(OBJEXT) ima_adpcm_tests_OBJECTS = $(am_ima_adpcm_tests_OBJECTS) ima_adpcm_tests_DEPENDENCIES = $(am__DEPENDENCIES_1) am_image_translate_tests_OBJECTS = image_translate_tests.$(OBJEXT) image_translate_tests_OBJECTS = $(am_image_translate_tests_OBJECTS) image_translate_tests_DEPENDENCIES = $(am__DEPENDENCIES_1) am_line_model_tests_OBJECTS = line_model_tests.$(OBJEXT) line_model_tests_OBJECTS = $(am_line_model_tests_OBJECTS) line_model_tests_DEPENDENCIES = $(am__DEPENDENCIES_1) am_logging_tests_OBJECTS = logging_tests.$(OBJEXT) logging_tests_OBJECTS = $(am_logging_tests_OBJECTS) logging_tests_DEPENDENCIES = $(am__DEPENDENCIES_1) am_lpc10_tests_OBJECTS = lpc10_tests.$(OBJEXT) lpc10_tests_OBJECTS = $(am_lpc10_tests_OBJECTS) lpc10_tests_DEPENDENCIES = $(am__DEPENDENCIES_1) am_make_g168_css_OBJECTS = make_g168_css.$(OBJEXT) make_g168_css_OBJECTS = $(am_make_g168_css_OBJECTS) make_g168_css_DEPENDENCIES = $(am__DEPENDENCIES_1) am_modem_connect_tones_tests_OBJECTS = \ modem_connect_tones_tests.$(OBJEXT) modem_connect_tones_tests_OBJECTS = \ $(am_modem_connect_tones_tests_OBJECTS) modem_connect_tones_tests_DEPENDENCIES = $(am__DEPENDENCIES_1) am_modem_echo_tests_OBJECTS = modem_echo_tests.$(OBJEXT) \ echo_monitor.$(OBJEXT) modem_echo_tests_OBJECTS = $(am_modem_echo_tests_OBJECTS) modem_echo_tests_DEPENDENCIES = $(am__DEPENDENCIES_1) am_noise_tests_OBJECTS = noise_tests.$(OBJEXT) noise_tests_OBJECTS = $(am_noise_tests_OBJECTS) noise_tests_DEPENDENCIES = $(am__DEPENDENCIES_1) am_oki_adpcm_tests_OBJECTS = oki_adpcm_tests.$(OBJEXT) oki_adpcm_tests_OBJECTS = $(am_oki_adpcm_tests_OBJECTS) oki_adpcm_tests_DEPENDENCIES = $(am__DEPENDENCIES_1) am_playout_tests_OBJECTS = playout_tests.$(OBJEXT) \ media_monitor.$(OBJEXT) playout_tests_OBJECTS = $(am_playout_tests_OBJECTS) playout_tests_DEPENDENCIES = $(am__DEPENDENCIES_1) am_plc_tests_OBJECTS = plc_tests.$(OBJEXT) plc_tests_OBJECTS = $(am_plc_tests_OBJECTS) plc_tests_DEPENDENCIES = $(am__DEPENDENCIES_1) am_power_meter_tests_OBJECTS = power_meter_tests.$(OBJEXT) power_meter_tests_OBJECTS = $(am_power_meter_tests_OBJECTS) power_meter_tests_DEPENDENCIES = $(am__DEPENDENCIES_1) am_queue_tests_OBJECTS = queue_tests.$(OBJEXT) queue_tests_OBJECTS = $(am_queue_tests_OBJECTS) queue_tests_DEPENDENCIES = $(am__DEPENDENCIES_1) am_r2_mf_rx_tests_OBJECTS = r2_mf_rx_tests.$(OBJEXT) r2_mf_rx_tests_OBJECTS = $(am_r2_mf_rx_tests_OBJECTS) r2_mf_rx_tests_DEPENDENCIES = $(am__DEPENDENCIES_1) am_r2_mf_tx_tests_OBJECTS = r2_mf_tx_tests.$(OBJEXT) r2_mf_tx_tests_OBJECTS = $(am_r2_mf_tx_tests_OBJECTS) r2_mf_tx_tests_DEPENDENCIES = $(am__DEPENDENCIES_1) am_rfc2198_sim_tests_OBJECTS = rfc2198_sim_tests.$(OBJEXT) \ media_monitor.$(OBJEXT) rfc2198_sim_tests_OBJECTS = $(am_rfc2198_sim_tests_OBJECTS) rfc2198_sim_tests_DEPENDENCIES = $(am__DEPENDENCIES_1) am_saturated_tests_OBJECTS = saturated_tests.$(OBJEXT) saturated_tests_OBJECTS = $(am_saturated_tests_OBJECTS) saturated_tests_DEPENDENCIES = $(am__DEPENDENCIES_1) am_schedule_tests_OBJECTS = schedule_tests.$(OBJEXT) schedule_tests_OBJECTS = $(am_schedule_tests_OBJECTS) schedule_tests_DEPENDENCIES = $(am__DEPENDENCIES_1) am_sig_tone_tests_OBJECTS = sig_tone_tests.$(OBJEXT) sig_tone_tests_OBJECTS = $(am_sig_tone_tests_OBJECTS) sig_tone_tests_DEPENDENCIES = $(am__DEPENDENCIES_1) am_super_tone_rx_tests_OBJECTS = super_tone_rx_tests.$(OBJEXT) super_tone_rx_tests_OBJECTS = $(am_super_tone_rx_tests_OBJECTS) super_tone_rx_tests_DEPENDENCIES = $(am__DEPENDENCIES_1) am_super_tone_tx_tests_OBJECTS = super_tone_tx_tests.$(OBJEXT) super_tone_tx_tests_OBJECTS = $(am_super_tone_tx_tests_OBJECTS) super_tone_tx_tests_DEPENDENCIES = $(am__DEPENDENCIES_1) am_swept_tone_tests_OBJECTS = swept_tone_tests.$(OBJEXT) swept_tone_tests_OBJECTS = $(am_swept_tone_tests_OBJECTS) swept_tone_tests_DEPENDENCIES = $(am__DEPENDENCIES_1) am_t31_tests_OBJECTS = t31_tests.$(OBJEXT) fax_utils.$(OBJEXT) \ media_monitor.$(OBJEXT) t31_tests_OBJECTS = $(am_t31_tests_OBJECTS) t31_tests_DEPENDENCIES = $(am__DEPENDENCIES_1) am_t38_core_tests_OBJECTS = t38_core_tests.$(OBJEXT) t38_core_tests_OBJECTS = $(am_t38_core_tests_OBJECTS) t38_core_tests_DEPENDENCIES = $(am__DEPENDENCIES_1) am_t38_decode_OBJECTS = t38_decode.$(OBJEXT) fax_utils.$(OBJEXT) \ pcap_parse.$(OBJEXT) udptl.$(OBJEXT) t38_decode_OBJECTS = $(am_t38_decode_OBJECTS) t38_decode_DEPENDENCIES = $(am__DEPENDENCIES_1) am_t38_gateway_tests_OBJECTS = t38_gateway_tests.$(OBJEXT) \ fax_utils.$(OBJEXT) media_monitor.$(OBJEXT) t38_gateway_tests_OBJECTS = $(am_t38_gateway_tests_OBJECTS) t38_gateway_tests_DEPENDENCIES = $(am__DEPENDENCIES_1) am_t38_gateway_to_terminal_tests_OBJECTS = \ t38_gateway_to_terminal_tests.$(OBJEXT) fax_utils.$(OBJEXT) \ media_monitor.$(OBJEXT) t38_gateway_to_terminal_tests_OBJECTS = \ $(am_t38_gateway_to_terminal_tests_OBJECTS) t38_gateway_to_terminal_tests_DEPENDENCIES = $(am__DEPENDENCIES_1) am_t38_non_ecm_buffer_tests_OBJECTS = \ t38_non_ecm_buffer_tests.$(OBJEXT) t38_non_ecm_buffer_tests_OBJECTS = \ $(am_t38_non_ecm_buffer_tests_OBJECTS) t38_non_ecm_buffer_tests_DEPENDENCIES = $(am__DEPENDENCIES_1) am_t38_terminal_tests_OBJECTS = t38_terminal_tests.$(OBJEXT) \ fax_utils.$(OBJEXT) media_monitor.$(OBJEXT) t38_terminal_tests_OBJECTS = $(am_t38_terminal_tests_OBJECTS) t38_terminal_tests_DEPENDENCIES = $(am__DEPENDENCIES_1) am_t38_terminal_to_gateway_tests_OBJECTS = \ t38_terminal_to_gateway_tests.$(OBJEXT) fax_utils.$(OBJEXT) \ media_monitor.$(OBJEXT) t38_terminal_to_gateway_tests_OBJECTS = \ $(am_t38_terminal_to_gateway_tests_OBJECTS) t38_terminal_to_gateway_tests_DEPENDENCIES = $(am__DEPENDENCIES_1) am_t4_tests_OBJECTS = t4_tests.$(OBJEXT) t4_tests_OBJECTS = $(am_t4_tests_OBJECTS) t4_tests_DEPENDENCIES = $(am__DEPENDENCIES_1) am_testadsi_OBJECTS = testadsi.$(OBJEXT) testadsi_OBJECTS = $(am_testadsi_OBJECTS) testadsi_DEPENDENCIES = $(am__DEPENDENCIES_1) am_testfax_OBJECTS = testfax.$(OBJEXT) testfax_OBJECTS = $(am_testfax_OBJECTS) testfax_DEPENDENCIES = $(am__DEPENDENCIES_1) am_time_scale_tests_OBJECTS = time_scale_tests.$(OBJEXT) time_scale_tests_OBJECTS = $(am_time_scale_tests_OBJECTS) time_scale_tests_DEPENDENCIES = $(am__DEPENDENCIES_1) am_timezone_tests_OBJECTS = timezone_tests.$(OBJEXT) timezone_tests_OBJECTS = $(am_timezone_tests_OBJECTS) timezone_tests_DEPENDENCIES = $(am__DEPENDENCIES_1) am_tone_detect_tests_OBJECTS = tone_detect_tests.$(OBJEXT) tone_detect_tests_OBJECTS = $(am_tone_detect_tests_OBJECTS) tone_detect_tests_DEPENDENCIES = $(am__DEPENDENCIES_1) am_tone_generate_tests_OBJECTS = tone_generate_tests.$(OBJEXT) tone_generate_tests_OBJECTS = $(am_tone_generate_tests_OBJECTS) tone_generate_tests_DEPENDENCIES = $(am__DEPENDENCIES_1) am_tsb85_tests_OBJECTS = tsb85_tests.$(OBJEXT) fax_utils.$(OBJEXT) \ fax_tester.$(OBJEXT) tsb85_tests_OBJECTS = $(am_tsb85_tests_OBJECTS) tsb85_tests_DEPENDENCIES = $(am__DEPENDENCIES_1) am_v17_tests_OBJECTS = v17_tests.$(OBJEXT) \ line_model_monitor.$(OBJEXT) modem_monitor.$(OBJEXT) v17_tests_OBJECTS = $(am_v17_tests_OBJECTS) v17_tests_DEPENDENCIES = $(am__DEPENDENCIES_1) am_v18_tests_OBJECTS = v18_tests.$(OBJEXT) v18_tests_OBJECTS = $(am_v18_tests_OBJECTS) v18_tests_DEPENDENCIES = $(am__DEPENDENCIES_1) am_v22bis_tests_OBJECTS = v22bis_tests.$(OBJEXT) \ line_model_monitor.$(OBJEXT) modem_monitor.$(OBJEXT) v22bis_tests_OBJECTS = $(am_v22bis_tests_OBJECTS) v22bis_tests_DEPENDENCIES = $(am__DEPENDENCIES_1) am_v27ter_tests_OBJECTS = v27ter_tests.$(OBJEXT) \ line_model_monitor.$(OBJEXT) modem_monitor.$(OBJEXT) v27ter_tests_OBJECTS = $(am_v27ter_tests_OBJECTS) v27ter_tests_DEPENDENCIES = $(am__DEPENDENCIES_1) am_v29_tests_OBJECTS = v29_tests.$(OBJEXT) \ line_model_monitor.$(OBJEXT) modem_monitor.$(OBJEXT) v29_tests_OBJECTS = $(am_v29_tests_OBJECTS) v29_tests_DEPENDENCIES = $(am__DEPENDENCIES_1) am_v42_tests_OBJECTS = v42_tests.$(OBJEXT) v42_tests_OBJECTS = $(am_v42_tests_OBJECTS) v42_tests_DEPENDENCIES = $(am__DEPENDENCIES_1) am_v42bis_tests_OBJECTS = v42bis_tests.$(OBJEXT) v42bis_tests_OBJECTS = $(am_v42bis_tests_OBJECTS) v42bis_tests_DEPENDENCIES = $(am__DEPENDENCIES_1) am_v8_tests_OBJECTS = v8_tests.$(OBJEXT) v8_tests_OBJECTS = $(am_v8_tests_OBJECTS) v8_tests_DEPENDENCIES = $(am__DEPENDENCIES_1) am_vector_float_tests_OBJECTS = vector_float_tests.$(OBJEXT) vector_float_tests_OBJECTS = $(am_vector_float_tests_OBJECTS) vector_float_tests_DEPENDENCIES = $(am__DEPENDENCIES_1) am_vector_int_tests_OBJECTS = vector_int_tests.$(OBJEXT) vector_int_tests_OBJECTS = $(am_vector_int_tests_OBJECTS) vector_int_tests_DEPENDENCIES = $(am__DEPENDENCIES_1) DEFAULT_INCLUDES = -I. -I$(srcdir) -I$(top_builddir)/src depcomp = $(SHELL) $(top_srcdir)/config/depcomp am__depfiles_maybe = depfiles COMPILE = $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) \ $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) LTCOMPILE = $(LIBTOOL) --tag=CC --mode=compile $(CC) $(DEFS) \ $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) \ $(AM_CFLAGS) $(CFLAGS) CCLD = $(CC) LINK = $(LIBTOOL) --tag=CC --mode=link $(CCLD) $(AM_CFLAGS) $(CFLAGS) \ $(AM_LDFLAGS) $(LDFLAGS) -o $@ CXXCOMPILE = $(CXX) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) \ $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CXXFLAGS) $(CXXFLAGS) LTCXXCOMPILE = $(LIBTOOL) --tag=CXX --mode=compile $(CXX) $(DEFS) \ $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) \ $(AM_CXXFLAGS) $(CXXFLAGS) CXXLD = $(CXX) CXXLINK = $(LIBTOOL) --tag=CXX --mode=link $(CXXLD) $(AM_CXXFLAGS) \ $(CXXFLAGS) $(AM_LDFLAGS) $(LDFLAGS) -o $@ SOURCES = $(adsi_tests_SOURCES) $(async_tests_SOURCES) \ $(at_interpreter_tests_SOURCES) $(awgn_tests_SOURCES) \ $(bell_mf_rx_tests_SOURCES) $(bell_mf_tx_tests_SOURCES) \ $(bert_tests_SOURCES) $(bit_operations_tests_SOURCES) \ $(bitstream_tests_SOURCES) $(complex_tests_SOURCES) \ $(complex_vector_float_tests_SOURCES) \ $(complex_vector_int_tests_SOURCES) $(crc_tests_SOURCES) \ $(dc_restore_tests_SOURCES) $(dds_tests_SOURCES) \ $(dtmf_rx_tests_SOURCES) $(dtmf_tx_tests_SOURCES) \ $(echo_tests_SOURCES) $(fax_decode_SOURCES) \ $(fax_tests_SOURCES) $(fsk_tests_SOURCES) \ $(g1050_tests_SOURCES) $(g168_tests_SOURCES) \ $(g711_tests_SOURCES) $(g722_tests_SOURCES) \ $(g726_tests_SOURCES) $(gsm0610_tests_SOURCES) \ $(hdlc_tests_SOURCES) $(ima_adpcm_tests_SOURCES) \ $(image_translate_tests_SOURCES) $(line_model_tests_SOURCES) \ $(logging_tests_SOURCES) $(lpc10_tests_SOURCES) \ $(make_g168_css_SOURCES) $(modem_connect_tones_tests_SOURCES) \ $(modem_echo_tests_SOURCES) $(noise_tests_SOURCES) \ $(oki_adpcm_tests_SOURCES) $(playout_tests_SOURCES) \ $(plc_tests_SOURCES) $(power_meter_tests_SOURCES) \ $(queue_tests_SOURCES) $(r2_mf_rx_tests_SOURCES) \ $(r2_mf_tx_tests_SOURCES) $(rfc2198_sim_tests_SOURCES) \ $(saturated_tests_SOURCES) $(schedule_tests_SOURCES) \ $(sig_tone_tests_SOURCES) $(super_tone_rx_tests_SOURCES) \ $(super_tone_tx_tests_SOURCES) $(swept_tone_tests_SOURCES) \ $(t31_tests_SOURCES) $(t38_core_tests_SOURCES) \ $(t38_decode_SOURCES) $(t38_gateway_tests_SOURCES) \ $(t38_gateway_to_terminal_tests_SOURCES) \ $(t38_non_ecm_buffer_tests_SOURCES) \ $(t38_terminal_tests_SOURCES) \ $(t38_terminal_to_gateway_tests_SOURCES) $(t4_tests_SOURCES) \ $(testadsi_SOURCES) $(testfax_SOURCES) \ $(time_scale_tests_SOURCES) $(timezone_tests_SOURCES) \ $(tone_detect_tests_SOURCES) $(tone_generate_tests_SOURCES) \ $(tsb85_tests_SOURCES) $(v17_tests_SOURCES) \ $(v18_tests_SOURCES) $(v22bis_tests_SOURCES) \ $(v27ter_tests_SOURCES) $(v29_tests_SOURCES) \ $(v42_tests_SOURCES) $(v42bis_tests_SOURCES) \ $(v8_tests_SOURCES) $(vector_float_tests_SOURCES) \ $(vector_int_tests_SOURCES) DIST_SOURCES = $(adsi_tests_SOURCES) $(async_tests_SOURCES) \ $(at_interpreter_tests_SOURCES) $(awgn_tests_SOURCES) \ $(bell_mf_rx_tests_SOURCES) $(bell_mf_tx_tests_SOURCES) \ $(bert_tests_SOURCES) $(bit_operations_tests_SOURCES) \ $(bitstream_tests_SOURCES) $(complex_tests_SOURCES) \ $(complex_vector_float_tests_SOURCES) \ $(complex_vector_int_tests_SOURCES) $(crc_tests_SOURCES) \ $(dc_restore_tests_SOURCES) $(dds_tests_SOURCES) \ $(dtmf_rx_tests_SOURCES) $(dtmf_tx_tests_SOURCES) \ $(echo_tests_SOURCES) $(fax_decode_SOURCES) \ $(fax_tests_SOURCES) $(fsk_tests_SOURCES) \ $(g1050_tests_SOURCES) $(g168_tests_SOURCES) \ $(g711_tests_SOURCES) $(g722_tests_SOURCES) \ $(g726_tests_SOURCES) $(gsm0610_tests_SOURCES) \ $(hdlc_tests_SOURCES) $(ima_adpcm_tests_SOURCES) \ $(image_translate_tests_SOURCES) $(line_model_tests_SOURCES) \ $(logging_tests_SOURCES) $(lpc10_tests_SOURCES) \ $(make_g168_css_SOURCES) $(modem_connect_tones_tests_SOURCES) \ $(modem_echo_tests_SOURCES) $(noise_tests_SOURCES) \ $(oki_adpcm_tests_SOURCES) $(playout_tests_SOURCES) \ $(plc_tests_SOURCES) $(power_meter_tests_SOURCES) \ $(queue_tests_SOURCES) $(r2_mf_rx_tests_SOURCES) \ $(r2_mf_tx_tests_SOURCES) $(rfc2198_sim_tests_SOURCES) \ $(saturated_tests_SOURCES) $(schedule_tests_SOURCES) \ $(sig_tone_tests_SOURCES) $(super_tone_rx_tests_SOURCES) \ $(super_tone_tx_tests_SOURCES) $(swept_tone_tests_SOURCES) \ $(t31_tests_SOURCES) $(t38_core_tests_SOURCES) \ $(t38_decode_SOURCES) $(t38_gateway_tests_SOURCES) \ $(t38_gateway_to_terminal_tests_SOURCES) \ $(t38_non_ecm_buffer_tests_SOURCES) \ $(t38_terminal_tests_SOURCES) \ $(t38_terminal_to_gateway_tests_SOURCES) $(t4_tests_SOURCES) \ $(testadsi_SOURCES) $(testfax_SOURCES) \ $(time_scale_tests_SOURCES) $(timezone_tests_SOURCES) \ $(tone_detect_tests_SOURCES) $(tone_generate_tests_SOURCES) \ $(tsb85_tests_SOURCES) $(v17_tests_SOURCES) \ $(v18_tests_SOURCES) $(v22bis_tests_SOURCES) \ $(v27ter_tests_SOURCES) $(v29_tests_SOURCES) \ $(v42_tests_SOURCES) $(v42bis_tests_SOURCES) \ $(v8_tests_SOURCES) $(vector_float_tests_SOURCES) \ $(vector_int_tests_SOURCES) DATA = $(noinst_DATA) HEADERS = $(noinst_HEADERS) ETAGS = etags CTAGS = ctags DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST) ACLOCAL = @ACLOCAL@ AMDEP_FALSE = @AMDEP_FALSE@ AMDEP_TRUE = @AMDEP_TRUE@ AMTAR = @AMTAR@ AR = @AR@ AUTOCONF = @AUTOCONF@ AUTOHEADER = @AUTOHEADER@ AUTOMAKE = @AUTOMAKE@ AWK = @AWK@ CC = @CC@ CCDEPMODE = @CCDEPMODE@ CC_FOR_BUILD = @CC_FOR_BUILD@ CFLAGS = @CFLAGS@ COMP_VENDOR_CFLAGS = @COMP_VENDOR_CFLAGS@ COMP_VENDOR_LDFLAGS = @COMP_VENDOR_LDFLAGS@ COND_DOC_FALSE = @COND_DOC_FALSE@ COND_DOC_TRUE = @COND_DOC_TRUE@ COND_MMX_FALSE = @COND_MMX_FALSE@ COND_MMX_TRUE = @COND_MMX_TRUE@ COND_SSE2_FALSE = @COND_SSE2_FALSE@ COND_SSE2_TRUE = @COND_SSE2_TRUE@ COND_SSE3_FALSE = @COND_SSE3_FALSE@ COND_SSE3_TRUE = @COND_SSE3_TRUE@ COND_SSE4A_FALSE = @COND_SSE4A_FALSE@ COND_SSE4A_TRUE = @COND_SSE4A_TRUE@ COND_SSE4_1_FALSE = @COND_SSE4_1_FALSE@ COND_SSE4_1_TRUE = @COND_SSE4_1_TRUE@ COND_SSE4_2_FALSE = @COND_SSE4_2_FALSE@ COND_SSE4_2_TRUE = @COND_SSE4_2_TRUE@ COND_SSE5_FALSE = @COND_SSE5_FALSE@ COND_SSE5_TRUE = @COND_SSE5_TRUE@ COND_SSE_FALSE = @COND_SSE_FALSE@ COND_SSE_TRUE = @COND_SSE_TRUE@ COND_SSSE3_FALSE = @COND_SSSE3_FALSE@ COND_SSSE3_TRUE = @COND_SSSE3_TRUE@ COND_TESTDATA_FALSE = @COND_TESTDATA_FALSE@ COND_TESTDATA_TRUE = @COND_TESTDATA_TRUE@ COND_TESTS_FALSE = @COND_TESTS_FALSE@ COND_TESTS_TRUE = @COND_TESTS_TRUE@ CPP = @CPP@ CPPFLAGS = @CPPFLAGS@ CPPFLAGS_FOR_BUILD = @CPPFLAGS_FOR_BUILD@ CXX = @CXX@ CXXCPP = @CXXCPP@ CXXDEPMODE = @CXXDEPMODE@ CXXFLAGS = @CXXFLAGS@ CYGPATH_W = @CYGPATH_W@ DEFS = @DEFS@ DEPDIR = @DEPDIR@ DSYMUTIL = @DSYMUTIL@ ECHO = @ECHO@ ECHO_C = @ECHO_C@ ECHO_N = @ECHO_N@ ECHO_T = @ECHO_T@ EGREP = @EGREP@ EXEEXT = @EXEEXT@ F77 = @F77@ FFLAGS = @FFLAGS@ INSERT_INTTYPES_HEADER = @INSERT_INTTYPES_HEADER@ INSERT_MATH_HEADER = @INSERT_MATH_HEADER@ INSERT_STDINT_HEADER = @INSERT_STDINT_HEADER@ INSERT_TGMATH_HEADER = @INSERT_TGMATH_HEADER@ INSTALL_DATA = @INSTALL_DATA@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ INSTALL_SCRIPT = @INSTALL_SCRIPT@ INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@ LDFLAGS = @LDFLAGS@ LIBOBJS = @LIBOBJS@ LIBS = @LIBS@ $(TESTLIBS) LIBTOOL = @LIBTOOL@ LN_S = @LN_S@ LTLIBOBJS = @LTLIBOBJS@ MAKEINFO = @MAKEINFO@ NMEDIT = @NMEDIT@ OBJEXT = @OBJEXT@ PACKAGE = @PACKAGE@ PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@ PACKAGE_NAME = @PACKAGE_NAME@ PACKAGE_STRING = @PACKAGE_STRING@ PACKAGE_TARNAME = @PACKAGE_TARNAME@ PACKAGE_VERSION = @PACKAGE_VERSION@ PATH_SEPARATOR = @PATH_SEPARATOR@ RANLIB = @RANLIB@ SED = @SED@ SET_MAKE = @SET_MAKE@ SHELL = @SHELL@ SIMLIBS = @SIMLIBS@ SPANDSP_LT_AGE = @SPANDSP_LT_AGE@ SPANDSP_LT_CURRENT = @SPANDSP_LT_CURRENT@ SPANDSP_LT_REVISION = @SPANDSP_LT_REVISION@ SPANDSP_MISALIGNED_ACCESS_FAILS = @SPANDSP_MISALIGNED_ACCESS_FAILS@ SPANDSP_SUPPORT_T85 = @SPANDSP_SUPPORT_T85@ SPANDSP_SUPPORT_V34 = @SPANDSP_SUPPORT_V34@ SPANDSP_USE_EXPORT_CAPABILITY = @SPANDSP_USE_EXPORT_CAPABILITY@ SPANDSP_USE_FIXED_POINT = @SPANDSP_USE_FIXED_POINT@ STRIP = @STRIP@ TESTLIBS = @TESTLIBS@ VERSION = @VERSION@ ac_ct_AR = @ac_ct_AR@ ac_ct_CC = @ac_ct_CC@ ac_ct_CXX = @ac_ct_CXX@ ac_ct_DSYMUTIL = @ac_ct_DSYMUTIL@ ac_ct_F77 = @ac_ct_F77@ ac_ct_NMEDIT = @ac_ct_NMEDIT@ ac_ct_RANLIB = @ac_ct_RANLIB@ ac_ct_STRIP = @ac_ct_STRIP@ am__fastdepCC_FALSE = @am__fastdepCC_FALSE@ am__fastdepCC_TRUE = @am__fastdepCC_TRUE@ am__fastdepCXX_FALSE = @am__fastdepCXX_FALSE@ am__fastdepCXX_TRUE = @am__fastdepCXX_TRUE@ am__include = @am__include@ am__leading_dot = @am__leading_dot@ am__quote = @am__quote@ am__tar = @am__tar@ am__untar = @am__untar@ bindir = @bindir@ build = @build@ build_alias = @build_alias@ build_cpu = @build_cpu@ build_os = @build_os@ build_vendor = @build_vendor@ datadir = @datadir@ exec_prefix = @exec_prefix@ host = @host@ host_alias = @host_alias@ host_cpu = @host_cpu@ host_os = @host_os@ host_vendor = @host_vendor@ includedir = @includedir@ infodir = @infodir@ install_sh = @install_sh@ libdir = @libdir@ libexecdir = @libexecdir@ localstatedir = @localstatedir@ mandir = @mandir@ mkdir_p = @mkdir_p@ oldincludedir = @oldincludedir@ prefix = @prefix@ program_transform_name = @program_transform_name@ sbindir = @sbindir@ sharedstatedir = @sharedstatedir@ sysconfdir = @sysconfdir@ target_alias = @target_alias@ AM_CFLAGS = $(COMP_VENDOR_CFLAGS) AM_LDFLAGS = $(COMP_VENDOR_LDFLAGS) noinst_DATA = sound_c1_8k.wav sound_c3_8k.wav EXTRA_DIST = fax_tests.sh \ regression_tests.sh \ tsb85_extra_tests.sh \ tsb85_tests.sh \ v42bis_tests.sh \ msvc/adsi_tests.vcproj \ msvc/complex_tests.vcproj \ msvc/complex_vector_float_tests.vcproj \ msvc/complex_vector_int_tests.vcproj \ msvc/dtmf_rx_tests.vcproj \ msvc/dtmf_tx_tests.vcproj \ msvc/queue_tests.vcproj \ msvc/t38_core_tests.vcproj \ msvc/t38_non_ecm_buffer_tests.vcproj \ msvc/t38_terminal_tests.vcproj \ msvc/v22bis_tests.vcproj \ msvc/v29_tests.vcproj \ msvc/v8_tests.vcproj \ msvc/v80_tests.vcproj \ msvc/vector_float_tests.vcproj \ msvc/vector_int_tests.vcproj MAINTAINERCLEANFILES = Makefile.in INCLUDES = -I$(top_builddir)/src -I$(top_builddir)/spandsp-sim -DDATADIR="\"$(pkgdatadir)\"" LIBDIR = -L$(top_builddir)/src noinst_HEADERS = echo_monitor.h \ fax_tester.h \ fax_utils.h \ line_model_monitor.h \ media_monitor.h \ modem_monitor.h \ pcap_parse.h \ udptl.h adsi_tests_SOURCES = adsi_tests.c adsi_tests_LDADD = -L$(top_builddir)/spandsp-sim -lspandsp-sim $(LIBDIR) -lspandsp async_tests_SOURCES = async_tests.c async_tests_LDADD = $(LIBDIR) -lspandsp at_interpreter_tests_SOURCES = at_interpreter_tests.c at_interpreter_tests_LDADD = $(LIBDIR) -lspandsp awgn_tests_SOURCES = awgn_tests.c awgn_tests_LDADD = $(LIBDIR) -lspandsp bell_mf_rx_tests_SOURCES = bell_mf_rx_tests.c bell_mf_rx_tests_LDADD = $(LIBDIR) -lspandsp bell_mf_tx_tests_SOURCES = bell_mf_tx_tests.c bell_mf_tx_tests_LDADD = -L$(top_builddir)/spandsp-sim -lspandsp-sim $(LIBDIR) -lspandsp bert_tests_SOURCES = bert_tests.c bert_tests_LDADD = $(LIBDIR) -lspandsp bit_operations_tests_SOURCES = bit_operations_tests.c bit_operations_tests_LDADD = $(LIBDIR) -lspandsp bitstream_tests_SOURCES = bitstream_tests.c bitstream_tests_LDADD = $(LIBDIR) -lspandsp complex_tests_SOURCES = complex_tests.c complex_tests_LDADD = $(LIBDIR) -lspandsp complex_vector_float_tests_SOURCES = complex_vector_float_tests.c complex_vector_float_tests_LDADD = $(LIBDIR) -lspandsp complex_vector_int_tests_SOURCES = complex_vector_int_tests.c complex_vector_int_tests_LDADD = $(LIBDIR) -lspandsp crc_tests_SOURCES = crc_tests.c crc_tests_LDADD = $(LIBDIR) -lspandsp dc_restore_tests_SOURCES = dc_restore_tests.c dc_restore_tests_LDADD = $(LIBDIR) -lspandsp dds_tests_SOURCES = dds_tests.c dds_tests_LDADD = -L$(top_builddir)/spandsp-sim -lspandsp-sim $(LIBDIR) -lspandsp dtmf_rx_tests_SOURCES = dtmf_rx_tests.c dtmf_rx_tests_LDADD = -L$(top_builddir)/spandsp-sim -lspandsp-sim $(LIBDIR) -lspandsp dtmf_tx_tests_SOURCES = dtmf_tx_tests.c dtmf_tx_tests_LDADD = -L$(top_builddir)/spandsp-sim -lspandsp-sim $(LIBDIR) -lspandsp echo_tests_SOURCES = echo_tests.c echo_monitor.cpp echo_tests_LDADD = -L$(top_builddir)/spandsp-sim -lspandsp-sim $(LIBDIR) -lspandsp fax_decode_SOURCES = fax_decode.c fax_decode_LDADD = $(LIBDIR) -lspandsp fax_tests_SOURCES = fax_tests.c fax_utils.c fax_tests_LDADD = -L$(top_builddir)/spandsp-sim -lspandsp-sim $(LIBDIR) -lspandsp fsk_tests_SOURCES = fsk_tests.c fsk_tests_LDADD = -L$(top_builddir)/spandsp-sim -lspandsp-sim $(LIBDIR) -lspandsp g1050_tests_SOURCES = g1050_tests.c media_monitor.cpp g1050_tests_LDADD = -L$(top_builddir)/spandsp-sim -lspandsp-sim $(LIBDIR) -lspandsp g168_tests_SOURCES = g168_tests.c g168_tests_LDADD = -L$(top_builddir)/spandsp-sim -lspandsp-sim $(LIBDIR) -lspandsp g711_tests_SOURCES = g711_tests.c g711_tests_LDADD = -L$(top_builddir)/spandsp-sim -lspandsp-sim $(LIBDIR) -lspandsp g722_tests_SOURCES = g722_tests.c g722_tests_LDADD = $(LIBDIR) -lspandsp g726_tests_SOURCES = g726_tests.c g726_tests_LDADD = -L$(top_builddir)/spandsp-sim -lspandsp-sim $(LIBDIR) -lspandsp gsm0610_tests_SOURCES = gsm0610_tests.c gsm0610_tests_LDADD = -L$(top_builddir)/spandsp-sim -lspandsp-sim $(LIBDIR) -lspandsp hdlc_tests_SOURCES = hdlc_tests.c hdlc_tests_LDADD = $(LIBDIR) -lspandsp ima_adpcm_tests_SOURCES = ima_adpcm_tests.c ima_adpcm_tests_LDADD = -L$(top_builddir)/spandsp-sim -lspandsp-sim $(LIBDIR) -lspandsp image_translate_tests_SOURCES = image_translate_tests.c image_translate_tests_LDADD = -L$(top_builddir)/spandsp-sim -lspandsp-sim $(LIBDIR) -lspandsp line_model_tests_SOURCES = line_model_tests.c line_model_tests_LDADD = -L$(top_builddir)/spandsp-sim -lspandsp-sim $(LIBDIR) -lspandsp logging_tests_SOURCES = logging_tests.c logging_tests_LDADD = $(LIBDIR) -lspandsp lpc10_tests_SOURCES = lpc10_tests.c lpc10_tests_LDADD = -L$(top_builddir)/spandsp-sim -lspandsp-sim $(LIBDIR) -lspandsp make_g168_css_SOURCES = make_g168_css.c make_g168_css_LDADD = $(LIBDIR) -lspandsp modem_echo_tests_SOURCES = modem_echo_tests.c echo_monitor.cpp modem_echo_tests_LDADD = -L$(top_builddir)/spandsp-sim -lspandsp-sim $(LIBDIR) -lspandsp modem_connect_tones_tests_SOURCES = modem_connect_tones_tests.c modem_connect_tones_tests_LDADD = -L$(top_builddir)/spandsp-sim -lspandsp-sim $(LIBDIR) -lspandsp noise_tests_SOURCES = noise_tests.c noise_tests_LDADD = -L$(top_builddir)/spandsp-sim -lspandsp-sim $(LIBDIR) -lspandsp oki_adpcm_tests_SOURCES = oki_adpcm_tests.c oki_adpcm_tests_LDADD = -L$(top_builddir)/spandsp-sim -lspandsp-sim $(LIBDIR) -lspandsp playout_tests_SOURCES = playout_tests.c media_monitor.cpp playout_tests_LDADD = -L$(top_builddir)/spandsp-sim -lspandsp-sim $(LIBDIR) -lspandsp plc_tests_SOURCES = plc_tests.c plc_tests_LDADD = -L$(top_builddir)/spandsp-sim -lspandsp-sim $(LIBDIR) -lspandsp power_meter_tests_SOURCES = power_meter_tests.c power_meter_tests_LDADD = -L$(top_builddir)/spandsp-sim -lspandsp-sim $(LIBDIR) -lspandsp queue_tests_SOURCES = queue_tests.c queue_tests_LDADD = $(LIBDIR) -lspandsp r2_mf_rx_tests_SOURCES = r2_mf_rx_tests.c r2_mf_rx_tests_LDADD = $(LIBDIR) -lspandsp r2_mf_tx_tests_SOURCES = r2_mf_tx_tests.c r2_mf_tx_tests_LDADD = -L$(top_builddir)/spandsp-sim -lspandsp-sim $(LIBDIR) -lspandsp rfc2198_sim_tests_SOURCES = rfc2198_sim_tests.c media_monitor.cpp rfc2198_sim_tests_LDADD = -L$(top_builddir)/spandsp-sim -lspandsp-sim $(LIBDIR) -lspandsp saturated_tests_SOURCES = saturated_tests.c saturated_tests_LDADD = $(LIBDIR) -lspandsp schedule_tests_SOURCES = schedule_tests.c schedule_tests_LDADD = $(LIBDIR) -lspandsp sig_tone_tests_SOURCES = sig_tone_tests.c sig_tone_tests_LDADD = -L$(top_builddir)/spandsp-sim -lspandsp-sim $(LIBDIR) -lspandsp super_tone_rx_tests_SOURCES = super_tone_rx_tests.c super_tone_rx_tests_LDADD = -L$(top_builddir)/spandsp-sim -lspandsp-sim $(LIBDIR) -lspandsp super_tone_tx_tests_SOURCES = super_tone_tx_tests.c super_tone_tx_tests_LDADD = -L$(top_builddir)/spandsp-sim -lspandsp-sim $(LIBDIR) -lspandsp swept_tone_tests_SOURCES = swept_tone_tests.c swept_tone_tests_LDADD = -L$(top_builddir)/spandsp-sim -lspandsp-sim $(LIBDIR) -lspandsp t4_tests_SOURCES = t4_tests.c t4_tests_LDADD = $(LIBDIR) -lspandsp t31_tests_SOURCES = t31_tests.c fax_utils.c media_monitor.cpp t31_tests_LDADD = -L$(top_builddir)/spandsp-sim -lspandsp-sim $(LIBDIR) -lspandsp t38_core_tests_SOURCES = t38_core_tests.c t38_core_tests_LDADD = $(LIBDIR) -lspandsp t38_decode_SOURCES = t38_decode.c fax_utils.c pcap_parse.c udptl.c t38_decode_LDADD = $(LIBDIR) -lspandsp -lpcap t38_gateway_tests_SOURCES = t38_gateway_tests.c fax_utils.c media_monitor.cpp t38_gateway_tests_LDADD = -L$(top_builddir)/spandsp-sim -lspandsp-sim $(LIBDIR) -lspandsp t38_gateway_to_terminal_tests_SOURCES = t38_gateway_to_terminal_tests.c fax_utils.c media_monitor.cpp t38_gateway_to_terminal_tests_LDADD = -L$(top_builddir)/spandsp-sim -lspandsp-sim $(LIBDIR) -lspandsp t38_non_ecm_buffer_tests_SOURCES = t38_non_ecm_buffer_tests.c t38_non_ecm_buffer_tests_LDADD = $(LIBDIR) -lspandsp t38_terminal_tests_SOURCES = t38_terminal_tests.c fax_utils.c media_monitor.cpp t38_terminal_tests_LDADD = -L$(top_builddir)/spandsp-sim -lspandsp-sim $(LIBDIR) -lspandsp t38_terminal_to_gateway_tests_SOURCES = t38_terminal_to_gateway_tests.c fax_utils.c media_monitor.cpp t38_terminal_to_gateway_tests_LDADD = -L$(top_builddir)/spandsp-sim -lspandsp-sim $(LIBDIR) -lspandsp time_scale_tests_SOURCES = time_scale_tests.c time_scale_tests_LDADD = $(LIBDIR) -lspandsp timezone_tests_SOURCES = timezone_tests.c timezone_tests_LDADD = $(LIBDIR) -lspandsp tone_detect_tests_SOURCES = tone_detect_tests.c tone_detect_tests_LDADD = $(LIBDIR) -lspandsp tone_generate_tests_SOURCES = tone_generate_tests.c tone_generate_tests_LDADD = -L$(top_builddir)/spandsp-sim -lspandsp-sim $(LIBDIR) -lspandsp tsb85_tests_SOURCES = tsb85_tests.c fax_utils.c fax_tester.c tsb85_tests_LDADD = -L$(top_builddir)/spandsp-sim -lspandsp-sim $(LIBDIR) -lspandsp v17_tests_SOURCES = v17_tests.c line_model_monitor.cpp modem_monitor.cpp v17_tests_LDADD = -L$(top_builddir)/spandsp-sim -lspandsp-sim $(LIBDIR) -lspandsp v18_tests_SOURCES = v18_tests.c v18_tests_LDADD = -L$(top_builddir)/spandsp-sim -lspandsp-sim $(LIBDIR) -lspandsp v22bis_tests_SOURCES = v22bis_tests.c line_model_monitor.cpp modem_monitor.cpp v22bis_tests_LDADD = -L$(top_builddir)/spandsp-sim -lspandsp-sim $(LIBDIR) -lspandsp v27ter_tests_SOURCES = v27ter_tests.c line_model_monitor.cpp modem_monitor.cpp v27ter_tests_LDADD = -L$(top_builddir)/spandsp-sim -lspandsp-sim $(LIBDIR) -lspandsp v29_tests_SOURCES = v29_tests.c line_model_monitor.cpp modem_monitor.cpp v29_tests_LDADD = -L$(top_builddir)/spandsp-sim -lspandsp-sim $(LIBDIR) -lspandsp v42_tests_SOURCES = v42_tests.c v42_tests_LDADD = $(LIBDIR) -lspandsp v42bis_tests_SOURCES = v42bis_tests.c v42bis_tests_LDADD = $(LIBDIR) -lspandsp v8_tests_SOURCES = v8_tests.c v8_tests_LDADD = -L$(top_builddir)/spandsp-sim -lspandsp-sim $(LIBDIR) -lspandsp vector_float_tests_SOURCES = vector_float_tests.c vector_float_tests_LDADD = $(LIBDIR) -lspandsp vector_int_tests_SOURCES = vector_int_tests.c vector_int_tests_LDADD = $(LIBDIR) -lspandsp testadsi_SOURCES = testadsi.c testadsi_LDADD = $(LIBDIR) -lspandsp testfax_SOURCES = testfax.c testfax_LDADD = $(LIBDIR) -lspandsp all: all-am .SUFFIXES: .SUFFIXES: .c .cpp .lo .o .obj $(srcdir)/Makefile.in: $(srcdir)/Makefile.am $(am__configure_deps) @for dep in $?; do \ case '$(am__configure_deps)' in \ *$$dep*) \ cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh \ && exit 0; \ exit 1;; \ esac; \ done; \ echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu tests/Makefile'; \ cd $(top_srcdir) && \ $(AUTOMAKE) --gnu tests/Makefile .PRECIOUS: Makefile Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status @case '$?' in \ *config.status*) \ cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \ *) \ echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \ esac; $(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(top_srcdir)/configure: $(am__configure_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(ACLOCAL_M4): $(am__aclocal_m4_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh clean-noinstPROGRAMS: @list='$(noinst_PROGRAMS)'; for p in $$list; do \ f=`echo $$p|sed 's/$(EXEEXT)$$//'`; \ echo " rm -f $$p $$f"; \ rm -f $$p $$f ; \ done adsi_tests$(EXEEXT): $(adsi_tests_OBJECTS) $(adsi_tests_DEPENDENCIES) @rm -f adsi_tests$(EXEEXT) $(LINK) $(adsi_tests_LDFLAGS) $(adsi_tests_OBJECTS) $(adsi_tests_LDADD) $(LIBS) async_tests$(EXEEXT): $(async_tests_OBJECTS) $(async_tests_DEPENDENCIES) @rm -f async_tests$(EXEEXT) $(LINK) $(async_tests_LDFLAGS) $(async_tests_OBJECTS) $(async_tests_LDADD) $(LIBS) at_interpreter_tests$(EXEEXT): $(at_interpreter_tests_OBJECTS) $(at_interpreter_tests_DEPENDENCIES) @rm -f at_interpreter_tests$(EXEEXT) $(LINK) $(at_interpreter_tests_LDFLAGS) $(at_interpreter_tests_OBJECTS) $(at_interpreter_tests_LDADD) $(LIBS) awgn_tests$(EXEEXT): $(awgn_tests_OBJECTS) $(awgn_tests_DEPENDENCIES) @rm -f awgn_tests$(EXEEXT) $(LINK) $(awgn_tests_LDFLAGS) $(awgn_tests_OBJECTS) $(awgn_tests_LDADD) $(LIBS) bell_mf_rx_tests$(EXEEXT): $(bell_mf_rx_tests_OBJECTS) $(bell_mf_rx_tests_DEPENDENCIES) @rm -f bell_mf_rx_tests$(EXEEXT) $(LINK) $(bell_mf_rx_tests_LDFLAGS) $(bell_mf_rx_tests_OBJECTS) $(bell_mf_rx_tests_LDADD) $(LIBS) bell_mf_tx_tests$(EXEEXT): $(bell_mf_tx_tests_OBJECTS) $(bell_mf_tx_tests_DEPENDENCIES) @rm -f bell_mf_tx_tests$(EXEEXT) $(LINK) $(bell_mf_tx_tests_LDFLAGS) $(bell_mf_tx_tests_OBJECTS) $(bell_mf_tx_tests_LDADD) $(LIBS) bert_tests$(EXEEXT): $(bert_tests_OBJECTS) $(bert_tests_DEPENDENCIES) @rm -f bert_tests$(EXEEXT) $(LINK) $(bert_tests_LDFLAGS) $(bert_tests_OBJECTS) $(bert_tests_LDADD) $(LIBS) bit_operations_tests$(EXEEXT): $(bit_operations_tests_OBJECTS) $(bit_operations_tests_DEPENDENCIES) @rm -f bit_operations_tests$(EXEEXT) $(LINK) $(bit_operations_tests_LDFLAGS) $(bit_operations_tests_OBJECTS) $(bit_operations_tests_LDADD) $(LIBS) bitstream_tests$(EXEEXT): $(bitstream_tests_OBJECTS) $(bitstream_tests_DEPENDENCIES) @rm -f bitstream_tests$(EXEEXT) $(LINK) $(bitstream_tests_LDFLAGS) $(bitstream_tests_OBJECTS) $(bitstream_tests_LDADD) $(LIBS) complex_tests$(EXEEXT): $(complex_tests_OBJECTS) $(complex_tests_DEPENDENCIES) @rm -f complex_tests$(EXEEXT) $(LINK) $(complex_tests_LDFLAGS) $(complex_tests_OBJECTS) $(complex_tests_LDADD) $(LIBS) complex_vector_float_tests$(EXEEXT): $(complex_vector_float_tests_OBJECTS) $(complex_vector_float_tests_DEPENDENCIES) @rm -f complex_vector_float_tests$(EXEEXT) $(LINK) $(complex_vector_float_tests_LDFLAGS) $(complex_vector_float_tests_OBJECTS) $(complex_vector_float_tests_LDADD) $(LIBS) complex_vector_int_tests$(EXEEXT): $(complex_vector_int_tests_OBJECTS) $(complex_vector_int_tests_DEPENDENCIES) @rm -f complex_vector_int_tests$(EXEEXT) $(LINK) $(complex_vector_int_tests_LDFLAGS) $(complex_vector_int_tests_OBJECTS) $(complex_vector_int_tests_LDADD) $(LIBS) crc_tests$(EXEEXT): $(crc_tests_OBJECTS) $(crc_tests_DEPENDENCIES) @rm -f crc_tests$(EXEEXT) $(LINK) $(crc_tests_LDFLAGS) $(crc_tests_OBJECTS) $(crc_tests_LDADD) $(LIBS) dc_restore_tests$(EXEEXT): $(dc_restore_tests_OBJECTS) $(dc_restore_tests_DEPENDENCIES) @rm -f dc_restore_tests$(EXEEXT) $(LINK) $(dc_restore_tests_LDFLAGS) $(dc_restore_tests_OBJECTS) $(dc_restore_tests_LDADD) $(LIBS) dds_tests$(EXEEXT): $(dds_tests_OBJECTS) $(dds_tests_DEPENDENCIES) @rm -f dds_tests$(EXEEXT) $(LINK) $(dds_tests_LDFLAGS) $(dds_tests_OBJECTS) $(dds_tests_LDADD) $(LIBS) dtmf_rx_tests$(EXEEXT): $(dtmf_rx_tests_OBJECTS) $(dtmf_rx_tests_DEPENDENCIES) @rm -f dtmf_rx_tests$(EXEEXT) $(LINK) $(dtmf_rx_tests_LDFLAGS) $(dtmf_rx_tests_OBJECTS) $(dtmf_rx_tests_LDADD) $(LIBS) dtmf_tx_tests$(EXEEXT): $(dtmf_tx_tests_OBJECTS) $(dtmf_tx_tests_DEPENDENCIES) @rm -f dtmf_tx_tests$(EXEEXT) $(LINK) $(dtmf_tx_tests_LDFLAGS) $(dtmf_tx_tests_OBJECTS) $(dtmf_tx_tests_LDADD) $(LIBS) echo_tests$(EXEEXT): $(echo_tests_OBJECTS) $(echo_tests_DEPENDENCIES) @rm -f echo_tests$(EXEEXT) $(CXXLINK) $(echo_tests_LDFLAGS) $(echo_tests_OBJECTS) $(echo_tests_LDADD) $(LIBS) fax_decode$(EXEEXT): $(fax_decode_OBJECTS) $(fax_decode_DEPENDENCIES) @rm -f fax_decode$(EXEEXT) $(LINK) $(fax_decode_LDFLAGS) $(fax_decode_OBJECTS) $(fax_decode_LDADD) $(LIBS) fax_tests$(EXEEXT): $(fax_tests_OBJECTS) $(fax_tests_DEPENDENCIES) @rm -f fax_tests$(EXEEXT) $(LINK) $(fax_tests_LDFLAGS) $(fax_tests_OBJECTS) $(fax_tests_LDADD) $(LIBS) fsk_tests$(EXEEXT): $(fsk_tests_OBJECTS) $(fsk_tests_DEPENDENCIES) @rm -f fsk_tests$(EXEEXT) $(LINK) $(fsk_tests_LDFLAGS) $(fsk_tests_OBJECTS) $(fsk_tests_LDADD) $(LIBS) g1050_tests$(EXEEXT): $(g1050_tests_OBJECTS) $(g1050_tests_DEPENDENCIES) @rm -f g1050_tests$(EXEEXT) $(CXXLINK) $(g1050_tests_LDFLAGS) $(g1050_tests_OBJECTS) $(g1050_tests_LDADD) $(LIBS) g168_tests$(EXEEXT): $(g168_tests_OBJECTS) $(g168_tests_DEPENDENCIES) @rm -f g168_tests$(EXEEXT) $(LINK) $(g168_tests_LDFLAGS) $(g168_tests_OBJECTS) $(g168_tests_LDADD) $(LIBS) g711_tests$(EXEEXT): $(g711_tests_OBJECTS) $(g711_tests_DEPENDENCIES) @rm -f g711_tests$(EXEEXT) $(LINK) $(g711_tests_LDFLAGS) $(g711_tests_OBJECTS) $(g711_tests_LDADD) $(LIBS) g722_tests$(EXEEXT): $(g722_tests_OBJECTS) $(g722_tests_DEPENDENCIES) @rm -f g722_tests$(EXEEXT) $(LINK) $(g722_tests_LDFLAGS) $(g722_tests_OBJECTS) $(g722_tests_LDADD) $(LIBS) g726_tests$(EXEEXT): $(g726_tests_OBJECTS) $(g726_tests_DEPENDENCIES) @rm -f g726_tests$(EXEEXT) $(LINK) $(g726_tests_LDFLAGS) $(g726_tests_OBJECTS) $(g726_tests_LDADD) $(LIBS) gsm0610_tests$(EXEEXT): $(gsm0610_tests_OBJECTS) $(gsm0610_tests_DEPENDENCIES) @rm -f gsm0610_tests$(EXEEXT) $(LINK) $(gsm0610_tests_LDFLAGS) $(gsm0610_tests_OBJECTS) $(gsm0610_tests_LDADD) $(LIBS) hdlc_tests$(EXEEXT): $(hdlc_tests_OBJECTS) $(hdlc_tests_DEPENDENCIES) @rm -f hdlc_tests$(EXEEXT) $(LINK) $(hdlc_tests_LDFLAGS) $(hdlc_tests_OBJECTS) $(hdlc_tests_LDADD) $(LIBS) ima_adpcm_tests$(EXEEXT): $(ima_adpcm_tests_OBJECTS) $(ima_adpcm_tests_DEPENDENCIES) @rm -f ima_adpcm_tests$(EXEEXT) $(LINK) $(ima_adpcm_tests_LDFLAGS) $(ima_adpcm_tests_OBJECTS) $(ima_adpcm_tests_LDADD) $(LIBS) image_translate_tests$(EXEEXT): $(image_translate_tests_OBJECTS) $(image_translate_tests_DEPENDENCIES) @rm -f image_translate_tests$(EXEEXT) $(LINK) $(image_translate_tests_LDFLAGS) $(image_translate_tests_OBJECTS) $(image_translate_tests_LDADD) $(LIBS) line_model_tests$(EXEEXT): $(line_model_tests_OBJECTS) $(line_model_tests_DEPENDENCIES) @rm -f line_model_tests$(EXEEXT) $(LINK) $(line_model_tests_LDFLAGS) $(line_model_tests_OBJECTS) $(line_model_tests_LDADD) $(LIBS) logging_tests$(EXEEXT): $(logging_tests_OBJECTS) $(logging_tests_DEPENDENCIES) @rm -f logging_tests$(EXEEXT) $(LINK) $(logging_tests_LDFLAGS) $(logging_tests_OBJECTS) $(logging_tests_LDADD) $(LIBS) lpc10_tests$(EXEEXT): $(lpc10_tests_OBJECTS) $(lpc10_tests_DEPENDENCIES) @rm -f lpc10_tests$(EXEEXT) $(LINK) $(lpc10_tests_LDFLAGS) $(lpc10_tests_OBJECTS) $(lpc10_tests_LDADD) $(LIBS) make_g168_css$(EXEEXT): $(make_g168_css_OBJECTS) $(make_g168_css_DEPENDENCIES) @rm -f make_g168_css$(EXEEXT) $(LINK) $(make_g168_css_LDFLAGS) $(make_g168_css_OBJECTS) $(make_g168_css_LDADD) $(LIBS) modem_connect_tones_tests$(EXEEXT): $(modem_connect_tones_tests_OBJECTS) $(modem_connect_tones_tests_DEPENDENCIES) @rm -f modem_connect_tones_tests$(EXEEXT) $(LINK) $(modem_connect_tones_tests_LDFLAGS) $(modem_connect_tones_tests_OBJECTS) $(modem_connect_tones_tests_LDADD) $(LIBS) modem_echo_tests$(EXEEXT): $(modem_echo_tests_OBJECTS) $(modem_echo_tests_DEPENDENCIES) @rm -f modem_echo_tests$(EXEEXT) $(CXXLINK) $(modem_echo_tests_LDFLAGS) $(modem_echo_tests_OBJECTS) $(modem_echo_tests_LDADD) $(LIBS) noise_tests$(EXEEXT): $(noise_tests_OBJECTS) $(noise_tests_DEPENDENCIES) @rm -f noise_tests$(EXEEXT) $(LINK) $(noise_tests_LDFLAGS) $(noise_tests_OBJECTS) $(noise_tests_LDADD) $(LIBS) oki_adpcm_tests$(EXEEXT): $(oki_adpcm_tests_OBJECTS) $(oki_adpcm_tests_DEPENDENCIES) @rm -f oki_adpcm_tests$(EXEEXT) $(LINK) $(oki_adpcm_tests_LDFLAGS) $(oki_adpcm_tests_OBJECTS) $(oki_adpcm_tests_LDADD) $(LIBS) playout_tests$(EXEEXT): $(playout_tests_OBJECTS) $(playout_tests_DEPENDENCIES) @rm -f playout_tests$(EXEEXT) $(CXXLINK) $(playout_tests_LDFLAGS) $(playout_tests_OBJECTS) $(playout_tests_LDADD) $(LIBS) plc_tests$(EXEEXT): $(plc_tests_OBJECTS) $(plc_tests_DEPENDENCIES) @rm -f plc_tests$(EXEEXT) $(LINK) $(plc_tests_LDFLAGS) $(plc_tests_OBJECTS) $(plc_tests_LDADD) $(LIBS) power_meter_tests$(EXEEXT): $(power_meter_tests_OBJECTS) $(power_meter_tests_DEPENDENCIES) @rm -f power_meter_tests$(EXEEXT) $(LINK) $(power_meter_tests_LDFLAGS) $(power_meter_tests_OBJECTS) $(power_meter_tests_LDADD) $(LIBS) queue_tests$(EXEEXT): $(queue_tests_OBJECTS) $(queue_tests_DEPENDENCIES) @rm -f queue_tests$(EXEEXT) $(LINK) $(queue_tests_LDFLAGS) $(queue_tests_OBJECTS) $(queue_tests_LDADD) $(LIBS) r2_mf_rx_tests$(EXEEXT): $(r2_mf_rx_tests_OBJECTS) $(r2_mf_rx_tests_DEPENDENCIES) @rm -f r2_mf_rx_tests$(EXEEXT) $(LINK) $(r2_mf_rx_tests_LDFLAGS) $(r2_mf_rx_tests_OBJECTS) $(r2_mf_rx_tests_LDADD) $(LIBS) r2_mf_tx_tests$(EXEEXT): $(r2_mf_tx_tests_OBJECTS) $(r2_mf_tx_tests_DEPENDENCIES) @rm -f r2_mf_tx_tests$(EXEEXT) $(LINK) $(r2_mf_tx_tests_LDFLAGS) $(r2_mf_tx_tests_OBJECTS) $(r2_mf_tx_tests_LDADD) $(LIBS) rfc2198_sim_tests$(EXEEXT): $(rfc2198_sim_tests_OBJECTS) $(rfc2198_sim_tests_DEPENDENCIES) @rm -f rfc2198_sim_tests$(EXEEXT) $(CXXLINK) $(rfc2198_sim_tests_LDFLAGS) $(rfc2198_sim_tests_OBJECTS) $(rfc2198_sim_tests_LDADD) $(LIBS) saturated_tests$(EXEEXT): $(saturated_tests_OBJECTS) $(saturated_tests_DEPENDENCIES) @rm -f saturated_tests$(EXEEXT) $(LINK) $(saturated_tests_LDFLAGS) $(saturated_tests_OBJECTS) $(saturated_tests_LDADD) $(LIBS) schedule_tests$(EXEEXT): $(schedule_tests_OBJECTS) $(schedule_tests_DEPENDENCIES) @rm -f schedule_tests$(EXEEXT) $(LINK) $(schedule_tests_LDFLAGS) $(schedule_tests_OBJECTS) $(schedule_tests_LDADD) $(LIBS) sig_tone_tests$(EXEEXT): $(sig_tone_tests_OBJECTS) $(sig_tone_tests_DEPENDENCIES) @rm -f sig_tone_tests$(EXEEXT) $(LINK) $(sig_tone_tests_LDFLAGS) $(sig_tone_tests_OBJECTS) $(sig_tone_tests_LDADD) $(LIBS) super_tone_rx_tests$(EXEEXT): $(super_tone_rx_tests_OBJECTS) $(super_tone_rx_tests_DEPENDENCIES) @rm -f super_tone_rx_tests$(EXEEXT) $(LINK) $(super_tone_rx_tests_LDFLAGS) $(super_tone_rx_tests_OBJECTS) $(super_tone_rx_tests_LDADD) $(LIBS) super_tone_tx_tests$(EXEEXT): $(super_tone_tx_tests_OBJECTS) $(super_tone_tx_tests_DEPENDENCIES) @rm -f super_tone_tx_tests$(EXEEXT) $(LINK) $(super_tone_tx_tests_LDFLAGS) $(super_tone_tx_tests_OBJECTS) $(super_tone_tx_tests_LDADD) $(LIBS) swept_tone_tests$(EXEEXT): $(swept_tone_tests_OBJECTS) $(swept_tone_tests_DEPENDENCIES) @rm -f swept_tone_tests$(EXEEXT) $(LINK) $(swept_tone_tests_LDFLAGS) $(swept_tone_tests_OBJECTS) $(swept_tone_tests_LDADD) $(LIBS) t31_tests$(EXEEXT): $(t31_tests_OBJECTS) $(t31_tests_DEPENDENCIES) @rm -f t31_tests$(EXEEXT) $(CXXLINK) $(t31_tests_LDFLAGS) $(t31_tests_OBJECTS) $(t31_tests_LDADD) $(LIBS) t38_core_tests$(EXEEXT): $(t38_core_tests_OBJECTS) $(t38_core_tests_DEPENDENCIES) @rm -f t38_core_tests$(EXEEXT) $(LINK) $(t38_core_tests_LDFLAGS) $(t38_core_tests_OBJECTS) $(t38_core_tests_LDADD) $(LIBS) t38_decode$(EXEEXT): $(t38_decode_OBJECTS) $(t38_decode_DEPENDENCIES) @rm -f t38_decode$(EXEEXT) $(LINK) $(t38_decode_LDFLAGS) $(t38_decode_OBJECTS) $(t38_decode_LDADD) $(LIBS) t38_gateway_tests$(EXEEXT): $(t38_gateway_tests_OBJECTS) $(t38_gateway_tests_DEPENDENCIES) @rm -f t38_gateway_tests$(EXEEXT) $(CXXLINK) $(t38_gateway_tests_LDFLAGS) $(t38_gateway_tests_OBJECTS) $(t38_gateway_tests_LDADD) $(LIBS) t38_gateway_to_terminal_tests$(EXEEXT): $(t38_gateway_to_terminal_tests_OBJECTS) $(t38_gateway_to_terminal_tests_DEPENDENCIES) @rm -f t38_gateway_to_terminal_tests$(EXEEXT) $(CXXLINK) $(t38_gateway_to_terminal_tests_LDFLAGS) $(t38_gateway_to_terminal_tests_OBJECTS) $(t38_gateway_to_terminal_tests_LDADD) $(LIBS) t38_non_ecm_buffer_tests$(EXEEXT): $(t38_non_ecm_buffer_tests_OBJECTS) $(t38_non_ecm_buffer_tests_DEPENDENCIES) @rm -f t38_non_ecm_buffer_tests$(EXEEXT) $(LINK) $(t38_non_ecm_buffer_tests_LDFLAGS) $(t38_non_ecm_buffer_tests_OBJECTS) $(t38_non_ecm_buffer_tests_LDADD) $(LIBS) t38_terminal_tests$(EXEEXT): $(t38_terminal_tests_OBJECTS) $(t38_terminal_tests_DEPENDENCIES) @rm -f t38_terminal_tests$(EXEEXT) $(CXXLINK) $(t38_terminal_tests_LDFLAGS) $(t38_terminal_tests_OBJECTS) $(t38_terminal_tests_LDADD) $(LIBS) t38_terminal_to_gateway_tests$(EXEEXT): $(t38_terminal_to_gateway_tests_OBJECTS) $(t38_terminal_to_gateway_tests_DEPENDENCIES) @rm -f t38_terminal_to_gateway_tests$(EXEEXT) $(CXXLINK) $(t38_terminal_to_gateway_tests_LDFLAGS) $(t38_terminal_to_gateway_tests_OBJECTS) $(t38_terminal_to_gateway_tests_LDADD) $(LIBS) t4_tests$(EXEEXT): $(t4_tests_OBJECTS) $(t4_tests_DEPENDENCIES) @rm -f t4_tests$(EXEEXT) $(LINK) $(t4_tests_LDFLAGS) $(t4_tests_OBJECTS) $(t4_tests_LDADD) $(LIBS) testadsi$(EXEEXT): $(testadsi_OBJECTS) $(testadsi_DEPENDENCIES) @rm -f testadsi$(EXEEXT) $(LINK) $(testadsi_LDFLAGS) $(testadsi_OBJECTS) $(testadsi_LDADD) $(LIBS) testfax$(EXEEXT): $(testfax_OBJECTS) $(testfax_DEPENDENCIES) @rm -f testfax$(EXEEXT) $(LINK) $(testfax_LDFLAGS) $(testfax_OBJECTS) $(testfax_LDADD) $(LIBS) time_scale_tests$(EXEEXT): $(time_scale_tests_OBJECTS) $(time_scale_tests_DEPENDENCIES) @rm -f time_scale_tests$(EXEEXT) $(LINK) $(time_scale_tests_LDFLAGS) $(time_scale_tests_OBJECTS) $(time_scale_tests_LDADD) $(LIBS) timezone_tests$(EXEEXT): $(timezone_tests_OBJECTS) $(timezone_tests_DEPENDENCIES) @rm -f timezone_tests$(EXEEXT) $(LINK) $(timezone_tests_LDFLAGS) $(timezone_tests_OBJECTS) $(timezone_tests_LDADD) $(LIBS) tone_detect_tests$(EXEEXT): $(tone_detect_tests_OBJECTS) $(tone_detect_tests_DEPENDENCIES) @rm -f tone_detect_tests$(EXEEXT) $(LINK) $(tone_detect_tests_LDFLAGS) $(tone_detect_tests_OBJECTS) $(tone_detect_tests_LDADD) $(LIBS) tone_generate_tests$(EXEEXT): $(tone_generate_tests_OBJECTS) $(tone_generate_tests_DEPENDENCIES) @rm -f tone_generate_tests$(EXEEXT) $(LINK) $(tone_generate_tests_LDFLAGS) $(tone_generate_tests_OBJECTS) $(tone_generate_tests_LDADD) $(LIBS) tsb85_tests$(EXEEXT): $(tsb85_tests_OBJECTS) $(tsb85_tests_DEPENDENCIES) @rm -f tsb85_tests$(EXEEXT) $(LINK) $(tsb85_tests_LDFLAGS) $(tsb85_tests_OBJECTS) $(tsb85_tests_LDADD) $(LIBS) v17_tests$(EXEEXT): $(v17_tests_OBJECTS) $(v17_tests_DEPENDENCIES) @rm -f v17_tests$(EXEEXT) $(CXXLINK) $(v17_tests_LDFLAGS) $(v17_tests_OBJECTS) $(v17_tests_LDADD) $(LIBS) v18_tests$(EXEEXT): $(v18_tests_OBJECTS) $(v18_tests_DEPENDENCIES) @rm -f v18_tests$(EXEEXT) $(LINK) $(v18_tests_LDFLAGS) $(v18_tests_OBJECTS) $(v18_tests_LDADD) $(LIBS) v22bis_tests$(EXEEXT): $(v22bis_tests_OBJECTS) $(v22bis_tests_DEPENDENCIES) @rm -f v22bis_tests$(EXEEXT) $(CXXLINK) $(v22bis_tests_LDFLAGS) $(v22bis_tests_OBJECTS) $(v22bis_tests_LDADD) $(LIBS) v27ter_tests$(EXEEXT): $(v27ter_tests_OBJECTS) $(v27ter_tests_DEPENDENCIES) @rm -f v27ter_tests$(EXEEXT) $(CXXLINK) $(v27ter_tests_LDFLAGS) $(v27ter_tests_OBJECTS) $(v27ter_tests_LDADD) $(LIBS) v29_tests$(EXEEXT): $(v29_tests_OBJECTS) $(v29_tests_DEPENDENCIES) @rm -f v29_tests$(EXEEXT) $(CXXLINK) $(v29_tests_LDFLAGS) $(v29_tests_OBJECTS) $(v29_tests_LDADD) $(LIBS) v42_tests$(EXEEXT): $(v42_tests_OBJECTS) $(v42_tests_DEPENDENCIES) @rm -f v42_tests$(EXEEXT) $(LINK) $(v42_tests_LDFLAGS) $(v42_tests_OBJECTS) $(v42_tests_LDADD) $(LIBS) v42bis_tests$(EXEEXT): $(v42bis_tests_OBJECTS) $(v42bis_tests_DEPENDENCIES) @rm -f v42bis_tests$(EXEEXT) $(LINK) $(v42bis_tests_LDFLAGS) $(v42bis_tests_OBJECTS) $(v42bis_tests_LDADD) $(LIBS) v8_tests$(EXEEXT): $(v8_tests_OBJECTS) $(v8_tests_DEPENDENCIES) @rm -f v8_tests$(EXEEXT) $(LINK) $(v8_tests_LDFLAGS) $(v8_tests_OBJECTS) $(v8_tests_LDADD) $(LIBS) vector_float_tests$(EXEEXT): $(vector_float_tests_OBJECTS) $(vector_float_tests_DEPENDENCIES) @rm -f vector_float_tests$(EXEEXT) $(LINK) $(vector_float_tests_LDFLAGS) $(vector_float_tests_OBJECTS) $(vector_float_tests_LDADD) $(LIBS) vector_int_tests$(EXEEXT): $(vector_int_tests_OBJECTS) $(vector_int_tests_DEPENDENCIES) @rm -f vector_int_tests$(EXEEXT) $(LINK) $(vector_int_tests_LDFLAGS) $(vector_int_tests_OBJECTS) $(vector_int_tests_LDADD) $(LIBS) mostlyclean-compile: -rm -f *.$(OBJEXT) distclean-compile: -rm -f *.tab.c @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/adsi_tests.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/async_tests.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/at_interpreter_tests.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/awgn_tests.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/bell_mf_rx_tests.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/bell_mf_tx_tests.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/bert_tests.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/bit_operations_tests.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/bitstream_tests.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/complex_tests.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/complex_vector_float_tests.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/complex_vector_int_tests.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/crc_tests.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/dc_restore_tests.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/dds_tests.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/dtmf_rx_tests.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/dtmf_tx_tests.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/echo_monitor.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/echo_tests.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/fax_decode.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/fax_tester.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/fax_tests.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/fax_utils.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/fsk_tests.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/g1050_tests.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/g168_tests.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/g711_tests.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/g722_tests.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/g726_tests.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/gsm0610_tests.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/hdlc_tests.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/ima_adpcm_tests.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/image_translate_tests.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/line_model_monitor.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/line_model_tests.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/logging_tests.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/lpc10_tests.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/make_g168_css.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/media_monitor.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/modem_connect_tones_tests.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/modem_echo_tests.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/modem_monitor.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/noise_tests.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/oki_adpcm_tests.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/pcap_parse.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/playout_tests.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/plc_tests.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/power_meter_tests.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/queue_tests.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/r2_mf_rx_tests.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/r2_mf_tx_tests.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/rfc2198_sim_tests.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/saturated_tests.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/schedule_tests.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/sig_tone_tests.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/super_tone_rx_tests.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/super_tone_tx_tests.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/swept_tone_tests.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/t31_tests.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/t38_core_tests.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/t38_decode.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/t38_gateway_tests.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/t38_gateway_to_terminal_tests.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/t38_non_ecm_buffer_tests.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/t38_terminal_tests.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/t38_terminal_to_gateway_tests.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/t4_tests.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/testadsi.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/testfax.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/time_scale_tests.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/timezone_tests.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/tone_detect_tests.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/tone_generate_tests.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/tsb85_tests.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/udptl.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/v17_tests.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/v18_tests.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/v22bis_tests.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/v27ter_tests.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/v29_tests.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/v42_tests.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/v42bis_tests.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/v8_tests.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/vector_float_tests.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/vector_int_tests.Po@am__quote@ .c.o: @am__fastdepCC_TRUE@ if $(COMPILE) -MT $@ -MD -MP -MF "$(DEPDIR)/$*.Tpo" -c -o $@ $<; \ @am__fastdepCC_TRUE@ then mv -f "$(DEPDIR)/$*.Tpo" "$(DEPDIR)/$*.Po"; else rm -f "$(DEPDIR)/$*.Tpo"; exit 1; fi @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='$<' object='$@' libtool=no @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(COMPILE) -c $< .c.obj: @am__fastdepCC_TRUE@ if $(COMPILE) -MT $@ -MD -MP -MF "$(DEPDIR)/$*.Tpo" -c -o $@ `$(CYGPATH_W) '$<'`; \ @am__fastdepCC_TRUE@ then mv -f "$(DEPDIR)/$*.Tpo" "$(DEPDIR)/$*.Po"; else rm -f "$(DEPDIR)/$*.Tpo"; exit 1; fi @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='$<' object='$@' libtool=no @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(COMPILE) -c `$(CYGPATH_W) '$<'` .c.lo: @am__fastdepCC_TRUE@ if $(LTCOMPILE) -MT $@ -MD -MP -MF "$(DEPDIR)/$*.Tpo" -c -o $@ $<; \ @am__fastdepCC_TRUE@ then mv -f "$(DEPDIR)/$*.Tpo" "$(DEPDIR)/$*.Plo"; else rm -f "$(DEPDIR)/$*.Tpo"; exit 1; fi @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='$<' object='$@' libtool=yes @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(LTCOMPILE) -c -o $@ $< .cpp.o: @am__fastdepCXX_TRUE@ if $(CXXCOMPILE) -MT $@ -MD -MP -MF "$(DEPDIR)/$*.Tpo" -c -o $@ $<; \ @am__fastdepCXX_TRUE@ then mv -f "$(DEPDIR)/$*.Tpo" "$(DEPDIR)/$*.Po"; else rm -f "$(DEPDIR)/$*.Tpo"; exit 1; fi @AMDEP_TRUE@@am__fastdepCXX_FALSE@ source='$<' object='$@' libtool=no @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCXX_FALSE@ DEPDIR=$(DEPDIR) $(CXXDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCXX_FALSE@ $(CXXCOMPILE) -c -o $@ $< .cpp.obj: @am__fastdepCXX_TRUE@ if $(CXXCOMPILE) -MT $@ -MD -MP -MF "$(DEPDIR)/$*.Tpo" -c -o $@ `$(CYGPATH_W) '$<'`; \ @am__fastdepCXX_TRUE@ then mv -f "$(DEPDIR)/$*.Tpo" "$(DEPDIR)/$*.Po"; else rm -f "$(DEPDIR)/$*.Tpo"; exit 1; fi @AMDEP_TRUE@@am__fastdepCXX_FALSE@ source='$<' object='$@' libtool=no @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCXX_FALSE@ DEPDIR=$(DEPDIR) $(CXXDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCXX_FALSE@ $(CXXCOMPILE) -c -o $@ `$(CYGPATH_W) '$<'` .cpp.lo: @am__fastdepCXX_TRUE@ if $(LTCXXCOMPILE) -MT $@ -MD -MP -MF "$(DEPDIR)/$*.Tpo" -c -o $@ $<; \ @am__fastdepCXX_TRUE@ then mv -f "$(DEPDIR)/$*.Tpo" "$(DEPDIR)/$*.Plo"; else rm -f "$(DEPDIR)/$*.Tpo"; exit 1; fi @AMDEP_TRUE@@am__fastdepCXX_FALSE@ source='$<' object='$@' libtool=yes @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCXX_FALSE@ DEPDIR=$(DEPDIR) $(CXXDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCXX_FALSE@ $(LTCXXCOMPILE) -c -o $@ $< mostlyclean-libtool: -rm -f *.lo clean-libtool: -rm -rf .libs _libs distclean-libtool: -rm -f libtool uninstall-info-am: ID: $(HEADERS) $(SOURCES) $(LISP) $(TAGS_FILES) list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) ' { files[$$0] = 1; } \ END { for (i in files) print i; }'`; \ mkid -fID $$unique tags: TAGS TAGS: $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \ $(TAGS_FILES) $(LISP) tags=; \ here=`pwd`; \ list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) ' { files[$$0] = 1; } \ END { for (i in files) print i; }'`; \ if test -z "$(ETAGS_ARGS)$$tags$$unique"; then :; else \ test -n "$$unique" || unique=$$empty_fix; \ $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ $$tags $$unique; \ fi ctags: CTAGS CTAGS: $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \ $(TAGS_FILES) $(LISP) tags=; \ here=`pwd`; \ list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) ' { files[$$0] = 1; } \ END { for (i in files) print i; }'`; \ test -z "$(CTAGS_ARGS)$$tags$$unique" \ || $(CTAGS) $(CTAGSFLAGS) $(AM_CTAGSFLAGS) $(CTAGS_ARGS) \ $$tags $$unique GTAGS: here=`$(am__cd) $(top_builddir) && pwd` \ && cd $(top_srcdir) \ && gtags -i $(GTAGS_ARGS) $$here distclean-tags: -rm -f TAGS ID GTAGS GRTAGS GSYMS GPATH tags distdir: $(DISTFILES) $(mkdir_p) $(distdir)/msvc @srcdirstrip=`echo "$(srcdir)" | sed 's|.|.|g'`; \ topsrcdirstrip=`echo "$(top_srcdir)" | sed 's|.|.|g'`; \ list='$(DISTFILES)'; for file in $$list; do \ case $$file in \ $(srcdir)/*) file=`echo "$$file" | sed "s|^$$srcdirstrip/||"`;; \ $(top_srcdir)/*) file=`echo "$$file" | sed "s|^$$topsrcdirstrip/|$(top_builddir)/|"`;; \ esac; \ if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \ dir=`echo "$$file" | sed -e 's,/[^/]*$$,,'`; \ if test "$$dir" != "$$file" && test "$$dir" != "."; then \ dir="/$$dir"; \ $(mkdir_p) "$(distdir)$$dir"; \ else \ dir=''; \ fi; \ if test -d $$d/$$file; then \ if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \ cp -pR $(srcdir)/$$file $(distdir)$$dir || exit 1; \ fi; \ cp -pR $$d/$$file $(distdir)$$dir || exit 1; \ else \ test -f $(distdir)/$$file \ || cp -p $$d/$$file $(distdir)/$$file \ || exit 1; \ fi; \ done check-am: all-am check: check-am all-am: Makefile $(PROGRAMS) $(DATA) $(HEADERS) installdirs: install: install-am install-exec: install-exec-am install-data: install-data-am uninstall: uninstall-am install-am: all-am @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am installcheck: installcheck-am install-strip: $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ `test -z '$(STRIP)' || \ echo "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'"` install mostlyclean-generic: clean-generic: distclean-generic: -test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES) maintainer-clean-generic: @echo "This command is intended for maintainers to use" @echo "it deletes files that may require special tools to rebuild." -test -z "$(MAINTAINERCLEANFILES)" || rm -f $(MAINTAINERCLEANFILES) clean: clean-am clean-am: clean-generic clean-libtool clean-noinstPROGRAMS \ mostlyclean-am distclean: distclean-am -rm -rf ./$(DEPDIR) -rm -f Makefile distclean-am: clean-am distclean-compile distclean-generic \ distclean-libtool distclean-tags dvi: dvi-am dvi-am: html: html-am info: info-am info-am: install-data-am: install-exec-am: install-info: install-info-am install-man: installcheck-am: maintainer-clean: maintainer-clean-am -rm -rf ./$(DEPDIR) -rm -f Makefile maintainer-clean-am: distclean-am maintainer-clean-generic mostlyclean: mostlyclean-am mostlyclean-am: mostlyclean-compile mostlyclean-generic \ mostlyclean-libtool pdf: pdf-am pdf-am: ps: ps-am ps-am: uninstall-am: uninstall-info-am .PHONY: CTAGS GTAGS all all-am check check-am clean clean-generic \ clean-libtool clean-noinstPROGRAMS ctags distclean \ distclean-compile distclean-generic distclean-libtool \ distclean-tags distdir dvi dvi-am html html-am info info-am \ install install-am install-data install-data-am install-exec \ install-exec-am install-info install-info-am install-man \ install-strip installcheck installcheck-am installdirs \ maintainer-clean maintainer-clean-generic mostlyclean \ mostlyclean-compile mostlyclean-generic mostlyclean-libtool \ pdf pdf-am ps ps-am tags uninstall uninstall-am \ uninstall-info-am # We need to create the CSS files for echo cancellation tests. sound_c1_8k.wav sound_c3_8k.wav: make_g168_css$(EXEEXT) ./make_g168_css$(EXEEXT) sox sound_c1.wav -r8000 sound_c1_8k.wav sox sound_c3.wav -r8000 sound_c3_8k.wav rm sound_c1.wav sound_c3.wav # Tell versions [3.59,3.63) of GNU make to not export all variables. # Otherwise a system limit (for SysV at least) may be exceeded. .NOEXPORT: spandsp-0.0.6/tests/Makefile.am0000664000175000017500000003377111423567136016020 0ustar steveusteveu## ## SpanDSP - a series of DSP components for telephony ## ## Makefile.am - Process this file with automake to produce Makefile.in ## ## This program is free software; you can redistribute it and/or modify ## it under the terms of the GNU General Public License version 2, as ## published by the Free Software Foundation. ## ## 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., 675 Mass Ave, Cambridge, MA 02139, USA. AM_CFLAGS = $(COMP_VENDOR_CFLAGS) AM_LDFLAGS = $(COMP_VENDOR_LDFLAGS) LIBS += $(TESTLIBS) noinst_DATA = sound_c1_8k.wav sound_c3_8k.wav EXTRA_DIST = fax_tests.sh \ regression_tests.sh \ tsb85_extra_tests.sh \ tsb85_tests.sh \ v42bis_tests.sh \ msvc/adsi_tests.vcproj \ msvc/complex_tests.vcproj \ msvc/complex_vector_float_tests.vcproj \ msvc/complex_vector_int_tests.vcproj \ msvc/dtmf_rx_tests.vcproj \ msvc/dtmf_tx_tests.vcproj \ msvc/queue_tests.vcproj \ msvc/t38_core_tests.vcproj \ msvc/t38_non_ecm_buffer_tests.vcproj \ msvc/t38_terminal_tests.vcproj \ msvc/v22bis_tests.vcproj \ msvc/v29_tests.vcproj \ msvc/v8_tests.vcproj \ msvc/v80_tests.vcproj \ msvc/vector_float_tests.vcproj \ msvc/vector_int_tests.vcproj MAINTAINERCLEANFILES = Makefile.in INCLUDES = -I$(top_builddir)/src -I$(top_builddir)/spandsp-sim -DDATADIR="\"$(pkgdatadir)\"" LIBDIR = -L$(top_builddir)/src noinst_PROGRAMS = adsi_tests \ async_tests \ at_interpreter_tests \ awgn_tests \ bell_mf_rx_tests \ bell_mf_tx_tests \ bert_tests \ bit_operations_tests \ bitstream_tests \ complex_tests \ complex_vector_float_tests \ complex_vector_int_tests \ crc_tests \ dc_restore_tests \ dds_tests \ dtmf_rx_tests \ dtmf_tx_tests \ echo_tests \ fax_decode \ fax_tests \ fsk_tests \ g1050_tests \ g168_tests \ g711_tests \ g722_tests \ g726_tests \ gsm0610_tests \ hdlc_tests \ ima_adpcm_tests \ image_translate_tests \ line_model_tests \ logging_tests \ lpc10_tests \ make_g168_css \ modem_connect_tones_tests \ modem_echo_tests \ noise_tests \ oki_adpcm_tests \ playout_tests \ plc_tests \ power_meter_tests \ queue_tests \ r2_mf_rx_tests \ r2_mf_tx_tests \ rfc2198_sim_tests \ saturated_tests \ schedule_tests \ sig_tone_tests \ super_tone_rx_tests \ super_tone_tx_tests \ swept_tone_tests \ t4_tests \ t31_tests \ t38_core_tests \ t38_decode \ t38_gateway_tests \ t38_gateway_to_terminal_tests \ t38_non_ecm_buffer_tests \ t38_terminal_tests \ t38_terminal_to_gateway_tests \ time_scale_tests \ timezone_tests \ tone_detect_tests \ tone_generate_tests \ tsb85_tests \ v17_tests \ v18_tests \ v22bis_tests \ v27ter_tests \ v29_tests \ v42_tests \ v42bis_tests \ v8_tests \ vector_float_tests \ vector_int_tests \ testadsi \ testfax \ tsb85_tests noinst_HEADERS = echo_monitor.h \ fax_tester.h \ fax_utils.h \ line_model_monitor.h \ media_monitor.h \ modem_monitor.h \ pcap_parse.h \ udptl.h adsi_tests_SOURCES = adsi_tests.c adsi_tests_LDADD = -L$(top_builddir)/spandsp-sim -lspandsp-sim $(LIBDIR) -lspandsp async_tests_SOURCES = async_tests.c async_tests_LDADD = $(LIBDIR) -lspandsp at_interpreter_tests_SOURCES = at_interpreter_tests.c at_interpreter_tests_LDADD = $(LIBDIR) -lspandsp awgn_tests_SOURCES = awgn_tests.c awgn_tests_LDADD = $(LIBDIR) -lspandsp bell_mf_rx_tests_SOURCES = bell_mf_rx_tests.c bell_mf_rx_tests_LDADD = $(LIBDIR) -lspandsp bell_mf_tx_tests_SOURCES = bell_mf_tx_tests.c bell_mf_tx_tests_LDADD = -L$(top_builddir)/spandsp-sim -lspandsp-sim $(LIBDIR) -lspandsp bert_tests_SOURCES = bert_tests.c bert_tests_LDADD = $(LIBDIR) -lspandsp bit_operations_tests_SOURCES = bit_operations_tests.c bit_operations_tests_LDADD = $(LIBDIR) -lspandsp bitstream_tests_SOURCES = bitstream_tests.c bitstream_tests_LDADD = $(LIBDIR) -lspandsp complex_tests_SOURCES = complex_tests.c complex_tests_LDADD = $(LIBDIR) -lspandsp complex_vector_float_tests_SOURCES = complex_vector_float_tests.c complex_vector_float_tests_LDADD = $(LIBDIR) -lspandsp complex_vector_int_tests_SOURCES = complex_vector_int_tests.c complex_vector_int_tests_LDADD = $(LIBDIR) -lspandsp crc_tests_SOURCES = crc_tests.c crc_tests_LDADD = $(LIBDIR) -lspandsp dc_restore_tests_SOURCES = dc_restore_tests.c dc_restore_tests_LDADD = $(LIBDIR) -lspandsp dds_tests_SOURCES = dds_tests.c dds_tests_LDADD = -L$(top_builddir)/spandsp-sim -lspandsp-sim $(LIBDIR) -lspandsp dtmf_rx_tests_SOURCES = dtmf_rx_tests.c dtmf_rx_tests_LDADD = -L$(top_builddir)/spandsp-sim -lspandsp-sim $(LIBDIR) -lspandsp dtmf_tx_tests_SOURCES = dtmf_tx_tests.c dtmf_tx_tests_LDADD = -L$(top_builddir)/spandsp-sim -lspandsp-sim $(LIBDIR) -lspandsp echo_tests_SOURCES = echo_tests.c echo_monitor.cpp echo_tests_LDADD = -L$(top_builddir)/spandsp-sim -lspandsp-sim $(LIBDIR) -lspandsp fax_decode_SOURCES = fax_decode.c fax_decode_LDADD = $(LIBDIR) -lspandsp fax_tests_SOURCES = fax_tests.c fax_utils.c fax_tests_LDADD = -L$(top_builddir)/spandsp-sim -lspandsp-sim $(LIBDIR) -lspandsp fsk_tests_SOURCES = fsk_tests.c fsk_tests_LDADD = -L$(top_builddir)/spandsp-sim -lspandsp-sim $(LIBDIR) -lspandsp g1050_tests_SOURCES = g1050_tests.c media_monitor.cpp g1050_tests_LDADD = -L$(top_builddir)/spandsp-sim -lspandsp-sim $(LIBDIR) -lspandsp g168_tests_SOURCES = g168_tests.c g168_tests_LDADD = -L$(top_builddir)/spandsp-sim -lspandsp-sim $(LIBDIR) -lspandsp g711_tests_SOURCES = g711_tests.c g711_tests_LDADD = -L$(top_builddir)/spandsp-sim -lspandsp-sim $(LIBDIR) -lspandsp g722_tests_SOURCES = g722_tests.c g722_tests_LDADD = $(LIBDIR) -lspandsp g726_tests_SOURCES = g726_tests.c g726_tests_LDADD = -L$(top_builddir)/spandsp-sim -lspandsp-sim $(LIBDIR) -lspandsp gsm0610_tests_SOURCES = gsm0610_tests.c gsm0610_tests_LDADD = -L$(top_builddir)/spandsp-sim -lspandsp-sim $(LIBDIR) -lspandsp hdlc_tests_SOURCES = hdlc_tests.c hdlc_tests_LDADD = $(LIBDIR) -lspandsp ima_adpcm_tests_SOURCES = ima_adpcm_tests.c ima_adpcm_tests_LDADD = -L$(top_builddir)/spandsp-sim -lspandsp-sim $(LIBDIR) -lspandsp image_translate_tests_SOURCES = image_translate_tests.c image_translate_tests_LDADD = -L$(top_builddir)/spandsp-sim -lspandsp-sim $(LIBDIR) -lspandsp line_model_tests_SOURCES = line_model_tests.c line_model_tests_LDADD = -L$(top_builddir)/spandsp-sim -lspandsp-sim $(LIBDIR) -lspandsp logging_tests_SOURCES = logging_tests.c logging_tests_LDADD = $(LIBDIR) -lspandsp lpc10_tests_SOURCES = lpc10_tests.c lpc10_tests_LDADD = -L$(top_builddir)/spandsp-sim -lspandsp-sim $(LIBDIR) -lspandsp make_g168_css_SOURCES = make_g168_css.c make_g168_css_LDADD = $(LIBDIR) -lspandsp modem_echo_tests_SOURCES = modem_echo_tests.c echo_monitor.cpp modem_echo_tests_LDADD = -L$(top_builddir)/spandsp-sim -lspandsp-sim $(LIBDIR) -lspandsp modem_connect_tones_tests_SOURCES = modem_connect_tones_tests.c modem_connect_tones_tests_LDADD = -L$(top_builddir)/spandsp-sim -lspandsp-sim $(LIBDIR) -lspandsp noise_tests_SOURCES = noise_tests.c noise_tests_LDADD = -L$(top_builddir)/spandsp-sim -lspandsp-sim $(LIBDIR) -lspandsp oki_adpcm_tests_SOURCES = oki_adpcm_tests.c oki_adpcm_tests_LDADD = -L$(top_builddir)/spandsp-sim -lspandsp-sim $(LIBDIR) -lspandsp playout_tests_SOURCES = playout_tests.c media_monitor.cpp playout_tests_LDADD = -L$(top_builddir)/spandsp-sim -lspandsp-sim $(LIBDIR) -lspandsp plc_tests_SOURCES = plc_tests.c plc_tests_LDADD = -L$(top_builddir)/spandsp-sim -lspandsp-sim $(LIBDIR) -lspandsp power_meter_tests_SOURCES = power_meter_tests.c power_meter_tests_LDADD = -L$(top_builddir)/spandsp-sim -lspandsp-sim $(LIBDIR) -lspandsp queue_tests_SOURCES = queue_tests.c queue_tests_LDADD = $(LIBDIR) -lspandsp r2_mf_rx_tests_SOURCES = r2_mf_rx_tests.c r2_mf_rx_tests_LDADD = $(LIBDIR) -lspandsp r2_mf_tx_tests_SOURCES = r2_mf_tx_tests.c r2_mf_tx_tests_LDADD = -L$(top_builddir)/spandsp-sim -lspandsp-sim $(LIBDIR) -lspandsp rfc2198_sim_tests_SOURCES = rfc2198_sim_tests.c media_monitor.cpp rfc2198_sim_tests_LDADD = -L$(top_builddir)/spandsp-sim -lspandsp-sim $(LIBDIR) -lspandsp saturated_tests_SOURCES = saturated_tests.c saturated_tests_LDADD = $(LIBDIR) -lspandsp schedule_tests_SOURCES = schedule_tests.c schedule_tests_LDADD = $(LIBDIR) -lspandsp sig_tone_tests_SOURCES = sig_tone_tests.c sig_tone_tests_LDADD = -L$(top_builddir)/spandsp-sim -lspandsp-sim $(LIBDIR) -lspandsp super_tone_rx_tests_SOURCES = super_tone_rx_tests.c super_tone_rx_tests_LDADD = -L$(top_builddir)/spandsp-sim -lspandsp-sim $(LIBDIR) -lspandsp super_tone_tx_tests_SOURCES = super_tone_tx_tests.c super_tone_tx_tests_LDADD = -L$(top_builddir)/spandsp-sim -lspandsp-sim $(LIBDIR) -lspandsp swept_tone_tests_SOURCES = swept_tone_tests.c swept_tone_tests_LDADD = -L$(top_builddir)/spandsp-sim -lspandsp-sim $(LIBDIR) -lspandsp t4_tests_SOURCES = t4_tests.c t4_tests_LDADD = $(LIBDIR) -lspandsp t31_tests_SOURCES = t31_tests.c fax_utils.c media_monitor.cpp t31_tests_LDADD = -L$(top_builddir)/spandsp-sim -lspandsp-sim $(LIBDIR) -lspandsp t38_core_tests_SOURCES = t38_core_tests.c t38_core_tests_LDADD = $(LIBDIR) -lspandsp t38_decode_SOURCES = t38_decode.c fax_utils.c pcap_parse.c udptl.c t38_decode_LDADD = $(LIBDIR) -lspandsp -lpcap t38_gateway_tests_SOURCES = t38_gateway_tests.c fax_utils.c media_monitor.cpp t38_gateway_tests_LDADD = -L$(top_builddir)/spandsp-sim -lspandsp-sim $(LIBDIR) -lspandsp t38_gateway_to_terminal_tests_SOURCES = t38_gateway_to_terminal_tests.c fax_utils.c media_monitor.cpp t38_gateway_to_terminal_tests_LDADD = -L$(top_builddir)/spandsp-sim -lspandsp-sim $(LIBDIR) -lspandsp t38_non_ecm_buffer_tests_SOURCES = t38_non_ecm_buffer_tests.c t38_non_ecm_buffer_tests_LDADD = $(LIBDIR) -lspandsp t38_terminal_tests_SOURCES = t38_terminal_tests.c fax_utils.c media_monitor.cpp t38_terminal_tests_LDADD = -L$(top_builddir)/spandsp-sim -lspandsp-sim $(LIBDIR) -lspandsp t38_terminal_to_gateway_tests_SOURCES = t38_terminal_to_gateway_tests.c fax_utils.c media_monitor.cpp t38_terminal_to_gateway_tests_LDADD = -L$(top_builddir)/spandsp-sim -lspandsp-sim $(LIBDIR) -lspandsp time_scale_tests_SOURCES = time_scale_tests.c time_scale_tests_LDADD = $(LIBDIR) -lspandsp timezone_tests_SOURCES = timezone_tests.c timezone_tests_LDADD = $(LIBDIR) -lspandsp tone_detect_tests_SOURCES = tone_detect_tests.c tone_detect_tests_LDADD = $(LIBDIR) -lspandsp tone_generate_tests_SOURCES = tone_generate_tests.c tone_generate_tests_LDADD = -L$(top_builddir)/spandsp-sim -lspandsp-sim $(LIBDIR) -lspandsp tsb85_tests_SOURCES = tsb85_tests.c fax_utils.c fax_tester.c tsb85_tests_LDADD = -L$(top_builddir)/spandsp-sim -lspandsp-sim $(LIBDIR) -lspandsp v17_tests_SOURCES = v17_tests.c line_model_monitor.cpp modem_monitor.cpp v17_tests_LDADD = -L$(top_builddir)/spandsp-sim -lspandsp-sim $(LIBDIR) -lspandsp v18_tests_SOURCES = v18_tests.c v18_tests_LDADD = -L$(top_builddir)/spandsp-sim -lspandsp-sim $(LIBDIR) -lspandsp v22bis_tests_SOURCES = v22bis_tests.c line_model_monitor.cpp modem_monitor.cpp v22bis_tests_LDADD = -L$(top_builddir)/spandsp-sim -lspandsp-sim $(LIBDIR) -lspandsp v27ter_tests_SOURCES = v27ter_tests.c line_model_monitor.cpp modem_monitor.cpp v27ter_tests_LDADD = -L$(top_builddir)/spandsp-sim -lspandsp-sim $(LIBDIR) -lspandsp v29_tests_SOURCES = v29_tests.c line_model_monitor.cpp modem_monitor.cpp v29_tests_LDADD = -L$(top_builddir)/spandsp-sim -lspandsp-sim $(LIBDIR) -lspandsp v42_tests_SOURCES = v42_tests.c v42_tests_LDADD = $(LIBDIR) -lspandsp v42bis_tests_SOURCES = v42bis_tests.c v42bis_tests_LDADD = $(LIBDIR) -lspandsp v8_tests_SOURCES = v8_tests.c v8_tests_LDADD = -L$(top_builddir)/spandsp-sim -lspandsp-sim $(LIBDIR) -lspandsp vector_float_tests_SOURCES = vector_float_tests.c vector_float_tests_LDADD = $(LIBDIR) -lspandsp vector_int_tests_SOURCES = vector_int_tests.c vector_int_tests_LDADD = $(LIBDIR) -lspandsp testadsi_SOURCES = testadsi.c testadsi_LDADD = $(LIBDIR) -lspandsp testfax_SOURCES = testfax.c testfax_LDADD = $(LIBDIR) -lspandsp # We need to create the CSS files for echo cancellation tests. sound_c1_8k.wav sound_c3_8k.wav: make_g168_css$(EXEEXT) ./make_g168_css$(EXEEXT) sox sound_c1.wav -r8000 sound_c1_8k.wav sox sound_c3.wav -r8000 sound_c3_8k.wav rm sound_c1.wav sound_c3.wav spandsp-0.0.6/tests/noise_tests.c0000664000175000017500000001727611422612267016464 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * noise_tests.c * * Written by Steve Underwood * * Copyright (C) 2005 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License version 2, as * published by the Free Software Foundation. * * 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., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \page noise_tests_page Noise generator tests \section noise_tests_page_sec_1 What does it do? */ #if defined(HAVE_CONFIG_H) #include "config.h" #endif #include #include #include #include //#if defined(WITH_SPANDSP_INTERNALS) #define SPANDSP_EXPOSE_INTERNAL_STRUCTURES //#endif #include "spandsp.h" #include "spandsp-sim.h" #if !defined(M_PI) # define M_PI 3.14159265358979323846 /* pi */ #endif #define OUT_FILE_NAME "noise.wav" /* Some simple sanity tests for the noise generation routines */ int main (int argc, char *argv[]) { int i; int j; int level; int clip_high; int clip_low; int quality; int total_samples; int seed = 1234567; int outframes; int16_t value; double total; double x; double p; double o; int bins[65536]; int16_t amp[1024]; noise_state_t noise_source; SNDFILE *outhandle; if ((outhandle = sf_open_telephony_write(OUT_FILE_NAME, 1)) == NULL) { fprintf(stderr, " Cannot create audio file '%s'\n", OUT_FILE_NAME); exit(2); } for (quality = 7; quality <= 20; quality += (20 - 7)) { /* Generate AWGN at several RMS levels between -50dBOv and 0dBOv. Noise is generated for a large number of samples (1,000,000), and the RMS value of the noise is calculated along the way. If the resulting level is close to the requested RMS level, at least the scaling of the noise should be Ok. At high levels some clipping may distort the result a little. */ printf("Testing AWGN power, with quality %d\n", quality); for (level = -50; level <= 0; level += 5) { clip_high = 0; clip_low = 0; total = 0.0; noise_init_dbov(&noise_source, seed, (float) level, NOISE_CLASS_AWGN, quality); total_samples = 1000000; for (i = 0; i < total_samples; i++) { value = noise(&noise_source); if (value == 32767) clip_high++; else if (value == -32768) clip_low++; total += ((double) value)*((double) value); } printf ("RMS = %.3f (expected %d) %.2f%% error [clipped samples %d+%d]\n", log10(sqrt(total/total_samples)/32768.0)*20.0, level, 100.0*(1.0 - sqrt(total/total_samples)/(pow(10.0, level/20.0)*32768.0)), clip_low, clip_high); if (level < -5 && fabs(log10(sqrt(total/total_samples)/32768.0)*20.0 - level) > 0.2) { printf("Test failed\n"); exit(2); } } } /* Now look at the statistical spread of the results, by collecting data in bins from a large number of samples. Use a fairly high noise level, but low enough to avoid significant clipping. Use the Gaussian model to predict the real probability, and present the results for graphing. */ quality = 7; printf("Testing the statistical spread of AWGN, with quality %d\n", quality); memset(bins, 0, sizeof(bins)); clip_high = 0; clip_low = 0; level = -15; noise_init_dbov(&noise_source, seed, (float) level, NOISE_CLASS_AWGN, quality); total_samples = 10000000; for (i = 0; i < total_samples; i++) { value = noise(&noise_source); if (value == 32767) clip_high++; else if (value == -32768) clip_low++; bins[value + 32768]++; } /* Find the RMS power level to expect */ o = pow(10.0, level/20.0)*(32768.0*0.70711); for (i = 0; i < 65536 - 10; i++) { x = i - 32768; /* Find the real probability for this bin */ p = (1.0/(o*sqrt(2.0*M_PI)))*exp(-(x*x)/(2.0*o*o)); /* Now do a little smoothing on the real data to get a reasonably steady answer */ x = 0; for (j = 0; j < 10; j++) x += bins[i + j]; x /= 10.0; x /= total_samples; /* Now send it out for graphing. */ if (p > 0.0000001) printf("%6d %.7f %.7f\n", i - 32768, x, p); } printf("Generating AWGN at -15dBOv to file\n"); for (j = 0; j < 50; j++) { for (i = 0; i < 1024; i++) amp[i] = noise(&noise_source); outframes = sf_writef_short(outhandle, amp, 1024); if (outframes != 1024) { fprintf(stderr, " Error writing audio file\n"); exit(2); } } /* Generate Hoth noise at several RMS levels between -50dBm and 0dBm. Noise is generated for a large number of samples (1,000,000), and the RMS value of the noise is calculated along the way. If the resulting level is close to the requested RMS level, at least the scaling of the noise should be Ok. At high levels some clipping may distort the result a little. */ quality = 7; printf("Testing Hoth noise power, with quality %d\n", quality); for (level = -50; level <= 0; level += 5) { clip_high = 0; clip_low = 0; total = 0.0; noise_init_dbov(&noise_source, seed, (float) level, NOISE_CLASS_HOTH, quality); total_samples = 1000000; for (i = 0; i < total_samples; i++) { value = noise(&noise_source); if (value == 32767) clip_high++; else if (value == -32768) clip_low++; total += ((double) value)*((double) value); } printf ("RMS = %.3f (expected %d) %.2f%% error [clipped samples %d+%d]\n", log10(sqrt(total/total_samples)/32768.0)*20.0, level, 100.0*(1.0 - sqrt(total/total_samples)/(pow(10.0, level/20.0)*32768.0)), clip_low, clip_high); if (level < -5 && fabs(log10(sqrt(total/total_samples)/32768.0)*20.0 - level) > 0.2) { printf("Test failed\n"); exit(2); } } quality = 7; printf("Generating Hoth noise at -15dBOv to file\n"); level = -15; noise_init_dbov(&noise_source, seed, (float) level, NOISE_CLASS_HOTH, quality); for (j = 0; j < 50; j++) { for (i = 0; i < 1024; i++) amp[i] = noise(&noise_source); outframes = sf_writef_short(outhandle, amp, 1024); if (outframes != 1024) { fprintf(stderr, " Error writing audio file\n"); exit(2); } } if (sf_close(outhandle)) { fprintf(stderr, " Cannot close audio file '%s'\n", OUT_FILE_NAME); exit(2); } printf("Tests passed.\n"); return 0; } /*- End of function --------------------------------------------------------*/ /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/tests/bell_mf_tx_tests.c0000664000175000017500000001204311422612266017444 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * bell_mf_tx_tests.c - Test the Bell MF generator. * * Written by Steve Underwood * * Copyright (C) 2003 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License version 2, as * published by the Free Software Foundation. * * 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., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \file */ /*! \page bell_mf_tx_tests_page Bell MF generation tests \section bell_mf_tx_tests_page_sec_1 What does it do? ???. \section bell_mf_tx_tests_page_sec_2 How does it work? ???. */ #if defined(HAVE_CONFIG_H) #include "config.h" #endif #include #include #include #include #include #include //#if defined(WITH_SPANDSP_INTERNALS) #define SPANDSP_EXPOSE_INTERNAL_STRUCTURES //#endif #include "spandsp.h" #include "spandsp-sim.h" #define OUTPUT_FILE_NAME "bell_mf.wav" int main(int argc, char *argv[]) { bell_mf_tx_state_t *gen; int16_t amp[16384]; int len; SNDFILE *outhandle; int outframes; int add_digits; if ((outhandle = sf_open_telephony_write(OUTPUT_FILE_NAME, 1)) == NULL) { fprintf(stderr, " Cannot open audio file '%s'\n", OUTPUT_FILE_NAME); exit(2); } gen = bell_mf_tx_init(NULL); len = bell_mf_tx(gen, amp, 16384); printf("Generated %d samples\n", len); outframes = sf_writef_short(outhandle, amp, len); if (bell_mf_tx_put(gen, "123", -1)) printf("Ooops\n"); len = bell_mf_tx(gen, amp, 16384); printf("Generated %d samples\n", len); outframes = sf_writef_short(outhandle, amp, len); if (bell_mf_tx_put(gen, "456", -1)) printf("Ooops\n"); len = bell_mf_tx(gen, amp, 160); printf("Generated %d samples\n", len); outframes = sf_writef_short(outhandle, amp, len); if (bell_mf_tx_put(gen, "789", -1)) printf("Ooops\n"); len = bell_mf_tx(gen, amp, 160); printf("Generated %d samples\n", len); outframes = sf_writef_short(outhandle, amp, len); if (bell_mf_tx_put(gen, "*#", -1)) printf("Ooops\n"); len = bell_mf_tx(gen, amp, 160); printf("Generated %d samples\n", len); outframes = sf_writef_short(outhandle, amp, len); add_digits = 1; do { len = bell_mf_tx(gen, amp, 160); printf("Generated %d samples\n", len); if (len > 0) { outframes = sf_writef_short(outhandle, amp, len); } if (add_digits) { if (bell_mf_tx_put(gen, "1234567890", -1)) { printf("Digit buffer full\n"); add_digits = 0; } } } while (len > 0); bell_mf_tx_init(gen); len = bell_mf_tx(gen, amp, 16384); printf("Generated %d samples\n", len); outframes = sf_writef_short(outhandle, amp, len); if (bell_mf_tx_put(gen, "123", -1)) printf("Ooops\n"); len = bell_mf_tx(gen, amp, 16384); printf("Generated %d samples\n", len); outframes = sf_writef_short(outhandle, amp, len); if (bell_mf_tx_put(gen, "456", -1)) printf("Ooops\n"); len = bell_mf_tx(gen, amp, 160); printf("Generated %d samples\n", len); outframes = sf_writef_short(outhandle, amp, len); if (bell_mf_tx_put(gen, "789", -1)) printf("Ooops\n"); len = bell_mf_tx(gen, amp, 160); printf("Generated %d samples\n", len); outframes = sf_writef_short(outhandle, amp, len); if (bell_mf_tx_put(gen, "0*#", -1)) printf("Ooops\n"); len = bell_mf_tx(gen, amp, 160); printf("Generated %d samples\n", len); outframes = sf_writef_short(outhandle, amp, len); if (bell_mf_tx_put(gen, "ABC", -1)) printf("Ooops\n"); len = bell_mf_tx(gen, amp, 160); printf("Generated %d samples\n", len); outframes = sf_writef_short(outhandle, amp, len); add_digits = 1; do { len = bell_mf_tx(gen, amp, 160); printf("Generated %d samples\n", len); if (len > 0) { outframes = sf_writef_short(outhandle, amp, len); } if (add_digits) { if (bell_mf_tx_put(gen, "1234567890", -1)) { printf("Digit buffer full\n"); add_digits = 0; } } } while (len > 0); if (sf_close(outhandle) != 0) { fprintf(stderr, " Cannot close audio file '%s'\n", OUTPUT_FILE_NAME); exit (2); } return 0; } /*- End of function --------------------------------------------------------*/ /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/tests/modem_connect_tones_tests.c0000664000175000017500000015010311422612267021354 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * modem_connect_tones_tests.c * * Written by Steve Underwood * * Copyright (C) 2006 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License version 2, as * published by the Free Software Foundation. * * 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., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \page modem_connect_tones_tests_page Modem connect tones tests \section modem_connect_tones_rx_tests_page_sec_1 What does it do? These tests... */ /* Enable the following definition to enable direct probing into the FAX structures */ //#define WITH_SPANDSP_INTERNALS #if defined(HAVE_CONFIG_H) #include "config.h" #endif #include #include #include #include #include #include //#if defined(WITH_SPANDSP_INTERNALS) #define SPANDSP_EXPOSE_INTERNAL_STRUCTURES //#endif #include "spandsp.h" #include "spandsp-sim.h" #define SAMPLES_PER_CHUNK 160 #define OUTPUT_FILE_NAME "modem_connect_tones.wav" #define MITEL_DIR "../test-data/mitel/" #define BELLCORE_DIR "../test-data/bellcore/" #define FALSE 0 #define TRUE (!FALSE) #define LEVEL_MAX -5 #define LEVEL_MIN -48 #define LEVEL_MIN_ACCEPT -43 #define LEVEL_MIN_REJECT -44 /* The 1100Hz tone is supposed to be within 38Hz, according to T.30. Allow another 8Hz for FDM, even though you rarely see that used today. */ #define CED_FREQ_TOLERANCE (38 + 8) #define CED_FREQ_BLACKOUT (80) /* The 2100Hz tone is supposed to be within 15Hz, according to T.30. Allow another 8Hz for FDM, even though you rarely see that used today. */ #define CNG_FREQ_TOLERANCE (15 + 8) #define CNG_FREQ_BLACKOUT (80) #define AM_FREQ_TOLERANCE (1) const char *bellcore_files[] = { MITEL_DIR "mitel-cm7291-talkoff.wav", BELLCORE_DIR "tr-tsy-00763-1.wav", BELLCORE_DIR "tr-tsy-00763-2.wav", BELLCORE_DIR "tr-tsy-00763-3.wav", BELLCORE_DIR "tr-tsy-00763-4.wav", BELLCORE_DIR "tr-tsy-00763-5.wav", BELLCORE_DIR "tr-tsy-00763-6.wav", "" }; enum { PERFORM_TEST_1A = (1 << 1), PERFORM_TEST_1B = (1 << 2), PERFORM_TEST_1C = (1 << 3), PERFORM_TEST_1D = (1 << 4), PERFORM_TEST_1E = (1 << 5), PERFORM_TEST_2A = (1 << 6), PERFORM_TEST_2B = (1 << 7), PERFORM_TEST_2C = (1 << 8), PERFORM_TEST_2D = (1 << 9), PERFORM_TEST_2E = (1 << 10), PERFORM_TEST_3A = (1 << 11), PERFORM_TEST_3B = (1 << 12), PERFORM_TEST_3C = (1 << 13), PERFORM_TEST_3D = (1 << 14), PERFORM_TEST_3E = (1 << 15), PERFORM_TEST_4 = (1 << 16), PERFORM_TEST_5A = (1 << 17), PERFORM_TEST_5B = (1 << 18), PERFORM_TEST_6A = (1 << 19), PERFORM_TEST_6B = (1 << 20), PERFORM_TEST_7A = (1 << 21), PERFORM_TEST_7B = (1 << 22), PERFORM_TEST_8 = (1 << 23) }; int preamble_count = 0; int preamble_on_at = -1; int preamble_off_at = -1; int hits = 0; int when = 0; static int preamble_get_bit(void *user_data) { static int bit_no = 0; int bit; /* Generate a section of HDLC flag octet preamble. Then generate some random bits, which should not look like preamble. */ if (++preamble_count < 255) { bit = (bit_no < 2) ? 0 : 1; if (++bit_no >= 8) bit_no = 0; #if 0 /* Inject some bad bits */ if (rand()%15 == 0) return bit ^ 1; #endif } else { bit = rand() & 1; } return bit; } /*- End of function --------------------------------------------------------*/ static void cng_detected(void *user_data, int tone, int level, int delay) { printf("%s (%d) declared at %fs, delay %d (%ddBm0)\n", modem_connect_tone_to_str(tone), tone, (float) when/SAMPLE_RATE, delay, level); if (tone == MODEM_CONNECT_TONES_FAX_CNG) hits++; } /*- End of function --------------------------------------------------------*/ static void preamble_detected(void *user_data, int tone, int level, int delay) { printf("%s (%d) declared at bit %d (%ddBm0)\n", modem_connect_tone_to_str(tone), tone, preamble_count, level); if (tone == MODEM_CONNECT_TONES_FAX_PREAMBLE) preamble_on_at = preamble_count; else preamble_off_at = preamble_count; /*endif*/ } /*- End of function --------------------------------------------------------*/ static void ced_detected(void *user_data, int tone, int level, int delay) { printf("%s (%d) declared at %fs, delay %d (%ddBm0)\n", modem_connect_tone_to_str(tone), tone, (float) when/SAMPLE_RATE, delay, level); if (tone == MODEM_CONNECT_TONES_FAX_PREAMBLE || tone == MODEM_CONNECT_TONES_ANS) { hits++; } } /*- End of function --------------------------------------------------------*/ static void ans_pr_detected(void *user_data, int tone, int level, int delay) { printf("%s (%d) declared at %fs, delay %d (%ddBm0)\n", modem_connect_tone_to_str(tone), tone, (float) when/SAMPLE_RATE, delay, level); if (tone == MODEM_CONNECT_TONES_ANS_PR) hits++; } /*- End of function --------------------------------------------------------*/ int main(int argc, char *argv[]) { int i; int j; int pitch; int depth; int level; int interval; int cycle; int16_t amp[8000]; modem_connect_tones_rx_state_t cng_rx; modem_connect_tones_rx_state_t ced_rx; modem_connect_tones_rx_state_t ans_pr_rx; modem_connect_tones_tx_state_t modem_tone_tx; awgn_state_t chan_noise_source; SNDFILE *inhandle; SNDFILE *outhandle; int outframes; int frames; int samples; int hit; int false_hit; int false_miss; power_meter_t power_state; int power; int max_power; int level2; int max_level2; int tone_type; int test_list; int opt; char *decode_test_file; fsk_tx_state_t preamble_tx; test_list = 0; decode_test_file = NULL; while ((opt = getopt(argc, argv, "d:")) != -1) { switch (opt) { case 'd': decode_test_file = optarg; break; default: //usage(); exit(2); break; } } argc -= optind; argv += optind; for (i = 0; i < argc; i++) { if (strcasecmp(argv[i], "1a") == 0) test_list |= PERFORM_TEST_1A; else if (strcasecmp(argv[i], "1b") == 0) test_list |= PERFORM_TEST_1B; else if (strcasecmp(argv[i], "1c") == 0) test_list |= PERFORM_TEST_1C; else if (strcasecmp(argv[i], "1d") == 0) test_list |= PERFORM_TEST_1D; else if (strcasecmp(argv[i], "1e") == 0) test_list |= PERFORM_TEST_1E; else if (strcasecmp(argv[i], "2a") == 0) test_list |= PERFORM_TEST_2A; else if (strcasecmp(argv[i], "2b") == 0) test_list |= PERFORM_TEST_2B; else if (strcasecmp(argv[i], "2c") == 0) test_list |= PERFORM_TEST_2C; else if (strcasecmp(argv[i], "2d") == 0) test_list |= PERFORM_TEST_2D; else if (strcasecmp(argv[i], "2e") == 0) test_list |= PERFORM_TEST_2E; else if (strcasecmp(argv[i], "3a") == 0) test_list |= PERFORM_TEST_3A; else if (strcasecmp(argv[i], "3b") == 0) test_list |= PERFORM_TEST_3B; else if (strcasecmp(argv[i], "3c") == 0) test_list |= PERFORM_TEST_3C; else if (strcasecmp(argv[i], "3d") == 0) test_list |= PERFORM_TEST_3D; else if (strcasecmp(argv[i], "3e") == 0) test_list |= PERFORM_TEST_3E; else if (strcasecmp(argv[i], "4") == 0) test_list |= PERFORM_TEST_4; else if (strcasecmp(argv[i], "5a") == 0) test_list |= PERFORM_TEST_5A; else if (strcasecmp(argv[i], "5b") == 0) test_list |= PERFORM_TEST_5B; else if (strcasecmp(argv[i], "6a") == 0) test_list |= PERFORM_TEST_6A; else if (strcasecmp(argv[i], "6b") == 0) test_list |= PERFORM_TEST_6B; else if (strcasecmp(argv[i], "7a") == 0) test_list |= PERFORM_TEST_7A; else if (strcasecmp(argv[i], "7b") == 0) test_list |= PERFORM_TEST_7B; else if (strcasecmp(argv[i], "8") == 0) test_list |= PERFORM_TEST_8; else { fprintf(stderr, "Unknown test '%s' specified\n", argv[i]); exit(2); } } if (decode_test_file == NULL && test_list == 0) test_list = 0xFFFFFFFF; if ((outhandle = sf_open_telephony_write(OUTPUT_FILE_NAME, 1)) == NULL) { fprintf(stderr, " Cannot create audio file '%s'\n", OUTPUT_FILE_NAME); exit(2); } if ((test_list & PERFORM_TEST_1A)) { printf("Test 1a: CNG generation to a file\n"); modem_connect_tones_tx_init(&modem_tone_tx, MODEM_CONNECT_TONES_FAX_CNG); for (i = 0; i < 20*SAMPLE_RATE; i += SAMPLES_PER_CHUNK) { samples = modem_connect_tones_tx(&modem_tone_tx, amp, SAMPLES_PER_CHUNK); outframes = sf_writef_short(outhandle, amp, samples); if (outframes != samples) { fprintf(stderr, " Error writing audio file\n"); exit(2); } /*endif*/ } /*endfor*/ } /*endif*/ if ((test_list & PERFORM_TEST_1B)) { printf("Test 1b: CED/ANS generation to a file\n"); modem_connect_tones_tx_init(&modem_tone_tx, MODEM_CONNECT_TONES_FAX_CED); for (i = 0; i < 20*SAMPLE_RATE; i += SAMPLES_PER_CHUNK) { samples = modem_connect_tones_tx(&modem_tone_tx, amp, SAMPLES_PER_CHUNK); outframes = sf_writef_short(outhandle, amp, samples); if (outframes != samples) { fprintf(stderr, " Error writing audio file\n"); exit(2); } /*endif*/ } /*endfor*/ } /*endif*/ if ((test_list & PERFORM_TEST_1C)) { printf("Test 1c: ANSam (Modulated ANS) generation to a file\n"); /* Some with modulation */ modem_connect_tones_tx_init(&modem_tone_tx, MODEM_CONNECT_TONES_ANSAM); for (i = 0; i < 20*SAMPLE_RATE; i += SAMPLES_PER_CHUNK) { samples = modem_connect_tones_tx(&modem_tone_tx, amp, SAMPLES_PER_CHUNK); outframes = sf_writef_short(outhandle, amp, samples); if (outframes != samples) { fprintf(stderr, " Error writing audio file\n"); exit(2); } /*endif*/ } /*endfor*/ } /*endif*/ if ((test_list & PERFORM_TEST_1D)) { printf("Test 1d: ANS/ (EC-disable) generation to a file\n"); /* Some without modulation, but with phase reversals */ modem_connect_tones_tx_init(&modem_tone_tx, MODEM_CONNECT_TONES_ANS_PR); for (i = 0; i < 20*SAMPLE_RATE; i += SAMPLES_PER_CHUNK) { samples = modem_connect_tones_tx(&modem_tone_tx, amp, SAMPLES_PER_CHUNK); outframes = sf_writef_short(outhandle, amp, samples); if (outframes != samples) { fprintf(stderr, " Error writing audio file\n"); exit(2); } /*endif*/ } /*endfor*/ } /*endif*/ if ((test_list & PERFORM_TEST_1E)) { printf("Test 1e: ANSam/ (Modulated EC-disable) generation to a file\n"); /* Some with modulation and phase reversals */ modem_connect_tones_tx_init(&modem_tone_tx, MODEM_CONNECT_TONES_ANSAM_PR); for (i = 0; i < 20*SAMPLE_RATE; i += SAMPLES_PER_CHUNK) { samples = modem_connect_tones_tx(&modem_tone_tx, amp, SAMPLES_PER_CHUNK); outframes = sf_writef_short(outhandle, amp, samples); if (outframes != samples) { fprintf(stderr, " Error writing audio file\n"); exit(2); } /*endif*/ } /*endfor*/ } /*endif*/ if (sf_close(outhandle) != 0) { printf(" Cannot close audio file '%s'\n", OUTPUT_FILE_NAME); exit(2); } /*endif*/ if ((test_list & PERFORM_TEST_2A)) { printf("Test 2a: CNG detection with frequency\n"); tone_type = MODEM_CONNECT_TONES_FAX_CNG; awgn_init_dbm0(&chan_noise_source, 7162534, -50.0f); false_hit = FALSE; false_miss = FALSE; for (pitch = 600; pitch <= 1600; pitch++) { /* Use the transmitter to test the receiver */ modem_connect_tones_tx_init(&modem_tone_tx, tone_type); /* Fudge things for the test */ modem_tone_tx.tone_phase_rate = dds_phase_rate(pitch); modem_connect_tones_rx_init(&cng_rx, tone_type, NULL, NULL); power_meter_init(&power_state, 5); power = 0; max_power = 0; level2 = 0; max_level2 = 0; for (i = 0; i < 10*SAMPLE_RATE; i += SAMPLES_PER_CHUNK) { samples = modem_connect_tones_tx(&modem_tone_tx, amp, SAMPLES_PER_CHUNK); for (j = 0; j < samples; j++) { amp[j] += awgn(&chan_noise_source); power = power_meter_update(&power_state, amp[j]); if (power > max_power) max_power = power; /*endif*/ level2 += ((abs(amp[j]) - level2) >> 5); if (level2 > max_level2) max_level2 = level2; } /*endfor*/ modem_connect_tones_rx(&cng_rx, amp, samples); } /*endfor*/ hit = modem_connect_tones_rx_get(&cng_rx); if (pitch < (1100 - CED_FREQ_BLACKOUT) || pitch > (1100 + CED_FREQ_BLACKOUT)) { if (hit != MODEM_CONNECT_TONES_NONE) false_hit = TRUE; /*endif*/ } else if (pitch > (1100 - CED_FREQ_TOLERANCE) && pitch < (1100 + CED_FREQ_TOLERANCE)) { if (hit != tone_type) false_miss = TRUE; /*endif*/ } /*endif*/ if (hit != MODEM_CONNECT_TONES_NONE) printf("Detected at %5dHz %12" PRId32 " %12" PRId32 " %d\n", pitch, cng_rx.channel_level, cng_rx.notch_level, hit); /*endif*/ } /*endfor*/ if (false_hit || false_miss) { printf("Test failed.\n"); exit(2); } /*endif*/ printf("Test passed.\n"); } /*endif*/ if ((test_list & PERFORM_TEST_2B)) { printf("Test 2b: CED/ANS detection with frequency\n"); awgn_init_dbm0(&chan_noise_source, 7162534, -50.0f); false_hit = FALSE; false_miss = FALSE; for (pitch = 1600; pitch < 2600; pitch++) { /* Use the transmitter to test the receiver */ modem_connect_tones_tx_init(&modem_tone_tx, MODEM_CONNECT_TONES_ANS); /* Fudge things for the test */ modem_tone_tx.tone_phase_rate = dds_phase_rate(pitch); modem_connect_tones_rx_init(&ced_rx, MODEM_CONNECT_TONES_FAX_CED_OR_PREAMBLE, NULL, NULL); for (i = 0; i < 10*SAMPLE_RATE; i += SAMPLES_PER_CHUNK) { samples = modem_connect_tones_tx(&modem_tone_tx, amp, SAMPLES_PER_CHUNK); for (j = 0; j < samples; j++) amp[j] += awgn(&chan_noise_source); /*endfor*/ modem_connect_tones_rx(&ced_rx, amp, samples); } /*endfor*/ hit = modem_connect_tones_rx_get(&ced_rx); if (pitch < (2100 - CNG_FREQ_BLACKOUT) || pitch > (2100 + CNG_FREQ_BLACKOUT)) { if (hit != MODEM_CONNECT_TONES_NONE) false_hit = TRUE; /*endif*/ } else if (pitch > (2100 - CNG_FREQ_TOLERANCE) && pitch < (2100 + CNG_FREQ_TOLERANCE)) { if (hit != MODEM_CONNECT_TONES_FAX_CED) false_miss = TRUE; /*endif*/ } /*endif*/ if (hit != MODEM_CONNECT_TONES_NONE) printf("Detected at %5dHz %12" PRId32 " %12" PRId32 " %d\n", pitch, ced_rx.channel_level, ced_rx.notch_level, hit); /*endif*/ } if (false_hit || false_miss) { printf("Test failed.\n"); exit(2); } /*endif*/ printf("Test passed.\n"); } /*endif*/ if ((test_list & PERFORM_TEST_2C)) { printf("Test 2c: ANSam detection with frequency\n"); tone_type = MODEM_CONNECT_TONES_ANSAM; awgn_init_dbm0(&chan_noise_source, 7162534, -50.0f); false_hit = FALSE; false_miss = FALSE; for (pitch = 2000; pitch <= 2200; pitch++) { /* Use the transmitter to test the receiver */ modem_connect_tones_tx_init(&modem_tone_tx, tone_type); /* Fudge things for the test */ modem_tone_tx.tone_phase_rate = dds_phase_rate(pitch); modem_connect_tones_rx_init(&ans_pr_rx, tone_type, NULL, NULL); for (i = 0; i < 10*SAMPLE_RATE; i += SAMPLES_PER_CHUNK) { samples = modem_connect_tones_tx(&modem_tone_tx, amp, SAMPLES_PER_CHUNK); for (j = 0; j < samples; j++) amp[j] += awgn(&chan_noise_source); /*endfor*/ modem_connect_tones_rx(&ans_pr_rx, amp, samples); } /*endfor*/ hit = modem_connect_tones_rx_get(&ans_pr_rx); if (pitch < (2100 - CNG_FREQ_BLACKOUT) || pitch > (2100 + CNG_FREQ_BLACKOUT)) { if (hit != MODEM_CONNECT_TONES_NONE) false_hit = TRUE; /*endif*/ } else if (pitch > (2100 - CNG_FREQ_TOLERANCE) && pitch < (2100 + CNG_FREQ_TOLERANCE)) { if (hit != tone_type) false_miss = TRUE; /*endif*/ } /*endif*/ if (hit != MODEM_CONNECT_TONES_NONE) printf("Detected at %5dHz %12" PRId32 " %12" PRId32 " %d\n", pitch, ans_pr_rx.channel_level, ans_pr_rx.notch_level, hit); /*endif*/ } /*endfor*/ if (false_hit || false_miss) { printf("Test failed.\n"); exit(2); } /*endif*/ printf("Test passed.\n"); } /*endif*/ if ((test_list & PERFORM_TEST_2D)) { printf("Test 2d: ANS/ (EC-disable) detection with frequency\n"); tone_type = MODEM_CONNECT_TONES_ANS_PR; awgn_init_dbm0(&chan_noise_source, 7162534, -50.0f); false_hit = FALSE; false_miss = FALSE; for (pitch = 2000; pitch <= 2200; pitch++) { /* Use the transmitter to test the receiver */ modem_connect_tones_tx_init(&modem_tone_tx, tone_type); /* Fudge things for the test */ modem_tone_tx.tone_phase_rate = dds_phase_rate(pitch); modem_connect_tones_rx_init(&ans_pr_rx, tone_type, NULL, NULL); for (i = 0; i < 10*SAMPLE_RATE; i += SAMPLES_PER_CHUNK) { samples = modem_connect_tones_tx(&modem_tone_tx, amp, SAMPLES_PER_CHUNK); for (j = 0; j < samples; j++) amp[j] += awgn(&chan_noise_source); /*endfor*/ modem_connect_tones_rx(&ans_pr_rx, amp, samples); } /*endfor*/ hit = modem_connect_tones_rx_get(&ans_pr_rx); if (pitch < (2100 - CNG_FREQ_BLACKOUT) || pitch > (2100 + CNG_FREQ_BLACKOUT)) { if (hit != MODEM_CONNECT_TONES_NONE) false_hit = TRUE; /*endif*/ } else if (pitch > (2100 - CNG_FREQ_TOLERANCE) && pitch < (2100 + CNG_FREQ_TOLERANCE)) { if (hit != tone_type) false_miss = TRUE; /*endif*/ } /*endif*/ if (hit != MODEM_CONNECT_TONES_NONE) printf("Detected at %5dHz %12" PRId32 " %12" PRId32 " %d\n", pitch, ans_pr_rx.channel_level, ans_pr_rx.notch_level, hit); /*endif*/ } /*endfor*/ if (false_hit || false_miss) { printf("Test failed.\n"); exit(2); } /*endif*/ printf("Test passed.\n"); } /*endif*/ if ((test_list & PERFORM_TEST_2E)) { printf("Test 2e: ANSam/ (Modulated EC-disable) detection with frequency\n"); tone_type = MODEM_CONNECT_TONES_ANSAM_PR; awgn_init_dbm0(&chan_noise_source, 7162534, -50.0f); false_hit = FALSE; false_miss = FALSE; for (pitch = 2000; pitch <= 2200; pitch++) { /* Use the transmitter to test the receiver */ modem_connect_tones_tx_init(&modem_tone_tx, tone_type); /* Fudge things for the test */ modem_tone_tx.tone_phase_rate = dds_phase_rate(pitch); modem_connect_tones_rx_init(&ans_pr_rx, tone_type, NULL, NULL); for (i = 0; i < 10*SAMPLE_RATE; i += SAMPLES_PER_CHUNK) { samples = modem_connect_tones_tx(&modem_tone_tx, amp, SAMPLES_PER_CHUNK); for (j = 0; j < samples; j++) amp[j] += awgn(&chan_noise_source); /*endfor*/ modem_connect_tones_rx(&ans_pr_rx, amp, samples); } /*endfor*/ hit = modem_connect_tones_rx_get(&ans_pr_rx); if (pitch < (2100 - CNG_FREQ_BLACKOUT) || pitch > (2100 + CNG_FREQ_BLACKOUT)) { if (hit != MODEM_CONNECT_TONES_NONE) false_hit = TRUE; /*endif*/ } else if (pitch > (2100 - CNG_FREQ_TOLERANCE) && pitch < (2100 + CNG_FREQ_TOLERANCE)) { if (hit != tone_type) false_miss = TRUE; /*endif*/ } /*endif*/ if (hit != MODEM_CONNECT_TONES_NONE) printf("Detected at %5dHz %12" PRId32 " %12" PRId32 " %d\n", pitch, ans_pr_rx.channel_level, ans_pr_rx.notch_level, hit); /*endif*/ } /*endfor*/ if (false_hit || false_miss) { printf("Test failed.\n"); exit(2); } /*endif*/ printf("Test passed.\n"); } /*endif*/ if ((test_list & PERFORM_TEST_3A)) { printf("Test 3a: CNG detection with level\n"); tone_type = MODEM_CONNECT_TONES_FAX_CNG; awgn_init_dbm0(&chan_noise_source, 7162534, -60.0f); false_hit = FALSE; false_miss = FALSE; for (pitch = 1100 - CED_FREQ_TOLERANCE; pitch <= 1100 + CED_FREQ_TOLERANCE; pitch += 2*CED_FREQ_TOLERANCE) { for (level = LEVEL_MAX; level >= LEVEL_MIN; level--) { /* Use the transmitter to test the receiver */ modem_connect_tones_tx_init(&modem_tone_tx, tone_type); /* Fudge things for the test */ modem_tone_tx.tone_phase_rate = dds_phase_rate(pitch); modem_tone_tx.level = dds_scaling_dbm0(level); modem_connect_tones_rx_init(&cng_rx, tone_type, NULL, NULL); for (i = 0; i < 10*SAMPLE_RATE; i += SAMPLES_PER_CHUNK) { samples = modem_connect_tones_tx(&modem_tone_tx, amp, SAMPLES_PER_CHUNK); for (j = 0; j < samples; j++) amp[j] += awgn(&chan_noise_source); /*endfor*/ modem_connect_tones_rx(&cng_rx, amp, samples); } /*endfor*/ hit = modem_connect_tones_rx_get(&cng_rx); if (level < LEVEL_MIN_REJECT) { if (hit != MODEM_CONNECT_TONES_NONE) false_hit = TRUE; /*endif*/ } else if (level > LEVEL_MIN_ACCEPT) { if (hit != tone_type) false_miss = TRUE; /*endif*/ } /*endif*/ if (hit != MODEM_CONNECT_TONES_NONE) printf("Detected at %5dHz %4ddB %12" PRId32 " %12" PRId32 " %d\n", pitch, level, cng_rx.channel_level, cng_rx.notch_level, hit); /*endif*/ } /*endfor*/ } /*endfor*/ if (false_hit || false_miss) { printf("Test failed.\n"); exit(2); } /*endif*/ printf("Test passed.\n"); } /*endif*/ if ((test_list & PERFORM_TEST_3B)) { printf("Test 3b: CED/ANS detection with level\n"); tone_type = MODEM_CONNECT_TONES_ANS; awgn_init_dbm0(&chan_noise_source, 7162534, -60.0f); false_hit = FALSE; false_miss = FALSE; for (pitch = 2100 - CNG_FREQ_TOLERANCE; pitch <= 2100 + CNG_FREQ_TOLERANCE; pitch += 2*CNG_FREQ_TOLERANCE) { for (level = LEVEL_MAX; level >= LEVEL_MIN; level--) { /* Use the transmitter to test the receiver */ modem_connect_tones_tx_init(&modem_tone_tx, tone_type); /* Fudge things for the test */ modem_tone_tx.tone_phase_rate = dds_phase_rate(pitch); modem_tone_tx.level = dds_scaling_dbm0(level); modem_connect_tones_rx_init(&ced_rx, MODEM_CONNECT_TONES_FAX_CED_OR_PREAMBLE, NULL, NULL); for (i = 0; i < 10*SAMPLE_RATE; i += SAMPLES_PER_CHUNK) { samples = modem_connect_tones_tx(&modem_tone_tx, amp, SAMPLES_PER_CHUNK); for (j = 0; j < samples; j++) amp[j] += awgn(&chan_noise_source); /*endfor*/ modem_connect_tones_rx(&ced_rx, amp, samples); } /*endfor*/ hit = modem_connect_tones_rx_get(&ced_rx); if (level < LEVEL_MIN_REJECT) { if (hit != MODEM_CONNECT_TONES_NONE) false_hit = TRUE; /*endif*/ } else if (level > LEVEL_MIN_ACCEPT) { if (hit != tone_type) false_miss = TRUE; /*endif*/ } /*endif*/ if (hit != MODEM_CONNECT_TONES_NONE) printf("Detected at %5dHz %4ddB %12" PRId32 " %12" PRId32 " %d\n", pitch, level, ced_rx.channel_level, ced_rx.notch_level, hit); /*endif*/ } /*endfor*/ } /*endfor*/ if (false_hit || false_miss) { printf("Test failed.\n"); exit(2); } /*endif*/ printf("Test passed.\n"); } /*endif*/ if ((test_list & PERFORM_TEST_3C)) { printf("Test 3c: ANSam detection with level\n"); tone_type = MODEM_CONNECT_TONES_ANSAM; awgn_init_dbm0(&chan_noise_source, 7162534, -60.0f); false_hit = FALSE; false_miss = FALSE; for (pitch = 2100 - CNG_FREQ_TOLERANCE; pitch <= 2100 + CNG_FREQ_TOLERANCE; pitch += 2*CNG_FREQ_TOLERANCE) { //for (level = LEVEL_MAX; level >= LEVEL_MIN; level--) for (level = -26; level >= -26; level--) { /* Use the transmitter to test the receiver */ modem_connect_tones_tx_init(&modem_tone_tx, tone_type); /* Fudge things for the test */ modem_tone_tx.tone_phase_rate = dds_phase_rate(pitch); modem_tone_tx.level = dds_scaling_dbm0(level); modem_tone_tx.mod_level = modem_tone_tx.level*20/100; modem_connect_tones_rx_init(&ans_pr_rx, tone_type, NULL, NULL); for (i = 0; i < 10*SAMPLE_RATE; i += SAMPLES_PER_CHUNK) { samples = modem_connect_tones_tx(&modem_tone_tx, amp, SAMPLES_PER_CHUNK); for (j = 0; j < samples; j++) amp[j] += awgn(&chan_noise_source); /*endfor*/ modem_connect_tones_rx(&ans_pr_rx, amp, samples); } /*endfor*/ hit = modem_connect_tones_rx_get(&ans_pr_rx); if (level < LEVEL_MIN_REJECT) { if (hit != MODEM_CONNECT_TONES_NONE) false_hit = TRUE; /*endif*/ } else if (level > LEVEL_MIN_ACCEPT) { if (hit != tone_type) false_miss = TRUE; /*endif*/ } /*endif*/ //if (hit != MODEM_CONNECT_TONES_NONE) printf("Detected at %5dHz %4ddB %12" PRId32 " %12" PRId32 " %d\n", pitch, level, ans_pr_rx.channel_level, ans_pr_rx.notch_level, hit); /*endif*/ } /*endfor*/ } /*endfor*/ if (false_hit || false_miss) { printf("Test failed.\n"); exit(2); } /*endif*/ printf("Test passed.\n"); } /*endif*/ if ((test_list & PERFORM_TEST_3D)) { printf("Test 3d: ANS/ (EC-disable) detection with level\n"); tone_type = MODEM_CONNECT_TONES_ANS_PR; awgn_init_dbm0(&chan_noise_source, 7162534, -60.0f); false_hit = FALSE; false_miss = FALSE; for (pitch = 2100 - CNG_FREQ_TOLERANCE; pitch <= 2100 + CNG_FREQ_TOLERANCE; pitch += 2*CNG_FREQ_TOLERANCE) { for (level = LEVEL_MAX; level >= LEVEL_MIN; level--) { /* Use the transmitter to test the receiver */ modem_connect_tones_tx_init(&modem_tone_tx, tone_type); /* Fudge things for the test */ modem_tone_tx.tone_phase_rate = dds_phase_rate(pitch); modem_tone_tx.level = dds_scaling_dbm0(level); modem_connect_tones_rx_init(&ans_pr_rx, tone_type, NULL, NULL); for (i = 0; i < 10*SAMPLE_RATE; i += SAMPLES_PER_CHUNK) { samples = modem_connect_tones_tx(&modem_tone_tx, amp, SAMPLES_PER_CHUNK); for (j = 0; j < samples; j++) amp[j] += awgn(&chan_noise_source); /*endfor*/ modem_connect_tones_rx(&ans_pr_rx, amp, samples); } /*endfor*/ hit = modem_connect_tones_rx_get(&ans_pr_rx); if (level < LEVEL_MIN_REJECT) { if (hit != MODEM_CONNECT_TONES_NONE) false_hit = TRUE; /*endif*/ } else if (level > LEVEL_MIN_ACCEPT) { if (hit != tone_type) false_miss = TRUE; /*endif*/ } /*endif*/ if (hit != MODEM_CONNECT_TONES_NONE) printf("Detected at %5dHz %4ddB %12" PRId32 " %12" PRId32 " %d\n", pitch, level, ans_pr_rx.channel_level, ans_pr_rx.notch_level, hit); /*endif*/ } /*endfor*/ } /*endfor*/ if (false_hit || false_miss) { printf("Test failed.\n"); exit(2); } /*endif*/ printf("Test passed.\n"); } /*endif*/ if ((test_list & PERFORM_TEST_3E)) { printf("Test 3e: ANSam/ (Modulated EC-disable) detection with level\n"); tone_type = MODEM_CONNECT_TONES_ANSAM_PR; awgn_init_dbm0(&chan_noise_source, 7162534, -60.0f); false_hit = FALSE; false_miss = FALSE; for (pitch = 2100 - CNG_FREQ_TOLERANCE; pitch <= 2100 + CNG_FREQ_TOLERANCE; pitch += 2*CNG_FREQ_TOLERANCE) { for (level = LEVEL_MAX; level >= LEVEL_MIN; level--) { /* Use the transmitter to test the receiver */ modem_connect_tones_tx_init(&modem_tone_tx, tone_type); /* Fudge things for the test */ modem_tone_tx.tone_phase_rate = dds_phase_rate(pitch); modem_tone_tx.level = dds_scaling_dbm0(level); modem_tone_tx.mod_level = modem_tone_tx.level*20/100; modem_connect_tones_rx_init(&ans_pr_rx, tone_type, NULL, NULL); for (i = 0; i < 10*SAMPLE_RATE; i += SAMPLES_PER_CHUNK) { samples = modem_connect_tones_tx(&modem_tone_tx, amp, SAMPLES_PER_CHUNK); for (j = 0; j < samples; j++) amp[j] += awgn(&chan_noise_source); /*endfor*/ modem_connect_tones_rx(&ans_pr_rx, amp, samples); } /*endfor*/ hit = modem_connect_tones_rx_get(&ans_pr_rx); if (level < LEVEL_MIN_REJECT) { if (hit != MODEM_CONNECT_TONES_NONE) false_hit = TRUE; /*endif*/ } else if (level > LEVEL_MIN_ACCEPT) { if (hit != tone_type) false_miss = TRUE; /*endif*/ } /*endif*/ if (hit != MODEM_CONNECT_TONES_NONE) printf("Detected at %5dHz %4ddB %12" PRId32 " %12" PRId32 " %d\n", pitch, level, ans_pr_rx.channel_level, ans_pr_rx.notch_level, hit); /*endif*/ } /*endfor*/ } /*endfor*/ if (false_hit || false_miss) { printf("Test failed.\n"); exit(2); } /*endif*/ printf("Test passed.\n"); } /*endif*/ if ((test_list & PERFORM_TEST_4)) { printf("Test 4: CED detection, when stimulated with V.21 preamble\n"); false_hit = FALSE; false_miss = FALSE; /* Send 255 bits of preamble (0.85s, the minimum specified preamble for T.30), and then some random bits. Check the preamble detector comes on, and goes off at reasonable times. */ fsk_tx_init(&preamble_tx, &preset_fsk_specs[FSK_V21CH2], preamble_get_bit, NULL); modem_connect_tones_rx_init(&ced_rx, MODEM_CONNECT_TONES_FAX_CED_OR_PREAMBLE, preamble_detected, NULL); for (i = 0; i < 2*SAMPLE_RATE; i += SAMPLES_PER_CHUNK) { samples = fsk_tx(&preamble_tx, amp, SAMPLES_PER_CHUNK); modem_connect_tones_rx(&ced_rx, amp, samples); } /*endfor*/ for (i = 0; i < SAMPLE_RATE/10; i += SAMPLES_PER_CHUNK) { memset(amp, 0, sizeof(int16_t)*SAMPLES_PER_CHUNK); modem_connect_tones_rx(&ced_rx, amp, SAMPLES_PER_CHUNK); } /*endfor*/ if (preamble_on_at < 40 || preamble_on_at > 50 || preamble_off_at < 580 || preamble_off_at > 620) { printf("Test failed.\n"); exit(2); } /*endif*/ printf("Test passed.\n"); } /*endif*/ if ((test_list & PERFORM_TEST_5A)) { printf("Test 5A: ANS and ANS/ detection with reversal interval\n"); tone_type = MODEM_CONNECT_TONES_ANS_PR; awgn_init_dbm0(&chan_noise_source, 7162534, -60.0f); false_hit = FALSE; false_miss = FALSE; for (interval = 400; interval < 800; interval++) { printf("Reversal interval = %d\n", interval); /* Use the transmitter to test the receiver */ modem_connect_tones_tx_init(&modem_tone_tx, tone_type); modem_connect_tones_rx_init(&ans_pr_rx, tone_type, ans_pr_detected, NULL); hits = 0; for (i = 0; i < 10*SAMPLE_RATE; i += SAMPLES_PER_CHUNK) { when = i; samples = SAMPLES_PER_CHUNK; for (j = 0; j < samples; j++) { if (--modem_tone_tx.hop_timer <= 0) { modem_tone_tx.hop_timer = ms_to_samples(interval); modem_tone_tx.tone_phase += 0x80000000; } /*endif*/ amp[j] = dds_mod(&modem_tone_tx.tone_phase, modem_tone_tx.tone_phase_rate, modem_tone_tx.level, 0); } for (j = 0; j < samples; j++) amp[j] += awgn(&chan_noise_source); /*endfor*/ modem_connect_tones_rx(&ans_pr_rx, amp, samples); } /*endfor*/ if (interval < (450 - 25) || interval > (450 + 25)) { if (hits != 0) false_hit = TRUE; /*endif*/ } else if (interval > (450 - 25) && interval < (450 + 25)) { if (hits == 0) false_miss = TRUE; /*endif*/ } /*endif*/ if (hits) printf("Detected at %5dHz %4ddB %dms %12" PRId32 " %12" PRId32 " %d\n", 2100, -11, interval, ans_pr_rx.channel_level, ans_pr_rx.notch_level, hits); /*endif*/ } /*endfor*/ if (false_hit || false_miss) { printf("Test failed.\n"); exit(2); } /*endif*/ printf("Test passed.\n"); } /*endif*/ if ((test_list & PERFORM_TEST_5B)) { printf("Test 5B: ANS and ANS/ detection with mixed reversal intervals\n"); awgn_init_dbm0(&chan_noise_source, 7162534, -60.0f); tone_type = MODEM_CONNECT_TONES_ANS_PR; false_hit = FALSE; false_miss = FALSE; interval = 450; printf("Reversal interval = %d\n", interval); /* Use the transmitter to test the receiver */ modem_connect_tones_tx_init(&modem_tone_tx, tone_type); modem_connect_tones_rx_init(&ans_pr_rx, tone_type, ans_pr_detected, NULL); cycle = 0; hits = 0; for (i = 0; i < 60*SAMPLE_RATE; i += SAMPLES_PER_CHUNK) { when = i; samples = SAMPLES_PER_CHUNK; for (j = 0; j < samples; j++) { if (--modem_tone_tx.hop_timer <= 0) { if (++cycle == 10) interval = 1000; if (cycle == 20) interval = 450; modem_tone_tx.hop_timer = ms_to_samples(interval); modem_tone_tx.tone_phase += 0x80000000; } amp[j] = dds_mod(&modem_tone_tx.tone_phase, modem_tone_tx.tone_phase_rate, modem_tone_tx.level, 0); } /*endfor*/ for (j = 0; j < samples; j++) amp[j] += awgn(&chan_noise_source); /*endfor*/ modem_connect_tones_rx(&ans_pr_rx, amp, samples); /* TODO: Add test result detection logic. */ } /*endfor*/ if (false_hit || false_miss) { printf("Test failed.\n"); exit(2); } /*endif*/ printf("Test passed.\n"); } /*endif*/ if ((test_list & PERFORM_TEST_6A)) { printf("Test 6a: ANSam detection with AM pitch\n"); tone_type = MODEM_CONNECT_TONES_ANSAM; awgn_init_dbm0(&chan_noise_source, 7162534, -50.0f); false_hit = FALSE; false_miss = FALSE; for (pitch = 5; pitch < 25; pitch++) { /* Use the transmitter to test the receiver */ modem_connect_tones_tx_init(&modem_tone_tx, tone_type); /* Fudge things for the test */ modem_tone_tx.mod_phase_rate = dds_phase_rate(pitch); modem_connect_tones_rx_init(&ans_pr_rx, tone_type, NULL, NULL); for (i = 0; i < 10*SAMPLE_RATE; i += SAMPLES_PER_CHUNK) { samples = modem_connect_tones_tx(&modem_tone_tx, amp, SAMPLES_PER_CHUNK); for (j = 0; j < samples; j++) amp[j] += awgn(&chan_noise_source); /*endfor*/ modem_connect_tones_rx(&ans_pr_rx, amp, samples); } /*endfor*/ hit = modem_connect_tones_rx_get(&ans_pr_rx); if (pitch < (15 - 10) || pitch > (15 + 10)) { if (hit == tone_type) false_hit = TRUE; /*endif*/ } else if (pitch > (15 - AM_FREQ_TOLERANCE) && pitch < (15 + AM_FREQ_TOLERANCE)) { if (hit != tone_type) false_miss = TRUE; /*endif*/ } /*endif*/ if (hit != MODEM_CONNECT_TONES_NONE) printf("Detected at %5dHz %12" PRId32 " %12" PRId32 " %d\n", pitch, ans_pr_rx.channel_level, ans_pr_rx.notch_level, hit); /*endif*/ } /*endfor*/ if (false_hit || false_miss) { printf("Test failed.\n"); exit(2); } /*endif*/ printf("Test passed.\n"); } /*endif*/ if ((test_list & PERFORM_TEST_6B)) { printf("Test 6b: ANSam/ (Modulated EC-disable) detection with AM pitch\n"); tone_type = MODEM_CONNECT_TONES_ANSAM_PR; awgn_init_dbm0(&chan_noise_source, 7162534, -50.0f); false_hit = FALSE; false_miss = FALSE; for (pitch = 5; pitch < 25; pitch++) { /* Use the transmitter to test the receiver */ modem_connect_tones_tx_init(&modem_tone_tx, tone_type); /* Fudge things for the test */ modem_tone_tx.mod_phase_rate = dds_phase_rate(pitch); modem_connect_tones_rx_init(&ans_pr_rx, tone_type, NULL, NULL); for (i = 0; i < 10*SAMPLE_RATE; i += SAMPLES_PER_CHUNK) { samples = modem_connect_tones_tx(&modem_tone_tx, amp, SAMPLES_PER_CHUNK); for (j = 0; j < samples; j++) amp[j] += awgn(&chan_noise_source); /*endfor*/ modem_connect_tones_rx(&ans_pr_rx, amp, samples); } /*endfor*/ hit = modem_connect_tones_rx_get(&ans_pr_rx); if (pitch < (15 - 10) || pitch > (15 + 10)) { if (hit == tone_type) false_hit = TRUE; /*endif*/ } else if (pitch > (15 - AM_FREQ_TOLERANCE) && pitch < (15 + AM_FREQ_TOLERANCE)) { if (hit != tone_type) false_miss = TRUE; /*endif*/ } /*endif*/ if (hit != MODEM_CONNECT_TONES_NONE) printf("Detected at %5dHz %12" PRId32 " %12" PRId32 " %d\n", pitch, ans_pr_rx.channel_level, ans_pr_rx.notch_level, hit); /*endif*/ } /*endfor*/ if (false_hit || false_miss) { printf("Test failed.\n"); exit(2); } /*endif*/ printf("Test passed.\n"); } /*endif*/ if ((test_list & PERFORM_TEST_7A)) { printf("Test 7a: ANSam detection with AM depth\n"); tone_type = MODEM_CONNECT_TONES_ANSAM; pitch = 2100; awgn_init_dbm0(&chan_noise_source, 7162534, -50.0f); false_hit = FALSE; false_miss = FALSE; for (depth = 0; depth < 40; depth++) { /* Use the transmitter to test the receiver */ modem_connect_tones_tx_init(&modem_tone_tx, tone_type); /* Fudge things for the test */ modem_tone_tx.mod_level = modem_tone_tx.level*depth/100; modem_connect_tones_rx_init(&ans_pr_rx, tone_type, NULL, NULL); for (i = 0; i < 10*SAMPLE_RATE; i += SAMPLES_PER_CHUNK) { samples = modem_connect_tones_tx(&modem_tone_tx, amp, SAMPLES_PER_CHUNK); for (j = 0; j < samples; j++) amp[j] += awgn(&chan_noise_source); /*endfor*/ modem_connect_tones_rx(&ans_pr_rx, amp, samples); } /*endfor*/ hit = modem_connect_tones_rx_get(&ans_pr_rx); if (depth < 10) { if (hit == tone_type) false_hit = TRUE; /*endif*/ } else if (depth > 15) { if (hit != tone_type) false_miss = TRUE; /*endif*/ } /*endif*/ if (hit != MODEM_CONNECT_TONES_NONE) printf("Detected at %5dHz %12" PRId32 " %12" PRId32 " %d\n", pitch, ans_pr_rx.channel_level, ans_pr_rx.notch_level, hit); /*endif*/ } /*endfor*/ if (false_hit || false_miss) { printf("Test failed.\n"); exit(2); } /*endif*/ printf("Test passed.\n"); } /*endif*/ if ((test_list & PERFORM_TEST_7B)) { printf("Test 7b: ANSam/ (Modulated EC-disable) detection with AM depth\n"); tone_type = MODEM_CONNECT_TONES_ANSAM_PR; pitch = 2100; awgn_init_dbm0(&chan_noise_source, 7162534, -50.0f); false_hit = FALSE; false_miss = FALSE; for (depth = 0; depth < 40; depth++) { /* Use the transmitter to test the receiver */ modem_connect_tones_tx_init(&modem_tone_tx, tone_type); /* Fudge things for the test */ modem_tone_tx.mod_level = modem_tone_tx.level*depth/100; modem_connect_tones_rx_init(&ans_pr_rx, tone_type, NULL, NULL); for (i = 0; i < 10*SAMPLE_RATE; i += SAMPLES_PER_CHUNK) { samples = modem_connect_tones_tx(&modem_tone_tx, amp, SAMPLES_PER_CHUNK); for (j = 0; j < samples; j++) amp[j] += awgn(&chan_noise_source); /*endfor*/ modem_connect_tones_rx(&ans_pr_rx, amp, samples); } /*endfor*/ hit = modem_connect_tones_rx_get(&ans_pr_rx); if (depth < 10) { if (hit == tone_type) false_hit = TRUE; /*endif*/ } else if (depth > 15) { if (hit != tone_type) false_miss = TRUE; /*endif*/ } /*endif*/ if (hit != MODEM_CONNECT_TONES_NONE) printf("Detected at %5dHz %12" PRId32 " %12" PRId32 " %d\n", pitch, ans_pr_rx.channel_level, ans_pr_rx.notch_level, hit); /*endif*/ } /*endfor*/ if (false_hit || false_miss) { printf("Test failed.\n"); exit(2); } /*endif*/ printf("Test passed.\n"); } /*endif*/ if ((test_list & PERFORM_TEST_8)) { /* Talk-off test */ /* Here we use the BellCore and Mitel talk off test tapes, intended for DTMF detector testing. Presumably they should also have value here, but I am not sure. If those voice snippets were chosen to be tough on DTMF detectors, they might go easy on detectors looking for different pitches. However, the Mitel DTMF test tape is known (the hard way) to exercise 2280Hz tone detectors quite well. */ printf("Test 8: Talk-off test\n"); modem_connect_tones_rx_init(&cng_rx, MODEM_CONNECT_TONES_FAX_CNG, NULL, NULL); modem_connect_tones_rx_init(&ced_rx, MODEM_CONNECT_TONES_FAX_CED_OR_PREAMBLE, NULL, NULL); modem_connect_tones_rx_init(&ans_pr_rx, MODEM_CONNECT_TONES_ANS_PR, NULL, NULL); for (j = 0; bellcore_files[j][0]; j++) { if ((inhandle = sf_open_telephony_read(bellcore_files[j], 1)) == NULL) { fprintf(stderr, " Cannot open speech file '%s'\n", bellcore_files[j]); exit (2); } /*endif*/ when = 0; hits = 0; while ((frames = sf_readf_short(inhandle, amp, 8000))) { when++; modem_connect_tones_rx(&cng_rx, amp, frames); modem_connect_tones_rx(&ced_rx, amp, frames); modem_connect_tones_rx(&ans_pr_rx, amp, frames); if (modem_connect_tones_rx_get(&cng_rx) != MODEM_CONNECT_TONES_NONE) { /* This is not a true measure of hits, as there might be more than one in a block of data. However, since the only good result is no hits, this approximation is OK. */ printf("Hit CNG at %ds\n", when); hits++; modem_connect_tones_rx_init(&cng_rx, MODEM_CONNECT_TONES_FAX_CNG, NULL, NULL); } /*endif*/ if (modem_connect_tones_rx_get(&ced_rx) != MODEM_CONNECT_TONES_NONE) { printf("Hit CED at %ds\n", when); hits++; modem_connect_tones_rx_init(&ced_rx, MODEM_CONNECT_TONES_FAX_CED_OR_PREAMBLE, NULL, NULL); } /*endif*/ if (modem_connect_tones_rx_get(&ans_pr_rx) != MODEM_CONNECT_TONES_NONE) { printf("Hit EC disable at %ds\n", when); hits++; modem_connect_tones_rx_init(&ans_pr_rx, MODEM_CONNECT_TONES_ANS_PR, NULL, NULL); } /*endif*/ } /*endwhile*/ if (sf_close(inhandle) != 0) { fprintf(stderr, " Cannot close speech file '%s'\n", bellcore_files[j]); exit(2); } /*endif*/ printf(" File %d gave %d false hits.\n", j + 1, hits); } /*endfor*/ if (hits > 0) { printf("Test failed.\n"); exit(2); } /*endif*/ printf("Test passed.\n"); } /*endif*/ if (decode_test_file) { printf("Decode file '%s'\n", decode_test_file); modem_connect_tones_rx_init(&cng_rx, MODEM_CONNECT_TONES_FAX_CNG, cng_detected, NULL); modem_connect_tones_rx_init(&ced_rx, MODEM_CONNECT_TONES_FAX_CED_OR_PREAMBLE, ced_detected, NULL); modem_connect_tones_rx_init(&ans_pr_rx, MODEM_CONNECT_TONES_ANS_PR, ans_pr_detected, NULL); hits = 0; if ((inhandle = sf_open_telephony_read(decode_test_file, 1)) == NULL) { fprintf(stderr, " Cannot open speech file '%s'\n", decode_test_file); exit (2); } /*endif*/ when = 0; hits = 0; while ((frames = sf_readf_short(inhandle, amp, 8000))) { when++; modem_connect_tones_rx(&cng_rx, amp, frames); modem_connect_tones_rx(&ced_rx, amp, frames); modem_connect_tones_rx(&ans_pr_rx, amp, frames); } /*endwhile*/ if (sf_close(inhandle) != 0) { fprintf(stderr, " Cannot close speech file '%s'\n", decode_test_file); exit(2); } /*endif*/ printf(" File gave %d hits.\n", hits); } printf("Tests passed.\n"); return 0; } /*- End of function --------------------------------------------------------*/ /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/tests/bert_tests.c0000664000175000017500000003223411422612266016271 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * bert_tests.c - Tests for the BER tester. * * Written by Steve Underwood * * Copyright (C) 2004 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License version 2, as * published by the Free Software Foundation. * * 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., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \file */ /*! \page bert_tests_page BERT tests \section bert_tests_page_sec_1 What does it do? These tests exercise each of the BERT standards supported by the BERT module. */ #if defined(HAVE_CONFIG_H) #include "config.h" #endif #include #include #include #include #include //#if defined(WITH_SPANDSP_INTERNALS) #define SPANDSP_EXPOSE_INTERNAL_STRUCTURES //#endif #include "spandsp.h" /* Use a local random generator, so the results are consistent across platforms */ static int my_rand(void) { static int rndnum = 1234567; return (rndnum = 1664525U*rndnum + 1013904223U); } /*- End of function --------------------------------------------------------*/ static void reporter(void *user_data, int reason, bert_results_t *results) { int channel; channel = (int) (intptr_t) user_data; printf("BERT report '%s' ", bert_event_to_str(reason)); switch (reason) { case BERT_REPORT_REGULAR: printf("%d bits, %d bad bits, %d resyncs", results->total_bits, results->bad_bits, results->resyncs); break; } printf("\r"); } /*- End of function --------------------------------------------------------*/ int8_t test[0x800000]; int main(int argc, char *argv[]) { bert_state_t tx_bert; bert_state_t rx_bert; bert_state_t bert; bert_results_t bert_results; int i; int bit; int zeros; int max_zeros; int failed; bert_init(&tx_bert, 0, BERT_PATTERN_ZEROS, 300, 20); bert_init(&rx_bert, 0, BERT_PATTERN_ZEROS, 300, 20); for (i = 0; i < 511*2; i++) { bit = bert_get_bit(&tx_bert); bert_put_bit(&rx_bert, bit); } bert_result(&rx_bert, &bert_results); printf("Zeros: Bad bits %d/%d\n", bert_results.bad_bits, bert_results.total_bits); if (bert_results.bad_bits || bert_results.total_bits != 950) { printf("Test failed.\n"); exit(2); } bert_init(&tx_bert, 0, BERT_PATTERN_ONES, 300, 20); bert_init(&rx_bert, 0, BERT_PATTERN_ONES, 300, 20); for (i = 0; i < 511*2; i++) { bit = bert_get_bit(&tx_bert); bert_put_bit(&rx_bert, bit); } bert_result(&rx_bert, &bert_results); printf("Ones: Bad bits %d/%d\n", bert_results.bad_bits, bert_results.total_bits); if (bert_results.bad_bits || bert_results.total_bits != 950) { printf("Test failed.\n"); exit(2); } bert_init(&tx_bert, 0, BERT_PATTERN_1_TO_7, 300, 20); bert_init(&rx_bert, 0, BERT_PATTERN_1_TO_7, 300, 20); for (i = 0; i < 511*2; i++) { bit = bert_get_bit(&tx_bert); bert_put_bit(&rx_bert, bit); } bert_result(&rx_bert, &bert_results); printf("1 to 7: Bad bits %d/%d\n", bert_results.bad_bits, bert_results.total_bits); if (bert_results.bad_bits || bert_results.total_bits != 950) { printf("Test failed.\n"); exit(2); } bert_init(&tx_bert, 0, BERT_PATTERN_1_TO_3, 300, 20); bert_init(&rx_bert, 0, BERT_PATTERN_1_TO_3, 300, 20); for (i = 0; i < 511*2; i++) { bit = bert_get_bit(&tx_bert); bert_put_bit(&rx_bert, bit); } bert_result(&rx_bert, &bert_results); printf("1 to 3: Bad bits %d/%d\n", bert_results.bad_bits, bert_results.total_bits); if (bert_results.bad_bits || bert_results.total_bits != 950) { printf("Test failed.\n"); exit(2); } bert_init(&tx_bert, 0, BERT_PATTERN_1_TO_1, 300, 20); bert_init(&rx_bert, 0, BERT_PATTERN_1_TO_1, 300, 20); for (i = 0; i < 511*2; i++) { bit = bert_get_bit(&tx_bert); bert_put_bit(&rx_bert, bit); } bert_result(&rx_bert, &bert_results); printf("1 to 1: Bad bits %d/%d\n", bert_results.bad_bits, bert_results.total_bits); if (bert_results.bad_bits || bert_results.total_bits != 950) { printf("Test failed.\n"); exit(2); } bert_init(&tx_bert, 0, BERT_PATTERN_3_TO_1, 300, 20); bert_init(&rx_bert, 0, BERT_PATTERN_3_TO_1, 300, 20); for (i = 0; i < 511*2; i++) { bit = bert_get_bit(&tx_bert); bert_put_bit(&rx_bert, bit); } bert_result(&rx_bert, &bert_results); printf("3 to 1: Bad bits %d/%d\n", bert_results.bad_bits, bert_results.total_bits); if (bert_results.bad_bits || bert_results.total_bits != 950) { printf("Test failed.\n"); exit(2); } bert_init(&tx_bert, 0, BERT_PATTERN_7_TO_1, 300, 20); bert_init(&rx_bert, 0, BERT_PATTERN_7_TO_1, 300, 20); for (i = 0; i < 511*2; i++) { bit = bert_get_bit(&tx_bert); bert_put_bit(&rx_bert, bit); } bert_result(&rx_bert, &bert_results); printf("7 to 1: Bad bits %d/%d\n", bert_results.bad_bits, bert_results.total_bits); if (bert_results.bad_bits || bert_results.total_bits != 950) { printf("Test failed.\n"); exit(2); } bert_init(&tx_bert, 0, BERT_PATTERN_ITU_O153_9, 300, 20); bert_init(&rx_bert, 0, BERT_PATTERN_ITU_O153_9, 300, 20); for (i = 0; i < 0x200; i++) test[i] = 0; max_zeros = 0; zeros = 0; for (i = 0; i < 511*2; i++) { bit = bert_get_bit(&tx_bert); if (bit) { if (zeros > max_zeros) max_zeros = zeros; zeros = 0; } else { zeros++; } bert_put_bit(&rx_bert, bit); test[tx_bert.tx.reg]++; } failed = FALSE; if (test[0] != 0) { printf("XXX %d %d\n", 0, test[0]); failed = TRUE; } for (i = 1; i < 0x200; i++) { if (test[i] != 2) { printf("XXX %d %d\n", i, test[i]); failed = TRUE; } } bert_result(&rx_bert, &bert_results); printf("O.153(9): Bad bits %d/%d, max zeros %d\n", bert_results.bad_bits, bert_results.total_bits, max_zeros); if (bert_results.bad_bits || bert_results.total_bits != 986 || failed) { printf("Test failed.\n"); exit(2); } bert_init(&tx_bert, 0, BERT_PATTERN_ITU_O152_11, 300, 20); bert_init(&rx_bert, 0, BERT_PATTERN_ITU_O152_11, 300, 20); for (i = 0; i < 0x800; i++) test[i] = 0; max_zeros = 0; zeros = 0; for (i = 0; i < 2047*2; i++) { bit = bert_get_bit(&tx_bert); if (bit) { if (zeros > max_zeros) max_zeros = zeros; zeros = 0; } else { zeros++; } bert_put_bit(&rx_bert, bit); test[tx_bert.tx.reg]++; } failed = FALSE; if (test[0] != 0) { printf("XXX %d %d\n", 0, test[0]); failed = TRUE; } for (i = 1; i < 0x800; i++) { if (test[i] != 2) { printf("XXX %d %d\n", i, test[i]); failed = TRUE; } } bert_result(&rx_bert, &bert_results); printf("O.152(11): Bad bits %d/%d, max zeros %d\n", bert_results.bad_bits, bert_results.total_bits, max_zeros); if (bert_results.bad_bits || bert_results.total_bits != 4052 || failed) { printf("Test failed.\n"); exit(2); } bert_init(&tx_bert, 0, BERT_PATTERN_ITU_O151_15, 300, 20); bert_init(&rx_bert, 0, BERT_PATTERN_ITU_O151_15, 300, 20); for (i = 0; i < 0x8000; i++) test[i] = 0; max_zeros = 0; zeros = 0; for (i = 0; i < 32767*2; i++) { bit = bert_get_bit(&tx_bert); if (bit) { if (zeros > max_zeros) max_zeros = zeros; zeros = 0; } else { zeros++; } bert_put_bit(&rx_bert, bit); test[tx_bert.tx.reg]++; } failed = FALSE; if (test[0] != 0) { printf("XXX %d %d\n", 0, test[0]); failed = TRUE; } for (i = 1; i < 0x8000; i++) { if (test[i] != 2) { printf("XXX %d %d\n", i, test[i]); failed = TRUE; } } bert_result(&rx_bert, &bert_results); printf("O.151(15): Bad bits %d/%d, max zeros %d\n", bert_results.bad_bits, bert_results.total_bits, max_zeros); if (bert_results.bad_bits || bert_results.total_bits != 65480 || failed) { printf("Test failed.\n"); exit(2); } bert_init(&tx_bert, 0, BERT_PATTERN_ITU_O151_20, 300, 20); bert_init(&rx_bert, 0, BERT_PATTERN_ITU_O151_20, 300, 20); for (i = 0; i < 0x100000; i++) test[i] = 0; max_zeros = 0; zeros = 0; for (i = 0; i < 1048575*2; i++) { bit = bert_get_bit(&tx_bert); if (bit) { if (zeros > max_zeros) max_zeros = zeros; zeros = 0; } else { zeros++; } bert_put_bit(&rx_bert, bit); test[tx_bert.tx.reg]++; } failed = FALSE; if (test[0] != 0) { printf("XXX %d %d\n", 0, test[0]); failed = TRUE; } for (i = 1; i < 0x100000; i++) { if (test[i] != 2) printf("XXX %d %d\n", i, test[i]); } bert_result(&rx_bert, &bert_results); printf("O.151(20): Bad bits %d/%d, max zeros %d\n", bert_results.bad_bits, bert_results.total_bits, max_zeros); if (bert_results.bad_bits || bert_results.total_bits != 2097066 || failed) { printf("Test failed.\n"); exit(2); } bert_init(&tx_bert, 0, BERT_PATTERN_ITU_O151_23, 300, 20); bert_init(&rx_bert, 0, BERT_PATTERN_ITU_O151_23, 300, 20); for (i = 0; i < 0x800000; i++) test[i] = 0; max_zeros = 0; zeros = 0; for (i = 0; i < 8388607*2; i++) { bit = bert_get_bit(&tx_bert); if (bit) { if (zeros > max_zeros) max_zeros = zeros; zeros = 0; } else { zeros++; } bert_put_bit(&rx_bert, bit); test[tx_bert.tx.reg]++; } failed = FALSE; if (test[0] != 0) { printf("XXX %d %d\n", 0, test[0]); failed = TRUE; } for (i = 1; i < 0x800000; i++) { if (test[i] != 2) printf("XXX %d %d\n", i, test[i]); } bert_result(&rx_bert, &bert_results); printf("O.151(23): Bad bits %d/%d, max zeros %d\n", bert_results.bad_bits, bert_results.total_bits, max_zeros); if (bert_results.bad_bits || bert_results.total_bits != 16777136 || failed) { printf("Test failed.\n"); exit(2); } bert_init(&tx_bert, 0, BERT_PATTERN_QBF, 300, 20); bert_init(&rx_bert, 0, BERT_PATTERN_QBF, 300, 20); for (i = 0; i < 100000; i++) { bit = bert_get_bit(&tx_bert); bert_put_bit(&rx_bert, bit); } bert_result(&rx_bert, &bert_results); printf("QBF: Bad bits %d/%d\n", bert_results.bad_bits, bert_results.total_bits); if (bert_results.bad_bits || bert_results.total_bits != 100000) { printf("Test failed.\n"); exit(2); } /* Test the mechanism for categorising the error rate into <10^x bands */ /* TODO: The result of this test is not checked automatically */ bert_init(&bert, 15000000, BERT_PATTERN_ITU_O152_11, 300, 20); bert_set_report(&bert, 100000, reporter, (intptr_t) 0); for (;;) { if ((bit = bert_get_bit(&bert)) == SIG_STATUS_END_OF_DATA) { bert_result(&bert, &bert_results); printf("Rate test: %d bits, %d bad bits, %d resyncs\n", bert_results.total_bits, bert_results.bad_bits, bert_results.resyncs); if (bert_results.total_bits != 15000000 - 42 || bert_results.bad_bits != 58 || bert_results.resyncs != 0) { printf("Tests failed\n"); exit(2); } break; //bert_init(&bert, 15000000, BERT_PATTERN_ITU_O152_11, 300, 20); //bert_set_report(&bert, 100000, reporter, (intptr_t) 0); //continue; } if ((my_rand() & 0x3FFFF) == 0) bit ^= 1; //if ((my_rand() & 0xFFF) == 0) // bert_put_bit(&bert, bit); bert_put_bit(&bert, bit); } printf("Tests passed.\n"); return 0; } /*- End of function --------------------------------------------------------*/ /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/tests/fax_tester.h0000664000175000017500000001623211422612266016264 0ustar steveusteveu/* * SpanDSP - a series of DSP components for telephony * * fax_tester.h * * Written by Steve Underwood * * Copyright (C) 2008 Steve Underwood * * All rights reserved. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License version 2, as * published by the Free Software Foundation. * * 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., 675 Mass Ave, Cambridge, MA 02139, USA. */ /*! \file */ #if !defined(_SPANDSP_FAX_TESTER_H_) #define _SPANDSP_FAX_TESTER_H_ /*! \page fax_tester_page FAX over analogue modem handling \section fax_tester_page_sec_1 What does it do? \section fax_tester_page_sec_2 How does it work? */ typedef struct faxtester_state_s faxtester_state_t; typedef void (faxtester_flush_handler_t)(faxtester_state_t *s, void *user_data, int which); /*! FAX tester real time frame handler. \brief FAX tester real time frame handler. \param s The FAX tester context. \param user_data An opaque pointer. \param direction TRUE for incoming, FALSE for outgoing. \param msg The HDLC message. \param len The length of the message. */ typedef void (faxtester_real_time_frame_handler_t)(faxtester_state_t *s, void *user_data, int direction, const uint8_t *msg, int len); typedef void (faxtester_front_end_step_complete_handler_t)(faxtester_state_t *s, void *user_data); /*! FAX tester descriptor. */ struct faxtester_state_s { /*! \brief Pointer to our current step in the test. */ xmlNodePtr cur; faxtester_flush_handler_t *flush_handler; void *flush_user_data; /*! \brief A pointer to a callback routine to be called when frames are exchanged. */ faxtester_real_time_frame_handler_t *real_time_frame_handler; /*! \brief An opaque pointer supplied in real time frame callbacks. */ void *real_time_frame_user_data; faxtester_front_end_step_complete_handler_t *front_end_step_complete_handler; void *front_end_step_complete_user_data; faxtester_front_end_step_complete_handler_t *front_end_step_timeout_handler; void *front_end_step_timeout_user_data; const uint8_t *image_buffer; int image_len; int image_ptr; int image_bit_ptr; int ecm_frame_size; int corrupt_crc; int final_delayed; fax_modems_state_t modems; /*! If TRUE, transmission is in progress */ int transmit; /*! \brief TRUE is the short training sequence should be used. */ int short_train; /*! \brief The currently select receiver type */ int current_rx_type; /*! \brief The currently select transmitter type */ int current_tx_type; int wait_for_silence; int tone_state; int64_t tone_on_time; int64_t timer; int64_t timeout; /*! \brief Error and flow logging control */ logging_state_t logging; }; #if defined(__cplusplus) extern "C" { #endif /*! Apply T.30 receive processing to a block of audio samples. \brief Apply T.30 receive processing to a block of audio samples. \param s The FAX tester context. \param amp The audio sample buffer. \param len The number of samples in the buffer. \return The number of samples unprocessed. This should only be non-zero if the software has reached the end of the FAX call. */ int faxtester_rx(faxtester_state_t *s, int16_t *amp, int len); /*! Apply T.30 transmit processing to generate a block of audio samples. \brief Apply T.30 transmit processing to generate a block of audio samples. \param s The FAX tester context. \param amp The audio sample buffer. \param max_len The number of samples to be generated. \return The number of samples actually generated. This will be zero when there is nothing to send. */ int faxtester_tx(faxtester_state_t *s, int16_t *amp, int max_len); void faxtester_set_tx_type(void *user_data, int type, int bit_rate, int short_train, int use_hdlc); void faxtester_set_rx_type(void *user_data, int type, int bit_rate, int short_train, int use_hdlc); void faxtest_set_rx_silence(faxtester_state_t *s); void faxtester_send_hdlc_flags(faxtester_state_t *s, int flags); void faxtester_send_hdlc_msg(faxtester_state_t *s, const uint8_t *msg, int len, int crc_ok); void faxtester_set_flush_handler(faxtester_state_t *s, faxtester_flush_handler_t *handler, void *user_data); /*! Select whether silent audio will be sent when FAX transmit is idle. \brief Select whether silent audio will be sent when FAX transmit is idle. \param s The FAX tester context. \param transmit_on_idle TRUE if silent audio should be output when the FAX transmitter is idle. FALSE to transmit zero length audio when the FAX transmitter is idle. The default behaviour is FALSE. */ void faxtester_set_transmit_on_idle(faxtester_state_t *s, int transmit_on_idle); /*! Select whether talker echo protection tone will be sent for the image modems. \brief Select whether TEP will be sent for the image modems. \param s The FAX tester context. \param use_tep TRUE if TEP should be sent. */ void faxtester_set_tep_mode(faxtester_state_t *s, int use_tep); void faxtester_set_real_time_frame_handler(faxtester_state_t *s, faxtester_real_time_frame_handler_t *handler, void *user_data); void faxtester_set_front_end_step_complete_handler(faxtester_state_t *s, faxtester_front_end_step_complete_handler_t *handler, void *user_data); void faxtester_set_front_end_step_timeout_handler(faxtester_state_t *s, faxtester_front_end_step_complete_handler_t *handler, void *user_data); void faxtester_set_timeout(faxtester_state_t *s, int timeout); void faxtester_set_non_ecm_image_buffer(faxtester_state_t *s, const uint8_t *buf, int len); void faxtester_set_ecm_image_buffer(faxtester_state_t *s, const uint8_t *buf, int len, int block, int frame_size, int crc_hit); /*! Initialise a FAX context. \brief Initialise a FAX context. \param s The FAX tester context. \param calling_party TRUE if the context is for a calling party. FALSE if the context is for an answering party. \return A pointer to the FAX context, or NULL if there was a problem. */ faxtester_state_t *faxtester_init(faxtester_state_t *s, int calling_party); /*! Release a FAX context. \brief Release a FAX context. \param s The FAX tester context. \return 0 for OK, else -1. */ int faxtester_release(faxtester_state_t *s); /*! Free a FAX context. \brief Free a FAX context. \param s The FAX tester context. \return 0 for OK, else -1. */ int faxtester_free(faxtester_state_t *s); #if defined(__cplusplus) } #endif #endif /*- End of file ------------------------------------------------------------*/ spandsp-0.0.6/tests/regression_tests.sh0000775000175000017500000004625011423567136017721 0ustar steveusteveu#!/bin/sh # # SpanDSP - a series of DSP components for telephony # # regression_tests.sh # # This program is free software; you can redistribute it and/or modify # it under the terms of the GNU Lesser General Public License version 2.1, # as published by the Free Software Foundation. # # 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 Lesser General Public # License along with this program; if not, write to the Free Software # Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. ITUTESTS_TIF=../test-data/itu/fax/itutests.tif MIXEDSIZES_TIF=../test-data/itu/fax/mixed_size_pages.tif STDOUT_DEST=xyzzy STDERR_DEST=xyzzy2 echo Performing basic spandsp regression tests echo ./adsi_tests >$STDOUT_DEST 2>$STDERR_DEST RETVAL=$? if [ $RETVAL != 0 ] then echo adsi_tests failed! exit $RETVAL fi echo adsi_tests completed OK ./async_tests >$STDOUT_DEST 2>$STDERR_DEST RETVAL=$? if [ $RETVAL != 0 ] then echo async_tests failed! exit $RETVAL fi echo async_tests completed OK ./at_interpreter_tests >$STDOUT_DEST 2>$STDERR_DEST RETVAL=$? if [ $RETVAL != 0 ] then echo at_interpreter_tests failed! exit $RETVAL fi echo at_interpreter_tests completed OK ./awgn_tests >$STDOUT_DEST 2>$STDERR_DEST RETVAL=$? if [ $RETVAL != 0 ] then echo awgn_tests failed! exit $RETVAL fi echo awgn_tests completed OK ./bell_mf_rx_tests >$STDOUT_DEST 2>$STDERR_DEST RETVAL=$? if [ $RETVAL != 0 ] then echo bell_mf_rx_tests failed! exit $RETVAL fi echo bell_mf_rx_tests completed OK ./bell_mf_tx_tests >$STDOUT_DEST 2>$STDERR_DEST RETVAL=$? if [ $RETVAL != 0 ] then echo bell_mf_tx_tests failed! exit $RETVAL fi echo bell_mf_tx_tests completed OK ./bert_tests >$STDOUT_DEST 2>$STDERR_DEST RETVAL=$? if [ $RETVAL != 0 ] then echo bert_tests failed! exit $RETVAL fi echo bert_tests completed OK ./bit_operations_tests >$STDOUT_DEST 2>$STDERR_DEST RETVAL=$? if [ $RETVAL != 0 ] then echo bit_operations_tests failed! exit $RETVAL fi echo bit_operations_tests completed OK ./complex_tests >$STDOUT_DEST 2>$STDERR_DEST RETVAL=$? if [ $RETVAL != 0 ] then echo complex_tests failed! exit $RETVAL fi echo complex_tests completed OK ./complex_vector_float_tests >$STDOUT_DEST 2>$STDERR_DEST RETVAL=$? if [ $RETVAL != 0 ] then echo complex_vector_float_tests failed! exit $RETVAL fi echo complex_vector_float_tests completed OK ./complex_vector_int_tests >$STDOUT_DEST 2>$STDERR_DEST RETVAL=$? if [ $RETVAL != 0 ] then echo complex_vector_int_tests failed! exit $RETVAL fi echo complex_vector_int_tests completed OK ./crc_tests >$STDOUT_DEST 2>$STDERR_DEST RETVAL=$? if [ $RETVAL != 0 ] then echo crc_tests failed! exit $RETVAL fi echo crc_tests completed OK ./dc_restore_tests >$STDOUT_DEST 2>$STDERR_DEST RETVAL=$? if [ $RETVAL != 0 ] then echo dc_restore_tests failed! exit $RETVAL fi echo dc_restore_tests completed OK ./dds_tests >$STDOUT_DEST 2>$STDERR_DEST RETVAL=$? if [ $RETVAL != 0 ] then echo dds_tests failed! exit $RETVAL fi echo dds_tests completed OK ./dtmf_rx_tests >$STDOUT_DEST 2>$STDERR_DEST RETVAL=$? if [ $RETVAL != 0 ] then echo dtmf_rx_tests failed! exit $RETVAL fi echo dtmf_rx_tests completed OK ./dtmf_tx_tests >$STDOUT_DEST 2>$STDERR_DEST RETVAL=$? if [ $RETVAL != 0 ] then echo dtmf_tx_tests failed! exit $RETVAL fi echo dtmf_tx_tests completed OK #./echo_tests >$STDOUT_DEST 2>$STDERR_DEST #RETVAL=$? #if [ $RETVAL != 0 ] #then # echo echo_tests failed! # exit $RETVAL #fi #echo echo_tests completed OK echo echo_tests not enabled #Try the ITU test pages without ECM rm -f fax_tests_1.tif ./fax_tests >$STDOUT_DEST 2>$STDERR_DEST RETVAL=$? if [ $RETVAL != 0 ] then echo fax_tests failed! exit $RETVAL fi # Now use tiffcmp to check the results. It will return non-zero if any page images differ. The -t # option means the normal differences in tags will be ignored. tiffcmp -t ${ITUTESTS_TIF} fax_tests_1.tif >/dev/null RETVAL=$? if [ $RETVAL != 0 ] then echo fax_tests failed! exit $RETVAL fi #Try the ITU test pages with ECM rm -f fax_tests_1.tif ./fax_tests -e >$STDOUT_DEST 2>$STDERR_DEST RETVAL=$? if [ $RETVAL != 0 ] then echo fax_tests -e failed! exit $RETVAL fi # Now use tiffcmp to check the results. It will return non-zero if any page images differ. The -t # option means the normal differences in tags will be ignored. tiffcmp -t ${ITUTESTS_TIF} fax_tests_1.tif >/dev/null RETVAL=$? if [ $RETVAL != 0 ] then echo fax_tests -e failed! exit $RETVAL fi #Try some mixed sized test pages without ECM rm -f fax_tests_1.tif ./fax_tests -i ${MIXEDSIZES_TIF} >$STDOUT_DEST 2>$STDERR_DEST RETVAL=$? if [ $RETVAL != 0 ] then echo fax_tests mixed-sizes failed! exit $RETVAL fi # Now use tiffcmp to check the results. It will return non-zero if any page images differ. The -t # option means the normal differences in tags will be ignored. tiffcmp -t ${MIXEDSIZES_TIF} fax_tests_1.tif >/dev/null RETVAL=$? if [ $RETVAL != 0 ] then echo fax_tests mixed-sizes failed! exit $RETVAL fi echo fax_tests completed OK ./fsk_tests >$STDOUT_DEST 2>$STDERR_DEST RETVAL=$? if [ $RETVAL != 0 ] then echo fsk_tests failed! exit $RETVAL fi echo fsk_tests completed OK #./g1050_tests >$STDOUT_DEST 2>$STDERR_DEST #RETVAL=$? #if [ $RETVAL != 0 ] #then # echo g1050_tests failed! # exit $RETVAL #fi #echo g1050_tests completed OK ./g711_tests >$STDOUT_DEST 2>$STDERR_DEST RETVAL=$? if [ $RETVAL != 0 ] then echo g711_tests failed! exit $RETVAL fi echo g711_tests completed OK ./g722_tests >$STDOUT_DEST 2>$STDERR_DEST RETVAL=$? if [ $RETVAL != 0 ] then echo g722_tests failed! exit $RETVAL fi echo g722_tests completed OK ./g726_tests >$STDOUT_DEST 2>$STDERR_DEST RETVAL=$? if [ $RETVAL != 0 ] then echo g726_tests failed! exit $RETVAL fi echo g726_tests completed OK ./gsm0610_tests >$STDOUT_DEST 2>$STDERR_DEST RETVAL=$? if [ $RETVAL != 0 ] then echo gsm0610_tests failed! exit $RETVAL fi echo gsm0610_tests completed OK ./hdlc_tests >$STDOUT_DEST 2>$STDERR_DEST RETVAL=$? if [ $RETVAL != 0 ] then echo hdlc_tests failed! exit $RETVAL fi echo hdlc_tests completed OK ./ima_adpcm_tests >$STDOUT_DEST 2>$STDERR_DEST RETVAL=$? if [ $RETVAL != 0 ] then echo ima_adpcm_tests failed! exit $RETVAL fi echo ima_adpcm_tests completed OK ./image_translate_tests >$STDOUT_DEST 2>$STDERR_DEST RETVAL=$? if [ $RETVAL != 0 ] then echo image_translate_tests failed! exit $RETVAL fi echo image_translate_tests completed OK ./logging_tests >$STDOUT_DEST 2>$STDERR_DEST RETVAL=$? if [ $RETVAL != 0 ] then echo logging_tests failed! exit $RETVAL fi echo logging_tests completed OK ./lpc10_tests >$STDOUT_DEST 2>$STDERR_DEST RETVAL=$? if [ $RETVAL != 0 ] then echo lpc10_tests failed! exit $RETVAL fi echo lpc10_tests completed OK ./modem_echo_tests >$STDOUT_DEST 2>$STDERR_DEST RETVAL=$? if [ $RETVAL != 0 ] then echo modem_echo_tests failed! exit $RETVAL fi echo modem_echo_tests completed OK ./modem_connect_tones_tests >$STDOUT_DEST 2>$STDERR_DEST RETVAL=$? if [ $RETVAL != 0 ] then echo modem_connect_tones_tests failed! exit $RETVAL fi echo modem_connect_tones_tests completed OK ./noise_tests >$STDOUT_DEST 2>$STDERR_DEST RETVAL=$? if [ $RETVAL != 0 ] then echo noise_tests failed! exit $RETVAL fi echo noise_tests completed OK ./oki_adpcm_tests >$STDOUT_DEST 2>$STDERR_DEST RETVAL=$? if [ $RETVAL != 0 ] then echo oki_adpcm_tests failed! exit $RETVAL fi echo oki_adpcm_tests completed OK #./playout_tests >$STDOUT_DEST 2>$STDERR_DEST #RETVAL=$? #if [ $RETVAL != 0 ] #then # echo playout_tests failed! # exit $RETVAL #fi #echo playout_tests completed OK echo playout_tests not enabled #./plc_tests >$STDOUT_DEST 2>$STDERR_DEST #RETVAL=$? #if [ $RETVAL != 0 ] #then # echo plc_tests failed! # exit $RETVAL #fi #echo plc_tests completed OK echo plc_tests not enabled ./power_meter_tests >$STDOUT_DEST 2>$STDERR_DEST RETVAL=$? if [ $RETVAL != 0 ] then echo power_meter_tests failed! exit $RETVAL fi echo power_meter_tests completed OK ./queue_tests >$STDOUT_DEST 2>$STDERR_DEST RETVAL=$? if [ $RETVAL != 0 ] then echo queue_tests failed! exit $RETVAL fi echo queue_tests completed OK ./r2_mf_rx_tests >$STDOUT_DEST 2>$STDERR_DEST RETVAL=$? if [ $RETVAL != 0 ] then echo r2_mf_rx_tests failed! exit $RETVAL fi echo r2_mf_rx_tests completed OK ./r2_mf_tx_tests >$STDOUT_DEST 2>$STDERR_DEST RETVAL=$? if [ $RETVAL != 0 ] then echo r2_mf_tx_tests failed! exit $RETVAL fi echo r2_mf_tx_tests completed OK #./rfc2198_sim_tests >$STDOUT_DEST 2>$STDERR_DEST #RETVAL=$? #if [ $RETVAL != 0 ] #then # echo rfc2198_sim_tests failed! # exit $RETVAL #fi #echo rfc2198_sim_tests completed OK ./saturated_tests >$STDOUT_DEST 2>$STDERR_DEST RETVAL=$? if [ $RETVAL != 0 ] then echo saturated_tests failed! exit $RETVAL fi echo saturated_tests completed OK ./schedule_tests >$STDOUT_DEST 2>$STDERR_DEST RETVAL=$? if [ $RETVAL != 0 ] then echo schedule_tests failed! exit $RETVAL fi echo schedule_tests completed OK #./sig_tone_tests >$STDOUT_DEST 2>$STDERR_DEST #RETVAL=$? #if [ $RETVAL != 0 ] #then # echo sig_tone_tests failed! # exit $RETVAL #fi #echo sig_tone_tests completed OK echo sig_tone_tests not enabled #./super_tone_rx_tests >$STDOUT_DEST 2>$STDERR_DEST #RETVAL=$? #if [ $RETVAL != 0 ] #then # echo super_tone_rx_tests failed! # exit $RETVAL #fi #echo super_tone_rx_tests completed OK echo super_tone_rx_tests not enabled #./super_tone_tx_tests >$STDOUT_DEST 2>$STDERR_DEST #RETVAL=$? #if [ $RETVAL != 0 ] #then # echo super_tone_tx_tests failed! # exit $RETVAL #fi #echo super_tone_tx_tests completed OK echo super_tone_tx_tests not enabled #./swept_tone_tests >$STDOUT_DEST 2>$STDERR_DEST #RETVAL=$? #if [ $RETVAL != 0 ] #then # echo swept_tone_tests failed! # exit $RETVAL #fi #echo swept_tone_tests completed OK echo swept_tone_tests not enabled ./t31_tests -r >$STDOUT_DEST 2>$STDERR_DEST RETVAL=$? if [ $RETVAL != 0 ] then echo t31_tests -r failed! exit $RETVAL fi ./t31_tests -s >$STDOUT_DEST 2>$STDERR_DEST RETVAL=$? if [ $RETVAL != 0 ] then echo t31_tests -s failed! exit $RETVAL fi echo t31_tests completed OK ./t38_core_tests >$STDOUT_DEST 2>$STDERR_DEST RETVAL=$? if [ $RETVAL != 0 ] then echo t38_core_tests failed! exit $RETVAL fi echo t38_core_tests completed OK rm -f t38.tif ./t38_gateway_tests >$STDOUT_DEST 2>$STDERR_DEST RETVAL=$? if [ $RETVAL != 0 ] then echo t38_gateway_tests failed! exit $RETVAL fi # Now use tiffcmp to check the results. It will return non-zero if any page images differ. The -t # option means the normal differences in tags will be ignored. tiffcmp -t ${ITUTESTS_TIF} t38.tif >/dev/null RETVAL=$? if [ $RETVAL != 0 ] then echo t38_gateway_tests failed! exit $RETVAL fi rm -f t38.tif ./t38_gateway_tests -e >$STDOUT_DEST 2>$STDERR_DEST RETVAL=$? if [ $RETVAL != 0 ] then echo t38_gateway_tests -e failed! exit $RETVAL fi # Now use tiffcmp to check the results. It will return non-zero if any page images differ. The -t # option means the normal differences in tags will be ignored. tiffcmp -t ${ITUTESTS_TIF} t38.tif >/dev/null RETVAL=$? if [ $RETVAL != 0 ] then echo t38_gateway_tests -e failed! exit $RETVAL fi echo t38_gateway_tests completed OK rm -f t38.tif ./t38_gateway_to_terminal_tests >$STDOUT_DEST 2>$STDERR_DEST RETVAL=$? if [ $RETVAL != 0 ] then echo t38_gateway_to_terminal_tests failed! exit $RETVAL fi # Now use tiffcmp to check the results. It will return non-zero if any page images differ. The -t # option means the normal differences in tags will be ignored. tiffcmp -t ${ITUTESTS_TIF} t38.tif >/dev/null RETVAL=$? if [ $RETVAL != 0 ] then echo t38_gateway_to_terminal_tests failed! exit $RETVAL fi rm -f t38.tif ./t38_gateway_to_terminal_tests -e >$STDOUT_DEST 2>$STDERR_DEST RETVAL=$? if [ $RETVAL != 0 ] then echo t38_gateway_to_terminal_tests -e failed! exit $RETVAL fi # Now use tiffcmp to check the results. It will return non-zero if any page images differ. The -t # option means the normal differences in tags will be ignored. tiffcmp -t ${ITUTESTS_TIF} t38.tif >/dev/null RETVAL=$? if [ $RETVAL != 0 ] then echo t38_gateway_to_terminal_tests -e failed! exit $RETVAL fi echo t38_gateway_to_terminal_tests completed OK ./t38_non_ecm_buffer_tests >$STDOUT_DEST 2>$STDERR_DEST RETVAL=$? if [ $RETVAL != 0 ] then echo t38_non_ecm_buffer_tests failed! exit $RETVAL fi echo t38_non_ecm_buffer_tests completed OK rm -f t38.tif ./t38_terminal_to_gateway_tests >$STDOUT_DEST 2>$STDERR_DEST RETVAL=$? if [ $RETVAL != 0 ] then echo t38_terminal_to_gateway_tests failed! exit $RETVAL fi # Now use tiffcmp to check the results. It will return non-zero if any page images differ. The -t # option means the normal differences in tags will be ignored. tiffcmp -t ${ITUTESTS_TIF} t38.tif >/dev/null RETVAL=$? if [ $RETVAL != 0 ] then echo t38_terminal_to_gateway_tests failed! exit $RETVAL fi rm -f t38.tif ./t38_terminal_to_gateway_tests -e >$STDOUT_DEST 2>$STDERR_DEST RETVAL=$? if [ $RETVAL != 0 ] then echo t38_terminal_to_gateway_tests -e failed! exit $RETVAL fi # Now use tiffcmp to check the results. It will return non-zero if any page images differ. The -t # option means the normal differences in tags will be ignored. tiffcmp -t ${ITUTESTS_TIF} t38.tif >/dev/null RETVAL=$? if [ $RETVAL != 0 ] then echo t38_terminal_to_gateway_tests -e failed! exit $RETVAL fi echo t38_terminal_to_gateway_tests completed OK rm -f t38.tif ./t38_terminal_tests >$STDOUT_DEST 2>$STDERR_DEST RETVAL=$? if [ $RETVAL != 0 ] then echo t38_terminal_tests failed! exit $RETVAL fi # Now use tiffcmp to check the results. It will return non-zero if any page images differ. The -t # option means the normal differences in tags will be ignored. tiffcmp -t ${ITUTESTS_TIF} t38.tif >/dev/null RETVAL=$? if [ $RETVAL != 0 ] then echo t38_terminal_tests failed! exit $RETVAL fi rm -f t38.tif ./t38_terminal_tests -e >$STDOUT_DEST 2>$STDERR_DEST RETVAL=$? if [ $RETVAL != 0 ] then echo t38_terminal_tests -e failed! exit $RETVAL fi # Now use tiffcmp to check the results. It will return non-zero if any page images differ. The -t # option means the normal differences in tags will be ignored. tiffcmp -t ${ITUTESTS_TIF} t38.tif >/dev/null RETVAL=$? if [ $RETVAL != 0 ] then echo t38_terminal_tests -e failed! exit $RETVAL fi echo t38_terminal_tests completed OK rm -f t4_tests_receive.tif ./t4_tests >$STDOUT_DEST 2>$STDERR_DEST RETVAL=$? if [ $RETVAL != 0 ] then echo t4_tests failed! exit $RETVAL fi echo t4_tests completed OK #rm -f t4_t6_tests_receive.tif #./t4_t6_tests >$STDOUT_DEST 2>$STDERR_DEST #RETVAL=$? #if [ $RETVAL != 0 ] #then # echo t4_t6_tests failed! # exit $RETVAL #fi #echo t4_t6_tests completed OK #rm -f t81_t82_arith_coding_tests_receive.tif #./t4_tests >$STDOUT_DEST 2>$STDERR_DEST #RETVAL=$? #if [ $RETVAL != 0 ] #then # echo t81_t82_arith_coding_tests failed! # exit $RETVAL #fi #echo t81_t82_arith_coding_tests completed OK echo t81_t82_arith_coding_tests not enabled #rm -f t85_tests_receive.tif #./t4_tests >$STDOUT_DEST 2>$STDERR_DEST #RETVAL=$? #if [ $RETVAL != 0 ] #then # echo t85_tests failed! # exit $RETVAL #fi #echo t85_tests completed OK echo t85_tests not enabled #./time_scale_tests >$STDOUT_DEST 2>$STDERR_DEST #RETVAL=$? #if [ $RETVAL != 0 ] #then # echo time_scale_tests failed! # exit $RETVAL #fi #echo time_scale_tests completed OK echo time_scale_tests not enabled ./timezone_tests >$STDOUT_DEST 2>$STDERR_DEST RETVAL=$? if [ $RETVAL != 0 ] then echo timezone_tests failed! exit $RETVAL fi echo timezone_tests completed OK #./tone_detect_tests >$STDOUT_DEST 2>$STDERR_DEST #RETVAL=$? #if [ $RETVAL != 0 ] #then # echo tone_detect_tests failed! # exit $RETVAL #fi #echo tone_detect_tests completed OK echo tone_detect_tests not enabled #./tone_generate_tests >$STDOUT_DEST 2>$STDERR_DEST #RETVAL=$? #if [ $RETVAL != 0 ] #then # echo tone_generate_tests failed! # exit $RETVAL #fi #echo tone_generate_tests completed OK echo tone_generate_tests not enabled ./v17_tests -b 14400 -s -42 -n -66 >$STDOUT_DEST 2>$STDERR_DEST RETVAL=$? if [ $RETVAL != 0 ] then echo v17_tests failed! exit $RETVAL fi ./v17_tests -b 12000 -s -42 -n -61 >$STDOUT_DEST 2>$STDERR_DEST RETVAL=$? if [ $RETVAL != 0 ] then echo v17_tests failed! exit $RETVAL fi ./v17_tests -b 9600 -s -42 -n -59 >$STDOUT_DEST 2>$STDERR_DEST RETVAL=$? if [ $RETVAL != 0 ] then echo v17_tests failed! exit $RETVAL fi ./v17_tests -b 7200 -s -42 -n -56 >$STDOUT_DEST 2>$STDERR_DEST RETVAL=$? if [ $RETVAL != 0 ] then echo v17_tests failed! exit $RETVAL fi echo v17_tests completed OK #./v22bis_tests -b 2400 >$STDOUT_DEST 2>$STDERR_DEST #RETVAL=$? #if [ $RETVAL != 0 ] #then # echo v22bis_tests failed! # exit $RETVAL #fi #./v22bis_tests -b 1200 >$STDOUT_DEST 2>$STDERR_DEST #RETVAL=$? #if [ $RETVAL != 0 ] #then # echo v22bis_tests failed! # exit $RETVAL #fi #echo v22bis_tests completed OK echo v22bis_tests not enabled ./v27ter_tests -b 4800 -s -42 -n -57 >$STDOUT_DEST 2>$STDERR_DEST RETVAL=$? if [ $RETVAL != 0 ] then echo v27ter_tests failed! exit $RETVAL fi ./v27ter_tests -b 2400 -s -42 -n -51 >$STDOUT_DEST 2>$STDERR_DEST RETVAL=$? if [ $RETVAL != 0 ] then echo v27ter_tests failed! exit $RETVAL fi echo v27ter_tests completed OK ./v29_tests -b 9600 -s -42 -n -62 >$STDOUT_DEST 2>$STDERR_DEST RETVAL=$? if [ $RETVAL != 0 ] then echo v29_tests failed! exit $RETVAL fi ./v29_tests -b 7200 -s -42 -n -58 >$STDOUT_DEST 2>$STDERR_DEST RETVAL=$? if [ $RETVAL != 0 ] then echo v29_tests failed! exit $RETVAL fi ./v29_tests -b 4800 -s -42 -n -54 >$STDOUT_DEST 2>$STDERR_DEST RETVAL=$? if [ $RETVAL != 0 ] then echo v29_tests failed! exit $RETVAL fi echo v29_tests completed OK #./v32bis_tests -b 14400 -s -42 -n -66 >$STDOUT_DEST 2>$STDERR_DEST #RETVAL=$? #if [ $RETVAL != 0 ] #then # echo v32bis_tests failed! # exit $RETVAL #fi #echo v32bis_tests completed OK #./v42_tests >$STDOUT_DEST 2>$STDERR_DEST #RETVAL=$? #if [ $RETVAL != 0 ] #then # echo v42_tests failed! # exit $RETVAL #fi #echo v42_tests completed OK echo v42_tests not enabled #./v42bis_tests.sh >/dev/null #RETVAL=$? #if [ $RETVAL != 0 ] #then # echo v42bis_tests failed! # exit $RETVAL #fi #echo v42bis_tests completed OK echo v42bis_tests not enabled ./v8_tests >$STDOUT_DEST 2>$STDERR_DEST RETVAL=$? if [ $RETVAL != 0 ] then echo v8_tests failed! exit $RETVAL fi echo v8_tests completed OK ./v18_tests >$STDOUT_DEST 2>$STDERR_DEST RETVAL=$? if [ $RETVAL != 0 ] then echo v18_tests failed! exit $RETVAL fi echo v18_tests completed OK ./vector_float_tests >$STDOUT_DEST 2>$STDERR_DEST RETVAL=$? if [ $RETVAL != 0 ] then echo vector_float_tests failed! exit $RETVAL fi echo vector_float_tests completed OK ./vector_int_tests >$STDOUT_DEST 2>$STDERR_DEST RETVAL=$? if [ $RETVAL != 0 ] then echo vector_int_tests failed! exit $RETVAL fi echo vector_int_tests completed OK echo echo All regression tests successfully completed spandsp-0.0.6/unpack_v56ter_data.sh0000775000175000017500000000273111422612261016623 0ustar steveusteveu#!/bin/sh # # SpanDSP - a series of DSP components for telephony # # unpack_v56ter_data.sh # # This program is free software; you can redistribute it and/or modify # it under the terms of the GNU Lesser General Public License version 2.1, # as published by the Free Software Foundation. # # 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 Lesser General Public # License along with this program; if not, write to the Free Software # Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. ITUDATA="../../../T-REC-V.56ter-199608-I!!ZPF-E.zip" cd test-data/itu if [ -d v56ter ] then cd v56ter else mkdir v56ter RETVAL=$? if [ $RETVAL != 0 ] then echo Cannot create test-data/itu/v56ter! exit $RETVAL fi cd v56ter fi rm -rf software rm -rf *.TST unzip ${ITUDATA} >/dev/null RETVAL=$? if [ $RETVAL != 0 ] then echo Cannot unpack the ITU test vectors for V.56ter! exit $RETVAL fi #rm ${ITUDATA} unzip software/V56ter/V56tere/Software.zip >/dev/null RETVAL=$? if [ $RETVAL != 0 ] then echo Cannot unpack the ITU test vectors for V.56ter! exit $RETVAL fi mv ./software/V56ter/V56tere/*.TST . chmod 644 *.TST rm -rf software echo The ITU test vectors for V.56ter should now be in the v56ter directory spandsp-0.0.6/README0000664000175000017500000000316511072610446013465 0ustar steveusteveuspandsp 0.0.5 - A DSP library for telephony ------------------------------------------- SpanDSP is a library of DSP functions for telephony, in the 8000 sample per second world of E1s, T1s, and higher order PCM channels. It contains low level functions, such as basic filters. It also contains higher level functions, such as cadenced supervisory tone detection, and a complete software FAX machine. The software has been designed to avoid intellectual property issues, using mature techniques where all relevant patents have expired. See the file DueDiligence for important information about these intellectual property issues. The library is licenced under the LGPL 2.1 licence. The test suite, and some support programs are licenced under the GPL 2 licence. The full text of these licences can be found in the file COPYING. Dependencies ------------ spandsp depends on various other packages for various tasks. Most of these dependencies relate to building the test suite. libtiff (and libtiff-devel on most Linux distributions) is required to build the spandsp library. libaudiofile (and libaudiofile-devel) is required to build the test suite fftw (and fftw-devel) is required to build the test suite. Version 2 or 3 of FFTW may be used. Spandsp adapts to the differences between them. fltk (and fltk-devel), Fl_Cartesian and Fl_Audio_Meter are required to build the test suite with GUI interfaces for some of the tests. The tests will build without these packages, but the GUI features will not be available. Fl_Cartesian and Fl_Audio_Meter can be downloaded from http://www.soft-switch.org/downloads. Steve Underwood spandsp-0.0.6/config-h.in0000664000175000017500000002126211516506024014624 0ustar steveusteveu/* config-h.in. Generated from configure.ac by autoheader. */ /* Define to 1 if you have the acosf() function. */ #undef HAVE_ACOSF /* Define to 1 if you have the asinf() function. */ #undef HAVE_ASINF /* Define to 1 if you have the atan2f() function. */ #undef HAVE_ATAN2F /* Define to 1 if you have the atanf() function. */ #undef HAVE_ATANF /* Define to 1 if you have the ceilf() function. */ #undef HAVE_CEILF /* Define to 1 if you have the cosf() function. */ #undef HAVE_COSF /* Define to 1 if you have the header file. */ #undef HAVE_DLFCN_H /* Define to 1 if you don't have `vprintf' but do have `_doprnt.' */ #undef HAVE_DOPRNT /* Define to 1 if you have the `drand48' function. */ #undef HAVE_DRAND48 /* Define to 1 if you have the expf() function. */ #undef HAVE_EXPF /* Define to 1 if you have the header file. */ #undef HAVE_FCNTL_H /* Define to 1 if you have the header file. */ #undef HAVE_FENV_H /* Define to 1 if you have the header file. */ #undef HAVE_FFTW3_H /* Define to 1 if you have the header file. */ #undef HAVE_FFTW_H /* Define to 1 if you have the header file. */ #undef HAVE_FLOAT_H /* Define to 1 if you have the floorf() function. */ #undef HAVE_FLOORF /* Define to 1 if you have the header file. */ #undef HAVE_FL_FL_AUDIO_METER_H /* Define to 1 if you have the header file. */ #undef HAVE_FL_FL_CARTESIAN_H /* Define to 1 if you have the header file. */ #undef HAVE_FL_FL_DRAW_H /* Define to 1 if you have the header file. */ #undef HAVE_FL_FL_H /* Define to 1 if you have the header file. */ #undef HAVE_FL_FL_LIGHT_BUTTON_H /* Define to 1 if you have the header file. */ #undef HAVE_FL_FL_OVERLAY_WINDOW_H /* Define to 1 if you have the `gettimeofday' function. */ #undef HAVE_GETTIMEOFDAY /* Define to 1 if you have the header file. */ #undef HAVE_INTTYPES_H /* Define to 1 if you have the `m' library (-lm). */ #undef HAVE_LIBM /* Define to 1 if you have the `tiff' library (-ltiff). */ #undef HAVE_LIBTIFF /* Define to 1 if you have the 'libxml2' library (-lxml2). */ #undef HAVE_LIBXML2 /* Define to 1 if you have the header file. */ #undef HAVE_LIBXML_PARSER_H /* Define to 1 if you have the header file. */ #undef HAVE_LIBXML_XINCLUDE_H /* Define to 1 if you have the header file. */ #undef HAVE_LIBXML_XMLMEMORY_H /* Define if you have C99's llrint function. */ #undef HAVE_LLRINT /* Define if you have C99's llrintf function. */ #undef HAVE_LLRINTF /* Define to 1 if you have the log10f() function. */ #undef HAVE_LOG10F /* Define to 1 if you have the logf() function. */ #undef HAVE_LOGF /* Define to 1 if the system has the type `long double'. */ #undef HAVE_LONG_DOUBLE /* Define to 1 if the system has the type `long long'. */ #undef HAVE_LONG_LONG /* Define if you have C99's lrint function. */ #undef HAVE_LRINT /* Define if you have C99's lrintf function. */ #undef HAVE_LRINTF /* Define to 1 if your system has a GNU libc compatible `malloc' function, and to 0 otherwise. */ #undef HAVE_MALLOC /* Define to 1 if you have the header file. */ #undef HAVE_MALLOC_H /* Define to 1 if you have the header file. */ #undef HAVE_MATH_H /* Define to 1 if you have the `memmove' function. */ #undef HAVE_MEMMOVE /* Define to 1 if you have the header file. */ #undef HAVE_MEMORY_H /* Define to 1 if you have the `memset' function. */ #undef HAVE_MEMSET /* Define to 1 if you have the header file. */ #undef HAVE_PCAP_H /* Define to 1 if you have the powf() function. */ #undef HAVE_POWF /* Define to 1 if you have the header file. */ #undef HAVE_PTHREAD_H /* Define to 1 if your system has a GNU libc compatible `realloc' function, and to 0 otherwise. */ #undef HAVE_REALLOC /* Define to 1 if you have the `select' function. */ #undef HAVE_SELECT /* Define to 1 if you have the sinf() function. */ #undef HAVE_SINF /* Define to 1 if you have the header file. */ #undef HAVE_SNDFILE_H /* Define to 1 if you have the header file. */ #undef HAVE_SOCKET_H /* Define to 1 if you have the header file. */ #undef HAVE_STDINT_H /* Define to 1 if you have the header file. */ #undef HAVE_STDLIB_H /* Define to 1 if you have the `strcasecmp' function. */ #undef HAVE_STRCASECMP /* Define to 1 if you have the `strchr' function. */ #undef HAVE_STRCHR /* Define to 1 if you have the `strdup' function. */ #undef HAVE_STRDUP /* Define to 1 if you have the `strerror' function. */ #undef HAVE_STRERROR /* Define to 1 if you have the header file. */ #undef HAVE_STRINGS_H /* Define to 1 if you have the header file. */ #undef HAVE_STRING_H /* Define to 1 if you have the `strstr' function. */ #undef HAVE_STRSTR /* Define to 1 if you have the `strtol' function. */ #undef HAVE_STRTOL /* Define to 1 if you have the header file. */ #undef HAVE_SYS_FCNTL_H /* Define to 1 if you have the header file. */ #undef HAVE_SYS_IOCTL_H /* Define to 1 if you have the header file. */ #undef HAVE_SYS_SELECT_H /* Define to 1 if you have the header file. */ #undef HAVE_SYS_SOCKET_H /* Define to 1 if you have the header file. */ #undef HAVE_SYS_STAT_H /* Define to 1 if you have the header file. */ #undef HAVE_SYS_TIME_H /* Define to 1 if you have the header file. */ #undef HAVE_SYS_TYPES_H /* Define to 1 if you have that is POSIX.1 compatible. */ #undef HAVE_SYS_WAIT_H /* Define to 1 if you have the tanf() function. */ #undef HAVE_TANF /* Define to 1 if you have the header file. */ #undef HAVE_TGMATH_H /* Define to 1 if you have the header file. */ #undef HAVE_TIFFIO_H /* Define to 1 if you have the header file. */ #undef HAVE_UNISTD_H /* Define to 1 if you have the `vprintf' function. */ #undef HAVE_VPRINTF /* Define to 1 if you have the header file. */ #undef HAVE_X11_X_H /* Name of package */ #undef PACKAGE /* Define to the address where bug reports for this package should be sent. */ #undef PACKAGE_BUGREPORT /* Define to the full name of this package. */ #undef PACKAGE_NAME /* Define to the full name and version of this package. */ #undef PACKAGE_STRING /* Define to the one symbol short name of this package. */ #undef PACKAGE_TARNAME /* Define to the version of this package. */ #undef PACKAGE_VERSION /* Define as the return type of signal handlers (`int' or `void'). */ #undef RETSIGTYPE /* Define to the type of arg 1 for `select'. */ #undef SELECT_TYPE_ARG1 /* Define to the type of args 2, 3 and 4 for `select'. */ #undef SELECT_TYPE_ARG234 /* Define to the type of arg 5 for `select'. */ #undef SELECT_TYPE_ARG5 /* Do not expect a misaligned memory access to work correctly */ #undef SPANDSP_MISALIGNED_ACCESS_FAILS /* Use the library symbol export capability of the compiler */ #undef SPANDSP_USE_EXPORT_CAPABILITY /* Enable fixed point processing, where possible, instead of floating point */ #undef SPANDSP_USE_FIXED_POINT /* Use the MMX instruction set (i386 and x86_64 only). */ #undef SPANDSP_USE_MMX /* Use the SSE instruction set (i386 and x86_64 only). */ #undef SPANDSP_USE_SSE /* Use the SSE2 instruction set (i386 and x86_64 only). */ #undef SPANDSP_USE_SSE2 /* Use the SSE3 instruction set (i386 and x86_64 only). */ #undef SPANDSP_USE_SSE3 /* Use the SSE4A instruction set (i386 and x86_64 only). */ #undef SPANDSP_USE_SSE4A /* Use the SSE4.1 instruction set (i386 and x86_64 only). */ #undef SPANDSP_USE_SSE4_1 /* Use the SSE4.2 instruction set (i386 and x86_64 only). */ #undef SPANDSP_USE_SSE4_2 /* Use the SSE5 instruction set (i386 and x86_64 only). */ #undef SPANDSP_USE_SSE5 /* Use the SSSE3 instruction set (i386 and x86_64 only). */ #undef SPANDSP_USE_SSSE3 /* Define to 1 if you have the ANSI C header files. */ #undef STDC_HEADERS /* Define to 1 if you can safely include both and . */ #undef TIME_WITH_SYS_TIME /* Version number of package */ #undef VERSION /* Define to empty if `const' does not conform to ANSI C. */ #undef const /* Define to `__inline__' or `__inline' if that's what the C compiler calls it, or to nothing if 'inline' is not supported under any name. */ #ifndef __cplusplus #undef inline #endif /* Define to rpl_malloc if the replacement function should be used. */ #undef malloc /* Define to rpl_realloc if the replacement function should be used. */ #undef realloc /* Define to empty if the keyword `volatile' does not work. Warning: valid code using `volatile' can become incorrect without. Disable with care. */ #undef volatile spandsp-0.0.6/config/0000775000175000017500000000000011516506100014037 5ustar steveusteveuspandsp-0.0.6/config/missing0000755000175000017500000002540611516506031015446 0ustar steveusteveu#! /bin/sh # Common stub for a few missing GNU programs while installing. scriptversion=2005-06-08.21 # Copyright (C) 1996, 1997, 1999, 2000, 2002, 2003, 2004, 2005 # Free Software Foundation, Inc. # Originally by Fran,cois Pinard , 1996. # This program 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, or (at your option) # any later version. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # You should have received a copy of the GNU General Public License # along with this program; if not, write to the Free Software # Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA # 02110-1301, USA. # 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. if test $# -eq 0; then echo 1>&2 "Try \`$0 --help' for more information" exit 1 fi run=: # In the cases where this matters, `missing' is being run in the # srcdir already. if test -f configure.ac; then configure_ac=configure.ac else configure_ac=configure.in fi msg="missing on your system" case "$1" in --run) # Try to run requested program, and just exit if it succeeds. run= shift "$@" && exit 0 # Exit code 63 means version mismatch. This often happens # when the user try to use an ancient version of a tool on # a file that requires a minimum version. In this case we # we should proceed has if the program had been absent, or # if --run hadn't been passed. if test $? = 63; then run=: msg="probably too old" fi ;; -h|--h|--he|--hel|--help) echo "\ $0 [OPTION]... PROGRAM [ARGUMENT]... Handle \`PROGRAM [ARGUMENT]...' for when PROGRAM is missing, or return an error status if there is no known handling for PROGRAM. Options: -h, --help display this help and exit -v, --version output version information and exit --run try to run the given command, and emulate it if it fails Supported PROGRAM values: aclocal touch file \`aclocal.m4' autoconf touch file \`configure' autoheader touch file \`config.h.in' automake touch all \`Makefile.in' files bison create \`y.tab.[ch]', if possible, from existing .[ch] flex create \`lex.yy.c', if possible, from existing .c help2man touch the output file lex create \`lex.yy.c', if possible, from existing .c makeinfo touch the output file tar try tar, gnutar, gtar, then tar without non-portable flags yacc create \`y.tab.[ch]', if possible, from existing .[ch] Send bug reports to ." exit $? ;; -v|--v|--ve|--ver|--vers|--versi|--versio|--version) echo "missing $scriptversion (GNU Automake)" exit $? ;; -*) echo 1>&2 "$0: Unknown \`$1' option" echo 1>&2 "Try \`$0 --help' for more information" exit 1 ;; esac # Now exit if we have it, but it failed. Also exit now if we # don't have it and --version was passed (most likely to detect # the program). case "$1" in lex|yacc) # Not GNU programs, they don't have --version. ;; tar) if test -n "$run"; then echo 1>&2 "ERROR: \`tar' requires --run" exit 1 elif test "x$2" = "x--version" || test "x$2" = "x--help"; then exit 1 fi ;; *) if test -z "$run" && ($1 --version) > /dev/null 2>&1; then # We have it, but it failed. exit 1 elif test "x$2" = "x--version" || test "x$2" = "x--help"; then # Could not run --version or --help. This is probably someone # running `$TOOL --version' or `$TOOL --help' to check whether # $TOOL exists and not knowing $TOOL uses missing. exit 1 fi ;; esac # If it does not exist, or fails to run (possibly an outdated version), # try to emulate it. case "$1" in aclocal*) echo 1>&2 "\ WARNING: \`$1' is $msg. You should only need it if you modified \`acinclude.m4' or \`${configure_ac}'. You might want to install the \`Automake' and \`Perl' packages. Grab them from any GNU archive site." touch aclocal.m4 ;; autoconf) echo 1>&2 "\ WARNING: \`$1' is $msg. You should only need it if you modified \`${configure_ac}'. You might want to install the \`Autoconf' and \`GNU m4' packages. Grab them from any GNU archive site." touch configure ;; autoheader) echo 1>&2 "\ WARNING: \`$1' is $msg. You should only need it if you modified \`acconfig.h' or \`${configure_ac}'. You might want to install the \`Autoconf' and \`GNU m4' packages. Grab them from any GNU archive site." files=`sed -n 's/^[ ]*A[CM]_CONFIG_HEADER(\([^)]*\)).*/\1/p' ${configure_ac}` test -z "$files" && files="config.h" touch_files= for f in $files; do case "$f" in *:*) touch_files="$touch_files "`echo "$f" | sed -e 's/^[^:]*://' -e 's/:.*//'`;; *) touch_files="$touch_files $f.in";; esac done touch $touch_files ;; automake*) echo 1>&2 "\ WARNING: \`$1' is $msg. You should only need it if you modified \`Makefile.am', \`acinclude.m4' or \`${configure_ac}'. You might want to install the \`Automake' and \`Perl' packages. Grab them from any GNU archive site." find . -type f -name Makefile.am -print | sed 's/\.am$/.in/' | while read f; do touch "$f"; done ;; autom4te) echo 1>&2 "\ WARNING: \`$1' is needed, but is $msg. You might have modified some files without having the proper tools for further handling them. You can get \`$1' as part of \`Autoconf' from any GNU archive site." file=`echo "$*" | sed -n 's/.*--output[ =]*\([^ ]*\).*/\1/p'` test -z "$file" && file=`echo "$*" | sed -n 's/.*-o[ ]*\([^ ]*\).*/\1/p'` if test -f "$file"; then touch $file else test -z "$file" || exec >$file echo "#! /bin/sh" echo "# Created by GNU Automake missing as a replacement of" echo "# $ $@" echo "exit 0" chmod +x $file exit 1 fi ;; bison|yacc) echo 1>&2 "\ WARNING: \`$1' $msg. You should only need it if you modified a \`.y' file. You may need the \`Bison' package in order for those modifications to take effect. You can get \`Bison' from any GNU archive site." rm -f y.tab.c y.tab.h if [ $# -ne 1 ]; then eval LASTARG="\${$#}" case "$LASTARG" in *.y) SRCFILE=`echo "$LASTARG" | sed 's/y$/c/'` if [ -f "$SRCFILE" ]; then cp "$SRCFILE" y.tab.c fi SRCFILE=`echo "$LASTARG" | sed 's/y$/h/'` if [ -f "$SRCFILE" ]; then cp "$SRCFILE" y.tab.h fi ;; esac fi if [ ! -f y.tab.h ]; then echo >y.tab.h fi if [ ! -f y.tab.c ]; then echo 'main() { return 0; }' >y.tab.c fi ;; lex|flex) echo 1>&2 "\ WARNING: \`$1' is $msg. You should only need it if you modified a \`.l' file. You may need the \`Flex' package in order for those modifications to take effect. You can get \`Flex' from any GNU archive site." rm -f lex.yy.c if [ $# -ne 1 ]; then eval LASTARG="\${$#}" case "$LASTARG" in *.l) SRCFILE=`echo "$LASTARG" | sed 's/l$/c/'` if [ -f "$SRCFILE" ]; then cp "$SRCFILE" lex.yy.c fi ;; esac fi if [ ! -f lex.yy.c ]; then echo 'main() { return 0; }' >lex.yy.c fi ;; help2man) echo 1>&2 "\ WARNING: \`$1' is $msg. You should only need it if you modified a dependency of a manual page. You may need the \`Help2man' package in order for those modifications to take effect. You can get \`Help2man' from any GNU archive site." file=`echo "$*" | sed -n 's/.*-o \([^ ]*\).*/\1/p'` if test -z "$file"; then file=`echo "$*" | sed -n 's/.*--output=\([^ ]*\).*/\1/p'` fi if [ -f "$file" ]; then touch $file else test -z "$file" || exec >$file echo ".ab help2man is required to generate this page" exit 1 fi ;; makeinfo) echo 1>&2 "\ WARNING: \`$1' is $msg. You should only need it if you modified a \`.texi' or \`.texinfo' file, or any other file indirectly affecting the aspect of the manual. The spurious call might also be the consequence of using a buggy \`make' (AIX, DU, IRIX). You might want to install the \`Texinfo' package or the \`GNU make' package. Grab either from any GNU archive site." # The file to touch is that specified with -o ... file=`echo "$*" | sed -n 's/.*-o \([^ ]*\).*/\1/p'` if test -z "$file"; then # ... or it is the one specified with @setfilename ... infile=`echo "$*" | sed 's/.* \([^ ]*\) *$/\1/'` file=`sed -n '/^@setfilename/ { s/.* \([^ ]*\) *$/\1/; p; q; }' $infile` # ... or it is derived from the source name (dir/f.texi becomes f.info) test -z "$file" && file=`echo "$infile" | sed 's,.*/,,;s,.[^.]*$,,'`.info fi # If the file does not exist, the user really needs makeinfo; # let's fail without touching anything. test -f $file || exit 1 touch $file ;; tar) shift # We have already tried tar in the generic part. # Look for gnutar/gtar before invocation to avoid ugly error # messages. if (gnutar --version > /dev/null 2>&1); then gnutar "$@" && exit 0 fi if (gtar --version > /dev/null 2>&1); then gtar "$@" && exit 0 fi firstarg="$1" if shift; then case "$firstarg" in *o*) firstarg=`echo "$firstarg" | sed s/o//` tar "$firstarg" "$@" && exit 0 ;; esac case "$firstarg" in *h*) firstarg=`echo "$firstarg" | sed s/h//` tar "$firstarg" "$@" && exit 0 ;; esac fi echo 1>&2 "\ WARNING: I can't seem to be able to run \`tar' with the given arguments. You may want to install GNU tar or Free paxutils, or check the command line arguments." exit 1 ;; *) echo 1>&2 "\ WARNING: \`$1' is needed, and is $msg. You might have modified some files without having the proper tools for further handling them. Check the \`README' file, it often tells you about the needed prerequisites for installing this package. You may also peek at any GNU archive site, in case some other package would contain this missing \`$1' program." exit 1 ;; esac exit 0 # Local variables: # eval: (add-hook 'write-file-hooks 'time-stamp) # time-stamp-start: "scriptversion=" # time-stamp-format: "%:y-%02m-%02d.%02H" # time-stamp-end: "$" # End: spandsp-0.0.6/config/ltmain.sh0000644000175000017500000060603111027370066015672 0ustar steveusteveu# ltmain.sh - Provide generalized library-building support services. # NOTE: Changing this file will not affect anything until you rerun configure. # # Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2003, 2004, 2005, 2006, # 2007, 2008 Free Software Foundation, Inc. # Originally by Gordon Matzigkeit , 1996 # # This program 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 # (at your option) any later version. # # This program is distributed in the hope that it will be useful, but # WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU # General Public License for more details. # # You should have received a copy of the GNU General Public License # along with this program; if not, write to the Free Software # Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. # # 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. basename="s,^.*/,,g" # Work around backward compatibility issue on IRIX 6.5. On IRIX 6.4+, sh # is ksh but when the shell is invoked as "sh" and the current value of # the _XPG environment variable is not equal to 1 (one), the special # positional parameter $0, within a function call, is the name of the # function. progpath="$0" # The name of this program: progname=`echo "$progpath" | $SED $basename` modename="$progname" # Global variables: EXIT_SUCCESS=0 EXIT_FAILURE=1 PROGRAM=ltmain.sh PACKAGE=libtool VERSION=1.5.26 TIMESTAMP=" (1.1220.2.493 2008/02/01 16:58:18)" # Be Bourne compatible (taken from Autoconf:_AS_BOURNE_COMPATIBLE). if test -n "${ZSH_VERSION+set}" && (emulate sh) >/dev/null 2>&1; then emulate sh NULLCMD=: # Zsh 3.x and 4.x performs word splitting on ${1+"$@"}, which # is contrary to our usage. Disable this feature. alias -g '${1+"$@"}'='"$@"' setopt NO_GLOB_SUBST else case `(set -o) 2>/dev/null` in *posix*) set -o posix;; esac fi BIN_SH=xpg4; export BIN_SH # for Tru64 DUALCASE=1; export DUALCASE # for MKS sh # Check that we have a working $echo. if test "X$1" = X--no-reexec; then # Discard the --no-reexec flag, and continue. shift elif test "X$1" = X--fallback-echo; then # Avoid inline document here, it may be left over : elif test "X`($echo '\t') 2>/dev/null`" = 'X\t'; then # Yippee, $echo works! : else # Restart under the correct shell, and then maybe $echo will work. exec $SHELL "$progpath" --no-reexec ${1+"$@"} fi if test "X$1" = X--fallback-echo; then # used as fallback echo shift cat <&2 $echo "Fatal configuration error. See the $PACKAGE docs for more information." 1>&2 exit $EXIT_FAILURE fi # Global variables. mode=$default_mode nonopt= prev= prevopt= run= show="$echo" show_help= execute_dlfiles= duplicate_deps=no preserve_args= lo2o="s/\\.lo\$/.${objext}/" o2lo="s/\\.${objext}\$/.lo/" extracted_archives= extracted_serial=0 ##################################### # Shell function definitions: # This seems to be the best place for them # func_mktempdir [string] # Make a temporary directory that won't clash with other running # libtool processes, and avoids race conditions if possible. If # given, STRING is the basename for that directory. func_mktempdir () { my_template="${TMPDIR-/tmp}/${1-$progname}" if test "$run" = ":"; then # Return a directory name, but don't create it in dry-run mode my_tmpdir="${my_template}-$$" else # If mktemp works, use that first and foremost my_tmpdir=`mktemp -d "${my_template}-XXXXXXXX" 2>/dev/null` if test ! -d "$my_tmpdir"; then # Failing that, at least try and use $RANDOM to avoid a race my_tmpdir="${my_template}-${RANDOM-0}$$" save_mktempdir_umask=`umask` umask 0077 $mkdir "$my_tmpdir" umask $save_mktempdir_umask fi # If we're not in dry-run mode, bomb out on failure test -d "$my_tmpdir" || { $echo "cannot create temporary directory \`$my_tmpdir'" 1>&2 exit $EXIT_FAILURE } fi $echo "X$my_tmpdir" | $Xsed } # func_win32_libid arg # return the library type of file 'arg' # # Need a lot of goo to handle *both* DLLs and import libs # Has to be a shell function in order to 'eat' the argument # that is supplied when $file_magic_command is called. func_win32_libid () { win32_libid_type="unknown" win32_fileres=`file -L $1 2>/dev/null` case $win32_fileres in *ar\ archive\ import\ library*) # definitely import win32_libid_type="x86 archive import" ;; *ar\ archive*) # could be an import, or static if eval $OBJDUMP -f $1 | $SED -e '10q' 2>/dev/null | \ $EGREP -e 'file format pe-i386(.*architecture: i386)?' >/dev/null ; then win32_nmres=`eval $NM -f posix -A $1 | \ $SED -n -e '1,100{ / I /{ s,.*,import, p q } }'` case $win32_nmres in import*) win32_libid_type="x86 archive import";; *) win32_libid_type="x86 archive static";; esac fi ;; *DLL*) win32_libid_type="x86 DLL" ;; *executable*) # but shell scripts are "executable" too... case $win32_fileres in *MS\ Windows\ PE\ Intel*) win32_libid_type="x86 DLL" ;; esac ;; esac $echo $win32_libid_type } # func_infer_tag arg # Infer tagged configuration to use if any are available and # if one wasn't chosen via the "--tag" command line option. # Only attempt this if the compiler in the base compile # command doesn't match the default compiler. # arg is usually of the form 'gcc ...' func_infer_tag () { if test -n "$available_tags" && test -z "$tagname"; then CC_quoted= for arg in $CC; do case $arg in *[\[\~\#\^\&\*\(\)\{\}\|\;\<\>\?\'\ \ ]*|*]*|"") arg="\"$arg\"" ;; esac CC_quoted="$CC_quoted $arg" done case $@ in # Blanks in the command may have been stripped by the calling shell, # but not from the CC environment variable when configure was run. " $CC "* | "$CC "* | " `$echo $CC` "* | "`$echo $CC` "* | " $CC_quoted"* | "$CC_quoted "* | " `$echo $CC_quoted` "* | "`$echo $CC_quoted` "*) ;; # Blanks at the start of $base_compile will cause this to fail # if we don't check for them as well. *) for z in $available_tags; do if grep "^# ### BEGIN LIBTOOL TAG CONFIG: $z$" < "$progpath" > /dev/null; then # Evaluate the configuration. eval "`${SED} -n -e '/^# ### BEGIN LIBTOOL TAG CONFIG: '$z'$/,/^# ### END LIBTOOL TAG CONFIG: '$z'$/p' < $progpath`" CC_quoted= for arg in $CC; do # Double-quote args containing other shell metacharacters. case $arg in *[\[\~\#\^\&\*\(\)\{\}\|\;\<\>\?\'\ \ ]*|*]*|"") arg="\"$arg\"" ;; esac CC_quoted="$CC_quoted $arg" done case "$@ " in " $CC "* | "$CC "* | " `$echo $CC` "* | "`$echo $CC` "* | " $CC_quoted"* | "$CC_quoted "* | " `$echo $CC_quoted` "* | "`$echo $CC_quoted` "*) # The compiler in the base compile command matches # the one in the tagged configuration. # Assume this is the tagged configuration we want. tagname=$z break ;; esac fi done # If $tagname still isn't set, then no tagged configuration # was found and let the user know that the "--tag" command # line option must be used. if test -z "$tagname"; then $echo "$modename: unable to infer tagged configuration" $echo "$modename: specify a tag with \`--tag'" 1>&2 exit $EXIT_FAILURE # else # $echo "$modename: using $tagname tagged configuration" fi ;; esac fi } # func_extract_an_archive dir oldlib func_extract_an_archive () { f_ex_an_ar_dir="$1"; shift f_ex_an_ar_oldlib="$1" $show "(cd $f_ex_an_ar_dir && $AR x $f_ex_an_ar_oldlib)" $run eval "(cd \$f_ex_an_ar_dir && $AR x \$f_ex_an_ar_oldlib)" || exit $? if ($AR t "$f_ex_an_ar_oldlib" | sort | sort -uc >/dev/null 2>&1); then : else $echo "$modename: ERROR: object name conflicts: $f_ex_an_ar_dir/$f_ex_an_ar_oldlib" 1>&2 exit $EXIT_FAILURE fi } # func_extract_archives gentop oldlib ... func_extract_archives () { my_gentop="$1"; shift my_oldlibs=${1+"$@"} my_oldobjs="" my_xlib="" my_xabs="" my_xdir="" my_status="" $show "${rm}r $my_gentop" $run ${rm}r "$my_gentop" $show "$mkdir $my_gentop" $run $mkdir "$my_gentop" my_status=$? if test "$my_status" -ne 0 && test ! -d "$my_gentop"; then exit $my_status fi for my_xlib in $my_oldlibs; do # Extract the objects. case $my_xlib in [\\/]* | [A-Za-z]:[\\/]*) my_xabs="$my_xlib" ;; *) my_xabs=`pwd`"/$my_xlib" ;; esac my_xlib=`$echo "X$my_xlib" | $Xsed -e 's%^.*/%%'` my_xlib_u=$my_xlib while :; do case " $extracted_archives " in *" $my_xlib_u "*) extracted_serial=`expr $extracted_serial + 1` my_xlib_u=lt$extracted_serial-$my_xlib ;; *) break ;; esac done extracted_archives="$extracted_archives $my_xlib_u" my_xdir="$my_gentop/$my_xlib_u" $show "${rm}r $my_xdir" $run ${rm}r "$my_xdir" $show "$mkdir $my_xdir" $run $mkdir "$my_xdir" exit_status=$? if test "$exit_status" -ne 0 && test ! -d "$my_xdir"; then exit $exit_status fi case $host in *-darwin*) $show "Extracting $my_xabs" # Do not bother doing anything if just a dry run if test -z "$run"; then darwin_orig_dir=`pwd` cd $my_xdir || exit $? darwin_archive=$my_xabs darwin_curdir=`pwd` darwin_base_archive=`$echo "X$darwin_archive" | $Xsed -e 's%^.*/%%'` darwin_arches=`lipo -info "$darwin_archive" 2>/dev/null | $EGREP Architectures 2>/dev/null` if test -n "$darwin_arches"; then darwin_arches=`echo "$darwin_arches" | $SED -e 's/.*are://'` darwin_arch= $show "$darwin_base_archive has multiple architectures $darwin_arches" for darwin_arch in $darwin_arches ; do mkdir -p "unfat-$$/${darwin_base_archive}-${darwin_arch}" lipo -thin $darwin_arch -output "unfat-$$/${darwin_base_archive}-${darwin_arch}/${darwin_base_archive}" "${darwin_archive}" cd "unfat-$$/${darwin_base_archive}-${darwin_arch}" func_extract_an_archive "`pwd`" "${darwin_base_archive}" cd "$darwin_curdir" $rm "unfat-$$/${darwin_base_archive}-${darwin_arch}/${darwin_base_archive}" done # $darwin_arches ## Okay now we have a bunch of thin objects, gotta fatten them up :) darwin_filelist=`find unfat-$$ -type f -name \*.o -print -o -name \*.lo -print| xargs basename | sort -u | $NL2SP` darwin_file= darwin_files= for darwin_file in $darwin_filelist; do darwin_files=`find unfat-$$ -name $darwin_file -print | $NL2SP` lipo -create -output "$darwin_file" $darwin_files done # $darwin_filelist ${rm}r unfat-$$ cd "$darwin_orig_dir" else cd "$darwin_orig_dir" func_extract_an_archive "$my_xdir" "$my_xabs" fi # $darwin_arches fi # $run ;; *) func_extract_an_archive "$my_xdir" "$my_xabs" ;; esac my_oldobjs="$my_oldobjs "`find $my_xdir -name \*.$objext -print -o -name \*.lo -print | $NL2SP` done func_extract_archives_result="$my_oldobjs" } # End of Shell function definitions ##################################### # Darwin sucks eval std_shrext=\"$shrext_cmds\" disable_libs=no # Parse our command line options once, thoroughly. while test "$#" -gt 0 do arg="$1" shift case $arg in -*=*) optarg=`$echo "X$arg" | $Xsed -e 's/[-_a-zA-Z0-9]*=//'` ;; *) optarg= ;; esac # If the previous option needs an argument, assign it. if test -n "$prev"; then case $prev in execute_dlfiles) execute_dlfiles="$execute_dlfiles $arg" ;; tag) tagname="$arg" preserve_args="${preserve_args}=$arg" # Check whether tagname contains only valid characters case $tagname in *[!-_A-Za-z0-9,/]*) $echo "$progname: invalid tag name: $tagname" 1>&2 exit $EXIT_FAILURE ;; esac case $tagname in CC) # Don't test for the "default" C tag, as we know, it's there, but # not specially marked. ;; *) if grep "^# ### BEGIN LIBTOOL TAG CONFIG: $tagname$" < "$progpath" > /dev/null; then taglist="$taglist $tagname" # Evaluate the configuration. eval "`${SED} -n -e '/^# ### BEGIN LIBTOOL TAG CONFIG: '$tagname'$/,/^# ### END LIBTOOL TAG CONFIG: '$tagname'$/p' < $progpath`" else $echo "$progname: ignoring unknown tag $tagname" 1>&2 fi ;; esac ;; *) eval "$prev=\$arg" ;; esac prev= prevopt= continue fi # Have we seen a non-optional argument yet? case $arg in --help) show_help=yes ;; --version) echo "\ $PROGRAM (GNU $PACKAGE) $VERSION$TIMESTAMP Copyright (C) 2008 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." exit $? ;; --config) ${SED} -e '1,/^# ### BEGIN LIBTOOL CONFIG/d' -e '/^# ### END LIBTOOL CONFIG/,$d' $progpath # Now print the configurations for the tags. for tagname in $taglist; do ${SED} -n -e "/^# ### BEGIN LIBTOOL TAG CONFIG: $tagname$/,/^# ### END LIBTOOL TAG CONFIG: $tagname$/p" < "$progpath" done exit $? ;; --debug) $echo "$progname: enabling shell trace mode" set -x preserve_args="$preserve_args $arg" ;; --dry-run | -n) run=: ;; --features) $echo "host: $host" if test "$build_libtool_libs" = yes; then $echo "enable shared libraries" else $echo "disable shared libraries" fi if test "$build_old_libs" = yes; then $echo "enable static libraries" else $echo "disable static libraries" fi exit $? ;; --finish) mode="finish" ;; --mode) prevopt="--mode" prev=mode ;; --mode=*) mode="$optarg" ;; --preserve-dup-deps) duplicate_deps="yes" ;; --quiet | --silent) show=: preserve_args="$preserve_args $arg" ;; --tag) prevopt="--tag" prev=tag preserve_args="$preserve_args --tag" ;; --tag=*) set tag "$optarg" ${1+"$@"} shift prev=tag preserve_args="$preserve_args --tag" ;; -dlopen) prevopt="-dlopen" prev=execute_dlfiles ;; -*) $echo "$modename: unrecognized option \`$arg'" 1>&2 $echo "$help" 1>&2 exit $EXIT_FAILURE ;; *) nonopt="$arg" break ;; esac done if test -n "$prevopt"; then $echo "$modename: option \`$prevopt' requires an argument" 1>&2 $echo "$help" 1>&2 exit $EXIT_FAILURE fi case $disable_libs in no) ;; shared) build_libtool_libs=no build_old_libs=yes ;; static) build_old_libs=`case $build_libtool_libs in yes) echo no;; *) echo yes;; esac` ;; esac # If this variable is set in any of the actions, the command in it # will be execed at the end. This prevents here-documents from being # left over by shells. exec_cmd= if test -z "$show_help"; then # Infer the operation mode. if test -z "$mode"; then $echo "*** Warning: inferring the mode of operation is deprecated." 1>&2 $echo "*** Future versions of Libtool will require --mode=MODE be specified." 1>&2 case $nonopt in *cc | cc* | *++ | gcc* | *-gcc* | g++* | xlc*) mode=link for arg do case $arg in -c) mode=compile break ;; esac done ;; *db | *dbx | *strace | *truss) mode=execute ;; *install*|cp|mv) mode=install ;; *rm) mode=uninstall ;; *) # If we have no mode, but dlfiles were specified, then do execute mode. test -n "$execute_dlfiles" && mode=execute # Just use the default operation mode. if test -z "$mode"; then if test -n "$nonopt"; then $echo "$modename: warning: cannot infer operation mode from \`$nonopt'" 1>&2 else $echo "$modename: warning: cannot infer operation mode without MODE-ARGS" 1>&2 fi fi ;; esac fi # Only execute mode is allowed to have -dlopen flags. if test -n "$execute_dlfiles" && test "$mode" != execute; then $echo "$modename: unrecognized option \`-dlopen'" 1>&2 $echo "$help" 1>&2 exit $EXIT_FAILURE fi # Change the help message to a mode-specific one. generic_help="$help" help="Try \`$modename --help --mode=$mode' for more information." # These modes are in order of execution frequency so that they run quickly. case $mode in # libtool compile mode compile) modename="$modename: compile" # Get the compilation command and the source file. base_compile= srcfile="$nonopt" # always keep a non-empty value in "srcfile" suppress_opt=yes suppress_output= arg_mode=normal libobj= later= for arg do case $arg_mode in arg ) # do not "continue". Instead, add this to base_compile lastarg="$arg" arg_mode=normal ;; target ) libobj="$arg" arg_mode=normal continue ;; normal ) # Accept any command-line options. case $arg in -o) if test -n "$libobj" ; then $echo "$modename: you cannot specify \`-o' more than once" 1>&2 exit $EXIT_FAILURE fi arg_mode=target continue ;; -static | -prefer-pic | -prefer-non-pic) later="$later $arg" continue ;; -no-suppress) suppress_opt=no continue ;; -Xcompiler) arg_mode=arg # the next one goes into the "base_compile" arg list continue # The current "srcfile" will either be retained or ;; # replaced later. I would guess that would be a bug. -Wc,*) args=`$echo "X$arg" | $Xsed -e "s/^-Wc,//"` lastarg= save_ifs="$IFS"; IFS=',' for arg in $args; do IFS="$save_ifs" # Double-quote args containing other shell metacharacters. # Many Bourne shells cannot handle close brackets correctly # in scan sets, so we specify it separately. case $arg in *[\[\~\#\^\&\*\(\)\{\}\|\;\<\>\?\'\ \ ]*|*]*|"") arg="\"$arg\"" ;; esac lastarg="$lastarg $arg" done IFS="$save_ifs" lastarg=`$echo "X$lastarg" | $Xsed -e "s/^ //"` # Add the arguments to base_compile. base_compile="$base_compile $lastarg" continue ;; * ) # Accept the current argument as the source file. # The previous "srcfile" becomes the current argument. # lastarg="$srcfile" srcfile="$arg" ;; esac # case $arg ;; esac # case $arg_mode # Aesthetically quote the previous argument. lastarg=`$echo "X$lastarg" | $Xsed -e "$sed_quote_subst"` case $lastarg in # Double-quote args containing other shell metacharacters. # Many Bourne shells cannot handle close brackets correctly # in scan sets, and some SunOS ksh mistreat backslash-escaping # in scan sets (worked around with variable expansion), # and furthermore cannot handle '|' '&' '(' ')' in scan sets # at all, so we specify them separately. *[\[\~\#\^\&\*\(\)\{\}\|\;\<\>\?\'\ \ ]*|*]*|"") lastarg="\"$lastarg\"" ;; esac base_compile="$base_compile $lastarg" done # for arg case $arg_mode in arg) $echo "$modename: you must specify an argument for -Xcompile" exit $EXIT_FAILURE ;; target) $echo "$modename: you must specify a target with \`-o'" 1>&2 exit $EXIT_FAILURE ;; *) # Get the name of the library object. [ -z "$libobj" ] && libobj=`$echo "X$srcfile" | $Xsed -e 's%^.*/%%'` ;; esac # Recognize several different file suffixes. # If the user specifies -o file.o, it is replaced with file.lo xform='[cCFSifmso]' case $libobj in *.ada) xform=ada ;; *.adb) xform=adb ;; *.ads) xform=ads ;; *.asm) xform=asm ;; *.c++) xform=c++ ;; *.cc) xform=cc ;; *.ii) xform=ii ;; *.class) xform=class ;; *.cpp) xform=cpp ;; *.cxx) xform=cxx ;; *.[fF][09]?) xform=[fF][09]. ;; *.for) xform=for ;; *.java) xform=java ;; *.obj) xform=obj ;; *.sx) xform=sx ;; esac libobj=`$echo "X$libobj" | $Xsed -e "s/\.$xform$/.lo/"` case $libobj in *.lo) obj=`$echo "X$libobj" | $Xsed -e "$lo2o"` ;; *) $echo "$modename: cannot determine name of library object from \`$libobj'" 1>&2 exit $EXIT_FAILURE ;; esac func_infer_tag $base_compile for arg in $later; do case $arg in -static) build_old_libs=yes continue ;; -prefer-pic) pic_mode=yes continue ;; -prefer-non-pic) pic_mode=no continue ;; esac done qlibobj=`$echo "X$libobj" | $Xsed -e "$sed_quote_subst"` case $qlibobj in *[\[\~\#\^\&\*\(\)\{\}\|\;\<\>\?\'\ \ ]*|*]*|"") qlibobj="\"$qlibobj\"" ;; esac test "X$libobj" != "X$qlibobj" \ && $echo "X$libobj" | grep '[]~#^*{};<>?"'"'"' &()|`$[]' \ && $echo "$modename: libobj name \`$libobj' may not contain shell special characters." objname=`$echo "X$obj" | $Xsed -e 's%^.*/%%'` xdir=`$echo "X$obj" | $Xsed -e 's%/[^/]*$%%'` if test "X$xdir" = "X$obj"; then xdir= else xdir=$xdir/ fi lobj=${xdir}$objdir/$objname if test -z "$base_compile"; then $echo "$modename: you must specify a compilation command" 1>&2 $echo "$help" 1>&2 exit $EXIT_FAILURE fi # Delete any leftover library objects. if test "$build_old_libs" = yes; then removelist="$obj $lobj $libobj ${libobj}T" else removelist="$lobj $libobj ${libobj}T" fi $run $rm $removelist trap "$run $rm $removelist; exit $EXIT_FAILURE" 1 2 15 # On Cygwin there's no "real" PIC flag so we must build both object types case $host_os in cygwin* | mingw* | pw32* | os2*) pic_mode=default ;; esac if test "$pic_mode" = no && test "$deplibs_check_method" != pass_all; then # non-PIC code in shared libraries is not supported pic_mode=default fi # Calculate the filename of the output object if compiler does # not support -o with -c if test "$compiler_c_o" = no; then output_obj=`$echo "X$srcfile" | $Xsed -e 's%^.*/%%' -e 's%\.[^.]*$%%'`.${objext} lockfile="$output_obj.lock" removelist="$removelist $output_obj $lockfile" trap "$run $rm $removelist; exit $EXIT_FAILURE" 1 2 15 else output_obj= need_locks=no lockfile= fi # Lock this critical section if it is needed # We use this script file to make the link, it avoids creating a new file if test "$need_locks" = yes; then until $run ln "$progpath" "$lockfile" 2>/dev/null; do $show "Waiting for $lockfile to be removed" sleep 2 done elif test "$need_locks" = warn; then if test -f "$lockfile"; then $echo "\ *** ERROR, $lockfile exists and contains: `cat $lockfile 2>/dev/null` This indicates that another process is trying to use the same temporary object file, and libtool could not work around it because your compiler does not support \`-c' and \`-o' together. If you repeat this compilation, it may succeed, by chance, but you had better avoid parallel builds (make -j) in this platform, or get a better compiler." $run $rm $removelist exit $EXIT_FAILURE fi $echo "$srcfile" > "$lockfile" fi if test -n "$fix_srcfile_path"; then eval srcfile=\"$fix_srcfile_path\" fi qsrcfile=`$echo "X$srcfile" | $Xsed -e "$sed_quote_subst"` case $qsrcfile in *[\[\~\#\^\&\*\(\)\{\}\|\;\<\>\?\'\ \ ]*|*]*|"") qsrcfile="\"$qsrcfile\"" ;; esac $run $rm "$libobj" "${libobj}T" # Create a libtool object file (analogous to a ".la" file), # but don't create it if we're doing a dry run. test -z "$run" && cat > ${libobj}T </dev/null`" != "X$srcfile"; then $echo "\ *** ERROR, $lockfile contains: `cat $lockfile 2>/dev/null` but it should contain: $srcfile This indicates that another process is trying to use the same temporary object file, and libtool could not work around it because your compiler does not support \`-c' and \`-o' together. If you repeat this compilation, it may succeed, by chance, but you had better avoid parallel builds (make -j) in this platform, or get a better compiler." $run $rm $removelist exit $EXIT_FAILURE fi # Just move the object if needed, then go on to compile the next one if test -n "$output_obj" && test "X$output_obj" != "X$lobj"; then $show "$mv $output_obj $lobj" if $run $mv $output_obj $lobj; then : else error=$? $run $rm $removelist exit $error fi fi # Append the name of the PIC object to the libtool object file. test -z "$run" && cat >> ${libobj}T <> ${libobj}T </dev/null`" != "X$srcfile"; then $echo "\ *** ERROR, $lockfile contains: `cat $lockfile 2>/dev/null` but it should contain: $srcfile This indicates that another process is trying to use the same temporary object file, and libtool could not work around it because your compiler does not support \`-c' and \`-o' together. If you repeat this compilation, it may succeed, by chance, but you had better avoid parallel builds (make -j) in this platform, or get a better compiler." $run $rm $removelist exit $EXIT_FAILURE fi # Just move the object if needed if test -n "$output_obj" && test "X$output_obj" != "X$obj"; then $show "$mv $output_obj $obj" if $run $mv $output_obj $obj; then : else error=$? $run $rm $removelist exit $error fi fi # Append the name of the non-PIC object the libtool object file. # Only append if the libtool object file exists. test -z "$run" && cat >> ${libobj}T <> ${libobj}T <&2 fi if test -n "$link_static_flag"; then dlopen_self=$dlopen_self_static fi prefer_static_libs=yes ;; -static) if test -z "$pic_flag" && test -n "$link_static_flag"; then dlopen_self=$dlopen_self_static fi prefer_static_libs=built ;; -static-libtool-libs) if test -z "$pic_flag" && test -n "$link_static_flag"; then dlopen_self=$dlopen_self_static fi prefer_static_libs=yes ;; esac build_libtool_libs=no build_old_libs=yes break ;; esac done # See if our shared archives depend on static archives. test -n "$old_archive_from_new_cmds" && build_old_libs=yes # Go through the arguments, transforming them on the way. while test "$#" -gt 0; do arg="$1" shift case $arg in *[\[\~\#\^\&\*\(\)\{\}\|\;\<\>\?\'\ \ ]*|*]*|"") qarg=\"`$echo "X$arg" | $Xsed -e "$sed_quote_subst"`\" ### testsuite: skip nested quoting test ;; *) qarg=$arg ;; esac libtool_args="$libtool_args $qarg" # If the previous option needs an argument, assign it. if test -n "$prev"; then case $prev in output) compile_command="$compile_command @OUTPUT@" finalize_command="$finalize_command @OUTPUT@" ;; esac case $prev in dlfiles|dlprefiles) if test "$preload" = no; then # Add the symbol object into the linking commands. compile_command="$compile_command @SYMFILE@" finalize_command="$finalize_command @SYMFILE@" preload=yes fi case $arg in *.la | *.lo) ;; # We handle these cases below. force) if test "$dlself" = no; then dlself=needless export_dynamic=yes fi prev= continue ;; self) if test "$prev" = dlprefiles; then dlself=yes elif test "$prev" = dlfiles && test "$dlopen_self" != yes; then dlself=yes else dlself=needless export_dynamic=yes fi prev= continue ;; *) if test "$prev" = dlfiles; then dlfiles="$dlfiles $arg" else dlprefiles="$dlprefiles $arg" fi prev= continue ;; esac ;; expsyms) export_symbols="$arg" if test ! -f "$arg"; then $echo "$modename: symbol file \`$arg' does not exist" exit $EXIT_FAILURE fi prev= continue ;; expsyms_regex) export_symbols_regex="$arg" prev= continue ;; inst_prefix) inst_prefix_dir="$arg" prev= continue ;; precious_regex) precious_files_regex="$arg" prev= continue ;; release) release="-$arg" prev= continue ;; objectlist) if test -f "$arg"; then save_arg=$arg moreargs= for fil in `cat $save_arg` do # moreargs="$moreargs $fil" arg=$fil # A libtool-controlled object. # Check to see that this really is a libtool object. if (${SED} -e '2q' $arg | grep "^# Generated by .*$PACKAGE") >/dev/null 2>&1; then pic_object= non_pic_object= # Read the .lo file # If there is no directory component, then add one. case $arg in */* | *\\*) . $arg ;; *) . ./$arg ;; esac if test -z "$pic_object" || \ test -z "$non_pic_object" || test "$pic_object" = none && \ test "$non_pic_object" = none; then $echo "$modename: cannot find name of object for \`$arg'" 1>&2 exit $EXIT_FAILURE fi # Extract subdirectory from the argument. xdir=`$echo "X$arg" | $Xsed -e 's%/[^/]*$%%'` if test "X$xdir" = "X$arg"; then xdir= else xdir="$xdir/" fi if test "$pic_object" != none; then # Prepend the subdirectory the object is found in. pic_object="$xdir$pic_object" if test "$prev" = dlfiles; then if test "$build_libtool_libs" = yes && test "$dlopen_support" = yes; then dlfiles="$dlfiles $pic_object" prev= continue else # If libtool objects are unsupported, then we need to preload. prev=dlprefiles fi fi # CHECK ME: I think I busted this. -Ossama if test "$prev" = dlprefiles; then # Preload the old-style object. dlprefiles="$dlprefiles $pic_object" prev= fi # A PIC object. libobjs="$libobjs $pic_object" arg="$pic_object" fi # Non-PIC object. if test "$non_pic_object" != none; then # Prepend the subdirectory the object is found in. non_pic_object="$xdir$non_pic_object" # A standard non-PIC object non_pic_objects="$non_pic_objects $non_pic_object" if test -z "$pic_object" || test "$pic_object" = none ; then arg="$non_pic_object" fi else # If the PIC object exists, use it instead. # $xdir was prepended to $pic_object above. non_pic_object="$pic_object" non_pic_objects="$non_pic_objects $non_pic_object" fi else # Only an error if not doing a dry-run. if test -z "$run"; then $echo "$modename: \`$arg' is not a valid libtool object" 1>&2 exit $EXIT_FAILURE else # Dry-run case. # Extract subdirectory from the argument. xdir=`$echo "X$arg" | $Xsed -e 's%/[^/]*$%%'` if test "X$xdir" = "X$arg"; then xdir= else xdir="$xdir/" fi pic_object=`$echo "X${xdir}${objdir}/${arg}" | $Xsed -e "$lo2o"` non_pic_object=`$echo "X${xdir}${arg}" | $Xsed -e "$lo2o"` libobjs="$libobjs $pic_object" non_pic_objects="$non_pic_objects $non_pic_object" fi fi done else $echo "$modename: link input file \`$save_arg' does not exist" exit $EXIT_FAILURE fi arg=$save_arg prev= continue ;; rpath | xrpath) # We need an absolute path. case $arg in [\\/]* | [A-Za-z]:[\\/]*) ;; *) $echo "$modename: only absolute run-paths are allowed" 1>&2 exit $EXIT_FAILURE ;; esac if test "$prev" = rpath; then case "$rpath " in *" $arg "*) ;; *) rpath="$rpath $arg" ;; esac else case "$xrpath " in *" $arg "*) ;; *) xrpath="$xrpath $arg" ;; esac fi prev= continue ;; xcompiler) compiler_flags="$compiler_flags $qarg" prev= compile_command="$compile_command $qarg" finalize_command="$finalize_command $qarg" continue ;; xlinker) linker_flags="$linker_flags $qarg" compiler_flags="$compiler_flags $wl$qarg" prev= compile_command="$compile_command $wl$qarg" finalize_command="$finalize_command $wl$qarg" continue ;; xcclinker) linker_flags="$linker_flags $qarg" compiler_flags="$compiler_flags $qarg" prev= compile_command="$compile_command $qarg" finalize_command="$finalize_command $qarg" continue ;; shrext) shrext_cmds="$arg" prev= continue ;; darwin_framework|darwin_framework_skip) test "$prev" = "darwin_framework" && compiler_flags="$compiler_flags $arg" compile_command="$compile_command $arg" finalize_command="$finalize_command $arg" prev= continue ;; *) eval "$prev=\"\$arg\"" prev= continue ;; esac fi # test -n "$prev" prevarg="$arg" case $arg in -all-static) if test -n "$link_static_flag"; then compile_command="$compile_command $link_static_flag" finalize_command="$finalize_command $link_static_flag" fi continue ;; -allow-undefined) # FIXME: remove this flag sometime in the future. $echo "$modename: \`-allow-undefined' is deprecated because it is the default" 1>&2 continue ;; -avoid-version) avoid_version=yes continue ;; -dlopen) prev=dlfiles continue ;; -dlpreopen) prev=dlprefiles continue ;; -export-dynamic) export_dynamic=yes continue ;; -export-symbols | -export-symbols-regex) if test -n "$export_symbols" || test -n "$export_symbols_regex"; then $echo "$modename: more than one -exported-symbols argument is not allowed" exit $EXIT_FAILURE fi if test "X$arg" = "X-export-symbols"; then prev=expsyms else prev=expsyms_regex fi continue ;; -framework|-arch|-isysroot) case " $CC " in *" ${arg} ${1} "* | *" ${arg} ${1} "*) prev=darwin_framework_skip ;; *) compiler_flags="$compiler_flags $arg" prev=darwin_framework ;; esac compile_command="$compile_command $arg" finalize_command="$finalize_command $arg" continue ;; -inst-prefix-dir) prev=inst_prefix continue ;; # The native IRIX linker understands -LANG:*, -LIST:* and -LNO:* # so, if we see these flags be careful not to treat them like -L -L[A-Z][A-Z]*:*) case $with_gcc/$host in no/*-*-irix* | /*-*-irix*) compile_command="$compile_command $arg" finalize_command="$finalize_command $arg" ;; esac continue ;; -L*) dir=`$echo "X$arg" | $Xsed -e 's/^-L//'` # We need an absolute path. case $dir in [\\/]* | [A-Za-z]:[\\/]*) ;; *) absdir=`cd "$dir" && pwd` if test -z "$absdir"; then $echo "$modename: cannot determine absolute directory name of \`$dir'" 1>&2 absdir="$dir" notinst_path="$notinst_path $dir" fi dir="$absdir" ;; esac case "$deplibs " in *" -L$dir "*) ;; *) deplibs="$deplibs -L$dir" lib_search_path="$lib_search_path $dir" ;; esac case $host in *-*-cygwin* | *-*-mingw* | *-*-pw32* | *-*-os2*) testbindir=`$echo "X$dir" | $Xsed -e 's*/lib$*/bin*'` case :$dllsearchpath: in *":$dir:"*) ;; *) dllsearchpath="$dllsearchpath:$dir";; esac case :$dllsearchpath: in *":$testbindir:"*) ;; *) dllsearchpath="$dllsearchpath:$testbindir";; esac ;; esac continue ;; -l*) if test "X$arg" = "X-lc" || test "X$arg" = "X-lm"; then case $host in *-*-cygwin* | *-*-mingw* | *-*-pw32* | *-*-beos*) # These systems don't actually have a C or math library (as such) continue ;; *-*-os2*) # These systems don't actually have a C library (as such) test "X$arg" = "X-lc" && continue ;; *-*-openbsd* | *-*-freebsd* | *-*-dragonfly*) # Do not include libc due to us having libc/libc_r. test "X$arg" = "X-lc" && continue ;; *-*-rhapsody* | *-*-darwin1.[012]) # Rhapsody C and math libraries are in the System framework deplibs="$deplibs -framework System" continue ;; *-*-sco3.2v5* | *-*-sco5v6*) # Causes problems with __ctype test "X$arg" = "X-lc" && continue ;; *-*-sysv4.2uw2* | *-*-sysv5* | *-*-unixware* | *-*-OpenUNIX*) # Compiler inserts libc in the correct place for threads to work test "X$arg" = "X-lc" && continue ;; esac elif test "X$arg" = "X-lc_r"; then case $host in *-*-openbsd* | *-*-freebsd* | *-*-dragonfly*) # Do not include libc_r directly, use -pthread flag. continue ;; esac fi deplibs="$deplibs $arg" continue ;; # Tru64 UNIX uses -model [arg] to determine the layout of C++ # classes, name mangling, and exception handling. -model) compile_command="$compile_command $arg" compiler_flags="$compiler_flags $arg" finalize_command="$finalize_command $arg" prev=xcompiler continue ;; -mt|-mthreads|-kthread|-Kthread|-pthread|-pthreads|--thread-safe|-threads) compiler_flags="$compiler_flags $arg" compile_command="$compile_command $arg" finalize_command="$finalize_command $arg" continue ;; -multi_module) single_module="${wl}-multi_module" continue ;; -module) module=yes continue ;; # -64, -mips[0-9] enable 64-bit mode on the SGI compiler # -r[0-9][0-9]* specifies the processor on the SGI compiler # -xarch=*, -xtarget=* enable 64-bit mode on the Sun compiler # +DA*, +DD* enable 64-bit mode on the HP compiler # -q* pass through compiler args for the IBM compiler # -m* pass through architecture-specific compiler args for GCC # -m*, -t[45]*, -txscale* pass through architecture-specific # compiler args for GCC # -p, -pg, --coverage, -fprofile-* pass through profiling flag for GCC # -F/path gives path to uninstalled frameworks, gcc on darwin # @file GCC response files -64|-mips[0-9]|-r[0-9][0-9]*|-xarch=*|-xtarget=*|+DA*|+DD*|-q*|-m*| \ -t[45]*|-txscale*|-p|-pg|--coverage|-fprofile-*|-F*|@*) # Unknown arguments in both finalize_command and compile_command need # to be aesthetically quoted because they are evaled later. arg=`$echo "X$arg" | $Xsed -e "$sed_quote_subst"` case $arg in *[\[\~\#\^\&\*\(\)\{\}\|\;\<\>\?\'\ \ ]*|*]*|"") arg="\"$arg\"" ;; esac compile_command="$compile_command $arg" finalize_command="$finalize_command $arg" compiler_flags="$compiler_flags $arg" continue ;; -shrext) prev=shrext continue ;; -no-fast-install) fast_install=no continue ;; -no-install) case $host in *-*-cygwin* | *-*-mingw* | *-*-pw32* | *-*-os2* | *-*-darwin*) # The PATH hackery in wrapper scripts is required on Windows # and Darwin in order for the loader to find any dlls it needs. $echo "$modename: warning: \`-no-install' is ignored for $host" 1>&2 $echo "$modename: warning: assuming \`-no-fast-install' instead" 1>&2 fast_install=no ;; *) no_install=yes ;; esac continue ;; -no-undefined) allow_undefined=no continue ;; -objectlist) prev=objectlist continue ;; -o) prev=output ;; -precious-files-regex) prev=precious_regex continue ;; -release) prev=release continue ;; -rpath) prev=rpath continue ;; -R) prev=xrpath continue ;; -R*) dir=`$echo "X$arg" | $Xsed -e 's/^-R//'` # We need an absolute path. case $dir in [\\/]* | [A-Za-z]:[\\/]*) ;; *) $echo "$modename: only absolute run-paths are allowed" 1>&2 exit $EXIT_FAILURE ;; esac case "$xrpath " in *" $dir "*) ;; *) xrpath="$xrpath $dir" ;; esac continue ;; -static | -static-libtool-libs) # The effects of -static are defined in a previous loop. # We used to do the same as -all-static on platforms that # didn't have a PIC flag, but the assumption that the effects # would be equivalent was wrong. It would break on at least # Digital Unix and AIX. continue ;; -thread-safe) thread_safe=yes continue ;; -version-info) prev=vinfo continue ;; -version-number) prev=vinfo vinfo_number=yes continue ;; -Wc,*) args=`$echo "X$arg" | $Xsed -e "$sed_quote_subst" -e 's/^-Wc,//'` arg= save_ifs="$IFS"; IFS=',' for flag in $args; do IFS="$save_ifs" case $flag in *[\[\~\#\^\&\*\(\)\{\}\|\;\<\>\?\'\ \ ]*|*]*|"") flag="\"$flag\"" ;; esac arg="$arg $wl$flag" compiler_flags="$compiler_flags $flag" done IFS="$save_ifs" arg=`$echo "X$arg" | $Xsed -e "s/^ //"` ;; -Wl,*) args=`$echo "X$arg" | $Xsed -e "$sed_quote_subst" -e 's/^-Wl,//'` arg= save_ifs="$IFS"; IFS=',' for flag in $args; do IFS="$save_ifs" case $flag in *[\[\~\#\^\&\*\(\)\{\}\|\;\<\>\?\'\ \ ]*|*]*|"") flag="\"$flag\"" ;; esac arg="$arg $wl$flag" compiler_flags="$compiler_flags $wl$flag" linker_flags="$linker_flags $flag" done IFS="$save_ifs" arg=`$echo "X$arg" | $Xsed -e "s/^ //"` ;; -Xcompiler) prev=xcompiler continue ;; -Xlinker) prev=xlinker continue ;; -XCClinker) prev=xcclinker continue ;; # Some other compiler flag. -* | +*) # Unknown arguments in both finalize_command and compile_command need # to be aesthetically quoted because they are evaled later. arg=`$echo "X$arg" | $Xsed -e "$sed_quote_subst"` case $arg in *[\[\~\#\^\&\*\(\)\{\}\|\;\<\>\?\'\ \ ]*|*]*|"") arg="\"$arg\"" ;; esac ;; *.$objext) # A standard object. objs="$objs $arg" ;; *.lo) # A libtool-controlled object. # Check to see that this really is a libtool object. if (${SED} -e '2q' $arg | grep "^# Generated by .*$PACKAGE") >/dev/null 2>&1; then pic_object= non_pic_object= # Read the .lo file # If there is no directory component, then add one. case $arg in */* | *\\*) . $arg ;; *) . ./$arg ;; esac if test -z "$pic_object" || \ test -z "$non_pic_object" || test "$pic_object" = none && \ test "$non_pic_object" = none; then $echo "$modename: cannot find name of object for \`$arg'" 1>&2 exit $EXIT_FAILURE fi # Extract subdirectory from the argument. xdir=`$echo "X$arg" | $Xsed -e 's%/[^/]*$%%'` if test "X$xdir" = "X$arg"; then xdir= else xdir="$xdir/" fi if test "$pic_object" != none; then # Prepend the subdirectory the object is found in. pic_object="$xdir$pic_object" if test "$prev" = dlfiles; then if test "$build_libtool_libs" = yes && test "$dlopen_support" = yes; then dlfiles="$dlfiles $pic_object" prev= continue else # If libtool objects are unsupported, then we need to preload. prev=dlprefiles fi fi # CHECK ME: I think I busted this. -Ossama if test "$prev" = dlprefiles; then # Preload the old-style object. dlprefiles="$dlprefiles $pic_object" prev= fi # A PIC object. libobjs="$libobjs $pic_object" arg="$pic_object" fi # Non-PIC object. if test "$non_pic_object" != none; then # Prepend the subdirectory the object is found in. non_pic_object="$xdir$non_pic_object" # A standard non-PIC object non_pic_objects="$non_pic_objects $non_pic_object" if test -z "$pic_object" || test "$pic_object" = none ; then arg="$non_pic_object" fi else # If the PIC object exists, use it instead. # $xdir was prepended to $pic_object above. non_pic_object="$pic_object" non_pic_objects="$non_pic_objects $non_pic_object" fi else # Only an error if not doing a dry-run. if test -z "$run"; then $echo "$modename: \`$arg' is not a valid libtool object" 1>&2 exit $EXIT_FAILURE else # Dry-run case. # Extract subdirectory from the argument. xdir=`$echo "X$arg" | $Xsed -e 's%/[^/]*$%%'` if test "X$xdir" = "X$arg"; then xdir= else xdir="$xdir/" fi pic_object=`$echo "X${xdir}${objdir}/${arg}" | $Xsed -e "$lo2o"` non_pic_object=`$echo "X${xdir}${arg}" | $Xsed -e "$lo2o"` libobjs="$libobjs $pic_object" non_pic_objects="$non_pic_objects $non_pic_object" fi fi ;; *.$libext) # An archive. deplibs="$deplibs $arg" old_deplibs="$old_deplibs $arg" continue ;; *.la) # A libtool-controlled library. if test "$prev" = dlfiles; then # This library was specified with -dlopen. dlfiles="$dlfiles $arg" prev= elif test "$prev" = dlprefiles; then # The library was specified with -dlpreopen. dlprefiles="$dlprefiles $arg" prev= else deplibs="$deplibs $arg" fi continue ;; # Some other compiler argument. *) # Unknown arguments in both finalize_command and compile_command need # to be aesthetically quoted because they are evaled later. arg=`$echo "X$arg" | $Xsed -e "$sed_quote_subst"` case $arg in *[\[\~\#\^\&\*\(\)\{\}\|\;\<\>\?\'\ \ ]*|*]*|"") arg="\"$arg\"" ;; esac ;; esac # arg # Now actually substitute the argument into the commands. if test -n "$arg"; then compile_command="$compile_command $arg" finalize_command="$finalize_command $arg" fi done # argument parsing loop if test -n "$prev"; then $echo "$modename: the \`$prevarg' option requires an argument" 1>&2 $echo "$help" 1>&2 exit $EXIT_FAILURE fi if test "$export_dynamic" = yes && test -n "$export_dynamic_flag_spec"; then eval arg=\"$export_dynamic_flag_spec\" compile_command="$compile_command $arg" finalize_command="$finalize_command $arg" fi oldlibs= # calculate the name of the file, without its directory outputname=`$echo "X$output" | $Xsed -e 's%^.*/%%'` libobjs_save="$libobjs" if test -n "$shlibpath_var"; then # get the directories listed in $shlibpath_var eval shlib_search_path=\`\$echo \"X\${$shlibpath_var}\" \| \$Xsed -e \'s/:/ /g\'\` else shlib_search_path= fi eval sys_lib_search_path=\"$sys_lib_search_path_spec\" eval sys_lib_dlsearch_path=\"$sys_lib_dlsearch_path_spec\" output_objdir=`$echo "X$output" | $Xsed -e 's%/[^/]*$%%'` if test "X$output_objdir" = "X$output"; then output_objdir="$objdir" else output_objdir="$output_objdir/$objdir" fi # Create the object directory. if test ! -d "$output_objdir"; then $show "$mkdir $output_objdir" $run $mkdir $output_objdir exit_status=$? if test "$exit_status" -ne 0 && test ! -d "$output_objdir"; then exit $exit_status fi fi # Determine the type of output case $output in "") $echo "$modename: you must specify an output file" 1>&2 $echo "$help" 1>&2 exit $EXIT_FAILURE ;; *.$libext) linkmode=oldlib ;; *.lo | *.$objext) linkmode=obj ;; *.la) linkmode=lib ;; *) linkmode=prog ;; # Anything else should be a program. esac case $host in *cygwin* | *mingw* | *pw32*) # don't eliminate duplications in $postdeps and $predeps duplicate_compiler_generated_deps=yes ;; *) duplicate_compiler_generated_deps=$duplicate_deps ;; esac specialdeplibs= libs= # Find all interdependent deplibs by searching for libraries # that are linked more than once (e.g. -la -lb -la) for deplib in $deplibs; do if test "X$duplicate_deps" = "Xyes" ; then case "$libs " in *" $deplib "*) specialdeplibs="$specialdeplibs $deplib" ;; esac fi libs="$libs $deplib" done if test "$linkmode" = lib; then libs="$predeps $libs $compiler_lib_search_path $postdeps" # Compute libraries that are listed more than once in $predeps # $postdeps and mark them as special (i.e., whose duplicates are # not to be eliminated). pre_post_deps= if test "X$duplicate_compiler_generated_deps" = "Xyes" ; then for pre_post_dep in $predeps $postdeps; do case "$pre_post_deps " in *" $pre_post_dep "*) specialdeplibs="$specialdeplibs $pre_post_deps" ;; esac pre_post_deps="$pre_post_deps $pre_post_dep" done fi pre_post_deps= fi deplibs= newdependency_libs= newlib_search_path= need_relink=no # whether we're linking any uninstalled libtool libraries notinst_deplibs= # not-installed libtool libraries case $linkmode in lib) passes="conv link" for file in $dlfiles $dlprefiles; do case $file in *.la) ;; *) $echo "$modename: libraries can \`-dlopen' only libtool libraries: $file" 1>&2 exit $EXIT_FAILURE ;; esac done ;; prog) compile_deplibs= finalize_deplibs= alldeplibs=no newdlfiles= newdlprefiles= passes="conv scan dlopen dlpreopen link" ;; *) passes="conv" ;; esac for pass in $passes; do if test "$linkmode,$pass" = "lib,link" || test "$linkmode,$pass" = "prog,scan"; then libs="$deplibs" deplibs= fi if test "$linkmode" = prog; then case $pass in dlopen) libs="$dlfiles" ;; dlpreopen) libs="$dlprefiles" ;; link) libs="$deplibs %DEPLIBS% $dependency_libs" ;; esac fi if test "$pass" = dlopen; then # Collect dlpreopened libraries save_deplibs="$deplibs" deplibs= fi for deplib in $libs; do lib= found=no case $deplib in -mt|-mthreads|-kthread|-Kthread|-pthread|-pthreads|--thread-safe|-threads) if test "$linkmode,$pass" = "prog,link"; then compile_deplibs="$deplib $compile_deplibs" finalize_deplibs="$deplib $finalize_deplibs" else compiler_flags="$compiler_flags $deplib" fi continue ;; -l*) if test "$linkmode" != lib && test "$linkmode" != prog; then $echo "$modename: warning: \`-l' is ignored for archives/objects" 1>&2 continue fi name=`$echo "X$deplib" | $Xsed -e 's/^-l//'` if test "$linkmode" = lib; then searchdirs="$newlib_search_path $lib_search_path $compiler_lib_search_dirs $sys_lib_search_path $shlib_search_path" else searchdirs="$newlib_search_path $lib_search_path $sys_lib_search_path $shlib_search_path" fi for searchdir in $searchdirs; do for search_ext in .la $std_shrext .so .a; do # Search the libtool library lib="$searchdir/lib${name}${search_ext}" if test -f "$lib"; then if test "$search_ext" = ".la"; then found=yes else found=no fi break 2 fi done done if test "$found" != yes; then # deplib doesn't seem to be a libtool library if test "$linkmode,$pass" = "prog,link"; then compile_deplibs="$deplib $compile_deplibs" finalize_deplibs="$deplib $finalize_deplibs" else deplibs="$deplib $deplibs" test "$linkmode" = lib && newdependency_libs="$deplib $newdependency_libs" fi continue else # deplib is a libtool library # If $allow_libtool_libs_with_static_runtimes && $deplib is a stdlib, # We need to do some special things here, and not later. if test "X$allow_libtool_libs_with_static_runtimes" = "Xyes" ; then case " $predeps $postdeps " in *" $deplib "*) if (${SED} -e '2q' $lib | grep "^# Generated by .*$PACKAGE") >/dev/null 2>&1; then library_names= old_library= case $lib in */* | *\\*) . $lib ;; *) . ./$lib ;; esac for l in $old_library $library_names; do ll="$l" done if test "X$ll" = "X$old_library" ; then # only static version available found=no ladir=`$echo "X$lib" | $Xsed -e 's%/[^/]*$%%'` test "X$ladir" = "X$lib" && ladir="." lib=$ladir/$old_library if test "$linkmode,$pass" = "prog,link"; then compile_deplibs="$deplib $compile_deplibs" finalize_deplibs="$deplib $finalize_deplibs" else deplibs="$deplib $deplibs" test "$linkmode" = lib && newdependency_libs="$deplib $newdependency_libs" fi continue fi fi ;; *) ;; esac fi fi ;; # -l -L*) case $linkmode in lib) deplibs="$deplib $deplibs" test "$pass" = conv && continue newdependency_libs="$deplib $newdependency_libs" newlib_search_path="$newlib_search_path "`$echo "X$deplib" | $Xsed -e 's/^-L//'` ;; prog) if test "$pass" = conv; then deplibs="$deplib $deplibs" continue fi if test "$pass" = scan; then deplibs="$deplib $deplibs" else compile_deplibs="$deplib $compile_deplibs" finalize_deplibs="$deplib $finalize_deplibs" fi newlib_search_path="$newlib_search_path "`$echo "X$deplib" | $Xsed -e 's/^-L//'` ;; *) $echo "$modename: warning: \`-L' is ignored for archives/objects" 1>&2 ;; esac # linkmode continue ;; # -L -R*) if test "$pass" = link; then dir=`$echo "X$deplib" | $Xsed -e 's/^-R//'` # Make sure the xrpath contains only unique directories. case "$xrpath " in *" $dir "*) ;; *) xrpath="$xrpath $dir" ;; esac fi deplibs="$deplib $deplibs" continue ;; *.la) lib="$deplib" ;; *.$libext) if test "$pass" = conv; then deplibs="$deplib $deplibs" continue fi case $linkmode in lib) valid_a_lib=no case $deplibs_check_method in match_pattern*) set dummy $deplibs_check_method match_pattern_regex=`expr "$deplibs_check_method" : "$2 \(.*\)"` if eval $echo \"$deplib\" 2>/dev/null \ | $SED 10q \ | $EGREP "$match_pattern_regex" > /dev/null; then valid_a_lib=yes fi ;; pass_all) valid_a_lib=yes ;; esac if test "$valid_a_lib" != yes; then $echo $echo "*** Warning: Trying to link with static lib archive $deplib." $echo "*** I have the capability to make that library automatically link in when" $echo "*** you link to this library. But I can only do this if you have a" $echo "*** shared version of the library, which you do not appear to have" $echo "*** because the file extensions .$libext of this argument makes me believe" $echo "*** that it is just a static archive that I should not used here." else $echo $echo "*** Warning: Linking the shared library $output against the" $echo "*** static library $deplib is not portable!" deplibs="$deplib $deplibs" fi continue ;; prog) if test "$pass" != link; then deplibs="$deplib $deplibs" else compile_deplibs="$deplib $compile_deplibs" finalize_deplibs="$deplib $finalize_deplibs" fi continue ;; esac # linkmode ;; # *.$libext *.lo | *.$objext) if test "$pass" = conv; then deplibs="$deplib $deplibs" elif test "$linkmode" = prog; then if test "$pass" = dlpreopen || test "$dlopen_support" != yes || test "$build_libtool_libs" = no; then # If there is no dlopen support or we're linking statically, # we need to preload. newdlprefiles="$newdlprefiles $deplib" compile_deplibs="$deplib $compile_deplibs" finalize_deplibs="$deplib $finalize_deplibs" else newdlfiles="$newdlfiles $deplib" fi fi continue ;; %DEPLIBS%) alldeplibs=yes continue ;; esac # case $deplib if test "$found" = yes || test -f "$lib"; then : else $echo "$modename: cannot find the library \`$lib' or unhandled argument \`$deplib'" 1>&2 exit $EXIT_FAILURE fi # Check to see that this really is a libtool archive. if (${SED} -e '2q' $lib | grep "^# Generated by .*$PACKAGE") >/dev/null 2>&1; then : else $echo "$modename: \`$lib' is not a valid libtool archive" 1>&2 exit $EXIT_FAILURE fi ladir=`$echo "X$lib" | $Xsed -e 's%/[^/]*$%%'` test "X$ladir" = "X$lib" && ladir="." dlname= dlopen= dlpreopen= libdir= library_names= old_library= # If the library was installed with an old release of libtool, # it will not redefine variables installed, or shouldnotlink installed=yes shouldnotlink=no avoidtemprpath= # Read the .la file case $lib in */* | *\\*) . $lib ;; *) . ./$lib ;; esac if test "$linkmode,$pass" = "lib,link" || test "$linkmode,$pass" = "prog,scan" || { test "$linkmode" != prog && test "$linkmode" != lib; }; then test -n "$dlopen" && dlfiles="$dlfiles $dlopen" test -n "$dlpreopen" && dlprefiles="$dlprefiles $dlpreopen" fi if test "$pass" = conv; then # Only check for convenience libraries deplibs="$lib $deplibs" if test -z "$libdir"; then if test -z "$old_library"; then $echo "$modename: cannot find name of link library for \`$lib'" 1>&2 exit $EXIT_FAILURE fi # It is a libtool convenience library, so add in its objects. convenience="$convenience $ladir/$objdir/$old_library" old_convenience="$old_convenience $ladir/$objdir/$old_library" tmp_libs= for deplib in $dependency_libs; do deplibs="$deplib $deplibs" if test "X$duplicate_deps" = "Xyes" ; then case "$tmp_libs " in *" $deplib "*) specialdeplibs="$specialdeplibs $deplib" ;; esac fi tmp_libs="$tmp_libs $deplib" done elif test "$linkmode" != prog && test "$linkmode" != lib; then $echo "$modename: \`$lib' is not a convenience library" 1>&2 exit $EXIT_FAILURE fi continue fi # $pass = conv # Get the name of the library we link against. linklib= for l in $old_library $library_names; do linklib="$l" done if test -z "$linklib"; then $echo "$modename: cannot find name of link library for \`$lib'" 1>&2 exit $EXIT_FAILURE fi # This library was specified with -dlopen. if test "$pass" = dlopen; then if test -z "$libdir"; then $echo "$modename: cannot -dlopen a convenience library: \`$lib'" 1>&2 exit $EXIT_FAILURE fi if test -z "$dlname" || test "$dlopen_support" != yes || test "$build_libtool_libs" = no; then # If there is no dlname, no dlopen support or we're linking # statically, we need to preload. We also need to preload any # dependent libraries so libltdl's deplib preloader doesn't # bomb out in the load deplibs phase. dlprefiles="$dlprefiles $lib $dependency_libs" else newdlfiles="$newdlfiles $lib" fi continue fi # $pass = dlopen # We need an absolute path. case $ladir in [\\/]* | [A-Za-z]:[\\/]*) abs_ladir="$ladir" ;; *) abs_ladir=`cd "$ladir" && pwd` if test -z "$abs_ladir"; then $echo "$modename: warning: cannot determine absolute directory name of \`$ladir'" 1>&2 $echo "$modename: passing it literally to the linker, although it might fail" 1>&2 abs_ladir="$ladir" fi ;; esac laname=`$echo "X$lib" | $Xsed -e 's%^.*/%%'` # Find the relevant object directory and library name. if test "X$installed" = Xyes; then if test ! -f "$libdir/$linklib" && test -f "$abs_ladir/$linklib"; then $echo "$modename: warning: library \`$lib' was moved." 1>&2 dir="$ladir" absdir="$abs_ladir" libdir="$abs_ladir" else dir="$libdir" absdir="$libdir" fi test "X$hardcode_automatic" = Xyes && avoidtemprpath=yes else if test ! -f "$ladir/$objdir/$linklib" && test -f "$abs_ladir/$linklib"; then dir="$ladir" absdir="$abs_ladir" # Remove this search path later notinst_path="$notinst_path $abs_ladir" else dir="$ladir/$objdir" absdir="$abs_ladir/$objdir" # Remove this search path later notinst_path="$notinst_path $abs_ladir" fi fi # $installed = yes name=`$echo "X$laname" | $Xsed -e 's/\.la$//' -e 's/^lib//'` # This library was specified with -dlpreopen. if test "$pass" = dlpreopen; then if test -z "$libdir"; then $echo "$modename: cannot -dlpreopen a convenience library: \`$lib'" 1>&2 exit $EXIT_FAILURE fi # Prefer using a static library (so that no silly _DYNAMIC symbols # are required to link). if test -n "$old_library"; then newdlprefiles="$newdlprefiles $dir/$old_library" # Otherwise, use the dlname, so that lt_dlopen finds it. elif test -n "$dlname"; then newdlprefiles="$newdlprefiles $dir/$dlname" else newdlprefiles="$newdlprefiles $dir/$linklib" fi fi # $pass = dlpreopen if test -z "$libdir"; then # Link the convenience library if test "$linkmode" = lib; then deplibs="$dir/$old_library $deplibs" elif test "$linkmode,$pass" = "prog,link"; then compile_deplibs="$dir/$old_library $compile_deplibs" finalize_deplibs="$dir/$old_library $finalize_deplibs" else deplibs="$lib $deplibs" # used for prog,scan pass fi continue fi if test "$linkmode" = prog && test "$pass" != link; then newlib_search_path="$newlib_search_path $ladir" deplibs="$lib $deplibs" linkalldeplibs=no if test "$link_all_deplibs" != no || test -z "$library_names" || test "$build_libtool_libs" = no; then linkalldeplibs=yes fi tmp_libs= for deplib in $dependency_libs; do case $deplib in -L*) newlib_search_path="$newlib_search_path "`$echo "X$deplib" | $Xsed -e 's/^-L//'`;; ### testsuite: skip nested quoting test esac # Need to link against all dependency_libs? if test "$linkalldeplibs" = yes; then deplibs="$deplib $deplibs" else # Need to hardcode shared library paths # or/and link against static libraries newdependency_libs="$deplib $newdependency_libs" fi if test "X$duplicate_deps" = "Xyes" ; then case "$tmp_libs " in *" $deplib "*) specialdeplibs="$specialdeplibs $deplib" ;; esac fi tmp_libs="$tmp_libs $deplib" done # for deplib continue fi # $linkmode = prog... if test "$linkmode,$pass" = "prog,link"; then if test -n "$library_names" && { { test "$prefer_static_libs" = no || test "$prefer_static_libs,$installed" = "built,yes"; } || test -z "$old_library"; }; then # We need to hardcode the library path if test -n "$shlibpath_var" && test -z "$avoidtemprpath" ; then # Make sure the rpath contains only unique directories. case "$temp_rpath " in *" $dir "*) ;; *" $absdir "*) ;; *) temp_rpath="$temp_rpath $absdir" ;; esac fi # Hardcode the library path. # Skip directories that are in the system default run-time # search path. case " $sys_lib_dlsearch_path " in *" $absdir "*) ;; *) case "$compile_rpath " in *" $absdir "*) ;; *) compile_rpath="$compile_rpath $absdir" esac ;; esac case " $sys_lib_dlsearch_path " in *" $libdir "*) ;; *) case "$finalize_rpath " in *" $libdir "*) ;; *) finalize_rpath="$finalize_rpath $libdir" esac ;; esac fi # $linkmode,$pass = prog,link... if test "$alldeplibs" = yes && { test "$deplibs_check_method" = pass_all || { test "$build_libtool_libs" = yes && test -n "$library_names"; }; }; then # We only need to search for static libraries continue fi fi link_static=no # Whether the deplib will be linked statically use_static_libs=$prefer_static_libs if test "$use_static_libs" = built && test "$installed" = yes ; then use_static_libs=no fi if test -n "$library_names" && { test "$use_static_libs" = no || test -z "$old_library"; }; then if test "$installed" = no; then notinst_deplibs="$notinst_deplibs $lib" need_relink=yes fi # This is a shared library # Warn about portability, can't link against -module's on # some systems (darwin) if test "$shouldnotlink" = yes && test "$pass" = link ; then $echo if test "$linkmode" = prog; then $echo "*** Warning: Linking the executable $output against the loadable module" else $echo "*** Warning: Linking the shared library $output against the loadable module" fi $echo "*** $linklib is not portable!" fi if test "$linkmode" = lib && test "$hardcode_into_libs" = yes; then # Hardcode the library path. # Skip directories that are in the system default run-time # search path. case " $sys_lib_dlsearch_path " in *" $absdir "*) ;; *) case "$compile_rpath " in *" $absdir "*) ;; *) compile_rpath="$compile_rpath $absdir" esac ;; esac case " $sys_lib_dlsearch_path " in *" $libdir "*) ;; *) case "$finalize_rpath " in *" $libdir "*) ;; *) finalize_rpath="$finalize_rpath $libdir" esac ;; esac fi if test -n "$old_archive_from_expsyms_cmds"; then # figure out the soname set dummy $library_names realname="$2" shift; shift libname=`eval \\$echo \"$libname_spec\"` # use dlname if we got it. it's perfectly good, no? if test -n "$dlname"; then soname="$dlname" elif test -n "$soname_spec"; then # bleh windows case $host in *cygwin* | mingw*) major=`expr $current - $age` versuffix="-$major" ;; esac eval soname=\"$soname_spec\" else soname="$realname" fi # Make a new name for the extract_expsyms_cmds to use soroot="$soname" soname=`$echo $soroot | ${SED} -e 's/^.*\///'` newlib="libimp-`$echo $soname | ${SED} 's/^lib//;s/\.dll$//'`.a" # If the library has no export list, then create one now if test -f "$output_objdir/$soname-def"; then : else $show "extracting exported symbol list from \`$soname'" save_ifs="$IFS"; IFS='~' cmds=$extract_expsyms_cmds for cmd in $cmds; do IFS="$save_ifs" eval cmd=\"$cmd\" $show "$cmd" $run eval "$cmd" || exit $? done IFS="$save_ifs" fi # Create $newlib if test -f "$output_objdir/$newlib"; then :; else $show "generating import library for \`$soname'" save_ifs="$IFS"; IFS='~' cmds=$old_archive_from_expsyms_cmds for cmd in $cmds; do IFS="$save_ifs" eval cmd=\"$cmd\" $show "$cmd" $run eval "$cmd" || exit $? done IFS="$save_ifs" fi # make sure the library variables are pointing to the new library dir=$output_objdir linklib=$newlib fi # test -n "$old_archive_from_expsyms_cmds" if test "$linkmode" = prog || test "$mode" != relink; then add_shlibpath= add_dir= add= lib_linked=yes case $hardcode_action in immediate | unsupported) if test "$hardcode_direct" = no; then add="$dir/$linklib" case $host in *-*-sco3.2v5.0.[024]*) add_dir="-L$dir" ;; *-*-sysv4*uw2*) add_dir="-L$dir" ;; *-*-sysv5OpenUNIX* | *-*-sysv5UnixWare7.[01].[10]* | \ *-*-unixware7*) add_dir="-L$dir" ;; *-*-darwin* ) # if the lib is a module then we can not link against # it, someone is ignoring the new warnings I added if /usr/bin/file -L $add 2> /dev/null | $EGREP ": [^:]* bundle" >/dev/null ; then $echo "** Warning, lib $linklib is a module, not a shared library" if test -z "$old_library" ; then $echo $echo "** And there doesn't seem to be a static archive available" $echo "** The link will probably fail, sorry" else add="$dir/$old_library" fi fi esac elif test "$hardcode_minus_L" = no; then case $host in *-*-sunos*) add_shlibpath="$dir" ;; esac add_dir="-L$dir" add="-l$name" elif test "$hardcode_shlibpath_var" = no; then add_shlibpath="$dir" add="-l$name" else lib_linked=no fi ;; relink) if test "$hardcode_direct" = yes; then add="$dir/$linklib" elif test "$hardcode_minus_L" = yes; then add_dir="-L$dir" # Try looking first in the location we're being installed to. if test -n "$inst_prefix_dir"; then case $libdir in [\\/]*) add_dir="$add_dir -L$inst_prefix_dir$libdir" ;; esac fi add="-l$name" elif test "$hardcode_shlibpath_var" = yes; then add_shlibpath="$dir" add="-l$name" else lib_linked=no fi ;; *) lib_linked=no ;; esac if test "$lib_linked" != yes; then $echo "$modename: configuration error: unsupported hardcode properties" exit $EXIT_FAILURE fi if test -n "$add_shlibpath"; then case :$compile_shlibpath: in *":$add_shlibpath:"*) ;; *) compile_shlibpath="$compile_shlibpath$add_shlibpath:" ;; esac fi if test "$linkmode" = prog; then test -n "$add_dir" && compile_deplibs="$add_dir $compile_deplibs" test -n "$add" && compile_deplibs="$add $compile_deplibs" else test -n "$add_dir" && deplibs="$add_dir $deplibs" test -n "$add" && deplibs="$add $deplibs" if test "$hardcode_direct" != yes && \ test "$hardcode_minus_L" != yes && \ test "$hardcode_shlibpath_var" = yes; then case :$finalize_shlibpath: in *":$libdir:"*) ;; *) finalize_shlibpath="$finalize_shlibpath$libdir:" ;; esac fi fi fi if test "$linkmode" = prog || test "$mode" = relink; then add_shlibpath= add_dir= add= # Finalize command for both is simple: just hardcode it. if test "$hardcode_direct" = yes; then add="$libdir/$linklib" elif test "$hardcode_minus_L" = yes; then add_dir="-L$libdir" add="-l$name" elif test "$hardcode_shlibpath_var" = yes; then case :$finalize_shlibpath: in *":$libdir:"*) ;; *) finalize_shlibpath="$finalize_shlibpath$libdir:" ;; esac add="-l$name" elif test "$hardcode_automatic" = yes; then if test -n "$inst_prefix_dir" && test -f "$inst_prefix_dir$libdir/$linklib" ; then add="$inst_prefix_dir$libdir/$linklib" else add="$libdir/$linklib" fi else # We cannot seem to hardcode it, guess we'll fake it. add_dir="-L$libdir" # Try looking first in the location we're being installed to. if test -n "$inst_prefix_dir"; then case $libdir in [\\/]*) add_dir="$add_dir -L$inst_prefix_dir$libdir" ;; esac fi add="-l$name" fi if test "$linkmode" = prog; then test -n "$add_dir" && finalize_deplibs="$add_dir $finalize_deplibs" test -n "$add" && finalize_deplibs="$add $finalize_deplibs" else test -n "$add_dir" && deplibs="$add_dir $deplibs" test -n "$add" && deplibs="$add $deplibs" fi fi elif test "$linkmode" = prog; then # Here we assume that one of hardcode_direct or hardcode_minus_L # is not unsupported. This is valid on all known static and # shared platforms. if test "$hardcode_direct" != unsupported; then test -n "$old_library" && linklib="$old_library" compile_deplibs="$dir/$linklib $compile_deplibs" finalize_deplibs="$dir/$linklib $finalize_deplibs" else compile_deplibs="-l$name -L$dir $compile_deplibs" finalize_deplibs="-l$name -L$dir $finalize_deplibs" fi elif test "$build_libtool_libs" = yes; then # Not a shared library if test "$deplibs_check_method" != pass_all; then # We're trying link a shared library against a static one # but the system doesn't support it. # Just print a warning and add the library to dependency_libs so # that the program can be linked against the static library. $echo $echo "*** Warning: This system can not link to static lib archive $lib." $echo "*** I have the capability to make that library automatically link in when" $echo "*** you link to this library. But I can only do this if you have a" $echo "*** shared version of the library, which you do not appear to have." if test "$module" = yes; then $echo "*** But as you try to build a module library, libtool will still create " $echo "*** a static module, that should work as long as the dlopening application" $echo "*** is linked with the -dlopen flag to resolve symbols at runtime." if test -z "$global_symbol_pipe"; then $echo $echo "*** However, this would only work if libtool was able to extract symbol" $echo "*** lists from a program, using \`nm' or equivalent, but libtool could" $echo "*** not find such a program. So, this module is probably useless." $echo "*** \`nm' from GNU binutils and a full rebuild may help." fi if test "$build_old_libs" = no; then build_libtool_libs=module build_old_libs=yes else build_libtool_libs=no fi fi else deplibs="$dir/$old_library $deplibs" link_static=yes fi fi # link shared/static library? if test "$linkmode" = lib; then if test -n "$dependency_libs" && { test "$hardcode_into_libs" != yes || test "$build_old_libs" = yes || test "$link_static" = yes; }; then # Extract -R from dependency_libs temp_deplibs= for libdir in $dependency_libs; do case $libdir in -R*) temp_xrpath=`$echo "X$libdir" | $Xsed -e 's/^-R//'` case " $xrpath " in *" $temp_xrpath "*) ;; *) xrpath="$xrpath $temp_xrpath";; esac;; *) temp_deplibs="$temp_deplibs $libdir";; esac done dependency_libs="$temp_deplibs" fi newlib_search_path="$newlib_search_path $absdir" # Link against this library test "$link_static" = no && newdependency_libs="$abs_ladir/$laname $newdependency_libs" # ... and its dependency_libs tmp_libs= for deplib in $dependency_libs; do newdependency_libs="$deplib $newdependency_libs" if test "X$duplicate_deps" = "Xyes" ; then case "$tmp_libs " in *" $deplib "*) specialdeplibs="$specialdeplibs $deplib" ;; esac fi tmp_libs="$tmp_libs $deplib" done if test "$link_all_deplibs" != no; then # Add the search paths of all dependency libraries for deplib in $dependency_libs; do case $deplib in -L*) path="$deplib" ;; *.la) dir=`$echo "X$deplib" | $Xsed -e 's%/[^/]*$%%'` test "X$dir" = "X$deplib" && dir="." # We need an absolute path. case $dir in [\\/]* | [A-Za-z]:[\\/]*) absdir="$dir" ;; *) absdir=`cd "$dir" && pwd` if test -z "$absdir"; then $echo "$modename: warning: cannot determine absolute directory name of \`$dir'" 1>&2 absdir="$dir" fi ;; esac if grep "^installed=no" $deplib > /dev/null; then path="$absdir/$objdir" else eval libdir=`${SED} -n -e 's/^libdir=\(.*\)$/\1/p' $deplib` if test -z "$libdir"; then $echo "$modename: \`$deplib' is not a valid libtool archive" 1>&2 exit $EXIT_FAILURE fi if test "$absdir" != "$libdir"; then $echo "$modename: warning: \`$deplib' seems to be moved" 1>&2 fi path="$absdir" fi depdepl= case $host in *-*-darwin*) # we do not want to link against static libs, # but need to link against shared eval deplibrary_names=`${SED} -n -e 's/^library_names=\(.*\)$/\1/p' $deplib` eval deplibdir=`${SED} -n -e 's/^libdir=\(.*\)$/\1/p' $deplib` if test -n "$deplibrary_names" ; then for tmp in $deplibrary_names ; do depdepl=$tmp done if test -f "$deplibdir/$depdepl" ; then depdepl="$deplibdir/$depdepl" elif test -f "$path/$depdepl" ; then depdepl="$path/$depdepl" else # Can't find it, oh well... depdepl= fi # do not add paths which are already there case " $newlib_search_path " in *" $path "*) ;; *) newlib_search_path="$newlib_search_path $path";; esac fi path="" ;; *) path="-L$path" ;; esac ;; -l*) case $host in *-*-darwin*) # Again, we only want to link against shared libraries eval tmp_libs=`$echo "X$deplib" | $Xsed -e "s,^\-l,,"` for tmp in $newlib_search_path ; do if test -f "$tmp/lib$tmp_libs.dylib" ; then eval depdepl="$tmp/lib$tmp_libs.dylib" break fi done path="" ;; *) continue ;; esac ;; *) continue ;; esac case " $deplibs " in *" $path "*) ;; *) deplibs="$path $deplibs" ;; esac case " $deplibs " in *" $depdepl "*) ;; *) deplibs="$depdepl $deplibs" ;; esac done fi # link_all_deplibs != no fi # linkmode = lib done # for deplib in $libs dependency_libs="$newdependency_libs" if test "$pass" = dlpreopen; then # Link the dlpreopened libraries before other libraries for deplib in $save_deplibs; do deplibs="$deplib $deplibs" done fi if test "$pass" != dlopen; then if test "$pass" != conv; then # Make sure lib_search_path contains only unique directories. lib_search_path= for dir in $newlib_search_path; do case "$lib_search_path " in *" $dir "*) ;; *) lib_search_path="$lib_search_path $dir" ;; esac done newlib_search_path= fi if test "$linkmode,$pass" != "prog,link"; then vars="deplibs" else vars="compile_deplibs finalize_deplibs" fi for var in $vars dependency_libs; do # Add libraries to $var in reverse order eval tmp_libs=\"\$$var\" new_libs= for deplib in $tmp_libs; do # FIXME: Pedantically, this is the right thing to do, so # that some nasty dependency loop isn't accidentally # broken: #new_libs="$deplib $new_libs" # Pragmatically, this seems to cause very few problems in # practice: case $deplib in -L*) new_libs="$deplib $new_libs" ;; -R*) ;; *) # And here is the reason: when a library appears more # than once as an explicit dependence of a library, or # is implicitly linked in more than once by the # compiler, it is considered special, and multiple # occurrences thereof are not removed. Compare this # with having the same library being listed as a # dependency of multiple other libraries: in this case, # we know (pedantically, we assume) the library does not # need to be listed more than once, so we keep only the # last copy. This is not always right, but it is rare # enough that we require users that really mean to play # such unportable linking tricks to link the library # using -Wl,-lname, so that libtool does not consider it # for duplicate removal. case " $specialdeplibs " in *" $deplib "*) new_libs="$deplib $new_libs" ;; *) case " $new_libs " in *" $deplib "*) ;; *) new_libs="$deplib $new_libs" ;; esac ;; esac ;; esac done tmp_libs= for deplib in $new_libs; do case $deplib in -L*) case " $tmp_libs " in *" $deplib "*) ;; *) tmp_libs="$tmp_libs $deplib" ;; esac ;; *) tmp_libs="$tmp_libs $deplib" ;; esac done eval $var=\"$tmp_libs\" done # for var fi # Last step: remove runtime libs from dependency_libs # (they stay in deplibs) tmp_libs= for i in $dependency_libs ; do case " $predeps $postdeps $compiler_lib_search_path " in *" $i "*) i="" ;; esac if test -n "$i" ; then tmp_libs="$tmp_libs $i" fi done dependency_libs=$tmp_libs done # for pass if test "$linkmode" = prog; then dlfiles="$newdlfiles" dlprefiles="$newdlprefiles" fi case $linkmode in oldlib) case " $deplibs" in *\ -l* | *\ -L*) $echo "$modename: warning: \`-l' and \`-L' are ignored for archives" 1>&2 ;; esac if test -n "$dlfiles$dlprefiles" || test "$dlself" != no; then $echo "$modename: warning: \`-dlopen' is ignored for archives" 1>&2 fi if test -n "$rpath"; then $echo "$modename: warning: \`-rpath' is ignored for archives" 1>&2 fi if test -n "$xrpath"; then $echo "$modename: warning: \`-R' is ignored for archives" 1>&2 fi if test -n "$vinfo"; then $echo "$modename: warning: \`-version-info/-version-number' is ignored for archives" 1>&2 fi if test -n "$release"; then $echo "$modename: warning: \`-release' is ignored for archives" 1>&2 fi if test -n "$export_symbols" || test -n "$export_symbols_regex"; then $echo "$modename: warning: \`-export-symbols' is ignored for archives" 1>&2 fi # Now set the variables for building old libraries. build_libtool_libs=no oldlibs="$output" objs="$objs$old_deplibs" ;; lib) # Make sure we only generate libraries of the form `libNAME.la'. case $outputname in lib*) name=`$echo "X$outputname" | $Xsed -e 's/\.la$//' -e 's/^lib//'` eval shared_ext=\"$shrext_cmds\" eval libname=\"$libname_spec\" ;; *) if test "$module" = no; then $echo "$modename: libtool library \`$output' must begin with \`lib'" 1>&2 $echo "$help" 1>&2 exit $EXIT_FAILURE fi if test "$need_lib_prefix" != no; then # Add the "lib" prefix for modules if required name=`$echo "X$outputname" | $Xsed -e 's/\.la$//'` eval shared_ext=\"$shrext_cmds\" eval libname=\"$libname_spec\" else libname=`$echo "X$outputname" | $Xsed -e 's/\.la$//'` fi ;; esac if test -n "$objs"; then if test "$deplibs_check_method" != pass_all; then $echo "$modename: cannot build libtool library \`$output' from non-libtool objects on this host:$objs" 2>&1 exit $EXIT_FAILURE else $echo $echo "*** Warning: Linking the shared library $output against the non-libtool" $echo "*** objects $objs is not portable!" libobjs="$libobjs $objs" fi fi if test "$dlself" != no; then $echo "$modename: warning: \`-dlopen self' is ignored for libtool libraries" 1>&2 fi set dummy $rpath if test "$#" -gt 2; then $echo "$modename: warning: ignoring multiple \`-rpath's for a libtool library" 1>&2 fi install_libdir="$2" oldlibs= if test -z "$rpath"; then if test "$build_libtool_libs" = yes; then # Building a libtool convenience library. # Some compilers have problems with a `.al' extension so # convenience libraries should have the same extension an # archive normally would. oldlibs="$output_objdir/$libname.$libext $oldlibs" build_libtool_libs=convenience build_old_libs=yes fi if test -n "$vinfo"; then $echo "$modename: warning: \`-version-info/-version-number' is ignored for convenience libraries" 1>&2 fi if test -n "$release"; then $echo "$modename: warning: \`-release' is ignored for convenience libraries" 1>&2 fi else # Parse the version information argument. save_ifs="$IFS"; IFS=':' set dummy $vinfo 0 0 0 IFS="$save_ifs" if test -n "$8"; then $echo "$modename: too many parameters to \`-version-info'" 1>&2 $echo "$help" 1>&2 exit $EXIT_FAILURE fi # convert absolute version numbers to libtool ages # this retains compatibility with .la files and attempts # to make the code below a bit more comprehensible case $vinfo_number in yes) number_major="$2" number_minor="$3" number_revision="$4" # # There are really only two kinds -- those that # use the current revision as the major version # and those that subtract age and use age as # a minor version. But, then there is irix # which has an extra 1 added just for fun # case $version_type in darwin|linux|osf|windows|none) current=`expr $number_major + $number_minor` age="$number_minor" revision="$number_revision" ;; freebsd-aout|freebsd-elf|sunos) current="$number_major" revision="$number_minor" age="0" ;; irix|nonstopux) current=`expr $number_major + $number_minor` age="$number_minor" revision="$number_minor" lt_irix_increment=no ;; esac ;; no) current="$2" revision="$3" age="$4" ;; esac # Check that each of the things are valid numbers. case $current in 0|[1-9]|[1-9][0-9]|[1-9][0-9][0-9]|[1-9][0-9][0-9][0-9]|[1-9][0-9][0-9][0-9][0-9]) ;; *) $echo "$modename: CURRENT \`$current' must be a nonnegative integer" 1>&2 $echo "$modename: \`$vinfo' is not valid version information" 1>&2 exit $EXIT_FAILURE ;; esac case $revision in 0|[1-9]|[1-9][0-9]|[1-9][0-9][0-9]|[1-9][0-9][0-9][0-9]|[1-9][0-9][0-9][0-9][0-9]) ;; *) $echo "$modename: REVISION \`$revision' must be a nonnegative integer" 1>&2 $echo "$modename: \`$vinfo' is not valid version information" 1>&2 exit $EXIT_FAILURE ;; esac case $age in 0|[1-9]|[1-9][0-9]|[1-9][0-9][0-9]|[1-9][0-9][0-9][0-9]|[1-9][0-9][0-9][0-9][0-9]) ;; *) $echo "$modename: AGE \`$age' must be a nonnegative integer" 1>&2 $echo "$modename: \`$vinfo' is not valid version information" 1>&2 exit $EXIT_FAILURE ;; esac if test "$age" -gt "$current"; then $echo "$modename: AGE \`$age' is greater than the current interface number \`$current'" 1>&2 $echo "$modename: \`$vinfo' is not valid version information" 1>&2 exit $EXIT_FAILURE fi # Calculate the version variables. major= versuffix= verstring= case $version_type in none) ;; darwin) # Like Linux, but with the current version available in # verstring for coding it into the library header major=.`expr $current - $age` versuffix="$major.$age.$revision" # Darwin ld doesn't like 0 for these options... minor_current=`expr $current + 1` xlcverstring="${wl}-compatibility_version ${wl}$minor_current ${wl}-current_version ${wl}$minor_current.$revision" verstring="-compatibility_version $minor_current -current_version $minor_current.$revision" ;; freebsd-aout) major=".$current" versuffix=".$current.$revision"; ;; freebsd-elf) major=".$current" versuffix=".$current"; ;; irix | nonstopux) if test "X$lt_irix_increment" = "Xno"; then major=`expr $current - $age` else major=`expr $current - $age + 1` fi case $version_type in nonstopux) verstring_prefix=nonstopux ;; *) verstring_prefix=sgi ;; esac verstring="$verstring_prefix$major.$revision" # Add in all the interfaces that we are compatible with. loop=$revision while test "$loop" -ne 0; do iface=`expr $revision - $loop` loop=`expr $loop - 1` verstring="$verstring_prefix$major.$iface:$verstring" done # Before this point, $major must not contain `.'. major=.$major versuffix="$major.$revision" ;; linux) major=.`expr $current - $age` versuffix="$major.$age.$revision" ;; osf) major=.`expr $current - $age` versuffix=".$current.$age.$revision" verstring="$current.$age.$revision" # Add in all the interfaces that we are compatible with. loop=$age while test "$loop" -ne 0; do iface=`expr $current - $loop` loop=`expr $loop - 1` verstring="$verstring:${iface}.0" done # Make executables depend on our current version. verstring="$verstring:${current}.0" ;; sunos) major=".$current" versuffix=".$current.$revision" ;; windows) # Use '-' rather than '.', since we only want one # extension on DOS 8.3 filesystems. major=`expr $current - $age` versuffix="-$major" ;; *) $echo "$modename: unknown library version type \`$version_type'" 1>&2 $echo "Fatal configuration error. See the $PACKAGE docs for more information." 1>&2 exit $EXIT_FAILURE ;; esac # Clear the version info if we defaulted, and they specified a release. if test -z "$vinfo" && test -n "$release"; then major= case $version_type in darwin) # we can't check for "0.0" in archive_cmds due to quoting # problems, so we reset it completely verstring= ;; *) verstring="0.0" ;; esac if test "$need_version" = no; then versuffix= else versuffix=".0.0" fi fi # Remove version info from name if versioning should be avoided if test "$avoid_version" = yes && test "$need_version" = no; then major= versuffix= verstring="" fi # Check to see if the archive will have undefined symbols. if test "$allow_undefined" = yes; then if test "$allow_undefined_flag" = unsupported; then $echo "$modename: warning: undefined symbols not allowed in $host shared libraries" 1>&2 build_libtool_libs=no build_old_libs=yes fi else # Don't allow undefined symbols. allow_undefined_flag="$no_undefined_flag" fi fi if test "$mode" != relink; then # Remove our outputs, but don't remove object files since they # may have been created when compiling PIC objects. removelist= tempremovelist=`$echo "$output_objdir/*"` for p in $tempremovelist; do case $p in *.$objext) ;; $output_objdir/$outputname | $output_objdir/$libname.* | $output_objdir/${libname}${release}.*) if test "X$precious_files_regex" != "X"; then if echo $p | $EGREP -e "$precious_files_regex" >/dev/null 2>&1 then continue fi fi removelist="$removelist $p" ;; *) ;; esac done if test -n "$removelist"; then $show "${rm}r $removelist" $run ${rm}r $removelist fi fi # Now set the variables for building old libraries. if test "$build_old_libs" = yes && test "$build_libtool_libs" != convenience ; then oldlibs="$oldlibs $output_objdir/$libname.$libext" # Transform .lo files to .o files. oldobjs="$objs "`$echo "X$libobjs" | $SP2NL | $Xsed -e '/\.'${libext}'$/d' -e "$lo2o" | $NL2SP` fi # Eliminate all temporary directories. #for path in $notinst_path; do # lib_search_path=`$echo "$lib_search_path " | ${SED} -e "s% $path % %g"` # deplibs=`$echo "$deplibs " | ${SED} -e "s% -L$path % %g"` # dependency_libs=`$echo "$dependency_libs " | ${SED} -e "s% -L$path % %g"` #done if test -n "$xrpath"; then # If the user specified any rpath flags, then add them. temp_xrpath= for libdir in $xrpath; do temp_xrpath="$temp_xrpath -R$libdir" case "$finalize_rpath " in *" $libdir "*) ;; *) finalize_rpath="$finalize_rpath $libdir" ;; esac done if test "$hardcode_into_libs" != yes || test "$build_old_libs" = yes; then dependency_libs="$temp_xrpath $dependency_libs" fi fi # Make sure dlfiles contains only unique files that won't be dlpreopened old_dlfiles="$dlfiles" dlfiles= for lib in $old_dlfiles; do case " $dlprefiles $dlfiles " in *" $lib "*) ;; *) dlfiles="$dlfiles $lib" ;; esac done # Make sure dlprefiles contains only unique files old_dlprefiles="$dlprefiles" dlprefiles= for lib in $old_dlprefiles; do case "$dlprefiles " in *" $lib "*) ;; *) dlprefiles="$dlprefiles $lib" ;; esac done if test "$build_libtool_libs" = yes; then if test -n "$rpath"; then case $host in *-*-cygwin* | *-*-mingw* | *-*-pw32* | *-*-os2* | *-*-beos*) # these systems don't actually have a c library (as such)! ;; *-*-rhapsody* | *-*-darwin1.[012]) # Rhapsody C library is in the System framework deplibs="$deplibs -framework System" ;; *-*-netbsd*) # Don't link with libc until the a.out ld.so is fixed. ;; *-*-openbsd* | *-*-freebsd* | *-*-dragonfly*) # Do not include libc due to us having libc/libc_r. ;; *-*-sco3.2v5* | *-*-sco5v6*) # Causes problems with __ctype ;; *-*-sysv4.2uw2* | *-*-sysv5* | *-*-unixware* | *-*-OpenUNIX*) # Compiler inserts libc in the correct place for threads to work ;; *) # Add libc to deplibs on all other systems if necessary. if test "$build_libtool_need_lc" = "yes"; then deplibs="$deplibs -lc" fi ;; esac fi # Transform deplibs into only deplibs that can be linked in shared. name_save=$name libname_save=$libname release_save=$release versuffix_save=$versuffix major_save=$major # I'm not sure if I'm treating the release correctly. I think # release should show up in the -l (ie -lgmp5) so we don't want to # add it in twice. Is that correct? release="" versuffix="" major="" newdeplibs= droppeddeps=no case $deplibs_check_method in pass_all) # Don't check for shared/static. Everything works. # This might be a little naive. We might want to check # whether the library exists or not. But this is on # osf3 & osf4 and I'm not really sure... Just # implementing what was already the behavior. newdeplibs=$deplibs ;; test_compile) # This code stresses the "libraries are programs" paradigm to its # limits. Maybe even breaks it. We compile a program, linking it # against the deplibs as a proxy for the library. Then we can check # whether they linked in statically or dynamically with ldd. $rm conftest.c cat > conftest.c </dev/null` for potent_lib in $potential_libs; do # Follow soft links. if ls -lLd "$potent_lib" 2>/dev/null \ | grep " -> " >/dev/null; then continue fi # The statement above tries to avoid entering an # endless loop below, in case of cyclic links. # We might still enter an endless loop, since a link # loop can be closed while we follow links, # but so what? potlib="$potent_lib" while test -h "$potlib" 2>/dev/null; do potliblink=`ls -ld $potlib | ${SED} 's/.* -> //'` case $potliblink in [\\/]* | [A-Za-z]:[\\/]*) potlib="$potliblink";; *) potlib=`$echo "X$potlib" | $Xsed -e 's,[^/]*$,,'`"$potliblink";; esac done if eval $file_magic_cmd \"\$potlib\" 2>/dev/null \ | ${SED} 10q \ | $EGREP "$file_magic_regex" > /dev/null; then newdeplibs="$newdeplibs $a_deplib" a_deplib="" break 2 fi done done fi if test -n "$a_deplib" ; then droppeddeps=yes $echo $echo "*** Warning: linker path does not have real file for library $a_deplib." $echo "*** I have the capability to make that library automatically link in when" $echo "*** you link to this library. But I can only do this if you have a" $echo "*** shared version of the library, which you do not appear to have" $echo "*** because I did check the linker path looking for a file starting" if test -z "$potlib" ; then $echo "*** with $libname but no candidates were found. (...for file magic test)" else $echo "*** with $libname and none of the candidates passed a file format test" $echo "*** using a file magic. Last file checked: $potlib" fi fi else # Add a -L argument. newdeplibs="$newdeplibs $a_deplib" fi done # Gone through all deplibs. ;; match_pattern*) set dummy $deplibs_check_method match_pattern_regex=`expr "$deplibs_check_method" : "$2 \(.*\)"` for a_deplib in $deplibs; do name=`expr $a_deplib : '-l\(.*\)'` # If $name is empty we are operating on a -L argument. if test -n "$name" && test "$name" != "0"; then if test "X$allow_libtool_libs_with_static_runtimes" = "Xyes" ; then case " $predeps $postdeps " in *" $a_deplib "*) newdeplibs="$newdeplibs $a_deplib" a_deplib="" ;; esac fi if test -n "$a_deplib" ; then libname=`eval \\$echo \"$libname_spec\"` for i in $lib_search_path $sys_lib_search_path $shlib_search_path; do potential_libs=`ls $i/$libname[.-]* 2>/dev/null` for potent_lib in $potential_libs; do potlib="$potent_lib" # see symlink-check above in file_magic test if eval $echo \"$potent_lib\" 2>/dev/null \ | ${SED} 10q \ | $EGREP "$match_pattern_regex" > /dev/null; then newdeplibs="$newdeplibs $a_deplib" a_deplib="" break 2 fi done done fi if test -n "$a_deplib" ; then droppeddeps=yes $echo $echo "*** Warning: linker path does not have real file for library $a_deplib." $echo "*** I have the capability to make that library automatically link in when" $echo "*** you link to this library. But I can only do this if you have a" $echo "*** shared version of the library, which you do not appear to have" $echo "*** because I did check the linker path looking for a file starting" if test -z "$potlib" ; then $echo "*** with $libname but no candidates were found. (...for regex pattern test)" else $echo "*** with $libname and none of the candidates passed a file format test" $echo "*** using a regex pattern. Last file checked: $potlib" fi fi else # Add a -L argument. newdeplibs="$newdeplibs $a_deplib" fi done # Gone through all deplibs. ;; none | unknown | *) newdeplibs="" tmp_deplibs=`$echo "X $deplibs" | $Xsed -e 's/ -lc$//' \ -e 's/ -[LR][^ ]*//g'` if test "X$allow_libtool_libs_with_static_runtimes" = "Xyes" ; then for i in $predeps $postdeps ; do # can't use Xsed below, because $i might contain '/' tmp_deplibs=`$echo "X $tmp_deplibs" | ${SED} -e "1s,^X,," -e "s,$i,,"` done fi if $echo "X $tmp_deplibs" | $Xsed -e 's/[ ]//g' \ | grep . >/dev/null; then $echo if test "X$deplibs_check_method" = "Xnone"; then $echo "*** Warning: inter-library dependencies are not supported in this platform." else $echo "*** Warning: inter-library dependencies are not known to be supported." fi $echo "*** All declared inter-library dependencies are being dropped." droppeddeps=yes fi ;; esac versuffix=$versuffix_save major=$major_save release=$release_save libname=$libname_save name=$name_save case $host in *-*-rhapsody* | *-*-darwin1.[012]) # On Rhapsody replace the C library is the System framework newdeplibs=`$echo "X $newdeplibs" | $Xsed -e 's/ -lc / -framework System /'` ;; esac if test "$droppeddeps" = yes; then if test "$module" = yes; then $echo $echo "*** Warning: libtool could not satisfy all declared inter-library" $echo "*** dependencies of module $libname. Therefore, libtool will create" $echo "*** a static module, that should work as long as the dlopening" $echo "*** application is linked with the -dlopen flag." if test -z "$global_symbol_pipe"; then $echo $echo "*** However, this would only work if libtool was able to extract symbol" $echo "*** lists from a program, using \`nm' or equivalent, but libtool could" $echo "*** not find such a program. So, this module is probably useless." $echo "*** \`nm' from GNU binutils and a full rebuild may help." fi if test "$build_old_libs" = no; then oldlibs="$output_objdir/$libname.$libext" build_libtool_libs=module build_old_libs=yes else build_libtool_libs=no fi else $echo "*** The inter-library dependencies that have been dropped here will be" $echo "*** automatically added whenever a program is linked with this library" $echo "*** or is declared to -dlopen it." if test "$allow_undefined" = no; then $echo $echo "*** Since this library must not contain undefined symbols," $echo "*** because either the platform does not support them or" $echo "*** it was explicitly requested with -no-undefined," $echo "*** libtool will only create a static version of it." if test "$build_old_libs" = no; then oldlibs="$output_objdir/$libname.$libext" build_libtool_libs=module build_old_libs=yes else build_libtool_libs=no fi fi fi fi # Done checking deplibs! deplibs=$newdeplibs fi # move library search paths that coincide with paths to not yet # installed libraries to the beginning of the library search list new_libs= for path in $notinst_path; do case " $new_libs " in *" -L$path/$objdir "*) ;; *) case " $deplibs " in *" -L$path/$objdir "*) new_libs="$new_libs -L$path/$objdir" ;; esac ;; esac done for deplib in $deplibs; do case $deplib in -L*) case " $new_libs " in *" $deplib "*) ;; *) new_libs="$new_libs $deplib" ;; esac ;; *) new_libs="$new_libs $deplib" ;; esac done deplibs="$new_libs" # All the library-specific variables (install_libdir is set above). library_names= old_library= dlname= # Test again, we may have decided not to build it any more if test "$build_libtool_libs" = yes; then if test "$hardcode_into_libs" = yes; then # Hardcode the library paths hardcode_libdirs= dep_rpath= rpath="$finalize_rpath" test "$mode" != relink && rpath="$compile_rpath$rpath" for libdir in $rpath; do if test -n "$hardcode_libdir_flag_spec"; then if test -n "$hardcode_libdir_separator"; then if test -z "$hardcode_libdirs"; then hardcode_libdirs="$libdir" else # Just accumulate the unique libdirs. case $hardcode_libdir_separator$hardcode_libdirs$hardcode_libdir_separator in *"$hardcode_libdir_separator$libdir$hardcode_libdir_separator"*) ;; *) hardcode_libdirs="$hardcode_libdirs$hardcode_libdir_separator$libdir" ;; esac fi else eval flag=\"$hardcode_libdir_flag_spec\" dep_rpath="$dep_rpath $flag" fi elif test -n "$runpath_var"; then case "$perm_rpath " in *" $libdir "*) ;; *) perm_rpath="$perm_rpath $libdir" ;; esac fi done # Substitute the hardcoded libdirs into the rpath. if test -n "$hardcode_libdir_separator" && test -n "$hardcode_libdirs"; then libdir="$hardcode_libdirs" if test -n "$hardcode_libdir_flag_spec_ld"; then case $archive_cmds in *\$LD*) eval dep_rpath=\"$hardcode_libdir_flag_spec_ld\" ;; *) eval dep_rpath=\"$hardcode_libdir_flag_spec\" ;; esac else eval dep_rpath=\"$hardcode_libdir_flag_spec\" fi fi if test -n "$runpath_var" && test -n "$perm_rpath"; then # We should set the runpath_var. rpath= for dir in $perm_rpath; do rpath="$rpath$dir:" done eval "$runpath_var='$rpath\$$runpath_var'; export $runpath_var" fi test -n "$dep_rpath" && deplibs="$dep_rpath $deplibs" fi shlibpath="$finalize_shlibpath" test "$mode" != relink && shlibpath="$compile_shlibpath$shlibpath" if test -n "$shlibpath"; then eval "$shlibpath_var='$shlibpath\$$shlibpath_var'; export $shlibpath_var" fi # Get the real and link names of the library. eval shared_ext=\"$shrext_cmds\" eval library_names=\"$library_names_spec\" set dummy $library_names realname="$2" shift; shift if test -n "$soname_spec"; then eval soname=\"$soname_spec\" else soname="$realname" fi if test -z "$dlname"; then dlname=$soname fi lib="$output_objdir/$realname" linknames= for link do linknames="$linknames $link" done # Use standard objects if they are pic test -z "$pic_flag" && libobjs=`$echo "X$libobjs" | $SP2NL | $Xsed -e "$lo2o" | $NL2SP` # Prepare the list of exported symbols if test -z "$export_symbols"; then if test "$always_export_symbols" = yes || test -n "$export_symbols_regex"; then $show "generating symbol list for \`$libname.la'" export_symbols="$output_objdir/$libname.exp" $run $rm $export_symbols cmds=$export_symbols_cmds save_ifs="$IFS"; IFS='~' for cmd in $cmds; do IFS="$save_ifs" eval cmd=\"$cmd\" if len=`expr "X$cmd" : ".*"` && test "$len" -le "$max_cmd_len" || test "$max_cmd_len" -le -1; then $show "$cmd" $run eval "$cmd" || exit $? skipped_export=false else # The command line is too long to execute in one step. $show "using reloadable object file for export list..." skipped_export=: # Break out early, otherwise skipped_export may be # set to false by a later but shorter cmd. break fi done IFS="$save_ifs" if test -n "$export_symbols_regex"; then $show "$EGREP -e \"$export_symbols_regex\" \"$export_symbols\" > \"${export_symbols}T\"" $run eval '$EGREP -e "$export_symbols_regex" "$export_symbols" > "${export_symbols}T"' $show "$mv \"${export_symbols}T\" \"$export_symbols\"" $run eval '$mv "${export_symbols}T" "$export_symbols"' fi fi fi if test -n "$export_symbols" && test -n "$include_expsyms"; then $run eval '$echo "X$include_expsyms" | $SP2NL >> "$export_symbols"' fi tmp_deplibs= for test_deplib in $deplibs; do case " $convenience " in *" $test_deplib "*) ;; *) tmp_deplibs="$tmp_deplibs $test_deplib" ;; esac done deplibs="$tmp_deplibs" if test -n "$convenience"; then if test -n "$whole_archive_flag_spec"; then save_libobjs=$libobjs eval libobjs=\"\$libobjs $whole_archive_flag_spec\" else gentop="$output_objdir/${outputname}x" generated="$generated $gentop" func_extract_archives $gentop $convenience libobjs="$libobjs $func_extract_archives_result" fi fi if test "$thread_safe" = yes && test -n "$thread_safe_flag_spec"; then eval flag=\"$thread_safe_flag_spec\" linker_flags="$linker_flags $flag" fi # Make a backup of the uninstalled library when relinking if test "$mode" = relink; then $run eval '(cd $output_objdir && $rm ${realname}U && $mv $realname ${realname}U)' || exit $? fi # Do each of the archive commands. if test "$module" = yes && test -n "$module_cmds" ; then if test -n "$export_symbols" && test -n "$module_expsym_cmds"; then eval test_cmds=\"$module_expsym_cmds\" cmds=$module_expsym_cmds else eval test_cmds=\"$module_cmds\" cmds=$module_cmds fi else if test -n "$export_symbols" && test -n "$archive_expsym_cmds"; then eval test_cmds=\"$archive_expsym_cmds\" cmds=$archive_expsym_cmds else eval test_cmds=\"$archive_cmds\" cmds=$archive_cmds fi fi if test "X$skipped_export" != "X:" && len=`expr "X$test_cmds" : ".*" 2>/dev/null` && test "$len" -le "$max_cmd_len" || test "$max_cmd_len" -le -1; then : else # The command line is too long to link in one step, link piecewise. $echo "creating reloadable object files..." # Save the value of $output and $libobjs because we want to # use them later. If we have whole_archive_flag_spec, we # want to use save_libobjs as it was before # whole_archive_flag_spec was expanded, because we can't # assume the linker understands whole_archive_flag_spec. # This may have to be revisited, in case too many # convenience libraries get linked in and end up exceeding # the spec. if test -z "$convenience" || test -z "$whole_archive_flag_spec"; then save_libobjs=$libobjs fi save_output=$output output_la=`$echo "X$output" | $Xsed -e "$basename"` # Clear the reloadable object creation command queue and # initialize k to one. test_cmds= concat_cmds= objlist= delfiles= last_robj= k=1 output=$output_objdir/$output_la-${k}.$objext # Loop over the list of objects to be linked. for obj in $save_libobjs do eval test_cmds=\"$reload_cmds $objlist $last_robj\" if test "X$objlist" = X || { len=`expr "X$test_cmds" : ".*" 2>/dev/null` && test "$len" -le "$max_cmd_len"; }; then objlist="$objlist $obj" else # The command $test_cmds is almost too long, add a # command to the queue. if test "$k" -eq 1 ; then # The first file doesn't have a previous command to add. eval concat_cmds=\"$reload_cmds $objlist $last_robj\" else # All subsequent reloadable object files will link in # the last one created. eval concat_cmds=\"\$concat_cmds~$reload_cmds $objlist $last_robj\" fi last_robj=$output_objdir/$output_la-${k}.$objext k=`expr $k + 1` output=$output_objdir/$output_la-${k}.$objext objlist=$obj len=1 fi done # Handle the remaining objects by creating one last # reloadable object file. All subsequent reloadable object # files will link in the last one created. test -z "$concat_cmds" || concat_cmds=$concat_cmds~ eval concat_cmds=\"\${concat_cmds}$reload_cmds $objlist $last_robj\" if ${skipped_export-false}; then $show "generating symbol list for \`$libname.la'" export_symbols="$output_objdir/$libname.exp" $run $rm $export_symbols libobjs=$output # Append the command to create the export file. eval concat_cmds=\"\$concat_cmds~$export_symbols_cmds\" fi # Set up a command to remove the reloadable object files # after they are used. i=0 while test "$i" -lt "$k" do i=`expr $i + 1` delfiles="$delfiles $output_objdir/$output_la-${i}.$objext" done $echo "creating a temporary reloadable object file: $output" # Loop through the commands generated above and execute them. save_ifs="$IFS"; IFS='~' for cmd in $concat_cmds; do IFS="$save_ifs" $show "$cmd" $run eval "$cmd" || exit $? done IFS="$save_ifs" libobjs=$output # Restore the value of output. output=$save_output if test -n "$convenience" && test -n "$whole_archive_flag_spec"; then eval libobjs=\"\$libobjs $whole_archive_flag_spec\" fi # Expand the library linking commands again to reset the # value of $libobjs for piecewise linking. # Do each of the archive commands. if test "$module" = yes && test -n "$module_cmds" ; then if test -n "$export_symbols" && test -n "$module_expsym_cmds"; then cmds=$module_expsym_cmds else cmds=$module_cmds fi else if test -n "$export_symbols" && test -n "$archive_expsym_cmds"; then cmds=$archive_expsym_cmds else cmds=$archive_cmds fi fi # Append the command to remove the reloadable object files # to the just-reset $cmds. eval cmds=\"\$cmds~\$rm $delfiles\" fi save_ifs="$IFS"; IFS='~' for cmd in $cmds; do IFS="$save_ifs" eval cmd=\"$cmd\" $show "$cmd" $run eval "$cmd" || { lt_exit=$? # Restore the uninstalled library and exit if test "$mode" = relink; then $run eval '(cd $output_objdir && $rm ${realname}T && $mv ${realname}U $realname)' fi exit $lt_exit } done IFS="$save_ifs" # Restore the uninstalled library and exit if test "$mode" = relink; then $run eval '(cd $output_objdir && $rm ${realname}T && $mv $realname ${realname}T && $mv "$realname"U $realname)' || exit $? if test -n "$convenience"; then if test -z "$whole_archive_flag_spec"; then $show "${rm}r $gentop" $run ${rm}r "$gentop" fi fi exit $EXIT_SUCCESS fi # Create links to the real library. for linkname in $linknames; do if test "$realname" != "$linkname"; then $show "(cd $output_objdir && $rm $linkname && $LN_S $realname $linkname)" $run eval '(cd $output_objdir && $rm $linkname && $LN_S $realname $linkname)' || exit $? fi done # If -module or -export-dynamic was specified, set the dlname. if test "$module" = yes || test "$export_dynamic" = yes; then # On all known operating systems, these are identical. dlname="$soname" fi fi ;; obj) case " $deplibs" in *\ -l* | *\ -L*) $echo "$modename: warning: \`-l' and \`-L' are ignored for objects" 1>&2 ;; esac if test -n "$dlfiles$dlprefiles" || test "$dlself" != no; then $echo "$modename: warning: \`-dlopen' is ignored for objects" 1>&2 fi if test -n "$rpath"; then $echo "$modename: warning: \`-rpath' is ignored for objects" 1>&2 fi if test -n "$xrpath"; then $echo "$modename: warning: \`-R' is ignored for objects" 1>&2 fi if test -n "$vinfo"; then $echo "$modename: warning: \`-version-info' is ignored for objects" 1>&2 fi if test -n "$release"; then $echo "$modename: warning: \`-release' is ignored for objects" 1>&2 fi case $output in *.lo) if test -n "$objs$old_deplibs"; then $echo "$modename: cannot build library object \`$output' from non-libtool objects" 1>&2 exit $EXIT_FAILURE fi libobj="$output" obj=`$echo "X$output" | $Xsed -e "$lo2o"` ;; *) libobj= obj="$output" ;; esac # Delete the old objects. $run $rm $obj $libobj # Objects from convenience libraries. This assumes # single-version convenience libraries. Whenever we create # different ones for PIC/non-PIC, this we'll have to duplicate # the extraction. reload_conv_objs= gentop= # reload_cmds runs $LD directly, so let us get rid of # -Wl from whole_archive_flag_spec and hope we can get by with # turning comma into space.. wl= if test -n "$convenience"; then if test -n "$whole_archive_flag_spec"; then eval tmp_whole_archive_flags=\"$whole_archive_flag_spec\" reload_conv_objs=$reload_objs\ `$echo "X$tmp_whole_archive_flags" | $Xsed -e 's|,| |g'` else gentop="$output_objdir/${obj}x" generated="$generated $gentop" func_extract_archives $gentop $convenience reload_conv_objs="$reload_objs $func_extract_archives_result" fi fi # Create the old-style object. reload_objs="$objs$old_deplibs "`$echo "X$libobjs" | $SP2NL | $Xsed -e '/\.'${libext}$'/d' -e '/\.lib$/d' -e "$lo2o" | $NL2SP`" $reload_conv_objs" ### testsuite: skip nested quoting test output="$obj" cmds=$reload_cmds save_ifs="$IFS"; IFS='~' for cmd in $cmds; do IFS="$save_ifs" eval cmd=\"$cmd\" $show "$cmd" $run eval "$cmd" || exit $? done IFS="$save_ifs" # Exit if we aren't doing a library object file. if test -z "$libobj"; then if test -n "$gentop"; then $show "${rm}r $gentop" $run ${rm}r $gentop fi exit $EXIT_SUCCESS fi if test "$build_libtool_libs" != yes; then if test -n "$gentop"; then $show "${rm}r $gentop" $run ${rm}r $gentop fi # Create an invalid libtool object if no PIC, so that we don't # accidentally link it into a program. # $show "echo timestamp > $libobj" # $run eval "echo timestamp > $libobj" || exit $? exit $EXIT_SUCCESS fi if test -n "$pic_flag" || test "$pic_mode" != default; then # Only do commands if we really have different PIC objects. reload_objs="$libobjs $reload_conv_objs" output="$libobj" cmds=$reload_cmds save_ifs="$IFS"; IFS='~' for cmd in $cmds; do IFS="$save_ifs" eval cmd=\"$cmd\" $show "$cmd" $run eval "$cmd" || exit $? done IFS="$save_ifs" fi if test -n "$gentop"; then $show "${rm}r $gentop" $run ${rm}r $gentop fi exit $EXIT_SUCCESS ;; prog) case $host in *cygwin*) output=`$echo $output | ${SED} -e 's,.exe$,,;s,$,.exe,'` ;; esac if test -n "$vinfo"; then $echo "$modename: warning: \`-version-info' is ignored for programs" 1>&2 fi if test -n "$release"; then $echo "$modename: warning: \`-release' is ignored for programs" 1>&2 fi if test "$preload" = yes; then if test "$dlopen_support" = unknown && test "$dlopen_self" = unknown && test "$dlopen_self_static" = unknown; then $echo "$modename: warning: \`AC_LIBTOOL_DLOPEN' not used. Assuming no dlopen support." fi fi case $host in *-*-rhapsody* | *-*-darwin1.[012]) # On Rhapsody replace the C library is the System framework compile_deplibs=`$echo "X $compile_deplibs" | $Xsed -e 's/ -lc / -framework System /'` finalize_deplibs=`$echo "X $finalize_deplibs" | $Xsed -e 's/ -lc / -framework System /'` ;; esac case $host in *darwin*) # Don't allow lazy linking, it breaks C++ global constructors if test "$tagname" = CXX ; then compile_command="$compile_command ${wl}-bind_at_load" finalize_command="$finalize_command ${wl}-bind_at_load" fi ;; esac # move library search paths that coincide with paths to not yet # installed libraries to the beginning of the library search list new_libs= for path in $notinst_path; do case " $new_libs " in *" -L$path/$objdir "*) ;; *) case " $compile_deplibs " in *" -L$path/$objdir "*) new_libs="$new_libs -L$path/$objdir" ;; esac ;; esac done for deplib in $compile_deplibs; do case $deplib in -L*) case " $new_libs " in *" $deplib "*) ;; *) new_libs="$new_libs $deplib" ;; esac ;; *) new_libs="$new_libs $deplib" ;; esac done compile_deplibs="$new_libs" compile_command="$compile_command $compile_deplibs" finalize_command="$finalize_command $finalize_deplibs" if test -n "$rpath$xrpath"; then # If the user specified any rpath flags, then add them. for libdir in $rpath $xrpath; do # This is the magic to use -rpath. case "$finalize_rpath " in *" $libdir "*) ;; *) finalize_rpath="$finalize_rpath $libdir" ;; esac done fi # Now hardcode the library paths rpath= hardcode_libdirs= for libdir in $compile_rpath $finalize_rpath; do if test -n "$hardcode_libdir_flag_spec"; then if test -n "$hardcode_libdir_separator"; then if test -z "$hardcode_libdirs"; then hardcode_libdirs="$libdir" else # Just accumulate the unique libdirs. case $hardcode_libdir_separator$hardcode_libdirs$hardcode_libdir_separator in *"$hardcode_libdir_separator$libdir$hardcode_libdir_separator"*) ;; *) hardcode_libdirs="$hardcode_libdirs$hardcode_libdir_separator$libdir" ;; esac fi else eval flag=\"$hardcode_libdir_flag_spec\" rpath="$rpath $flag" fi elif test -n "$runpath_var"; then case "$perm_rpath " in *" $libdir "*) ;; *) perm_rpath="$perm_rpath $libdir" ;; esac fi case $host in *-*-cygwin* | *-*-mingw* | *-*-pw32* | *-*-os2*) testbindir=`$echo "X$libdir" | $Xsed -e 's*/lib$*/bin*'` case :$dllsearchpath: in *":$libdir:"*) ;; *) dllsearchpath="$dllsearchpath:$libdir";; esac case :$dllsearchpath: in *":$testbindir:"*) ;; *) dllsearchpath="$dllsearchpath:$testbindir";; esac ;; esac done # Substitute the hardcoded libdirs into the rpath. if test -n "$hardcode_libdir_separator" && test -n "$hardcode_libdirs"; then libdir="$hardcode_libdirs" eval rpath=\" $hardcode_libdir_flag_spec\" fi compile_rpath="$rpath" rpath= hardcode_libdirs= for libdir in $finalize_rpath; do if test -n "$hardcode_libdir_flag_spec"; then if test -n "$hardcode_libdir_separator"; then if test -z "$hardcode_libdirs"; then hardcode_libdirs="$libdir" else # Just accumulate the unique libdirs. case $hardcode_libdir_separator$hardcode_libdirs$hardcode_libdir_separator in *"$hardcode_libdir_separator$libdir$hardcode_libdir_separator"*) ;; *) hardcode_libdirs="$hardcode_libdirs$hardcode_libdir_separator$libdir" ;; esac fi else eval flag=\"$hardcode_libdir_flag_spec\" rpath="$rpath $flag" fi elif test -n "$runpath_var"; then case "$finalize_perm_rpath " in *" $libdir "*) ;; *) finalize_perm_rpath="$finalize_perm_rpath $libdir" ;; esac fi done # Substitute the hardcoded libdirs into the rpath. if test -n "$hardcode_libdir_separator" && test -n "$hardcode_libdirs"; then libdir="$hardcode_libdirs" eval rpath=\" $hardcode_libdir_flag_spec\" fi finalize_rpath="$rpath" if test -n "$libobjs" && test "$build_old_libs" = yes; then # Transform all the library objects into standard objects. compile_command=`$echo "X$compile_command" | $SP2NL | $Xsed -e "$lo2o" | $NL2SP` finalize_command=`$echo "X$finalize_command" | $SP2NL | $Xsed -e "$lo2o" | $NL2SP` fi dlsyms= if test -n "$dlfiles$dlprefiles" || test "$dlself" != no; then if test -n "$NM" && test -n "$global_symbol_pipe"; then dlsyms="${outputname}S.c" else $echo "$modename: not configured to extract global symbols from dlpreopened files" 1>&2 fi fi if test -n "$dlsyms"; then case $dlsyms in "") ;; *.c) # Discover the nlist of each of the dlfiles. nlist="$output_objdir/${outputname}.nm" $show "$rm $nlist ${nlist}S ${nlist}T" $run $rm "$nlist" "${nlist}S" "${nlist}T" # Parse the name list into a source file. $show "creating $output_objdir/$dlsyms" test -z "$run" && $echo > "$output_objdir/$dlsyms" "\ /* $dlsyms - symbol resolution table for \`$outputname' dlsym emulation. */ /* Generated by $PROGRAM - GNU $PACKAGE $VERSION$TIMESTAMP */ #ifdef __cplusplus extern \"C\" { #endif /* Prevent the only kind of declaration conflicts we can make. */ #define lt_preloaded_symbols some_other_symbol /* External symbol declarations for the compiler. */\ " if test "$dlself" = yes; then $show "generating symbol list for \`$output'" test -z "$run" && $echo ': @PROGRAM@ ' > "$nlist" # Add our own program objects to the symbol list. progfiles=`$echo "X$objs$old_deplibs" | $SP2NL | $Xsed -e "$lo2o" | $NL2SP` for arg in $progfiles; do $show "extracting global C symbols from \`$arg'" $run eval "$NM $arg | $global_symbol_pipe >> '$nlist'" done if test -n "$exclude_expsyms"; then $run eval '$EGREP -v " ($exclude_expsyms)$" "$nlist" > "$nlist"T' $run eval '$mv "$nlist"T "$nlist"' fi if test -n "$export_symbols_regex"; then $run eval '$EGREP -e "$export_symbols_regex" "$nlist" > "$nlist"T' $run eval '$mv "$nlist"T "$nlist"' fi # Prepare the list of exported symbols if test -z "$export_symbols"; then export_symbols="$output_objdir/$outputname.exp" $run $rm $export_symbols $run eval "${SED} -n -e '/^: @PROGRAM@ $/d' -e 's/^.* \(.*\)$/\1/p' "'< "$nlist" > "$export_symbols"' case $host in *cygwin* | *mingw* ) $run eval "echo EXPORTS "'> "$output_objdir/$outputname.def"' $run eval 'cat "$export_symbols" >> "$output_objdir/$outputname.def"' ;; esac else $run eval "${SED} -e 's/\([].[*^$]\)/\\\\\1/g' -e 's/^/ /' -e 's/$/$/'"' < "$export_symbols" > "$output_objdir/$outputname.exp"' $run eval 'grep -f "$output_objdir/$outputname.exp" < "$nlist" > "$nlist"T' $run eval 'mv "$nlist"T "$nlist"' case $host in *cygwin* | *mingw* ) $run eval "echo EXPORTS "'> "$output_objdir/$outputname.def"' $run eval 'cat "$nlist" >> "$output_objdir/$outputname.def"' ;; esac fi fi for arg in $dlprefiles; do $show "extracting global C symbols from \`$arg'" name=`$echo "$arg" | ${SED} -e 's%^.*/%%'` $run eval '$echo ": $name " >> "$nlist"' $run eval "$NM $arg | $global_symbol_pipe >> '$nlist'" done if test -z "$run"; then # Make sure we have at least an empty file. test -f "$nlist" || : > "$nlist" if test -n "$exclude_expsyms"; then $EGREP -v " ($exclude_expsyms)$" "$nlist" > "$nlist"T $mv "$nlist"T "$nlist" fi # Try sorting and uniquifying the output. if grep -v "^: " < "$nlist" | if sort -k 3 /dev/null 2>&1; then sort -k 3 else sort +2 fi | uniq > "$nlist"S; then : else grep -v "^: " < "$nlist" > "$nlist"S fi if test -f "$nlist"S; then eval "$global_symbol_to_cdecl"' < "$nlist"S >> "$output_objdir/$dlsyms"' else $echo '/* NONE */' >> "$output_objdir/$dlsyms" fi $echo >> "$output_objdir/$dlsyms" "\ #undef lt_preloaded_symbols #if defined (__STDC__) && __STDC__ # define lt_ptr void * #else # define lt_ptr char * # define const #endif /* The mapping between symbol names and symbols. */ " case $host in *cygwin* | *mingw* ) $echo >> "$output_objdir/$dlsyms" "\ /* DATA imports from DLLs on WIN32 can't be const, because runtime relocations are performed -- see ld's documentation on pseudo-relocs */ struct { " ;; * ) $echo >> "$output_objdir/$dlsyms" "\ const struct { " ;; esac $echo >> "$output_objdir/$dlsyms" "\ const char *name; lt_ptr address; } lt_preloaded_symbols[] = {\ " eval "$global_symbol_to_c_name_address" < "$nlist" >> "$output_objdir/$dlsyms" $echo >> "$output_objdir/$dlsyms" "\ {0, (lt_ptr) 0} }; /* This works around a problem in FreeBSD linker */ #ifdef FREEBSD_WORKAROUND static const void *lt_preloaded_setup() { return lt_preloaded_symbols; } #endif #ifdef __cplusplus } #endif\ " fi pic_flag_for_symtable= case $host in # compiling the symbol table file with pic_flag works around # a FreeBSD bug that causes programs to crash when -lm is # linked before any other PIC object. But we must not use # pic_flag when linking with -static. The problem exists in # FreeBSD 2.2.6 and is fixed in FreeBSD 3.1. *-*-freebsd2*|*-*-freebsd3.0*|*-*-freebsdelf3.0*) case "$compile_command " in *" -static "*) ;; *) pic_flag_for_symtable=" $pic_flag -DFREEBSD_WORKAROUND";; esac;; *-*-hpux*) case "$compile_command " in *" -static "*) ;; *) pic_flag_for_symtable=" $pic_flag";; esac esac # Now compile the dynamic symbol file. $show "(cd $output_objdir && $LTCC $LTCFLAGS -c$no_builtin_flag$pic_flag_for_symtable \"$dlsyms\")" $run eval '(cd $output_objdir && $LTCC $LTCFLAGS -c$no_builtin_flag$pic_flag_for_symtable "$dlsyms")' || exit $? # Clean up the generated files. $show "$rm $output_objdir/$dlsyms $nlist ${nlist}S ${nlist}T" $run $rm "$output_objdir/$dlsyms" "$nlist" "${nlist}S" "${nlist}T" # Transform the symbol file into the correct name. case $host in *cygwin* | *mingw* ) if test -f "$output_objdir/${outputname}.def" ; then compile_command=`$echo "X$compile_command" | $SP2NL | $Xsed -e "s%@SYMFILE@%$output_objdir/${outputname}.def $output_objdir/${outputname}S.${objext}%" | $NL2SP` finalize_command=`$echo "X$finalize_command" | $SP2NL | $Xsed -e "s%@SYMFILE@%$output_objdir/${outputname}.def $output_objdir/${outputname}S.${objext}%" | $NL2SP` else compile_command=`$echo "X$compile_command" | $SP2NL | $Xsed -e "s%@SYMFILE@%$output_objdir/${outputname}S.${objext}%" | $NL2SP` finalize_command=`$echo "X$finalize_command" | $SP2NL | $Xsed -e "s%@SYMFILE@%$output_objdir/${outputname}S.${objext}%" | $NL2SP` fi ;; * ) compile_command=`$echo "X$compile_command" | $SP2NL | $Xsed -e "s%@SYMFILE@%$output_objdir/${outputname}S.${objext}%" | $NL2SP` finalize_command=`$echo "X$finalize_command" | $SP2NL | $Xsed -e "s%@SYMFILE@%$output_objdir/${outputname}S.${objext}%" | $NL2SP` ;; esac ;; *) $echo "$modename: unknown suffix for \`$dlsyms'" 1>&2 exit $EXIT_FAILURE ;; esac else # We keep going just in case the user didn't refer to # lt_preloaded_symbols. The linker will fail if global_symbol_pipe # really was required. # Nullify the symbol file. compile_command=`$echo "X$compile_command" | $SP2NL | $Xsed -e "s% @SYMFILE@%%" | $NL2SP` finalize_command=`$echo "X$finalize_command" | $SP2NL | $Xsed -e "s% @SYMFILE@%%" | $NL2SP` fi if test "$need_relink" = no || test "$build_libtool_libs" != yes; then # Replace the output file specification. compile_command=`$echo "X$compile_command" | $SP2NL | $Xsed -e 's%@OUTPUT@%'"$output"'%g' | $NL2SP` link_command="$compile_command$compile_rpath" # We have no uninstalled library dependencies, so finalize right now. $show "$link_command" $run eval "$link_command" exit_status=$? # Delete the generated files. if test -n "$dlsyms"; then $show "$rm $output_objdir/${outputname}S.${objext}" $run $rm "$output_objdir/${outputname}S.${objext}" fi exit $exit_status fi if test -n "$shlibpath_var"; then # We should set the shlibpath_var rpath= for dir in $temp_rpath; do case $dir in [\\/]* | [A-Za-z]:[\\/]*) # Absolute path. rpath="$rpath$dir:" ;; *) # Relative path: add a thisdir entry. rpath="$rpath\$thisdir/$dir:" ;; esac done temp_rpath="$rpath" fi if test -n "$compile_shlibpath$finalize_shlibpath"; then compile_command="$shlibpath_var=\"$compile_shlibpath$finalize_shlibpath\$$shlibpath_var\" $compile_command" fi if test -n "$finalize_shlibpath"; then finalize_command="$shlibpath_var=\"$finalize_shlibpath\$$shlibpath_var\" $finalize_command" fi compile_var= finalize_var= if test -n "$runpath_var"; then if test -n "$perm_rpath"; then # We should set the runpath_var. rpath= for dir in $perm_rpath; do rpath="$rpath$dir:" done compile_var="$runpath_var=\"$rpath\$$runpath_var\" " fi if test -n "$finalize_perm_rpath"; then # We should set the runpath_var. rpath= for dir in $finalize_perm_rpath; do rpath="$rpath$dir:" done finalize_var="$runpath_var=\"$rpath\$$runpath_var\" " fi fi if test "$no_install" = yes; then # We don't need to create a wrapper script. link_command="$compile_var$compile_command$compile_rpath" # Replace the output file specification. link_command=`$echo "X$link_command" | $Xsed -e 's%@OUTPUT@%'"$output"'%g'` # Delete the old output file. $run $rm $output # Link the executable and exit $show "$link_command" $run eval "$link_command" || exit $? exit $EXIT_SUCCESS fi if test "$hardcode_action" = relink; then # Fast installation is not supported link_command="$compile_var$compile_command$compile_rpath" relink_command="$finalize_var$finalize_command$finalize_rpath" $echo "$modename: warning: this platform does not like uninstalled shared libraries" 1>&2 $echo "$modename: \`$output' will be relinked during installation" 1>&2 else if test "$fast_install" != no; then link_command="$finalize_var$compile_command$finalize_rpath" if test "$fast_install" = yes; then relink_command=`$echo "X$compile_var$compile_command$compile_rpath" | $SP2NL | $Xsed -e 's%@OUTPUT@%\$progdir/\$file%g' | $NL2SP` else # fast_install is set to needless relink_command= fi else link_command="$compile_var$compile_command$compile_rpath" relink_command="$finalize_var$finalize_command$finalize_rpath" fi fi # Replace the output file specification. link_command=`$echo "X$link_command" | $Xsed -e 's%@OUTPUT@%'"$output_objdir/$outputname"'%g'` # Delete the old output files. $run $rm $output $output_objdir/$outputname $output_objdir/lt-$outputname $show "$link_command" $run eval "$link_command" || exit $? # Now create the wrapper script. $show "creating $output" # Quote the relink command for shipping. if test -n "$relink_command"; then # Preserve any variables that may affect compiler behavior for var in $variables_saved_for_relink; do if eval test -z \"\${$var+set}\"; then relink_command="{ test -z \"\${$var+set}\" || unset $var || { $var=; export $var; }; }; $relink_command" elif eval var_value=\$$var; test -z "$var_value"; then relink_command="$var=; export $var; $relink_command" else var_value=`$echo "X$var_value" | $Xsed -e "$sed_quote_subst"` relink_command="$var=\"$var_value\"; export $var; $relink_command" fi done relink_command="(cd `pwd`; $relink_command)" relink_command=`$echo "X$relink_command" | $SP2NL | $Xsed -e "$sed_quote_subst" | $NL2SP` fi # Quote $echo for shipping. if test "X$echo" = "X$SHELL $progpath --fallback-echo"; then case $progpath in [\\/]* | [A-Za-z]:[\\/]*) qecho="$SHELL $progpath --fallback-echo";; *) qecho="$SHELL `pwd`/$progpath --fallback-echo";; esac qecho=`$echo "X$qecho" | $Xsed -e "$sed_quote_subst"` else qecho=`$echo "X$echo" | $Xsed -e "$sed_quote_subst"` fi # Only actually do things if our run command is non-null. if test -z "$run"; then # win32 will think the script is a binary if it has # a .exe suffix, so we strip it off here. case $output in *.exe) output=`$echo $output|${SED} 's,.exe$,,'` ;; esac # test for cygwin because mv fails w/o .exe extensions case $host in *cygwin*) exeext=.exe outputname=`$echo $outputname|${SED} 's,.exe$,,'` ;; *) exeext= ;; esac case $host in *cygwin* | *mingw* ) output_name=`basename $output` output_path=`dirname $output` cwrappersource="$output_path/$objdir/lt-$output_name.c" cwrapper="$output_path/$output_name.exe" $rm $cwrappersource $cwrapper trap "$rm $cwrappersource $cwrapper; exit $EXIT_FAILURE" 1 2 15 cat > $cwrappersource <> $cwrappersource<<"EOF" #include #include #include #include #include #include #include #include #include #if defined(PATH_MAX) # define LT_PATHMAX PATH_MAX #elif defined(MAXPATHLEN) # define LT_PATHMAX MAXPATHLEN #else # define LT_PATHMAX 1024 #endif #ifndef DIR_SEPARATOR # define DIR_SEPARATOR '/' # define PATH_SEPARATOR ':' #endif #if defined (_WIN32) || defined (__MSDOS__) || defined (__DJGPP__) || \ defined (__OS2__) # define HAVE_DOS_BASED_FILE_SYSTEM # ifndef DIR_SEPARATOR_2 # define DIR_SEPARATOR_2 '\\' # endif # ifndef PATH_SEPARATOR_2 # define PATH_SEPARATOR_2 ';' # endif #endif #ifndef DIR_SEPARATOR_2 # define IS_DIR_SEPARATOR(ch) ((ch) == DIR_SEPARATOR) #else /* DIR_SEPARATOR_2 */ # define IS_DIR_SEPARATOR(ch) \ (((ch) == DIR_SEPARATOR) || ((ch) == DIR_SEPARATOR_2)) #endif /* DIR_SEPARATOR_2 */ #ifndef PATH_SEPARATOR_2 # define IS_PATH_SEPARATOR(ch) ((ch) == PATH_SEPARATOR) #else /* PATH_SEPARATOR_2 */ # define IS_PATH_SEPARATOR(ch) ((ch) == PATH_SEPARATOR_2) #endif /* PATH_SEPARATOR_2 */ #define XMALLOC(type, num) ((type *) xmalloc ((num) * sizeof(type))) #define XFREE(stale) do { \ if (stale) { free ((void *) stale); stale = 0; } \ } while (0) /* -DDEBUG is fairly common in CFLAGS. */ #undef DEBUG #if defined DEBUGWRAPPER # define DEBUG(format, ...) fprintf(stderr, format, __VA_ARGS__) #else # define DEBUG(format, ...) #endif const char *program_name = NULL; void * xmalloc (size_t num); char * xstrdup (const char *string); const char * base_name (const char *name); char * find_executable(const char *wrapper); int check_executable(const char *path); char * strendzap(char *str, const char *pat); void lt_fatal (const char *message, ...); int main (int argc, char *argv[]) { char **newargz; int i; program_name = (char *) xstrdup (base_name (argv[0])); DEBUG("(main) argv[0] : %s\n",argv[0]); DEBUG("(main) program_name : %s\n",program_name); newargz = XMALLOC(char *, argc+2); EOF cat >> $cwrappersource <> $cwrappersource <<"EOF" newargz[1] = find_executable(argv[0]); if (newargz[1] == NULL) lt_fatal("Couldn't find %s", argv[0]); DEBUG("(main) found exe at : %s\n",newargz[1]); /* we know the script has the same name, without the .exe */ /* so make sure newargz[1] doesn't end in .exe */ strendzap(newargz[1],".exe"); for (i = 1; i < argc; i++) newargz[i+1] = xstrdup(argv[i]); newargz[argc+1] = NULL; for (i=0; i> $cwrappersource <> $cwrappersource <> $cwrappersource <<"EOF" return 127; } void * xmalloc (size_t num) { void * p = (void *) malloc (num); if (!p) lt_fatal ("Memory exhausted"); return p; } char * xstrdup (const char *string) { return string ? strcpy ((char *) xmalloc (strlen (string) + 1), string) : NULL ; } const char * base_name (const char *name) { const char *base; #if defined (HAVE_DOS_BASED_FILE_SYSTEM) /* Skip over the disk name in MSDOS pathnames. */ if (isalpha ((unsigned char)name[0]) && name[1] == ':') name += 2; #endif for (base = name; *name; name++) if (IS_DIR_SEPARATOR (*name)) base = name + 1; return base; } int check_executable(const char * path) { struct stat st; DEBUG("(check_executable) : %s\n", path ? (*path ? path : "EMPTY!") : "NULL!"); if ((!path) || (!*path)) return 0; if ((stat (path, &st) >= 0) && ( /* MinGW & native WIN32 do not support S_IXOTH or S_IXGRP */ #if defined (S_IXOTH) ((st.st_mode & S_IXOTH) == S_IXOTH) || #endif #if defined (S_IXGRP) ((st.st_mode & S_IXGRP) == S_IXGRP) || #endif ((st.st_mode & S_IXUSR) == S_IXUSR)) ) return 1; else return 0; } /* Searches for the full path of the wrapper. Returns newly allocated full path name if found, NULL otherwise */ char * find_executable (const char* wrapper) { int has_slash = 0; const char* p; const char* p_next; /* static buffer for getcwd */ char tmp[LT_PATHMAX + 1]; int tmp_len; char* concat_name; DEBUG("(find_executable) : %s\n", wrapper ? (*wrapper ? wrapper : "EMPTY!") : "NULL!"); if ((wrapper == NULL) || (*wrapper == '\0')) return NULL; /* Absolute path? */ #if defined (HAVE_DOS_BASED_FILE_SYSTEM) if (isalpha ((unsigned char)wrapper[0]) && wrapper[1] == ':') { concat_name = xstrdup (wrapper); if (check_executable(concat_name)) return concat_name; XFREE(concat_name); } else { #endif if (IS_DIR_SEPARATOR (wrapper[0])) { concat_name = xstrdup (wrapper); if (check_executable(concat_name)) return concat_name; XFREE(concat_name); } #if defined (HAVE_DOS_BASED_FILE_SYSTEM) } #endif for (p = wrapper; *p; p++) if (*p == '/') { has_slash = 1; break; } if (!has_slash) { /* no slashes; search PATH */ const char* path = getenv ("PATH"); if (path != NULL) { for (p = path; *p; p = p_next) { const char* q; size_t p_len; for (q = p; *q; q++) if (IS_PATH_SEPARATOR(*q)) break; p_len = q - p; p_next = (*q == '\0' ? q : q + 1); if (p_len == 0) { /* empty path: current directory */ if (getcwd (tmp, LT_PATHMAX) == NULL) lt_fatal ("getcwd failed"); tmp_len = strlen(tmp); concat_name = XMALLOC(char, tmp_len + 1 + strlen(wrapper) + 1); memcpy (concat_name, tmp, tmp_len); concat_name[tmp_len] = '/'; strcpy (concat_name + tmp_len + 1, wrapper); } else { concat_name = XMALLOC(char, p_len + 1 + strlen(wrapper) + 1); memcpy (concat_name, p, p_len); concat_name[p_len] = '/'; strcpy (concat_name + p_len + 1, wrapper); } if (check_executable(concat_name)) return concat_name; XFREE(concat_name); } } /* not found in PATH; assume curdir */ } /* Relative path | not found in path: prepend cwd */ if (getcwd (tmp, LT_PATHMAX) == NULL) lt_fatal ("getcwd failed"); tmp_len = strlen(tmp); concat_name = XMALLOC(char, tmp_len + 1 + strlen(wrapper) + 1); memcpy (concat_name, tmp, tmp_len); concat_name[tmp_len] = '/'; strcpy (concat_name + tmp_len + 1, wrapper); if (check_executable(concat_name)) return concat_name; XFREE(concat_name); return NULL; } char * strendzap(char *str, const char *pat) { size_t len, patlen; assert(str != NULL); assert(pat != NULL); len = strlen(str); patlen = strlen(pat); if (patlen <= len) { str += len - patlen; if (strcmp(str, pat) == 0) *str = '\0'; } return str; } static void lt_error_core (int exit_status, const char * mode, const char * message, va_list ap) { fprintf (stderr, "%s: %s: ", program_name, mode); vfprintf (stderr, message, ap); fprintf (stderr, ".\n"); if (exit_status >= 0) exit (exit_status); } void lt_fatal (const char *message, ...) { va_list ap; va_start (ap, message); lt_error_core (EXIT_FAILURE, "FATAL", message, ap); va_end (ap); } EOF # we should really use a build-platform specific compiler # here, but OTOH, the wrappers (shell script and this C one) # are only useful if you want to execute the "real" binary. # Since the "real" binary is built for $host, then this # wrapper might as well be built for $host, too. $run $LTCC $LTCFLAGS -s -o $cwrapper $cwrappersource ;; esac $rm $output trap "$rm $output; exit $EXIT_FAILURE" 1 2 15 $echo > $output "\ #! $SHELL # $output - temporary wrapper script for $objdir/$outputname # Generated by $PROGRAM - GNU $PACKAGE $VERSION$TIMESTAMP # # The $output program cannot be directly executed until all the libtool # libraries that it depends on are installed. # # This wrapper script should never be moved out of the build directory. # If it is, it will not operate correctly. # Sed substitution that helps us do robust quoting. It backslashifies # metacharacters that are still active within double-quoted strings. Xsed='${SED} -e 1s/^X//' sed_quote_subst='$sed_quote_subst' # Be Bourne compatible (taken from Autoconf:_AS_BOURNE_COMPATIBLE). if test -n \"\${ZSH_VERSION+set}\" && (emulate sh) >/dev/null 2>&1; then emulate sh NULLCMD=: # Zsh 3.x and 4.x performs word splitting on \${1+\"\$@\"}, which # is contrary to our usage. Disable this feature. alias -g '\${1+\"\$@\"}'='\"\$@\"' setopt NO_GLOB_SUBST else case \`(set -o) 2>/dev/null\` in *posix*) set -o posix;; esac fi BIN_SH=xpg4; export BIN_SH # for Tru64 DUALCASE=1; export DUALCASE # for MKS sh # The HP-UX ksh and POSIX shell print the target directory to stdout # if CDPATH is set. (unset CDPATH) >/dev/null 2>&1 && unset CDPATH relink_command=\"$relink_command\" # This environment variable determines our operation mode. if test \"\$libtool_install_magic\" = \"$magic\"; then # install mode needs the following variable: notinst_deplibs='$notinst_deplibs' else # When we are sourced in execute mode, \$file and \$echo are already set. if test \"\$libtool_execute_magic\" != \"$magic\"; then echo=\"$qecho\" file=\"\$0\" # Make sure echo works. if test \"X\$1\" = X--no-reexec; then # Discard the --no-reexec flag, and continue. shift elif test \"X\`(\$echo '\t') 2>/dev/null\`\" = 'X\t'; then # Yippee, \$echo works! : else # Restart under the correct shell, and then maybe \$echo will work. exec $SHELL \"\$0\" --no-reexec \${1+\"\$@\"} fi fi\ " $echo >> $output "\ # Find the directory that this script lives in. thisdir=\`\$echo \"X\$file\" | \$Xsed -e 's%/[^/]*$%%'\` test \"x\$thisdir\" = \"x\$file\" && thisdir=. # Follow symbolic links until we get to the real thisdir. file=\`ls -ld \"\$file\" | ${SED} -n 's/.*-> //p'\` while test -n \"\$file\"; do destdir=\`\$echo \"X\$file\" | \$Xsed -e 's%/[^/]*\$%%'\` # If there was a directory component, then change thisdir. if test \"x\$destdir\" != \"x\$file\"; then case \"\$destdir\" in [\\\\/]* | [A-Za-z]:[\\\\/]*) thisdir=\"\$destdir\" ;; *) thisdir=\"\$thisdir/\$destdir\" ;; esac fi file=\`\$echo \"X\$file\" | \$Xsed -e 's%^.*/%%'\` file=\`ls -ld \"\$thisdir/\$file\" | ${SED} -n 's/.*-> //p'\` done # Try to get the absolute directory name. absdir=\`cd \"\$thisdir\" && pwd\` test -n \"\$absdir\" && thisdir=\"\$absdir\" " if test "$fast_install" = yes; then $echo >> $output "\ program=lt-'$outputname'$exeext progdir=\"\$thisdir/$objdir\" if test ! -f \"\$progdir/\$program\" || \\ { file=\`ls -1dt \"\$progdir/\$program\" \"\$progdir/../\$program\" 2>/dev/null | ${SED} 1q\`; \\ test \"X\$file\" != \"X\$progdir/\$program\"; }; then file=\"\$\$-\$program\" if test ! -d \"\$progdir\"; then $mkdir \"\$progdir\" else $rm \"\$progdir/\$file\" fi" $echo >> $output "\ # relink executable if necessary if test -n \"\$relink_command\"; then if relink_command_output=\`eval \$relink_command 2>&1\`; then : else $echo \"\$relink_command_output\" >&2 $rm \"\$progdir/\$file\" exit $EXIT_FAILURE fi fi $mv \"\$progdir/\$file\" \"\$progdir/\$program\" 2>/dev/null || { $rm \"\$progdir/\$program\"; $mv \"\$progdir/\$file\" \"\$progdir/\$program\"; } $rm \"\$progdir/\$file\" fi" else $echo >> $output "\ program='$outputname' progdir=\"\$thisdir/$objdir\" " fi $echo >> $output "\ if test -f \"\$progdir/\$program\"; then" # Export our shlibpath_var if we have one. if test "$shlibpath_overrides_runpath" = yes && test -n "$shlibpath_var" && test -n "$temp_rpath"; then $echo >> $output "\ # Add our own library path to $shlibpath_var $shlibpath_var=\"$temp_rpath\$$shlibpath_var\" # Some systems cannot cope with colon-terminated $shlibpath_var # The second colon is a workaround for a bug in BeOS R4 sed $shlibpath_var=\`\$echo \"X\$$shlibpath_var\" | \$Xsed -e 's/::*\$//'\` export $shlibpath_var " fi # fixup the dll searchpath if we need to. if test -n "$dllsearchpath"; then $echo >> $output "\ # Add the dll search path components to the executable PATH PATH=$dllsearchpath:\$PATH " fi $echo >> $output "\ if test \"\$libtool_execute_magic\" != \"$magic\"; then # Run the actual program with our arguments. " case $host in # Backslashes separate directories on plain windows *-*-mingw | *-*-os2*) $echo >> $output "\ exec \"\$progdir\\\\\$program\" \${1+\"\$@\"} " ;; *) $echo >> $output "\ exec \"\$progdir/\$program\" \${1+\"\$@\"} " ;; esac $echo >> $output "\ \$echo \"\$0: cannot exec \$program \$*\" exit $EXIT_FAILURE fi else # The program doesn't exist. \$echo \"\$0: error: \\\`\$progdir/\$program' does not exist\" 1>&2 \$echo \"This script is just a wrapper for \$program.\" 1>&2 $echo \"See the $PACKAGE documentation for more information.\" 1>&2 exit $EXIT_FAILURE fi fi\ " chmod +x $output fi exit $EXIT_SUCCESS ;; esac # See if we need to build an old-fashioned archive. for oldlib in $oldlibs; do if test "$build_libtool_libs" = convenience; then oldobjs="$libobjs_save" addlibs="$convenience" build_libtool_libs=no else if test "$build_libtool_libs" = module; then oldobjs="$libobjs_save" build_libtool_libs=no else oldobjs="$old_deplibs $non_pic_objects" fi addlibs="$old_convenience" fi if test -n "$addlibs"; then gentop="$output_objdir/${outputname}x" generated="$generated $gentop" func_extract_archives $gentop $addlibs oldobjs="$oldobjs $func_extract_archives_result" fi # Do each command in the archive commands. if test -n "$old_archive_from_new_cmds" && test "$build_libtool_libs" = yes; then cmds=$old_archive_from_new_cmds else # POSIX demands no paths to be encoded in archives. We have # to avoid creating archives with duplicate basenames if we # might have to extract them afterwards, e.g., when creating a # static archive out of a convenience library, or when linking # the entirety of a libtool archive into another (currently # not supported by libtool). if (for obj in $oldobjs do $echo "X$obj" | $Xsed -e 's%^.*/%%' done | sort | sort -uc >/dev/null 2>&1); then : else $echo "copying selected object files to avoid basename conflicts..." if test -z "$gentop"; then gentop="$output_objdir/${outputname}x" generated="$generated $gentop" $show "${rm}r $gentop" $run ${rm}r "$gentop" $show "$mkdir $gentop" $run $mkdir "$gentop" exit_status=$? if test "$exit_status" -ne 0 && test ! -d "$gentop"; then exit $exit_status fi fi save_oldobjs=$oldobjs oldobjs= counter=1 for obj in $save_oldobjs do objbase=`$echo "X$obj" | $Xsed -e 's%^.*/%%'` case " $oldobjs " in " ") oldobjs=$obj ;; *[\ /]"$objbase "*) while :; do # Make sure we don't pick an alternate name that also # overlaps. newobj=lt$counter-$objbase counter=`expr $counter + 1` case " $oldobjs " in *[\ /]"$newobj "*) ;; *) if test ! -f "$gentop/$newobj"; then break; fi ;; esac done $show "ln $obj $gentop/$newobj || cp $obj $gentop/$newobj" $run ln "$obj" "$gentop/$newobj" || $run cp "$obj" "$gentop/$newobj" oldobjs="$oldobjs $gentop/$newobj" ;; *) oldobjs="$oldobjs $obj" ;; esac done fi eval cmds=\"$old_archive_cmds\" if len=`expr "X$cmds" : ".*"` && test "$len" -le "$max_cmd_len" || test "$max_cmd_len" -le -1; then cmds=$old_archive_cmds else # the command line is too long to link in one step, link in parts $echo "using piecewise archive linking..." save_RANLIB=$RANLIB RANLIB=: objlist= concat_cmds= save_oldobjs=$oldobjs # Is there a better way of finding the last object in the list? for obj in $save_oldobjs do last_oldobj=$obj done for obj in $save_oldobjs do oldobjs="$objlist $obj" objlist="$objlist $obj" eval test_cmds=\"$old_archive_cmds\" if len=`expr "X$test_cmds" : ".*" 2>/dev/null` && test "$len" -le "$max_cmd_len"; then : else # the above command should be used before it gets too long oldobjs=$objlist if test "$obj" = "$last_oldobj" ; then RANLIB=$save_RANLIB fi test -z "$concat_cmds" || concat_cmds=$concat_cmds~ eval concat_cmds=\"\${concat_cmds}$old_archive_cmds\" objlist= fi done RANLIB=$save_RANLIB oldobjs=$objlist if test "X$oldobjs" = "X" ; then eval cmds=\"\$concat_cmds\" else eval cmds=\"\$concat_cmds~\$old_archive_cmds\" fi fi fi save_ifs="$IFS"; IFS='~' for cmd in $cmds; do eval cmd=\"$cmd\" IFS="$save_ifs" $show "$cmd" $run eval "$cmd" || exit $? done IFS="$save_ifs" done if test -n "$generated"; then $show "${rm}r$generated" $run ${rm}r$generated fi # Now create the libtool archive. case $output in *.la) old_library= test "$build_old_libs" = yes && old_library="$libname.$libext" $show "creating $output" # Preserve any variables that may affect compiler behavior for var in $variables_saved_for_relink; do if eval test -z \"\${$var+set}\"; then relink_command="{ test -z \"\${$var+set}\" || unset $var || { $var=; export $var; }; }; $relink_command" elif eval var_value=\$$var; test -z "$var_value"; then relink_command="$var=; export $var; $relink_command" else var_value=`$echo "X$var_value" | $Xsed -e "$sed_quote_subst"` relink_command="$var=\"$var_value\"; export $var; $relink_command" fi done # Quote the link command for shipping. relink_command="(cd `pwd`; $SHELL $progpath $preserve_args --mode=relink $libtool_args @inst_prefix_dir@)" relink_command=`$echo "X$relink_command" | $SP2NL | $Xsed -e "$sed_quote_subst" | $NL2SP` if test "$hardcode_automatic" = yes ; then relink_command= fi # Only create the output if not a dry run. if test -z "$run"; then for installed in no yes; do if test "$installed" = yes; then if test -z "$install_libdir"; then break fi output="$output_objdir/$outputname"i # Replace all uninstalled libtool libraries with the installed ones newdependency_libs= for deplib in $dependency_libs; do case $deplib in *.la) name=`$echo "X$deplib" | $Xsed -e 's%^.*/%%'` eval libdir=`${SED} -n -e 's/^libdir=\(.*\)$/\1/p' $deplib` if test -z "$libdir"; then $echo "$modename: \`$deplib' is not a valid libtool archive" 1>&2 exit $EXIT_FAILURE fi newdependency_libs="$newdependency_libs $libdir/$name" ;; *) newdependency_libs="$newdependency_libs $deplib" ;; esac done dependency_libs="$newdependency_libs" newdlfiles= for lib in $dlfiles; do name=`$echo "X$lib" | $Xsed -e 's%^.*/%%'` eval libdir=`${SED} -n -e 's/^libdir=\(.*\)$/\1/p' $lib` if test -z "$libdir"; then $echo "$modename: \`$lib' is not a valid libtool archive" 1>&2 exit $EXIT_FAILURE fi newdlfiles="$newdlfiles $libdir/$name" done dlfiles="$newdlfiles" newdlprefiles= for lib in $dlprefiles; do name=`$echo "X$lib" | $Xsed -e 's%^.*/%%'` eval libdir=`${SED} -n -e 's/^libdir=\(.*\)$/\1/p' $lib` if test -z "$libdir"; then $echo "$modename: \`$lib' is not a valid libtool archive" 1>&2 exit $EXIT_FAILURE fi newdlprefiles="$newdlprefiles $libdir/$name" done dlprefiles="$newdlprefiles" else newdlfiles= for lib in $dlfiles; do case $lib in [\\/]* | [A-Za-z]:[\\/]*) abs="$lib" ;; *) abs=`pwd`"/$lib" ;; esac newdlfiles="$newdlfiles $abs" done dlfiles="$newdlfiles" newdlprefiles= for lib in $dlprefiles; do case $lib in [\\/]* | [A-Za-z]:[\\/]*) abs="$lib" ;; *) abs=`pwd`"/$lib" ;; esac newdlprefiles="$newdlprefiles $abs" done dlprefiles="$newdlprefiles" fi $rm $output # place dlname in correct position for cygwin tdlname=$dlname case $host,$output,$installed,$module,$dlname in *cygwin*,*lai,yes,no,*.dll | *mingw*,*lai,yes,no,*.dll) tdlname=../bin/$dlname ;; esac $echo > $output "\ # $outputname - a libtool library file # Generated by $PROGRAM - GNU $PACKAGE $VERSION$TIMESTAMP # # Please DO NOT delete this file! # It is necessary for linking the library. # The name that we can dlopen(3). dlname='$tdlname' # Names of this library. library_names='$library_names' # The name of the static archive. old_library='$old_library' # Libraries that this one depends upon. dependency_libs='$dependency_libs' # Version information for $libname. current=$current age=$age revision=$revision # Is this an already installed library? installed=$installed # Should we warn about portability when linking against -modules? shouldnotlink=$module # Files to dlopen/dlpreopen dlopen='$dlfiles' dlpreopen='$dlprefiles' # Directory that this library needs to be installed in: libdir='$install_libdir'" if test "$installed" = no && test "$need_relink" = yes; then $echo >> $output "\ relink_command=\"$relink_command\"" fi done fi # Do a symbolic link so that the libtool archive can be found in # LD_LIBRARY_PATH before the program is installed. $show "(cd $output_objdir && $rm $outputname && $LN_S ../$outputname $outputname)" $run eval '(cd $output_objdir && $rm $outputname && $LN_S ../$outputname $outputname)' || exit $? ;; esac exit $EXIT_SUCCESS ;; # libtool install mode install) modename="$modename: install" # There may be an optional sh(1) argument at the beginning of # install_prog (especially on Windows NT). if test "$nonopt" = "$SHELL" || test "$nonopt" = /bin/sh || # Allow the use of GNU shtool's install command. $echo "X$nonopt" | grep shtool > /dev/null; then # Aesthetically quote it. arg=`$echo "X$nonopt" | $Xsed -e "$sed_quote_subst"` case $arg in *[\[\~\#\^\&\*\(\)\{\}\|\;\<\>\?\'\ \ ]*|*]*|"") arg="\"$arg\"" ;; esac install_prog="$arg " arg="$1" shift else install_prog= arg=$nonopt fi # The real first argument should be the name of the installation program. # Aesthetically quote it. arg=`$echo "X$arg" | $Xsed -e "$sed_quote_subst"` case $arg in *[\[\~\#\^\&\*\(\)\{\}\|\;\<\>\?\'\ \ ]*|*]*|"") arg="\"$arg\"" ;; esac install_prog="$install_prog$arg" # We need to accept at least all the BSD install flags. dest= files= opts= prev= install_type= isdir=no stripme= for arg do if test -n "$dest"; then files="$files $dest" dest=$arg continue fi case $arg in -d) isdir=yes ;; -f) case " $install_prog " in *[\\\ /]cp\ *) ;; *) prev=$arg ;; esac ;; -g | -m | -o) prev=$arg ;; -s) stripme=" -s" continue ;; -*) ;; *) # If the previous option needed an argument, then skip it. if test -n "$prev"; then prev= else dest=$arg continue fi ;; esac # Aesthetically quote the argument. arg=`$echo "X$arg" | $Xsed -e "$sed_quote_subst"` case $arg in *[\[\~\#\^\&\*\(\)\{\}\|\;\<\>\?\'\ \ ]*|*]*|"") arg="\"$arg\"" ;; esac install_prog="$install_prog $arg" done if test -z "$install_prog"; then $echo "$modename: you must specify an install program" 1>&2 $echo "$help" 1>&2 exit $EXIT_FAILURE fi if test -n "$prev"; then $echo "$modename: the \`$prev' option requires an argument" 1>&2 $echo "$help" 1>&2 exit $EXIT_FAILURE fi if test -z "$files"; then if test -z "$dest"; then $echo "$modename: no file or destination specified" 1>&2 else $echo "$modename: you must specify a destination" 1>&2 fi $echo "$help" 1>&2 exit $EXIT_FAILURE fi # Strip any trailing slash from the destination. dest=`$echo "X$dest" | $Xsed -e 's%/$%%'` # Check to see that the destination is a directory. test -d "$dest" && isdir=yes if test "$isdir" = yes; then destdir="$dest" destname= else destdir=`$echo "X$dest" | $Xsed -e 's%/[^/]*$%%'` test "X$destdir" = "X$dest" && destdir=. destname=`$echo "X$dest" | $Xsed -e 's%^.*/%%'` # Not a directory, so check to see that there is only one file specified. set dummy $files if test "$#" -gt 2; then $echo "$modename: \`$dest' is not a directory" 1>&2 $echo "$help" 1>&2 exit $EXIT_FAILURE fi fi case $destdir in [\\/]* | [A-Za-z]:[\\/]*) ;; *) for file in $files; do case $file in *.lo) ;; *) $echo "$modename: \`$destdir' must be an absolute directory name" 1>&2 $echo "$help" 1>&2 exit $EXIT_FAILURE ;; esac done ;; esac # This variable tells wrapper scripts just to set variables rather # than running their programs. libtool_install_magic="$magic" staticlibs= future_libdirs= current_libdirs= for file in $files; do # Do each installation. case $file in *.$libext) # Do the static libraries later. staticlibs="$staticlibs $file" ;; *.la) # Check to see that this really is a libtool archive. if (${SED} -e '2q' $file | grep "^# Generated by .*$PACKAGE") >/dev/null 2>&1; then : else $echo "$modename: \`$file' is not a valid libtool archive" 1>&2 $echo "$help" 1>&2 exit $EXIT_FAILURE fi library_names= old_library= relink_command= # If there is no directory component, then add one. case $file in */* | *\\*) . $file ;; *) . ./$file ;; esac # Add the libdir to current_libdirs if it is the destination. if test "X$destdir" = "X$libdir"; then case "$current_libdirs " in *" $libdir "*) ;; *) current_libdirs="$current_libdirs $libdir" ;; esac else # Note the libdir as a future libdir. case "$future_libdirs " in *" $libdir "*) ;; *) future_libdirs="$future_libdirs $libdir" ;; esac fi dir=`$echo "X$file" | $Xsed -e 's%/[^/]*$%%'`/ test "X$dir" = "X$file/" && dir= dir="$dir$objdir" if test -n "$relink_command"; then # Determine the prefix the user has applied to our future dir. inst_prefix_dir=`$echo "$destdir" | $SED "s%$libdir\$%%"` # Don't allow the user to place us outside of our expected # location b/c this prevents finding dependent libraries that # are installed to the same prefix. # At present, this check doesn't affect windows .dll's that # are installed into $libdir/../bin (currently, that works fine) # but it's something to keep an eye on. if test "$inst_prefix_dir" = "$destdir"; then $echo "$modename: error: cannot install \`$file' to a directory not ending in $libdir" 1>&2 exit $EXIT_FAILURE fi if test -n "$inst_prefix_dir"; then # Stick the inst_prefix_dir data into the link command. relink_command=`$echo "$relink_command" | $SP2NL | $SED "s%@inst_prefix_dir@%-inst-prefix-dir $inst_prefix_dir%" | $NL2SP` else relink_command=`$echo "$relink_command" | $SP2NL | $SED "s%@inst_prefix_dir@%%" | $NL2SP` fi $echo "$modename: warning: relinking \`$file'" 1>&2 $show "$relink_command" if $run eval "$relink_command"; then : else $echo "$modename: error: relink \`$file' with the above command before installing it" 1>&2 exit $EXIT_FAILURE fi fi # See the names of the shared library. set dummy $library_names if test -n "$2"; then realname="$2" shift shift srcname="$realname" test -n "$relink_command" && srcname="$realname"T # Install the shared library and build the symlinks. $show "$install_prog $dir/$srcname $destdir/$realname" $run eval "$install_prog $dir/$srcname $destdir/$realname" || exit $? if test -n "$stripme" && test -n "$striplib"; then $show "$striplib $destdir/$realname" $run eval "$striplib $destdir/$realname" || exit $? fi if test "$#" -gt 0; then # Delete the old symlinks, and create new ones. # Try `ln -sf' first, because the `ln' binary might depend on # the symlink we replace! Solaris /bin/ln does not understand -f, # so we also need to try rm && ln -s. for linkname do if test "$linkname" != "$realname"; then $show "(cd $destdir && { $LN_S -f $realname $linkname || { $rm $linkname && $LN_S $realname $linkname; }; })" $run eval "(cd $destdir && { $LN_S -f $realname $linkname || { $rm $linkname && $LN_S $realname $linkname; }; })" fi done fi # Do each command in the postinstall commands. lib="$destdir/$realname" cmds=$postinstall_cmds save_ifs="$IFS"; IFS='~' for cmd in $cmds; do IFS="$save_ifs" eval cmd=\"$cmd\" $show "$cmd" $run eval "$cmd" || { lt_exit=$? # Restore the uninstalled library and exit if test "$mode" = relink; then $run eval '(cd $output_objdir && $rm ${realname}T && $mv ${realname}U $realname)' fi exit $lt_exit } done IFS="$save_ifs" fi # Install the pseudo-library for information purposes. name=`$echo "X$file" | $Xsed -e 's%^.*/%%'` instname="$dir/$name"i $show "$install_prog $instname $destdir/$name" $run eval "$install_prog $instname $destdir/$name" || exit $? # Maybe install the static library, too. test -n "$old_library" && staticlibs="$staticlibs $dir/$old_library" ;; *.lo) # Install (i.e. copy) a libtool object. # Figure out destination file name, if it wasn't already specified. if test -n "$destname"; then destfile="$destdir/$destname" else destfile=`$echo "X$file" | $Xsed -e 's%^.*/%%'` destfile="$destdir/$destfile" fi # Deduce the name of the destination old-style object file. case $destfile in *.lo) staticdest=`$echo "X$destfile" | $Xsed -e "$lo2o"` ;; *.$objext) staticdest="$destfile" destfile= ;; *) $echo "$modename: cannot copy a libtool object to \`$destfile'" 1>&2 $echo "$help" 1>&2 exit $EXIT_FAILURE ;; esac # Install the libtool object if requested. if test -n "$destfile"; then $show "$install_prog $file $destfile" $run eval "$install_prog $file $destfile" || exit $? fi # Install the old object if enabled. if test "$build_old_libs" = yes; then # Deduce the name of the old-style object file. staticobj=`$echo "X$file" | $Xsed -e "$lo2o"` $show "$install_prog $staticobj $staticdest" $run eval "$install_prog \$staticobj \$staticdest" || exit $? fi exit $EXIT_SUCCESS ;; *) # Figure out destination file name, if it wasn't already specified. if test -n "$destname"; then destfile="$destdir/$destname" else destfile=`$echo "X$file" | $Xsed -e 's%^.*/%%'` destfile="$destdir/$destfile" fi # If the file is missing, and there is a .exe on the end, strip it # because it is most likely a libtool script we actually want to # install stripped_ext="" case $file in *.exe) if test ! -f "$file"; then file=`$echo $file|${SED} 's,.exe$,,'` stripped_ext=".exe" fi ;; esac # Do a test to see if this is really a libtool program. case $host in *cygwin*|*mingw*) wrapper=`$echo $file | ${SED} -e 's,.exe$,,'` ;; *) wrapper=$file ;; esac if (${SED} -e '4q' $wrapper | grep "^# Generated by .*$PACKAGE")>/dev/null 2>&1; then notinst_deplibs= relink_command= # Note that it is not necessary on cygwin/mingw to append a dot to # foo even if both foo and FILE.exe exist: automatic-append-.exe # behavior happens only for exec(3), not for open(2)! Also, sourcing # `FILE.' does not work on cygwin managed mounts. # # If there is no directory component, then add one. case $wrapper in */* | *\\*) . ${wrapper} ;; *) . ./${wrapper} ;; esac # Check the variables that should have been set. if test -z "$notinst_deplibs"; then $echo "$modename: invalid libtool wrapper script \`$wrapper'" 1>&2 exit $EXIT_FAILURE fi finalize=yes for lib in $notinst_deplibs; do # Check to see that each library is installed. libdir= if test -f "$lib"; then # If there is no directory component, then add one. case $lib in */* | *\\*) . $lib ;; *) . ./$lib ;; esac fi libfile="$libdir/"`$echo "X$lib" | $Xsed -e 's%^.*/%%g'` ### testsuite: skip nested quoting test if test -n "$libdir" && test ! -f "$libfile"; then $echo "$modename: warning: \`$lib' has not been installed in \`$libdir'" 1>&2 finalize=no fi done relink_command= # Note that it is not necessary on cygwin/mingw to append a dot to # foo even if both foo and FILE.exe exist: automatic-append-.exe # behavior happens only for exec(3), not for open(2)! Also, sourcing # `FILE.' does not work on cygwin managed mounts. # # If there is no directory component, then add one. case $wrapper in */* | *\\*) . ${wrapper} ;; *) . ./${wrapper} ;; esac outputname= if test "$fast_install" = no && test -n "$relink_command"; then if test "$finalize" = yes && test -z "$run"; then tmpdir=`func_mktempdir` file=`$echo "X$file$stripped_ext" | $Xsed -e 's%^.*/%%'` outputname="$tmpdir/$file" # Replace the output file specification. relink_command=`$echo "X$relink_command" | $SP2NL | $Xsed -e 's%@OUTPUT@%'"$outputname"'%g' | $NL2SP` $show "$relink_command" if $run eval "$relink_command"; then : else $echo "$modename: error: relink \`$file' with the above command before installing it" 1>&2 ${rm}r "$tmpdir" continue fi file="$outputname" else $echo "$modename: warning: cannot relink \`$file'" 1>&2 fi else # Install the binary that we compiled earlier. file=`$echo "X$file$stripped_ext" | $Xsed -e "s%\([^/]*\)$%$objdir/\1%"` fi fi # remove .exe since cygwin /usr/bin/install will append another # one anyway case $install_prog,$host in */usr/bin/install*,*cygwin*) case $file:$destfile in *.exe:*.exe) # this is ok ;; *.exe:*) destfile=$destfile.exe ;; *:*.exe) destfile=`$echo $destfile | ${SED} -e 's,.exe$,,'` ;; esac ;; esac $show "$install_prog$stripme $file $destfile" $run eval "$install_prog\$stripme \$file \$destfile" || exit $? test -n "$outputname" && ${rm}r "$tmpdir" ;; esac done for file in $staticlibs; do name=`$echo "X$file" | $Xsed -e 's%^.*/%%'` # Set up the ranlib parameters. oldlib="$destdir/$name" $show "$install_prog $file $oldlib" $run eval "$install_prog \$file \$oldlib" || exit $? if test -n "$stripme" && test -n "$old_striplib"; then $show "$old_striplib $oldlib" $run eval "$old_striplib $oldlib" || exit $? fi # Do each command in the postinstall commands. cmds=$old_postinstall_cmds save_ifs="$IFS"; IFS='~' for cmd in $cmds; do IFS="$save_ifs" eval cmd=\"$cmd\" $show "$cmd" $run eval "$cmd" || exit $? done IFS="$save_ifs" done if test -n "$future_libdirs"; then $echo "$modename: warning: remember to run \`$progname --finish$future_libdirs'" 1>&2 fi if test -n "$current_libdirs"; then # Maybe just do a dry run. test -n "$run" && current_libdirs=" -n$current_libdirs" exec_cmd='$SHELL $progpath $preserve_args --finish$current_libdirs' else exit $EXIT_SUCCESS fi ;; # libtool finish mode finish) modename="$modename: finish" libdirs="$nonopt" admincmds= if test -n "$finish_cmds$finish_eval" && test -n "$libdirs"; then for dir do libdirs="$libdirs $dir" done for libdir in $libdirs; do if test -n "$finish_cmds"; then # Do each command in the finish commands. cmds=$finish_cmds save_ifs="$IFS"; IFS='~' for cmd in $cmds; do IFS="$save_ifs" eval cmd=\"$cmd\" $show "$cmd" $run eval "$cmd" || admincmds="$admincmds $cmd" done IFS="$save_ifs" fi if test -n "$finish_eval"; then # Do the single finish_eval. eval cmds=\"$finish_eval\" $run eval "$cmds" || admincmds="$admincmds $cmds" fi done fi # Exit here if they wanted silent mode. test "$show" = : && exit $EXIT_SUCCESS $echo "X----------------------------------------------------------------------" | $Xsed $echo "Libraries have been installed in:" for libdir in $libdirs; do $echo " $libdir" done $echo $echo "If you ever happen to want to link against installed libraries" $echo "in a given directory, LIBDIR, you must either use libtool, and" $echo "specify the full pathname of the library, or use the \`-LLIBDIR'" $echo "flag during linking and do at least one of the following:" if test -n "$shlibpath_var"; then $echo " - add LIBDIR to the \`$shlibpath_var' environment variable" $echo " during execution" fi if test -n "$runpath_var"; then $echo " - add LIBDIR to the \`$runpath_var' environment variable" $echo " during linking" fi if test -n "$hardcode_libdir_flag_spec"; then libdir=LIBDIR eval flag=\"$hardcode_libdir_flag_spec\" $echo " - use the \`$flag' linker flag" fi if test -n "$admincmds"; then $echo " - have your system administrator run these commands:$admincmds" fi if test -f /etc/ld.so.conf; then $echo " - have your system administrator add LIBDIR to \`/etc/ld.so.conf'" fi $echo $echo "See any operating system documentation about shared libraries for" $echo "more information, such as the ld(1) and ld.so(8) manual pages." $echo "X----------------------------------------------------------------------" | $Xsed exit $EXIT_SUCCESS ;; # libtool execute mode execute) modename="$modename: execute" # The first argument is the command name. cmd="$nonopt" if test -z "$cmd"; then $echo "$modename: you must specify a COMMAND" 1>&2 $echo "$help" exit $EXIT_FAILURE fi # Handle -dlopen flags immediately. for file in $execute_dlfiles; do if test ! -f "$file"; then $echo "$modename: \`$file' is not a file" 1>&2 $echo "$help" 1>&2 exit $EXIT_FAILURE fi dir= case $file in *.la) # Check to see that this really is a libtool archive. if (${SED} -e '2q' $file | grep "^# Generated by .*$PACKAGE") >/dev/null 2>&1; then : else $echo "$modename: \`$lib' is not a valid libtool archive" 1>&2 $echo "$help" 1>&2 exit $EXIT_FAILURE fi # Read the libtool library. dlname= library_names= # If there is no directory component, then add one. case $file in */* | *\\*) . $file ;; *) . ./$file ;; esac # Skip this library if it cannot be dlopened. if test -z "$dlname"; then # Warn if it was a shared library. test -n "$library_names" && $echo "$modename: warning: \`$file' was not linked with \`-export-dynamic'" continue fi dir=`$echo "X$file" | $Xsed -e 's%/[^/]*$%%'` test "X$dir" = "X$file" && dir=. if test -f "$dir/$objdir/$dlname"; then dir="$dir/$objdir" else if test ! -f "$dir/$dlname"; then $echo "$modename: cannot find \`$dlname' in \`$dir' or \`$dir/$objdir'" 1>&2 exit $EXIT_FAILURE fi fi ;; *.lo) # Just add the directory containing the .lo file. dir=`$echo "X$file" | $Xsed -e 's%/[^/]*$%%'` test "X$dir" = "X$file" && dir=. ;; *) $echo "$modename: warning \`-dlopen' is ignored for non-libtool libraries and objects" 1>&2 continue ;; esac # Get the absolute pathname. absdir=`cd "$dir" && pwd` test -n "$absdir" && dir="$absdir" # Now add the directory to shlibpath_var. if eval "test -z \"\$$shlibpath_var\""; then eval "$shlibpath_var=\"\$dir\"" else eval "$shlibpath_var=\"\$dir:\$$shlibpath_var\"" fi done # This variable tells wrapper scripts just to set shlibpath_var # rather than running their programs. libtool_execute_magic="$magic" # Check if any of the arguments is a wrapper script. args= for file do case $file in -*) ;; *) # Do a test to see if this is really a libtool program. if (${SED} -e '4q' $file | grep "^# Generated by .*$PACKAGE") >/dev/null 2>&1; then # If there is no directory component, then add one. case $file in */* | *\\*) . $file ;; *) . ./$file ;; esac # Transform arg to wrapped name. file="$progdir/$program" fi ;; esac # Quote arguments (to preserve shell metacharacters). file=`$echo "X$file" | $Xsed -e "$sed_quote_subst"` args="$args \"$file\"" done if test -z "$run"; then if test -n "$shlibpath_var"; then # Export the shlibpath_var. eval "export $shlibpath_var" fi # Restore saved environment variables for lt_var in LANG LANGUAGE LC_ALL LC_CTYPE LC_COLLATE LC_MESSAGES do eval "if test \"\${save_$lt_var+set}\" = set; then $lt_var=\$save_$lt_var; export $lt_var fi" done # Now prepare to actually exec the command. exec_cmd="\$cmd$args" else # Display what would be done. if test -n "$shlibpath_var"; then eval "\$echo \"\$shlibpath_var=\$$shlibpath_var\"" $echo "export $shlibpath_var" fi $echo "$cmd$args" exit $EXIT_SUCCESS fi ;; # libtool clean and uninstall mode clean | uninstall) modename="$modename: $mode" rm="$nonopt" files= rmforce= exit_status=0 # This variable tells wrapper scripts just to set variables rather # than running their programs. libtool_install_magic="$magic" for arg do case $arg in -f) rm="$rm $arg"; rmforce=yes ;; -*) rm="$rm $arg" ;; *) files="$files $arg" ;; esac done if test -z "$rm"; then $echo "$modename: you must specify an RM program" 1>&2 $echo "$help" 1>&2 exit $EXIT_FAILURE fi rmdirs= origobjdir="$objdir" for file in $files; do dir=`$echo "X$file" | $Xsed -e 's%/[^/]*$%%'` if test "X$dir" = "X$file"; then dir=. objdir="$origobjdir" else objdir="$dir/$origobjdir" fi name=`$echo "X$file" | $Xsed -e 's%^.*/%%'` test "$mode" = uninstall && objdir="$dir" # Remember objdir for removal later, being careful to avoid duplicates if test "$mode" = clean; then case " $rmdirs " in *" $objdir "*) ;; *) rmdirs="$rmdirs $objdir" ;; esac fi # Don't error if the file doesn't exist and rm -f was used. if (test -L "$file") >/dev/null 2>&1 \ || (test -h "$file") >/dev/null 2>&1 \ || test -f "$file"; then : elif test -d "$file"; then exit_status=1 continue elif test "$rmforce" = yes; then continue fi rmfiles="$file" case $name in *.la) # Possibly a libtool archive, so verify it. if (${SED} -e '2q' $file | grep "^# Generated by .*$PACKAGE") >/dev/null 2>&1; then . $dir/$name # Delete the libtool libraries and symlinks. for n in $library_names; do rmfiles="$rmfiles $objdir/$n" done test -n "$old_library" && rmfiles="$rmfiles $objdir/$old_library" case "$mode" in clean) case " $library_names " in # " " in the beginning catches empty $dlname *" $dlname "*) ;; *) rmfiles="$rmfiles $objdir/$dlname" ;; esac test -n "$libdir" && rmfiles="$rmfiles $objdir/$name $objdir/${name}i" ;; uninstall) if test -n "$library_names"; then # Do each command in the postuninstall commands. cmds=$postuninstall_cmds save_ifs="$IFS"; IFS='~' for cmd in $cmds; do IFS="$save_ifs" eval cmd=\"$cmd\" $show "$cmd" $run eval "$cmd" if test "$?" -ne 0 && test "$rmforce" != yes; then exit_status=1 fi done IFS="$save_ifs" fi if test -n "$old_library"; then # Do each command in the old_postuninstall commands. cmds=$old_postuninstall_cmds save_ifs="$IFS"; IFS='~' for cmd in $cmds; do IFS="$save_ifs" eval cmd=\"$cmd\" $show "$cmd" $run eval "$cmd" if test "$?" -ne 0 && test "$rmforce" != yes; then exit_status=1 fi done IFS="$save_ifs" fi # FIXME: should reinstall the best remaining shared library. ;; esac fi ;; *.lo) # Possibly a libtool object, so verify it. if (${SED} -e '2q' $file | grep "^# Generated by .*$PACKAGE") >/dev/null 2>&1; then # Read the .lo file . $dir/$name # Add PIC object to the list of files to remove. if test -n "$pic_object" \ && test "$pic_object" != none; then rmfiles="$rmfiles $dir/$pic_object" fi # Add non-PIC object to the list of files to remove. if test -n "$non_pic_object" \ && test "$non_pic_object" != none; then rmfiles="$rmfiles $dir/$non_pic_object" fi fi ;; *) if test "$mode" = clean ; then noexename=$name case $file in *.exe) file=`$echo $file|${SED} 's,.exe$,,'` noexename=`$echo $name|${SED} 's,.exe$,,'` # $file with .exe has already been added to rmfiles, # add $file without .exe rmfiles="$rmfiles $file" ;; esac # Do a test to see if this is a libtool program. if (${SED} -e '4q' $file | grep "^# Generated by .*$PACKAGE") >/dev/null 2>&1; then relink_command= . $dir/$noexename # note $name still contains .exe if it was in $file originally # as does the version of $file that was added into $rmfiles rmfiles="$rmfiles $objdir/$name $objdir/${name}S.${objext}" if test "$fast_install" = yes && test -n "$relink_command"; then rmfiles="$rmfiles $objdir/lt-$name" fi if test "X$noexename" != "X$name" ; then rmfiles="$rmfiles $objdir/lt-${noexename}.c" fi fi fi ;; esac $show "$rm $rmfiles" $run $rm $rmfiles || exit_status=1 done objdir="$origobjdir" # Try to remove the ${objdir}s in the directories where we deleted files for dir in $rmdirs; do if test -d "$dir"; then $show "rmdir $dir" $run rmdir $dir >/dev/null 2>&1 fi done exit $exit_status ;; "") $echo "$modename: you must specify a MODE" 1>&2 $echo "$generic_help" 1>&2 exit $EXIT_FAILURE ;; esac if test -z "$exec_cmd"; then $echo "$modename: invalid operation mode \`$mode'" 1>&2 $echo "$generic_help" 1>&2 exit $EXIT_FAILURE fi fi # test -z "$show_help" if test -n "$exec_cmd"; then eval exec $exec_cmd exit $EXIT_FAILURE fi # We need to display help for each of the modes. case $mode in "") $echo \ "Usage: $modename [OPTION]... [MODE-ARG]... Provide generalized library-building support services. --config show all configuration variables --debug enable verbose shell tracing -n, --dry-run display commands without modifying any files --features display basic configuration information and exit --finish same as \`--mode=finish' --help display this help message and exit --mode=MODE use operation mode MODE [default=inferred from MODE-ARGS] --quiet same as \`--silent' --silent don't print informational messages --tag=TAG use configuration variables from tag TAG --version print version information MODE must be one of the following: clean remove files from the build directory compile compile a source file into a libtool object execute automatically set library path, then run a program finish complete the installation of libtool libraries install install libraries or executables link create a library or an executable uninstall remove libraries from an installed directory MODE-ARGS vary depending on the MODE. Try \`$modename --help --mode=MODE' for a more detailed description of MODE. Report bugs to ." exit $EXIT_SUCCESS ;; clean) $echo \ "Usage: $modename [OPTION]... --mode=clean RM [RM-OPTION]... FILE... Remove files from the build directory. RM is the name of the program to use to delete files associated with each FILE (typically \`/bin/rm'). RM-OPTIONS are options (such as \`-f') to be passed to RM. If FILE is a libtool library, object or program, all the files associated with it are deleted. Otherwise, only FILE itself is deleted using RM." ;; compile) $echo \ "Usage: $modename [OPTION]... --mode=compile COMPILE-COMMAND... SOURCEFILE Compile a source file into a libtool library object. This mode accepts the following additional options: -o OUTPUT-FILE set the output file name to OUTPUT-FILE -prefer-pic try to building PIC objects only -prefer-non-pic try to building non-PIC objects only -static always build a \`.o' file suitable for static linking COMPILE-COMMAND is a command to be used in creating a \`standard' object file from the given SOURCEFILE. The output file name is determined by removing the directory component from SOURCEFILE, then substituting the C source code suffix \`.c' with the library object suffix, \`.lo'." ;; execute) $echo \ "Usage: $modename [OPTION]... --mode=execute COMMAND [ARGS]... Automatically set library path, then run a program. This mode accepts the following additional options: -dlopen FILE add the directory containing FILE to the library path This mode sets the library path environment variable according to \`-dlopen' flags. If any of the ARGS are libtool executable wrappers, then they are translated into their corresponding uninstalled binary, and any of their required library directories are added to the library path. Then, COMMAND is executed, with ARGS as arguments." ;; finish) $echo \ "Usage: $modename [OPTION]... --mode=finish [LIBDIR]... Complete the installation of libtool libraries. Each LIBDIR is a directory that contains libtool libraries. The commands that this mode executes may require superuser privileges. Use the \`--dry-run' option if you just want to see what would be executed." ;; install) $echo \ "Usage: $modename [OPTION]... --mode=install INSTALL-COMMAND... Install executables or libraries. INSTALL-COMMAND is the installation command. The first component should be either the \`install' or \`cp' program. The rest of the components are interpreted as arguments to that command (only BSD-compatible install options are recognized)." ;; link) $echo \ "Usage: $modename [OPTION]... --mode=link LINK-COMMAND... Link object files or libraries together to form another library, or to create an executable program. LINK-COMMAND is a command using the C compiler that you would use to create a program from several object files. The following components of LINK-COMMAND are treated specially: -all-static do not do any dynamic linking at all -avoid-version do not add a version suffix if possible -dlopen FILE \`-dlpreopen' FILE if it cannot be dlopened at runtime -dlpreopen FILE link in FILE and add its symbols to lt_preloaded_symbols -export-dynamic allow symbols from OUTPUT-FILE to be resolved with dlsym(3) -export-symbols SYMFILE try to export only the symbols listed in SYMFILE -export-symbols-regex REGEX try to export only the symbols matching REGEX -LLIBDIR search LIBDIR for required installed libraries -lNAME OUTPUT-FILE requires the installed library libNAME -module build a library that can dlopened -no-fast-install disable the fast-install mode -no-install link a not-installable executable -no-undefined declare that a library does not refer to external symbols -o OUTPUT-FILE create OUTPUT-FILE from the specified objects -objectlist FILE Use a list of object files found in FILE to specify objects -precious-files-regex REGEX don't remove output files matching REGEX -release RELEASE specify package release information -rpath LIBDIR the created library will eventually be installed in LIBDIR -R[ ]LIBDIR add LIBDIR to the runtime path of programs and libraries -static do not do any dynamic linking of uninstalled libtool libraries -static-libtool-libs do not do any dynamic linking of libtool libraries -version-info CURRENT[:REVISION[:AGE]] specify library version info [each variable defaults to 0] All other options (arguments beginning with \`-') are ignored. Every other argument is treated as a filename. Files ending in \`.la' are treated as uninstalled libtool libraries, other files are standard or library object files. If the OUTPUT-FILE ends in \`.la', then a libtool library is created, only library objects (\`.lo' files) may be specified, and \`-rpath' is required, except when creating a convenience library. If OUTPUT-FILE ends in \`.a' or \`.lib', then a standard library is created using \`ar' and \`ranlib', or on Windows using \`lib'. If OUTPUT-FILE ends in \`.lo' or \`.${objext}', then a reloadable object file is created, otherwise an executable program is created." ;; uninstall) $echo \ "Usage: $modename [OPTION]... --mode=uninstall RM [RM-OPTION]... FILE... Remove libraries from an installation directory. RM is the name of the program to use to delete files associated with each FILE (typically \`/bin/rm'). RM-OPTIONS are options (such as \`-f') to be passed to RM. If FILE is a libtool library, all the files associated with it are deleted. Otherwise, only FILE itself is deleted using RM." ;; *) $echo "$modename: invalid operation mode \`$mode'" 1>&2 $echo "$help" 1>&2 exit $EXIT_FAILURE ;; esac $echo $echo "Try \`$modename --help' for more information about other modes." exit $? # The TAGs below are defined such that we never get into a situation # in which we disable both kinds of libraries. Given conflicting # choices, we go for a static library, that is the most portable, # since we can't tell whether shared libraries were disabled because # the user asked for that or because the platform doesn't support # them. This is particularly important on AIX, because we don't # support having both static and shared libraries enabled at the same # time on that platform, so we default to a shared-only configuration. # If a disable-shared tag is given, we'll fallback to a static-only # configuration. But we'll never go from static-only to shared-only. # ### BEGIN LIBTOOL TAG CONFIG: disable-shared disable_libs=shared # ### END LIBTOOL TAG CONFIG: disable-shared # ### BEGIN LIBTOOL TAG CONFIG: disable-static disable_libs=static # ### END LIBTOOL TAG CONFIG: disable-static # Local Variables: # mode:shell-script # sh-indentation:2 # End: spandsp-0.0.6/config/ax_check_export_capability.m40000664000175000017500000000403311336546206021663 0ustar steveusteveu# @synopsis AX_CHECK_EXPORT_CAPABILITY # # Does the compiler support the exporting of library symbols? # @version 1.0 Jan 31 2009 # @author Steve Underwood # # Permission to use, copy, modify, distribute, and sell this file for any # purpose is hereby granted without fee, provided that the above copyright # and this permission notice appear in all copies. No representations are # made about the suitability of this software for any purpose. It is # provided "as is" without express or implied warranty. AC_DEFUN([AX_CHECK_EXPORT_CAPABILITY], [AC_CACHE_CHECK([if $1 supports library symbol export], ac_cv_symbol_export_capability, [# Initialize to unknown ac_cv_symbol_export_capability="no" case "${ax_cv_c_compiler_vendor}" in gnu) save_CFLAGS="${CFLAGS}" CFLAGS="${CFLAGS} -Werror -fvisibility=hidden" AC_COMPILE_IFELSE( [AC_LANG_PROGRAM( [int foo __attribute__ ((visibility("default")));], [;] )], [AC_MSG_RESULT([yes]) COMP_VENDOR_CFLAGS="-fvisibility=hidden -DSWITCH_API_VISIBILITY=1 -DHAVE_VISIBILITY=1 $COMP_VENDOR_CFLAGS" COMP_VENDOR_CXXFLAGS="-fvisibility=hidden -DSWITCH_API_VISIBILITY=1 -DHAVE_VISIBILITY=1 $COMP_VENDOR_CXXFLAGS" ac_cv_symbol_export_capability="yes"], [AC_MSG_RESULT([no])] ) CFLAGS="${save_CFLAGS}" ;; sun) save_CFLAGS="${CFLAGS}" CFLAGS="${CFLAGS} -xldscope=hidden" AC_COMPILE_IFELSE( [AC_LANG_PROGRAM( [int foo __attribute__ ((visibility("default")));], [;] )], [AC_MSG_RESULT([yes]) COMP_VENDOR_CFLAGS="-xldscope=hidden -DSWITCH_API_VISIBILITY=1 -DHAVE_VISIBILITY=1 $COMP_VENDOR_CFLAGS" COMP_VENDOR_CXXFLAGS="-xldscope=hidden -DSWITCH_API_VISIBILITY=1 -DHAVE_VISIBILITY=1 $COMP_VENDOR_CXXFLAGS" ac_cv_symbol_export_capability="yes"], [AC_MSG_RESULT([no])] ) CFLAGS="${save_CFLAGS}" ;; esac]) AS_IF([test AS_VAR_GET(ac_cv_symbol_export_capability) = yes], [$2], [$3])[]dnl ]) # AX_CHECK_EXPORT_CAPABILITY spandsp-0.0.6/config/ax_check_real_file.m40000664000175000017500000000151511006775114020061 0ustar steveusteveu# AX_CHECK_REAL_FILE(FILE, [ACTION-IF-FOUND], [ACTION-IF-NOT-FOUND]) # ------------------------------------------------------------------ # # Check for the existence of FILE, and make sure it is a real file or # directory, and not a symbolic link. # AC_DEFUN([AX_CHECK_REAL_FILE], [AC_DIAGNOSE([cross], [cannot check for file existence when cross compiling])dnl AS_VAR_PUSHDEF([ac_RealFile], [ac_cv_real_file_$1])dnl AC_CACHE_CHECK([for $1], ac_RealFile, [test "$cross_compiling" = yes && AC_MSG_ERROR([cannot check for file existence when cross compiling]) if test -r "$1" then if test -h "$1" then AS_VAR_SET(ac_RealFile, no) else AS_VAR_SET(ac_RealFile, yes) fi else AS_VAR_SET(ac_RealFile, no) fi]) AS_IF([test AS_VAR_GET(ac_RealFile) = yes], [$2], [$3])[]dnl AS_VAR_POPDEF([ac_RealFile])dnl ])# AX_CHECK_REAL_FILE spandsp-0.0.6/config/install-sh0000755000175000017500000002202111516506031016041 0ustar steveusteveu#!/bin/sh # install - install a program, script, or datafile scriptversion=2005-05-14.22 # This originates from X11R5 (mit/util/scripts/install.sh), which was # later released in X11R6 (xc/config/util/install.sh) with the # following copyright and license. # # Copyright (C) 1994 X Consortium # # Permission is hereby granted, free of charge, to any person obtaining a copy # of this software and associated documentation files (the "Software"), to # deal in the Software without restriction, including without limitation the # rights to use, copy, modify, merge, publish, distribute, sublicense, and/or # sell copies of the Software, and to permit persons to whom the Software is # furnished to do so, subject to the following conditions: # # The above copyright notice and this permission notice shall be included in # all copies or substantial portions of the Software. # # THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR # IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, # FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE # X CONSORTIUM BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN # AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNEC- # TION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. # # Except as contained in this notice, the name of the X Consortium shall not # be used in advertising or otherwise to promote the sale, use or other deal- # ings in this Software without prior written authorization from the X Consor- # tium. # # # FSF changes to this file are in the public domain. # # Calling this script install-sh is preferred over install.sh, to prevent # `make' implicit rules from creating a file called install from it # when there is no Makefile. # # This script is compatible with the BSD install script, but was written # from scratch. It can only install one file at a time, a restriction # shared with many OS's install programs. # set DOITPROG to echo to test this script # Don't use :- since 4.3BSD and earlier shells don't like it. doit="${DOITPROG-}" # put in absolute paths if you don't have them in your path; or use env. vars. mvprog="${MVPROG-mv}" cpprog="${CPPROG-cp}" chmodprog="${CHMODPROG-chmod}" chownprog="${CHOWNPROG-chown}" chgrpprog="${CHGRPPROG-chgrp}" stripprog="${STRIPPROG-strip}" rmprog="${RMPROG-rm}" mkdirprog="${MKDIRPROG-mkdir}" chmodcmd="$chmodprog 0755" chowncmd= chgrpcmd= stripcmd= rmcmd="$rmprog -f" mvcmd="$mvprog" src= dst= dir_arg= dstarg= no_target_directory= usage="Usage: $0 [OPTION]... [-T] SRCFILE DSTFILE or: $0 [OPTION]... SRCFILES... DIRECTORY or: $0 [OPTION]... -t DIRECTORY SRCFILES... or: $0 [OPTION]... -d DIRECTORIES... In the 1st form, copy SRCFILE to DSTFILE. In the 2nd and 3rd, copy all SRCFILES to DIRECTORY. In the 4th, create DIRECTORIES. Options: -c (ignored) -d create directories instead of installing files. -g GROUP $chgrpprog installed files to GROUP. -m MODE $chmodprog installed files to MODE. -o USER $chownprog installed files to USER. -s $stripprog installed files. -t DIRECTORY install into DIRECTORY. -T report an error if DSTFILE is a directory. --help display this help and exit. --version display version info and exit. Environment variables override the default commands: CHGRPPROG CHMODPROG CHOWNPROG CPPROG MKDIRPROG MVPROG RMPROG STRIPPROG " while test -n "$1"; do case $1 in -c) shift continue;; -d) dir_arg=true shift continue;; -g) chgrpcmd="$chgrpprog $2" shift shift continue;; --help) echo "$usage"; exit $?;; -m) chmodcmd="$chmodprog $2" shift shift continue;; -o) chowncmd="$chownprog $2" shift shift continue;; -s) stripcmd=$stripprog shift continue;; -t) dstarg=$2 shift shift continue;; -T) no_target_directory=true shift continue;; --version) echo "$0 $scriptversion"; exit $?;; *) # When -d is used, all remaining arguments are directories to create. # When -t is used, the destination is already specified. test -n "$dir_arg$dstarg" && break # Otherwise, the last argument is the destination. Remove it from $@. for arg do if test -n "$dstarg"; then # $@ is not empty: it contains at least $arg. set fnord "$@" "$dstarg" shift # fnord fi shift # arg dstarg=$arg done break;; esac done if test -z "$1"; then if test -z "$dir_arg"; then echo "$0: no input file specified." >&2 exit 1 fi # It's OK to call `install-sh -d' without argument. # This can happen when creating conditional directories. exit 0 fi for src do # Protect names starting with `-'. case $src in -*) src=./$src ;; esac if test -n "$dir_arg"; then dst=$src src= if test -d "$dst"; then mkdircmd=: chmodcmd= else mkdircmd=$mkdirprog fi else # Waiting for this to be detected by the "$cpprog $src $dsttmp" command # might cause directories to be created, which would be especially bad # if $src (and thus $dsttmp) contains '*'. if test ! -f "$src" && test ! -d "$src"; then echo "$0: $src does not exist." >&2 exit 1 fi if test -z "$dstarg"; then echo "$0: no destination specified." >&2 exit 1 fi dst=$dstarg # Protect names starting with `-'. case $dst in -*) dst=./$dst ;; esac # If destination is a directory, append the input filename; won't work # if double slashes aren't ignored. if test -d "$dst"; then if test -n "$no_target_directory"; then echo "$0: $dstarg: Is a directory" >&2 exit 1 fi dst=$dst/`basename "$src"` fi fi # This sed command emulates the dirname command. dstdir=`echo "$dst" | sed -e 's,/*$,,;s,[^/]*$,,;s,/*$,,;s,^$,.,'` # Make sure that the destination directory exists. # Skip lots of stat calls in the usual case. if test ! -d "$dstdir"; then defaultIFS=' ' IFS="${IFS-$defaultIFS}" oIFS=$IFS # Some sh's can't handle IFS=/ for some reason. IFS='%' set x `echo "$dstdir" | sed -e 's@/@%@g' -e 's@^%@/@'` shift IFS=$oIFS pathcomp= while test $# -ne 0 ; do pathcomp=$pathcomp$1 shift if test ! -d "$pathcomp"; then $mkdirprog "$pathcomp" # mkdir can fail with a `File exist' error in case several # install-sh are creating the directory concurrently. This # is OK. test -d "$pathcomp" || exit fi pathcomp=$pathcomp/ done fi if test -n "$dir_arg"; then $doit $mkdircmd "$dst" \ && { test -z "$chowncmd" || $doit $chowncmd "$dst"; } \ && { test -z "$chgrpcmd" || $doit $chgrpcmd "$dst"; } \ && { test -z "$stripcmd" || $doit $stripcmd "$dst"; } \ && { test -z "$chmodcmd" || $doit $chmodcmd "$dst"; } else dstfile=`basename "$dst"` # Make a couple of temp file names in the proper directory. dsttmp=$dstdir/_inst.$$_ rmtmp=$dstdir/_rm.$$_ # Trap to clean up those temp files at exit. trap 'ret=$?; rm -f "$dsttmp" "$rmtmp" && exit $ret' 0 trap '(exit $?); exit' 1 2 13 15 # Copy the file name to the temp name. $doit $cpprog "$src" "$dsttmp" && # and set any options; do chmod last to preserve setuid bits. # # If any of these fail, we abort the whole thing. If we want to # ignore errors from any of these, just make sure not to ignore # errors from the above "$doit $cpprog $src $dsttmp" command. # { test -z "$chowncmd" || $doit $chowncmd "$dsttmp"; } \ && { test -z "$chgrpcmd" || $doit $chgrpcmd "$dsttmp"; } \ && { test -z "$stripcmd" || $doit $stripcmd "$dsttmp"; } \ && { test -z "$chmodcmd" || $doit $chmodcmd "$dsttmp"; } && # Now rename the file to the real destination. { $doit $mvcmd -f "$dsttmp" "$dstdir/$dstfile" 2>/dev/null \ || { # The rename failed, perhaps because mv can't rename something else # to itself, or perhaps because mv is so ancient that it does not # support -f. # Now remove or move aside any old file at destination location. # We try this two ways since rm can't unlink itself on some # systems and the destination file might be busy for other # reasons. In this case, the final cleanup might fail but the new # file should still install successfully. { if test -f "$dstdir/$dstfile"; then $doit $rmcmd -f "$dstdir/$dstfile" 2>/dev/null \ || $doit $mvcmd -f "$dstdir/$dstfile" "$rmtmp" 2>/dev/null \ || { echo "$0: cannot unlink or rename $dstdir/$dstfile" >&2 (exit 1); exit 1 } else : fi } && # Now rename the file to the real destination. $doit $mvcmd "$dsttmp" "$dstdir/$dstfile" } } fi || { (exit 1); exit 1; } done # The final little trick to "correctly" pass the exit status to the exit trap. { (exit 0); exit 0 } # Local variables: # eval: (add-hook 'write-file-hooks 'time-stamp) # time-stamp-start: "scriptversion=" # time-stamp-format: "%:y-%02m-%02d.%02H" # time-stamp-end: "$" # End: spandsp-0.0.6/config/ax_fixed_point_machine.m40000664000175000017500000000262611032226462020776 0ustar steveusteveu# AX_FIXED_POINT_MACHINE(MACHINE, [ACTION-IF-FIXED-POINT], [ACTION-IF-NOT-FIXED-POINT]) # ------------------------------------------------------------------------------------- # # Check if a specified machine type is a fixed point only machine. That is, if it lacks # fast floating point support. # # This is a simple lookup amongst machines known to the current autotools. So far we deal # with the embedded ARM, Blackfin, MIPS, TI DSP and XScale processors as things which lack # fast hardware floating point. # # Other candidates would be the small embedded Power PCs. # AC_DEFUN([AX_FIXED_POINT_MACHINE], [AS_VAR_PUSHDEF([ac_FixedPoint], [ac_cv_fixed_point_machine_$1])dnl AC_CACHE_CHECK([if $1 is fixed point only], ac_FixedPoint, [case $1 in arc | arm | arm[bl]e | arme[lb] | armv[2345] | armv[345][lb] \ | bfin \ | mips | mipsbe | mipseb | mipsel | mipsle \ | tic54x | c54x* | tic55x | c55x* | tic6x | c6x* \ | xscale | xscalee[bl] \ | arm-* | armbe-* | armle-* | armeb-* | armv*-* \ | bfin-* \ | mips-* | mipsbe-* | mipseb-* | mipsel-* | mipsle-* \ | tic30-* | tic4x-* | tic54x-* | tic55x-* | tic6x-* | tic80-* \ | xscale-* | xscalee[bl]-* ) AS_VAR_SET(ac_FixedPoint, yes) ;; *) AS_VAR_SET(ac_FixedPoint, no) ;; esac]) AS_IF([test AS_VAR_GET(ac_FixedPoint) = yes], [$2], [$3])[]dnl AS_VAR_POPDEF([ac_FixedPoint])dnl ])# AX_FIXED_POINT_MACHINE spandsp-0.0.6/config/ax_c99_features.m40000664000175000017500000001220011141010112017251 0ustar steveusteveu# @synopsis AX_C99_FLEXIBLE_ARRAY # # Does the compiler support the 1999 ISO C Standard "struct hack". # @version 1.1 Mar 15 2004 # @author Erik de Castro Lopo # # Permission to use, copy, modify, distribute, and sell this file for any # purpose is hereby granted without fee, provided that the above copyright # and this permission notice appear in all copies. No representations are # made about the suitability of this software for any purpose. It is # provided "as is" without express or implied warranty. AC_DEFUN([AX_C99_FLEXIBLE_ARRAY], [AC_CACHE_CHECK(if have C99 struct flexible array support, ac_cv_c99_flexible_array, # Initialize to unknown ac_cv_c99_flexible_array=no AC_TRY_LINK([[ #include typedef struct { int k; char buffer [] ; } MY_STRUCT ; ]], [ MY_STRUCT *p = calloc (1, sizeof (MY_STRUCT) + 42); ], ac_cv_c99_flexible_array=yes, ac_cv_c99_flexible_array=no ))] ) # AX_C99_FLEXIBLE_ARRAY # @synopsis AX_C99_FUNC_LRINT # # Check whether C99's lrint function is available. # @version 1.3 Feb 12 2002 # @author Erik de Castro Lopo # # Permission to use, copy, modify, distribute, and sell this file for any # purpose is hereby granted without fee, provided that the above copyright # and this permission notice appear in all copies. No representations are # made about the suitability of this software for any purpose. It is # provided "as is" without express or implied warranty. # AC_DEFUN([AX_C99_FUNC_LRINT], [AC_CACHE_CHECK(for lrint, ac_cv_c99_lrint, [ lrint_save_CFLAGS=$CFLAGS CFLAGS="-lm" AC_TRY_LINK([ #define _ISOC9X_SOURCE 1 #define _ISOC99_SOURCE 1 #define __USE_ISOC99 1 #define __USE_ISOC9X 1 #include ], if (!lrint(3.14159)) lrint(2.7183);, ac_cv_c99_lrint=yes, ac_cv_c99_lrint=no) CFLAGS=$lrint_save_CFLAGS ]) if test "$ac_cv_c99_lrint" = yes; then AC_DEFINE(HAVE_LRINT, 1, [Define if you have C99's lrint function.]) fi ])# AX_C99_FUNC_LRINT # @synopsis AX_C99_FUNC_LRINTF # # Check whether C99's lrintf function is available. # @version 1.3 Feb 12 2002 # @author Erik de Castro Lopo # # Permission to use, copy, modify, distribute, and sell this file for any # purpose is hereby granted without fee, provided that the above copyright # and this permission notice appear in all copies. No representations are # made about the suitability of this software for any purpose. It is # provided "as is" without express or implied warranty. # AC_DEFUN([AX_C99_FUNC_LRINTF], [AC_CACHE_CHECK(for lrintf, ac_cv_c99_lrintf, [ lrintf_save_CFLAGS=$CFLAGS CFLAGS="-lm" AC_TRY_LINK([ #define _ISOC9X_SOURCE 1 #define _ISOC99_SOURCE 1 #define __USE_ISOC99 1 #define __USE_ISOC9X 1 #include ], if (!lrintf(3.14159)) lrintf(2.7183);, ac_cv_c99_lrintf=yes, ac_cv_c99_lrintf=no) CFLAGS=$lrintf_save_CFLAGS ]) if test "$ac_cv_c99_lrintf" = yes; then AC_DEFINE(HAVE_LRINTF, 1, [Define if you have C99's lrintf function.]) fi ])# AX_C99_FUNC_LRINTF # @synopsis AX_C99_FUNC_LLRINT # # Check whether C99's llrint function is available. # @version 1.1 Sep 30 2002 # @author Erik de Castro Lopo # # Permission to use, copy, modify, distribute, and sell this file for any # purpose is hereby granted without fee, provided that the above copyright # and this permission notice appear in all copies. No representations are # made about the suitability of this software for any purpose. It is # provided "as is" without express or implied warranty. # AC_DEFUN([AX_C99_FUNC_LLRINT], [AC_CACHE_CHECK(for llrint, ac_cv_c99_llrint, [ llrint_save_CFLAGS=$CFLAGS CFLAGS="-lm" AC_TRY_LINK([ #define ISOC9X_SOURCE 1 #define _ISOC99_SOURCE 1 #define __USE_ISOC99 1 #define __USE_ISOC9X 1 #include ], long long int x ; x = llrint(3.14159) ;, ac_cv_c99_llrint=yes, ac_cv_c99_llrint=no) CFLAGS=$llrint_save_CFLAGS ]) if test "$ac_cv_c99_llrint" = yes; then AC_DEFINE(HAVE_LLRINT, 1, [Define if you have C99's llrint function.]) fi ])# AX_C99_FUNC_LLRINT # @synopsis AX_C99_FUNC_LLRINTF # # Check whether C99's llrintf function is available. # @version 1.1 Sep 30 2002 # @author Erik de Castro Lopo # # Permission to use, copy, modify, distribute, and sell this file for any # purpose is hereby granted without fee, provided that the above copyright # and this permission notice appear in all copies. No representations are # made about the suitability of this software for any purpose. It is # provided "as is" without express or implied warranty. # AC_DEFUN([AX_C99_FUNC_LLRINTF], [AC_CACHE_CHECK(for llrintf, ac_cv_c99_llrintf, [ llrintf_save_CFLAGS=$CFLAGS CFLAGS="-lm" AC_TRY_LINK([ #define _ISOC9X_SOURCE 1 #define _ISOC99_SOURCE 1 #define __USE_ISOC99 1 #define __USE_ISOC9X 1 #include ], long long int x ; x = llrintf(3.14159) ;, ac_cv_c99_llrintf=yes, ac_cv_c99_llrintf=no) CFLAGS=$llrintf_save_CFLAGS ]) if test "$ac_cv_c99_llrintf" = yes; then AC_DEFINE(HAVE_LLRINTF, 1, [Define if you have C99's llrintf function.]) fi ])# AX_C99_FUNC_LLRINTF spandsp-0.0.6/config/config.sub0000755000175000017500000010115311027370066016030 0ustar steveusteveu#! /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 # Free Software Foundation, Inc. timestamp='2008-01-16' # 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 # (at your option) any later version. # # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # # You should have received a copy of the GNU General Public License # along with this program; if not, write to the Free Software # Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston, MA # 02110-1301, USA. # # 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. # Please send patches to . Submit a context # diff and a properly formatted ChangeLog entry. # # Configuration subroutine to validate and canonicalize a configuration type. # Supply the specified configuration type as an argument. # If it is invalid, we print an error message on stderr and exit with code 1. # Otherwise, we print the canonical config type on stdout and succeed. # This file is supposed to be the same for all GNU packages # and recognize all the CPU types, system types and aliases # that are meaningful with *any* GNU software. # Each package is responsible for reporting which valid configurations # it does not support. The user should be able to distinguish # a failure to support a valid configuration from a meaningless # configuration. # The goal of this file is to map all the various variations of a given # machine specification into a single specification in the form: # CPU_TYPE-MANUFACTURER-OPERATING_SYSTEM # or in some cases, the newer four-part form: # CPU_TYPE-MANUFACTURER-KERNEL-OPERATING_SYSTEM # It is wrong to echo any other type of specification. me=`echo "$0" | sed -e 's,.*/,,'` usage="\ Usage: $0 [OPTION] CPU-MFR-OPSYS $0 [OPTION] ALIAS Canonicalize a configuration name. Operation modes: -h, --help print this help, then exit -t, --time-stamp print date of last modification, then exit -v, --version print version number, then exit Report bugs and patches to ." version="\ GNU config.sub ($timestamp) Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008 Free Software Foundation, Inc. This is free software; see the source for copying conditions. There is NO warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE." help=" Try \`$me --help' for more information." # Parse command line while test $# -gt 0 ; do case $1 in --time-stamp | --time* | -t ) echo "$timestamp" ; exit ;; --version | -v ) echo "$version" ; exit ;; --help | --h* | -h ) echo "$usage"; exit ;; -- ) # Stop option processing shift; break ;; - ) # Use stdin as input. break ;; -* ) echo "$me: invalid option $1$help" exit 1 ;; *local*) # First pass through any local machine types. echo $1 exit ;; * ) break ;; esac done case $# in 0) echo "$me: missing argument$help" >&2 exit 1;; 1) ;; *) echo "$me: too many arguments$help" >&2 exit 1;; esac # Separate what the user gave into CPU-COMPANY and OS or KERNEL-OS (if any). # Here we must recognize all the valid KERNEL-OS combinations. maybe_os=`echo $1 | sed 's/^\(.*\)-\([^-]*-[^-]*\)$/\2/'` case $maybe_os in nto-qnx* | linux-gnu* | linux-dietlibc | linux-newlib* | linux-uclibc* | \ uclinux-uclibc* | uclinux-gnu* | kfreebsd*-gnu* | knetbsd*-gnu* | netbsd*-gnu* | \ storm-chaos* | os2-emx* | rtmk-nova*) os=-$maybe_os basic_machine=`echo $1 | sed 's/^\(.*\)-\([^-]*-[^-]*\)$/\1/'` ;; *) basic_machine=`echo $1 | sed 's/-[^-]*$//'` if [ $basic_machine != $1 ] then os=`echo $1 | sed 's/.*-/-/'` else os=; fi ;; esac ### Let's recognize common machines as not being operating systems so ### that things like config.sub decstation-3100 work. We also ### recognize some manufacturers as not being operating systems, so we ### can provide default operating systems below. case $os in -sun*os*) # Prevent following clause from handling this invalid input. ;; -dec* | -mips* | -sequent* | -encore* | -pc532* | -sgi* | -sony* | \ -att* | -7300* | -3300* | -delta* | -motorola* | -sun[234]* | \ -unicom* | -ibm* | -next | -hp | -isi* | -apollo | -altos* | \ -convergent* | -ncr* | -news | -32* | -3600* | -3100* | -hitachi* |\ -c[123]* | -convex* | -sun | -crds | -omron* | -dg | -ultra | -tti* | \ -harris | -dolphin | -highlevel | -gould | -cbm | -ns | -masscomp | \ -apple | -axis | -knuth | -cray) os= basic_machine=$1 ;; -sim | -cisco | -oki | -wec | -winbond) os= basic_machine=$1 ;; -scout) ;; -wrs) os=-vxworks basic_machine=$1 ;; -chorusos*) os=-chorusos basic_machine=$1 ;; -chorusrdb) os=-chorusrdb basic_machine=$1 ;; -hiux*) os=-hiuxwe2 ;; -sco6) os=-sco5v6 basic_machine=`echo $1 | sed -e 's/86-.*/86-pc/'` ;; -sco5) os=-sco3.2v5 basic_machine=`echo $1 | sed -e 's/86-.*/86-pc/'` ;; -sco4) os=-sco3.2v4 basic_machine=`echo $1 | sed -e 's/86-.*/86-pc/'` ;; -sco3.2.[4-9]*) os=`echo $os | sed -e 's/sco3.2./sco3.2v/'` basic_machine=`echo $1 | sed -e 's/86-.*/86-pc/'` ;; -sco3.2v[4-9]*) # Don't forget version if it is 3.2v4 or newer. basic_machine=`echo $1 | sed -e 's/86-.*/86-pc/'` ;; -sco5v6*) # Don't forget version if it is 3.2v4 or newer. basic_machine=`echo $1 | sed -e 's/86-.*/86-pc/'` ;; -sco*) os=-sco3.2v2 basic_machine=`echo $1 | sed -e 's/86-.*/86-pc/'` ;; -udk*) basic_machine=`echo $1 | sed -e 's/86-.*/86-pc/'` ;; -isc) os=-isc2.2 basic_machine=`echo $1 | sed -e 's/86-.*/86-pc/'` ;; -clix*) basic_machine=clipper-intergraph ;; -isc*) basic_machine=`echo $1 | sed -e 's/86-.*/86-pc/'` ;; -lynx*) os=-lynxos ;; -ptx*) basic_machine=`echo $1 | sed -e 's/86-.*/86-sequent/'` ;; -windowsnt*) os=`echo $os | sed -e 's/windowsnt/winnt/'` ;; -psos*) os=-psos ;; -mint | -mint[0-9]*) basic_machine=m68k-atari os=-mint ;; esac # Decode aliases for certain CPU-COMPANY combinations. case $basic_machine in # Recognize the basic CPU types without company name. # Some are omitted here because they have special meanings below. 1750a | 580 \ | a29k \ | 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 \ | bfin \ | c4x | clipper \ | d10v | d30v | dlx | dsp16xx \ | fido | fr30 | frv \ | h8300 | h8500 | hppa | hppa1.[01] | hppa2.0 | hppa2.0[nw] | hppa64 \ | i370 | i860 | i960 | ia64 \ | ip2k | iq2000 \ | m32c | m32r | m32rle | m68000 | m68k | m88k \ | maxq | mb | microblaze | mcore | mep \ | mips | mipsbe | mipseb | mipsel | mipsle \ | mips16 \ | mips64 | mips64el \ | mips64vr | mips64vrel \ | mips64orion | mips64orionel \ | mips64vr4100 | mips64vr4100el \ | mips64vr4300 | mips64vr4300el \ | mips64vr5000 | mips64vr5000el \ | mips64vr5900 | mips64vr5900el \ | mipsisa32 | mipsisa32el \ | mipsisa32r2 | mipsisa32r2el \ | mipsisa64 | mipsisa64el \ | mipsisa64r2 | mipsisa64r2el \ | mipsisa64sb1 | mipsisa64sb1el \ | mipsisa64sr71k | mipsisa64sr71kel \ | mipstx39 | mipstx39el \ | mn10200 | mn10300 \ | mt \ | msp430 \ | nios | nios2 \ | ns16k | ns32k \ | or32 \ | pdp10 | pdp11 | pj | pjl \ | powerpc | powerpc64 | powerpc64le | powerpcle | ppcbe \ | pyramid \ | score \ | sh | sh[1234] | sh[24]a | 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 | tic80 | tron \ | v850 | v850e \ | we32k \ | x86 | xc16x | xscale | xscalee[bl] | xstormy16 | xtensa \ | z8k) basic_machine=$basic_machine-unknown ;; m6811 | m68hc11 | m6812 | m68hc12) # Motorola 68HC11/12. basic_machine=$basic_machine-unknown os=-none ;; m88110 | m680[12346]0 | m683?2 | m68360 | m5200 | v70 | w65 | z8k) ;; ms1) basic_machine=mt-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 ;; # Object if more than one company name word. *-*-*) echo Invalid configuration \`$1\': machine \`$basic_machine\' not recognized 1>&2 exit 1 ;; # Recognize the basic CPU types with company name. 580-* \ | a29k-* \ | alpha-* | alphaev[4-8]-* | alphaev56-* | alphaev6[78]-* \ | alpha64-* | alpha64ev[4-8]-* | alpha64ev56-* | alpha64ev6[78]-* \ | alphapca5[67]-* | alpha64pca5[67]-* | arc-* \ | arm-* | armbe-* | armle-* | armeb-* | armv*-* \ | avr-* | avr32-* \ | bfin-* | bs2000-* \ | c[123]* | c30-* | [cjt]90-* | c4x-* | c54x-* | c55x-* | c6x-* \ | 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-* \ | i*86-* | i860-* | i960-* | ia64-* \ | ip2k-* | iq2000-* \ | m32c-* | m32r-* | m32rle-* \ | m68000-* | m680[012346]0-* | m68360-* | m683?2-* | m68k-* \ | m88110-* | m88k-* | maxq-* | mcore-* \ | mips-* | mipsbe-* | mipseb-* | mipsel-* | mipsle-* \ | mips16-* \ | mips64-* | mips64el-* \ | mips64vr-* | mips64vrel-* \ | mips64orion-* | mips64orionel-* \ | mips64vr4100-* | mips64vr4100el-* \ | mips64vr4300-* | mips64vr4300el-* \ | mips64vr5000-* | mips64vr5000el-* \ | mips64vr5900-* | mips64vr5900el-* \ | mipsisa32-* | mipsisa32el-* \ | mipsisa32r2-* | mipsisa32r2el-* \ | mipsisa64-* | mipsisa64el-* \ | mipsisa64r2-* | mipsisa64r2el-* \ | mipsisa64sb1-* | mipsisa64sb1el-* \ | mipsisa64sr71k-* | mipsisa64sr71kel-* \ | mipstx39-* | mipstx39el-* \ | mmix-* \ | mt-* \ | msp430-* \ | nios-* | nios2-* \ | none-* | np1-* | ns16k-* | ns32k-* \ | orion-* \ | pdp10-* | pdp11-* | pj-* | pjl-* | pn-* | power-* \ | powerpc-* | powerpc64-* | powerpc64le-* | powerpcle-* | ppcbe-* \ | pyramid-* \ | romp-* | rs6000-* \ | sh-* | sh[1234]-* | sh[24]a-* | 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-* \ | tic30-* | tic4x-* | tic54x-* | tic55x-* | tic6x-* | tic80-* \ | tron-* \ | v850-* | v850e-* | vax-* \ | we32k-* \ | x86-* | x86_64-* | xc16x-* | xps100-* | xscale-* | xscalee[bl]-* \ | xstormy16-* | xtensa*-* \ | ymp-* \ | z8k-*) ;; # Recognize the basic CPU types without company name, with glob match. xtensa*) basic_machine=$basic_machine-unknown ;; # Recognize the various machine names and aliases which stand # for a CPU type and a company and sometimes even an OS. 386bsd) basic_machine=i386-unknown os=-bsd ;; 3b1 | 7300 | 7300-att | att-7300 | pc7300 | safari | unixpc) basic_machine=m68000-att ;; 3b*) basic_machine=we32k-att ;; a29khif) basic_machine=a29k-amd os=-udi ;; abacus) basic_machine=abacus-unknown ;; adobe68k) basic_machine=m68010-adobe os=-scout ;; alliant | fx80) basic_machine=fx80-alliant ;; altos | altos3068) basic_machine=m68k-altos ;; am29k) basic_machine=a29k-none os=-bsd ;; amd64) basic_machine=x86_64-pc ;; amd64-*) basic_machine=x86_64-`echo $basic_machine | sed 's/^[^-]*-//'` ;; amdahl) basic_machine=580-amdahl os=-sysv ;; amiga | amiga-*) basic_machine=m68k-unknown ;; amigaos | amigados) basic_machine=m68k-unknown os=-amigaos ;; amigaunix | amix) basic_machine=m68k-unknown os=-sysv4 ;; apollo68) basic_machine=m68k-apollo os=-sysv ;; apollo68bsd) basic_machine=m68k-apollo os=-bsd ;; aux) basic_machine=m68k-apple os=-aux ;; balance) basic_machine=ns32k-sequent os=-dynix ;; blackfin) basic_machine=bfin-unknown os=-linux ;; blackfin-*) basic_machine=bfin-`echo $basic_machine | sed 's/^[^-]*-//'` os=-linux ;; c90) basic_machine=c90-cray os=-unicos ;; convex-c1) basic_machine=c1-convex os=-bsd ;; convex-c2) basic_machine=c2-convex os=-bsd ;; convex-c32) basic_machine=c32-convex os=-bsd ;; convex-c34) basic_machine=c34-convex os=-bsd ;; convex-c38) basic_machine=c38-convex os=-bsd ;; cray | j90) basic_machine=j90-cray os=-unicos ;; craynv) basic_machine=craynv-cray os=-unicosmp ;; cr16) basic_machine=cr16-unknown os=-elf ;; crds | unos) basic_machine=m68k-crds ;; crisv32 | crisv32-* | etraxfs*) basic_machine=crisv32-axis ;; cris | cris-* | etrax*) basic_machine=cris-axis ;; crx) basic_machine=crx-unknown os=-elf ;; da30 | da30-*) basic_machine=m68k-da30 ;; decstation | decstation-3100 | pmax | pmax-* | pmin | dec3100 | decstatn) basic_machine=mips-dec ;; decsystem10* | dec10*) basic_machine=pdp10-dec os=-tops10 ;; decsystem20* | dec20*) basic_machine=pdp10-dec os=-tops20 ;; delta | 3300 | motorola-3300 | motorola-delta \ | 3300-motorola | delta-motorola) basic_machine=m68k-motorola ;; delta88) basic_machine=m88k-motorola os=-sysv3 ;; djgpp) basic_machine=i586-pc os=-msdosdjgpp ;; dpx20 | dpx20-*) basic_machine=rs6000-bull os=-bosx ;; dpx2* | dpx2*-bull) basic_machine=m68k-bull os=-sysv3 ;; ebmon29k) basic_machine=a29k-amd os=-ebmon ;; elxsi) basic_machine=elxsi-elxsi os=-bsd ;; encore | umax | mmax) basic_machine=ns32k-encore ;; es1800 | OSE68k | ose68k | ose | OSE) basic_machine=m68k-ericsson os=-ose ;; fx2800) basic_machine=i860-alliant ;; genix) basic_machine=ns32k-ns ;; gmicro) basic_machine=tron-gmicro os=-sysv ;; go32) basic_machine=i386-pc os=-go32 ;; h3050r* | hiux*) basic_machine=hppa1.1-hitachi os=-hiuxwe2 ;; h8300hms) basic_machine=h8300-hitachi os=-hms ;; h8300xray) basic_machine=h8300-hitachi os=-xray ;; h8500hms) basic_machine=h8500-hitachi os=-hms ;; harris) basic_machine=m88k-harris os=-sysv3 ;; hp300-*) basic_machine=m68k-hp ;; hp300bsd) basic_machine=m68k-hp os=-bsd ;; hp300hpux) basic_machine=m68k-hp os=-hpux ;; hp3k9[0-9][0-9] | hp9[0-9][0-9]) basic_machine=hppa1.0-hp ;; hp9k2[0-9][0-9] | hp9k31[0-9]) basic_machine=m68000-hp ;; hp9k3[2-9][0-9]) basic_machine=m68k-hp ;; hp9k6[0-9][0-9] | hp6[0-9][0-9]) basic_machine=hppa1.0-hp ;; hp9k7[0-79][0-9] | hp7[0-79][0-9]) basic_machine=hppa1.1-hp ;; hp9k78[0-9] | hp78[0-9]) # FIXME: really hppa2.0-hp basic_machine=hppa1.1-hp ;; hp9k8[67]1 | hp8[67]1 | hp9k80[24] | hp80[24] | hp9k8[78]9 | hp8[78]9 | hp9k893 | hp893) # FIXME: really hppa2.0-hp basic_machine=hppa1.1-hp ;; hp9k8[0-9][13679] | hp8[0-9][13679]) basic_machine=hppa1.1-hp ;; hp9k8[0-9][0-9] | hp8[0-9][0-9]) basic_machine=hppa1.0-hp ;; hppa-next) os=-nextstep3 ;; hppaosf) basic_machine=hppa1.1-hp os=-osf ;; hppro) basic_machine=hppa1.1-hp os=-proelf ;; 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 ;; i*86v4*) basic_machine=`echo $1 | sed -e 's/86.*/86-pc/'` os=-sysv4 ;; i*86v) basic_machine=`echo $1 | sed -e 's/86.*/86-pc/'` os=-sysv ;; i*86sol2) basic_machine=`echo $1 | sed -e 's/86.*/86-pc/'` os=-solaris2 ;; i386mach) basic_machine=i386-mach os=-mach ;; i386-vsta | vsta) basic_machine=i386-unknown os=-vsta ;; iris | iris4d) basic_machine=mips-sgi case $os in -irix*) ;; *) os=-irix4 ;; esac ;; isi68 | isi) basic_machine=m68k-isi os=-sysv ;; m68knommu) basic_machine=m68k-unknown os=-linux ;; m68knommu-*) basic_machine=m68k-`echo $basic_machine | sed 's/^[^-]*-//'` os=-linux ;; m88k-omron*) basic_machine=m88k-omron ;; magnum | m3230) basic_machine=mips-mips os=-sysv ;; merlin) basic_machine=ns32k-utek os=-sysv ;; mingw32) basic_machine=i386-pc os=-mingw32 ;; mingw32ce) basic_machine=arm-unknown os=-mingw32ce ;; miniframe) basic_machine=m68000-convergent ;; *mint | -mint[0-9]* | *MiNT | *MiNT[0-9]*) basic_machine=m68k-atari os=-mint ;; mips3*-*) basic_machine=`echo $basic_machine | sed -e 's/mips3/mips64/'` ;; mips3*) basic_machine=`echo $basic_machine | sed -e 's/mips3/mips64/'`-unknown ;; monitor) basic_machine=m68k-rom68k os=-coff ;; morphos) basic_machine=powerpc-unknown os=-morphos ;; msdos) basic_machine=i386-pc os=-msdos ;; ms1-*) basic_machine=`echo $basic_machine | sed -e 's/ms1-/mt-/'` ;; mvs) basic_machine=i370-ibm os=-mvs ;; ncr3000) basic_machine=i486-ncr os=-sysv4 ;; netbsd386) basic_machine=i386-unknown os=-netbsd ;; netwinder) basic_machine=armv4l-rebel os=-linux ;; news | news700 | news800 | news900) basic_machine=m68k-sony os=-newsos ;; news1000) basic_machine=m68030-sony os=-newsos ;; news-3600 | risc-news) basic_machine=mips-sony os=-newsos ;; necv70) basic_machine=v70-nec os=-sysv ;; next | m*-next ) basic_machine=m68k-next case $os in -nextstep* ) ;; -ns2*) os=-nextstep2 ;; *) os=-nextstep3 ;; esac ;; nh3000) basic_machine=m68k-harris os=-cxux ;; nh[45]000) basic_machine=m88k-harris os=-cxux ;; nindy960) basic_machine=i960-intel os=-nindy ;; mon960) basic_machine=i960-intel os=-mon960 ;; nonstopux) basic_machine=mips-compaq os=-nonstopux ;; np1) basic_machine=np1-gould ;; nsr-tandem) basic_machine=nsr-tandem ;; op50n-* | op60c-*) basic_machine=hppa1.1-oki os=-proelf ;; openrisc | openrisc-*) basic_machine=or32-unknown ;; os400) basic_machine=powerpc-ibm os=-os400 ;; OSE68000 | ose68000) basic_machine=m68000-ericsson os=-ose ;; os68k) basic_machine=m68k-none os=-os68k ;; pa-hitachi) basic_machine=hppa1.1-hitachi os=-hiuxwe2 ;; paragon) basic_machine=i860-intel os=-osf ;; parisc) basic_machine=hppa-unknown os=-linux ;; parisc-*) basic_machine=hppa-`echo $basic_machine | sed 's/^[^-]*-//'` os=-linux ;; pbd) basic_machine=sparc-tti ;; pbb) basic_machine=m68k-tti ;; pc532 | pc532-*) basic_machine=ns32k-pc532 ;; pc98) basic_machine=i386-pc ;; pc98-*) basic_machine=i386-`echo $basic_machine | sed 's/^[^-]*-//'` ;; pentium | p5 | k5 | k6 | nexgen | viac3) basic_machine=i586-pc ;; pentiumpro | p6 | 6x86 | athlon | athlon_*) basic_machine=i686-pc ;; pentiumii | pentium2 | pentiumiii | pentium3) basic_machine=i686-pc ;; pentium4) basic_machine=i786-pc ;; pentium-* | p5-* | k5-* | k6-* | nexgen-* | viac3-*) basic_machine=i586-`echo $basic_machine | sed 's/^[^-]*-//'` ;; pentiumpro-* | p6-* | 6x86-* | athlon-*) basic_machine=i686-`echo $basic_machine | sed 's/^[^-]*-//'` ;; pentiumii-* | pentium2-* | pentiumiii-* | pentium3-*) basic_machine=i686-`echo $basic_machine | sed 's/^[^-]*-//'` ;; pentium4-*) basic_machine=i786-`echo $basic_machine | sed 's/^[^-]*-//'` ;; pn) basic_machine=pn-gould ;; power) basic_machine=power-ibm ;; ppc) basic_machine=powerpc-unknown ;; ppc-*) basic_machine=powerpc-`echo $basic_machine | sed 's/^[^-]*-//'` ;; ppcle | powerpclittle | ppc-le | powerpc-little) basic_machine=powerpcle-unknown ;; ppcle-* | powerpclittle-*) basic_machine=powerpcle-`echo $basic_machine | sed 's/^[^-]*-//'` ;; ppc64) basic_machine=powerpc64-unknown ;; ppc64-*) basic_machine=powerpc64-`echo $basic_machine | sed 's/^[^-]*-//'` ;; ppc64le | powerpc64little | ppc64-le | powerpc64-little) basic_machine=powerpc64le-unknown ;; ppc64le-* | powerpc64little-*) basic_machine=powerpc64le-`echo $basic_machine | sed 's/^[^-]*-//'` ;; ps2) basic_machine=i386-ibm ;; pw32) basic_machine=i586-unknown os=-pw32 ;; rdos) basic_machine=i386-pc os=-rdos ;; rom68k) basic_machine=m68k-rom68k os=-coff ;; rm[46]00) basic_machine=mips-siemens ;; rtpc | rtpc-*) basic_machine=romp-ibm ;; s390 | s390-*) basic_machine=s390-ibm ;; s390x | s390x-*) basic_machine=s390x-ibm ;; sa29200) basic_machine=a29k-amd os=-udi ;; sb1) basic_machine=mipsisa64sb1-unknown ;; sb1el) basic_machine=mipsisa64sb1el-unknown ;; sde) basic_machine=mipsisa32-sde os=-elf ;; sei) basic_machine=mips-sei os=-seiux ;; sequent) basic_machine=i386-sequent ;; sh) basic_machine=sh-hitachi os=-hms ;; sh5el) basic_machine=sh5le-unknown ;; sh64) basic_machine=sh64-unknown ;; sparclite-wrs | simso-wrs) basic_machine=sparclite-wrs os=-vxworks ;; sps7) basic_machine=m68k-bull os=-sysv2 ;; spur) basic_machine=spur-unknown ;; st2000) basic_machine=m68k-tandem ;; stratus) basic_machine=i860-stratus os=-sysv4 ;; sun2) basic_machine=m68000-sun ;; sun2os3) basic_machine=m68000-sun os=-sunos3 ;; sun2os4) basic_machine=m68000-sun os=-sunos4 ;; sun3os3) basic_machine=m68k-sun os=-sunos3 ;; sun3os4) basic_machine=m68k-sun os=-sunos4 ;; sun4os3) basic_machine=sparc-sun os=-sunos3 ;; sun4os4) basic_machine=sparc-sun os=-sunos4 ;; sun4sol2) basic_machine=sparc-sun os=-solaris2 ;; sun3 | sun3-*) basic_machine=m68k-sun ;; sun4) basic_machine=sparc-sun ;; sun386 | sun386i | roadrunner) basic_machine=i386-sun ;; sv1) basic_machine=sv1-cray os=-unicos ;; symmetry) basic_machine=i386-sequent os=-dynix ;; t3e) basic_machine=alphaev5-cray os=-unicos ;; t90) basic_machine=t90-cray os=-unicos ;; tic54x | c54x*) basic_machine=tic54x-unknown os=-coff ;; tic55x | c55x*) basic_machine=tic55x-unknown os=-coff ;; tic6x | c6x*) basic_machine=tic6x-unknown os=-coff ;; tile*) basic_machine=tile-unknown os=-linux-gnu ;; tx39) basic_machine=mipstx39-unknown ;; tx39el) basic_machine=mipstx39el-unknown ;; toad1) basic_machine=pdp10-xkl os=-tops20 ;; tower | tower-32) basic_machine=m68k-ncr ;; tpf) basic_machine=s390x-ibm os=-tpf ;; udi29k) basic_machine=a29k-amd os=-udi ;; ultra3) basic_machine=a29k-nyu os=-sym1 ;; v810 | necv810) basic_machine=v810-nec os=-none ;; vaxv) basic_machine=vax-dec os=-sysv ;; vms) basic_machine=vax-dec os=-vms ;; vpp*|vx|vx-*) basic_machine=f301-fujitsu ;; vxworks960) basic_machine=i960-wrs os=-vxworks ;; vxworks68) basic_machine=m68k-wrs os=-vxworks ;; vxworks29k) basic_machine=a29k-wrs os=-vxworks ;; w65*) basic_machine=w65-wdc os=-none ;; w89k-*) basic_machine=hppa1.1-winbond os=-proelf ;; xbox) basic_machine=i686-pc os=-mingw32 ;; xps | xps100) basic_machine=xps100-honeywell ;; ymp) basic_machine=ymp-cray os=-unicos ;; z8k-*-coff) basic_machine=z8k-unknown os=-sim ;; none) basic_machine=none-none os=-none ;; # Here we handle the default manufacturer of certain CPU types. It is in # some cases the only manufacturer, in others, it is the most popular. w89k) basic_machine=hppa1.1-winbond ;; op50n) basic_machine=hppa1.1-oki ;; op60c) basic_machine=hppa1.1-oki ;; romp) basic_machine=romp-ibm ;; mmix) basic_machine=mmix-knuth ;; rs6000) basic_machine=rs6000-ibm ;; vax) basic_machine=vax-dec ;; pdp10) # there are many clones, so DEC is not a safe bet basic_machine=pdp10-unknown ;; pdp11) basic_machine=pdp11-dec ;; we32k) basic_machine=we32k-att ;; sh[1234] | sh[24]a | sh[34]eb | sh[1234]le | sh[23]ele) basic_machine=sh-unknown ;; sparc | sparcv8 | sparcv9 | sparcv9b | sparcv9v) basic_machine=sparc-sun ;; cydra) basic_machine=cydra-cydrome ;; orion) basic_machine=orion-highlevel ;; orion105) basic_machine=clipper-highlevel ;; mac | mpw | mac-mpw) basic_machine=m68k-apple ;; pmac | pmac-mpw) basic_machine=powerpc-apple ;; *-unknown) # Make sure to match an already-canonicalized machine name. ;; *) echo Invalid configuration \`$1\': machine \`$basic_machine\' not recognized 1>&2 exit 1 ;; esac # Here we canonicalize certain aliases for manufacturers. case $basic_machine in *-digital*) basic_machine=`echo $basic_machine | sed 's/digital.*/dec/'` ;; *-commodore*) basic_machine=`echo $basic_machine | sed 's/commodore.*/cbm/'` ;; *) ;; esac # Decode manufacturer-specific aliases for certain operating systems. if [ x"$os" != x"" ] then case $os in # First match some system type aliases # that might get confused with valid system types. # -solaris* is a basic system type, with this one exception. -solaris1 | -solaris1.*) os=`echo $os | sed -e 's|solaris1|sunos4|'` ;; -solaris) os=-solaris2 ;; -svr4*) os=-sysv4 ;; -unixware*) os=-sysv4.2uw ;; -gnu/linux*) os=`echo $os | sed -e 's|gnu/linux|linux-gnu|'` ;; # First accept the basic system types. # The portable systems comes first. # Each alternative MUST END IN A *, to match a version number. # -sysv* is not here because it comes later, after sysvr4. -gnu* | -bsd* | -mach* | -minix* | -genix* | -ultrix* | -irix* \ | -*vms* | -sco* | -esix* | -isc* | -aix* | -sunos | -sunos[34]*\ | -hpux* | -unos* | -osf* | -luna* | -dgux* | -solaris* | -sym* \ | -amigaos* | -amigados* | -msdos* | -newsos* | -unicos* | -aof* \ | -aos* \ | -nindy* | -vxsim* | -vxworks* | -ebmon* | -hms* | -mvs* \ | -clix* | -riscos* | -uniplus* | -iris* | -rtu* | -xenix* \ | -hiux* | -386bsd* | -knetbsd* | -mirbsd* | -netbsd* \ | -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* \ | -cygwin* | -pe* | -psos* | -moss* | -proelf* | -rtems* \ | -mingw32* | -linux-gnu* | -linux-newlib* | -linux-uclibc* \ | -uxpv* | -beos* | -mpeix* | -udk* \ | -interix* | -uwin* | -mks* | -rhapsody* | -darwin* | -opened* \ | -openstep* | -oskit* | -conix* | -pw32* | -nonstopux* \ | -storm-chaos* | -tops10* | -tenex* | -tops20* | -its* \ | -os2* | -vos* | -palmos* | -uclinux* | -nucleus* \ | -morphos* | -superux* | -rtmk* | -rtmk-nova* | -windiss* \ | -powermax* | -dnix* | -nx6 | -nx7 | -sei* | -dragonfly* \ | -skyos* | -haiku* | -rdos* | -toppers* | -drops*) # Remember, each alternative MUST END IN *, to match a version number. ;; -qnx*) case $basic_machine in x86-* | i*86-*) ;; *) os=-nto$os ;; esac ;; -nto-qnx*) ;; -nto*) os=`echo $os | sed -e 's|nto|nto-qnx|'` ;; -sim | -es1800* | -hms* | -xray | -os68k* | -none* | -v88r* \ | -windows* | -osx | -abug | -netware* | -os9* | -beos* | -haiku* \ | -macos* | -mpw* | -magic* | -mmixware* | -mon960* | -lnews*) ;; -mac*) os=`echo $os | sed -e 's|mac|macos|'` ;; -linux-dietlibc) os=-linux-dietlibc ;; -linux*) os=`echo $os | sed -e 's|linux|linux-gnu|'` ;; -sunos5*) os=`echo $os | sed -e 's|sunos5|solaris2|'` ;; -sunos6*) os=`echo $os | sed -e 's|sunos6|solaris3|'` ;; -opened*) os=-openedition ;; -os400*) os=-os400 ;; -wince*) os=-wince ;; -osfrose*) os=-osfrose ;; -osf*) os=-osf ;; -utek*) os=-bsd ;; -dynix*) os=-bsd ;; -acis*) os=-aos ;; -atheos*) os=-atheos ;; -syllable*) os=-syllable ;; -386bsd) os=-bsd ;; -ctix* | -uts*) os=-sysv ;; -nova*) os=-rtmk-nova ;; -ns2 ) os=-nextstep2 ;; -nsk*) os=-nsk ;; # Preserve the version number of sinix5. -sinix5.*) os=`echo $os | sed -e 's|sinix|sysv|'` ;; -sinix*) os=-sysv4 ;; -tpf*) os=-tpf ;; -triton*) os=-sysv3 ;; -oss*) os=-sysv3 ;; -svr4) os=-sysv4 ;; -svr3) os=-sysv3 ;; -sysvr4) os=-sysv4 ;; # This must come after -sysvr4. -sysv*) ;; -ose*) os=-ose ;; -es1800*) os=-ose ;; -xenix) os=-xenix ;; -*mint | -mint[0-9]* | -*MiNT | -MiNT[0-9]*) os=-mint ;; -aros*) os=-aros ;; -kaos*) os=-kaos ;; -zvmoe) os=-zvmoe ;; -none) ;; *) # Get rid of the `-' at the beginning of $os. os=`echo $os | sed 's/[^-]*-//'` echo Invalid configuration \`$1\': system \`$os\' not recognized 1>&2 exit 1 ;; esac else # Here we handle the default operating systems that come with various machines. # The value should be what the vendor currently ships out the door with their # machine or put another way, the most popular os provided with the machine. # Note that if you're going to try to match "-MANUFACTURER" here (say, # "-sun"), then you have to tell the case statement up towards the top # that MANUFACTURER isn't an operating system. Otherwise, code above # will signal an error saying that MANUFACTURER isn't an operating # system, and we'll never get to this point. case $basic_machine in score-*) os=-elf ;; spu-*) os=-elf ;; *-acorn) os=-riscix1.2 ;; arm*-rebel) os=-linux ;; arm*-semi) os=-aout ;; c4x-* | tic4x-*) os=-coff ;; # This must come before the *-dec entry. pdp10-*) os=-tops20 ;; pdp11-*) os=-none ;; *-dec | vax-*) os=-ultrix4.2 ;; m68*-apollo) os=-domain ;; i386-sun) os=-sunos4.0.2 ;; m68000-sun) os=-sunos3 # This also exists in the configure program, but was not the # default. # os=-sunos4 ;; m68*-cisco) os=-aout ;; mep-*) os=-elf ;; mips*-cisco) os=-elf ;; mips*-*) os=-elf ;; or32-*) os=-coff ;; *-tti) # must be before sparc entry or we get the wrong os. os=-sysv3 ;; sparc-* | *-sun) os=-sunos4.1.1 ;; *-be) os=-beos ;; *-haiku) os=-haiku ;; *-ibm) os=-aix ;; *-knuth) os=-mmixware ;; *-wec) os=-proelf ;; *-winbond) os=-proelf ;; *-oki) os=-proelf ;; *-hp) os=-hpux ;; *-hitachi) os=-hiux ;; i860-* | *-att | *-ncr | *-altos | *-motorola | *-convergent) os=-sysv ;; *-cbm) os=-amigaos ;; *-dg) os=-dgux ;; *-dolphin) os=-sysv3 ;; m68k-ccur) os=-rtu ;; m88k-omron*) os=-luna ;; *-next ) os=-nextstep ;; *-sequent) os=-ptx ;; *-crds) os=-unos ;; *-ns) os=-genix ;; i370-*) os=-mvs ;; *-next) os=-nextstep3 ;; *-gould) os=-sysv ;; *-highlevel) os=-bsd ;; *-encore) os=-bsd ;; *-sgi) os=-irix ;; *-siemens) os=-sysv4 ;; *-masscomp) os=-rtu ;; f30[01]-fujitsu | f700-fujitsu) os=-uxpv ;; *-rom68k) os=-coff ;; *-*bug) os=-coff ;; *-apple) os=-macos ;; *-atari*) os=-mint ;; *) os=-none ;; esac fi # Here we handle the case where we know the os, and the CPU type, but not the # manufacturer. We pick the logical manufacturer. vendor=unknown case $basic_machine in *-unknown) case $os in -riscix*) vendor=acorn ;; -sunos*) vendor=sun ;; -aix*) vendor=ibm ;; -beos*) vendor=be ;; -hpux*) vendor=hp ;; -mpeix*) vendor=hp ;; -hiux*) vendor=hitachi ;; -unos*) vendor=crds ;; -dgux*) vendor=dg ;; -luna*) vendor=omron ;; -genix*) vendor=ns ;; -mvs* | -opened*) vendor=ibm ;; -os400*) vendor=ibm ;; -ptx*) vendor=sequent ;; -tpf*) vendor=ibm ;; -vxsim* | -vxworks* | -windiss*) vendor=wrs ;; -aux*) vendor=apple ;; -hms*) vendor=hitachi ;; -mpw* | -macos*) vendor=apple ;; -*mint | -mint[0-9]* | -*MiNT | -MiNT[0-9]*) vendor=atari ;; -vos*) vendor=stratus ;; esac basic_machine=`echo $basic_machine | sed "s/unknown/$vendor/"` ;; esac echo $basic_machine$os exit # Local variables: # eval: (add-hook 'write-file-hooks 'time-stamp) # time-stamp-start: "timestamp='" # time-stamp-format: "%:y-%02m-%02d" # time-stamp-end: "'" # End: spandsp-0.0.6/config/config.guess0000755000175000017500000012753411027370066016400 0ustar steveusteveu#! /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 # Free Software Foundation, Inc. timestamp='2008-01-23' # 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 # (at your option) any later version. # # This program is distributed in the hope that it will be useful, but # WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU # General Public License for more details. # # You should have received a copy of the GNU General Public License # along with this program; if not, write to the Free Software # Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston, MA # 02110-1301, USA. # # 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 to . Submit a context # diff and a properly formatted ChangeLog entry. # # 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. # # The plan is that this can be called by configure scripts if you # don't specify an explicit build system type. me=`echo "$0" | sed -e 's,.*/,,'` usage="\ Usage: $0 [OPTION] Output the configuration name of the system \`$me' is run on. Operation modes: -h, --help print this help, then exit -t, --time-stamp print date of last modification, then exit -v, --version print version number, then exit Report bugs and patches to ." version="\ GNU config.guess ($timestamp) Originally written by Per Bothner. Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008 Free Software Foundation, Inc. This is free software; see the source for copying conditions. There is NO warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE." help=" Try \`$me --help' for more information." # Parse command line while test $# -gt 0 ; do case $1 in --time-stamp | --time* | -t ) echo "$timestamp" ; exit ;; --version | -v ) echo "$version" ; exit ;; --help | --h* | -h ) echo "$usage"; exit ;; -- ) # Stop option processing shift; break ;; - ) # Use stdin as input. break ;; -* ) echo "$me: invalid option $1$help" >&2 exit 1 ;; * ) break ;; esac done if test $# != 0; then echo "$me: too many arguments$help" >&2 exit 1 fi 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 # temporary files to be created and, as you can see below, it is a # headache to deal with in a portable fashion. # Historically, `CC_FOR_BUILD' used to be named `HOST_CC'. We still # use `HOST_CC' if defined, but it is deprecated. # Portable tmp directory creation inspired by the Autoconf team. 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" 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) ; } || { tmp=$TMPDIR/cg-$$ && (umask 077 && mkdir $tmp) && echo "Warning: creating insecure temp directory" >&2 ; } || { echo "$me: cannot create a temporary directory in $TMPDIR" >&2 ; exit 1 ; } ; dummy=$tmp/dummy ; tmpfiles="$dummy.c $dummy.o $dummy.rel $dummy" ; case $CC_FOR_BUILD,$HOST_CC,$CC in ,,) echo "int x;" > $dummy.c ; for c in cc gcc c89 c99 ; do if ($c -c -o $dummy.o $dummy.c) >/dev/null 2>&1 ; then CC_FOR_BUILD="$c"; break ; fi ; done ; if test x"$CC_FOR_BUILD" = x ; then CC_FOR_BUILD=no_compiler_found ; fi ;; ,,*) CC_FOR_BUILD=$CC ;; ,*,*) CC_FOR_BUILD=$HOST_CC ;; esac ; set_cc_for_build= ;' # This is needed to find uname on a Pyramid OSx when run in the BSD universe. # (ghazi@noc.rutgers.edu 1994-08-24) if (test -f /.attbin/uname) >/dev/null 2>&1 ; then PATH=$PATH:/.attbin ; export PATH fi UNAME_MACHINE=`(uname -m) 2>/dev/null` || UNAME_MACHINE=unknown UNAME_RELEASE=`(uname -r) 2>/dev/null` || UNAME_RELEASE=unknown UNAME_SYSTEM=`(uname -s) 2>/dev/null` || UNAME_SYSTEM=unknown UNAME_VERSION=`(uname -v) 2>/dev/null` || UNAME_VERSION=unknown # 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*, # *-*-netbsdecoff* and *-*-netbsd*. For targets that recently # switched to ELF, *-*-netbsd* would select the old # object file format. This provides both forward # compatibility and a consistent mechanism for selecting the # object file format. # # Note: NetBSD doesn't particularly care about the vendor # portion of the name. We always set it to "unknown". sysctl="sysctl -n hw.machine_arch" UNAME_MACHINE_ARCH=`(/sbin/$sysctl 2>/dev/null || \ /usr/sbin/$sysctl 2>/dev/null || echo unknown)` case "${UNAME_MACHINE_ARCH}" in armeb) machine=armeb-unknown ;; arm*) machine=arm-unknown ;; sh3el) machine=shl-unknown ;; sh3eb) machine=sh-unknown ;; sh5el) machine=sh5le-unknown ;; *) machine=${UNAME_MACHINE_ARCH}-unknown ;; esac # The Operating System including object format, if it has switched # to ELF recently, or will in the future. case "${UNAME_MACHINE_ARCH}" in arm*|i386|m68k|ns32k|sh3*|sparc|vax) eval $set_cc_for_build if echo __ELF__ | $CC_FOR_BUILD -E - 2>/dev/null \ | grep __ELF__ >/dev/null then # Once all utilities can be ECOFF (netbsdecoff) or a.out (netbsdaout). # Return netbsd for either. FIX? os=netbsd else os=netbsdelf fi ;; *) os=netbsd ;; esac # The OS release # Debian GNU/NetBSD machines have a different userland, and # thus, need a distinct triplet. However, they do not need # kernel version information, so it can be replaced with a # suitable tag, in the style of linux-gnu. case "${UNAME_VERSION}" in Debian*) release='-gnu' ;; *) release=`echo ${UNAME_RELEASE}|sed -e 's/[-_].*/\./'` ;; esac # Since CPU_TYPE-MANUFACTURER-KERNEL-OPERATING_SYSTEM: # contains redundant information, the shorter form: # CPU_TYPE-MANUFACTURER-OPERATING_SYSTEM is used. echo "${machine}-${os}${release}" exit ;; *:OpenBSD:*:*) UNAME_MACHINE_ARCH=`arch | sed 's/OpenBSD.//'` echo ${UNAME_MACHINE_ARCH}-unknown-openbsd${UNAME_RELEASE} exit ;; *:ekkoBSD:*:*) echo ${UNAME_MACHINE}-unknown-ekkobsd${UNAME_RELEASE} exit ;; *:SolidBSD:*:*) echo ${UNAME_MACHINE}-unknown-solidbsd${UNAME_RELEASE} exit ;; macppc:MirBSD:*:*) echo powerpc-unknown-mirbsd${UNAME_RELEASE} exit ;; *:MirBSD:*:*) echo ${UNAME_MACHINE}-unknown-mirbsd${UNAME_RELEASE} exit ;; alpha:OSF1:*:*) case $UNAME_RELEASE in *4.0) UNAME_RELEASE=`/usr/sbin/sizer -v | awk '{print $3}'` ;; *5.*) UNAME_RELEASE=`/usr/sbin/sizer -v | awk '{print $4}'` ;; esac # According to Compaq, /usr/sbin/psrinfo has been available on # OSF/1 and Tru64 systems produced since 1995. I hope that # covers most systems running today. This code pipes the CPU # types through head -n 1, so we only detect the type of CPU 0. ALPHA_CPU_TYPE=`/usr/sbin/psrinfo -v | sed -n -e 's/^ The alpha \(.*\) processor.*$/\1/p' | head -n 1` case "$ALPHA_CPU_TYPE" in "EV4 (21064)") UNAME_MACHINE="alpha" ;; "EV4.5 (21064)") UNAME_MACHINE="alpha" ;; "LCA4 (21066/21068)") UNAME_MACHINE="alpha" ;; "EV5 (21164)") UNAME_MACHINE="alphaev5" ;; "EV5.6 (21164A)") UNAME_MACHINE="alphaev56" ;; "EV5.6 (21164PC)") UNAME_MACHINE="alphapca56" ;; "EV5.7 (21164PC)") UNAME_MACHINE="alphapca57" ;; "EV6 (21264)") UNAME_MACHINE="alphaev6" ;; "EV6.7 (21264A)") UNAME_MACHINE="alphaev67" ;; "EV6.8CB (21264C)") UNAME_MACHINE="alphaev68" ;; "EV6.8AL (21264B)") UNAME_MACHINE="alphaev68" ;; "EV6.8CX (21264D)") UNAME_MACHINE="alphaev68" ;; "EV6.9A (21264/EV69A)") UNAME_MACHINE="alphaev69" ;; "EV7 (21364)") UNAME_MACHINE="alphaev7" ;; "EV7.9 (21364A)") UNAME_MACHINE="alphaev79" ;; esac # A Pn.n version is a patched version. # A Vn.n version is a released version. # A Tn.n version is a released field test version. # A Xn.n version is an unreleased experimental baselevel. # 1.2 uses "1.2" for uname -r. echo ${UNAME_MACHINE}-dec-osf`echo ${UNAME_RELEASE} | sed -e 's/^[PVTX]//' | tr 'ABCDEFGHIJKLMNOPQRSTUVWXYZ' 'abcdefghijklmnopqrstuvwxyz'` exit ;; 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 # of the specific Alpha model? echo alpha-pc-interix exit ;; 21064:Windows_NT:50:3) echo alpha-dec-winnt3.5 exit ;; Amiga*:UNIX_System_V:4.0:*) echo m68k-unknown-sysv4 exit ;; *:[Aa]miga[Oo][Ss]:*:*) echo ${UNAME_MACHINE}-unknown-amigaos exit ;; *:[Mm]orph[Oo][Ss]:*:*) echo ${UNAME_MACHINE}-unknown-morphos exit ;; *:OS/390:*:*) echo i370-ibm-openedition exit ;; *:z/VM:*:*) echo s390-ibm-zvmoe exit ;; *:OS400:*:*) echo powerpc-ibm-os400 exit ;; arm:RISC*:1.[012]*:*|arm:riscix:1.[012]*:*) echo arm-acorn-riscix${UNAME_RELEASE} exit ;; arm:riscos:*:*|arm:RISCOS:*:*) echo arm-unknown-riscos exit ;; SR2?01:HI-UX/MPP:*:* | SR8000:HI-UX/MPP:*:*) echo hppa1.1-hitachi-hiuxmpp exit ;; Pyramid*:OSx*:*:* | MIS*:OSx*:*:* | MIS*:SMP_DC-OSx*:*:*) # akee@wpdis03.wpafb.af.mil (Earle F. Ake) contributed MIS and NILE. if test "`(/bin/universe) 2>/dev/null`" = att ; then echo pyramid-pyramid-sysv3 else echo pyramid-pyramid-bsd fi exit ;; NILE*:*:*:dcosx) echo pyramid-pyramid-svr4 exit ;; DRS?6000:unix:4.0:6*) echo sparc-icl-nx6 exit ;; DRS?6000:UNIX_SV:4.2*:7* | DRS?6000:isis:4.2*:7*) case `/usr/bin/uname -p` in sparc) echo sparc-icl-nx7; exit ;; esac ;; sun4H:SunOS:5.*:*) echo sparc-hal-solaris2`echo ${UNAME_RELEASE}|sed -e 's/[^.]*//'` exit ;; sun4*:SunOS:5.*:* | tadpole*:SunOS:5.*:*) echo sparc-sun-solaris2`echo ${UNAME_RELEASE}|sed -e 's/[^.]*//'` exit ;; i86pc:SunOS:5.*:* | i86xen:SunOS:5.*:*) echo i386-pc-solaris2`echo ${UNAME_RELEASE}|sed -e 's/[^.]*//'` exit ;; sun4*:SunOS:6*:*) # According to config.sub, this is the proper way to canonicalize # SunOS6. Hard to guess exactly what SunOS6 will be like, but # it's likely to be more like Solaris than SunOS4. echo sparc-sun-solaris3`echo ${UNAME_RELEASE}|sed -e 's/[^.]*//'` exit ;; sun4*:SunOS:*:*) case "`/usr/bin/arch -k`" in Series*|S4*) UNAME_RELEASE=`uname -v` ;; esac # Japanese Language versions have a version number like `4.1.3-JL'. echo sparc-sun-sunos`echo ${UNAME_RELEASE}|sed -e 's/-/_/'` exit ;; sun3*:SunOS:*:*) echo m68k-sun-sunos${UNAME_RELEASE} exit ;; sun*:*:4.2BSD:*) UNAME_RELEASE=`(sed 1q /etc/motd | awk '{print substr($5,1,3)}') 2>/dev/null` test "x${UNAME_RELEASE}" = "x" && UNAME_RELEASE=3 case "`/bin/arch`" in sun3) echo m68k-sun-sunos${UNAME_RELEASE} ;; sun4) echo sparc-sun-sunos${UNAME_RELEASE} ;; esac exit ;; aushp:SunOS:*:*) echo sparc-auspex-sunos${UNAME_RELEASE} exit ;; # The situation for MiNT is a little confusing. The machine name # can be virtually everything (everything which is not # "atarist" or "atariste" at least should have a processor # > m68000). The system name ranges from "MiNT" over "FreeMiNT" # to the lowercase version "mint" (or "freemint"). Finally # the system name "TOS" denotes a system which is actually not # MiNT. But MiNT is downward compatible to TOS, so this should # be no problem. atarist[e]:*MiNT:*:* | atarist[e]:*mint:*:* | atarist[e]:*TOS:*:*) echo m68k-atari-mint${UNAME_RELEASE} exit ;; atari*:*MiNT:*:* | atari*:*mint:*:* | atarist[e]:*TOS:*:*) echo m68k-atari-mint${UNAME_RELEASE} exit ;; *falcon*:*MiNT:*:* | *falcon*:*mint:*:* | *falcon*:*TOS:*:*) echo m68k-atari-mint${UNAME_RELEASE} exit ;; milan*:*MiNT:*:* | milan*:*mint:*:* | *milan*:*TOS:*:*) echo m68k-milan-mint${UNAME_RELEASE} exit ;; hades*:*MiNT:*:* | hades*:*mint:*:* | *hades*:*TOS:*:*) echo m68k-hades-mint${UNAME_RELEASE} exit ;; *:*MiNT:*:* | *:*mint:*:* | *:*TOS:*:*) echo m68k-unknown-mint${UNAME_RELEASE} exit ;; m68k:machten:*:*) echo m68k-apple-machten${UNAME_RELEASE} exit ;; powerpc:machten:*:*) echo powerpc-apple-machten${UNAME_RELEASE} exit ;; RISC*:Mach:*:*) echo mips-dec-mach_bsd4.3 exit ;; RISC*:ULTRIX:*:*) echo mips-dec-ultrix${UNAME_RELEASE} exit ;; VAX*:ULTRIX*:*:*) echo vax-dec-ultrix${UNAME_RELEASE} exit ;; 2020:CLIX:*:* | 2430:CLIX:*:*) echo clipper-intergraph-clix${UNAME_RELEASE} exit ;; mips:*:*:UMIPS | mips:*:*:RISCos) eval $set_cc_for_build sed 's/^ //' << EOF >$dummy.c #ifdef __cplusplus #include /* for printf() prototype */ int main (int argc, char *argv[]) { #else int main (argc, argv) int argc; char *argv[]; { #endif #if defined (host_mips) && defined (MIPSEB) #if defined (SYSTYPE_SYSV) printf ("mips-mips-riscos%ssysv\n", argv[1]); exit (0); #endif #if defined (SYSTYPE_SVR4) printf ("mips-mips-riscos%ssvr4\n", argv[1]); exit (0); #endif #if defined (SYSTYPE_BSD43) || defined(SYSTYPE_BSD) printf ("mips-mips-riscos%sbsd\n", argv[1]); exit (0); #endif #endif exit (-1); } EOF $CC_FOR_BUILD -o $dummy $dummy.c && dummyarg=`echo "${UNAME_RELEASE}" | sed -n 's/\([0-9]*\).*/\1/p'` && SYSTEM_NAME=`$dummy $dummyarg` && { echo "$SYSTEM_NAME"; exit; } echo mips-mips-riscos${UNAME_RELEASE} exit ;; Motorola:PowerMAX_OS:*:*) echo powerpc-motorola-powermax exit ;; Motorola:*:4.3:PL8-*) echo powerpc-harris-powermax exit ;; Night_Hawk:*:*:PowerMAX_OS | Synergy:PowerMAX_OS:*:*) echo powerpc-harris-powermax exit ;; Night_Hawk:Power_UNIX:*:*) echo powerpc-harris-powerunix exit ;; m88k:CX/UX:7*:*) echo m88k-harris-cxux7 exit ;; m88k:*:4*:R4*) echo m88k-motorola-sysv4 exit ;; m88k:*:3*:R3*) echo m88k-motorola-sysv3 exit ;; AViiON:dgux:*:*) # DG/UX returns AViiON for all architectures UNAME_PROCESSOR=`/usr/bin/uname -p` if [ $UNAME_PROCESSOR = mc88100 ] || [ $UNAME_PROCESSOR = mc88110 ] then if [ ${TARGET_BINARY_INTERFACE}x = m88kdguxelfx ] || \ [ ${TARGET_BINARY_INTERFACE}x = x ] then echo m88k-dg-dgux${UNAME_RELEASE} else echo m88k-dg-dguxbcs${UNAME_RELEASE} fi else echo i586-dg-dgux${UNAME_RELEASE} fi exit ;; M88*:DolphinOS:*:*) # DolphinOS (SVR3) echo m88k-dolphin-sysv3 exit ;; M88*:*:R3*:*) # Delta 88k system running SVR3 echo m88k-motorola-sysv3 exit ;; XD88*:*:*:*) # Tektronix XD88 system running UTekV (SVR3) echo m88k-tektronix-sysv3 exit ;; Tek43[0-9][0-9]:UTek:*:*) # Tektronix 4300 system running UTek (BSD) echo m68k-tektronix-bsd exit ;; *:IRIX*:*:*) echo mips-sgi-irix`echo ${UNAME_RELEASE}|sed -e 's/-/_/g'` exit ;; ????????:AIX?:[12].1:2) # AIX 2.2.1 or AIX 2.1.1 is RT/PC AIX. echo romp-ibm-aix # uname -m gives an 8 hex-code CPU id exit ;; # Note that: echo "'`uname -s`'" gives 'AIX ' i*86:AIX:*:*) echo i386-ibm-aix exit ;; ia64:AIX:*:*) if [ -x /usr/bin/oslevel ] ; then IBM_REV=`/usr/bin/oslevel` else IBM_REV=${UNAME_VERSION}.${UNAME_RELEASE} fi echo ${UNAME_MACHINE}-ibm-aix${IBM_REV} exit ;; *:AIX:2:3) if grep bos325 /usr/include/stdio.h >/dev/null 2>&1; then eval $set_cc_for_build sed 's/^ //' << EOF >$dummy.c #include main() { if (!__power_pc()) exit(1); puts("powerpc-ibm-aix3.2.5"); exit(0); } EOF if $CC_FOR_BUILD -o $dummy $dummy.c && SYSTEM_NAME=`$dummy` then echo "$SYSTEM_NAME" else echo rs6000-ibm-aix3.2.5 fi elif grep bos324 /usr/include/stdio.h >/dev/null 2>&1; then echo rs6000-ibm-aix3.2.4 else echo rs6000-ibm-aix3.2 fi exit ;; *:AIX:*:[456]) IBM_CPU_ID=`/usr/sbin/lsdev -C -c processor -S available | sed 1q | awk '{ print $1 }'` if /usr/sbin/lsattr -El ${IBM_CPU_ID} | grep ' POWER' >/dev/null 2>&1; then IBM_ARCH=rs6000 else IBM_ARCH=powerpc fi if [ -x /usr/bin/oslevel ] ; then IBM_REV=`/usr/bin/oslevel` else IBM_REV=${UNAME_VERSION}.${UNAME_RELEASE} fi echo ${IBM_ARCH}-ibm-aix${IBM_REV} exit ;; *:AIX:*:*) echo rs6000-ibm-aix exit ;; ibmrt:4.4BSD:*|romp-ibm:BSD:*) echo romp-ibm-bsd4.4 exit ;; ibmrt:*BSD:*|romp-ibm:BSD:*) # covers RT/PC BSD and echo romp-ibm-bsd${UNAME_RELEASE} # 4.3 with uname added to exit ;; # report: romp-ibm BSD 4.3 *:BOSX:*:*) echo rs6000-bull-bosx exit ;; DPX/2?00:B.O.S.:*:*) echo m68k-bull-sysv3 exit ;; 9000/[34]??:4.3bsd:1.*:*) echo m68k-hp-bsd exit ;; hp300:4.4BSD:*:* | 9000/[34]??:4.3bsd:2.*:*) echo m68k-hp-bsd4.4 exit ;; 9000/[34678]??:HP-UX:*:*) HPUX_REV=`echo ${UNAME_RELEASE}|sed -e 's/[^.]*.[0B]*//'` case "${UNAME_MACHINE}" in 9000/31? ) HP_ARCH=m68000 ;; 9000/[34]?? ) HP_ARCH=m68k ;; 9000/[678][0-9][0-9]) if [ -x /usr/bin/getconf ]; then sc_cpu_version=`/usr/bin/getconf SC_CPU_VERSION 2>/dev/null` sc_kernel_bits=`/usr/bin/getconf SC_KERNEL_BITS 2>/dev/null` case "${sc_cpu_version}" in 523) HP_ARCH="hppa1.0" ;; # CPU_PA_RISC1_0 528) HP_ARCH="hppa1.1" ;; # CPU_PA_RISC1_1 532) # CPU_PA_RISC2_0 case "${sc_kernel_bits}" in 32) HP_ARCH="hppa2.0n" ;; 64) HP_ARCH="hppa2.0w" ;; '') HP_ARCH="hppa2.0" ;; # HP-UX 10.20 esac ;; esac fi if [ "${HP_ARCH}" = "" ]; then eval $set_cc_for_build sed 's/^ //' << EOF >$dummy.c #define _HPUX_SOURCE #include #include int main () { #if defined(_SC_KERNEL_BITS) long bits = sysconf(_SC_KERNEL_BITS); #endif long cpu = sysconf (_SC_CPU_VERSION); switch (cpu) { case CPU_PA_RISC1_0: puts ("hppa1.0"); break; case CPU_PA_RISC1_1: puts ("hppa1.1"); break; case CPU_PA_RISC2_0: #if defined(_SC_KERNEL_BITS) switch (bits) { case 64: puts ("hppa2.0w"); break; case 32: puts ("hppa2.0n"); break; default: puts ("hppa2.0"); break; } break; #else /* !defined(_SC_KERNEL_BITS) */ puts ("hppa2.0"); break; #endif default: puts ("hppa1.0"); break; } exit (0); } EOF (CCOPTS= $CC_FOR_BUILD -o $dummy $dummy.c 2>/dev/null) && HP_ARCH=`$dummy` test -z "$HP_ARCH" && HP_ARCH=hppa fi ;; esac if [ ${HP_ARCH} = "hppa2.0w" ] then eval $set_cc_for_build # hppa2.0w-hp-hpux* has a 64-bit kernel and a compiler generating # 32-bit code. hppa64-hp-hpux* has the same kernel and a compiler # generating 64-bit code. GNU and HP use different nomenclature: # # $ CC_FOR_BUILD=cc ./config.guess # => hppa2.0w-hp-hpux11.23 # $ CC_FOR_BUILD="cc +DA2.0w" ./config.guess # => hppa64-hp-hpux11.23 if echo __LP64__ | (CCOPTS= $CC_FOR_BUILD -E - 2>/dev/null) | grep __LP64__ >/dev/null then HP_ARCH="hppa2.0w" else HP_ARCH="hppa64" fi fi echo ${HP_ARCH}-hp-hpux${HPUX_REV} exit ;; ia64:HP-UX:*:*) HPUX_REV=`echo ${UNAME_RELEASE}|sed -e 's/[^.]*.[0B]*//'` echo ia64-hp-hpux${HPUX_REV} exit ;; 3050*:HI-UX:*:*) eval $set_cc_for_build sed 's/^ //' << EOF >$dummy.c #include int main () { long cpu = sysconf (_SC_CPU_VERSION); /* The order matters, because CPU_IS_HP_MC68K erroneously returns true for CPU_PA_RISC1_0. CPU_IS_PA_RISC returns correct results, however. */ if (CPU_IS_PA_RISC (cpu)) { switch (cpu) { case CPU_PA_RISC1_0: puts ("hppa1.0-hitachi-hiuxwe2"); break; case CPU_PA_RISC1_1: puts ("hppa1.1-hitachi-hiuxwe2"); break; case CPU_PA_RISC2_0: puts ("hppa2.0-hitachi-hiuxwe2"); break; default: puts ("hppa-hitachi-hiuxwe2"); break; } } else if (CPU_IS_HP_MC68K (cpu)) puts ("m68k-hitachi-hiuxwe2"); else puts ("unknown-hitachi-hiuxwe2"); exit (0); } EOF $CC_FOR_BUILD -o $dummy $dummy.c && SYSTEM_NAME=`$dummy` && { echo "$SYSTEM_NAME"; exit; } echo unknown-hitachi-hiuxwe2 exit ;; 9000/7??:4.3bsd:*:* | 9000/8?[79]:4.3bsd:*:* ) echo hppa1.1-hp-bsd exit ;; 9000/8??:4.3bsd:*:*) echo hppa1.0-hp-bsd exit ;; *9??*:MPE/iX:*:* | *3000*:MPE/iX:*:*) echo hppa1.0-hp-mpeix exit ;; hp7??:OSF1:*:* | hp8?[79]:OSF1:*:* ) echo hppa1.1-hp-osf exit ;; hp8??:OSF1:*:*) echo hppa1.0-hp-osf exit ;; i*86:OSF1:*:*) if [ -x /usr/sbin/sysversion ] ; then echo ${UNAME_MACHINE}-unknown-osf1mk else echo ${UNAME_MACHINE}-unknown-osf1 fi exit ;; parisc*:Lites*:*:*) echo hppa1.1-hp-lites exit ;; C1*:ConvexOS:*:* | convex:ConvexOS:C1*:*) echo c1-convex-bsd exit ;; C2*:ConvexOS:*:* | convex:ConvexOS:C2*:*) if getsysinfo -f scalar_acc then echo c32-convex-bsd else echo c2-convex-bsd fi exit ;; C34*:ConvexOS:*:* | convex:ConvexOS:C34*:*) echo c34-convex-bsd exit ;; C38*:ConvexOS:*:* | convex:ConvexOS:C38*:*) echo c38-convex-bsd exit ;; C4*:ConvexOS:*:* | convex:ConvexOS:C4*:*) echo c4-convex-bsd exit ;; CRAY*Y-MP:*:*:*) echo ymp-cray-unicos${UNAME_RELEASE} | sed -e 's/\.[^.]*$/.X/' exit ;; CRAY*[A-Z]90:*:*:*) echo ${UNAME_MACHINE}-cray-unicos${UNAME_RELEASE} \ | sed -e 's/CRAY.*\([A-Z]90\)/\1/' \ -e y/ABCDEFGHIJKLMNOPQRSTUVWXYZ/abcdefghijklmnopqrstuvwxyz/ \ -e 's/\.[^.]*$/.X/' exit ;; CRAY*TS:*:*:*) echo t90-cray-unicos${UNAME_RELEASE} | sed -e 's/\.[^.]*$/.X/' exit ;; CRAY*T3E:*:*:*) echo alphaev5-cray-unicosmk${UNAME_RELEASE} | sed -e 's/\.[^.]*$/.X/' exit ;; CRAY*SV1:*:*:*) echo sv1-cray-unicos${UNAME_RELEASE} | sed -e 's/\.[^.]*$/.X/' exit ;; *:UNICOS/mp:*:*) echo craynv-cray-unicosmp${UNAME_RELEASE} | sed -e 's/\.[^.]*$/.X/' exit ;; F30[01]:UNIX_System_V:*:* | F700:UNIX_System_V:*:*) FUJITSU_PROC=`uname -m | tr 'ABCDEFGHIJKLMNOPQRSTUVWXYZ' 'abcdefghijklmnopqrstuvwxyz'` FUJITSU_SYS=`uname -p | tr 'ABCDEFGHIJKLMNOPQRSTUVWXYZ' 'abcdefghijklmnopqrstuvwxyz' | sed -e 's/\///'` FUJITSU_REL=`echo ${UNAME_RELEASE} | sed -e 's/ /_/'` echo "${FUJITSU_PROC}-fujitsu-${FUJITSU_SYS}${FUJITSU_REL}" exit ;; 5000:UNIX_System_V:4.*:*) FUJITSU_SYS=`uname -p | tr 'ABCDEFGHIJKLMNOPQRSTUVWXYZ' 'abcdefghijklmnopqrstuvwxyz' | sed -e 's/\///'` FUJITSU_REL=`echo ${UNAME_RELEASE} | tr 'ABCDEFGHIJKLMNOPQRSTUVWXYZ' 'abcdefghijklmnopqrstuvwxyz' | sed -e 's/ /_/'` echo "sparc-fujitsu-${FUJITSU_SYS}${FUJITSU_REL}" exit ;; i*86:BSD/386:*:* | i*86:BSD/OS:*:* | *:Ascend\ Embedded/OS:*:*) echo ${UNAME_MACHINE}-pc-bsdi${UNAME_RELEASE} exit ;; sparc*:BSD/OS:*:*) echo sparc-unknown-bsdi${UNAME_RELEASE} exit ;; *:BSD/OS:*:*) echo ${UNAME_MACHINE}-unknown-bsdi${UNAME_RELEASE} exit ;; *:FreeBSD:*:*) case ${UNAME_MACHINE} in pc98) echo i386-unknown-freebsd`echo ${UNAME_RELEASE}|sed -e 's/[-(].*//'` ;; amd64) echo x86_64-unknown-freebsd`echo ${UNAME_RELEASE}|sed -e 's/[-(].*//'` ;; *) echo ${UNAME_MACHINE}-unknown-freebsd`echo ${UNAME_RELEASE}|sed -e 's/[-(].*//'` ;; esac exit ;; i*:CYGWIN*:*) echo ${UNAME_MACHINE}-pc-cygwin exit ;; *:MINGW*:*) echo ${UNAME_MACHINE}-pc-mingw32 exit ;; i*:windows32*:*) # uname -m includes "-pc" on this system. echo ${UNAME_MACHINE}-mingw32 exit ;; i*:PW*:*) echo ${UNAME_MACHINE}-pc-pw32 exit ;; *:Interix*:[3456]*) case ${UNAME_MACHINE} in x86) echo i586-pc-interix${UNAME_RELEASE} exit ;; EM64T | authenticamd) echo x86_64-unknown-interix${UNAME_RELEASE} exit ;; IA64) 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 exit ;; i*:Windows_NT*:* | Pentium*:Windows_NT*:*) # How do we know it's Interix rather than the generic POSIX subsystem? # It also conflicts with pre-2.0 versions of AT&T UWIN. Should we # UNAME_MACHINE based on the output of uname instead of i386? echo i586-pc-interix exit ;; i*:UWIN*:*) echo ${UNAME_MACHINE}-pc-uwin exit ;; amd64:CYGWIN*:*:* | x86_64:CYGWIN*:*:*) echo x86_64-unknown-cygwin exit ;; p*:CYGWIN*:*) echo powerpcle-unknown-cygwin exit ;; prep*:SunOS:5.*:*) echo powerpcle-unknown-solaris2`echo ${UNAME_RELEASE}|sed -e 's/[^.]*//'` exit ;; *:GNU:*:*) # the GNU system echo `echo ${UNAME_MACHINE}|sed -e 's,[-/].*$,,'`-unknown-gnu`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 exit ;; i*86:Minix:*:*) echo ${UNAME_MACHINE}-pc-minix exit ;; arm*:Linux:*:*) eval $set_cc_for_build if echo __ARM_EABI__ | $CC_FOR_BUILD -E - 2>/dev/null \ | grep -q __ARM_EABI__ then echo ${UNAME_MACHINE}-unknown-linux-gnu else echo ${UNAME_MACHINE}-unknown-linux-gnueabi fi exit ;; avr32*:Linux:*:*) echo ${UNAME_MACHINE}-unknown-linux-gnu exit ;; cris:Linux:*:*) echo cris-axis-linux-gnu exit ;; crisv32:Linux:*:*) echo crisv32-axis-linux-gnu exit ;; frv:Linux:*:*) echo frv-unknown-linux-gnu exit ;; ia64:Linux:*:*) echo ${UNAME_MACHINE}-unknown-linux-gnu exit ;; m32r*:Linux:*:*) echo ${UNAME_MACHINE}-unknown-linux-gnu exit ;; m68*:Linux:*:*) echo ${UNAME_MACHINE}-unknown-linux-gnu exit ;; mips:Linux:*:*) eval $set_cc_for_build sed 's/^ //' << EOF >$dummy.c #undef CPU #undef mips #undef mipsel #if defined(__MIPSEL__) || defined(__MIPSEL) || defined(_MIPSEL) || defined(MIPSEL) CPU=mipsel #else #if defined(__MIPSEB__) || defined(__MIPSEB) || defined(_MIPSEB) || defined(MIPSEB) CPU=mips #else CPU= #endif #endif EOF eval "`$CC_FOR_BUILD -E $dummy.c 2>/dev/null | sed -n ' /^CPU/{ s: ::g p }'`" test x"${CPU}" != x && { echo "${CPU}-unknown-linux-gnu"; exit; } ;; mips64:Linux:*:*) eval $set_cc_for_build sed 's/^ //' << EOF >$dummy.c #undef CPU #undef mips64 #undef mips64el #if defined(__MIPSEL__) || defined(__MIPSEL) || defined(_MIPSEL) || defined(MIPSEL) CPU=mips64el #else #if defined(__MIPSEB__) || defined(__MIPSEB) || defined(_MIPSEB) || defined(MIPSEB) CPU=mips64 #else CPU= #endif #endif EOF eval "`$CC_FOR_BUILD -E $dummy.c 2>/dev/null | sed -n ' /^CPU/{ s: ::g p }'`" test x"${CPU}" != x && { echo "${CPU}-unknown-linux-gnu"; exit; } ;; or32:Linux:*:*) echo or32-unknown-linux-gnu exit ;; ppc:Linux:*:*) echo powerpc-unknown-linux-gnu exit ;; ppc64:Linux:*:*) echo powerpc64-unknown-linux-gnu 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 ;; esac objdump --private-headers /bin/sh | grep ld.so.1 >/dev/null if test "$?" = 0 ; then LIBC="libc1" ; else LIBC="" ; fi echo ${UNAME_MACHINE}-unknown-linux-gnu${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 ;; esac exit ;; parisc64:Linux:*:* | hppa64:Linux:*:*) echo hppa64-unknown-linux-gnu exit ;; s390:Linux:*:* | s390x:Linux:*:*) echo ${UNAME_MACHINE}-ibm-linux exit ;; sh64*:Linux:*:*) echo ${UNAME_MACHINE}-unknown-linux-gnu exit ;; sh*:Linux:*:*) echo ${UNAME_MACHINE}-unknown-linux-gnu exit ;; sparc:Linux:*:* | sparc64:Linux:*:*) echo ${UNAME_MACHINE}-unknown-linux-gnu exit ;; vax:Linux:*:*) echo ${UNAME_MACHINE}-dec-linux-gnu exit ;; x86_64:Linux:*:*) echo x86_64-unknown-linux-gnu exit ;; xtensa*:Linux:*:*) echo ${UNAME_MACHINE}-unknown-linux-gnu exit ;; i*86:Linux:*:*) # The BFD linker knows what the default object file format is, so # first see if it will tell us. cd to the root directory to prevent # problems with other programs or directories called `ld' in the path. # Set LC_ALL=C to ensure ld outputs messages in English. ld_supported_targets=`cd /; LC_ALL=C ld --help 2>&1 \ | sed -ne '/supported targets:/!d s/[ ][ ]*/ /g s/.*supported targets: *// s/ .*// p'` case "$ld_supported_targets" in elf32-i386) TENTATIVE="${UNAME_MACHINE}-pc-linux-gnu" ;; a.out-i386-linux) echo "${UNAME_MACHINE}-pc-linux-gnuaout" exit ;; coff-i386) echo "${UNAME_MACHINE}-pc-linux-gnucoff" exit ;; "") # Either a pre-BFD a.out linker (linux-gnuoldld) or # one that does not give us useful --help. echo "${UNAME_MACHINE}-pc-linux-gnuoldld" exit ;; esac # Determine whether the default compiler is a.out or elf eval $set_cc_for_build sed 's/^ //' << EOF >$dummy.c #include #ifdef __ELF__ # ifdef __GLIBC__ # if __GLIBC__ >= 2 LIBC=gnu # else LIBC=gnulibc1 # endif # else LIBC=gnulibc1 # endif #else #if defined(__INTEL_COMPILER) || defined(__PGI) || defined(__SUNPRO_C) || defined(__SUNPRO_CC) LIBC=gnu #else LIBC=gnuaout #endif #endif #ifdef __dietlibc__ LIBC=dietlibc #endif EOF eval "`$CC_FOR_BUILD -E $dummy.c 2>/dev/null | sed -n ' /^LIBC/{ s: ::g p }'`" test x"${LIBC}" != x && { echo "${UNAME_MACHINE}-pc-linux-${LIBC}" exit } test x"${TENTATIVE}" != x && { echo "${TENTATIVE}"; exit; } ;; i*86:DYNIX/ptx:4*:*) # ptx 4.0 does uname -s correctly, with DYNIX/ptx in there. # earlier versions are messed up and put the nodename in both # sysname and nodename. echo i386-sequent-sysv4 exit ;; i*86:UNIX_SV:4.2MP:2.*) # Unixware is an offshoot of SVR4, but it has its own version # number series starting with 2... # I am not positive that other SVR4 systems won't match this, # I just have to hope. -- rms. # Use sysv4.2uw... so that sysv4* matches it. echo ${UNAME_MACHINE}-pc-sysv4.2uw${UNAME_VERSION} exit ;; i*86:OS/2:*:*) # If we were able to find `uname', then EMX Unix compatibility # is probably installed. echo ${UNAME_MACHINE}-pc-os2-emx exit ;; i*86:XTS-300:*:STOP) echo ${UNAME_MACHINE}-unknown-stop exit ;; i*86:atheos:*:*) echo ${UNAME_MACHINE}-unknown-atheos exit ;; i*86:syllable:*:*) echo ${UNAME_MACHINE}-pc-syllable exit ;; i*86:LynxOS:2.*:* | i*86:LynxOS:3.[01]*:* | i*86:LynxOS:4.0*:*) echo i386-unknown-lynxos${UNAME_RELEASE} exit ;; i*86:*DOS:*:*) echo ${UNAME_MACHINE}-pc-msdosdjgpp exit ;; i*86:*:4.*:* | i*86:SYSTEM_V:4.*:*) UNAME_REL=`echo ${UNAME_RELEASE} | sed 's/\/MP$//'` if grep Novell /usr/include/link.h >/dev/null 2>/dev/null; then echo ${UNAME_MACHINE}-univel-sysv${UNAME_REL} else echo ${UNAME_MACHINE}-pc-sysv${UNAME_REL} fi exit ;; i*86:*:5:[678]*) # UnixWare 7.x, OpenUNIX and OpenServer 6. case `/bin/uname -X | grep "^Machine"` in *486*) UNAME_MACHINE=i486 ;; *Pentium) UNAME_MACHINE=i586 ;; *Pent*|*Celeron) UNAME_MACHINE=i686 ;; esac echo ${UNAME_MACHINE}-unknown-sysv${UNAME_RELEASE}${UNAME_SYSTEM}${UNAME_VERSION} exit ;; i*86:*:3.2:*) if test -f /usr/options/cb.name; then UNAME_REL=`sed -n 's/.*Version //p' /dev/null >/dev/null ; then UNAME_REL=`(/bin/uname -X|grep Release|sed -e 's/.*= //')` (/bin/uname -X|grep i80486 >/dev/null) && UNAME_MACHINE=i486 (/bin/uname -X|grep '^Machine.*Pentium' >/dev/null) \ && UNAME_MACHINE=i586 (/bin/uname -X|grep '^Machine.*Pent *II' >/dev/null) \ && UNAME_MACHINE=i686 (/bin/uname -X|grep '^Machine.*Pentium Pro' >/dev/null) \ && UNAME_MACHINE=i686 echo ${UNAME_MACHINE}-pc-sco$UNAME_REL else echo ${UNAME_MACHINE}-pc-sysv32 fi exit ;; pc:*:*:*) # Left here for compatibility: # uname -m prints for DJGPP always 'pc', but it prints nothing about # the processor, so we play safe by assuming i386. echo i386-pc-msdosdjgpp exit ;; Intel:Mach:3*:*) echo i386-pc-mach3 exit ;; paragon:*:*:*) echo i860-intel-osf1 exit ;; i860:*:4.*:*) # i860-SVR4 if grep Stardent /usr/include/sys/uadmin.h >/dev/null 2>&1 ; then echo i860-stardent-sysv${UNAME_RELEASE} # Stardent Vistra i860-SVR4 else # Add other i860-SVR4 vendors below as they are discovered. echo i860-unknown-sysv${UNAME_RELEASE} # Unknown i860-SVR4 fi exit ;; mini*:CTIX:SYS*5:*) # "miniframe" echo m68010-convergent-sysv exit ;; mc68k:UNIX:SYSTEM5:3.51m) echo m68k-convergent-sysv exit ;; M680?0:D-NIX:5.3:*) echo m68k-diab-dnix exit ;; M68*:*:R3V[5678]*:*) test -r /sysV68 && { echo 'm68k-motorola-sysv'; exit; } ;; 3[345]??:*:4.0:3.0 | 3[34]??A:*:4.0:3.0 | 3[34]??,*:*:4.0:3.0 | 3[34]??/*:*:4.0:3.0 | 4400:*:4.0:3.0 | 4850:*:4.0:3.0 | SKA40:*:4.0:3.0 | SDS2:*:4.0:3.0 | SHG2:*:4.0:3.0 | S7501*:*:4.0:3.0) OS_REL='' test -r /etc/.relid \ && OS_REL=.`sed -n 's/[^ ]* [^ ]* \([0-9][0-9]\).*/\1/p' < /etc/.relid` /bin/uname -p 2>/dev/null | grep 86 >/dev/null \ && { echo i486-ncr-sysv4.3${OS_REL}; exit; } /bin/uname -p 2>/dev/null | /bin/grep entium >/dev/null \ && { echo i586-ncr-sysv4.3${OS_REL}; exit; } ;; 3[34]??:*:4.0:* | 3[34]??,*:*:4.0:*) /bin/uname -p 2>/dev/null | grep 86 >/dev/null \ && { echo i486-ncr-sysv4; exit; } ;; m68*:LynxOS:2.*:* | m68*:LynxOS:3.0*:*) echo m68k-unknown-lynxos${UNAME_RELEASE} exit ;; mc68030:UNIX_System_V:4.*:*) echo m68k-atari-sysv4 exit ;; TSUNAMI:LynxOS:2.*:*) echo sparc-unknown-lynxos${UNAME_RELEASE} exit ;; rs6000:LynxOS:2.*:*) echo rs6000-unknown-lynxos${UNAME_RELEASE} exit ;; PowerPC:LynxOS:2.*:* | PowerPC:LynxOS:3.[01]*:* | PowerPC:LynxOS:4.0*:*) echo powerpc-unknown-lynxos${UNAME_RELEASE} exit ;; SM[BE]S:UNIX_SV:*:*) echo mips-dde-sysv${UNAME_RELEASE} exit ;; RM*:ReliantUNIX-*:*:*) echo mips-sni-sysv4 exit ;; RM*:SINIX-*:*:*) echo mips-sni-sysv4 exit ;; *:SINIX-*:*:*) if uname -p 2>/dev/null >/dev/null ; then UNAME_MACHINE=`(uname -p) 2>/dev/null` echo ${UNAME_MACHINE}-sni-sysv4 else echo ns32k-sni-sysv fi exit ;; PENTIUM:*:4.0*:*) # Unisys `ClearPath HMP IX 4000' SVR4/MP effort # says echo i586-unisys-sysv4 exit ;; *:UNIX_System_V:4*:FTX*) # From Gerald Hewes . # How about differentiating between stratus architectures? -djm echo hppa1.1-stratus-sysv4 exit ;; *:*:*:FTX*) # From seanf@swdc.stratus.com. echo i860-stratus-sysv4 exit ;; i*86:VOS:*:*) # From Paul.Green@stratus.com. echo ${UNAME_MACHINE}-stratus-vos exit ;; *:VOS:*:*) # From Paul.Green@stratus.com. echo hppa1.1-stratus-vos exit ;; mc68*:A/UX:*:*) echo m68k-apple-aux${UNAME_RELEASE} exit ;; news*:NEWS-OS:6*:*) echo mips-sony-newsos6 exit ;; R[34]000:*System_V*:*:* | R4000:UNIX_SYSV:*:* | R*000:UNIX_SV:*:*) if [ -d /usr/nec ]; then echo mips-nec-sysv${UNAME_RELEASE} else echo mips-unknown-sysv${UNAME_RELEASE} fi exit ;; BeBox:BeOS:*:*) # BeOS running on hardware made by Be, PPC only. echo powerpc-be-beos exit ;; BeMac:BeOS:*:*) # BeOS running on Mac or Mac clone, PPC only. echo powerpc-apple-beos exit ;; BePC:BeOS:*:*) # BeOS running on Intel PC compatible. echo i586-pc-beos exit ;; SX-4:SUPER-UX:*:*) echo sx4-nec-superux${UNAME_RELEASE} exit ;; SX-5:SUPER-UX:*:*) echo sx5-nec-superux${UNAME_RELEASE} exit ;; SX-6:SUPER-UX:*:*) echo sx6-nec-superux${UNAME_RELEASE} exit ;; SX-7:SUPER-UX:*:*) echo sx7-nec-superux${UNAME_RELEASE} exit ;; SX-8:SUPER-UX:*:*) echo sx8-nec-superux${UNAME_RELEASE} exit ;; SX-8R:SUPER-UX:*:*) echo sx8r-nec-superux${UNAME_RELEASE} exit ;; Power*:Rhapsody:*:*) echo powerpc-apple-rhapsody${UNAME_RELEASE} exit ;; *:Rhapsody:*:*) echo ${UNAME_MACHINE}-apple-rhapsody${UNAME_RELEASE} exit ;; *:Darwin:*:*) UNAME_PROCESSOR=`uname -p` || UNAME_PROCESSOR=unknown case $UNAME_PROCESSOR in unknown) UNAME_PROCESSOR=powerpc ;; esac 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 fi echo ${UNAME_PROCESSOR}-${UNAME_MACHINE}-nto-qnx${UNAME_RELEASE} exit ;; *:QNX:*:4*) echo i386-pc-qnx exit ;; NSE-?:NONSTOP_KERNEL:*:*) echo nse-tandem-nsk${UNAME_RELEASE} exit ;; NSR-?:NONSTOP_KERNEL:*:*) echo nsr-tandem-nsk${UNAME_RELEASE} exit ;; *:NonStop-UX:*:*) echo mips-compaq-nonstopux exit ;; BS2000:POSIX*:*:*) echo bs2000-siemens-sysv exit ;; DS/*:UNIX_System_V:*:*) echo ${UNAME_MACHINE}-${UNAME_SYSTEM}-${UNAME_RELEASE} exit ;; *:Plan9:*:*) # "uname -m" is not consistent, so use $cputype instead. 386 # is converted to i386 for consistency with other x86 # operating systems. if test "$cputype" = "386"; then UNAME_MACHINE=i386 else UNAME_MACHINE="$cputype" fi echo ${UNAME_MACHINE}-unknown-plan9 exit ;; *:TOPS-10:*:*) echo pdp10-unknown-tops10 exit ;; *:TENEX:*:*) echo pdp10-unknown-tenex exit ;; KS10:TOPS-20:*:* | KL10:TOPS-20:*:* | TYPE4:TOPS-20:*:*) echo pdp10-dec-tops20 exit ;; XKL-1:TOPS-20:*:* | TYPE5:TOPS-20:*:*) echo pdp10-xkl-tops20 exit ;; *:TOPS-20:*:*) echo pdp10-unknown-tops20 exit ;; *:ITS:*:*) echo pdp10-unknown-its exit ;; SEI:*:*:SEIUX) echo mips-sei-seiux${UNAME_RELEASE} exit ;; *:DragonFly:*:*) echo ${UNAME_MACHINE}-unknown-dragonfly`echo ${UNAME_RELEASE}|sed -e 's/[-(].*//'` exit ;; *:*VMS:*:*) UNAME_MACHINE=`(uname -p) 2>/dev/null` case "${UNAME_MACHINE}" in A*) echo alpha-dec-vms ; exit ;; I*) echo ia64-dec-vms ; exit ;; V*) echo vax-dec-vms ; exit ;; esac ;; *:XENIX:*:SysV) echo i386-pc-xenix exit ;; i*86:skyos:*:*) echo ${UNAME_MACHINE}-pc-skyos`echo ${UNAME_RELEASE}` | sed -e 's/ .*$//' exit ;; i*86:rdos:*:*) echo ${UNAME_MACHINE}-pc-rdos 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 < # include #endif main () { #if defined (sony) #if defined (MIPSEB) /* BFD wants "bsd" instead of "newsos". Perhaps BFD should be changed, I don't know.... */ printf ("mips-sony-bsd\n"); exit (0); #else #include printf ("m68k-sony-newsos%s\n", #ifdef NEWSOS4 "4" #else "" #endif ); exit (0); #endif #endif #if defined (__arm) && defined (__acorn) && defined (__unix) printf ("arm-acorn-riscix\n"); exit (0); #endif #if defined (hp300) && !defined (hpux) printf ("m68k-hp-bsd\n"); exit (0); #endif #if defined (NeXT) #if !defined (__ARCHITECTURE__) #define __ARCHITECTURE__ "m68k" #endif int version; version=`(hostinfo | sed -n 's/.*NeXT Mach \([0-9]*\).*/\1/p') 2>/dev/null`; if (version < 4) printf ("%s-next-nextstep%d\n", __ARCHITECTURE__, version); else printf ("%s-next-openstep%d\n", __ARCHITECTURE__, version); exit (0); #endif #if defined (MULTIMAX) || defined (n16) #if defined (UMAXV) printf ("ns32k-encore-sysv\n"); exit (0); #else #if defined (CMU) printf ("ns32k-encore-mach\n"); exit (0); #else printf ("ns32k-encore-bsd\n"); exit (0); #endif #endif #endif #if defined (__386BSD__) printf ("i386-pc-bsd\n"); exit (0); #endif #if defined (sequent) #if defined (i386) printf ("i386-sequent-dynix\n"); exit (0); #endif #if defined (ns32000) printf ("ns32k-sequent-dynix\n"); exit (0); #endif #endif #if defined (_SEQUENT_) struct utsname un; uname(&un); if (strncmp(un.version, "V2", 2) == 0) { printf ("i386-sequent-ptx2\n"); exit (0); } if (strncmp(un.version, "V1", 2) == 0) { /* XXX is V1 correct? */ printf ("i386-sequent-ptx1\n"); exit (0); } printf ("i386-sequent-ptx\n"); exit (0); #endif #if defined (vax) # if !defined (ultrix) # include # if defined (BSD) # if BSD == 43 printf ("vax-dec-bsd4.3\n"); exit (0); # else # if BSD == 199006 printf ("vax-dec-bsd4.3reno\n"); exit (0); # else printf ("vax-dec-bsd\n"); exit (0); # endif # endif # else printf ("vax-dec-bsd\n"); exit (0); # endif # else printf ("vax-dec-ultrix\n"); exit (0); # endif #endif #if defined (alliant) && defined (i860) printf ("i860-alliant-bsd\n"); exit (0); #endif exit (1); } EOF $CC_FOR_BUILD -o $dummy $dummy.c 2>/dev/null && SYSTEM_NAME=`$dummy` && { echo "$SYSTEM_NAME"; exit; } # Apollos put the system type in the environment. test -d /usr/apollo && { echo ${ISP}-apollo-${SYSTYPE}; exit; } # Convex versions that predate uname can use getsysinfo(1) if [ -x /usr/convex/getsysinfo ] then case `getsysinfo -f cpu_type` in c1*) echo c1-convex-bsd exit ;; c2*) if getsysinfo -f scalar_acc then echo c32-convex-bsd else echo c2-convex-bsd fi exit ;; c34*) echo c34-convex-bsd exit ;; c38*) echo c38-convex-bsd exit ;; c4*) echo c4-convex-bsd exit ;; esac fi cat >&2 < in order to provide the needed information to handle your system. config.guess timestamp = $timestamp uname -m = `(uname -m) 2>/dev/null || echo unknown` uname -r = `(uname -r) 2>/dev/null || echo unknown` uname -s = `(uname -s) 2>/dev/null || echo unknown` uname -v = `(uname -v) 2>/dev/null || echo unknown` /usr/bin/uname -p = `(/usr/bin/uname -p) 2>/dev/null` /bin/uname -X = `(/bin/uname -X) 2>/dev/null` hostinfo = `(hostinfo) 2>/dev/null` /bin/universe = `(/bin/universe) 2>/dev/null` /usr/bin/arch -k = `(/usr/bin/arch -k) 2>/dev/null` /bin/arch = `(/bin/arch) 2>/dev/null` /usr/bin/oslevel = `(/usr/bin/oslevel) 2>/dev/null` /usr/convex/getsysinfo = `(/usr/convex/getsysinfo) 2>/dev/null` UNAME_MACHINE = ${UNAME_MACHINE} UNAME_RELEASE = ${UNAME_RELEASE} UNAME_SYSTEM = ${UNAME_SYSTEM} UNAME_VERSION = ${UNAME_VERSION} EOF exit 1 # Local variables: # eval: (add-hook 'write-file-hooks 'time-stamp) # time-stamp-start: "timestamp='" # time-stamp-format: "%:y-%02m-%02d" # time-stamp-end: "'" # End: spandsp-0.0.6/config/ax_compiler_vendor.m40000664000175000017500000000606211141010112020147 0ustar steveusteveu# =========================================================================== # http://autoconf-archive.cryp.to/ax_compiler_vendor.html # =========================================================================== # # SYNOPSIS # # AX_COMPILER_VENDOR # # DESCRIPTION # # Determine the vendor of the C/C++ compiler, e.g., gnu, intel, ibm, sun, # hp, borland, comeau, dec, cray, kai, lcc, metrowerks, sgi, microsoft, # watcom, etc. The vendor is returned in the cache variable # $ax_cv_c_compiler_vendor for C and $ax_cv_cxx_compiler_vendor for C++. # # LAST MODIFICATION # # 2008-04-12 # # COPYLEFT # # Copyright (c) 2008 Steven G. Johnson # Copyright (c) 2008 Matteo Frigo # # This program is free software: you can redistribute it and/or modify it # under the terms of the GNU General Public License as published by the # Free Software Foundation, either version 3 of the License, or (at your # option) any later version. # # This program is distributed in the hope that it will be useful, but # WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General # Public License for more details. # # You should have received a copy of the GNU General Public License along # with this program. If not, see . # # As a special exception, the respective Autoconf Macro's copyright owner # gives unlimited permission to copy, distribute and modify the configure # scripts that are the output of Autoconf when processing the Macro. You # need not follow the terms of the GNU General Public License when using # or distributing such scripts, even though portions of the text of the # Macro appear in them. The GNU General Public License (GPL) does govern # all other use of the material that constitutes the Autoconf Macro. # # This special exception to the GPL applies to versions of the Autoconf # Macro released by the Autoconf Macro Archive. When you make and # distribute a modified version of the Autoconf Macro, you may extend this # special exception to the GPL to apply to your modified version as well. AC_DEFUN([AX_COMPILER_VENDOR], [AC_CACHE_CHECK([for _AC_LANG compiler vendor], ax_cv_[]_AC_LANG_ABBREV[]_compiler_vendor, [ax_cv_[]_AC_LANG_ABBREV[]_compiler_vendor=unknown # note: don't check for gcc first since some other compilers define __GNUC__ for ventest in intel:__ICC,__ECC,__INTEL_COMPILER ibm:__xlc__,__xlC__,__IBMC__,__IBMCPP__ pathscale:__PATHCC__,__PATHSCALE__ gnu:__GNUC__ sun:__SUNPRO_C,__SUNPRO_CC hp:__HP_cc,__HP_aCC dec:__DECC,__DECCXX,__DECC_VER,__DECCXX_VER borland:__BORLANDC__,__TURBOC__ comeau:__COMO__ cray:_CRAYC kai:__KCC lcc:__LCC__ metrowerks:__MWERKS__ sgi:__sgi,sgi microsoft:_MSC_VER watcom:__WATCOMC__ portland:__PGI; do vencpp="defined("`echo $ventest | cut -d: -f2 | sed 's/,/) || defined(/g'`")" AC_COMPILE_IFELSE([AC_LANG_PROGRAM(,[ #if !($vencpp) thisisanerror; #endif ])], [ax_cv_]_AC_LANG_ABBREV[_compiler_vendor=`echo $ventest | cut -d: -f1`; break]) done ]) ]) spandsp-0.0.6/config/ax_misaligned_access_fails.m40000664000175000017500000000271411032712471021613 0ustar steveusteveu# AX_MISALIGNED_ACCESS_FAILS(MACHINE, [ACTION-IF-MISALIGNED-FAILS], [ACTION-IF-MISALIGNED-OK]) # ------------------------------------------------------------------------------------- # # Check if a specified machine type cannot handle misaligned data. That is, multi-byte data # types which are not properly aligned in memory fail. Many machines are happy to work with # misaligned data, but slowing down a bit. Other machines just won't tolerate such data. # # This is a simple lookup amongst machines known to the current autotools. So far we only deal # with the ARM and sparc. # A lookup is used, as many of the devices which cannot handled misaligned access are embedded # processors, for which the code normally be cross-compiled. # AC_DEFUN([AX_MISALIGNED_ACCESS_FAILS], [AS_VAR_PUSHDEF([ac_MisalignedAccessFails], [ac_cv_misaligned_access_fails_$1])dnl AC_CACHE_CHECK([if $1 fails on misaligned memory access], ac_MisalignedAccessFails, [case $1 in arc | arm | arm[bl]e | arme[lb] | armv[2345] | armv[345][lb] \ | bfin \ | sparc \ | xscale | xscalee[bl] \ | arm-* | armbe-* | armle-* | armeb-* | armv*-* \ | bfin-* \ | sparc-* \ | xscale-* | xscalee[bl]-* ) AS_VAR_SET(ac_MisalignedAccessFails, yes) ;; *) AS_VAR_SET(ac_MisalignedAccessFails, no) ;; esac]) AS_IF([test AS_VAR_GET(ac_MisalignedAccessFails) = yes], [$2], [$3])[]dnl AS_VAR_POPDEF([ac_MisalignedAccessFails])dnl ])# MISALIGNED_ACCESS_FAILS spandsp-0.0.6/config/depcomp0000755000175000017500000003710011516506031015416 0ustar steveusteveu#! /bin/sh # depcomp - compile a program generating dependencies as side-effects scriptversion=2005-07-09.11 # Copyright (C) 1999, 2000, 2003, 2004, 2005 Free Software Foundation, Inc. # This program 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, or (at your option) # any later version. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # You should have received a copy of the GNU General Public License # along with this program; if not, write to the Free Software # Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA # 02110-1301, USA. # 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 Alexandre Oliva . case $1 in '') echo "$0: No command. Try \`$0 --help' for more information." 1>&2 exit 1; ;; -h | --h*) cat <<\EOF Usage: depcomp [--help] [--version] PROGRAM [ARGS] Run PROGRAMS ARGS to compile a file, generating dependencies as side-effects. Environment variables: depmode Dependency tracking mode. source Source file read by `PROGRAMS ARGS'. object Object file output by `PROGRAMS ARGS'. DEPDIR directory where to store dependencies. depfile Dependency file to output. tmpdepfile Temporary file to use when outputing dependencies. libtool Whether libtool is used (yes/no). Report bugs to . EOF exit $? ;; -v | --v*) echo "depcomp $scriptversion" exit $? ;; esac if test -z "$depmode" || test -z "$source" || test -z "$object"; then echo "depcomp: Variables source, object and depmode must be set" 1>&2 exit 1 fi # Dependencies for sub/bar.o or sub/bar.obj go into sub/.deps/bar.Po. depfile=${depfile-`echo "$object" | sed 's|[^\\/]*$|'${DEPDIR-.deps}'/&|;s|\.\([^.]*\)$|.P\1|;s|Pobj$|Po|'`} tmpdepfile=${tmpdepfile-`echo "$depfile" | sed 's/\.\([^.]*\)$/.T\1/'`} rm -f "$tmpdepfile" # Some modes work just like other modes, but use different flags. We # parameterize here, but still list the modes in the big case below, # to make depend.m4 easier to write. Note that we *cannot* use a case # here, because this file can only contain one case statement. if test "$depmode" = hp; then # HP compiler uses -M and no extra arg. gccflag=-M depmode=gcc fi if test "$depmode" = dashXmstdout; then # This is just like dashmstdout with a different argument. dashmflag=-xM depmode=dashmstdout fi case "$depmode" in gcc3) ## gcc 3 implements dependency tracking that does exactly what ## we want. Yay! Note: for some reason libtool 1.4 doesn't like ## it if -MD -MP comes after the -MF stuff. Hmm. "$@" -MT "$object" -MD -MP -MF "$tmpdepfile" stat=$? if test $stat -eq 0; then : else rm -f "$tmpdepfile" exit $stat fi mv "$tmpdepfile" "$depfile" ;; gcc) ## There are various ways to get dependency output from gcc. Here's ## why we pick this rather obscure method: ## - Don't want to use -MD because we'd like the dependencies to end ## up in a subdir. Having to rename by hand is ugly. ## (We might end up doing this anyway to support other compilers.) ## - The DEPENDENCIES_OUTPUT environment variable makes gcc act like ## -MM, not -M (despite what the docs say). ## - Using -M directly means running the compiler twice (even worse ## than renaming). if test -z "$gccflag"; then gccflag=-MD, fi "$@" -Wp,"$gccflag$tmpdepfile" stat=$? if test $stat -eq 0; then : else rm -f "$tmpdepfile" exit $stat fi rm -f "$depfile" echo "$object : \\" > "$depfile" alpha=ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz ## The second -e expression handles DOS-style file names with drive letters. sed -e 's/^[^:]*: / /' \ -e 's/^['$alpha']:\/[^:]*: / /' < "$tmpdepfile" >> "$depfile" ## This next piece of magic avoids the `deleted header file' problem. ## The problem is that when a header file which appears in a .P file ## is deleted, the dependency causes make to die (because there is ## typically no way to rebuild the header). We avoid this by adding ## dummy dependencies for each header file. Too bad gcc doesn't do ## this for us directly. tr ' ' ' ' < "$tmpdepfile" | ## Some versions of gcc put a space before the `:'. On the theory ## that the space means something, we add a space to the output as ## well. ## Some versions of the HPUX 10.20 sed can't process this invocation ## correctly. Breaking it into two sed invocations is a workaround. sed -e 's/^\\$//' -e '/^$/d' -e '/:$/d' | sed -e 's/$/ :/' >> "$depfile" rm -f "$tmpdepfile" ;; hp) # This case exists only to let depend.m4 do its work. It works by # looking at the text of this script. This case will never be run, # since it is checked for above. exit 1 ;; sgi) if test "$libtool" = yes; then "$@" "-Wp,-MDupdate,$tmpdepfile" else "$@" -MDupdate "$tmpdepfile" fi stat=$? if test $stat -eq 0; then : else rm -f "$tmpdepfile" exit $stat fi rm -f "$depfile" if test -f "$tmpdepfile"; then # yes, the sourcefile depend on other files echo "$object : \\" > "$depfile" # Clip off the initial element (the dependent). Don't try to be # clever and replace this with sed code, as IRIX sed won't handle # lines with more than a fixed number of characters (4096 in # IRIX 6.2 sed, 8192 in IRIX 6.5). We also remove comment lines; # the IRIX cc adds comments like `#:fec' to the end of the # dependency line. tr ' ' ' ' < "$tmpdepfile" \ | sed -e 's/^.*\.o://' -e 's/#.*$//' -e '/^$/ d' | \ tr ' ' ' ' >> $depfile echo >> $depfile # The second pass generates a dummy entry for each header file. tr ' ' ' ' < "$tmpdepfile" \ | sed -e 's/^.*\.o://' -e 's/#.*$//' -e '/^$/ d' -e 's/$/:/' \ >> $depfile else # The sourcefile does not contain any dependencies, so just # store a dummy comment line, to avoid errors with the Makefile # "include basename.Plo" scheme. echo "#dummy" > "$depfile" fi rm -f "$tmpdepfile" ;; aix) # The C for AIX Compiler uses -M and outputs the dependencies # in a .u file. In older versions, this file always lives in the # current directory. Also, the AIX compiler puts `$object:' at the # start of each line; $object doesn't have directory information. # Version 6 uses the directory in both cases. stripped=`echo "$object" | sed 's/\(.*\)\..*$/\1/'` tmpdepfile="$stripped.u" if test "$libtool" = yes; then "$@" -Wc,-M else "$@" -M fi stat=$? if test -f "$tmpdepfile"; then : else stripped=`echo "$stripped" | sed 's,^.*/,,'` tmpdepfile="$stripped.u" fi if test $stat -eq 0; then : else rm -f "$tmpdepfile" exit $stat fi if test -f "$tmpdepfile"; then outname="$stripped.o" # Each line is of the form `foo.o: dependent.h'. # Do two passes, one to just change these to # `$object: dependent.h' and one to simply `dependent.h:'. sed -e "s,^$outname:,$object :," < "$tmpdepfile" > "$depfile" sed -e "s,^$outname: \(.*\)$,\1:," < "$tmpdepfile" >> "$depfile" else # The sourcefile does not contain any dependencies, so just # store a dummy comment line, to avoid errors with the Makefile # "include basename.Plo" scheme. echo "#dummy" > "$depfile" fi rm -f "$tmpdepfile" ;; icc) # Intel's C compiler understands `-MD -MF file'. However on # icc -MD -MF foo.d -c -o sub/foo.o sub/foo.c # ICC 7.0 will fill foo.d with something like # foo.o: sub/foo.c # foo.o: sub/foo.h # which is wrong. We want: # sub/foo.o: sub/foo.c # sub/foo.o: sub/foo.h # sub/foo.c: # sub/foo.h: # ICC 7.1 will output # foo.o: sub/foo.c sub/foo.h # and will wrap long lines using \ : # foo.o: sub/foo.c ... \ # sub/foo.h ... \ # ... "$@" -MD -MF "$tmpdepfile" stat=$? if test $stat -eq 0; then : else rm -f "$tmpdepfile" exit $stat fi rm -f "$depfile" # Each line is of the form `foo.o: dependent.h', # or `foo.o: dep1.h dep2.h \', or ` dep3.h dep4.h \'. # Do two passes, one to just change these to # `$object: dependent.h' and one to simply `dependent.h:'. sed "s,^[^:]*:,$object :," < "$tmpdepfile" > "$depfile" # Some versions of the HPUX 10.20 sed can't process this invocation # correctly. Breaking it into two sed invocations is a workaround. sed 's,^[^:]*: \(.*\)$,\1,;s/^\\$//;/^$/d;/:$/d' < "$tmpdepfile" | sed -e 's/$/ :/' >> "$depfile" rm -f "$tmpdepfile" ;; tru64) # The Tru64 compiler uses -MD to generate dependencies as a side # effect. `cc -MD -o foo.o ...' puts the dependencies into `foo.o.d'. # At least on Alpha/Redhat 6.1, Compaq CCC V6.2-504 seems to put # dependencies in `foo.d' instead, so we check for that too. # Subdirectories are respected. dir=`echo "$object" | sed -e 's|/[^/]*$|/|'` test "x$dir" = "x$object" && dir= base=`echo "$object" | sed -e 's|^.*/||' -e 's/\.o$//' -e 's/\.lo$//'` if test "$libtool" = yes; then # With Tru64 cc, shared objects can also be used to make a # static library. This mecanism is used in libtool 1.4 series to # handle both shared and static libraries in a single compilation. # With libtool 1.4, dependencies were output in $dir.libs/$base.lo.d. # # With libtool 1.5 this exception was removed, and libtool now # generates 2 separate objects for the 2 libraries. These two # compilations output dependencies in in $dir.libs/$base.o.d and # in $dir$base.o.d. We have to check for both files, because # one of the two compilations can be disabled. We should prefer # $dir$base.o.d over $dir.libs/$base.o.d because the latter is # automatically cleaned when .libs/ is deleted, while ignoring # the former would cause a distcleancheck panic. tmpdepfile1=$dir.libs/$base.lo.d # libtool 1.4 tmpdepfile2=$dir$base.o.d # libtool 1.5 tmpdepfile3=$dir.libs/$base.o.d # libtool 1.5 tmpdepfile4=$dir.libs/$base.d # Compaq CCC V6.2-504 "$@" -Wc,-MD else tmpdepfile1=$dir$base.o.d tmpdepfile2=$dir$base.d tmpdepfile3=$dir$base.d tmpdepfile4=$dir$base.d "$@" -MD fi stat=$? if test $stat -eq 0; then : else rm -f "$tmpdepfile1" "$tmpdepfile2" "$tmpdepfile3" "$tmpdepfile4" exit $stat fi for tmpdepfile in "$tmpdepfile1" "$tmpdepfile2" "$tmpdepfile3" "$tmpdepfile4" do test -f "$tmpdepfile" && break done if test -f "$tmpdepfile"; then sed -e "s,^.*\.[a-z]*:,$object:," < "$tmpdepfile" > "$depfile" # That's a tab and a space in the []. sed -e 's,^.*\.[a-z]*:[ ]*,,' -e 's,$,:,' < "$tmpdepfile" >> "$depfile" else echo "#dummy" > "$depfile" fi rm -f "$tmpdepfile" ;; #nosideeffect) # This comment above is used by automake to tell side-effect # dependency tracking mechanisms from slower ones. dashmstdout) # Important note: in order to support this mode, a compiler *must* # always write the preprocessed file to stdout, regardless of -o. "$@" || exit $? # Remove the call to Libtool. if test "$libtool" = yes; then while test $1 != '--mode=compile'; do shift done shift fi # Remove `-o $object'. IFS=" " for arg do case $arg in -o) shift ;; $object) shift ;; *) set fnord "$@" "$arg" shift # fnord shift # $arg ;; esac done test -z "$dashmflag" && dashmflag=-M # Require at least two characters before searching for `:' # in the target name. This is to cope with DOS-style filenames: # a dependency such as `c:/foo/bar' could be seen as target `c' otherwise. "$@" $dashmflag | sed 's:^[ ]*[^: ][^:][^:]*\:[ ]*:'"$object"'\: :' > "$tmpdepfile" rm -f "$depfile" cat < "$tmpdepfile" > "$depfile" tr ' ' ' ' < "$tmpdepfile" | \ ## Some versions of the HPUX 10.20 sed can't process this invocation ## correctly. Breaking it into two sed invocations is a workaround. sed -e 's/^\\$//' -e '/^$/d' -e '/:$/d' | sed -e 's/$/ :/' >> "$depfile" rm -f "$tmpdepfile" ;; dashXmstdout) # This case only exists to satisfy depend.m4. It is never actually # run, as this mode is specially recognized in the preamble. exit 1 ;; makedepend) "$@" || exit $? # Remove any Libtool call if test "$libtool" = yes; then while test $1 != '--mode=compile'; do shift done shift fi # X makedepend shift cleared=no for arg in "$@"; do case $cleared in no) set ""; shift cleared=yes ;; esac case "$arg" in -D*|-I*) set fnord "$@" "$arg"; shift ;; # Strip any option that makedepend may not understand. Remove # the object too, otherwise makedepend will parse it as a source file. -*|$object) ;; *) set fnord "$@" "$arg"; shift ;; esac done obj_suffix="`echo $object | sed 's/^.*\././'`" touch "$tmpdepfile" ${MAKEDEPEND-makedepend} -o"$obj_suffix" -f"$tmpdepfile" "$@" rm -f "$depfile" cat < "$tmpdepfile" > "$depfile" sed '1,2d' "$tmpdepfile" | tr ' ' ' ' | \ ## Some versions of the HPUX 10.20 sed can't process this invocation ## correctly. Breaking it into two sed invocations is a workaround. sed -e 's/^\\$//' -e '/^$/d' -e '/:$/d' | sed -e 's/$/ :/' >> "$depfile" rm -f "$tmpdepfile" "$tmpdepfile".bak ;; cpp) # Important note: in order to support this mode, a compiler *must* # always write the preprocessed file to stdout. "$@" || exit $? # Remove the call to Libtool. if test "$libtool" = yes; then while test $1 != '--mode=compile'; do shift done shift fi # Remove `-o $object'. IFS=" " for arg do case $arg in -o) shift ;; $object) shift ;; *) set fnord "$@" "$arg" shift # fnord shift # $arg ;; esac done "$@" -E | sed -n -e '/^# [0-9][0-9]* "\([^"]*\)".*/ s:: \1 \\:p' \ -e '/^#line [0-9][0-9]* "\([^"]*\)".*/ s:: \1 \\:p' | sed '$ s: \\$::' > "$tmpdepfile" rm -f "$depfile" echo "$object : \\" > "$depfile" cat < "$tmpdepfile" >> "$depfile" sed < "$tmpdepfile" '/^$/d;s/^ //;s/ \\$//;s/$/ :/' >> "$depfile" rm -f "$tmpdepfile" ;; msvisualcpp) # Important note: in order to support this mode, a compiler *must* # always write the preprocessed file to stdout, regardless of -o, # because we must use -o when running libtool. "$@" || exit $? IFS=" " for arg do case "$arg" in "-Gm"|"/Gm"|"-Gi"|"/Gi"|"-ZI"|"/ZI") set fnord "$@" shift shift ;; *) set fnord "$@" "$arg" shift shift ;; esac done "$@" -E | sed -n '/^#line [0-9][0-9]* "\([^"]*\)"/ s::echo "`cygpath -u \\"\1\\"`":p' | sort | uniq > "$tmpdepfile" rm -f "$depfile" echo "$object : \\" > "$depfile" . "$tmpdepfile" | sed 's% %\\ %g' | sed -n '/^\(.*\)$/ s:: \1 \\:p' >> "$depfile" echo " " >> "$depfile" . "$tmpdepfile" | sed 's% %\\ %g' | sed -n '/^\(.*\)$/ s::\1\::p' >> "$depfile" rm -f "$tmpdepfile" ;; none) exec "$@" ;; *) echo "Unknown depmode $depmode" 1>&2 exit 1 ;; esac exit 0 # Local Variables: # mode: shell-script # sh-indentation: 2 # eval: (add-hook 'write-file-hooks 'time-stamp) # time-stamp-start: "scriptversion=" # time-stamp-format: "%:y-%02m-%02d.%02H" # time-stamp-end: "$" # End: spandsp-0.0.6/unpack_gsm0610_data.sh0000775000175000017500000002155511422612261016572 0ustar steveusteveu#!/bin/sh # # SpanDSP - a series of DSP components for telephony # # unpack_gsm0610_data.sh # # This program is free software; you can redistribute it and/or modify # it under the terms of the GNU Lesser General Public License version 2.1, # as published by the Free Software Foundation. # # 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 Lesser General Public # License along with this program; if not, write to the Free Software # Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. # The ETSI distribution file extracts to 5 ZIP files, called DISK1.ZIP to DISK5.ZIP # These were originally the contents of 5 floppy disks. Disks 1 to 3 contain data # files. However, disks 4 and 5 contain .EXE files, which unpack.... but only in an # MS environment. These files need to be executed in a Windows or DOS environment, # or a good emulation like FreeDOS or Wine. ETSIDATA="../../../en_300961v080101p0.zip" cd test-data if [ -d etsi ] then cd etsi else mkdir etsi RETVAL=$? if [ $RETVAL != 0 ] then echo Cannot create test-data/etsi! exit $RETVAL fi cd etsi fi if [ -d gsm0610 ] then cd gsm0610 else mkdir gsm0610 RETVAL=$? if [ $RETVAL != 0 ] then echo Cannot create test-data/etsi/gsm0610! exit $RETVAL fi cd gsm0610 fi if [ $1x == --no-exe-runx ] then # Run the .exe files, which should be here ./FR_A.EXE ./FR_HOM_A.EXE ./FR_SYN_A.EXE ./FR_U.EXE ./FR_HOM_U.EXE ./FR_SYN_U.EXE exit 0 fi # Clear out any leftovers from the past rm -rf ASN.1.txt rm -rf DISK1.ZIP rm -rf DISK2.ZIP rm -rf DISK3.ZIP rm -rf DISK4.ZIP rm -rf DISK5.ZIP rm -rf *.EXE rm -rf READ_FRA.TXT rm -rf ACTION rm -rf unpacked if [ $1x == --no-exex ] then # We need to prepare the .exe files to be run separately rm -rf *.INP rm -rf *.COD rm -rf *.OUT unzip ${ETSIDATA} >/dev/null RETVAL=$? if [ $RETVAL != 0 ] then echo Cannot unpack the ETSI test vectors for GSM 06.10! exit $RETVAL fi unzip ./DISK4.ZIP >/dev/null RETVAL=$? if [ $RETVAL != 0 ] then echo Cannot unpack the ETSI test vectors for GSM 06.10! exit $RETVAL fi unzip ./DISK5.ZIP >/dev/null RETVAL=$? if [ $RETVAL != 0 ] then echo Cannot unpack the ETSI test vectors for GSM 06.10! exit $RETVAL fi rm -rf ASN.1.txt rm -rf DISK1.ZIP rm -rf DISK2.ZIP rm -rf DISK3.ZIP rm -rf DISK4.ZIP rm -rf DISK5.ZIP rm -rf READ_FRA.TXT # An environment which is emulating an MS one will probably need # to make the .EXE files actually executable. chmod 755 *.EXE echo "Now copy the files from the test-data/etsi/gsm0610 directory to a Windows," echo "DOS or other machine which can run .exe files. Run each of the .exe" echo "files (there are 6 of them), and copy the whole directory back here." echo "You can then complete the creation of the working data directories" echo "with the command:" echo $0 "--no-exe-continue" exit 0 fi unzip ${ETSIDATA} >/dev/null RETVAL=$? if [ $RETVAL != 0 ] then echo Cannot unpack the ETSI test vectors for GSM 06.10! exit $RETVAL fi #rm ${ETSIDATA} rm -rf ASN.1.txt if [ $1x != --no-exe-continuex ] then # We need to extract and run the .exe files right now. For this to succeed # we must be running in an environment which can run .exe files. This has been # tested with Cygwin on a Windows XP machine. rm -rf *.INP rm -rf *.COD rm -rf *.OUT unzip ./DISK4.ZIP >/dev/null RETVAL=$? if [ $RETVAL != 0 ] then echo Cannot unpack the ETSI test vectors for GSM 06.10! exit $RETVAL fi unzip ./DISK5.ZIP >/dev/null RETVAL=$? if [ $RETVAL != 0 ] then echo Cannot unpack the ETSI test vectors for GSM 06.10! exit $RETVAL fi # An environment which is emulating an MS one will probably need # to make the .EXE files actually executable. chmod 755 *.EXE ./FR_HOM_A.EXE >/dev/null RETVAL=$? if [ $RETVAL != 0 ] then echo Cannot run ./FR_HOM_A.EXE exit $RETVAL fi ./FR_SYN_A.EXE >/dev/null RETVAL=$? if [ $RETVAL != 0 ] then echo Cannot run ./FR_HOM_A.EXE exit $RETVAL fi ./FR_A.EXE >/dev/null RETVAL=$? if [ $RETVAL != 0 ] then echo Cannot run ./FR_HOM_A.EXE exit $RETVAL fi ./FR_HOM_U.EXE >/dev/null RETVAL=$? if [ $RETVAL != 0 ] then echo Cannot run ./FR_HOM_A.EXE exit $RETVAL fi ./FR_SYN_U.EXE >/dev/null RETVAL=$? if [ $RETVAL != 0 ] then echo Cannot run ./FR_HOM_A.EXE exit $RETVAL fi ./FR_U.EXE >/dev/null RETVAL=$? if [ $RETVAL != 0 ] then echo Cannot run ./FR_HOM_A.EXE exit $RETVAL fi rm -rf READ_FRA.TXT fi rm -rf DISK4.ZIP rm -rf DISK5.ZIP rm -rf *.EXE chmod 644 *.INP chmod 644 *.OUT chmod 644 *.COD # Create the directories where we want to put the test data files. mkdir unpacked mkdir unpacked/fr_A mkdir unpacked/fr_L mkdir unpacked/fr_U mkdir unpacked/fr_homing_A mkdir unpacked/fr_homing_L mkdir unpacked/fr_homing_U mkdir unpacked/fr_sync_A mkdir unpacked/fr_sync_L mkdir unpacked/fr_sync_U # Disks 1, 2 and 3 simply unzip, and the files have sensible file names. We # just need to rearrange the directories in which they are located. unzip ./DISK1.ZIP >/dev/null RETVAL=$? if [ $RETVAL != 0 ] then echo Cannot unpack the ETSI test vectors for GSM 06.10! exit $RETVAL fi unzip ./DISK2.ZIP >/dev/null RETVAL=$? if [ $RETVAL != 0 ] then echo Cannot unpack the ETSI test vectors for GSM 06.10! exit $RETVAL fi unzip ./DISK3.ZIP >/dev/null RETVAL=$? if [ $RETVAL != 0 ] then echo Cannot unpack the ETSI test vectors for GSM 06.10! exit $RETVAL fi rm -rf DISK1.ZIP rm -rf DISK2.ZIP rm -rf DISK3.ZIP mv "./ACTION/SMG#23/HOLD/0610_5~1/TESTSE~1/DISK1/"* ./unpacked/fr_L mv "./ACTION/SMG#23/HOLD/0610_5~1/TESTSE~1/DISK3/"Sync*.cod ./unpacked/fr_sync_L mv "./ACTION/SMG#23/HOLD/0610_5~1/TESTSE~1/DISK2/"Seq*h.* ./unpacked/fr_homing_L mv "./ACTION/SMG#23/HOLD/0610_5~1/TESTSE~1/DISK3/"Seq*h.* ./unpacked/fr_homing_L mv "./ACTION/SMG#23/HOLD/0610_5~1/TESTSE~1/DISK3/Bitsync.inp" ./unpacked/fr_sync_L mv "./ACTION/SMG#23/HOLD/0610_5~1/TESTSE~1/DISK3/Seqsync.inp" ./unpacked/fr_sync_L mv "./ACTION/SMG#23/HOLD/0610_5~1/TESTSE~1/DISK3/Homing01.cod" ./unpacked/fr_homing_L mv "./ACTION/SMG#23/HOLD/0610_5~1/TESTSE~1/DISK3/Homing01.out" ./unpacked/fr_homing_L rm -rf ACTION # The files extracted by the .EXE files have messy naming, and are not in # a sane directory layout. We rename and move them, to make the final result of # the files extracted from all five of the original .ZIP files reasonably # consistent, and easy to follow. rm -rf READ_FRA.TXT for I in SYN*_A.COD ; do mv $I `echo $I | sed -e "s|SYN|./unpacked/fr_sync_A/Sync|" | sed -e "s/COD/cod/"` done for I in SYN*_U.COD ; do mv $I `echo $I | sed -e "s|SYN|./unpacked/fr_sync_U/Sync|" | sed -e "s/COD/cod/"` done for I in SEQ*H_A.COD ; do mv $I `echo $I | sed -e "s|SEQ|./unpacked/fr_homing_A/Seq|" | sed -e "s/COD/cod/"` done for I in SEQ*H_U.COD ; do mv $I `echo $I | sed -e "s|SEQ|./unpacked/fr_homing_U/Seq|" | sed -e "s/COD/cod/"` done for I in SEQ*H_A.INP ; do mv $I `echo $I | sed -e "s|SEQ|./unpacked/fr_homing_A/Seq|" | sed -e "s/INP/inp/"` done for I in SEQ*H_U.INP ; do mv $I `echo $I | sed -e "s|SEQ|./unpacked/fr_homing_U/Seq|" | sed -e "s/INP/inp/"` done for I in SEQ*H_A.OUT ; do mv $I `echo $I | sed -e "s|SEQ|./unpacked/fr_homing_A/Seq|" | sed -e "s/OUT/out/"` done for I in SEQ*H_U.OUT ; do mv $I `echo $I | sed -e "s|SEQ|./unpacked/fr_homing_U/Seq|" | sed -e "s/OUT/out/"` done for I in SEQ*-A.COD ; do mv $I `echo $I | sed -e "s|SEQ|./unpacked/fr_A/Seq|" | sed -e "s/COD/cod/"` done for I in SEQ*-U.COD ; do mv $I `echo $I | sed -e "s|SEQ|./unpacked/fr_U/Seq|" | sed -e "s/COD/cod/"` done for I in SEQ*-A.INP ; do mv $I `echo $I | sed -e "s|SEQ|./unpacked/fr_A/Seq|" | sed -e "s/INP/inp/"` done for I in SEQ*-U.INP ; do mv $I `echo $I | sed -e "s|SEQ|./unpacked/fr_U/Seq|" | sed -e "s/INP/inp/"` done for I in SEQ*-A.OUT ; do mv $I `echo $I | sed -e "s|SEQ|./unpacked/fr_A/Seq|" | sed -e "s/OUT/out/"` done for I in SEQ*-U.OUT ; do mv $I `echo $I | sed -e "s|SEQ|./unpacked/fr_U/Seq|" | sed -e "s/OUT/out/"` done mv HOM01_A.OUT ./unpacked/fr_homing_A/Homing01_A.out mv HOM01_U.OUT ./unpacked/fr_homing_U/Homing01_U.out mv SEQSYN_A.INP ./unpacked/fr_sync_A/Seqsync_A.inp mv SEQSYN_U.INP ./unpacked/fr_sync_U/Seqsync_U.inp echo "The ETSI test vectors for GSM 06.10 should now be correctly laid out in the" echo "gsm0610 directory" spandsp-0.0.6/ChangeLog0000664000175000017500000000533610665410102014353 0ustar steveusteveu07.08.29 - 0.0.4 - Steve Underwood - 06.05.23 - 0.0.3 - Steve Underwood - T.38 now implemented, though it needs further polishing. - G.726 and G.722 now implemented. 04.08.29 - 0.0.2 - Steve Underwood - T.4 no longer uses libtiff for compresion and decompression on the line side (it is still used to handle the TIFF files). Spandsp no longer depends on accessing the "internals" of libtiff. New 1D and 2D compression and decompression code now handles the line side. This should be more robust than using libtiff, and handles the fudging of bad scan lines rather better. - T.30 line turn-around timing corrected. - T.30 DCS header contents corrected. - T.30 provision for V.17 added, as an option. - T.30 now has a statistics interface, for applications to find details about image transfers. - T.30 processing now correctly closes TIFF files are they have been sent. - FAX header line insertion is now supported for transmitted FAXes. - asynchronous serial processing now has a V.14 compatible rate adaption option. - V.8 modem negotiation module added. - OKI ADPCM now supports Dialogic compatible operation at 6k samples/second, as well as 8k samples/second, using its own sample rate converter. - message queuing added to ease things like T.31 handling - incomplete skeleton (still rather nasty, to be honest) T.31 processing. - incomplete skeleton of V.22bis added. There is probably quite a bit to do to get this complete and robust. It probably requires the T.31 processing be expanded to something more like V.250, so it doesn't just handle FAX. - Incomplete V.17 added (there could be an IBM patent related to the TCM part of V.17, but I think it has expired. Don't distribute binaries of spandsp built with V.17 enabled until this is resolved - and the modem is completed, of course :-) ). The current version transmits OK. It receives OK with the long training sequence, but the symbol and carrier syncing isn't good enough for robust receiving with the short training sequence. - A basic BER tester has been added. - The faster modems now have proper shutdown procedures, whether one is defined in the spec. or not. - The modems (except simple FSK) now have APIs to access performance information. - A common GUI (using FLTK) added for the modem tests. - A bit more documentation added. - Some API inconsistencies cleaned up. - The usual bundle of assorted buglet fixes and polishing. 04.04.29 - 0.0.1k - Steve Underwood - The first version which gives solid faxing for a large number of people. spandsp-0.0.6/autogen.sh0000775000175000017500000000776411422612260014612 0ustar steveusteveu#!/usr/bin/env sh # # SpanDSP - a series of DSP components for telephony # # autogen script # # This program is free software; you can redistribute it and/or modify # it under the terms of the GNU Lesser General Public License version 2.1, # as published by the Free Software Foundation. # # 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 Lesser General Public # License along with this program; if not, write to the Free Software # Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. UNAME=`uname` if [ "x$UNAME" = "xFreeBSD" ]; then echo "" echo "" echo "******************************************" echo "*** NOTICE ***" echo "******************************************" echo " " echo "FreeBSD is buggy. Please use this " echo "workaround if you want to bootstrap " echo "on FreeBSD. " echo " " echo "cd /usr/local/share/aclocal19 " echo "ln -s ../aclocal/libtool15.m4 . " echo "ln -s ../aclocal/ltdl15.m4 . " echo " " echo "******************************************" echo "" fi debug () { # Outputs debug statments if DEBUG var is set if [ ! -z "$DEBUG" ]; then echo "DEBUG: $1" fi } version_compare() { # Checks a command is found and the version is high enough PROGRAM=$1 MAJOR=$2 MINOR=$3 MICRO=$4 test -z "$MAJOR" && MAJOR=0 test -z "$MINOR" && MINOR=0 test -z "$MICRO" && MICRO=0 debug "Checking $PROGRAM >= $MAJOR.$MINOR.$MICRO" WHICH_PATH=`whereis which | cut -f2 -d' '` COMMAND=`$WHICH_PATH $PROGRAM` if [ -z $COMMAND ]; then echo "$PROGRAM-$MAJOR.$MINOR.$MICRO is required and was not found." return 1 else debug "Found $COMMAND" fi INS_VER=`$COMMAND --version | head -1 | sed 's/[^0-9]*//' | cut -d' ' -f1` INS_MAJOR=`echo $INS_VER | cut -d. -f1 | sed s/[a-zA-Z\-].*//g` INS_MINOR=`echo $INS_VER | cut -d. -f2 | sed s/[a-zA-Z\-].*//g` INS_MICRO=`echo $INS_VER | cut -d. -f3 | sed s/[a-zA-Z\-].*//g` test -z "$INS_MAJOR" && INS_MAJOR=0 test -z "$INS_MINOR" && INS_MINOR=0 test -z "$INS_MICRO" && INS_MICRO=0 debug "Installed version: $INS_VER" if [ "$INS_MAJOR" -gt "$MAJOR" ]; then debug "MAJOR: $INS_MAJOR > $MAJOR" return 0 elif [ "$INS_MAJOR" -eq "$MAJOR" ]; then debug "MAJOR: $INS_MAJOR = $MAJOR" if [ "$INS_MINOR" -gt "$MINOR" ]; then debug "MINOR: $INS_MINOR > $MINOR" return 0 elif [ "$INS_MINOR" -eq "$MINOR" ]; then if [ "$INS_MICRO" -ge "$MICRO" ]; then debug "MICRO: $INS_MICRO >= $MICRO" return 0 else debug "MICRO: $INS_MICRO < $MICRO" fi else debug "MINOR: $INS_MINOR < $MINOR" fi else debug "MAJOR: $INS_MAJOR < $MAJOR" fi echo "You have the wrong version of $PROGRAM. The minimum required version is $MAJOR.$MINOR.$MICRO" echo " and the version installed is $INS_MAJOR.$INS_MINOR.$INS_MICRO ($COMMAND)." return 1 } # Check for required version and die if unhappy if [ "x$UNAME" = "xFreeBSD" ]; then version_compare libtoolize 1 5 16 || exit 1 version_compare automake19 1 9 5 || exit 1 version_compare autoconf259 2 59 || exit 1 ACLOCAL=aclocal19 AUTOHEADER=autoheader259 AUTOMAKE=automake19 AUTOCONF=autoconf259 else version_compare libtoolize 1 5 16 || exit 1 version_compare automake 1 9 5 || exit 1 version_compare autoconf 2 59 || exit 1 ACLOCAL=aclocal AUTOHEADER=autoheader AUTOMAKE=automake AUTOCONF=autoconf fi libtoolize --copy --force --ltdl #NetBSD seems to need this file writable chmod u+w libltdl/configure $ACLOCAL $AUTOHEADER --force $AUTOMAKE --copy --add-missing $AUTOCONF --force #chmod ug+x debian/rules if [ "x$UNAME" = "xNetBSD" ]; then echo "" echo "Please remember to run gmake instead of make on NetBSD" echo "" fi spandsp-0.0.6/unpack_g726_data.sh0000775000175000017500000000303511422612260016152 0ustar steveusteveu#!/bin/sh # # SpanDSP - a series of DSP components for telephony # # unpack_g726_data.sh # # This program is free software; you can redistribute it and/or modify # it under the terms of the GNU Lesser General Public License version 2.1, # as published by the Free Software Foundation. # # 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 Lesser General Public # License along with this program; if not, write to the Free Software # Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. ITUDATA="../../../T-REC-G.726-199103-I!AppII!SOFT-ZST-E.zip" cd test-data/itu if [ -d g726 ] then cd g726 else mkdir g726 RETVAL=$? if [ $RETVAL != 0 ] then echo Cannot create test-data/itu/g726! exit $RETVAL fi cd g726 fi rm -rf DISK1 rm -rf DISK2 rm -rf G726piiE.WW7.doc rm -rf Software.zip unzip ${ITUDATA} >/dev/null RETVAL=$? if [ $RETVAL != 0 ] then echo Cannot unpack the ITU test vectors for G.726! exit $RETVAL fi #rm $(ITUDATA} rm G726piiE.WW7.doc unzip Software.zip >/dev/null RETVAL=$? if [ $RETVAL != 0 ] then echo Cannot unpack the ITU test vectors for G.726! exit $RETVAL fi rm Software.zip mv ./software/G726ap2/G726ap2e/DISK1 . mv ./software/G726ap2/G726ap2e/DISK2 . rm -rf ./software echo The ITU test vectors for G.726 should now be in the g726 directory spandsp-0.0.6/doc/0000775000175000017500000000000011516506111013341 5ustar steveusteveuspandsp-0.0.6/doc/t38_manual.xml0000664000175000017500000010641311422612261016043 0ustar steveusteveu 2007-11-14 T.38 protocol (FoIP) support User manual documentation in progress Steve Underwood
steveu@coppice.org
2007 Steve Underwood This document can be freely redistributed according to the terms of the GNU General Public License. The T.38 real-time FAX over IP (FoIP) protocol There are two ITU recommendations which address sending FAXes over IP networks. T.37 specifies a method of encapsulating FAX images in e-mails, and transporting them to the recipient (an e-mail box, or another FAX machine) in a store-and-forward manner. T.38 specifies a protocol for transmitting a FAX across an IP network in real time. This document discusses the implementation of the T.38, real time, FAX over IP (FoIP) protocol. FAXing between two PSTN FAX machines provides the illusion of real-time communication, with confirmed delivery. This is, of course, no more than an illusion. The sender has no idea what is receiving the FAX. It might be a FAX mailbox, where the FAX might only be retrieved much later, or might never be retrieved at all. It might be a FAX machine which is out of paper, and is storing the FAX in memory. If nobody adds paper before the FAX machine is switched off, the FAX might never be printed. With increasing amounts of FAX spam, many people don't ever bother to collect FAXes from the FAX machine in their office. Still, with all these reasons why the real-time confirmed delivery nature of FAXing is an illusion, large numbers of people still insist on using direct FAXing. The FAX protocols - in particular T.30 - were designed for the PSTN. The PSTN is very different from a packet network like the Internet. It offers very strict timing; latency is rock steady throughout a call; and latency is seldom very high. The lack of these features in packet networks tends to spoil the quality of voice over IP, compared to voice over the PSTN. However, it can totally destroy modem data, like that used for FAX. Jitter and packet loss can cause modem reception to fail, and excessive delays can cause timers designed for a low latency environment to expire. T.38 tries to mitigate these factors, and can greatly improve the reliability of FAXing across the internet. It can also send FAXes using less bandwidth than using VoIP protocols. There are limits to what can be achieved on a congested network, though, and T.38 can never offer the reliability of a store and forward protocol, like T.37. Sadly, the average office worker's love affair with real-time FAX ensures a bright future for the T.38 protocol, even though the T.37 protocol makes far more sense. The T.38 protocol primarily operates between: Internet-aware FAX terminals, which connect directly to an IP network. FAX gateways, which allow traditional PSTN FAX terminals to communicate via the Internet. A combination of these. T.38 is the only standardised protocol which exists for real-time FoIP. Reliably transporting a FAX between PSTN FAX terminals, through an IP network, requires use of the T.38 protocol at FAX gateways. VoIP connections are not robust for modem use, including FAX modem use. Most use low bit rate codecs, which cannot convey the modem signals accurately. Even when high bit rate codecs, such as G.711, are used, VoIP connections suffer dropouts and timing adjustments, which modems cannot tolerate. In a LAN environment the dropout rate may be very low, but the timing adjustments which occur in VoIP connections still make modem operation unreliable. T.38 FAX gateways deal with the delays, timing jitter, and packet loss experienced in packet networks, and isolate the PSTN FAX terminals from these as far as possible. In addition, by sending FAXes as image data, rather than digitised audio, the required bandwidth of the IP network might be reduced. However, the redundant transmission needed to make T.38 work acceptably over an unreliable network tends to offset much of the potential bandwidth gain. The original T.38 specification provides for operation up to 14,400bps, using a V.17 modem. The latest version of the T.38 specification adds features for FAXing at up to 33,600bps, using a V.34 modem. However, it appears most current T.38 implementations only support operation up to 14,400bps. The basics of a T.38 entity The T.38 protocol may be used to build an Internet-aware FAX terminal, for direct connection to the Internet. It may also be used to build gateways. A T.38 FAX gateway might be a gateway between the PSTN and the Internet. It might just be an a ATA box acting as a gateway between a directly connected traditional FAX machine and the Internet. The T.38 protocol merely defines what passes between two T.38 entities. Creating a robust entity, able to tolerate the widest possible variation in network delays, jitter and packet loss, requires considerably more than just implementing what is contained in the T.38 spec. Also, the protocol definition is somewhat loose, resulting is considerable variability in the way the protocol is implemented. Considerable flexibility is required in a T.38 entity's design, to tolerate these variations. T.38 currently works over one of the following transports: TCP, with TPKT message framing - the use of TPKT was originally specified in a vague way, and implementations without TPKT framing apparently exist. UDPTL - A UDP based protocol used nowhere else. This is the most common transport for T.38. RTP - Added quite late to the T.38 specification, and still not widely supported. TCP is the ideal way to communicate between two entities on an IP network, which do not have real-time constraints. The entities can talk as fast as they and the medium between them permit, with full error control. Internet-aware FAX devices would, therefore, usually use TCP as the transport for T.38. Gateways have only limited control of the timing of the FAX data passing through them. They have to operate in real-time, at a rate outside their control. Gateways, therefore, usually use UDPTL. The RTP option was only added to the T.38 specification in 2004, and is not yet widely supported. Over time it may become the preferred replacement for UDPTL, since most entities handle more than just FAX, and need to implement RTP anyway. A TCP stream is fully corrected by the TCP protocol itself. However, in the UDPTL or RTP modes of operation, T.38 is subject to possible packet loss. A high level of missing data would defeat the protocol, so some measure of FEC (forward error correction) must be used. The UDPTL specification defines two optional forms of FEC. Both consist of adding information from previous packets to new packets. In one form this repeated data is send as a direct copy of the original. In the other it is sent as parity information, which requires encoding and decoding. The specifications for RTP include definitions of suitable FEC and redundancy protocols (RFC2198 and RFC2733). The T.38 specification says these should be used for T.38 over RTP. Interestingly, even the latest revision of the T.38 specification does not provide properly for security in FAX transmission. SRTP is a standard way to achieve secure multi-media communication, and can be applied to T.38 over RTP without any specific wording on the subject in the T.38 specification. UDPTL might be seen as obsolete in the long term, and not worthy of enhancements to encrypt the data. However, no secure option for T.38 over TCP is defined. TPKT could be sent over TLS/TCP. TLS also has message framing features which would allow IFP packets to be sent directly over a TLS protected connection. However, there is no specified way to do this. Although redundant information in future packets is an important part of a solid T.38 implementation, it is not a complete solution to problem of lost packets. Sometimes the next packet occurs after a considerable delay (e.g. when allowing time for a fast modem to train). If a "start training" message is only received through the redundant information in a following packet, it usually arrives too late to be useful (at least for a gateway). Most T.38 implementations now follow a practice of sending several exact copies of key packets - generally the ones which start or end the stages of the T.30 protocol. Typically up to 4 identical copies of these packets are sent down the wire. The may be sent in a burst, as fast as possible, or they may be spaced in time by 10ms or 20ms. IP network congestion, and the resulting packet loss, can be very bursty. If all copies are sent together, they might all be lost. Even a small amount of spreading in time may significantly increase the likelihood of at least one copy reaching its destination. The price is some delay in delivery of the message, which might be problematic. Multiple copies of these packets add little to the overall volume of data transmitted, as only a small percentage of packets fall in this "key packet" category. Some T.38 implementations follow a less effective practice of sending multiple key packets, which have separate sequence numbers and are separately bundled with redundant information for transmission. They may also be spaced in time. Although this seems a less effective strategy, a T.38 entity must expect to receive packets streams of this kind, and tolerate them. Between the high priority key packets, and the low priority packets for the image data (the loss of which might just cause a streak on an image, or be corrected by ECM FAXing), lies the V.21 HDLC control messages. Some T.38 implementations dynamically adjust the amount of redundant information in packets, so these control messages are repeated through several packets, but the large image data packets are repeated less, or not at all. Used with care, this dynamic redundancy strategy can nicely balance data volume and reliability. A T.38 terminal has a lot more flexibility in how it can deal with problem data than a T.38 gateway. The terminal has no tight timing constraints governing how it behaves with regard to received data. It can wait a considerable period for delayed packets to arrive. The gateway is a man-in-the-middle, and must live with the timing constraints that imposes. This means a T.38 gateway has a rather more difficult design than a terminal. The core elements of a T.38 implementation There are many differences between the behaviour of a T.38 terminal and a T.38 gateway. However, some functions are common to both types of T.38 entity, particular in the IP network interface. The T.38 Internet Fascimile Protocol (IFP) packetiser The T.38 specification defines an ASN.1 schema for the messages which pass between T.38 entities. These messages are called IFP (Internet Fascimile Protocol) messages. Their format is independent of the transport used to carry them. However, there are currently two slightly different versions of the ASN.1 schema. This is due to a typo in the original version of the T.38 specification. The protocol negotiation which occurs just before T.38 communication resolves which version will be used. Although the typo was corrected several years ago, it is still very more common to find implementations which only support the original buggy version. The UDPTL, RTP, TPKT packetiser A second level packetiser bundles the IFP packets for transmission. This functions in different ways, depending on the type of transport in use. For the unreliable transports (UDPTL and RTP) the packetiser adds forward error correction (FEC) information to the packets. This can greatly inprove the reliability of the T.38 protocol, at the expense of higher bandwidth. The amount of error correction information added to the packets is implementation dependant. For UDPTL, two forms of FEC are defined. One simply repeats older T.38 packets as FEC information in the current UDPTL packet. The other generates parity packets over a series of T.38 packets, and includes that parity information in the current UDPTL packet. The type of FEC to be used is negotiated just before T.38 communication begins. The RTP specifications (RFC3550, RFC3551, RFC2198, RFC2733) define common redundancy and FEC formats, to be used for any payload. Where T.38 packets are carried by RTP, the standard RTP FEC mechanisms are used. TPKT (RFC1006, RFC2126) encapsulation works over a TCP transport. TCP provides full error correction, though retries may slow it considerably. TPKT encapsulation merely provides the ability to delineate the start and end of the IFP packets in the structureless TCP stream. The elements of a T.38 terminal The elements of a T.38 gateway The HDLC decoder If the HDLC decoder in a T.38 gateway worked in whole frames, it would introduce unacceptable latency. Instead, the HDLC decoder must work progressively through the HDLC frames, outputing its results octet by octet. The T.38 message stream does not contain HDLC preamble, though it usually contains an indication that preamble is in progress. It does not contain the CRC octets, but simply an indication of whether the CRC is good or bad. The HDLC decoder provides an indication when preamble is being received, and checks the CRC octets at the end of frames to provide the good or bad indication. The decoder makes the frames available, octet by octet, to the T.38 engine for status tracking and possible modification. Tracking and modification imposes a few octets delay, but the goal is to keep this to the minimum possible. Whether the frames are modified or unmodified, good or bad they are always passed on, to maintain the appropriate timing flow for the T.30 protocol. An interesting aspect of the timing flow of V.21 HDLC messages on the T.38 path relates to the size of the CRC. The usual practice for sending these frames is to send one octet in each message, with the messages spaced by the duration of one octet. They will normally be sent with the minimum possible delay. The CRC at the end of each frame is two octets long, and only an indication of good or bad is sent in the T.38 messages. It takes two octet times to know if the CRC is OK or not, typically causing the flow of T.38 messages to stutter by the duration of an octet. Since flow control within a frame is not possible when frames are replayed by a remote T.38 gateway, that gateway must allow for this inevitable stutter as it prepares to begin playout of the frame. T.30 message analysis and manipulation The T.30 message analyser in a T.38 gateway performs the following functions: It passes NSS, NSF and NSC frames, but modifies their contents. A receiving FAX machine must be prevented from acting upon these messages in a manufacturer specific manner. The T.38 protocol is incapable of handling such manufacturer specific things. However, simply dropping these packets would upset the timing of the T.30 protocol. Instead, most T.38 implementations modify the country and manufacturer codes nesr the start of these messages, so the messages will be ignored by any receiver. They are typically set to 0x00, 0x55, 0xAA or 0xFF. Some implementations set them to the country and manufacturer code of the T.38 implementor. As long as they are set to something the receiver will not recognise, problems are avoided. To avoid removing useful information, the original country and manufacturer code bytes might be reinserted in a different part of the modified NSF message, provided space permits. It tracks the contents of the DCS messages. During flow control of non-ECM data, the minimum row length must be preserved, so the current minimum must be found from the DCS messages. Similarly, the current encoding must be known to apply non-ECM flow control correctly. ECM data must be flow controlled in a completely different way than non-ECM data, so ECM mode information must be found from the DCS messages. It may optionally modify the minimum row length in the DIS messages. Because flow control will be applied to non-ECM data, it can make sense to tell the sending FAX machine it has no need to impose a minimum row length, and let the emitting T.38 entity impose the minimum as part of its flow control operation. It passes on the stripped and modified HDLC frames, with the minimum possible delay. This implies that is must analyse and modify the messages octet by octet. The HDLC rate adapting encoder The HDLC data rate adapting encoder accepts a T.30 message stream as input. The V.21 HDLC messages generally arriving byte by byte, in separate T.38 messages. ECM HDLC messages usually arrive in larger chunks, but they are still generally fragmented. The rate adapter dynamically buffers the T.30 data, generates preamble, and adjusts its length if the incoming message data is falling behind. It may insert additional flag octets between frames, as a flow control mechanism. However, the HDLC protocol is synchronous, so the adapter cannot perform any flow control within a frame. It must, therefore, buffer enough octets of a frame to provide reasonable jitter tolerance, before it emits the first octet of that frame. If the arriving messages fall too far behind mid-frame, there will be corruption of the outgoing stream. In the case of ECM image data frames, the frames are fast enough, that buffering whole frames is quite proactical within the T.30 timing constraints. This ensures mid-frame underflow can never occur. TCF (training confirmation) and non-ECM image data rate adaption Non-ECM image data rate adaption deals with exchanging TCF data, and non-ECM image data using T.4 1-D or 2-D compression. Non-ECM image data is typically padded with zero bits at the end of each pixel row. This is used to avoid rows arriving at the receiving FAX machine faster than the mechanical paper handling can process them. It is also used by sending FAX machines for flow control, when their paper handling falls behind. The minimum duration of a row is negotiated between the FAX machines, before image transfer commences. TCF data is a continuous stream of zero bits. It may, optionally, be preceeded by a continuous block of one bits. So, when transferring TCF data between the T.38 entities, flow control is simply a matter of repeating the last received bit when the late arrival of TCF data packets causes underflow at an emitting gateway. T.38 entities may negotiate to generate and check TCF data locally, and not exchange it. Generally, this is only used when TCP/TPKT is used as the transport for the T.38 messages. A TCF checker and a TCF generator are needed by a T.38 gateway supporting this option. Some T.38 entities are capable of negotiating the removal of end of row padding bits in the data passing between the T.38 entities. This may reduce the amount of data significantly, for some types of image. If negotiated, most or all surplus zero bits are stripped from the image bit stream, at the sending T.38 entity. If a T.38 gateway is receiving such stripped data, it may need to reimpose a minimum row time, by inserting zeros, as part of its non-ECM rate adaption process. By checking the contents of the DCS messages, it can determine what this minimum should be. Only two types of image compression are used for non-ECM transmission - T.4 1-D and 2-D. The end of line (EOL) marker for both these is 11 zero bits, followed by a one bit. In 2-D mode, an additional one or zero bit follows, which defines the mode of the next row. It turns out that the maximum number of valid consecutive zeros which could preceed the 11 zeros of an EOL is 3. In a valid image there are no longer runs of zeros than at an EOL, and the maximum there is 14. Therefore, if the padding stripper reduces all runs of zeros longer than 14 to just 14, it will strip most of the padding with very simple logic. Simple logic is a good thing in this case. It not only avoids the need to fully analyse the image data, it also minimises problems when there are bit errors in the image data stream. For image data sent without error correction (T.4 1-D or 2-D) there may be underflow at the outgoing gateway, if image data packets arrive too late. To deal with slow mechanical paper handling in FAX machines, the T.30 specification includes an end of pixel row padding scheme for non-error corrected image data. The receiving machine may request a minimum row duration. The sending machine is required to impose that minimum, but can arbitrarily make it much longer to meet its own paper handling needs, sending padding bits as appropriate. This mechanism provides a robust basis for flow control in a T.38 gateway. If the outgoing gateway only starts sending a pixel row when it has the entire row in its buffer, it can safely idle, sending padding bits, at any row end it needs to. Only the 6 EOL markers, which terminate an image, must be protected from this kind of flow control. Those markers are defined as being consecutive, with no zero bit padding separating them. When ECM is used (usually with T.6 image data) the image is packetised in HDLC frames. In this case rate adaption is handled in a similar manner to the V.21 HDLC packets. Testing an implementation of T.38 The T.38 specification does not define any specific compliance tests which an implementation must pass. It is not supplied with any test vectors. Commetrex is a supplier of T.38 implementations, who have taken it upon themselves to define a set of tests, and create a lab for T.38 interoperability testing. This seems the closest thing to an industry standard for T.38 testing which exists at this time, and is much to their credit. Commetrex have defined 16 tests which an implementation T.38 undergoes in their lab. These are described on the Commetrex web site as: Commetrex T.38 tests Test # Direction Transport Image file Error correction Data rate mgt Image encoding Polling 1originateUDPccitt2p.tifredundancy 0method 2MRno 2originateUDP100page.tifredundancy 0method 2MRno 3originateTCPccitt2p.tifredundancy 0method 1MRno 4originateUDPccitt2p.tifredundancy 3method 2MRno 5originateTCPccitt2p.tifFEC 2 from 3 spanmethod 2MRno 6originateUDPdither1d.tifredundancy 3method 2MRno 7originateUDPccitt2p.tifredundancy 3method 2ECMno 8originate & poll to rxUDPccitt2p.tifredundancy 3method 2MRpolled rx 9answerUDPccitt2p.tifredundancy 0method 2MRno 10answerUDP100page.tifredundancy 0method 2MRno 11answerTCPccitt2p.tifredundancy 0method 1MRno 12answerUDPccitt2p.tifredundancy 3method 2MRno 13answerTCPccitt2p.tifFEC 2 from 3 spanmethod 2MRno 14answerUDPdither1d.tifredundancy 3method 2MRno 15answerUDPccitt2p.tifredundancy 3method 2ECMno 16answer & polled to txUDPccitt2p.tifredundancy 3method 2MRpolled tx
The file dither1d.tif is a whole page of dense checkerboard pattern, which does not compress, and produces a kind of torture test page. It is about 2M bytes. 100page.tif is exactly what it says - a file with 100 pages of FAX images. The content of the pages does not seem to be specified by Commetrex. The ITU T.30 test images, repeated sufficiently, seems a good basis for this test. ccitt2p.tif appears to be page 2 of the ITU test images. The tests are heavily biased towards non-ECM operation with MR coding. No other coding appears to be used, and only 2 tests use error corrected (ECM) FAXing. Some of the Commetrex tests seem strange. Why is TCP transmission tested with FEC or redundancy? These things are only needed to overcome to lack of reliability in a UDP path. Living with real world T.38 entities. The T.38 specification leaves a number of grey areas, and many things can be implemented in several ways. It might, therefore, be expected that interoperability will not always run smoothly. Whilst some design decisions are reasonable subjects for discussion, it is quite common to find T.38 implementations doing things which are simply wrong. Non-ECM data ending immediately after the six EOLs denoting the end of a page causes corruption From the T.38 specification, a T.38 entity sending non-ECM image data should be able to end the image data, with t4-non-ecm-sig-end, at the last bit of the six consecutive EOLs which denote the end of a page. However, this offers poor compatibility with some implementations of T.38. They will drop their carrier signal prematurely, and the last few rows of the image will be corrupted at the receiver. This can happen regardless of whether the t4-non-ecm-sig-end is followed by a no-signal message, and regardless of the timing of that no-signal message. Padding with zero bytes for 40ms or more after the six EOLs seems to prevent this, and results in an image which exactly matches the one at the source. Expect mixups between non-ECM and ECM image modes. The TCF data should always be sent as non-ECM image data, whether the images which follow it are sent as non-ECM or ECM data. However, some broken implementations of T.38 (e.g. Mediatrix) may send an hdlc-sig-end message to terminate the TCF data. To be as tolerant as possible, it is probably wise to accept hdlc-sig-end or t4-non-ecm-sig-end, regardless of which kind of data it is really terminating. Expect some very poor timing decisions in various designs. The preamble for V.21 HDLC data is specified as being 1s ±15%. This should mean 850ms of preamble is within spec, and many modern FAX machines only send that much. A number of T.38 implementations choke on this. They require at least 1s between the v21-preamble message and the first HDLC data, for reliable operation. This is very poor design. Even if there is 1s between these events at the source, jitter on the network can make them arrive less than 1s apart. It appears the best a tolerant implementation can really do is impose a 1s minimum between sending these T.38 messages, and accept that things might still go wrong when there is some jitter. There is similar intolerance with the timing of the start of training messages for the fast image data modems. Most implementations do not impose a minimum which is above that permitted by the T.30 specification. Some do, however, make no allowance for network jitter reducing the interval at the receiver. You should expect the far end to be using TEP, when sizing the required delay between the start of training, and the first data. Also, for ECM data, make sure the delay allows for the specified minimum 200ms of preamble. Which kinds of error correction to use. T.38 defines two kinds of error correction for UDPTL streams. One inserts redundant copies of older IFP packets in each UDPTL packet. The other uses a more complex parity FEC scheme, based on XOR'ed data inserted in each UDPTL packet. Although each UDPTL packet identifies the type of error correction it contains, the original T.38 spec. did not offer any form of negotiation about the type to be used. The SIP and MGCP SDP for T.38 now includes preferred error correction type information, so some measure of negotiation is possible before the flow of UDPTL packets begins. It appears all T.38 implementations are happy to receive packets with redundant secondary content. However, it seems not all implementations will actually recover anything when there are missing UDPTL packets. It appears not all T.38 implementations are happy to receive packets with parity FEC data. Unless the SDP data from the far end explicitly says they support the parity FEC scheme, it is better to send only redundant information. A good implementation should be prepared to accept either kind of data, even intermixed, regardless of anything in the SDP negotiation. In the real world, whatever you ask for in your SDP data, you will probably receive secondary IFP packet redundancy from the far end. It is the only thing most implementations support, and with real world packet loss it may perform just as well as the more complex parity FEC scheme. When the first few UDPTL packets are sent, there will be no historical information to send as redundant secondary IFP packets, or parity FEC data. When using the redundant secondary packet scheme this is handled transparently. Each UDPTL packet says the number of redundant secondary IFP packets it contains. This can simply be set to zero for the first UDPTL packet, one for the second, up to the amount of redundancy which has been configured. All implementations seem to work in this way. When parity FEC is being used, the startup arrangement is less clear. While some implementations simply insert zeros for the non-existant packets before the start, others send a few packets with redundant secondary IFP packets, until they are able to insert the required amount of FEC data. Dealing with intermixed types of error correction makes a receiving implementation of UDPTL messier and slower, but is necessary for compatibility. What really ends the data? It should be correct to send some image data, and end with the image data signal end message. However, some T.38 implementations misbehave when this is all that is sent. Immediately following the signal end message with a no-signal indicator message seems to greatly improve compatibility with some T.38 implementations. T.38 defines hdlc-fcs-OK, hdlc-fcs-OK-sig-end, hdlc-sig-end, and no-signal messages. Always end periods of HDLC transmission with either a hdlc-fcs-OK, hdlc-sig-end, no-signal sequence or a hdlc-fcs-OK-sig-end, no-signal sequence. Do not send hdlc-sig-end after hdlc-fcs-OK-sig-end. A number of T.38 implementations choke on this sequence, even though it looks fairly harmless. Normal use versus testing The design of some T.38 implementations precludes some reasonable tests from succeeding, due to design features which may have been implemented for sane reasons. This means each test failure needs to be investigated in detail, to see if it represents something genuinely bad in an implementation of T.38. For example, the 2M byte torture test page in the Commetrex test suite will not successfully pass through some T.38 implementations, because of a timeout they impose. For example, some ATAs based on Audiocodes silicon have been seen to stop any continuous period of modem transmission after about 90s. This appears to be a backstop timeout, to prevent troublesome implementations jamming the gateway. Legitimate pages just don't take that long, and the timeout is reasonable. However, the 2M byte test page takes up to 20 minutes to transmit, and will always fail on these boxes. spandsp-0.0.6/doc/wrapper.xsl0000664000175000017500000000040310724452433015555 0ustar steveusteveu css.css spandsp-0.0.6/doc/t38_manual/0000775000175000017500000000000011516506111015314 5ustar steveusteveuspandsp-0.0.6/doc/t38_manual/css.css0000664000175000017500000002330010724452433016623 0ustar steveusteveubody { background-image: url("../images/weave.jpg"); font-family: Verdana, Arial, Helvetica, Sans-serif; color: black; margin-right: 20px; margin-left: 20px; } h1 { text-align: center; } h2 { font-family: Verdana, Arial, Helvetica, Sans-serif; border-color: #c00000; color : black; margin-top: 0.8em; border-style: solid; border-width: 0px 0px 3px 0.5em; line-height : 130%; } h3 { font-family: Verdana, Arial, Helvetica, Sans-serif; border-color: #f02020; color : black; border-width: 0px 0px 2px 0.5em; border-style: solid; margin-right: 20%; line-height : 130%; } caption { font-weight: bold } a.qindex {} a.qindexRef {} a.el { text-decoration: none; font-weight: bold } a.elRef { font-weight: bold } a.code { text-decoration: none; font-weight: normal; color: #4444ee } a.codeRef { font-weight: normal; color: #4444ee } a:hover { text-decoration: none; background-color: #f2f2ff } dl.el { margin-left: -1cm } div.fragment { width: 100%; border: none; background-color: #eeeeee } div.ah { background-color: black; font-weight: bold; color: #ffffff; margin-bottom: 3px; margin-top: 3px } td { font-family: Verdana, Arial, Helvetica, Sans-serif; font-weight: bold; } .navheader { font-family: Verdana, Arial, Helvetica, Sans-serif; background-color: #B2B2ff; font-weight: bold; } .navfooter { font-family: Verdana, Arial, Helvetica, Sans-serif; background-color: #B2B2ff; font-weight: bold; } table.menu { background-color: #000066; font-weight: bold; text-align: center; width: 100%; } tr.menu { background-color: #ccffff; font-weight: bold; text-align: center; } td.menu { background-color: #f2e0d0; font-weight: bold; text-align: center; } td.md { background-color: #f2f2ff; font-weight: bold; } td.mdname1 { background-color: #f2f2ff; font-weight: bold; color: #602020; } td.mdname { background-color: #f2f2ff; font-weight: bold; color: #602020; width: 600px; } div.groupHeader { margin-left: 16px; margin-top: 12px; margin-bottom: 6px; font-weight: bold } div.groupText { margin-left: 16px; font-style: italic; font-size: smaller } td.indexkey { font-family: Verdana, Arial, Helvetica, Sans-serif; background-color: #eeeeff; font-weight: bold; padding-right : 10px; padding-top : 2px; padding-left : 10px; padding-bottom : 2px; margin-left : 0px; margin-right : 0px; margin-top : 2px; margin-bottom : 2px } td.indexvalue { font-family: Verdana, Arial, Helvetica, Sans-serif; background-color: #eeeeff; font-style: italic; padding-right : 10px; padding-top : 2px; padding-left : 10px; padding-bottom : 2px; margin-left : 0px; margin-right : 0px; margin-top : 2px; margin-bottom : 2px } span.keyword { color: #008000 } span.keywordtype { color: #604020 } span.keywordflow { color: #e08000 } span.comment { color: #800000 } span.preprocessor { color: #806020 } span.stringliteral { color: #002080 } span.charliteral { color: #008080 } em { color: #990000; background-color: transparent; } h1,h2,h3,h4,h5,h6,p,center,td,th,ul,dl,div { font-family: Geneva, Arial, Helvetica, sans-serif; } body,td { font-size: 90%; } h1 { text-align: center; font-size: 160%; } h2 { font-size: 120%; } h3 { font-size: 100%; } caption { font-weight: bold } div.qindex { width: 100%; background-color: #eeeeff; border: 1px solid #b0b0b0; text-align: center; margin: 2px; padding: 2px; line-height: 140%; } div.nav { width: 100%; background-color: #eeeeff; border: 1px solid #b0b0b0; text-align: center; margin: 2px; padding: 2px; line-height: 140%; } div.navtab { background-color: #eeeeff; border: 1px solid #b0b0b0; text-align: center; margin: 2px; margin-right: 15px; padding: 2px; } td.navtab { font-size: 70%; } a.qindex { text-decoration: none; font-weight: bold; color: #1a419d; } a.qindex:visited { text-decoration: none; font-weight: bold; color: #1a419d } a.qindex:hover { text-decoration: none; background-color: #ddddff; } a.qindexHL { text-decoration: none; font-weight: bold; background-color: #6666cc; color: #ffffff; border: 1px double #9295C2; } a.qindexHL:hover { text-decoration: none; background-color: #6666cc; color: #ffffff; } a.qindexHL:visited { text-decoration: none; background-color: #6666cc; color: #ffffff } a.el { text-decoration: none; font-weight: bold } a.elRef { font-weight: bold } a.code:link { text-decoration: none; font-weight: normal; color: #0000FF } a.code:visited { text-decoration: none; font-weight: normal; color: #0000FF } a.codeRef:link { font-weight: normal; color: #0000FF } a.codeRef:visited { font-weight: normal; color: #0000FF } a:hover { text-decoration: none; background-color: #f2f2ff } dl.el { margin-left: -1cm } .fragment { font-family: Fixed, monospace; font-size: 95%; } pre.fragment { border: 1px solid #CCCCCC; background-color: #f5f5f5; margin-top: 4px; margin-bottom: 4px; margin-left: 2px; margin-right: 8px; padding-left: 6px; padding-right: 6px; padding-top: 4px; padding-bottom: 4px; } div.ah { background-color: black; font-weight: bold; color: #ffffff; margin-bottom: 3px; margin-top: 3px } td.md { background-color: #F4F4FB; font-weight: bold; } td.mdPrefix { background-color: #F4F4FB; color: #606060; font-size: 80%; } td.mdname1 { background-color: #F4F4FB; font-weight: bold; color: #602020; } td.mdname { background-color: #F4F4FB; font-weight: bold; color: #602020; width: 600px; } div.groupHeader { margin-left: 16px; margin-top: 12px; margin-bottom: 6px; font-weight: bold; } div.groupText { margin-left: 16px; font-style: italic; font-size: 90% } td.indexkey { background-color: #eeeeff; font-weight: bold; padding-right : 10px; padding-top : 2px; padding-left : 10px; padding-bottom : 2px; margin-left : 0px; margin-right : 0px; margin-top : 2px; margin-bottom : 2px; border: 1px solid #CCCCCC; } td.indexvalue { background-color: #eeeeff; font-style: italic; padding-right : 10px; padding-top : 2px; padding-left : 10px; padding-bottom : 2px; margin-left : 0px; margin-right : 0px; margin-top : 2px; margin-bottom : 2px; border: 1px solid #CCCCCC; } tr.memlist { background-color: #f0f0f0; } p.formulaDsp { text-align: center; } img.formulaDsp { } img.formulaInl { vertical-align: middle; } span.keyword { color: #008000 } span.keywordtype { color: #604020 } span.keywordflow { color: #e08000 } span.comment { color: #800000 } span.preprocessor { color: #806020 } span.stringliteral { color: #002080 } span.charliteral { color: #008080 } .mdTable { border: 1px solid #868686; background-color: #F4F4FB; } .mdRow { padding: 8px 10px; } .mdescLeft { padding: 0px 8px 4px 8px; font-size: 80%; font-style: italic; background-color: #FAFAFA; border-top: 1px none #E0E0E0; border-right: 1px none #E0E0E0; border-bottom: 1px none #E0E0E0; border-left: 1px none #E0E0E0; margin: 0px; } .mdescRight { padding: 0px 8px 4px 8px; font-size: 80%; font-style: italic; background-color: #FAFAFA; border-top: 1px none #E0E0E0; border-right: 1px none #E0E0E0; border-bottom: 1px none #E0E0E0; border-left: 1px none #E0E0E0; margin: 0px; } .memItemLeft { padding: 1px 0px 0px 8px; margin: 4px; border-top-width: 1px; border-right-width: 1px; border-bottom-width: 1px; border-left-width: 1px; border-top-color: #E0E0E0; border-right-color: #E0E0E0; border-bottom-color: #E0E0E0; border-left-color: #E0E0E0; border-top-style: solid; border-right-style: none; border-bottom-style: none; border-left-style: none; background-color: #FAFAFA; font-size: 80%; } .memItemRight { padding: 1px 8px 0px 8px; margin: 4px; border-top-width: 1px; border-right-width: 1px; border-bottom-width: 1px; border-left-width: 1px; border-top-color: #E0E0E0; border-right-color: #E0E0E0; border-bottom-color: #E0E0E0; border-left-color: #E0E0E0; border-top-style: solid; border-right-style: none; border-bottom-style: none; border-left-style: none; background-color: #FAFAFA; font-size: 80%; } .memTemplItemLeft { padding: 1px 0px 0px 8px; margin: 4px; border-top-width: 1px; border-right-width: 1px; border-bottom-width: 1px; border-left-width: 1px; border-top-color: #E0E0E0; border-right-color: #E0E0E0; border-bottom-color: #E0E0E0; border-left-color: #E0E0E0; border-top-style: none; border-right-style: none; border-bottom-style: none; border-left-style: none; background-color: #FAFAFA; font-size: 80%; } .memTemplItemRight { padding: 1px 8px 0px 8px; margin: 4px; border-top-width: 1px; border-right-width: 1px; border-bottom-width: 1px; border-left-width: 1px; border-top-color: #E0E0E0; border-right-color: #E0E0E0; border-bottom-color: #E0E0E0; border-left-color: #E0E0E0; border-top-style: none; border-right-style: none; border-bottom-style: none; border-left-style: none; background-color: #FAFAFA; font-size: 80%; } .memTemplParams { padding: 1px 0px 0px 8px; margin: 4px; border-top-width: 1px; border-right-width: 1px; border-bottom-width: 1px; border-left-width: 1px; border-top-color: #E0E0E0; border-right-color: #E0E0E0; border-bottom-color: #E0E0E0; border-left-color: #E0E0E0; border-top-style: solid; border-right-style: none; border-bottom-style: none; border-left-style: none; color: #606060; background-color: #FAFAFA; font-size: 80%; } .search { color: #003399; font-weight: bold; } form.search { margin-bottom: 0px; margin-top: 0px; } input.search { font-size: 75%; color: #000080; font-weight: normal; background-color: #eeeeff; } td.tiny { font-size: 75%; } a { color: #252e78; } a:visited { color: #3d2185; } .dirtab { padding: 4px; border-collapse: collapse; border: 1px solid #b0b0b0; } th.dirtab { background: #eeeeff; font-weight: bold; } hr { height: 1px; border: none; border-top: 1px solid black; } spandsp-0.0.6/doc/t38-gateway.dia0000664000175000017500000000570710724461263016116 0ustar steveusteveu‹í][sÛ6~÷¯à(¯ ŒoUN›N¶fw=­ÛÙ7,Á27©!é8~Ùß¾©TEÚ4ÉÙ 4cÙ’!€‡:ß¹ãû¾¬bç³Ìò(MÎ&á‰#“yºˆ’åÙäÏ‹oƒÉïN¾_Dâ;õ³ÌÄÊQŸHrýêlrSëïNOïîîP|Ÿ‹"ÍPÝ¢\žþOı8UƒN'ïNçá QýÞæ]QYtu[H'+y6¹óOË,½M“jÔfÜ<ÓÌù,â³É›ëò19ÝLsº3Ï#s¯ÅR^eR|jŸ«Gö™z-³ú´«ušGjHq¿ÞÒ2~~0f3*Wƒ’å»7?ò7Õ%mÞØÎÕt¡­‹+‘-£duoâêFPPJÕÍpà Ä>÷É×{òüå®Ì.›].3»\”_®Ó¬ÈDTì/y•¦±Iµj‘ÝÊþëäs+{Œ¬T\GE‘>qý×"λP½ý·´=Wr—Y´x\pwF´Ìr-Š›Ë/@·«šýhöÏQ]Ųé꣤múûq¦¯;åî½ýø@n¨fk…‡E ]é>–·ÑBæO°Ù™n6ÃNŸºëõq]oLõV ¬Ë%bq/³Íô?maÚÙ|Á›çÁ]H¯þ+çņ¼? ‘,D¶pÞ:?¥_&[­CéÑâlòo¼{{ê©ÉÔηwÖé–‰ð”¸u‚÷·‹¶É¯®êsgêêE²Œe5ˆBwJ¸zž¹awJ=õÜoAËÕå<Í’}•`ŠÊÊ}cŸª¯{ç澑Ñò¦hŸœ~“G‰º'—»rØ ‰Ò“Þµè·D~“Þ]6(šO£h³ÄŸn™½7÷“¸C3ÿ[¬~Ãü„À3?¶¼¼ÿ!Nïæ7"+Z™Ÿe~êM óSWs?Ö;?cšù0ï÷§§ ïû€¬O_[¶Zé‹Å®QS»zŒz~­…üRLžÐTkcÚîDiÚy.Þpæ7rþIf-î€Gtè6ƒ,MŠ¦5õûεXEñ½º4‘ä'/îµ²§d·úè/2þ,‹h.ê¤Ï¿‚=Æjüz¼ûàÃÝÝU%1DJÑCtØ:õ-½Õ÷„ñ°…”ѾLV²ùË”ÉíªÁÞzÌâj2@¡€ ÖƒÂi$ÐPàk( •„¡õ ÞuÁ×bÁkÆ‚_~þøÞYÈyº°`` ˆƒÐ‚)0à#Ø>¸]àmíp0èOС fÁÜ0@ ;+™çb)‘ˆø>ò‘,œ•H¢õm, %^&ŒØ b&ÌÀ„;&8B8Ñ0Q(rµù‹ýé邤÷fh­†—þ|~ñqêü~q>u~ýñ?tê\œÿvá¬ÕÝS»rnM xŒà>¢Zu´¶„!ð;–Ô.ëZ"(ظ–ˆoƵ4€¤NÎ%Dv¤Šp‹¯7þB”8ŠkeôÙbF‰lÀ0FøÓ!´«IY– B aßMcž&É¥Lå¥w'¨18Ñ“`Åóu}妄ÀgE²¸Y–ÞÕ'Þr¥§¾Œe²| õú›G/ñ®v^AÏŠ…“ç{ñõ?΋ͮZ¤¥¦älÿ{6 ö¾ÿ†Ï’ÍgÙîgýýüÃÚ#¸Á`G1\ÊPÈB®Dc̨‡ˆJ~±‡=,û´5ú”ƒ¾,k¥ø¥J1 Åü0R•bÆúsr'9f…4dÊn'„àpÆ\Ä‚ Ô«úØ'À‚\'¯a„v)XQ>2QæC¹†æá(²ü´»… Oç§Sëm u"§NäÑ©ÌSðdþÞôtqµ„Ö³òº=+ÊÒrþBÔ/dVþZG‹9G‹Í©ký,¦|ñ„ŒØÃÁ{Ø6±ÇƒÏëá6áß‚C#8œWT(@X¥êª-Ià±x`€ySBñ „ƒÒb˜‘*Ñ“B‚^) t¬} ±”!¶˜Ž9\üËQÜ(³k1—r !G#ŽÚZ,ä õ’Á…f”€&R\%º³²Í„RG c½»5Ú(Öµ|d®e‚ø–•8á#È.GÐÒËh8%Èe˜3-ÃÔ ˜^Õóq/É=%ËÔÊòq˲÷Y¦ew„˜/tÄWgnpý‹ù:â[¦n(‹0ô)|À÷©p¯kýG'ÇdÄx¯kJç×—maÅ™§‘ѸÏg„"ø¾Za…À¢\§®1>lEùØD¹«ôYê5>&û¯A”©‚ßi€<xDË2£¤’e³Ã˲.¬±‰ÑVš·ÒìAs‡ÐJ0BÅà‰X$ÜfbQ ŸŠE±ÍŲ¡Î¹XE&’|…MÇ2”Ž¥¶ 1G âÁƒ„»)Ž&êï$ú’Ô­6‡;Ϣƫ¯¶0a¶<ÚUû€oqÂTÐœŽQÔA ¨cʈN¥Ð^¾Ùƹ§µ N¾u-žnýGæZmû^¾šS0Cn>JFQúì‘+e¥gOý5«ü{~¹¬ú /λôYþF:l ¢L ;œ¢AGèkÅ[+nÓ==@>t÷tP+ÒhCþ®Fm­8p+îw¡‹…XêåIÙ]½<ÕÚs†º«—ÎkϲçÆ8mC}cÌnzåáRãaH«ÖWÕëº<•rŸÀ¦&YHYœ¾ÕK ¤tˆY¶&qÁ*cœ™ï­j««xoU\ ï@’-¯þfÊ«£$—™=!ÁÜ©j6Âk,ÂKÝ1`‚‚-,¸`YX°°Ð ú˜Í¥T$ŠÔZÿ† [H0fü{c@/VÏ_k µ‡ºtÒ{"„KIo¢­©ÿbM}>ÄÔ Lýì!ÀV€}Fü2û‚a^J±ç½ÍëßD™?)ʶ~òè„ÙQ˜ 6å¸ F8ÅŽ„àÇØ•1Ü™ËtnY®| O²#ˆX#í5i-'Ù-¤=ËÎèYvn©§[ÛÍ”í6ü¨„Ê°‚íœ0¬+íg!×3ôi'4¸Öuú»kXKîèŽ=ñ[Ï;èЇ&hËçÕ»¸*Þv@u#Pd[ ZÝr¸nù빓Èâ.Í>ÙF¨æ”I—ÛN¨FuI6¸Dj?…ÌW pæ•Mטç+â( uJ E»Ð!:ym ¡Õá>Þ{zëãõl!’¬Ö÷qWß'Ôd}Ÿåü¶r~Š,N15=ÍÞßÞ¢&ÞïZž‡‰Í>ŽÆh /ÂSk3ß/½ÒÕ#«å}Èälôz—ÆÔÍDžîÆ•2£k‹"c)ÓR&^Wa‚t(L°ŸS—pOÐÜ€‘öî~ØÝ ½.ÑÁ¦¡¿aèoú~nÆCƒCo|Ð;€`­[U|ѶU•`”ãsø‘{ s43Á#Û*†` !'‡Z·, ”ð¥RB·–Ö5Ø«rŠ's’V¤ðé˜æ· ÁŸ‰ÞÍg»n4sµùŒÈï0ÉêÞ|.ZW¿;Ý~]úÅn>ãíÖ&ˆZ“<Œº´¥·QEð®‰[Äå®ö>Ä.65Ió 6Ÿ={Ø~þO—ø?_ ͇=¦sȱ½¡ù°ÇfŒOAýtö)Q²ïS¤@ )´;Õ )P)´¤è)†®¤ž±aÀŠ¡+©ÇÒ>ÅÃMzëžÅs€€DüÜÆù“á¤í Ò¸>P²ªÂ[¹ZðÝÖ¶Õ—Z°»”û°Žê@ƒ0îþÄ dìÊŸu¶t€¬B™=D²£=+쪌öá “×VäC:9ˆŽNŽalŸ I˜ëmÊbˆ{¦—7e©ž,äðœ²ÙÔÖýÀXѶʞ-Ϧ"¿ºPfÙÖ È×*ß