#!/bin/sh

# Architectural Form: test ArcSupr:

#    suppress element "v", but keep CDATA of this element

# test onsgmls and osgmlnorm

LANG=C; export LANG

LC_ALL=C; export LC_ALL

tmpfiles=""

trap 'rm -fr $tmpfiles' 1 2 3 15

tmpfiles="$tmpfiles af-5.sgml af-5.dtd af-meta-5.dtd"

cat <<EOF >af-5.sgml

<doc>

 <s>

  <v n="1">verse 1</v>

  <v n="2">verse 2</v>

 </s>

</doc>

EOF

cat <<EOF >af-5.dtd

    Language//EN">

    ArcSupr NAME #FIXED "doc-proc"

    ArcDTD CDATA #FIXED "opendtd">

  open NMTOKEN #FIXED "open">

  open NMTOKEN #FIXED "stanza">

  n CDATA #REQUIRED

  doc-proc CDATA #FIXED "sArcForm">

EOF

cat <<EOF >af-meta-5.dtd

  v CDATA #REQUIRED -->

EOF

tmpfiles="$tmpfiles af-5-onsgmls.out"

: ${ONSGMLS=onsgmls}

${ONSGMLS} >af-5-onsgmls.out -A open af-5.sgml

tmpfiles="$tmpfiles af-5-onsgmls.ok"

cat <<EOF >af-5-onsgmls.ok

(OPEN

(STANZA

-verse 1verse 2

)STANZA

)OPEN

C

EOF

: ${DIFF=diff}

${DIFF} af-5-onsgmls.ok af-5-onsgmls.out

result=$?

test $result = 0 || { rm -fr $tmpfiles; exit 1; }

tmpfiles="$tmpfiles af-5-norm.out"

: ${OSGMLNORM=osgmlnorm}

${OSGMLNORM} >af-5-norm.out -A open af-5.sgml

tmpfiles="$tmpfiles af-5-norm.ok"

cat <<EOF >af-5-norm.ok

<OPEN>

<STANZA>verse 1verse 2</STANZA>

</OPEN>

EOF

${DIFF} af-5-norm.ok af-5-norm.out

result=$?

test $result = 0 || result=$(($result + 1))

rm -fr $tmpfiles

exit $result