Para contradizer Martin (ligeiramente), o script provavelmente pode ser modificado para lhe dar algo próximo. Não tenho certeza exata de como será exibido, no entanto. Se você fizer com que ele diga:
if ($v ne $verse) {
$verse=$v;
print "\\x - \\xo $v\\*";
}
Então, de forma semelhante a como você obtém uma nota de rodapé vazia dizendo Capítulo X, você obterá uma nota de rodapé vazia dizendo Y (na primeira nota de rodapé do versículo Y) e, em seguida, o resto da 1ª nota de rodapé naquele versículo. Outras notas de rodapé não terão um capítulo ou um número de versículo. MAS você precisará ativar notas paragrafadas e provavelmente precisará alterar algumas coisas, como o espaçamento entre notas de rodapé (não me lembro do nome, mas acho que está na interface do usuário agora). Depois de ativar as notas paragrafadas, você não terá o versículo Y em sua própria linha, a menos que inclua alguns comandos TeX crus no que o perl está emitindo. (prefixar o conteúdo da nota de rodapé para o versículo Y com \penalty -10000\space pode ser suficiente).
Provavelmente, em algum momento neste exercício, essa abordagem improvisada atingirá seus limites, e a resposta de Martin se tornará a maneira certa de fazer isso, ou mudanças muito significativas no código TeX (que provavelmente quebrariam os projetos de outras pessoas) serão necessárias.
No lado do TeX, você precisaria ‘sequestrar’ a macro \xo e fazê-la interpretar os parâmetros capítulo:versículo como valores, antes de entrarem no fluxo de saída, e, em seguida, fazer a comparação e a redefinição da saída no TeX. O perigo é que, se alguém tivesse um \xo que não fosse sempre seguido por capítulo:versículo, e em vez disso tivesse capítulo.versículo ou similar, o código daria erros estranhos e inesperados.
Definir macros robustas no TeX é difícil, e não há nenhum padrão que defina o que as pessoas colocarão em \xo (nem uma garantia de que o usem apenas em referências cruzadas!).
Pensando um pouco mais, na verdade seria muito melhor definir sua própria macro com um terminador definido, que por sua vez se resolveria para \xo, em vez de sequestrar \xo.
ex.: \def\zmyxrefstyle#1:#2\*{comparação} para definir quaisquer prefixos para o chamado.
Claro, você ainda teria que fazer o código gerador do chamador da nota de rodapé colocar o número do capítulo e/ou o número do versículo antes do chamado. Estou adivinhando que levaria pelo menos meio dia de programação e depuração, mas pode haver coisas que eu esqueci que o empurrariam para uma semana ou três.
Sem uma chamada muito clara de vários usuários, é improvável que encontraremos tempo para fazer isso a qualquer momento no próximo ano.
