NAME

dtatw-cids2local.perl - convert //c/@xml:id attributes to page-local encoding

SYNOPSIS

 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)

OPTIONS AND ARGUMENTS

Not yet written.

DESCRIPTION

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:

1. 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"/>

2. 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"/>
  <!-- ... -->

SEE ALSO

dta-tokwrap.perl(1), dtatw-add-c.perl(1), dtatw-rm-c.perl(1), ...

AUTHOR

Bryan Jurish <moocow@cpan.org>