From owner-ports-jp@jp.freebsd.org  Sun Dec 10 16:17:39 2000
Received: (from daemon@localhost)
	by castle.jp.freebsd.org (8.9.3+3.2W/8.7.3) id QAA75669;
	Sun, 10 Dec 2000 16:17:39 +0900 (JST)
	(envelope-from owner-ports-jp@jp.FreeBSD.org)
Received: from eos.ocn.ne.jp (eos.ocn.ne.jp [210.190.142.171])
	by castle.jp.freebsd.org (8.9.3+3.2W/8.7.3) with ESMTP id QAA75664
	for <ports-jp@jp.freebsd.org>; Sun, 10 Dec 2000 16:17:38 +0900 (JST)
	(envelope-from hrs@eos.ocn.ne.jp)
Received: from mail.hrslab.yi.org (p0189-ip01funabasi.chiba.ocn.ne.jp [211.123.225.189])
	by eos.ocn.ne.jp (8.9.1a/OCN/) with ESMTP id QAA13572;
	Sun, 10 Dec 2000 16:17:35 +0900 (JST)
Message-Id: <200012100717.QAA13572@eos.ocn.ne.jp>
Received: from localhost (alph.hrslab.yi.org [192.168.0.10])
	by mail.hrslab.yi.org (8.9.3/3.7W/DomainMaster) with ESMTP id QAA15724;
	Sun, 10 Dec 2000 16:02:57 +0900 (JST)
	(envelope-from hrs@eos.ocn.ne.jp)
To: shige@FreeBSD.org
Cc: ports-jp@jp.freebsd.org
In-Reply-To: <200011031541.AAA25019@eos.ocn.ne.jp>
References: <200010181635.BAA19277@eos.ocn.ne.jp>
	<863dhfrtn2.wl@aurora.sitc.toshiba.co.jp>
	<200011031541.AAA25019@eos.ocn.ne.jp>
X-Mailer: Mew version 1.94.1 on Emacs 19.34 / Mule 2.3 (SUETSUMUHANA)
Mime-Version: 1.0
Content-Type: Multipart/Mixed;
 boundary="--Next_Part(Sun_Dec_10_16:01:09_2000_809)--"
Content-Transfer-Encoding: 7bit
Date: Sun, 10 Dec 2000 16:02:55 +0900
From: Hiroki Sato <hrs@eos.ocn.ne.jp>
X-Dispatcher: imput version 20000228(IM140)
Lines: 329
Reply-To: ports-jp@jp.freebsd.org
Precedence: list
X-Distribute: distribute version 2.1 (Alpha) patchlevel 24e+000315
X-Sequence: ports-jp 10511
Subject: [ports-jp 10511] Re: textproc/dtd-catalogs
Errors-To: owner-ports-jp@jp.freebsd.org
Sender: owner-ports-jp@jp.freebsd.org
X-Originator: hrs@eos.ocn.ne.jp

----Next_Part(Sun_Dec_10_16:01:09_2000_809)--
Content-Type: Text/Plain; charset=iso-2022-jp
Content-Transfer-Encoding: 7bit

