dtatw-cids2local.perl - convert //c/@xml:id attributes to page-local encoding
 dtatw-cids2local.perl [OPTIONS] [XMLFILE(s)...]
 Options:
  -help                  # this help message
  -output FILE           # specify output file (default='-' (STDOUT))
  -trace  TRACEFILE      # send trace output to file (default=none)
  -xmlns , -noxmlns      # do/don't prepend 'xml:' to output id attributes (default=don't)Not yet written.
Converts //c/@xml:id attributes to page-local encoding.
New IDs are computed page-locally, where the page element associated with each //c is given by the XPath preceding::pb[1], abbreviated hereafter as $pb. The associated $pb supplies a (unique) prefix $pbid to all //c elements on the given page. The prefix is determined according to the following rules:
If $pb has a @facs attribute, it is used to define $pbid by removing any prefix matching the regex /#?f?0*/ and prefixing a "p", e.g. the following //pb elements all map to $pbid="p42":
  <pb facs="42"/>
  <pb facs="#42"/>
  <pb facs="#f0042"/>
  <pb facs="f00042"/>
  <pb facs="000042"/>Otherwise, a global counter over all //pb elements is used (whose value is initialized to "0" (zero) before the initial //pb), prefixed by "pz".
                  <!-- before first page: $pbid="pz0" -->
  <pb />          <!-- first page, no @facs: $pbid="pz1" -->
  <pb />          <!-- second page, no @facs: $pbid="pz2" -->
  <pb facs="42"/> <!-- third page, with @facs: $pbid="p42" -->
  <pb />          <!-- fourth page: $pbid="pz4" -->Finally, //c/@xml:id attributes are computed by a page-local counter $ci, to be of the form ${pbid}.c${ci}, e.g.:
  <!-- before first page -->
  <c xml:id="pz0.c1"/>
  <c xml:id="pz0.c2"/>
  <!-- ... -->
  <!-- first page, with @facs -->
  <pb facs="#f0042"/>
  <c xml:id="p42.c1"/>
  <c xml:id="p42.c2"/>
  <!-- ... -->
  <!-- second page, no @facs -->
  <pb/>
  <c xml:id="pz2.c1"/>
  <c xml:id="pz2.c2"/>
  <!-- ... -->dta-tokwrap.perl(1), dtatw-add-c.perl(1), dtatw-rm-c.perl(1), ...
Bryan Jurish <moocow@cpan.org>