Main  History  Search  Repository tree

[BACK] Return to mkmatch.pl CVS log [TXT][DIR] Up to [CVSROOT] / PappusArabus
File: [CVSROOT] / PappusArabus / mkmatch.pl  (download) - view tree
Revision 1.1.1.1 (vendor branch), Wed Mar 19 21:05:32 2003 UTC (10 years, 2 months ago) by mjschief
Branch: mjschief, MAIN
CVS Tags: v1, HEAD
Changes since 1.1: +0 -0 lines
Imported PappusArabus module


#!/usr/bin/perl

print "<matching>\n";
$sourcetext="pappus8.xml";
$targettext="PappusArabus.xml";




while (<>) {

chomp;
($source, $target) = split (/\t/);


if ($source) {

$source = "id.$source";

print "<map>\n<source>\n";
print "<link xlink:href=\"$sourcetext#$source\"/>\n";
print "</source>\n";

print "<target>\n";
print "<link xlink:href=\"$targettext#$target\"/>\n";
print "</target>\n</map>\n";


}
}

print "</matching>\n";