$B:4F#!wEl5~M}2JBg3X$G$9!#(B

 [ports-jp 10414] $B$G;XE&$5$l$?IT6q9g$N(B fix $B$r4^$a$F(B
 $B=q$-D>$7$r9T$J$$$^$7$?!#JQ99E@$O0J2<$N$H$*$j$G$9!#(B

  - ${CAT_DIR} $B$r(B normalize $B$7$F$+$iHf3S$9$k$h$&$KJQ99(B
    ([ports-jp 10414] $B$NIT6q9g$KBP1~(B)$B!#(B

  - $B:G>e0L$N(B catalog $B$G$"$k(B ${CAT_DIR}/${CAT_FILE} $B$r(B
    $B;XDj$9$k%*%W%7%g%s(B -c $B$rDI2C!#(B
    $B8=;~E@$G$O!"Cf4V3,AX$N(B catalog $B$K$b(B ${CAT_FILE} $B$,(B
    $B;H$o$l$k$?$a!"(B"catalog" $B0J30$N%U%!%$%kL>$r;H$&$H(B
    $B>u67$K$h$C$F$O$^$:$$$+$bCN$l$J$$!#(B

  - $B%G%P%C%0MQ$N(B verbose $B%*%W%7%g%s(B -v $B$rDI2C!#(B

  - $BI=<(%a%C%;!<%8$rJQ99!#(B

 [ports-jp 10372] $B$GJQ99$7$?HG$+$i$N:9J,$H(B
 $BK\BN$rIU$1$F$*$-$^$9!#(B

--
| $B:4F#(B $B9-@8!wEl5~M}2JBg3X(B <hrs@eos.ocn.ne.jp>
|
| sato@sekine00.ee.noda.sut.ac.jp (UNIV)
| hrs@FreeBSD.org (FreeBSD Project)

----Next_Part(Sun_Dec_10_16:01:09_2000_809)--
Content-Type: Text/Plain; charset=us-ascii
Content-Disposition: attachment; filename="mkcatalog.diff"
Content-Transfer-Encoding: 7bit

--- mkcatalog.old	Sun Dec 10 15:37:51 2000
+++ mkcatalog	Sun Dec 10 15:59:20 2000
@@ -12,22 +12,61 @@
     l_value=$1
     IFS_old=${IFS}; IFS=" /"; set -- ${l_value}; IFS=${IFS_old}
     case $# in
-    0) echo "" ;;
+    0) ;;
     *) echo `eval echo \\$$#` ;;
     esac
 }
 
+sh_dirname ()
+{
+    l_value=$1
+    IFS_old=${IFS}; IFS=" /"; set -- ${l_value}; IFS=${IFS_old}
+    l_dirname=$1; shift;
+    while
+        case $# in
+        0) break ;;
+        1) echo ${l_dirname}; break ;;
+        *) ;;
+        esac;
+    do
+        l_dirname="${l_dirname}/$1";
+        shift;
+    done
+}
+
+norm_dir ()
+{
+    [ -d "$1" ] && echo `exec 2>/dev/null; cd $1; echo ${PWD}`
+}
+
+verbose_msg ()
+{
+    case ${F_VERBOSE} in
+    1) echo " ===> $*" ;;
+    *) ;;
+    esac
+}
+
 PREFIX=@@PREFIX@@
-CAT_DIR=${PREFIX}/share/sgml
 TMPDIR=/tmp
+ARGV0=`sh_basename $0`
+
+# default top-level catalog file
+CAT_DIR=${PREFIX}/share/sgml
+CAT_FILE=catalog
 
 F_PRESERVE_OLD=""
-args=`getopt pq $*` ; set -- $args
+F_VERBOSE=""
+args=`getopt pqvc: $*` ; set -- $args
 for i
 do
     case "$i" in
+    -c) CAT_DIR=`sh_dirname $2`;
+        CAT_FILE=`sh_basename $2`;
+        shift; shift ;;
     -p) F_PRESERVE_OLD=1;        shift ;;
     -q) exec 1> /dev/null 2>&1;  shift ;;
+    -v) F_VERBOSE=1;             shift ;;
     --)                          shift; break ;;
     esac
 done
@@ -39,27 +78,57 @@
 ### option check and normalize ${dtd_dir}
 case "${dtd_act}" in
 add|install|delete|deinstall|enable|disable)
