PageRenderTime 80ms CodeModel.GetById 25ms RepoModel.GetById 0ms app.codeStats 0ms

/frameworks/trunk/zziplib/libzziplib/docs/mksite.sh

#
Shell | 1689 lines | 1457 code | 107 blank | 125 comment | 200 complexity | 1e4d2b0ec0665e789ed105fb2186902f MD5 | raw file
Possible License(s): LGPL-2.0, LGPL-2.1, BSD-3-Clause, GPL-3.0, LGPL-3.0, MPL-2.0-no-copyleft-exception, Zlib, GPL-2.0 
    

  1. #! /bin/sh
    2. 

  2. # this is the sh/sed variant of the mksite script. It is largely
    3. 

  3. # derived from snippets that I was using to finish doc pages for 
    4. 

  4. # website publishing. For the mksite project the functionaliy has
    5. 

  5. # been expanded of course. Still this one does only use simple unix
    6. 

  6. # commands like sed, date, and test. And it still works. :-)=)
    7. 

  7. #                                               http://zziplib.sf.net/mksite/
    8. 

  8. #   THE MKSITE.SH (ZLIB/LIBPNG) LICENSE
    9. 

  9. #       Copyright (c) 2004 Guido U. Draheim <guidod@gmx.de>
    10. 

  10. #   This software is provided 'as-is', without any express or implied warranty
    11. 

  11. #       In no event will the authors be held liable for any damages arising
    12. 

  12. #       from the use of this software.
    13. 

  13. #   Permission is granted to anyone to use this software for any purpose, 
    14. 

  14. #       including commercial applications, and to alter it and redistribute it 
    15. 

  15. #       freely, subject to the following restrictions:
    16. 

  16. #    1. The origin of this software must not be misrepresented; you must not
    17. 

  17. #       claim that you wrote the original software. If you use this software 
    18. 

  18. #       in a product, an acknowledgment in the product documentation would be 
    19. 

  19. #       appreciated but is not required.
    20. 

  20. #    2. Altered source versions must be plainly marked as such, and must not
    21. 

  21. #       be misrepresented as being the original software.
    22. 

  22. #    3. This notice may not be removed or altered from any source distribution.
    23. 

  23. # $Id: mksite.sh,v 1.5 2006-09-22 00:33:22 guidod Exp $
    24. 

  24. 

  25. # Zsh is not Bourne compatible without the following: (seen in autobook)
    26. 

  26. if test -n "$ZSH_VERSION"; then
    27. 

  27.   emulate sh
    28. 

  28.   NULLCMD=:
    29. 

  29. fi
    30. 

  30. 

  31. # initialize some defaults
    32. 

  32. test ".$SITEFILE" = "." && test -f "site.htm"  && SITEFILE="site.htm"
    33. 

  33. test ".$SITEFILE" = "." && test -f "site.html" && SITEFILE="site.html"
    34. 

  34. test ".$SITEFILE" = "." && SITEFILE="site.htm"
    35. 

  35. MK="-mksite"     # note the "-" at the start
    36. 

  36. SED="sed"
    37. 

  37. CAT="cat"        # "sed -e n" would be okay too
    38. 

  38. GREP="grep"
    39. 

  39. DATE_NOW="date"  # should be available on all posix systems
    40. 

  40. DATE_R="date -r" # gnu date has it / solaris date not
    41. 

  41. STAT_R="stat"    # gnu linux
    42. 

  42. LS_L="ls -l"     # linux uses one less char than solaris
    43. 

  43. 

  44. DATA="~~"     # extension for meta data files
    45. 

  45. HEAD="~head~" # extension for head sed script
    46. 

  46. BODY="~body~" # extension for body sed script
    47. 

  47. FOOT="~foot~" # append to body text (non sed)
    48. 

  48. 

  49. NULL="/dev/null"                             # to divert stdout/stderr
    50. 

  50. CATNULL="$CAT $NULL"                         # to create 0-byte files
    51. 

  51. SED_LONGSCRIPT="$SED -f"
    52. 

  52. 

  53. Q='q class='
    54. 

  54. QX='/q'
    55. 

  55. LOWER="abcdefghijklmnopqrstuvwxyz"
    56. 

  56. UPPER="ABCDEFGHIJKLMNOPQRSTUVWXYZ"
    57. 

  57. az="$LOWER"                                  # some old sed tools can not
    58. 

  58. AZ="$UPPER"                                  # use char-ranges in the 
    59. 

  59. NN="0123456789"                              # match expressions so that
    60. 

  60. AA="_$NN$AZ$az"                              # we use their unrolled
    61. 

  61. AX="$AA.+-"                                  # definition here
    62. 

  62. AP="|"                                       # (pipe symbol in char-range)
    63. 

  63. AK="["                                       # (open range in char-range)
    64. 

  64. 

  65. LANG="C" ; LANGUAGE="C" ; LC_COLLATE="C"     # these are needed for proper
    66. 

  66. export LANG LANGUAGE LC_COLLATE              # lowercasing as some collate
    67. 

  67.                                              # treat A-Z to include a-z
    68. 

  68. 

  69. HTMLTAGS=" a p h1 h2 h3 h4 h5 h6 dl dd dt ul ol li pre code table tr td th"
    70. 

  70. HTMLTAGS=" $HTMLTAGS b u i s q em strong strike cite big small sup sub tt"
    71. 

  71. HTMLTAGS=" $HTMLTAGS thead tbody center hr br nobr wbr"
    72. 

  72. HTMLTAGS=" $HTMLTAGS span div img adress blockquote"
    73. 

  73. HTMLTAGS2=" html head body title meta http-equiv style link"
    74. 

  74. 

  75. # ==========================================================================
    76. 

  76. if "${SHELL-/bin/sh}" -c 'foo () { exit 0; }; foo' 2>$NULL ; then : ; else
    77. 

  77. echo "!! sorry, this shell '$SHELL' does not support shell functions" ; exit 1
    78. 

  78. fi
    79. 

  79. 

  80. error ()
    81. 

  81. {
    82. 

  82.     echo "ERROR:" "$@" 1>&2
    83. 

  83. }
    84. 

  84. 

  85. warn ()
    86. 

  86. {
    87. 

  87.     echo "WARN:" "$@" 1>&2
    88. 

  88. }
    89. 

  89. 

  90. note ()
    91. 

  91. {
    92. 

  92.     echo "NOTE:" "$@" 1>&2
    93. 

  93. }
    94. 

  94. 

  95. hint=":"
    96. 

  96. 

  97. init ()
    98. 

  98. {
    99. 

  99.     if test -d DEBUG
    100. 

  100. 	then hint="note"
    101. 

  101.     fi
    102. 

  102.     if test "$SED" = "sed" ; then
    103. 

  103. 	if gsed --version 2>$NULL | $GREP "GNU sed" >$NULL ; then
    104. 

  104. 	    SED="gsed"
    105. 

  105. 	    $hint "using 'gsed' as SED"
    106. 

  106. 	fi
    107. 

  107.     fi
    108. 

  108.     if $SED --version 2>$NULL | $GREP "GNU sed" >$NULL ; then
    109. 

  109. 	az="a-z"                                # but if we have GNU sed
    110. 

  110. 	AZ="A-Z"                                # then we assume there are
    111. 

  111. 	NN="0-9"                                # char-ranges available
    112. 

  112. 	AA="_$NN$AZ$az"                         # that makes the resulting
    113. 

  113. 	AX="$AA.+-"                             # script more readable
    114. 

  114. 	$hint "found GNU sed - good"
    115. 

  115.     elif uname -s | $GREP HP-UX >$NULL ; then
    116. 

  116. 	SED_LONGSCRIPT="sed_longscript"         # due to 100 sed lines limit
    117. 

  117. 	$hint "weird sed - hpux sed has a limit of 100 lines" \
    118. 

  118. 	    "- using sed_longscript mode"
    119. 

  119.     fi
    120. 

  120.     if echo "TEST" | sed -e "s%[:[]*TEST%OK%" | grep OK 2>&1 > $NULL
    121. 

  121. 	 then :
    122. 

  122.     elif echo "TEST" | sed -e "s%[:\\[]*TEST%OK%" | grep OK 2>&1 > $NULL
    123. 

  123. 	then  AK="\\[" ; $hint "AK=\\["
    124. 

  124.     else AK="" ; warn "buggy sed - disabled [ in char-ranges / fileref-tests"
    125. 

  125.     fi
    126. 

  126.     if echo "TEST" | sed -e "s%[:|]*TEST%OK%" | grep OK 2>&1 > $NULL
    127. 

  127. 	 then :
    128. 

  128.     elif echo "TEST" | sed -e "s%[:\\|]*TEST%OK%" | grep OK 2>&1 > $NULL
    129. 

  129. 	then  AP="\\[" ; $hint "AP=\\|"
    130. 

  130.     else AP="" ; warn "buggy sed - disabled | in char-ranges / fileref-tests"
    131. 

  131.     fi	
    132. 

  132. }
    133. 

  133. 

  134. init "NOW!!!"
    135. 

  135. 

  136. sed_debug ()
    137. 

  137. {
    138. 

  138.     $note "sed" "$@" >&2
    139. 

  139.     sed "$@"
    140. 

  140. }
    141. 

  141. 

  142. # ==========================================================================
    143. 

  143. # reading options from the command line                            GETOPT
    144. 

  144. opt_variables="files"
    145. 

  145. opt_fileseparator="?"
    146. 

  146. opt_files=""
    147. 

  147. opt_main_file=""
    148. 

  148. opt_formatter="$0"
    149. 

  149. opt=""
    150. 

  150. for arg in "$@"        # this variant should allow to embed spaces in $arg
    151. 

  151. do if test ".$opt" != "." ; then
    152. 

  152.       eval "export opt_$opt='$arg'"
    153. 

  153.       opt=""
    154. 

  154.    else
    155. 

  155.       case "$arg" in
    156. 

  156.       -*=*) 
    157. 

  157.          opt=`echo "$arg" | $SED -e "s/-*\\([$AA][$AA-]*\\).*/\\1/" -e y/-/_/`
    158. 

  158.          if test ".$opt" = "." ; then
    159. 

  159.             error "invalid option $arg"
    160. 

  160.          else
    161. 

  161.             arg=`echo "$arg" | $SED -e "s/^[^=]*=//"`
    162. 

  162.             eval "export opt_$opt='$arg'"
    163. 

  163. 	    opt_variables="$opt_variables $opt"
    164. 

  164.          fi
    165. 

  165.          opt="" ;;
    166. 

  166.       -*?-*) : an option with an argument --main-file=x or --main-file x
    167. 

  167.          opt=`echo "$arg" | $SED -e "s/-*\\([$AA][$AA-]*\\).*/\\1/" -e y/-/_/`
    168. 

  168.          if test ".$opt" = "." ; then
    169. 

  169.             error "invalid option $arg"
    170. 

  170.             opt=""
    171. 

  171.          else :
    172. 

  172.             # keep the option for next round
    173. 

  173.          fi ;;
    174. 

  174.       -*)   : a simple option --filelist or --debug or --verbose
    175. 

  175.          opt=`echo "$arg" | $SED -e "s/^-*\\([$AA][$AA-]*\\).*/\\1/" -e y/-/_/`
    176. 

  176.          if test ".$opt" = "." ; then
    177. 

  177.             error "invalid option $arg"
    178. 

  178.          else
    179. 

  179.             arg=`echo "$arg" | $SED -e "s/^[^=]*=//"`
    180. 

  180.             eval "export opt_$opt=' '"
    181. 

  181.          fi
    182. 

  182.          opt="" ;;
    183. 

  183.       *) $hint "<$arg>"
    184. 

  184. 	 if test ".$opt_main_file" = "." ; then opt_main_file="$arg" ; else
    185. 

  185.          test ".$opt_files" != "." && opt_files="$opt_files$opt_fileseparator"
    186. 

  186.          opt_files="$opt_files$arg" ; fi
    187. 

  187.          opt="" ;;
    188. 

  188.       esac
    189. 

  189.    fi
    190. 

  190. done ; if test ".$opt" != "." ; then
    191. 

  191.       eval "export opt_$opt='$arg'"
    192. 

  192.       opt=""
    193. 

  193. fi
    194. 

  194. ### env | grep ^opt
    195. 

  195. 

  196. test ".$opt_main_file" != "." && test -f "$opt_main_file" && \
    197. 

  197. SITEFILE="$opt_main_file"
    198. 

  198. test ".$opt_site_file" != "." && test -f "$opt_site_file" && \
    199. 

  199. SITEFILE="$opt_site_file"
    200. 

  200. test "$opt_debug" && \
    201. 

  201. hint="note"
    202. 

  202. 

  203. if test ".$opt_help" != "." ; then
    204. 

  204.     F="$SITEFILE"
    205. 

  205.     echo "$0 [sitefile]";
    206. 

  206.     echo "  default sitefile = $F";
    207. 

  207.     echo "options:";
    208. 

  208.     echo " --filelist : show list of target files as ectracted from $F"
    209. 

  209.     echo " --src-dir xx : if source files are not where mksite is executed"
    210. 

  210.     echo " --tmp-dir xx : use temp instead of local directory"
    211. 

  211.     echo " --tmp : use automatic temp directory in ${TEMP-/tmp}/mksite.*"
    212. 

  212.     exit;
    213. 

  213.     echo " internal:"
    214. 

  214.     echo "--fileseparator=x : for building the internal filelist (default '?')"
    215. 

  215.     echo "--files xx : for list of additional files to be processed"
    216. 

  216.     echo "--main-file xx : for the main sitefile to take file list from"
    217. 

  217. fi
    218. 

  218. 

  219. if test ".$SITEFILE" = "." ; then
    220. 

  220.    error "no SITEFILE found (default would be 'site.htm')"
    221. 

  221.    exit 1
    222. 

  222. else
    223. 

  223.    $hint "sitefile:" `ls -s $SITEFILE`
    224. 

  224. fi
    225. 

  225. 

  226. tmp="." ; if test ".$opt_tmp_dir" != "." ; then tmp="$opt_tmp_dir" ; fi
    227. 

  227. if test ".$opt_tmp_dir" = "." && test ".$opt_tmp" != "." ; then
    228. 

  228. tmp="${TEMP-/tmp}/mksite.$$" ; fi
    229. 

  229. 

  230. # we use external files to store mappings - kind of relational tables
    231. 

  231. MK_TAGS="$tmp/$MK.tags.tmp.sed"
    232. 

  232. MK_VARS="$tmp/$MK.vars.tmp.sed"
    233. 

  233. MK_SPAN="$tmp/$MK.span.tmp.sed"
    234. 

  234. MK_META="$tmp/$MK.meta.tmp.htm"
    235. 

  235. MK_METT="$tmp/$MK.mett.tmp.htm"
    236. 

  236. MK_TEST="$tmp/$MK.test.tmp.htm"
    237. 

  237. MK_FAST="$tmp/$MK.fast.tmp.sed"
    238. 

  238. MK_GETS="$tmp/$MK.gets.tmp.sed"
    239. 

  239. MK_PUTS="$tmp/$MK.puts.tmp.sed"
    240. 

  240. MK_SITE="$tmp/$MK.site.tmp.sed"
    241. 

  241. MK_SECT1="$tmp/$MK.sect1.tmp.sed"
    242. 

  242. MK_SECT2="$tmp/$MK.sect2.tmp.sed"
    243. 

  243. MK_SECT3="$tmp/$MK.sect3.tmp.sed"
    244. 

  244. MK_STYLE="$tmp/$MK.style.tmp.sed"
    245. 

  245. MK_DATA="$tmp/$MK.$DATA.tmp.htm"
    246. 

  246. 

  247. # ========================================================================
    248. 

  248. # ========================================================================
    249. 

  249. # ========================================================================
    250. 

  250. #                                                             MAGIC VARS
    251. 

  251. #                                                            IN $SITEFILE
    252. 

  252. printerfriendly=""
    253. 

  253. sectionlayout="list"
    254. 

  254. sitemaplayout="list"
    255. 

  255. attribvars=" "         # <x ref="${varname:=default}">
    256. 

  256. updatevars=" "         # <!--$varname:=-->default
    257. 

  257. expandvars=" "         # <!--$varname-->
    258. 

  258. commentvars=" "        # $updatevars && $expandsvars
    259. 

  259. sectiontab=" "         # highlight ^<td class=...>...href="$section"
    260. 

  260. currenttab=" "         # highlight ^<br>..<a href="$topic">
    261. 

  261. headsection="no"
    262. 

  262. tailsection="no"
    263. 

  263. sectioninfo="no"       # using <h2> title <h2> = info text
    264. 

  264. emailfooter="no"
    265. 

  265. 

  266. if $GREP "<!--multi-->"               $SITEFILE >$NULL ; then
    267. 

  267. echo \
    268. 

  268. "WARNING: do not use <!--multi-->, change to <!--mksite:multi--> " "$SITEFILE"
    269. 

  269. echo \
    270. 

  270. "warning: or <!--mksite:multisectionlayout--> <!--mksite:multisitemaplayout-->"
    271. 

  271. sectionlayout="multi"
    272. 

  272. sitemaplayout="multi"
    273. 

  273. fi
    274. 

  274. if $GREP "<!--mksite:multi-->"               $SITEFILE >$NULL ; then
    275. 

  275. sectionlayout="multi"
    276. 

  276. sitemaplayout="multi"
    277. 

  277. fi
    278. 

  278. if $GREP "<!--mksite:multilayout-->"         $SITEFILE >$NULL ; then
    279. 

  279. sectionlayout="multi"
    280. 

  280. sitemaplayout="multi"
    281. 

  281. fi
    282. 

  282. 

  283. mksite_magic_option ()
    284. 

  284. {
    285. 

  285.     # $1 is word/option to check for
    286. 

  286.     INP="$2" ; test ".$INP" = "." && INP="$SITEFILE"
    287. 

  287.     $SED \
    288. 

  288.       -e "s/\\(<!--mksite:\\)\\($1\\)-->/\\1\\2: -->/g" \
    289. 

  289.       -e "s/\\(<!--mksite:\\)\\([$AA][$AA]*\\)\\($1\\)-->/\\1\\3:\\2-->/g" \
    290. 

  290.       -e "/<!--mksite:$1:/!d" \
    291. 

  291.       -e "s/.*<!--mksite:$1:\\([^<>]*\\)-->.*/\\1/" \
    292. 

  292.       -e "s/.*<!--mksite:$1:\\([^-]*\\)-->.*/\\1/" \
    293. 

  293.       -e "/<!--mksite:$1:/d" -e q $INP # $++
    294. 

  294. }
    295. 

  295. 

  296. x=`mksite_magic_option sectionlayout` ; case "$x" in
    297. 

  297.        "list"|"multi") sectionlayout="$x" ;; esac
    298. 

  298. x=`mksite_magic_option sitemaplayout` ; case "$x" in
    299. 

  299.        "list"|"multi") sitemaplayout="$x" ;; esac
    300. 

  300. x=`mksite_magic_option attribvars` ; case "$x" in
    301. 

  301.       " "|"no"|"warn") attribvars="$x" ;; esac
    302. 

  302. x=`mksite_magic_option updatevars` ; case "$x" in
    303. 

  303.       " "|"no"|"warn") updatevars="$x" ;; esac
    304. 

  304. x=`mksite_magic_option expandvars` ; case "$x" in
    305. 

  305.       " "|"no"|"warn") expandvars="$x" ;; esac
    306. 

  306. x=`mksite_magic_option commentvars` ; case "$x" in
    307. 

  307.       " "|"no"|"warn") commentvars="$x" ;; esac
    308. 

  308. x=`mksite_magic_option printerfriendly` ; case "$x" in
    309. 

  309.         " "|".*"|"-*") printerfriendly="$x" ;; esac
    310. 

  310. x=`mksite_magic_option sectiontab` ; case "$x" in
    311. 

  311.       " "|"no"|"warn") sectiontab="$x" ;; esac
    312. 

  312. x=`mksite_magic_option currenttab` ; case "$x" in
    313. 

  313.       " "|"no"|"warn") currenttab="$x" ;; esac
    314. 

  314. x=`mksite_magic_option sectioninfo` ; case "$x" in
    315. 

  315.       " "|"no"|"[=:-]") sectioninfo="$x" ;; esac
    316. 

  316. x=`mksite_magic_option emailfooter` 
    317. 

  317.    test ".$x" != "." && emailfooter="$x"
    318. 

  318. 

  319. test ".$opt_print" != "." && printerfriendly="$opt_print"
    320. 

  320. test ".$commentvars"  = ".no" && updatevars="no"   # duplicated into
    321. 

  321. test ".$commentvars"  = ".no" && expandvars="no"   # info2vars_sed ()
    322. 

  322. 

  323. 

  324. $hint "'$sectionlayout'sectionlayout '$sitemaplayout'sitemaplayout"
    325. 

  325. $hint "'$attribvars'attribvars '$updatevars'updatevars"
    326. 

  326. $hint "'$expandvars'expandvars '$commentvars'commentvars "
    327. 

  327. $hint "'$currenttab'currenttab '$sectiontab'sectiontab"
    328. 

  328. $hint "'$headsection'headsection '$tailsection'tailsection"
    329. 

  329. 

  330. if ($STAT_R "$SITEFILE" >$NULL) 2>$NULL ; then : ; else STAT_R=":" ; fi
    331. 

  331. # ==========================================================================
    332. 

  332. # init a few global variables
    333. 

  333. #                                                                  0. INIT
    334. 

  334. 

  335. mkpathdir () {
    336. 

  336.     if test -n "$1"  && test ! -d "$1" ; then
    337. 

  337.        echo "!! mkdir '$1'" ; mkdir "$1"
    338. 

  338.        test ! -d "$1" || mkdir -p "$1"
    339. 

  339.     fi
    340. 

  340. }
    341. 

  341. 

  342. mkpathfile () {
    343. 

  343.     dirname=`echo "$1" | $SED -e "s:/[^/][^/]*\$::"`
    344. 

  344.     if test ".$1" != ".$dirname" && test ".$dirname" != "." ;
    345. 

  345.     then mkpathdir "$dirname"; fi
    346. 

  346. }
    347. 

  347. 

  348. mknewfile () {
    349. 

  349.     mkpathfile "$1"
    350. 

  350.     $CATNULL > "$1" 
    351. 

  351. }
    352. 

  352. 

  353. tmp_dir_was_created="no"
    354. 

  354. if test ! -d "$tmp" ; then mkpathdir "$tmp" ; tmp_dir_was_created="yes" ; fi
    355. 

  355. 

  356. # $MK_TAGS - originally, we would use a lambda execution on each 
    357. 

  357. # uppercased html tag to replace <P> with <p class="P">. Here we just
    358. 

  358. # walk over all the known html tags and make an sed script that does
    359. 

  359. # the very same conversion. There would be a chance to convert a single
    360. 

  360. # tag via "h;y;x" or something we do want to convert all the tags on
    361. 

  361. # a single line of course.
    362. 

  362. mknewfile "$MK_TAGS"
    363. 

  363. for M in `echo $HTMLTAGS`
    364. 

  364. do P=`echo "$M" | $SED -e "y/$LOWER/$UPPER/"`
    365. 

  365.   echo "s|<$P>|<$M class=\"$P\">|g"         >> "$MK_TAGS"
    366. 

  366.   echo "s|<$P |<$M class=\"$P\" |g"         >> "$MK_TAGS"
    367. 

  367.   echo "s|</$P>|</$M>|g"                    >> "$MK_TAGS"
    368. 

  368. done
    369. 

  369.   echo "s|<>|\\&nbsp\\;|g"                  >> "$MK_TAGS"
    370. 

  370.   echo "s|<->|<WBR />|g"                    >> "$MK_TAGS"
    371. 

  371.   echo "s|<c>|<code>|g"                     >> "$MK_TAGS"
    372. 

  372.   echo "s|</c>|</code>|g"                   >> "$MK_TAGS"
    373. 

  373.   echo "s|<section>||g"                     >> "$MK_TAGS"
    374. 

  374.   echo "s|</section>||g"                    >> "$MK_TAGS"
    375. 

  375.   echo "s|<\\(a [^<>]*\\) />|<\\1></a>|g"   >> "$MK_TAGS"
    376. 

  376.   _ulink_="<a href=\"\\1\" remap=\"url\">\\1</a>"
    377. 

  377.   echo "s|<a>\\([$az$AZ][$az$AZ]*://[^<>]*\\)</a>|$_ulink_|g" >> "$MK_TAGS"
    378. 

  378. # also make sure that some non-html entries are cleaned away that
    379. 

  379. # we are generally using to inject meta information. We want to see
    380. 

  380. # that meta ino in the *.htm browser view during editing but they
    381. 

  381. # shall not get present in the final html page for publishing.
    382. 

  382. DC_VARS="contributor date source language coverage identifier"
    383. 

  383. DC_VARS="$DC_VARS rights relation creator subject description"
    384. 

  384. DC_VARS="$DC_VARS publisher DCMIType"
    385. 

  385. _EQUIVS="refresh expires content-type cache-control"
    386. 

  386. _EQUIVS="$_EQUIVS redirect charset" # mapped to refresh / content-type
    387. 

  387. _EQUIVS="$_EQUIVS content-language content-script-type content-style-type"
    388. 

  388. for P in $DC_VARS $_EQUIVS ; do # dublin core embedded
    389. 

  389.    echo "s|<$P>[^<>]*</$P>||g"              >> "$MK_TAGS"
    390. 

  390. done
    391. 

  391.    test ".$opt_keepsect" = "." && \
    392. 

  392.    echo "s|<a sect=\"[$AZ$NN]\"|<a|g"       >> "$MK_TAGS"
    393. 

  393.    echo "s|<!--[$AX]*[?]-->||g"             >> "$MK_TAGS"
    394. 

  394.    echo "s|<!--\\\$[$AX]*[?]:-->||g"        >> "$MK_TAGS"
    395. 

  395.    echo "s|<!--\\\$[$AX]*:[?=]-->||g"       >> "$MK_TAGS"
    396. 

  396.    echo "s|\\(<[^<>]*\\)\\\${[$AX]*:[?=]\\([^<{}>]*\\)}\\([^<>]*>\\)|\\1\\2\\3|g"        >>$MK_TAGS
    397. 

  397. 

  398. # see overview at www.metatab.de - http-equivs are
    399. 

  399. # <refresh>5; url=target</reresh>   or <redirect>target</redirect>
    400. 

  400. # <content-type>text/html; charset=koi8-r</content-type> iso-8859-1/UTF-8
    401. 

  401. # <content-language>de</content-language>             <charset>UTF-8</charset>
    402. 

  402. # <content-script-type>text/javascript</content-script-type> /jscript/vbscript
    403. 

  403. # <content-style-type>text/css</content-style-type>
    404. 

  404. # <cache-control>no-cache</cache-control>
    405. 

  405. 

  406. trimm ()
    407. 

  407. {
    408. 

  408.     echo "$1" | $SED -e "s:^ *::" -e "s: *\$::";
    409. 

  409. }
    410. 

  410. trimmm ()
    411. 

  411. {
    412. 

  412.     echo "$1" | $SED -e "s:^ *::" -e "s: *\$::" -e "s:[	 ][	 ]*: :g";
    413. 

  413. }
    414. 

  414. 

  415. timezone ()
    416. 

  416. {
    417. 

  417.     # +%z is an extension while +%Z is supposed to be posix
    418. 

  418.     _timezone=`$DATE_NOW +%z`
    419. 

  419.     case "$_timezone" in
    420. 

  420. 	*+*) echo "$_timezone" ;;
    421. 

  421. 	*-*) echo "$_timezone" ;;
    422. 

  422. 	*) $DATE_NOW +%Z
    423. 

  423.     esac
    424. 

  424. }
    425. 

  425. timetoday () 
    426. 

  426. {
    427. 

  427.     $DATE_NOW +%Y-%m-%d
    428. 

  428. }
    429. 

  429. timetodays ()
    430. 

  430. {
    431. 

  431.     $DATE_NOW +%Y-%m%d
    432. 

  432. }
    433. 

  433.     
    434. 

  434. # ======================================================================
    435. 

  435. #                                                                FUNCS
    436. 

  436. 

  437. sed_longscript ()
    438. 

  438. {
    439. 

  439.     # hpux sed has a limit of 100 entries per sed script !
    440. 

  440.     $SED             -e "100q" "$1" > "$1~1~"
    441. 

  441.     $SED -e "1,100d" -e "200q" "$1" > "$1~2~"
    442. 

  442.     $SED -e "1,200d" -e "300q" "$1" > "$1~3~"
    443. 

  443.     $SED -e "1,300d" -e "400q" "$1" > "$1~4~"
    444. 

  444.     $SED -e "1,400d" -e "500q" "$1" > "$1~5~"
    445. 

  445.     $SED -e "1,500d" -e "600q" "$1" > "$1~6~"
    446. 

  446.     $SED -e "1,600d" -e "700q" "$1" > "$1~7~"
    447. 

  447.     $SED -e "1,700d" -e "800q" "$1" > "$1~8~"
    448. 

  448.     $SED -e "1,800d" -e "900q" "$1" > "$1~9~"
    449. 

  449.     $SED -f "$1~1~"  -f "$1~2~" -f "$1~3~" -f "$1~4~" -f "$1~5~" \
    450. 

  450.          -f "$1~6~"  -f "$1~7~" -f "$1~8~" -f "$1~9~" "$2"
    451. 

  451. }
    452. 

  452. 

  453. sed_escape_key () 
    454. 

  454. {
    455. 

  455.     $SED -e "s|\\.|\\\\&|g" -e "s|\\[|\\\\&|g" -e "s|\\]|\\\\&|g" "$@"
    456. 

  456. }
    457. 

  457. 

  458. sed_slash_key ()      # helper to escape chars special in /anchor/ regex
    459. 

  459. {                     # currently escaping "/" "[" "]" "."
    460. 

  460.     echo "$1" | sed_escape_key -e "s|/|\\\\&|g"
    461. 

  461. }
    462. 

  462. sed_piped_key ()      # helper to escape chars special in s|anchor|| regex
    463. 

  463. {                     # currently escaping "|" "[" "]" "."
    464. 

  464.     echo "$1" | sed_escape_key -e "s/|/\\\\&/g"
    465. 

  465. }
    466. 

  466. 

  467. back_path ()          # helper to get the series of "../" for a given path
    468. 

  468. {
    469. 

  469.     echo "$1" | $SED -e "/\\//!d" -e "s|/[^/]*\$|/|" -e "s|[^/]*/|../|g"
    470. 

  470. }
    471. 

  471. 

  472. dir_name ()
    473. 

  473. {
    474. 

  474.     echo "$1" | $SED -e "s:/[^/][^/]*\$::"
    475. 

  475. }
    476. 

  476. 

  477. piped_value="s/|/\\\\|/g"
    478. 

  478. amp_value="s|&|\\\\&|g"
    479. 

  479. info2vars_sed ()          # generate <!--$vars--> substition sed addon script
    480. 

  480. {
    481. 

  481.   INP="$1" ; test ".$INP" = "." && INP="$tmp/$F.$DATA"
    482. 

  482.   V8=" *\\([^ ][^ ]*\\) \\(.*\\)<$QX>"
    483. 

  483.   V9=" *DC[.]\\([^ ][^ ]*\\) \\(.*\\)<$QX>"
    484. 

  484.   N8=" *\\([^ ][^ ]*\\) \\([$NN].*\\)<$QX>"
    485. 

  485.   N9=" *DC[.]\\([^ ][^ ]*\\) \\([$NN].*\\)<$QX>"
    486. 

  486.   V0="\\\\([<]*\\\\)\\\\\\\$"
    487. 

  487.   V1="\\\\([^<>]*\\\\)\\\\\\\$"
    488. 

  488.   V2="\\\\([^{<>}]*\\\\)"
    489. 

  489.   V3="\\\\([^<>]*\\\\)"
    490. 

  490.   SS="<""<>"">" # spacer so value="2004" does not make for s|\(...\)|\12004|
    491. 

  491.   test ".$commentvars"  = ".no" && updatevars="no"   # duplicated from
    492. 

  492.   test ".$commentvars"  = ".no" && expandvars="no"   # option handling
    493. 

  493.   test ".$expandvars" != ".no" && \
    494. 

  494.   $SED -e "/^=....=formatter /d" -e "$piped_value" \
    495. 

  495.       -e "/^<$Q'name'>/s,<$Q'name'>$V9,s|<!--$V0\\1[?]-->|- \\2|," \
    496. 

  496.       -e "/^<$Q'Name'>/s,<$Q'Name'>$V9,s|<!--$V0\\1[?]-->|(\\2)|," \
    497. 

  497.       -e "/^<$Q'name'>/s,<$Q'name'>$V8,s|<!--$V0\\1[?]-->|- \\2|," \
    498. 

  498.       -e "/^<$Q'Name'>/s,<$Q'Name'>$V8,s|<!--$V0\\1[?]-->|(\\2)|," \
    499. 

  499.       -e "/^<$Q/d" -e "/^<!/d" -e "$amp_value"  $INP # $++
    500. 

  500.   test ".$expandvars" != ".no" && \
    501. 

  501.   $SED -e "/^=....=formatter /d" -e "$piped_value" \
    502. 

  502.       -e "/^<$Q'text'>/s,<$Q'text'>$V9,s|<!--$V1\\1-->|\\\\1$SS\\2|," \
    503. 

  503.       -e "/^<$Q'Text'>/s,<$Q'Text'>$V9,s|<!--$V1\\1-->|\\\\1$SS\\2|," \
    504. 

  504.       -e "/^<$Q'name'>/s,<$Q'name'>$V9,s|<!--$V1\\1[?]-->|\\\\1$SS\\2|," \
    505. 

  505.       -e "/^<$Q'Name'>/s,<$Q'Name'>$V9,s|<!--$V1\\1[?]-->|\\\\1$SS\\2|," \
    506. 

  506.       -e "/^<$Q'text'>/s,<$Q'text'>$V8,s|<!--$V1\\1-->|\\\\1$SS\\2|," \
    507. 

  507.       -e "/^<$Q'Text'>/s,<$Q'Text'>$V8,s|<!--$V1\\1-->|\\\\1$SS\\2|," \
    508. 

  508.       -e "/^<$Q'name'>/s,<$Q'name'>$V8,s|<!--$V1\\1[?]-->|\\\\1$SS\\2|," \
    509. 

  509.       -e "/^<$Q'Name'>/s,<$Q'Name'>$V8,s|<!--$V1\\1[?]-->|\\\\1$SS\\2|," \
    510. 

  510.       -e "/^<$Q/d" -e "/^<!/d" -e "$amp_value"  $INP # $++
    511. 

  511.   test ".$updatevars" != ".no" && \
    512. 

  512.   $SED -e "/^=....=formatter /d" -e "$piped_value" \
    513. 

  513.       -e "/^<$Q'name'>/s,<$Q'name'>$V9,s|<!--$V0\\1:[?]-->[^<>]*|- \\2|," \
    514. 

  514.       -e "/^<$Q'Name'>/s,<$Q'Name'>$V9,s|<!--$V0\\1:[?]-->[^<>]*|(\\2)|," \
    515. 

  515.       -e "/^<$Q'name'>/s,<$Q'name'>$V8,s|<!--$V0\\1:[?]-->[^<>]*|- \\2|," \
    516. 

  516.       -e "/^<$Q'Name'>/s,<$Q'Name'>$V8,s|<!--$V0\\1:[?]-->[^<>]*|(\\2)|," \
    517. 

  517.       -e "/^<$Q/d"  -e "/^<!/d" -e "$amp_value"  $INP # $++
    518. 

  518.   test ".$updatevars" != ".no" && \
    519. 

  519.   $SED -e "/^=....=formatter /d"  -e "$piped_value" \
    520. 

  520.       -e "/^<$Q'text'>/s,<$Q'text'>$V9,s|<!--$V1\\1:[=]-->[^<>]*|\\\\1$SS\\2|," \
    521. 

  521.       -e "/^<$Q'Text'>/s,<$Q'Text'>$V9,s|<!--$V1\\1:[=]-->[^<>]*|\\\\1$SS\\2|," \
    522. 

  522.       -e "/^<$Q'name'>/s,<$Q'name'>$V9,s|<!--$V1\\1:[?]-->[^<>]*|\\\\1$SS\\2|," \
    523. 

  523.       -e "/^<$Q'Name'>/s,<$Q'Name'>$V9,s|<!--$V1\\1:[?]-->[^<>]*|\\\\1$SS\\2|," \
    524. 

  524.       -e "/^<$Q'text'>/s,<$Q'text'>$V8,s|<!--$V1\\1:[=]-->[^<>]*|\\\\1$SS\\2|," \
    525. 

  525.       -e "/^<$Q'Text'>/s,<$Q'Text'>$V8,s|<!--$V1\\1:[=]-->[^<>]*|\\\\1$SS\\2|," \
    526. 

  526.       -e "/^<$Q'name'>/s,<$Q'name'>$V8,s|<!--$V1\\1:[?]-->[^<>]*|\\\\1$SS\\2|," \
    527. 

  527.       -e "/^<$Q'Name'>/s,<$Q'Name'>$V8,s|<!--$V1\\1:[?]-->[^<>]*|\\\\1$SS\\2|," \
    528. 

  528.       -e "/^<$Q/d" -e "/^<!/d" -e "$amp_value"  $INP # $++
    529. 

  529.   test ".$attribvars" != ".no" && \
    530. 

  530.   $SED -e "/^=....=formatter /d" -e "$piped_value" \
    531. 

  531.       -e "/^<$Q'text'>/s,<$Q'text'>$V9,s|<$V1{\\1:[=]$V2}$V3>|<\\\\1$SS\\2\\\\3>|," \
    532. 

  532.       -e "/^<$Q'Text'>/s,<$Q'Text'>$V9,s|<$V1{\\1:[=]$V2}$V3>|<\\\\1$SS\\2\\\\3>|," \
    533. 

  533.       -e "/^<$Q'name'>/s,<$Q'name'>$V9,s|<$V1{\\1:[?]$V2}$V3>|<\\\\1$SS\\2\\\\3>|," \
    534. 

  534.       -e "/^<$Q'Name'>/s,<$Q'Name'>$V9,s|<$V1{\\1:[?]$V2}$V3>|<\\\\1$SS\\2\\\\3>|," \
    535. 

  535.       -e "/^<$Q'text'>/s,<$Q'text'>$V8,s|<$V1{\\1:[=]$V2}$V3>|<\\\\1$SS\\2\\\\3>|," \
    536. 

  536.       -e "/^<$Q'Text'>/s,<$Q'Text'>$V8,s|<$V1{\\1:[=]$V2}$V3>|<\\\\1$SS\\2\\\\3>|," \
    537. 

  537.       -e "/^<$Q'name'>/s,<$Q'name'>$V8,s|<$V1{\\1:[?]$V2}$V3>|<\\\\1$SS\\2\\\\3>|," \
    538. 

  538.       -e "/^<$Q'Name'>/s,<$Q'Name'>$V8,s|<$V1{\\1:[?]$V2}$V3>|<\\\\1$SS\\2\\\\3>|," \
    539. 

  539.       -e "/^<$Q/d" -e "/^<!/d" -e "$amp_value"  $INP # $++
    540. 

  540.   # if value="2004" then generated sed might be "\\12004" which is bad
    541. 

  541.   # instead we generate an edited value of "\\1$SS$value" and cut out
    542. 

  542.   # the spacer now after expanding the variable values:
    543. 

  543.   echo "s|$SS||g" # $++
    544. 

  544. }
    545. 

  545. 

  546. info2meta_sed ()         # generate <meta name..> text portion
    547. 

  547. {
    548. 

  548.   # http://www.metatab.de/meta_tags/DC_type.htm
    549. 

  549.   INP="$1" ; test ".$INP" = "." && INP="$tmp/$F.$DATA"
    550. 

  550.   V6=" *HTTP[.]\\([^ ][^ ]*\\) \\(.*\\)<$QX>"
    551. 

  551.   V7=" *DC[.]\\([^ ][^ ]*\\) \\(.*\\)<$QX>"
    552. 

  552.   V8=" *\\([^ ][^ ]*\\) \\(.*\\)<$QX>"
    553. 

  553.   DATA_META_TYPE_SCHEME="name=\"DC.type\" content=\"\\2\" scheme=\"\\1\""
    554. 

  554.   DATA_META_DCMI="name=\"\\1\" content=\"\\2\" scheme=\"DCMIType\""
    555. 

  555.   DATA_META_NAME_TZ="name=\"\\1\" content=\"\\2 `timezone`\"" 
    556. 

  556.   DATA_META_NAME="name=\"\\1\" content=\"\\2\""
    557. 

  557.   DATA_META_HTTP="http-equiv=\"\\1\" content=\"\\2\""
    558. 

  558.   $SED -e "/=....=today /d" \
    559. 

  559.   -e "/<$Q'meta'>HTTP[.]/s,<$Q'meta'>$V6, <meta $DATA_META_HTTP />," \
    560. 

  560.   -e "/<$Q'meta'>DC[.]DCMIType /s,<$Q'meta'>$V7, <meta $DATA_META_TYPE_SCHEME />," \
    561. 

  561.   -e "/<$Q'meta'>DC[.]type Collection$/s,<$Q'meta'>$V8, <meta $DATA_META_DCMI />," \
    562. 

  562.   -e "/<$Q'meta'>DC[.]type Dataset$/s,<$Q'meta'>$V8, <meta $DATA_META_DCMI />," \
    563. 

  563.   -e "/<$Q'meta'>DC[.]type Event$/s,<$Q'meta'>$V8, <meta $DATA_META_DCMI />," \
    564. 

  564.   -e "/<$Q'meta'>DC[.]type Image$/s,<$Q'meta'>$V8, <meta $DATA_META_DCMI />," \
    565. 

  565.   -e "/<$Q'meta'>DC[.]type Service$/s,<$Q'meta'>$V8, <meta $DATA_META_DCMI />," \
    566. 

  566.   -e "/<$Q'meta'>DC[.]type Software$/s,<$Q'meta'>$V8, <meta $DATA_META_DCMI />," \
    567. 

  567.   -e "/<$Q'meta'>DC[.]type Sound$/s,<$Q'meta'>$V8, <meta $DATA_META_DCMI />," \
    568. 

  568.   -e "/<$Q'meta'>DC[.]type Text$/s,<$Q'meta'>$V8, <meta $DATA_META_DCMI />," \
    569. 

  569.   -e "/<$Q'meta'>DC[.]date[.].*[+]/s,<$Q'meta'>$V8, <meta $DATA_META_NAME />," \
    570. 

  570.   -e "/<$Q'meta'>DC[.]date[.].*[:]/s,<$Q'meta'>$V8, <meta $DATA_META_NAME_TZ />," \
    571. 

  571.   -e "/<$Q'meta'>/s,<$Q'meta'>$V8, <meta $DATA_META_NAME />," \
    572. 

  572.   -e "/<meta name=\"[^\"]*\" content=\"\" /d" \
    573. 

  573.   -e "/<meta http-equiv=\"[^\"]*\" content=\"\" /d" \
    574. 

  574.   -e "/^<$Q/d" -e "/^<!/d" $INP # $++
    575. 

  575. }
    576. 

  576. 

  577. info_get_entry () # get the first <!--vars--> value known so far
    578. 

  578. {
    579. 

  579.   TXT="$1" ; test ".$TXT" = "." && TXT="sect"
    580. 

  580.   INP="$2" ; test ".$INP" = "." && INP="$tmp/$F.$DATA"
    581. 

  581.   $SED -e "/<$Q'text'>$TXT /!d" \
    582. 

  582.        -e "s|<$Q'text'>$TXT ||" -e "s|<$QX>||" -e "q" $INP # $++
    583. 

  583. }
    584. 

  584. 

  585. info1grep () # test for a <!--vars--> substition to be already present
    586. 

  586. {
    587. 

  587.   TXT="$1" ; test ".$TXT" = "." && TXT="sect"
    588. 

  588.   INP="$2" ; test ".$INP" = "." && INP="$tmp/$F.$DATA"
    589. 

  589.   $GREP "^<$Q'text'>$TXT " $INP >$NULL
    590. 

  590.   return $?
    591. 

  591. }
    592. 

  592. 

  593. dx_init()
    594. 

  594. {
    595. 

  595.     mkpathdir "$tmp"
    596. 

  596.     dx_meta formatter `basename $opt_formatter` > "$tmp/$F.$DATA"
    597. 

  597.     for opt in $opt_variables ; do case "$opt" in # commandline --def=value
    598. 

  598.       *_*) op_=`echo "$opt" | sed -e "y/_/-/"`    # makes for <!--$def-->
    599. 

  599.            dx_meta "$op_" `eval echo "\\\$opt_$opt"` ;; 
    600. 

  600.       *)   dx_text "$opt" `eval echo "\\\$opt_$opt"` ;;
    601. 

  601.     esac ; done
    602. 

  602. }
    603. 

  603. 

  604. dx_line ()
    605. 

  605. {
    606. 

  606.     echo "<$Q$1>$2 "`trimmm "$3"`"<$QX>" >> "$tmp/$F.$DATA"
    607. 

  607. }
    608. 

  608. 

  609. DX_line ()
    610. 

  610. {
    611. 

  611.     dx_val_=`echo "$3" | sed -e "s/<[^<>]*>//g"`
    612. 

  612.     dx_line "$1" "$2" "$dx_val_"
    613. 

  613. }
    614. 

  614. 

  615. dx_text ()
    616. 

  616. {
    617. 

  617.     dx_line "'text'" "$1" "$2"
    618. 

  618. }
    619. 

  619. 

  620. DX_text ()   # add a <!--vars--> substition includings format variants
    621. 

  621. {
    622. 

  622.   N=`trimm "$1"` ; T=`trimm "$2"`
    623. 

  623.   if test ".$N" != "." ; then
    624. 

  624.     if test ".$T" != "." ; then
    625. 

  625.       text=`echo "$T" | $SED -e "y/$UPPER/$LOWER/" -e "s/<[^<>]*>//g"`
    626. 

  626.       dx_line "'text'" "$N" "$T"
    627. 

  627.       dx_line "'name'" "$N" "$text"
    628. 

  628.       varname=`echo "$N" | $SED -e 's/.*[.]//'`    # cut out front part
    629. 

  629.       if test ".$N" != ".$varname" ; then 
    630. 

  630.       text=`echo "$varname $T" | $SED -e "y/$UPPER/$LOWER/" -e "s/<[^<>]*>//g"`
    631. 

  631.       dx_line "'Text'" "$varname" "$T"
    632. 

  632.       dx_line "'Name'" "$varname" "$text"
    633. 

  633.       fi
    634. 

  634.     fi
    635. 

  635.   fi
    636. 

  636. }
    637. 

  637. 

  638. dx_meta ()
    639. 

  639. {
    640. 

  640.     DX_line "'meta'" "$1" "$2"
    641. 

  641. }
    642. 

  642. 

  643. DX_meta ()  # add simple meta entry and its <!--vars--> subsitution
    644. 

  644. {
    645. 

  645.     DX_line "'meta'" "$1" "$2"
    646. 

  646.     DX_text "$1" "$2"
    647. 

  647. }
    648. 

  648. 

  649. DC_meta ()   # add new DC.meta entry plus two <!--vars--> substitutions
    650. 

  650. {
    651. 

  651.     DX_line "'meta'" "DC.$1" "$2"
    652. 

  652.     DX_text "DC.$1" "$2"
    653. 

  653.     DX_text "$1" "$2"
    654. 

  654. }
    655. 

  655. 

  656. HTTP_meta ()   # add new HTTP.meta entry plus two <!--vars--> substitutions
    657. 

  657. {
    658. 

  658.     DX_line "'meta'" "HTTP.$1" "$2"
    659. 

  659.     DX_text "HTTP.$1" "$2"
    660. 

  660.     DX_text "$1" "$2"
    661. 

  661. }
    662. 

  662. 

  663. DC_VARS_Of () # check DC vars as listed in $DC_VARS global and generate DC_meta
    664. 

  664. {             # the results will be added to .meta.tmp and .vars.tmp later
    665. 

  665.    FILENAME="$1" ; test ".$FILENAME" = "." && FILENAME="$SOURCEFILE"   
    666. 

  666.    for M in $DC_VARS title ; do
    667. 

  667.       # scan for a <markup> of this name
    668. 

  668.       part=`$SED -e "/<$M>/!d" -e "s|.*<$M>||" -e "s|</$M>.*||" -e q $FILENAME`
    669. 

  669.       part=`trimm "$part"`
    670. 

  670.       text=`echo  "$part" | $SED -e "s|^[$AA]*:||"`
    671. 

  671.       text=`trimm "$text"`
    672. 

  672.       test ".$text" = "." && continue
    673. 

  673.       # <mark:part> will be <meta name="mark.part">
    674. 

  674.       if test ".$text" != ".$part" ; then
    675. 

  675.          N=`echo "$part" | $SED -e "s/:.*//"`
    676. 

  676.          DC_meta "$M.$N" "$text"
    677. 

  677.       elif test ".$M" = ".date" ; then
    678. 

  678.          DC_meta "$M.issued" "$text" # "<date>" -> "<date>issued:"
    679. 

  679.       else
    680. 

  680.          DC_meta "$M" "$text"
    681. 

  681.       fi
    682. 

  682.    done
    683. 

  683. }
    684. 

  684. 

  685. HTTP_VARS_Of () # check HTTP-EQUIVs as listed in $_EQUIV global then
    686. 

  686. {               # generate meta tags that are http-equiv= instead of name=
    687. 

  687.    FILENAME="$1" ; test ".$FILENAME" = "." && FILENAME="$SOURCEFILE"   
    688. 

  688.    for M in $_EQUIVS ; do
    689. 

  689.       # scan for a <markup> of this name
    690. 

  690.       part=`$SED -e "/<$M>/!d" -e "s|.*<$M>||" -e "s|</$M>.*||" -e q $FILENAME`
    691. 

  691.       part=`trimm "$part"`
    692. 

  692.       text=`echo  "$part" | $SED -e "s|^[$AA]*:||"`
    693. 

  693.       text=`trimm "$text"`
    694. 

  694.       test ".$text" = "." && continue
    695. 

  695.       if test ".$M" = ".redirect" ; then
    696. 

  696.          HTTP_meta "refresh" "5; url=$text" ; DX_text "$M" "$text"
    697. 

  697.       elif test ".$M" = ".charset" ; then
    698. 

  698.          HTTP_meta "content-type" "text/html; charset=$text" 
    699. 

  699.       else
    700. 

  700.          HTTP_meta "$M" "$text"
    701. 

  701.       fi
    702. 

  702.    done
    703. 

  703. }
    704. 

  704. 

  705. DC_isFormatOf ()       # make sure there is this DC.relation.isFormatOf tag
    706. 

  706. {                      # choose argument for a fallback (usually $SOURCEFILE)
    707. 

  707.    NAME="$1" ; test ".$NAME" = "." && NAME="$SOURCEFILE"   
    708. 

  708.    info1grep DC.relation.isFormatOf || DC_meta relation.isFormatOf "$NAME"
    709. 

  709. }
    710. 

  710. 

  711. DC_publisher ()        # make sure there is this DC.publisher meta tag
    712. 

  712. {                      # choose argument for a fallback (often $USER)
    713. 

  713.    NAME="$1" ; test ".$NAME" = "." && NAME="$USER"
    714. 

  714.    info1grep DC.publisher || DC_meta publisher "$NAME"
    715. 

  715. }
    716. 

  716. 

  717. DC_modified ()         # make sure there is a DC.date.modified meta tag
    718. 

  718. {                      # maybe choose from filesystem dates if possible
    719. 

  719.    ZZ="$1" # target file
    720. 

  720.    if info1grep DC.date.modified ; then :
    721. 

  721.    else
    722. 

  722.       _42_chars="........................................."
    723. 

  723.       cut_42_55="s/^$_42_chars\\(.............\\).*/\\1/" # i.e.`cut -b 42-55`
    724. 

  724.       text=`$STAT_R $ZZ 2>$NULL | $SED -e '/odify:/!d' -e 's|.*fy:||' -e q`
    725. 

  725.       text=`echo "$text" | $SED -e "s/:..[.][$NN]*//"`
    726. 

  726.       text=`trimm "$text"`
    727. 

  727.       test ".$text" = "." && \
    728. 

  728.       text=`$DATE_R "$ZZ" +%Y-%m-%d 2>$NULL`   # GNU sed
    729. 

  729.       test ".$text" = "." && 
    730. 

  730.       text=`$LS_L "$ZZ" | $SED -e "$cut_42_55" -e "s/^ *//g" -e "q"`
    731. 

  731.       text=`echo "$text" | $SED -e "s/[$NN]*:.*//"` # cut way seconds
    732. 

  732.       DC_meta date.modified `trimm "$text"`
    733. 

  733.    fi
    734. 

  734. }
    735. 

  735. 

  736. DC_date ()             # make sure there is this DC.date meta tag
    737. 

  737. {                      # choose from one of the available DC.date.* specials
    738. 

  738.    ZZ="$1" # source file
    739. 

  739.    if info1grep DC.date 
    740. 

  740.    then DX_text issue "dated `info_get_entry DC.date`"
    741. 

  741.         DX_text updated     "`info_get_entry DC.date`"
    742. 

  742.    else text=""
    743. 

  743.       for kind in available issued modified created ; do
    744. 

  744.         text=`info_get_entry DC.date.$kind` 
    745. 

  745.       # test ".$text" != "." && echo "$kind = date = $text ($ZZ)"
    746. 

  746.         test ".$text" != "." && break
    747. 

  747.       done
    748. 

  748.       if test ".$text" = "." ; then
    749. 

  749.         M="date"
    750. 

  750.         part=`$SED -e "/<$M>/!d" -e "s|.*<$M>||" -e "s|</$M>.*||" -e q $ZZ`
    751. 

  751. 	part=`trimm "$part"`
    752. 

  752.         text=`echo "$part" | $SED -e "s|^[$AA]*:||"`
    753. 

  753. 	text=`trimm "$text"`
    754. 

  754.       fi
    755. 

  755.       if test ".$text" = "." ; then 
    756. 

  756.         M="!--date:*=*--" # takeover updateable variable...
    757. 

  757.         part=`$SED -e "/<$M>/!d" -e "s|.*<$M>||" -e "s|</.*||" -e q $ZZ`
    758. 

  758. 	part=`trimm "$part"`
    759. 

  759.         text=`echo "$part" | $SED -e "s|^[$AA]*:||" -e "s|\\&.*||"`
    760. 

  760. 	text=`trimm "$text"`
    761. 

  761.       fi
    762. 

  762.       text=`echo "$text" | $SED -e "s/[$NN]*:.*//"` # cut way seconds
    763. 

  763.       DX_text updated "$text"
    764. 

  764.       text1=`echo "$text" | $SED -e "s|^.* *updated ||"`
    765. 

  765.       if test ".$text" != ".$text1" ; then
    766. 

  766.         kind="modified" ; text=`echo "$text1" | $SED -e "s|,.*||"`
    767. 

  767.       fi
    768. 

  768.       text1=`echo "$text" | $SED -e "s|^.* *modified ||"`
    769. 

  769.       if test ".$text" != ".$text1" ; then
    770. 

  770.         kind="modified" ; text=`echo "$text1" | $SED -e "s|,.*||"`
    771. 

  771.       fi
    772. 

  772.       text1=`echo "$text" | $SED -e "s|^.* *created ||"`
    773. 

  773.       if test ".$text" != ".$text1" ; then
    774. 

  774.         kind="created" ; text=`echo "$text1" | $SED -e "s|,.*||"`
    775. 

  775.       fi
    776. 

  776.       text=`echo "$text" | $SED -e "s/[$NN]*:.*//"` # cut way seconds
    777. 

  777.       DC_meta date `trimm "$text"`
    778. 

  778.       DX_text issue `trimm "$kind $text"`
    779. 

  779.    fi
    780. 

  780. }
    781. 

  781. 

  782. DC_title ()
    783. 

  783. {
    784. 

  784.    # choose a title for the document, either an explicit title-tag
    785. 

  785.    # or one of the section headers in the document or fallback to filename
    786. 

  786.    ZZ="$1" # target file
    787. 

  787.    if info1grep DC.title ; then :
    788. 

  788.    else
    789. 

  789.       for M in TITLE title H1 h1 H2 h2 H3 H3 H4 H4 H5 h5 H6 h6 ; do
    790. 

  790.         text=`$SED -e "/<$M>/!d" -e "s|.*<$M>||" -e "s|</$M>.*||" -e q $ZZ`
    791. 

  791. 	text=`trimm "$text"` ; test ".$text" != "." && break
    792. 

  792.         MM="$M [^<>]*"
    793. 

  793.         text=`$SED -e "/<$MM>/!d" -e "s|.*<$MM>||" -e "s|</$M>.*||" -e q $ZZ`
    794. 

  794. 	text=`trimm "$text"` ; test ".$text" != "." && break
    795. 

  795.       done
    796. 

  796.       if test ".text" = "." ; then
    797. 

  797. 	text=`basename $ZZ .html`
    798. 

  798.         text=`basename $text .htm | $SED -e 'y/_/ /' -e "s/\\$/ info/"`
    799. 

  799.       fi
    800. 

  800.       term=`echo "$text" | $SED -e 's/.*[(]//' -e 's/[)].*//'`
    801. 

  801.       text=`echo "$text" | $SED -e 's/[(][^()]*[)]//'`
    802. 

  802.       if test ".$term" = "." || test ".$term" = ".$text" ; then
    803. 

  803.          DC_meta title "$text"
    804. 

  804.       else
    805. 

  805.          DC_meta title "$term - $text"
    806. 

  806.       fi
    807. 

  807.    fi
    808. 

  808. }    
    809. 

  809. 

  810. site_get_section () # return parent section page of given page
    811. 

  811. {
    812. 

  812.    _F_=`sed_slash_key "$1"`
    813. 

  813.    $SED -e "/^<$Q'sect'>$_F_ /!d" \
    814. 

  814.         -e "s|^<$Q'sect'>$_F_ ||" -e "s|<$QX>||" \
    815. 

  815.         -e q "$MK_DATA" # $++
    816. 

  816. }
    817. 

  817. 

  818. DC_section () # not really a DC relation (shall we use isPartOf ?) 
    819. 

  819. {             # each document should know its section father
    820. 

  820.    sectn=`site_get_section "$F"`
    821. 

  821.    if test ".$sectn" != "." ; then
    822. 

  822.       DC_meta relation.section "$sectn"
    823. 

  823.    fi
    824. 

  824. }
    825. 

  825. 

  826. info_get_entry_section()
    827. 

  827. {
    828. 

  828.     info_get_entry DC.relation.section # $++
    829. 

  829. }    
    830. 

  830. 

  831. site_get_selected ()  # return section of given page
    832. 

  832. {
    833. 

  833.    _F_=`sed_slash_key "$1"`
    834. 

  834.    $SED -e "/<$Q'use.'>$_F_ /!d" \
    835. 

  835.         -e "s|<$Q'use.'>[^ ]* ||" -e "s|<$QX>||" \
    836. 

  836.         -e q "$MK_DATA" # $++
    837. 

  837. }
    838. 

  838. 

  839. DC_selected () # not really a DC title (shall we use alternative ?)
    840. 

  840. {
    841. 

  841.    # each document might want to highlight the currently selected item
    842. 

  842.    short=`site_get_selected "$F"`
    843. 

  843.    if test ".$short" != "." ; then
    844. 

  844.       DC_meta title.selected "$short"
    845. 

  845.    fi
    846. 

  846. }
    847. 

  847. 

  848. info_get_entry_selected ()
    849. 

  849. {
    850. 

  850.     info_get_entry DC.title.selected # $++
    851. 

  851. }
    852. 

  852. 

  853. site_get_rootsections () # return all sections from root of nav tree
    854. 

  854. {
    855. 

  855.    $SED -e "/^<$Q'use1'>/!d" \
    856. 

  856.         -e "s|^<$Q'use.'>\\([^ ]*\\) .*|\\1|" "$MK_DATA" # $++
    857. 

  857. }
    858. 

  858. 

  859. site_get_sectionpages () # return all children pages in the given section
    860. 

  860. {
    861. 

  861.    _F_=`sed_slash_key "$1"`
    862. 

  862.    $SED -e "/^<$Q'sect'>[^ ]* $_F_<[^<>]*>\$/!d" \
    863. 

  863.         -e "s|^<$Q'sect'>||" -e "s|<$QX>||" \
    864. 

  864.         -e "s/ .*//" "$MK_DATA" # $++
    865. 

  865. }
    866. 

  866. 

  867. site_get_subpages () # return all page children of given page
    868. 

  868. {
    869. 

  869.    _F_=`sed_slash_key "$1"`
    870. 

  870.    $SED -e "/^<$Q'node'>[^ ]* $_F_<[^<>]*>\$/!d" \
    871. 

  871.         -e "s|^<$Q'node'>||" -e "s|<$QX>||" \
    872. 

  872.         -e "s/ .*//" "$MK_DATA"
    873. 

  873.    # $++
    874. 

  874. }
    875. 

  875. 

  876. site_get_parentpage () # return parent page for given page (".." for sections)
    877. 

  877. {
    878. 

  878.    _F_=`sed_slash_key "$1"`
    879. 

  879.    $SED -e "/^<$Q'node'>$_F_ /!d" \
    880. 

  880.         -e "s|^<$Q'node'>[^ ]* ||" -e "s|<$QX>||" \
    881. 

  881.         -e "q" "$MK_DATA"  # $++
    882. 

  882. }
    883. 

  883. 

  884. DX_alternative ()        # detect wether page asks for alternative style
    885. 

  885. {                        # which is generally a shortpage variant
    886. 

  886.     x=`mksite_magic_option alternative $1 | sed -e "s/^ *//" -e "s/ .*//"`
    887. 

  887.     if test ".$x" != "." ; then
    888. 

  888.       DX_text alternative "$x"
    889. 

  889.     fi
    890. 

  890. }
    891. 

  891. 

  892. info2head_sed ()      # append alternative handling script to $HEAD
    893. 

  893. {
    894. 

  894.     have=`info_get_entry alternative`
    895. 

  895.     if test ".$have" != "." ; then
    896. 

  896.        echo "/<!--mksite:alternative:$have .*-->/{" # $++
    897. 

  897.        echo "s/<!--mksite:alternative:$have\\( .*\\)-->/\\1/" # $++
    898. 

  898.        echo "q" # $++ 
    899. 

  899.        echo "}" # $++
    900. 

  900.     fi
    901. 

  901. }
    902. 

  902. info2body_sed ()      # append alternative handling script to $BODY
    903. 

  903. {
    904. 

  904.     have=`info_get_entry alternative`
    905. 

  905.     if test ".$have" != "." ; then
    906. 

  906.        echo "s/<!--mksite:alternative:$have\\( .*\\)-->/\\1/" # $++
    907. 

  907.     fi
    908. 

  908. }
    909. 

  909. 

  910. bodymaker_for_sectioninfo ()
    911. 

  911. {
    912. 

  912.     test ".$sectioninfo" = ".no" && return
    913. 

  913.     _x_="<!--mksite:sectioninfo::-->"
    914. 

  914.     _q_="\\([^<>]*[$AX][^<>]*\\)"
    915. 

  915.     test ".$sectioninfo" != ". " && _q_="[ ][ ]*$sectioninfo\\([ ]\\)" 
    916. 

  916.     echo "s|\\(^<[hH][$NN][ >].*</[hH][$NN]>\\)$_q_|\\1$_x_\\2|"       # $++
    917. 

  917.     echo "/$_x_/s|^|<table width=\"100%\"><tr valign=\"bottom\"><td>|" # $++
    918. 

  918.     echo "/$_x_/s|</[hH][$NN]>|&</td><td align=\"right\"><i>|"         # $++
    919. 

  919.     echo "/$_x_/s|\$|</i></td></tr></table>|"                          # $++
    920. 

  920.     echo "s|$_x_||"                                                    # $++
    921. 

  921. }
    922. 

  922. 

  923. fast_href ()  # args "$FILETOREFERENCE" "$FROMCURRENTFILE:$F"
    924. 

  924. {   # prints path to $FILETOREFERENCE href-clickable in $FROMCURRENTFILE
    925. 

  925.     # if no subdirectoy then output is the same as input $FILETOREFERENCE
    926. 

  926.     R="$2" ; test ".$R" = "." && R="$F"
    927. 

  927.     S=`back_path "$R"`
    928. 

  928.     if test ".$S" = "." 
    929. 

  929.     then echo "$1" # $++
    930. 

  930.     else _1_=`echo "$1" | \
    931. 

  931.          $SED -e "/^ *\$/d" -e "/^\\//d" -e "/^[.][.]/d" -e "/^[$AA]*:/d" `
    932. 

  932.          if test ".$_1_" = "." # don't move any in the pattern above
    933. 

  933.          then echo "$1"   # $++
    934. 

  934.          else echo "$S$1" # $++  prefixed with backpath
    935. 

  935.     fi fi
    936. 

  936. }
    937. 

  937. 

  938. make_back_path () # "$FILE"
    939. 

  939. {
    940. 

  940.     R="$1" ; test ".$R" = "." && R="$F"
    941. 

  941.     S=`back_path "$R"`
    942. 

  942.     if test ".$S" != "." ; then
    943. 

  943.        echo "s|\\(<[^<>]* href=\\\"\\)\\([$AA][^<>:]*\\\"[^<>]*>\\)|\\1$S\\2|g"
    944. 

  944.        echo "s|\\(<[^<>]* src=\\\"\\)\\([$AA][^<>:]*\\\"[^<>]*>\\)|\\1$S\\2|g"
    945. 

  945.     fi
    946. 

  946. }
    947. 

  947. 

  948. # ============================================================== SITE MAP DATA
    949. 

  949. # each entry needs atleast a list-title, a long-title, and a list-date
    950. 

  950. # these are the basic information to be printed in the sitemap file
    951. 

  951. # where it is bound the hierarchy of sect/subsect of the entries.
    952. 

  952. 

  953. site_map_list_title() # $file $text
    954. 

  954. {
    955. 

  955.     echo "<$Q'list'>$1 $2<$QX>" >> "$MK_DATA"
    956. 

  956. }
    957. 

  957. info_map_list_title() # $file $text
    958. 

  958. {
    959. 

  959.     echo "<$Q'list'>$2<$QX>" >> "$tmp/$1.$DATA"
    960. 

  960. }
    961. 

  961. site_map_long_title() # $file $text
    962. 

  962. {
    963. 

  963.     echo "<$Q'long'>$1 $2<$QX>" >> "$MK_DATA"
    964. 

  964. }
    965. 

  965. info_map_long_title() # $file $text
    966. 

  966. {
    967. 

  967.     echo "<$Q'long'>$2<$QX>" >> "$tmp/$1.$DATA"
    968. 

  968. }
    969. 

  969. site_map_list_date() # $file $text
    970. 

  970. {
    971. 

  971.     echo "<$Q'date'>$1 $2<$QX>" >> "$MK_DATA"
    972. 

  972. }
    973. 

  973. info_map_list_date() # $file $text
    974. 

  974. {
    975. 

  975.     echo "<$Q'date'>$2<$QX>" >> "$tmp/$1.$DATA"
    976. 

  976. }
    977. 

  977. 

  978. siteinfo2sitemap ()  # generate <name><page><date> addon sed scriptlet
    979. 

  979. {                    # the resulting script will act on each item/line
    980. 

  980.                      # containing <!--"filename"--> and expand any following
    981. 

  981.                      # reference of <!--name--> or <!--date--> or <!--long-->
    982. 

  982.   INP="$1" ; test ".$INP" = "." && INP="$MK_DATA"
    983. 

  983.   _list_="s|\\\\(<!--\"\\1\"-->.*\\\\)<name href=[^<>]*>.*</name>|\\\\1<name href=\"\\1\">\\2</name>|"
    984. 

  984.   _date_="s|\\\\(<!--\"\\1\"-->.*\\\\)<date>.*</date>|\\\\1<date>\\2</date>|"
    985. 

  985.   _long_="s|\\\\(<!--\"\\1\"-->.*\\\\)<long>.*</long>|\\\\1<long>\\2</long>|"
    986. 

  986.   $SED -e "s:&:\\\\&:g" \
    987. 

  987.        -e "s:<$Q'list'>\\([^ ]*\\) \\(.*\\)<$QX>:$_list_:" \
    988. 

  988.        -e "s:<$Q'date'>\\([^ ]*\\) \\(.*\\)<$QX>:$_date_:" \
    989. 

  989.        -e "s:<$Q'long'>\\([^ ]*\\) \\(.*\\)<$QX>:$_long_:" \
    990. 

  990.        -e "/^s|/!d" $INP # $++
    991. 

  991. }
    992. 

  992. 

  993. make_multisitemap ()
    994. 

  994. {  # each category gets its own column along with the usual entries
    995. 

  995.    INPUTS="$1" ; test ".$INPUTS" = "." && INPUTS="$MK_DATA"
    996. 

  996.    siteinfo2sitemap > "$MK_SITE" # have <name><long><date> addon-sed
    997. 

  997.   _form_="<!--\"\\2\"--><!--use\\1--><long>\\3</long><!--end\\1-->"
    998. 

  998.   _form_="$_form_<br><name href=\"\\2\">\\3</name><date>......</date>"
    999. 

  999.   _tiny_="small><small><small" ; _tinyX_="small></small></small "
    1000. 

  1000.   _tabb_="<br><$_tiny_> </$_tinyX_>" ; _bigg_="<big> </big>"
    1001. 

  1001.   echo "<table width=\"100%\"><tr><td> " # $++
    1002. 

  1002.   $SED -e "/^<$Q'[Uu]se.'>/!d" \
    1003. 

  1003.        -e "/>[$AZ$az][$AZ$az][$AZ$az][$AZ$az]*:/d" \
    1004. 

  1004.        -e "s|^<$Q'[Uu]se\\(.\\)'>\\([^ ]*\\) \\(.*\\)<$QX>|$_form_|" \
    1005. 

  1005.        -f "$MK_SITE" -e "/<name/!d" \
    1006. 

  1006.        -e "s|<!--use1-->|</td><td valign=\"top\"><b>|" \
    1007. 

  1007.        -e "s|<!--end1-->|</b>|"  \
    1008. 

  1008.        -e "s|<!--use2-->|<br>|"  \
    1009. 

  1009.        -e "s|<!--use.-->|<br>|" -e "s/<!--[^<>]*-->/ /g" \
    1010. 

  1010.        -e "s|<name |<$_tiny_><a |" -e "s|</name>||" \
    1011. 

  1011.        -e "s|<date>|<small style=\"date\">|" \
    1012. 

  1012.        -e "s|</date>|</small></a><br></$_tinyX_>|" \
    1013. 

  1013.        -e "s|<long>|<!--long-->|" -e "s|</long>|<!--/long-->|" \
    1014. 

  1014.        $INPUTS              # $++
    1015. 

  1015.    echo "</td><tr></table>" # $++
    1016. 

  1016. }
    1017. 

  1017. 

  1018. make_listsitemap ()
    1019. 

  1019. {   # traditional - the body contains a list with date and title extras
    1020. 

  1020.    INPUTS="$1" ; test ".$INPUTS" = "." && INPUTS="$MK_DATA"
    1021. 

  1021.    siteinfo2sitemap > "$MK_SITE" # have <name><long><date> addon-sed
    1022. 

  1022.    _form_="<!--\"\\2\"--><!--use\\1--><name href=\"\\2\">\\3</name>"
    1023. 

  1023.    _form_="$_form_<date>......</date><long>\\3</long>"
    1024. 

  1024.    _tabb_="<td>\\&nbsp\\;</td>" 
    1025. 

  1025.    echo "<table cellspacing=\"0\" cellpadding=\"0\">" # $++
    1026. 

  1026.    $SED -e "/^<$Q'[Uu]se.'>/!d" \
    1027. 

  1027.         -e "/>[$AZ$az][$AZ$az][$AZ$az][$AZ$az]*:/d" \
    1028. 

  1028.         -e "s|^<$Q'[Uu]se\\(.\\)'>\\([^ ]*\\) \\(.*\\)<$QX>|$_form_|" \
    1029. 

  1029.         -f "$MK_SITE" -e "/<name/!d" \
    1030. 

  1030.         -e "s|<!--use\\(1\\)-->|<tr class=\"listsitemap\\1\"><td>*</td>|" \
    1031. 

  1031.         -e "s|<!--use\\(2\\)-->|<tr class=\"listsitemap\\1\"><td>-</td>|" \
    1032. 

  1032.         -e "s|<!--use\\(.\\)-->|<tr class=\"listsitemap\\1\"><td> </td>|" \
    1033. 

  1033.         -e  "/<tr.class=\"listsitemap3\">/s|<name [^<>]*>|&- |" \
    1034. 

  1034.         -e "s|<!--[^<>]*-->| |g" \
    1035. 

  1035. 	-e "s|<name href=\"name:sitemap:|<name href=\"|" \
    1036. 

  1036.         -e "s|<name |<td><a |" -e "s|</name>|</a></td>$_tabb_|" \
    1037. 

  1037.         -e "s|<date>|<td><small style=\"date\">|" \
    1038. 

  1038.         -e "s|</date>|</small></td>$_tabb_|" \
    1039. 

  1039.         -e "s|<long>|<td><em><!--long-->|" \
    1040. 

  1040.         -e "s|</long>|<!--/long--></em></td></tr>|" \
    1041. 

  1041.         "$INPUTS"             # $++
    1042. 

  1042.    for xx in `grep "^<$Q'use.'>name:sitemap:" $INPUTS` ; do
    1043. 

  1043.        xx=`echo $xx | sed -e "s/^<$Q'use.'>name:sitemap://" -e "s|<$QX>||"` 
    1044. 

  1044.        if test -f "$xx" ; then
    1045. 

  1045. 	   grep "<tr.class=\"listsitemap[$NN]\">" $xx # $++
    1046. 

  1046.        fi
    1047. 

  1047.    done
    1048. 

  1048.    echo "</table>"          # $++
    1049. 

  1049. }
    1050. 

  1050. 

  1051. _xi_include_=`echo \
    1052. 

  1052.     "<xi:include xmlns:xi=\"http://www.w3.org/2001/XInclude\" parse=\"xml\""`
    1053. 

  1053. make_xmlsitemap ()
    1054. 

  1054. {   # traditional - the body contains a list with date and title extras
    1055. 

  1055.    INPUTS="$1" ; test ".$INPUTS" = "." && INPUTS="$MK_DATA"
    1056. 

  1056.    siteinfo2sitemap > "$MK_SITE" # have <name><long><date> addon-sed
    1057. 

  1057.    _form_="<!--\"\\2\"--><name href=\"\\2\">\\3</name>"
    1058. 

  1058.    _sitefile_=`sed_slash_key "$SITEFILE"`
    1059. 

  1059.    $SED -e "/^<$Q'[Uu]se.'>/!d" \
    1060. 

  1060.         -e "/>[$AZ$az][$AZ$az][$AZ$az][$AZ$az]*:/d" \
    1061. 

  1061.         -e "s|^<$Q'[Uu]se\\(.\\)'>\\([^ ]*\\) \\(.*\\)<$QX>|$_form_|" \
    1062. 

  1062.         -f "$MK_SITE" -e "/<name/!d" \
    1063. 

  1063.         -e "/${_sitefile_}/d" \
    1064. 

  1064.         -e "/${_sitefile_}l/d" \
    1065. 

  1065.         -e "s|\\(href=\"[^<>]*\\)\\.html\\(\"\\)|\\1.xml\\2|g" \
    1066. 

  1066.         -e "s|.*<name|$_xi_include_\\n   |" \
    1067. 

  1067.         -e "s|>.*</name>| />|" \
    1068. 

  1068.         "$INPUTS"            # $++
    1069. 

  1069. }
    1070. 

  1070. 

  1071. print_extension ()
    1072. 

  1072. {
    1073. 

  1073.     ARG="$1" ; test ".$ARG" = "." && ARG="$opt_print"
    1074. 

  1074.     case "$ARG" in
    1075. 

  1075.       -*|.*) echo "$ARG" ;;   # $++
    1076. 

  1076.       *)     echo ".print" ;; # $++
    1077. 

  1077.     esac
    1078. 

  1078. }
    1079. 

  1079. 

  1080. from_sourcefile ()
    1081. 

  1081. {
    1082. 

  1082.     if test -f "$1"
    1083. 

  1083.     then echo "$1"
    1084. 

  1084.     elif test -f "$opt_srcdir/$1"
    1085. 

  1085.     then echo    "$opt_srcdir/$1"
    1086. 

  1086.     else echo "$1"
    1087. 

  1087.     fi
    1088. 

  1088. }
    1089. 

  1089.     
    1090. 

  1090. html_sourcefile ()  # generally just cut away the trailing "l" (ell)
    1091. 

  1091. {                   # making "page.html" argument into "page.htm" return
    1092. 

  1092.                     # (as a new addtion the source may be in ".dbk" xml)
    1093. 

  1093.     _SRCFILE_=`echo "$1" | $SED -e "s/l\\$//"`
    1094. 

  1094.     _XMLFILE_=`echo "$1" | $SED -e "s/\\.html/.dbk/"`
    1095. 

  1095.     if test -f "$_SRCFILE_" 
    1096. 

  1096.     then echo  "$_SRCFILE_" # $++
    1097. 

  1097.     elif test -f "$_XMLFILE_" 
    1098. 

  1098.     then echo    "$_XMLFILE_" # $++
    1099. 

  1099.     elif test -f "$opt_src_dir/$_SRCFILE_" 
    1100. 

  1100.     then echo    "$opt_src_dir/$_SRCFILE_" # $++
    1101. 

  1101.     elif test -f "$opt_src_dir/$_XMLFILE_" 
    1102. 

  1102.     then echo    "$opt_src_dir/$_XMLFILE_" # $++
    1103. 

  1103.     else echo ".//$_SRCFILE_" # $++ (not found?)
    1104. 

  1104.     fi
    1105. 

  1105. }
    1106. 

  1106. html_printerfile_sourcefile () 
    1107. 

  1107. {                   
    1108. 

  1108.     if test ".$printerfriendly" = "."
    1109. 

  1109.     then 
    1110. 

  1110.     echo "$1" | sed -e "s/l\$//" # $++
    1111. 

  1111.     else 
    1112. 

  1112.     _ext_=`print_extension "$printerfriendly"`
    1113. 

  1113.     _ext_=`sed_slash_key "$_ext_"`
    1114. 

  1114.     echo "$1" | sed -e "s/l\$//" -e "s/$_ext_\\([.][$AA]*\\)\$/\\1/" # $++
    1115. 

  1115.     fi
    1116. 

  1116. }
    1117. 

  1117. 

  1118. fast_html_printerfile () {
    1119. 

  1119.     x=`html_printerfile "$1"` ; basename "$x" # $++
    1120. 

  1120. #   x=`html_printerfile "$1"` ; fast_href "$x" $2 # $++
    1121. 

  1121. }
    1122. 

  1122. 

  1123. html_printerfile () # generate the printerfile for a given normal output
    1124. 

  1124. {
    1125. 

  1125.     _ext_=`print_extension "$printerfriendly" | sed -e "s/&/\\\\&/"`
    1126. 

  1126.     echo "$1" | sed -e "s/\\([.][$AA]*\\)\$/$_ext_\\1/" # $++
    1127. 

  1127. }
    1128. 

  1128. 

  1129. make_printerfile_fast () # generate s/file.html/file.print.html/ for hrefs
    1130. 

  1130. {                        # we do that only for the $FILELIST
    1131. 

  1131.    ALLPAGES="$1" ; # ="$FILELIST"
    1132. 

  1132.    for p in $ALLPAGES ; do
    1133. 

  1133.        a=`sed_slash_key "$p"`
    1134. 

  1134.        b=`html_printerfile "$p"`
    1135. 

  1135.        if test "$b" != "$p" ; then
    1136. 

  1136.          b=`html_printerfile "$p" | sed -e "s:&:\\\\&:g" -e "s:/:\\\\\\/:g"`
    1137. 

  1137.          echo "s/<a href=\"$a\">/<a href=\"$b\">/" # $++
    1138. 

  1138.          echo "s/<a href=\"$a\" /<a href=\"$b\" /" # $++
    1139. 

  1139.        fi
    1140. 

  1140.    done
    1141. 

  1141. }
    1142. 

  1142. 

  1143. echo_printsitefile_style ()
    1144. 

  1144. {
    1145. 

  1145.    _bold_="text-decoration : none ; font-weight : bold ; "
    1146. 

  1146.    echo "   <style>"                                          # $+++
    1147. 

  1147.    echo "     a:link    { $_bold_ color : #000060 ; }"        # $+++
    1148. 

  1148.    echo "     a:visited { $_bold_ color : #000040 ; }"        # $+++
    1149. 

  1149.    echo "     body      { background-color : white ; }"       # $+++
    1150. 

  1150.    echo "   </style>"                                         # $+++
    1151. 

  1151. }
    1152. 

  1152. 

  1153. make_printsitefile_head() # $sitefile
    1154. 

  1154. {
    1155. 

  1155.    echo_printsitefile_style > "$MK_STYLE"
    1156. 

  1156.    $SED -e "/<title>/p" -e "/<title>/d" \
    1157. 

  1157.         -e "/<head>/p"   -e "/<head>/d" \
    1158. 

  1158.         -e "/<\/head>/p"  -e "/<\/head>/d" \
    1159. 

  1159.         -e "/<body>/p"   -e "/<body>/d" \
    1160. 

  1160.         -e "/^.*<link [^<>]*rel=\"shortcut icon\"[^<>]*>.*\$/p" \
    1161. 

  1161.         -e "d" $SITEFILE | $SED -e "/<head>/r $MK_STYLE" # $+++
    1162. 

  1162. }
    1163. 

  1163. 

  1164. 

  1165. # ------------------------------------------------------------------------
    1166. 

  1166. # The printsitefile is a long text containing html href markups where
    1167. 

  1167. # each of the href lines in the file is being prefixed with the section
    1168. 

  1168. # relation. During a secondary call the printsitefile can grepp'ed for
    1169. 

  1169. # those lines that match a given output fast-file. The result is a
    1170. 

  1170. # navigation header with 1...3 lines matching the nesting level
    1171. 

  1171. 

  1172. # these alt-texts will be only visible in with a text-mode browser:
    1173. 

  1173. printsitefile_square="width=\"8\" height=\"8\" border=\"0\""
    1174. 

  1174. printsitefile_img_1="<img alt=\"|go text:\" $printsitefile_square />"
    1175. 

  1175. printsitefile_img_2="<img alt=\"||topics:\" $printsitefile_square />"
    1176. 

  1176. printsitefile_img_3="<img alt=\"|||pages:\" $printsitefile_square />"
    1177. 

  1177. _SECT="mksite:sect:"
    1178. 

  1178. 

  1179. echo_current_line () # $sect $extra
    1180. 

  1180. {
    1181. 

  1181.     echo "<!--$_SECT\"$1\"-->$2" # $++
    1182. 

  1182. }
    1183. 

  1183. make_current_entry () # $sect $file      ## requires $MK_SITE
    1184. 

  1184. {
    1185. 

  1185.   S="$1" ; R="$2"
    1186. 

  1186.   SSS=`sed_slash_key "$S"`  
    1187. 

  1187.   sep=" - " ; _left_=" [ " ; _right_=" ] "
    1188. 

  1188.   echo_current_line "$S" "<!--\"$R\"--><name href=\"$R\">$R</name>$sep" \
    1189. 

  1189.        | $SED -f "$MK_SITE" \
    1190. 

  1190.         -e "s|<!--[^<>]*--><name |<a |" -e "s|</name>|</a>|" \
    1191. 

  1191.         -e "/<a href=\"$SSS\"/s/<a href/$_left_&/" \
    1192. 

  1192.         -e "/<a href=\"$SSS\"/s/<\\/a>/&$_right_/"  # $+++
    1193. 

  1193. }
    1194. 

  1194. echo_subpage_line () # $sect $extra
    1195. 

  1195. {
    1196. 

  1196.     echo "<!--$_SECT*:\"$1\"-->$2" # $++
    1197. 

  1197. }
    1198. 

  1198. 

  1199. make_subpage_entry ()
    1200. 

  1200. {
    1201. 

  1201.   S="$1" ; R="$2"
    1202. 

  1202.   RR=`sed_slash_key "$R"`  
    1203. 

  1203.   sep=" - " ;
    1204. 

  1204.   echo_subpage_line "$S" "<!--\"$R\"--><name href=\"$R\">$R</name>$sep" \
    1205. 

  1205.        | $SED -f "$MK_SITE" \
    1206. 

  1206.         -e "s|<!--[^<>]*--><name |<a |" -e "s|</name>|</a>|" # $+++
    1207. 

  1207. }
    1208. 

  1208. 

  1209. make_printsitefile ()
    1210. 

  1210. {
    1211. 

  1211.    # building the printsitefile looks big but its really a loop over sects
    1212. 

  1212.    INPUTS="$1" ; test ".$INPUTS" = "." && INPUTS="$MK_DATA"
    1213. 

  1213.    siteinfo2sitemap > "$MK_SITE" # have <name><long><date> addon-sed
    1214. 

  1214.    if test -d DEBUG &&  test -f "$MK_SITE" 
    1215. 

  1215.        then FFFF=`echo "$F" | sed -e "s,/,:,g"`
    1216. 

  1216.        cp "$MK_DATA" "DEBUG/$FFFF.SITE.tmp.sed"
    1217. 

  1217.    fi
    1218. 

  1218. 

  1219.    make_printsitefile_head $SITEFILE # $++
    1220. 

  1220.    sep=" - "
    1221. 

  1221.    _sect1="<a href=\"#.\" title=\"section\">$printsitefile_img_1</a> ||$sep"
    1222. 

  1222.    _sect2="<a href=\"#.\" title=\"topics\">$printsitefile_img_2</a> ||$sep"
    1223. 

  1223.    _sect3="<a href=\"#.\" title=\"pages\">$printsitefile_img_3</a> ||$sep"
    1224. 

  1224.    site_get_rootsections > "$MK_SECT1"
    1225. 

  1225.    # round one - for each root section print a current menu
    1226. 

  1226.    for r in `cat "$MK_SECT1"` ; do
    1227. 

  1227.        echo_current_line "$r" "<!--mksite:sect1:A--><br>$_sect1" # $++
    1228. 

  1228.        for s in `cat "$MK_SECT1"` ; do 
    1229. 

  1229. 	   make_current_entry "$r" "$s" # $++
    1230. 

  1230.        done
    1231. 

  1231.        echo_current_line "$r" "<!--mksite:sect1:Z-->" # $++
    1232. 

  1232.    done # "$r"
    1233. 

  1233. 

  1234.    # round two - for each subsection print a current and subpage menu
    1235. 

  1235.    for r in `cat "$MK_SECT1"` ; do
    1236. 

  1236.    site_get_subpages "$r"     > "$MK_SECT2"
    1237. 

  1237.    for s in `cat "$MK_SECT2"` ; do test "$r" = "$s" && continue
    1238. 

  1238.        echo_current_line  "$s" "<!--mksite:sect2:A--><br>$_sect2" # $++
    1239. 

  1239.        for t in `cat "$MK_SECT2"` ; do test "$r" = "$t" && continue
    1240. 

  1240. 	   make_current_entry "$s" "$t" # $++
    1241. 

  1241.        done # "$t"
    1242. 

  1242.        echo_current_line  "$s" "<!--mksite:sect2:Z-->" # $++
    1243. 

  1243.    done # "$s"
    1244. 

  1244.        _have_children_="0"
    1245. 

  1245.        for t in `cat "$MK_SECT2"` ; do test "$r" = "$t" && continue
    1246. 

  1246. 	   test "$_have_children_" = "0" && _have_children_="1" && \
    1247. 

  1247.        echo_subpage_line  "$r" "<!--mksite:sect2:A--><br>$_sect2" # $++
    1248. 

  1248. 	   make_subpage_entry "$r" "$t" # $++
    1249. 

  1249.        done # "$t"
    1250. 

  1250.            test "$_have_children_" = "1" && \
    1251. 

  1251.        echo_subpage_line  "$r" "<!--mksite:sect2:Z-->" # $++
    1252. 

  1252.    done # "$r"
    1253. 

  1253. 

  1254.    # round three - for each subsubsection print a current and subpage menu
    1255. 

  1255.    for r in `cat "$MK_SECT1"` ; do
    1256. 

  1256.    site_get_subpages "$r"     > "$MK_SECT2"
    1257. 

  1257.    for s in `cat "$MK_SECT2"` ; do test "$r" = "$s" && continue
    1258. 

  1258.    site_get_subpages "$s"     > "$MK_SECT3"
    1259. 

  1259.    for t in `cat "$MK_SECT3"` ; do test "$s" = "$t" && continue
    1260. 

  1260.        echo_current_line  "$t" "<!--mksite:sect3:A--><br>$_sect3" # $++
    1261. 

  1261.        for u in `cat "$MK_SECT3"` ; do test "$s" = "$u" && continue
    1262. 

  1262. 	   make_current_entry "$t" "$u" # $++
    1263. 

  1263.        done # "$u"
    1264. 

  1264.        echo_current_line  "$t" "<!--mksite:sect3:Z-->" # $++
    1265. 

  1265.    done # "$t"
    1266. 

  1266.        _have_children_="0"
    1267. 

  1267.        for u in `cat "$MK_SECT3"` ; do test "$u" = "$s" && continue
    1268. 

  1268. 	   test "$_have_children_" = "0" && _have_children_="1" && \
    1269. 

  1269.        echo_subpage_line  "$s" "<!--mksite:sect3:A--><br>$_sect3" # $++
    1270. 

  1270. 	   make_subpage_entry "$s" "$u" # $++
    1271. 

  1271.        done # "$u"
    1272. 

  1272.            test "$_have_children_" = "1" && \
    1273. 

  1273.        echo_subpage_line  "$s" "<!--mksite:sect3:Z-->" # $++
    1274. 

  1274.    done # "$s"
    1275. 

  1275.    done # "$r"
    1276. 

  1276.    echo "<a name=\".\"></a>" # $++
    1277. 

  1277.    echo "</body></html>"    # $++
    1278. 

  1278. }
    1279. 

  1279. 

  1280. # create a selector that can grep a printsitefile for the matching entries
    1281. 

  1281. select_in_printsitefile () # arg = "page" : return to stdout >> $P.$HEAD
    1282. 

  1282. {
    1283. 

  1283.    _selected_="$1" ; test ".$_selected_" = "." && _selected_="$F"
    1284. 

  1284.    _section_=`sed_slash_key "$_selected_"`
    1285. 

  1285.    echo "s/^<!--$_SECT\"$_section_\"-->//"        # sect3
    1286. 

  1286.    echo "s/^<!--$_SECT[*]:\"$_section_\"-->//"    # children
    1287. 

  1287.    _selected_=`site_get_parentpage "$_selected_"` 
    1288. 

  1288.    _section_=`sed_slash_key "$_selected_"`
    1289. 

  1289.    echo "s/^<!--$_SECT\"$_section_\"-->//"        # sect2
    1290. 

  1290.    _selected_=`site_get_parentpage "$_selected_"` 
    1291. 

  1291.    _section_=`sed_slash_key "$_selected_"`
    1292. 

  1292.    echo "s/^<!--$_SECT\"$_section_\"-->//"        # sect1
    1293. 

  1293.    echo "/^<!--$_SECT\"[^\"]*\"-->/d"     
    1294. 

  1294.    echo "/^<!--$_SECT[*]:\"[^\"]*\"-->/d" 
    1295. 

  1295.    echo "s/^<!--mksite:sect[$NN]:[$AZ]-->//"
    1296. 

  1296. }
    1297. 

  1297. 

  1298. body_for_emailfooter ()
    1299. 

  1299. {
    1300. 

  1300.     test ".$emailfooter" = ".no" && return
    1301. 

  1301.     _email_=`echo "$emailfooter" | sed -e "s|[?].*||"`
    1302. 

  1302.     _dated_=`info_get_entry updated`
    1303. 

  1303.     echo "<hr><table border=\"0\" width=\"100%\"><tr><td>"
    1304. 

  1304.     echo "<a href=\"mailto:$emailfooter\">$_email_</a>"
    1305. 

  1305.     echo "</td><td align=\"right\">"
    1306. 

  1306.     echo "$_dated_</td></tr></table>"
    1307. 

  1307. }
    1308. 

  1308. 

  1309. # =================================================================== CSS
    1310. 

  1310. # There was another project to support sitemap build from xml files.
    1311. 

  1311. # The source format was using .dbk+xml with embedded references to .css
    1312. 

  1312. # files for visual preview in a browser. An docbook xml file with semantic
    1313. 

  1313. # outlines is far better suited for quality documentation than any html
    1314. 

  1314. # source. It happens that the xml/css support in browsers is still not
    1315. 

  1315. # very portable - especially embedded css style blocks are a nightmare.
    1316. 

  1316. # Instead we (a) grab all non-html xml markup tags (b) grab all referenced
    1317. 

  1317. # css stylesheets (c) cut out css defs from [b] that are known by [a] and
    1318. 

  1318. # (d) append those to the <style> tag in the output html file as well as
    1319. 

  1319. # (e) reformatting the defs as well as markups from tags to tag classes.
    1320. 

  1320. # Input dbk/htm
    1321. 

  1321. #  <?xml-stylesheet type="text/css" href="html.css" ?>         <!-- dbk/xml -->
    1322. 

  1322. #  <link rel="stylesheet" type="text/css" href="sdocbook.css" /> <!-- xhtml -->
    1323. 

  1323. #  <article><para>
    1324. 

  1324. #  Using some <command>exe</command>
    1325. 

  1325. #  </para></article>
    1326. 

  1326. # Input css:
    1327. 

  1327. #  article { .. ; display : block }
    1328. 

  1328. #  para { .. ; display : block }
    1329. 

  1329. #  command { .. ; display : inline }
    1330. 

  1330. # Output html:
    1331. 

  1331. #  <html><style type="text/css">
    1332. 

  1332. #  div .article { .. }
    1333. 

  1333. #  div .para { .. }
    1334. 

  1334. #  span .command { .. }
    1335. 

  1335. #  </style>
    1336. 

  1336. #  <div class="article"><div class="para>
    1337. 

  1337. #  Using some <span class="command">exe</span>
    1338. 

  1338. #  </div></div>
    1339. 

  1339. 

  1340. css_sourcefile ()
    1341. 

  1341. {
    1342. 

  1342.     if test -f "$1" ; then echo "$1"
    1343. 

  1343.     elif test -f "$opt_src_dir/$1" ; then echo "$opt_src_dir/$1"
    1344. 

  1344.     elif echo "$1" | grep "^/" > $NULL ; then echo "$1"
    1345. 

  1345.     else echo "./$1"
    1346. 

  1346.     fi
    1347. 

  1347. }
    1348. 

  1348. 

  1349. css_xmltags () # $SOURCEFILE
    1350. 

  1350. {
    1351. 

  1351.    X=`echo $SOURCEFILE | sed -e "y:/:~:"`
    1352. 

  1352.    S="$SOURCEFILE"
    1353. 

  1353.    cat "$S" | $SED -e "s|>[^<>]*<|><|g" -e "s|^[^<>]*<|<|" \
    1354. 

  1354.                    -e "s|>[^<>]*\$|>|"  -e "s|<|\\n|g" \
    1355. 

  1355.             | $SED -e "/^\\//d" -e "/^ *\$/d" -e "/>/!d" -e "s|>.*||" \
    1356. 

  1356.             | sort | uniq > "$tmp/$MK.$X.xmltags.tmp.txt"
    1357. 

  1357. }
    1358. 

  1358. 

  1359. css_xmlstyles () # $SOURCEFILE
    1360. 

  1360. {
    1361. 

  1361.    X=`echo $SOURCEFILE | sed -e "y:/:~:"`
    1362. 

  1362.    S="$SOURCEFILE"
    1363. 

  1363.    cat "$S" "$SITEFILE" \
    1364. 

  1364.        | sed \
    1365. 

  1365.        -e "s|<link  *rel=['\"]*stylesheet|<?xml-stylesheet |" \
    1366. 

  1366.        -e "/<.xml-stylesheet/!d" -e "/href/!N" -e "/href/!N" \
    1367. 

  1367.        -e "s|^.*<.xml-stylesheet||" -e 's|^.*href="||' -e 's|".*||' \
    1368. 

  1368.        | sort | uniq > "$tmp/$MK.$X.xmlstylesheets.tmp.txt"
    1369. 

  1369. }
    1370. 

  1370. 

  1371. css_xmlstyles_sed () # $SOURCEFILE
    1372. 

  1372. {
    1373. 

  1373.    X=`echo $SOURCEFILE | sed -e "y:/:~:"`
    1374. 

  1374.    S="$tmp/$MK.$X.xmltags.tmp.txt"
    1375. 

  1375.    R="$tmp/$MK.$X.xmltags.tmp.sed"
    1376. 

  1376.    rm -f "$R"
    1377. 

  1377.    {
    1378. 

  1378.       for x in 1 2 3 4 5 6 7 8 9 ; do echo "/}/d" ; echo "/{/!N" ; done
    1379. 

  1379.       echo "s|\\r||g"
    1380. 

  1380.       $SED "/^[$AZ$az$NN]/!d" "$S" | { while read xmltag ; do
    1381. 

  1381. 	 xmltag=`echo "$xmltag" | sed -e "s/ .*//"`
    1382. 

  1382.          _xmltag=`sed_slash_key "$xmltag"`
    1383. 

  1383.          if echo " title section " | grep " $xmltag " > $NULL ; then
    1384. 

  1384. 	    test "$xmltag" = "section" && continue;
    1385. 

  1385.             echo "/^ *$_xmltag *[,\\n{]/bfound" >> "$R"
    1386. 

  1386.             echo "/[,\\n] *$_xmltag *[,\\n{]/bfound" >> "$R"
    1387. 

  1387.             $SED "/^[$AZ$az$NN]/!d" "$S" | { while read xmlparent ; do
    1388. 

  1388. 	       xmlparent=`echo "$xmlparent" | sed -e "s/ .*//"`
    1389. 

  1389.                _xmlparent=`sed_slash_key "$xmlparent"`
    1390. 

  1390.                echo "/^ *$_xmlparent  *$_xmltag *[,\\n{]/bfound"
    1391. 

  1391.                echo "/[ ,\\n] *$_xmlparent  *$_xmltag *[,\\n{]/bfound"
    1392. 

  1392.             done }
    1393. 

  1393.          else
    1394. 

  1394.             echo "/^ *$_xmltag *[ ,\\n{]/bfound"
    1395. 

  1395.             echo "/[ ,\\n] *$_xmltag *[ ,\\n{]/bfound"
    1396. 

  1396.          fi
    1397. 

  1397.       done }
    1398. 

  1398.       echo "d" ; echo ":found" 
    1399. 

  1399.       for x in 1 2 3 4 5 6 7 8 9 ; do echo "/}/!N" ; done
    1400. 

  1400.       $SED "/^[$AZ$az$NN]/!d" "$S" | { while read xmltag ; do
    1401. 

  1401. 	 xmltag=`echo "$xmltag" | sed -e "s/ .*//"`
    1402. 

  1402.          if echo " $HTMLTAGS $HTMLTAGS2" | grep " $xmltag " > $NULL ; then
    1403. 

  1403.            continue # keep html tags
    1404. 

  1404.          fi
    1405. 

  1405.          echo "s|^\\( *\\)\\($xmltag *[ ,\\n{]\\)|\\1.\\2|g"
    1406. 

  1406.          echo "s|\\([ ,\\n] *\\)\\($xmltag *[ ,\\n{]\\)|\\1.\\2|g"
    1407. 

  1407.       done }          
    1408. 

  1408.    } > "$R"
    1409. 

  1409. }
    1410. 

  1410. 

  1411. css_xmltags_css () # $SOURCEFILE
    1412. 

  1412. {
    1413. 

  1413.    X=`echo $SOURCEFILE | sed -e "y:/:~:"`
    1414. 

  1414.    S="$tmp/$MK.$X.xmltags.tmp.sed"
    1415. 

  1415.    R="$tmp/$MK.$X.xmltags.tmp.css"
    1416. 

  1416.    {
    1417. 

  1417.       cat "$tmp/$MK.$X.xmlstylesheets.tmp.txt" | { while read xmlstylesheet ; do
    1418. 

  1418.          stylesheet=`css_sourcefile "$xmlstylesheet"`
    1419. 

  1419.          if test -f "$stylesheet" ; then
    1420. 

  1420.             echo "/* $xmlstylesheet */"
    1421. 

  1421.             cat "$stylesheet" | $SED -f "$S"
    1422. 

  1422.          else
    1423. 

  1423.             error "$xmlstylesheet : ERROR, no such stylesheet"
    1424. 

  1424.          fi
    1425. 

  1425.       done }
    1426. 

  1426.    } > "$R"
    1427. 

  1427. }
    1428. 

  1428. 

  1429. css_xmlmapping_sed () # $SOURCEFILE
    1430. 

  1430. {
    1431. 

  1431.    X=`echo $SOURCEFILE | sed -e "y:/:~:"`
    1432. 

  1432.    S="$tmp/$MK.$X.xmltags.tmp.txt"
    1433. 

  1433.    R="$tmp/$MK.$X.xmlmapping.tmp.sed"
    1434. 

  1434.    rm -f "$R"
    1435. 

  1435.    {
    1436. 

  1436.       for x in 1 2 3 4 5 6 7 8 9 ; do echo "/}/d" ; echo "/{/!N" ; done
    1437. 

  1437.       echo "s|\\r||g"
    1438. 

  1438.       $SED "/^[$AZ$az$NN]/!d" "$S" | { while read xmltag ; do
    1439. 

  1439.          xmltag=`echo "$xmltag" | sed -e "s/ .*//"`
    1440. 

  1440. 	 xmltag=`sed_slash_key "$xmltag"`
    1441. 

  1441.          echo "/^ *\\.$xmltag *[ ,\\n{]/bfound"
    1442. 

  1442.          echo "/[ ,\\n] *\\.$xmltag *[,\\n{]/bfound"
    1443. 

  1443.       done }
    1444. 

  1444.       echo "d" ; echo ":found" 
    1445. 

  1445.       for x in 1 2 3 4 5 6 7 8 9 ; do echo "/}/!N" ; done
    1446. 

  1446.       echo "s/^/>>/"
    1447. 

  1447.       echo "/[\\n ]display *: *list-item/s|^.*>>|li>>|"
    1448. 

  1448.       echo "/[\\n ]display *: *table-caption/s|^.*>>|caption>>|"
    1449. 

  1449.       echo "/[\\n ]display *: *table-cell/s|^.*>>|td>>|"
    1450. 

  1450.       echo "/[\\n ]display *: *table-row/s|^.*>>|tr>>|"
    1451. 

  1451.       echo "/[\\n ]display *: *table/s|^.*>>|table>>|"
    1452. 

  1452.       echo "/[\\n ]display *: *block/s|^.*>>|div>>|"
    1453. 

  1453.       echo "/[\\n ]display *: *inline/s|^.*>>|span>>|"
    1454. 

  1454.       echo "/[\\n ]display *: *none/s|^.*>>|small>>|"
    1455. 

  1455.       echo "/^div>>.*[\\n ]list-style-type *: *disc/s|^.*>>|ul>>|"
    1456. 

  1456.       echo "/^div>>.*[\\n ]list-style-type *: *decimal/s|^.*>>|ol>>|"
    1457. 

  1457.       echo "/^span>>.*[\\n ]font-family *: *monospace/s|^.*>>|tt>>|"
    1458. 

  1458.       echo "/^span>>.*[\\n ]font-style *: *italic/s|^.*>>|em>>|"
    1459. 

  1459.       echo "/^span>>.*[\\n ]font-weight *: *bold/s|^.*>>|b>>|"
    1460. 

  1460.       echo "/^div>>.*[\\n ]white-space *: *pre/s|^.*>>|pre>>|"
    1461. 

  1461.       echo "/^div>>.*[\\n ]margin-left *: *[$NN]/s|^.*>>|blockquote>>|"
    1462. 

  1462.       $SED "/^[$AZ$az$NN]/!d" "$S" | { while read xmltag ; do
    1463. 

  1463.          xmltag=`echo "$xmltag" | sed -e "s/ .*//"`
    1464. 

  1464.          echo "s|^\\(.*\\)>> *\\.$xmltag *[ ,\\n{].*|\\1 .$xmltag|"
    1465. 

  1465.          echo "s|^\\(.*\\)>>.*[ ,\\n] *\\.$xmltag *[ ,\\n{].*|\\1 .$xmltag|"
    1466. 

  1466.       done }
    1467. 

  1467.       echo "s/^div \\.para\$/p .para/"
    1468. 

  1468.       echo "s/^span \\.ulink\$/a .ulink/"
    1469. 

  1469.    } > "$R"
    1470. 

  1470. }
    1471. 

  1471. 

  1472. css_xmlmapping () # $SOURCEFILE
    1473. 

  1473. {
    1474. 

  1474.    X=`echo $SOURCEFILE | sed -e "y:/:~:"`
    1475. 

  1475.    cat     "$tmp/$MK.$X.xmltags.tmp.css" | \
    1476. 

  1476.    $SED -f "$tmp/$MK.$X.xmlmapping.tmp.sed" \
    1477. 

  1477.          > "$tmp/$MK.$X.xmlmapping.tmp.txt"
    1478. 

  1478. }
    1479. 

  1479. 

  1480. css_scan() # $SOURCEFILE
    1481. 

  1481. {
    1482. 

  1482.     css_xmltags
    1483. 

  1483.     css_xmlstyles
    1484. 

  1484.     css_xmlstyles_sed
    1485. 

  1485.     css_xmltags_css
    1486. 

  1486.     css_xmlmapping_sed
    1487. 

  1487.     css_xmlmapping
    1488. 

  1488. }
    1489. 

  1489. 

  1490. tags2span_sed() # $SOURCEFILE > $++
    1491. 

  1491. {
    1492. 

  1492.    X=`echo $SOURCEFILE | sed -e "y:/:~:"`
    1493. 

  1493.    S="$tmp/$MK.$X.xmltags.tmp.txt"
    1494. 

  1494.    R="$tmp/$MK.$X.xmltags.tmp.css"
    1495. 

  1495.    echo "s|<[?]xml-stylesheet[^<>]*[?]>||"
    1496. 

  1496.    echo "s|<link  *rel=['\"]*stylesheet[^<>]*>||"
    1497. 

  1497.    echo "s|<section[^<>]*>||g"
    1498. 

  1498.    echo "s|</section>||g" 
    1499. 

  1499.    $SED "/^[$AZ$az$NN]/!d" "$S" | { while read xmltag ; do 
    1500. 

  1500.       # note "xmltag=$xmltag"
    1501. 

  1501.       xmltag=`echo "$xmltag" | sed -e "s/ .*//"`
    1502. 

  1502.       if echo " $HTMLTAGS $HTMLTAGS2" | grep " $xmltag " > $NULL ; then
    1503. 

  1503.         continue # keep html tags
    1504. 

  1504.       fi
    1505. 

  1505.       _xmltag=`sed_slash_key "$xmltag"`
    1506. 

  1506.       _span_=`$SED -e "/ \\.$_xmltag\$/!d" -e "s/ .*//" -e q \
    1507. 

  1507.                   < "$tmp/$MK.$X.xmlmapping.tmp.txt"`
    1508. 

  1508.       test ".$_span_" = "." && _span_="span"
    1509. 

  1509.       _xmltag=`sed_piped_key "$xmltag"`
    1510. 

  1510.       echo "s|<$xmltag\\([\\n\\t ][^<>]*\\)url=|<$_span_ class=\"$xmltag\"\\1href=|g"
    1511. 

  1511.       echo "s|<$xmltag\\([\\n\\t >]\\)|<$_span_ class=\"$xmltag\"\\1|g"
    1512. 

  1512.       echo "s|</$xmltag\\([\\n\\t >]\\)|</$_span_\\1|g"
    1513. 

  1513.    done }   
    1514. 

  1514.    cat "$tmp/$MK.$X.xmlstylesheets.tmp.txt" | { while read xmlstylesheet ; do
    1515. 

  1515.       if test -f "$xmlstylesheet" ; then
    1516. 

  1516.          R="[^<>]*href=['"'"'"]$xmlstylesheet['"'"'"][^<>]*"
    1517. 

  1517.          echo "s|<[?]xml-stylesheet$R>||"
    1518. 

  1518.          echo "s|<link[^<>]* rel=['"'"'"]*stylesheet['"'"'" ]$R>||"
    1519. 

  1519.       fi
    1520. 

  1520.    done }
    1521. 

  1521. }
    1522. 

  1522. 

  1523. tags2meta_sed() # $SOURCEFILE > $++
    1524. 

  1524. {
    1525. 

  1525.    X=`echo $SOURCEFILE | sed -e "y:/:~:"`
    1526. 

  1526.    S="$tmp/$MK.$X.xmlstylesheets.tmp.txt"
    1527. 

  1527.    R="$tmp/$MK.$X.xmltags.tmp.css"
    1528. 

  1528.    cat "$tmp/$MK.$X.xmlstylesheets.tmp.txt" | { while read xmlstylesheet ; do
    1529. 

  1529.       if test -f "$xmlstylesheet" ; then
    1530. 

  1530.          echo " <style type=\"text/css\"><!--"
    1531. 

  1531.          $SED -e "s/^/  /" < "$R"
    1532. 

  1532.          echo " --></style>"
    1533. 

  1533.          break
    1534. 

  1534.       fi
    1535. 

  1535.    done }
    1536. 

  1536. }
    1537. 

  1537. 

  1538. # ==========================================================================
    1539. 

  1539. # xml/docbook support is taking an dbk input file converting any html    DBK
    1540. 

  1540. # syntax into pure docbook tagging. Each file is being given a docbook
    1541. 

  1541. # doctype so that an xml/docbook viewer can render it correctly - that
    1542. 

  1542. # is needed atleast since docbook files do not embed stylesheet infos.
    1543. 

  1543. # Most of the processing is related to remap html markup and some other
    1544. 

  1544. # shortcut markup into correct docbook markup. The result is NOT checked
    1545. 

  1545. # for being well-formed or even matching the docbook schema DTD at all.
    1546. 

  1546. 

  1547. scan_xml_rootnode ()
    1548. 

  1548. {
    1549. 

  1549.   rootnode=`cat "$SOURCEFILE" | \
    1550. 

  1550.      $SED -e "/<[$AZ$az$NN]/!d" -e "s/<\\([$AZ$az$NN]*\\).*/\\1/" -e q`  
    1551. 

  1551.   echo "<$Q'root'>$F $rootnode<$QX>" >> "$MK_DATA"
    1552. 

  1552. }
    1553. 

  1553. 

  1554. get_xml_rootnode ()
    1555. 

  1555. {
    1556. 

  1556.   _file_=`sed_slash_key "$F"`
    1557. 

  1557.   $SED -e "/^<$Q'root'>$_file_ /!d" \
    1558. 

  1558.        -e "s|.* ||" -e "s|<.*||" -e q "$MK_DATA" # +
    1559. 

  1559. }
    1560. 

  1560. 

  1561. xml_sourcefile ()  
    1562. 

  1562. {
    1563. 

  1563.     _XMLFILE_=`echo "$1" | $SED -e "s/\\.xml\\$/.dbk/"`
    1564. 

  1564.     _SRCFILE_=`echo "$1" | $SED -e "s/\\.xml\\$/.htm/"`
    1565. 

  1565.     test "$1" = "$_XMLFILE_" && _XMLFILE_="///"
    1566. 

  1566.     test "$1" = "$_SRCFILE_" && _SRCFILE_="///"
    1567. 

  1567.     if test -f "$_XMLFILE_" 
    1568. 

  1568.     then echo    "$_XMLFILE_" # $++
    1569. 

  1569.     elif test -f "$_SRCFILE_" 
    1570. 

  1570.     then echo  "$_SRCFILE_" # $++
    1571. 

  1571.     elif test -f "$opt_src_dir/$_XMLFILE_" 
    1572. 

  1572.     then echo    "$opt_src_dir/$_XMLFILE_" # $++
    1573. 

  1573.     elif test -f "$opt_src_dir/$_SRCFILE_" 
    1574. 

  1574.     then echo    "$opt_src_dir/$_SRCFILE_" # $++
    1575. 

  1575.     else echo ".//$_XMLFILE_" # $++ (not found?)
    1576. 

  1576.     fi
    1577. 

  1577. }
    1578. 

  1578. 

  1579. scan_xmlfile()
    1580. 

  1580. {
    1581. 

  1581.    SOURCEFILE=`xml_sourcefile "$F"`
    1582. 

  1582.    $hint "'$SOURCEFILE': scanning xml -> '$F'" 
    1583. 

  1583.    scan_xml_rootnode
    1584. 

  1584.    rootnode=`get_xml_rootnode | sed -e "/^h[$NN]/s|\$| <?section?>|"`
    1585. 

  1585.    $hint "'$SOURCEFILE': rootnode ('$rootnode')" 
    1586. 

  1586. }
    1587. 

  1587. 

  1588. make_xmlfile()
    1589. 

  1589. {
    1590. 

  1590.    SOURCEFILE=`xml_sourcefile "$F"`
    1591. 

  1591.    X=`echo $SOURCEFILE | sed -e "y:/:~:"`
    1592. 

  1592.    article=`get_xml_rootnode`
    1593. 

  1593.    test ".$article" = "." && article="article"
    1594. 

  1594.    echo '<!DOCTYPE '$article' PUBLIC "-//OASIS//DTD DocBook XML V4.4//EN"' \
    1595. 

  1595.         > "$F"
    1596. 

  1596.    echo  '    "http://www.oasis-open.org/docbook/xml/4.4/docbookx.dtd">' \
    1597. 

  1597.        >> "$F"
    1598. 

  1598.    cat "$tmp/$MK.$X.xmlstylesheets.tmp.txt" | { while read stylesheet ; do
    1599. 

  1599.        echo "<?xml-stylesheet type=\"text/css\" href=\"$stylesheet\" ?>" \
    1600. 

  1600.            >> "$F"
    1601. 

  1601.    done }
    1602. 

  1602.    __secinfo="\\1<sectioninfo>\\2</sectioninfo>"
    1603. 

  1603.    cat "$SOURCEFILE" | $SED \
    1604. 

  1604. 	-e "s!<>!\&nbsp\;!g" \
    1605. 

  1605. 	-e "s!\\(&\\)\\(&\\)!\\1amp;\\2amp;!g" \
    1606. 

  1606. 	-e "s!\\(<[^<>]*\\)\\(width\\)\\(=\\)\\([$NN]*\%*\\)!\\1\\2\\3\"\\4\"!g" \
    1607. 

  1607. 	-e "s!\\(<[^<>]*\\)\\(cellpadding\\)\\(=\\)\\([$NN]*\%*\\)!\\1\\2\\3\"\\4\"!g" \
    1608. 

  1608. 	-e "s!\\(<[^<>]*\\)\\(border\\)\\(=\\)\\([$NN]*\%*\\)!\\1\\2\\3\"\\4\"!g" \
    1609. 

  1609. 	-e "s!<[?]xml-stylesheet[^<>]*>!!" \
    1610. 

  1610. 	-e "s!<link[^<>]* rel=[\'\"]*stylesheet[^<>]*>!!" \
    1611. 

  1611. 	-e "s!<[hH][$NN]!<title!g" \
    1612. 

  1612. 	-e "s!</[hH][$NN]!</title!g" \
    1613. 

  1613. 	-e "s!\\(</title> *\\)\\([^<>]*[$AZ$az$NN][^<>\r\n]*\\)\$!\\1<sub>\\2</sub>!" \
    1614. 

  1614. 	-e "s!\\(</title>.*\\)<sub>!\\1<subtitle>!g" \
    1615. 

  1615. 	-e "s!\\(</title>.*\\)</sub>!\\1</subtitle>!g" \
    1616. 

  1616. 	-e "s!\\(<section>[^<>]*\\)\\(<date>.*</date>[^<>]*\\)\$!\\1<sectioninfo>\\2</sectioninfo>!g" \
    1617. 

  1617.         -e "s!<em>!<emphasis>!g" \
    1618. 

  1618.         -e "s!</em>!</emphasis>!g" \
    1619. 

  1619.         -e "s!<i>!<emphasis>!g" \
    1620. 

  1620.         -e "s!</i>!</emphasis>!g" \
    1621. 

  1621.         -e "s!<b>!<emphasis role=\"bold\">!g" \
    1622. 

  1622.         -e "s!</b>!</emphasis>!g" \
    1623. 

  1623.         -e "s!<u>!<emphasis role=\"underline\">!g" \
    1624. 

  1624.         -e "s!</u>!</emphasis>!g" \
    1625. 

  1625.         -e "s!<big>!<emphasis role=\"strong\">!g" \
    1626. 

  1626.         -e "s!</big>!</emphasis>!g" \
    1627. 

  1627.         -e "s!<\\(strike\\)>!<emphasis role=\"strikethrough\">!g" \
    1628. 

  1628.         -e "s!<\\(s\\)>!<emphasis role=\"strikethrough\">!g" \
    1629. 

  1629.         -e "s!</\\(strike\\)>!</emphasis>!g" \
    1630. 

  1630.         -e "s!</\\(s\\)>!</emphasis>!g" \
    1631. 

  1631.         -e "s!<center>!<blockquote><para>!g" \
    1632. 

  1632.         -e "s!</center>!</para></blockquote>!g" \
    1633. 

  1633.         -e "s!<p align=\\(\"[$AZ$az$NN]*\"\\)>!<para role=\\1>!g" \
    1634. 

  1634.         -e "s!<[pP]>!<para>!g" \
    1635. 

  1635.         -e "s!</[pP]>!</para>!g" \
    1636. 

  1636.         -e "s!<\\(pre\\)>!<screen>!g" \
    1637. 

  1637.         -e "s!<\\(PRE\\)>!<screen>!g" \
    1638. 

  1638.         -e "s!</\\(pre\\)>!</screen>!g" \
    1639. 

  1639.         -e "s!</\\(PRE\\)>!</screen>!g" \
    1640. 

  1640.         -e "s!<a\\( [^<>]*\\)name=\\([^<>]*\\)/>!<anchor \\1id=\\2/>!g" \
    1641. 

  1641.         -e "s!<a\\( [^<>]*\\)name=\\([^<>]*\\)>!<anchor \\1id=\\2/>!g" \
    1642. 

  1642.         -e "s!<a\\( [^<>]*\\)href=!<ulink\\1url=!g" \
    1643. 

  1643.         -e "s!</a>!</ulink>!g" \
    1644. 

  1644. 	-e "s! remap=\"url\">[^<>]*</ulink>! />!g" \
    1645. 

  1645. 	-e "s!<\\(/*\\)span\\([ 	][^<>]*\\)>!<\\1phrase\\2>!g" \
    1646. 

  1646. 	-e "s!<\\(/*\\)span>!<\\1phrase>!g" \
    1647. 

  1647. 	-e "s!<small\\([ 	][^<>]*\\)>!<phrase role=\"small\"\\1>!g" \
    1648. 

  1648. 	-e "s!<small>!<phrase role=\"small\">!g" \
    1649. 

  1649. 	-e "s!</small>!</phrase>!g" \
    1650. 

  1650. 	-e "s!<\\(/*\\)\\(sup\\)>!<\\1superscript>!g" \
    1651. 

  1651. 	-e "s!<\\(/*\\)\\(sub\\)>!<\\1subscript>!g" \
    1652. 

  1652. 	-e "s!\\(<\\)\\(li\\)\\(><\\)!\\1listitem\\3!g" \
    1653. 

  1653. 	-e "s!\\(></\\)\\(li\\)\\(>\\)!\\1listitem\\3!g" \
    1654. 

  1654. 	-e "s!\\(<\\)\\(li\\)\\(>\\)!\\1listitem\\3<para>!g" \
    1655. 

  1655. 	-e "s!\\(</\\)\\(li\\)\\(>\\)!</para>\\1listitem\\3!g" \
    1656. 

  1656. 	-e "s!\\(</*\\)\\(ul\\)>!\\1itemizedlist>!g" \
    1657. 

  1657. 	-e "s!\\(</*\\)\\(ol\\)>!\\1orderedlist>!g" \
    1658. 

  1658. 	-e "s!\\(</*\\)\\(dl\\)>!\\1variablelist>!g" \
    1659. 

  1659. 	-e "s!<\\(/*\\)DT>!<\\1dt>!g" \
    1660. 

  1660. 	-e "s!<\\(/*\\)DD>!<\\1dd>!g" \
    1661. 

  1661. 	-e "s!<\\(/*\\)DL>!<\\1dl>!g" \
    1662. 

  1662. 	-e "s!<BLOCKQUOTE>!<blockquote><para>!g" \
    1663. 

  1663. 	-e "s!</BLOCKQUOTE>!</para></blockquote>!g" \
    1664. 

  1664. 	-e "s!<\\(/*\\)dl>!<\\1variablelist>!g" \
    1665. 

  1665. 	-e "s!<dt\\( [^<>]*\\)>!<varlistentry\\1><term>!g" \
    1666. 

  1666. 	-e "s!<dt>!<varlistentry><term>!g" \
    1667. 

  1667. 	-e "s!</dt>!</term>!g" \
    1668. 

  1668. 	-e "s!<dd\\( [^<>]*\\)><!<listitem\\1><!g" \
    1669. 

  1669. 	-e "s!<dd><!<listitem><!g" \
    1670. 

  1670. 	-e "s!></dd>!></listitem></varlistentry>!g" \
    1671. 

  1671. 	-e "s!<dd\\( [^<>]*\\)>!<listitem\\1><para>!g" \
    1672. 

  1672. 	-e "s!<dd>!<listitem><para>!g" \
    1673. 

  1673. 	-e "s!</dd>!</para></listitem></varlistentry>!g" \
    1674. 

  1674. 	-e "s!<table[^<>]*><tr><td>\\(<table[^<>]*>\\)!\\1!" \
    1675. 

  1675. 	-e "s!\\(</table>\\)</td></tr></table>!\\1!" \
    1676. 

  1676. 	-e "s!<table\\( [^<>]*\\)>!<informaltable\\1><tgroup cols=\"2\"><tbody>!g" \
    1677. 

  1677. 	-e "s!<table>!<informaltable><tgroup cols=\"2\"><tbody>!g" \
    1678. 

  1678. 	-e "s!</table>!</tbody></tgroup></informaltable>!g" \
    1679. 

  1679. 	-e "s!\\(</*\\)tr\\([ 	][^<>]*\\)>!\\1row\\2>!g" \
    1680. 

  1680. 	-e "s!\\(</*\\)tr>!\\1row>!g" \
    1681. 

  1681. 	-e "s!\\(</*\\)td\\([ 	][^<>]*\\)>!\\1entry\\2>!g" \
    1682. 

  1682. 	-e "s!\\(</*\\)td>!\\1entry>!g" \
    1683. 

  1683. 	-e "s!\\(<informaltable[^<>]*[ 	]width=\"100\%\"\\)!\\1 pgwide=\"1\"!g" \
    1684. 

  1684. 	-e "s!\\(<tgroup[<>]*[ 	]cols=\"2\">\\)\\(<tbody>\\)!\\1<colspec colwidth=\"1*\" /><colspec colwidth=\"1*\" />\\2!g" \
    1685. 

  1685. 	-e "s!\\(<entry[^<>]*[ 	]\\)width=\\(\"[$NN]*\%*\"\\)!\\1remap=\\2!g" \
    1686. 

  1686. 	-e "s!<nobr>\\([\'\`]*\\)<tt>!<cmdsynopsis><command>\\1!g" \
    1687. 

  1687. 	-e "s!</tt>\\([\'\`]*\\)</nobr>!\\1</command></cmdsynopsis>!g" \
    1688. 

  1688. 	-e "s!<nobr><\\(code\\)>\\([\`\"\']\\)!<cmdsynopsis><command>\\2!g" \
    1689. 

  1689. 	-e "s!<
    1690.