doc-src/sedindex
author lcp
Thu, 08 Sep 1994 11:05:06 +0200
changeset 590 800603278425
parent 357 a2c5cd25906e
child 3096 ccc2c92bb232
permissions -rwxr-xr-x
{HOL,ZF}/indrule/quant_induct: replaced ssubst in eresolve_tac by separate call to hyp_subst_tac. This avoids substituting in x=f(x) {HOL,ZF}/indrule/ind_tac: now tries resolve_tac [refl]. This handles trivial equalities such as x=a. {HOL,ZF}/intr_elim/intro_tacsf_tac: now calls assume_tac last, to try refl before any equality assumptions

#! /bin/sh
#
#sedindex - shell script to create indexes, preprocessing LaTeX's .idx file
#
#  puts strings prefixed by * into \tt font
#    terminator characters for strings are |!@{}
#
# uses \ptt instead of \tt since that happens to explicit \tt's 
# a space terminates the \tt part to allow \index{*NE theorem}, etc.
#
# change *"X"Y"Z"W  to  "X"Y"Z"W@{\ptt "X"Y"Z"W}
# change *"X"Y"Z    to  "X"Y"Z@{\ptt "X"Y"Z}
# change *"X"Y      to  "X"Y@{\ptt "X"Y}
# change *"X        to  "X@{\ptt "X}
# change *IDENT  to  IDENT@{\ptt IDENT}  
#    where IDENT is any string not containing | ! or @
# FOUR backslashes: to escape the shell AND sed
sed -e "s~\*\(\".\".\".\".\)~\1@{\\\\ptt \1}~g
s~\*\(\".\".\".\)~\1@{\\\\ptt \1}~g
s~\*\(\".\".\)~\1@{\\\\ptt \1}~g
s~\*\(\".\)~\1@{\\\\ptt \1}~g
s~\*\([^ |!@{}][^ |!@{}]*\)~\1@{\\\\ptt \1}~g" $1.idx | makeindex -c -q -o $1.ind