-    if [ -d "${CAT_DIR}/${dtd_dir}" -o -d "${dtd_dir}" ]; then
-        dtd_dir=`exec 2>/dev/null; cd ${CAT_DIR}/${dtd_dir} || cd ${dtd_dir}; echo ${PWD}`
+    if [ ! -d "${CAT_DIR}" ]; then
+        echo "${ARGV0}: top-level catalog dir \"${CAT_DIR}\" not found."
+        exit 1
+    elif [ ! -n "${dtd_dir}" ]; then
+        echo "${ARGV0}: DTD directory is not specified."
+        exit 1
+    elif [    ! -d "${CAT_DIR}/${dtd_dir}"\
+           -a ! -d "${dtd_dir}" ]; then
+        echo "${ARGV0}: DTD directory \"${dtd_dir}\" not found."
+        exit 1
+    fi
+    verbose_msg "top-level catalog dir (specified):  ${CAT_DIR}"
+    CAT_DIR=`norm_dir ${CAT_DIR}`
+    verbose_msg "top-level catalog dir (normalized): ${CAT_DIR}"
+    verbose_msg "target catalog dir (specified): ${dtd_dir}"
+    dtd_dir=`norm_dir ${CAT_DIR}/${dtd_dir} || norm_dir ${dtd_dir}`
+    verbose_msg "target catalog dir (normalized): ${dtd_dir}"
+
         case "${dtd_dir}" in
             ${CAT_DIR}/*) ;;
-            *)  echo "`sh_basename $0`: DTD directory \"${dtd_dir}\" is invalid."
+    *)  echo "${ARGV0}: DTD directory \"${dtd_dir}\" is invalid."
                 exit 1 ;;
             esac
-    else
-        echo "`sh_basename $0`: DTD directory \"${dtd_dir}\" not found."
-        exit 1
-    fi
-    ### normalize dtd_dir
+    ### keep dtd_dir relative
     dtd_dir=${dtd_dir#"${CAT_DIR}/"}
     ;;
 *)
-    echo "`sh_basename $0`: missig options."
-    echo "usage: `sh_basename $0` [-pq] [install|add|deinstall|delete|enable|disable] dtd-directory-name [catalog-filename]."
-    exit 1
+    echo "${ARGV0}: missing options."
+    cat <<EOF
+
+Usage:
+ ${ARGV0} [-c toplv-catalog-filename] [-pqv] [install|add|deinstall|delete|enable|disable] dtd-directory-name [catalog-filename].
+
+        -c filename   specifies top-level catalog file
+                      (default: ${PREFIX}/catalog)
+        -p            preseve old catalog file (as .old)
+        -q            quiet mode
+        -v            verbose mode (for debug)
+
+ ex.) mkcatalog install html/4.0
+      mkcatalog -c /home/foo/sgml/catalog install html/4.0/my_ext html_catalog
+EOF
+    exit 1 ;;
 esac
 
-echo "${dtd_act} catalog in \"${dtd_dir}\""
+echo "* top-level catalog: ${CAT_DIR}/${CAT_FILE}"
+verbose_msg "action:              ${dtd_act}"
+verbose_msg "target catalog dir:  ${dtd_dir}"
+verbose_msg "target catalog file: ${dtd_catalog}"
+
+echo "* attempt to ${dtd_act} catalog in ${dtd_dir}"
 TMPCAT=/tmp/catalog.$$
 
 proc_catalog ()
@@ -70,18 +139,18 @@
 
     case ${first_p} in
     [Yy][Ee][Ss]) catalog=${dtd_catalog:-"catalog"} ;;
-    *)            catalog="catalog" ;;
+    *)            catalog=${CAT_FILE} ;;
     esac
 
     # l_upper_cat -> relative path from ${CAT_DIR}
     # l_lower_cat -> relative path from l_upper
-    l_upper_cat=${l_upper}/catalog
+    l_upper_cat=${l_upper}/${CAT_FILE}
     l_lower_cat=`sh_basename ${l_lower}`/${catalog}
 
-    # l_*_abs_* -> absolute path relatively
+    # l_*_abs_* -> absolute path respectively
     l_upper_abs=${CAT_DIR}/${l_upper}
     l_lower_abs=${CAT_DIR}/${l_lower}
-    l_upper_abs_cat=${CAT_DIR}/${l_upper}/catalog
+    l_upper_abs_cat=${CAT_DIR}/${l_upper}/${CAT_FILE}
     l_lower_abs_cat=${CAT_DIR}/${l_lower}/${catalog}
 
     # for debug
@@ -114,7 +183,7 @@
             # if "install or add or enable",
             # create "the tamporary catalog + l_cat_line" and install it.
             #
-            echo " * ${dtd_act} ${l_cat_line} line in ${l_upper_abs_cat}"
+        echo " - ${dtd_act} ${l_cat_line} line in ${l_upper_cat}"
             echo "${l_cat_line}" >> ${TMPCAT}
             cp ${TMPCAT} ${l_upper_abs_cat} || exit 1
             ;;
@@ -125,7 +194,7 @@
             #
             case ${first_p} in
             [Yy][Ee][Ss])
-                echo " * ${dtd_act} ${l_cat_line} line in ${l_upper_abs_cat}"
+            echo " - ${dtd_act} ${l_cat_line} line in ${l_upper_cat}"
                 echo "-- ${l_cat_line} --" >> ${TMPCAT}
                 cp ${TMPCAT} ${l_upper_abs_cat} || exit 1
                 ;;
@@ -143,9 +212,9 @@
             #
             case ${l_bottom_p} in
             [Yy][Ee][Ss])
-                echo " * ${dtd_act} ${l_cat_line} line from ${l_upper_abs_cat}"
+            echo " - ${dtd_act} ${l_cat_line} line from ${l_upper_cat}"
                 if [ ! -s ${TMPCAT} ]; then
-                    echo " * delete empty catalog ${l_upper_abs_cat}"
+                echo " - delete empty catalog ${l_upper_cat}"
                     rm -f ${l_upper_abs_cat}
                 else
                     cp ${TMPCAT} ${l_upper_abs_cat} || exit 1
@@ -176,7 +245,7 @@
     #
     # Creates dirlist such as the following.
     # input:  docbook/4.1/my_extension
-    # output: docbook docbook/4.1 docbook/4.1/my_extension
+    #  return: docbook/4.1/my_extension docbook/4.1 docbook
     #
     IFS_old=${IFS}; IFS=" /"; set -- ${l_dir}
     l_dir_top=$1;
@@ -195,11 +264,11 @@
     echo ${l_dir_list}
 }
 
-set -- `compose_dir_list ${dtd_dir}` .
-
 bottom_p=YES
 first_p=YES
 
+set -- `compose_dir_list ${dtd_dir}` .
+verbose_msg "process catalog (relative to top one): $*"
 while
     case $# in
     1) break ;;
@@ -211,7 +280,7 @@
     proc_catalog "${bottom_p}" "${upper}" "${lower}"
 
     first_p=NO
-    if [ -f ${CAT_DIR}/${upper}/catalog ]; then
+    if [ -f ${CAT_DIR}/${upper}/${CAT_FILE} ]; then
         bottom_p=NO
     fi
     shift;

----Next_Part(Sun_Dec_10_16:01:09_2000_809)--
Content-Type: Application/Octet-Stream
Content-Disposition: attachment; filename="mkcatalog.tar.gz"
Content-Transfer-Encoding: base64

H4sIAAwqMzoAA+0a/VfbRjI/66+YCr8e5rBlGwjvcEyTBujlvabpA653fcAzsrzGOmRJkWQI
R/y/38xqd7Ury0DTpB93mtcGSTs7Mzufu7OeXXtu5gbR1XDsp5nz7EsAbHd2d3bgGUB3d6er
/5XQAdjtdbef97a2dndxuPt85/kz2Pki0pRgnmZuAvBsmqQP4j02/ieFmWn/rJ1OPzuPbudB
++92u72S/Xs7ZP/OZ5ekAv7P7b/2lTPyQyedWtYanE79FPA/FzKWZpB6iR9nMIkSUG5CaPPU
vWJ7+NBtQsoyaNx/++rkcAFxEsUsCe74jLtongALb/wkCmcszGDdi5KEpXEUjv3wCrIICSC8
fnU6PHhz3GzDD1HGIJu6Gf6DQgjut34QgBcwN1R8vGgWByxjwV07p/EmBHc89jM/CjcLUWGG
toURgzhwPTYGJGwLEk67bdPcXhOSeQjk9eCGY/CmzLuGaJ7FcxQYlwAe8vXDlCU4mX3ws74N
t1OWMFof3Lq4rizKpzXblkXEB840mjEH/cW5jZJrZ5IwNnGDwJldO+nVLLBOXx1/d3h6MrCn
2SwA+sfptTv5w5Z82NYenNndkH3IYBx5oyi6ln+dLuLIZ6RgW9bb1wNtiY5SBQ7h01AqZr1p
3VukOOZNI7BbBUgdO2oioeFLecDiA2RoH/WDo2JVC/59HFkytfsTOIPWRM1v3PuKCFz00dYs
VMgPy6RPtY05uoA6lkKa+EKukFkLy4pXqcLWngeDwT40utDoQWMrH2jcv329gJZX1oZCk+qS
9IkZd94hhkLBLJlB61jpRP5tB354zcYcY3Y99pOqgSCEVloakK9PtYlBnCvM0I5UhVIDKSJl
7+cYxr4b8FjDCKaAGTMMRHyxi1VqykVE7sQVn8hhqz5vVX/eXvlZBgf+r5RuYooQqf5KQbRi
xJQQy6M7CtgT+XK9sPLita9l6trI1soRUwss/DSBnoy8rDhzoKS70iAtsNqVEvScaPbL3WiV
4GvwEbME5VYVj639fEb5nShUfcupOqudSFnmyzBDqvAISApbBdUHXPoPJWZ5GuJIWTXGmviP
LLD3v7PApzHUFl6hGj3ZVKilDBvwJdQiqf7h1PKI0/wZtbO6oqzBv2nTi5sqSN0ZA3cU3bAH
6sxvo5Bfu7Ltp0m6Uve/saxPq1Gfk7Os1E/gUq2hX8JF1JcQd4sQTUCi/94n2Ro+BUr9H/X6
OXk83P/p7na2d2T/Z3v3+TZ+2nq+u1X3f34LKPo/axjTRe+kZXR/3GvaqVNekeGOJ+qAtfmk
1wlzMzbeA+h1Op1up4vWPJn6V+xufu3D0fx6nk79mQsvUvr48ihh7NuTg3aUXO1TD+ZtNPYn
Ps0X0/8G8Hc/iXDuiZtF8AI1X56E0xri0x7EUZKlTobZNk4ir3BhJ020t7Yfbt5At93jbJxu
x+ntQnd7r9fd29kFLhocfoihgdTT6XDkpni+wgqqzuzB8MYN5mzQ6PLXN0cnwygYDxr3+LTo
0/vABsfu85YY71qIGWKQI9KUhWgSpAwaa3hQ56+dJvT7/GmjmfcfLhnOzh/PzxuNtUuJwFLX
o2M6SonH+C8qZCA5IME+KWmS5TLcTtH8qp9QWotYzwj94loKzSNdrIyYCrrIdglto6m/0Wr7
5QZGIZetE3MaXbuYqYkrOxthlMwIu1DYGbTGYOM8uICvv5aa/8A86O07Y3bjhPMg6IM3BtKA
EP/Hfx4sLoneDUtGUcqGs1TrJOXauD8a/nR4/O076u8Ivcj125C3ljZszeYl4/54fHj05l+D
ly/zh5cvrdO3Px68OR442Sy2Xh1/91NncKn7aaNzSb3ZMZu484C6knErYDfMDFhLdFvRzjnd
BUa+m7C8MUmDR2++PxyoHt/RENFODo9/Ohy++/5ggAd5tSp6cZOrdHB5xZBZBvH7G28PF4V+
qryLECzekLKE9bhy7IZvS6W0vKbsAfMFSZdu9C4LUyrJzCXrKLm18z9Sma24CaUloBH1CQrz
PdqGrN7dB2V2dIGvCd/EvCGaUgkFuQqarSasBCGu4fzc9txVrXE2HrpeRnFMj6iUQaPHH4Vt
TE3YjS2bzL+2BmgKPwpFJ5t6K+TzbuD/h3xS0FpYwgz3gs+CmwOP2B/9EOthEHzMt3z4R37I
u00fRRusyQXmvd2v8gi6F0ZEUuWubu70jXvutYu9Ct+kkDzXaJzbKDbVnnk4bhetXmrAQ57Z
WCCZh3IdtLDHmR+cHhA75mVRckeXHcQojZnHi9CDzBDKi3U01ud6S7rlKtxPle1cm/u4QkSH
W89IdrWi19Vqm3vU0laGs2So8VhUubLAuHwyC+V0xKPMwiSAOQKzxUoBNf3lqVyEQ5V8mjXg
40fQMOTnqhVUCFASv5BAz2GaYUUu0yTZ0Ov5LzM03cGFWJT9ZUsbmYIeKOKvGYulWiBhgZv5
N8zQlSK/pruundd4JLnR1K49CilnfprSvi9PKWm7uAx68eLw3ZFl/SO/CAQ5Bc5aHkV3cNMS
6mxR1aEUdYFjWCHwj0wolG2K9CLyjZllLmgFLaWoFs91Z0uk25ZSE/KXnynJCj9KV5XD6ty8
LooomV6WSTGtWXCK9SlxwlIkD7hzMjjAuptCG79qE9/rE9/PfXS+WTQuhGnd6AjCVzkKrFMt
HbPRHAWx0CfaTW3LLlRZtExyAtqe3oP8bnISRY7RSSlPlR0MelctDDK56YrcDUVvf2NZx3tm
aMoijmFkBCDWH3SvPdMGWmmyHgnXPTBC9CFsMokMaPGNglquwM0yNov5lW7BHwolGXxwP4Yr
4vsxqcd2o2FZdAhZvl4MhqMoy6LZMMaaDmuA2o5uiZHorczjmCWS1TdiCv+IhZ9HOsidUTQx
sQUy0iPkrSVkPqCQ9S3qxE/SbBirDerZz3cXZ4fs4uwkvWjKGQNDXXstWzzZCz3DFVBMUwY3
0laet+TqiC61uWTegtjNpjBJopnmPGoKX8oDUwRRXX2EPaBDAn8z/FBXHEczd5f3YmhxiZOk
txTibwzdUTrcIEnwIQrmmZCEfuSACQslC+4MSRBtYESEFMoQpAIrF6NMS6ysgt7KRa6YldOv
WKVKN/m7Or1JX16AYkp0F4XS+KslmOPzMPBDPK0h21ffv/uOlzwd81zcvAdcRFLjcMrc8eCS
Dl732qIXpUPYI4JKzsWKyOU3weM9C6BwjxIXa7DKEJob0WwxjTZffugFc35lKVdBlHmEaY65
jlvFMJL0NsV8wY+yyx3gDr/ZzgfE8A/vTg/38oIxc0M/npNnY8lFX8ICkTDTwzZhNJeC5WAI
NI6K0ODL4Yv5S0p8dbZZNPempnZzI+LWSdtYXiW4vcCaZJ+vwwYe6jbOm+ffSIYb5/iZSBhm
WziEU7awPt+u4rtPP1ngWVWZi9fVpFRYsaSGzGNpioYrziH2Bzpz64c93Jh9NcDvyxtvL67i
v/yJKndJHbjPXtoEqhMUDeinqHw7U9T+teKJhLZl3UXvpfvNKBGX+vamhih8x6ZLncwtO+xf
tfiy+YFPEvWzdgVj0YFo6RXOiJTciXix00PbLlEw5tiwrxvPULP4+LijEYhCYZwyqxQnEOxN
tVrzyosiRFMM7ql1hUYz+kUaG9Mvvap0tKI8Ehgl0tg//nrFFlREZ66Y2mqtUPGnqVlTNQEV
cPpJ0qSg0zeloumd/qr56jiim7DUQHjAlkwLg3xa7sjc4ZcytGFKyss8qZqOoHCzlAUTzMmh
+JzyfD1CjlcaFUFBbMX8rNkGs8wNfj48gRlzMSPTDxS1qaX6Rz8XHDFBaYwOOcFNwCZEyD25
9ZE7CvyAx+mV9XM6ndhPrXY72UxJNU+q+nGewVPoKy9qUuUPcSGQflb2UnNZQbp8OPs0Nxd9
EQlf2Ou1Ha6oYLeoQpgELh5G9GLGj/mqz6EV9Iz/upT3pTANTib4FnqYz1h2y5BSyG7zfQIF
CFUnLOpykyHo860DJ08n4Sy4Q0OF1NvS5Hq8YlI3XHW0vFmc+0ZlgVz+XPKcVTan2XrzqmQN
/uPJCOMfT3N4nkGHTjP9RMVbG11D2/ldVErHH46d0hbHTXn0TyI6c2Hkt+XeyQ/jOZ7y1cX2
drsrTr4sTFGJEi9h2TzBE+oqPH1A3cUXYj3pFoa3ZdW6hniYpjsX/kW7yMgH0c64h9/oS+r6
tY2G5mPyHAjaRFCnT9oxx3JDFD8eLVgt/X5UIy/vX/hb/ltSu4THWZl4ijyNycYeNb55DGl3
RDkCOYI6PmMqtkRl5s+WUOLlkqtobT9om30BOqTjBlJlrXW1Y8YjOaqD79HpNsO2iquu0jVX
t3TFZV7i9OWNhziX534qT/T8xegUoIJU7rfpLT/K8cf8fCa6j3LtP7wrIplHjXakWz4GLmVz
pU9BR4Sg8LX8FkImwN/7krqGGmqooYYaaqihhhpqqKGGGmqooYYaaqihhhpqqKGGGmp4EvwX
oXsfRABQAAA=

----Next_Part(Sun_Dec_10_16:01:09_2000_809)----
