#!/usr/bin/perl
#----------------------------------------------------------------------------
# -*-perl-*-
#
# Copyright (C) 2004 Jörg Tiedemann  <joerg@stp.ling.uu.se>
#
#  $Id: invlinks,v 1.1.1.1 2004/05/03 15:39:55 joerg72 Exp $
#----------------------------------------------------------------------------

while (<>){
    s/toDoc=/xxxDoc=/g;
    s/fromDoc=/toDoc=/g;
    s/xxxDoc=/fromDoc=/g;
    s/(xtargets=\")(.*?)(\s*;\s*)(.*?)(\")/$1$4$3$2$5/;
    s/(lexPair=\")(.*?)(\s*;\s*)(.*?)(\")/$1$4$3$2$5/;
    s/(span=\")(.*?)(\s*;\s*)(.*?)(\")/$1$4$3$2$5/;
    print;
}