modules.af.m4 example update

[Thien-Thi Nguyen]

AC_DEFUN([AUTOFRISK_CHECKS],[

GUILE_MODULE_REQUIRED(ice-9 rdelim)
GUILE_MODULE_REQUIRED(ice-9 documentation)
GUILE_MODULE_REQUIRED(ice-9 threads)
GUILE_MODULE_REQUIRED(ice-9 popen)
GUILE_MODULE_REQUIRED(ice-9 rw)
GUILE_MODULE_REQUIRED(ice-9 receive)
GUILE_MODULE_REQUIRED(ice-9 regex)
GUILE_MODULE_REQUIRED(ice-9 common-list)
GUILE_MODULE_REQUIRED(ice-9 optargs)
GUILE_MODULE_REQUIRED(ice-9 string-fun)

probably_wont_work=""

GUILE_MODULE_AVAILABLE(have_guile_module_database_pgsql_psql_, (database pgsql 
psql))
test "$have_guile_module_database_pgsql_psql_" = no &&
  probably_wont_work="(ttn psql) $probably_wont_work"

GUILE_MODULE_AVAILABLE(have_guile_module_database_postgres_, (database 
postgres))
test "$have_guile_module_database_postgres_" = no &&
  probably_wont_work="(ttn pgtable) $probably_wont_work"

GUILE_MODULE_AVAILABLE(have_guile_module_database_postgres_, (database 
postgres))
test "$have_guile_module_database_postgres_" = no &&
  probably_wont_work="(ttn pgmeta) $probably_wont_work"

GUILE_MODULE_AVAILABLE(have_guile_module_xml_mixp_, (xml mixp))
test "$have_guile_module_xml_mixp_" = no &&
  probably_wont_work="(ttn mixp) $probably_wont_work"

GUILE_MODULE_AVAILABLE(have_guile_module_xml_expat_, (xml expat))
test "$have_guile_module_xml_expat_" = no &&
  probably_wont_work="(ttn mixp) $probably_wont_work"

AC_PATH_PROG(guile_module_ttn_html_world_support_xearth, xearth)
AC_PATH_PROG(guile_module_ttn_html_world_support_mogrify, mogrify)
AC_PATH_PROG(guile_module_ttn_html_world_support_ppmtopgm, ppmtopgm)
AC_PATH_PROG(guile_module_ttn_html_world_support_pgmtopbm, pgmtopbm)
AC_PATH_PROG(guile_module_ttn_html_world_support_pbmtoascii, pbmtoascii)
AC_PATH_PROG(guile_module_ttn_html_world_support_tr, tr)
test \
  "$guile_module_ttn_html_world_support_xearth" = "" -o
  "$guile_module_ttn_html_world_support_mogrify" = "" -o
  "$guile_module_ttn_html_world_support_ppmtopgm" = "" -o
  "$guile_module_ttn_html_world_support_pgmtopbm" = "" -o
  "$guile_module_ttn_html_world_support_pbmtoascii" = "" -o
  "$guile_module_ttn_html_world_support_tr" = "" -o
false &&
probably_wont_work="(ttn html-world) $probably_wont_work"

AC_PATH_PROG(guile_module_ttn_rcsutils_support_rlog, rlog)
test \
  "$guile_module_ttn_rcsutils_support_rlog" = "" -o
false &&
probably_wont_work="(ttn rcsutils) $probably_wont_work"

if test ! "$probably_wont_work" = "" ; then
    echo "These modules probably won't work:"
    echo "  $probably_wont_work"
fi

])